\START92\
\COMMENT=
\NAME=fairdiep
\FILE=FAIRDIEP.9XP
()
Prgm
\(C)\ keine Parameterliste, Dialogfenster!
Lokal  a,b,n,e,i,k,d,c,z,seed
Dialog
 Titel  "Wuerfelexperiment"
 DropDown  "Fairer W\u..\rfel:",{"Ja (Code=1)","Nein (Code=0)"},a
 Abfrage  "Anzahl Experimente ",m
 Abfrage  "Wurfanzahl pro Exp.",n
 DropDown  "Neustart ZZ-Generator:",{"Ja","Nein"},b
 Abfrage  "ggf. Startwert ZZ-G.",seed
EndDlog
2-a\->\a
If b=1 Then
ZufStart Ausdr(seed)
EndIf
Ausdr(m)\->\m
Ausdr(n)\->\n
n/6\->\e
{a,m,n}\->\fairparm
L\o..\EA
FktAus  
defGraph("Labels","Off")
L\o..\Haupt
L\o..\Bild
PlotsAus  
Dialog
Titel  "Fairer Wuerfel: Ja oder Nein?"
Text  "Code 1 f\u..\r Ja oder Code 0 f\u..\r Nein"
Text  "Ihre Auswahl ist"
Text  String(a)
Text  "Ihre Anzahl der Experimente ist"
Text  String(m)
Text  "Ihre Wurfanzahl pro Experiment ist"
Text  String(n)
EndDlog
If b=1 Then
Dialog
Titel  "Info zum ZZ-Generator"
Text  "Neustart des ZZ-Generators mit seed1 ="
Text  String(seed1)
Text  "Neustart des ZZ-Generators mit seed2 ="
Text  String(seed2)
EndDlog
Else
Dialog
Titel  "Info zum ZZ-Generator"
Text  "Fortsetzung des ZZ-Gen. mit seed1 ="
Text  String(seed1)
Text  "Fortsetzung des ZZ-Gen. mit seed2 ="
Text  String(seed2)
EndDlog
EndIf
EntfVar  list1,list2,list3,list4,list5,list6
n/6\->\e

For  k,1,m,1
Folge(0,i,1,6,1)\->\list2

For  i,1,n,1
If a=1 Then
ZufallZ(6)\->\d

Else
GanzZahl((ZufallZ(11)+1)/2)\->\d

EndIf
list2[d]+1\->\list2[d]

EndFor
Summe((list2-e)^2/e)\->\c

L\o..\EA
Zeige  "====================================="
Zeige  "Aktuelle Exp.-Nr. =",k
Zeige  "Aktueller Chi^2-Wert =",approx(c)
Zeige  "====================================="
runde(c,3)\->\list1[k]

EndFor
L\o..\EA
Zeige  "====================================="
Zeige  "Ende der Simulation der Chi^2-Werte:"
Zeige  "Ihre Anzahl der Experimente betrug ",m
Zeige  "Ihre Wurfanzahl pro Experiment betrug ",n
Zeige  "Ihr Auswahl-Code war",a
Zeige  "======================================"
EntfVar  list2
EndPrgm

\STOP92\