(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. 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[ 116861, 3128]*) (*NotebookOutlinePosition[ 118027, 3169]*) (* CellTagsIndexPosition[ 117902, 3161]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Multicomponent Distillation", FontSize->24], StyleBox["\n", FontSize->20], StyleBox["Case of Pentane-Hexane-Heptane System", FontSize->20, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], 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, Background->RGBColor[0.605478, 0.996109, 0.605478]], Cell[TextData[{ StyleBox["Pentane = component 1\nHexane = component 2\nHeptane = component \ 3 \n\nRelative volatilities:", "Subsubtitle", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox[" ", "Subsubtitle", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ \(TraditionalForm\`\[Alpha]\_13\)], FontSize->14, FontSlant->"Italic"], StyleBox["=6.35", FontSize->14, FontWeight->"Plain", FontSlant->"Italic"], StyleBox[", ", "Subsubtitle", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ \(TraditionalForm\`\[Alpha]\_23\)], FontSize->14, FontSlant->"Italic"], StyleBox["=2.47", FontSize->14, FontWeight->"Plain", FontSlant->"Italic"], StyleBox["\n\n", FontSize->16], StyleBox["Feed composition: 30% Pentane, 30% Hexane, 40% Heptane\n\nFeed is \ saturated liquid\n\nDistillate composition: 95% Pentane, 4.9% Hexane, 0.1% \ Heptane\n\nBottom composition: 5% Pentane\n\nReference: Doherty and Malone, \ Conceptual Design of Distillation Systems, McGraw-Hill, 2001", FontSize->14, FontWeight->"Plain", FontSlant->"Italic"] }], "Title", Background->RGBColor[0.996109, 0.996109, 0.589853]], Cell[CellGroupData[{ Cell["\<\ Overall Material Balance gives Bottom composition: 5% Pentane, 39.7% Hexane, 55.3% Heptane\ \>", "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.589853]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[{F \[Equal] \ D + B, \ F\ 0.3 \[Equal] \ D\ 0.95 + B\ 0.05, \[IndentingNewLine]F\ 0.3 \[Equal] \ D\ 0.049 + \ B\ Hexane_Bottom, \ D/F \[Equal] \ \((0.3 - 0.05)\)/\((0.95 - 0.05)\)}, {F, B, D, Hexane_Bottom}]\)], "Input"], Cell[BoxData[ \(Solve::"svars" \(\(:\)\(\ \)\) "Equations may not give solutions for all \"solve\" variables."\)], \ "Message"], Cell[BoxData[ \({{Hexane_Bottom \[Rule] 0.39653846153846156`, D \[Rule] 0.2777777777777778`\ F, B \[Rule] 0.7222222222222222`\ F}}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of the liquid composition profile in the ", ButtonBox["Rectifying Section", ButtonData:>"RECTF", ButtonStyle->"Hyperlink"], " with 10 Stages. Reflux ratio is equal to 2.5." }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.589853]], Cell[BoxData[ \(\(r = 2.5;\)\)], "Input"], Cell[BoxData[ \(d[1] = 0.95; d[2] = 0.049; d[3] = 0.001; Ne = 10;\)], "Input"], Cell[BoxData[ \(xr[1, Ne] = 0.95; xr[2, Ne] = 0.049; xr[3, Ne] = 0.001;\)], "Input"], Cell[BoxData[ \(R[i_, n_] := \ yr[i, n - 1] \[Equal] \ r/\((r + 1)\)\ xr[i, n] + d[i]/\((r + 1)\)\)], "Input"], Cell[BoxData[ \(a[1] = 6.35; a[2] = 2.47; a[3] = 1;\)], "Input"], Cell[BoxData[ \(\(\(sol = Solve[{xr[1, Ne] \[Equal] \ a[1]\ xr[1, Ne - 1]/ Sum[a[j]\ xr[j, Ne - 1], {j, 1, 3}], \[IndentingNewLine]xr[ 2, Ne] \[Equal] \ a[2]\ xr[2, Ne - 1]/ Sum[a[j]\ xr[j, Ne - 1], {j, 1, 3}], \[IndentingNewLine]1 \[Equal] \ Sum[xr[j, Ne - 1], {j, 1, 3}]}, {xr[1, Ne - 1], xr[2, Ne - 1], xr[3, Ne - 1]}];\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ \(\(xr[1, Ne - 1] = sol[\([1, 1, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xr[2, Ne - 1] = sol[\([1, 2, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xr[3, Ne - 1] = sol[\([1, 3, 2]\)];\)\)], "Input"], Cell[BoxData[ \(Eq1[i_, n_] := \ xr[i, n] \[Equal] \ \ yr[i, n]/a[i]\ 1/ Sum[\ yr[j, n]/a[j], {j, 1, 3}]\)], "Input"], Cell[BoxData[ \(\(Sys1 = Table[R[i, n], {i, 1, 3}, {n, 1, Ne - 1}];\)\)], "Input"], Cell[BoxData[ \(\(Sys2 = Table[Eq1[i, n], {i, 1, 3}, {n, 0, Ne - 2}];\)\)], "Input"], Cell[BoxData[ \(\(System1 = Flatten[Join[Sys1, Sys2]];\)\)], "Input"], Cell[BoxData[ \(\(unk1 = Table[xr[i, n], {i, 1, 3}, {n, 0, Ne - 2}];\)\)], "Input"], Cell[BoxData[ \(\(unk2 = Table[yr[i, n], {i, 1, 3}, {n, 0, Ne - 2}];\)\)], "Input"], Cell[BoxData[ \(\(Unknown1 = Flatten[Join[unk1, unk2]];\)\)], "Input"], Cell[BoxData[ \(\(sol1 = NSolve[System1, Unknown1];\)\)], "Input"], Cell[BoxData[ \(\(xr[1, 0] = sol1[\([1, 1, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xr[2, 0] = sol1[\([1, 2, 2]\)];\)\)], "Input"], Cell[BoxData[ \(Do[xr[1, i] = sol1[\([1, 3 + \ i, 2]\)], {i, 1, 8}]\)], "Input"], Cell[BoxData[ \(Do[xr[2, i] = sol1[\([1, 11 + \ i, 2]\)], {i, 1, 8}]\)], "Input"], Cell[BoxData[ \(\(tbl = Table[{xr[1, i], xr[2, i]}, {i, 0, Ne - 1}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt1 = ListPlot[tbl, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], PlotRange \[Rule] {{0, 1}, {0, 1}}, AspectRatio \[Rule] 1, Epilog \[Rule] {RGBColor[0, 0, 0], Line[{{1, 0}, {0, 1}}]}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 0 0 r .5 Mabswid .07272 .02091 m .07533 .03134 L .08216 .05518 L .1003 .10588 L .14692 .19675 L .24939 .30824 L .41541 .36281 L .60328 .31444 L .76359 .21225 L .87774 .11639 L s 0 0 0 r 1 0 m 0 1 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgaoo`03001oogoo00Ioo`005Goo 00<007ooOol047oo00=l07ooOol0jgoo00<007ooOol01goo000EOol00`00Oomoo`0AOol00g`0Oomo o`3YOol00`00Oomoo`08Ool001Eoo`03001oogoo015oo`03O01oogoo0>Qoo`03001oogoo00Uoo`00 5Goo00<007ooOol04Goo00=l07ooOol0igoo00<007ooOol02Woo000EOol00`00Oomoo`0AOol00g`0 Oomoo`3VOol00`00Oomoo`0;Ool001Eoo`03001oogoo019oo`03O01oogoo0>Aoo`03001oogoo00ao o`005Goo00<007ooOol04Woo00=l07ooOol0hgoo00<007ooOol03Goo000EOol2000COol00g`0Oomo o`3ROol00`00Oomoo`0>Ool001Eoo`03001oogoo019oo`03O01oogoo0>5oo`03001oogoo00moo`00 5Goo00<007ooOol04Woo00=l07ooOol0h7oo00<007ooOol047oo000EOol00`00Oomoo`0COol00g`0 Oomoo`3NOol00`00Oomoo`0AOol001Eoo`03001oogoo01=oo`03O01oogoo0=eoo`03001oogoo019o o`005Goo00<007ooOol057oo00=l07ooOol0fgoo00<007ooOol04goo000EOol00`00Oomoo`0DOol0 0g`0Oomoo`3JOol00`00Oomoo`0DOol001Eoo`03001oogoo01Aoo`03O01oogoo0=Uoo`03001oogoo 01Eoo`005Goo00<007ooOol05Goo00=l07ooOol0egoo00<007ooOol05Woo000EOol00`00Oomoo`0E Ool00g`0Oomoo`3FOol00`00Oomoo`0GOol001Eoo`03001oogoo01Eoo`03O01oogoo0=Eoo`03001o ogoo01Qoo`005Goo00<007ooOol05Woo00=l07ooOol0dgoo00<007ooOol06Goo000EOol00`00Oomo o`0FOol00g`0Oomoo`3BOol00`00Oomoo`0JOol001Eoo`8001Qoo`03O01oogoo0=1oo`03001oogoo 01]oo`005Goo00<007ooOol05goo00=l07ooOol0cgoo00<007ooOol077oo000EOol00`00Oomoo`0H Ool00g`0Oomoo`3=Ool00`00Oomoo`0MOol001Eoo`03001oogoo01Qoo`03O01oogoo0Woo000EOol00`00Oomoo`0YOol00g`0Oomoo`2DOol2O008Ool00`00Oomoo`0kOol001Eo o`03001oogoo02Yoo`03O01oogoo099oo`03O01oogoo00Moo`03001oogoo03aoo`005Goo00<007oo Ool0:goo00=l07ooOol0Sgoo0W`02Goo00<007ooOol0?Goo000EOol00`00Oomoo`0/Ool00g`0Oomo o`2Goo00=l07ooOol0JWoo00=l07ooOol047oo00<007ooOol0C7oo000E Ool00`00Oomoo`0jOol00g`0Oomoo`1WOol2O00BOol00`00Oomoo`1=Ool001Eoo`03001oogoo03Yo o`03O01oogoo06Ioo`03O01oogoo015oo`03001oogoo04ioo`005Goo0P00?7oo00=l07ooOol0Hgoo 0W`04goo00<007ooOol0Cgoo000EOol00`00Oomoo`0lOol00g`0Oomoo`1POol2O00DOol00`00Oomo o`1@Ool001Eoo`03001oogoo03eoo`03O01oogoo05ioo`03O01oogoo01=oo`03001oogoo055oo`00 5Goo00<007ooOol0?Woo0W`0G7oo0W`05Goo00<007ooOol0DWoo000EOol00`00Oomoo`10Ool3O01G Ool2O00FOol00`00Oomoo`1COol001Eoo`03001oogoo04=oo`=l051oo`Al01Moo`03001oogoo05Ao o`005Goo00<007ooOol0AWoo0g`0BGoo17`06Woo00<007ooOol0EGoo000EOol00`00Oomoo`19Ool4 O011Ool4O00MOol00`00Oomoo`1FOol001Eoo`03001oogoo04eoo`=l03]oo`=l021oo`03001oogoo 05Moo`005Goo00<007ooOol0D7oo0g`0=7oo17`08Woo00<007ooOol0F7oo000EOol00`00Oomoo`1C Ool3O00]Ool4O00UOol00`00Oomoo`1IOol001Eoo`03001oogoo05Ioo`=l02Ioo`Al02Qoo`03001o ogoo05Yoo`005Goo00<007ooOol0FGoo0g`07goo17`0:goo00<007ooOol0Fgoo000EOol2001MOol3 O00IOol3O00^Ool00`00Oomoo`1LOol001Eoo`03001oogoo05moo`Al015oo`Al031oo`03001oogoo 05eoo`005Goo00<007ooOol0Hgoo0g`02Woo17`0goo00<007ooOol0 bWoo000EOol00`00Oomoo`0jOol00`00Oomoo`3;Ool001Eoo`03001oogoo03Uoo`03001oogoo07oo00<007ooOol0cGoo000EOol00`00Oomoo`0gOol00`00Oomoo`3>Ool0 01Eoo`03001oogoo03Ioo`03001oogoo09oo`005Goo00<007ooOol08Woo00<007ooOol0 hgoo000EOol00`00Oomoo`0QOol00`00Oomoo`3TOol001Eoo`03001oogoo021oo`03001oogoo0>Eo o`005Goo00<007ooOol07goo00<007ooOol0iWoo000EOol00`00Oomoo`0NOol00`00Oomoo`3WOol0 01Eoo`03001oogoo01eoo`03001oogoo0>Qoo`005Goo00<007ooOol077oo00<007ooOol0jGoo000E Ool00`00Oomoo`0KOol00`00Oomoo`3ZOol001Eoo`03001oogoo01Yoo`03001oogoo0>]oo`005Goo 00<007ooOol06Goo00<007ooOol0k7oo000EOol00`00Oomoo`0HOol00`00Oomoo`3]Ool001Eoo`80 01Qoo`03001oogoo0>ioo`005Goo00<007ooOol05Woo00<007ooOol0kgoo000EOol00`00Oomoo`0E Ool00`00Oomoo`3`Ool001Eoo`03001oogoo01Aoo`03001oogoo0?5oo`005Goo00<007ooOol04goo 00<007ooOol0lWoo000EOol00`00Oomoo`0BOol00`00Oomoo`3cOol001Eoo`03001oogoo015oo`03 001oogoo0?Aoo`005Goo00<007ooOol047oo00<007ooOol0mGoo000EOol00`00Oomoo`0?Ool00`00 Oomoo`3fOol001Eoo`03001oogoo00ioo`03001oogoo0?Moo`005Goo00<007ooOol03Goo00<007oo Ool0n7oo000EOol00`00Oomoo`0"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.0810208, -0.061037, \ 0.00380643, 0.00380643}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt2 = ListPlot[tbl, PlotStyle \[Rule] {RGBColor[1, 0, 0], PointSize[0.02]}]\)], "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.0622214 1.18305 -0.0212896 1.72161 [ [.411 .13837 -9 -9 ] [.411 .13837 9 0 ] [.64761 .13837 -9 -9 ] [.64761 .13837 9 0 ] [.88422 .13837 -9 -9 ] [.88422 .13837 9 0 ] [.16189 .06479 -24 -4.5 ] [.16189 .06479 0 4.5 ] [.16189 .23695 -24 -4.5 ] [.16189 .23695 0 4.5 ] [.16189 .32303 -18 -4.5 ] [.16189 .32303 0 4.5 ] [.16189 .40911 -24 -4.5 ] [.16189 .40911 0 4.5 ] [.16189 .49519 -18 -4.5 ] [.16189 .49519 0 4.5 ] [.16189 .58127 -24 -4.5 ] [.16189 .58127 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 .411 .15087 m .411 .15712 L s [(0.4)] .411 .13837 0 1 Mshowa .64761 .15087 m .64761 .15712 L s [(0.6)] .64761 .13837 0 1 Mshowa .88422 .15087 m .88422 .15712 L s [(0.8)] .88422 .13837 0 1 Mshowa .125 Mabswid .23354 .15087 m .23354 .15462 L s .29269 .15087 m .29269 .15462 L s .35185 .15087 m .35185 .15462 L s .47015 .15087 m .47015 .15462 L s .5293 .15087 m .5293 .15462 L s .58846 .15087 m .58846 .15462 L s .70676 .15087 m .70676 .15462 L s .76591 .15087 m .76591 .15462 L s .82506 .15087 m .82506 .15462 L s .11524 .15087 m .11524 .15462 L s .05608 .15087 m .05608 .15462 L s .94337 .15087 m .94337 .15462 L s .25 Mabswid 0 .15087 m 1 .15087 L s .17439 .06479 m .18064 .06479 L s [(0.05)] .16189 .06479 1 0 Mshowa .17439 .23695 m .18064 .23695 L s [(0.15)] .16189 .23695 1 0 Mshowa .17439 .32303 m .18064 .32303 L s [(0.2)] .16189 .32303 1 0 Mshowa .17439 .40911 m .18064 .40911 L s [(0.25)] .16189 .40911 1 0 Mshowa .17439 .49519 m .18064 .49519 L s [(0.3)] .16189 .49519 1 0 Mshowa .17439 .58127 m .18064 .58127 L s [(0.35)] .16189 .58127 1 0 Mshowa .125 Mabswid .17439 .08201 m .17814 .08201 L s .17439 .09922 m .17814 .09922 L s .17439 .11644 m .17814 .11644 L s .17439 .13366 m .17814 .13366 L s .17439 .16809 m .17814 .16809 L s .17439 .1853 m .17814 .1853 L s .17439 .20252 m .17814 .20252 L s .17439 .21974 m .17814 .21974 L s .17439 .25417 m .17814 .25417 L s .17439 .27138 m .17814 .27138 L s .17439 .2886 m .17814 .2886 L s .17439 .30582 m .17814 .30582 L s .17439 .34025 m .17814 .34025 L s .17439 .35746 m .17814 .35746 L s .17439 .37468 m .17814 .37468 L s .17439 .3919 m .17814 .3919 L s .17439 .42633 m .17814 .42633 L s .17439 .44354 m .17814 .44354 L s .17439 .46076 m .17814 .46076 L s .17439 .47798 m .17814 .47798 L s .17439 .51241 m .17814 .51241 L s .17439 .52963 m .17814 .52963 L s .17439 .54684 m .17814 .54684 L s .17439 .56406 m .17814 .56406 L s .17439 .04757 m .17814 .04757 L s .17439 .03036 m .17814 .03036 L s .17439 .01314 m .17814 .01314 L s .17439 .59849 m .17814 .59849 L s .17439 .61571 m .17814 .61571 L s .25 Mabswid .17439 0 m .17439 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .02 w .02381 .01472 Mdot .0269 .03266 Mdot .03497 .0737 Mdot .05644 .16099 Mdot .1116 .31744 Mdot .23282 .50938 Mdot .42923 .60332 Mdot .65149 .52006 Mdot .84114 .34413 Mdot .97619 .17909 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg]oo`0017oo1G`0:Goo0P00k7oo 0004Ool5O00YOol00`00Oomoo`3[Ool000Aoo`El02Uoo`03001oogoo0>]oo`001Goo0g`0:Woo00<0 07ooOol0jgoo0006Ool3O00YOol00`00Oomoo`3[Ool000Eoo`El02Qoo`800>aoo`001Goo1G`0:7oo 00<007ooOol0jgoo0005Ool5O00XOol00`00Oomoo`3[Ool000Ioo`=l02Uoo`03001oogoo0>]oo`00 ]oo`00]oo`005goo00@007ooOol000Qoo`04001o ogoo0005Ool00`00Oomoo`03Ool3003[Ool000Uoo`=l00]oo`04001oogoo0008Ool01000Oomoo`00 0goo0P001Woo00<007ooOol0jgoo0008Ool5O00:Ool01000Oomoo`0027oo00@007ooOol000=oo`03 001oogoo00Eoo`03001oogoo0>]oo`0027oo1G`02goo0P002Woo0P0017oo0`001Goo00<007ooOol0 jgoo0008Ool5O00UOol00`00Oomoo`3[Ool000Uoo`=l02Ioo`800>aoo`00]oo`00]oo`00Goo 00@007ooOol000Qoo`04001oogoo000cOol01000Oomoo`0027oo0`00=Goo00@007ooOol000Uoo`80 01aoo`00Goo00@007ooOol000Uoo`03001oo`0003=oo`04001oogoo0009Ool0 0`00Oomoo`0dOol01000Oomoo`0027oo00@007ooOol001]oo`00Woo0P002goo 0P00=7oo0P002Woo0`00=Goo0P002Woo0P0077oo000bOol00`00Oomoo`3[Ool0039oo`800>aoo`00 ]oo`00Ool5O00OOol00`00Oomoo`3[Ool000ioo`El01mo o`03001oogoo0>]oo`003goo0g`087oo0P00k7oo000bOol00`00Oomoo`3QOol3O007Ool0039oo`03 001oogoo0>1oo`El00Ioo`009oo`=l00Moo`00]oo`00]oo`00aoo`00]oo`005goo 00@007ooOol000Yoo`05001oogooOol00002Ool00`00Oomoo`03Ool00`00Oomoo`3[Ool001Moo`04 001oogoo000:Ool00`00Oomoo`04Ool00`00Oomoo`03Ool3003[Ool001Moo`04001oogoo000:Ool0 0`00Oomoo`02Ool20006Ool00`00Oomoo`3[Ool001Moo`04001oogoo000:Ool00`00Oomoo`02Ool0 0`00Oomoo`05Ool00`00Oomoo`3[Ool001Qoo`8000Yoo`8000Aoo`<000Eoo`03001oogoo0>]oo`00 ]oo`00]oo`00]oo`00aoo`00]oo`00]oo`007Woo0g`04Goo00<007ooOol0 jgoo000MOol5O002Ool20003Ool40005Ool00`00Oomoo`3[Ool001eoo`El00Moo`03001oogoo00Io o`03001oogoo0>]oo`007Goo1G`027oo00<007ooOol01Goo0`00jgoo000MOol01000O01l07`02Woo 00<007ooOol017oo00<007ooOol0jgoo000MOol01000Oomoo`0027oo00@007ooOol000Eoo`03001o ogoo0>]oo`007Woo0P002Woo0P001Woo00<007ooOol0jgoo000bOol00`00Oomoo`2jOol3O00^Ool0 039oo`800;Yoo`El02eoo`00]oo`00]o o`00]oo`00aoo`00]oo`005goo00@007ooOol0 00Qoo`03001oogoo00=oo`04001oogoo0005Ool00`00Oomoo`3[Ool001Moo`04001oogoo0009Ool0 0`00Oomoo`05Ool00`00Oomoo`03Ool3003[Ool001Moo`04001oogoo000:Ool00`00Oomoo`02Ool2 0006Ool00`00Oomoo`3[Ool001Moo`04001oogoo0008Ool01000Oomoo`000goo00<007ooOol01Goo 00<007ooOol0jgoo000HOol2000:Ool20004Ool30005Ool00`00Oomoo`3[Ool0039oo`03001oogoo 0>]oo`00]oo`00aoo`00]oo`00]oo`00aoo`00]oo`007Goo00@007ooOol000Qoo`04001oogoo0005Ool00`00Oomoo`3[Ool001eoo`04001oogoo 000:Ool00`00Oomoo`04Ool3003[Ool001eoo`04001oogoo000;Ool00`00Oomoo`03Ool00`00Oomo o`3[Ool001eoo`04001oogoo0008Ool01000Oomoo`001Goo00<007ooOol0jgoo000NOol2000:Ool2 0006Ool00`00Oomoo`0]oo`00]oo`00]oo`00]oo`0067oo0P0017oo0P0017oo0P0017oo0P001Woo00<007ooOol0jgoo000G Ool01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0005Ool00`00Oomoo`3[Ool001Moo`04 001oogoo000:Ool00`00Oomoo`04Ool00`00Oomoo`03Ool3003[Ool001Moo`04001oogoo000;Ool0 1000Oomoogoo0P001Woo00<007ooOol0jgoo000GOol01000Oomoo`0027oo00@007ooOol000=oo`03 001oogoo00Eoo`03001oogoo0>]oo`0067oo0P002Woo0P0017oo0`001Goo00<007ooOol0jgoo000b Ool00`00Oomoo`3[Ool0039oo`8004Eoo`=l0:Aoo`00"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.0515457, 0.0123643, \ 0.00295251, 0.00202889}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt1, plt2]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 0 0 r .5 Mabswid .07272 .02091 m .07533 .03134 L .08216 .05518 L .1003 .10588 L .14692 .19675 L .24939 .30824 L .41541 .36281 L .60328 .31444 L .76359 .21225 L .87774 .11639 L s .02 w .07272 .02091 Mdot .07533 .03134 Mdot .08216 .05518 Mdot .1003 .10588 Mdot .14692 .19675 Mdot .24939 .30824 Mdot .41541 .36281 Mdot .60328 .31444 Mdot .76359 .21225 Mdot .87774 .11639 Mdot 0 0 0 r .5 Mabswid 1 0 m 0 1 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg Ool5O03]Ool00`00Oomoo`05Ool001Eoo`03001oogoo00ioo`El0>aoo`03001oogoo00Ioo`005Goo 00<007ooOol03Woo1G`0jgoo00<007ooOol01goo000EOol00`00Oomoo`0>Ool5O03ZOol00`00Oomo o`08Ool001Eoo`03001oogoo00ioo`El0>Uoo`03001oogoo00Uoo`005Goo00<007ooOol03Woo1G`0 j7oo00<007ooOol02Woo000EOol00`00Oomoo`0?Ool3O03XOol00`00Oomoo`0;Ool001Eoo`03001o ogoo019oo`03O01oogoo0>Aoo`03001oogoo00aoo`005Goo00<007ooOol04Goo0g`0i7oo00<007oo Ool03Goo000EOol2000AOol5O03ROol00`00Oomoo`0>Ool001Eoo`03001oogoo011oo`El0>5oo`03 001oogoo00moo`005Goo00<007ooOol047oo1G`0h7oo00<007ooOol047oo000EOol00`00Oomoo`0A Ool3O03POol00`00Oomoo`0AOol001Eoo`03001oogoo01=oo`03O01oogoo0=eoo`03001oogoo019o o`005Goo00<007ooOol057oo00=l07ooOol0fgoo00<007ooOol04goo000EOol00`00Oomoo`0DOol0 0g`0Oomoo`3JOol00`00Oomoo`0DOol001Eoo`03001oogoo01Aoo`03O01oogoo0=Uoo`03001oogoo 01Eoo`005Goo00<007ooOol05Goo00=l07ooOol0egoo00<007ooOol05Woo000EOol00`00Oomoo`0E Ool00g`0Oomoo`3FOol00`00Oomoo`0GOol001Eoo`03001oogoo01Eoo`03O01oogoo0=Eoo`03001o ogoo01Qoo`005Goo00<007ooOol05Woo00=l07ooOol0dgoo00<007ooOol06Goo000EOol00`00Oomo o`0FOol3O03BOol00`00Oomoo`0JOol001Eoo`8001Ioo`El0=1oo`03001oogoo01]oo`005Goo00<0 07ooOol05Goo1G`0cgoo00<007ooOol077oo000EOol00`00Oomoo`0EOol5O038Ool3O003Ool00`00 Oomoo`0MOol001Eoo`03001oogoo01Ioo`=l0Woo000EOol00`00Oomoo`0YOol00g`0Oomoo`2DOol2O008Ool00`00Oomoo`0k Ool001Eoo`03001oogoo02Yoo`03O01oogoo099oo`03O01oogoo00Moo`03001oogoo03aoo`005Goo 00<007ooOol0:goo00=l07ooOol0Sgoo0W`02Goo00<007ooOol0?Goo000EOol00`00Oomoo`0/Ool0 0g`0Oomoo`2Goo00=l07ooOol0JWoo00=l07ooOol047oo00<007ooOol0 C7oo000EOol00`00Oomoo`0jOol00g`0Oomoo`1WOol2O00BOol00`00Oomoo`1=Ool001Eoo`03001o ogoo03Yoo`03O01oogoo06Ioo`03O01oogoo015oo`03001oogoo04ioo`005Goo0P00?7oo00=l07oo Ool0Hgoo0W`04goo00<007ooOol0Cgoo000EOol00`00Oomoo`0lOol4O01OOol2O00DOol00`00Oomo o`1@Ool001Eoo`03001oogoo03aoo`El05Uoo`=l0003Ooml07oo01Aoo`03001oogoo055oo`005Goo 00<007ooOol0?7oo1G`0F7oo1G`05Goo00<007ooOol0DWoo000EOol00`00Oomoo`0lOol7O01FOol5 O00DOol00`00Oomoo`1COol001Eoo`03001oogoo03eoo`=l00=oo`=l051oo`Ql01=oo`03001oogoo 05Aoo`005Goo00<007ooOol0AWoo0g`0BGoo17`017oo0g`04goo00<007ooOol0EGoo000EOol00`00 Oomoo`19Ool4O011Ool4O00MOol00`00Oomoo`1FOol001Eoo`03001oogoo04eoo`=l03]oo`=l021o o`03001oogoo05Moo`005Goo00<007ooOol0D7oo0g`0=7oo17`08Woo00<007ooOol0F7oo000EOol0 0`00Oomoo`1COol3O00]Ool4O00UOol00`00Oomoo`1IOol001Eoo`03001oogoo05Ioo`=l02Ioo`Al 02Qoo`03001oogoo05Yoo`005Goo00<007ooOol0FGoo0g`07goo17`0:goo00<007ooOol0Fgoo000E Ool2001MOol3O00IOol3O00^Ool00`00Oomoo`1LOol001Eoo`03001oogoo05moo`Al015oo`Al031o o`03001oogoo05eoo`005Goo00<007ooOol0Hgoo0g`00goo0g`017oo17`0goo00<007ooOol0bWoo000EOol00`00Oomoo`0jOol00`00Oomoo`3;Ool001Eoo`03 001oogoo03Uoo`03001oogoo07oo00<007ooOol0cGoo000EOol00`00 Oomoo`0gOol00`00Oomoo`3>Ool001Eoo`03001oogoo03Ioo`03001oogoo09oo`005Goo 00<007ooOol08Woo00<007ooOol0hgoo000EOol00`00Oomoo`0QOol00`00Oomoo`3TOol001Eoo`03 001oogoo021oo`03001oogoo0>Eoo`005Goo00<007ooOol07goo00<007ooOol0iWoo000EOol00`00 Oomoo`0NOol00`00Oomoo`3WOol001Eoo`03001oogoo01eoo`03001oogoo0>Qoo`005Goo00<007oo Ool077oo00<007ooOol0jGoo000EOol00`00Oomoo`0KOol00`00Oomoo`3ZOol001Eoo`03001oogoo 01Yoo`03001oogoo0>]oo`005Goo00<007ooOol06Goo00<007ooOol0k7oo000EOol00`00Oomoo`0H Ool00`00Oomoo`3]Ool001Eoo`8001Qoo`03001oogoo0>ioo`005Goo00<007ooOol05Woo00<007oo Ool0kgoo000EOol00`00Oomoo`0EOol00`00Oomoo`3`Ool001Eoo`03001oogoo01Aoo`03001oogoo 0?5oo`005Goo00<007ooOol04goo00<007ooOol0lWoo000EOol00`00Oomoo`0BOol00`00Oomoo`3c Ool001Eoo`03001oogoo015oo`03001oogoo0?Aoo`005Goo00<007ooOol047oo00<007ooOol0mGoo 000EOol00`00Oomoo`0?Ool00`00Oomoo`3fOol001Eoo`03001oogoo00ioo`03001oogoo0?Moo`00 5Goo00<007ooOol03Goo00<007ooOol0n7oo000EOol00`00Oomoo`0"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.0810208, -0.061037, \ 0.00380643, 0.00380643}}, CellTags->"RECTF"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of the liquid composition profile in the ", ButtonBox["Stripping Section ", ButtonData:>"STRIP", ButtonStyle->"Hyperlink"], "with 10 Stages. Reboil ratio is eaqual to 1.35." }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.589853]], Cell[BoxData[ \(S[i_, n_] := \ ys[i, n] \[Equal] \ \((s + 1)\)/s\ xs[i, n + 1] - b[i]/s\)], "Input"], Cell[BoxData[ \(b[1] = 0.05; b[2] = 0.397; b[3] = 0.553;\)], "Input"], Cell[BoxData[ \(\(s = 1.35;\)\)], "Input"], Cell[BoxData[ \(\(Do[{xs[i, 0] = b[i]}, {i, 1, 3}];\)\)], "Input"], Cell[BoxData[ \(\(Sys3 = Table[S[i, n], {i, 1, 3}, {n, 0, Ne - 1}];\)\)], "Input"], Cell[BoxData[ \(Eq2[i_, n_] := \ ys[i, n] \[Equal] \ \ xs[i, n]\ a[i]\ 1/ Sum[\ xs[j, n]\ a[j], {j, 1, 3}]\)], "Input"], Cell[BoxData[ \(\(Sys4 = Table[Eq2[i, n], {i, 1, 3}, {n, 0, Ne - 1}];\)\)], "Input"], Cell[BoxData[ \(\(System2 = Flatten[Join[Sys3, Sys4]];\)\)], "Input"], Cell[BoxData[ \(\(unk3 = Table[xs[i, n], {i, 1, 3}, {n, 1, Ne}];\)\)], "Input"], Cell[BoxData[ \(\(unk4 = Table[ys[i, n], {i, 1, 3}, {n, 1, Ne}];\)\)], "Input"], Cell[BoxData[ \(\(Unknown2 = Flatten[Join[unk3, unk4]];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(sol2 = NSolve[System2, Unknown2];\)\)], "Input"], Cell[BoxData[ \(Solve::"svars" \(\(:\)\(\ \)\) "Equations may not give solutions for all \"solve\" variables."\)], \ "Message"] }, Open ]], Cell[BoxData[ \(\(xs[1, 10] = sol2[\([1, 1, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xs[2, 10] = sol2[\([1, 2, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xs[1, 1] = sol2[\([1, 56, 2]\)];\)\)], "Input"], Cell[BoxData[ \(\(xs[2, 1] = sol2[\([1, 57, 2]\)];\)\)], "Input"], Cell[BoxData[ \(Do[xs[1, \(-i\) + 9] = sol2[\([1, 31 + 3\ i, 2]\)], {i, 0, 7}]\)], "Input"], Cell[BoxData[ \(Do[xs[2, \(-i\) + 9] = sol2[\([1, 32 + 3\ i, 2]\)], {i, 0, 7}]\)], "Input"], Cell[BoxData[ \(\(tb2 = Table[{xs[1, i], xs[2, i]}, {i, 0, Ne}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt3 = ListPlot[tb2, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[0, 0, 1], PlotRange \[Rule] {{0, 1}, {0, 1}}, AspectRatio \[Rule] 1, Epilog \[Rule] {RGBColor[0, 0, 0], Line[{{1, 0}, {0, 1}}]}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 0 1 r .5 Mabswid .05 .397 m .11981 .47325 L .20832 .45632 L .29411 .4014 L .36041 .34898 L .40333 .31283 L .42797 .29164 L .44114 .28022 L .4479 .27435 L .45129 .27139 L .45298 .26992 L s 0 0 0 r 1 0 m 0 1 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol001Eoo`03001oogoo0?Ioo`03001oogoo00moo`00 5Goo00<007ooOol0mGoo00<007ooOol047oo000EOol00`00Oomoo`3dOol00`00Oomoo`0AOol001Eo o`03001oogoo0?=oo`03001oogoo019oo`005Goo00<007ooOol0lWoo00<007ooOol04goo000EOol0 0`00Oomoo`3aOol00`00Oomoo`0DOol001Eoo`03001oogoo0?1oo`03001oogoo01Eoo`005Goo00<0 07ooOol0kgoo00<007ooOol05Woo000EOol00`00Oomoo`3^Ool00`00Oomoo`0GOol001Eoo`03001o ogoo0>eoo`03001oogoo01Qoo`005Goo00<007ooOol0k7oo00<007ooOol06Goo000EOol00`00Oomo o`3[Ool00`00Oomoo`0JOol001Eoo`800>]oo`03001oogoo01]oo`005Goo00<007ooOol0jGoo00<0 07ooOol077oo000EOol00`00Oomoo`3XOol00`00Oomoo`0MOol001Eoo`03001oogoo0>Moo`03001o ogoo01ioo`005Goo00<007ooOol0iWoo00<007ooOol07goo000EOol00`00Oomoo`3UOol00`00Oomo o`0POol001Eoo`03001oogoo0>Aoo`03001oogoo025oo`005Goo00<007ooOol0hgoo00<007ooOol0 8Woo000EOol00`00Oomoo`3ROol00`00Oomoo`0SOol001Eoo`03001oogoo0>5oo`03001oogoo02Ao o`005Goo00<007ooOol0h7oo00<007ooOol09Goo000EOol00`00Oomoo`3OOol00`00Oomoo`0VOol0 01Eoo`03001oogoo0=ioo`03001oogoo02Moo`005Goo0P00gWoo00<007ooOol0:7oo000EOol00`00 Oomoo`3LOol00`00Oomoo`0YOol001Eoo`03001oogoo0=]oo`03001oogoo02Yoo`005Goo00<007oo Ool0fWoo00<007ooOol0:goo000EOol00`00Oomoo`3IOol00`00Oomoo`0/Ool001Eoo`03001oogoo 0=Qoo`03001oogoo02eoo`005Goo00<007ooOol0egoo00<007ooOol0;Woo000EOol00`00Oomoo`3F Ool00`00Oomoo`0_Ool001Eoo`03001oogoo0=Eoo`03001oogoo031oo`005Goo00<007ooOol0e7oo 00<007ooOol0Ool00`00Oomoo`0gOol0 009oo`8000Yoo`8000Eoo`03001oogoo0Goo000EOol00`00Oomoo`3;Ool00`00Oomoo`0jOol001Eoo`03001oogoo0Ool00`0OOomoo`1=Ool00`00Oomo o`1WOol0009oo`8000Aoo`8000Eoo`<000=oo`03001oogoo04aoo`807dmoo`03001oogoo06Qoo`00 00Eoo`00Oomoo`0000]oo`03001oogoo009oo`03001oogoo00Yoo`0301moogoo03ioo`0301moogoo 04ioo`03001oogoo06Uoo`0000Eoo`00Oomoo`0000Qoo`D000=oo`8000aoo`0301moogoo03aoo`03 01moogoo04ioo`03001oogoo06Yoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomo o`0goo00<007ooOol0bWoo000EOol00`00Oomoo`0jOol00`00Oomo o`3;Ool001Eoo`03001oogoo03Uoo`03001oogoo07oo00<007ooOol0 cGoo000EOol00`00Oomoo`0gOol00`00Oomoo`3>Ool001Eoo`03001oogoo03Ioo`03001oogoo09oo`005Goo00<007ooOol08Woo00<007ooOol0hgoo000EOol00`00Oomoo`0QOol00`00Oomo o`3TOol001Eoo`03001oogoo021oo`03001oogoo0>Eoo`005Goo00<007ooOol07goo00<007ooOol0 iWoo000EOol00`00Oomoo`0NOol00`00Oomoo`3WOol001Eoo`03001oogoo01eoo`03001oogoo0>Qo o`005Goo00<007ooOol077oo00<007ooOol0jGoo000EOol00`00Oomoo`0KOol00`00Oomoo`3ZOol0 01Eoo`03001oogoo01Yoo`03001oogoo0>]oo`005Goo00<007ooOol06Goo00<007ooOol0k7oo000E Ool00`00Oomoo`0HOol00`00Oomoo`3]Ool001Eoo`8001Qoo`03001oogoo0>ioo`005Goo00<007oo Ool05Woo00<007ooOol0kgoo000EOol00`00Oomoo`0EOol00`00Oomoo`3`Ool001Eoo`03001oogoo 01Aoo`03001oogoo0?5oo`005Goo00<007ooOol04goo00<007ooOol0lWoo000EOol00`00Oomoo`0B Ool00`00Oomoo`3cOol001Eoo`03001oogoo015oo`03001oogoo0?Aoo`005Goo00<007ooOol047oo 00<007ooOol0mGoo000EOol00`00Oomoo`0?Ool00`00Oomoo`3fOol001Eoo`03001oogoo00ioo`03 001oogoo0?Moo`005Goo00<007ooOol03Goo00<007ooOol0n7oo000EOol00`00Oomoo`0"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.0810208, -0.061037, \ 0.00380643, 0.00380643}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt4 = ListPlot[tb2, PlotStyle \[Rule] {RGBColor[0, 0, 1], PointSize[0.02]}]\)], "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.0943563 2.36332 -0.766643 2.89478 [ [.37831 .08929 -9 -9 ] [.37831 .08929 9 0 ] [.61464 .08929 -9 -9 ] [.61464 .08929 9 0 ] [.85097 .08929 -9 -9 ] [.85097 .08929 9 0 ] [.12948 .24653 -24 -4.5 ] [.12948 .24653 0 4.5 ] [.12948 .39127 -18 -4.5 ] [.12948 .39127 0 4.5 ] [.12948 .53601 -24 -4.5 ] [.12948 .53601 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 .37831 .10179 m .37831 .10804 L s [(0.2)] .37831 .08929 0 1 Mshowa .61464 .10179 m .61464 .10804 L s [(0.3)] .61464 .08929 0 1 Mshowa .85097 .10179 m .85097 .10804 L s [(0.4)] .85097 .08929 0 1 Mshowa .125 Mabswid .18924 .10179 m .18924 .10554 L s .23651 .10179 m .23651 .10554 L s .28377 .10179 m .28377 .10554 L s .33104 .10179 m .33104 .10554 L s .42557 .10179 m .42557 .10554 L s .47284 .10179 m .47284 .10554 L s .52011 .10179 m .52011 .10554 L s .56737 .10179 m .56737 .10554 L s .66191 .10179 m .66191 .10554 L s .70917 .10179 m .70917 .10554 L s .75644 .10179 m .75644 .10554 L s .8037 .10179 m .8037 .10554 L s .09471 .10179 m .09471 .10554 L s .04744 .10179 m .04744 .10554 L s .00018 .10179 m .00018 .10554 L s .89824 .10179 m .89824 .10554 L s .9455 .10179 m .9455 .10554 L s .99277 .10179 m .99277 .10554 L s .25 Mabswid 0 .10179 m 1 .10179 L s .14198 .24653 m .14823 .24653 L s [(0.35)] .12948 .24653 1 0 Mshowa .14198 .39127 m .14823 .39127 L s [(0.4)] .12948 .39127 1 0 Mshowa .14198 .53601 m .14823 .53601 L s [(0.45)] .12948 .53601 1 0 Mshowa .125 Mabswid .14198 .13074 m .14573 .13074 L s .14198 .15969 m .14573 .15969 L s .14198 .18863 m .14573 .18863 L s .14198 .21758 m .14573 .21758 L s .14198 .27548 m .14573 .27548 L s .14198 .30442 m .14573 .30442 L s .14198 .33337 m .14573 .33337 L s .14198 .36232 m .14573 .36232 L s .14198 .42022 m .14573 .42022 L s .14198 .44916 m .14573 .44916 L s .14198 .47811 m .14573 .47811 L s .14198 .50706 m .14573 .50706 L s .14198 .07284 m .14573 .07284 L s .14198 .04389 m .14573 .04389 L s .14198 .01495 m .14573 .01495 L s .14198 .56495 m .14573 .56495 L s .14198 .5939 m .14573 .5939 L s .25 Mabswid .14198 0 m .14198 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .02 w .02381 .38258 Mdot .18879 .60332 Mdot .39796 .5543 Mdot .60071 .39533 Mdot .75741 .24357 Mdot .85885 .13894 Mdot .91708 .07758 Mdot .94819 .04455 Mdot .96416 .02754 Mdot .97219 .01898 Mdot .97619 .01472 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgYoo`<07`Moo`00:Goo00<007ooOol0jGoo 1@0O1Woo000YOol2003YOol601l6Ool002Uoo`03001oogoo0>Qoo`H07`Ioo`00:Goo00<007ooOol0 igoo1P0O1goo000YOol00`00Oomoo`3VOol601l8Ool002Uoo`03001oogoo0>Ioo`D07`Uoo`00:Goo 00<007ooOol0iWoo1@0O2Goo000YOol00`00Oomoo`3WOol301l:Ool002Uoo`03001oogoo0>9oo`<0 7`moo`00:Goo0P00hWoo1@0O3Woo000YOol00`00Oomoo`3QOol501l>Ool002Uoo`03001oogoo0>5o o`D07`ioo`00:Goo00<007ooOol0hWoo0`0O3goo000YOol00`00Oomoo`3dOol002Uoo`03001oogoo 03Uoo`8000Aoo`8000=oo`@003Eoo`8000Aoo`8000Aoo`8003Eoo`8000Aoo`8000Eoo`<002Aoo`00 :Goo00<007ooOol0>7oo00@007ooOol000Qoo`03001oogoo03Eoo`04001oogoo0008Ool01000Oomo o`007oo00@007ooOol000Uo o`03001oogoo03Aoo`04001oogoo000:Ool00`00Oomoo`0bOol01000Oomoo`0027oo1@0097oo000Y Ool2000iOol01000Oomoo`002Woo00<007ooOol0Goo0P002Woo0P00=Woo0P002Woo0P00=Goo0P002goo0P00 2Goo1@0O5goo000YOol00`00Oomoo`3HOol501lGOol002Uoo`03001oogoo0=Uoo`<07aQoo`00:Goo 00<007ooOol0m7oo000YOol00`00Oomoo`3dOol002Uoo`03001oogoo0?Aoo`00:Goo00<007ooOol0 m7oo003o000P0001Ool00003001oogoo00Yoo`03001oogoo00]oo`03001oogoo00]oo`03001oogoo 00Yoo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo 00]oo`03001oogoo00Yoo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo00]oo`03001oogoo 00Yoo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo 00]oo`03001oogoo00]oo`03001oogoo00Yoo`03001oogoo005oo`00:Goo00<007ooOol0m7oo000Y Ool00`00Oomoo`3dOol002Uoo`03001oogoo0?Aoo`00:Goo00<007ooOol0m7oo000YOol00`00Oomo o`3dOol002Uoo`03001oogoo0?Aoo`00:Goo0P00mGoo000YOol00`00Oomoo`38Ool301lYOol002Uo o`03001oogoo0Ool01000Oomoo`002Goo00<007oo0000 0goo00<007ooOol01Goo00<007ooOol0m7oo000?Ool2000;Ool20003Ool30005Ool00`00Oomoo`3d Ool002Uoo`03001oogoo04Aoo`<07jeoo`00:Goo00<007ooOol0@goo1@0O[7oo000YOol00`00Oomo o`13Ool501n/Ool002Uoo`03001oogoo04=oo`D07jaoo`00:Goo0P00AGoo0`0O[Goo000YOol00`00 Oomoo`3dOol002Uoo`03001oogoo0?Aoo`00:Goo00<007ooOol0m7oo000YOol00`00Oomoo`3dOol0 02Uoo`03001oogoo0?Aoo`00:Goo00<007ooOol0m7oo000YOol00`00Oomoo`3dOol002Uoo`03001o ogoo0?Aoo`00:Goo0P00mGoo000YOol00`00Oomoo`09Ool301oXOol002Uoo`03001oogoo00Qoo`D0 7nMoo`00:Goo00<007ooOol027oo1@0Oigoo000YOol00`00Oomoo`08Ool501oWOol002Uoo`03001o ogoo00Uoo`<07nQoo`00:Goo00<007ooOol0m7oo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.0394005, 0.264835, \ 0.00147799, 0.00120664}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt3, plt4]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 0 1 r .5 Mabswid .05 .397 m .11981 .47325 L .20832 .45632 L .29411 .4014 L .36041 .34898 L .40333 .31283 L .42797 .29164 L .44114 .28022 L .4479 .27435 L .45129 .27139 L .45298 .26992 L s .02 w .05 .397 Mdot .11981 .47325 Mdot .20832 .45632 Mdot .29411 .4014 Mdot .36041 .34898 Mdot .40333 .31283 Mdot .42797 .29164 Mdot .44114 .28022 Mdot .4479 .27435 Mdot .45129 .27139 Mdot .45298 .26992 Mdot 0 0 0 r .5 Mabswid 1 0 m 0 1 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol001Eoo`03001oogoo0?Ioo`03001oogoo00moo`00 5Goo00<007ooOol0mGoo00<007ooOol047oo000EOol00`00Oomoo`3dOol00`00Oomoo`0AOol001Eo o`03001oogoo0?=oo`03001oogoo019oo`005Goo00<007ooOol0lWoo00<007ooOol04goo000EOol0 0`00Oomoo`3aOol00`00Oomoo`0DOol001Eoo`03001oogoo0?1oo`03001oogoo01Eoo`005Goo00<0 07ooOol0kgoo00<007ooOol05Woo000EOol00`00Oomoo`3^Ool00`00Oomoo`0GOol001Eoo`03001o ogoo0>eoo`03001oogoo01Qoo`005Goo00<007ooOol0k7oo00<007ooOol06Goo000EOol00`00Oomo o`3[Ool00`00Oomoo`0JOol001Eoo`800>]oo`03001oogoo01]oo`005Goo00<007ooOol0jGoo00<0 07ooOol077oo000EOol00`00Oomoo`3XOol00`00Oomoo`0MOol001Eoo`03001oogoo0>Moo`03001o ogoo01ioo`005Goo00<007ooOol0iWoo00<007ooOol07goo000EOol00`00Oomoo`3UOol00`00Oomo o`0POol001Eoo`03001oogoo0>Aoo`03001oogoo025oo`005Goo00<007ooOol0hgoo00<007ooOol0 8Woo000EOol00`00Oomoo`3ROol00`00Oomoo`0SOol001Eoo`03001oogoo0>5oo`03001oogoo02Ao o`005Goo00<007ooOol0h7oo00<007ooOol09Goo000EOol00`00Oomoo`3OOol00`00Oomoo`0VOol0 01Eoo`03001oogoo0=ioo`03001oogoo02Moo`005Goo0P00gWoo00<007ooOol0:7oo000EOol00`00 Oomoo`3LOol00`00Oomoo`0YOol001Eoo`03001oogoo0=]oo`03001oogoo02Yoo`005Goo00<007oo Ool0fWoo00<007ooOol0:goo000EOol00`00Oomoo`3IOol00`00Oomoo`0/Ool001Eoo`03001oogoo 0=Qoo`03001oogoo02eoo`005Goo00<007ooOol0egoo00<007ooOol0;Woo000EOol00`00Oomoo`3F Ool00`00Oomoo`0_Ool001Eoo`03001oogoo0=Eoo`03001oogoo031oo`005Goo00<007ooOol0e7oo 00<007ooOol0Ool00`00Oomoo`0gOol0 009oo`8000Yoo`8000Eoo`03001oogoo0Goo000EOol00`00Oomoo`3;Ool00`00Oomoo`0jOol001Eoo`03001oogoo0Ool001Eoo`03001oogoo07Ioo`03001o ogoo08moo`005Goo00<007ooOol0MGoo00<007ooOol0T7oo000EOol00`00Oomoo`1dOol00`00Oomo o`2AOol001Eoo`8007Aoo`03001oogoo099oo`005Goo00<007ooOol0LWoo00<007ooOol0Tgoo000E Ool00`00Oomoo`1aOol00`00Oomoo`2DOol001Eoo`03001oogoo071oo`03001oogoo09Eoo`005Goo 00<007ooOol0Kgoo00<007ooOol0UWoo000EOol00`00Oomoo`1^Ool00`00Oomoo`2GOol001Eoo`03 001oogoo06eoo`03001oogoo09Qoo`005Goo00<007ooOol0K7oo00<007ooOol0VGoo000EOol00`00 Oomoo`1[Ool00`00Oomoo`2JOol001Eoo`03001oogoo06Yoo`03001oogoo09]oo`005Goo00<007oo Ool0JGoo00<007ooOol0W7oo0002Ool20004Ool20003Ool30005Ool00`00Oomoo`1XOol00`00Oomo o`2MOol00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol0Igoo00<007ooOol0WWoo 00001Goo001oogoo000027oo00@007ooOol000Aoo`8006Moo`03001oogoo09moo`0000Eoo`00Oomo o`0000Qoo`<000Eoo`03001oogoo06Eoo`03001oogoo0:1oo`0000Eoo`00Oomoo`0000Uoo`03001o ogoo00Aoo`03001oogoo06Aoo`03001oogoo0:5oo`000Woo0P002Woo0`0017oo00<007ooOol0Hgoo 00<007ooOol0XWoo000EOol00`00Oomoo`1ROol00`00Oomoo`2SOol001Eoo`03001oogoo065oo`03 001oogoo0:Aoo`005Goo00<007ooOol0H7oo00<007ooOol0YGoo000EOol00`00Oomoo`1OOol00`00 Oomoo`2VOol001Eoo`03001oogoo05ioo`03001oogoo0:Moo`005Goo00<007ooOol0GGoo00<007oo Ool0Z7oo000EOol00`00Oomoo`1LOol00`00Oomoo`2YOol001Eoo`03001oogoo05]oo`03001oogoo 0:Yoo`005Goo00<007ooOol0FWoo00<007ooOol0Zgoo000EOol2001JOol00`00Oomoo`2/Ool001Eo o`03001oogoo05Qoo`03001oogoo0:eoo`005Goo00<007ooOol0Egoo00<007ooOol0[Woo000EOol0 0`00Oomoo`1FOol00`00Oomoo`2_Ool001Eoo`03001oogoo05Eoo`03001oogoo0;1oo`005Goo00<0 07ooOol0E7oo00<007ooOol0/Goo000EOol00`00Oomoo`1COol00`00Oomoo`2bOol001Eoo`03001o ogoo059oo`03001oogoo0;=oo`005Goo00<007ooOol0DGoo00<007ooOol0]7oo000EOol00`00Oomo o`1@Ool00`00Oomoo`2eOol001Eoo`03001oogoo04moo`03001oogoo0;Ioo`005Goo00<007ooOol0 CWoo00<007ooOol0]goo000EOol00`00Oomoo`1=Ool00`00Oomoo`2hOol001Eoo`8004eoo`03001o ogoo0;Uoo`005Goo00<007ooOol0Bgoo00<007ooOol0^Woo000EOol00`00Oomoo`1:Ool00`00Oomo o`2kOol001Eoo`03001oogoo04Uoo`03001oogoo0;aoo`005Goo00<007ooOol0B7oo00<007ooOol0 _Goo000EOol00`00Oomoo`17Ool00`00Oomoo`2nOol001Eoo`03001oogoo04Ioo`03001oogoo0;mo o`005Goo00<007ooOol0AGoo00<007ooOol0`7oo000EOol00`00Oomoo`14Ool00`00Oomoo`31Ool0 01Eoo`03001oogoo04=oo`03001oogoo0<9oo`005Goo00<007ooOol0@Woo00<007ooOol0`goo000E Ool00`00Oomoo`11Ool00`00Oomoo`34Ool001Eoo`03001oogoo041oo`03001oogoo0Goo 00<007ooOol0c7oo000EOol00`00Oomoo`0hOol00`00Oomoo`3=Ool001Eoo`03001oogoo03Moo`03 001oogoo05oo`005Goo00<007ooOol08goo00<007ooOol0hWoo000EOol00`00Oomoo`0R Ool00`00Oomoo`3SOol001Eoo`03001oogoo025oo`03001oogoo0>Aoo`005Goo00<007ooOol087oo 00<007ooOol0iGoo000EOol00`00Oomoo`0OOol00`00Oomoo`3VOol001Eoo`03001oogoo01ioo`03 001oogoo0>Moo`005Goo00<007ooOol07Goo00<007ooOol0j7oo000EOol00`00Oomoo`0LOol00`00 Oomoo`3YOol001Eoo`03001oogoo01]oo`03001oogoo0>Yoo`005Goo00<007ooOol06Woo00<007oo Ool0jgoo000EOol00`00Oomoo`0IOol00`00Oomoo`3/Ool001Eoo`03001oogoo01Qoo`03001oogoo 0>eoo`005Goo0P0067oo00<007ooOol0kWoo000EOol00`00Oomoo`0FOol00`00Oomoo`3_Ool001Eo o`03001oogoo01Eoo`03001oogoo0?1oo`005Goo00<007ooOol057oo00<007ooOol0lGoo000EOol0 0`00Oomoo`0COol00`00Oomoo`3bOol001Eoo`03001oogoo019oo`03001oogoo0?=oo`005Goo00<0 07ooOol04Goo00<007ooOol0m7oo000EOol00`00Oomoo`0@Ool00`00Oomoo`3eOol001Eoo`03001o ogoo00moo`03001oogoo0?Ioo`005Goo00<007ooOol03Woo00<007ooOol0mgoo000EOol00`00Oomo o`0=Ool00`00Oomoo`3hOol001Eoo`03001oogoo00aoo`03001oogoo0?Uoo`005Goo00<007ooOol0 2goo00<007ooOol0nWoo000EOol2000;Ool00`00Oomoo`3kOol001Eoo`03001oogoo00Uoo`03001o ogoo0?aoo`005Goo00<007ooOol027oo00<007ooOol0oGoo000EOol00`00Oomoo`07Ool00`00Oomo o`3nOol001Eoo`03001oogoo00Ioo`03001oogoo0?moo`005Goo00<007ooOol01Goo00<007ooOol0 ogoo0Goo000EOol00`00Oomoo`04Ool00`00Oomoo`3oOol2Ool001Eoo`03001oogoo00=oo`03001o ogoo0?moo`=oo`005Goo00<007ooOol00Woo00<007ooOol0ogoo17oo000EOol01@00Oomoogoo0000 ogoo1goo000EOol01000Oomoo`00ogoo27oo000=Ool50003Ool00`00Ool0003oOol9Ool000moo`03 001oogoo00=oo`800?moo`Yoo`003goo00<007ooOol00goo0P00ogoo2Woo000?Ool00`00Oomoo`3o Ool?Ool000moo`03001oogoo0?moo`moo`003Woo0P00ogoo4Goo003oOolQOol00?moob5oo`00ogoo 8Goo003oOolQOol00?moob5oo`00\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.0810208, -0.061037, \ 0.00380643, 0.00380643}}, CellTags->"STRIP"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["Final composition profile", ButtonData:>"FIN", ButtonStyle->"Hyperlink"], " of the ternary ideal mixture of pentane, hexane and heptane.\n\nThe \ number of theoretical stages required is obtained by looking at the \ intersection of the stripping and rectifying composition profiles. This \ number is equal to 8.3 stages (Stripping section: 5 stages and rectifying \ section 4.3 stages). Feed is introduced five satges from the bottom of the \ column.\n\nOverall Material Balance is shown as green line joining bottom, \ distillate and feed.\n\nPurple Line shows the total condenser (it is a tie \ line).\n " }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.589853]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt1, plt2, plt3, plt4, Graphics[{{PointSize[ .03], RGBColor[0, 1, 0], Point[{0.3, 0.3}]}, PointSize[ .02], RGBColor[1, 0, 1], Point[{xr[1, Ne], xr[2, Ne]}]}], Epilog \[Rule] {{RGBColor[0, 1, 0], Line[{{0.05, 0.397}, {0.95, 0.049}}]}, {RGBColor[1, 0, 1], Line[{{xr[1, Ne - 1], xr[2, Ne - 1]}, {xr[1, Ne], xr[2, Ne]}}]}, \[IndentingNewLine]{RGBColor[0, 0, 0], Line[{{1, 0}, {0, 1}}]}}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 0 0 r .5 Mabswid .07272 .02091 m .07533 .03134 L .08216 .05518 L .1003 .10588 L .14692 .19675 L .24939 .30824 L .41541 .36281 L .60328 .31444 L .76359 .21225 L .87774 .11639 L s .02 w .07272 .02091 Mdot .07533 .03134 Mdot .08216 .05518 Mdot .1003 .10588 Mdot .14692 .19675 Mdot .24939 .30824 Mdot .41541 .36281 Mdot .60328 .31444 Mdot .76359 .21225 Mdot .87774 .11639 Mdot 0 0 1 r .5 Mabswid .05 .397 m .11981 .47325 L .20832 .45632 L .29411 .4014 L .36041 .34898 L .40333 .31283 L .42797 .29164 L .44114 .28022 L .4479 .27435 L .45129 .27139 L .45298 .26992 L s .02 w .05 .397 Mdot .11981 .47325 Mdot .20832 .45632 Mdot .29411 .4014 Mdot .36041 .34898 Mdot .40333 .31283 Mdot .42797 .29164 Mdot .44114 .28022 Mdot .4479 .27435 Mdot .45129 .27139 Mdot .45298 .26992 Mdot 0 1 0 r .03 w .3 .3 Mdot 1 0 1 r .02 w .95 .049 Mdot 0 1 0 r .5 Mabswid .05 .397 m .95 .049 L s 1 0 1 r .87774 .11639 m .95 .049 L s 0 0 0 r 1 0 m 0 1 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg Ool5O03]Ool00`00Oomoo`05Ool001Eoo`03001oogoo00ioo`El0>aoo`03001oogoo00Ioo`005Goo 00<007ooOol03Woo1G`0jgoo00<007ooOol01goo000EOol00`00Oomoo`0>Ool5O03ZOol00`00Oomo o`08Ool001Eoo`03001oogoo00ioo`El0>Uoo`03001oogoo00Uoo`005Goo00<007ooOol03Woo1G`0 j7oo00<007ooOol02Woo000EOol00`00Oomoo`0?Ool3O03XOol00`00Oomoo`0;Ool001Eoo`03001o ogoo019oo`03O01oogoo0>1oo`=l7`03Ool007oo00eoo`005Goo00<007ooOol04Goo0g`0h7oo00El 7`?PO1ml7`0000moo`005Goo0P004Goo1G`0gWoo0P?P0W`O00<007`OOol03Woo000EOol00`00Oomo o`0@Ool5O03KOol30n0017ooO1ml7`000W`O3goo000EOol00`00Oomoo`0@Ool5O03IOol20n03Ool0 0g`OOol00002O1l@Ool001Eoo`03001oogoo015oo`=l0=Moo`<3h0Aoo`03O1moo`0001=oo`005Goo 00<007ooOol04goo00=l07ooOol0dWoo0`?P1Woo00=l7goo000057oo000EOol00`00Oomoo`0DOol0 0g`0Oomoo`3?Ool20n08Ool00g`OOol0000EOol001Eoo`03001oogoo01Aoo`03O01oogoo0Goo000EOol00`00Oomoo`0XOol00g`0Oomoo`1GOol20n0nOol00g`0Ooml0002O004Ool00`00Oomo o`0jOol001Eoo`03001oogoo02Uoo`03O01oogoo05=oo`<3h3ioo`9l00Qoo`03001oogoo03]oo`00 5Goo00<007ooOol0:Woo00=l07ooOol0D7oo0P?P@7oo00=l07ooOol01goo00<007ooOol0?7oo000E Ool00`00Oomoo`0[Ool00g`0Oomoo`1Woo0`?P AGoo0W`037oo00<007ooOol0@Woo000EOol00`00Oomoo`0aOol00g`0Oomoo`0gOol20n17Ool00g`0 Oomoo`0;Ool00`00Oomoo`13Ool001Eoo`03001oogoo035oo`03O01oogoo03Aoo`<3h4Moo`9l00eo o`03001oogoo04Aoo`005Goo00<007ooOol0Ool0 0`00Oomoo`16Ool001Eoo`03001oogoo03Aoo`03O01oogoo02Uoo`<3h0ioo`H07cIoo`9l00moo`03 001oogoo04Moo`005Goo00<007ooOol0=Goo00=l07ooOol09Woo0P?P47oo1`0O=Goo00=l07ooOol0 3Woo00<007ooOol0B7oo000EOol00`00Oomoo`0fOol00g`0Oomoo`0ROol30n0AOol801lcOol2O00@ Ool00`00Oomoo`19Ool001Eoo`03001oogoo03Moo`03O01oogoo01moo`83h1Aoo`L07c=oo`03O01o ogoo00moo`03001oogoo04Yoo`005Goo00<007ooOol0>7oo00=l07ooOol06goo0`?P4goo200OWoo00=l07ooOol037oo20?P 6Woo1@0O7oo00<007ooOol0H7oo000EOol00`00Oomoo`0NOol20n0eOol00`0O Oomoo`0@Ool5O00gOol00`00Oomoo`1QOol001Eoo`03001oogoo01]oo`<3h3Ioo`0301moogoo019o o`=l03Moo`03001oogoo069oo`005Goo00<007ooOol06Goo0P?P=goo0P0OCWoo00<007ooOol0Hgoo 000EOol00`00Oomoo`0FOol30n0hOol00`0OOomoo`1=Ool00`00Oomoo`1TOol001Eoo`03001oogoo 01=oo`<3h3Yoo`0301moogoo04eoo`03001oogoo06Eoo`005Goo00<007ooOol04Goo0P?P?7oo00<0 7gooOol0CGoo00<007ooOol0IWoo000EOol00`00Oomoo`09Ool301l2Ool30n0mOol00`0OOomoo`1= Ool00`00Oomoo`1WOol0009oo`8000Aoo`8000Eoo`<000=oo`03001oogoo00Qoo`@07`83h3]oo`D0 7dmoo`03001oogoo06Qoo`0000Eoo`00Oomoo`0000]oo`03001oogoo009oo`03001oogoo00Qoo`80 7`83h00301moogoo03Uoo`D07dmoo`03001oogoo06Uoo`0000Eoo`00Oomoo`0000Qoo`D000=oo`80 00Uoo`D07c]oo`D07dioo`03001oogoo06Yoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool0 0`00Oomoo`09Ool401lkOol501m=Ool00`00Oomoo`1[Ool00005Ool007ooOol00009Ool00`00Ool0 0004Ool00`00Oomoo`0=Ool00`0OOomoo`0gOol00`0OOol07`0201m=Ool00`00Oomoo`1/Ool0009o o`8000]oo`8000Aoo`03001oogoo00ioo`0301moogoo03Aoo`807e5oo`03001oogoo06eoo`005Goo 00<007ooOol03goo00<07gooOol0Ool001Eoo`03001oogoo07Ioo`03001oogoo08moo`005Goo00<007ooOol0MGoo00<0 07ooOol0T7oo000EOol00`00Oomoo`1dOol00`00Oomoo`2AOol001Eoo`8007Aoo`03001oogoo099o o`005Goo00<007ooOol0LWoo00<007ooOol0Tgoo000EOol00`00Oomoo`1aOol00`00Oomoo`2DOol0 01Eoo`03001oogoo071oo`03001oogoo09Eoo`005Goo00<007ooOol0Kgoo00<007ooOol0UWoo000E Ool00`00Oomoo`1^Ool00`00Oomoo`2GOol001Eoo`03001oogoo06eoo`03001oogoo09Qoo`005Goo 00<007ooOol0K7oo00<007ooOol0VGoo000EOol00`00Oomoo`1[Ool00`00Oomoo`2JOol001Eoo`03 001oogoo06Yoo`03001oogoo09]oo`005Goo00<007ooOol0JGoo00<007ooOol0W7oo0002Ool20004 Ool20003Ool30005Ool00`00Oomoo`1XOol00`00Oomoo`2MOol00005Ool007ooOol00008Ool01000 Oomoo`0017oo00<007ooOol0Igoo00<007ooOol0WWoo00001Goo001oogoo000027oo00@007ooOol0 00Aoo`8006Moo`03001oogoo09moo`0000Eoo`00Oomoo`0000Qoo`<000Eoo`03001oogoo06Eoo`03 001oogoo0:1oo`0000Eoo`00Oomoo`0000Uoo`03001oogoo00Aoo`03001oogoo06Aoo`03001oogoo 0:5oo`000Woo0P002Woo0`0017oo00<007ooOol0Hgoo00<007ooOol0XWoo000EOol00`00Oomoo`1R Ool00`00Oomoo`2SOol001Eoo`03001oogoo065oo`03001oogoo0:Aoo`005Goo00<007ooOol0H7oo 00<007ooOol0YGoo000EOol00`00Oomoo`1OOol00`00Oomoo`2VOol001Eoo`03001oogoo05ioo`03 001oogoo0:Moo`005Goo00<007ooOol0GGoo00<007ooOol0Z7oo000EOol00`00Oomoo`1LOol00`00 Oomoo`2YOol001Eoo`03001oogoo05]oo`03001oogoo0:Yoo`005Goo00<007ooOol0FWoo00<007oo Ool0Zgoo000EOol2001JOol00`00Oomoo`2/Ool001Eoo`03001oogoo05Qoo`03001oogoo0:eoo`00 5Goo00<007ooOol0Egoo00<007ooOol0[Woo000EOol00`00Oomoo`1FOol00`00Oomoo`2_Ool001Eo o`03001oogoo05Eoo`03001oogoo0;1oo`005Goo00<007ooOol0E7oo00<007ooOol0/Goo000EOol0 0`00Oomoo`1COol00`00Oomoo`2bOol001Eoo`03001oogoo059oo`03001oogoo0;=oo`005Goo00<0 07ooOol0DGoo00<007ooOol0]7oo000EOol00`00Oomoo`1@Ool00`00Oomoo`2eOol001Eoo`03001o ogoo04moo`03001oogoo0;Ioo`005Goo00<007ooOol0CWoo00<007ooOol0]goo000EOol00`00Oomo o`1=Ool00`00Oomoo`2hOol001Eoo`8004eoo`03001oogoo0;Uoo`005Goo00<007ooOol0Bgoo00<0 07ooOol0^Woo000EOol00`00Oomoo`1:Ool00`00Oomoo`2kOol001Eoo`03001oogoo04Uoo`03001o ogoo0;aoo`005Goo00<007ooOol0B7oo00<007ooOol0_Goo000EOol00`00Oomoo`17Ool00`00Oomo o`2nOol001Eoo`03001oogoo04Ioo`03001oogoo0;moo`005Goo00<007ooOol0AGoo00<007ooOol0 `7oo000EOol00`00Oomoo`14Ool00`00Oomoo`31Ool001Eoo`03001oogoo04=oo`03001oogoo0<9o o`005Goo00<007ooOol0@Woo00<007ooOol0`goo000EOol00`00Oomoo`11Ool00`00Oomoo`34Ool0 01Eoo`03001oogoo041oo`03001oogoo0Goo00<007ooOol0c7oo000EOol00`00Oomoo`0h Ool00`00Oomoo`3=Ool001Eoo`03001oogoo03Moo`03001oogoo05oo`005Goo00<007oo Ool08goo00<007ooOol0hWoo000EOol00`00Oomoo`0ROol00`00Oomoo`3SOol001Eoo`03001oogoo 025oo`03001oogoo0>Aoo`005Goo00<007ooOol087oo00<007ooOol0iGoo000EOol00`00Oomoo`0O Ool00`00Oomoo`3VOol001Eoo`03001oogoo01ioo`03001oogoo0>Moo`005Goo00<007ooOol07Goo 00<007ooOol0j7oo000EOol00`00Oomoo`0LOol00`00Oomoo`3YOol001Eoo`03001oogoo01]oo`03 001oogoo0>Yoo`005Goo00<007ooOol06Woo00<007ooOol0jgoo000EOol00`00Oomoo`0IOol00`00 Oomoo`3/Ool001Eoo`03001oogoo01Qoo`03001oogoo0>eoo`005Goo0P0067oo00<007ooOol0kWoo 000EOol00`00Oomoo`0FOol00`00Oomoo`3_Ool001Eoo`03001oogoo01Eoo`03001oogoo0?1oo`00 5Goo00<007ooOol057oo00<007ooOol0lGoo000EOol00`00Oomoo`0COol00`00Oomoo`3bOol001Eo o`03001oogoo019oo`03001oogoo0?=oo`005Goo00<007ooOol04Goo00<007ooOol0m7oo000EOol0 0`00Oomoo`0@Ool00`00Oomoo`3eOol001Eoo`03001oogoo00moo`03001oogoo0?Ioo`005Goo00<0 07ooOol03Woo00<007ooOol0mgoo000EOol00`00Oomoo`0=Ool00`00Oomoo`3hOol001Eoo`03001o ogoo00aoo`03001oogoo0?Uoo`005Goo00<007ooOol02goo00<007ooOol0nWoo000EOol2000;Ool0 0`00Oomoo`3kOol001Eoo`03001oogoo00Uoo`03001oogoo0?aoo`005Goo00<007ooOol027oo00<0 07ooOol0oGoo000EOol00`00Oomoo`07Ool00`00Oomoo`3nOol001Eoo`03001oogoo00Ioo`03001o ogoo0?moo`005Goo00<007ooOol01Goo00<007ooOol0ogoo0Goo000EOol00`00Oomoo`04Ool00`00 Oomoo`3oOol2Ool001Eoo`03001oogoo00=oo`03001oogoo0?moo`=oo`005Goo00<007ooOol00Woo 00<007ooOol0ogoo17oo000EOol01@00Oomoogoo0000ogoo1goo000EOol01000Oomoo`00ogoo27oo 000=Ool50003Ool00`00Ool0003oOol9Ool000moo`03001oogoo00=oo`800?moo`Yoo`003goo00<0 07ooOol00goo0P00ogoo2Woo000?Ool00`00Oomoo`3oOol?Ool000moo`03001oogoo0?moo`moo`00 3Woo0P00ogoo4Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.0810208, -0.061037, \ 0.00380643, 0.00380643}}, CellTags->"FIN"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"4.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, CellGrouping->Manual, WindowSize->{496, 537}, WindowMargins->{{27, Automatic}, {Automatic, 16}} ] (*********************************************************************** 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->{ "RECTF"->{ Cell[34884, 996, 17032, 411, 296, 2634, 228, "GraphicsData", "PostScript", "Graphics", CellTags->"RECTF"]}, "STRIP"->{ Cell[79894, 2206, 16067, 401, 296, 2657, 230, "GraphicsData", "PostScript", "Graphics", CellTags->"STRIP"]}, "FIN"->{ Cell[97409, 2646, 19279, 472, 296, 3154, 268, "GraphicsData", "PostScript", "Graphics", CellTags->"FIN"]} } *) (*CellTagsIndex CellTagsIndex->{ {"RECTF", 117484, 3145}, {"STRIP", 117620, 3149}, {"FIN", 117755, 3153} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 756, 24, 222, "Title"], Cell[2498, 77, 1222, 35, 367, "Title"], Cell[CellGroupData[{ Cell[3745, 116, 175, 4, 87, "Subsubtitle"], Cell[CellGroupData[{ Cell[3945, 124, 295, 6, 90, "Input"], Cell[4243, 132, 138, 3, 42, "Message"], Cell[4384, 137, 166, 3, 48, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[4599, 146, 288, 7, 76, "Subsubtitle"], Cell[4890, 155, 45, 1, 30, "Input"], Cell[4938, 158, 82, 1, 30, "Input"], Cell[5023, 161, 88, 1, 50, "Input"], Cell[5114, 164, 130, 3, 30, "Input"], Cell[5247, 169, 68, 1, 30, "Input"], Cell[5318, 172, 508, 10, 190, "Input"], Cell[5829, 184, 72, 1, 30, "Input"], Cell[5904, 187, 72, 1, 30, "Input"], Cell[5979, 190, 72, 1, 30, "Input"], Cell[6054, 193, 140, 3, 70, "Input"], Cell[6197, 198, 86, 1, 30, "Input"], Cell[6286, 201, 88, 1, 30, "Input"], Cell[6377, 204, 73, 1, 30, "Input"], Cell[6453, 207, 87, 1, 30, "Input"], Cell[6543, 210, 87, 1, 30, "Input"], Cell[6633, 213, 74, 1, 30, "Input"], Cell[6710, 216, 70, 1, 30, "Input"], Cell[6783, 219, 68, 1, 30, "Input"], Cell[6854, 222, 68, 1, 30, "Input"], Cell[6925, 225, 84, 1, 30, "Input"], Cell[7012, 228, 85, 1, 30, "Input"], Cell[7100, 231, 87, 1, 30, "Input"], Cell[CellGroupData[{ Cell[7212, 236, 281, 6, 90, "Input"], Cell[7496, 244, 16939, 400, 296, 2428, 216, "GraphicsData", "PostScript", \ "Graphics"], Cell[24438, 646, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24605, 654, 125, 3, 50, "Input"], Cell[24733, 659, 9929, 324, 186, 3341, 238, "GraphicsData", "PostScript", \ "Graphics"], Cell[34665, 985, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34832, 993, 49, 1, 30, "Input"], Cell[34884, 996, 17032, 411, 296, 2634, 228, "GraphicsData", "PostScript", \ "Graphics", CellTags->"RECTF"], Cell[51919, 1409, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[52098, 1418, 289, 7, 76, "Subsubtitle"], Cell[52390, 1427, 111, 2, 30, "Input"], Cell[52504, 1431, 73, 1, 30, "Input"], Cell[52580, 1434, 46, 1, 30, "Input"], Cell[52629, 1437, 70, 1, 30, "Input"], Cell[52702, 1440, 86, 1, 30, "Input"], Cell[52791, 1443, 142, 3, 50, "Input"], Cell[52936, 1448, 88, 1, 30, "Input"], Cell[53027, 1451, 73, 1, 30, "Input"], Cell[53103, 1454, 83, 1, 30, "Input"], Cell[53189, 1457, 83, 1, 30, "Input"], Cell[53275, 1460, 74, 1, 30, "Input"], Cell[CellGroupData[{ Cell[53374, 1465, 70, 1, 30, "Input"], Cell[53447, 1468, 138, 3, 42, "Message"] }, Open ]], Cell[53600, 1474, 69, 1, 30, "Input"], Cell[53672, 1477, 69, 1, 30, "Input"], Cell[53744, 1480, 69, 1, 30, "Input"], Cell[53816, 1483, 69, 1, 30, "Input"], Cell[53888, 1486, 104, 2, 30, "Input"], Cell[53995, 1490, 104, 2, 30, "Input"], Cell[54102, 1494, 83, 1, 30, "Input"], Cell[CellGroupData[{ Cell[54210, 1499, 281, 6, 90, "Input"], Cell[54494, 1507, 15940, 388, 296, 2438, 217, "GraphicsData", "PostScript", \ "Graphics"], Cell[70437, 1897, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70604, 1905, 125, 3, 50, "Input"], Cell[70732, 1910, 8940, 283, 186, 2819, 203, "GraphicsData", "PostScript", \ "Graphics"], Cell[79675, 2195, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79842, 2203, 49, 1, 30, "Input"], Cell[79894, 2206, 16067, 401, 296, 2657, 230, "GraphicsData", "PostScript", \ "Graphics", CellTags->"STRIP"], Cell[95964, 2609, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[96143, 2618, 722, 13, 292, "Subsubtitle"], Cell[CellGroupData[{ Cell[96890, 2635, 516, 9, 250, "Input"], Cell[97409, 2646, 19279, 472, 296, 3154, 268, "GraphicsData", "PostScript", \ "Graphics", CellTags->"FIN"], Cell[116691, 3120, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)