View of /trunk/rochester_problib/setIntegrals14Substitution/sc5_5_6.pg

    1 ##DESCRIPTION
    2 ##KEYWORDS('integrals', 'substitution')
    3 ##ENDDESCRIPTION
    4 
    5 ## Before doing anything, we must import the macro definitions on the next few lines.
    6 
    7 DOCUMENT();        # This should be the first executable line in the problem.
    8 
    9 loadMacros(
   10 "PG.pl",
   11 "PGbasicmacros.pl",
   12 "PGchoicemacros.pl",
   13 "PGanswermacros.pl",
   14 "PGauxiliaryFunctions.pl"
   15 );
   16 
   17 TEXT(&beginproblem);
   18 $showPartialCorrectAnswers = 1;
   19 
   20 $a = random(2,6,1);
   21 $coeff = 1 / $a;
   22 $funct = "$coeff * sec($a * x)";
   23 
   24 TEXT(EV2(<<EOT));
   25 Evaluate the integral by making the given substitution.
   26 $BR \[ \int \sec($a x) \tan($a x) dx ,
   27 u = $a x\]
   28 $BR $BR \{ans_rule( 30) \}
   29 $BR
   30 EOT
   31 
   32 $ans = $funct;
   33 &ANS(function_cmp_up_to_constant($ans));
   34 
   35 ENDDOCUMENT();        # This should be the last executable line in the problem.