.01 setxyrapport
10 setxunit
7.5 setborder
90 setangle_repere
-5 30 setxrange
-.04 .2 setyrange
2 .05 settkstep
1 .01 setsubtkstep
2 .05 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
setTimesItalic
(Loi de Poisson de paramètre ) xmin xmax add 2 div ymin uctext
setSymbol
(l = 10) show
rouge
/lambda 10 def
/l1 [0 xmax truncate 1 stepto] def
l1 dup {lambda Poisson} apply fuz {baton2} plot
|