# Binomialverteilung mit Grafik

## Problembeschreibung

******************************************
Dokumentnummer: D1069
Quelle: Johann Weilharter,
             Stochastik
******************************************

Gegeben sind n und p einer Binomialverteilung.
Berechne die Binomialverteilung und stelle diese
grafisch dar.

## 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])$