Annotation of capa/capa51/GUITools/ideas/of5tool/first.qz, revision 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>