View of /trunk/NationalProblemLibrary/ASU-topics/setFinance/p23stef.pg

    1 ## DESCRIPTION
    2 ## Applied Mathematics
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('percent', 'mathematics for business', 'algebraic expression')
    6 ## Tagged by XW
    7 
    8 ## DBsubject('Applied Mathematics')
    9 ## DBchapter('Mathematics for Business')
   10 ## DBsection('Finance')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('ASU')
   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 "PGasu.pl"
   29 );
   30 
   31 TEXT(&beginproblem);
   32 
   33 $P = random(3,10,1)*100;
   34 
   35 $c = random(5,12,1);
   36 $r = $c/100;
   37 
   38 TEXT(EV2(<<EOT));
   39 Mrs. Hart, at age 65, can expect to live for 25 years. If she can invest
   40 at $c$PERCENT per annum compounded monthly, how much does she need now
   41 to guarantee herself $DOLLAR$P every month for the next 25 years?
   42 
   43 $BR
   44 Answer  = $DOLLAR \{ans_rule(20)\}
   45 EOT
   46 
   47 $n = 25*12;
   48 $i = $r/12;
   49 $V = $P*(1-(1+$i)**(-$n))/$i;
   50 
   51 &ANS(num_cmp($V));
   52 
   53 
   54 ENDDOCUMENT();        # This should be the last executable line in the problem.