Annotation of capa/capa51/GUITools/ideas/of5tool/Kurtz_Nof4aux, revision 1.1.1.1

1.1       albertel    1: ---------
                      2: Locking the D position
                      3: ---------
                      4: 
                      5: //This is the auxilary file for the Nof4 tool, it maps and scrambles the
                      6: //statements and answers
                      7: //
                      8: /LET m=choose(mix1,s1a,s1b,s1c,s1d)
                      9: /LET a=choose(mix1,a1a,a1b,a1c,a1d)
                     10: /LET n=choose(mix2,s2a,s2b,s2c,s2d)
                     11: /LET b=choose(mix2,a2a,a2b,a2c,a2d)
                     12: /LET o=choose(mix3,s3a,s3b,s3c,s3d)
                     13: /LET c=choose(mix3,a3a,a3b,a3c,a3d)
                     14: /LET p=choose(mix4,s4a,s4b,s4c,s4d)
                     15: /LET d=choose(mix4,a4a,a4b,a4c,a4d)
                     16: /LET seed=random(1,300,1)
                     17: /MAP(seed;M1,M2,M3;m,n,o)
                     18: /LET M4=p
                     19: /LET it=tex("\item[] ","")
                     20: /DIS(tex("\begin{choicelist}",""))
                     21: /DIS(it) A) /DIS (M1)
                     22: /DIS(it) B) /DIS (M2)
                     23: /DIS(it) C) /DIS (M3)
                     24: /DIS(it) D) /DIS (M4)
                     25: /DIS(tex("\end{choicelist}",""))
                     26: /MAP(seed;b1,b2,b3;a,b,c)
                     27: /LET b4=d
                     28: /LET NM1=b1*(b1==1)+1
                     29: /LET NM2=b2*(b2==1)+1
                     30: /LET NM3=b3*(b3==1)+1
                     31: /LET NM4=b4*(b4==1)+1
                     32: /LET lett1=choose(NM1,"","A")
                     33: /LET lett2=choose(NM2,"","B")
                     34: /LET lett3=choose(NM3,"","C")
                     35: /LET lett4=choose(NM4,"","D")
                     36: /LET Nof4right=lett1+lett2+lett3+lett4
                     37: //*************************************************************************
                     38: 
                     39: 
                     40: ---------
                     41: Locking all positions
                     42: ---------
                     43: //This is the auxilary file for the Nof4 tool, it maps and scrambles the
                     44: //statements and answers
                     45: //
                     46: /LET m=choose(mix1,s1a,s1b,s1c,s1d)
                     47: /LET a=choose(mix1,a1a,a1b,a1c,a1d)
                     48: /LET n=choose(mix2,s2a,s2b,s2c,s2d)
                     49: /LET b=choose(mix2,a2a,a2b,a2c,a2d)
                     50: /LET o=choose(mix3,s3a,s3b,s3c,s3d)
                     51: /LET c=choose(mix3,a3a,a3b,a3c,a3d)
                     52: /LET p=choose(mix4,s4a,s4b,s4c,s4d)
                     53: /LET d=choose(mix4,a4a,a4b,a4c,a4d)
                     54: /LET seed=random(1,300,1)
                     55: /LET M1=m
                     56: /LET M2=n
                     57: /LET M3=o
                     58: /LET M4=p
                     59: /LET it=tex("\item[] ","")
                     60: /DIS(tex("\begin{choicelist}",""))
                     61: /DIS(it) A) /DIS (M1)
                     62: /DIS(it) B) /DIS (M2)
                     63: /DIS(it) C) /DIS (M3)
                     64: /DIS(it) D) /DIS (M4)
                     65: /DIS(tex("\end{choicelist}",""))
                     66: /LET b1=a
                     67: /LET b2=b
                     68: /LET b3=c
                     69: /LET b4=d
                     70: /LET NM1=b1*(b1==1)+1
                     71: /LET NM2=b2*(b2==1)+1
                     72: /LET NM3=b3*(b3==1)+1
                     73: /LET NM4=b4*(b4==1)+1
                     74: /LET lett1=choose(NM1,"","A")
                     75: /LET lett2=choose(NM2,"","B")
                     76: /LET lett3=choose(NM3,"","C")
                     77: /LET lett4=choose(NM4,"","D")
                     78: /LET Nof4right=lett1+lett2+lett3+lett4
                     79: //*************************************************************************
                     80: 
                     81: 
                     82: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>