"W�rfelexperiment:"

"W�rfeln mit einem homogenen W�rfel, Augenzahl 1 - 6"

WUERFELN(n):=VECTOR(1+RANDOM(6),l,1,n)

"Achtung: jede Zahl wird nach erneuten n W�rfen gez„hlt !"

WIEOFT(m,n):=DIMENSION(SELECT(x=m,x,WUERFELN(n)))

ABSH(n):=VECTOR(WIEOFT(k,n),k,6)

RH(n):=ABSH(n)/n

DIAGRAMM(n):=VECTOR([[i,0],[i,ELEMENT(RH(n),i)]],i,1,6)

"W�rfeln mit 2 W�rfel, Summe der Augenzahlen:"

WUERFELS(n):=VECTOR(1+RANDOM(6)+1+RANDOM(6),l,1,n)

WIEOFTS(m,n):=DIMENSION(SELECT(x=m,x,WUERFELS(n)))

ABSHS(n):=VECTOR(WIEOFTS(k,n),k,2,12)

RHSU(n):=ABSHS(n)/n

DIAGRAMMS(n):=VECTOR([[i,0],[i,ELEMENT(RHSU(n),i)]],i,1,12)

BWF(n,p,k):=COMB(n,k)*p^k*(1-p)^(n-k)

BVF(n,p,k):=SUM(BWF(n,p,i),i,0,k)

BVI(n,p,a,b):=SUM(BWF(n,p,i),i,a,b)