(************** Content-type: application/mathematica **************
CreatedBy='Mathematica 5.0'
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
*******************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 132996, 3744]*)
(*NotebookOutlinePosition[ 133661, 3767]*)
(* CellTagsIndexPosition[ 133617, 3763]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Unsteady-State Diffusion and Reaction in a Semi-infinite Medium ",
FontSize->24],
StyleBox["\n",
FontWeight->"Plain",
FontVariations->{"CompatibilityType"->0}],
StyleBox["Author's Data",
FontSize->14,
FontWeight->"Bold"],
StyleBox[": ",
FontSize->14],
StyleBox["Housam BINOUS\nDepartment of Chemical Engineering\nNational \
Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \
binoushousam@yahoo.com ",
FontSize->14,
FontWeight->"Plain"]
}], "Title",
TextAlignment->Center,
FontSize->18,
Background->RGBColor[0.68751, 0.996109, 0.796887]],
Cell[TextData[StyleBox["Reference:C. J. Geankoplis, Transport Processes and \
Unit Operations, 3rd edition, Prentice Hall, 1993.",
FontWeight->"Bold"]], "Subsubtitle",
Background->RGBColor[1, 1, 0.643137]],
Cell[CellGroupData[{
Cell["Governing equation and boundary conditions are:", "Subsubtitle",
Background->RGBColor[1, 1, 0.658824]],
Cell[CellGroupData[{
Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0001580@0005P0000300002`0007T0000k0000
00000000003@3000S0@00215CDH00040B14003H000040000000000000000000000@00003000>0@00
b`0004H000340`00^0<004M4BD<1002000<000B>P7800000X0<000402@000k/1000304/0000000D0
00090P00000400000P4100D000010_ooo`040000;P4H00D0000a0P40000500002`8000001@0000`2
80BP2a80000V1Pl06P3ooooo000@0000`?ooojWooomP2`00b@<000/0000V1Pl0301=HGAXE7U`I@00
`0090000nP800100000000008P040000;@4000D0000D0T02@00500004`900]011@0001@2@08f1PD0
000C0T02R0PE0000n`:0oP00000009010@0000@2011DJFeULb1>IGLPDVm]HFh00:d40000;@4100P0
000b2Z020PX20000Jf<80000
0@40001S01D0003k0R3o00000000T0410000108045AY
KFEc84iUMb1BKfeQKP00[@@0000]0@8010000?010@08000030dLVa`L64P0000
00000000000100000@00000000040@000P2U]VM^J7@00000h3[>0000000000005000000000000000
00000>2^bP000000LViXM:Ff000007AYL7=THVeU00000300000000000000004000010000000000@1
00020=^gIfiXM000002TWLh000000000000D00000000000000000000000000000000000000000000
000000410@410@410@5002D0000<00000P0005@0001H0000J`0001`0001i0000;P0000400000X8`o
i?R`8:002P0P000P0004`000000000000000000000000000000500001[06<0`0000:P0001D0000
E00004/0000Y0000DP0003/0000100000:207P0001D0000E00000/0000B00004@0002@000010000
0:20@00[P400040001<0000000000000000000000000000001@0000H`020:P0001B0000
C04000<0000Poooo0000000000000000T040004000040P0@E01Y06d0I@1c0200CP1U07L0801B06l0
K@1Q06h0000000000@0000400000000000400080^[MQIfQd00000000cP0000000000060000000000
00000;ZKcP0000000000079^J7A`]`00000PM65U84I9A0000002N0@000000000000100000@000000
00000@000P1i]f5WJ7@00000G:S>000000000000H000000000000000h9c>000000000000LViXM7Bg
0000021dHFDP85I40000009h1000000000000040000100000000000100020::gHFMXM00000000000
0000000000000000000000410@410@410@4002D0000<00000`0002P0000<00000P0002D0000<0000
0`0005@0001H0000`0000400000X8`oi?R`0000400000X8`oi?R06D0
M`0P0580K`1]0640KP00000000000>BRbP00000000000000000006i`Ig=dN000001UL`0000000000
0000004000010000000000@1000300ZeIfiXM000003ZLlh000000000000@00000000000000000000
<:?:00000000000000000000LVaXI7=YK65/L71Q0P000000000000000@00004000000000004000<0
"], "Graphics",
ImageSize->{146, 51.75},
ImageMargins->{{152, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0001940@0005P0000200004@0005L0001H0000
00000000000k2@00]`L00215CDH00040A18003<000030000000000000000000000@00003000>0@00
b`0004H000340`00^0<004M4BD<1002000<00;l:Fld00000X0<000402@000kl1000204D0000000D0
00090P00000400000P4100D000010_ooo`040000;P4H00D0000a0P40000500002`8000001@0000`2
00MP2180000V1Pl06P3ooooo000@0000`?ooobP6000P2000:0d000/0000V1Pl0301=HGAXE7U`I@00
T04@0000n`:0oP000000090100000P02011CNFeRKf`00P@0000]0@002000038:TPDj0040003_00P0
000b2XP6>P010000kP080000l02000038:8P@j0040003]00P0000b2[`1>P010000
k0080000b1P40001S00P0
000b2^03K0@10000H`080000/B
Pf<00XHm00:8<00000:FN`00000:00009PH?00X0ooooo`4000000100003k0Q001`000000_0800000
0@828U=iLgAUK@00100002d10@040000l04000<000000?oooooo7ooooooooooooooo3ooooooooooo
ooooQooooolA0000300000P0000;0000400005X0001;00002@000100001J0000B`000180000<0000
0@0001H0000<000060000100000<00000@0000X0000@000000000000000900004000060800001`00
DP0004`100010000P?koo`00000000000000090100000002008045<0N@1]0680K`1/000000000000
000000000000000000000000000000000000000000000000000000000000000000@0007loole0000
2`000400003o0`00P000087ooolH000020000200001o00000000000000000@0010001`002P003@00
001`?`00R3l0001O004000@000L000X000d0000000000>ho00000000l4<00000003`>`0000000?0o
00000000h3l00000003oooioe1lkImXO>fOO7c]WiAlkInXO>fO`7c]WmQlkIo`O>fL283]W7R000000
00000000000000000000000000010@410@410@41/b0U000030000040001C0000E0000080000l0000
2@0004h000010000Z:b=?`2JSClj0000TPD00040001<0000000000000000000000000000001@0000
kfNJ8[l0001C0000E0000080001600002@0005P000010000Z:b=?`2JSClj0000R0H00040001<0000
000000000000000000000000001@0000kVLj9;l0001C0000E0000080000P00002@00038000010000
Z:b=?`2JSClj00000P<00040001<0000000000000000000000000000001@0000k`000;l0001C0000
E0000080000/00002@0003h000010000Z:b=?`2JSClj00008P@00040001<00000000000000000000
00000000001@0000k@000;l0001C0000E0000080000C00002@0002D000010000Z:b=?`2JSClj0000
_0400040001<0000000000000000000000000000001@0000k0000;l0001C0000E00003l000120000
A`0005@000010000Z:b=?`2JSCoJ1@0080H00040001<0000000000000000000000000000001@0000
?@000=H0001C0000E00002@000120000;P0005@000010000Z:b=?`2JSCmB0`0080H00040001<0000
000000000000000000000000001@0000Y@0000H1001C0000E00001L0001200007`0005@000010000
Z:b=?`2JSClP0P0080H00040001<0000000000000000000000000000001@0000?@000=H0001C0000
E00003/0000Z0000@`0003`000010000Z:b=?`2JSCn01@00h0<00040001<00000000000000000000
00000000001@0000?@000=H0001C0000E00001L0000Z00007`0003`000010000Z:b=?`2JSClP0P00
h0<00040001<0000000000000000000000000000001@0000?NHkImH0001C0000E00003P0000A0000
@00002<000010000Z:b=?`2JSClb1@00X0400040001<0000000000000000000000000000001@0000
?KH3`=H0001C0000E00001@0000A0000700002<000010000Z:b=?`2JSCoB0@00X0400040001<0000
000000000000000000000000001@0000?AlRi=H0001B0000C04000800020o_oo0000000000000000
T040000000040P0@E01Y06d0I@1c0200CP1U07L0801B06l0K@1Q06h0003lR8?So?ooog3?:l007b;T
01lRi9L2000Z9070TBDk>CT//@4`70mZ/400000002Z`G2>U/410000OF<4`8C[i>@30000000001_G1L1POIK1
:3@1`3SG1L2@OIK1U>cTi0000000k>CT^]D5`000000000000000000000000000000000410@410@41
0@4002D0000<00000P0002P0000<00000@0002D0000<00000P0005@0001D0000C0000480001C0000
E0000040002X[8do09Z=?``7000P1P000@0004`000000000000000000000000000000500000`00?0
_`0005@0001D0000D00002X0001G0000?0000040002X[8do09Z=?fH7003P0`000@0004`000000000
000000000000000000000500000`0000_`0005@0001D0000900002X0000[0000?0000040002X[8do
09Z=?e83003P0`000@0004`000000000000000000000000000000500000`00S0_`0005@0001D0000
A@000140001<00008`000040002X[8do09Z=?f@6002P0@000@0004`0000000000000000000000000
00000500000`0000_`0005@0001D000080000140000W00008`000040002X[8do09Z=?`@3002P0@00
0@0004`000000000000000000000000000000500000`01KT_`000580001<0@000@00083nool00000
00000000002@0@000@0000@2011D06T0K@1U07<0801>06D0M`0P0580K`1]0640KP000;3RI02DhV@0
T6lFi<0@00010;B1000006aa00000000000003/000160P00010003Lj002O0@00W`4002l/00000000
ool0003`0016;liI1]5^@00000000000202L000@00
00400;3^i>AUDS70L9:S`@0000000:;10809`7@0T/8@000000000000000000000000000000000000
0@410@410@410KkV9@0000`000010000:00000`0000200009@0000`000010000E00005@0000c0000
@P0003T0001D00000@000:R/SCl0VXdoaP@0020600010000C0000000000000000000000000000000
D00006<0;L2W0000E00005@0000;0000@P000180001D00000@000:R/SCl0VXdo3040020600010000
C0000000000000000000000000000000D00007P0002o0000E00005@000180000:P0004h0000l0000
0@000:R/SCl0VXdo/PH00>0300010000C0000000000000000000000000000000D00006<0002W0000
E00005@0000`0000:P0003H0000l00000@000:R/SCl0VXdoK0@00>0300010000C000000000000000
0000000000000000D00006<0002W0000E00005@0000;0000:P000180000l00000@000:R/SCl0VXdo
30400>0300010000C0000000000000000000000000000000D00007P0002o0000E00005@0000/0000
4@000380000S00000@000:R/SCl0VXdo7P@00:0100010000C0000000000000000000000000000000
D00006<0002W0000E00005@0000:00004@0000h0000S00000@000:R/SCl0VXdokP000:0100010000
C0000000000000000000000000000000D00007@0001g0000DP0004`100020000400000L000000000
00000;`2000000000@828U<0N@1c07@0I@1]00000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000010@41
0@410@41000U000030000080000X000030000040001;000040000000000500009@0000`0000=0020
:00000`0000200003P0001@000000000400001@0
\>"], "Graphics",
ImageSize->{100, 83.5625},
ImageMargins->{{176, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["\<\
Analytical solution was derived by P. V. Danckwerts, Trans. Faraday Soc., 46, \
300 (1950) :\
\>", "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0003H`0@0005P0000200004`0006/100220000
0000000000329@0080`00215CDH00040<3H00<8000050000000000000000000000@00003000>0@00
b`0004H0003T2`00f0/004M4BD<1002000<001Mag?`00000`0/000402@000lP500040>l0000000D0
00090P00000400000P4100D000010_ooo`040000;P4H00D0000a0P40000500002`8000001@0000`2
00]08Q80000V1Pl06P3ooooo000@0000`?ooog8?00008P00LQX000/0000V1Pl0301=HGAXE7U`I@00
T0890000nP800100000000008P040000;@4000D0000D0/h2W0@500004`;>0X@51@0001@230=82PD0
000C0_02N@X90000nP800200000000008P040000;@4100D0000D0_P2N@X500004`:N0l0:100002d1
0005000050:N0lP:1@0001<2`04V2`D0000D0/019P/500004`;00H8?40000?/2E?gS0000002@0@00
00800P0@DgU]HVm/00840000;@4200P0000b2R/3l0L10000:00@0000n`9DoN<00000090100000P02
011CNFeRKf`00P@0000]0@<010000?010P080000100002d1
0@050000509L2?l>1@0001<20PU63`@0000]0@001@0001@20PU>3`D0000C0R@7[0l50000508T1j`?
1@0001<290L85100003k0UCmh`000000T0400002008045=iKF9_K002100002d10P040000l04300P0
000b2Xl8UPd10000:00@0000n`9DoN<00000090100000P02011CNFeRKf`00P@0000]0@<010000?01
0P0800001V8Q0@000?X02000038:WPAR8@40003j00P0
000b2Rh3HR410000nP080000X02000038:OPOj0`40003Z00P0000b2Ph6nP<10000jP080000X02000038:;P?j0`40003Z00P0000b2XH:nP<10000j`080000T02000038:
L0W68040003g00P0000b2SP8aR010000m`080000L02000038:IPXV5`40003X00P0000b2T879QL10000
iP080000Q`10000m`080000Q`10000mP080000L02000038:
e0:P4P40003W00P0000b2P85X1810000j0080000H02000038:;P>/6040000]00P0
000b2Rh3CPP10000;@080000
02@40001h00P0000b2^05NP810000H`080000
IGLPDVm]HFh00:d40000;@4300@0003`0@802000038:i0T66040
000b00P0000b2Y88aQ010000;`090000/BPfD04X=b01:3IP0B
Pf<00`4000433P000A:3N0000@:8eool0id84000003Je
ool08d<4000003Reool0Gd<4000003Veool0XT<4000000000000kD<4000003beool0:d@4000003ne
ool0Nd@40000042eool0XX<10000046eool0`4@4000004:eool0l4@4000004>eool0nQ80000004Be
ool07TD4000004Feool0B4D4000004Neool0FDD4000004Reool0KDD4000004Veool0LT03000005Fe
ool04A<0000005Reool0VTD4000005Veool0bDD4000005^eool0?`D0000005fe0000000000000000
00000000000000000@410@410@410F:e9@0000`000030000D`0005@0001E00008P0005T000140000
0@0003a4SCmMTX`ol0L002/300010000C0000000000000000000000000000000D00002P1001g0000
DP0004`100040000E?goon<0000000000000090100000002008045<0N@1]0680K`1/000000000>Ze
ool03TP400000>^eool0bGX3000007Vgool0>TP40000026hool0FTP4000002noOQ0P^Qh3000003:o
Pa0PQDP4000003>oQa0P_A`3000003BoRa0Pe4P4000003FoUA0P>Ah3000003JoVa0PnDP4000003Zo
XA1Pk1`3000003^o[a0P71l3000003bo]A0PD4T4000003fo`Q0P[1d3000003nofQ0P7@000000042o
jA0PTAd30000046ola0PcDT4000004Ron11PeQ`3000004Vo1Q4P/1`3000004Zo314PXa`300000000
00000000000000000000000000010@410@410@41000U0000300000@0000X0000300000<0000U0000
300000@0001C0000E0000:L0000R0000Z`0004@000010000?4B=?efBS3nP3`00:`<00040001<0000
000000000000000000000000001@0000:OlP]7L0000K0000400005@D001N1000=P00010000255000
@P@001/0000@0000QA@004X4000U000030000080000f000040000<`D003`10006`000100003D5000
l0@002D0000<00000@0003H0000@00000P006`000100003J6@00eP8003H0000@0000
2aX00;X2000K0000400000/J00320P009@0000`000020000=P000100001B6P00A0<001/0000@0000
FQX004@3000U000030000040000f000040000;PJ00300@006`000100002h6P00`04003H0000@0000
2Q`00<01000K00004000048:000b2000=P000100000Z2`00001D20006`000100003o3P00G0P002D0000<00000P0003H0000@0000APl00089000K0000
400004h?00022@009@0000`000010000=P000100002/3`0090L001/0000@0000[0l002@7000f0000
400000PD000T1`00DP0004`100030000E?goon<0000000000000090100000002008045<0N@1]0680
K`1/0000000004Zeool0SEL40000066eQA406eP4000006>eUQ4PROP1000006Be/14PgeP4000006Fe
ool05eT4000006JeaA4P[OP1000006Neool0IeX4000006Reool0eoolPiVX4000008FeoolP7^/1000008Jeool07h01000000jf
ool070000000012fool02V`40000016foolPm483000001:fool0`D830000026fool07F`4000002:f
ool03Xh30000000000000000000000000000000000010@410@410@41000U0000300000<0000X0000
300000@0000U0000300000<0001C0000E0000980001K0000UP0007d000010000?4B=?efBS3nF3@00
S`P00040001<0000000000000000000000000000001@0000:?l0hGL0001B0000C04000@0001DoOoo
h`00000000000000T040000000800P0@D`1i06d0HP1_06`00000IdL100000:nfool06e4100000;2f
ool01eD100000;6fool0leP1000006^iool0000000000:Viool0Scl100000:Ziool0TcX100000<2i
ool0Nd<100000<:iool0;dd1000004neZ@00>`000000052e/P00m`000000056e^`00:`<0000005Je
a000/`40000005Nec@00K`80000004jeool0:D830000046e0000i`<0000004Feool0OQ40000004Ve
ool0iPH0000004^eool0X`@0000004neool0UD03000005>eool0g@00000000000000000000000000
000000410@410@410@40HRD0000<0000100002P0000<00000`0002D0000<0000100005<0001D0000
f00005/0003L0000O@000040000lA8doGI:eool03Q/0000001Be
ool0XSP0000001Feool0;ST0000001feool0dF<10000022eool0kf<1000002jeool0/S`0000002ne
ool08cd00000036eool0Z3/0000003:eool0Tb`1000003Feool0?8<1000003Reool0ah<1000004Je
ool0U1D0000004Veool0cPd0000004beool0c0H0000004neool0h800010000C0000000000000000000000000000000D0000?X3002?0000D`0005@0001V0@00
D00006/1001R00000@0003a4SCmMTX`oHR4007h700010000C0000000000000000000000000000000
D0000?X0002?0000D`0005@0001V0@00@00006/1001B00000@0003a4SCmMTX`oHR4000h600010000
C0000000000000000000000000000000D0000?X3002?0000D`0005@0001V0@00<@0006/100130000
0@0003a4SCmMTX`oHR4009h400010000C0000000000000000000000000000000D0000?X1002?0000
D`0005@0001V0@008P0006/1000d00000@0003a4SCmMTX`oHR4002h300010000C000000000000000
0000000000000000D0000?X1002?0000D`0005@0001V0@00L00006/1002200000@0003a4SCmMTX`o
HR4008H:00010000C0000000000000000000000000000000D0000?/0002?0000D`0005@0001V0@00
4`0006/1000U00000@0003a4SCmMTX`oHR400;h100010000C0000000000000000000000000000000
D0000?T07@2?0000D`0005@0000[0000K@000300001o00000@0003a4SCmMTX`onP<004@:00010000
C0000000000000000000000000000000D0000>X0002?0000D`0005@0000[0000G`000300001a0000
0@0003a4SCmMTX`onP<00>h800010000C0000000000000000000000000000000D0000>X0002?0000
D`0005@0000[0000D0000300001R00000@0003a4SCmMTX`onP<007h700010000C000000000000000
0000000000000000D0000>X0002?0000D`0005@0000[0000@0000300001B00000@0003a4SCmMTX`o
nP<000h600010000C0000000000000000000000000000000D0000>Xb002?0000D`0005@0000[0000
<@000300001300000@0003a4SCmMTX`onP<009h400010000C0000000000000000000000000000000
D0000>X0002?0000D`0005@0000[00008P000300000d00000@0003a4SCmMTX`onP<002h300010000
C0000000000000000000000000000000D0000>X0002?0000D`0005@0000[0000L000030000220000
0@0003a4SCmMTX`onP<008H:00010000C0000000000000000000000000000000D0000>/0402?0000
D`0005@0000[00004`000300000U00000@0003a4SCmMTX`onP<00;h100010000C000000000000000
0000000000000000D0000>T0002?0000D`0005@0001O0@00I00006@1001f00000@0003a4SCmMTX`o
aR00070900010000C0000000000000000000000000000000D0000?L20B:?0000D`0005@0001O0@00
E`0006@1001Y00000@0003a4SCmMTX`oaR0003P800010000C0000000000000000000000000000000
D0000?L0IGF?0000D`0005@0001O0@00K`0006@1002100000@0003a4SCmMTX`oaR0006H:00010000
C0000000000000000000000000000000D0000?QiKF:?0000D`0005@0001O0@00C@0006@1001O0000
0@0003a4SCmMTX`oaR00048700010000C0000000000000000000000000000000D0000?H0002?0000
D`0005@0003h0000I0000?d0001f00000@0003a4SCmMTX`o9QL0070900010000C000000000000000
0000000000000000D0000>L0002?0000D`0005@0003h0000E`000?d0001Y00000@0003a4SCmMTX`o
9QL003P800010000C0000000000000000000000000000000D0000>L0002?0000D`0005@0003h0000
K`000?d0002100000@0003a4SCmMTX`o9QL006H:00010000C0000000000000000000000000000000
D0000>P0002?0000D`0005@0003h0000C@000?d0001O00000@0003a4SCmMTX`o9QL0048700010000
C0000000000000000000000000000000D0000>IeLV:?0000D`0005@0000i0@00F`000441001]0000
0@0003a4SCmMTX`oQ`000`400010000C0000000000000000000000000000000D0000?L0002?0000D`0005@0000^0@00
7P0003<1000`00000@0003a4SCmMTX`o>Q`00=@200010000C0000000000000000000000000000000
D0000?L0002?0000D`0005@0000^0@00=@0003<1001700000@0003a4SCmMTX`o>Q`0008500010000
C0000000000000000000000000000000D0000?P0002?0000D`0005@0000^0@00500003<1000V0000
0@0003a4SCmMTX`o>Q`00=h100010000C0000000000000000000000000000000D0000?H0002?0000
D`0005@000380000:`000L0002?0000D`0005@0003800007P000L0002?0000D`0005@000380000
=@000P0W8>?0000D`0005@00038000050000H0002?0000D`0005@000080@008P000101000d0000
0@0003a4SCmMTX`o[1P002h300010000C0000000000000000000000000000000D00002go003G0000
D`0005@0001I00008P000640000d00000@0003a4SCmMTX`oCPP002h300010000C000000000000000
0000000000000000D00002d0T07G0000D`0005@0000>0000?P0001H0001@00000@0003a4SCmMTX`o
B0400>0500010000C0000000000000000000000000000000D00003d0003G0000DP0004`100040000
P?koo`00000000000000090100010000108045@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@1^0000
BC800000KF9_K006002LPeb300000000
0000000000000?oo0000000000000000000000000000000000000000000000000000000000000000
0000000000010@410@410@41000U0000300000@0000X0000300000<0000U0000300000@0001D0000
F0000501001K0000G04006d000010000?4B=?efBS3mL7`00TPP00080001<00000000000000000000
00000000001@0000J`1d0<00001g0000E00005P0000D0@00J@0002<1001k00000@0003a4SCmMTX`o
a1T00>@900020000C0000000000000000000000000000000D00007@0A01g00001`4005@0001D0000
60400540000O0@00H`000040000lA8doGI:000000000000002@0@00000000<20B9SKG=cJC4b001`
001FCTTb001CNFeRKf`01P00W8=LP`000000000000000000003oo`00000000000000000000000000
00000000000000000000000000000000000000410@410@410@4002D0000<00000`0002P0000<0000
100002D0000<00000`0005@0001H00009@4006d0000`0@00MP000040000lA8doGI:0400020000
C0000000000000000000000000000000D0000440@P2@0000S`0005@0001H0000V00002H0002S0000
;`000040000lA8doGI:002>0`000P0004`00000000000000000000000000000050000110480
T00008l0001B0000C04000@00020o_oo0000000000000000T040000000040P0@E01Y06d0I@1c0200
CP1U07L0801B06l0K@1Q06h000000901000000000`818V=]Lg=a>000071d85I>BC800000KF9_K006
002LPeb3000000000000000000000?oo0000000000000000000000000000000000000000001SKG=c
LFTh0000000000000000000000000000000000@0000O00004P00000000000000T040000000030P4R
001cLg5Y>000L7@PETi9BC800000001_K006002LPeb3
000000000000000000000?oo0000000000000000000000000000000000000000001SKGAUN3P00000
000000000000000000000000000000@0000M00004@00000000000000T040000000030P4RHfd007Ph
0000L7@PETi9"], "Graphics",
ImageSize->{394, 126.5},
ImageMargins->{{36, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Diffusion coefficient is ",
Cell[BoxData[
\(TraditionalForm\`D\_AB\)]],
". Rate constant is k. c0 is surface concentration."
}], "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[BoxData[
\(\(D\_AB = 1.5\ 10^\(-9\);\)\)], "Input"],
Cell["k=35;", "Input"],
Cell["c0=3 10^-2;", "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Case 1: Penetration depth is limited by reaction: ",
FontWeight->"Bold"],
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_d\/\[Delta]\_r\)]],
">>1"
}], "Subsubtitle",
Background->RGBColor[1, 1, 0.658824]],
Cell["t=10^2;", "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_d = Sqrt[D\_AB\ t]\)], "Input"],
Cell[BoxData[
\(0.0003872983346207417`\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_r = Sqrt[D\_AB/k]\)], "Input"],
Cell[BoxData[
\(6.546536707079772`*^-6\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_d\/\[Delta]\_r\)], "Input"],
Cell[BoxData[
\(59.16079783099615`\)], "Output"]
}, Open ]],
Cell["c=.;t=.;", "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Solving the governing equation with NDSolve using the following boundary \
condition c[10 ",
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_r\)]],
"]=0 with ",
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_r\)]],
"~",
Cell[BoxData[
\(TraditionalForm\`10\^\(-5\)\)]],
"."
}], "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell[BoxData[
\(sol =
NDSolve[{D[c[t, x], {t, 1}] \[Equal]
D\_AB\ D[c[t, x], {x, 2}] - k\ c[t, x],
c[0, x] \[Equal] c0\ Exp[\(-10^20\)\ x], c[t, 0] \[Equal] c0,
c[t, 1\ 10^\(-4\)] \[Equal] 0},
c[t, x], {x, 0, 1\ 10^\(-4\)}, {t, 0, 100}]\)], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{\(c[t, x]\), "\[Rule]",
RowBox[{
TagBox[\(InterpolatingFunction[{{0.`, 0.0001`}, {0.`, 100.`}},
"<>"]\),
False,
Editable->False], "[", \(x, t\), "]"}]}], "}"}],
"}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
plt1=Plot[Chop[c[t,x]/.sol/.t->10^2],{x,0,1 \
10^-4},PlotRange->{0,0.03},PlotStyle->RGBColor[1,0,0]]\
\>", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9523.81 -8.53809e-018 20.6011 [
[.21429 -0.0125 -21 -9 ]
[.21429 -0.0125 21 0 ]
[.40476 -0.0125 -21 -9 ]
[.40476 -0.0125 21 0 ]
[.59524 -0.0125 -21 -9 ]
[.59524 -0.0125 21 0 ]
[.78571 -0.0125 -21 -9 ]
[.78571 -0.0125 21 0 ]
[.97619 -0.0125 -18 -9 ]
[.97619 -0.0125 18 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(0.00002)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(0.00004)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(0.00006)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(0.00008)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(0.0001)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .61803 m
.04262 .46255 L
.06244 .33843 L
.08255 .24523 L
.10458 .17179 L
.12415 .1252 L
.14509 .08943 L
.16639 .06367 L
.18653 .04619 L
.20651 .03349 L
.22495 .02471 L
.24367 .01832 L
.2643 .01318 L
.28371 .0096 L
.30459 .00682 L
.31469 .00581 L
.32572 .00488 L
.34581 .00352 L
.36548 .00254 L
.37648 .00213 L
.38646 .00182 L
.4057 .00134 L
.41563 .00114 L
.42652 .00095 L
.44646 .00069 L
.46753 .00049 L
.48704 .00036 L
.50795 .00025 L
.51812 .00022 L
.52919 .00018 L
.54931 .00013 L
.56909 9e-005 L
.57907 8e-005 L
.59009 7e-005 L
.60944 5e-005 L
.6194 4e-005 L
.6303 4e-005 L
.65034 3e-005 L
.67144 2e-005 L
.69105 1e-005 L
.712 1e-005 L
.72224 1e-005 L
.73334 1e-005 L
.7535 0 L
.77337 0 L
.78339 0 L
.79441 0 L
.81386 0 L
.83475 0 L
.84488 0 L
Mistroke
.85593 0 L
.86648 0 L
.87603 0 L
.88551 0 L
.89574 0 L
.90656 0 L
.91673 0 L
.93631 0 L
.94168 0 L
.94742 0 L
.95275 0 L
.95778 0 L
.9624 0 L
.96742 0 L
.97619 0 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000
Oomoo`000goo0P001Goo00<007ooOol067oo00=l07ooOol0hGoo00001Goo001oogoo000027oo00@0
07ooOol0009oo`04001oogoo0003Ool00`00Oomoo`04Ool00`00Oomoo`0GOol00g`0Oomoo`3ROol0
009oo`8000Yoo`8000Aoo`8000Aoo`<000Aoo`03001oogoo01Ioo`03O01oogoo0>=oo`008Goo00<0
07ooOol05Woo00=l07ooOol0hgoo000QOol2000FOol00g`0Oomoo`3TOol0025oo`03001oogoo01Eo
o`03O01oogoo0>Aoo`008Goo00<007ooOol057oo00=l07ooOol0iGoo000QOol00`00Oomoo`0DOol0
0g`0Oomoo`3UOol0025oo`03001oogoo01Aoo`03O01oogoo0>Eoo`008Goo0P0057oo00=l07ooOol0
iWoo000QOol00`00Oomoo`0COol00g`0Oomoo`3VOol0025oo`03001oogoo01=oo`03O01oogoo0>Io
o`008Goo00<007ooOol04Woo00=l07ooOol0igoo000QOol00`00Oomoo`0BOol00g`0Oomoo`3WOol0
025oo`8001=oo`03O01oogoo0>Moo`008Goo00<007ooOol04Goo00=l07ooOol0j7oo000QOol00`00
Oomoo`0AOol00g`0Oomoo`3XOol0025oo`03001oogoo015oo`03O01oogoo0>Qoo`008Goo00<007oo
Ool047oo00=l07ooOol0jGoo000QOol2000AOol00g`0Oomoo`3YOol0025oo`03001oogoo011oo`03
O01oogoo0>Uoo`008Goo00<007ooOol03goo00=l07ooOol0jWoo0008Ool20004Ool20004Ool20003
Ool50003Ool00`00Oomoo`0?Ool00g`0Oomoo`3ZOol000Moo`04001oogoo0008Ool01000Oomoo`00
17oo00<007ooOol00goo00<007ooOol03goo00=l07ooOol0jWoo0007Ool01000Oomoo`0027oo00@0
07ooOol000Aoo`03001oogoo00=oo`8000moo`03O01oogoo0>]oo`001goo00@007ooOol000Qoo`04
001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00g`0Oomoo`3[Ool000Moo`04001oogoo
0008Ool01000Oomoo`0017oo00<007ooOol00goo00<007ooOol03Woo00=l07ooOol0jgoo0008Ool2
000:Ool20004Ool20005Ool00`00Oomoo`0=Ool00g`0Oomoo`3/Ool0025oo`03001oogoo00eoo`03
O01oogoo0>aoo`008Goo0P003Woo00=l07ooOol0k7oo000QOol00`00Oomoo`0eoo`008Goo00<007ooOol037oo00=l07ooOol0kGoo
000QOol00`00Oomoo`0;Ool00g`0Oomoo`3^Ool0025oo`03001oogoo00]oo`03O01oogoo0>ioo`00
8Goo0P0037oo00=l07ooOol0kWoo000QOol00`00Oomoo`0;Ool00g`0Oomoo`3^Ool0025oo`03001o
ogoo00Yoo`03O01oogoo0>moo`008Goo00<007ooOol02Woo00=l07ooOol0kgoo000QOol00`00Oomo
o`0:Ool00g`0Oomoo`3_Ool0025oo`8000]oo`03O01oogoo0>moo`008Goo00<007ooOol02Goo00=l
07ooOol0l7oo000QOol00`00Oomoo`09Ool00g`0Oomoo`3`Ool0025oo`03001oogoo00Uoo`03O01o
ogoo0?1oo`008Goo00<007ooOol02Goo00=l07ooOol0l7oo000QOol2000:Ool00g`0Oomoo`3`Ool0
025oo`03001oogoo00Qoo`03O01oogoo0?5oo`008Goo00<007ooOol027oo00=l07ooOol0lGoo0002
Ool20004Ool20004Ool20003Ool50002Ool20005Ool00`00Oomoo`08Ool00g`0Oomoo`3aOol00005
Ool007ooOol00008Ool01000Oomoo`0017oo00D007ooOomoo`00009oo`03001oogoo009oo`03001o
ogoo00Qoo`03O01oogoo0?5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`04
Ool00`00Oomoo`02Ool20009Ool00g`0Oomoo`3aOol00005Ool007ooOol00008Ool01000Oomoo`00
17oo00<007ooOol00Woo0P001Goo00<007ooOol01goo00=l07ooOol0lWoo00001Goo001oogoo0000
27oo00@007ooOol000Aoo`03001oogoo009oo`03001oogoo00Aoo`03001oogoo00Moo`03O01oogoo
0?9oo`000Woo0P002Woo0P0017oo0P0017oo0`0017oo00<007ooOol01goo00=l07ooOol0lWoo000Q
Ool00`00Oomoo`07Ool00g`0Oomoo`3bOol0025oo`8000Moo`03O01oogoo0?=oo`008Goo00<007oo
Ool01Woo00=l07ooOol0lgoo000QOol00`00Oomoo`06Ool00g`0Oomoo`3cOol0025oo`03001oogoo
00Ioo`03O01oogoo0?=oo`008Goo00<007ooOol01Woo00=l07ooOol0lgoo000QOol20007Ool00g`0
Oomoo`3cOol0025oo`03001oogoo00Eoo`03O01oogoo0?Aoo`008Goo00<007ooOol01Goo00=l07oo
Ool0m7oo000QOol00`00Oomoo`05Ool00g`0Oomoo`3dOol0025oo`03001oogoo00Eoo`03O01oogoo
0?Aoo`008Goo0P001Woo00=l07ooOol0m7oo000QOol00`00Oomoo`05Ool00g`0Oomoo`3dOol0025o
o`03001oogoo00Aoo`03O01oogoo0?Eoo`008Goo00<007ooOol017oo00=l07ooOol0mGoo000QOol0
0`00Oomoo`04Ool00g`0Oomoo`3eOol0025oo`8000Eoo`03O01oogoo0?Eoo`008Goo00<007ooOol0
17oo00=l07ooOol0mGoo000QOol00`00Oomoo`04Ool00g`0Oomoo`3eOol000Qoo`8000Aoo`8000Ao
o`8000=oo`@000Aoo`03001oogoo00=oo`03O01oogoo0?Ioo`001goo00@007ooOol000Qoo`04001o
ogoo0002Ool00`00Oomoo`05Ool00`00Oomoo`03Ool00g`0Oomoo`3fOol000Moo`04001oogoo0008
Ool01000Oomoo`000goo00<007ooOol017oo0P0017oo00=l07ooOol0mWoo0007Ool01000Oomoo`00
27oo00@007ooOol000Aoo`03001oogoo00=oo`03001oogoo00=oo`03O01oogoo0?Ioo`001goo00@0
07ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol00goo00=l07ooOol0mWoo
0008Ool2000:Ool20004Ool20005Ool00`00Oomoo`03Ool00g`0Oomoo`3fOol0025oo`03001oogoo
009oo`03O01oogoo0?Moo`008Goo0P000goo00=l07ooOol0mgoo000QOol00`00Oomoo`02Ool00g`0
Oomoo`3gOol0025oo`03001oogoo009oo`03O01oogoo0?Moo`008Goo00<007ooOol00Woo00=l07oo
Ool0mgoo000QOol00`00Oomoo`02Ool00g`0Oomoo`3gOol0025oo`05001oogooOoml003jOol0025o
o`80009oo`03O01oogoo0?Qoo`008Goo00D007ooOomoog`00?Yoo`008Goo00D007ooOomoog`00?Yo
o`008Goo00D007ooOomoog`00?Yoo`008Goo00D007ooOomoog`00?Yoo`008Goo0P000Woo00=l07oo
Ool0n7oo000QOol01@00OomoogooO000nWoo000QOol01000Oomoog`0ngoo000QOol01000Oomoog`0
ngoo000QOol01000Oomoog`0ngoo000QOol200000gooO01oo`3jOol0025oo`04001oogooO03kOol0
025oo`04001oogooO03kOol0009oo`8000Aoo`8000Aoo`8000=oo`@000=oo`8000Eoo`04001oogoo
O03kOol00005Ool007ooOol00008Ool01000Oomoo`000Woo00<007ooOol00goo00@007ooOol000Ao
o`04001oogooO03kOol00005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol01Goo00<0
07ooOol00Woo0P0000=oog`0Ool0nWoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03001o
ogoo009oo`8000Eoo`04001oogooO03kOol00005Ool007ooOol00008Ool01000Oomoo`000Woo00@0
07ooOol000=oo`03001oogoo00Aoo`03001oog`00?aoo`000Woo0P002Woo0P0017oo0P0017oo0`00
17oo00<007ooO000o7oo000QOol00`00Ooml003lOol0025oo`800003O01oogoo0?Yoo`008Goo00<0
07ooO000o7oo000QOol00`00Ooml003lOol0025oo`03001oog`00?aoo`008Goo00<007ooO000o7oo
000QOol200000g`0Oomoo`3jOol0025oo`03001l07oo0?aoo`008Goo00<007`0Ool0o7oo000QOol0
0`00O01oo`3lOol0025oo`03001l07oo0?aoo`008Goo00<007`0Ool0o7oo000QOol00`00O01oo`3l
Ool0025oo`03001l07oo0?aoo`008Goo00<007`0Ool0o7oo000QOol00`00O01oo`3lOol0025oo`03
001l07oo0?aoo`008Goo00=l07ooOol0o7oo000QOol00g`0Oomoo`3lOol000Qoo`8000Aoo`8000Ao
o`8000Aoo`8000Eoo`03O01oogoo0?aoo`001goo00@007ooOol000Qoo`04001oogoo0002Ool01000
Oomoo`0017oo00=l07ooOol0o7oo0007Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo
00=oo`03O00007oo0?aoo`001goo00@007ooOol000Qoo`04001oogoo0005Ool00`00Oomoo`3oOol2
Ool000Moo`04001oogoo0008Ool01000Oomoo`000Woo00@007ooOol00?moo`Aoo`0027oo0P002Woo
0P0017oo0P00ogoo1Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.40301*^-05, -0.0030816, \
4.23905*^-07, 0.00019597}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Danckwerts' solution:", "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell[BoxData[
\(c =
c0\ \((0.5\ Exp[\(-x\)\ \((k/D\_AB)\)^0.5]\ Erfc[
x/\((2\ \((t\ D\_AB)\)^0.5)\) - \((t\ k)\)^0.5] +
0.5\ Exp[x\ \((k/D\_AB)\)^0.5]\ Erfc[
x/\((2\ \((t\ D\_AB)\)^0.5)\) + \((t\ k)\)^0.5])\)\)], "Input"],
Cell[BoxData[
\(3\/100\ \((0.5`\ \[ExponentialE]\^\(\(-152752.52316519467`\)\ x\)\ \
Erfc[\(-5.916079783099616`\)\ t\^0.5` + \(12909.944487358056`\ x\)\/t\^0.5`] \
+ 0.5`\ \[ExponentialE]\^\(152752.52316519467`\ x\)\ Erfc[
5.916079783099616`\ t\^0.5` + \(12909.944487358056`\ \
x\)\/t\^0.5`])\)\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
plt2=Plot[Chop[c/.t->10^2],{x,0,10^-4},PlotRange->{0,0.03},PlotStyle->\
RGBColor[0,0,1]]\
\>", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9523.81 -8.53809e-018 20.6011 [
[.21429 -0.0125 -21 -9 ]
[.21429 -0.0125 21 0 ]
[.40476 -0.0125 -21 -9 ]
[.40476 -0.0125 21 0 ]
[.59524 -0.0125 -21 -9 ]
[.59524 -0.0125 21 0 ]
[.78571 -0.0125 -21 -9 ]
[.78571 -0.0125 21 0 ]
[.97619 -0.0125 -18 -9 ]
[.97619 -0.0125 18 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(0.00002)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(0.00004)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(0.00006)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(0.00008)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(0.0001)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
0 0 1 r
.5 Mabswid
.02381 .61803 m
.04262 .45709 L
.06244 .33258 L
.08255 .24089 L
.10458 .1692 L
.12415 .12361 L
.14509 .08835 L
.16639 .06278 L
.18653 .04545 L
.20651 .03299 L
.22495 .02454 L
.24367 .01818 L
.2643 .01306 L
.28371 .00956 L
.30459 .00684 L
.32572 .00488 L
.34581 .00353 L
.36562 .00257 L
.384 .00191 L
.40453 .00138 L
.42313 .00102 L
.44238 .00075 L
.4632 .00054 L
.48314 .00039 L
.5042 .00028 L
.52384 .0002 L
.54217 .00015 L
.56253 .00011 L
.58108 8e-005 L
.60017 6e-005 L
.62093 4e-005 L
.6407 3e-005 L
.66171 2e-005 L
.68118 2e-005 L
.69946 1e-005 L
.71964 1e-005 L
.73815 1e-005 L
.75707 0 L
.77777 0 L
.79738 0 L
.81833 0 L
.83968 0 L
.85983 0 L
.87985 0 L
.8983 0 L
.91706 0 L
.9377 0 L
.95626 0 L
.97619 0 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg1oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomoo`001Goo00<007oo
Ool00Woo0P006Goo00<07gooOol0hGoo00001Goo001oogoo000027oo00@007ooOol0009oo`04001o
ogoo0003Ool20005Ool00`00Oomoo`0HOol00`0OOomoo`3QOol00005Ool007ooOol00008Ool01000
Oomoo`000Woo00@007ooOol000=oo`03001oogoo00Aoo`03001oogoo01Moo`0301moogoo0>9oo`00
0Woo0P002Woo0P0017oo0P0017oo0`0017oo00<007ooOol05Woo00<07gooOol0hgoo000QOol00`00
Oomoo`0FOol00`0OOomoo`3SOol0025oo`8001Ioo`0301moogoo0>Aoo`008Goo00<007ooOol05Goo
00<07gooOol0i7oo000QOol00`00Oomoo`0DOol00`0OOomoo`3UOol0025oo`03001oogoo01Aoo`03
01moogoo0>Eoo`008Goo00<007ooOol057oo00<07gooOol0iGoo000QOol2000DOol00`0OOomoo`3V
Ool0025oo`03001oogoo01=oo`0301moogoo0>Ioo`008Goo00<007ooOol04Woo00<07gooOol0igoo
000QOol00`00Oomoo`0BOol00`0OOomoo`3WOol0025oo`03001oogoo019oo`0301moogoo0>Moo`00
8Goo0P004Woo00<07gooOol0j7oo000QOol00`00Oomoo`0AOol00`0OOomoo`3XOol0025oo`03001o
ogoo015oo`0301moogoo0>Qoo`008Goo00<007ooOol047oo00<07gooOol0jGoo000QOol00`00Oomo
o`0@Ool00`0OOomoo`3YOol0025oo`80015oo`0301moogoo0>Uoo`008Goo00<007ooOol03goo00<0
7gooOol0jWoo000QOol00`00Oomoo`0?Ool00`0OOomoo`3ZOol000Qoo`8000Aoo`8000Aoo`8000=o
o`D000=oo`03001oogoo00moo`0301moogoo0>Yoo`001goo00@007ooOol000Qoo`04001oogoo0004
Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00`0OOomoo`3[Ool000Moo`04001oogoo0008Ool01000
Oomoo`0017oo00<007ooOol00goo0P003goo00<07gooOol0jgoo0007Ool01000Oomoo`0027oo00@0
07ooOol000Aoo`03001oogoo00=oo`03001oogoo00ioo`0301moogoo0>]oo`001goo00@007ooOol0
00Qoo`04001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0=Ool00`0OOomoo`3/Ool000Qoo`80
00Yoo`8000Aoo`8000Eoo`03001oogoo00eoo`0301moogoo0>aoo`008Goo00<007ooOol03Goo00<0
7gooOol0k7oo000QOol2000=Ool00`0OOomoo`3]Ool0025oo`03001oogoo00aoo`0301moogoo0>eo
o`008Goo00<007ooOol037oo00<07gooOol0kGoo000QOol00`00Oomoo`0;Ool00`0OOomoo`3^Ool0
025oo`03001oogoo00]oo`0301moogoo0>ioo`008Goo00<007ooOol02goo00<07gooOol0kWoo000Q
Ool2000moo`008Goo00<007oo
Ool02Woo00<07gooOol0kgoo000QOol00`00Oomoo`0:Ool00`0OOomoo`3_Ool0025oo`03001oogoo
00Yoo`0301moogoo0>moo`008Goo0P002Woo00<07gooOol0l7oo000QOol00`00Oomoo`09Ool00`0O
Oomoo`3`Ool0025oo`03001oogoo00Uoo`0301moogoo0?1oo`008Goo00<007ooOol02Goo00<07goo
Ool0l7oo000QOol00`00Oomoo`09Ool00`0OOomoo`3`Ool0025oo`8000Uoo`0301moogoo0?5oo`00
8Goo00<007ooOol027oo00<07gooOol0lGoo000QOol00`00Oomoo`08Ool00`0OOomoo`3aOol0009o
o`8000Aoo`8000Aoo`8000=oo`D0009oo`8000Eoo`03001oogoo00Qoo`0301moogoo0?5oo`0000Eo
o`00Oomoo`0000Qoo`04001oogoo0004Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<007oo
Ool027oo00<07gooOol0lGoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03001oogoo00Ao
o`03001oogoo009oo`8000Qoo`0301moogoo0?9oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004
Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`07Ool00`0OOomoo`3bOol00005Ool007ooOol00008
Ool01000Oomoo`0017oo00<007ooOol00Woo00<007ooOol017oo00<007ooOol01goo00<07gooOol0
lWoo0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Oomoo`07Ool00`0OOomoo`3bOol0025o
o`03001oogoo00Ioo`0301moogoo0?=oo`008Goo0P001goo00<07gooOol0lgoo000QOol00`00Oomo
o`06Ool00`0OOomoo`3cOol0025oo`03001oogoo00Ioo`0301moogoo0?=oo`008Goo00<007ooOol0
1Woo00<07gooOol0lgoo000QOol00`00Oomoo`06Ool00`0OOomoo`3cOol0025oo`8000Ioo`0301mo
ogoo0?Aoo`008Goo00<007ooOol01Goo00<07gooOol0m7oo000QOol00`00Oomoo`05Ool00`0OOomo
o`3dOol0025oo`03001oogoo00Eoo`0301moogoo0?Aoo`008Goo00<007ooOol01Goo00<07gooOol0
m7oo000QOol20006Ool00`0OOomoo`3dOol0025oo`03001oogoo00Aoo`0301moogoo0?Eoo`008Goo
00<007ooOol017oo00<07gooOol0mGoo000QOol00`00Oomoo`04Ool00`0OOomoo`3eOol0025oo`03
001oogoo00Aoo`0301moogoo0?Eoo`008Goo0P001Goo00<07gooOol0mGoo000QOol00`00Oomoo`04
Ool00`0OOomoo`3eOol0025oo`03001oogoo00=oo`0301moogoo0?Ioo`0027oo0P0017oo0P0017oo
0P000goo100017oo00<007ooOol00goo00<07gooOol0mWoo0007Ool01000Oomoo`0027oo00@007oo
Ool0009oo`03001oogoo00Eoo`03001oogoo00=oo`0301moogoo0?Ioo`001goo00@007ooOol000Qo
o`04001oogoo0003Ool00`00Oomoo`04Ool20004Ool00`0OOomoo`3fOol000Moo`04001oogoo0008
Ool01000Oomoo`0017oo00<007ooOol00goo00<007ooOol00goo00<07gooOol0mWoo0007Ool01000
Oomoo`0027oo00@007ooOol0009oo`04001oogoo0004Ool00`00Oomoo`03Ool00`0OOomoo`3fOol0
00Qoo`8000Yoo`8000Aoo`8000Eoo`03001oogoo009oo`0301moogoo0?Moo`008Goo00<007ooOol0
0Woo00<07gooOol0mgoo000QOol20003Ool00`0OOomoo`3gOol0025oo`03001oogoo009oo`0301mo
ogoo0?Moo`008Goo00<007ooOol00Woo00<07gooOol0mgoo000QOol00`00Oomoo`02Ool00`0OOomo
o`3gOol0025oo`05001oogooOol07`3jOol0025oo`05001oogooOol07`3jOol0025oo`80009oo`03
01moogoo0?Qoo`008Goo00D007ooOomoo`0O0?Yoo`008Goo00D007ooOomoo`0O0?Yoo`008Goo00D0
07ooOomoo`0O0?Yoo`008Goo00D007ooOomoo`0O0?Yoo`008Goo0P000Woo00<07gooOol0n7oo000Q
Ool01000Oomoo`0Ongoo000QOol01000Oomoo`0Ongoo000QOol01000Oomoo`0Ongoo000QOol01000
Oomoo`0Ongoo000QOol200000goo01moo`3jOol0025oo`04001oogoo01okOol0025oo`04001oogoo
01okOol0009oo`8000Aoo`8000Aoo`8000=oo`@000=oo`8000Eoo`04001oogoo01okOol00005Ool0
07ooOol00008Ool01000Oomoo`000Woo00<007ooOol00goo00@007ooOol000Aoo`04001oogoo01ok
Ool00005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol01Goo00<007ooOol00Woo0P00
00=oo`0OOol0nWoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03001oogoo009oo`8000Eo
o`03001oo`0O0?aoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomoo`000goo00<0
07ooOol017oo00<007oo01l0o7oo0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Ool07`3l
Ool0025oo`03001oo`0O0?aoo`008Goo0P0000<07gooOol0nWoo000QOol00`00Ool07`3lOol0025o
o`03001oo`0O0?aoo`008Goo00<007oo01l0o7oo000QOol00`00Ool07`3lOol0025oo`80000301mo
ogoo0?Yoo`008Goo00<0000OOol0o7oo000QOol00`0001moo`3lOol0025oo`0300007goo0?aoo`00
8Goo00<0000OOol0o7oo000QOol00`0001moo`3lOol0025oo`0300007goo0?aoo`008Goo00<0000O
Ool0o7oo000QOol00`0001moo`3lOol0025oo`0300007goo0?aoo`008Goo00<0000OOol0o7oo000Q
Ool00`0OOomoo`3lOol0025oo`0301moogoo0?aoo`0027oo0P0017oo0P0017oo0P0017oo0P001Goo
00<07gooOol0o7oo0007Ool01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0004Ool00`0O
Oomoo`3lOol000Moo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol00goo00<07`00Ool0
o7oo0007Ool01000Oomoo`0027oo00@007ooOol000Eoo`03001oogoo0?moo`9oo`001goo00@007oo
Ool000Qoo`04001oogoo0002Ool01000Oomoo`00ogoo17oo0008Ool2000:Ool20004Ool2003oOol5
Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo0000\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.40301*^-05, -0.0030816, \
4.23905*^-07, 0.00019597}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Both methods give the same concentration profile", "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell["Show[plt1,plt2]", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9523.81 -8.53809e-018 20.6011 [
[.21429 -0.0125 -21 -9 ]
[.21429 -0.0125 21 0 ]
[.40476 -0.0125 -21 -9 ]
[.40476 -0.0125 21 0 ]
[.59524 -0.0125 -21 -9 ]
[.59524 -0.0125 21 0 ]
[.78571 -0.0125 -21 -9 ]
[.78571 -0.0125 21 0 ]
[.97619 -0.0125 -18 -9 ]
[.97619 -0.0125 18 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(0.00002)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(0.00004)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(0.00006)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(0.00008)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(0.0001)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .61803 m
.04262 .46255 L
.06244 .33843 L
.08255 .24523 L
.10458 .17179 L
.12415 .1252 L
.14509 .08943 L
.16639 .06367 L
.18653 .04619 L
.20651 .03349 L
.22495 .02471 L
.24367 .01832 L
.2643 .01318 L
.28371 .0096 L
.30459 .00682 L
.31469 .00581 L
.32572 .00488 L
.34581 .00352 L
.36548 .00254 L
.37648 .00213 L
.38646 .00182 L
.4057 .00134 L
.41563 .00114 L
.42652 .00095 L
.44646 .00069 L
.46753 .00049 L
.48704 .00036 L
.50795 .00025 L
.51812 .00022 L
.52919 .00018 L
.54931 .00013 L
.56909 9e-005 L
.57907 8e-005 L
.59009 7e-005 L
.60944 5e-005 L
.6194 4e-005 L
.6303 4e-005 L
.65034 3e-005 L
.67144 2e-005 L
.69105 1e-005 L
.712 1e-005 L
.72224 1e-005 L
.73334 1e-005 L
.7535 0 L
.77337 0 L
.78339 0 L
.79441 0 L
.81386 0 L
.83475 0 L
.84488 0 L
Mistroke
.85593 0 L
.86648 0 L
.87603 0 L
.88551 0 L
.89574 0 L
.90656 0 L
.91673 0 L
.93631 0 L
.94168 0 L
.94742 0 L
.95275 0 L
.95778 0 L
.9624 0 L
.96742 0 L
.97619 0 L
Mfstroke
0 0 1 r
.02381 .61803 m
.04262 .45709 L
.06244 .33258 L
.08255 .24089 L
.10458 .1692 L
.12415 .12361 L
.14509 .08835 L
.16639 .06278 L
.18653 .04545 L
.20651 .03299 L
.22495 .02454 L
.24367 .01818 L
.2643 .01306 L
.28371 .00956 L
.30459 .00684 L
.32572 .00488 L
.34581 .00353 L
.36562 .00257 L
.384 .00191 L
.40453 .00138 L
.42313 .00102 L
.44238 .00075 L
.4632 .00054 L
.48314 .00039 L
.5042 .00028 L
.52384 .0002 L
.54217 .00015 L
.56253 .00011 L
.58108 8e-005 L
.60017 6e-005 L
.62093 4e-005 L
.6407 3e-005 L
.66171 2e-005 L
.68118 2e-005 L
.69946 1e-005 L
.71964 1e-005 L
.73815 1e-005 L
.75707 0 L
.77777 0 L
.79738 0 L
.81833 0 L
.83968 0 L
.85983 0 L
.87985 0 L
.8983 0 L
.91706 0 L
.9377 0 L
.95626 0 L
.97619 0 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg1oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002
Ool01000Oomoo`001Goo00<007ooOol00Woo0P006Goo00<07gooOol0hGoo00001Goo001oogoo0000
27oo00@007ooOol0009oo`04001oogoo0003Ool20005Ool00`00Oomoo`0HOol00`0OOomoo`3QOol0
0005Ool007ooOol00008Ool01000Oomoo`000Woo00@007ooOol000=oo`03001oogoo00Aoo`03001o
ogoo01Moo`0301moogoo0>9oo`000Woo0P002Woo0P0017oo0P0017oo0`0017oo00<007ooOol05Woo
00<07gooOol0hgoo000QOol00`00Oomoo`0FOol00`0OOomoo`3SOol0025oo`8001Ioo`0301moogoo
0>Aoo`008Goo00<007ooOol05Goo00<07gooOol0i7oo000QOol00`00Oomoo`0DOol00`0OOomoo`3U
Ool0025oo`03001oogoo01Aoo`0301moogoo0>Eoo`008Goo00<007ooOol057oo00<07gooOol0iGoo
000QOol2000DOol00`0OOomoo`3VOol0025oo`03001oogoo01=oo`0301moogoo0>Ioo`008Goo00<0
07ooOol04Woo00<07g`0Ool0igoo000QOol00`00Oomoo`0BOol00`0OOomoo`3WOol0025oo`03001o
ogoo019oo`0301moogoo0>Moo`008Goo0P004Woo00<07g`0Ool0j7oo000QOol00`00Oomoo`0AOol0
0`0OOomoo`3XOol0025oo`03001oogoo015oo`0301moogoo0>Qoo`008Goo00<007ooOol047oo00<0
7g`0Ool0jGoo000QOol00`00Oomoo`0@Ool00`0OOomoo`3YOol0025oo`80015oo`0301moogoo0>Uo
o`008Goo00<007ooOol03goo00<07g`0Ool0jWoo000QOol00`00Oomoo`0?Ool00`0OOomoo`3ZOol0
00Qoo`8000Aoo`8000Aoo`8000=oo`D000=oo`03001oogoo00moo`0301moogoo0>Yoo`001goo00@0
07ooOol000Qoo`04001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00`0OO01oo`3[Ool0
00Moo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol00goo0P003goo00<07gooOol0jgoo
0007Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo00=oo`03001oogoo00ioo`0301mo
ogoo0>]oo`001goo00@007ooOol000Qoo`04001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0=
Ool00`0OO01oo`3/Ool000Qoo`8000Yoo`8000Aoo`8000Eoo`03001oogoo00eoo`0301moogoo0>ao
o`008Goo00<007ooOol03Goo00<07gooOol0k7oo000QOol2000=Ool00`0OO01oo`3]Ool0025oo`03
001oogoo00aoo`0301moogoo0>eoo`008Goo00<007ooOol037oo00<07gooOol0kGoo000QOol00`00
Oomoo`0;Ool00`0OO01oo`3^Ool0025oo`03001oogoo00]oo`0301moogoo0>ioo`008Goo00<007oo
Ool02goo00<07gooOol0kWoo000QOol2000moo`008Goo00<007ooOol02Woo00<07gooOol0kgoo000QOol00`00Oomoo`0:Ool00`0O
Oomoo`3_Ool0025oo`03001oogoo00Yoo`0301moogoo0>moo`008Goo0P002Woo00<07g`0Ool0l7oo
000QOol00`00Oomoo`09Ool00`0OOomoo`3`Ool0025oo`03001oogoo00Uoo`0301moogoo0?1oo`00
8Goo00<007ooOol02Goo00<07gooOol0l7oo000QOol00`00Oomoo`09Ool00`0OOomoo`3`Ool0025o
o`8000Uoo`0301ml07oo0?5oo`008Goo00<007ooOol027oo00<07gooOol0lGoo000QOol00`00Oomo
o`08Ool00`0OOomoo`3aOol0009oo`8000Aoo`8000Aoo`8000=oo`D0009oo`8000Eoo`03001oogoo
00Qoo`0301moogoo0?5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool01@00Oomoogoo0000
0Woo00<007ooOol00Woo00<007ooOol027oo00<07gooOol0lGoo00001Goo001oogoo000027oo00@0
07ooOol000Aoo`03001oogoo00Aoo`03001oogoo009oo`8000Qoo`0301ml07oo0?9oo`0000Eoo`00
Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`07Ool00`0OOomo
o`3bOol00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol00Woo00<007ooOol017oo
00<007ooOol01goo00<07gooOol0lWoo0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Oomo
o`07Ool00`0OOomoo`3bOol0025oo`03001oogoo00Ioo`0301ml07oo0?=oo`008Goo0P001goo00<0
7gooOol0lgoo000QOol00`00Oomoo`06Ool00`0OOomoo`3cOol0025oo`03001oogoo00Ioo`0301mo
ogoo0?=oo`008Goo00<007ooOol01Woo00<07gooOol0lgoo000QOol00`00Oomoo`06Ool00`0OOomo
o`3cOol0025oo`8000Ioo`0301ml07oo0?Aoo`008Goo00<007ooOol01Goo00<07gooOol0m7oo000Q
Ool00`00Oomoo`05Ool00`0OOomoo`3dOol0025oo`03001oogoo00Eoo`0301moogoo0?Aoo`008Goo
00<007ooOol01Goo00<07gooOol0m7oo000QOol20006Ool00`0OOomoo`3dOol0025oo`03001oogoo
00Aoo`0301ml07oo0?Eoo`008Goo00<007ooOol017oo00<07gooOol0mGoo000QOol00`00Oomoo`04
Ool00`0OOomoo`3eOol0025oo`03001oogoo00Aoo`0301moogoo0?Eoo`008Goo0P001Goo00<07goo
Ool0mGoo000QOol00`00Oomoo`04Ool00`0OOomoo`3eOol0025oo`03001oogoo00=oo`0301ml07oo
0?Ioo`0027oo0P0017oo0P0017oo0P000goo100017oo00<007ooOol00goo00<07gooOol0mWoo0007
Ool01000Oomoo`0027oo00@007ooOol0009oo`03001oogoo00Eoo`03001oogoo00=oo`0301moogoo
0?Ioo`001goo00@007ooOol000Qoo`04001oogoo0003Ool00`00Oomoo`04Ool20004Ool00`0OOomo
o`3fOol000Moo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol00goo00<007ooOol00goo
00<07gooOol0mWoo0007Ool01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0004Ool00`00
Oomoo`03Ool00`0OOomoo`3fOol000Qoo`8000Yoo`8000Aoo`8000Eoo`03001oogoo009oo`0301ml
07oo0?Moo`008Goo00<007ooOol00Woo00<07gooOol0mgoo000QOol20003Ool00`0OOomoo`3gOol0
025oo`03001oogoo009oo`0301moogoo0?Moo`008Goo00<007ooOol00Woo00<07gooOol0mgoo000Q
Ool00`00Oomoo`02Ool00`0OOomoo`3gOol0025oo`06001oogooOol07g`0nGoo000QOol01@00Oomo
ogoo01l0nWoo000QOol20002Ool00`0OOomoo`3hOol0025oo`05001oogooOol07`3jOol0025oo`05
001oogooOol07`3jOol0025oo`05001oogooOol07`3jOol0025oo`05001oogooOol07`3jOol0025o
o`80009oo`0301moogoo0?Qoo`008Goo00D007ooOol07g`00?Yoo`008Goo00@007ooOol07o]oo`00
8Goo00@007ooOol07o]oo`008Goo00@007ooOol07o]oo`008Goo0P0000=oo`0OOol0nWoo000QOol0
1000Oomoo`0Ongoo000QOol01000Oomoo`0Ongoo0002Ool20004Ool20004Ool20003Ool40003Ool2
0005Ool01000Oomoo`0Ongoo00001Goo001oogoo000027oo00@007ooOol0009oo`03001oogoo00=o
o`04001oogoo0004Ool01000Oomoo`0Ongoo00001Goo001oogoo000027oo00@007ooOol000=oo`03
001oogoo00Eoo`03001oogoo009oo`800003Ool07goo0?Yoo`0000Eoo`00Oomoo`0000Qoo`04001o
ogoo0004Ool00`00Oomoo`02Ool20005Ool01000Ool07g`0ngoo00001Goo001oogoo000027oo00@0
07ooOol0009oo`04001oogoo0003Ool00`00Oomoo`04Ool00`00Ool07`3lOol0009oo`8000Yoo`80
00Aoo`8000Aoo`<000Aoo`03001oo`0O0?aoo`008Goo00<007oo01l0o7oo000QOol200000`0OOomo
o`3jOol0025oo`03001oo`0O0?aoo`008Goo00<007oo01l0o7oo000QOol00`00Ool07`3lOol0025o
o`03001oo`0O0?aoo`008Goo0P0000<07gooOol0nWoo000QOol00`0001moo`3lOol0025oo`030000
7goo0?aoo`008Goo00<0000OOol0o7oo000QOol00`0001moo`3lOol0025oo`0300007goo0?aoo`00
8Goo00<0000OOol0o7oo000QOol00`0001moo`3lOol0025oo`0300007goo0?aoo`008Goo00<0000O
Ool0o7oo000QOol00`0001moo`3lOol0025oo`0301moogoo0?aoo`008Goo00<07gooOol0o7oo0008
Ool20004Ool20004Ool20004Ool20005Ool00`0OOomoo`3lOol000Moo`04001oogoo0008Ool01000
Oomoo`000Woo00@007ooOol000Aoo`0301moogoo0?aoo`001goo00@007ooOol000Qoo`04001oogoo
0004Ool00`00Oomoo`03Ool00`0O001oo`3lOol000Moo`04001oogoo0008Ool01000Oomoo`001Goo
00<007ooOol0ogoo0Woo0007Ool01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo003oOol4
Ool000Qoo`8000Yoo`8000Aoo`800?moo`Eoo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo
003oOolQOol00001\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.40301*^-05, -0.0030816, \
4.23905*^-07, 0.00019597}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Case 2: Penetration depth is limited by diffusion: ",
FontWeight->"Bold"],
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_d\/\[Delta]\_r\)]],
"<<1"
}], "Subsubtitle",
Background->RGBColor[1, 1, 0.658824]],
Cell["t=10^-7;", "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_d = Sqrt[D\_AB\ t]\)], "Input"],
Cell[BoxData[
\(1.224744871391589`*^-8\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_r = Sqrt[D\_AB/k]\)], "Input"],
Cell[BoxData[
\(6.546536707079772`*^-6\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\[Delta]\_d\/\[Delta]\_r\)], "Input"],
Cell[BoxData[
\(0.0018708286933869704`\)], "Output"]
}, Open ]],
Cell["c=.;t=.;", "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Solving the governing equation with NDSolve using the following boundary \
condition c[10 ",
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_d\)]],
"]=0 with ",
Cell[BoxData[
\(TraditionalForm\`\[Delta]\_d\)]],
"~",
Cell[BoxData[
\(TraditionalForm\`10\^\(-8\)\)]],
"."
}], "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell[BoxData[
\(sol =
NDSolve[{D[c[t, x], {t, 1}] \[Equal]
D\_AB\ D[c[t, x], {x, 2}] - k\ c[t, x],
c[0, x] \[Equal] c0\ Exp[\(-10^20\)\ x], c[t, 0] \[Equal] c0,
c[t, 1\ 10^\(-7\)] \[Equal] 0},
c[t, x], {x, 0, 1\ 10^\(-7\)}, {t, 0, 10^\(-5\)}]\)], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{\(c[t, x]\), "\[Rule]",
RowBox[{
TagBox[\(InterpolatingFunction[{{0.`, 1.`*^-7}, {0.`, 0.00001`}},
"<>"]\),
False,
Editable->False], "[", \(x, t\), "]"}]}], "}"}],
"}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
plt1=Plot[Chop[c[t,x]/.sol/.t->10^-7],{x,0,1 \
10^-7},PlotRange->{0,0.03},PlotStyle->RGBColor[1,0,0]]\
\>", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9.52381e+006 -8.53809e-018 20.6011 [
[.21429 -0.0125 -16.5 -12.5 ]
[.21429 -0.0125 16.5 0 ]
[.40476 -0.0125 -16.5 -12.5 ]
[.40476 -0.0125 16.5 0 ]
[.59524 -0.0125 -16.5 -12.5 ]
[.59524 -0.0125 16.5 0 ]
[.78571 -0.0125 -16.5 -12.5 ]
[.78571 -0.0125 16.5 0 ]
[.97619 -0.0125 -16.5 -12.5 ]
[.97619 -0.0125 16.5 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
gsave
.21429 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(2) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.40476 0 m
.40476 .00625 L
s
gsave
.40476 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(4) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.59524 0 m
.59524 .00625 L
s
gsave
.59524 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(6) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.78571 0 m
.78571 .00625 L
s
gsave
.78571 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(8) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.97619 0 m
.97619 .00625 L
s
gsave
.97619 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-7) show
grestore
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .61803 m
.06244 .50399 L
.10458 .38579 L
.14415 .28759 L
.18221 .2082 L
.22272 .14091 L
.26171 .09206 L
.28302 .07143 L
.30316 .05551 L
.34157 .03335 L
.36141 .02525 L
.38244 .0184 L
.40197 .01346 L
.42027 .00989 L
.44052 .00695 L
.45904 .00504 L
.47803 .00363 L
.49875 .00255 L
.51842 .00175 L
.5394 .00111 L
.54968 .00087 L
.56081 .00065 L
.56592 .00057 L
.57131 .00049 L
.58098 .00039 L
.59046 .00032 L
.60062 .00026 L
.61021 .00022 L
.61895 .00019 L
.6588 9e-005 L
.67702 5e-005 L
.68739 3e-005 L
.69713 2e-005 L
.70176 1e-005 L
.70289 1e-005 L
.70409 1e-005 L
.70541 1e-005 L
.70664 0 L
.71199 0 L
.7169 0 L
s
.7169 0 m
.71788 0 L
s
.74744 0 m
.74796 0 L
.75719 0 L
.7628 0 L
.7681 0 L
.77041 1e-005 L
.77167 1e-005 L
.77286 1e-005 L
.77413 1e-005 L
.77554 1e-005 L
.77674 1e-005 L
.77803 1e-005 L
.77926 1e-005 L
.7804 1e-005 L
.78166 1e-005 L
.78236 1e-005 L
.783 1e-005 L
.78429 1e-005 L
.78569 1e-005 L
.78823 1e-005 L
.7906 1e-005 L
.7931 1e-005 L
.79757 1e-005 L
.80755 0 L
.8185 0 L
s
.8185 0 m
.83625 0 L
s
.91696 0 m
.9172 0 L
.92803 0 L
.9333 0 L
.93808 0 L
.94232 0 L
.94455 0 L
.9469 0 L
.94811 1e-005 L
.94943 1e-005 L
.95063 1e-005 L
.95175 1e-005 L
.9529 1e-005 L
.95395 1e-005 L
.95516 1e-005 L
.95631 1e-005 L
.95745 1e-005 L
.95871 1e-005 L
.96002 0 L
.96126 0 L
.96346 0 L
.96583 0 L
.96847 0 L
.97124 0 L
.97619 0 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHgOol2O02/Ool0
025oo`03001oogoo04aoo`9l0:ioo`008Goo00<007ooOol0BWoo0W`0/7oo000QOol20019Ool2O02b
Ool0025oo`03001oogoo04Ioo`9l0;Aoo`008Goo00<007ooOol0A7oo0W`0]Woo000QOol00`00Oomo
o`12Ool2O02hOol0025oo`03001oogoo045oo`03O01oogoo0;Qoo`008Goo0P00@7oo0W`0^goo000Q
Ool00`00Oomoo`0nOol00g`0Oomoo`2kOol0025oo`03001oogoo03eoo`03O01oogoo0;aoo`008Goo
00<007ooOol0?7oo00=l07ooOol0_Goo000QOol00`00Oomoo`0kOol00g`0Oomoo`2nOol0025oo`80
03]oo`03O01oogoo0;moo`008Goo00<007ooOol0>Woo00=l07ooOol0_goo000QOol00`00Oomoo`0i
Ool00g`0Oomoo`30Ool0009oo`8000Aoo`8000Aoo`8000Aoo`8000Aoo`8000Eoo`03001oogoo03Qo
o`03O01oogoo0<5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomoo`000Woo00@0
07ooOol000Aoo`03001oogoo03Moo`03O01oogoo0<9oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo
0002Ool01000Oomoo`001Goo00<007ooOol00Woo0P00=goo00=l07ooOol0`goo00001Goo001oogoo
000027oo00@007ooOol0009oo`04001oogoo0003Ool20005Ool00`00Oomoo`0eOol00g`0Oomoo`34
Ool00005Ool007ooOol00008Ool01000Oomoo`000Woo00@007ooOol000=oo`03001oogoo00Aoo`03
001oogoo03Eoo`03O01oogoo05oo`0000Eoo`00Oomoo`0000Qoo`04001o
ogoo0004Ool00`00Oomoo`02Ool00`00Oomoo`04Ool00`00Oomoo`0HOol00g`0Oomoo`3QOol0009o
o`8000Yoo`8000Aoo`8000Aoo`<000Aoo`03001oogoo01Moo`03O01oogoo0>9oo`008Goo00<007oo
Ool05goo00=l07ooOol0hWoo000QOol2000HOol00g`0Oomoo`3ROol0025oo`03001oogoo01Ioo`03
O01oogoo0>=oo`008Goo00<007ooOol05Woo00=l07ooOol0hgoo000QOol00`00Oomoo`0EOol00g`0
Oomoo`3TOol0025oo`03001oogoo01Eoo`03O01oogoo0>Aoo`008Goo0P005Woo00=l07ooOol0i7oo
000QOol00`00Oomoo`0DOol00g`0Oomoo`3UOol0025oo`03001oogoo01Aoo`03O01oogoo0>Eoo`00
8Goo00<007ooOol04goo00=l07ooOol0iWoo000QOol00`00Oomoo`0COol00g`0Oomoo`3VOol0025o
o`8001Aoo`03O01oogoo0>Ioo`008Goo00<007ooOol04Woo00=l07ooOol0igoo000QOol00`00Oomo
o`0BOol00g`0Oomoo`3WOol0025oo`03001oogoo015oo`03O01oogoo0>Qoo`008Goo00<007ooOol0
4Goo00=l07ooOol0j7oo000QOol2000BOol00g`0Oomoo`3XOol0025oo`03001oogoo011oo`03O01o
ogoo0>Uoo`008Goo00<007ooOol047oo00=l07ooOol0jGoo0008Ool20004Ool20004Ool20003Ool4
0004Ool00`00Oomoo`0?Ool00g`0Oomoo`3ZOol000Moo`04001oogoo0008Ool01000Oomoo`000Woo
00<007ooOol01Goo00<007ooOol03goo00=l07ooOol0jWoo0007Ool01000Oomoo`0027oo00@007oo
Ool000=oo`03001oogoo00Aoo`80011oo`03O01oogoo0>Yoo`001goo00@007ooOol000Qoo`04001o
ogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00g`0Oomoo`3[Ool000Moo`04001oogoo0008
Ool01000Oomoo`000Woo00@007ooOol000Aoo`03001oogoo00ioo`03O01oogoo0>]oo`0027oo0P00
2Woo0P0017oo0P001Goo00<007ooOol03Woo00=l07ooOol0jgoo000QOol00`00Oomoo`0=Ool00g`0
Oomoo`3/Ool0025oo`8000ioo`03O01oogoo0>aoo`008Goo00<007ooOol037oo00=l07ooOol0kGoo
000QOol00`00Oomoo`0eoo`00
8Goo00<007ooOol02goo00=l07ooOol0kWoo000QOol00`00Oomoo`0;Ool00g`0Oomoo`3^Ool0025o
o`8000aoo`03O01oogoo0>ioo`008Goo00<007ooOol02Woo00=l07ooOol0kgoo000QOol00`00Oomo
o`0:Ool00g`0Oomoo`3_Ool0025oo`03001oogoo00Uoo`03O01oogoo0?1oo`008Goo00<007ooOol0
2Goo00=l07ooOol0l7oo000QOol2000:Ool00g`0Oomoo`3`Ool0025oo`03001oogoo00Qoo`03O01o
ogoo0?5oo`008Goo00<007ooOol027oo00=l07ooOol0lGoo000QOol00`00Oomoo`08Ool00g`0Oomo
o`3aOol0025oo`03001oogoo00Moo`03O01oogoo0?9oo`008Goo0P0027oo00=l07ooOol0lWoo000Q
Ool00`00Oomoo`06Ool00g`0Oomoo`3cOol0025oo`03001oogoo00Ioo`03O01oogoo0?=oo`000Woo
0P0017oo0P0017oo0P000goo10000goo0P001Goo00<007ooOol01Woo00=l07ooOol0lgoo00001Goo
001oogoo000027oo00@007ooOol0009oo`03001oogoo00=oo`04001oogoo0004Ool00`00Oomoo`05
Ool00g`0Oomoo`3dOol00005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol01Goo00<0
07ooOol00Woo0P001Woo00=l07ooOol0m7oo00001Goo001oogoo000027oo00@007ooOol000Aoo`03
001oogoo009oo`8000Eoo`03001oogoo00Eoo`03O01oogoo0?Aoo`0000Eoo`00Oomoo`0000Qoo`04
001oogoo0002Ool01000Oomoo`000goo00<007ooOol017oo00<007ooOol017oo00=l07ooOol0mGoo
0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Oomoo`04Ool00g`0Oomoo`3eOol0025oo`03
001oogoo00Aoo`03O01oogoo0?Eoo`008Goo0P001Goo00=l07ooOol0mGoo000QOol00`00Oomoo`03
Ool00g`0Oomoo`3fOol0025oo`03001oogoo00=oo`03O01oogoo0?Ioo`008Goo00<007ooOol00goo
00=l07ooOol0mWoo000QOol00`00Oomoo`02Ool00g`0Oomoo`3gOol0025oo`8000=oo`03O01oogoo
0?Moo`008Goo00<007ooOol00Woo00=l07ooOol0mgoo000QOol01@00OomoogooO000nWoo000QOol0
1@00OomoogooO000nWoo000QOol01@00OomoogooO000nWoo000QOol200000gooO01oo`3jOol0025o
o`04001oogooO03kOol0025oo`04001oogooO03kOol0025oo`03001oog`00?aoo`008Goo00<007oo
O000o7oo000QOol200000g`0Oomoo`3jOol0025oo`03001oog`00?aoo`008Goo00<007`0Ool0o7oo
000QOol00`00O01oo`3lOol000Qoo`8000Aoo`8000Aoo`8000Aoo`8000Eoo`03001l07oo0?aoo`00
1goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00=l07ooOol0o7oo0007Ool0
1000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo00=oo`03O00007oo0?aoo`001goo00@007oo
Ool000Qoo`04001oogoo0005Ool00`00Oomoo`3oOol2Ool000Moo`04001oogoo0008Ool01000Oomo
o`000Woo00@007ooOol00?moo`Aoo`0027oo0P002Woo0P0017oo0P00ogoo1Goo003oOolQOol00?mo
ob5oo`00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.39508*^-08, -0.00331152, \
4.21262*^-10, 0.000194748}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Danckwerts' solution:", "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell[BoxData[
\(c =
c0\ \((0.5\ Exp[\(-x\)\ \((k/D\_AB)\)^0.5]\ Erfc[
x/\((2\ \((t\ D\_AB)\)^0.5)\) - \((t\ k)\)^0.5] +
0.5\ Exp[x\ \((k/D\_AB)\)^0.5]\ Erfc[
x/\((2\ \((t\ D\_AB)\)^0.5)\) + \((t\ k)\)^0.5])\)\)], "Input"],
Cell[BoxData[
\(3\/100\ \((0.5`\ \[ExponentialE]\^\(\(-152752.52316519467`\)\ x\)\ \
Erfc[\(-5.916079783099616`\)\ t\^0.5` + \(12909.944487358056`\ x\)\/t\^0.5`] \
+ 0.5`\ \[ExponentialE]\^\(152752.52316519467`\ x\)\ Erfc[
5.916079783099616`\ t\^0.5` + \(12909.944487358056`\ \
x\)\/t\^0.5`])\)\)], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
plt2=Plot[Chop[c/.t->10^-7],{x,0,1 \
10^-7},PlotRange->{0,0.03},PlotStyle->RGBColor[0,0,1]]\
\>", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9.52381e+006 -8.53809e-018 20.6011 [
[.21429 -0.0125 -16.5 -12.5 ]
[.21429 -0.0125 16.5 0 ]
[.40476 -0.0125 -16.5 -12.5 ]
[.40476 -0.0125 16.5 0 ]
[.59524 -0.0125 -16.5 -12.5 ]
[.59524 -0.0125 16.5 0 ]
[.78571 -0.0125 -16.5 -12.5 ]
[.78571 -0.0125 16.5 0 ]
[.97619 -0.0125 -16.5 -12.5 ]
[.97619 -0.0125 16.5 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
gsave
.21429 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(2) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.40476 0 m
.40476 .00625 L
s
gsave
.40476 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(4) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.59524 0 m
.59524 .00625 L
s
gsave
.59524 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(6) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.78571 0 m
.78571 .00625 L
s
gsave
.78571 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(8) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.97619 0 m
.97619 .00625 L
s
gsave
.97619 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-7) show
grestore
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
0 0 1 r
.5 Mabswid
.02381 .61803 m
.06244 .50359 L
.10458 .38589 L
.14415 .2878 L
.18221 .20824 L
.22272 .14084 L
.26171 .09224 L
.28158 .07301 L
.30316 .05585 L
.34309 .03271 L
.36292 .0246 L
.38395 .01793 L
.40349 .0132 L
.42179 .00979 L
.44203 .00694 L
.46056 .00501 L
.47954 .00354 L
.49041 .00289 L
.50027 .00239 L
.51994 .00163 L
.53074 .00131 L
.54091 .00106 L
.55068 .00087 L
.56099 .0007 L
.57946 .00047 L
.58894 .00038 L
.5991 .0003 L
.61744 .0002 L
.62761 .00016 L
.63868 .00012 L
.64824 9e-005 L
.6588 7e-005 L
.66831 6e-005 L
.67857 4e-005 L
.68941 3e-005 L
.69958 3e-005 L
.70915 2e-005 L
.71962 2e-005 L
.73055 1e-005 L
.74072 1e-005 L
.75124 1e-005 L
.76118 0 L
.77009 0 L
.77976 0 L
.78923 0 L
.79964 0 L
.81051 0 L
.82068 0 L
.83109 0 L
.84097 0 L
Mistroke
.84984 0 L
.85951 0 L
.86985 0 L
.87922 0 L
.89003 0 L
.9002 0 L
.90999 0 L
.92032 0 L
.92914 0 L
.93881 0 L
.94826 0 L
.95686 0 L
.96679 0 L
.97619 0 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHgOol201n/Ool0
025oo`03001oogoo04aoo`807jioo`008Goo00<007ooOol0BWoo0P0O/7oo000QOol20019Ool201nb
Ool0025oo`03001oogoo04Ioo`807kAoo`008Goo00<007ooOol0A7oo0P0O]Woo000QOol00`00Oomo
o`12Ool201nhOol0025oo`03001oogoo045oo`0301moogoo0;Qoo`008Goo0P00@Goo00<07gooOol0
^Goo000QOol00`00Oomoo`0oOol00`0OOomoo`2jOol0025oo`03001oogoo03ioo`0301moogoo0;]o
o`008Goo00<007ooOol0?Goo00<07gooOol0_7oo000QOol00`00Oomoo`0lOol00`0OOomoo`2mOol0
025oo`8003aoo`0301moogoo0;ioo`008Goo00<007ooOol0>Woo00<07gooOol0_goo000QOol00`00
Oomoo`0iOol00`0OOomoo`30Ool0009oo`8000Aoo`8000Aoo`8000Aoo`8000Aoo`8000Eoo`03001o
ogoo03Qoo`0301moogoo0<5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomoo`00
0Woo00@007ooOol000Aoo`03001oogoo03Moo`0301moogoo0<9oo`0000Eoo`00Oomoo`0000Qoo`04
001oogoo0002Ool01000Oomoo`001Goo00<007ooOol00Woo0P00=goo00<07gooOol0`goo00001Goo
001oogoo000027oo00@007ooOol0009oo`04001oogoo0003Ool20005Ool00`00Oomoo`0eOol00`0O
Oomoo`34Ool00005Ool007ooOol00008Ool01000Oomoo`000Woo00@007ooOol000=oo`03001oogoo
00Aoo`03001oogoo03Eoo`0301moogoo05oo`0000Eoo`00Oomoo`0000Qo
o`04001oogoo0004Ool00`00Oomoo`02Ool00`00Oomoo`04Ool00`00Oomoo`0HOol00`0OOomoo`3Q
Ool0009oo`8000Yoo`8000Aoo`8000Aoo`<000Aoo`03001oogoo01Moo`0301moogoo0>9oo`008Goo
00<007ooOol05goo00<07gooOol0hWoo000QOol2000HOol00`0OOomoo`3ROol0025oo`03001oogoo
01Ioo`0301moogoo0>=oo`008Goo00<007ooOol05Woo00<07gooOol0hgoo000QOol00`00Oomoo`0E
Ool00`0OOomoo`3TOol0025oo`03001oogoo01Eoo`0301moogoo0>Aoo`008Goo0P005Woo00<07goo
Ool0i7oo000QOol00`00Oomoo`0DOol00`0OOomoo`3UOol0025oo`03001oogoo01Aoo`0301moogoo
0>Eoo`008Goo00<007ooOol04goo00<07gooOol0iWoo000QOol00`00Oomoo`0COol00`0OOomoo`3V
Ool0025oo`8001Aoo`0301moogoo0>Ioo`008Goo00<007ooOol04Woo00<07gooOol0igoo000QOol0
0`00Oomoo`0BOol00`0OOomoo`3WOol0025oo`03001oogoo015oo`0301moogoo0>Qoo`008Goo00<0
07ooOol04Goo00<07gooOol0j7oo000QOol2000BOol00`0OOomoo`3XOol0025oo`03001oogoo011o
o`0301moogoo0>Uoo`008Goo00<007ooOol047oo00<07gooOol0jGoo0008Ool20004Ool20004Ool2
0003Ool40004Ool00`00Oomoo`0?Ool00`0OOomoo`3ZOol000Moo`04001oogoo0008Ool01000Oomo
o`000Woo00<007ooOol01Goo00<007ooOol03goo00<07gooOol0jWoo0007Ool01000Oomoo`0027oo
00@007ooOol000=oo`03001oogoo00Aoo`80011oo`0301moogoo0>Yoo`001goo00@007ooOol000Qo
o`04001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00`0OOomoo`3[Ool000Moo`04001o
ogoo0008Ool01000Oomoo`000Woo00@007ooOol000Aoo`03001oogoo00ioo`0301moogoo0>]oo`00
27oo0P002Woo0P0017oo0P001Goo00<007ooOol03Woo00<07gooOol0jgoo000QOol00`00Oomoo`0=
Ool00`0OOomoo`3/Ool0025oo`8000ioo`0301moogoo0>aoo`008Goo00<007ooOol037oo00<07goo
Ool0kGoo000QOol00`00Oomoo`0eoo`008Goo00<007ooOol02goo00<07gooOol0kWoo000QOol00`00Oomoo`0;Ool00`0OOomoo`3^
Ool0025oo`8000aoo`0301moogoo0>ioo`008Goo00<007ooOol02Woo00<07gooOol0kgoo000QOol0
0`00Oomoo`0:Ool00`0OOomoo`3_Ool0025oo`03001oogoo00Uoo`0301moogoo0?1oo`008Goo00<0
07ooOol02Goo00<07gooOol0l7oo000QOol2000:Ool00`0OOomoo`3`Ool0025oo`03001oogoo00Qo
o`0301moogoo0?5oo`008Goo00<007ooOol027oo00<07gooOol0lGoo000QOol00`00Oomoo`08Ool0
0`0OOomoo`3aOol0025oo`03001oogoo00Moo`0301moogoo0?9oo`008Goo0P0027oo00<07gooOol0
lWoo000QOol00`00Oomoo`06Ool00`0OOomoo`3cOol0025oo`03001oogoo00Ioo`0301moogoo0?=o
o`000Woo0P0017oo0P0017oo0P000goo10000goo0P001Goo00<007ooOol01Woo00<07gooOol0lgoo
00001Goo001oogoo000027oo00@007ooOol0009oo`03001oogoo00=oo`04001oogoo0004Ool00`00
Oomoo`05Ool00`0OOomoo`3dOol00005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol0
1Goo00<007ooOol00Woo0P001Woo00<07gooOol0m7oo00001Goo001oogoo000027oo00@007ooOol0
00Aoo`03001oogoo009oo`8000Eoo`03001oogoo00Eoo`0301moogoo0?Aoo`0000Eoo`00Oomoo`00
00Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007ooOol017oo00<007ooOol017oo00<07goo
Ool0mGoo0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Oomoo`04Ool00`0OOomoo`3eOol0
025oo`03001oogoo00Aoo`0301moogoo0?Eoo`008Goo0P001Goo00<07gooOol0mGoo000QOol00`00
Oomoo`03Ool00`0OOomoo`3fOol0025oo`03001oogoo00=oo`0301moogoo0?Ioo`008Goo00<007oo
Ool00goo00<07gooOol0mWoo000QOol00`00Oomoo`02Ool00`0OOomoo`3gOol0025oo`8000=oo`03
01moogoo0?Moo`008Goo00<007ooOol00Woo00<07gooOol0mgoo000QOol01@00Oomoogoo01l0nWoo
000QOol01@00Oomoogoo01l0nWoo000QOol01@00Oomoogoo01l0nWoo000QOol200000goo01moo`3j
Ool0025oo`04001oogoo01okOol0025oo`04001oogoo01okOol0025oo`03001oo`0O0?aoo`008Goo
00<007oo01l0o7oo000QOol200000`0OOomoo`3jOol0025oo`03001oo`0O0?aoo`008Goo00<0000O
Ool0o7oo000QOol00`0001moo`3lOol000Qoo`8000Aoo`8000Aoo`8000Aoo`8000Eoo`0300007goo
0?aoo`001goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00<07gooOol0o7oo
0007Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo00=oo`0301l007oo0?aoo`001goo
00@007ooOol000Qoo`04001oogoo0005Ool00`00Oomoo`3oOol2Ool000Moo`04001oogoo0008Ool0
1000Oomoo`000Woo00@007ooOol00?moo`Aoo`0027oo0P002Woo0P0017oo0P00ogoo1Goo003oOolQ
Ool00?moob5oo`00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.39508*^-08, -0.00331152, \
4.21262*^-10, 0.000194748}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Both methods give the same concentration profile", "Subsubtitle",
Background->RGBColor[1, 1, 0.666667]],
Cell[CellGroupData[{
Cell["Show[plt1,plt2]", "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 9.52381e+006 -8.53809e-018 20.6011 [
[.21429 -0.0125 -16.5 -12.5 ]
[.21429 -0.0125 16.5 0 ]
[.40476 -0.0125 -16.5 -12.5 ]
[.40476 -0.0125 16.5 0 ]
[.59524 -0.0125 -16.5 -12.5 ]
[.59524 -0.0125 16.5 0 ]
[.78571 -0.0125 -16.5 -12.5 ]
[.78571 -0.0125 16.5 0 ]
[.97619 -0.0125 -16.5 -12.5 ]
[.97619 -0.0125 16.5 0 ]
[.01131 .10301 -30 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -24 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -30 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -24 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -30 -4.5 ]
[.01131 .51503 0 4.5 ]
[.01131 .61803 -24 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
gsave
.21429 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(2) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.40476 0 m
.40476 .00625 L
s
gsave
.40476 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(4) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.59524 0 m
.59524 .00625 L
s
gsave
.59524 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(6) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.78571 0 m
.78571 .00625 L
s
gsave
.78571 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(8) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-8) show
grestore
.97619 0 m
.97619 .00625 L
s
gsave
.97619 -0.0125 -16.5 -10.5 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-7) show
grestore
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.005)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.01)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.015)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.02)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(0.025)] .01131 .51503 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(0.03)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0206 m
.02756 .0206 L
s
.02381 .0412 m
.02756 .0412 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .0824 m
.02756 .0824 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14421 m
.02756 .14421 L
s
.02381 .16481 m
.02756 .16481 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .22661 m
.02756 .22661 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .26781 m
.02756 .26781 L
s
.02381 .28842 m
.02756 .28842 L
s
.02381 .32962 m
.02756 .32962 L
s
.02381 .35022 m
.02756 .35022 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .39142 m
.02756 .39142 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .45322 m
.02756 .45322 L
s
.02381 .47383 m
.02756 .47383 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .53563 m
.02756 .53563 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .57683 m
.02756 .57683 L
s
.02381 .59743 m
.02756 .59743 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .61803 m
.06244 .50399 L
.10458 .38579 L
.14415 .28759 L
.18221 .2082 L
.22272 .14091 L
.26171 .09206 L
.28302 .07143 L
.30316 .05551 L
.34157 .03335 L
.36141 .02525 L
.38244 .0184 L
.40197 .01346 L
.42027 .00989 L
.44052 .00695 L
.45904 .00504 L
.47803 .00363 L
.49875 .00255 L
.51842 .00175 L
.5394 .00111 L
.54968 .00087 L
.56081 .00065 L
.56592 .00057 L
.57131 .00049 L
.58098 .00039 L
.59046 .00032 L
.60062 .00026 L
.61021 .00022 L
.61895 .00019 L
.6588 9e-005 L
.67702 5e-005 L
.68739 3e-005 L
.69713 2e-005 L
.70176 1e-005 L
.70289 1e-005 L
.70409 1e-005 L
.70541 1e-005 L
.70664 0 L
.71199 0 L
.7169 0 L
s
.7169 0 m
.71788 0 L
s
.74744 0 m
.74796 0 L
.75719 0 L
.7628 0 L
.7681 0 L
.77041 1e-005 L
.77167 1e-005 L
.77286 1e-005 L
.77413 1e-005 L
.77554 1e-005 L
.77674 1e-005 L
.77803 1e-005 L
.77926 1e-005 L
.7804 1e-005 L
.78166 1e-005 L
.78236 1e-005 L
.783 1e-005 L
.78429 1e-005 L
.78569 1e-005 L
.78823 1e-005 L
.7906 1e-005 L
.7931 1e-005 L
.79757 1e-005 L
.80755 0 L
.8185 0 L
s
.8185 0 m
.83625 0 L
s
.91696 0 m
.9172 0 L
.92803 0 L
.9333 0 L
.93808 0 L
.94232 0 L
.94455 0 L
.9469 0 L
.94811 1e-005 L
.94943 1e-005 L
.95063 1e-005 L
.95175 1e-005 L
.9529 1e-005 L
.95395 1e-005 L
.95516 1e-005 L
.95631 1e-005 L
.95745 1e-005 L
.95871 1e-005 L
.96002 0 L
.96126 0 L
.96346 0 L
.96583 0 L
.96847 0 L
.97124 0 L
.97619 0 L
s
0 0 1 r
.02381 .61803 m
.06244 .50359 L
.10458 .38589 L
.14415 .2878 L
.18221 .20824 L
.22272 .14084 L
.26171 .09224 L
.28158 .07301 L
.30316 .05585 L
.34309 .03271 L
.36292 .0246 L
.38395 .01793 L
.40349 .0132 L
.42179 .00979 L
.44203 .00694 L
.46056 .00501 L
.47954 .00354 L
.49041 .00289 L
.50027 .00239 L
.51994 .00163 L
.53074 .00131 L
.54091 .00106 L
.55068 .00087 L
.56099 .0007 L
.57946 .00047 L
.58894 .00038 L
.5991 .0003 L
.61744 .0002 L
.62761 .00016 L
.63868 .00012 L
.64824 9e-005 L
.6588 7e-005 L
.66831 6e-005 L
.67857 4e-005 L
.68941 3e-005 L
.69958 3e-005 L
.70915 2e-005 L
.71962 2e-005 L
.73055 1e-005 L
.74072 1e-005 L
.75124 1e-005 L
.76118 0 L
.77009 0 L
.77976 0 L
.78923 0 L
.79964 0 L
.81051 0 L
.82068 0 L
.83109 0 L
.84097 0 L
Mistroke
.84984 0 L
.85951 0 L
.86985 0 L
.87922 0 L
.89003 0 L
.9002 0 L
.90999 0 L
.92032 0 L
.92914 0 L
.93881 0 L
.94826 0 L
.95686 0 L
.96679 0 L
.97619 0 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg
Ool201n/Ool0025oo`03001oogoo04aoo`807jioo`008Goo00<007ooOol0BWoo0P0O/7oo000QOol2
0019Ool201nbOol0025oo`03001oogoo04Ioo`807kAoo`008Goo00<007ooOol0A7oo0P0O]Woo000Q
Ool00`00Oomoo`12Ool201nhOol0025oo`03001oogoo045oo`0301moogoo0;Qoo`008Goo0P00@7oo
00=l000OOol0^Woo000QOol00`00Oomoo`0nOol00g`001moo`2kOol0025oo`03001oogoo03eoo`03
O0007goo0;aoo`008Goo00<007ooOol0?7oo00=l000OOol0_Goo000QOol00`00Oomoo`0kOol00g`0
01moo`2nOol0025oo`8003]oo`03O0007goo0;moo`008Goo00<007ooOol0>Woo00<07gooOol0_goo
000QOol00`00Oomoo`0iOol00`0OOomoo`30Ool0009oo`8000Aoo`8000Aoo`8000Aoo`8000Aoo`80
00Eoo`03001oogoo03Qoo`0301moogoo0<5oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool0
1000Oomoo`000Woo00@007ooOol000Aoo`03001oogoo03Moo`0301moogoo0<9oo`0000Eoo`00Oomo
o`0000Qoo`04001oogoo0002Ool01000Oomoo`001Goo00<007ooOol00Woo0P00=goo00<07gooOol0
`goo00001Goo001oogoo000027oo00@007ooOol0009oo`04001oogoo0003Ool20005Ool00`00Oomo
o`0eOol00`0OOomoo`34Ool00005Ool007ooOol00008Ool01000Oomoo`000Woo00@007ooOol000=o
o`03001oogoo00Aoo`03001oogoo03Eoo`0301moogoo05oo`0000Eoo`00
Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`02Ool00`00Oomoo`04Ool00`00Oomoo`0HOol0
0`0OOomoo`3QOol0009oo`8000Yoo`8000Aoo`8000Aoo`<000Aoo`03001oogoo01Moo`0301moogoo
0>9oo`008Goo00<007ooOol05goo00<07gooOol0hWoo000QOol2000HOol00`0OOomoo`3ROol0025o
o`03001oogoo01Ioo`0301moogoo0>=oo`008Goo00<007ooOol05Woo00<07gooOol0hgoo000QOol0
0`00Oomoo`0EOol00`0OOomoo`3TOol0025oo`03001oogoo01Eoo`0301moogoo0>Aoo`008Goo0P00
5Woo00<07gooOol0i7oo000QOol00`00Oomoo`0DOol00`0OOomoo`3UOol0025oo`03001oogoo01Ao
o`0301moogoo0>Eoo`008Goo00<007ooOol04goo00<07gooOol0iWoo000QOol00`00Oomoo`0COol0
0`0OOomoo`3VOol0025oo`8001Aoo`0301moogoo0>Ioo`008Goo00<007ooOol04Woo00<07gooOol0
igoo000QOol00`00Oomoo`0BOol00`0OOomoo`3WOol0025oo`03001oogoo015oo`0301moogoo0>Qo
o`008Goo00<007ooOol04Goo00<07gooOol0j7oo000QOol2000BOol00`0OOomoo`3XOol0025oo`03
001oogoo011oo`0301moogoo0>Uoo`008Goo00<007ooOol047oo00<07gooOol0jGoo0008Ool20004
Ool20004Ool20003Ool40004Ool00`00Oomoo`0?Ool00`0OOomoo`3ZOol000Moo`04001oogoo0008
Ool01000Oomoo`000Woo00<007ooOol01Goo00<007ooOol03goo00<07gooOol0jWoo0007Ool01000
Oomoo`0027oo00@007ooOol000=oo`03001oogoo00Aoo`80011oo`0301moogoo0>Yoo`001goo00@0
07ooOol000Qoo`04001oogoo0004Ool00`00Oomoo`03Ool00`00Oomoo`0>Ool00`0OOomoo`3[Ool0
00Moo`04001oogoo0008Ool01000Oomoo`000Woo00@007ooOol000Aoo`03001oogoo00ioo`0301mo
ogoo0>]oo`0027oo0P002Woo0P0017oo0P001Goo00<007ooOol03Woo00<07gooOol0jgoo000QOol0
0`00Oomoo`0=Ool00`0OOomoo`3/Ool0025oo`8000ioo`0301moogoo0>aoo`008Goo00<007ooOol0
37oo00<07gooOol0kGoo000QOol00`00Oomoo`0eoo`008Goo00<007ooOol02goo00<07gooOol0kWoo000QOol00`00Oomoo`0;Ool0
0`0OOomoo`3^Ool0025oo`8000aoo`0301moogoo0>ioo`008Goo00<007ooOol02Woo00<07gooOol0
kgoo000QOol00`00Oomoo`0:Ool00`0OOomoo`3_Ool0025oo`03001oogoo00Uoo`0301moogoo0?1o
o`008Goo00<007ooOol02Goo00<07gooOol0l7oo000QOol2000:Ool00`0OOomoo`3`Ool0025oo`03
001oogoo00Qoo`0301moogoo0?5oo`008Goo00<007ooOol027oo00<07gooOol0lGoo000QOol00`00
Oomoo`08Ool00`0OOomoo`3aOol0025oo`03001oogoo00Moo`0301moogoo0?9oo`008Goo0P0027oo
00<07gooOol0lWoo000QOol00`00Oomoo`06Ool00`0OOomoo`3cOol0025oo`03001oogoo00Ioo`03
01moogoo0?=oo`000Woo0P0017oo0P0017oo0P000goo10000goo0P001Goo00<007ooOol01Woo00<0
7gooOol0lgoo00001Goo001oogoo000027oo00@007ooOol0009oo`03001oogoo00=oo`04001oogoo
0004Ool00`00Oomoo`05Ool00`0OOomoo`3dOol00005Ool007ooOol00008Ool01000Oomoo`000goo
00<007ooOol01Goo00<007ooOol00Woo0P001Woo00<07gooOol0m7oo00001Goo001oogoo000027oo
00@007ooOol000Aoo`03001oogoo009oo`8000Eoo`03001oogoo00Eoo`0301moogoo0?Aoo`0000Eo
o`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007ooOol017oo00<007ooOol0
17oo00<07gooOol0mGoo0002Ool2000:Ool20004Ool20004Ool30004Ool00`00Oomoo`04Ool00`0O
Oomoo`3eOol0025oo`03001oogoo00Aoo`0301moogoo0?Eoo`008Goo0P001Goo00<07gooOol0mGoo
000QOol00`00Oomoo`03Ool00`0OOomoo`3fOol0025oo`03001oogoo00=oo`0301moogoo0?Ioo`00
8Goo00<007ooOol00goo00<07gooOol0mWoo000QOol00`00Oomoo`02Ool00`0OOomoo`3gOol0025o
o`8000=oo`0301moogoo0?Moo`008Goo00<007ooOol00Woo00<07gooOol0mgoo000QOol01@00Oomo
ogoo01l0nWoo000QOol01@00Oomoogoo01l0nWoo000QOol01@00Oomoogoo01l0nWoo000QOol20000
0goo01moo`3jOol0025oo`04001oogoo01okOol0025oo`04001oogoo01okOol0025oo`03001oo`0O
0?aoo`008Goo00<007oo01l0o7oo000QOol200000`0OOomoo`3jOol0025oo`03001oo`0O0?aoo`00
8Goo00<0000OOol0o7oo000QOol00`0001moo`3lOol000Qoo`8000Aoo`8000Aoo`8000Aoo`8000Eo
o`0300007goo0?aoo`001goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00<0
7gooOol0o7oo0007Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo00=oo`0301l007oo
0?aoo`001goo00@007ooOol000Qoo`04001oogoo0005Ool00`00Oomoo`3oOol2Ool000Moo`04001o
ogoo0008Ool01000Oomoo`000Woo00@007ooOol00?moo`Aoo`0027oo0P002Woo0P0017oo0P00ogoo
1Goo003oOolQOol00?moob5oo`00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.39508*^-08, -0.00331152, \
4.21262*^-10, 0.000194748}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output"]
}, Open ]]
}, Closed]]
}, Open ]]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 695}},
CellGrouping->Manual,
WindowSize->{496, 537},
WindowMargins->{{0, Automatic}, {Automatic, 0}}
]
(*******************************************************************
Cached data follows. If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of the file. The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1776, 53, 635, 20, 278, "Title"],
Cell[2414, 75, 209, 3, 68, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2648, 82, 110, 1, 46, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2783, 87, 6167, 79, 60, 6071, 76, "GraphicsData", "Metafile", \
"Graphics"],
Cell[8953, 168, 6509, 83, 92, 6411, 80, "GraphicsData", "Metafile", \
"Graphics"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15511, 257, 163, 4, 68, "Subsubtitle"],
Cell[15677, 263, 18923, 236, 135, 18828, 233, "GraphicsData", "Metafile", \
"Graphics"]
}, Closed]],
Cell[CellGroupData[{
Cell[34637, 504, 212, 6, 68, "Subsubtitle"],
Cell[34852, 512, 60, 1, 30, "Input"],
Cell[34915, 515, 22, 0, 30, "Input"],
Cell[34940, 517, 28, 0, 30, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[35005, 522, 243, 7, 84, "Subsubtitle"],
Cell[35251, 531, 24, 0, 30, "Input"],
Cell[CellGroupData[{
Cell[35300, 535, 61, 1, 30, "Input"],
Cell[35364, 538, 56, 1, 29, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[35457, 544, 60, 1, 30, "Input"],
Cell[35520, 547, 56, 1, 29, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[35613, 553, 57, 1, 44, "Input"],
Cell[35673, 556, 52, 1, 29, "Output"]
}, Open ]],
Cell[35740, 560, 25, 0, 30, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[35802, 565, 371, 13, 68, "Subsubtitle"],
Cell[CellGroupData[{
Cell[36198, 582, 304, 6, 150, "Input"],
Cell[36505, 590, 334, 10, 48, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[36876, 605, 125, 3, 66, "Input"],
Cell[37004, 610, 14563, 433, 186, 4190, 301, "GraphicsData", "PostScript", \
"Graphics"],
Cell[51570, 1045, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[51749, 1054, 84, 1, 48, "Subsubtitle"],
Cell[CellGroupData[{
Cell[51858, 1059, 277, 5, 130, "Input"],
Cell[52138, 1066, 326, 5, 76, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[52501, 1076, 113, 3, 48, "Input"],
Cell[52617, 1081, 14325, 416, 186, 3968, 284, "GraphicsData", "PostScript", \
"Graphics"],
Cell[66945, 1499, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[67124, 1508, 111, 1, 48, "Subsubtitle"],
Cell[CellGroupData[{
Cell[67260, 1513, 32, 0, 30, "Input"],
Cell[67295, 1515, 15308, 485, 186, 4914, 352, "GraphicsData", "PostScript", \
"Graphics"],
Cell[82606, 2002, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[82785, 2011, 244, 7, 84, "Subsubtitle"],
Cell[83032, 2020, 25, 0, 30, "Input"],
Cell[CellGroupData[{
Cell[83082, 2024, 61, 1, 30, "Input"],
Cell[83146, 2027, 56, 1, 29, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[83239, 2033, 60, 1, 30, "Input"],
Cell[83302, 2036, 56, 1, 29, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[83395, 2042, 57, 1, 44, "Input"],
Cell[83455, 2045, 56, 1, 29, "Output"]
}, Open ]],
Cell[83526, 2049, 25, 0, 30, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[83588, 2054, 371, 13, 68, "Subsubtitle"],
Cell[CellGroupData[{
Cell[83984, 2071, 310, 6, 150, "Input"],
Cell[84297, 2079, 337, 10, 48, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[84671, 2094, 126, 3, 66, "Input"],
Cell[84800, 2099, 15365, 515, 186, 5868, 393, "GraphicsData", "PostScript", \
"Graphics"],
Cell[100168, 2616, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[100347, 2625, 84, 1, 48, "Subsubtitle"],
Cell[CellGroupData[{
Cell[100456, 2630, 277, 5, 130, "Input"],
Cell[100736, 2637, 326, 5, 76, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[101099, 2647, 116, 3, 66, "Input"],
Cell[101218, 2652, 14941, 482, 186, 5436, 360, "GraphicsData", "PostScript", \
"Graphics"],
Cell[116162, 3136, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[116341, 3145, 111, 1, 48, "Subsubtitle"],
Cell[CellGroupData[{
Cell[116477, 3150, 32, 0, 30, "Input"],
Cell[116512, 3152, 16311, 582, 186, 6794, 460, "GraphicsData", "PostScript", \
"Graphics"],
Cell[132826, 3736, 130, 3, 29, "Output"]
}, Open ]]
}, Closed]]
}, Open ]]
}
]
*)
(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)