Annotation of capa/capa51/GUITools/ideas/of5tool/first.qz, revision 1.1.1.1

1.1       albertel    1: //****************************
                      2: /LET prob_val=1
                      3: //HIN No hint unless this line is uncommented and modified
                      4: //EXP No explanation unless this line is uncommented and modified
                      5: /IMP "../Tools/Problem#"
                      6: A mass M = 0.16 /DIS(kg_u) is on a smooth horizontal surface (negligiable friction). It is attached to a spring with spring constant k = 15.3 /DIS(NPm_u). The mass is displaced from its equilibrium position (x=0) by a distance of 0.14 m (x= + 0.14 m) and then released from rest. (Give all of the correct answers, i.e., A or BC or ABC. . .)
                      7: //----------------------------
                      8: /LET s1a="The motion of M is simple harmonic motion."
                      9: /LET mix1=random(1,1,1)
                     10: /LET a1a=1
                     11: //
                     12: /LET s2a="The amplitude varies with time."
                     13: /LET s2b="The amplitude doesn't vary with time."
                     14: /LET mix2=random(1,2,1)
                     15: /LET a2a=2
                     16: /LET a2b=1
                     17: //
                     18: /LET s3a="The frequency of oscillation is independant of k."
                     19: /LET s3b="The period of oscillation is independant of k."
                     20: /LET s3c="The frequency of oscillation depends on k."
                     21: /LET mix3=random(1,3,1)
                     22: /LET a3a=2
                     23: /LET a3b=2
                     24: /LET a3c=1
                     25: //
                     26: //Nof5aux follows
                     27: /LET s1=choose(mix1,s1a)
                     28: /LET a1=choose(mix1,a1a)
                     29: /LET s2=choose(mix2,s2a,s2b)
                     30: /LET a2=choose(mix2,a2a,a2b)
                     31: /LET s3=choose(mix3,s3a,s3b,s3c)
                     32: /LET a3=choose(mix3,a3a,a3b,a3c)
                     33: /LET seed=random(1,300,1)
                     34: /MAP(seed;M1,M2,M3;s1,s2,s3)
                     35: /LET it=tex("\item[] ","")
                     36: /DIS(tex("\begin{choicelist}",""))
                     37: /DIS(it) A) /DIS (M1)
                     38: /DIS(it) B) /DIS (M2)
                     39: /DIS(it) C) /DIS (M3)
                     40: /DIS(tex("\end{choicelist}",""))
                     41: /MAP(seed;b1,b2,b3;a1,a2,a3)
                     42: /LET NM1=b1*(b1==1)+1
                     43: /LET NM2=b2*(b2==1)+1
                     44: /LET NM3=b3*(b3==1)+1
                     45: /LET lett1=choose(NM1,"","A")
                     46: /LET lett2=choose(NM2,"","B")
                     47: /LET lett3=choose(NM3,"","C")
                     48: /LET Nof5right=lett1+lett2+lett3
                     49: //**************************
                     50: /DIS(stdline)
                     51: /ANS(Nof5right,wgt=prob_val,str=mc)
                     52: //**************************

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