# Rekursive Berechnung der
Poissonverteilung

## Problembeschreibung

******************************************
Dokumentnummer: D1231
für Steiner-Weilharter IV, HPT 2007
******************************************
Eine Poissonverteilung ist
a) grafisch darzustellen
b) herkömmlich zu berechnen
c) rekursiv zu berechnen

## Problemlösung

EINGABE

m:read("Gib den Mittelwert der Poissionverteilung ein");

n:read("Gib die Obergrenze ein");

VERARBEITUNG

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

GRAFIK

wxplot2d([P(k)], [k,0,n])$

poisson:makelist(P(k),k,0,n)$

poisson:transpose(poisson),numer$

x[0]:exp(-m)$

f(i):=x[i]:m/i*x[i-1];

rekursion:makelist(f(i),i,1,n)$

rekursion:append([x[0]],rekursion)$

rekursion:transpose(rekursion),numer$

AUSGABE

print("normal - rekursiv",poisson,rekursion)$