[npl] / trunk / NationalProblemLibrary / UVA-FinancialMath / setFinancialMath-Sect13-EffNominalRates / math114-13-19.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

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

Wed Oct 12 19:45:41 2005 UTC (7 years, 7 months ago) by gage
File size: 1339 byte(s)
```This commit was generated by cvs2svn to compensate for changes in r5, which
included commits to RCS files with non-trunk default branches.```

```    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
23 "PG.pl",
24 "PGbasicmacros.pl",
25 "PGchoicemacros.pl",
27 "PGauxiliaryFunctions.pl"
28 );
29
30 TEXT(beginproblem());
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();
```