Présentation de 8752.jps

/syracuse/bbgraf/tmp/8752.jpg
.01 setxyrapport 15 setxunit 7.5 setborder 90 setangle_repere 0 10 setxrange 0 1 setyrange /ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store 2 .1 settkstep 1 .01 setsubtkstep 2 .1 setmkstep ticks subticks marks traceaxes axesarrow bleu /bin {10 .5 binomiale } def /l1 [0 10 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 = 10 p = .5) show