View of /trunk/NationalProblemLibrary/ASU-topics/setFinance/ch5revp16.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 
   24 "PG.pl",
   25 "PGbasicmacros.pl",
   26 "PGanswermacros.pl",
   27 "PGauxiliaryFunctions.pl",
   28 );
   29 
   30 TEXT(&beginproblem);
   31 
   32 $a = random(1,10,1)*100;
   33 
   34 $months = random(6,18,1);
   35 if($months==12) {
   36   $months=8;
   37 }
   38 $t = $months/12;
   39 $rate = random(3,18);
   40 
   41 $P=$a*(1-($rate/100+.0025)*$t);
   42 
   43 BEGIN_TEXT
   44 What are the proceeds for a discounted loan for $DOLLAR$a repaid in $months
   45 months at $rate \(\frac{1}{4}\)$PERCENT?
   46 $BR
   47 $BR
   48 Proceeds  = $DOLLAR \{ans_rule(10)\}
   49 END_TEXT
   50 
   51 HINT(EV2(<<EOT));
   52 $BR
   53 $BR
   54 $BBOLD HINT: $EBOLD
   55 Use  the discounted loan formula \( R = L(1-rt) \) to find
   56 the proceeds \(R\).
   57 EOT
   58 
   59 $r=$rate/100+.0025;
   60 
   61 SOLUTION(EV3(<<'EOT'));
   62 $BR
   63 $BBOLD  SOLUTION: $EBOLD  $BR
   64 Use  the discounted loan formula \( R = L(1-rt) \)
   65 with \(L = $a\), \(r= $r\), \(t= \frac{$months}{12} \) to find
   66 the proceeds \(R\).
   67 EOT
   68 
   69 ANS(num_cmp($P));
   70 ENDDOCUMENT();