.005 setxyrapport
5 setxunit
7.5 setborder
90 setangle_repere
-5 100 setxrange
-.03 .15 setyrange
5 1 settkstep
1 1 setsubtkstep
5 1 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
|