View of /trunk/NationalProblemLibrary/UVA-FinancialMath/setFinancialMath-Sect13-EffNominalRates/math114-13-19.pg

    1 ## DESCRIPTION
    2 ##  Financial mathematics: Effective and nominal rates of interest
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('financial mathematics', 'effective and nominal rates')
    6 ## JJH tagged this problem.
    7 
    8 ## DBsubject('Financial Mathematics')
    9 ## DBchapter('Introduction to Interest')
   10 ## DBsection('Effective and Nominal Rates of Interest')
   11 ## Date('5/22/2005')
   12 ## Author('Jeff Holt')
   13 ## Institution('UVA')
   14 ## TitleText1('Financial Mathematics')
   15 ## EditionText1('1')
   16 ## AuthorText1('Holt')
   17 ## Section1('1.3')
   18 ## Problem1()
   19 
   20 DOCUMENT();
   21 
   22 loadMacros(
   23 "PG.pl",
   24 "PGbasicmacros.pl",
   25 "PGchoicemacros.pl",
   26 "PGanswermacros.pl",
   27 "PGauxiliaryFunctions.pl"
   28 );
   29 
   30 TEXT(beginproblem());
   31 $showPartialCorrectAnswers = 1;
   32 
   33 $a = random(1800,3500,100);
   34 $ip = random(6.0,9.7,0.1);
   35 $i = $ip*0.0100;
   36 $m = random(4,28,1);
   37 $n = random(4,28,1);
   38 $y = random(2006,2008,1);
   39 $d = (30-$m)+31+$n;
   40 
   41 
   42 TEXT(EV2(<<EOT));
   43 
   44 Suppose that you borrow $a dollars on April ${m}, 2003 at an effective
   45 rate of $ip percent.  If you make no payments, how much will you owe
   46 on June ${n}, ${y}?  (Assume compound interest for whole
   47 years, and simple interest for fractional parts of a
   48 year.)
   49 $BR
   50 $PAR
   51 Answer =  \{ans_rule(25) \} dollars.
   52 $BR
   53 $BR
   54 
   55 EOT
   56 
   57 $ans = $a*((1+$i)**($y-2003))*(1 + ($d/365)*$i);
   58 ANS(num_cmp($ans));
   59 
   60 ENDDOCUMENT();