.01 setxyrapport
15 setxunit
7.5 setborder
90 setangle_repere
0 100 setxrange
0 0.2 setyrange
/ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store
1 .0 settkstep
1 .01 setsubtkstep
1 .01 setmkstep
marks
traceaxes
axesarrow
bleu
/bin {100 .7 binomiale } def
/l1 [0 100 truncate 1 stepto] def
gsave
.25 0 stranslate
l1 dup {bin} apply fuz {baton2} plot
grestore
10 xtranslate sub 10 ytranslate sub moveto
noir
setTimes
( n = 100 p = .7) show
|