##DESCRIPTION
##Calculus: Differentiation
##ENDDESCRIPTION

##KEYWORDS('calculus', 'differentiation')
##Tagged by YJ

## DBsubject('Calculus')
## DBchapter('Differentiation')
## DBsection('Derivatives of Polynomial and Exponential Functions')
## Date('5/26/2005')
## Author('Jeff Holt')
## Institution('UVA')
## TitleText1('Calculus: Early Transcendentals')
## EditionText1('5')
## AuthorText1('Stewart')
## Section1('3.1')
## Problem1('13')

DOCUMENT();        # This should be the first executable line in the problem.

loadMacros(
"PG.pl",
"PGbasicmacros.pl",
"PGchoicemacros.pl",
"PGanswermacros.pl",
"PGauxiliaryFunctions.pl"
);

TEXT(beginproblem());
$showPartialCorrectAnswers = 1;

$a1 = random(2,16,1);
$b1 = random(2,5,1);
$funct1 = "($a1**$b1)*($b1)*(x**($b1-1)) ";

TEXT(EV2(<<EOT));
If \( f(x) =  ($a1 x)^$b1 \), find \( f'( x ) \).
$PAR
\( f'(x) \) = \{ans_rule(30) \}
$BR
EOT

$ans = $funct1;
ANS(fun_cmp($ans));

ENDDOCUMENT();        # This should be the last executable line in the problem.