View of /trunk/rochester_physics_problib/type16/prob10.pg

    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 ## 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 #################################################