View of /trunk/NationalProblemLibrary/Rochester/setVecFunction3Motion/ur_vc_4_10.pg

    1 ## DESCRIPTION
    2 ## Calculus
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('vector' 'acceleration' 'multivariable' 'velocity' 'curvature')
    6 ## Tagged by tda2d
    7 
    8 ## DBsubject('Calculus')
    9 ## DBchapter('Vector Functions')
   10 ## DBsection('Motion in Space: Velocity and Acceleration')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('Rochester')
   14 ## TitleText1('')
   15 ## EditionText1('')
   16 ## AuthorText1('')
   17 ## Section1('')
   18 ## Problem1('')
   19 
   20 DOCUMENT();        # This should be the first executable line in the problem.
   21 
   22 loadMacros("PG.pl",
   23            "PGbasicmacros.pl",
   24            "PGchoicemacros.pl",
   25            "PGanswermacros.pl",
   26            "PGauxiliaryFunctions.pl");
   27 
   28 TEXT( beginproblem() );
   29 $showPartialCorrectAnswers = 1;
   30 
   31 $a = random( 1, 10, 1 );
   32 $b = random( 1, 10, 1 );
   33 
   34 $ans = 1 / ($a * $b);
   35 
   36 BEGIN_TEXT
   37 A factory has a machine which bends wire at a rate of $b unit(s) of curvature per
   38 second. How long does it take to bend a straight wire into a circle of radius
   39 $a?
   40   $PAR
   41 \{ans_rule(15)\} seconds
   42 END_TEXT
   43 
   44 ANS(num_cmp($ans));
   45 
   46 ENDDOCUMENT();        # This should be the last executable line in the problem.