/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 5 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
/bin {60 .50 binomiale } def
/l1 [0 60 truncate 1 stepto] def
l1 dup (bin) apply fuz (baton2) plot
|