\START92\
\COMMENT= Program file dated 01/30/98, 20:21
\NAME=wurf
\FILE=WURF.9XP
()
Prgm
Local  a,m,n,e,i,k,d,c,z
Dialog
 Title  "W\u..\rfelexperiment"
 DropDown  "Fairer W\u..\rfel:",{"ja","nein"},a
 Request  "Anzahl Experimente",m
 Request  "Wurfanzahl",n
EndDlog
expr(m)\->\m
expr(n)\->\n
DelVar  l1,l2,l3,l4,l5,l6
n/6\->\e
RandSeed  1147
For  k,1,m
 seq(0,z,1,6)\->\l2
 For  i,1,n
  If a=1 Then
   rand(6)\->\d
  Else
   int((rand(11)+1)/2)\->\d
  EndIf
  l2[d]+1\->\l2[d]
 EndFor
 sum((l2-e)^2/e)\->\c
 round(c,3)\->\l1[k]
EndFor
DelVar  l2
SortA  l1
EndPrgm

\STOP92\