{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 1 10 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "New century schoolbook" 0 
12 0 0 132 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Lucidat
ypewriter" 0 12 2 0 104 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 
0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 0 12 
0 0 57 0 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 28 "eq1:= diff(P(t),t) = r*P(t);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$eq1G/-%%diffG6$-%\"PG6#%\"tGF,*&%\"rG\"\"\"F)F/
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 185 "### WARNING: `dsolve` has been extensively rewritten
, many new result forms can occur and options are slightly different, \+
see help page for details\nP=rhs(dsolve(\{eq1, P(0)=P[0]\},P(t)));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"PG*&&F$6#\"\"!\"\"\"-%$expG6#*&%\"
rGF)%\"tGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "eq2:=20000
0=100000*exp(7*r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq2G/\"'++?,$
-%$expG6#,$%\"rG\"\"(\"'++5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "r:=solve(eq2,r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG,$-%#lnG
6#\"\"##\"\"\"\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "P:=1
00000*exp(r*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"PG,$-%$expG6#,$
*&-%#lnG6#\"\"#\"\"\"%\"tGF/#F/\"\"(\"'++5" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 13 "with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "p1:=plot(P,t=0..30):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "P:=50000*exp(r*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"PG,$-%$expG6#,$*&-%#lnG6#\"\"#\"\"\"%\"tGF/#F/\"\"(\"&++&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "p2:=plot(P,t=0..30):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display([p1,p2]);" }}{PARA 
13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$\"\"!$
\"'++5F(7$$\"1+++]i9Rl!#;$\"1,-o^O*o1\"!#57$$\"1++vVA)GA\"!#:$\"1yl3$o
F(G6F17$$\"1++]Peui=F5$\"1-P&)e!eD?\"F17$$\"1++]i3&o]#F5$\"1rvu6fv\"G
\"F17$$\"1++voX*y9$F5$\"1ilo\"\\bdO\"F17$$\"1++vVTAUPF5$\"1I,ETRa[9F17
$$\"1++v$*zhdVF5$\"1-Kuz'e&R:F17$$\"1++v$>fS*\\F5$\"1T%Hr%eqR;F17$$\"1
++v=$f%GcF5$\"1G12$f9gu\"F17$$\"1+++Dy,\"G'F5$\"1E!\\bvhD'=F17$$\"1++]
7<zboF5$\"1P)QijV;(>F17$$\"1+++v4&G](F5$\"18$\\=j1@5#F17$$\"1*****\\7n
D:)F5$\"1`kMI?zTAF17$$\"1+++D!*oy()F5$\"1YL6v/=&Q#F17$$\"1++v$pnsM*F5$
\"15?Dk8KBDF17$$\"1++]siL-5!#9$\"1)zKv![.)p#F17$$\"1+++!R5'f5Ffp$\"1\\
KX$yra&GF17$$\"1+]P/QBE6Ffp$\"1+'*[mL?]IF17$$\"1+++:o?&=\"Ffp$\"1DlYva
iLKF17$$\"1+]Pa&4*\\7Ffp$\"1)oJ]]#eZMF17$$\"1+]7j=_68Ffp$\"18+u%>lWm$F
17$$\"1++vVy!eP\"Ffp$\"1\"*3r>tJ0RF17$$\"1+](=WU[V\"Ffp$\"1L>bvOTSTF17
$$\"1++DJ#>&)\\\"Ffp$\"1F1\"f@())4WF17$$\"1+]P>:mk:Ffp$\"1km>Q*z$3ZF17
$$\"1+]iv&QAi\"Ffp$\"1![@8`?Y)\\F17$$\"1++vtLU%o\"Ffp$\"1[P.&\\+7I&F17
$$\"1+++bjm[<Ffp$\"1I[q+))Q\\cF17$$\"1++vyb^6=Ffp$\"1N8T2L97gF17$$\"1+
]PMaKs=Ffp$\"1-jjcKG&Q'F17$$\"1++D6W%)R>Ffp$\"1;sGG\\yEoF17$$\"1+++:K^
+?Ffp$\"1z62$\\s%\\sF17$$\"1++]7,Hl?Ffp$\"1T5'[%3rHxF17$$\"1+]P4w)R7#F
fp$\"1w]UnpH#>)F17$$\"1++]x%f\")=#Ffp$\"1]4#3sg(H()F17$$\"1+]P/-a[AFfp
$\"1;(f>+HwE*F17$$\"1+](=Yb;J#Ffp$\"1)oYu#QJl)*F17$$\"1++]i@OtBFfp$\"1
+$4St!p[5!\"*7$$\"1+]PfL'zV#Ffp$\"1')*4JImz6\"Fgw7$$\"1+++!*>=+DFfp$\"
1EY\\\"o4!*=\"Fgw7$$\"1++DE&4Qc#Ffp$\"1rv](4LjE\"Fgw7$$\"1+]P%>5pi#Ffp
$\"1CMm`:)zM\"Fgw7$$\"1+++bJ*[o#Ffp$\"1@:R78kF9Fgw7$$\"1++Dr\"[8v#Ffp$
\"1g%4?QYZ_\"Fgw7$$\"1+++Ijy5GFfp$\"1g\"QOw!=<;Fgw7$$\"1+]P/)fT(GFfp$
\"1`fRic\">s\"Fgw7$$\"1+]i0j\"[$HFfp$\"1k,\\0w]G=Fgw7$$\"#IF($\"1hrsY=
U]>Fgw-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6$7S7$F($\"&++&F(7$F,$\"1.5Se
#oWL&!#67$F3$\"1))GV:%QOk&Fj[l7$F9$\"13&oUH!z7gFj[l7$F>$\"1cyte&z(3kFj
[l7$FC$\"17GVeuxGoFj[l7$FH$\"1]1I1(>FC(Fj[l7$FM$\"16gr)R$z(p(Fj[l7$FR$
\"1.skN#H&)>)Fj[l7$FW$\"1QJNlH2I()Fj[l7$Ffn$\"1J^ux(3GJ*Fj[l7$F[o$\"1&
=%>\"==#e)*Fj[l7$F`o$\"1cY#fJ`50\"F17$Feo$\"1EK<:g*37\"F17$Fjo$\"1tmbP
-f#>\"F17$F_p$\"10g7#og;E\"F17$Fdp$\"1*RmPS<!\\8F17$Fjp$\"1Cms\"*etF9F
17$F_q$\"1+[C$o,^_\"F17$Fdq$\"1iKtPF\"oh\"F17$Fiq$\"1We^_7zB<F17$F^r$
\"12+P(fKA$=F17$Fcr$\"1Xa&)f'eE&>F17$Fhr$\"1nfxPo?q?F17$F]s$\"18`&zgV
\\?#F17$Fbs$\"1K$)4p**=aBF17$Fgs$\"1S2ml-J#\\#F17$F\\t$\"1uo^Z-g]EF17$
Fat$\"1:CN+WpCGF17$Fft$\"1ocq`;21IF17$F[u$\"1^\"=$G;k#>$F17$F`u$\"13O9
kCR8MF17$Feu$\"1*eNlCOZi$F17$Fju$\"1?0VAa&['QF17$F_v$\"1QDr$[[h4%F17$F
dv$\"1v/Tg.)[O%F17$Fiv$\"1e)z4]9Qj%F17$F^w$\"1WLs8plK\\F17$Fcw$\"1)\\Y
+n`MC&F17$Fiw$\"1G*\\b^J)*e&F17$F^x$\"1KJZ2%[]%fF17$Fcx$\"1`y`([l;L'F1
7$Fhx$\"1>rJox!*RnF17$F]y$\"10w&>c1#QrF17$Fby$\"1,t/5>tBwF17$Fgy$\"1-3
>=Q!f3)F17$F\\z$\"1k(z>Jy&4')F17$Faz$\"1@3XF!QD9*F17$Ffz$\"1.ejL#4@v*F
1Fjz-%+AXESLABELSG6$Q\"t6\"%!G-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 0 2 
9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "eq7:= diff(P1(t),t)= r1*(N[0]-a*P1(t))*P1(t);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq7G/-%%diffG6$-%#P1G6#%\"tGF,*(%#r
1G\"\"\",&&%\"NG6#\"\"!F/*&%\"aGF/F)F/!\"\"F/F)\"\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 195 "### WARNING: `dsolve` has been ext
ensively rewritten, many new result forms can occur and options are sl
ightly different, see help page for details\neq8:= P1=rhs(dsolve(\{eq7
, P1(0)=P1[0]\},P1(t)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq8G/%#
P1G*&&%\"NG6#\"\"!\"\"\",&%\"aG\"\"\"*&*&-%$expG6#,$*(%#r1GF/F(F/%\"tG
F/!\"\"F/,&F(F9*&&F&F*F/F.F/F/F/F,F<!\"\"F9F=" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 42 "P1[0]:=100000; N[0]:=2000000; r1:=r; a:=1;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#P1G6#\"\"!\"'++5" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>&%\"NG6#\"\"!\"(+++#" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#r1G,$-%#lnG6#\"\"##\"\"\"\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"aG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "P1:=r
hs(eq8);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#P1G,$*&\"\"\"F',&\"\"\"
F)-%$expG6#,$*&-%#lnG6#\"\"#F)%\"tGF)#!(+++#\"\"(\"#>!\"\"\"(+++#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "p3:=plot(P1,t=0..1e-04,tickm
arks=[5,5]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "P1[0]:=5000
000;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#P1G6#\"\"!\"(+++&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "P1:=rhs(eq8);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#P1G,$*&\"\"\"F',&\"\"\"F)-%$expG6#,$*&-%#lnG6
#\"\"#F)%\"tGF)#!(+++#\"\"(#!\"$\"\"&!\"\"\"(+++#" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 40 "p4:=plot(P1,t=0..1e-04,tickmarks=[5,5]):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "display([p3,p4],tickmarks=[
5,5]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CUR
VESG6$7X7$\"\"!$\"'++5F(7$$\"1nmm;arz@!#@$\"1B-;!fk$*\\\"!#57$$\"1ML$e
9ui2%F.$\"1t(*)ynL26#F17$$\"1nmm\"z_\"4iF.$\"1,XRyA$40$F17$$\"1ommT&ph
N)F.$\"1-P$4^D&=VF17$$\"1LLe*=)H\\5!#?$\"1lONN;8?fF17$$\"1++v=JN[6FD$
\"1zCO%[l*onF17$$\"1nm\"z/3uC\"FD$\"1wb:U)yJn(F17$$\"1LLe*ot*\\8FD$\"1
k%4<P3Ol)F17$$\"1++DJ$RDX\"FD$\"18>dl$G6m*F17$$\"1LLekGhe:FD$\"1,?<9_,
r5!\"*7$$\"1nm\"zR'ok;FD$\"1U*y7()pV<\"Fjn7$$\"1LL3_(>/x\"FD$\"1Nv\\I&
3PF\"Fjn7$$\"1++D1J:w=FD$\"1$*f=?>`n8Fjn7$$\"1n;HdG\"\\)>FD$\"1k1Zr7!o
X\"Fjn7$$\"1LLL3En$4#FD$\"1NHP:*Hx`\"Fjn7$$\"1nm;/RE&G#FD$\"1kq%pq*ye;
Fjn7$$\"1+++D.&4]#FD$\"1v,e*4sLw\"Fjn7$$\"1+++vB_<FFD$\"1tXf)**p#R=Fjn
7$$\"1+++v'Hi#HFD$\"1QyPGCr!*=Fjn7$$\"1mm\"z*ev:JFD$\"1I&*z?rgB>Fjn7$$
\"1MLL347TLFD$\"1(G40OG/&>Fjn7$$\"1MLLLY.KNFD$\"1$4RY\"zwl>Fjn7$$\"1++
D\"o7Tv$FD$\"1'*fMHR\"y(>Fjn7$$\"1LLL$Q*o]RFD$\"16Vm`V\"\\)>Fjn7$$\"1+
+D\"=lj;%FD$\"1(f9-cK,*>Fjn7$$\"1,+vV&R<P%FD$\"1*>Gm:>M*>Fjn7$$\"1ML$e
9Ege%FD$\"1>>Xg+p&*>Fjn7$$\"1MLeR\"3Gy%FD$\"1Pu3^!zq*>Fjn7$$\"1nm;/T1&
*\\FD$\"1vX(4_!3)*>Fjn7$$\"1nm\"zRQb@&FD$\"1kmY$>f()*>Fjn7$$\"1++v=>Y2
aFD$\"1\"Hr&p8:**>Fjn7$$\"1nm;zXu9cFD$\"1%fZ6,P%**>Fjn7$$\"1+++]y))GeF
D$\"1xLLl:j**>Fjn7$$\"1++]i_QQgFD$\"1ki[mmv**>Fjn7$$\"1,+D\"y%3TiFD$\"
15WC:r$)**>Fjn7$$\"1++]P![hY'FD$\"13Zb\"p&*)**>Fjn7$$\"1LLL$Qx$omFD$\"
1]ok8,$***>Fjn7$$\"1+++v.I%)oFD$\"1fMLHW&***>Fjn7$$\"1mm\"zpe*zqFD$\"1
V'o\"o!p***>Fjn7$$\"1,++D\\'QH(FD$\"1bdv\\(z***>Fjn7$$\"1LLe9S8&\\(FD$
\"17\"enS')***>Fjn7$$\"1++D1#=bq(FD$\"1*40'Q5****>Fjn7$$\"1LLL3s?6zFD$
\"1=B)p.%****>Fjn7$$\"1++DJXaE\")FD$\"1FnB2h****>Fjn7$$\"1nmmm*RRL)FD$
\"1e1X=u****>Fjn7$$\"1nm;a<.Y&)FD$\"1AH&QI)****>Fjn7$$\"1NLe9tOc()FD$
\"1XLq\")))****>Fjn7$$\"1,++]Qk\\*)FD$\"1*[atB*****>Fjn7$$\"1NL$3dg6<*
FD$\"1pw=3&*****>Fjn7$$\"1ommmxGp$*FD$\"14]!ym*****>Fjn7$$\"1++D\"oK0e
*FD$\"14FP\"y*****>Fjn7$$\"1,+v=5s#y*FD$\"1u4^`)*****>Fjn7$$\"1+++++++
5!#>$\"1&\\OZ!******>Fjn-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6$7[o7$F($
\"(+++&F(7$$\"1nmTN@Ki8!#A$\"14YB=G-3[Fjn7$$\"1LL$3FWYs#Fc]l$\"1a)eBZ/
[j%Fjn7$$\"1++D1k'p3%Fc]l$\"18aPI!yxZ%Fjn7$$\"1nmmT&)G\\aFc]l$\"1)Q\\I
AC[L%Fjn7$$\"1++]7G$R<)Fc]l$\"1@*>(GrN%3%Fjn7$$\"1LLL3x&)*3\"F.$\"1[/4
CVOsQFjn7$$Fb]lF.$\"1!=bM^e3p$Fjn7$$\"1++]ilyM;F.$\"1O)*z*\\<R`$Fjn7$$
\"1LLe*)4D2>F.$\"123l`r0(R$Fjn7$F,$\"16%GGx>oF$Fjn7$$\"1M$e*)4bQl#F.$
\"1opf1SZ*4$Fjn7$$\"1++D\"y%*z7$F.$\"1%4X]*=$R&HFjn7$$\"1n;ajW8-OF.$\"
1T1^GE$G$GFjn7$F3$\"1_TN80\"4t#Fjn7$$\"1++voMrU^F.$\"16JeG$fKb#Fjn7$F8
$\"1*4j[)\\^DCFjn7$$\"1nmmm6m#G(F.$\"1RNQ*4^0L#Fjn7$F=$\"1c/BST/fAFjn7
$FB$\"1Gz]>gSi@Fjn7$FM$\"1xl;]V)o5#Fjn7$FW$\"1KSF8D&*p?Fjn7$F\\o$\"1^a
0l2TX?Fjn7$Ffo$\"1Bl/VFkH?Fjn7$F`p$\"1ImN-%o\">?Fjn7$Fep$\"1w/@:k28?Fj
n7$Fjp$\"1Ib%4E6&3?Fjn7$F_q$\"12g%4^Mb+#Fjn7$Fdq$\"1RA'*[tl.?Fjn7$Fiq$
\"1z7(4O6D+#Fjn7$F^r$\"1lO$f\\1;+#Fjn7$Fcr$\"1`CDV/5,?Fjn7$Fhr$\"1(*f
\"Hs32+#Fjn7$F]s$\"16.pC,[+?Fjn7$Fbs$\"1+lQ(>8.+#Fjn7$Fgs$\"1r`!R_3-+#
Fjn7$F\\t$\"1B*)e1k8+?Fjn7$Fat$\"1)pq'zB4+?Fjn7$Fft$\"1A%)>v11+?Fjn7$F
[u$\"1DuX3#R++#Fjn7$F`u$\"1K5f5o-+?Fjn7$Feu$\"1a%fPy<++#Fjn7$Fju$\"1y.
*pj6++#Fjn7$F_v$\"1#y!=&o2++#Fjn7$Fdv$\"128;W^++?Fjn7$Fiv$\"1K\"GTH.++
#Fjn7$F^w$\"1Bq,2A++?Fjn7$Fcw$\"12v5R9++?Fjn7$Fhw$\"1f-\"o(4++?Fjn7$F]
x$\"1w!)[R1++?Fjn7$Fbx$\"1!Gj#H/++?Fjn7$Fgx$\"1EF*HG+++#Fjn7$F\\y$\"1,
kI)=+++#Fjn7$Fay$\"19'HH7+++#Fjn7$Ffy$\"1>F_\"3+++#Fjn7$F[z$\"1'eiN0++
+#Fjn7$F`z$\"1_YJN+++?Fjn7$Fez$\"1_N3C+++?Fjn7$Fjz$\"1?4`:+++?Fjn7$F_[
l$\"1q.\\5+++?Fjn7$Fd[l$\"1?S!p++++#Fjn7$Fi[l$\"1qfi/+++?Fjn7$F^\\l$\"
1A$3I++++#FjnFc\\l-%+AXESLABELSG6$Q\"t6\"%!G-%*AXESTICKSG6$\"\"&F_[m-%
%VIEWG6$;F($\"\"\"!\"%%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 0 "" }}}}{MARK "22 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }