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>