.01 setxyrapport
15 setxunit
7.5 setborder
90 setangle_repere
256 2346 setxrange
0 100 setyrange
/ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store
200 .05 settkstep
100 .01 setsubtkstep
200 .05 setmkstep
xticks
xmarks
traceaxes
axesarrow
bleu
/lambda 20 def
/l1 [0 xmax truncate 1 stepto] def
gsave
0 0 stranslate
l1 dup {lambda Poisson} apply fuz {baton2} plot
grestore
10 xtranslate sub 10 ytranslate sub moveto
noir
setTimes
setSymbol
( l = 20 ) show
|