# Zwei Würfel 10000mal werfen

**********************************************
Dokumentnummer: D1389
**********************************************
Untersucht wird die Augensumme

ZUFALLGENERATOR

wuerfel1(i):=random(6)+1; wuerfel2(i):=random(6)+1;

AUSPROBIEREN

wuerfel1(1);

wuerfel2(1);

DAS EXPERIMENT

versuch:makelist(wuerfel1(i)+wuerfel2(i),i,1,10000);

load(descriptive);

DIE GRUPPIERTE LISTE

gruppierung:discrete_freq(versuch);

BERECHNUNG DER RELATIVEN HÄUFIGKEITEN

x:gruppierung[1];

h:gruppierung[2];

n:length(x);

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

p:h/N;

KENNZAHLEN

m:sum(p[i]*x[i],i,1,n);

v:sum(p[i]*(x[i]-m)**2,i,1,n);

s:sqrt(v);

AUGENSUMME 12, VERGLEICH MIT DEM THEORETSCHEN WERT

p[11],numer;

1/36,numer;