{VERSION 5 0 "IBM INTEL NT" "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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 58 "    Solve the initial value ordinary diff
erential equation" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 10 "          " }{XPPEDIT 18 0 "dp/dt = R*P(t);" "6#/*&%#dpG
\"\"\"%#dtG!\"\"*&%\"RGF&-%\"PG6#%\"tGF&" }{TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 19 "          P(0) = N.
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Dsolve(
diff(P(t),t)=R*P(t),P(t));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
33 "dsolve(diff(P(t),t)=R*P(t),P(t));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 42 "dsolve(\{diff(P(t),t)=R*P(t),P(0)=N\},P(t));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "P := t -> N*exp(R*t);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "p := N*exp(R*t);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "N := 10;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "R := 0.2;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "plot(P(t),t=0..10,color=blue);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "
g1 := plot(p,t=0..10,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "display(g1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 56 "   Generate the points for the discrete dynamical system
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 20 "     \+
               " }{XPPEDIT 18 0 "Q[t+1] = (1+r)*Q[t];" "6#/&%\"QG6#,&%
\"tG\"\"\"F)F)*&,&F)F)%\"rGF)F)&F%6#F(F)" }{TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 28 "                    \+
Q(0) = N" }}{PARA 0 "" 0 "" {TEXT -1 12 "            " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "Q[0] := N; r := R;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "for j from 1 by 1 to 10 do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "  Q[j] := (1+r)*Q[j-1];" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "listplot([seq(Q[j],j=1..10)
]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "listplot([seq([j,Q[j
]],j=1..10)]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "listplot(
[seq([j,Q[j]],j=1..10)],style=point);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 67 "g2 := listplot([seq([j,Q[j]],j=1..10)],style=point,co
lor=[yellow]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display(g
1,g2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0
" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }