DOCUMENT(); 

loadMacros( "PG.pl", 
	             "PGbasicmacros.pl",
	             "PGauxiliaryFunctions.pl",
	             "PGchoicemacros.pl",
	             "PGanswermacros.pl",
	             "PGgraphmacros.pl",
	             "PG_CAPAmacros.pl"
	 );
	 
	 TEXT(beginproblem());
	
	
## ******************************************
## 
## That crazy jumping cat
## Part 1
## By C. Freeman, freeman@NSRL31.NSRL.rochester.edu
## No unauthorized commercial use.
## Imported Files
## ${CAPA_Tools}Problem
## ${CAPA_GraphicsDirectory}Gtype16/prob09a.eps
## Values needing defined:
## prob_val (number, e.g. /LET prob_val=1)
## prob_try (number, e.g. /LET prob_try=5)
## 
## Last modified 07/21/97
## by: Patrick D. Freivald, patrick@freivald.org
## 
## **************************************
## 
$m_cat = random( 3.00   , 5.00   , 0.01   )   ;  
$m_sled = random( 15.0   , 25.0   , 1.0   )   ;  
$v_cat = random( 2.00   , 4.50   , 0.01   )   ;  
$v_s2 = 2.0 * $m_cat * $v_cat /  $m_sled   ;  
$v_s1 = 2.0 * $m_cat * $v_cat /  ( $m_sled  + $m_cat    )   ;  
## 
CAPA_import( " ${CAPA_Tools}Problem " );   
TEXT(CAPA_EV (<<'END_OF_TEXT'));
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
\{ 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>'  )  \}
$BR$BR What is the final speed of sled 2?  (Assume the ice is frictionless.)
END_OF_TEXT

## 

TEXT("$BR",ans_rule(30),"$BR");
ANS( CAPA_ans( $v_s2   , 'format' => "%0.2e" , 'sig' => '3 plus 13', 'reltol' => 1   ,  'wgt' => $prob_val    ,  'tries' => $prob_try    ,  'unit' => 'm/s'    ) ); 
## ******************************************
## 
## That crazy jumping cat
## Part 2
## By C. Freeman, freeman@NSRL31.NSRL.rochester.edu
## No unauthorized commercial use.
## Imported Files:
## ${CAPA_Tools}Problem
## Values needing defined:
## prob_val (number, e.g. /LET prob_val=1)
## prob_try (number, e.g. /LET prob_try=5)
## 
## Last modified 07/21/97
## by: Patrick D. Freivald, patrick@freivald.org
## 
## **************************************
## 
CAPA_import( " ${CAPA_Tools}Problem " );   
TEXT(CAPA_EV (<<'END_OF_TEXT'));
$BR What is the final speed of sled 1?
END_OF_TEXT

## 

TEXT("$BR",ans_rule(30),"$BR");
ANS( CAPA_ans( $v_s1   , 'format' => "%0.2e" , 'sig' => '3 plus 13', 'reltol' => 1   ,  'wgt' => $prob_val    ,  'tries' => $prob_try    ,  'unit' => 'm/s'    ) ); 
ENDDOCUMENT();
#####################

###Error: $kg_u not defined in this file
###Error: $kg_u not defined in this file
###Error: $mPs_u not defined in this file
###Error: $prob_val not defined in this file
###Error: $prob_try not defined in this file
###Error: $prob_val not defined in this file
###Error: $prob_try not defined in this file

#####################


#################################################
## Processing time =  1 secs ( 0.53 usr  0.00 sys =  0.53 cpu)
#################################################