/width 500 def
/height 250 def
/border 7.5 def
/xmin -5 def
/xmax 60 def
/ymin -.04 def
/ymax .15 def
xticks
yticks
xsubticks
ysubticks
/xtkstep 2 def
/ytkstep .05 def
/xsubtkstep 1 def
/ysubtkstep .01 def
/xmkstep 5 def
/ymkstep .05 def
xmarks
ymarks
traceOx
traceOy
axeOxarrow
axeOyarrow
xmarks
ymarks
jpegmode
rouge
/lambda 10 def
/l1 [0 30 1 stepto] def
l1 dup (Poisson) apply fuz (baton2) plot