.01 setxyrapport
15 setxunit
7.5 setborder
90 setangle_repere
-10 10 setxrange
-.04 .5 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 1.015 def
/m 1.04 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 = 1.04 ) show
setSymbol
( s = ) show sigma chaine cvs show
|