View of /trunk/rochester_problib/setIntegrals5Trig/ur_in_5_3.pg

    1 ##DESCRIPTION
    2 ##KEYWORDS('integrals', 'trigonometric')
    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 $a = random(1,9,1);
   19 $b1 = random(1,9,1);
   20 $b = $a + $b1;
   21 $funct = ".5*(-sin(($a+ $b)*x)/($a + $b) + sin(($a - $b)*x)/($a - $b))";
   22 
   23 TEXT(EV2(<<EOT));
   24 
   25 Evaluate the indefinite integral.
   26 $BR \[ \int \sin($a x)\sin($b x)\ dx \]
   27 $BR $BR \{ans_rule( 30) \}
   28 $BR
   29 [NOTE:  Remeber to enter all necessary *, (, and )  !!      $BR
   30 Enter arctan(x) for  \( \tan^{-1} x \) , sin(x) for \( \sin x \) ... ]
   31 EOT
   32 
   33 $ans = $funct;
   34 &ANS(function_cmp_up_to_constant($ans));
   35 
   36 ENDDOCUMENT();        # This should be the last executable line in the problem.