EL-9600: Program FAIRDIE

ClrT
ClrG
ClrDraw
ClrList L1,L2,L3,L4,L5,L6
SetList L1,L2,L3,L4,L5,L6
Print "FAIR DIE..."
Print "1 FOR YES"
Print "0 FOR NO"
Input A
Print "NUM EXPERIMENTS:"
Input M
Print "NUM ROLLS:"
Input N
N / 6  --->  E
M  --->  dim(L1)
6  --->  dim(L2)
   0  --->  K
Label LOOPA
   K+1  --->  K
   0 * L2  --->  L2
       0  --->  I
Label LOOPB
      I+1  --->  I
      If A  = 0 Goto CCC
         ipart ( 6 * random + 1 )  --->  D
         Goto CC
    Label CCC
      ipart (11 * random )  --->  R
      R - 6 * ipart ( R / 6 ) + 1  --->  D
    Label CC
    L2(D) + 1  --->  L2(D)
If I< N Goto LOOPB
sum( (L2-E)^2 / E )  --->  C
Print "EXP. NO:"
Print K
Print "CHI^2 ="
Print C
round(C,3)  --->  L1(K)
If K< M Goto LOOPA
Print "NUM EXPERIMENTS:"
Print M
Print "NUM ROLLS:"
Print N
Print "CODE FAIRDIE:"
Print A
ClrList L2
sortA(L1)

EL-9600: Program PRIMFREQ

Print "A MOMENT PLEASE, BUSY ..."
M  --->   dim(L2)
M  --->   dim(L3)
L1(1)  --->   L2(1)
1  --->   L3(1)
   1  --->   K
     1  --->   I
Label PPP
   K+1  --->   K
   If L1(K) = L1(K-1) Goto PP1
     I+1  --->   I
     L1(K)  --->   L2(I)
     1  --->   L3(I)
   Goto PP2
Label PP1
     L3(I)+1  --->   L3(I)
Label PP2
If K< M Goto PPP
I  --->   dim(L2)
I  --->   dim(L3)




EL-9600: Program SECUFREQ

Print "A MOMENT PLEASE, BUSY ..."
ClrList L4,L5
SetList L4,L5
ipart ( L2(dim(L2))+2 )  --->   dim(L4)
ipart ( L2(dim(L2))+2 )  --->   dim(L5)
seq( -.5+X, 0, ipart (L2(dim(L2))+1) )  --->   L4
0  --->   L4(1)
0 * L4  --->   L5
   0  --->   K
Label QQQ
   K+1  --->   K
   ipart (L1(K)) + 2  --->   L
   L5(L) + 1  --->   L5(L)
If K< M Goto QQQ
L5(2)  --->   L5(1)