.01 setxyrapport
15 setxunit
7.5 setborder
90 setangle_repere
-5 30 setxrange
-.04 .14 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
1.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
bleu
/bin {100 .15 binomiale } def
/l1 [0 100 truncate 1 stepto] def
gsave
   0 0 stranslate
l1 dup {bin} apply fuz {baton2} plot
grestore
10 xtranslate sub 10 ytranslate sub  moveto
noir
 setTimes
   (   n = 100    p = .15) show
   (   m = 15    ) show
setSymbol
   (   s = ) show sigma ch cvs show