\START92\
\COMMENT=
\NAME=fairdie9
\FILE=FAIRDIE9.89P
(aa,mm,nn)
Prgm
DelVar  a,m,n
aa\->\a
mm\->\m
nn\->\n
{a,m,n}\->\fairparm
Local  c,d,e,i,k
ClrIO
FnOff  
setGraph("Labels","Off")
ClrHome
ClrDraw
PlotsOff  
Disp  "FAIRDIE YES OR NO"
Disp  "1 FOR YES OR 0 FOR NO"
Disp  "YOUR CODE =",a
Pause  
Disp  "YOUR NUM OF EXPERIMENTS =",m
Disp  "YOUR NUM OF ROLLS =",n
Pause  
DelVar  list1,list2,list3,list4,list5,list6
n/6\->\e

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

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

Else
int((rand(11)+1)/2)\->\d

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

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

Disp  "ACTUAL EXP.-NO",k
Disp  "ACTUAL CHI-SQUARE-VALUE =",approx(c)
round(c,3)\->\list1[k]

EndFor
Disp  "YOUR NUM OF EXPERIMENTS:",m
Disp  "YOUR NUM OF ROLLS:",n
Disp  "YOUR CODE FAIRDIE:",a
DelVar  list2
EndPrgm

\STOP92\