{VERSION 6 0 "IBM INTEL NT" "6.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 Input" 2 19 "" 0 1 255 0 0 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
261 "" 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 1 14 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
266 "" 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 
0 0 1 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 1 1 0 0 0 0 
0 0 0 0 }{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 }{PSTYLE "Heading 1
" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 
1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "
Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple O
utput" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 
1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 
0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 266 72 "\320\345\370\345\355\350
\345 \355\345\356\344\355\356\360\356\344\355\356\351 \361\350\361\362
\345\354\373 \353\350\355\345\351\355\373\365 \344\350\364\364\345\360
\345\355\366\350\340\353\374\355\373\365 \363\360\340\342\355\345\355
\350\351 (\315\321\313\304\323)" }}{PARA 0 "" 0 "" {TEXT 267 29 "\361 \+
\357\356\361\362\356\377\355\355\373\354\350 \352\356\375\364\364\350
\366\350\345\355\362\340\354\350." }{TEXT -1 1 " " }{TEXT 268 29 "\327
\350\361\353\345\355\355\356\345 \360\345\370\345\355\350\345 \370\362
\340\362\355\373\354 \317\316." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 
"\307\340\352\340\347\367\350\352\350: \312\361\345\355\356\364\356
\355\362\356\342, \314\350\370\340. 20.10.11." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 22 "restart;  with(plots):" }}{PARA 7 "" 1 "" {TEXT 
-1 50 "Warning, the name changecoords has been redefined\n" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 43 "\317\320\310 \324\316\320\314\323\313\310
\320\316\302\300\315\310\310 \307\300\304\300\327\310 \304\316\317\323
\331\305\315\300 \316\330\310\301\312\300!?" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 77 "\321\350\361\362\345\354\363 \344\350\364\364\345\360
\345\355\366\350\340\353\374\355\373\365 \363\360\340\342\355\345\355
\350\351, \356\357\350\361\373\342\340\376\371\363\376 \354\356\344
\345\353\374 \364\353\356\362\340\366\350\356\355\355\356\343\356 \357
\360\356\366\345\361\361\340" }}{PARA 0 "" 0 "" {TEXT -1 69 "\355\345
\356\341\365\356\344\350\354\356 \357\360\350\342\345\361\362\350 \352
 \355\356\360\354\340\353\374\355\356\354\363 \342\350\344\363. \304
\353\377 \375\362\356\343\356 \302\342\345\344\345\354 \356\341\356
\347\355\340\367\345\355\350\377:" }}}{EXCHG {PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "Diff(CA,t)=a: Diff(CB,t)=b:Diff(CC,t)=c:Diff(CD,t)=d:" 
"6#C&/-%%DiffG6$%#CAG%\"tG%\"aG/-F&6$%#CBGF)%\"bG/-F&6$%#CCGF)%\"cG/-F
&6$%#CDGF)%\"dG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 53 "\322\340\352
\340\377 \361\350\361\362\345\354\340 \341\363\344\345\362 \350\354
\345\362\374 \362\356\353\374\352\356 \362\360\350\342\350\340\353\374
\355\356\345 \360\345\370\345\355\350\345!" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT 257 9 "\302\340\360\350\340\355\362 1" }{TEXT -1 7 ". \304\340
\355\356:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "K[1]:=10^(-3):
K[3]:=10^(-3): K[5]:=0.103: K[7]:=0.103:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 54 "K[2]:=0: K[4]:=0: K[6]:=0: K[8]:=0: K[9]:=0: K[10]:=0
:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "\307\340\357\350\370\345\354
 \361\350\361\362\345\354\363 \353\350\355\345\351\355\373\365 \363
\360\340\342\355\345\355\350\351:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 297 "sys:=\{a=-K[1]*a+K[2]*b-K[3]*a+K[4]*c+K[9]*d-K[10]*a
,                                                                b=K[1
]*a-K[2]*b-K[5]*b-K[5]*b+K[6]*d,                                      \+
  c=-K[3]*a-K[4]*c-K[7]*c+K[8]*d,                           d=K[5]*b-K
[6]*d+K[7]*c-K[8]*d-K[9]*d+K[10]*a\}:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 18 "\317\356\353\363\367\350\354 \345\270 \360\345\370\345
\355\350\345" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "solve(sys,
\{a,b,c,d\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&/%\"aG$\"\"!F'/%\"b
GF&/%\"cGF&/%\"dGF&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "\320\345
\347\363\353\374\362\340\362: \360\345\370\345\355\350\345 \362\360
\350\342\350\340\353\374\355\356\345. \303\360\340\364\350\367\345\361
\352\340\377 \350\355\362\345\360\357\360\345\362\340\366\350\377 \342
 \375\362\356\354 \361\353\363\367\340\345 \355\345 \342\356\347\354
\356\346\355\340." }}{PARA 0 "" 0 "" {TEXT -1 68 "\300 \360\345\370
\345\355\350\345 \361\356\356\362\342\345\362\361\362\342\363\376\371
\350\365 \344\350\364\364\345\360\345\355\366\350\340\353\374\355\373
\365 \363\360\340\342\355\345\355\350\351 \344\340\361\362 \352\356
\355\361\362\340\355\362\373." }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 35 
"\321\352\356\360\360\345\352\362\350\360\356\342\340\355\355\340\377 \+
\357\356\361\362\340\355\356\342\352\340 \347\340\344\340\367\350" }
{TEXT 262 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;wit
h(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoor
ds has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 261 72 "\320
\345\370\345\355\350\345 \355\345\356\344\355\356\360\356\344\355\356
\351 \361\350\361\362\345\354\373 \353\350\355\345\351\355\373\365 \+
\344\350\364\364\345\360\345\355\366\350\340\353\374\355\373\365 \363
\360\340\342\355\345\355\350\351 (\315\321\313\304\323)" }}{PARA 0 "" 
0 "" {TEXT 265 59 "\361 \357\356\361\362\356\377\355\355\373\354\350 \+
\352\356\375\364\364\350\366\350\345\355\362\340\354\350. \327\350\361
\353\345\355\355\356\345 \360\345\370\345\355\350\345 \370\362\340\362
\355\373\354 \317\316." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 77 "\307
\340\357\350\370\345\354 \354\340\362\360\350\366\363 \300 \357\360
\340\342\373\365 \367\340\361\362\345\351 \361\350\361\362\345\354\373
 \344\350\364\364\345\360\345\355\366\350\340\353\374\355\373\365 \363
\360\340\342\355\345\355\350\351 \344\353\377 \360\340\347\355\373\365
" }}{PARA 0 "" 0 "" {TEXT -1 86 "\342\340\360\350\340\355\362\356\342 \+
(1, 2, \350 \344\360.), \352\340\346\344\373\351 \360\340\347 \356\361
\362\340\342\353\377\377 \353\350\370\374 \356\344\350\355 \350\347 \+
\355\350\365 \357\363\362\345\354 \361\355\377\362\350\377 \340\357
\356\361\362\360\356\364\356\342:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
263 9 "\302\340\360\350\340\355\362 1" }{TEXT -1 7 ". \304\340\355\356
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "K[1]:=10^(-3):K[2]:=0:
K[3]:=10^(-3):K[4]:=0:K[5]:=0.103: " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 54 "K[6]:=0:K[7]:=0.103:K[8]:=0:K[9]:=0:K[10]:=0:K[11]:=0
:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 264 10 "\302\340\360\350\340\355
\362 2." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "`K[1]:=10^(-3):K
[3]:=10^(-3): K[5]:=0.103:K[7]:=0.103`:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 58 "`K[2]:=0:K[4]:=0:K[6]:=0:K[8]:=0: K[9]:=0:K[10]:=10^(
-5)`:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 42 "\302\345\352\362\356\360
-\361\362\360\356\352\340 \347\340\344\340\355\355\373\365 \352\356
\375\364\364\350\366\350\345\355\362\356\342 K[i]:" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 23 "L:=[seq(K[i],i=1..10)];" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"LG7,#\"\"\"\"%+5\"\"!F&F)$\"$.\"!\"$F)F*F)F)F)" }
}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 43 "\302\373\367\350\361\353\345\355
\350\345 \354\340\362\360\350\366\373 \300 \357\356 \352\356\375\364
\364\350\366\350\345\355\362\340\354 K[i]:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 23 "n:=4:A:=matrix(n,n,[]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%&arrayG6%;\"\"\"\"\"%F(7\"" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 70 "A[1,1]:=-(K[1]+K[3]+K[10]): A[1,2]:=K[2]: A[
1,3]:=K[4]: A[1,4]:=K[9]: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
68 "A[2,1]:=K[1]: A[2,2]:=-(K[2]+K[5]+K[5]): A[2,3]:=0:  A[2,4]:=K[6] \+
: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "A[3,1]:=-K[3]: A[3,2]
:=0: A[3,3]:=-(K[4]+K[7]): A[3,4]:=K[8]: " }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 70 "A[4,1]:=K[10]: A[4,2]:=K[5]: A[4,3]:=K[7]: A[4,4]:=
-(K[6]+K[8]+K[9]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(
A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7&7&#!\"\"\"$+&\"\"
!F+F+7&#\"\"\"\"%+5$!$1#!\"$F+F+7&#F)F/F+$!$.\"F2F+7&F+$\"$.\"F2F8F+Q)
pprint126\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "\302\345\352\362
\356\360 \360\345\370\345\355\350\351 :" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 40 "X:=vector(n,[CA(t),CB(t),CC(t),CD(t)]); " }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"XGK%'vectorG6#7&-%#CAG6#%\"tG-%#CBGF+-%#CCG
F+-%#CDGF+Q)pprint136\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "\317
\356 \354\340\362\360\350\366\345 \300 \350 \342\345\352\362\356\360
\363 \360\345\370\345\355\350\351 \325  \347\340\357\350\370\345\354 \+
\361\340\354\363 \361\350\361\362\345\354\363 \344\350\364\364\345\360
\345\355\366\350\340\353\374\355\373\365 \363\360\340\342\355\345\355
\350\351:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "evalm(Diff(X,t
)=A&*X); " }{TEXT -1 26 "\302\345\352\362\356\360\355\356-\354\340\362
\360\350\367\355\340\377 \347\340\357\350\361\374:" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#/K%'vectorG6#7&-%%DiffG6$-%#CAG6#%\"tGF.-F)6$-%#CBGF-
F.-F)6$-%#CCGF-F.-F)6$-%#CDGF-F.Q)pprint146\"KF%6#7&,$*&#\"\"\"\"$+&FC
F+FC!\"\",&*&#FC\"%+5FCF+FCFC*&$\"$1#!\"$FCF1FCFE,&*&#FCFIFCF+FCFE*&$
\"$.\"FMFCF5FCFE,&*&$FSFMFCF1FCFC*&FVFCF5FCFCQ)pprint15F<" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 23 "\307\340\344\340\355\350\345 \355\340 \+
\360\345\370\345\355\350\345 \321\304\323:" }}}{EXCHG {PARA 0 "> " 0 "
" {XPPEDIT 19 1 "sys:=diff(CA(t),t)=sum(A[1,k]*X[k], k=1..4), diff(CB(
t),t)=sum(A[2,k]*X[k], k=1..4),                           diff(CC(t),t
)=sum(A[3,k]*X[k], k=1..4), diff(CD(t),t)=sum(A[4,k]*X[k], k=1..4);   \+
                                                     fcns:=\{CA(t),CB(
t),CC(t),CD(t)\};            dsolve(\{sys,CA(0)=30,CB(0)=0,CC(0)=0,CD(
0)=0\},fcns):" "6#C%>%$sysG6&/-%%diffG6$-%#CAG6#%\"tGF.-%$sumG6$*&&%\"
AG6$\"\"\"%\"kGF6&%\"XG6#F7F6/F7;F6\"\"%/-F)6$-%#CBG6#F.F.-F06$*&&F46$
\"\"#F7F6&F96#F7F6/F7;F6F=/-F)6$-%#CCG6#F.F.-F06$*&&F46$\"\"$F7F6&F96#
F7F6/F7;F6F=/-F)6$-%#CDG6#F.F.-F06$*&&F46$F=F7F6&F96#F7F6/F7;F6F=>%%fc
nsG<&-F,6#F.-FB6#F.-FR6#F.-F\\o6#F.-%'dsolveG6$<'F%/-F,6#\"\"!\"#I/-FB
6#FipFip/-FR6#FipFip/-F\\o6#FipFipFho" }}{PARA 12 "" 1 "" {XPPMATH 20 
"6#>%$sysG6&/-%%diffG6$-%#CAG6#%\"tGF-,$*&#\"\"\"\"$+&F1F*F1!\"\"/-F(6
$-%#CBGF,F-,&*&#F1\"%+5F1F*F1F1*&$\"$1#!\"$F1F7F1F3/-F(6$-%#CCGF,F-,&*
&#F1F<F1F*F1F3*&$\"$.\"F@F1FDF1F3/-F(6$-%#CDGF,F-,&*&$FKF@F1F7F1F1*&FS
F1FDF1F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%fcnsG<&-%#CAG6#%\"tG-%#
CBGF(-%#CCGF(-%#CDGF(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "Or
der:=7:dsolve(\{sys,CA(0)=30,CB(0)=0,CC(0)=0,CD(0)=0\},fcns,series);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#<&/-%#CAG6#%\"tG+3F(\"#I\"\"!#!\"$\"
#]\"\"\"#\"\"$\"&++&\"\"##!\"\"\")+++DF1#F/\",+++++&\"\"%#F5\"0++++++D
\"\"\"&#F/\"3+++++++]P\"\"'-%\"OG6#F/\"\"(/-%#CBGF'+1F(#F1\"$+\"F/#!#R
\"&+D\"F3#\"&82\"\")+++]F1#!&$z8\"++++]7F9#\"*@Vl8\"\"0++++++]#F<#!*hk
w([\"2++++++]7$F?F@FC/-%#CCGF'+1F(#F-FIF/#\"#j\"&++%F3#!&>3\"\"*++++#F
1#\"'tGA\"-+++++;F9#!*6'zZ6\"1+++++++SF<#\"*JL:)y\"4++++++++g\"F?F@FC/
-%#CDGF'+-F(#!&41\"F]oF1#\"(*R*H$\"-+++++!)F9#!*$*4*)e\"\"0+++++++)F<#
\"+V3?>q\"3++++++++'*F?F@FC" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 64 "
\317\356\353\355\356\361\362\374\376 \361\356\342\357\340\344\340\345
\362 \361 \362\345\354, \367\362\356 \357\356\353\363\367\345\355\356 \+
\342\345\352\362\356\360\355\356-\354\340\362\360\350\367\355\373\354 \+
 \317\316  " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "\327\362\356\341
\373 \357\356\361\362\360\356\350\362\374 \343\360\340\364\350\352, \+
\355\345\356\341\365\356\344\350\354\356 \363\352\340\347\340\362\374 \+
\342 dsolve \356\357\366\350\376 numeric. \322\356\343\344\340 \357
\356\353\363\367\340\345\362\361\377 " }}{PARA 0 "" 0 "" {TEXT -1 37 "
\367\350\361\353\345\355\355\356\345 \360\345\370\345\355\350\345 \342
\354\345\361\362\356 \361\350\354\342\356\353\374\355\356\343\356." }}
}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "sys:=diff(CA(t),t)=sum(A[1,k]
*X[k], k=1..4), diff(CB(t),t)=sum(A[2,k]*X[k], k=1..4),               \+
            diff(CC(t),t)=sum(A[3,k]*X[k], k=1..4), diff(CD(t),t)=sum(
A[4,k]*X[k], k=1..4);                                                 \+
       fcns:=\{CA(t),CB(t),CC(t),CD(t)\};            F:=dsolve(\{sys,C
A(0)=30,CB(0)=0,CC(0)=0,CD(0)=0\},fcns,type=numeric,output=listprocedu
re):" "6#C%>%$sysG6&/-%%diffG6$-%#CAG6#%\"tGF.-%$sumG6$*&&%\"AG6$\"\"
\"%\"kGF6&%\"XG6#F7F6/F7;F6\"\"%/-F)6$-%#CBG6#F.F.-F06$*&&F46$\"\"#F7F
6&F96#F7F6/F7;F6F=/-F)6$-%#CCG6#F.F.-F06$*&&F46$\"\"$F7F6&F96#F7F6/F7;
F6F=/-F)6$-%#CDG6#F.F.-F06$*&&F46$F=F7F6&F96#F7F6/F7;F6F=>%%fcnsG<&-F,
6#F.-FB6#F.-FR6#F.-F\\o6#F.>%\"FG-%'dsolveG6&<'F%/-F,6#\"\"!\"#I/-FB6#
F[qF[q/-FR6#F[qF[q/-F\\o6#F[qF[qFho/%%typeG%(numericG/%'outputG%.listp
rocedureG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$sysG6&/-%%diffG6$-%#CA
G6#%\"tGF-,$*&#\"\"\"\"$+&F1F*F1!\"\"/-F(6$-%#CBGF,F-,&*&#F1\"%+5F1F*F
1F1*&$\"$1#!\"$F1F7F1F3/-F(6$-%#CCGF,F-,&*&#F1F<F1F*F1F3*&$\"$.\"F@F1F
DF1F3/-F(6$-%#CDGF,F-,&*&$FKF@F1F7F1F1*&FSF1FDF1F1" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%%fcnsG<&-%#CAG6#%\"tG-%#CBGF(-%#CCGF(-%#CDGF(" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 20 "\317\356\361\362\360\356\345\355
\350\345 \343\360\340\364\350\352\356\342:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 64 "plots[odeplot](F,[t,CA(t)],t=0..1000,labels=[t,CA],
color=black);" }}{PARA 13 "" 1 "" {GLPLOT2D 484 167 167 {PLOTDATA 2 "6
%-%'CURVESG6#X,%)anythingG6\"6\"[gl'!%\"!!#_q\"S\"#0000000000000000403
E0000000000004034687D6343EAF8403CCCD77F7D18624044687D6343EAF8403BA5F7D
E43DE60404E9CBC14E5E073403A8AE35537F51E4054687D6343EAF840397B21250708E
F4059829CBC14E5B64038763D62A78783405E9CBC14E5E18D40377BC8C5E730574061D
B6DB6DB6D5240368B5879F31FF14064687D6343EB3E4035A485EFC4FAC54066F58D0FA
C67CA4034C6EEB24268374069829CBC14E5B64033F2343B4DF89F406C0FAC687D63A14
03325FBC3F52B86406E9CBC14E5E02D403261EE4758A711407094E5E0A72F0C4031A5B
8217E1AA64071DB6DB6DB6D524030F108FC69398D407321F58D0FAC4840304393C9B3D
3504074687D6343EB3E402F3A1D1CB629554075AF0539782984402DFA6485F6373E407
6F58D0FAC687A402CC7756EBC43E740783C14E5E0A6C0402BA0CCEAFB91E94079829CB
C14E5B6402A85ED4B1A6B9F407AC924924924AB4029765DE657D29F407C0FAC687D62F
1402871AAE755DC4E407D56343EB1A1E7402777651AAF7B2B407E9CBC14E5E02D40268
721BF894315407FE343EB1A1F234025A07A5A094A2E408094E5E0A72F0C4024C30C879
FF45240813829CBC14E2F4023EE79D510A9AA4081DB6DB6DB6DAA40232267962922FE4
0827EB1A1F58CCD40225E7EBF152582408321F58D0FAC484021A26BBF3ACA024083C53
97829CBC34020EDDE5D95EB3D4084687D6343EAE64020408996808B0740850BC14E5E0
A61401F3446F5B359E24085AF0539782984401DF4CA20F7FEAA40865249249248FF401
CC21467EF87E04086F58D0FAC687A401B9BA2F7037494408798D0FAC6879D401A80F83
617D29240883C14E5E0A7184019719B92F8CBB94088DF58D0FAC63B40186D194DED6B0
64089829CBC14E5B6401773024858A978408A25E0A72F0530401682EBD552F20D408AC
9249249245340159C6F8C2A0B14408B6C687D6343CE4014BF2B1CB390B0408C0FAC687
D62F14013EAC0255B27C2408CB2F05397826C40131ED40AE0EE0B408D56343EB1A1E74
0125B0FD1B3B198408DF97829CBC10A40119F1FF8D7162B408E9CBC14E5E0854010EAB
45645630E408F40000000000040103D7FF4BF0566-%'COLOURG6&%$RGBG\"\"!F.F.-%
+AXESLABELSG6$%\"tG%#CAG" 1 2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "\327
\362\356\341\373 \355\340 \356\344\355\356\354 \343\360\340\364\350
\352\345 \357\356\361\362\360\356\350\362\374 \342\361\345 \352\360
\350\342\373\345, \355\340\344\356 \342 F:= \344\356\341\340\342\350
\362\374 \356\357\366\350\376 " }}{PARA 0 "" 0 "" {TEXT -1 20 "output=
listprocedure" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Z1:=subs(F
,CA(t)):Z2:=subs(F,CB(t)):Z3:=subs(F,CC(t)):Z4:=subs(F,CD(t)):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 27 "\303\360\340\364\350\352 \357\356
\353\363\367\345\355\355\356\343\356 \360\345\370\345\355\350\377:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "plot(\{Z2,Z3,Z4\},0..100,la
bels=[t,`CB(t), CC(t), CD(t),`],color=[black,blue,red]);" }}{PARA 13 "
" 1 "" {GLPLOT2D 484 250 250 {PLOTDATA 2 "6'-%'CURVESG6$7Z7$\"\"!$F(F(
7$$\"+S&)G\\a!#5$!+)f!)))e\"!#67$$\"+3x&)*3\"!\"*$!+onI*3$F07$$\"+ilyM
;F4$!+r&3h]%F07$$\"+;arz@F4$!+j@&Q%eF07$$\"+!y%*z7$F4$!+c*))f*zF07$$\"
+XTFwSF4$!+a=vU**F07$$\"+qMrU^F4$!+#yX5>\"F-7$$\"+\"z_\"4iF4$!+@wqm8F-
7$$\"+l6m#G(F4$!+s$QW_\"F-7$$\"+S&phN)F4$!+TJ,l;F-7$$\"+:ddC%*F4$!+bxm
*y\"F-7$$\"+*=)H\\5!\")$!+pgp+>F-7$$\"+[!3uC\"Fao$!+ykBv?F-7$$\"+J$RDX
\"Fao$!+3m!*>AF-7$$\"+)R'ok;Fao$!+oyGQBF-7$$\"+1J:w=Fao$!+&4C3V#F-7$$
\"+3En$4#Fao$!+V=t/DF-7$$\"+/RE&G#Fao$!+*[+ab#F-7$$\"+D.&4]#Fao$!+$H-%
*f#F-7$$\"+vB_<FFao$!+5IPKEF-7$$\"+v'Hi#HFao$!+&yEcl#F-7$$\"+(*ev:JFao
$!+C%))3n#F-7$$\"+347TLFao$!+.')=$o#F-7$$\"+LY.KNFao$!+g$z&*o#F-7$$\"+
\"o7Tv$Fao$!+F&*G$p#F-7$$\"+$Q*o]RFao$!+&oqQp#F-7$$\"+\"=lj;%Fao$!+C(p
@p#F-7$$\"+V&R<P%Fao$!+@&=()o#F-7$$\"+Xh-'e%Fao$!+=df$o#F-7$$\"+R\"3Gy
%Fao$!+V>zxEF-7$$\"+.T1&*\\Fao$!+i\")eqEF-7$$\"+(RQb@&Fao$!+X\"zAm#F-7
$$\"+=>Y2aFao$!+X;]aEF-7$$\"+yXu9cFao$!+H$\\ck#F-7$$\"+\\y))GeFao$!+pQ
6OEF-7$$\"+i_QQgFao$!+>Z[EEF-7$$\"+!y%3TiFao$!+a$[ph#F-7$$\"+O![hY'Fao
$!+Zl;1EF-7$$\"+#Qx$omFao$!+7pM'f#F-7$$\"+u.I%)oFao$!+o:w&e#F-7$$\"+(p
e*zqFao$!+gZ5wDF-7$$\"+C\\'QH(Fao$!+#[)\\lDF-7$$\"+8S8&\\(Fao$!+7#*[bD
F-7$$\"+0#=bq(Fao$!+(f5]a#F-7$$\"+2s?6zFao$!+13wMDF-7$$\"+IXaE\")Fao$!
+4Z.CDF-7$$\"+l*RRL)Fao$!+Kkr8DF-7$$\"+`<.Y&)Fao$!+jI=.DF-7$$\"+8tOc()
Fao$!+.,w#\\#F-7$$\"+\\Qk\\*)Fao$!+qi?$[#F-7$$\"+p0;r\"*Fao$!+rzGsCF-7
$$\"+lxGp$*Fao$!+)G`DY#F-7$$\"+!oK0e*Fao$!+Hy?_CF-7$$\"+<5s#y*Fao$!+G*
RBW#F-7$\"$+\"$!+xRxJCF--%'COLOURG6&%$RGBGF(F(F(-F$6$7SF'7$F=$!+#[%*Gl
%!#87$FG$!+5x)yk#!#77$FQ$!+-'[*\\!)Fh]l7$Fen$!+da='p\"F07$F_o$!+?%)3AH
F07$Feo$!+#\\)4OVF07$Fjo$!+#pc!\\gF07$F_p$!+tb;]!)F07$Fdp$!+U)fS-\"F-7
$Fip$!+^dAm7F-7$F^q$!+lg9\"\\\"F-7$Fcq$!+e7\"\\v\"F-7$Fhq$!+C(*yG?F-7$
F]r$!+p\"p%*H#F-7$Fbr$!+a!y(\\DF-7$Fgr$!+1ms^GF-7$F\\s$!+'34.6$F-7$Fas
$!+g%eMT$F-7$Ffs$!+EwI$o$F-7$F[t$!+bGX!)RF-7$F`t$!++#HSE%F-7$Fet$!+e?>
gXF-7$Fjt$!+1\\:K[F-7$F_u$!+)Go_7&F-7$Fdu$!+D'p#HaF-7$Fiu$!+zgQ$p&F-7$
F^v$!+Am)z(fF-7$Fcv$!+qw>riF-7$Fhv$!+qR<dlF-7$F]w$!+7+*H$oF-7$Fbw$!+cw
;QrF-7$Fgw$!+voQ6uF-7$F\\x$!+OQ.-xF-7$Fax$!+@cUkzF-7$Ffx$!+;'3-D)F-7$F
[y$!+E\\1=&)F-7$F`y$!+h2'pz)F-7$Fey$!+,yao!*F-7$Fjy$!+%H?<N*F-7$F_z$!+
4*HLi*F-7$Fdz$!+eG&***)*F-7$Fiz$!+m\\J<5F47$F^[l$!+t#>B/\"F47$Fc[l$!+'
zf32\"F47$Fh[l$!+\"*3G'4\"F47$F]\\l$!+=_FB6F47$Fb\\l$!+;j+\\6F47$Fg\\l
$!+XFaw6F4-F[]l6&F]]lF)F)$\"*++++\"Fao-F$6$7hnF'7$$\"+qUkCFF-$\"+M-fYz
Fh]l7$F+$\"+Q?^X:F07$$\"+5G$R<)F-$\"+.$[\\D#F07$F2$\"+!>I_#HF07$F8$\"+
ASwcTF07$F=$\"+c([eD&F07$$\"+)4bQl#F4$\"+*y%Q:hF07$FB$\"+6+m$*oF07$$\"
+iW8-OF4$\"+/aB)f(F07$FG$\"+g;(fB)F07$FL$\"+MBSd%*F07$FQ$\"+@n=V5F-7$F
V$\"+5kE@6F-7$Fen$\"+tRC$=\"F-7$Fjn$\"+7%3@B\"F-7$F_o$\"+.irq7F-7$Feo$
\"+DNw@8F-7$Fjo$\"+qTpa8F-7$F_p$\"+z+xu8F-7$Fdp$\"+u&)f&Q\"F-7$Fip$\"+
g[e!R\"F-7$F^q$\"+HWh\"R\"F-7$Fcq$\"+r)G.R\"F-7$Fhq$\"+'QYtQ\"F-7$F]r$
\"+.'[MQ\"F-7$Fbr$\"+!)oMz8F-7$Fgr$\"+%)Q-u8F-7$F\\s$\"+%*=Fp8F-7$Fas$
\"+bGdj8F-7$Ffs$\"+]UVe8F-7$F[t$\"+%\\RFN\"F-7$F`t$\"+e$)GZ8F-7$Fet$\"
+.-fT8F-7$Fjt$\"+E(ejL\"F-7$F_u$\"+?[sI8F-7$Fdu$\"+#*y)[K\"F-7$Fiu$\"+
TB#)>8F-7$F^v$\"+U%pVJ\"F-7$Fcv$\"+>rv38F-7$Fhv$\"+i!)G.8F-7$F]w$\"+'=
<!)H\"F-7$Fbw$\"+.!*=#H\"F-7$Fgw$\"+!*R(pG\"F-7$F\\x$\"+%yG9G\"F-7$Fax
$\"+sWUw7F-7$Ffx$\"+pc(4F\"F-7$F[y$\"+L*peE\"F-7$F`y$\"+U[bg7F-7$Fey$
\"+7*z`D\"F-7$Fjy$\"+v\\)*\\7F-7$F_z$\"+;4\"[C\"F-7$Fdz$\"+L=aR7F-7$Fi
z$\"+-%QVB\"F-7$F^[l$\"+XidH7F-7$Fc[l$\"+l39C7F-7$Fh[l$\"+a(*H>7F-7$F]
\\l$\"+0#fT@\"F-7$Fb\\l$\"+V$f#47F-7$Fg\\l$\"+7e,/7F--F[]l6&F]]lFeflF)
F)-%+AXESLABELSG6$%\"tG%5CB(t),~CC(t),~CD(t),G-%%VIEWG6$;F)$Fg\\lF(%(D
EFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curv
e 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "15 35 0 0" 0 }{VIEWOPTS 
0 0 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 1 0 2 33 1 1 }