# Binomialverteilung mit Grafik

## Probllembeschreibung

******************************************
Dokumentnummer: D1193
Quelle: Johann Weilharter,
             Stochastik
******************************************
Von einer Binomialverteilung kennt
man n und p.
Ermittle die Verteilung und die
Grafik dazu.

## Problemlösung

EINGABE

n:read("Gib den Parameter n ein");

p:read("Gib die Wahrscheinlichkeit p ein");

VERARBEITUNG

W(k):=binomial(n,k)*p**k*(1-p)**(n-k);

kumW(k):=sum(W(i),i,0,k);

AUSGABE

for j:0 thru n do
    print(j,?truncate(W(j)*1000+0.5)/1000.0,?truncate(kumW(j)*1000+0.5)/1000.0);

wxplot2d([W(x)], [x,0,n])$