(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.1' 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[ 224297, 7452]*) (*NotebookOutlinePosition[ 224963, 7475]*) (* CellTagsIndexPosition[ 224919, 7471]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Four stage batch distillation column", "Subsubtitle", FontSize->18, 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[{ "We use a batch column with four theoretical plates to separate a binary \ mixture of water and methanol at 1 bar. Temperature and concentration \ profiles versus time are obtained for a reflux ratio equal to 10. In \ addition, the total moles in the still and distillate are plotted versus \ time. This demo shows how one can use NDSolve to treat a complex system of 13 \ differential algebraic equations very easily.\n\n", StyleBox["Reference:", FontWeight->"Bold"], " Example BUBBLE in page 559 by J. Ingham, I. J. Dunn, E. Heinzle and J. E. \ Prenosil, Chemical Engineering Dynamics, Wiley-VCH, Weinheim, Second Edition, \ 2000." }], "Subsubtitle", Background->RGBColor[0.733333, 1, 1]], Cell[CellGroupData[{ Cell["Message Suppression", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["Off[General::spell1]", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Component balances for the methanol on the plates, the still and condenser\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ diffeq1=M D[x1[t],{t,1}]\[Equal]L (x0[t]-x1[t])+V (y2[t]-y1[t])\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"M", " ", RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", \(L\ \((x0[t] - x1[t])\) + V\ \((\(-y1[t]\) + y2[t])\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ diffeq2=M D[x2[t],{t,1}]\[Equal]L (x1[t]-x2[t])+V (y3[t]-y2[t])\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"M", " ", RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", \(L\ \((x1[t] - x2[t])\) + V\ \((\(-y2[t]\) + y3[t])\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ diffeq3=M D[x3[t],{t,1}]\[Equal]L (x2[t]-x3[t])+V (y4[t]-y3[t])\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"M", " ", RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", \(L\ \((x2[t] - x3[t])\) + V\ \((\(-y3[t]\) + y4[t])\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ diffeq4=M D[x4[t],{t,1}]\[Equal]L (x3[t]-x4[t])+V (yB[t]-y4[t])\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"M", " ", RowBox[{ SuperscriptBox["x4", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", \(L\ \((x3[t] - x4[t])\) + V\ \((\(-y4[t]\) + yB[t])\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["diffeq5=D[MB[t],{t,1}]\[Equal]L -V", "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["MB", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", \(L - V\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ diffeq0=M0 D[x0[t],{t,1}]\[Equal]V y1[t]-(L+Di) x0[t]\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"M0", " ", RowBox[{ SuperscriptBox["x0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", \(\(-\((Di + L)\)\)\ x0[t] + V\ y1[t]\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ diffeq6=D[MB[t] xB[t],{t,1}]\[Equal]L x4[t]-V yB[t]\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{\(xB[t]\), " ", RowBox[{ SuperscriptBox["MB", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{\(MB[t]\), " ", RowBox[{ SuperscriptBox["xB", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", \(L\ x4[t] - V\ yB[t]\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["diffeq7=D[DIST[t],{t,1}]\[Equal]Di", "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["DIST", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", "Di"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Total mass balance equation and reflux ratio definition", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["Di=V/(R+1);", "Input"], Cell["L=V-Di;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Initial conditions", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["init0=x0[0]\[Equal]0;", "Input"], Cell["init1=x1[0]\[Equal]0;", "Input"], Cell["init2=x2[0]\[Equal]0;", "Input"], Cell["init3=x3[0]\[Equal]0;", "Input"], Cell["init4=x4[0]\[Equal]0;", "Input"], Cell["initMB=MB[0]\[Equal]2500;", "Input"], Cell["initDIST=DIST[0]\[Equal]0;", "Input"], Cell["initXB=xB[0]\[Equal]0.8;", "Input"], Cell["init5=T1[0]\[Equal]50;", "Input"], Cell["init6=T2[0]\[Equal]50;", "Input"], Cell["init7=T3[0]\[Equal]50;", "Input"], Cell["init8=T4[0]\[Equal]50;", "Input"], Cell["init9=TB[0]\[Equal]50;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Values of parameters used in the expressions to compute the activity \ coefficients and vapor pressures. We take the Van Laar equation to estimate \ the activity coefficients since the binary mixture: water-methanol presents \ deviation from ideality in the liquid phase.\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["D1=-4617.8;", "Input"], Cell["C1=13.676;", "Input"], Cell["D2=-5042.6;", "Input"], Cell["C2=13.519;", "Input"], Cell["A=0.85;", "Input"], Cell["B=0.48;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Values of the reflux ratio, the vapor flow rate, the molar holdup of the \ plates and the reflux drum \ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["R=10;", "Input"], Cell["V=10;", "Input"], Cell["M0=100;", "Input"], Cell["M=20;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Total pressure is set equal to 1 bar", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["P=1;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Algebraic relations representing VL Equilibrium", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell["\<\ equilb1=P\[Equal]Exp[A*(1-x1[t]^2)/(1-x1[t]+A x1[t]/B)^2] \ Exp[C1+D1/(273.15+T1[t])] x1[t]+ Exp[A*x1[t]^2/(x1[t]+A (1-x1[t])/B)^2] Exp[C2+D2/(273.15+T1[t])] (1-x1[t]);\ \>", "Input"], Cell["\<\ equilb2=P\[Equal]Exp[A*(1-x2[t]^2)/(1-x2[t]+A x2[t]/B)^2] \ Exp[C1+D1/(273.15+T2[t])] x2[t]+ Exp[A*x2[t]^2/(x2[t]+A (1-x2[t])/B)^2] Exp[C2+D2/(273.15+T2[t])] (1-x2[t]);\ \>", "Input"], Cell["\<\ equilb3=P\[Equal]Exp[A*(1-x3[t]^2)/(1-x3[t]+A x3[t]/B)^2] \ Exp[C1+D1/(273.15+T3[t])] x3[t]+ Exp[A*x3[t]^2/(x3[t]+A (1-x3[t])/B)^2] Exp[C2+D2/(273.15+T3[t])] (1-x3[t]);\ \>", "Input"], Cell["\<\ equilb4=P\[Equal]Exp[A*(1-x4[t]^2)/(1-x4[t]+A x4[t]/B)^2] \ Exp[C1+D1/(273.15+T4[t])] x4[t]+ Exp[A*x4[t]^2/(x4[t]+A (1-x4[t])/B)^2] Exp[C2+D2/(273.15+T4[t])] (1-x4[t]);\ \>", "Input"], Cell["\<\ equilbB=P\[Equal]Exp[A*(1-xB[t]^2)/(1-xB[t]+A xB[t]/B)^2] \ Exp[C1+D1/(273.15+TB[t])] xB[t]+ Exp[A*xB[t]^2/(xB[t]+A (1-xB[t])/B)^2] Exp[C2+D2/(273.15+TB[t])] (1-xB[t]);\ \>", "Input"], Cell["\<\ y1[t_]:=Exp[A*(1-x1[t]^2)/(1-x1[t]+A x1[t]/B)^2] Exp[C1+D1/(273.15+T1[t])] \ x1[t]/P;\ \>", "Input"], Cell["\<\ y2[t_]:=Exp[A*(1-x2[t]^2)/(1-x2[t]+A x2[t]/B)^2] Exp[C1+D1/(273.15+T2[t])] \ x2[t]/P;\ \>", "Input"], Cell["\<\ y3[t_]:=Exp[A*(1-x3[t]^2)/(1-x3[t]+A x3[t]/B)^2] Exp[C1+D1/(273.15+T3[t])] \ x3[t]/P;\ \>", "Input"], Cell["\<\ y4[t_]:=Exp[A*(1-x4[t]^2)/(1-x4[t]+A x4[t]/B)^2] Exp[C1+D1/(273.15+T4[t])] \ x4[t]/P;\ \>", "Input"], Cell["\<\ yB[t_]:=Exp[A*(1-xB[t]^2)/(1-xB[t]+A xB[t]/B)^2] Exp[C1+D1/(273.15+TB[t])] \ xB[t]/P;\ \>", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["The number of the differential algebraic equations is 13", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ Length[{diffeq1,diffeq2,diffeq3,diffeq4,diffeq5,diffeq0,diffeq6,diffeq7,\ equilb1,equilb2,equilb3,equilb4,equilb5}]\ \>", "Input"], Cell[BoxData[ \(13\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["The number of the initial conditions is 13", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ Length[{init0,init1,init2,init3,init4,init5,init6,init7,init8,init9,initXB,\ initMB,initDIST}]\ \>", "Input"], Cell[BoxData[ \(13\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["The number of the functions is 13", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ Length[{x0[t],x1[t],x2[t],x3[t],x4[t],xB[t],T1[t],T2[t],T3[t],T4[t],TB[t],MB[\ t],DIST[t]}]\ \>", "Input"], Cell[BoxData[ \(13\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Calling NDSolve to solve the system of 13 DAEs", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ sol=NDSolve[{diffeq1,diffeq2,diffeq3,diffeq4,diffeq5,diffeq0,diffeq6,diffeq7,\ equilb1,equilb2,equilb3,equilb4,equilbB,init0,init1,init2,init3,init4,init5,\ init6,init7,init8,init9,initXB,initMB,initDIST},{x0[t],x1[t],x2[t],x3[t],x4[t]\ ,xB[t],T1[t],T2[t],T3[t],T4[t],TB[t],MB[t],DIST[t]},{t,0,200}]\ \>", "Input"], Cell[BoxData[ RowBox[{\(NDSolve::"ivres"\), \(\(:\)\(\ \)\), "\<\"NDSolve has computed \ initial values which give a zero residual for the differential-algebraic \ system, but some components are different from those specified. If you need \ those to be satisfied, it is recommended that you give initial conditions for \ all dependent variables and derivatives of them. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"NDSolve::ivres\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{\(x0[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x1[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x2[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x3[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x4[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(xB[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(T1[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(T2[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(T3[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(T4[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(TB[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(MB[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(DIST[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 200.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Plotting the total number of moles in the still ", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ plt1=Plot[Evaluate[MB[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,0],PlotRange-\ >All]\ \>", "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 0.00476191 -7.48998 0.00323732 [ [.2619 .02429 -6 -9 ] [.2619 .02429 6 0 ] [.5 .02429 -9 -9 ] [.5 .02429 9 0 ] [.7381 .02429 -9 -9 ] [.7381 .02429 9 0 ] [.97619 .02429 -9 -9 ] [.97619 .02429 9 0 ] [.01131 .11772 -24 -4.5 ] [.01131 .11772 0 4.5 ] [.01131 .19865 -24 -4.5 ] [.01131 .19865 0 4.5 ] [.01131 .27959 -24 -4.5 ] [.01131 .27959 0 4.5 ] [.01131 .36052 -24 -4.5 ] [.01131 .36052 0 4.5 ] [.01131 .44145 -24 -4.5 ] [.01131 .44145 0 4.5 ] [.01131 .52239 -24 -4.5 ] [.01131 .52239 0 4.5 ] [.01131 .60332 -24 -4.5 ] [.01131 .60332 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 .2619 .03679 m .2619 .04304 L s [(50)] .2619 .02429 0 1 Mshowa .5 .03679 m .5 .04304 L s [(100)] .5 .02429 0 1 Mshowa .7381 .03679 m .7381 .04304 L s [(150)] .7381 .02429 0 1 Mshowa .97619 .03679 m .97619 .04304 L s [(200)] .97619 .02429 0 1 Mshowa .125 Mabswid .07143 .03679 m .07143 .04054 L s .11905 .03679 m .11905 .04054 L s .16667 .03679 m .16667 .04054 L s .21429 .03679 m .21429 .04054 L s .30952 .03679 m .30952 .04054 L s .35714 .03679 m .35714 .04054 L s .40476 .03679 m .40476 .04054 L s .45238 .03679 m .45238 .04054 L s .54762 .03679 m .54762 .04054 L s .59524 .03679 m .59524 .04054 L s .64286 .03679 m .64286 .04054 L s .69048 .03679 m .69048 .04054 L s .78571 .03679 m .78571 .04054 L s .83333 .03679 m .83333 .04054 L s .88095 .03679 m .88095 .04054 L s .92857 .03679 m .92857 .04054 L s .25 Mabswid 0 .03679 m 1 .03679 L s .02381 .11772 m .03006 .11772 L s [(2350)] .01131 .11772 1 0 Mshowa .02381 .19865 m .03006 .19865 L s [(2375)] .01131 .19865 1 0 Mshowa .02381 .27959 m .03006 .27959 L s [(2400)] .01131 .27959 1 0 Mshowa .02381 .36052 m .03006 .36052 L s [(2425)] .01131 .36052 1 0 Mshowa .02381 .44145 m .03006 .44145 L s [(2450)] .01131 .44145 1 0 Mshowa .02381 .52239 m .03006 .52239 L s [(2475)] .01131 .52239 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(2500)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .05297 m .02756 .05297 L s .02381 .06916 m .02756 .06916 L s .02381 .08535 m .02756 .08535 L s .02381 .10153 m .02756 .10153 L s .02381 .13391 m .02756 .13391 L s .02381 .15009 m .02756 .15009 L s .02381 .16628 m .02756 .16628 L s .02381 .18247 m .02756 .18247 L s .02381 .21484 m .02756 .21484 L s .02381 .23103 m .02756 .23103 L s .02381 .24721 m .02756 .24721 L s .02381 .2634 m .02756 .2634 L s .02381 .29577 m .02756 .29577 L s .02381 .31196 m .02756 .31196 L s .02381 .32815 m .02756 .32815 L s .02381 .34433 m .02756 .34433 L s .02381 .37671 m .02756 .37671 L s .02381 .39289 m .02756 .39289 L s .02381 .40908 m .02756 .40908 L s .02381 .42527 m .02756 .42527 L s .02381 .45764 m .02756 .45764 L s .02381 .47383 m .02756 .47383 L s .02381 .49001 m .02756 .49001 L s .02381 .5062 m .02756 .5062 L s .02381 .53857 m .02756 .53857 L s .02381 .55476 m .02756 .55476 L s .02381 .57095 m .02756 .57095 L s .02381 .58713 m .02756 .58713 L s .02381 .0206 m .02756 .0206 L s .02381 .00441 m .02756 .00441 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .60332 m .06244 .57944 L .10458 .5534 L .14415 .52894 L .18221 .50542 L .22272 .48039 L .26171 .45629 L .30316 .43067 L .34309 .406 L .3815 .38225 L .42237 .357 L .46172 .33268 L .49955 .30929 L .53984 .2844 L .57861 .26043 L .61984 .23495 L .65954 .21041 L .69774 .18681 L .73838 .16169 L .77751 .13751 L .81909 .11181 L .85916 .08704 L .89771 .06322 L .93871 .03788 L .97619 .01472 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo00@007ooOol0009oo`03001oogoo039oo`05 001oogooOol00002Ool01000Oomoo`000Woo00<007ooOol0;goo00<007ooOol017oo00@007ooOol0 009oo`03001oogoo02ioo`03001oogoo009oo`04001oogoo0002Ool01000Oomoo`000Woo000KOol2 000hOol20003Ool01000Oomoo`00=7oo00D007ooOomoo`00009oo`04001oogoo0002Ool00`00Oomo o`0_Ool00`00Oomoo`02Ool20003Ool01000Oomoo`00goo00<007ooOol0?7oo00<007ooOol0?7oo00<007ooOol0<7oo0W`02Woo00<007ooOol0 1goo000KOol00`00Oomoo`3ZOol2O00FOol001]oo`03001oogoo0>Qoo`9l01Qoo`006goo0P00igoo 0W`06Woo000KOol00`00Oomoo`3TOol2O00LOol001]oo`03001oogoo0>=oo`03O01oogoo01aoo`00 6goo00<007ooOol0hGoo0W`07goo000KOol2003QOol00g`0Oomoo`0OOol001]oo`03001oogoo0=mo o`03O01oogoo021oo`006goo00<007ooOol0gGoo0W`08goo000KOol00`00Oomoo`3LOol00g`0Oomo o`0SOol001]oo`800=]oo`9l02Ioo`006goo00<007ooOol0fGoo00=l07ooOol09Woo000KOol00`00 Oomoo`3GOol2O00YOol001]oo`03001oogoo0=Eoo`9l02]oo`006goo0P00e7oo0W`0;Goo000KOol0 0`00Oomoo`3AOol2O00_Ool001]oo`03001oogoo0Ool2O01cOol001]oo`03001oogoo08aoo`03O01oogoo07=oo`0000=oo`0000000P0017oo0`00 0Woo0P0017oo0P001Goo00<007ooOol0Rgoo00=l07ooOol0M7oo00000goo001oo`07Ool01000Oomo o`000Woo00@007ooOol0009oo`03001oogoo009oo`03001oogoo08Uoo`9l07Moo`000Woo00<007oo Ool00Woo1@0000Eoo`00Oomoo`00009oo`04001oogoo0004Ool20029Ool00g`0Oomoo`1gOol000=o o`05001oogooOol00002Ool01000Oomoo`000Woo00@007ooOol0009oo`03001oogoo009oo`03001o ogoo08Ioo`9l07Yoo`0000Eoo`00Oomoo`0000=oo`03001oo`00009oo`04001oogoo0002Ool01000 Oomoo`0017oo00<007ooOol0QGoo00=l07ooOol0NWoo0002Ool20005Ool20003Ool20004Ool20005 Ool00`00Oomoo`23Ool2O01mOol001]oo`03001oogoo085oo`9l07moo`006goo0P00P7oo0W`0PGoo 000KOol00`00Oomoo`1mOol2O023Ool001]oo`03001oogoo07]oo`9l08Eoo`006goo00<007ooOol0 NWoo00=l07ooOol0QGoo000KOol2001iOol2O028Ool001]oo`03001oogoo07Ioo`9l08Yoo`006goo 00<007ooOol0MGoo00=l07ooOol0RWoo000KOol00`00Oomoo`1cOol2O02=Ool001]oo`80079oo`9l 08moo`006goo00<007ooOol0L7oo00=l07ooOol0Sgoo000KOol00`00Oomoo`1^Ool2O02BOol001]o o`03001oogoo06eoo`03O01oogoo099oo`006goo0P00KGoo00=l07ooOol0Tgoo000KOol00`00Oomo o`1ZOol2O02FOol001]oo`03001oogoo06Uoo`03O01oogoo09Ioo`0000=oo`0000000P0017oo0`00 00=oo`0000000P000goo0P001Goo00<007ooOol0Igoo0W`0VGoo00000goo001oo`07Ool01000Oomo o`001Goo00@007ooOol000Aoo`03001oogoo06Ioo`03O01oogoo09Uoo`000Woo00<007ooOol00Woo 1@000Woo00<007ooOol01Goo00<007ooOol00Woo0P00IGoo0W`0W7oo0003Ool01@00Oomoogoo0000 0Woo00<007ooOol00Woo00<007ooOol00Woo0P001Goo00<007ooOol0HWoo0W`0WWoo00001Goo001o ogoo00000goo00<007oo00000Woo00@007ooOol000=oo`03001oogoo00Aoo`03001oogoo061oo`9l 0:1oo`000Woo0P001Goo0P000goo0P0017oo0`0017oo00<007ooOol0GWoo0W`0XWoo000KOol2001M Ool2O02TOol001]oo`03001oogoo05]oo`03O01oogoo0:Aoo`006goo00<007ooOol0FGoo0W`0Ygoo 000KOol00`00Oomoo`1HOol00g`0Oomoo`2WOol001]oo`8005Qoo`03O01oogoo0:Qoo`006goo00<0 07ooOol0EGoo0W`0Zgoo000KOol00`00Oomoo`1DOol00g`0Oomoo`2[Ool001]oo`03001oogoo059o o`9l0:ioo`006goo0P00DWoo00=l07ooOol0[Woo000KOol00`00Oomoo`1?Ool2O02aOol001]oo`03 001oogoo04eoo`9l0;=oo`006goo00<007ooOol0Bgoo0W`0]Goo000KOol00`00Oomoo`19Ool2O02g Ool001]oo`8004Qoo`9l0;Uoo`006goo00<007ooOol0AWoo00=l07ooOol0^Goo00000goo00000002 0004Ool30002Ool20004Ool20005Ool00`00Oomoo`14Ool2O02lOol00003Ool007oo00Moo`04001o ogoo0002Ool01000Oomoo`000Woo00<007ooOol00Woo00<007ooOol0@goo00=l07ooOol0_7oo0002 Ool00`00Oomoo`02Ool50004Ool01000Oomoo`000Woo00<007ooOol00Woo0P00@Woo0W`0_goo0003 Ool01@00Oomoogoo00000Woo00@007ooOomoo`8000=oo`04001oogoo0004Ool00`00Oomoo`0oOol2 O031Ool00005Ool007ooOol00003Ool00`00Ool00003Ool00`00Oomoo`02Ool01000Oomoo`0017oo 00<007ooOol0?Woo00=l07ooOol0`Goo0002Ool20005Ool20003Ool30003Ool20005Ool00`00Oomo o`0lOol2O034Ool001]oo`8003aoo`03O01oogoo0Goo0W`0agoo000K Ool00`00Oomoo`0gOol2O039Ool001]oo`03001oogoo03Ioo`03O01oogoo0Ool001]oo`03001oogoo035oo`03O01oogoo0=oo`0000Eoo`00Oomoo`0000=oo`03001oo`00009o o`04001oogoo0003Ool00`00Oomoo`04Ool00`00Oomoo`0LOol00g`0Oomoo`3SOol0009oo`8000Eo o`80009oo`@000=oo`<000Aoo`03001oogoo01Yoo`9l0>Ioo`006goo0P006Goo0W`0j7oo000KOol0 0`00Oomoo`0GOol00g`0Oomoo`3XOol001]oo`03001oogoo01Eoo`9l0>]oo`006goo00<007ooOol0 4goo0W`0kGoo000KOol00`00Oomoo`0BOol00g`0Oomoo`3]Ool001]oo`80015oo`9l0?1oo`006goo 00<007ooOol03goo00=l07ooOol0l7oo000KOol00`00Oomoo`0=Ool2O03cOol001]oo`03001oogoo 00]oo`9l0?Eoo`006goo0P002goo00=l07ooOol0mGoo000KOol00`00Oomoo`08Ool2O03hOol001]o o`03001oogoo00Moo`03O01oogoo0?Qoo`006goo00<007ooOol01Goo0W`0ngoo000KOol20004Ool2 O03mOol001]oo`03001oogoo009oo`03O01oogoo0?eoo`0000=oo`0000000P000goo0P0017oo0P00 17oo0P001Goo00<007ooOol00W`0ogoo0Goo00000goo001oo`04Ool01000Oomoo`000Woo00@007oo Ool0009oo`04001oogoo0004Ool00`00O01l003oOol3Ool0009oo`03001oogoo00Eoo`04001oogoo 0002Ool01000Oomoo`000Woo00<007ooOol00Woo00=l0000Ool0ogoo0goo0003Ool00`00Oomoo`02 Ool20003Ool01000Oomoo`000Woo00@007ooOol000Aoo`03001oogoo0?moo`=oo`0000Eoo`00Oomo o`0000=oo`03001oogoo009oo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol0ogoo0goo 0002Ool20004Ool30003Ool20004Ool20005Ool00`00Oomoo`3oOol3Ool001]oo`03001oogoo0?mo o`=oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-21.7717, 2304.12, 0.797743, \ 1.17343}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Plotting the concentration profile versus time in the still, the plates and \ the condenser\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ plt2=Plot[Evaluate[xB[t]/.sol],{t,0,200},PlotStyle->RGBColor[0,1,0],PlotRange-\ >All]\ \>", "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 0.00476191 -5.06917 7.09061 [ [.2619 .59082 -6 -9 ] [.2619 .59082 6 0 ] [.5 .59082 -9 -9 ] [.5 .59082 9 0 ] [.7381 .59082 -9 -9 ] [.7381 .59082 9 0 ] [.97619 .59082 -9 -9 ] [.97619 .59082 9 0 ] [.01131 .03607 -24 -4.5 ] [.01131 .03607 0 4.5 ] [.01131 .17788 -24 -4.5 ] [.01131 .17788 0 4.5 ] [.01131 .31969 -24 -4.5 ] [.01131 .31969 0 4.5 ] [.01131 .46151 -24 -4.5 ] [.01131 .46151 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 .2619 .60332 m .2619 .60957 L s [(50)] .2619 .59082 0 1 Mshowa .5 .60332 m .5 .60957 L s [(100)] .5 .59082 0 1 Mshowa .7381 .60332 m .7381 .60957 L s [(150)] .7381 .59082 0 1 Mshowa .97619 .60332 m .97619 .60957 L s [(200)] .97619 .59082 0 1 Mshowa .125 Mabswid .07143 .60332 m .07143 .60707 L s .11905 .60332 m .11905 .60707 L s .16667 .60332 m .16667 .60707 L s .21429 .60332 m .21429 .60707 L s .30952 .60332 m .30952 .60707 L s .35714 .60332 m .35714 .60707 L s .40476 .60332 m .40476 .60707 L s .45238 .60332 m .45238 .60707 L s .54762 .60332 m .54762 .60707 L s .59524 .60332 m .59524 .60707 L s .64286 .60332 m .64286 .60707 L s .69048 .60332 m .69048 .60707 L s .78571 .60332 m .78571 .60707 L s .83333 .60332 m .83333 .60707 L s .88095 .60332 m .88095 .60707 L s .92857 .60332 m .92857 .60707 L s .25 Mabswid 0 .60332 m 1 .60332 L s .02381 .03607 m .03006 .03607 L s [(0.72)] .01131 .03607 1 0 Mshowa .02381 .17788 m .03006 .17788 L s [(0.74)] .01131 .17788 1 0 Mshowa .02381 .31969 m .03006 .31969 L s [(0.76)] .01131 .31969 1 0 Mshowa .02381 .46151 m .03006 .46151 L s [(0.78)] .01131 .46151 1 0 Mshowa .125 Mabswid .02381 .07152 m .02756 .07152 L s .02381 .10698 m .02756 .10698 L s .02381 .14243 m .02756 .14243 L s .02381 .21334 m .02756 .21334 L s .02381 .24879 m .02756 .24879 L s .02381 .28424 m .02756 .28424 L s .02381 .35515 m .02756 .35515 L s .02381 .3906 m .02756 .3906 L s .02381 .42605 m .02756 .42605 L s .02381 .49696 m .02756 .49696 L s .02381 .53241 m .02756 .53241 L s .02381 .56787 m .02756 .56787 L s .02381 .00062 m .02756 .00062 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 1 0 r .5 Mabswid .02381 .60332 m .06244 .47232 L .10458 .36019 L .12507 .3136 L .14415 .27616 L .18221 .21933 L .20262 .19735 L .2212 .18132 L .24196 .16684 L .26113 .15592 L .29954 .13895 L .3389 .12592 L .37673 .11586 L .41702 .10677 L .45579 .09902 L .49701 .09147 L .53672 .08461 L .57492 .07827 L .61556 .07169 L .65469 .06547 L .69627 .05891 L .73634 .05262 L .77489 .04657 L .81589 .04013 L .85538 .03391 L .89335 .02791 L .93378 .02149 L .97269 .01528 L .97619 .01472 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol00005Ool007ooOol0000;Ool01000Oomoo`000Woo00<007ooOol00Woo00<0 07ooOol0<7oo00<3h7ooOol0cgoo00001Goo001oogoo000027oo00@007ooOol000=oo`03001oo`00 00Aoo`03001oogoo02moo`030n1oogoo0=1oo`000Woo0P002Goo100017oo0P0017oo00<007ooOol0 ;Woo00<3h7ooOol0dGoo000KOol00`00Oomoo`0]Ool00`?POomoo`3BOol001]oo`03001oogoo02ao o`030n1oogoo0==oo`006goo00<007ooOol0:goo00<3h7ooOol0e7oo000KOol00`00Oomoo`0ZOol0 0`?POomoo`3EOol001]oo`03001oogoo02Qoo`83h=Qoo`006goo0P00:7oo00<3h7ooOol0f7oo000K Ool00`00Oomoo`0VOol00`?POomoo`3IOol001]oo`03001oogoo02Eoo`030n1oogoo0=Yoo`006goo 00<007ooOol09Goo00<3h7ooOol0fWoo000KOol00`00Oomoo`0TOol00`?POomoo`3KOol001]oo`03 001oogoo02=oo`030n1oogoo0=aoo`006goo00<007ooOol08goo00<3h7ooOol0g7oo000KOol00`00 Oomoo`0ROol00`?POomoo`3MOol001]oo`03001oogoo025oo`030n1oogoo0=ioo`006goo0P008Woo 00<3h7ooOol0gWoo000KOol00`00Oomoo`0POol00`?POomoo`3OOol001]oo`03001oogoo01moo`03 0n1oogoo0>1oo`006goo00<007ooOol07goo00<3h7ooOol0h7oo000KOol00`00Oomoo`0NOol00`?P Oomoo`3QOol001]oo`03001oogoo01eoo`030n1oogoo0>9oo`006goo00<007ooOol07Goo00<3h7oo Ool0hWoo000KOol00`00Oomoo`0LOol00`?POomoo`3SOol001]oo`03001oogoo01]oo`030n1oogoo 0>Aoo`006goo00<007ooOol06goo00<3h7ooOol0i7oo000KOol2000KOol00`?POomoo`3UOol001]o o`03001oogoo01Yoo`030n1oogoo0>Eoo`006goo00<007ooOol06Goo00<3h7ooOol0iWoo000KOol0 0`00Oomoo`0IOol00`?POomoo`3VOol001]oo`03001oogoo01Qoo`030n1oogoo0>Moo`006goo00<0 07ooOol067oo00<3h7ooOol0igoo000KOol00`00Oomoo`0GOol00`?POomoo`3XOol0009oo`8000Ao o`8000Eoo`04001oogooOol30005Ool00`00Oomoo`0GOol00`?POomoo`3XOol00005Ool007ooOol0 000:Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol05goo00<3h7ooOol0j7oo0000 1Goo001oogoo00002Woo00D007ooOomoo`00009oo`03001oogoo009oo`8001Moo`030n1oogoo0>Uo o`0000Eoo`00Oomoo`0000]oo`03001oogoo00<000Eoo`03001oogoo01Ioo`030n1oogoo0>Uoo`00 00Eoo`00Oomoo`0000Qoo`04001oogoo0003Ool00`00Oomoo`04Ool00`00Oomoo`0EOol00`?POomo o`3ZOol0009oo`8000Uoo`@000=oo`<000Aoo`03001oogoo01Eoo`030n1oogoo0>Yoo`006goo00<0 07ooOol05Goo00<3h7ooOol0jWoo000KOol00`00Oomoo`0DOol00`?POomoo`3[Ool001]oo`03001o ogoo01Aoo`030n1oogoo0>]oo`006goo00<007ooOol057oo00<3h7ooOol0jgoo000KOol00`00Oomo o`0COol00`?POomoo`3/Ool001]oo`8001Aoo`030n1oogoo0>aoo`006goo00<007ooOol04Woo00<3 h7ooOol0kGoo000KOol00`00Oomoo`0BOol00`?POomoo`3]Ool001]oo`03001oogoo019oo`030n1o ogoo0>eoo`006goo00<007ooOol04Goo00<3h7ooOol0kWoo000KOol00`00Oomoo`0AOol00`?POomo o`3^Ool001]oo`03001oogoo011oo`030n1oogoo0>moo`006goo00<007ooOol047oo00<3h7ooOol0 kgoo000KOol00`00Oomoo`0@Ool00`?POomoo`3_Ool001]oo`03001oogoo00moo`030n1oogoo0?1o o`006goo0P0047oo00<3h7ooOol0l7oo000KOol00`00Oomoo`0?Ool00`?POomoo`3`Ool001]oo`03 001oogoo00ioo`030n1oogoo0?5oo`006goo00<007ooOol03Woo00<3h7ooOol0lGoo000KOol00`00 Oomoo`0=Ool00`?POomoo`3bOol001]oo`03001oogoo00eoo`030n1oogoo0?9oo`006goo00<007oo Ool03Goo00<3h7ooOol0lWoo000KOol00`00Oomoo`0goo00<007ooOol0?7oo 00<007ooOol0?7oo00<007ooOol0?7oo00<007ooOol01goo000KOol00`00Oomoo`3oOol3Ool001]o o`03001oogoo0?moo`=oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?mo ob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-21.7717, 0.711097, \ 0.797743, 0.000535748}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt3=Plot[Evaluate[x0[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,0],PlotRange-\ >All]\ \>", "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 0.00476191 0.0147151 0.593334 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .13338 -18 -4.5 ] [.01131 .13338 0 4.5 ] [.01131 .25205 -18 -4.5 ] [.01131 .25205 0 4.5 ] [.01131 .37072 -18 -4.5 ] [.01131 .37072 0 4.5 ] [.01131 .48938 -18 -4.5 ] [.01131 .48938 0 4.5 ] [.01131 .60805 -6 -4.5 ] [.01131 .60805 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13338 m .03006 .13338 L s [(0.2)] .01131 .13338 1 0 Mshowa .02381 .25205 m .03006 .25205 L s [(0.4)] .01131 .25205 1 0 Mshowa .02381 .37072 m .03006 .37072 L s [(0.6)] .01131 .37072 1 0 Mshowa .02381 .48938 m .03006 .48938 L s [(0.8)] .01131 .48938 1 0 Mshowa .02381 .60805 m .03006 .60805 L s [(1)] .01131 .60805 1 0 Mshowa .125 Mabswid .02381 .04438 m .02756 .04438 L s .02381 .07405 m .02756 .07405 L s .02381 .10372 m .02756 .10372 L s .02381 .16305 m .02756 .16305 L s .02381 .19272 m .02756 .19272 L s .02381 .22238 m .02756 .22238 L s .02381 .28172 m .02756 .28172 L s .02381 .31138 m .02756 .31138 L s .02381 .34105 m .02756 .34105 L s .02381 .40038 m .02756 .40038 L s .02381 .43005 m .02756 .43005 L s .02381 .45972 m .02756 .45972 L s .02381 .51905 m .02756 .51905 L s .02381 .54872 m .02756 .54872 L s .02381 .57838 m .02756 .57838 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .01472 m .06244 .18094 L .08255 .2719 L .10458 .35268 L .12507 .41077 L .14415 .45239 L .16457 .48634 L .18314 .50992 L .20229 .52873 L .22307 .54442 L .24291 .55598 L .26394 .56553 L .30178 .5778 L .32119 .58235 L .34206 .5863 L .36177 .58932 L .38329 .59199 L .423 .59563 L .44267 .59696 L .46364 .59813 L .48362 .59905 L .50522 .59986 L .54529 .60098 L .56523 .6014 L .58629 .60176 L .62427 .60225 L .64378 .60245 L .66469 .60262 L .6845 .60275 L .70605 .60287 L .7459 .60303 L .76567 .60309 L .78668 .60314 L .82443 .60321 L .84378 .60324 L .86463 .60326 L .88428 .60328 L .90577 .60329 L .9263 .6033 L .9454 .60331 L .96153 .60332 L .97619 .60332 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol00g`0Oomoo`3gOol001Eoo`03001oogoo00io o`03O01oogoo0?Moo`005Goo00<007ooOol03goo00=l07ooOol0mWoo000EOol00`00Oomoo`0?Ool0 0g`0Oomoo`3fOol001Eoo`03001oogoo00moo`03O01oogoo0?Ioo`005Goo00<007ooOol03goo00=l 07ooOol0mWoo000EOol00`00Oomoo`0@Ool00g`0Oomoo`3eOol001Eoo`80015oo`03O01oogoo0?Eo o`005Goo00<007ooOol047oo00=l07ooOol0mGoo000EOol00`00Oomoo`0AOol00g`0Oomoo`3dOol0 01Eoo`03001oogoo015oo`03O01oogoo0?Aoo`005Goo00<007ooOol04Goo00=l07ooOol0m7oo000E Ool00`00Oomoo`0AOol00g`0Oomoo`3dOol001Eoo`03001oogoo019oo`03O01oogoo0?=oo`005Goo 00<007ooOol04Woo00=l07ooOol0lgoo000EOol2000COol00g`0Oomoo`3cOol001Eoo`03001oogoo 019oo`03O01oogoo0?=oo`005Goo00<007ooOol04goo00=l07ooOol0lWoo000EOol00`00Oomoo`0C Ool00g`0Oomoo`3bOol001Eoo`03001oogoo01=oo`03O01oogoo0?9oo`005Goo00<007ooOol057oo 00=l07ooOol0lGoo0002Ool20004Ool20003Ool30005Ool00`00Oomoo`0DOol00g`0Oomoo`3aOol0 0005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol057oo00=l07ooOol0lGoo00001Goo 001oogoo000027oo00@007ooOol000Aoo`<001Eoo`03O01oogoo0?1oo`0000Eoo`00Oomoo`0000Qo o`<000Eoo`03001oogoo01Eoo`03O01oogoo0?1oo`0000Eoo`00Oomoo`0000Uoo`03001oogoo00Ao o`03001oogoo01Eoo`03O01oogoo0?1oo`000Woo0P002Woo0`0017oo00<007ooOol05Woo00=l07oo Ool0kgoo000EOol00`00Oomoo`0FOol00g`0Oomoo`3_Ool001Eoo`03001oogoo01Ioo`03O01oogoo 0>moo`005Goo00<007ooOol05Woo00=l07ooOol0kgoo000EOol00`00Oomoo`0GOol00g`0Oomoo`3^ Ool001Eoo`8001Qoo`03O01oogoo0>ioo`005Goo00<007ooOol05goo00=l07ooOol0kWoo000EOol0 0`00Oomoo`0HOol00g`0Oomoo`3]Ool001Eoo`03001oogoo01Qoo`03O01oogoo0>eoo`005Goo00<0 07ooOol067oo00=l07ooOol0kGoo000EOol00`00Oomoo`0IOol00g`0Oomoo`3/Ool001Eoo`03001o ogoo01Uoo`03O01oogoo0>aoo`005Goo00<007ooOol06Woo00=l07ooOol0jgoo000EOol2000KOol0 0g`0Oomoo`3[Ool001Eoo`03001oogoo01]oo`03O01oogoo0>Yoo`005Goo00<007ooOol06goo00=l 07ooOol0jWoo000EOol00`00Oomoo`0LOol00g`0Oomoo`3YOol001Eoo`03001oogoo01aoo`03O01o ogoo0>Uoo`005Goo00<007ooOol07Goo00=l07ooOol0j7oo000EOol00`00Oomoo`0MOol00g`0Oomo o`3XOol001Eoo`03001oogoo01ioo`03O01oogoo0>Moo`005Goo0P007goo00=l07ooOol0igoo000E Ool00`00Oomoo`0OOol00g`0Oomoo`3VOol001Eoo`03001oogoo021oo`03O01oogoo0>Eoo`005Goo 00<007ooOol087oo00=l07ooOol0iGoo000EOol00`00Oomoo`0QOol00g`0Oomoo`3TOol001Eoo`03 001oogoo029oo`03O01oogoo0>=oo`000Woo0P0017oo0P0017oo0P001Goo00<007ooOol08Woo00=l 07ooOol0hgoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03001oogoo02=oo`03O01oogoo 0>9oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool3000TOol00g`0Oomoo`3QOol00005Ool0 07ooOol00009Ool20005Ool00`00Oomoo`0UOol00g`0Oomoo`3POol00005Ool007ooOol00008Ool0 1000Oomoo`0017oo00<007ooOol09Woo00=l07ooOol0ggoo0002Ool2000:Ool20005Ool00`00Oomo o`0VOol00g`0Oomoo`3OOol001Eoo`03001oogoo02Moo`03O01oogoo0=ioo`005Goo00<007ooOol0 :7oo00=l07ooOol0gGoo000EOol00`00Oomoo`0YOol00g`0Oomoo`3LOol001Eoo`03001oogoo02Yo o`03O01oogoo0=]oo`005Goo0P00;7oo00=l07ooOol0fWoo000EOol00`00Oomoo`0[Ool00g`0Oomo o`3JOol001Eoo`03001oogoo02aoo`03O01oogoo0=Uoo`005Goo00<007ooOol0;Goo00=l07ooOol0 f7oo000EOol00`00Oomoo`0^Ool2O03HOol001Eoo`03001oogoo031oo`03O01oogoo0=Eoo`005Goo 00<007ooOol0Ool001Eoo`03001o ogoo03Yoo`=l0<]oo`005Goo00<007ooOol0?Goo0g`0b7oo000EOol00`00Oomoo`10Ool2O036Ool0 01Eoo`03001oogoo049oo`=l0<=oo`005Goo00<007ooOol0AGoo0W`0`Goo000EOol20018Ool4O02m Ool001Eoo`03001oogoo04]oo`El0;Qoo`005Goo00<007ooOol0D7oo1W`0/Woo000EOol00`00Oomo o`1FOol5O02]Ool001Eoo`03001oogoo05]oo`Ql0:Eoo`005Goo00<007ooOol0Hgoo6G`0S7oo000= Ool50003Ool00`00Oomoo`1lOolfO01FOol000moo`03001oogoo00=oo`03001oogoo0;9oodel00Uo o`003goo00<007ooOol00goo0`00ogoo2Goo000?Ool00`00Oomoo`03Ool00`00Oomoo`3oOol9Ool0 00moo`03001oogoo00=oo`03001oogoo0?moo`Uoo`003Woo0P001Goo00<007ooOol0ogoo2Goo003o OolQOol00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -0.0779455, \ 0.779333, 0.00625468}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt4=Plot[Evaluate[x1[t]/.sol],{t,0,200},PlotStyle->RGBColor[0,0,1],PlotRange-\ >All]\ \>", "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 0.00476191 0.0147151 0.597342 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .13418 -18 -4.5 ] [.01131 .13418 0 4.5 ] [.01131 .25365 -18 -4.5 ] [.01131 .25365 0 4.5 ] [.01131 .37312 -18 -4.5 ] [.01131 .37312 0 4.5 ] [.01131 .49259 -18 -4.5 ] [.01131 .49259 0 4.5 ] [.01131 .61206 -6 -4.5 ] [.01131 .61206 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13418 m .03006 .13418 L s [(0.2)] .01131 .13418 1 0 Mshowa .02381 .25365 m .03006 .25365 L s [(0.4)] .01131 .25365 1 0 Mshowa .02381 .37312 m .03006 .37312 L s [(0.6)] .01131 .37312 1 0 Mshowa .02381 .49259 m .03006 .49259 L s [(0.8)] .01131 .49259 1 0 Mshowa .02381 .61206 m .03006 .61206 L s [(1)] .01131 .61206 1 0 Mshowa .125 Mabswid .02381 .04458 m .02756 .04458 L s .02381 .07445 m .02756 .07445 L s .02381 .10432 m .02756 .10432 L s .02381 .16405 m .02756 .16405 L s .02381 .19392 m .02756 .19392 L s .02381 .22378 m .02756 .22378 L s .02381 .28352 m .02756 .28352 L s .02381 .31339 m .02756 .31339 L s .02381 .34325 m .02756 .34325 L s .02381 .40299 m .02756 .40299 L s .02381 .43285 m .02756 .43285 L s .02381 .46272 m .02756 .46272 L s .02381 .52246 m .02756 .52246 L s .02381 .55232 m .02756 .55232 L s .02381 .58219 m .02756 .58219 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 1 r .5 Mabswid .02381 .01472 m .06244 .15149 L .10458 .3026 L .12507 .36888 L .14415 .41954 L .16254 .45816 L .18221 .49006 L .20351 .51611 L .22365 .53466 L .24363 .54878 L .26207 .55898 L .28238 .56784 L .30142 .5744 L .33925 .58386 L .3595 .58752 L .37803 .59023 L .39862 .59268 L .41773 .59454 L .45593 .59732 L .47645 .59842 L .49506 .59925 L .51592 .60002 L .53512 .6006 L .57367 .60148 L .5925 .6018 L .61316 .60209 L .63431 .60234 L .65359 .60252 L .69249 .6028 L .71158 .6029 L .73234 .60299 L .75172 .60306 L .77312 .60312 L .81239 .60321 L .83173 .60324 L .85259 .60326 L .87263 .60328 L .89373 .60329 L .91347 .6033 L .93184 .60331 L .94236 .60331 L .9523 .60332 L .96122 .60332 L .97088 .60332 L .97619 .60332 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgmoo`005Woo0P005goo00<07gooOol0kWoo 000FOol00`00Oomoo`0FOol00`0OOomoo`3^Ool001Ioo`03001oogoo01Ioo`0301moogoo0>ioo`00 5Woo00<007ooOol05goo00<07gooOol0kGoo000FOol00`00Oomoo`0GOol00`0OOomoo`3]Ool001Io o`03001oogoo01Moo`0301moogoo0>eoo`000Woo0P0017oo0P000goo0`001Woo00<007ooOol067oo 00<07gooOol0k7oo00001Goo001oogoo000027oo00@007ooOol000Eoo`03001oogoo01Qoo`0301mo ogoo0>aoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0005Ool2000IOol00`0OOomoo`3/Ool00005 Ool007ooOol00008Ool30006Ool00`00Oomoo`0IOol00`0OOomoo`3[Ool00005Ool007ooOol00009 Ool00`00Oomoo`05Ool00`00Oomoo`0IOol00`0OOomoo`3[Ool0009oo`8000Yoo`<000Eoo`03001o ogoo01Yoo`0301moogoo0>Yoo`005Woo00<007ooOol06Woo00<07gooOol0jWoo000FOol00`00Oomo o`0JOol00`0OOomoo`3ZOol001Ioo`03001oogoo01]oo`0301moogoo0>Uoo`005Woo00<007ooOol0 6goo00<07gooOol0jGoo000FOol2000LOol00`0OOomoo`3YOol001Ioo`03001oogoo01aoo`0301mo ogoo0>Qoo`005Woo00<007ooOol077oo00<07gooOol0j7oo000FOol00`00Oomoo`0MOol00`0OOomo o`3WOol001Ioo`03001oogoo01eoo`0301moogoo0>Moo`005Woo00<007ooOol07Goo00<07gooOol0 igoo000FOol00`00Oomoo`0NOol00`0OOomoo`3VOol001Ioo`03001oogoo01ioo`0301moogoo0>Io o`005Woo0P0087oo00<07gooOol0iGoo000FOol00`00Oomoo`0OOol00`0OOomoo`3UOol001Ioo`03 001oogoo021oo`0301moogoo0>Aoo`005Woo00<007ooOol087oo00<07gooOol0i7oo000FOol00`00 Oomoo`0QOol00`0OOomoo`3SOol001Ioo`03001oogoo025oo`0301moogoo0>=oo`005Woo00<007oo Ool08Woo00<07gooOol0hWoo000FOol00`00Oomoo`0ROol00`0OOomoo`3ROol001Ioo`8002Aoo`03 01moogoo0>5oo`005Woo00<007ooOol08goo00<07gooOol0hGoo000FOol00`00Oomoo`0TOol00`0O Oomoo`3POol001Ioo`03001oogoo02Eoo`0301moogoo0=moo`005Woo00<007ooOol09Goo00<07goo Ool0ggoo000FOol00`00Oomoo`0VOol00`0OOomoo`3NOol0009oo`8000Aoo`8000Aoo`8000Ioo`03 001oogoo02Ioo`0301moogoo0=ioo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0005Ool00`00Oomo o`0WOol00`0OOomoo`3MOol00005Ool007ooOol00008Ool01000Oomoo`001Goo0P00:Goo00<07goo Ool0g7oo00001Goo001oogoo00002Goo0P001Woo00<007ooOol0:Goo00<07gooOol0fgoo00001Goo 001oogoo000027oo00@007ooOol000Eoo`03001oogoo02Yoo`0301moogoo0=Yoo`000Woo0P002Woo 0P001Woo00<007ooOol0:Woo00<07gooOol0fWoo000FOol00`00Oomoo`0[Ool00`0OOomoo`3IOol0 01Ioo`03001oogoo02aoo`0301moogoo0=Qoo`005Woo00<007ooOol0;Goo00<07gooOol0egoo000F Ool00`00Oomoo`0^Ool00`0OOomoo`3FOol001Ioo`80031oo`0301moogoo0=Eoo`005Woo00<007oo Ool0<7oo00<07gooOol0e7oo000FOol00`00Oomoo`0aOol00`0OOomoo`3COol001Ioo`03001oogoo 039oo`0301moogoo0=9oo`005Woo00<007ooOol001n>Ool001Ioo`03 001oogoo07Uooc807eaoo`003Goo1@0017oo00<007ooOol0ZgooDP0O2Woo000?Ool00`00Oomoo`04 Ool00`00Oomoo`3oOol8Ool000moo`03001oogoo00Aoo`800?moo`Uoo`003goo00<007ooOol017oo 00<007ooOol0ogoo27oo000?Ool00`00Oomoo`04Ool00`00Oomoo`3oOol8Ool000ioo`800?mooa5o o`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-17.2835, -0.0771426, \ 0.783587, 0.00624663}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt5=Plot[Evaluate[x2[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,1],PlotRange-\ >All]\ \>", "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 0.00476191 0.0147151 0.604718 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .13566 -18 -4.5 ] [.01131 .13566 0 4.5 ] [.01131 .2566 -18 -4.5 ] [.01131 .2566 0 4.5 ] [.01131 .37755 -18 -4.5 ] [.01131 .37755 0 4.5 ] [.01131 .49849 -18 -4.5 ] [.01131 .49849 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13566 m .03006 .13566 L s [(0.2)] .01131 .13566 1 0 Mshowa .02381 .2566 m .03006 .2566 L s [(0.4)] .01131 .2566 1 0 Mshowa .02381 .37755 m .03006 .37755 L s [(0.6)] .01131 .37755 1 0 Mshowa .02381 .49849 m .03006 .49849 L s [(0.8)] .01131 .49849 1 0 Mshowa .125 Mabswid .02381 .04495 m .02756 .04495 L s .02381 .07519 m .02756 .07519 L s .02381 .10542 m .02756 .10542 L s .02381 .16589 m .02756 .16589 L s .02381 .19613 m .02756 .19613 L s .02381 .22637 m .02756 .22637 L s .02381 .28684 m .02756 .28684 L s .02381 .31707 m .02756 .31707 L s .02381 .34731 m .02756 .34731 L s .02381 .40778 m .02756 .40778 L s .02381 .43802 m .02756 .43802 L s .02381 .46825 m .02756 .46825 L s .02381 .52873 m .02756 .52873 L s .02381 .55896 m .02756 .55896 L s .02381 .5892 m .02756 .5892 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 1 r .5 Mabswid .02381 .01472 m .06244 .15749 L .10458 .27142 L .14415 .38912 L .16408 .43687 L .18221 .47159 L .20178 .50085 L .22272 .52458 L .24186 .54107 L .26265 .55476 L .28248 .56478 L .30351 .57297 L .32305 .57889 L .34135 .58331 L .38012 .59009 L .40125 .59272 L .42134 .59472 L .45954 .59753 L .47921 .59859 L .50018 .59952 L .52016 .60023 L .54176 .60086 L .58183 .60172 L .60177 .60203 L .62283 .60231 L .66081 .60267 L .68032 .60281 L .70123 .60293 L .72104 .60302 L .74259 .6031 L .76153 .60316 L .78244 .6032 L .80221 .60324 L .82322 .60327 L .84257 .60329 L .85253 .6033 L .86342 .6033 L .87311 .60331 L .88346 .60331 L .88919 .60331 L .89439 .60331 L .89933 .60332 L .90456 .60332 L .90932 .60332 L .91184 .60332 L .91454 .60332 L .91703 .60332 L .9193 .60332 L .92039 .60332 L .92158 .60332 L Mistroke .92262 .60332 L .92375 .60332 L .92448 .60332 L .92516 .60332 L .92581 .60332 L .92649 .60332 L .92768 .60332 L .92897 .60332 L .9297 .60332 L .93036 .60332 L .93185 .60332 L .93323 .60332 L .93454 .60332 L .93933 .60332 L .94204 .60332 L .94454 .60332 L .95231 .60332 L .9596 .60332 L .97619 .60331 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol700000g`O0000003o00060003Ool001Eo o`03O1moogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Moo`005Goo00<007`OOol0?Goo00<007ooOol0?Goo00<007ooOol0?Goo00<007oo Ool0?Woo00<007ooOol01goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo0?moo`Uoo`00 5Goo00<007`OOol0ogoo2Goo000EOol00`00Ooml7`3oOol9Ool001Eoo`03001oog`O0?moo`Uoo`00 5Goo0P0000=l7gooOol0ogoo1goo000EOol00`00Ooml7`3oOol9Ool001Eoo`04001oogooO1ooOol8 Ool001Eoo`04001oogooO1ooOol8Ool001Eoo`04001oogooO1ooOol8Ool001Eoo`04001oogooO1oo Ool8Ool001Eoo`05001oogooOoml7`3oOol7Ool001Eoo`05001oogooOoml7`3oOol7Ool001Eoo`80 009oo`03O1moogoo0?moo`Eoo`005Goo00D007ooOomoog`O0?moo`Moo`005Goo00<007ooOol00Woo 00=l7gooOol0ogoo17oo000EOol00`00Oomoo`02Ool00g`OOomoo`3oOol4Ool001Eoo`03001oogoo 009oo`03O1moogoo0?moo`Aoo`005Goo00<007ooOol00goo00=l7gooOol0ogoo0goo000EOol00`00 Oomoo`03Ool00g`OOomoo`3oOol3Ool001Eoo`03001oogoo00=oo`03O1moogoo0?moo`=oo`005Goo 0P0017oo00=l7gooOol0ogoo0goo000EOol00`00Oomoo`04Ool00g`OOomoo`3oOol2Ool001Eoo`03 001oogoo00Aoo`03O1moogoo0?moo`9oo`005Goo00<007ooOol017oo00=l7gooOol0ogoo0Woo000E Ool00`00Oomoo`04Ool00g`OOomoo`3oOol2Ool001Eoo`03001oogoo00Eoo`03O1moogoo0?moo`5o o`005Goo00<007ooOol01Goo00=l7gooOol0ogoo0Goo0002Ool20004Ool20003Ool40004Ool00`00 Oomoo`05Ool00g`OOomoo`3oOol1Ool00005Ool007ooOol00008Ool00`00Oomoo`05Ool00`00Oomo o`05Ool00g`OOomoo`3oOol1Ool00005Ool007ooOol00009Ool00`00Oomoo`04Ool30006Ool00g`O Oomoo`3oOol00005Ool007ooOol0000:Ool00`00Oomoo`03Ool00`00Oomoo`06Ool00g`OOomoo`3o Ool00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol01Woo00=l7gooOol0ogoo0002 Ool2000:Ool20005Ool00`00Oomoo`06Ool00g`OOomoo`3oOol001Eoo`03001oogoo00Moo`03O1mo ogoo0?ioo`005Goo00<007ooOol01goo00=l7gooOol0oWoo000EOol00`00Oomoo`07Ool00g`OOomo o`3nOol001Eoo`03001oogoo00Qoo`03O1moogoo0?eoo`005Goo0P002Goo00=l7gooOol0oGoo000E Ool00`00Oomoo`09Ool00g`OOomoo`3lOol001Eoo`03001oogoo00Uoo`03O1moogoo0?aoo`005Goo 00<007ooOol02Goo00=l7gooOol0o7oo000EOol00`00Oomoo`0:Ool00g`OOomoo`3kOol001Eoo`03 001oogoo00Yoo`03O1moogoo0?]oo`005Goo00<007ooOol02Woo00=l7gooOol0ngoo000EOol00`00 Oomoo`0;Ool00g`OOomoo`3jOol001Eoo`8000aoo`03O1moogoo0?Yoo`005Goo00<007ooOol037oo 00=l7gooOol0nGoo000EOol00`00Oomoo`0moo`005Goo00<007ooOol05Woo00=l7gooOol0kgoo 000EOol00`00Oomoo`0FOol00g`OOomoo`3_Ool001Eoo`8001Qoo`03O1moogoo0>ioo`005Goo00<0 07ooOol05goo00=l7gooOol0kWoo000EOol00`00Oomoo`0GOol00g`OOomoo`3^Ool001Eoo`03001o ogoo01Qoo`03O1moogoo0>eoo`005Goo00<007ooOol067oo00=l7gooOol0kGoo000EOol00`00Oomo o`0HOol00g`OOomoo`3]Ool001Eoo`03001oogoo01Uoo`03O1moogoo0>aoo`005Goo00<007ooOol0 6Goo00=l7gooOol0k7oo000EOol00`00Oomoo`0IOol00g`OOomoo`3/Ool001Eoo`8001]oo`03O1mo ogoo0>]oo`005Goo00<007ooOol06Woo00=l7gooOol0jgoo000EOol00`00Oomoo`0JOol00g`OOomo o`3[Ool001Eoo`03001oogoo01]oo`03O1moogoo0>Yoo`005Goo00<007ooOol06goo00=l7gooOol0 jWoo000EOol00`00Oomoo`0KOol00g`OOomoo`3ZOol0009oo`8000Aoo`8000=oo`<000Eoo`03001o ogoo01]oo`03O1moogoo0>Yoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`0L Ool00g`OOomoo`3YOol00005Ool007ooOol00008Ool01000Oomoo`0017oo0`0077oo00=l7gooOol0 jGoo00001Goo001oogoo000027oo0`001Goo00<007ooOol077oo00=l7gooOol0jGoo00001Goo001o ogoo00002Goo00<007ooOol017oo00<007ooOol07Goo00=l7gooOol0j7oo0002Ool2000:Ool30004 Ool00`00Oomoo`0MOol00g`OOomoo`3XOol001Eoo`03001oogoo01eoo`03O1moogoo0>Qoo`005Goo 00<007ooOol07Woo00=l7gooOol0igoo000EOol00`00Oomoo`0NOol00g`OOomoo`3WOol001Eoo`03 001oogoo01moo`03O1moogoo0>Ioo`005Goo0P0087oo00=l7gooOol0iWoo000EOol00`00Oomoo`0P Ool00g`OOomoo`3UOol001Eoo`03001oogoo021oo`03O1moogoo0>Eoo`005Goo00<007ooOol08Goo 00=l7gooOol0i7oo000EOol00`00Oomoo`0QOol00g`OOomoo`3TOol001Eoo`03001oogoo029oo`03 O1moogoo0>=oo`005Goo00<007ooOol08Woo00=l7gooOol0hgoo000EOol00`00Oomoo`0SOol00g`O Oomoo`3ROol001Eoo`8002Aoo`03O1moogoo0>9oo`005Goo00<007ooOol097oo00=l7gooOol0hGoo 000EOol00`00Oomoo`0TOol00g`OOomoo`3QOol001Eoo`03001oogoo02Eoo`03O1moogoo0>1oo`00 5Goo00<007ooOol09Goo00=l7gooOol0h7oo000EOol00`00Oomoo`0VOol00g`OOomoo`3OOol001Eo o`03001oogoo02Ioo`03O1moogoo0=moo`005Goo00<007ooOol09goo00=l7gooOol0gWoo000EOol2 000XOol00g`OOomoo`3NOol001Eoo`03001oogoo02Qoo`03O1moogoo0=eoo`005Goo00<007ooOol0 :Goo00=l7gooOol0g7oo000EOol00`00Oomoo`0YOol00g`OOomoo`3LOol001Eoo`03001oogoo02Yo o`03O1moogoo0=]oo`005Goo00<007ooOol0:goo00=l7gooOol0fWoo0002Ool20004Ool20004Ool2 0005Ool00`00Oomoo`0[Ool00g`OOomoo`3JOol00005Ool007ooOol00008Ool01000Oomoo`0017oo 00<007ooOol0;7oo00=l7gooOol0fGoo00001Goo001oogoo000027oo00@007ooOol000Aoo`<002ao o`03O1moogoo0=Uoo`0000Eoo`00Oomoo`0000Uoo`8000Eoo`03001oogoo02eoo`03O1moogoo0=Qo o`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`0^Ool00g`OOomoo`3GOol0009o o`8000Yoo`8000Eoo`03001oogoo02moo`03O1moogoo0=Ioo`005Goo00<007ooOol0<7oo00=l7goo Ool0eGoo000EOol00`00Oomoo`0`Ool00g`OOomoo`3EOol001Eoo`03001oogoo035oo`03O1moogoo 0=Aoo`005Goo00<007ooOol0Ool001Eoo`03001oogoo03Qoo`03O1moogoo0Goo0W`OcGoo000EOol00`00Oomoo`0kOol2O1o;Ool001Eoo`03001oogoo03eoo`03O1moogoo0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -0.0820345, \ 0.779333, 0.00613693}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt6=Plot[Evaluate[x3[t]/.sol],{t,0,200},PlotStyle->RGBColor[0.75,1,0],\ PlotRange->All]\ \>", "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 0.00476191 0.0147151 0.619853 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .13869 -18 -4.5 ] [.01131 .13869 0 4.5 ] [.01131 .26266 -18 -4.5 ] [.01131 .26266 0 4.5 ] [.01131 .38663 -18 -4.5 ] [.01131 .38663 0 4.5 ] [.01131 .5106 -18 -4.5 ] [.01131 .5106 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13869 m .03006 .13869 L s [(0.2)] .01131 .13869 1 0 Mshowa .02381 .26266 m .03006 .26266 L s [(0.4)] .01131 .26266 1 0 Mshowa .02381 .38663 m .03006 .38663 L s [(0.6)] .01131 .38663 1 0 Mshowa .02381 .5106 m .03006 .5106 L s [(0.8)] .01131 .5106 1 0 Mshowa .125 Mabswid .02381 .04571 m .02756 .04571 L s .02381 .0767 m .02756 .0767 L s .02381 .10769 m .02756 .10769 L s .02381 .16968 m .02756 .16968 L s .02381 .20067 m .02756 .20067 L s .02381 .23166 m .02756 .23166 L s .02381 .29365 m .02756 .29365 L s .02381 .32464 m .02756 .32464 L s .02381 .35563 m .02756 .35563 L s .02381 .41762 m .02756 .41762 L s .02381 .44861 m .02756 .44861 L s .02381 .4796 m .02756 .4796 L s .02381 .54159 m .02756 .54159 L s .02381 .57258 m .02756 .57258 L s .02381 .60358 m .02756 .60358 L s .25 Mabswid .02381 0 m .02381 .61803 L s .75 1 0 r .5 Mabswid .02381 .01472 m .02605 .04383 L .02846 .0711 L .03072 .09039 L .03279 .10447 L .03784 .13028 L .04262 .14771 L .04756 .16157 L .05212 .17203 L .06244 .19145 L .10458 .27299 L .14393 .37445 L .18177 .46003 L .20117 .49251 L .22205 .51936 L .24319 .53965 L .26328 .55407 L .28308 .56483 L .30147 .57253 L .32199 .57917 L .3406 .58385 L .35985 .58768 L .38067 .59093 L .40061 .59339 L .42167 .59545 L .45964 .59813 L .47915 .59914 L .50007 .60001 L .51988 .60068 L .54143 .60126 L .58127 .60205 L .60105 .60233 L .62205 .60257 L .65981 .60289 L .67915 .603 L .70001 .6031 L .72005 .60317 L .74115 .60323 L .76089 .60326 L .77926 .60329 L .78978 .6033 L .79971 .60331 L .80863 .60331 L .81366 .60331 L .8183 .60332 L .82298 .60332 L .8256 .60332 L .828 .60332 L .83022 .60332 L .83148 .60332 L Mistroke .83265 .60332 L .83377 .60332 L .83479 .60332 L .83596 .60332 L .83707 .60332 L .83827 .60332 L .83958 .60332 L .84024 .60332 L .84095 .60332 L .84224 .60332 L .84472 .60332 L .84699 .60332 L .85249 .60332 L .8577 .60332 L .86738 .60331 L .87765 .60331 L .89609 .6033 L .93389 .60327 L .97414 .60322 L .97619 .60322 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol700000eoP0000003o00060003Ool001Eo o`03Gn1oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Moo`005Goo00=Oh7ooOol0?Goo00<007ooOol0?Goo00<007ooOol0?Goo00<007oo Ool0?Woo00<007ooOol01goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo000EOol00`00Gn1oo`3oOol9Ool001Eoo`03001Oh7oo0?moo`Uoo`00 5Goo00<005oPOol0ogoo2Goo000EOol00`00Gn1oo`3oOol9Ool001Eoo`03001Oh7oo0?moo`Uoo`00 5Goo00<005oPOol0ogoo2Goo000EOol00`00OomOh03oOol9Ool001Eoo`03001ooeoP0?moo`Uoo`00 5Goo00<007ooGn00ogoo2Goo000EOol00`00OomOh03oOol9Ool001Eoo`03001ooeoP0?moo`Uoo`00 5Goo00<007ooGn00ogoo2Goo000EOol00`00OomOh03oOol9Ool001Eoo`800003Gn1oogoo0?moo`Mo o`005Goo00@007ooOomOh?moo`Qoo`005Goo00@007ooOomOh?moo`Qoo`005Goo00@007ooOomOh?mo o`Qoo`005Goo00@007ooOomOh?moo`Qoo`005Goo00D007ooOomooeoP0?moo`Moo`000Woo0P0017oo 0P000goo100017oo00D007ooOomooeoP0?moo`Moo`0000Eoo`00Oomoo`0000Qoo`03001oogoo00Eo o`05001oogooOomOh03oOol7Ool00005Ool007ooOol00009Ool00`00Oomoo`04Ool300000gooGn1o o`3oOol6Ool00005Ool007ooOol0000:Ool00`00Oomoo`03Ool00`00Oomoo`02Ool00eoPOomoo`3o Ool4Ool00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol00Woo00=Oh7ooOol0ogoo 17oo0002Ool2000:Ool20005Ool00`00Oomoo`02Ool00eoPOomoo`3oOol4Ool001Eoo`03001oogoo 009oo`03Gn1oogoo0?moo`Aoo`005Goo00<007ooOol00goo00=Oh7ooOol0ogoo0goo000EOol00`00 Oomoo`03Ool00eoPOomoo`3oOol3Ool001Eoo`03001oogoo00=oo`03Gn1oogoo0?moo`=oo`005Goo 00<007ooOol017oo00=Oh7ooOol0ogoo0Woo000EOol20005Ool00eoPOomoo`3oOol2Ool001Eoo`03 001oogoo00Eoo`03Gn1oogoo0?moo`5oo`005Goo00<007ooOol01Goo00=Oh7ooOol0ogoo0Goo000E Ool00`00Oomoo`06Ool00eoPOomoo`3oOol001Eoo`03001oogoo00Ioo`03Gn1oogoo0?moo`005Goo 00<007ooOol01goo00=Oh7ooOol0oWoo000EOol00`00Oomoo`07Ool00eoPOomoo`3nOol001Eoo`03 001oogoo00Qoo`03Gn1oogoo0?eoo`005Goo0P002Goo00=Oh7ooOol0oGoo000EOol00`00Oomoo`09 Ool00eoPOomoo`3lOol001Eoo`03001oogoo00Uoo`03Gn1oogoo0?aoo`005Goo00<007ooOol02Woo 00=Oh7ooOol0ngoo000EOol00`00Oomoo`0:Ool00eoPOomoo`3kOol001Eoo`03001oogoo00]oo`03 Gn1oogoo0?Yoo`005Goo00<007ooOol02goo00=Oh7ooOol0nWoo000EOol00`00Oomoo`0Ool00eoPOomoo`3gOol001Eoo`03001oogoo00ioo`03Gn1oogoo0?Moo`00 5Goo00<007ooOol03goo00=Oh7ooOol0mWoo000EOol00`00Oomoo`0?Ool00eoPOomoo`3fOol001Eo o`03001oogoo011oo`03Gn1oogoo0?Eoo`000Woo0P0017oo0P001Goo0`000goo00<007ooOol047oo 00=Oh7ooOol0mGoo00001Goo001oogoo00002goo00<007ooOol00Woo00<007ooOol04Goo00=Oh7oo Ool0m7oo00001Goo001oogoo000027oo1@000goo0`004Goo00=Oh7ooOol0m7oo00001Goo001oogoo 000027oo00@007ooOol000Aoo`03001oogoo019oo`03Gn1oogoo0?=oo`0000Eoo`00Oomoo`0000Uo o`03001oo`0000Aoo`03001oogoo019oo`03Gn1oogoo0?=oo`000Woo0P002goo0P0017oo00<007oo Ool04goo00=Oh7ooOol0lWoo000EOol00`00Oomoo`0COol00eoPOomoo`3bOol001Eoo`03001oogoo 01Aoo`03Gn1oogoo0?5oo`005Goo00<007ooOol057oo00=Oh7ooOol0lGoo000EOol00`00Oomoo`0D Ool00eoPOomoo`3aOol001Eoo`8001Ioo`03Gn1oogoo0?1oo`005Goo00<007ooOol05Goo00=Oh7oo Ool0l7oo000EOol00`00Oomoo`0FOol00eoPOomoo`3_Ool001Eoo`03001oogoo01Ioo`03Gn1oogoo 0>moo`005Goo00<007ooOol05Woo00=Oh7ooOol0kgoo000EOol00`00Oomoo`0GOol00eoPOomoo`3^ Ool001Eoo`03001oogoo01Moo`03Gn1oogoo0>ioo`005Goo00<007ooOol05goo00=Oh7ooOol0kWoo 000EOol2000IOol00eoPOomoo`3]Ool001Eoo`03001oogoo01Qoo`03Gn1oogoo0>eoo`005Goo00<0 07ooOol06Goo00=Oh7ooOol0k7oo000EOol00`00Oomoo`0IOol00eoPOomoo`3/Ool001Eoo`03001o ogoo01Uoo`03Gn1oogoo0>aoo`005Goo00<007ooOol06Woo00=Oh7ooOol0jgoo000EOol00`00Oomo o`0JOol00eoPOomoo`3[Ool001Eoo`03001oogoo01Yoo`03Gn1oogoo0>]oo`005Goo00<007ooOol0 6goo00=Oh7ooOol0jWoo000EOol2000LOol00eoPOomoo`3ZOol001Eoo`03001oogoo01aoo`03Gn1o ogoo0>Uoo`005Goo00<007ooOol077oo00=Oh7ooOol0jGoo000EOol00`00Oomoo`0LOol00eoPOomo o`3YOol001Eoo`03001oogoo01eoo`03Gn1oogoo0>Qoo`005Goo00<007ooOol07Goo00=Oh7ooOol0 j7oo0002Ool20004Ool20003Ool30005Ool00`00Oomoo`0MOol00eoPOomoo`3XOol00005Ool007oo Ool00008Ool01000Oomoo`0017oo00<007ooOol07Woo00=Oh7ooOol0igoo00001Goo001oogoo0000 27oo00@007ooOol000Aoo`<001ioo`03Gn1oogoo0>Moo`0000Eoo`00Oomoo`0000Qoo`<000Eoo`03 001oogoo01moo`03Gn1oogoo0>Ioo`0000Eoo`00Oomoo`0000Uoo`03001oogoo00Aoo`03001oogoo 01moo`03Gn1oogoo0>Ioo`000Woo0P002Woo0`0017oo00<007ooOol087oo00=Oh7ooOol0iGoo000E Ool00`00Oomoo`0POol00eoPOomoo`3UOol001Eoo`03001oogoo021oo`03Gn1oogoo0>Eoo`005Goo 00<007ooOol08Goo00=Oh7ooOol0i7oo000EOol00`00Oomoo`0QOol00eoPOomoo`3TOol001Eoo`80 02=oo`03Gn1oogoo0>=oo`005Goo00<007ooOol08Woo00=Oh7ooOol0hgoo000EOol00`00Oomoo`0S Ool00eoPOomoo`3ROol001Eoo`03001oogoo02=oo`03Gn1oogoo0>9oo`005Goo00<007ooOol097oo 00=Oh7ooOol0hGoo000EOol00`00Oomoo`0TOol00eoPOomoo`3QOol001Eoo`03001oogoo02Aoo`03 Gn1oogoo0>5oo`005Goo00<007ooOol09Goo00=Oh7ooOol0h7oo000EOol00`00Oomoo`0UOol00eoP Oomoo`3POol001Eoo`8002Moo`03Gn1oogoo0=moo`005Goo00<007ooOol09Woo00=Oh7ooOol0ggoo 000EOol00`00Oomoo`0WOol00eoPOomoo`3NOol001Eoo`03001oogoo02Moo`03Gn1oogoo0=ioo`00 5Goo00<007ooOol0:7oo00=Oh7ooOol0gGoo000EOol00`00Oomoo`0XOol00eoPOomoo`3MOol001Eo o`03001oogoo02Uoo`03Gn1oogoo0=aoo`005Goo00<007ooOol0:Woo00=Oh7ooOol0fgoo000EOol2 000[Ool00eoPOomoo`3KOol001Eoo`03001oogoo02]oo`03Gn1oogoo0=Yoo`005Goo00<007ooOol0 ;7oo00=Oh7ooOol0fGoo000EOol00`00Oomoo`0/Ool00eoPOomoo`3IOol001Eoo`03001oogoo02eo o`03Gn1oogoo0=Qoo`005Goo00<007ooOol0;Woo00=Oh7ooOol0egoo000EOol00`00Oomoo`0^Ool0 0eoPOomoo`3GOol0009oo`8000Aoo`8000Aoo`8000Eoo`03001oogoo02moo`03Gn1oogoo0=Ioo`00 00Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool00`00Oomoo`0`Ool00eoPOomoo`3EOol00005Ool0 07ooOol00008Ool01000Oomoo`0017oo0`00Woo0UoPc7oo000EOol00`00Oomoo`0lOol0 0eoPOomoo`39Ool001Eoo`03001oogoo03eoo`03Gn1oogoo0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -0.0800314, \ 0.779333, 0.00598709}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt7=Plot[Evaluate[x4[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,0.75],\ PlotRange->All]\ \>", "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 0.00476191 0.0147126 0.658485 [ [.2619 .00221 -6 -9 ] [.2619 .00221 6 0 ] [.5 .00221 -9 -9 ] [.5 .00221 9 0 ] [.7381 .00221 -9 -9 ] [.7381 .00221 9 0 ] [.97619 .00221 -9 -9 ] [.97619 .00221 9 0 ] [.01131 .14641 -18 -4.5 ] [.01131 .14641 0 4.5 ] [.01131 .27811 -18 -4.5 ] [.01131 .27811 0 4.5 ] [.01131 .4098 -18 -4.5 ] [.01131 .4098 0 4.5 ] [.01131 .5415 -18 -4.5 ] [.01131 .5415 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 .2619 .01471 m .2619 .02096 L s [(50)] .2619 .00221 0 1 Mshowa .5 .01471 m .5 .02096 L s [(100)] .5 .00221 0 1 Mshowa .7381 .01471 m .7381 .02096 L s [(150)] .7381 .00221 0 1 Mshowa .97619 .01471 m .97619 .02096 L s [(200)] .97619 .00221 0 1 Mshowa .125 Mabswid .07143 .01471 m .07143 .01846 L s .11905 .01471 m .11905 .01846 L s .16667 .01471 m .16667 .01846 L s .21429 .01471 m .21429 .01846 L s .30952 .01471 m .30952 .01846 L s .35714 .01471 m .35714 .01846 L s .40476 .01471 m .40476 .01846 L s .45238 .01471 m .45238 .01846 L s .54762 .01471 m .54762 .01846 L s .59524 .01471 m .59524 .01846 L s .64286 .01471 m .64286 .01846 L s .69048 .01471 m .69048 .01846 L s .78571 .01471 m .78571 .01846 L s .83333 .01471 m .83333 .01846 L s .88095 .01471 m .88095 .01846 L s .92857 .01471 m .92857 .01846 L s .25 Mabswid 0 .01471 m 1 .01471 L s .02381 .14641 m .03006 .14641 L s [(0.2)] .01131 .14641 1 0 Mshowa .02381 .27811 m .03006 .27811 L s [(0.4)] .01131 .27811 1 0 Mshowa .02381 .4098 m .03006 .4098 L s [(0.6)] .01131 .4098 1 0 Mshowa .02381 .5415 m .03006 .5415 L s [(0.8)] .01131 .5415 1 0 Mshowa .125 Mabswid .02381 .04764 m .02756 .04764 L s .02381 .08056 m .02756 .08056 L s .02381 .11349 m .02756 .11349 L s .02381 .17933 m .02756 .17933 L s .02381 .21226 m .02756 .21226 L s .02381 .24518 m .02756 .24518 L s .02381 .31103 m .02756 .31103 L s .02381 .34396 m .02756 .34396 L s .02381 .37688 m .02756 .37688 L s .02381 .44273 m .02756 .44273 L s .02381 .47565 m .02756 .47565 L s .02381 .50858 m .02756 .50858 L s .02381 .57443 m .02756 .57443 L s .02381 .60735 m .02756 .60735 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 .75 r .5 Mabswid .02381 .01472 m .02499 .06632 L .02605 .09551 L .02729 .12051 L .02846 .13911 L .03053 .16474 L .03279 .18567 L .03527 .20342 L .0379 .21815 L .04262 .23777 L .04749 .25223 L .05205 .26251 L .06244 .27948 L .08445 .30649 L .10458 .3346 L .14335 .40679 L .16394 .44734 L .18306 .48093 L .20273 .50947 L .22125 .53068 L .24178 .54862 L .26038 .56087 L .28046 .57086 L .29893 .57783 L .31776 .5833 L .33842 .58789 L .35793 .59123 L .37885 .59399 L .40009 .59615 L .42021 .59775 L .45854 .59992 L .47831 .60071 L .49932 .60137 L .51901 .60186 L .53707 .60222 L .55642 .60253 L .57727 .60278 L .5962 .60295 L .6169 .6031 L .63651 .60319 L .64748 .60323 L .65746 .60326 L .66744 .60328 L .67664 .6033 L .68145 .60331 L .68674 .60331 L .68941 .60331 L .69227 .60331 L .69498 .60332 L .69744 .60332 L Mistroke .69999 .60332 L .70138 .60332 L .7027 .60332 L .70392 .60332 L .70504 .60332 L .70627 .60332 L .70757 .60332 L .70889 .60332 L .70962 .60332 L .7103 .60332 L .7116 .60332 L .71284 .60332 L .71561 .60332 L .71861 .60332 L .72368 .60331 L .72906 .60331 L .73872 .6033 L .74811 .60329 L .75823 .60327 L .77652 .60324 L .81771 .60313 L .85739 .60301 L .89555 .60288 L .93616 .60272 L .97526 .60256 L .97619 .60256 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol700000g`G0000003o00060003Ool001Eo o`03O1Moogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Moo`005Goo00=l5gooOol0?Goo00<007ooOol0?Goo00<007ooOol0?Goo00<007oo Ool0?Woo00<007ooOol01goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`G001oo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`G001oo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03O1Moogoo0?moo`Uoo`00 5Goo00=l5gooOol0ogoo2Goo000EOol00g`GOomoo`3oOol9Ool001Eoo`03001l5goo0?moo`Uoo`00 5Goo00<007`GOol0ogoo2Goo000EOol00`00O1Moo`3oOol9Ool001Eoo`03001l5goo0?moo`Uoo`00 5Goo00<007`GOol0ogoo2Goo000EOol00`00O1Moo`3oOol9Ool001Eoo`03001l5goo0?moo`Uoo`00 5Goo00<007`GOol0ogoo2Goo0002Ool20004Ool20003Ool40004Ool00`00O1Moo`3oOol9Ool00005 Ool007ooOol00008Ool00`00Oomoo`05Ool00`00O1Moo`3oOol9Ool00005Ool007ooOol00009Ool0 0`00Oomoo`04Ool00`00O1L0003oOol9Ool00005Ool007ooOol0000:Ool00`00Oomoo`03Ool00`00 O1Moo`3oOol9Ool00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooO1L0ogoo2Goo0002 Ool2000:Ool20005Ool00`00Ooml5`3oOol9Ool001Eoo`03001oog`G0?moo`Uoo`005Goo00<007oo O1L0ogoo2Goo000EOol00`00Ooml5`3oOol9Ool001Eoo`03001oog`G0?moo`Uoo`005Goo00<007oo O1L0ogoo2Goo000EOol200000g`GOomoo`3oOol7Ool001Eoo`03001oog`G0?moo`Uoo`005Goo00<0 07ooO1L0ogoo2Goo000EOol00`00Ooml5`3oOol9Ool001Eoo`03001oog`G0?moo`Uoo`005Goo00@0 07ooOoml5omoo`Qoo`005Goo00@007ooOoml5omoo`Qoo`005Goo00@007ooOoml5omoo`Qoo`005Goo 00@007ooOoml5omoo`Qoo`005Goo0P000Woo00=l5gooOol0ogoo1Goo000EOol01@00OomoogooO1L0 ogoo1goo000EOol01@00OomoogooO1L0ogoo1goo000EOol01@00OomoogooO1L0ogoo1goo000EOol0 1@00OomoogooO1L0ogoo1goo000EOol00`00Oomoo`02Ool00g`GOomoo`3oOol4Ool001Eoo`03001o ogoo009oo`03O1Moogoo0?moo`Aoo`005Goo00<007ooOol00Woo00=l5gooOol0ogoo17oo000EOol0 0`00Oomoo`02Ool00g`GOomoo`3oOol4Ool001Eoo`8000Aoo`03O1Moogoo0?moo`=oo`005Goo00<0 07ooOol00goo00=l5gooOol0ogoo0goo000EOol00`00Oomoo`03Ool00g`GOomoo`3oOol3Ool001Eo o`03001oogoo00=oo`03O1Moogoo0?moo`=oo`005Goo00<007ooOol017oo00=l5gooOol0ogoo0Woo 000EOol00`00Oomoo`04Ool00g`GOomoo`3oOol2Ool001Eoo`03001oogoo00Eoo`03O1Moogoo0?mo o`5oo`000Woo0P0017oo0P001Goo0`000goo00<007ooOol01Woo00=l5gooOol0ogoo00001Goo001o ogoo00002goo00<007ooOol00Woo00<007ooOol01Woo00=l5gooOol0ogoo00001Goo001oogoo0000 27oo1@000goo0`001goo00=l5gooOol0oWoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03 001oogoo00Qoo`03O1Moogoo0?eoo`0000Eoo`00Oomoo`0000Uoo`03001oo`0000Aoo`03001oogoo 00Uoo`03O1Moogoo0?aoo`000Woo0P002goo0P0017oo00<007ooOol02Goo00=l5gooOol0o7oo000E Ool00`00Oomoo`0:Ool00g`GOomoo`3kOol001Eoo`03001oogoo00]oo`03O1Moogoo0?Yoo`005Goo 00<007ooOol037oo00=l5gooOol0nGoo000EOol00`00Oomoo`0moo`00 5Goo00<007ooOol05Woo00=l5gooOol0kgoo000EOol00`00Oomoo`0GOol00g`GOomoo`3^Ool001Eo o`03001oogoo01Moo`03O1Moogoo0>ioo`005Goo00<007ooOol067oo00=l5gooOol0kGoo000EOol0 0`00Oomoo`0HOol00g`GOomoo`3]Ool001Eoo`03001oogoo01Uoo`03O1Moogoo0>aoo`005Goo0P00 6Woo00=l5gooOol0k7oo000EOol00`00Oomoo`0JOol00g`GOomoo`3[Ool001Eoo`03001oogoo01Yo o`03O1Moogoo0>]oo`005Goo00<007ooOol06goo00=l5gooOol0jWoo000EOol00`00Oomoo`0KOol0 0g`GOomoo`3ZOol001Eoo`03001oogoo01aoo`03O1Moogoo0>Uoo`000Woo0P0017oo0P000goo0`00 1Goo00<007ooOol077oo00=l5gooOol0jGoo00001Goo001oogoo000027oo00@007ooOol000Aoo`03 001oogoo01eoo`03O1Moogoo0>Qoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool3000MOol0 0g`GOomoo`3XOol00005Ool007ooOol00008Ool30005Ool00`00Oomoo`0NOol00g`GOomoo`3WOol0 0005Ool007ooOol00009Ool00`00Oomoo`04Ool00`00Oomoo`0NOol00g`GOomoo`3WOol0009oo`80 00Yoo`<000Aoo`03001oogoo01moo`03O1Moogoo0>Ioo`005Goo00<007ooOol07goo00=l5gooOol0 iWoo000EOol00`00Oomoo`0POol00g`GOomoo`3UOol001Eoo`03001oogoo021oo`03O1Moogoo0>Eo o`005Goo00<007ooOol08Goo00=l5gooOol0i7oo000EOol00`00Oomoo`0QOol00g`GOomoo`3TOol0 01Eoo`8002=oo`03O1Moogoo0>=oo`005Goo00<007ooOol08Woo00=l5gooOol0hgoo000EOol00`00 Oomoo`0SOol00g`GOomoo`3ROol001Eoo`03001oogoo02Aoo`03O1Moogoo0>5oo`005Goo00<007oo Ool097oo00=l5gooOol0hGoo000EOol00`00Oomoo`0UOol00g`GOomoo`3POol001Eoo`03001oogoo 02Eoo`03O1Moogoo0>1oo`005Goo00<007ooOol09Woo00=l5gooOol0ggoo000EOol00`00Oomoo`0V Ool00g`GOomoo`3OOol001Eoo`8002Qoo`03O1Moogoo0=ioo`005Goo00<007ooOol09goo00=l5goo Ool0gWoo000EOol00`00Oomoo`0XOol00g`GOomoo`3MOol001Eoo`03001oogoo02Uoo`03O1Moogoo 0=aoo`005Goo00<007ooOol0:Goo00=l5gooOol0g7oo000EOol00`00Oomoo`0ZOol00g`GOomoo`3K Ool001Eoo`03001oogoo02]oo`03O1Moogoo0=Yoo`005Goo00<007ooOol0;7oo00=l5gooOol0fGoo 000EOol00`00Oomoo`0/Ool00g`GOomoo`3IOol001Eoo`8002ioo`03O1Moogoo0=Qoo`005Goo00<0 07ooOol0;Woo00=l5gooOol0egoo000EOol00`00Oomoo`0_Ool00g`GOomoo`3FOol001Eoo`03001o ogoo031oo`03O1Moogoo0=Eoo`005Goo00<007ooOol0<7oo00=l5gooOol0eGoo000EOol00`00Oomo o`0aOol00g`GOomoo`3DOol001Eoo`03001oogoo039oo`03O1Moogoo0==oo`000Woo0P0017oo0P00 17oo0P001Goo00<007ooOol0Ool0 0005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol0>7oo00=l5gooOol0cGoo0002Ool2 000:Ool20005Ool00`00Oomoo`0iOol2O1O=Ool001Eoo`03001oogoo03]oo`9l5l]oo`005Goo00<0 07ooOol0?Goo00=l5gooOol0b7oo000EOol00`00Oomoo`0nOol2O1O8Ool001Eoo`03001oogoo041o o`9l5lIoo`005Goo00<007ooOol0@Woo0W`Ga7oo000EOol20015Ool2O1O2Ool001Eoo`03001oogoo 04Ioo`Al5kioo`005Goo00<007ooOol0BWoo1G`G^Goo000EOol00`00Oomoo`1?Ool6O1NcOol001Eo o`03001oogoo05Eoo`El5jioo`005Goo00<007ooOol0FWoo1W`GZ7oo000EOol00`00Oomoo`1POol= O1NKOol001Eoo`03001oogoo06eooc=l5biooc5l5`Uoo`005Goo00<007ooOol0X7oo;W`G>Woo000E Ool2003oOol:Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo003oOolQOol0 0001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -0.07534, \ 0.779333, 0.00563584}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Show[plt2,plt3,plt4,plt5,plt6,plt7]", "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 0.00476191 0.0147151 0.593334 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .13338 -18 -4.5 ] [.01131 .13338 0 4.5 ] [.01131 .25205 -18 -4.5 ] [.01131 .25205 0 4.5 ] [.01131 .37072 -18 -4.5 ] [.01131 .37072 0 4.5 ] [.01131 .48938 -18 -4.5 ] [.01131 .48938 0 4.5 ] [.01131 .60805 -6 -4.5 ] [.01131 .60805 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13338 m .03006 .13338 L s [(0.2)] .01131 .13338 1 0 Mshowa .02381 .25205 m .03006 .25205 L s [(0.4)] .01131 .25205 1 0 Mshowa .02381 .37072 m .03006 .37072 L s [(0.6)] .01131 .37072 1 0 Mshowa .02381 .48938 m .03006 .48938 L s [(0.8)] .01131 .48938 1 0 Mshowa .02381 .60805 m .03006 .60805 L s [(1)] .01131 .60805 1 0 Mshowa .125 Mabswid .02381 .04438 m .02756 .04438 L s .02381 .07405 m .02756 .07405 L s .02381 .10372 m .02756 .10372 L s .02381 .16305 m .02756 .16305 L s .02381 .19272 m .02756 .19272 L s .02381 .22238 m .02756 .22238 L s .02381 .28172 m .02756 .28172 L s .02381 .31138 m .02756 .31138 L s .02381 .34105 m .02756 .34105 L s .02381 .40038 m .02756 .40038 L s .02381 .43005 m .02756 .43005 L s .02381 .45972 m .02756 .45972 L s .02381 .51905 m .02756 .51905 L s .02381 .54872 m .02756 .54872 L s .02381 .57838 m .02756 .57838 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 1 0 r .5 Mabswid .02381 .48938 m .06244 .47842 L .10458 .46904 L .12507 .46514 L .14415 .46201 L .18221 .45725 L .20262 .45541 L .2212 .45407 L .24196 .45286 L .26113 .45194 L .29954 .45052 L .3389 .44943 L .37673 .44859 L .41702 .44783 L .45579 .44718 L .49701 .44655 L .53672 .44598 L .57492 .44545 L .61556 .4449 L .65469 .44438 L .69627 .44383 L .73634 .4433 L .77489 .44279 L .81589 .44226 L .85538 .44173 L .89335 .44123 L .93378 .4407 L .97269 .44018 L .97619 .44013 L s 1 0 0 r .02381 .01472 m .06244 .18094 L .08255 .2719 L .10458 .35268 L .12507 .41077 L .14415 .45239 L .16457 .48634 L .18314 .50992 L .20229 .52873 L .22307 .54442 L .24291 .55598 L .26394 .56553 L .30178 .5778 L .32119 .58235 L .34206 .5863 L .36177 .58932 L .38329 .59199 L .423 .59563 L .44267 .59696 L .46364 .59813 L .48362 .59905 L .50522 .59986 L .54529 .60098 L .56523 .6014 L .58629 .60176 L .62427 .60225 L .64378 .60245 L .66469 .60262 L .6845 .60275 L .70605 .60287 L .7459 .60303 L .76567 .60309 L .78668 .60314 L .82443 .60321 L .84378 .60324 L .86463 .60326 L .88428 .60328 L .90577 .60329 L .9263 .6033 L .9454 .60331 L .96153 .60332 L .97619 .60332 L s 0 0 1 r .02381 .01472 m .06244 .15058 L .10458 .30067 L .12507 .36651 L .14415 .41682 L .16254 .45518 L .18221 .48687 L .20351 .51274 L .22365 .53117 L .24363 .54519 L .26207 .55533 L .28238 .56412 L .30142 .57064 L .33925 .58004 L .3595 .58367 L .37803 .58637 L .39862 .5888 L .41773 .59065 L .45593 .59341 L .47645 .59451 L .49506 .59533 L .51592 .59609 L .53512 .59666 L .57367 .59754 L .5925 .59786 L .61316 .59815 L .63431 .59839 L .65359 .59858 L .69249 .59885 L .71158 .59896 L .73234 .59905 L .75172 .59911 L .77312 .59918 L .81239 .59926 L .83173 .59929 L .85259 .59931 L .87263 .59933 L .89373 .59934 L .91347 .59935 L .93184 .59936 L .94236 .59936 L .9523 .59937 L .96122 .59937 L .97088 .59937 L .97619 .59937 L s 1 0 1 r .02381 .01472 m .06244 .1548 L .10458 .26659 L .14415 .38207 L .16408 .42892 L .18221 .46299 L .20178 .4917 L .22272 .51498 L .24186 .53116 L .26265 .54459 L .28248 .55442 L .30351 .56246 L .32305 .56827 L .34135 .57261 L .38012 .57926 L .40125 .58184 L .42134 .5838 L .45954 .58655 L .47921 .5876 L .50018 .58851 L .52016 .58921 L .54176 .58982 L .58183 .59067 L .60177 .59098 L .62283 .59124 L .66081 .5916 L .68032 .59174 L .70123 .59186 L .72104 .59195 L .74259 .59202 L .76153 .59208 L .78244 .59213 L .80221 .59216 L .82322 .59219 L .84257 .59221 L .85253 .59222 L .86342 .59222 L .87311 .59223 L .88346 .59223 L .88919 .59223 L .89439 .59223 L .89933 .59224 L .90456 .59224 L .90932 .59224 L .91184 .59224 L .91454 .59224 L .91703 .59224 L .9193 .59224 L .92039 .59224 L .92158 .59224 L Mistroke .92262 .59224 L .92375 .59224 L .92448 .59224 L .92516 .59224 L .92581 .59224 L .92649 .59224 L .92768 .59224 L .92897 .59224 L .9297 .59224 L .93036 .59224 L .93185 .59224 L .93323 .59224 L .93454 .59224 L .93933 .59224 L .94204 .59224 L .94454 .59224 L .95231 .59224 L .9596 .59224 L .97619 .59223 L Mfstroke .75 1 0 r .02381 .01472 m .02605 .04258 L .02846 .06869 L .03072 .08715 L .03279 .10063 L .03784 .12533 L .04262 .14202 L .04756 .15528 L .05212 .1653 L .06244 .18389 L .10458 .26194 L .14393 .35906 L .18177 .44097 L .20117 .47207 L .22205 .49777 L .24319 .51719 L .26328 .53099 L .28308 .54129 L .30147 .54866 L .32199 .55502 L .3406 .5595 L .35985 .56317 L .38067 .56628 L .40061 .56863 L .42167 .5706 L .45964 .57317 L .47915 .57414 L .50007 .57497 L .51988 .57561 L .54143 .57617 L .58127 .57692 L .60105 .57719 L .62205 .57742 L .65981 .57772 L .67915 .57783 L .70001 .57793 L .72005 .57799 L .74115 .57805 L .76089 .57808 L .77926 .57811 L .78978 .57812 L .79971 .57813 L .80863 .57813 L .81366 .57813 L .8183 .57813 L .82298 .57813 L .8256 .57814 L .828 .57814 L .83022 .57814 L .83148 .57814 L Mistroke .83265 .57814 L .83377 .57814 L .83479 .57814 L .83596 .57814 L .83707 .57814 L .83827 .57814 L .83958 .57814 L .84024 .57814 L .84095 .57814 L .84224 .57814 L .84472 .57814 L .84699 .57814 L .85249 .57813 L .8577 .57813 L .86738 .57813 L .87765 .57813 L .89609 .57812 L .93389 .57809 L .97414 .57805 L .97619 .57804 L Mfstroke 1 0 .75 r .02381 .01472 m .02499 .06122 L .02605 .08752 L .02729 .11004 L .02846 .12681 L .03053 .1499 L .03279 .16876 L .03527 .18475 L .0379 .19803 L .04262 .2157 L .04749 .22874 L .05205 .23799 L .06244 .25328 L .08445 .27762 L .10458 .30295 L .14335 .368 L .16394 .40454 L .18306 .4348 L .20273 .46052 L .22125 .47963 L .24178 .4958 L .26038 .50684 L .28046 .51584 L .29893 .52211 L .31776 .52704 L .33842 .53119 L .35793 .53419 L .37885 .53668 L .40009 .53863 L .42021 .54007 L .45854 .54202 L .47831 .54273 L .49932 .54333 L .51901 .54377 L .53707 .54409 L .55642 .54437 L .57727 .5446 L .5962 .54475 L .6169 .54488 L .63651 .54497 L .64748 .54501 L .65746 .54503 L .66744 .54505 L .67664 .54507 L .68145 .54507 L .68674 .54508 L .68941 .54508 L .69227 .54508 L .69498 .54508 L .69744 .54508 L Mistroke .69999 .54508 L .70138 .54508 L .7027 .54508 L .70392 .54508 L .70504 .54508 L .70627 .54508 L .70757 .54508 L .70889 .54508 L .70962 .54508 L .7103 .54508 L .7116 .54508 L .71284 .54508 L .71561 .54508 L .71861 .54508 L .72368 .54508 L .72906 .54507 L .73872 .54507 L .74811 .54506 L .75823 .54504 L .77652 .54501 L .81771 .54492 L .85739 .54481 L .89555 .54469 L .93616 .54455 L .97526 .5444 L .97619 .5444 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgmoo`005Goo00<007ooOol04Goo00El07ooOol07g`G009o o`03O1mOh7oo0>eoo`005Goo00<007ooOol04Goo00Ul07ooOomoo`0OO1Moog`OGn00kWoo000EOol0 0`00Oomoo`0AOol02W`0Oomoogoo01moog`GO1mooeoPkGoo000EOol00`00Oomoo`0AOol02W`0Oomo ogoo01moog`GO1mooeoPkGoo000EOol00`00Oomoo`0BOol02G`0Oomoogoo01moog`GO1mOh03]Ool0 01Eoo`03001oogoo019oo`0:O01oogooOol07gooO1Ml7gooGn3/Ool001Eoo`8001=oo`05O01oogoo Ool07`02Ool00g`GOomOh03/Ool001Eoo`03001oogoo019oo`05O01oogooOol07`02Ool00g`GO1mO h03/Ool001Eoo`03001oogoo01=oo`05O01oogooOol07`02Ool00g`GOomOh03[Ool001Eoo`03001o ogoo01=oo`05O01oogooOol07`02Ool00g`OO1MOh03[Ool001Eoo`03001oogoo01=oo`05O01oogoo Ool07`03Ool00g`GOomOh03ZOol001Eoo`03001oogoo01Aoo`04O01oogoo01l3Ool00g`OO1MOh03Z Ool0009oo`8000Aoo`8000=oo`<000Eoo`03001oogoo01Aoo`05O01oogooOol07`02Ool00g`OO1MO h03ZOol00005Ool007ooOol00008Ool01000Oomoo`0017oo00<007ooOol057oo00El07ooOomoo`0O 00=oo`03O1ml5eoP0>Uoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0004Ool3000EOol017`0Oomo o`0O0goo00=l7gooO1L0jGoo00001Goo001oogoo000027oo0`001Goo00<007ooOol05Goo00El07oo Oomoo`0O009oo`04O1moog`GGn3XOol00005Ool007ooOol00009Ool00`00Oomoo`04Ool00`00Oomo o`0EOol01G`0Oomoogoo01l00goo00=l7gooO1L0j7oo0002Ool2000:Ool30004Ool00`00Oomoo`0F Ool01G`0Oomoogoo01l00Woo00Al7gooO1MOh>Moo`005Goo00<007ooOol05Woo00El07ooOomoo`0O 009oo`04O1moogooO1OWOol001Eoo`03001oogoo01Ioo`05O01oogooOol07`03Ool017`OOomoog`G iWoo000EOol00`00Oomoo`0FOol00g`0Oomoo`02Ool0100OOomoog`O0Woo00=l5gooOol0i7oo000E Ool00`00Oomoo`0GOol01G`0Oomoogoo01l00goo00Al7gooOoml5nEoo`005Goo0P0067oo00El07oo Oomoo`0O00=oo`04O1moogooO1OUOol001Eoo`03001oogoo01Moo`03O01oogoo009oo`0801moogoo Ooml7gooGn1l5nAoo`005Goo00<007ooOol067oo00El07ooOomoo`0O00=oo`05O1moogooGn1l5`3S Ool001Eoo`03001oogoo01Qoo`03O01oogoo009oo`0801moogooOoml7gooGn1l5n=oo`005Goo00<0 07ooOol067oo00=l07ooOol00Woo00D07gooOomoog`O009oo`03Gn1l5goo0>5oo`005Goo00<007oo Ool06Goo00El07ooOomoo`0O00Aoo`05O1mooeoPOoml5`3QOol001Eoo`03001oogoo01Uoo`03O01o ogoo009oo`0501moogooOoml7`02Ool00eoPO1Moo`3POol001Eoo`03001oogoo01Yoo`05O01oogoo Ool07`04Ool01G`OOomOh7ooO1L0h7oo000EOol2000KOol00g`0Oomoo`02Ool01@0OOomoogooO1l0 0Woo00=Oh7`GOol0ggoo000EOol00`00Oomoo`0KOol01G`0Oomoogoo01l017oo00El7gooGn1oog`G 0=moo`005Goo00<007ooOol06goo00=l07ooOol00Woo00D07gooOomoog`O009oo`03Gn1oog`G0=io o`005Goo00<007ooOol077oo00El07ooOomoo`0O00Aoo`05O1mooeoPOoml5`2IOoll0n09Ool001Eo o`03001oogoo01aoo`03O01oogoo009oo`0501moogooOoml7`02Ool00eoPOoml5`1Ool00005Ool007ooOol0 0008Ool01000Oomoo`0017oo00<007ooOol09Woo00El07ooOomoo`0O00=oo`05O1moogooOomOh005 Ool00g`GOomoo`3=Ool0009oo`8000Yoo`8000Eoo`03001oogoo02Ioo`03O01oogoo009oo`0501mo ogooOoml7`03Ool00eoPOomoo`03Ool2O1O=Ool001Eoo`03001oogoo02Moo`03O01oogoo009oo`05 01moogooOoml7`03Ool00eoPOomoo`04Ool2O1O;Ool001Eoo`03001oogoo02Qoo`05O01oogooOol0 7`03Ool00g`OOomoo`02Ool2Gn06Ool2O1O9Ool001Eoo`03001oogoo02Uoo`05O01oogooOol07`03 Ool00g`OOomoo`03Ool00eoPOomoo`05Ool2O1O7Ool001Eoo`03001oogoo02Yoo`05O01oogooOol0 7`03Ool00g`OOomoo`03Ool00eoPOomoo`06Ool3O1O4Ool001Eoo`8002aoo`05O01oogooOol07`03 Ool2O1l4Ool00eoPOomoo`08Ool2O1O2Ool001Eoo`03001oogoo02]oo`03O01oogoo009oo`807`=o o`03O1moogoo009oo`9Oh0Yoo`Al5kioo`005Goo00<007ooOol0;7oo00=l07ooOol00goo00@07goo Oomoo`9l7`Aoo`03Gn1oogoo00]oo`El5kUoo`005Goo00<007ooOol0;Goo00=l07ooOol00goo00<0 7gooOol00Woo00=l7gooOol00Woo00=Oh7ooOol03goo1W`G/goo000EOol00`00Oomoo`0^Ool2O004 Ool00`0OOomoo`02Ool00g`OOomoo`02Ool2Gn0EOol5O1N^Ool001Eoo`03001oogoo031oo`03O01o ogoo009oo`807`=oo`9l7`Aoo`9Oh1Qoo`]l5j=oo`005Goo00<007ooOol0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -0.0779455, \ 0.779333, 0.00625468}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Plotting the temperature profile versus time in the still and in the plates\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ plt8=Plot[Evaluate[T1[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,0],PlotRange-\ >All]\ \>", "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 0.00476191 -1.05755 0.0166335 [ [.2619 .01113 -6 -9 ] [.2619 .01113 6 0 ] [.5 .01113 -9 -9 ] [.5 .01113 9 0 ] [.7381 .01113 -9 -9 ] [.7381 .01113 9 0 ] [.97619 .01113 -9 -9 ] [.97619 .01113 9 0 ] [.01131 .10679 -12 -4.5 ] [.01131 .10679 0 4.5 ] [.01131 .18996 -12 -4.5 ] [.01131 .18996 0 4.5 ] [.01131 .27313 -12 -4.5 ] [.01131 .27313 0 4.5 ] [.01131 .3563 -12 -4.5 ] [.01131 .3563 0 4.5 ] [.01131 .43946 -12 -4.5 ] [.01131 .43946 0 4.5 ] [.01131 .52263 -12 -4.5 ] [.01131 .52263 0 4.5 ] [.01131 .6058 -18 -4.5 ] [.01131 .6058 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 .2619 .02363 m .2619 .02988 L s [(50)] .2619 .01113 0 1 Mshowa .5 .02363 m .5 .02988 L s [(100)] .5 .01113 0 1 Mshowa .7381 .02363 m .7381 .02988 L s [(150)] .7381 .01113 0 1 Mshowa .97619 .02363 m .97619 .02988 L s [(200)] .97619 .01113 0 1 Mshowa .125 Mabswid .07143 .02363 m .07143 .02738 L s .11905 .02363 m .11905 .02738 L s .16667 .02363 m .16667 .02738 L s .21429 .02363 m .21429 .02738 L s .30952 .02363 m .30952 .02738 L s .35714 .02363 m .35714 .02738 L s .40476 .02363 m .40476 .02738 L s .45238 .02363 m .45238 .02738 L s .54762 .02363 m .54762 .02738 L s .59524 .02363 m .59524 .02738 L s .64286 .02363 m .64286 .02738 L s .69048 .02363 m .69048 .02738 L s .78571 .02363 m .78571 .02738 L s .83333 .02363 m .83333 .02738 L s .88095 .02363 m .88095 .02738 L s .92857 .02363 m .92857 .02738 L s .25 Mabswid 0 .02363 m 1 .02363 L s .02381 .10679 m .03006 .10679 L s [(70)] .01131 .10679 1 0 Mshowa .02381 .18996 m .03006 .18996 L s [(75)] .01131 .18996 1 0 Mshowa .02381 .27313 m .03006 .27313 L s [(80)] .01131 .27313 1 0 Mshowa .02381 .3563 m .03006 .3563 L s [(85)] .01131 .3563 1 0 Mshowa .02381 .43946 m .03006 .43946 L s [(90)] .01131 .43946 1 0 Mshowa .02381 .52263 m .03006 .52263 L s [(95)] .01131 .52263 1 0 Mshowa .02381 .6058 m .03006 .6058 L s [(100)] .01131 .6058 1 0 Mshowa .125 Mabswid .02381 .04026 m .02756 .04026 L s .02381 .05689 m .02756 .05689 L s .02381 .07353 m .02756 .07353 L s .02381 .09016 m .02756 .09016 L s .02381 .12343 m .02756 .12343 L s .02381 .14006 m .02756 .14006 L s .02381 .15669 m .02756 .15669 L s .02381 .17333 m .02756 .17333 L s .02381 .20659 m .02756 .20659 L s .02381 .22323 m .02756 .22323 L s .02381 .23986 m .02756 .23986 L s .02381 .25649 m .02756 .25649 L s .02381 .28976 m .02756 .28976 L s .02381 .3064 m .02756 .3064 L s .02381 .32303 m .02756 .32303 L s .02381 .33966 m .02756 .33966 L s .02381 .37293 m .02756 .37293 L s .02381 .38956 m .02756 .38956 L s .02381 .4062 m .02756 .4062 L s .02381 .42283 m .02756 .42283 L s .02381 .4561 m .02756 .4561 L s .02381 .47273 m .02756 .47273 L s .02381 .48936 m .02756 .48936 L s .02381 .506 m .02756 .506 L s .02381 .53926 m .02756 .53926 L s .02381 .5559 m .02756 .5559 L s .02381 .57253 m .02756 .57253 L s .02381 .58916 m .02756 .58916 L s .02381 .00699 m .02756 .00699 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .60332 m .02846 .51393 L .03068 .46821 L .03279 .43496 L .03527 .4038 L .03754 .38043 L .04262 .33815 L .05212 .27808 L .06244 .2266 L .07308 .183 L .08435 .14537 L .0941 .11908 L .10458 .09632 L .11478 .07879 L .12411 .066 L .14241 .04781 L .15226 .04084 L .1614 .03568 L .17207 .03092 L .18212 .02742 L .19198 .0247 L .20265 .0224 L .22125 .01955 L .23076 .01851 L .24119 .01761 L .25209 .01688 L .26226 .01635 L .27271 .01593 L .28261 .01563 L .2915 .01541 L .30116 .01522 L .31056 .01508 L .32094 .01497 L .33177 .01488 L .34195 .01482 L .35178 .01478 L .35672 .01476 L .36213 .01475 L .36676 .01474 L .37172 .01473 L .37639 .01472 L .38063 .01472 L .38294 .01472 L .38548 .01472 L .38676 .01472 L .38813 .01472 L .38932 .01472 L .39062 .01472 L .3919 .01472 L .39308 .01472 L Mistroke .39422 .01472 L .39543 .01472 L .39661 .01472 L .39773 .01472 L .39873 .01472 L .39982 .01472 L .40112 .01472 L .40234 .01472 L .40509 .01472 L .40778 .01472 L .41066 .01472 L .42062 .01473 L .4419 .01474 L .46203 .01476 L .50041 .0148 L .54125 .01484 L .58056 .01486 L .61837 .01488 L .63938 .01489 L .65862 .0149 L .69736 .01491 L .71632 .01491 L .73704 .01492 L .75833 .01492 L .77765 .01492 L .81675 .01492 L .83597 .01492 L .85678 .01493 L .8767 .01493 L .89775 .01493 L .91737 .01493 L .93569 .01493 L .94613 .01493 L .95602 .01493 L .9649 .01493 L .97457 .01493 L .97619 .01493 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgEoo`005Goo0P0087oo0W`0igoo000E Ool00`00Oomoo`0NOol00g`0Oomoo`3WOol001Eoo`03001oogoo01eoo`03O01oogoo0>Qoo`005Goo 00<007ooOol077oo00=l07ooOol0jGoo000EOol2000LOol00g`0Oomoo`3ZOol001Eoo`03001oogoo 01Yoo`03O01oogoo0>]oo`005Goo00<007ooOol06Goo00=l07ooOol0k7oo000EOol00`00Oomoo`0H Ool00g`0Oomoo`3]Ool001Eoo`03001oogoo01Moo`03O01oogoo0>ioo`005Goo0P005goo00=l07oo Ool0kgoo000EOol00`00Oomoo`0EOol00g`0Oomoo`3`Ool001Eoo`03001oogoo01Eoo`03O01oogoo 0?1oo`005Goo00<007ooOol057oo00=l07ooOol0lGoo000EOol2000EOol00g`0Oomoo`3aOol001Eo o`03001oogoo01=oo`03O01oogoo0?9oo`005Goo00<007ooOol04goo00=l07ooOol0lWoo0009Ool0 0`00Oomoo`02Ool20005Ool00`00Oomoo`0BOol00g`0Oomoo`3cOol000Uoo`05001oogooOol00002 Ool00`00Oomoo`02Ool00`00Oomoo`0BOol00g`0Oomoo`3cOol000Uoo`05001oogooOol00002Ool0 0`00Oomoo`02Ool3000AOol00g`0Oomoo`3dOol000Yoo`04001oogoo0002Ool00`00Oomoo`02Ool0 0`00Oomoo`0AOol00g`0Oomoo`3dOol000Moo`04001oogoo0002Ool01000Oomoo`0017oo00<007oo Ool047oo00=l07ooOol0mGoo0007Ool40003Ool20005Ool00`00Oomoo`0@Ool00g`0Oomoo`3eOol0 01Eoo`80015oo`03O01oogoo0?Eoo`005Goo00<007ooOol03goo00=l07ooOol0mWoo000EOol00`00 Oomoo`0?Ool00g`0Oomoo`3fOol001Eoo`03001oogoo00ioo`03O01oogoo0?Moo`005Goo00<007oo Ool03Woo00=l07ooOol0mgoo000EOol2000>Ool00g`0Oomoo`3hOol001Eoo`03001oogoo00eoo`03 O01oogoo0?Qoo`005Goo00<007ooOol03Goo00=l07ooOol0n7oo000EOol00`00Oomoo`0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, 61.884, 0.779333, \ 0.223111}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt9=Plot[Evaluate[T2[t]/.sol],{t,0,200},PlotStyle->RGBColor[0,0,1],PlotRange-\ >All]\ \>", "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 0.00476191 -1.05755 0.0166335 [ [.2619 .01113 -6 -9 ] [.2619 .01113 6 0 ] [.5 .01113 -9 -9 ] [.5 .01113 9 0 ] [.7381 .01113 -9 -9 ] [.7381 .01113 9 0 ] [.97619 .01113 -9 -9 ] [.97619 .01113 9 0 ] [.01131 .10679 -12 -4.5 ] [.01131 .10679 0 4.5 ] [.01131 .18996 -12 -4.5 ] [.01131 .18996 0 4.5 ] [.01131 .27313 -12 -4.5 ] [.01131 .27313 0 4.5 ] [.01131 .3563 -12 -4.5 ] [.01131 .3563 0 4.5 ] [.01131 .43946 -12 -4.5 ] [.01131 .43946 0 4.5 ] [.01131 .52263 -12 -4.5 ] [.01131 .52263 0 4.5 ] [.01131 .6058 -18 -4.5 ] [.01131 .6058 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 .2619 .02363 m .2619 .02988 L s [(50)] .2619 .01113 0 1 Mshowa .5 .02363 m .5 .02988 L s [(100)] .5 .01113 0 1 Mshowa .7381 .02363 m .7381 .02988 L s [(150)] .7381 .01113 0 1 Mshowa .97619 .02363 m .97619 .02988 L s [(200)] .97619 .01113 0 1 Mshowa .125 Mabswid .07143 .02363 m .07143 .02738 L s .11905 .02363 m .11905 .02738 L s .16667 .02363 m .16667 .02738 L s .21429 .02363 m .21429 .02738 L s .30952 .02363 m .30952 .02738 L s .35714 .02363 m .35714 .02738 L s .40476 .02363 m .40476 .02738 L s .45238 .02363 m .45238 .02738 L s .54762 .02363 m .54762 .02738 L s .59524 .02363 m .59524 .02738 L s .64286 .02363 m .64286 .02738 L s .69048 .02363 m .69048 .02738 L s .78571 .02363 m .78571 .02738 L s .83333 .02363 m .83333 .02738 L s .88095 .02363 m .88095 .02738 L s .92857 .02363 m .92857 .02738 L s .25 Mabswid 0 .02363 m 1 .02363 L s .02381 .10679 m .03006 .10679 L s [(70)] .01131 .10679 1 0 Mshowa .02381 .18996 m .03006 .18996 L s [(75)] .01131 .18996 1 0 Mshowa .02381 .27313 m .03006 .27313 L s [(80)] .01131 .27313 1 0 Mshowa .02381 .3563 m .03006 .3563 L s [(85)] .01131 .3563 1 0 Mshowa .02381 .43946 m .03006 .43946 L s [(90)] .01131 .43946 1 0 Mshowa .02381 .52263 m .03006 .52263 L s [(95)] .01131 .52263 1 0 Mshowa .02381 .6058 m .03006 .6058 L s [(100)] .01131 .6058 1 0 Mshowa .125 Mabswid .02381 .04026 m .02756 .04026 L s .02381 .05689 m .02756 .05689 L s .02381 .07353 m .02756 .07353 L s .02381 .09016 m .02756 .09016 L s .02381 .12343 m .02756 .12343 L s .02381 .14006 m .02756 .14006 L s .02381 .15669 m .02756 .15669 L s .02381 .17333 m .02756 .17333 L s .02381 .20659 m .02756 .20659 L s .02381 .22323 m .02756 .22323 L s .02381 .23986 m .02756 .23986 L s .02381 .25649 m .02756 .25649 L s .02381 .28976 m .02756 .28976 L s .02381 .3064 m .02756 .3064 L s .02381 .32303 m .02756 .32303 L s .02381 .33966 m .02756 .33966 L s .02381 .37293 m .02756 .37293 L s .02381 .38956 m .02756 .38956 L s .02381 .4062 m .02756 .4062 L s .02381 .42283 m .02756 .42283 L s .02381 .4561 m .02756 .4561 L s .02381 .47273 m .02756 .47273 L s .02381 .48936 m .02756 .48936 L s .02381 .506 m .02756 .506 L s .02381 .53926 m .02756 .53926 L s .02381 .5559 m .02756 .5559 L s .02381 .57253 m .02756 .57253 L s .02381 .58916 m .02756 .58916 L s .02381 .00699 m .02756 .00699 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 1 r .5 Mabswid .02381 .60332 m .02605 .53987 L .02729 .49541 L .02846 .46119 L .03072 .41165 L .03279 .37935 L .03524 .35055 L .0375 .32995 L .04262 .29577 L .0472 .27347 L .05224 .25368 L .06244 .22098 L .08274 .16644 L .10458 .11699 L .11537 .09699 L .12562 .08095 L .14487 .058 L .15445 .04954 L .16467 .04226 L .18306 .03271 L .19335 .02888 L .20447 .02564 L .21498 .02326 L .22464 .02153 L .24347 .01909 L .25415 .01812 L .26413 .0174 L .27458 .01681 L .28448 .01637 L .30304 .01577 L .31269 .01555 L .32295 .01536 L .34137 .01512 L .35074 .01503 L .36084 .01496 L .37031 .0149 L .37912 .01486 L .38869 .01482 L .39916 .01479 L .40936 .01477 L .42026 .01475 L .4305 .01474 L .43589 .01474 L .4416 .01473 L .4466 .01473 L .45209 .01472 L .46176 .01472 L .46697 .01472 L .47192 .01472 L .47636 .01472 L Mistroke .4812 .01472 L .48396 .01472 L .48645 .01472 L .48933 .01472 L .49065 .01472 L .49204 .01472 L .49325 .01472 L .49456 .01472 L .49576 .01472 L .49688 .01472 L .4982 .01472 L .4994 .01472 L .50006 .01472 L .50078 .01472 L .5021 .01472 L .50332 .01472 L .50444 .01472 L .50696 .01472 L .50918 .01472 L .51152 .01472 L .51649 .01472 L .52191 .01472 L .54293 .01472 L .58354 .01472 L .62264 .01473 L .66419 .01473 L .68503 .01473 L .70423 .01473 L .74274 .01474 L .76154 .01474 L .7822 .01474 L .80168 .01474 L .82259 .01474 L .83275 .01474 L .84381 .01474 L .85336 .01474 L .86392 .01474 L .87342 .01474 L .88367 .01474 L .88932 .01474 L .8945 .01474 L .89941 .01474 L .90467 .01474 L .9098 .01474 L .91446 .01474 L .9167 .01474 L .91914 .01474 L .92026 .01474 L .92145 .01474 L .92253 .01474 L Mistroke .92357 .01474 L .92485 .01474 L .92602 .01474 L .92728 .01474 L .92799 .01474 L .92866 .01474 L .92987 .01474 L .93096 .01474 L .93223 .01474 L .93342 .01474 L .93613 .01474 L .93863 .01474 L .94426 .01474 L .94806 .01474 L .95214 .01474 L .95949 .01474 L .97619 .01474 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgQoo`005Goo00<007ooOol077oo00<07gooOol0jGoo000EOol00`00Oomoo`0KOol00`0OOomo o`3ZOol001Eoo`03001oogoo01Yoo`0301moogoo0>]oo`005Goo0P006goo00<07gooOol0jgoo000E Ool00`00Oomoo`0IOol00`0OOomoo`3/Ool001Eoo`03001oogoo01Qoo`0301moogoo0>eoo`005Goo 00<007ooOol05goo00<07gooOol0kWoo000EOol2000HOol00`0OOomoo`3^Ool001Eoo`03001oogoo 01Ioo`0301moogoo0>moo`005Goo00<007ooOol05Woo00<07gooOol0kgoo0009Ool00`00Oomoo`02 Ool20005Ool00`00Oomoo`0EOol00`0OOomoo`3`Ool000Uoo`05001oogooOol00002Ool00`00Oomo o`02Ool00`00Oomoo`0EOol00`0OOomoo`3`Ool000Uoo`05001oogooOol00002Ool00`00Oomoo`02 Ool3000DOol00`0OOomoo`3aOol000Yoo`04001oogoo0002Ool00`00Oomoo`02Ool00`00Oomoo`0D Ool00`0OOomoo`3aOol000Moo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol04goo00<0 7gooOol0lWoo0007Ool40003Ool20005Ool00`00Oomoo`0COol00`0OOomoo`3bOol001Eoo`8001Ao o`0301moogoo0?9oo`005Goo00<007ooOol04Woo00<07gooOol0lgoo000EOol00`00Oomoo`0BOol0 0`0OOomoo`3cOol001Eoo`03001oogoo015oo`0301moogoo0?Aoo`005Goo00<007ooOol04Goo00<0 7gooOol0m7oo000EOol2000AOol00`0OOomoo`3eOol001Eoo`03001oogoo011oo`0301moogoo0?Eo o`005Goo00<007ooOol03goo00<07gooOol0mWoo000EOol00`00Oomoo`0?Ool00`0OOomoo`3fOol0 01Eoo`8000moo`0301moogoo0?Moo`005Goo00<007ooOol03Woo00<07gooOol0mgoo000EOol00`00 Oomoo`0=Ool00`0OOomoo`3hOol001Eoo`03001oogoo00eoo`0301moogoo0?Qoo`005Goo00<007oo Ool03Goo00<07gooOol0n7oo000EOol2000=Ool00`0OOomoo`3iOol001Eoo`03001oogoo00aoo`03 01moogoo0?Uoo`002Goo00<007ooOol00Woo0P001Goo00<007ooOol02goo00<07gooOol0nWoo0009 Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol02goo00<07gooOol0nWoo0009Ool0 0`00Oomoo`04Ool00`00Oomoo`02Ool3000;Ool00`0OOomoo`3jOol000Yoo`04001oogooOol20005 Ool00`00Oomoo`0:Ool00`0OOomoo`3kOol000Moo`04001oogoo0003Ool00`00Oomoo`04Ool00`00 Oomoo`0:Ool00`0OOomoo`3kOol000Moo`@000=oo`<000Aoo`03001oogoo00Uoo`0301moogoo0?ao o`005Goo00<007ooOol02Goo00<07gooOol0o7oo000EOol2000:Ool00`0OOomoo`3lOol001Eoo`03 001oogoo00Qoo`0301moogoo0?eoo`005Goo00<007ooOol027oo00<07gooOol0oGoo000EOol00`00 Oomoo`07Ool00`0OOomoo`3nOol001Eoo`8000Qoo`0301moogoo0?ioo`005Goo00<007ooOol01goo 00<07gooOol0oWoo000EOol00`00Oomoo`07Ool00`0OOomoo`3nOol001Eoo`03001oogoo00Ioo`03 01moogoo0?moo`005Goo00<007ooOol01Woo00<07gooOol0ogoo000EOol20007Ool00`0OOomoo`3o Ool001Eoo`03001oogoo00Ioo`0301moogoo0?moo`005Goo00<007ooOol01Goo00<07gooOol0ogoo 0Goo000EOol00`00Oomoo`05Ool00`0OOomoo`3oOol1Ool001Eoo`8000Ioo`0301moogoo0?moo`5o o`005Goo00<007ooOol01Goo00<07gooOol0ogoo0Goo000EOol00`00Oomoo`04Ool00`0OOomoo`3o Ool2Ool000Qoo`8000Aoo`8000Eoo`03001oogoo00Aoo`0301moogoo0?moo`9oo`001goo00@007oo Ool0009oo`04001oogoo0004Ool00`00Oomoo`03Ool00`0OOomoo`3oOol3Ool000Moo`04001oogoo 0002Ool01000Oomoo`0017oo0`000goo00<07gooOol0ogoo0goo0008Ool20003Ool01000Oomoo`00 17oo00<007ooOol00goo00<07gooOol0ogoo0goo0007Ool01000Oomoo`000Woo00@007ooOol000Ao o`03001oogoo00=oo`0301moogoo0?moo`=oo`0027oo0P0017oo0P001Goo00<007ooOol00Woo00<0 7gooOol0ogoo17oo000EOol20003Ool00`0OOomoo`3oOol4Ool001Eoo`03001oogoo009oo`0301mo ogoo0?moo`Aoo`005Goo00<007ooOol00Woo00<07gooOol0ogoo17oo000EOol00`00Oomoo`02Ool0 0`0OOomoo`3oOol4Ool001Eoo`03001oogoo009oo`0301moogoo0?moo`Aoo`005Goo0P000goo00<0 7gooOol0ogoo17oo000EOol00`00Oomoo`02Ool00`0OOomoo`3oOol4Ool001Eoo`05001oogooOol0 7`3oOol7Ool001Eoo`05001oogooOol07`3oOol7Ool001Eoo`80009oo`0301moogoo0?moo`Eoo`00 5Goo00D007ooOomoo`0O0?moo`Moo`005Goo00D007ooOomoo`0O0?moo`Moo`005Goo00D007ooOomo o`0O0?moo`Moo`005Goo00D007ooOomoo`0O0?moo`Moo`005Goo0P0000=oo`0OOol0ogoo1goo000E Ool01000Oomoo`0Oogoo27oo0008Ool20004Ool20005Ool01000Oomoo`0Oogoo27oo0007Ool01000 Oomoo`000Woo00@007ooOol000Aoo`04001oogoo01ooOol8Ool000Moo`04001oogoo0005Ool00`00 Oomoo`02Ool300000`0OOomoo`3oOol6Ool000Qoo`8000Aoo`8000Eoo`04001oogoo01ooOol8Ool0 00Moo`04001oogoo0003Ool00`00Oomoo`04Ool01000Oomoo`0Oogoo27oo0008Ool20004Ool30004 Ool00`00Ool07`3oOol9Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo0P0000<07gooOol0ogoo1goo 000EOol00`00Ool07`3oOol9Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo00<007oo01l0ogoo2Goo 000EOol200000`0OOomoo`3oOol7Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo00<007oo01l0ogoo 2Goo000EOol00`00Ool07`3oOol9Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo0P0000<07gooOol0 ogoo1goo000EOol00`00Ool07`3oOol9Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo00<007oo01l0 ogoo2Goo000EOol200000`0OOomoo`3oOol7Ool001Eoo`03001oo`0O0?moo`Uoo`005Goo00<007oo 01l0ogoo2Goo0007Ool30004Ool20005Ool00`00Ool07`3oOol9Ool000Uoo`05001oogooOol00002 Ool00`00Oomoo`02Ool00`0001moo`3oOol9Ool000Qoo`<0009oo`04001oogoo0004Ool00`0001l0 003oOol9Ool000Moo`04001oogoo0002Ool01000Oomoo`0017oo00<0000OOol0ogoo2Goo0007Ool0 1000Oomoo`000Woo00@007ooOol000Aoo`0300007goo0?moo`Uoo`0027oo0`000goo0P001Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool001Eoo`0300007goo0?moo`Uoo`005Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool001Eoo`0300007goo0?moo`Uoo`005Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool001Eoo`0300007goo0?moo`Uoo`005Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool001Eoo`0300007goo0?moo`Uoo`005Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool001Eoo`0300007goo0?moo`Uoo`005Goo00<0 000OOol0ogoo2Goo000EOol00`0001moo`3oOol9Ool000Moo`<000Aoo`8000Eoo`0300007goo0?mo o`Uoo`002Goo00D007ooOomoo`00009oo`03001oogoo009oo`0301moogoo0?moo`Uoo`0027oo0`00 1Goo00<007ooOol00Woo00<07`000000ogoo2Goo0007Ool01000Oomoo`000goo0P001Goo00<07goo Ool0ogoo2Goo0007Ool01000Oomoo`000goo00<007ooOol017oo00<07gooOol0ogoo2Goo0008Ool3 0003Ool30004Ool00`0OOomoo`3oOol9Ool001Eoo`0301l007oo0?moo`Uoo`005Goo00<07gooOol0 ogoo2Goo000EOol00`0OOomoo`3oOol9Ool001Eoo`0301moogoo0?moo`Uoo`005Goo00<07gooOol0 ogoo2Goo000EOol00`0O001oo`3oOol9Ool001Eoo`0301moogoo0?moo`Uoo`005Goo00<07gooOol0 ogoo2Goo000EOol00`0OOomoo`3oOol9Ool001Eoo`0301l007oo0?moo`Uoo`005Goo00<07gooOol0 ogoo2Goo000EOol00`0OOomoo`3oOol9Ool001Eoo`0301moogoo0?moo`Uoo`005Goo00<07gooOol0 ogoo2Goo000EOol00`0O001oo`3oOol9Ool001Eoo`0301moogoo0?moo`Uoo`0000=oo`0000000`00 0Woo0P0017oo0P001Goo00<07gooOol0ogoo2Goo0003Ool01@00Oomoogoo00000Woo00@007ooOol0 009oo`03001oogoo009oo`0301moogoo0?moo`Uoo`000goo00D007ooOomoo`00009oo`04001oogoo 0002Ool00`00Oomoo`02Ool00`0O0000003oOol9Ool000=oo`05001oogooOol00002Ool01000Oomo o`000Woo00<007ooOol00Woo00<007ooOol0ogoo2Goo0003Ool01@00Oomoogoo00000Woo00@007oo Ool0009oo`03001oogoo009oo`03001oogoo0?moo`Uoo`000Woo0P0017oo0P0017oo0P001Goo00<0 07ooOol0ogoo2Goo000EOol00`00Oomoo`3oOol9Ool00?moob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, 61.884, 0.779333, \ 0.223111}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt10=Plot[Evaluate[T3[t]/.sol],{t,0,200},PlotStyle->RGBColor[1,0,1],\ PlotRange->All]\ \>", "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 0.00476191 -1.05804 0.0166384 [ [.2619 .01095 -6 -9 ] [.2619 .01095 6 0 ] [.5 .01095 -9 -9 ] [.5 .01095 9 0 ] [.7381 .01095 -9 -9 ] [.7381 .01095 9 0 ] [.97619 .01095 -9 -9 ] [.97619 .01095 9 0 ] [.01131 .10665 -12 -4.5 ] [.01131 .10665 0 4.5 ] [.01131 .18984 -12 -4.5 ] [.01131 .18984 0 4.5 ] [.01131 .27303 -12 -4.5 ] [.01131 .27303 0 4.5 ] [.01131 .35622 -12 -4.5 ] [.01131 .35622 0 4.5 ] [.01131 .43941 -12 -4.5 ] [.01131 .43941 0 4.5 ] [.01131 .52261 -12 -4.5 ] [.01131 .52261 0 4.5 ] [.01131 .6058 -18 -4.5 ] [.01131 .6058 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 .2619 .02345 m .2619 .0297 L s [(50)] .2619 .01095 0 1 Mshowa .5 .02345 m .5 .0297 L s [(100)] .5 .01095 0 1 Mshowa .7381 .02345 m .7381 .0297 L s [(150)] .7381 .01095 0 1 Mshowa .97619 .02345 m .97619 .0297 L s [(200)] .97619 .01095 0 1 Mshowa .125 Mabswid .07143 .02345 m .07143 .0272 L s .11905 .02345 m .11905 .0272 L s .16667 .02345 m .16667 .0272 L s .21429 .02345 m .21429 .0272 L s .30952 .02345 m .30952 .0272 L s .35714 .02345 m .35714 .0272 L s .40476 .02345 m .40476 .0272 L s .45238 .02345 m .45238 .0272 L s .54762 .02345 m .54762 .0272 L s .59524 .02345 m .59524 .0272 L s .64286 .02345 m .64286 .0272 L s .69048 .02345 m .69048 .0272 L s .78571 .02345 m .78571 .0272 L s .83333 .02345 m .83333 .0272 L s .88095 .02345 m .88095 .0272 L s .92857 .02345 m .92857 .0272 L s .25 Mabswid 0 .02345 m 1 .02345 L s .02381 .10665 m .03006 .10665 L s [(70)] .01131 .10665 1 0 Mshowa .02381 .18984 m .03006 .18984 L s [(75)] .01131 .18984 1 0 Mshowa .02381 .27303 m .03006 .27303 L s [(80)] .01131 .27303 1 0 Mshowa .02381 .35622 m .03006 .35622 L s [(85)] .01131 .35622 1 0 Mshowa .02381 .43941 m .03006 .43941 L s [(90)] .01131 .43941 1 0 Mshowa .02381 .52261 m .03006 .52261 L s [(95)] .01131 .52261 1 0 Mshowa .02381 .6058 m .03006 .6058 L s [(100)] .01131 .6058 1 0 Mshowa .125 Mabswid .02381 .04009 m .02756 .04009 L s .02381 .05673 m .02756 .05673 L s .02381 .07337 m .02756 .07337 L s .02381 .09001 m .02756 .09001 L s .02381 .12328 m .02756 .12328 L s .02381 .13992 m .02756 .13992 L s .02381 .15656 m .02756 .15656 L s .02381 .1732 m .02756 .1732 L s .02381 .20648 m .02756 .20648 L s .02381 .22311 m .02756 .22311 L s .02381 .23975 m .02756 .23975 L s .02381 .25639 m .02756 .25639 L s .02381 .28967 m .02756 .28967 L s .02381 .30631 m .02756 .30631 L s .02381 .32295 m .02756 .32295 L s .02381 .33958 m .02756 .33958 L s .02381 .37286 m .02756 .37286 L s .02381 .3895 m .02756 .3895 L s .02381 .40614 m .02756 .40614 L s .02381 .42278 m .02756 .42278 L s .02381 .45605 m .02756 .45605 L s .02381 .47269 m .02756 .47269 L s .02381 .48933 m .02756 .48933 L s .02381 .50597 m .02756 .50597 L s .02381 .53924 m .02756 .53924 L s .02381 .55588 m .02756 .55588 L s .02381 .57252 m .02756 .57252 L s .02381 .58916 m .02756 .58916 L s .02381 .00682 m .02756 .00682 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 1 r .5 Mabswid .02381 .60332 m .02499 .5337 L .02605 .4714 L .02729 .42055 L .02846 .38566 L .03053 .3418 L .0317 .32347 L .03279 .3093 L .03506 .2856 L .03756 .26599 L .04017 .25022 L .04262 .23842 L .04761 .2201 L .05217 .20752 L .06244 .18643 L .10458 .11995 L .12517 .09015 L .14429 .06742 L .16277 .05089 L .17311 .0438 L .18248 .03852 L .20173 .03045 L .21257 .02719 L .22255 .02481 L .24137 .02154 L .25206 .02021 L .26204 .01922 L .27249 .01839 L .28239 .01776 L .30094 .01688 L .3106 .01654 L .32085 .01625 L .33927 .01584 L .34864 .01568 L .35874 .01554 L .37702 .01534 L .39706 .01518 L .41816 .01506 L .43791 .01498 L .45627 .01492 L .47673 .01488 L .49532 .01484 L .5145 .01481 L .5353 .01479 L .55518 .01477 L .57622 .01476 L .61411 .01474 L .63355 .01474 L .65445 .01473 L .67562 .01473 L Mistroke .69572 .01472 L .71557 .01472 L .73397 .01472 L .75453 .01472 L .77315 .01472 L .7832 .01472 L .79243 .01472 L .80257 .01472 L .80767 .01472 L .81327 .01472 L .81853 .01472 L .82111 .01472 L .8235 .01472 L .82562 .01472 L .82796 .01472 L .83032 .01472 L .83161 .01472 L .83282 .01472 L .83404 .01472 L .83474 .01472 L .83538 .01472 L .83669 .01472 L .83741 .01472 L .83808 .01472 L .83927 .01472 L .84056 .01472 L .84177 .01472 L .84289 .01472 L .84541 .01472 L .84817 .01472 L .85374 .01472 L .85897 .01472 L .86393 .01472 L .87323 .01472 L .89414 .01472 L .91402 .01472 L .93243 .01472 L .97167 .01472 L .97619 .01472 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgUoo`005Goo0P0077oo00=l7gooOol0jWoo000EOol00`00Oomoo`0JOol00g`O Oomoo`3[Ool001Eoo`03001oogoo01Yoo`03O1moogoo0>]oo`005Goo00<007ooOol06Goo00=l7goo Ool0k7oo000EOol2000IOol00g`OOomoo`3]Ool001Eoo`03001oogoo01Moo`03O1moogoo0>ioo`00 5Goo00<007ooOol05goo00=l7gooOol0kWoo0009Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`0F Ool00g`OOomoo`3_Ool000Uoo`05001oogooOol00002Ool00`00Oomoo`02Ool00`00Oomoo`0FOol0 0g`OOomoo`3_Ool000Uoo`05001oogooOol00002Ool00`00Oomoo`02Ool3000EOol00g`OOomoo`3` Ool000Yoo`04001oogoo0002Ool00`00Oomoo`02Ool00`00Oomoo`0EOol00g`OOomoo`3`Ool000Mo o`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol057oo00=l7gooOol0lGoo0007Ool40003 Ool20005Ool00`00Oomoo`0DOol00g`OOomoo`3aOol001Eoo`8001Aoo`03O1moogoo0?9oo`005Goo 00<007ooOol04Woo00=l7gooOol0lgoo000EOol00`00Oomoo`0BOol00g`OOomoo`3cOol001Eoo`03 001oogoo015oo`03O1moogoo0?Aoo`005Goo00<007ooOol047oo00=l7gooOol0mGoo000EOol2000@ Ool00g`OOomoo`3fOol001Eoo`03001oogoo00moo`03O1moogoo0?Ioo`005Goo00<007ooOol03Woo 00=l7gooOol0mgoo000EOol00`00Oomoo`0=Ool00g`OOomoo`3hOol001Eoo`8000ioo`03O1moogoo 0?Qoo`005Goo00<007ooOol037oo00=l7gooOol0nGoo000EOol00`00Oomoo`0;Ool00g`OOomoo`3j Ool001Eoo`03001oogoo00]oo`03O1moogoo0?Yoo`005Goo00<007ooOol02Woo00=l7gooOol0ngoo 000EOol2000:Ool00g`OOomoo`3lOol001Eoo`03001oogoo00Qoo`03O1moogoo0?eoo`002Goo00<0 07ooOol00Woo0P001Goo00<007ooOol027oo00=l7gooOol0oGoo0009Ool01@00Oomoogoo00000Woo 00<007ooOol00Woo00<007ooOol01goo00=l7gooOol0oWoo0009Ool00`00Oomoo`04Ool00`00Oomo o`02Ool30007Ool00g`OOomoo`3nOol000Yoo`04001oogooOol20005Ool00`00Oomoo`06Ool00g`O Oomoo`3oOol000Moo`04001oogoo0003Ool00`00Oomoo`04Ool00`00Oomoo`06Ool00g`OOomoo`3o Ool000Moo`@000=oo`<000Aoo`03001oogoo00Ioo`03O1moogoo0?moo`005Goo00<007ooOol01Goo 00=l7gooOol0ogoo0Goo000EOol20006Ool00g`OOomoo`3oOol1Ool001Eoo`03001oogoo00Aoo`03 O1moogoo0?moo`9oo`005Goo00<007ooOol017oo00=l7gooOol0ogoo0Woo000EOol00`00Oomoo`03 Ool00g`OOomoo`3oOol3Ool001Eoo`8000Aoo`03O1moogoo0?moo`=oo`005Goo00<007ooOol00goo 00=l7gooOol0ogoo0goo000EOol00`00Oomoo`02Ool00g`OOomoo`3oOol4Ool001Eoo`03001oogoo 009oo`03O1moogoo0?moo`Aoo`005Goo00<007ooOol00Woo00=l7gooOol0ogoo17oo000EOol20003 Ool00g`OOomoo`3oOol4Ool001Eoo`05001oogooOoml7`3oOol7Ool001Eoo`05001oogooOoml7`3o Ool7Ool001Eoo`05001oogooOoml7`3oOol7Ool001Eoo`80009oo`03O1moogoo0?moo`Eoo`005Goo 00D007ooOomoog`O0?moo`Moo`005Goo00D007ooOomoog`O0?moo`Moo`0027oo0P0017oo0P001Goo 00D007ooOomoog`O0?moo`Moo`001goo00@007ooOol0009oo`04001oogoo0004Ool01@00Oomoogoo O1l0ogoo1goo0007Ool01000Oomoo`000Woo00@007ooOol000Aoo`<00003Ooml7goo0?moo`Ioo`00 27oo0P000goo00@007ooOol000Aoo`04001oogooO1ooOol8Ool000Moo`04001oogoo0002Ool01000 Oomoo`0017oo00@007ooOoml7omoo`Qoo`0027oo0P0017oo0P001Goo00@007ooOoml7omoo`Qoo`00 5Goo0P0000=oog`OOol0ogoo1goo000EOol01000Oomoog`Oogoo27oo000EOol01000Oomoog`Oogoo 27oo000EOol00`00Ooml7`3oOol9Ool001Eoo`03001oog`O0?moo`Uoo`005Goo0P0000=l7gooOol0 ogoo1goo000EOol00`00Ooml7`3oOol9Ool001Eoo`03001oog`O0?moo`Uoo`005Goo00<007ooO1l0 ogoo2Goo000EOol200000g`OOomoo`3oOol7Ool001Eoo`03001oog`O0?moo`Uoo`005Goo00<007oo O1l0ogoo2Goo000EOol00`00Ooml7`3oOol9Ool001Eoo`03001oog`O0?moo`Uoo`005Goo0P0000=l 7gooOol0ogoo1goo000EOol00`00Ooml7`3oOol9Ool000Qoo`8000Aoo`8000Eoo`03001oog`O0?mo o`Uoo`001goo00@007ooOol0009oo`04001oogoo0004Ool00`00Ooml7`3oOol9Ool000Moo`04001o ogoo0005Ool00`00Oomoo`02Ool200000g`OOomoo`3oOol7Ool000Qoo`8000Aoo`8000Eoo`03001o og`O0?moo`Uoo`001goo00@007ooOol000=oo`03001oogoo00Aoo`03001l7goo0?moo`Uoo`0027oo 0P0017oo0`0017oo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`005Goo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`005Goo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`005Goo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`005Goo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`005Goo00<007`OOol0ogoo2Goo000EOol00`00O1moo`3oOol9Ool001Eoo`03001l7goo 0?moo`Uoo`001goo0`0017oo0P001Goo00<007`OOol0ogoo2Goo0009Ool01@00Oomoogoo00000Woo 00<007ooOol00Woo00<007`OOol0ogoo2Goo0008Ool30002Ool01000Oomoo`0017oo00<007`O0000 ogoo2Goo0007Ool01000Oomoo`000Woo00@007ooOol000Aoo`03001l7goo0?moo`Uoo`001goo00@0 07ooOol0009oo`04001oogoo0004Ool00g`OOomoo`3oOol9Ool000Qoo`<000=oo`8000Eoo`03O1mo ogoo0?moo`Uoo`005Goo00=l7`00Ool0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1mo ogoo0?moo`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1l0 07oo0?moo`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1mo ogoo0?moo`Uoo`005Goo00=l7`00Ool0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1mo ogoo0?moo`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1l0 07oo0?moo`Uoo`005Goo00=l7gooOol0ogoo2Goo0007Ool30004Ool20005Ool00g`OOomoo`3oOol9 Ool000Uoo`05001oogooOol00002Ool00`00Oomoo`02Ool00g`OOomoo`3oOol9Ool000Qoo`<000Eo o`03001oogoo009oo`03O1l000000?moo`Uoo`001goo00@007ooOol000=oo`8000Eoo`03O1moogoo 0?moo`Uoo`001goo00@007ooOol000=oo`03001oogoo00Aoo`03O1moogoo0?moo`Uoo`0027oo0`00 0goo0`0017oo00=l7gooOol0ogoo2Goo000EOol00g`O001oo`3oOol9Ool001Eoo`03O1moogoo0?mo o`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1moogoo0?mo o`Uoo`005Goo00=l7`00Ool0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1moogoo0?mo o`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`O001oo`3oOol9Ool001Eoo`03O1moogoo0?mo o`Uoo`005Goo00=l7gooOol0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool001Eoo`03O1moogoo0?mo o`Uoo`005Goo00=l7`00Ool0ogoo2Goo000EOol00g`OOomoo`3oOol9Ool00003Ool0000000<0009o o`8000Aoo`8000Eoo`03O1moogoo0?moo`Uoo`000goo00D007ooOomoo`00009oo`04001oogoo0002 Ool00`00Oomoo`02Ool00g`OOomoo`3oOol9Ool000=oo`05001oogooOol00002Ool01000Oomoo`00 0Woo00<007ooOol00Woo00=l7`000000ogoo2Goo0003Ool01@00Oomoogoo00000Woo00@007ooOol0 009oo`03001oogoo009oo`03001oogoo0?moo`Uoo`000goo00D007ooOomoo`00009oo`04001oogoo 0002Ool00`00Oomoo`02Ool00`00Oomoo`3oOol9Ool0009oo`8000Aoo`8000Aoo`8000Eoo`03001o ogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo003oOolQOol00?moob5oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, 61.8898, 0.779333, \ 0.223045}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt11=Plot[Evaluate[T4[t]/.sol],{t,0,200},PlotStyle->RGBColor[0.75,1,0],\ PlotRange->All]\ \>", "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 0.00476191 -1.0653 0.0167112 [ [.2619 .00843 -6 -9 ] [.2619 .00843 6 0 ] [.5 .00843 -9 -9 ] [.5 .00843 9 0 ] [.7381 .00843 -9 -9 ] [.7381 .00843 9 0 ] [.97619 .00843 -9 -9 ] [.97619 .00843 9 0 ] [.01131 .10449 -12 -4.5 ] [.01131 .10449 0 4.5 ] [.01131 .18804 -12 -4.5 ] [.01131 .18804 0 4.5 ] [.01131 .2716 -12 -4.5 ] [.01131 .2716 0 4.5 ] [.01131 .35515 -12 -4.5 ] [.01131 .35515 0 4.5 ] [.01131 .43871 -12 -4.5 ] [.01131 .43871 0 4.5 ] [.01131 .52227 -12 -4.5 ] [.01131 .52227 0 4.5 ] [.01131 .60582 -18 -4.5 ] [.01131 .60582 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 .2619 .02093 m .2619 .02718 L s [(50)] .2619 .00843 0 1 Mshowa .5 .02093 m .5 .02718 L s [(100)] .5 .00843 0 1 Mshowa .7381 .02093 m .7381 .02718 L s [(150)] .7381 .00843 0 1 Mshowa .97619 .02093 m .97619 .02718 L s [(200)] .97619 .00843 0 1 Mshowa .125 Mabswid .07143 .02093 m .07143 .02468 L s .11905 .02093 m .11905 .02468 L s .16667 .02093 m .16667 .02468 L s .21429 .02093 m .21429 .02468 L s .30952 .02093 m .30952 .02468 L s .35714 .02093 m .35714 .02468 L s .40476 .02093 m .40476 .02468 L s .45238 .02093 m .45238 .02468 L s .54762 .02093 m .54762 .02468 L s .59524 .02093 m .59524 .02468 L s .64286 .02093 m .64286 .02468 L s .69048 .02093 m .69048 .02468 L s .78571 .02093 m .78571 .02468 L s .83333 .02093 m .83333 .02468 L s .88095 .02093 m .88095 .02468 L s .92857 .02093 m .92857 .02468 L s .25 Mabswid 0 .02093 m 1 .02093 L s .02381 .10449 m .03006 .10449 L s [(70)] .01131 .10449 1 0 Mshowa .02381 .18804 m .03006 .18804 L s [(75)] .01131 .18804 1 0 Mshowa .02381 .2716 m .03006 .2716 L s [(80)] .01131 .2716 1 0 Mshowa .02381 .35515 m .03006 .35515 L s [(85)] .01131 .35515 1 0 Mshowa .02381 .43871 m .03006 .43871 L s [(90)] .01131 .43871 1 0 Mshowa .02381 .52227 m .03006 .52227 L s [(95)] .01131 .52227 1 0 Mshowa .02381 .60582 m .03006 .60582 L s [(100)] .01131 .60582 1 0 Mshowa .125 Mabswid .02381 .03764 m .02756 .03764 L s .02381 .05435 m .02756 .05435 L s .02381 .07106 m .02756 .07106 L s .02381 .08777 m .02756 .08777 L s .02381 .1212 m .02756 .1212 L s .02381 .13791 m .02756 .13791 L s .02381 .15462 m .02756 .15462 L s .02381 .17133 m .02756 .17133 L s .02381 .20475 m .02756 .20475 L s .02381 .22146 m .02756 .22146 L s .02381 .23818 m .02756 .23818 L s .02381 .25489 m .02756 .25489 L s .02381 .28831 m .02756 .28831 L s .02381 .30502 m .02756 .30502 L s .02381 .32173 m .02756 .32173 L s .02381 .33844 m .02756 .33844 L s .02381 .37187 m .02756 .37187 L s .02381 .38858 m .02756 .38858 L s .02381 .40529 m .02756 .40529 L s .02381 .422 m .02756 .422 L s .02381 .45542 m .02756 .45542 L s .02381 .47213 m .02756 .47213 L s .02381 .48884 m .02756 .48884 L s .02381 .50556 m .02756 .50556 L s .02381 .53898 m .02756 .53898 L s .02381 .55569 m .02756 .55569 L s .02381 .5724 m .02756 .5724 L s .02381 .58911 m .02756 .58911 L s .02381 .00422 m .02756 .00422 L s .25 Mabswid .02381 0 m .02381 .61803 L s .75 1 0 r .5 Mabswid .02381 .60332 m .02499 .40669 L .02605 .33657 L .02729 .28955 L .02846 .2602 L .02954 .24025 L .03053 .22576 L .03279 .20174 L .03396 .1924 L .03506 .18499 L .03756 .17162 L .04 .16183 L .04262 .15365 L .04516 .14736 L .04793 .14179 L .05297 .13398 L .05788 .12823 L .06244 .12387 L .10458 .0927 L .14371 .06147 L .16368 .04814 L .17419 .0424 L .18529 .0373 L .19524 .03349 L .20616 .03005 L .22536 .02552 L .23556 .02373 L .24487 .02239 L .25573 .0211 L .26578 .02012 L .28487 .01871 L .29493 .01814 L .30563 .01763 L .3251 .01692 L .34338 .01642 L .36356 .01601 L .38207 .01573 L .40099 .01551 L .42169 .01532 L .4413 .01518 L .46225 .01507 L .4836 .01498 L .50375 .01491 L .52376 .01486 L .54221 .01482 L .56098 .01479 L .58162 .01477 L .60107 .01475 L .62196 .01474 L .63209 .01473 L Mistroke .64313 .01473 L .65368 .01472 L .66323 .01472 L .67339 .01472 L .68295 .01472 L .6882 .01472 L .69303 .01472 L .69556 .01472 L .69834 .01472 L .69974 .01472 L .70123 .01472 L .70196 .01472 L .70265 .01472 L .70393 .01472 L .70508 .01472 L .70631 .01472 L .70747 .01472 L .70854 .01472 L .70972 .01472 L .71101 .01472 L .71236 .01472 L .71361 .01472 L .71622 .01472 L .71858 .01472 L .72388 .01472 L .72844 .01472 L .73337 .01472 L .74231 .01472 L .76223 .01472 L .78328 .01473 L .82122 .01474 L .86162 .01475 L .90049 .01476 L .94182 .01478 L .97619 .0148 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOom4000;Gn30 0003Ool001Eoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03 001ooeoP00MOh0=oo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Moo`005Goo00<007ooOol0<7oo0UoP2goo00<007ooOol0?Goo 00<007ooOol0?Goo00<007ooOol0?Woo00<007ooOol01goo000EOol00`00Oomoo`0]Ool3Gn3HOol0 01Eoo`03001oogoo02Yoo`=Oh=]oo`005Goo0P00:7oo0eoPgWoo000EOol00`00Oomoo`0UOol2Gn3Q Ool001Eoo`03001oogoo02=oo`9Oh>=oo`005Goo00<007ooOol08Goo0UoPiGoo000EOol2000QOol0 0eoPOomoo`3UOol001Eoo`03001oogoo01ioo`9Oh>Qoo`005Goo00<007ooOol07Goo00=Oh7ooOol0 j7oo000EOol00`00Oomoo`0LOol00eoPOomoo`3YOol001Eoo`03001oogoo01]oo`03Gn1oogoo0>Yo o`005Goo0P006goo00=Oh7ooOol0jgoo000EOol00`00Oomoo`0IOol00eoPOomoo`3/Ool001Eoo`03 001oogoo01Moo`9Oh>moo`005Goo00<007ooOol05Woo00=Oh7ooOol0kgoo000EOol2000FOol00eoP Oomoo`3`Ool001Eoo`03001oogoo01Aoo`03Gn1oogoo0?5oo`005Goo00<007ooOol04goo00=Oh7oo Ool0lWoo0009Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`0AOol2Gn3eOol000Uoo`05001oogoo Ool00002Ool00`00Oomoo`02Ool00`00Oomoo`0@Ool00eoPOomoo`3eOol000Uoo`05001oogooOol0 0002Ool00`00Oomoo`02Ool3000>Ool2Gn3hOol000Yoo`04001oogoo0002Ool00`00Oomoo`02Ool0 0`00Oomoo`0=Ool00eoPOomoo`3hOol000Moo`04001oogoo0002Ool01000Oomoo`0017oo00<007oo Ool02goo0UoPngoo0007Ool40003Ool20005Ool00`00Oomoo`0:Ool00eoPOomoo`3kOol001Eoo`80 00Uoo`9Oh?ioo`005Goo00<007ooOol01goo00=Oh7ooOol0oWoo000EOol00`00Oomoo`06Ool00eoP Oomoo`3oOol001Eoo`03001oogoo00Eoo`03Gn1oogoo0?moo`5oo`005Goo00<007ooOol01Goo00=O h7ooOol0ogoo0Goo000EOol20005Ool00eoPOomoo`3oOol2Ool001Eoo`03001oogoo00=oo`03Gn1o ogoo0?moo`=oo`005Goo00<007ooOol00goo00=Oh7ooOol0ogoo0goo000EOol00`00Oomoo`02Ool0 0eoPOomoo`3oOol4Ool001Eoo`8000=oo`03Gn1oogoo0?moo`Aoo`005Goo00D007ooOomooeoP0?mo o`Moo`005Goo00D007ooOomooeoP0?moo`Moo`005Goo00D007ooOomooeoP0?moo`Moo`005Goo00D0 07ooOomooeoP0?moo`Moo`005Goo0P000Woo00=Oh7ooOol0ogoo1Goo000EOol01@00OomoogooGn00 ogoo1goo0009Ool00`00Oomoo`02Ool20005Ool01000OomooeoPogoo27oo0009Ool01@00Oomoogoo 00000Woo00<007ooOol00Woo00@007ooOomOh?moo`Qoo`002Goo00<007ooOol017oo00<007ooOol0 0Woo0`0000=Oh7ooOol0ogoo1Woo000:Ool01000Oomoogoo0P001Goo00@007ooOomOh?moo`Qoo`00 1goo00@007ooOol000=oo`03001oogoo00Aoo`04001oogooGn3oOol8Ool000Moo`@000=oo`<000Ao o`03001ooeoP0?moo`Uoo`005Goo00<007ooGn00ogoo2Goo000EOol200000eoPOomoo`3oOol7Ool0 01Eoo`03001ooeoP0?moo`Uoo`005Goo00<007ooGn00ogoo2Goo000EOol00`00OomOh03oOol9Ool0 01Eoo`800003Gn1oogoo0?moo`Moo`005Goo00<007ooGn00ogoo2Goo000EOol00`00OomOh03oOol9 Ool001Eoo`03001Oh7oo0?moo`Uoo`005Goo00<005oPOol0ogoo2Goo000EOol00`00Gn1oo`3oOol9 Ool001Eoo`03001Oh7oo0?moo`Uoo`005Goo00<005oPOol0ogoo2Goo000EOol00`00Gn1oo`3oOol9 Ool001Eoo`03001Oh7oo0?moo`Uoo`005Goo00<005oPOol0ogoo2Goo000EOol00`00Gn1oo`3oOol9 Ool000Qoo`8000Aoo`8000Eoo`03001Oh7oo0?moo`Uoo`001goo00@007ooOol0009oo`04001oogoo 0004Ool00`00Gn1oo`3oOol9Ool000Moo`04001oogoo0002Ool01000Oomoo`0017oo00<005oP0000 ogoo2Goo0008Ool20003Ool01000Oomoo`0017oo00<005oPOol0ogoo2Goo0007Ool01000Oomoo`00 0Woo00@007ooOol000Aoo`03001Oh7oo0?moo`Uoo`0027oo0P0017oo0P001Goo00<005oPOol0ogoo 2Goo000EOol00`00Gn1oo`3oOol9Ool001Eoo`03001Oh7oo0?moo`Uoo`005Goo00<005oPOol0ogoo 2Goo000EOol00`00Gn1oo`3oOol9Ool001Eoo`03001Oh7oo0?moo`Uoo`005Goo00<005oPOol0ogoo 2Goo000EOol00`00Gn1oo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=Oh7ooOol0ogoo 2Goo000EOol00eoP001oo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=Oh7ooOol0ogoo 2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=Oh000Ool0ogoo 2Goo000EOol00eoPOomoo`3oOol9Ool000Qoo`8000Aoo`8000Eoo`03Gn1oogoo0?moo`Uoo`001goo 00@007ooOol0009oo`04001oogoo0004Ool00eoPOomoo`3oOol9Ool000Moo`04001oogoo0005Ool0 0`00Oomoo`02Ool00eoP0000003oOol9Ool000Qoo`8000Aoo`8000Eoo`03Gn1oogoo0?moo`Uoo`00 1goo00@007ooOol000=oo`03001oogoo00Aoo`03Gn1oogoo0?moo`Uoo`0027oo0P0017oo0`0017oo 00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`005Goo 00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo 00=Oh000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo 00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`005Goo 00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo 00=Oh000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`001goo 0`0017oo0P001Goo00=Oh7ooOol0ogoo2Goo0009Ool01@00Oomoogoo00000Woo00<007ooOol00Woo 00=Oh7ooOol0ogoo2Goo0008Ool30002Ool01000Oomoo`0017oo00=Oh0000000ogoo2Goo0007Ool0 1000Oomoo`000Woo00@007ooOol000Aoo`03Gn1oogoo0?moo`Uoo`001goo00@007ooOol0009oo`04 001oogoo0004Ool00eoPOomoo`3oOol9Ool000Qoo`<000=oo`8000Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`00 5Goo00=Oh7ooOol0ogoo2Goo0007Ool30004Ool20005Ool00eoPOomoo`3oOol9Ool000Uoo`05001o ogooOol00002Ool00`00Oomoo`02Ool00eoPOomoo`3oOol9Ool000Qoo`<000Eoo`03001oogoo009o o`03Gn0000000?moo`Uoo`001goo00@007ooOol000=oo`8000Eoo`03Gn1oogoo0?moo`Uoo`001goo 00@007ooOol000=oo`03001oogoo00Aoo`03Gn1oogoo0?moo`Uoo`0027oo0`000goo0`0017oo00=O h7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`005Goo00=O h7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=O h000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=O h7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn0007oo0?moo`Uoo`005Goo00=O h7ooOol0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`005Goo00=O h000Ool0ogoo2Goo000EOol00eoPOomoo`3oOol9Ool001Eoo`03Gn1oogoo0?moo`Uoo`0000=oo`00 00000`000Woo0P0017oo0P001Goo00=Oh7ooOol0ogoo2Goo0003Ool01@00Oomoogoo00000Woo00@0 07ooOol0009oo`03001oogoo009oo`03Gn1oogoo0?moo`Uoo`000goo00D007ooOomoo`00009oo`04 001oogoo0002Ool00`00Oomoo`02Ool3003oOol9Ool000=oo`05001oogooOol00002Ool01000Oomo o`000Woo00<007ooOol00Woo00<007ooOol0ogoo2Goo0003Ool01@00Oomoogoo00000Woo00@007oo Ool0009oo`03001oogoo009oo`03001oogoo0?moo`Uoo`000Woo0P0017oo0P0017oo0P001Goo00<0 07ooOol0ogoo2Goo003oOolQOol00?moob5oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, 61.9798, 0.779333, \ 0.222073}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt12=Plot[Evaluate[TB[t]/.sol],{t,0,200},PlotStyle->RGBColor[0.75,0.75,0],\ PlotRange->All]\ \>", "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 0.00476191 -51.2219 0.785915 [ [.2619 .00726 -6 -9 ] [.2619 .00726 6 0 ] [.5 .00726 -9 -9 ] [.5 .00726 9 0 ] [.7381 .00726 -9 -9 ] [.7381 .00726 9 0 ] [.97619 .00726 -9 -9 ] [.97619 .00726 9 0 ] [.01131 .09835 -24 -4.5 ] [.01131 .09835 0 4.5 ] [.01131 .17695 -24 -4.5 ] [.01131 .17695 0 4.5 ] [.01131 .25554 -24 -4.5 ] [.01131 .25554 0 4.5 ] [.01131 .33413 -24 -4.5 ] [.01131 .33413 0 4.5 ] [.01131 .41272 -24 -4.5 ] [.01131 .41272 0 4.5 ] [.01131 .49131 -24 -4.5 ] [.01131 .49131 0 4.5 ] [.01131 .5699 -24 -4.5 ] [.01131 .5699 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 .2619 .01976 m .2619 .02601 L s [(50)] .2619 .00726 0 1 Mshowa .5 .01976 m .5 .02601 L s [(100)] .5 .00726 0 1 Mshowa .7381 .01976 m .7381 .02601 L s [(150)] .7381 .00726 0 1 Mshowa .97619 .01976 m .97619 .02601 L s [(200)] .97619 .00726 0 1 Mshowa .125 Mabswid .07143 .01976 m .07143 .02351 L s .11905 .01976 m .11905 .02351 L s .16667 .01976 m .16667 .02351 L s .21429 .01976 m .21429 .02351 L s .30952 .01976 m .30952 .02351 L s .35714 .01976 m .35714 .02351 L s .40476 .01976 m .40476 .02351 L s .45238 .01976 m .45238 .02351 L s .54762 .01976 m .54762 .02351 L s .59524 .01976 m .59524 .02351 L s .64286 .01976 m .64286 .02351 L s .69048 .01976 m .69048 .02351 L s .78571 .01976 m .78571 .02351 L s .83333 .01976 m .83333 .02351 L s .88095 .01976 m .88095 .02351 L s .92857 .01976 m .92857 .02351 L s .25 Mabswid 0 .01976 m 1 .01976 L s .02381 .09835 m .03006 .09835 L s [(65.3)] .01131 .09835 1 0 Mshowa .02381 .17695 m .03006 .17695 L s [(65.4)] .01131 .17695 1 0 Mshowa .02381 .25554 m .03006 .25554 L s [(65.5)] .01131 .25554 1 0 Mshowa .02381 .33413 m .03006 .33413 L s [(65.6)] .01131 .33413 1 0 Mshowa .02381 .41272 m .03006 .41272 L s [(65.7)] .01131 .41272 1 0 Mshowa .02381 .49131 m .03006 .49131 L s [(65.8)] .01131 .49131 1 0 Mshowa .02381 .5699 m .03006 .5699 L s [(65.9)] .01131 .5699 1 0 Mshowa .125 Mabswid .02381 .03548 m .02756 .03548 L s .02381 .0512 m .02756 .0512 L s .02381 .06692 m .02756 .06692 L s .02381 .08264 m .02756 .08264 L s .02381 .11407 m .02756 .11407 L s .02381 .12979 m .02756 .12979 L s .02381 .14551 m .02756 .14551 L s .02381 .16123 m .02756 .16123 L s .02381 .19266 m .02756 .19266 L s .02381 .20838 m .02756 .20838 L s .02381 .2241 m .02756 .2241 L s .02381 .23982 m .02756 .23982 L s .02381 .27126 m .02756 .27126 L s .02381 .28697 m .02756 .28697 L s .02381 .30269 m .02756 .30269 L s .02381 .31841 m .02756 .31841 L s .02381 .34985 m .02756 .34985 L s .02381 .36557 m .02756 .36557 L s .02381 .38128 m .02756 .38128 L s .02381 .397 m .02756 .397 L s .02381 .42844 m .02756 .42844 L s .02381 .44416 m .02756 .44416 L s .02381 .45988 m .02756 .45988 L s .02381 .47559 m .02756 .47559 L s .02381 .50703 m .02756 .50703 L s .02381 .52275 m .02756 .52275 L s .02381 .53847 m .02756 .53847 L s .02381 .55419 m .02756 .55419 L s .02381 .00404 m .02756 .00404 L s .02381 .58562 m .02756 .58562 L s .02381 .60134 m .02756 .60134 L s .02381 .61706 m .02756 .61706 L s .25 Mabswid .02381 0 m .02381 .61803 L s .75 .75 0 r .5 Mabswid .02381 .01472 m .06244 .13089 L .10458 .23715 L .14415 .32085 L .18221 .37942 L .20178 .40163 L .22272 .42071 L .24259 .43533 L .26416 .44828 L .30409 .46676 L .34496 .481 L .38431 .49208 L .42214 .50123 L .46243 .50997 L .5012 .51776 L .54243 .5256 L .58214 .5329 L .62033 .53977 L .66098 .54699 L .70011 .5539 L .74169 .56124 L .78175 .56833 L .8203 .57518 L .86131 .5825 L .9008 .5896 L .93877 .59649 L .97619 .60332 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol00ekPOomoo`3bOol001]o o`03001oogoo00ioo`03G^1oogoo0?5oo`006goo00<007ooOol03Woo00=Nh7ooOol0lGoo000KOol0 0`00Oomoo`0>Ool00ekPOomoo`3aOol001]oo`80011oo`03G^1oogoo0?1oo`006goo00<007ooOol0 3goo00=Nh7ooOol0l7oo000KOol00`00Oomoo`0@Ool00ekPOomoo`3_Ool001]oo`03001oogoo011o o`03G^1oogoo0>moo`006goo0P004Goo00=Nh7ooOol0kgoo000KOol00`00Oomoo`0AOol00ekPOomo o`3^Ool001]oo`03001oogoo015oo`03G^1oogoo0>ioo`006goo00<007ooOol04Woo00=Nh7ooOol0 kGoo000KOol2000COol00ekPOomoo`3]Ool001]oo`03001oogoo019oo`03G^1oogoo0>eoo`0000Ao o`00000000Aoo`8000Aoo`8000Aoo`8000Eoo`03001oogoo01=oo`03G^1oogoo0>aoo`0000Eoo`00 Oomoo`00009oo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol04goo00=Nh7ooOol0k7oo 00001Goo001oogoo00001Goo00<007ooOol02Goo00<007ooOol00Woo0P005Goo00=Nh7ooOol0jgoo 000017oo0000000017oo0P002Woo0P001Goo00<007ooOol057oo00=Nh7ooOol0jgoo0002Ool00`00 Oomoo`03Ool00`00Oomoo`09Ool00`00Oomoo`04Ool00`00Oomoo`0EOol00ekPOomoo`3ZOol0009o o`<000=oo`<000Uoo`<000Aoo`03001oogoo01Eoo`03G^1oogoo0>Yoo`006goo00<007ooOol05Woo 00=Nh7ooOol0jGoo000KOol2000GOol00ekPOomoo`3YOol001]oo`03001oogoo01Moo`03G^1oogoo 0>Qoo`006goo00<007ooOol05goo00=Nh7ooOol0j7oo000KOol00`00Oomoo`0GOol00ekPOomoo`3X Ool001]oo`8001Uoo`03G^1oogoo0>Moo`006goo00<007ooOol067oo00=Nh7ooOol0igoo000KOol0 0`00Oomoo`0IOol00ekPOomoo`3VOol001]oo`03001oogoo01Uoo`03G^1oogoo0>Ioo`006goo0P00 6goo00=Nh7ooOol0iGoo000KOol00`00Oomoo`0JOol00ekPOomoo`3UOol001]oo`03001oogoo01]o o`03G^1oogoo0>Aoo`006goo00<007ooOol06goo00=Nh7ooOol0i7oo000KOol2000MOol00ekPOomo o`3SOol001]oo`03001oogoo01aoo`03G^1oogoo0>=oo`0000Aoo`00000000Aoo`8000Aoo`8000=o o`<000Eoo`03001oogoo01eoo`03G^1oogoo0>9oo`0000Eoo`00Oomoo`00009oo`04001oogoo0008 Ool01000Oomoo`0017oo00<007ooOol07Goo00=Nh7ooOol0hWoo00001Goo001oogoo00001Goo00<0 07ooOol01Woo00@007ooOol000Aoo`8001moo`03G^1oogoo0>5oo`0000Aoo`00000000Aoo`8000Uo o`<000Eoo`03001oogoo01moo`03G^1oogoo0>1oo`000Woo00<007ooOol00goo00<007ooOol02Goo 00<007ooOol017oo00<007ooOol07goo00=Nh7ooOol0h7oo0002Ool30003Ool30009Ool30004Ool0 0`00Oomoo`0POol00ekPOomoo`3OOol001]oo`80029oo`03G^1oogoo0=ioo`006goo00<007ooOol0 8Goo00=Nh7ooOol0gWoo000KOol00`00Oomoo`0ROol00ekPOomoo`3MOol001]oo`03001oogoo02=o o`03G^1oogoo0=aoo`006goo0P0097oo00=Nh7ooOol0g7oo000KOol00`00Oomoo`0TOol00ekPOomo o`3KOol001]oo`03001oogoo02Eoo`03G^1oogoo0=Yoo`006goo00<007ooOol09Goo00=Nh7ooOol0 fWoo000KOol00`00Oomoo`0VOol00ekPOomoo`3IOol001]oo`8002Qoo`03G^1oogoo0=Qoo`006goo 00<007ooOol0:7oo00=Nh7ooOol0egoo000KOol00`00Oomoo`0YOol00ekPOomoo`3FOol001]oo`03 001oogoo02Yoo`03G^1oogoo0=Eoo`006goo0P00;7oo00=Nh7ooOol0e7oo000KOol00`00Oomoo`0/ Ool00ekPOomoo`3COol00004Ool000000004Ool20004Ool20005Ool00`00Oomoo`03Ool00`00Oomo o`0]Ool00ekPOomoo`3BOol00005Ool007ooOol00002Ool01000Oomoo`002Woo00<007ooOol00goo 00<007ooOol0;Woo00=Nh7ooOol0dGoo00001Goo001oogoo00001Goo00<007ooOol027oo00<007oo Ool00goo0P00<7oo00=Nh7ooOol0d7oo000017oo0000000017oo0P0037oo00<007ooOol00Woo00<0 07ooOol0<7oo00=Nh7ooOol0cgoo0002Ool00`00Oomoo`03Ool00`00Oomoo`08Ool01000Oomoo`00 17oo00<007ooOol0Woo0UkPagoo000KOol00`00Oomoo`0kOol3G^34Ool001]oo`03001oogoo03ioo`9Nh<9oo`006goo 00<007ooOol0@7oo0UkP`7oo000KOol20013Ool2G^2nOol001]oo`03001oogoo04Aoo`9Nh;aoo`00 6goo00<007ooOol0AWoo0ekP^Goo000KOol00`00Oomoo`19Ool2G^2gOol001]oo`8004aoo`=Nh;Ao o`006goo00<007ooOol0CWoo0UkP/Woo000KOol00`00Oomoo`1@Ool3G^2_Ool00004Ool000000004 Ool20004Ool20004Ool20005Ool00`00Oomoo`1COol4G^2[Ool00005Ool007ooOol00002Ool01000 Oomoo`0027oo00@007ooOol000Aoo`03001oogoo05Moo`ANh:Moo`0000Eoo`00Oomoo`0000Eoo`03 001oogoo00Ioo`04001oogoo0004Ool2001LOol4G^2SOol00004Ool000000004Ool2000:Ool20005 Ool00`00Oomoo`1OOol5G^2NOol0009oo`03001oogoo00=oo`03001oogoo00Qoo`04001oogoo0004 Ool00`00Oomoo`1TOol5G^2IOol0009oo`<000=oo`<000Uoo`8000Eoo`03001oogoo06Uoo`ENh9Ao o`006goo0P00Kgoo15kPT7oo000KOol00`00Oomoo`1bOol3G^2=Ool001]oo`03001oogoo07Eoo`AN h8Uoo`006goo00<007ooOol0NGoo15kPQGoo000KOol2001nOol6G^1oOol001]oo`03001oogoo08=o o`ENh7Yoo`006goo00<007ooOol0R7oo1UkPM7oo000KOol00`00Oomoo`2>Ool7G^1]Ool001]oo`80 09Ioo`QNh6Eoo`006goo00<007ooOol0WGoo1UkPGgoo000KOol00`00Oomoo`2SOol5G^1JOol001]o o`03001oogoo0:Qoo`ENh5Eoo`006goo0P00[Woo1EkPD7oo000KOol00`00Oomoo`2bOol6G^1:Ool0 0004Ool000000004Ool20004Ool20003Ool30005Ool00`00Oomoo`2hOol5G^15Ool00005Ool007oo Ool00002Ool01000Oomoo`002Woo00<007ooOol00goo00<007ooOol0_Goo1EkP@7oo00001Goo001o ogoo00001Goo00<007ooOol01goo0`0017oo0P00`goo1EkP>goo000017oo0000000017oo0P002Goo 00@007ooOol000Aoo`03001oogoo0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-21.7717, 65.1233, 0.797743, \ 0.00483357}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Show[plt8,plt9,plt10,plt11,plt12,PlotRange->{60,100}]", "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 0.0047619 -0.927051 0.0154508 [ [.2619 -0.0125 -6 -9 ] [.2619 -0.0125 6 0 ] [.5 -0.0125 -9 -9 ] [.5 -0.0125 9 0 ] [.7381 -0.0125 -9 -9 ] [.7381 -0.0125 9 0 ] [.97619 -0.0125 -9 -9 ] [.97619 -0.0125 9 0 ] [.01131 .07725 -12 -4.5 ] [.01131 .07725 0 4.5 ] [.01131 .15451 -12 -4.5 ] [.01131 .15451 0 4.5 ] [.01131 .23176 -12 -4.5 ] [.01131 .23176 0 4.5 ] [.01131 .30902 -12 -4.5 ] [.01131 .30902 0 4.5 ] [.01131 .38627 -12 -4.5 ] [.01131 .38627 0 4.5 ] [.01131 .46353 -12 -4.5 ] [.01131 .46353 0 4.5 ] [.01131 .54078 -12 -4.5 ] [.01131 .54078 0 4.5 ] [.01131 .61803 -18 -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 .2619 0 m .2619 .00625 L s [(50)] .2619 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(100)] .5 -0.0125 0 1 Mshowa .7381 0 m .7381 .00625 L s [(150)] .7381 -0.0125 0 1 Mshowa .97619 0 m .97619 .00625 L s [(200)] .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 .21429 0 m .21429 .00375 L s .30952 0 m .30952 .00375 L s .35714 0 m .35714 .00375 L s .40476 0 m .40476 .00375 L s .45238 0 m .45238 .00375 L s .54762 0 m .54762 .00375 L s .59524 0 m .59524 .00375 L s .64286 0 m .64286 .00375 L s .69048 0 m .69048 .00375 L s .78571 0 m .78571 .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 .07725 m .03006 .07725 L s [(65)] .01131 .07725 1 0 Mshowa .02381 .15451 m .03006 .15451 L s [(70)] .01131 .15451 1 0 Mshowa .02381 .23176 m .03006 .23176 L s [(75)] .01131 .23176 1 0 Mshowa .02381 .30902 m .03006 .30902 L s [(80)] .01131 .30902 1 0 Mshowa .02381 .38627 m .03006 .38627 L s [(85)] .01131 .38627 1 0 Mshowa .02381 .46353 m .03006 .46353 L s [(90)] .01131 .46353 1 0 Mshowa .02381 .54078 m .03006 .54078 L s [(95)] .01131 .54078 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(100)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .01545 m .02756 .01545 L s .02381 .0309 m .02756 .0309 L s .02381 .04635 m .02756 .04635 L s .02381 .0618 m .02756 .0618 L s .02381 .09271 m .02756 .09271 L s .02381 .10816 m .02756 .10816 L s .02381 .12361 m .02756 .12361 L s .02381 .13906 m .02756 .13906 L s .02381 .16996 m .02756 .16996 L s .02381 .18541 m .02756 .18541 L s .02381 .20086 m .02756 .20086 L s .02381 .21631 m .02756 .21631 L s .02381 .24721 m .02756 .24721 L s .02381 .26266 m .02756 .26266 L s .02381 .27812 m .02756 .27812 L s .02381 .29357 m .02756 .29357 L s .02381 .32447 m .02756 .32447 L s .02381 .33992 m .02756 .33992 L s .02381 .35537 m .02756 .35537 L s .02381 .37082 m .02756 .37082 L s .02381 .40172 m .02756 .40172 L s .02381 .41717 m .02756 .41717 L s .02381 .43262 m .02756 .43262 L s .02381 .44807 m .02756 .44807 L s .02381 .47898 m .02756 .47898 L s .02381 .49443 m .02756 .49443 L s .02381 .50988 m .02756 .50988 L s .02381 .52533 m .02756 .52533 L s .02381 .55623 m .02756 .55623 L s .02381 .57168 m .02756 .57168 L s .02381 .58713 m .02756 .58713 L s .02381 .60258 m .02756 .60258 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 .61573 m .02846 .5327 L .03068 .49022 L .03279 .45934 L .03527 .43039 L .03754 .40869 L .04262 .36942 L .05212 .31362 L .06244 .26579 L .07308 .2253 L .08435 .19035 L .0941 .16592 L .10458 .14478 L .11478 .12849 L .12411 .11662 L .14241 .09971 L .15226 .09324 L .1614 .08845 L .17207 .08403 L .18212 .08078 L .19198 .07826 L .20265 .07612 L .22125 .07346 L .23076 .0725 L .24119 .07166 L .25209 .07099 L .26226 .0705 L .27271 .07011 L .28261 .06982 L .2915 .06962 L .30117 .06945 L .31056 .06932 L .32094 .06921 L .33177 .06913 L .34195 .06907 L .35178 .06903 L .35672 .06902 L .36213 .06901 L .36676 .069 L .37172 .06899 L .37639 .06899 L .38063 .06898 L .38294 .06898 L .38548 .06898 L .38676 .06898 L .38813 .06898 L .38932 .06898 L .39062 .06898 L .3919 .06898 L .39308 .06898 L Mistroke .39422 .06898 L .39543 .06898 L .39661 .06898 L .39773 .06898 L .39873 .06898 L .39982 .06898 L .40112 .06898 L .40234 .06898 L .40509 .06898 L .40778 .06898 L .41066 .06898 L .42062 .06899 L .4419 .069 L .46203 .06902 L .50041 .06906 L .54125 .06909 L .58056 .06912 L .61837 .06913 L .63938 .06914 L .65862 .06915 L .69736 .06916 L .71632 .06916 L .73704 .06916 L .75833 .06917 L .77765 .06917 L .81675 .06917 L .83597 .06917 L .85678 .06917 L .8767 .06917 L .89775 .06917 L .91737 .06917 L .93569 .06917 L .94613 .06917 L .95602 .06917 L .9649 .06917 L .97457 .06917 L .97619 .06917 L Mfstroke 0 0 1 r .02381 .61573 m .02605 .5568 L .02729 .51549 L .02846 .4837 L .03072 .43769 L .03279 .40768 L .03524 .38094 L .0375 .3618 L .04262 .33005 L .0472 .30934 L .05224 .29095 L .06244 .26058 L .08274 .20992 L .10458 .16398 L .11537 .14541 L .12562 .1305 L .14487 .10918 L .15445 .10132 L .16467 .09456 L .18306 .08569 L .19335 .08214 L .20447 .07913 L .21498 .07692 L .22464 .07531 L .24347 .07304 L .25415 .07214 L .26413 .07147 L .27458 .07092 L .28448 .07051 L .30304 .06996 L .31269 .06975 L .32295 .06957 L .34137 .06935 L .35074 .06927 L .36084 .0692 L .37031 .06915 L .37912 .06911 L .38869 .06908 L .39916 .06905 L .40936 .06903 L .42026 .06901 L .4305 .069 L .43589 .069 L .4416 .06899 L .4466 .06899 L .45209 .06899 L .46176 .06898 L .46697 .06898 L .47192 .06898 L .47636 .06898 L Mistroke .4812 .06898 L .48396 .06898 L .48645 .06898 L .48933 .06898 L .49065 .06898 L .49204 .06898 L .49325 .06898 L .49456 .06898 L .49576 .06898 L .49688 .06898 L .4982 .06898 L .4994 .06898 L .50006 .06898 L .50078 .06898 L .5021 .06898 L .50332 .06898 L .50444 .06898 L .50696 .06898 L .50918 .06898 L .51152 .06898 L .51649 .06898 L .52191 .06898 L .54293 .06898 L .58354 .06898 L .62264 .06899 L .66419 .06899 L .68503 .06899 L .70423 .069 L .74274 .069 L .76154 .069 L .7822 .069 L .80168 .069 L .82259 .069 L .83275 .069 L .84381 .069 L .85336 .069 L .86392 .069 L .87342 .069 L .88367 .069 L .88932 .069 L .8945 .069 L .89941 .069 L .90467 .069 L .9098 .069 L .91446 .069 L .9167 .069 L .91914 .069 L .92026 .069 L .92145 .069 L .92253 .069 L Mistroke .92357 .069 L .92485 .069 L .92602 .069 L .92728 .069 L .92799 .069 L .92866 .069 L .92987 .069 L .93096 .069 L .93223 .069 L .93342 .069 L .93613 .069 L .93863 .069 L .94426 .069 L .94806 .069 L .95214 .069 L .95949 .069 L .97619 .069 L Mfstroke 1 0 1 r .02381 .61573 m .02499 .55108 L .02605 .49323 L .02729 .44601 L .02846 .4136 L .03053 .37288 L .0317 .35586 L .03279 .34269 L .03506 .32069 L .03756 .30248 L .04017 .28784 L .04262 .27688 L .04761 .25986 L .05217 .24818 L .06244 .2286 L .10458 .16687 L .12517 .13919 L .14429 .11808 L .16277 .10273 L .17311 .09615 L .18248 .09125 L .20173 .08376 L .21257 .08073 L .22255 .07852 L .24137 .07548 L .25206 .07424 L .26204 .07332 L .27249 .07255 L .28239 .07197 L .30094 .07115 L .3106 .07084 L .32085 .07056 L .33927 .07019 L .34864 .07004 L .35874 .06991 L .37702 .06972 L .39706 .06957 L .41816 .06946 L .43791 .06939 L .45627 .06933 L .47673 .06929 L .49532 .06926 L .5145 .06923 L .5353 .06921 L .55518 .06919 L .57622 .06918 L .61411 .06916 L .63355 .06916 L .65445 .06915 L .67562 .06915 L Mistroke .69572 .06915 L .71557 .06914 L .73397 .06914 L .75453 .06914 L .77315 .06914 L .7832 .06914 L .79243 .06914 L .80257 .06914 L .80767 .06914 L .81327 .06914 L .81853 .06914 L .82111 .06914 L .8235 .06914 L .82562 .06914 L .82796 .06914 L .83032 .06914 L .83161 .06914 L .83282 .06914 L .83404 .06914 L .83474 .06914 L .83538 .06914 L .83669 .06914 L .83741 .06914 L .83808 .06914 L .83927 .06914 L .84056 .06914 L .84177 .06914 L .84289 .06914 L .84541 .06914 L .84817 .06914 L .85374 .06914 L .85897 .06914 L .86393 .06914 L .87323 .06914 L .89414 .06914 L .91402 .06914 L .93243 .06914 L .97167 .06914 L .97619 .06914 L Mfstroke .75 1 0 r .02381 .61572 m .02499 .43392 L .02605 .36909 L .02729 .32562 L .02846 .29848 L .02954 .28003 L .03053 .26664 L .03279 .24443 L .03396 .23579 L .03506 .22894 L .03756 .21658 L .04 .20752 L .04262 .19997 L .04516 .19415 L .04793 .189 L .05297 .18178 L .05788 .17646 L .06244 .17243 L .10458 .14361 L .14371 .11474 L .16368 .10241 L .17419 .09711 L .18529 .09239 L .19524 .08887 L .20616 .08569 L .22536 .0815 L .23556 .07984 L .24487 .0786 L .25573 .07741 L .26578 .07651 L .28487 .0752 L .29493 .07467 L .30563 .07421 L .3251 .07354 L .34338 .07309 L .36356 .07271 L .38207 .07245 L .40099 .07224 L .42169 .07206 L .4413 .07194 L .46225 .07183 L .4836 .07175 L .50375 .07169 L .52376 .07164 L .54221 .07161 L .56098 .07158 L .58162 .07156 L .60107 .07154 L .62196 .07153 L .63209 .07152 L Mistroke .64313 .07152 L .65368 .07151 L .66323 .07151 L .67339 .07151 L .68295 .07151 L .6882 .07151 L .69303 .07151 L .69556 .07151 L .69834 .07151 L .69974 .07151 L .70123 .07151 L .70196 .07151 L .70265 .07151 L .70393 .07151 L .70508 .07151 L .70631 .07151 L .70747 .07151 L .70854 .07151 L .70972 .07151 L .71101 .07151 L .71236 .07151 L .71361 .07151 L .71622 .07151 L .71858 .07151 L .72388 .07151 L .72844 .07151 L .73337 .07151 L .74231 .07151 L .76223 .07151 L .78328 .07152 L .82122 .07153 L .86162 .07154 L .90049 .07155 L .94182 .07157 L .97619 .07158 L Mfstroke .75 .75 0 r .02381 .08025 m .06244 .08253 L .10458 .08462 L .14415 .08626 L .18221 .08742 L .20178 .08785 L .22272 .08823 L .24259 .08851 L .26416 .08877 L .30409 .08913 L .34496 .08941 L .38431 .08963 L .42214 .08981 L .46243 .08998 L .5012 .09013 L .54243 .09029 L .58214 .09043 L .62033 .09057 L .66098 .09071 L .70011 .09085 L .74169 .09099 L .78175 .09113 L .8203 .09126 L .86131 .09141 L .9008 .09155 L .93877 .09168 L .97619 .09182 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{359.813, 222.375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo000?Ool00`00Oomoo`02 Ool20006Ool01@00OomoogooGn002Goo00El7gooOoml000O0?moocUoo`003goo00D007ooOomoo`00 009oo`03001oogoo00=oo`05001oogooOomOh008Ool01G`OOomoogoo01l0ogoo>Woo000?Ool00`00 Oomoo`04Ool00`00Oomoo`03Ool400000eoPOomoo`05Ool01W`OOomoogooO0007omoocYoo`0047oo 00@007ooOomoo`8000Ioo`05001oogooOomOh007Ool01G`OOomoogoo01l0ogoo>goo000=Ool01000 Oomoo`000goo00<007ooOol01Goo00D007ooOomooeoP00Ioo`03O1moogoo009oo`0301moogoo0?mo ocUoo`003Goo10000goo0`001Goo00@007ooOomOh0Moo`05O1moogooOol07`3oOollOol001aoo`04 001oogooGn06Ool00g`OOomoo`02Ool00`0OOomoo`3oOoljOol001aoo`<00003Gn1oogoo00Aoo`03 O1moogoo009oo`0301moogoo0?moocYoo`0077oo00@007ooOomOh0Eoo`03O1moogoo009oo`0301ml 07oo0?mooc]oo`0077oo00@007ooOomOh0Eoo`03O1moogoo009oo`0301moogoo0?mooc]oo`0077oo 00@007ooOomOh0Aoo`03O1moogoo009oo`0301ml07oo0?moocaoo`0077oo00@007ooOomOh0Aoo`03 O1moogoo009oo`0301ml07oo0?moocaoo`0077oo0`0000=Oh7ooOol00Woo00=l7gooOol00Woo00<0 7gooOol0ogoo?7oo000LOol01000OomooeoP17oo00Il7gooOomoo`0OO03oOolnOol001aoo`04001o ogooGn03Ool00g`OOomoo`02Ool00`0OO01oo`3oOolmOol001aoo`04001oogooGn03Ool00g`OOomo o`02Ool00`0OO01oo`3oOolmOol001aoo`03001ooeoP00Aoo`06O1moogooOol07g`0ogoo?goo000L Ool200000eoPOomoo`02Ool01W`OOomoogoo01ml0?moocmoo`0077oo00<007ooGn0017oo00Il7goo Oomoo`0OO03oOoloOol001aoo`03001ooeoP00=oo`03O1moogoo009oo`0301ml07oo0?moocioo`00 77oo00<007ooGn000goo00Ml7gooOomoo`0OOoml003oOoloOol001aoo`03001ooeoP00=oo`06O1mo ogooOol07g`0ogoo@7oo000LOol200001EoPOomoogooO1l00goo00<07g`0Ool0ogoo?goo000LOol0 0`00OomOh002Ool01g`OOomoogoo01moog`00?mood1oo`0077oo00<007ooGn000Woo00Ml7gooOomo o`0OOoml003oOom0Ool000ioo`8000Aoo`8000Ioo`03001ooeoP009oo`07O1moogooOol07gooO000 ogoo@7oo000=Ool01000Oomoo`000Woo00@007ooOol000Eoo`03001ooeoP009oo`04O1moogoo01l2 Ool00g`0Oomoo`3oOolnOol000eoo`04001oogoo0002Ool01000Oomoo`001Goo0P0000AOh000Ooml 7`9oo`0301moog`00?mood5oo`003Woo0P000goo00@007ooOol000Eoo`05001ooeoPOoml7`03Ool0 0`0OOoml003oOom1Ool000eoo`04001oogoo0002Ool01000Oomoo`001Goo00D007ooGn1oog`O00=o o`0301moog`00?mood5oo`003Woo0P0017oo0P001Woo00D007ooGn1oog`O00=oo`0301moog`00?mo od5oo`0077oo00D007ooGn1oog`O009oo`0401moogooO03oOom1Ool001aoo`800003Gn1oog`O009o o`0301moog`00?mood9oo`0077oo00D007ooGn1oog`O009oo`0301moog`00?mood9oo`0077oo00D0 07ooGn1oog`O009oo`0301moog`00?mood9oo`0077oo00@007ooGn1l7`=oo`0301moog`00?mood9o o`0077oo00@007ooGn1l7`=oo`0301moog`00?mood9oo`0077oo0P0000EOh7`OOomoo`0O009oo`03 O01oogoo0?mood1oo`0077oo00@007ooGn1l7`9oo`0301moog`00?mood=oo`0077oo00@007ooGn1l 7`9oo`0301moog`00?mood=oo`0077oo00@005oPOoml7`9oo`0301moog`00?mood=oo`0077oo00@0 05oPOoml7`9oo`0301moog`00?mood=oo`0077oo00@005oP001l7`9oo`0301moog`00?mood=oo`00 77oo00H005oPOoml7goo01l2Ool00g`0Oomoo`3oOom1Ool001aoo`08001Oh7ooO1moo`0OOoml0?mo odAoo`0077oo00P005oPOoml7goo01moog`0ogooA7oo000LOol02000Gn1oog`OOol07gooO03oOom4 Ool001aoo`08001Oh000O1moo`0OOoml0?moodAoo`0077oo00D005oPOoml7`0O009oo`03O01oogoo 0?mood9oo`0077oo00D005oPOoml7`0O009oo`03O01oogoo0?mood9oo`0077oo00D005oPOoml7`0O 009oo`03O01oogoo0?mood9oo`003Woo0P0017oo0P001Woo00L005oPOoml7`0OOoml003oOom5Ool0 00eoo`04001oogoo0002Ool01000Oomoo`001Goo00L005oPOoml7`0OOoml003oOom5Ool000eoo`04 001oogoo0005Ool00`00Oomoo`03Ool01`00Gn0007`O01moog`00?moodEoo`003Woo0P0017oo0P00 1Woo00L005oPOoml7`0OOoml003oOom5Ool000eoo`04001oogoo0003Ool00`00Oomoo`05Ool01`00 Gn1l7goo01moog`00?moodEoo`003Woo0P0017oo0`001Goo00@005oPO1l07`9oo`03O01oogoo0?mo od=oo`0077oo00H005oPO1l07gooO03oOom6Ool001aoo`06001Oh7`O01moog`0ogooAWoo000LOol0 1P00Gn1l7`0OOoml0?moodIoo`0077oo00H005oPO1l07gooO03oOom6Ool001aoo`06001Oh7`O01mo og`0ogooAWoo000LOol01P00Gn1l7`0OOoml0?moodIoo`0077oo00H005oPO1l07gooO03oOom6Ool0 01aoo`05001Oh7`O01ml003oOom7Ool001aoo`05001Oh7`O01ml003oOom7Ool001aoo`05001Oh7`O 01ml003oOom7Ool001aoo`05001Oh7`O01ml003oOom7Ool001aoo`05001Oh7`O01ml003oOom7Ool0 01aoo`05001Oh7`O01ml003oOom7Ool001aoo`05001Oh7`O01ml003oOom7Ool001aoo`05001Oh7`O 01ml003oOom7Ool001aoo`04001Oh7`O01ooOom8Ool001aoo`04001Oh7`O01ooOom8Ool001aoo`04 001Oh7`O01ooOom8Ool001aoo`04001Oh7`O01ooOom8Ool000eoo`<000Aoo`8000Ioo`04001Oh7`O 01ooOom8Ool000moo`05001oogooOol00002Ool00`00Oomoo`03Ool01000Gn1l7`0OogooB7oo000> Ool30002Ool01000Oomoo`001Goo00@005oPO1ml0?moodQoo`003Goo00@007ooOol0009oo`04001o ogoo0005Ool01000Gn1l7g`0ogooB7oo000=Ool01000Oomoo`000Woo00@007ooOol000Eoo`04001O h00OO03oOom8Ool000ioo`<000=oo`8000Ioo`04001Oh00OO03oOom8Ool001aoo`04001Oh00OO03o Oom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001Oh00O O03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001O h00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04 001Oh00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001aoo`04001Oh00OO03oOom8Ool001ao o`03001Oh00O0?moodUoo`0077oo00<005oP01l0ogooBGoo000LOol00`00Gn007`3oOom9Ool001ao o`03001Oh00O0?moodUoo`0077oo00=Oh7`O01l0ogooBGoo000LOol00eoPO1l07`3oOom9Ool001ao o`03Gn1l7`0O0?moodUoo`0077oo00=Oh7`O01l0ogooBGoo000=Ool30004Ool20006Ool00eoPO1ml 003oOom9Ool000moo`05001oogooOol00002Ool00`00Oomoo`03Ool00eoPO1ml003oOom9Ool000io o`<000Eoo`03001oogoo00=oo`04Gn1l7g`0003oOom8Ool000eoo`04001oogoo0003Ool20006Ool0 0eoPO1ml003oOom9Ool000eoo`04001oogoo0003Ool00`00Oomoo`05Ool00eoPO1ml003oOom9Ool0 00ioo`<000=oo`<000Eoo`03Gn1l7g`00?moodUoo`0077oo00=Oh7`OOol0ogooBGoo000LOol00eoP O1l0003oOom9Ool001aoo`03Gn1l7goo0?moodUoo`0077oo00=Oh7`OOol0ogooBGoo000LOol00eoP O1moo`3oOom9Ool001aoo`03Gn1l7goo0?moodUoo`0077oo00=Oh7`O0000ogooBGoo000LOol00eoP O1moo`3oOom9Ool001aoo`03Gn1l7goo0?moodUoo`0077oo00=Oh7`OOol0ogooBGoo000LOol00eoP 01moo`3oOom9Ool001aoo`03Gn1l00000?moodUoo`0077oo00=Oh7`0Ool0ogooBGoo000LOol00eoP O01oo`3oOom9Ool001aoo`03Gn1oogoo0?moodUoo`0077oo00=Oh7ooOol0ogooBGoo000LOol00eoP 0000003oOom9Ool001aoo`03Gn1oogoo0?moodUoo`0077oo00=Oh7ooOol0ogooBGoo0007Ool50002 Ool20004Ool20006Ool00eoPOomoo`3oOom9Ool000Uoo`05001oogooOol00002Ool01000Oomoo`00 0Woo00<007ooOol00goo00=Oh7ooOol0ogooBGoo0009Ool01@00Oomoogoo00000Woo00@007ooOol0 009oo`03001oogoo00=oo`@00?moodQoo`002Goo00D007ooOomoo`00009oo`04001oogoo0002Ool0 0`00Oomoo`3oOom?Ool000Uoo`05001oogooOol00002Ool01000Oomoo`000Woo00<007ooOol0ogoo Cgoo0008Ool20004Ool20004Ool2003oOomBOol00?moofQoo`00\ \>"], ImageRangeCache->{{{0, 358.813}, {221.375, 0}} -> {-18.4575, 57.4241, \ 0.636983, 0.196317}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Plotting the total number of moles in the distillate", "Subsubtitle", Background->RGBColor[1, 1, 0.733333]], Cell[CellGroupData[{ Cell["\<\ plt13=Plot[Evaluate[DIST[t]/.sol],{t,0,200},PlotStyle->RGBColor[0.75,1,0.5],\ PlotRange->All]\ \>", "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 0.00476191 0.0147151 0.00323732 [ [.2619 .00222 -6 -9 ] [.2619 .00222 6 0 ] [.5 .00222 -9 -9 ] [.5 .00222 9 0 ] [.7381 .00222 -9 -9 ] [.7381 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .09565 -12 -4.5 ] [.01131 .09565 0 4.5 ] [.01131 .17658 -12 -4.5 ] [.01131 .17658 0 4.5 ] [.01131 .25751 -12 -4.5 ] [.01131 .25751 0 4.5 ] [.01131 .33845 -18 -4.5 ] [.01131 .33845 0 4.5 ] [.01131 .41938 -18 -4.5 ] [.01131 .41938 0 4.5 ] [.01131 .50031 -18 -4.5 ] [.01131 .50031 0 4.5 ] [.01131 .58125 -18 -4.5 ] [.01131 .58125 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 .2619 .01472 m .2619 .02097 L s [(50)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(100)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(150)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(200)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .09565 m .03006 .09565 L s [(25)] .01131 .09565 1 0 Mshowa .02381 .17658 m .03006 .17658 L s [(50)] .01131 .17658 1 0 Mshowa .02381 .25751 m .03006 .25751 L s [(75)] .01131 .25751 1 0 Mshowa .02381 .33845 m .03006 .33845 L s [(100)] .01131 .33845 1 0 Mshowa .02381 .41938 m .03006 .41938 L s [(125)] .01131 .41938 1 0 Mshowa .02381 .50031 m .03006 .50031 L s [(150)] .01131 .50031 1 0 Mshowa .02381 .58125 m .03006 .58125 L s [(175)] .01131 .58125 1 0 Mshowa .125 Mabswid .02381 .0309 m .02756 .0309 L s .02381 .04709 m .02756 .04709 L s .02381 .06327 m .02756 .06327 L s .02381 .07946 m .02756 .07946 L s .02381 .11183 m .02756 .11183 L s .02381 .12802 m .02756 .12802 L s .02381 .14421 m .02756 .14421 L s .02381 .16039 m .02756 .16039 L s .02381 .19277 m .02756 .19277 L s .02381 .20895 m .02756 .20895 L s .02381 .22514 m .02756 .22514 L s .02381 .24133 m .02756 .24133 L s .02381 .2737 m .02756 .2737 L s .02381 .28989 m .02756 .28989 L s .02381 .30607 m .02756 .30607 L s .02381 .32226 m .02756 .32226 L s .02381 .35463 m .02756 .35463 L s .02381 .37082 m .02756 .37082 L s .02381 .38701 m .02756 .38701 L s .02381 .40319 m .02756 .40319 L s .02381 .43557 m .02756 .43557 L s .02381 .45175 m .02756 .45175 L s .02381 .46794 m .02756 .46794 L s .02381 .48413 m .02756 .48413 L s .02381 .5165 m .02756 .5165 L s .02381 .53269 m .02756 .53269 L s .02381 .54887 m .02756 .54887 L s .02381 .56506 m .02756 .56506 L s .02381 .59743 m .02756 .59743 L s .02381 .61362 m .02756 .61362 L s .25 Mabswid .02381 0 m .02381 .61803 L s .75 1 .5 r .5 Mabswid .02381 .01472 m .06244 .03859 L .10458 .06463 L .14415 .08909 L .18221 .11261 L .22272 .13765 L .26171 .16175 L .30316 .18736 L .34309 .21204 L .3815 .23578 L .42237 .26104 L .46172 .28536 L .49955 .30874 L .53984 .33364 L .57861 .3576 L .61984 .38308 L .65954 .40762 L .69774 .43123 L .73838 .45635 L .77751 .48053 L .81909 .50623 L .85916 .53099 L .89771 .55482 L .93871 .58016 L .97619 .60332 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol700000eo_0000003o00060003Ool001Eo o`03001Okeo_00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Uo o`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yoo`03001oogoo00Yo o`03001oogoo00Moo`005Goo00<007ooOol00Uo_>goo00<007ooOol0?Goo00<007ooOol0?Goo00<0 07ooOol0?Woo00<007ooOol01goo000EOol00`00Oomoo`02Ool00eo_Oomoo`3oOol4Ool001Eoo`80 00Aoo`9Okomoo`Aoo`005Goo00<007ooOol01Goo0Uo_ogoo0Woo000EOol00`00Oomoo`07Ool00eo_ Oomoo`3nOol001Eoo`03001oogoo00Qoo`9Okoioo`005Goo00<007ooOol02Woo0Uo_o7oo000EOol2 000=Ool00eo_Oomoo`3iOol001Eoo`03001oogoo00eoo`9OkoUoo`005Goo00<007ooOol03goo0Uo_ mgoo000EOol00`00Oomoo`0AOol2GnoeOol001Eoo`8001Aoo`03Gnmoogoo0?9oo`005Goo00<007oo Ool057oo0Uo_lWoo000EOol00`00Oomoo`0FOol00eo_Oomoo`3_Ool001Eoo`03001oogoo01Moo`03 Gnmoogoo0>ioo`005Goo0P006Goo0Uo_kWoo000EOol00`00Oomoo`0JOol00eo_Oomoo`3[Ool001Eo o`03001oogoo01]oo`9Okn]oo`001goo10000goo0P001Goo00<007ooOol07Goo00=OkgooOol0j7oo 0007Ool00`00Oomoo`03Ool01000Oomoo`0017oo00<007ooOol07Woo0Uo_j7oo0008Ool00`00Oomo o`05Ool00`00Oomoo`02Ool3000POol2GnoVOol000Uoo`03001oogoo009oo`8000Eoo`03001oogoo 029oo`9OknAoo`001goo00@007ooOol000=oo`03001oogoo00Aoo`03001oogoo02Aoo`9Okn9oo`00 27oo0P0017oo0`0017oo00<007ooOol09Woo0Uo_h7oo000EOol2000YOol00eo_Oomoo`3MOol001Eo o`03001oogoo02Uoo`9Okmeoo`005Goo00<007ooOol0:goo00=OkgooOol0fWoo000EOol00`00Oomo o`0/Ool00eo_Oomoo`3IOol001Eoo`8002ioo`9OkmUoo`005Goo00<007ooOol0;goo00=OkgooOol0 eWoo000EOol00`00Oomoo`0`Ool2GnoFOol001Eoo`03001oogoo039oo`03Gnmoogoo0==oo`005Goo 00<007ooOol07oo0Uo_cWoo000EOol00`00Oomoo`0jOol00eo_Oomoo`3;Ool001Eo o`8003aoo`9Okl]oo`005Goo00<007ooOol0?Goo00=OkgooOol0b7oo000EOol00`00Oomoo`0nOol2 Gno8Ool000Qoo`8000Aoo`8000Eoo`03001oogoo041oo`9OklIoo`001goo00@007ooOol0009oo`04 001oogoo0004Ool00`00Oomoo`12Ool2Gno4Ool000Yoo`04001oogoo0002Ool00`00Oomoo`02Ool3 0014Ool2Gno2Ool000Qoo`8000=oo`04001oogoo0004Ool00`00Oomoo`16Ool2Gno0Ool000Qoo`03 001oogoo009oo`04001oogoo0004Ool00`00Oomoo`18Ool00eo_Oomoo`2mOol000Qoo`<000=oo`80 00Eoo`03001oogoo04Uoo`9Okkeoo`005Goo0P00C7oo00=OkgooOol0^Woo000EOol00`00Oomoo`1< Ool2GnnjOol001Eoo`03001oogoo04ioo`9OkkQoo`005Goo00<007ooOol0D7oo00=OkgooOol0]Goo 000EOol2001BOol2GnneOol001Eoo`03001oogoo05=oo`03Gnmoogoo0;9oo`005Goo00<007ooOol0 E7oo0Uo_/Woo000EOol00`00Oomoo`1FOol2Gnn`Ool001Eoo`03001oogoo05Qoo`03Gnmoogoo0:eo o`005Goo0P00FWoo0Uo_[Goo000EOol00`00Oomoo`1KOol2Gnn[Ool001Eoo`03001oogoo05eoo`03 Gnmoogoo0:Qoo`005Goo00<007ooOol0GWoo0Uo_Z7oo000EOol2001QOol00eo_Oomoo`2UOol001Eo o`03001oogoo065oo`9OkjEoo`002Goo00<007ooOol00Woo0P001Goo00<007ooOol0Hgoo0Uo_Xgoo 0009Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol0IGoo00=OkgooOol0X7oo0009 Ool00`00Oomoo`04Ool00`00Oomoo`02Ool3001VOol2GnnPOol000Yoo`04001oogooOol20005Ool0 0`00Oomoo`1XOol00eo_Oomoo`2MOol000Moo`04001oogoo0003Ool00`00Oomoo`04Ool00`00Oomo o`1YOol2GnnMOol000Moo`@000=oo`<000Aoo`03001oogoo06]oo`03Gnmoogoo09Yoo`005Goo00<0 07ooOol0K7oo0Uo_VWoo000EOol2001_Ool2GnnHOol001Eoo`03001oogoo071oo`03Gnmoogoo09Eo o`005Goo00<007ooOol0LGoo0Uo_UGoo000EOol00`00Oomoo`1cOol00eo_Oomoo`2BOol001Eoo`80 07Eoo`9Oki9oo`005Goo00<007ooOol0MWoo0Uo_T7oo000EOol00`00Oomoo`1hOol00eo_Oomoo`2= Ool001Eoo`03001oogoo07Uoo`9Okheoo`005Goo0P00O7oo0Uo_Rgoo000EOol00`00Oomoo`1mOol0 0eo_Oomoo`28Ool001Eoo`03001oogoo07ioo`9OkhQoo`005Goo00<007ooOol0P7oo00=OkgooOol0 QGoo000EOol00`00Oomoo`21Ool2Gnn5Ool001Eoo`8008Aoo`9Okh=oo`005Goo00<007ooOol0QGoo 00=OkgooOol0P7oo00000goo000000030002Ool20004Ool20005Ool00`00Oomoo`26Ool2Gnn0Ool0 00=oo`05001oogooOol00002Ool01000Oomoo`000Woo00<007ooOol00Woo00<007ooOol0R7oo00=O kgooOol0OGoo0003Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`03001oogoo009oo`<008Uo o`9Okgeoo`000goo00D007ooOomoo`00009oo`04001oogoo0002Ool00`00Oomoo`02Ool00`00Oomo o`2;Ool2GnmkOol000=oo`05001oogooOol00002Ool01000Oomoo`000Woo00<007ooOol00Woo00<0 07ooOol0SGoo00=OkgooOol0N7oo0002Ool20004Ool20004Ool20005Ool00`00Oomoo`2>Ool2Gnmh Ool001Eoo`03001oogoo091oo`9OkgIoo`005Goo0P00Tgoo00=OkgooOol0Lgoo000EOol00`00Oomo o`2COol2GnmcOol001Eoo`03001oogoo09Eoo`03Gnmoogoo071oo`005Goo00<007ooOol0UWoo0Uo_ L7oo000EOol2002IOol2Gnm^Ool001Eoo`03001oogoo09Yoo`03Gnmoogoo06]oo`005Goo00<007oo Ool0Vgoo0Uo_Jgoo000EOol00`00Oomoo`2MOol00eo_Oomoo`1XOol001Eoo`8009moo`9OkfQoo`00 5Goo00<007ooOol0X7oo00=OkgooOol0IGoo000EOol00`00Oomoo`2QOol2GnmUOol001Eoo`03001o ogoo0:=oo`9Okf=oo`005Goo00<007ooOol0YGoo00=OkgooOol0H7oo000EOol2002WOol2GnmPOol0 01Eoo`03001oogoo0:Qoo`03Gnmoogoo05eoo`0000=oo`0000000`0000=oo`0000000P000goo0P00 1Goo00<007ooOol0ZGoo0Uo_GGoo0003Ool01@00Oomoogoo00001Goo00@007ooOol000Aoo`03001o ogoo0:]oo`9Oke]oo`000goo00<007ooOol00Woo00<007ooOol01Goo00<007ooOol00Woo0`00[Goo 00=OkgooOol0F7oo0003Ool00`00Oomoo`03Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`2^Ool2 GnmHOol000=oo`05001oogooOol00002Ool01@00Oomoogoo00001Woo00<007ooOol0/7oo0Uo_EWoo 0002Ool20004Ool20004Ool30004Ool00`00Oomoo`2bOol00eo_Oomoo`1COol001Eoo`800;Aoo`9O ke=oo`005Goo00<007ooOol0]Goo00=OkgooOol0D7oo000EOol00`00Oomoo`2fOol2Gnm@Ool001Eo o`03001oogoo0;Qoo`9Okdioo`005Goo00<007ooOol0^Woo00=OkgooOol0Bgoo000EOol2002lOol2 Gnm;Ool001Eoo`03001oogoo0;eoo`03Gnmoogoo04Qoo`005Goo00<007ooOol0_Woo0Uo_B7oo000E Ool00`00Oomoo`30Ool2Gnm6Ool001Eoo`800<=oo`9OkdAoo`005Goo00<007ooOol0a7oo0Uo_@Woo 000EOol00`00Oomoo`36Ool2Gnm0Ool001Eoo`03001oogoo07oo0003Ool01@00Oomo ogoo00000Woo00@007ooOol0009oo`03001oogoo009oo`03001oogoo0=1oo`03Gnmoogoo03Eoo`00 0goo00<007ooOol017oo00@007ooOol0009oo`03001oogoo009oo`<00=5oo`9OkcEoo`000goo00<0 07ooOol00Woo0P000goo00@007ooOol000Aoo`03001oogoo0==oo`03Gnmoogoo039oo`000goo00<0 07ooOol00Woo00<007ooOol00Woo00@007ooOol000Aoo`03001oogoo0=Aoo`9Okc9oo`000Woo0P00 17oo0`000goo0P001Goo00<007ooOol0eWoo00=OkgooOol0;goo000EOol2003HOol2Gnl_Ool001Eo o`03001oogoo0=Uoo`9Okbeoo`005Goo00<007ooOol0fgoo00=OkgooOol0:Woo000EOol00`00Oomo o`3LOol2GnlZOol001Eoo`03001oogoo0=ioo`03Gnmoogoo02Moo`005Goo0P00h7oo0Uo_9goo000E Ool00`00Oomoo`3QOol2GnlUOol001Eoo`03001oogoo0>=oo`03Gnmoogoo029oo`005Goo00<007oo Ool0i7oo0Uo_8Woo000EOol2003WOol2GnlPOol001Eoo`03001oogoo0>Qoo`03Gnmoogoo01eoo`00 5Goo00<007ooOol0jGoo0Uo_7Goo000EOol00`00Oomoo`3[Ool00eo_Oomoo`0JOol001Eoo`800>eo o`9OkaYoo`005Goo00<007ooOol0kWoo0Uo_67oo000EOol00`00Oomoo`3`Ool00eo_Oomoo`0EOol0 0003Ool0000000<000=oo`03001oogoo009oo`8000Eoo`03001oogoo0?5oo`9OkaEoo`000goo00<0 07ooOol00goo00D007ooOomoo`00009oo`03001oogoo009oo`03001oogoo0?=oo`03Gnmoogoo019o o`000goo00<007ooOol00goo00<007ooOol017oo00<007ooOol00Woo0`00m7oo0Uo_4Woo0003Ool0 0`00Oomoo`04Ool01000Oomoogoo0P001Goo00<007ooOol0mWoo00=OkgooOol03goo0003Ool01@00 Oomoogoo00000Woo00D007ooOomoo`0000Ioo`03001oogoo0?Moo`9Ok`moo`000Woo0P000goo1000 0goo0`0017oo00<007ooOol0nGoo0Uo_3Goo000EOol2003lOol00eo_Oomoo`0:Ool001Eoo`03001o ogoo0?aoo`9Ok`Yoo`005Goo00<007ooOol0oWoo00=OkgooOol01goo000EOol00`00Oomoo`3oOol9 Ool001Eoo`800?moo`Yoo`005Goo00<007ooOol0ogoo2Goo003oOolQOol00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-16.6539, -15.3237, \ 0.779333, 1.14635}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.1 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, CellGrouping->Manual, WindowSize->{1016, 668}, 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, 648, 19, 229, "Title"], Cell[2427, 74, 718, 13, 167, "Subsubtitle"], Cell[CellGroupData[{ Cell[3170, 91, 82, 1, 46, "Subsubtitle"], Cell[3255, 94, 37, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3329, 99, 145, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[3499, 106, 88, 2, 48, "Input"], Cell[3590, 110, 267, 7, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3894, 122, 88, 2, 48, "Input"], Cell[3985, 126, 267, 7, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4289, 138, 88, 2, 48, "Input"], Cell[4380, 142, 267, 7, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4684, 154, 88, 2, 48, "Input"], Cell[4775, 158, 267, 7, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5079, 170, 51, 0, 30, "Input"], Cell[5133, 172, 178, 5, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5348, 182, 78, 2, 30, "Input"], Cell[5429, 186, 242, 6, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5708, 197, 76, 2, 30, "Input"], Cell[5787, 201, 418, 11, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6242, 217, 51, 0, 30, "Input"], Cell[6296, 219, 175, 5, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6520, 230, 118, 1, 48, "Subsubtitle"], Cell[6641, 233, 28, 0, 30, "Input"], Cell[6672, 235, 24, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[6733, 240, 81, 1, 48, "Subsubtitle"], Cell[6817, 243, 38, 0, 30, "Input"], Cell[6858, 245, 38, 0, 30, "Input"], Cell[6899, 247, 38, 0, 30, "Input"], Cell[6940, 249, 38, 0, 30, "Input"], Cell[6981, 251, 38, 0, 30, "Input"], Cell[7022, 253, 42, 0, 30, "Input"], Cell[7067, 255, 43, 0, 30, "Input"], Cell[7113, 257, 41, 0, 30, "Input"], Cell[7157, 259, 39, 0, 30, "Input"], Cell[7199, 261, 39, 0, 30, "Input"], Cell[7241, 263, 39, 0, 30, "Input"], Cell[7283, 265, 39, 0, 30, "Input"], Cell[7325, 267, 39, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7401, 272, 342, 6, 68, "Subsubtitle"], Cell[7746, 280, 28, 0, 30, "Input"], Cell[7777, 282, 27, 0, 30, "Input"], Cell[7807, 284, 28, 0, 30, "Input"], Cell[7838, 286, 27, 0, 30, "Input"], Cell[7868, 288, 24, 0, 30, "Input"], Cell[7895, 290, 24, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7956, 295, 173, 4, 48, "Subsubtitle"], Cell[8132, 301, 22, 0, 30, "Input"], Cell[8157, 303, 22, 0, 30, "Input"], Cell[8182, 305, 24, 0, 30, "Input"], Cell[8209, 307, 22, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[8268, 312, 99, 1, 48, "Subsubtitle"], Cell[8370, 315, 21, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[8428, 320, 110, 1, 48, "Subsubtitle"], Cell[8541, 323, 193, 4, 84, "Input"], Cell[8737, 329, 193, 4, 84, "Input"], Cell[8933, 335, 193, 4, 84, "Input"], Cell[9129, 341, 193, 4, 84, "Input"], Cell[9325, 347, 193, 4, 84, "Input"], Cell[9521, 353, 110, 3, 48, "Input"], Cell[9634, 358, 110, 3, 48, "Input"], Cell[9747, 363, 110, 3, 48, "Input"], Cell[9860, 368, 110, 3, 48, "Input"], Cell[9973, 373, 110, 3, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[10120, 381, 119, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[10264, 386, 140, 3, 66, "Input"], Cell[10407, 391, 36, 1, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[10492, 398, 105, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[10622, 403, 119, 3, 48, "Input"], Cell[10744, 408, 36, 1, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[10829, 415, 96, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[10950, 420, 116, 3, 48, "Input"], Cell[11069, 425, 36, 1, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[11154, 432, 109, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[11288, 437, 324, 5, 120, "Input"], Cell[11615, 444, 540, 7, 112, "Message"], Cell[12158, 453, 2873, 68, 276, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[15080, 527, 111, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[15216, 532, 110, 3, 48, "Input"], Cell[15329, 537, 13158, 399, 70, 3938, 281, "GraphicsData", "PostScript", \ "Graphics"], Cell[28490, 938, 130, 3, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28669, 947, 162, 4, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[28856, 955, 110, 3, 48, "Input"], Cell[28969, 960, 11198, 321, 186, 3078, 216, "GraphicsData", "PostScript", \ "Graphics"], Cell[40170, 1283, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40337, 1291, 110, 3, 48, "Input"], Cell[40450, 1296, 11977, 351, 186, 3459, 241, "GraphicsData", "PostScript", \ "Graphics"], Cell[52430, 1649, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52597, 1657, 110, 3, 48, "Input"], Cell[52710, 1662, 12030, 354, 186, 3508, 244, "GraphicsData", "PostScript", \ "Graphics"], Cell[64743, 2018, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64910, 2026, 110, 3, 48, "Input"], Cell[65023, 2031, 12244, 372, 186, 3791, 263, "GraphicsData", "PostScript", \ "Graphics"], Cell[77270, 2405, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77437, 2413, 113, 3, 48, "Input"], Cell[77553, 2418, 12065, 371, 186, 3802, 264, "GraphicsData", "PostScript", \ "Graphics"], Cell[89621, 2791, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89788, 2799, 113, 3, 48, "Input"], Cell[89904, 2804, 11886, 371, 186, 3864, 267, "GraphicsData", "PostScript", \ "Graphics"], Cell[101793, 3177, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101960, 3185, 52, 0, 30, "Input"], Cell[102015, 3187, 19853, 692, 186, 8144, 543, "GraphicsData", "PostScript", \ "Graphics"], Cell[121871, 3881, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[122050, 3890, 146, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[122221, 3897, 110, 3, 48, "Input"], Cell[122334, 3902, 13392, 451, 186, 4872, 341, "GraphicsData", "PostScript", \ "Graphics"], Cell[135729, 4355, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135896, 4363, 110, 3, 48, "Input"], Cell[136009, 4368, 13686, 479, 186, 5361, 372, "GraphicsData", "PostScript", \ "Graphics"], Cell[149698, 4849, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149865, 4857, 111, 3, 48, "Input"], Cell[149979, 4862, 12980, 447, 186, 4901, 343, "GraphicsData", "PostScript", \ "Graphics"], Cell[162962, 5311, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163129, 5319, 114, 3, 48, "Input"], Cell[163246, 5324, 12665, 440, 186, 4853, 339, "GraphicsData", "PostScript", \ "Graphics"], Cell[175914, 5766, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176081, 5774, 117, 3, 48, "Input"], Cell[176201, 5779, 13019, 405, 186, 4030, 289, "GraphicsData", "PostScript", \ "Graphics"], Cell[189223, 6186, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189390, 6194, 70, 0, 30, "Input"], Cell[189463, 6196, 21716, 834, 231, 10077, 686, "GraphicsData", "PostScript", \ "Graphics"], Cell[211182, 7032, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[211361, 7041, 115, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[211501, 7046, 118, 3, 48, "Input"], Cell[211622, 7051, 12502, 391, 186, 3937, 281, "GraphicsData", "PostScript", \ "Graphics"], Cell[224127, 7444, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)