# Normalverteilung

## Problembeschreibung

******************************************
Dokumentnummer: D1654
******************************************
Das Unterprogramm "distrib" von Maxima 5.15.0 stellt zwei 
Funktionen für die Normalverteilung zur Verfügung:
a) pdf_normal(x,m,s) -> die Dichtefunktion
b) cdf_normal(x,m,s) -> die Verteilungsfunktion

## Problemlösung

load(distrib)$

n:10;

p:0.1;

m:n*p;

v:n*p*(1-p);

s:sqrt(v);

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

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

BV:makelist(W(x),x,0,n);

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

GV(x):=pdf_normal(x,0,1);

wxplot2d([GV(x)], [x,-5,5])$

NV(x):=pdf_normal(x,m,s);

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

g(x):=cdf_normal(x,m,s);

wxplot2d([g(x)], [x,-5,5])$