DOCUMENT();

loadMacros(

"PGstandard.pl",

"MathObjects.pl",

"PGML.pl",

"contextFraction.pl",

"contextLimitedRadical.pl",

"PGcourse.pl",

"parserRoot.pl",

);

######################################

TEXT(beginproblem());

Context("Numeric");

$b=4;

$c=-3;

$d = Compute("$b+$c");

Context("LimitedRadical");

$ans = Formula("$d*sqrt($a)");

##########################################

#####################################################

BEGIN_PGML

Simplify the radical.

[`` [$b]\sqrt{[$a]} + [$c]\sqrt{[$a]} = ``] [_____________]{$ans1}

END_PGML

############################################################

######################################

ENDDOCUMENT();