{VERSION 5 0 "APPLE_PPC_MAC" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading
 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 
0 8 4 0 0 0 0 0 0 -1 0 }}
{SECT 0 {SECT 0 {PARA 3 "" 0 "" {TEXT -1 62 "Part 1: No payments for a
 year - The Credit Card Problem (1.1)" }}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 65 "Set up the interest rate at 18.9% and the number of years to be
 5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "rate:=0.189; N:=5*12;
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "The initial balance on the cr
edit card is $1000." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "bala
nce[1]:=1000: \nfor i from 1 to N do\n balance[i+1]:=balance[i]*(1+rat
e/12);\nend do:\n" }{TEXT -1 50 "update your balance each month - comp
ound interest" }{MPLTEXT 1 0 108 "\ncredit:= [[ n-1, balance[n]] $n=1.
.N+1]:\nplot(credit,title=\"The amount of money owed on the credit car
d\");\n" }{TEXT -1 44 "plot out the amount of money owed each month" }
{MPLTEXT 1 0 27 "\nend_balance:=balance[N+1];" }}}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }