[rochester] / trunk / rochester_physics_problib / type16 / prob18.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

# View of /trunk/rochester_physics_problib/type16/prob18.pg

Wed Nov 30 16:38:48 2005 UTC (7 years, 5 months ago) by gage
File size: 6005 byte(s)
*** empty log message ***


    1
2    DOCUMENT();
3
5                "PGbasicmacros.pl",
6                "PGauxiliaryFunctions.pl",
7                "PGchoicemacros.pl",
9                "PGgraphmacros.pl",
10                "PG_CAPAmacros.pl"
11    );
12
13    TEXT(beginproblem());
14
15
16 ## *************************************
17 ##
18 ## Conservation of momentum
19 ## Imported Files
20 ## ${CAPA_Tools}Problem 21 ##${CAPA_GraphicsDirectory}Gtype16/prob18.eps
22 ## Values needing defined:
23 ## prob_val (number, e.g. /LET prob_val=1)
24 ## prob_try (number, e.g. /LET prob_try=5)
25 ##
27 ## by: Patrick D. Freivald, patrick@freivald.org
28 ##
29 ## **************************************
30 ##
31 $i = random( 1 , 2 ) ; 32$sT1 = 'T'  ;
33 $sT2 = 'F' ; 34$sT3 = 'G'  ;
35 $sT4 = 'L' ; 36$sT5 = 'E'  ;
37 ##
38 ##
39 CAPA_import( " ${CAPA_Tools}Problem " ); 40 TEXT(CAPA_EV (<<'END_OF_TEXT')); 41 A spring of negligible mass is compressed between two masses on a frictionless table with sloping ramps at each end. The masses are released simultaneously. The masses have the same volume, but the density of \{ CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) \} is \{ choose($i   , 'greater'  , 'less'  )  \} than that of \{ CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  \}.  Select the appropriate symbol for each statement: G (Greater than), L (Less than), or E (Equal to).  (If the first two are 'greater than,' and the last four 'less than,' then enter GGLLLL).$BR 42 \{ CAPA_web( '' , '\noindent {\centerline {\epsfxsize 2.4in \epsffile{${CAPA_GraphicsDirectory}Gtype16/prob18.eps}}}'  , '<img src = {CAPA_Graphics_URL}Gtype16/prob18.gif align=center width=500>' ) \}BR
43 END_OF_TEXT
44
45 ##
46 $s1a = 'The force exerted by the spring on ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . ' is ... the force it exerts on ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . '.'.'$BR'  ;
47 $s1b = 'The force exerted by the spring on ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . ' is ... the force it exerts on ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . '.'.'$BR'  ;
48 $s1c = 'Statement 1c' ; 49$s1d = 'Statement 1d'  ;
50 $mix1 = random( 1 , 2 , 1 ) ; 51$a1a = 5   ;
52 $a1b = 5 ; 53$a1c = 26   ;
54 $a1d = 26 ; 55 ## 56$s2a = 'The duration of the force exerted by the spring on ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . ' is ... ' . 'the time the force acts on ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . '.'  .'$BR'; 57$s2b = 'The duration of the force exerted by the spring on ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . ' is ... ' . 'the time the force acts on ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . '.'  .'$BR'; 58$s2c = 'Statement 2c'  ;
59 $s2d = 'Statement 2d' ; 60$mix2 = random( 1   , 2   , 1   )   ;
61 $a2a = 5 ; 62$a2b = 5   ;
63 $a2c = 26 ; 64$a2d = 26   ;
65 ##
66 $s3a = 'The momentum of ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . ' is ... ' . 'the momentum of ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . ' once they both lose contact with the spring.' .'$BR';
67 $s3b = 'The momentum of ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . ' is ... ' . 'the momentum of ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . ' once they both lose contact with the spring.' .'$BR';
68 $s3c = 'Statement 3c' ; 69$s3d = 'Statement 3d'  ;
70 $mix3 = random( 1 , 2 , 1 ) ; 71$a3a = 5   ;
72 $a3b = 5 ; 73$a3c = 26   ;
74 $a3d = 26 ; 75 ## 76$s4a = 'The kinetic energy of ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . ' is ... ' . 'the kinetic energy of ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . ' once they both lose contact with the spring.'  .'$BR'; 77$s4b = 'The kinetic energy of ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . ' is ... ' . 'the kinetic energy of ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . ' once they both lose contact with the spring.'  .'$BR'; 78$s4c = 'Statement 4c'  ;
79 $s4d = 'Statement 4d' ; 80$mix4 = random( 1   , 2   , 1   )   ;
81 $a4a = choose($i   , 3   , 4   )   ;
82 $a4b = choose($i   , 4   , 3   )   ;
83 $a4c = 26 ; 84$a4d = 26   ;
85 ##
86 $s5a = 'The speed of ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . ' is ... ' . 'the speed of ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . ' once they both lose contact with the spring.' .'$BR';
87 $s5b = 'The speed of ' . CAPA_web( 'M1' , '/*M_1/*' , 'M<sub>1</sub>' ) . ' is ... ' . 'the speed of ' . CAPA_web( 'M2' , '/*M_2/*' , 'M<sub>2</sub>' ) . ' once they both lose contact with the spring.' .'$BR';
88 $s5c = 'Statement 5c' ; 89$s5d = 'Statement 5d'  ;
90 $mix5 = random( 1 , 2 , 1 ) ; 91$a5a = choose( $i , 3 , 4 ) ; 92$a5b = choose( $i , 4 , 3 ) ; 93$a5c = 26   ;
94 $a5d = 26 ; 95 ## 96$s6a = 'The final height up the ramp reached by ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . ' is ... ' . 'the height reached by ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . '.'.'$BR' ; 97$s6b = 'The final height up the ramp reached by ' . CAPA_web( 'M1'  , '/*M_1/*'  , 'M<sub>1</sub>'  )  . ' is ... ' . 'the height reached by ' . CAPA_web( 'M2'  , '/*M_2/*'  , 'M<sub>2</sub>'  )  . '.'  .'$BR'; 98$s6c = 'Statement 6c'  ;
99 $s6d = 'Statement 6d' ; 100$mix6 = random( 1   , 2   , 1   )   ;
101 $a6a = choose($i   , 3   , 4   )   ;
102 $a6b = choose($i   , 4   , 3   )   ;
103 $a6c = 26 ; 104$a6d = 26   ;
105 ##
106 CAPA_import( " ${CAPA_MCTools}M6T7aux " ); 107 108 TEXT("$BR$BR",ans_rule(30),"$BR");
109 ANS( CAPA_ans( $M6T7right , 'wgt' =>$prob_val    ,  'tries' => $prob_try ) ); 110 ENDDOCUMENT(); 111 ##################### 112 113 ###Error:$M6T7right not defined in this file
114 ###Error: $prob_val not defined in this file 115 ###Error:$prob_try not defined in this file
116
117 #####################
118
119
120 #################################################
121 ## Processing time =  2 secs ( 2.48 usr  0.00 sys =  2.48 cpu)
122 #################################################