Présentation de 396.jps

.01 setxyrapport
15 setxunit
7.5 setborder
90 setangle_repere
0 0.2 setxrange
0 0.9 setyrange
/ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store
2 .0005 settkstep
1 .001 setsubtkstep
2 .0005 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
bleu
/lambda 0.005577 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 = 0.005577   ) show