View of /trunk/rochester_physics_problib/type16/prob09.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 ## That crazy jumping cat
   19 ## Part 1
   20 ## By C. Freeman, freeman@NSRL31.NSRL.rochester.edu
   21 ## No unauthorized commercial use.
   22 ## Imported Files
   23 ## ${CAPA_Tools}Problem
   24 ## ${CAPA_GraphicsDirectory}Gtype16/prob09a.eps
   25 ## Values needing defined:
   26 ## prob_val (number, e.g. /LET prob_val=1)
   27 ## prob_try (number, e.g. /LET prob_try=5)
   28 ##
   29 ## Last modified 07/21/97
   30 ## by: Patrick D. Freivald, patrick@freivald.org
   31 ##
   32 ## **************************************
   33 ##
   34 $m_cat = random( 3.00   , 5.00   , 0.01   )   ;
   35 $m_sled = random( 15.0   , 25.0   , 1.0   )   ;
   36 $v_cat = random( 2.00   , 4.50   , 0.01   )   ;
   37 $v_s2 = 2.0 * $m_cat * $v_cat /  $m_sled   ;
   38 $v_s1 = 2.0 * $m_cat * $v_cat /  ( $m_sled  + $m_cat    )   ;
   39 ##
   40 CAPA_import( " ${CAPA_Tools}Problem " );
   41 TEXT(CAPA_EV (<<'END_OF_TEXT'));
   42 Two \{  spf( $m_sled    , "%0.1f" ) \} \{ $kg_u \} ice sleds are placed a short distance apart, one directly behind the other, as shown in the figure.  A \{  spf( $m_cat    , "%0.2f" ) \} \{ $kg_u \} cat, initially standing on sled 1, jumps across to sled 2 and then jumps back to sled 1.  Both jumps are made at a horizontal speed of \{  spf( $v_cat    , "%0.2f" ) \} \{ $mPs_u \} relative to the ice.  $BR
   43 \{ CAPA_web( ''  , '\noindent {\centerline{\epsfxsize = 2.1 in \epsffile{${CAPA_GraphicsDirectory}Gtype16/prob09a.eps}}}'  , '<img src = ${CAPA_Graphics_URL}Gtype16/prob09a.gif align=center width=400>'  )  \}
   44 $BR$BR What is the final speed of sled 2?  (Assume the ice is frictionless.)
   45 END_OF_TEXT
   46 
   47 ##
   48 
   49 TEXT("$BR",ans_rule(30),"$BR");
   50 ANS( CAPA_ans( $v_s2   , 'format' => "%0.2e" , 'sig' => '3 plus 13', 'reltol' => 1   ,  'wgt' => $prob_val    ,  'tries' => $prob_try    ,  'unit' => 'm/s'    ) );
   51 ## ******************************************
   52 ##
   53 ## That crazy jumping cat
   54 ## Part 2
   55 ## By C. Freeman, freeman@NSRL31.NSRL.rochester.edu
   56 ## No unauthorized commercial use.
   57 ## Imported Files:
   58 ## ${CAPA_Tools}Problem
   59 ## Values needing defined:
   60 ## prob_val (number, e.g. /LET prob_val=1)
   61 ## prob_try (number, e.g. /LET prob_try=5)
   62 ##
   63 ## Last modified 07/21/97
   64 ## by: Patrick D. Freivald, patrick@freivald.org
   65 ##
   66 ## **************************************
   67 ##
   68 CAPA_import( " ${CAPA_Tools}Problem " );
   69 TEXT(CAPA_EV (<<'END_OF_TEXT'));
   70 $BR What is the final speed of sled 1?
   71 END_OF_TEXT
   72 
   73 ##
   74 
   75 TEXT("$BR",ans_rule(30),"$BR");
   76 ANS( CAPA_ans( $v_s1   , 'format' => "%0.2e" , 'sig' => '3 plus 13', 'reltol' => 1   ,  'wgt' => $prob_val    ,  'tries' => $prob_try    ,  'unit' => 'm/s'    ) );
   77 ENDDOCUMENT();
   78 #####################
   79 
   80 ###Error: $kg_u not defined in this file
   81 ###Error: $kg_u not defined in this file
   82 ###Error: $mPs_u not defined in this file
   83 ###Error: $prob_val not defined in this file
   84 ###Error: $prob_try not defined in this file
   85 ###Error: $prob_val not defined in this file
   86 ###Error: $prob_try not defined in this file
   87 
   88 #####################
   89 
   90 
   91 #################################################
   92 ## Processing time =  1 secs ( 0.53 usr  0.00 sys =  0.53 cpu)
   93 #################################################