.005 setxyrapport
5 setxunit
7.5 setborder
90 setangle_repere
-5 100 setxrange
-.03 .15 setyrange
5 .05 settkstep
1 .01 setsubtkstep
5 .05 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
setTimesItalic
(Loi binomiale de paramètres n = 100 et p = .25 ) xmin xmax add 2 div ymin uctext
rouge
/bin {100 .25 binomiale } def
/l1 [0 100 truncate 1 stepto] def
l1 dup {bin} apply fuz {baton2} plot
|