.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