Parent Directory
| 
Revision Log
*** empty log message ***
1 2 DOCUMENT(); 3 4 loadMacros( "PG.pl", 5 "PGbasicmacros.pl", 6 "PGauxiliaryFunctions.pl", 7 "PGchoicemacros.pl", 8 "PGanswermacros.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 ## 26 ## Last modified 07/21/97 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 #################################################
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |