Présentation de 068.jps

/syracuse/bbgraf/tmp/068.jpg
.01 setxyrapport 15 setxunit 7.5 setborder 90 setangle_repere -5 30 setxrange -.04 .2 setyrange /ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store 2 .05 settkstep 1 .01 setsubtkstep 2 .05 setmkstep ticks subticks marks traceaxes axesarrow .75 setlinewidth continu rouge /sigma 15 .85 mul sqrt def /m 15 def /f {m sub sigma div dup mul -2 div Exp 2 pi mul sqrt sigma mul div} def {f} courbe 10 xtranslate sub 10 ytranslate sub moveto noir setTimes ( m = 15 ) show setSymbol ( s = ) show sigma chaine cvs show