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

    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 
   22 loadMacros(
   23   "PG.pl",
   24   "PGbasicmacros.pl",
   25   "PGchoicemacros.pl",
   26   "PGanswermacros.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.