[npl] / trunk / NationalProblemLibrary / Union / setIntTrigonometric / an8_3_04.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

# View of /trunk/NationalProblemLibrary/Union/setIntTrigonometric/an8_3_04.pg

Fri Jun 18 12:54:22 2010 UTC (2 years, 11 months ago) by gage
File size: 1571 byte(s)
Adding COMMENT('MathObject version') to files loading MathObjects.pl

    1 ## DESCRIPTION
2 ##   Evaluate a Trig Integral
3 ## ENDDESCRIPTION
4
5 ## KEYWORDS('Indefinite', 'Trig Integral')
6 ## Tagged by nhamblet
7
8 ## DBsubject('Calculus')
9 ## DBchapter('Techniques of Integration')
10 ## DBsection('Trigonometric Integrals')
11 ## Date('8/23/07')
12 ## Author('K. Lesh')
13 ## Institution('Union')
14 ## TitleText1('Calculus')
15 ## EditionText1('7')
16 ## AuthorText1('Anton')
17 ## Section1('8.3')
18 ## Problem1('04')
19 ## TitleText2('Calculus: Early Transcendentals')
20 ## EditionText2('1')
21 ## AuthorText2('Rogawski')
22 ## Section2('7.3')
23 ## Problem2('11')
24
25 DOCUMENT();        # This should be the first executable line in the problem.
26
28   "PGstandard.pl",
29   "PGunion.pl",            # Union College utilities
30   "MathObjects.pl",
31   "PGcourse.pl",           # Customization file for the course
32 );
33
34 TEXT(beginproblem());
35
36 ###################################
37 # Setup
38
39 $n = random(3,10,1); 40 41$integrand=Formula(" x^{$n-1} cos^{3}(x^{$n}) sin^{2}(x^{$n}) "); 42 43 ################################### 44 # Main text 45 46 Context()->texStrings; 47 BEGIN_TEXT 48 Evaluate the indefinite integral. 49$PAR
50 $$\displaystyle\int integrand \, dx$$
51              = \{ans_rule(50)\} $$+ C$$.
52 END_TEXT
53 Context()->normalStrings;
54
55 ###################################
58 $showPartialCorrectAnswers = 1; 59 Context()->flags->set(reduceConstants=>0); 60 61$antideriv = Formula(  "1/$n *[(1/3)*sin^3(x^$n) - (1/5)*sin^5(x^$n)]") 62 ->with(limits => [0,5]); 63 64 ANS($antideriv->cmp(upToConstant=>1));