Fix bug 4676

Author: gajennings

OpenProblemLibrary/NAU/setActuarial/setExamFM10a.pg

@@ -5,33 +5,36 @@
 ## Institution(NAU)
 ## Author(Michael Ratliff)
 ## Level(4)
+## MO(1)
 ## KEYWORDS('force of interest')
 ##ENDDESCRIPTION
 
 DOCUMENT();
 
 loadMacros(
   "PGstandard.pl",
-  "PGchoicemacros.pl",
+  "MathObjects.pl",
   "PGasu.pl",
   "PGcourse.pl"
 );
 
-TEXT(&beginproblem);
+TEXT(beginproblem());
 
+Context("Numeric");
 $e = random(2,8,2);
 $y=random(2008,2016,1);
 $n=$y-2004;
 
-TEXT(EV2(<<EOT));
-
-On January 1, 2004, Sam invests $DOLLAR 1000 in a fund for which the force of interest at time t is expressed by  \(\delta_t =(0.1)(t-1)^{$e}\), 
-where t is the number of years since January 1, 2004. Calculate the accumulated value of the fund on January 1, $y.
+Context()->texStrings;
+BEGIN_TEXT
+On January 1, 2004, Sam invests ${DOLLAR}1000 in a fund for which the force of interest at time \(t\) is expressed by  \(\delta_t =(0.01)(t-1)^{$e}\), 
+where \(t\) is the number of years since January 1, 2004. Calculate the accumulated value of the fund on January 1, $y.
 $BR
 \(\delta_t  = \) \{ans_rule(20)\}
-EOT
-$ans = 100/($e+1)*(($n-1)**($e+1)+1);
+END_TEXT
+Context()->normalStrings;
 
-&ANS(num_cmp($ans));
+$ans = Real( 1000*exp( 0.01/($e+1)*(($n-1)**($e+1)+1) ) );
+ANS($ans->cmp());
 
 ENDDOCUMENT();