Parent Directory
| 
Revision Log
Revision 873 - (view) (download)
| 1 : | gage | 873 | |
| 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 : | ## Elastic and inelastic collisions (conservation of momentum) | ||
| 19 : | ## Part 1 | ||
| 20 : | ## No unauthorized commerical use | ||
| 21 : | ## Imported Files: | ||
| 22 : | ## ${CAPA_Tools}Problem | ||
| 23 : | ## ${CAPA_GraphicsDirectory}Gtype16/prob10a.eps | ||
| 24 : | ## Values needing defined: | ||
| 25 : | ## prob_val (number, e.g. /LET prob_val=1) | ||
| 26 : | ## prob_try (number, e.g. /LET prob_try=5) | ||
| 27 : | ## | ||
| 28 : | ## Last modified 07/21/97 | ||
| 29 : | ## by: Patrick D. Freivald, patrick@freivald.org | ||
| 30 : | ## | ||
| 31 : | ## ************************************** | ||
| 32 : | ## | ||
| 33 : | $m1 = random( 1. , 2. , 0.05 ) ; | ||
| 34 : | $m2 = random( 1. , 2. , 0.05 ) ; | ||
| 35 : | $m = random( 1. , 10. , 0.05 ) ; | ||
| 36 : | $v1 = random( 1. , 5. , 0.1 ) ; | ||
| 37 : | $v2 = random( 1. , 5. , 0.1 ) ; | ||
| 38 : | $pf2 = ( $m2 + 0.001 * $m ) * $v2 ; | ||
| 39 : | $pi2 = $pf2 ; | ||
| 40 : | $v_b2 = $pi2 / ( 0.001 * $m ) ; | ||
| 41 : | $pf1 = 0.001 * $m * $v_b2 + $m1 * $v1 ; | ||
| 42 : | $pi1 = $pf1 ; | ||
| 43 : | $v0 = $pi1 / ( 0.001 * $m ) ; | ||
| 44 : | ## | ||
| 45 : | CAPA_import( " ${CAPA_Tools}Problem " ); | ||
| 46 : | TEXT(CAPA_EV (<<'END_OF_TEXT')); | ||
| 47 : | A bullet with a mass of \{ spf( $m , "%0.2f" ) \} \{ $g_u \} is fired horizontally at two blocks resting on a smooth and frictionless table top as shown in the Figure. The bullet passes trhough the first \{ spf( $m1 , "%0.2f" ) \} \{ $kg_u \} block, and embeds itself in a second \{ spf( $m2 , "%0.2f" ) \} \{ $kg_u \} block. Speeds \{ CAPA_web( 'v1' , '/*v_1/*' , 'v<sub>1</sub>' ) \} = \{ spf( $v1 , "%0.2f" ) \} \{ $mPs_u \} and \{ CAPA_web( 'v2' , '/*v_2/*' , 'v<sub>2</sub>' ) \} = \{ spf( $v2 , "%0.2f" ) \} \{ $mPs_u \}, are thereby imparted on the blocks. The mass removed from the first block by the bullet can be neglected. $BR | ||
| 48 : | \{ CAPA_web( '' , '\noindent {\centerline{\epsfxsize=2.0in \epsffile{${CAPA_GraphicsDirectory}Gtype16/prob10a.eps}}}' , '<img src = ${CAPA_Graphics_URL}Gtype16/prob10a.gif align=center width=500>' ) \} | ||
| 49 : | $BR$BR Find the speed of the bullet immediately after emerging from the first block. | ||
| 50 : | END_OF_TEXT | ||
| 51 : | |||
| 52 : | ## | ||
| 53 : | |||
| 54 : | TEXT("$BR",ans_rule(30),"$BR"); | ||
| 55 : | ANS( CAPA_ans( $v_b2 , 'format' => "%0.2e" , 'sig' => '3 PLUS 13', 'reltol' => 1 , 'wgt' => $prob_val , 'tries' => $prob_try , 'unit' => 'm/s' ) ); | ||
| 56 : | ## ************************************** | ||
| 57 : | ## | ||
| 58 : | ## Elastic and inelastic collisions (conservation of momentum) | ||
| 59 : | ## Part 2 | ||
| 60 : | ## No unauthorized commerical use | ||
| 61 : | ## Imported Files: | ||
| 62 : | ## ${CAPA_Tools}Problem | ||
| 63 : | ## Values needing defined: | ||
| 64 : | ## prob_val (number, e.g. /LET prob_val=1) | ||
| 65 : | ## prob_try (number, e.g. /LET prob_try=5) | ||
| 66 : | ## | ||
| 67 : | ## Last modified 07/21/97 | ||
| 68 : | ## by: Patrick D. Freivald, patrick@freivald.org | ||
| 69 : | ## | ||
| 70 : | ## ************************************** | ||
| 71 : | ## | ||
| 72 : | CAPA_import( " ${CAPA_Tools}Problem " ); | ||
| 73 : | TEXT(CAPA_EV (<<'END_OF_TEXT')); | ||
| 74 : | $BR Find the initial speed of the bullet. | ||
| 75 : | END_OF_TEXT | ||
| 76 : | |||
| 77 : | ## | ||
| 78 : | |||
| 79 : | TEXT("$BR",ans_rule(30),"$BR"); | ||
| 80 : | ANS( CAPA_ans( $v0 , 'format' => "%0.2e" , 'sig' => '3 PLUS 13', 'reltol' => 1 , 'wgt' => $prob_val , 'tries' => $prob_try , 'unit' => 'm/s' ) ); | ||
| 81 : | ENDDOCUMENT(); | ||
| 82 : | ##################### | ||
| 83 : | |||
| 84 : | ###Error: $g_u not defined in this file | ||
| 85 : | ###Error: $kg_u not defined in this file | ||
| 86 : | ###Error: $kg_u not defined in this file | ||
| 87 : | ###Error: $mPs_u not defined in this file | ||
| 88 : | ###Error: $mPs_u not defined in this file | ||
| 89 : | ###Error: $prob_val not defined in this file | ||
| 90 : | ###Error: $prob_try not defined in this file | ||
| 91 : | ###Error: $prob_val not defined in this file | ||
| 92 : | ###Error: $prob_try not defined in this file | ||
| 93 : | |||
| 94 : | ##################### | ||
| 95 : | |||
| 96 : | |||
| 97 : | ################################################# | ||
| 98 : | ## Processing time = 1 secs ( 0.84 usr 0.00 sys = 0.84 cpu) | ||
| 99 : | ################################################# |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |