Annotation of loncom/homework/CAPA-converter/conversion_wrapper/serprob.problem, revision 1.1
1.1 ! albertel 1: <problem>
! 2:
! 3: <import>/res/ohiou/capa/Tools/StdUnits.library</import>
! 4: <import>/res/ohiou/capa/Tools/StdConst.library</import>
! 5: <import>/res/ohiou/capa/Tools/StdMacros.library</import>
! 6:
! 7: <hr />
! 8: <displayduedate />
! 9: <displaytitle />
! 10:
! 11:
! 12:
! 13: <script type="loncapa/perl">
! 14: # ******************************************************
! 15: # / Serway & Faughn chapter 5 problem 68 difficulty 3
! 16: # / written at MSU July 1998 T&T
! 17: # /******************************************************
! 18: # /BEG prob_val=1
! 19: # /LET try_val=99
! 20: # /HIN space for hints
! 21: </script>
! 22:
! 23: <script type="loncapa/perl">
! 24: $m=&random(2.20,2.505,0.01);
! 25: $k=&random(100.0,120.5,1.0);
! 26: $d=&random(15.0,20.05,0.1);
! 27: $angle=&random(34.0,40.05,0.1);
! 28: $alpha=&web('alpha','$\alpha$','<i>alpha</i>');
! 29: $picture=&web('','\centerline{\epsfxsize="2.2in" \epsffile{/res/ohiou/serwaylib/Graphics/Graph05/serw0568.eps}}','<IMG SRC="/res/ohiou/serwaylib/Graphics/Graph05/serw0568.gif">');
! 30: </script>
! 31:
! 32: <startouttext /><hr />
! 33: A <display>&format(${m},'2f')</display><display>${kg_u}</display> bloke situated on a rough incline (assume an angle of <display>${alpha}</display> = <display>&format(${angle},'1f')</display><display>${deg_u}</display>) is connected to a spring of negligible mass having a spring constant k = of <display>&format(${k},'0f')</display><display>${NPm_u}</display> (see the figure below).<display>${newline}</display>
! 34: <display>${newline}</display><display>${picture}</display>
! 35: The bloke is released from rest when the spring is unstretched, and the pulley is frictionless. The bloke moves <display>&format(${d},'1f')</display><display>${cm_u}</display> down the incline before coming to rest. Find the coefficient of kinetic friction between bloke and incline.
! 36: <br />
! 37: <endouttext />
! 38:
! 39: <script type="loncapa/perl">
! 40: $mu=-($k*$d/100./2.-$m*9.8*&sin($angle*$pi_c/180.))/$m/9.8/&cos($angle*$pi_c/180.);
! 41: </script>
! 42:
! 43: <numericalresponse answer="$mu" format="2E">
! 44: <responseparam name="tol" type="tolerance" description="Numerical Tolerance" default="2%" />
! 45: <responseparam name="sig" type="int,range,0-12" description="Significant Figures" default="3,5" />
! 46: <textline />
! 47: </numericalresponse>
! 48:
! 49:
! 50: <script type="loncapa/perl">
! 51: # ******************************************************
! 52: </script>
! 53:
! 54: <hr />
! 55: more stuff at the foot.
! 56:
! 57: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>