Poisson à partir de la binomiale

M tend vers ∞ avec moyenne (M p) fixe

Faire M=10, 25, 50, 100 avec valeur moyenne fixe

M=10;
p=5/M;

B=Table[((M!)/(n!(M-n)!))(p^n)(((1-p))^(M-n)),{n,1,M}];
M p
M p (1-p)

ListPlot[B,PlotStyle->PointSize[0.02`],BaseStyle->{FontFamily->"Times",FontSize->20},PlotRange->{{0,25},{0,0.35`}}]