Fichier 704.jps — Modifié le 12 Novembre 2006 à 12 h 13
.1 setxyrapport
20 setxunit
7.5 setborder
90 setangle_repere
-6 6 setxrange
-.12 1 setyrange
1 .1 settkstep
1 .1 setsubtkstep
5 .2 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/sigma 1.2 def
/m 1 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 37 store
2 3 {f} Hachcourbe
grestore
.75 setlinewidth
continu
bleu
{f} courbe
noir
setTimesItalic
(Loi normale de paramètres m = 1 et ) xmin xmax add 2 div ymin uctext
setSymbol
(s = 1.2) show