View of /trunk/rochester_problib/setIntegrals3Definite/s4_4_21.pg

    1 #DESCRIPTION
    2 #KEYWORDS('integrals', 'definite')
    3 #ENDDESCRIPTION
    4 
    5 DOCUMENT();        # This should be the first executable line in the problem.
    6 
    7 loadMacros(
    8 "PG.pl",
    9 "PGbasicmacros.pl",
   10 "PGchoicemacros.pl",
   11 "PGanswermacros.pl",
   12 "PGauxiliaryFunctions.pl"
   13 );
   14 
   15 TEXT(&beginproblem);
   16 $showPartialCorrectAnswers = 1;
   17 
   18 $a1 = random(2,10,2);
   19 $a2 = $a1*$a1;
   20 
   21 TEXT(EV2(<<EOT));
   22 Evaluate the definite integral
   23 \[ \int_{ -$a1 } ^ { $a1 } ($a2 -x^2) dx \]
   24 \{ans_rule(30) \}
   25 EOT
   26 $ans = 4*$a1**3/3;
   27 &ANS(std_num_cmp($ans));
   28 ENDDOCUMENT();        # This should be the last executable line in the problem.