.1 setxyrapport
20 setxunit
7.5 setborder
90 setangle_repere
-2 20 setxrange
-.2 1 setyrange
1 .1 settkstep
1 .1 setsubtkstep
5 .2 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/sigma 1 def
/m 10 def
/f {m sub sigma div dup mul -2 div Exp 2 pi mul sqrt sigma mul div} def
gsave
bleu
continu
/hstep 4 store
/hangle 15 store
xmin 11 {f} Hachcourbe
grestore
.75 setlinewidth
continu
bleu
{f} courbe
noir
setTimesItalic
(Loi normale de paramètres m = 10 et ) xmin xmax add 2 div ymin uctext
setSymbol
(s = 1) show
|