{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 1 0}{FONT 0 "-b&h-lucidat
ypewriter-medium-r-normal-sans-20-*" "lucidatypewriter" "Courier"
 4 12 192 "Helvetica" 12}{FONT 1 "-adobe-new century schoolbook-m
edium-r-normal--24-*" "new century schoolbook" "Times-Roman" 4 12
 64 "Times-Roman" 12}{FONT 2 "-adobe-courier-bold-r-normal--18-*"
 "courier" "Courier-Bold" 8 12 192 "Courier" 12}{SCP_R 1 0 37
{INP_R 2 0 "> "{TEXT 0 28 "eq1:= diff(P(t),t) = r*P(t);"}}{OUT_R 
3 0 2{DAG :3n3\`eq1`=3(3n4\`diff`,3(3n3\`P`,2n3\`t`pD*5n3\`r`j2x0
001p9p13}}{COM_R 4 0{TEXT 1 0 ""}}{INP_R 5 0 "> "{TEXT 0 37 "P=rh
s(dsolve(\{eq1, P(0)=P[0]\},P(t)));"}}{OUT_R 6 0 5{DAG =3n3\`P`*5
(3n3\`exp`,2*5n3\`r`j2x0001n3\`t`pBpBb3p1,2j2x0000pB}}{INP_R 7 0 
"> "{TEXT 0 28 "eq2:=200000=100000*exp(7*r);"}}{OUT_R 8 0 7{DAG :
3n3\`eq2`=3j3x00200000+3(3n3\`exp`,2+3n3\`r`j2x0007j3x00100000}}
{INP_R 9 0 "> "{TEXT 0 16 "r:=solve(eq2,r);"}}{OUT_R 10 0 9{DAG :
3n3\`r`+3(3n3\`ln`,2j2x0002/3j2x0001j2x0007}}{INP_R 11 0 "> "
{TEXT 0 19 "P:=100000*exp(r*t);"}}{OUT_R 12 0 11{DAG :3n3\`P`+3(3
n3\`exp`,2+3*5(3n3\`ln`,2j2x0002j2x0001n3\`t`p10/3p10j2x0007j3x00
100000}}{INP_R 13 0 "> "{TEXT 0 13 "with(plots): "}}{INP_R 14 0 "
> "{TEXT 0 20 "p1:=plot(P,t=0..30):"}}{INP_R 15 0 "> "{TEXT 0 18 
"P:=50000*exp(r*t);"}}{OUT_R 16 0 15{DAG :3n3\`P`+3(3n3\`exp`,2+3
*5(3n3\`ln`,2j2x0002j2x0001n3\`t`p10/3p10j2x0007j3x00050000}}
{INP_R 17 0 "> "{TEXT 0 20 "p2:=plot(P,t=0..30):"}}{INP_R 18 0 ">
 "{TEXT 0 17 "display([p1,p2]);"}}{INP_R 19 0 "> "{TEXT 0 45 "eq7
:= diff(P1(t),t)= r1*(N[0]-a*P1(t))*P1(t);"}}{OUT_R 20 0 19{DAG :
3n3\`eq7`=3(3n4\`diff`,3(3n3\`P1`,2n3\`t`pD*7n3\`r1`j2x0001+5b3n3
\`N`,2j2x0000p13*5n3\`a`p13p9p13i2x0001p13p9p13}}{INP_R 21 0 "> "
{TEXT 0 47 "eq8:= P1=rhs(dsolve(\{eq7, P1(0)=P1[0]\},P1(t)));"}}
{OUT_R 22 0 21{DAG :3n3\`eq8`=3n3\`P1`+3*5b3n3\`N`,2j2x0000j2x000
1+5n3\`a`i2x0001*7(3n3\`exp`,2+3*7n3\`r1`pEp8pEn3\`t`pEp13pE+5p8p
E*5b3p4pBpEp11pEp13pEp2Ap13p13p13p13}}{INP_R 23 0 "> "{TEXT 0 42 
"P1[0]:=100000; N[0]:=2000000; r1:=r; a:=1;"}}{OUT_R 24 0 23{DAG 
:3b3n3\`P1`,2j2x0000j3x00100000}}{OUT_R 25 0 23{DAG :3b3n3\`N`,2j
2x0000j3x02000000}}{OUT_R 26 0 23{DAG :3n3\`r1`+3(3n3\`ln`,2j2x00
02/3j2x0001j2x0007}}{OUT_R 27 0 23{DAG :3n3\`a`j2x0001}}{INP_R 28
 0 "> "{TEXT 0 13 "P1:=rhs(eq8);"}}{OUT_R 29 0 28{DAG :3n3\`P1`+3
*3+5i2x0001j2x0001(3n3\`exp`,2+3*5(3n3\`ln`,2j2x0002p8n3\`t`p8/3i
3x02000000j2x0007i2x0019p6p1B}}{INP_R 30 0 "> "{TEXT 0 40 "p3:=pl
ot(P1,t=0..1e-04,tickmarks=[5,5]):"}}{INP_R 31 0 "> "{TEXT 0 15 "
P1[0]:=5000000;"}}{OUT_R 32 0 31{DAG :3b3n3\`P1`,2j2x0000j3x05000
000}}{INP_R 33 0 "> "{TEXT 0 13 "P1:=rhs(eq8);"}}{OUT_R 34 0 33
{DAG :3n3\`P1`+3*3+5i2x0001j2x0001(3n3\`exp`,2+3*5(3n3\`ln`,2j2x0
002p8n3\`t`p8/3i3x02000000j2x0007/3j2x0003j2x0005p6p1B}}{INP_R 35
 0 "> "{TEXT 0 40 "p4:=plot(P1,t=0..1e-04,tickmarks=[5,5]):"}}
{INP_R 36 0 "> "{TEXT 0 33 "display([p3,p4],tickmarks=[5,5]);"}}
{INP_R 37 0 "> "{TEXT 0 0 ""}}{INP_R 38 0 "> "{TEXT 0 0 ""}}}{END
}