Update Union IBP problem to PGML, and improve randomization

Author: dlglin

OpenProblemLibrary/Union/setIntByParts/sc5_6_01.pg

@@ -16,48 +16,23 @@
 ## MO(1)
 ## KEYWORDS('calculus','integration','integration by parts')
 
-DOCUMENT();        # This should be the first executable line in the problem.
+DOCUMENT();    # This should be the first executable line in the problem.
 
-loadMacros(
-  "PGstandard.pl",
-  "PGunion.pl",
-  "MathObjects.pl",
-  "PGcourse.pl"
-);
+loadMacros('PGstandard.pl', 'PGML.pl', 'PGcourse.pl');
 
-TEXT(beginproblem());
-
-###################################
 # Setup
 
-$a = random(2,4,1);
-
-$integrand=Formula(" x e^{$a x} ");
+$a         = random(2, 9, 1);
+$integrand = Formula(" x e^{$a x} ");
 
-###################################
-# Main text
+Context()->flags->set(reduceConstants => 0);
+$antideriv = Formula("1/$a (x e^(${a}x) - 1/$a e^(${a}x))");
 
-Context()->texStrings;
-BEGIN_TEXT
+BEGIN_PGML
 Evaluate the indefinite integral.
-$PAR
-\( \displaystyle\int $integrand \, dx \)
-             = \{ans_rule(50)\} \( + C\).
-END_TEXT
-Context()->normalStrings;
-
-###################################
-# Answers
-
-$showPartialCorrectAnswers = 1;
-Context()->flags->set(reduceConstants=>0);
-
-$antideriv = Formula( "1/$a (x e^(${a}x) - 1/$a e^(${a}x))");
-
-ANS($antideriv->cmp(upToConstant=>1));
-
-###################################
 
+[``\int [$integrand] \, dx ``]=
+[_]{$antideriv->cmp(upToConstant=>1)}{50} [` + C`].
+END_PGML
 
-;
 ENDDOCUMENT();