Présentation de 2362.jps

/syracuse/bbgraf/tmp/2362.jpg
.01 setxyrapport 15 setxunit 7.5 setborder 90 setangle_repere -10 10 setxrange -.04 .5 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 .75 setlinewidth continu rouge /sigma 1.015 def /m 1.04 def /f {m sub sigma div dup mul -2 div Exp 2 pi mul sqrt sigma mul div} def {f} courbe orange /lambda 1.04 def /l1 [0 xmax truncate 1 stepto] def gsave 2 0 stranslate l1 dup {lambda Poisson} apply fuz {baton2} plot grestore bleu /bin {104 0.01 binomiale } def /l1 [0 104 truncate 1 stepto] def gsave 2 0 stranslate l1 dup {bin} apply fuz {baton2} plot grestore 10 xtranslate sub 10 ytranslate sub moveto noir setTimes ( n = 104 p = 0.01) show ( m = 1.04 ) show setSymbol ( s = ) show sigma chaine cvs show setSymbol ( l = 1.04 ) show