[npl] / trunk / NationalProblemLibrary / Union / setDervChainRule / an4_4_25.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

View of /trunk/NationalProblemLibrary/Union/setDervChainRule/an4_4_25.pg

Thu Aug 17 17:23:36 2006 UTC (6 years, 10 months ago) by jjholt
File size: 1308 byte(s)
Added tags.


    1 ## DESCRIPTION
2 ## Calculus
3 ## ENDDESCRIPTION
4
5 ## KEYWORDS('derivative' 'chain rule')
6 ## Tagged by tda2d
7
8 ## DBsubject('Calculus')
9 ## DBchapter('Differentiation')
10 ## DBsection('The Chain Rule')
11 ## Date('')
12 ## Author('')
13 ## Institution('Union College')
14 ## TitleText1('')
15 ## EditionText1('')
16 ## AuthorText1('')
17 ## Section1('')
18 ## Problem1('')
19
20 DOCUMENT();        # This should be the first executable line in the problem.
21
23   "PG.pl",
24   "PGbasicmacros.pl",
25   "PGchoicemacros.pl",
27   "PGauxiliaryFunctions.pl",
28   "PGunion.pl",        # Union College utilities
29   "PGcourse.pl",       # Customization file for the course
30 );
31
32 TEXT(beginproblem());
33 BEGIN_PROBLEM();
34
35 ##############################################
36
37 $a = random(1,5,1); 38$b = non_zero_random(-6,6,1);
39 @function =("\sin(e^{${a}x})","\cos(e^{${a}x})","\tan(e^{${a}x})"); 40 @answer = ("${a}e^(${a}x) cos(e^(${a}x))"," -${a}e^(${a}x) sin(e^(${a}x))","${a}e^(${a}x) (sec(e^(${a}x)))^2");
41 $i = random(0,2,1); 42 43 BEGIN_TEXT 44 Suppose that $$f(x) = function[i]$$. 45 Find $$f'(x)$$. 46$PAR
47 $$f'(x)$$ = \{ans_rule(60)\}.
48 END_TEXT
49
50 $showPartialCorrectAnswers = 1; 51 52 ANS(fun_cmp($answer[\$i]));
53
54 ##############################################
55
56 END_PROBLEM();
57 ENDDOCUMENT();        # This should be the last executable line in the problem.