[rochester] / trunk / rochester_problib / setIntegrals5Trig / ur_in_5_5.pg Repository:
ViewVC logotype

Annotation of /trunk/rochester_problib/setIntegrals5Trig/ur_in_5_5.pg

Parent Directory Parent Directory | Revision Log Revision Log


Revision 844 - (view) (download)

1 : sam 2 ##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 : gage 823 TEXT(beginproblem());
16 : sam 2 $showPartialCorrectAnswers = 1;
17 :    
18 :     $a = random(1,9,1);
19 :     $b1 = random(1,9,1);
20 :     $b = $a + $b1;
21 :     $funct = "-0.5 * (cos(($a+ $b)*x)/($a + $b) + cos(($a - $b)*x)/($a -
22 :     $b))";
23 :    
24 :     TEXT(EV2(<<EOT));
25 :    
26 :     Evaluate the indefinite integral.
27 :     $BR \[ \int \sin($a x)\cos($b x)\ dx \]
28 :     $BR $BR \{ans_rule( 30) \}
29 :     $BR
30 :     [NOTE: Remeber to enter all necessary *, (, and ) !! $BR
31 :     Enter arctan(x) for \( \tan^{-1} x \) , sin(x) for \( \sin x \) . ]
32 :     EOT
33 :    
34 :     $ans = $funct;
35 : gage 844 ANS(fun_cmp($ans, mode=>"antider"));
36 : sam 2
37 :     ENDDOCUMENT(); # This should be the last executable line in the problem.

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9