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

1.1       albertel    1: //**************************************
                      2: /LET prob_val=2
                      3: //HIN  No Hint unless you un-comment this text to make it into a hint. 
                      4: //EXP  No Explanation unless you un-comment this text and write something.
                      5: /IMP "../Tools/Problem#" 
                      6: // ../CAPA/MCTools/Nof5  Select N correct of 5 Statements
                      7: This is the TEXT of problem here. (Give ALL correct answers, i.e., B, AC, BCD...) 
                      8: // set a1a = 1 for a correct variation, and 2 for incorrect, etc..
                      9: // ALL variations for at least one statement must always be correct!
                     10: //----------------------------------------
                     11: /LET s1a="Statement 1 variation a"
                     12: /LET s1b="Statement 1 variation b"
                     13: /LET s1c="Statement 1 variation c"
                     14: /LET s1d="Statement 1 variation d"
                     15: /LET mix1=random(1,1,1)
                     16: /LET a1a=26
                     17: /LET a1b=26
                     18: /LET a1c=26
                     19: /LET a1d=26
                     20: //
                     21: /LET s2a="Statement 2 variation a"
                     22: /LET s2b="Statement 2 variation b"
                     23: /LET s2c="Statement 2 variation c"
                     24: /LET s2d="Statement 2 variation d"
                     25: /LET mix2=random(1,1,1)
                     26: /LET a2a=26
                     27: /LET a2b=26
                     28: /LET a2c=26
                     29: /LET a2d=26
                     30: //
                     31: /LET s3a="Statement 3 variation a"
                     32: /LET s3b="Statement 3 variation b"
                     33: /LET s3c="Statement 3 variation c"
                     34: /LET s3d="Statement 3 variation d"
                     35: /LET mix3=random(1,1,1)
                     36: /LET a3a=26
                     37: /LET a3b=26
                     38: /LET a3c=26
                     39: /LET a3d=26
                     40: //
                     41: /LET s4a="Statement 4 variation a"
                     42: /LET s4b="Statement 4 variation b"
                     43: /LET s4c="Statement 4 variation c"
                     44: /LET s4d="Statement 4 variation d"
                     45: /LET mix4=random(1,1,1)
                     46: /LET a4a=26
                     47: /LET a4b=26
                     48: /LET a4c=26
                     49: /LET a4d=26
                     50: //
                     51: /LET s5a="Statement 5 variation a"
                     52: /LET s5b="Statement 5 variation b"
                     53: /LET s5c="Statement 5 variation c"
                     54: /LET s5d="Statement 5 variation d"
                     55: /LET mix5=random(1,1,1)
                     56: /LET a5a=26
                     57: /LET a5b=26
                     58: /LET a5c=26
                     59: /LET a5d=26
                     60: //
                     61: //This is the auxilary file for the Nof5 tool, it maps and scrambles the 
                     62: //statements and answers
                     63: //
                     64: /LET m=choose(mix1,s1a,s1b,s1c,s1d)
                     65: /LET a=choose(mix1,a1a,a1b,a1c,a1d)
                     66: /LET n=choose(mix2,s2a,s2b,s2c,s2d)
                     67: /LET b=choose(mix2,a2a,a2b,a2c,a2d)
                     68: /LET o=choose(mix3,s3a,s3b,s3c,s3d)
                     69: /LET c=choose(mix3,a3a,a3b,a3c,a3d)
                     70: /LET p=choose(mix4,s4a,s4b,s4c,s4d)
                     71: /LET d=choose(mix4,a4a,a4b,a4c,a4d)
                     72: /LET q=choose(mix5,s5a,s5b,s5c,s5d)
                     73: /LET e=choose(mix5,a5a,a5b,a5c,a5d)
                     74: /LET seed=random(1,300,1)
                     75: /MAP(seed;M1,M2,M3,M4,M5;m,n,o,p,q)
                     76: /LET it=tex("\item[] ","")
                     77: /DIS(tex("\begin{choicelist}",""))
                     78: /DIS(it) A) /DIS (M1)
                     79: /DIS(it) B) /DIS (M2)
                     80: /DIS(it) C) /DIS (M3)
                     81: /DIS(it) D) /DIS (M4)
                     82: /DIS(it) E) /DIS (M5)
                     83: /DIS(tex("\end{choicelist}",""))
                     84: /MAP(seed;b1,b2,b3,b4,b5;a,b,c,d,e)
                     85: /LET NM1=b1*(b1==1)+1
                     86: /LET NM2=b2*(b2==1)+1
                     87: /LET NM3=b3*(b3==1)+1
                     88: /LET NM4=b4*(b4==1)+1
                     89: /LET NM5=b5*(b5==1)+1
                     90: /LET lett1=choose(NM1,"","A")
                     91: /LET lett2=choose(NM2,"","B")
                     92: /LET lett3=choose(NM3,"","C")
                     93: /LET lett4=choose(NM4,"","D")
                     94: /LET lett5=choose(NM5,"","E")
                     95: /LET Nof5right=lett1+lett2+lett3+lett4+lett5
                     96: //*************************************************************************
                     97: /DIS(stdline)
                     98: /ANS(Nof5right,wgt=prob_val,str=mc)
                     99: //**************************************

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