 Um die Häufgkeitsverteilung von einzeln lebenden Tieren zu untersuchen, 
wird eine größere quadratische Fläche in 10 mal 10 Felder unterteilt. 
Die Zufallsvariable X gibt die Anzahl der Tiere je Feld an. 
Das Ergebnis der Auszählung ist in der Tabelle festgehalten.

Anzahl k der Tiere in einem Feld       0         1         2          3          4          5         6
Anzahl der Felder mit k Tieren         30       35        22        10         2         1         0

X:[0,1,2,3,4,5,6];

H:[30,35,22,10,2,1,0];

n:length(X);

N:sum(H[i],i,1,n);

P:H/N;

P:P,numer;

m:sum(P[i]*X[i],i,1,n);

W(k):=m**k/k!*exp(-m);

PV:makelist(floor(W(k)*1000+0.5)/1000.0,k,0,n-1);