View of /trunk/NationalProblemLibrary/ASU-topics/setFinance/p7stef.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 
   34 $c1 = random(3,15,1);
   35 $c2 = random(4,12,1);
   36 if($c1==$c2) {
   37   $c2 = random(4,12,1);
   38 }
   39 $r1 = $c1/100;
   40 $r2 = $c2/100;
   41 
   42 
   43 TEXT(EV2(<<EOT));
   44 Find the effective rate of interest for
   45 $BR
   46 a) $c1$PERCENT compounded monthly
   47 $BR
   48 Answer = $SPACE \{ans_rule(20)\} $PERCENT
   49 $BR
   50 b) $c2$PERCENT compounded semiannually
   51 $BR
   52 Answer = $SPACE  \{ans_rule(20)\} $PERCENT
   53 EOT
   54 $ans1 = ((1+$r1/12)**12-1)*100;
   55 &ANS(num_cmp($ans1));
   56 $ans2 = ((1+$r2/2)**2-1)*100;
   57 &ANS(num_cmp($ans2));
   58 
   59 ENDDOCUMENT();        # This should be the last executable line in the problem.