Présentation de 1026.jps

/syracuse/bbgraf/tmp/1026.jpg
0.1 setxyrapport 15 setxunit 7.5 setborder 90 setangle_repere -5 30 setxrange -0.05 1 setyrange /ymin ymin dup jtoppoint exch pop 20 add dup ptojpoint exch pop store 2 .05 settkstep 1 .01 setsubtkstep 2 .05 setmkstep ticks subticks marks traceaxes axesarrow orange /lambda 10 def /l1 [0 xmax truncate 1 stepto] def gsave 0 0 stranslate l1 dup {lambda Poisson} apply fuz {baton2} plot grestore bleu /bin {100 .15 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 setSymbol ( l = 10 ) show