{VERSION 4 0 "IBM INTEL NT" "4.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 Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 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 "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 Output" -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 }{PSTYLE "Normal" -1 256 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 256 "" 0 "" {TEXT -1 52 "Mathematical Model of Pe thidine Flow Throughout Body" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "clinical_data := [[0.5, 0.4 2], [1,0.29],[1.5,0.22],[2,0.18],[2.5,0.15],[3,0.125],[4,0.096],[6,0.0 6],[8,0.038],[10,0.024]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "unassign('x1','x2', 'k12', 'k2 1', 'k10');" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 24 "Definition of Vari ables:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 55 "x1 = the concentration of Pethidine in the Blood Plasma" }}{PARA 0 " " 0 "" {TEXT -1 55 "x2 = the concentration of Pethidine in the Other O rgans" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "Concentration of Pethidine in the blood stream." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "de1 := diff(x1(t),t) = (-(k10+k12)*x1(t)) +(k21*x2(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$de1G/-%%diffG6$-%# x1G6#%\"tGF,,&*&,&%$k10G\"\"\"%$k12GF1F1F)F1!\"\"*&%$k21GF1-%#x2GF+F1F 1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "Concentration of Pethidine i n the other organs." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "de2 := diff( x2(t),t) = (k12*x1(t))-(k21*x2(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%$de2G/-%%diffG6$-%#x2G6#%\"tGF,,&*&%$k12G\"\"\"-%#x1GF+F0F0*&%$k21G F0F)F0!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 73 "Solving the system of equations for both blood stream and other organs. " }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 66 "sol := dsolve(\{de1, de2, x1(0) = .50, x2(0) = 0\}, \{x1(t), x2(t)\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "solx1 := sol[2];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&solx1G/-%#x1G6 #%\"tG,$*&,2*&*&)%$k12G\"\"#\"\"\"-%$expG6#*&,*F0#!\"\"F1*&#F2F1F2%$k2 1GF2F9*&#F2F1F2%$k10GF2F9*&#F2F1F2-%%sqrtG6#,.*$F/F2F2*(F1F2F0F2F " 0 "" {MPLTEXT 1 0 16 "solx2 := sol[1] ;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&solx2G/-%#x2G6#%\"tG,&*&*&%$k1 2G\"\"\"-%$expG6#*&,*F-#!\"\"\"\"#*&#F.F6F.%$k21GF.F5*&#F.F6F.%$k10GF. F5*&#F.F6F.-%%sqrtG6#,.*$)F-F6F.F.*(F6F.F-F.F9F.F.*(F6F.F-F.F*&#F.F6 F.*&*&F-F.-F06#,$*&,*F-F.F9F.F " 0 "" {MPLTEXT 1 0 74 "subn_value_3 := simplify(subs(\{k12 = 0.1, k21 = 0.20 , k10 = .35\}, solx1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "subn_val ue_3_2 := simplify(subs(\{k12 = 0.1, k21 = 0.20, k10 = 0.35\}, solx2)) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-subn_value_3G/-%#x1G6#%\"tG,&- %$expG6#,$F)$!+\"RTDO\"!#5$\"+NbMV%)!#6*&$\"+[ambTF1\"\"\"-F,6#,$F)$!+ 5'eu8&F1F8F8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%/subn_value_3_2G/-%# x2G6#%\"tG,&-%$expG6#,$F)$!+\"RTDO\"!#5$\"+dB`C8F1*&$\"+dB`C8F1\"\"\"- F,6#,$F)$!+5'eu8&F1F7!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 158 "plot(\{rhs(subn_value_3), rhs(subn_value_3_2), clinical_data\}, t =0..10, Concentration = 0..0.5, title = `Conc. vs. Time for k12 = 0.1, k21 = 0.2, k10 = 0.35`);" }}{PARA 13 "" 1 "" {GLPLOT2D 934 606 606 {PLOTDATA 2 "6(-%'CURVESG6$7,7$$\"3++++++++]!#=$\"3%)*************>%F* 7$$\"\"\"\"\"!$\"3y**************GF*7$$\"3++++++++:!#<$\"3-+++++++AF*7 $$\"\"#F0$\"3#**************z\"F*7$$\"3++++++++DF6$\"3%************** \\\"F*7$$\"\"$F0$\"3+++++++]7F*7$$\"\"%F0$\"3?+++++++'*!#>7$$\"\"'F0$ \"3y**************fFM7$$\"\")F0$\"3#**************z$FM7$$\"#5F0$\"3/++ +++++CFM-%'COLOURG6&%$RGBG$FZ!\"\"$F0F0F]o-F$6$7X7$F]oF]o7$$\"3GLLL3x& )*3\"F*$\"3[l]q$)>-g_!#?7$$\"3emmm;arz@F*$\"3`&y$[Y!4c,\"FM7$$\"3v*** \\7y%*z7$F*$\"3?,kB\"HPOT\"FM7$$\"3[LL$e9ui2%F*$\"3Sy\"4sp4qy\"FM7$$\" 3z***\\(oMrU^F*$\"33#G-(y$)**y@FM7$$\"3nmmm\"z_\"4iF*$\"3!\\tM_]fIa#FM 7$$\"3Unmmm6m#G(F*$\"3CW,r$fPH)GFM7$$\"39ommT&phN)F*$\"3Y'[;a&>m(>$FM7 $$\"3A,+v=ddC%*F*$\"3idxT@MN([$FM7$$\"3KLLe*=)H\\5F6$\"3]mN+7x\"\\v$FM 7$$\"3smm\"z/3uC\"F6$\"3!ejyPN!z'>%FM7$$\"3!****\\7LRDX\"F6$\"3sm$)H%[ ^ne%FM7$$\"3%om;zR'ok;F6$\"3QlA%RWFc#\\FM7$$\"33++D1J:w=F6$\"3p&QEvFYb ?&FM7$$\"3oLLL3En$4#F6$\"35F$o[d],W&FM7$$\"3#pmmT!RE&G#F6$\"3h'4QZYhqg &FM7$$\"3D+++D.&4]#F6$\"3A!*)z]yabv&FM7$$\"3;+++vB_C%Gv'eF M7$$\"33+++v'Hi#HF6$\"3GAn;%RxW%fFM7$$\"3&om;z*ev:JF6$\"3[\\P;*\\F6*fF M7$$\"3_LLL347TLF6$\"3B'*e!)eKI@gFM7$$\"3nLLLLY.KNF6$\"3SZSh#yRz-'FM7$ $\"33++D\"o7Tv$F6$\"3%f%=AMrh;gFM7$$\"3?LLL$Q*o]RF6$\"3WyNUt$\\;*fFM7$ $\"3m++D\"=lj;%F6$\"3/]m#H.h-&fFM7$$\"3S++vV&R*f& FM7$$\"3:++v=>Y2aF6$\"3NOv9ev`;bFM7$$\"3Znm;zXu9cF6$\"3J>MPiO:BaFM7$$ \"34+++]y))GeF6$\"3z&yo4yFIK&FM7$$\"3H++]i_QQgF6$\"34ppoUvAA_FM7$$\"3b ++D\"y%3TiF6$\"3ks(Q+FLE7&FM7$$\"3+++]P![hY'F6$\"3'3/q6T1.,&FM7$$\"3iK LL$Qx$omF6$\"3R1SOKgI3\\FM7$$\"3Y+++v.I%)oF6$\"3=\\!)p_cu)z%FM7$$\"3?m m\"zpe*zqF6$\"3ixNYT;B*p%FM7$$\"3;,++D\\'QH(F6$\"3]MADij^!f%FM7$$\"3%H L$e9S8&\\(F6$\"3[wV:\"yt&)[%FM7$$\"3s++D1#=bq(F6$\"3/djxn0j#Q%FM7$$\"3 \"HLL$3s?6zF6$\"3%f1;lvu)zUFM7$$\"3a***\\7`Wl7)F6$\"3-Xs/_5PtTFM7$$\"3 enmmm*RRL)F6$\"3UquLEs*>2%FM7$$\"3%zmmTvJga)F6$\"3Yy3'zm\"ppRFM7$$\"3] MLe9tOc()F6$\"3I%QWIz:(pQFM7$$\"31,++]Qk\\*)F6$\"3u/'QZ'oBzPFM7$$\"3![ LL3dg6<*F6$\"3U0\"e(=$fsn$FM7$$\"3%ymmmw(Gp$*F6$\"3EGpJ:'pwe$FM7$$\"3C ++D\"oK0e*F6$\"3a>*e-D()Q\\$FM7$$\"35,+v=5s#y*F6$\"3?KC.cd%eS$FM7$FY$ \"3CAkp$)>98LFM-Fhn6&FjnF]oF[oF]o-F$6$7U7$F]o$\"37++],+++]F*7$Fco$\"3] .t#ouo7w%F*7$Fio$\"3=qMzFF/NXF*7$F^p$\"3q(e%y3M&yM%F*7$Fcp$\"3g]m)>m*> pTF*7$F]q$\"3k(R72'R^'z$F*7$Fgq$\"3s$y=.&yneMF*7$Far$\"3%>OTk<0e:$F*7$ Ffr$\"3Cab^$>[F*7$Fdt$\"3mRX+N# \\.v\"F*7$Fit$\"3/u'eQ&Q\"=h\"F*7$F^u$\"3)p.7$p$o3\\\"F*7$Fcu$\"3;M)pX -z1R\"F*7$Fhu$\"3'*H`y$p9BG\"F*7$F]v$\"3S)ROsT(z)>\"F*7$Fbv$\"3LrQ%Ro[ -6\"F*7$Fgv$\"3zH\"p77])Q5F*7$F\\w$\"3?Yr8uP7t'*FM7$Faw$\"3[-)fj)>o^!* FM7$Ffw$\"3+/AotwJf%)FM7$F[x$\"3UL8_)pc4'zFM7$F`x$\"3up#[)*\\vwY(FM7$F ex$\"3GCqv-@E**pFM7$Fjx$\"3de]lP'4Xi'FM7$F_y$\"3OP0u&[F5D'FM7$Fdy$\"3S :(=\"[Z7'*eFM7$Fiy$\"33Ll4Hj$fKF\"HMFM7$F`]l$\"33)p&H(f 1oG$FM7$Fe]l$\"3#Rm@7\"yC]JFM7$Fj]l$\"3w6K2p3/BIFM7$F_^l$\"3\"y!z$4Q%y 7HFM7$Fd^l$\"3e$>e?5*f$z#FM7$Fi^l$\"3GAy@hx)Hp#FM7$F^_l$\"31G7$Rz]9f#F M7$Fc_l$\"3/DKk:;R*\\#FM7$FY$\"3a&40bk?cS#FM-Fhn6&FjnF[oF[oF]o-%+AXESL ABELSG6$Q\"t6\"Q.ConcentrationF^jl-%&TITLEG6#%TConc.~vs.~Time~for~k12~ =~0.1,~k21~=~0.2,~k10~=~0.35G-%%VIEWG6$;F]oFY;F]o$\"\"&F\\o" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 1 "Clinical Data for Con c. of Pethidine in Blood Plasma" "Conc. of Pethidine in Other Organs" "Conc. of Pethidine in Blood Plasma" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 169 "plot(\{rhs(subn_value_3), rhs(subn_value_3_2), clini cal_data\}, t=124..150, Concentration = 0..0.000000005, title = `Conc. vs. Time for k12 = 0.1, k21 = 0.2, k10 = 0.35`);" }}{PARA 13 "" 1 "" {GLPLOT2D 949 569 569 {PLOTDATA 2 "6(-%'CURVESG6$7,7$$\"3++++++++]!#=$ \"3%)*************>%F*7$$\"\"\"\"\"!$\"3y**************GF*7$$\"3++++++ ++:!#<$\"3-+++++++AF*7$$\"\"#F0$\"3#**************z\"F*7$$\"3++++++++D F6$\"3%**************\\\"F*7$$\"\"$F0$\"3+++++++]7F*7$$\"\"%F0$\"3?+++ ++++'*!#>7$$\"\"'F0$\"3y**************fFM7$$\"\")F0$\"3#************** z$FM7$$\"#5F0$\"3/+++++++CFM-%'COLOURG6&%$RGBG$FZ!\"\"$F0F0F]o-F$6$7S7 $$\"$C\"F0$\"3/_clveV(3'!#E7$$\"3MLL3gsmX7!#:$\"3Et_0EA1NcFfo7$$\"3sm \"zFJ)f]7Fjo$\"3#3,&eOW*)o_Ffo7$$\"3IL$eszVhD\"Fjo$\"3?U<>;#[a)[Ffo7$$ \"3QL$33/E%F fo7$$\"3QLeC4EVs7Fjo$\"3IN%=,DeI\"RFfo7$$\"31+DhAgwx7Fjo$\"3\\%R1g#HyQ OFfo7$$\"3ALeMY=G$G\"Fjo$\"3e7I.`ELvLFfo7$$\"33+Dw!)*z()G\"Fjo$\"3i!)* *=!36<8$Ffo7$$\"3imm\"y[NWH\"Fjo$\"39z*f)H&\\%**GFfo7$$\"3ML$3:'oT*H\" Fjo$\"3KcpL\"Q%=4FFfo7$$\"30++X3Z-08Fjo$\"3A\"\\%)[k)))4DFfo7$$\"32++v \"eb1J\"Fjo$\"3)RNP>GCXK#Ffo7$$\"3*****\\:(>3;8Fjo$\"3yb_WAj&)e@Ffo7$$ \"3@LeM`'45K\"Fjo$\"3b`&R'**fm=?Ffo7$$\"3_mmhV\"poK\"Fjo$\"3s$)4aCbwj= Ffo7$$\"3cmmY+H$=L\"Fjo$\"37d['R>\")=u\"Ffo7$$\"3&**\\7(HpgP8Fjo$\"3x- $3ZJ$45;Ffo7$$\"3bmm'R#zrU8Fjo$\"3H'p=H[#y,:Ffo7$$\"3!**\\7Z\\D$[8Fjo$ \"3ki()z!478R\"Ffo7$$\"35+v8G_m`8Fjo$\"3%>>[HR!o$H\"Ffo7$$\"3!om\"zzmB f8Fjo$\"3Qn=jqy5*>\"Ffo7$$\"3em\"H;,`VO\"Fjo$\"3VVIlaEO=6Ffo7$$\"3YL$3 nmr)p8Fjo$\"3HH^9WCNP5Ffo7$$\"3OLeM)*Rgv8Fjo$\"3[;Wy&*)HTf*!#F7$$\"3%) *\\())4Sf!Q\"Fjo$\"3'3QrgD(\\j*)Few7$$\"3CL$e!fL)fQ\"Fjo$\"3T-m7&pu)G$ )Few7$$\"3'*****4%3^:R\"Fjo$\"3\\#oq>3(R?xFew7$$\"33+]#o,)*pR\"Fjo$\"3 A]j*Qjg\"orFew7$$\"3!**\\7V?oAS\"Fjo$\"3O!G'o%\\s9n'Few7$$\"3(***\\(*[ )>\"39Fjo$\"37s%[%*o,-;'Few7$$\"3omm'>\"yP89Fjo$\"3`(e!**e4JMdFew7$$\" 32++v4=**=9Fjo$\"3O\"y!R@E.7`Few7$$\"3=Le9E*ySU\"Fjo$\"37$oyr\"\\Ic\\F ew7$$\"3/++0)[S'H9Fjo$\"3uCxMK4g%f%Few7$$\"3lm\"zV[t[V\"Fjo$\"3+;-G8XS yUFew7$$\"3$**\\iLZV.W\"Fjo$\"3IKAnzW7rRFew7$$\"3ymmT(Q\"pX9Fjo$\"3gj_ b>'\\?p$Few7$$\"3!**\\7y:!H^9Fjo$\"3Jm\"\\YSu3U$Few7$$\"3GLL8RCoc9Fjo$ \"3_+sI^oayJFew7$$\"3?L$3c#o>i9Fjo$\"33KBY7dZ[HFew7$$\"3em\"z,blwY\"Fj o$\"3,b=7v)fnt#Few7$$\"3)*****4S2ps9Fjo$\"3qQJc$RWcb#Few7$$\"3um;%[<]% y9Fjo$\"3?(*eGD$eFO#Few7$$\"3;LL$>[,O[\"Fjo$\"3ge_p3cg-AFew7$$\"31+Dr \\Q4*[\"Fjo$\"39=?'4g)yV?Few7$$\"3-+v[Y2N%\\\"Fjo$\"3(31KT>Few7$$ \"$]\"F0$\"3Wbg\"G>o:w\"Few-Fhn6&FjnF]oF[oF]o-F$6$7S7$Fbo$\"3?$exRS)[! )QFfo7$Fho$\"3W+5oE*=@f$Ffo7$F^p$\"3M7m/<@qeLFfo7$Fcp$\"3D_^(G-rU6$Ffo 7$Fhp$\"3IbVy&e#=')GFfo7$F]q$\"3MVt`3kwvEFfo7$Fbq$\"3)**=nzm7W\\#Ffo7$ Fgq$\"3Ka?X,Nd>BFfo7$F\\r$\"3O4^(p&[j^@Ffo7$Far$\"3/:g4)=Oj*>Ffo7$Ffr$ \"3uBJOj!z#[=Ffo7$F[s$\"3UBu\\1H*ps\"Ffo7$F`s$\"3]#G9O7]**f\"Ffo7$Fes$ \"3MHMq9!)y\"[\"Ffo7$Fjs$\"39XetZ:=w8Ffo7$F_t$\"37')Qg>g\"oG\"Ffo7$Fdt $\"3yKsDyL2)=\"Ffo7$Fit$\"3!y?jC;x.6\"Ffo7$F^u$\"3l]fIWyOE5Ffo7$Fcu$\" 3Md'Q;sTKd*Few7$Fhu$\"3=+;)ppQ!p))Few7$F]v$\"3CZ?>MqnY#)Few7$Fbv$\"3r_ 9?\\j\"Qk(Few7$Fgv$\"3#zc8)=!*4HrFew7$F\\w$\"3,at)zX#p7mFew7$Faw$\"3O@ 8E&pge6'Few7$Fgw$\"3D,a8!\\eQr&Few7$F\\x$\"3>&=s`(GJ4`Few7$Fax$\"3Vb:l #eL9#\\Few7$Ffx$\"3i*[!pBR%fJFe w7$Fdz$\"3>![lz\"z')GHFew7$Fiz$\"3*[%Re)y0ts#Few7$F^[l$\"3,kA(e[F9`#Fe w7$Fc[l$\"3?=H\"Q\")GNN#Few7$Fh[l$\"3o)3*fQem!=#Few7$F]\\l$\"3h-3f`?>E ?Few7$Fb\\l$\"3'=v:bAJ&z=Few7$Fg\\l$\"3wc.SU6dWv6 H;Few7$Fa]l$\"3G%>#yM1;1:Few7$Ff]l$\"3OO8)o!*pSS\"Few7$F[^l$\"3ks.4Q1$ GI\"Few7$F`^l$\"3'4SSO'fx77Few7$Fe^l$\"3%pzg$4o#H7\"Few-Fhn6&FjnF[oF[o F]o-%+AXESLABELSG6$Q\"t6\"Q.ConcentrationFghl-%&TITLEG6#%TConc.~vs.~Ti me~for~k12~=~0.1,~k21~=~0.2,~k10~=~0.35G-%%VIEWG6$;FboFe^l;F]o$\"\"&! \"*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 1 "Curve 1 " "Conc. of Pethidine in Other Organs" "Conc. of Pethidine in Blood Pl asma" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 137 "Comparison of concentrations of pethidine in the bloodst ream (x1) and the organs (x2) for constants k12 = 0.1, k21 = 0.2, and \+ k10 = 0.35." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "subn1 := simplify(subs(\{k12 = 0.05, k21 = 0.2, k1 0 = 0.35\}, solx1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "subn2 := si mplify(subs(\{k12 = 0.05, k21 = 0.2, k10 = 0.35\}, solx2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&subn1G/-%#x1G6#%\"tG,&-%$expG6#,$F)$!+Qky &e\"!#5$\"+q/LAt!#6*&$\"+`pwnUF1\"\"\"-F,6#,$F)$!+iN@9WF1F8F8" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&subn2G/-%#x2G6#%\"tG,&-%$expG6#,$F) $!+Qky&e\"!#5$\"+lZ$)Q))!#6*&$\"+lZ$)Q))F4\"\"\"-F,6#,$F)$!+iN@9WF1F8! \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "plot(\{clinical_da ta, rhs(subn2), rhs(subn1)\}, t = 0..10, Concentration = 0..0.5, title = `Concentration of Pethidine vs. Time for k12 = 0.05, k21 = 0.2, k10 = 0.35`);" }}{PARA 13 "" 1 "" {GLPLOT2D 884 571 571 {PLOTDATA 2 "6(-% 'CURVESG6$7X7$$\"\"!F)F(7$$\"3GLLL3x&)*3\"!#=$\"3%4sq`.0rj#!#?7$$\"3em mm;arz@F-$\"3W@Wxg3;0^F07$$\"3v***\\7y%*z7$F-$\"31NQ--<'=7(F07$$\"3[LL $e9ui2%F-$\"3H5%*3bWmA!*F07$$\"3z***\\(oMrU^F-$\"3r&=MCiPG5\"!#>7$$\"3 nmmm\"z_\"4iF-$\"3uZd\"p`E,H\"FE7$$\"3Unmmm6m#G(F-$\"3?v79r$HfY\"FE7$$ \"39ommT&phN)F-$\"3(e7g\"H/iH;FE7$$\"3A,+v=ddC%*F-$\"373%QH;I6y\"FE7$$ \"3KLLe*=)H\\5!#<$\"3^aU0mP&=#>FE7$$\"3smm\"z/3uC\"Fgn$\"3QudE*eNh:#FE 7$$\"3!****\\7LRDX\"Fgn$\"35-*poJ1_O#FE7$$\"3%om;zR'ok;Fgn$\"3sQ)3Mw. \"\\DFE7$$\"33++D1J:w=Fgn$\"3t]'f1wJIq#FE7$$\"3oLLL3En$4#Fgn$\"3#[#GLE y'R$GFE7$$\"3#pmmT!RE&G#Fgn$\"3w02uV#['GHFE7$$\"3D+++D.&4]#Fgn$\"3Cz[* p<;X,$FE7$$\"3;+++vB_*=)=$FE7$$\"3?LLL$Q*o]RFgn$\"3iASt&[\"pyJFE7$$\"3m++D\"=lj;%Fgn $\"3u4-5s$*=gJFE7$$\"3S++vV&R Y2aFgn$\"3G5,QNTBPHFE7$$\"3Znm;zXu9cFgn$\"3IElz3s,()GFE7$$\"34+++]y))G eFgn$\"3#Hp,A8QF$GFE7$$\"3H++]i_QQgFgn$\"3;N-\"*3;rxFFE7$$\"3b++D\"y%3 TiFgn$\"3\"f#QnaD-BFFE7$$\"3+++]P![hY'Fgn$\"3Ap1vw=,hEFE7$$\"3iKLL$Qx$ omFgn$\"3)of:x&yV/EFE7$$\"3Y+++v.I%)oFgn$\"3WS/R1dUVDFE7$$\"3?mm\"zpe* zqFgn$\"3'y(y8.R\"y[#FE7$$\"3;,++D\\'QH(Fgn$\"3d#GGEgtoU#FE7$$\"3%HL$e 9S8&\\(Fgn$\"3SBw#HNt&pBFE7$$\"3s++D1#=bq(Fgn$\"3Aa')pJO))4BFE7$$\"3\" HLL$3s?6zFgn$\"3;#FE7$ $\"3enmmm*RRL)Fgn$\"3OtnT([6U8#FE7$$\"3%zmmTvJga)Fgn$\"3?+%4R[\">w?FE7 $$\"3]MLe9tOc()Fgn$\"3J9\"p1nP%>?FE7$$\"31,++]Qk\\*)Fgn$\"3aP3Ou!R!o>F E7$$\"3![LL3dg6<*Fgn$\"3!\\:H(=)z+\">FE7$$\"3%ymmmw(Gp$*Fgn$\"3y_!\\AF-7$Fdp$\"3Avj*\\zjf1#F-7$Fip$\"3&\\&H]Tp[2>F-7$F^q$ \"3%H,4Wp_=w\"F-7$Fcq$\"3GA\")zc*zJj\"F-7$Fhq$\"3ItgOoSUD:F-7$F]r$\"3* G)zLavf29F-7$Fbr$\"3[eJ\"F-7$Fgr$\"3WS3bm2`<7F-7$F\\s$\"3=#[o&G6 ]P6F-7$Fas$\"39\"Q\"o_Gec5F-7$Ffs$\"3O7A'fS!pc)*FE7$F[t$\"33@A05$p^<*F E7$F`t$\"3WmFSU0\\(f)FE7$Fet$\"3h!*R;!zp<-)FE7$Fjt$\"3ycN)zS`9Z(FE7$F_ u$\"3iXKYp`nGqFE7$Fdu$\"3iUjR#fj_e'FE7$Fiu$\"3y4Tq7\"[?;'FE7$F^v$\"3/X s2CkXzdFE7$Fcv$\"3ipX+p9z%F E7$Fbw$\"3dG8>fUZ,XFE7$Fgw$\"3CwQ\\.6GdUFE7$F\\x$\"3(=siIq/*3SFE7$Fax$ \"3EJwfZfa\"z$FE7$Ffx$\"3Q)=@84K*zNFE7$F[y$\"33u5z\"=RsQ$FE7$F`y$\"3q5 (f;3_$*>$FE7$Fey$\"3alHeE\"G2.$FE7$Fjy$\"3i.S(*3D\")pGFE7$F_z$\"3FV?rV O%3s#FE7$Fdz$\"3O&GYBGpDf#FE7$Fiz$\"3;C96nD#\\X#FE7$F^[l$\"3gmd>OzlRBF E7$Fc[l$\"3+%F-7$$\"\"\"F)$ \"3y**************GF-7$$\"3++++++++:Fgn$\"3-+++++++AF-7$$\"\"#F)$\"3#* *************z\"F-7$$\"3++++++++DFgn$\"3%**************\\\"F-7$$\"\"$F )$\"3+++++++]7F-7$$\"\"%F)$\"3?+++++++'*FE7$$\"\"'F)$\"3y************* *fFE7$$\"\")F)$\"3#**************z$FE7$F]\\l$\"3/+++++++CFE-Fb\\l6&Fd \\lFe\\lFe\\lF(-%+AXESLABELSG6$Q\"t6\"Q.ConcentrationFfil-%&TITLEG6#%d oConcentration~of~Pethidine~vs.~Time~for~k12~=~0.05,~k21~=~0.2,~k10~=~ 0.35G-%%VIEWG6$;F(F]\\l;F($\"\"&Ff\\l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 1 "Conc. of Pethidine in Other Organs" "Conc. of Pethidine in Blood Plasma" "Clinical Data for Conc. in Blood Plasma" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 155 "plot(\{rhs(sub n2), rhs(subn1)\}, t = 40..50, Concentration = 0..0.0001, title = `Con centration of Pethidine vs. Time for k12 = 0.05, k21 = 0.2, k10 = 0.35 `);" }}{PARA 13 "" 1 "" {GLPLOT2D 886 592 592 {PLOTDATA 2 "6'-%'CURVES G6$7S7$$\"#S\"\"!$\"3sY2DE2_a:!#@7$$\"3Rmm;arz@S!#;$\"3>aq&3)oq,:F-7$$ \"35L$e9ui2/%F1$\"35GG_sd@d9F-7$$\"3omm\"z_\"4iSF1$\"3*yNajg`(39F-7$$ \"3ummT&phN3%F1$\"3!)Q)Q5y(fh8F-7$$\"3CL$e*=)H\\5%F1$\"3H!*eg[LB;8F-7$ $\"3Xm;z/3uCTF1$\"3CE$R3*f_v7F-7$$\"3;+]7LRDXTF1$\"3roGMS?qM7F-7$$\"3# om\"zR'ok;%F1$\"3W\"F-7$$\"37+]i5`h(=%F1$\"3u`e,e^[a6F-7$$\"3b LL$3En$4UF1$\"3[l*)px=M:6F-7$$\"3#pm;/RE&GUF1$\"3wOjwF_'>3\"F-7$$\"3!) ****\\K]4]UF1$\"3_yDq1YeX5F-7$$\"3;++]PAvrUF1$\"3]Uj.^`G55F-7$$\"3=++] nHi#H%F1$\"3EH@$*p+'Rx*!#A7$$\"3Qm;z*ev:J%F1$\"3'e>R&e'yX[*F_p7$$\"30L L$347TL%F1$\"3e-E.$H1;:*F_p7$$\"3?LLLjM?`VF1$\"3Y!=[N6(py))F_p7$$\"3)* **\\7o7TvVF1$\"3_p\"=zch9d)F_p7$$\"3OLLLQ*o]R%F1$\"3^IyqV\")Q3$)F_p7$$ \"32+]7=lj;WF1$\"3KziZ1X.H!)F_p7$$\"3J+]PaRY2a%F1$\"3om!ROk=Yf'F_p7$$\"3%om;zXu9c%F1$\"3Ca5QgWP\"Q'F_ p7$$\"35+++&y))Ge%F1$\"3i@+C#H6$ohF_p7$$\"3.++DE&QQg%F1$\"3CU+bihvmfF_ p7$$\"3C+]7y%3Ti%F1$\"3'\\'=+1B,ydF_p7$$\"3#)***\\P![hYYF1$\"3Q>+-h5Vv bF_p7$$\"3iLLLQx$om%F1$\"3wE,h8$o%*R&F_p7$$\"3C++]P+V)o%F1$\"3'>\\tlL; x@&F_p7$$\"3im;zpe*zq%F1$\"3wB()\\i7Je]F_p7$$\"37++]#\\'QHZF1$\"37QB-j kg*)[F_p7$$\"3cL$e9S8&\\ZF1$\"3w,tH?'4gt%F_p7$$\"3#)**\\i?=bqZF1$\"3-% RXr\"=h!e%F_p7$$\"3-LL$3s?6z%F1$\"3O\\_`SFhLWF_p7$$\"3y**\\7`Wl7[F1$\" 3Ep))H+.x%G%F_p7$$\"3%pmmm*RRL[F1$\"3yC4`(4Vh9%F_p7$$\"3)pm;a<.Y&[F1$ \"3!*p5ImT,4SF_p7$$\"3kL$e9tOc([F1$\"3oZ'fSL+v(QF_p7$$\"35+++&Qk\\*[F1 $\"3=a()pd(f/w$F_p7$$\"3mLL3dg6<\\F1$\"3n\"R^$>klIOF_p7$$\"3hmmmw(Gp$ \\F1$\"3$e8aVHf$=NF_p7$$\"3')**\\7oK0e\\F1$\"3(42I)Q/X-MF_p7$$\"3I+](= 5s#y\\F1$\"3mzs*G,*3&H$F_p7$$\"#]F*$\"3'QWVl!z[$=$F_p-%'COLOURG6&%$RGB G$\"#5!\"\"$F*F*Fa[l-F$6$7S7$F($\"3%eiA#fW\"zG\"F-7$F/$\"3uW\\(>>_TC\" F-7$F5$\"3'pJ! [oj*)F_p7$Fao$\"3'Q2+mKiAm)F_p7$Ffo$\"3'=g*zv7!)p$)F_p7$F[p$\"35\\c\\m &3t4)F_p7$Fap$\"3]yo#e[`v&yF_p7$Ffp$\"33\"p:-Y%o\"e(F_p7$F[q$\"35!ofhC zbN(F_p7$F`q$\"3W>9k3f.,rF_p7$Feq$\"3ULU(*Q<3$)oF_p7$Fjq$\"3!4p;'o0k^m F_p7$F_r$\"3\"3*4Pf'G&F_p7$Fbt$\"3jCg7$Gy+6&F_p7$Fgt$\"3Pu*=GJ(4V\\F_p7$F\\ u$\"3!QP%>#RIny%F_p7$Fau$\"3\"3X]t8+*=YF_p7$Ffu$\"3Q_Z]XD7tWF_p7$F[v$ \"3A*z:!Q\"\\DK%F_p7$F`v$\"37TO=)R*[!>%F_p7$Fev$\"3?Db`=bs]SF_p7$Fjv$ \"3)fI<63yM#RF_p7$F_w$\"3)\\DL]%)QZz$F_p7$Fdw$\"3yA&e\"=x&Hn$F_p7$Fiw$ \"3C')RaT'\\'\\NF_p7$F^x$\"3!)[7:3X![V$F_p7$Fcx$\"3#HfQ'f2?@LF_p7$Fhx$ \"3XfVNX*[A@$F_p7$F]y$\"3!Q***z " 0 "" {MPLTEXT 1 0 74 "subn_value_1 := sim plify(subs(\{k12 = 0.1, k21 = 0.11, k10 = 0.3\}, solx1));" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 75 "subn_value_1_2 := simplify(subs(\{k12 =0.1, \+ k21 = 0.11, k10 = 0.3\}, solx2));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "unassign('k12','k21', 'k10');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %-subn_value_1G/-%#x1G6#%\"tG,&-%$expG6#,$F)$!+I)pWg(!#6$\"+!4XNu%F1*& $\"+!\\Xc_%!#5\"\"\"-F,6#,$F)$!+%/subn_value_1_2G/-%#x2G6#%\"tG,&-%$expG6#,$F)$!+I)pWg (!#6$\"+!*o*pR\"!#5*&$\"+!*o*pR\"F4\"\"\"-F,6#,$F)$!+ " 0 "" {MPLTEXT 1 0 177 "plot(\{clinical_data, rhs (subn_value_1), rhs(subn_value_1_2)\}, t=0..10, Concentration=0..0.5, \+ title = `Concentration of Pethidine vs. Time for k12 = 0.1, k21 = 0.11 , k10 = 0.3`);" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 963 588 588 {PLOTDATA 2 "6( -%'CURVESG6$7S7$$\"\"!F)$\"3#*******)*******\\!#=7$$\"3emmm;arz@F,$\"3 W$zX0AWPe%F,7$$\"3[LL$e9ui2%F,$\"3uny&eezk31)Rbh#F,7$$\"33++D1J:w=F D$\"31YiLuE=;CF,7$$\"3oLLL3En$4#FD$\"3aG`\"e1V)GAF,7$$\"3#pmmT!RE&G#FD $\"3%*)fF2[\\u2#F,7$$\"3D+++D.&4]#FD$\"3w>1f9O'4#>F,7$$\"3;+++vB_5F,7$$\"3CML$e9Ege%FD$\"3esb!=@oC`*!#>7$$\"3]LLeR\"3Gy%FD $\"3)Q$HO&opk(*)Ffr7$$\"3emm;/T1&*\\FD$\"3LC&>hkJRU)Ffr7$$\"3=nm\"zRQb @&FD$\"3;ZY2aFD$\"3;aIp\"eN]Z(Ffr7$$\"3Znm;zXu9 cFD$\"33IdY2!4L0(Ffr7$$\"34+++]y))GeFD$\"3?lqDyj0_mFfr7$$\"3H++]i_QQgF D$\"3-$*[X&[u/H'Ffr7$$\"3b++D\"y%3TiFD$\"3Y#y-'[HInfFfr7$$\"3+++]P![hY 'FD$\"3:i//I7MYFfr7$$\"3%HL$e9S8&\\(FD$\"3$4K;'\\t)pPUFfr7$$\"3\"HLL$3s?6zFD$\"3#3bJU>..1%Ffr7$$\" 3a***\\7`Wl7)FD$\"3!e4;'eCt()QFfr7$$\"3enmmm*RRL)FD$\"3xfa!\\.\"=LPFfr 7$$\"3%zmmTvJga)FD$\"31$=uFTmfe$Ffr7$$\"3]MLe9tOc()FD$\"3q_:%[q'*)\\MF fr7$$\"31,++]Qk\\*)FD$\"34b<>6L(GL$Ffr7$$\"3![LL3dg6<*FD$\"3V\"G6j'pT2 KFfr7$$\"3%ymmmw(Gp$*FD$\"3!\\JWw^BC5$Ffr7$$\"3C++D\"oK0e*FD$\"35\"p[# e:P(*HFfr7$$\"35,+v=5s#y*FD$\"3KH?fJ7'H!HFfr7$$\"#5F)$\"3T?\"\\LCcw!GF fr-%'COLOURG6&%$RGBG$Ffz!\"\"F(F(-F$6$7,7$$\"3++++++++]F,$\"3%)******* ******>%F,7$$\"\"\"F)$\"3y**************GF,7$$\"3++++++++:FD$\"3-+++++ ++AF,7$$\"\"#F)$\"3#**************z\"F,7$$\"3++++++++DFD$\"3%********* *****\\\"F,7$$\"\"$F)$\"3+++++++]7F,7$$\"\"%F)$\"3?+++++++'*Ffr7$$\"\" 'F)$\"3y**************fFfr7$$\"\")F)$\"3#**************z$Ffr7$Fez$\"3/ +++++++CFfr-Fjz6&F\\[lF(F][lF(-F$6$7W7$F(F(7$$\"3GLLL3x&)*3\"F,$\"38F' ztRm-I&!#?7$F.$\"3d.(erk%>J5Ffr7$$\"3v***\\7y%*z7$F,$\"3i!R*)\\zY[W\"F fr7$F3$\"3>?&=gH^&Q=Ffr7$$\"3z***\\(oMrU^F,$\"3wPc(*G4^eAFfr7$F8$\"3)o a!y)o9al#Ffr7$$\"3Unmmm6m#G(F,$\"3Zh,**)H_F.$Ffr7$F=$\"3_#oR76k))Q$Ffr 7$FB$\"3Oy6sB\"R%QSFfr7$FH$\"3=K6MlXYvXFfr7$FM$\"3a6hxVFEr]Ffr7$FR$\"3 QpM\"\\TV__&Ffr7$FW$\"3Twy#RS#pBfFfr7$Ffn$\"3?nN;%*eW#G'Ffr7$F[o$\"3?: -![5$RflFfr7$F`o$\"36^*QJK49$oFfr7$Feo$\"3GF(y<$o/mqFfr7$Fjo$\"3#oCaoG 7\"fsFfr7$F_p$\"3,$=/x(e*)3uFfr7$Fdp$\"33K!=*))fIevFfr7$Fip$\"3c'Q)4hX qiwFfr7$F^q$\"3Ee7)4oA5w(Ffr7$Fcq$\"3,9D&G?H#HyFfr7$Fhq$\"3eW'Rz+0d)yF fr7$F]r$\"3$zDzTpNL#zFfr7$Fbr$\"3/nM:38ZZzFfr7$Fhr$\"3%[YXgI_t&zFfr7$F ]s$\"3WT%=zCQh&zFfr7$Fbs$\"3C]y)HAcJ%zFfr7$Fgs$\"3\"oGnG%p7BzFfr7$F\\t $\"3G^Kc#35L*yFfr7$Fat$\"31k-@J]]ayFfr7$Fft$\"3qc)*3hh_4yFfr7$F[u$\"3- 3WYW!G,w(Ffr7$F`u$\"3MR#)e8\"z#*p(Ffr7$Feu$\"3.PS989%)RwFfr7$Fju$\"3+V 1lJv+svFfr7$F_v$\"3ok-nK&3r](Ffr7$Fdv$\"3-zW\"e9&*GV(Ffr7$Fiv$\"3k\"\\ b3Ua.O(Ffr7$F^w$\"3_dl#QV.@G(Ffr7$Fcw$\"32l4C=Pa.sFfr7$Fhw$\"3\"pj&HNu X>rFfr7$F]x$\"3nwSrsT)p.(Ffr7$Fbx$\"3qb;'Gw/9&pFfr7$Fgx$\"3#3En[QSb'oF fr7$F\\y$\"35)*z$4xcfy'Ffr7$Fay$\"37;0PKZ9%p'Ffr7$Ffy$\"3XUxNOyk6mFfr7 $F[z$\"38'eYOC`M_'Ffr7$F`z$\"3I%QT,*e%*QkFfr7$Fez$\"3!3vv'4X;[jFfr-Fjz 6&F\\[lF][lF][lF(-%+AXESLABELSG6$Q\"t6\"Q.ConcentrationFcil-%&TITLEG6# %coConcentration~of~Pethidine~vs.~Time~for~k12~=~0.1,~k21~=~0.11,~k10~ =~0.3G-%%VIEWG6$;F(Fez;F($\"\"&F^[l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 1 "Conc. of Pethidine in Blood Plasma" "Clinical Data for Conc. of Pethidine in Blood Plasma" "Conc. of Pethidine in O ther Organs" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 179 "plot(\{cli nical_data, rhs(subn_value_1), rhs(subn_value_1_2)\}, t=40..50, Concen tration=0..0.01, title = `Concentration of Pethidine vs. Time for k12 \+ = 0.1, k21 = 0.11, k10 = 0.3`);" }}{PARA 13 "" 1 "" {GLPLOT2D 916 589 589 {PLOTDATA 2 "6(-%'CURVESG6$7S7$$\"#S\"\"!$\"3?\"*QVH$H]E#!#?7$$\"3 Rmm;arz@S!#;$\"3)3;EQj$zFAF-7$$\"35L$e9ui2/%F1$\"33Xv!p[$*e>#F-7$$\"3o mm\"z_\"4iSF1$\"3!3fGY(Qcg@F-7$$\"3ummT&phN3%F1$\"3^+jl#>ub7#F-7$$\"3C L$e*=)H\\5%F1$\"3iRJj\"\\884#F-7$$\"3Xm;z/3uCTF1$\"31!pq<+V+1#F-7$$\"3 ;+]7LRDXTF1$\"3d?cP)*o:G?F-7$$\"3#om\"zR'ok;%F1$\"3?Sg'\\M*p&*>F-7$$\" 37+]i5`h(=%F1$\"3Y%*ojlG'Q'>F-7$$\"3bLL$3En$4UF1$\"3\"[)3is\\kJ>F-7$$ \"3#pm;/RE&GUF1$\"3K.SZXbq.>F-7$$\"3!)****\\K]4]UF1$\"3[&3N'[cts=F-7$$ \"3;++]PAvrUF1$\"3t=GgLb9U=F-7$$\"3=++]nHi#H%F1$\"3I!p2,>RJ\"=F-7$$\"3 Qm;z*ev:J%F1$\"3_KYleX>(y\"F-7$$\"30LL$347TL%F1$\"3!p0vIlEov\"F-7$$\"3 ?LLLjM?`VF1$\"3S\"R;n80:t\"F-7$$\"3)***\\7o7TvVF1$\"3*f.g%R!4Dq\"F-7$$ \"3OLLLQ*o]R%F1$\"3]f$z;*zCx;F-7$$\"32+]7=lj;WF1$\"3'*G_,HO'*\\;F-7$$ \"3J+]PaR\\:F-7 $$\"3sm;zRQb@XF1$\"3j!GN1rOM_\"F-7$$\"3?+](=>Y2a%F1$\"3Zdp)Q)QO,:F-7$$ \"3%om;zXu9c%F1$\"3QW$*\\,a9F- 7$$\"3.++DE&QQg%F1$\"3qipD[8.J9F-7$$\"3C+]7y%3Ti%F1$\"3hSON!=U\"49F-7$ $\"3#)***\\P![hYYF1$\"3Il<-U+B&Q\"F-7$$\"3iLLLQx$om%F1$\"39qrmM-4k8F-7 $$\"3C++]P+V)o%F1$\"34rr=y\\(=M\"F-7$$\"3im;zpe*zq%F1$\"3&Qe:5Fd?K\"F- 7$$\"37++]#\\'QHZF1$\"3ElGjIgs+8F-7$$\"3cL$e9S8&\\ZF1$\"3_5Q#oPp4G\"F- 7$$\"3#)**\\i?=bqZF1$\"3;UVi&oQ1E\"F-7$$\"3-LL$3s?6z%F1$\"30\\p/7P2T7F -7$$\"3y**\\7`Wl7[F1$\"3nu)3iE;4A\"F-7$$\"3%pmmm*RRL[F1$\"3\"oI()3#=\" =?\"F-7$$\"3)pm;a<.Y&[F1$\"3G1qV,Re#=\"F-7$$\"3kL$e9tOc([F1$\"3gp!*GL! >Q;\"F-7$$\"35+++&Qk\\*[F1$\"3Adr_$pQo9\"F-7$$\"3mLL3dg6<\\F1$\"3vykh \"y\"oF6F-7$$\"3hmmmw(Gp$\\F1$\"3]*zkL()=36\"F-7$$\"3')**\\7oK0e\\F1$ \"3K#=&3ir6$4\"F-7$$\"3I+](=5s#y\\F1$\"33\\RPN'Qk2\"F-7$$\"#]F*$\"39p* z%\\))ze5F--%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*F`[l-F$6$7,7$$\"3++++++++] !#=$\"3%)*************>%Fg[l7$$\"\"\"F*$\"3y**************GFg[l7$$\"3+ +++++++:!#<$\"3-+++++++AFg[l7$$\"\"#F*$\"3#**************z\"Fg[l7$$\"3 ++++++++DFb\\l$\"3%**************\\\"Fg[l7$$\"\"$F*$\"3+++++++]7Fg[l7$ $\"\"%F*$\"3?+++++++'*!#>7$$\"\"'F*$\"3y**************fFi]l7$$\"\")F*$ \"3#**************z$Fi]l7$$F^[lF*$\"3/+++++++CFi]l-Fjz6&F\\[lF`[lF][lF `[l-F$6$7S7$F($\"3U*zA#GzdqmF-7$F/$\"3e<,jb3#4c'F-7$F5$\"39/@,[k(pY'F- 7$F:$\"31B_8$>KHO'F-7$F?$\"3C\"[$f)y)))fiF-7$FD$\"3kagb)*>**ehF-7$FI$ \"3Ih/)\\7,p1'F-7$FN$\"3cvGsDr*H(fF-7$FS$\"3?z:%=15u(eF-7$FX$\"3#Rz3+ \">l$y&F-7$Fgn$\"3[!*Hfi.x)o&F-7$F\\o$\"3&ebsLx)[1cF-7$Fao$\"34lg#oM#G :bF-7$Ffo$\"3D'3d[F%>DaF-7$F[p$\"3(=>4)H.xR`F-7$F`p$\"31R2o%3jLE&F-7$F ep$\"3Ej@9m\"HR<&F-7$Fjp$\"3GI[&[(oN*4&F-7$F_q$\"3Z)>4j\"G'R,&F-7$Fdq$ \"3xZyP'\\o&R\\F-7$Fiq$\"3#e<'))=a@f[F-7$F^r$\"3e#GXKc:Ry%F-7$Fcr$\"3) R\"\\T-<\"fWiXF-7$Fbs$\"3[6i v,,f'[%F-7$Fgs$\"3ju=L<\\e@WF-7$F\\t$\"3c4oYY]V_VF-7$Fat$\"3!Gj8#G %F-7$Fft$\"3(3&p&o=`W@%F-7$F[u$\"3y,\\b$z))*\\TF-7$F`u$\"3W:g(zlm&zSF- 7$Feu$\"3)\\P))G74t,%F-7$Fju$\"3A^*=HL%)=&RF-7$F_v$\"3A>310/_$*QF-7$Fd v$\"3-8e,\\!*pIQF-7$Fiv$\"3-$f(z,\\^sPF-7$F^w$\"3$**)==!=SEr$F-7$Fcw$ \"3Gu0_=0-bOF-7$Fhw$\"3qAuy\"*fl&f$F-7$F]x$\"3GO^V(e#RRNF-7$Fbx$\"3c,A nQbw#[$F-7$Fgx$\"3>q8t)=-vU$F-7$F\\y$\"3yoxZYV\\xLF-7$Fay$\"3:%R'*zRw5 K$F-7$Ffy$\"3a>c5'Q99F$F-7$F[z$\"3_0OFd?G>KF-7$F`z$\"3Mj`I[I;qJF-7$Fez $\"3x$4kO38#=JF--Fjz6&F\\[lF][lF][lF`[l-%+AXESLABELSG6$Q\"t6\"Q.Concen trationFfhl-%&TITLEG6#%coConcentration~of~Pethidine~vs.~Time~for~k12~= ~0.1,~k21~=~0.11,~k10~=~0.3G-%%VIEWG6$;F(Fez;F`[l$F\\\\l!\"#" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 1 "Conc. of Pethidine in Blood Plasma" "Conc. of Pethidine in Other Organs" "Conc. of Pethidin e in Other Organs" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 39 "For cases \+ where k21 and k10 are similar" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "subn_value_2 := simplify(subs(\{k12 = 0.1, k21 = 0.29, k10 = 0.30\}, solx1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "subn_value_2_2 := simplify(subs(\{k12 = 0.1, k21 = 0. 29, k10 = 0.30\}, solx2));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "unass ign('k12','k21', 'k10');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-subn_va lue_2G/-%#x1G6#%\"tG,&-%$expG6#,$F)$!+$)pWg;!#5$\"+5%/ subn_value_2_2G/-%#x2G6#%\"tG,&-%$expG6#,$F)$!+$)pWg;!#5$\"+!*o*pR\"F1 *&$\"+!*o*pR\"F1\"\"\"-F,6#,$F)$!+:IbR_F1F7!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 172 "plot(\{rhs(subn_value_2), rhs(subn_value_2_2 ), clinical_data\}, t=0..10, Concentration = 0..0.5, title = `Conc. of Pethidine vs. Time for k12 = 0.1, k21 = 0.29, k10 = 0.30`);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 941 597 597 {PLOTDATA 2 "6(-%'CURVESG6$7X7$$\"\"!F)F(7$$\"3GLLL3x&)*3\"!#=$\"3 %y*344<`[_!#?7$$\"3emmm;arz@F-$\"3V1Q3#Qi6,\"!#>7$$\"3v***\\7y%*z7$F-$ \"3t*=()RuQZS\"F67$$\"3[LL$e9ui2%F-$\"3k>(okv%F67$$\"33++D1J:w=Fgn$\"3D,I_6DM.]F67$$\"3oL LL3En$4#Fgn$\"3\"y!=M*H'[._F67$$\"3#pmmT!RE&G#Fgn$\"3va#*H[H**R`F67$$ \"3D+++D.&4]#Fgn$\"3c`kF)fCXX&F67$$\"3;+++vB_Z@Vr$ybF67$$\"3&om;z*ev:JFgn$\"3K_l#3w#=(f&F67$ $\"3_LLL347TLFgn$\"3_SUm)p2af&F67$$\"3nLLLLY.KNFgn$\"3/)Ru?\"p0wbF67$$ \"33++D\"o7Tv$Fgn$\"32@\\fMO%e`&F67$$\"3?LLL$Q*o]RFgn$\"3'4-7r.jl[&F67 $$\"3m++D\"=lj;%Fgn$\"3B-jVmv!*>aF67$$\"3S++vV&R:\"3 ()R<&F67$$\"3emm;/T1&*\\Fgn$\"3'[P(GK=Jv]F67$$\"3=nm\"zRQb@&Fgn$\"3#Q! fj9zZn\\F67$$\"3:++v=>Y2aFgn$\"3'))Q2W^*4q[F67$$\"3Znm;zXu9cFgn$\"3iJ& pP7*4iZF67$$\"34+++]y))GeFgn$\"3_wS4TRB[YF67$$\"3H++]i_QQgFgn$\"3)*3%G 0n#HNXF67$$\"3b++D\"y%3TiFgn$\"3VKBR[o8DWF67$$\"3+++]P![hY'Fgn$\"3=PB+ /;S-VF67$$\"3iKLL$Qx$omFgn$\"3;7R+n$)=#>%F67$$\"3Y+++v.I%)oFgn$\"3KhmM B=+vSF67$$\"3?mm\"zpe*zqFgn$\"3YC^Zy`bpRF67$$\"3;,++D\\'QH(Fgn$\"3c5oO nBPbQF67$$\"3%HL$e9S8&\\(Fgn$\"3%y:wpF8#\\PF67$$\"3s++D1#=bq(Fgn$\"35v :%F-7$$\"\"\"F)$\" 3y**************GF-7$$\"3++++++++:Fgn$\"3-+++++++AF-7$$\"\"#F)$\"3#*** ***********z\"F-7$$\"3++++++++DFgn$\"3%**************\\\"F-7$$\"\"$F)$ \"3+++++++]7F-7$$\"\"%F)$\"3?+++++++'*F67$$\"\"'F)$\"3y**************f F67$$\"\")F)$\"3#**************z$F67$F]\\l$\"3/+++++++CF6-Fb\\l6&Fd\\l F(Fe\\lF(-F$6$7S7$F($\"3#*******)*******\\F-7$F2$\"3+F#*=(y.de%F-7$F=$ \"3U(G2]\\K\"eUF-7$FG$\"3)>al9],F#RF-7$FQ$\"3e**G&4dDoh$F-7$Fen$\"3q#R @62W3M$F-7$F[o$\"3u5aEY*4y5$F-7$F`o$\"3i\\?\"=.>u)GF-7$Feo$\"3'p02gT*p zEF-7$Fjo$\"3mKo=!*p3\"\\#F-7$F_p$\"3L$=P\"\\4P9BF-7$Fdp$\"3iQjGX\"[=< #F-7$Fip$\"3X(Q%)oi'pC?F-7$F^q$\"3)[b4oDa(*)=F-7$Fcq$\"3+C)))>Rt1x\"F- 7$Fhq$\"3s0iB]e)4n\"F-7$F]r$\"3e=.mE2$>c\"F-7$Fbr$\"3E/)\\b'Q(oZ\"F-7$ Fgr$\"3[i1fl`e&Q\"F-7$F\\s$\"3h!*H!=u%f4%*F67$F_u$\"3s8%*yo7wx*)F67$Fdu$\"3\"3<`mv37 a)F67$Fiu$\"3=fu(3*[/?\")F67$F^v$\"3.%HTQD%)[t(F67$Fcv$\"37&3H55>aQ(F6 7$Fhv$\"3-D+\\U$4>-(F67$F]w$\"3!f^-=8*\\:nF67$Fbw$\"3Wr%\\w\"zu2kF67$F gw$\"3>6&fjKi[9'F67$F\\x$\"3=ksIx3^teF67$Fax$\"3E@M\")[(pBj&F67$Ffx$\" 39P6'*Q1\"RR&F67$F[y$\"3QPAj`_Ct^F67$F`y$\"3qGG>8T[a\\F67$Fey$\"39q_o6 E![v%F67$Fjy$\"3Elztw\"*)4c%F67$F_z$\"3kTI)oMZ%yVF67$Fdz$\"3^aS,n-k=UF 67$Fiz$\"3(*RGb^R@WSF67$F^[l$\"3!*o`D?)3c*QF67$Fc[l$\"3IuCBMwPWPF67$Fh [l$\"3ADF5ZA=1OF67$F]\\l$\"3yLA3?=QkMF6-Fb\\l6&Fd\\lFe\\lFe\\lF(-%+AXE SLABELSG6$Q\"t6\"Q.ConcentrationFhil-%&TITLEG6#%\\oConc.~of~Pethidine~ vs.~Time~for~k12~=~0.1,~k21~=~0.29,~k10~=~0.30G-%%VIEWG6$;F(F]\\l;F($ \"\"&Ff\\l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 43.000000 42.000000 0 1 "C onc. of Pethidine in Other Organs" "Conc. of Pethidine in Blood Plasma " "Clinical Data for Conc. of Pethidine in Blood Plasma" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 264 "plot(\{rhs(subn_value_2), rhs(subn _value_2_2), [[0.5,.42],[1,0.29],[1.5,0.22],[2,0.18],[2.5,0.15],[3,0.1 25],[4,0.096],[6,0.06],[8,0.038],[10,0.024]]\}, t=40..50, Concentratio n = 0..0.0003, title = `Conc. of Pethidine vs. Time for k12 = 0.1, k21 = 0.29, k10 = 0.30`);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 904 571 571 {PLOTDATA 2 "6(-%'CURVESG6$7S7$$\"#S \"\"!$\"3M[zt)>]E#=!#@7$$\"3Rmm;arz@S!#;$\"3;3`=pD'yv\"F-7$$\"35L$e9ui 2/%F1$\"3mci?DxO.)4W;F-7$$\"3ummT&ph N3%F1$\"3s%)4=!\\=le\"F-7$$\"3CL$e*=)H\\5%F1$\"3ZWJbjZ@J:F-7$$\"3Xm;z/ 3uCTF1$\"3=Nq!)*zk;[\"F-7$$\"3;+]7LRDXTF1$\"3F0()*4rZ?V\"F-7$$\"3#om\" zR'ok;%F1$\"3EK#43t![#Q\"F-7$$\"37+]i5`h(=%F1$\"3gkrUu,yM8F-7$$\"3bLL$ 3En$4UF1$\"33'pAY*3V(G\"F-7$$\"3#pm;/RE&GUF1$\"3C0\"*)*e)=rC\"F-7$$\"3 !)****\\K]4]UF1$\"3/F*=hSXK?\"F-7$$\"3;++]PAvrUF1$\"3uk6K3Zug6F-7$$\"3 =++]nHi#H%F1$\"3ix\\fO%377\"F-7$$\"3Qm;z*ev:J%F1$\"3'Q7'*[jtk3\"F-7$$ \"30LL$347TL%F1$\"3/xTG#Qol/\"F-7$$\"3?LLLjM?`VF1$\"3oWBU#H7R,\"F-7$$ \"3)***\\7o7TvVF1$\"3eHc*>]`?x*!#A7$$\"3OLLLQ*o]R%F1$\"3'[uV^6Q#e%*Fcq 7$$\"32+]7=lj;WF1$\"3XYVRVZ^D\"*Fcq7$$\"3J+]PaR)) Fcq7$$\"3qLLe9EgeWF1$\"3>$=F#)zv7^)Fcq7$$\"35L$eR\"3GyWF1$\"3L(*f$pjnw B)Fcq7$$\"3emmT5k]*\\%F1$\"3aZK)z5'R_zFcq7$$\"3sm;zRQb@XF1$\"3')Hrm'fM lm(Fcq7$$\"3?+](=>Y2a%F1$\"3l\"Rz#4.2EuFcq7$$\"3%om;zXu9c%F1$\"3Sd;#=& p#[<(Fcq7$$\"35+++&y))Ge%F1$\"3[#fr)*\\\">CpFcq7$$\"3.++DE&QQg%F1$\"3] %f\")z&4\\*GiFcq7$$\"3iLLLQx$om%F1$\"3q4U)oJfK-'Fcq7$$\"3C++]P+V)o%F1 $\"3&*ys++O86eFcq7$$\"3im;zpe*zq%F1$\"3:h7\\a^PDcFcq7$$\"37++]#\\'QHZF 1$\"3taQcs(z!HaFcq7$$\"3cL$e9S8&\\ZF1$\"3A9Tll+k]_Fcq7$$\"3#)**\\i?=bq ZF1$\"3EDV9&H&Qq]Fcq7$$\"3-LL$3s?6z%F1$\"3DwAm$RP,!\\Fcq7$$\"3y**\\7`W l7[F1$\"3`@i$eFD!GZFcq7$$\"3%pmmm*RRL[F1$\"3SL%eFFyzc%Fcq7$$\"3)pm;a<. Y&[F1$\"3EU+Cm(3*4WFcq7$$\"3kL$e9tOc([F1$\"3COAGK2beUFcq7$$\"35+++&Qk \\*[F1$\"3pW4cZF0CTFcq7$$\"3mLL3dg6<\\F1$\"39D<1')*=^(RFcq7$$\"3hmmmw( Gp$\\F1$\"3q'y`yLtk%QFcq7$$\"3')**\\7oK0e\\F1$\"3UQOFjG*Qr$Fcq7$$\"3I+ ](=5s#y\\F1$\"3%y!)>Rny7f$Fcq7$$\"#]F*$\"3eHE>N=-kMFcq-%'COLOURG6&%$RG BG$\"#5!\"\"$F*F*Fa[l-F$6$7,7$$\"3++++++++]!#=$\"3%)*************>%Fh[ l7$$\"\"\"F*$\"3y**************GFh[l7$$\"3++++++++:!#<$\"3-+++++++AFh[ l7$$\"\"#F*$\"3#**************z\"Fh[l7$$\"3++++++++DFc\\l$\"3%******** ******\\\"Fh[l7$$\"\"$F*$\"3+++++++]7Fh[l7$$\"\"%F*$\"3?+++++++'*!#>7$ $\"\"'F*$\"3y**************fFj]l7$$\"\")F*$\"3#**************z$Fj]l7$$ F_[lF*$\"3/+++++++CFj]l-F[[l6&F][lFa[lF^[lFa[l-F$6$7S7$F($\"3-r%)=1bFf AF-7$F/$\"3Qct&yPn*y@F-7$F5$\"3M9a+'z<96#F-7$F:$\"3`NzRO(\\z.#F-7$F?$ \"3WHkyKjdm>F-7$FD$\"3-cRLhT-)*=F-7$FI$\"3]9[NHTgO=F-7$FN$\"3')e8n245v #Q6(ea\"F-7$Fao$\"3!Gpv(Rv[\"\\\"F-7$Ffo$\"3J,L@db!)Q9F-7$F[p $\"37\"=5P:)z*Q\"F-7$F`p$\"3'o:0[WUnM\"F-7$Fep$\"3%z$>[#oxsH\"F-7$Fjp$ \"3)>[8Cm)zc7F-7$F_q$\"3Bbl>$R)H67F-7$Feq$\"3s'>=\"e#*Rs6F-7$Fjq$\"3$e l#))yj:J6F-7$F_r$\"3?+vxEFB$4\"F-7$Fdr$\"35=b;<\"=]0\"F-7$Fir$\"3y]\"[ ***G5@5F-7$F^s$\"3Em!ebZ>u&)*Fcq7$Fcs$\"3dRE&=myI]*Fcq7$Fhs$\"3gCP\"H= 5]?*Fcq7$F]t$\"3uqd#=[!e$*))Fcq7$Fbt$\"3k>!e(HV!He)Fcq7$Fgt$\"3gaO/AJZ *G)Fcq7$F\\u$\"3Ot(*)=q:^,)Fcq7$Fau$\"3#H6I3)R6@xFcq7$Ffu$\"3sd1`g/:mu Fcq7$F[v$\"3f'Q%of#4K?(Fcq7$F`v$\"3)))\\uNr^H(pFcq7$Fev$\"3cZE,yIjHnFc q7$Fjv$\"3FISJ9vW3lFcq7$F_w$\"3S.KQ)37]G'Fcq7$Fdw$\"3a#yqrr!)R2'Fcq7$F iw$\"3OP)4abQ1'eFcq7$F^x$\"3'zW]Av^Am&Fcq7$Fcx$\"3U#zUd;;jY&Fcq7$Fhx$ \"39P\"=7\")*py_Fcq7$F]y$\"30\"4=(*Q#)>6&Fcq7$Fby$\"344RYc5PF\\Fcq7$Fg y$\"3wQ.