[rochester] / trunk / rochester_physics_problib / type16 / prob09.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

# View of /trunk/rochester_physics_problib/type16/prob09.pg

Wed Nov 30 16:38:48 2005 UTC (7 years, 5 months ago) by gage
File size: 3363 byte(s)
*** empty log message ***


    1
2    DOCUMENT();
3
5                "PGbasicmacros.pl",
6                "PGauxiliaryFunctions.pl",
7                "PGchoicemacros.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 ##
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 ##
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 #################################################