[npl] / trunk / NationalProblemLibrary / ASU-topics / setFinance / p7stef.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

# View of /trunk/NationalProblemLibrary/ASU-topics/setFinance/p7stef.pg

Sat Jan 14 02:13:08 2006 UTC (7 years, 5 months ago) by jj
File size: 1156 byte(s)
```New problems for the library.
```

```    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')
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
23 "PG.pl",
24 "PGbasicmacros.pl",
25 "PGchoicemacros.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.
```