(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' 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[ 101926, 2767]*) (*NotebookOutlinePosition[ 102631, 2791]*) (* CellTagsIndexPosition[ 102587, 2787]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Vapor-Liquid Equilibrium Diagram of Heptane-Hexane at 760 mmHg\n\ Using PR EOS", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}], StyleBox["\n", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": Housam Binous", FontSize->14], StyleBox["\n", TextAlignment->Center, FontFamily->"MS Shell Dlg", FontSize->8.5, Background->RGBColor[0.605478, 0.996109, 0.605478]], StyleBox["Department 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[BoxData[ \(Off[General::"\"]\)], "Input"], Cell[BoxData[ \(Off[FindRoot::"\"]\)], "Input"], Cell[CellGroupData[{ Cell["Reduced Pressure and Temperature", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(Tre[i_] := T/Tc[i]\)], "Input"], Cell[BoxData[ \(Pre[i_] := P/Pc[i]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Equilibrium constants using the \[Phi]-\[Phi] method \ and the Peng Robinson Equation of State. ", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}]], "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(ap[i_] := 0.45724\ a[i]\ \(\(Tc[i]^2/Pc[i]\)\(\ \)\)\)], "Input"], Cell[BoxData[ \(\(Ap[i_] := ap[i]\ P/\((T)\)^2;\)\)], "Input"], Cell[BoxData[ \(bp[i_] := 0.07780\ Tc[i]/Pc[i]\)], "Input"], Cell[BoxData[ \(Bp[i_] := P\ bp[i]/\((T)\)\)], "Input"], Cell[BoxData[ \(\[Phi]\_v[i_] := Exp[\((Z\_v - 1)\)\ Bp[i]/B\_v - Log[Z\_v - B\_v] - A\_v/\((2\ \(\@2\) B\_v)\)\ \((2\ \(\[Sum]\+\(j = 1\)\%2 y[j]\ Ab[i, j]/ A\_v\) - Bp[i]/B\_v)\)\ Log[\((Z\_v + \((1 + \@2)\) B\_v)\)/\((Z\_v + \((1 - \@2)\) B\_v)\)]]\)], "Input"], Cell[BoxData[ \(\[Phi]\_l[i_] := Exp[\((Z\_l - 1)\)\ Bp[i]/B\_l - Log[Z\_l - B\_l] - A\_l/\((2\ \(\@2\) B\_l)\)\ \((2\ \(\[Sum]\+\(j = 1\)\%2 x[j]\ Ab[i, j]/ A\_l\) - Bp[i]/B\_l)\)\ Log[\((Z\_l + \((1 + \@2)\) B\_l)\)/\((Z\_l + \((1 - \@2)\) B\_l)\)]]\)], "Input"], Cell[BoxData[ \(a[i_] := \((1 + m[i]\ \((1 - Tre[i]^0.5)\))\)^2\)], "Input"], Cell[BoxData[ \(m[i_] := 0.37464 + 1.54226\ \[Omega][i] - 0.26992\ \[Omega][i]^2\)], "Input"], Cell[BoxData[ \(\(A\_v = \[Sum]\+\(i = 1\)\%2\(\[Sum]\+\(j = 1\)\%2 y[i]\ y[j]\ Ab[i, j]\);\)\)], "Input"], Cell[BoxData[ \(\(Ab[i_, j_] = \((Ap[i]\ Ap[j])\)^0.5 \((1 - k[i, j])\);\)\)], "Input"], Cell[BoxData[ \(\(B\_v = \[Sum]\+\(i = 1\)\%2 y[i]\ Bp[i];\)\)], "Input"], Cell[BoxData[ \(\(A\_l = \[Sum]\+\(i = 1\)\%2\(\[Sum]\+\(j = 1\)\%2 x[i]\ x[j]\ Ab[i, j]\);\)\)], "Input"], Cell[BoxData[ \(\(B\_l = \[Sum]\+\(i = 1\)\%2 x[i]\ Bp[i];\)\)], "Input"], Cell[BoxData[ \(\(K[i_] := \[Phi]\_l[i]/\[Phi]\_v[i];\)\)], "Input"], Cell[BoxData[{ \(k[1, 1] = 0; k[2, 2] = 0;\), "\[IndentingNewLine]", \(\(k[2, 1] = k[1, 2];\)\), "\[IndentingNewLine]", \(\(k[1, 2] = 0.0;\)\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Critical Pressure and Temperature and acentric factor for heptane and hexane.\ \ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(Pc[1] = 27.37\ 760/1.01325; Tc[1] = 267.0 + 273.15; \[Omega][1] = 0.34979;\)], "Input"], Cell[BoxData[ \(Pc[2] = 30.32\ 760/1.01325; Tc[2] = 234.7 + 273.15; \[Omega][2] = 0.30070;\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Pressure is 760 mmHg. ", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(\(P = 760;\)\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["VLE Calculations at 760 mmHg.", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(Sol =. \)], "Input"], Cell[BoxData[ \(x[1] = 0; x[2] = 1 - x[1];\)], "Input"], Cell[BoxData[ \(\(Sol[1] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], y[1] + y[2] \[Equal] \ 1, Z\_l^3 + \((\(-1\) + B\_l)\) Z\_l^2 + Z\_l\ \((A\_l - 3 B\_l^2 - 2 B\_l)\) - A\_l\ B\_l + B\_l^2 + B\_l^3 \[Equal] 0, Z\_v^3 + \((\(-1\) + B\_v)\) Z\_v^2 + Z\_v\ \((A\_v - 3 B\_v^2 - 2 B\_v)\) - A\_v\ B\_v + B\_v^2 + B\_v^3 \[Equal] 0}, {y[1], 0.999}, {y[2], 0.001}, {T, 350}, {Z\_l, 0.05}, {Z\_v, 0.92}, MaxIterations \[Rule] 1000000] // Chop;\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ye[1] = y[1] /. Sol[1]; Te[1] = T /. Sol[1]; Print[Te[1], "\< \>", ye[1], "\< \>", Z\_l /. Sol[1], "\< \>", Z\_v /. Sol[1]]\)], "Input"], Cell[BoxData[ InterpretationBox[\(342.12177951202233`\[InvisibleSpace]" "\ \[InvisibleSpace]0\[InvisibleSpace]" "\[InvisibleSpace]0.004933060070907633`\ \[InvisibleSpace]" "\[InvisibleSpace]0.958276051435366`\), SequenceForm[ 342.12177951202233, " ", 0, " ", .0049330600709076326, " ", .95827605143536598], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(342.122 - 273.15\)], "Input"], Cell[BoxData[ \(68.97200000000004`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 2, i < 101, x[1] = 0.01\ \((i - 1)\); x[2] = 1 - x[1]; Sol[i] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], y[1] + y[2] \[Equal] \ 1, Z\_l^3 + \((\(-1\) + B\_l)\) Z\_l^2 + Z\_l\ \((A\_l - 3 B\_l^2 - 2 B\_l)\) - A\_l\ B\_l + B\_l^2 + B\_l^3 \[Equal] 0, Z\_v^3 + \((\(-1\) + B\_v)\) Z\_v^2 + Z\_v\ \((A\_v - 3 B\_v^2 - 2 B\_v)\) - A\_v\ B\_v + B\_v^2 + B\_v^3 \[Equal] 0}, {y[1], y[1] /. Sol[i - 1]}, {y[2], y[2] /. Sol[i - 1]}, {T, T /. Sol[i - 1]}, {Z\_l, Z\_l /. Sol[i - 1]}, {Z\_v, Z\_v /. Sol[i - 1]}, MaxIterations \[Rule] 1000000] // Chop; ye[i] = y[1] /. Sol[i]; Te[i] = T /. Sol[i]; Print[i, "\< \>", Te[i], "\< \>", ye[i], "\< \>", Z\_l /. Sol[i], "\< \>", Z\_v /. Sol[i]]; \(i++\)]\)], "Input"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]342.32315278168363`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0040468620522968075`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004938341462866823`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9582902907555824`\), SequenceForm[ 2, " ", 342.32315278168363, " ", .0040468620522968075, " ", .0049383414628668227, " ", .95829029075558236], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]342.525791907513`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00814997065100944`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004943609371632909`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583041951497373`\), SequenceForm[ 3, " ", 342.525791907513, " ", .0081499706510094402, " ", .0049436093716329092, " ", .9583041951497373], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]342.7297101420402`\[InvisibleSpace]" \ "\[InvisibleSpace]0.012310327839541425`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004948863702914145`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583177566729908`\), SequenceForm[ 4, " ", 342.72971014204018, " ", .012310327839541425, " ", .0049488637029141448, " ", .95831775667299079], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]342.93492091596625`\[InvisibleSpace]" \ "\[InvisibleSpace]0.016528957336206105`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004954104361708952`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583309671889609`\), SequenceForm[ 5, " ", 342.93492091596625, " ", .016528957336206105, " ", .0049541043617089518, " ", .95833096718896094], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]343.1414378408914`\[InvisibleSpace]" \ "\[InvisibleSpace]0.020806905077859317`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004959331252305038`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583438183645661`\), SequenceForm[ 6, " ", 343.1414378408914, " ", .020806905077859317, " ", .004959331252305038, " ", .95834381836456606], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]343.34927471207936`\[InvisibleSpace]" \ "\[InvisibleSpace]0.025145239778738865`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0049645442782787486`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583563016647086`\), SequenceForm[ 7, " ", 343.34927471207936, " ", .025145239778738865, " ", .0049645442782787486, " ", .95835630166470864], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]343.55844551126194`\[InvisibleSpace]" \ "\[InvisibleSpace]0.029545053504965727`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004969743342494795`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583684083467986`\), SequenceForm[ 8, " ", 343.55844551126194, " ", .029545053504965727, " ", .0049697433424947951, " ", .95836840834679859], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]343.76896440948394`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03400746226518092`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004974928347106215`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583801294551113`\), SequenceForm[ 9, " ", 343.76896440948394, " ", .034007462265180921, " ", .0049749283471062153, " ", .95838012945511131], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]343.9808457699859`\[InvisibleSpace]" \ "\[InvisibleSpace]0.038533606617803286`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0049800991935547425`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583914558149746`\), SequenceForm[ 10, " ", 343.98084576998588, " ", .038533606617803286, " ", .0049800991935547425, " ", .95839145581497465], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]344.194104151128`\[InvisibleSpace]" \ "\[InvisibleSpace]0.043124652295407066`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00498525578257149`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584023780267765`\), SequenceForm[ 11, " ", 344.19410415112799, " ", .043124652295407066, " ", .0049852557825714903, " ", .95840237802677652], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]344.40875430935387`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04778179084673909`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004990398014178014`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584128864597915`\), SequenceForm[ 12, " ", 344.40875430935387, " ", .047781790846739093, " ", .0049903980141780139, " ", .9584128864597915], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]344.62481120219303`\[InvisibleSpace]" \ "\[InvisibleSpace]0.052506240296905364`\[InvisibleSpace]" \ "\[InvisibleSpace]0.004995525787687769`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584229712458164`\), SequenceForm[ 13, " ", 344.62481120219303, " ", .052506240296905364, " ", .004995525787687769, " ", .95842297124581644], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]344.84228999130494`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05729924582627759`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005000639001707986`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584326222726118`\), SequenceForm[ 14, " ", 344.84228999130494, " ", .057299245826277587, " ", .0050006390017079856, " ", .95843262227261183], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]345.0612060455617`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06216208046868079`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005005737554141951`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584418291771397`\), SequenceForm[ 15, " ", 345.06120604556168, " ", .06216208046868079, " ", .0050057375541419508, " ", .95844182917713971], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]345.2815749441717`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06709604582945314`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005010821342191773`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584505813385925`\), SequenceForm[ 16, " ", 345.28157494417172, " ", .067096045829453138, " ", .0050108213421917727, " ", .95845058133859251], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]345.50341247984227`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07210247282396587`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00501589026236161`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584588678712075`\), SequenceForm[ 17, " ", 345.50341247984227, " ", .072102472823965869, " ", .0050158902623616101, " ", .95845886787120749], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]345.72673466198285`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07718272243723621`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005020944210461388`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584666776168541`\), SequenceForm[ 18, " ", 345.72673466198285, " ", .077182722437236215, " ", .0050209442104613882, " ", .95846667761685411], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]345.9515577199465`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08233818650525815`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00502598308161107`\[InvisibleSpace]" \ "\[InvisibleSpace]0.958473999137395`\), SequenceForm[ 19, " ", 345.95155771994649, " ", .082338186505258149, " ", .0050259830816110698, " ", .95847399913739495], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]346.17789810631166`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0875702885187142`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005031006770245448`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584808207068036`\), SequenceForm[ 20, " ", 346.17789810631166, " ", .087570288518714207, " ", .0050310067702454483, " ", .95848082070680363], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]346.40577250020294`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09288048444974628`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005036015170119525`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584871303030384`\), SequenceForm[ 21, " ", 346.40577250020294, " ", .092880484449746281, " ", .0050360151701195248, " ", .95848713030303845], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]346.6351978106502`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0982702636024731`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005041008174314503`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584929155996587`\), SequenceForm[ 22, " ", 346.6351978106502, " ", .098270263602473096, " ", .0050410081743145034, " ", .95849291559965866], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]346.8661911799845`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10374114948798188`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005045985675244415`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584981639571782`\), SequenceForm[ 23, " ", 346.86619117998453, " ", .10374114948798188, " ", .0050459856752444153, " ", .95849816395717824], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]347.09876998727503`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10929470072452799`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005050947564663387`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585028624141451`\), SequenceForm[ 24, " ", 347.09876998727503, " ", .10929470072452799, " ", .0050509475646633873, " ", .95850286241414506], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]347.33295185179975`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11493251196369964`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00505589373367364`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585069976779383`\), SequenceForm[ 25, " ", 347.33295185179975, " ", .11493251196369964, " ", .0050558937336736397, " ", .95850699767793834], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]347.5687546365543`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12065621484333891`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005060824072734185`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585105561152721`\), SequenceForm[ 26, " ", 347.56875463655427, " ", .12065621484333891, " ", .0050608240727341852, " ", .95851055611527214], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]347.8061964517961`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12646747896801833`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005065738471670314`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585135237423992`\), SequenceForm[ 27, " ", 347.8061964517961, " ", .12646747896801833, " ", .0050657384716703141, " ", .95851352374239918], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]348.04529565862475`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13236801291789832`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005070636819683845`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585158862149997`\), SequenceForm[ 28, " ", 348.04529565862475, " ", .13236801291789832, " ", .005070636819683845, " ", .95851588621499972], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]348.2860708725931`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13835956528683352`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005075519005364254`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585176288177466`\), SequenceForm[ 29, " ", 348.28607087259309, " ", .13835956528683352, " ", .0050755190053642539, " ", .9585176288177466], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]348.528540967356`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1444439257505876`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005080384916700652`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585187364535369`\), SequenceForm[ 30, " ", 348.52854096735598, " ", .14444392575058759, " ", .0050803849167006523, " ", .95851873645353691], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]348.7727250783472`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1506229261660729`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005085234441094665`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585191936323757`\), SequenceForm[ 31, " ", 348.77272507834721, " ", .1506229261660729, " ", .0050852344410946652, " ", .9585191936323757], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]349.01864260648784`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1568984417025305`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0050900674653743035`\[InvisibleSpace]" \ "\[InvisibleSpace]0.958518984459902`\), SequenceForm[ 32, " ", 349.01864260648784, " ", .15689844170253051, " ", .0050900674653743035, " ", .95851898445990202], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]349.26631322192674`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1632723920056197`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005094883875808794`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585180926255439`\), SequenceForm[ 33, " ", 349.26631322192674, " ", .16327239200561969, " ", .0050948838758087941, " ", .95851809262554388], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]349.51575686780404`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16974674239538193`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005099683558124499`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585165013902882`\), SequenceForm[ 34, " ", 349.51575686780404, " ", .16974674239538193, " ", .0050996835581244987, " ", .95851650139028821], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]349.76699376404576`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17632350509910127`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005104466397521876`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585141935740551`\), SequenceForm[ 35, " ", 349.76699376404576, " ", .17632350509910127, " ", .0051044663975218759, " ", .9585141935740551], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]350.02004441118`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18300474052008137`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0051092322786936185`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585111515426594`\), SequenceForm[ 36, " ", 350.02004441117998, " ", .18300474052008137, " ", .0051092322786936185, " ", .95851115154265942], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]350.2749295941768`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18979255854341562`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005113981085843963`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585073571943477`\), SequenceForm[ 37, " ", 350.2749295941768, " ", .18979255854341562, " ", .0051139810858439631, " ", .95850735719434765], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]350.5316703863089`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19668911987983698`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005118712702709243`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9585027919458934`\), SequenceForm[ 38, " ", 350.53167038630892, " ", .19668911987983698, " ", .0051187127027092433, " ", .95850279194589338], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]350.7902881530296`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2036966374487587`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005123427012579765`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584974367182375`\), SequenceForm[ 39, " ", 350.79028815302962, " ", .20369663744875871, " ", .0051234270125797652, " ", .95849743671823751], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]351.0508045558693`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21081737780167417`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0051281238983229786`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584912719216561`\), SequenceForm[ 40, " ", 351.05080455586932, " ", .21081737780167417, " ", .0051281238983229786, " ", .95849127192165606], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]351.3132415563426`\[InvisibleSpace]" \ "\[InvisibleSpace]0.218053662587079`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00513280324240813`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584842774404393`\), SequenceForm[ 41, " ", 351.31324155634258, " ", .21805366258707901, " ", .00513280324240813, " ", .95848427744043929], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]351.5776214198677`\[InvisibleSpace]" \ "\[InvisibleSpace]0.22540787005812282`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005137464926932343`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584764326170657`\), SequenceForm[ 42, " ", 351.57762141986768, " ", .22540787005812282, " ", .005137464926932343, " ", .95847643261706572], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]351.8439667196944`\[InvisibleSpace]" \ "\[InvisibleSpace]0.23288243662424496`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0051421088336482445`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584677162358498`\), SequenceForm[ 43, " ", 351.84396671969438, " ", .23288243662424496, " ", .0051421088336482445, " ", .95846771623584981], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]352.1123003408346`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2404798584480503`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0051467348439932035`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584581065060523`\), SequenceForm[ 44, " ", 352.11230034083462, " ", .24047985844805031, " ", .0051467348439932035, " ", .95845810650605234], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]352.38264548399593`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2482026930887225`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005151342839120235`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584475810444245`\), SequenceForm[ 45, " ", 352.38264548399593, " ", .2482026930887225, " ", .0051513428391202348, " ", .95844758104442451], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]352.6550256695123`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2560535611933167`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005155932699930635`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584361168571747`\), SequenceForm[ 46, " ", 352.65502566951233, " ", .25605356119331668, " ", .0051559326999306354, " ", .95843611685717467], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]352.9294647412678`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2640351482372765`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005160504307108454`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584236903213302`\), SequenceForm[ 47, " ", 352.92946474126779, " ", .26403514823727647, " ", .0051605043071084539, " ", .95842369032133023], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]353.20598687061107`\[InvisibleSpace]" \ "\[InvisibleSpace]0.27215020631557985`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005165057541156827`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9584102771654806`\), SequenceForm[ 48, " ", 353.20598687061107, " ", .27215020631557985, " ", .0051650575411568266, " ", .95841027716548055], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]353.48461656025387`\[InvisibleSpace]" \ "\[InvisibleSpace]0.28040155598592725`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005169592282436311`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583958524498709`\), SequenceForm[ 49, " ", 353.48461656025387, " ", .28040155598592725, " ", .0051695922824363111, " ", .95839585244987091], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]353.7653786481515`\[InvisibleSpace]" \ "\[InvisibleSpace]0.28879208816542074`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005174108411205236`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583803905458314`\), SequenceForm[ 50, " ", 353.76537864815151, " ", .28879208816542074, " ", .0051741084112052358, " ", .95838039054583135], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]354.04829831135726`\[InvisibleSpace]" \ "\[InvisibleSpace]0.29732476608222963`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00517860580766221`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583638651145138`\), SequenceForm[ 51, " ", 354.04829831135726, " ", .29732476608222963, " ", .0051786058076622099, " ", .95836386511451377], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]354.3334010698477`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3060026272837243`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00518308435199085`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583462490849128`\), SequenceForm[ 52, " ", 354.3334010698477, " ", .30600262728372429, " ", .0051830843519908498, " ", .95834624908491284], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]354.62071279031306`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3148287857026522`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005187543924406809`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583275146311451`\), SequenceForm[ 53, " ", 354.62071279031306, " ", .31482878570265221, " ", .0051875439244068091, " ", .95832751463114507], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]354.91025968990476`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3238064337829001`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0051919844052072135`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9583076331489625`\), SequenceForm[ 54, " ", 354.91025968990476, " ", .32380643378290008, " ", .0051919844052072135, " ", .9583076331489625], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]355.2020683399359`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3329388446664263`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005196405674822618`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9582865752314702`\), SequenceForm[ 55, " ", 355.20206833993592, " ", .33293884466642631, " ", .0051964056748226182, " ", .95828657523147021], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]355.49616566952733`\[InvisibleSpace]" \ "\[InvisibleSpace]0.34222937444303203`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0052008076138715335`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9582643106440213`\), SequenceForm[ 56, " ", 355.49616566952733, " ", .34222937444303203, " ", .0052008076138715335, " ", .95826431064402129], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]355.7925789691916`\[InvisibleSpace]" \ "\[InvisibleSpace]0.35168146446455045`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00520519010321767`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9582408082982622`\), SequenceForm[ 57, " ", 355.7925789691916, " ", .35168146446455045, " ", .0052051901032176698, " ", .95824080829826219], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]356.0913358943469`\[InvisibleSpace]" \ "\[InvisibleSpace]0.361298643725176`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005209553024030012`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9582160362252939`\), SequenceForm[ 58, " ", 356.09133589434691, " ", .36129864372517601, " ", .0052095530240300119, " ", .95821603622529394], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]356.3924644687546`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3710845313095989`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005213896257845772`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9581899615479217`\), SequenceForm[ 59, " ", 356.39246446875461, " ", .3710845313095989, " ", .0052138962578457716, " ", .95818996154792169], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]356.69599308787053`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3810428389106578`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005218219686636414`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9581625504519596`\), SequenceForm[ 60, " ", 356.69599308787053, " ", .38104283891065782, " ", .005218219686636414, " ", .95816255045195964], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]357.0019505221009`\[InvisibleSpace]" \ "\[InvisibleSpace]0.39117737341825215`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0052225231928768115`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9581337681565577`\), SequenceForm[ 61, " ", 357.00195052210091, " ", .39117737341825215, " ", .0052225231928768115, " ", .95813376815655771], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]357.3103659199552`\[InvisibleSpace]" \ "\[InvisibleSpace]0.401492039581245`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005226806659617654`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9581035788835148`\), SequenceForm[ 62, " ", 357.31036591995519, " ", .40149203958124502, " ", .0052268066596176544, " ", .95810357888351483], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]357.6212688110826`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4119908427441247`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005231069970561298`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9580719458255449`\), SequenceForm[ 63, " ", 357.62126881108259, " ", .41199084274412467, " ", .0052310699705612976, " ", .95807194582554489], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]357.9346891091859`\[InvisibleSpace]" \ "\[InvisibleSpace]0.42267789166018566`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005235313010141082`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9580388311134583`\), SequenceForm[ 64, " ", 357.93468910918591, " ", .42267789166018566, " ", .0052353130101410817, " ", .95803883111345833], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]358.2506571147985`\[InvisibleSpace]" \ "\[InvisibleSpace]0.43355740138301596`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005239535663604331`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9580041957822202`\), SequenceForm[ 65, " ", 358.25065711479851, " ", .43355740138301596, " ", .0052395356636043312, " ", .95800419578222018], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]358.5692035179127`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4446336962380565`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0052437378170991315`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9579679997358458`\), SequenceForm[ 66, " ", 358.56920351791268, " ", .44463369623805649, " ", .0052437378170991315, " ", .95796799973584579], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]358.89035940045085`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4559112128760204`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005247919357765026`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9579302017110971`\), SequenceForm[ 67, " ", 358.89035940045085, " ", .45591121287602038, " ", .0052479193577650261, " ", .95793020171109711], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]359.21415623855967`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4673945034099495`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005252080173827796`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9578907592399306`\), SequenceForm[ 68, " ", 359.21415623855967, " ", .46739450340994948, " ", .005252080173827796, " ", .95789075923993061], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]359.5406259047229`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4790882386376609`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005256220154698416`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9578496286106616`\), SequenceForm[ 69, " ", 359.5406259047229, " ", .47908823863766092, " ", .0052562201546984162, " ", .95784962861066159], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]359.8698006696691`\[InvisibleSpace]" \ "\[InvisibleSpace]0.49099721135134`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005260339191076414`\[InvisibleSpace]" \ "\[InvisibleSpace]0.957806764827796`\), SequenceForm[ 70, " ", 359.86980066966908, " ", .49099721135134, " ", .0052603391910764144, " ", .95780676482779603], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]360.2017132040655`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5031263397360066`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0052644371750577`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9577621215704846`\), SequenceForm[ 71, " ", 360.20171320406553, " ", .50312633973600662, " ", .0052644371750577004, " ", .95776212157048457], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]360.53639657998133`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5154806708585639`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005268514000247105`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9577156511495529`\), SequenceForm[ 72, " ", 360.53639657998133, " ", .51548067085856386, " ", .0052685140002471046, " ", .95771565114955293], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]360.87388427210124`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5280653842490726`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005272569561875704`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9576673044630587`\), SequenceForm[ 73, " ", 360.87388427210124, " ", .52806538424907257, " ", .0052725695618757043, " ", .9576673044630587], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]361.2142101586749`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5408857955759069`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005276603756923178`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9576170309503251`\), SequenceForm[ 74, " ", 361.21421015867492, " ", .54088579557590688, " ", .0052766037569231782, " ", .95761703095032513], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]361.5574085221826`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5539473604163474`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0052806164842452786`\[InvisibleSpace]" \ "\[InvisibleSpace]0.957564778544401`\), SequenceForm[ 75, " ", 361.55740852218258, " ", .5539473604163474, " ", .0052806164842452786, " ", .95756477854440103], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]361.90351404969977`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5672556781241234`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005284607644706671`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9575104936228924`\), SequenceForm[ 76, " ", 361.90351404969977, " ", .56725567812412336, " ", .0052846076447066711, " ", .95751049362289242], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]362.25256183293806`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5808164957953681`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005288577141319226`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9574541209571129`\), SequenceForm[ 77, " ", 362.25256183293806, " ", .58081649579536809, " ", .0052885771413192263, " ", .95745412095711291], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]362.60458736794476`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5946357123343413`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005292524879386021`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9573956036594942`\), SequenceForm[ 78, " ", 362.60458736794476, " ", .59463571233434132, " ", .0052925248793860213, " ", .95739560365949417], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]362.95962655443776`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6087193826202015`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005296450766651169`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9573348831292049`\), SequenceForm[ 79, " ", 362.95962655443776, " ", .60871938262020153, " ", .0052964507666511691, " ", .95733488312920489], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]363.3177156947539`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6230737217759968`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005300354713455669`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9572718989959111`\), SequenceForm[ 80, " ", 363.31771569475387, " ", .62307372177599685, " ", .0053003547134556689, " ", .95727189899591114], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]363.678891492387`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6377051095409362`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005304236632899491`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9572065890616249`\), SequenceForm[ 81, " ", 363.67889149238698, " ", .63770510954093618, " ", .005304236632899491, " ", .95720658906162492], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]364.04319105009114`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6526200947468722`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005308096441010036`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9571388892405737`\), SequenceForm[ 82, " ", 364.04319105009114, " ", .65262009474687221, " ", .0053080964410100358, " ", .95713888924057366], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]364.41065186752513`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6678253998997552`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005311934056917151`\[InvisibleSpace]" \ "\[InvisibleSpace]0.957068733497033`\), SequenceForm[ 83, " ", 364.41065186752513, " ", .6678253998997552, " ", .0053119340569171506, " ", .95706873349703303], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]364.7813118384081`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6833279258667074`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005315749403034951`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9569960537810491`\), SequenceForm[ 84, " ", 364.7813118384081, " ", .68332792586670743, " ", .0053157494030349507, " ", .95699605378104913], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]365.1552092471644`\[InvisibleSpace]" \ "\[InvisibleSpace]0.699134756669132`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005319542405250537`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9569207799619966`\), SequenceForm[ 85, " ", 365.15520924716441, " ", .69913475666913205, " ", .0053195424052505371, " ", .95692077996199665], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]365.53238276502316`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7152531643821026`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005323312993119891`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9568428397598906`\), SequenceForm[ 86, " ", 365.53238276502316, " ", .71525316438210262, " ", .0053233129931198912, " ", .9568428397598906], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]365.91287144554803`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7316906141400509`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005327061100071047`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9567621586743954`\), SequenceForm[ 87, " ", 365.91287144554803, " ", .73169061414005088, " ", .0053270611000710471, " ", .9567621586743954], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]366.29671471956306`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7484547692485382`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0053307866636147835`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9566786599114535`\), SequenceForm[ 88, " ", 366.29671471956306, " ", .74845476924853815, " ", .0053307866636147835, " ", .95667865991145351], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]366.68395238944515`\[InvisibleSpace]" \ "\[InvisibleSpace]0.765553496401618`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005334489625562994`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9565922643074634`\), SequenceForm[ 89, " ", 366.68395238944515, " ", .76555349640161796, " ", .0053344896255629942, " ", .95659226430746336], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]367.0746246227497`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7829948710040071`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005338169932254911`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9565028902509363`\), SequenceForm[ 90, " ", 367.0746246227497, " ", .78299487100400711, " ", .0053381699322549107, " ", .95650289025093627], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]367.4687719451345`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8007871825969933`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005341827534791379`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9564104536015566`\), SequenceForm[ 91, " ", 367.46877194513451, " ", .80078718259699333, " ", .0053418275347913791, " ", .95641045360155663], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]367.86643523254907`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8189389403866371`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005345462389277329`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9563148676065689`\), SequenceForm[ 92, " ", 367.86643523254907, " ", .81893894038663706, " ", .0053454623892773287, " ", .95631486760656892], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]368.26765570265246`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8374588788724541`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005349074457072626`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9562160428144223`\), SequenceForm[ 93, " ", 368.26765570265246, " ", .83745887887245407, " ", .0053490744570726259, " ", .9562160428144223], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]368.67247490542246`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8563559635743866`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005352663705051464`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9561138869855865`\), SequenceForm[ 94, " ", 368.67247490542246, " ", .85635596357438659, " ", .005352663705051464, " ", .95611388698558653], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]369.08093471291767`\[InvisibleSpace]" \ "\[InvisibleSpace]0.875639396855405`\[InvisibleSpace]" \ "\[InvisibleSpace]0.00535623010587045`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9560083050004737`\), SequenceForm[ 95, " ", 369.08093471291767, " ", .87563939685540504, " ", .0053562301058704496, " ", .95600830500047373], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]369.49307730815656`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8953186238366287`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005359773638245537`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9558991987643785`\), SequenceForm[ 96, " ", 369.49307730815656, " ", .89531862383662875, " ", .0053597736382455371, " ", .95589919876437845], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]369.9089451730689`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9154033384013353`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005363294287237906`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9557864671093657`\), SequenceForm[ 97, " ", 369.9089451730689, " ", .91540333840133525, " ", .0053632942872379064, " ", .95578646710936566], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]370.3285810754842`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9359034892836933`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005366792044548989`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9556700056930253`\), SequenceForm[ 98, " ", 370.32858107548418, " ", .93590348928369327, " ", .0053667920445489891, " ", .95567000569302529], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]370.75202805510975`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9568292862374466`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0053702669088246885`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9555497068940186`\), SequenceForm[ 99, " ", 370.75202805510975, " ", .95682928623744656, " ", .0053702669088246885, " ", .95554970689401864], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(100\[InvisibleSpace]" \ "\[InvisibleSpace]371.1793294084619`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9781912062791668`\[InvisibleSpace]" \ "\[InvisibleSpace]0.005373718885968929`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9554254597043367`\), SequenceForm[ 100, " ", 371.17932940846191, " ", .97819120627916678, " ", .0053737188859689288, " ", .95542545970433668], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(371.179 - 273.15\)], "Input"], Cell[BoxData[ \(98.029`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(tbl1 = Table[{1 - ye[i], Te[i] - 273.15}, {i, 1, 100}];\)\)], "Input"], Cell[BoxData[ \(\(tbl2 = Table[{1 - 0.01 \((i - 1)\), Te[i] - 273.15}, {i, 1, 100}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt1 = ListPlot[tbl1, PlotJoined \[Rule] True, PlotRange \[Rule] All, PlotStyle \[Rule] RGBColor[1, 0, 0], DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt2 = ListPlot[tbl2, PlotJoined \[Rule] True, PlotRange \[Rule] All, PlotStyle \[Rule] RGBColor[0, 0, 1], DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt1, plt2, DisplayFunction \[Rule] $DisplayFunction]\)], "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.0141895 0.962001 -1.38241 0.0202565 [ [.20659 .02304 -9 -9 ] [.20659 .02304 9 0 ] [.39899 .02304 -9 -9 ] [.39899 .02304 9 0 ] [.59139 .02304 -9 -9 ] [.59139 .02304 9 0 ] [.78379 .02304 -9 -9 ] [.78379 .02304 9 0 ] [.97619 .02304 -3 -9 ] [.97619 .02304 3 0 ] [.00169 .13683 -12 -4.5 ] [.00169 .13683 0 4.5 ] [.00169 .23811 -12 -4.5 ] [.00169 .23811 0 4.5 ] [.00169 .33939 -12 -4.5 ] [.00169 .33939 0 4.5 ] [.00169 .44067 -12 -4.5 ] [.00169 .44067 0 4.5 ] [.00169 .54196 -12 -4.5 ] [.00169 .54196 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 .20659 .03554 m .20659 .04179 L s [(0.2)] .20659 .02304 0 1 Mshowa .39899 .03554 m .39899 .04179 L s [(0.4)] .39899 .02304 0 1 Mshowa .59139 .03554 m .59139 .04179 L s [(0.6)] .59139 .02304 0 1 Mshowa .78379 .03554 m .78379 .04179 L s [(0.8)] .78379 .02304 0 1 Mshowa .97619 .03554 m .97619 .04179 L s [(1)] .97619 .02304 0 1 Mshowa .125 Mabswid .06229 .03554 m .06229 .03929 L s .11039 .03554 m .11039 .03929 L s .15849 .03554 m .15849 .03929 L s .25469 .03554 m .25469 .03929 L s .30279 .03554 m .30279 .03929 L s .35089 .03554 m .35089 .03929 L s .44709 .03554 m .44709 .03929 L s .49519 .03554 m .49519 .03929 L s .54329 .03554 m .54329 .03929 L s .63949 .03554 m .63949 .03929 L s .68759 .03554 m .68759 .03929 L s .73569 .03554 m .73569 .03929 L s .83189 .03554 m .83189 .03929 L s .87999 .03554 m .87999 .03929 L s .92809 .03554 m .92809 .03929 L s .25 Mabswid 0 .03554 m 1 .03554 L s .01419 .13683 m .02044 .13683 L s [(75)] .00169 .13683 1 0 Mshowa .01419 .23811 m .02044 .23811 L s [(80)] .00169 .23811 1 0 Mshowa .01419 .33939 m .02044 .33939 L s [(85)] .00169 .33939 1 0 Mshowa .01419 .44067 m .02044 .44067 L s [(90)] .00169 .44067 1 0 Mshowa .01419 .54196 m .02044 .54196 L s [(95)] .00169 .54196 1 0 Mshowa .125 Mabswid .01419 .0558 m .01794 .0558 L s .01419 .07606 m .01794 .07606 L s .01419 .09631 m .01794 .09631 L s .01419 .11657 m .01794 .11657 L s .01419 .15708 m .01794 .15708 L s .01419 .17734 m .01794 .17734 L s .01419 .1976 m .01794 .1976 L s .01419 .21785 m .01794 .21785 L s .01419 .25836 m .01794 .25836 L s .01419 .27862 m .01794 .27862 L s .01419 .29888 m .01794 .29888 L s .01419 .31913 m .01794 .31913 L s .01419 .35965 m .01794 .35965 L s .01419 .3799 m .01794 .3799 L s .01419 .40016 m .01794 .40016 L s .01419 .42042 m .01794 .42042 L s .01419 .46093 m .01794 .46093 L s .01419 .48119 m .01794 .48119 L s .01419 .50144 m .01794 .50144 L s .01419 .5217 m .01794 .5217 L s .01419 .01529 m .01794 .01529 L s .01419 .56221 m .01794 .56221 L s .01419 .58247 m .01794 .58247 L s .01419 .60272 m .01794 .60272 L s .25 Mabswid .01419 0 m .01419 .61803 L s 1 0 0 r .5 Mabswid .97619 .01472 m .9723 .01879 L .96835 .0229 L .96435 .02703 L .96029 .03119 L .95617 .03537 L .952 .03958 L .94777 .04382 L .94348 .04808 L .93912 .05237 L .9347 .05669 L .93022 .06104 L .92568 .06542 L .92107 .06982 L .91639 .07426 L .91164 .07872 L .90683 .08322 L .90194 .08774 L .89698 .09229 L .89195 .09688 L .88684 .10149 L .88165 .10614 L .87639 .11082 L .87105 .11553 L .86563 .12028 L .86012 .12505 L .85453 .12986 L .84885 .1347 L .84309 .13958 L .83724 .14449 L .83129 .14944 L .82525 .15442 L .81912 .15944 L .81289 .16449 L .80657 .16958 L .80014 .17471 L .79361 .17987 L .78698 .18507 L .78023 .19031 L .77338 .19559 L .76642 .2009 L .75935 .20626 L .75216 .21165 L .74485 .21709 L .73742 .22256 L .72987 .22808 L .72219 .23364 L .71438 .23924 L .70644 .24489 L .69837 .25057 L Mistroke .69016 .2563 L .68182 .26208 L .67332 .2679 L .66469 .27376 L .6559 .27968 L .64697 .28563 L .63787 .29164 L .62862 .29769 L .61921 .30379 L .60963 .30994 L .59988 .31614 L .58995 .32238 L .57985 .32868 L .56957 .33503 L .55911 .34143 L .54845 .34788 L .5376 .35439 L .52656 .36095 L .51531 .36756 L .50385 .37423 L .49218 .38095 L .4803 .38773 L .46819 .39457 L .45586 .40146 L .44329 .40841 L .43049 .41542 L .41744 .42249 L .40415 .42962 L .3906 .43682 L .37679 .44407 L .36272 .45139 L .34837 .45877 L .33374 .46621 L .31883 .47372 L .30362 .48129 L .28812 .48893 L .2723 .49664 L .25618 .50441 L .23973 .51226 L .22295 .52017 L .20583 .52816 L .18837 .53621 L .17055 .54434 L .15238 .55254 L .13382 .56081 L .11489 .56916 L .09557 .57759 L .07585 .58609 L .05572 .59466 L .03517 .60332 L Mistroke Mfstroke 0 0 1 r .97619 .01472 m .96657 .01879 L .95695 .0229 L .94733 .02703 L .93771 .03119 L .92809 .03537 L .91847 .03958 L .90885 .04382 L .89923 .04808 L .88961 .05237 L .87999 .05669 L .87037 .06104 L .86075 .06542 L .85113 .06982 L .84151 .07426 L .83189 .07872 L .82227 .08322 L .81265 .08774 L .80303 .09229 L .79341 .09688 L .78379 .10149 L .77417 .10614 L .76455 .11082 L .75493 .11553 L .74531 .12028 L .73569 .12505 L .72607 .12986 L .71645 .1347 L .70683 .13958 L .69721 .14449 L .68759 .14944 L .67797 .15442 L .66835 .15944 L .65873 .16449 L .64911 .16958 L .63949 .17471 L .62987 .17987 L .62025 .18507 L .61063 .19031 L .60101 .19559 L .59139 .2009 L .58177 .20626 L .57215 .21165 L .56253 .21709 L .55291 .22256 L .54329 .22808 L .53367 .23364 L .52405 .23924 L .51443 .24489 L .50481 .25057 L Mistroke .49519 .2563 L .48557 .26208 L .47595 .2679 L .46633 .27376 L .45671 .27968 L .44709 .28563 L .43747 .29164 L .42785 .29769 L .41823 .30379 L .40861 .30994 L .39899 .31614 L .38937 .32238 L .37975 .32868 L .37013 .33503 L .36051 .34143 L .35089 .34788 L .34127 .35439 L .33165 .36095 L .32203 .36756 L .31241 .37423 L .30279 .38095 L .29317 .38773 L .28355 .39457 L .27393 .40146 L .26431 .40841 L .25469 .41542 L .24507 .42249 L .23545 .42962 L .22583 .43682 L .21621 .44407 L .20659 .45139 L .19697 .45877 L .18735 .46621 L .17773 .47372 L .16811 .48129 L .15849 .48893 L .14887 .49664 L .13925 .50441 L .12963 .51226 L .12001 .52017 L .11039 .52816 L .10077 .53621 L .09115 .54434 L .08153 .55254 L .07191 .56081 L .06229 .56916 L .05267 .57759 L .04305 .58609 L .03343 .59466 L .02381 .60332 L Mistroke 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]HGAYHf4PAg9QL6QYHg0?ooo`003`3oool00`000000oooo0?ooo`3_0?ooo`80003o2`3oool0 0`3o0000oooo0?ooo`0?0?ooo`003`3oool00`000000oooo0?ooo`3]0?ooo`80003o3@3oool00`3o 0000oooo0?ooo`0?0?ooo`003`3oool200000>`0oooo0P000?l>0?ooo`030?l0003oool0oooo0100 oooo000?0?ooo`030000003oool0oooo0>P0oooo0`000?l>0?ooo`80o`004`3oool000l0oooo00<0 00000?ooo`3oool0i@3oool30000oa00oooo00<0o`000?ooo`3oool04`3oool000l0oooo00<00000 0?ooo`3oool0h`3oool20000oa80oooo00<0o`000?ooo`3oool0503oool000l0oooo00<000000?oo o`3oool0hP3oool00`000?l0oooo0?ooo`0A0?ooo`030?l0003oool0oooo01D0oooo000?0?ooo`80 0000h@3oool20000oa<0oooo00<0o`000?ooo`3oool05P3oool000l0oooo00<000000?ooo`3oool0 gP3oool20000oa@0oooo00<0o`000?ooo`3oool05`3oool000l0oooo00<000000?ooo`3oool0f`3o ool30000oaD0oooo00<0o`000?ooo`3oool0603oool000l0oooo00<000000?ooo`3oool0f@3oool2 0000oaH0oooo0P3o000K0?ooo`003`3oool00`000000oooo0?ooo`3G0?ooo`80003o5`3oool00`3o 0000oooo0?ooo`0K0?ooo`003`3oool00`000000oooo0?ooo`3F0?ooo`030000o`3oool0oooo01L0 oooo00<0o`000?ooo`3oool06`3oool000l0oooo0P00003D0?ooo`<0003o6@3oool00`3o0000oooo 0?ooo`0L0?ooo`003`3oool00`000000oooo0?ooo`3@0?ooo`<0003o6P3oool20?l001l0oooo000? 0?ooo`030000003oool0oooo0P3oool000l0oooo00<00000 0?ooo`3oool0XP3oool20000obd0oooo00<0o`000?ooo`3oool0>P3oool000l0oooo00<000000?oo o`3oool0X@3oool00`000?l0oooo0?ooo`0/0?ooo`030?l0003oool0oooo03/0oooo000?0?ooo`03 0000003oool0oooo09l0oooo0P000?l]0?ooo`80o`00?P3oool000l0oooo0P00002N0?ooo`80003o ;P3oool00`3o0000oooo0?ooo`0n0?ooo`003`3oool00`000000oooo0?ooo`2K0?ooo`80003o;`3o ool00`3o0000oooo0?ooo`0o0?ooo`003`3oool00`000000oooo0?ooo`2I0?ooo`80003o;`3oool2 0?l00480oooo000?0?ooo`030000003oool0oooo09P0oooo00<0003o0?ooo`3oool0;P3oool00`3o 0000oooo0?ooo`120?ooo`003`3oool00`000000oooo0?ooo`2F0?ooo`80003o<03oool00`3o0000 oooo0?ooo`130?ooo`003`3oool2000009D0oooo0P000?l`0?ooo`80o`00AP3oool000l0oooo00<0 00000?ooo`3oool0TP3oool20000oc40oooo00<0o`000?ooo`3oool0AP3oool000l0oooo00<00000 0?ooo`3oool0T@3oool00`000?l0oooo0?ooo`0`0?ooo`030?l0003oool0oooo04L0oooo000?0?oo o`030000003oool0oooo08l0oooo0P000?la0?ooo`80o`00BP3oool00080oooo0P0000040?ooo`80 00001@3oool00`000000oooo0?ooo`2=0?ooo`80003o 0?ooo`000P3oool2000000<0oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`28 0?ooo`030000o`3oool0oooo0380oooo00<0o`000?ooo`3oool0CP3oool000050?ooo`000000oooo 0?ooo`0000000P3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo08H0oooo0P00 0?lc0?ooo`80o`00D@3oool00080oooo0P0000040?ooo`8000001@3oool00`000000oooo0?ooo`24 0?ooo`80003o<`3oool20?l005<0oooo000?0?ooo`030000003oool0oooo0880oooo0P000?ld0?oo o`030?l0003oool0oooo05<0oooo000?0?ooo`800000PP3oool00`000?l0oooo0?ooo`0c0?ooo`03 0?l0003oool0oooo05@0oooo000?0?ooo`030000003oool0oooo07l0oooo0P000?ld0?ooo`80o`00 E`3oool000l0oooo00<000000?ooo`3oool0O@3oool20000ocD0oooo00<0o`000?ooo`3oool0E`3o ool000l0oooo00<000000?ooo`3oool0O03oool00`000?l0oooo0?ooo`0d0?ooo`030?l0003oool0 oooo05P0oooo000?0?ooo`030000003oool0oooo07X0oooo0P000?le0?ooo`80o`00F`3oool000l0 oooo00<000000?ooo`3oool0N@3oool00`000?l0oooo0?ooo`0d0?ooo`030?l0003oool0oooo05/0 oooo000?0?ooo`800000N03oool20000ocD0oooo0P3o001N0?ooo`003`3oool00`000000oooo0?oo o`1e0?ooo`80003o=@3oool20?l00600oooo000?0?ooo`030000003oool0oooo07@0oooo00<0003o 0?ooo`3oool0=03oool00`3o0000oooo0?ooo`1P0?ooo`003`3oool00`000000oooo0?ooo`1c0?oo o`030000o`3oool0oooo03@0oooo00<0o`000?ooo`3oool0H@3oool000l0oooo00<000000?ooo`3o ool0L@3oool20000ocD0oooo0P3o001T0?ooo`003`3oool00`000000oooo0?ooo`1_0?ooo`80003o =@3oool20?l006H0oooo000?0?ooo`800000KP3oool20000ocH0oooo00<0o`000?ooo`3oool0IP3o ool000l0oooo00<000000?ooo`3oool0K03oool00`000?l0oooo0?ooo`0e0?ooo`030?l0003oool0 oooo06L0oooo000?0?ooo`030000003oool0oooo06/0oooo00<0003o0?ooo`3oool0=03oool20?l0 06X0oooo000?0?ooo`030000003oool0oooo06T0oooo0P000?le0?ooo`80o`00K03oool000l0oooo 00<000000?ooo`3oool0I`3oool20000ocD0oooo0P3o001^0?ooo`003`3oool2000006H0oooo0P00 0?lf0?ooo`030?l0003oool0oooo06h0oooo000?0?ooo`030000003oool0oooo06@0oooo00<0003o 0?ooo`3oool0=@3oool00`3o0000oooo0?ooo`1_0?ooo`003`3oool00`000000oooo0?ooo`1S0?oo o`030000o`3oool0oooo03@0oooo0P3o001b0?ooo`003`3oool00`000000oooo0?ooo`1R0?ooo`03 0000o`3oool0oooo03@0oooo00<0o`000?ooo`3oool0LP3oool00080oooo0P0000040?ooo`800000 1@3oool00`000000oooo0?ooo`1P0?ooo`80003o=@3oool20?l007D0oooo00001@3oool000000?oo o`3oool000000080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`1N0?ooo`80 003o=@3oool20?l007L0oooo00001@3oool000000?ooo`3oool0000000D0oooo00<000000?ooo`3o ool00P3oool3000005`0oooo0P000?le0?ooo`80o`00N@3oool00080oooo0P0000040?ooo`800000 1@3oool00`000000oooo0?ooo`1K0?ooo`030000o`3oool0oooo03<0oooo0P3o001k0?ooo`0000D0 oooo0000003oool0oooo000000030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0 FP3oool00`000?l0oooo0?ooo`0c0?ooo`030?l0003oool0oooo07/0oooo00020?ooo`800000103o ool3000000@0oooo00<000000?ooo`3oool0F03oool20000oc@0oooo0P3o001n0?ooo`003`3oool0 0`000000oooo0?ooo`1G0?ooo`030000o`3oool0oooo03<0oooo00<0o`000?ooo`3oool0OP3oool0 00l0oooo0P00001F0?ooo`80003o=03oool20?l00840oooo000?0?ooo`030000003oool0oooo05@0 oooo00<0003o0?ooo`3oool0`3oool20000obd0oooo0P3o002R0?ooo`003`3oool00`00 0000oooo0?ooo`0j0?ooo`030000o`3oool0oooo02/0oooo0P3o002T0?ooo`0000@0oooo00000000 00000000103oool2000000D0oooo00<000000?ooo`3oool0>03oool20000ob`0oooo0P3o002V0?oo o`000`3oool01@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool00P3oool00`00 0000oooo0?ooo`0g0?ooo`030000o`3oool0oooo02/0oooo00<0o`000?ooo`3oool0YP3oool00080 oooo0`0000020?ooo`040000003oool0oooo000000@0oooo0`00000f0?ooo`030000o`3oool0oooo 02X0oooo0P3o002Y0?ooo`0000D0oooo0000003oool0oooo000000020?ooo`040000003oool0oooo 000000@0oooo00<000000?ooo`3oool0=@3oool00`000?l0oooo0?ooo`0Y0?ooo`80o`00Z`3oool0 00050?ooo`000000oooo0?ooo`0000000P3oool010000000oooo0?ooo`0000040?ooo`030000003o ool0oooo03<0oooo0P000?lZ0?ooo`80o`00[@3oool00080oooo0`0000030?ooo`8000001@3oool0 0`000000oooo0?ooo`0b0?ooo`030000o`3oool0oooo02P0oooo0P3o002_0?ooo`003`3oool00`00 0000oooo0?ooo`0`0?ooo`80003o:@3oool20?l00;40oooo000?0?ooo`800000<03oool00`000?l0 oooo0?ooo`0W0?ooo`80o`00/`3oool000l0oooo00<000000?ooo`3oool0;P3oool00`000?l0oooo 0?ooo`0V0?ooo`80o`00]@3oool000l0oooo00<000000?ooo`3oool0;@3oool00`000?l0oooo0?oo o`0U0?ooo`80o`00]`3oool000l0oooo00<000000?ooo`3oool0:`3oool20000obH0oooo0P3o002i 0?ooo`003`3oool00`000000oooo0?ooo`0Z0?ooo`030000o`3oool0oooo02@0oooo0P3o002k0?oo o`003`3oool00`000000oooo0?ooo`0X0?ooo`80003o9@3oool20?l00;d0oooo000?0?ooo`800000 :03oool00`000?l0oooo0?ooo`0R0?ooo`<0o`00_`3oool000l0oooo00<000000?ooo`3oool09P3o ool00`000?l0oooo0?ooo`0Q0?ooo`80o`00`P3oool000l0oooo00<000000?ooo`3oool09@3oool0 0`000?l0oooo0?ooo`0P0?ooo`80o`00a03oool000l0oooo00<000000?ooo`3oool08`3oool20000 ob40oooo0P3o00360?ooo`003`3oool00`000000oooo0?ooo`0R0?ooo`030000o`3oool0oooo01l0 oooo0P3o00380?ooo`003`3oool200000240oooo0P000?lP0?ooo`80o`00bP3oool000l0oooo00<0 00000?ooo`3oool07`3oool00`000?l0oooo0?ooo`0M0?ooo`<0o`00c03oool000l0oooo00<00000 0?ooo`3oool07P3oool00`000?l0oooo0?ooo`0L0?ooo`80o`00c`3oool000l0oooo00<000000?oo o`3oool07@3oool00`000?l0oooo0?ooo`0K0?ooo`80o`00d@3oool000l0oooo00<000000?ooo`3o ool0703oool00`000?l0oooo0?ooo`0J0?ooo`80o`00d`3oool000l0oooo00<000000?ooo`3oool0 6`3oool00`000?l0oooo0?ooo`0I0?ooo`80o`00e@3oool000l0oooo0P00000K0?ooo`030000o`3o ool0oooo01T0oooo00<0o`000?ooo`3oool0e@3oool000l0oooo00<000000?ooo`3oool0603oool2 0000oaX0oooo0P3o003H0?ooo`003`3oool00`000000oooo0?ooo`0G0?ooo`030000o`3oool0oooo 01L0oooo0`3o003J0?ooo`003`3oool00`000000oooo0?ooo`0F0?ooo`030000o`3oool0oooo01H0 oooo0P3o003M0?ooo`0000@0oooo0000000000000000103oool2000000D0oooo00<000000?ooo`3o ool05@3oool00`000?l0oooo0?ooo`0D0?ooo`<0o`00g`3oool000<0oooo00D000000?ooo`3oool0 oooo000000020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool04`3oool20000oaD0 oooo0P3o003R0?ooo`000P3oool3000000D0oooo00<000000?ooo`3oool00P3oool300000180oooo 00<0003o0?ooo`3oool04P3oool30?l00>@0oooo00001@3oool000000?ooo`3oool0000000<0oooo 0P0000050?ooo`030000003oool0oooo0100oooo0P000?lC0?ooo`80o`00i`3oool000050?ooo`00 0000oooo0?ooo`0000000`3oool00`000000oooo0?ooo`040?ooo`030000003oool0oooo00l0oooo 00<0003o0?ooo`3oool04@3oool20?l00>T0oooo00020?ooo`<000000`3oool3000000@0oooo00<0 00000?ooo`3oool03P3oool00`000?l0oooo0?ooo`0@0?ooo`80o`00j`3oool000l0oooo00<00000 0?ooo`3oool03P3oool00`000?l0oooo0?ooo`0>0?ooo`80o`00k@3oool000l0oooo0P00000>0?oo o`030000o`3oool0oooo00d0oooo0P3o003_0?ooo`003`3oool00`000000oooo0?ooo`0;0?ooo`80 003o3P3oool20?l00?40oooo000?0?ooo`030000003oool0oooo00X0oooo00<0003o0?ooo`3oool0 2`3oool30?l00?<0oooo000?0?ooo`030000003oool0oooo00T0oooo00<0003o0?ooo`3oool02@3o ool30?l00?H0oooo000?0?ooo`030000003oool0oooo00P0oooo00<0003o0?ooo`3oool0203oool2 0?l00?T0oooo000?0?ooo`030000003oool0oooo00L0oooo00<0003o0?ooo`3oool01`3oool20?l0 0?/0oooo000?0?ooo`8000001`3oool00`000?l0oooo0?ooo`060?ooo`80o`00o@3oool000l0oooo 00<000000?ooo`3oool01@3oool00`000?l0oooo0?ooo`050?ooo`80o`00o`3oool000l0oooo00<0 00000?ooo`3oool00`3oool20000o`D0oooo0`3o003o0?ooo`80oooo000?0?ooo`030000003oool0 oooo0080oooo00<0003o0?ooo`3oool00P3oool30?l00?l0oooo1@3oool000l0oooo00D000000?oo o`3oool0oooo0000o`030?ooo`80o`00o`3oool80?ooo`003`3oool2000000040?ooo`000?l0oooo 0?ooo`80o`00o`3oool:0?ooo`003`3oool00`000000oooo0?ooo`3o0?ooo`l0oooo000?0?ooo`03 0000003oool0oooo0?l0oooo3`3oool000l0oooo00<000000?ooo`3oool0o`3oool?0?ooo`003`3o ool00`000000oooo0?ooo`3o0?ooo`l0oooo003o0?ooob40oooo003o0?ooob40oooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0582822, 67.4077, \ 0.00377365, 0.179214}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["VLE Data from DISTIL at 760 mmHg.", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[CellGroupData[{ Cell[BoxData[ \(TBL1 = {{0.08, 95.10}, {0.22, 89.77}, {0.36, 85.05}, {0.52, 80.30}, {0.72, 75.13}}\)], "Input"], Cell[BoxData[ \({{0.08`, 95.1`}, {0.22`, 89.77`}, {0.36`, 85.05`}, {0.52`, 80.3`}, {0.72`, 75.13`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(TBL2 = {{0.1631, 95.10}, {0.3920, 89.77}, {0.5668, 85.05}, {0.7194, 80.30}, {0.8611, 75.13}}\)], "Input"], Cell[BoxData[ \({{0.1631`, 95.1`}, {0.392`, 89.77`}, {0.5668`, 85.05`}, {0.7194`, 80.3`}, {0.8611`, 75.13`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt3 = ListPlot[TBL1, PlotStyle \[Rule] {PointSize[0.025], RGBColor[0, 0, 1]}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt4 = ListPlot[TBL2, PlotStyle \[Rule] {PointSize[0.025], RGBColor[1, 0, 0]}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt3, plt4, plt1, plt2, DisplayFunction \[Rule] $DisplayFunction]\)], "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.952381 -1.38241 0.0202565 [ [.21429 .02304 -9 -9 ] [.21429 .02304 9 0 ] [.40476 .02304 -9 -9 ] [.40476 .02304 9 0 ] [.59524 .02304 -9 -9 ] [.59524 .02304 9 0 ] [.78571 .02304 -9 -9 ] [.78571 .02304 9 0 ] [.97619 .02304 -3 -9 ] [.97619 .02304 3 0 ] [.01131 .13683 -12 -4.5 ] [.01131 .13683 0 4.5 ] [.01131 .23811 -12 -4.5 ] [.01131 .23811 0 4.5 ] [.01131 .33939 -12 -4.5 ] [.01131 .33939 0 4.5 ] [.01131 .44067 -12 -4.5 ] [.01131 .44067 0 4.5 ] [.01131 .54196 -12 -4.5 ] [.01131 .54196 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .03554 m .21429 .04179 L s [(0.2)] .21429 .02304 0 1 Mshowa .40476 .03554 m .40476 .04179 L s [(0.4)] .40476 .02304 0 1 Mshowa .59524 .03554 m .59524 .04179 L s [(0.6)] .59524 .02304 0 1 Mshowa .78571 .03554 m .78571 .04179 L s [(0.8)] .78571 .02304 0 1 Mshowa .97619 .03554 m .97619 .04179 L s [(1)] .97619 .02304 0 1 Mshowa .125 Mabswid .07143 .03554 m .07143 .03929 L s .11905 .03554 m .11905 .03929 L s .16667 .03554 m .16667 .03929 L s .2619 .03554 m .2619 .03929 L s .30952 .03554 m .30952 .03929 L s .35714 .03554 m .35714 .03929 L s .45238 .03554 m .45238 .03929 L s .5 .03554 m .5 .03929 L s .54762 .03554 m .54762 .03929 L s .64286 .03554 m .64286 .03929 L s .69048 .03554 m .69048 .03929 L s .7381 .03554 m .7381 .03929 L s .83333 .03554 m .83333 .03929 L s .88095 .03554 m .88095 .03929 L s .92857 .03554 m .92857 .03929 L s .25 Mabswid 0 .03554 m 1 .03554 L s .02381 .13683 m .03006 .13683 L s [(75)] .01131 .13683 1 0 Mshowa .02381 .23811 m .03006 .23811 L s [(80)] .01131 .23811 1 0 Mshowa .02381 .33939 m .03006 .33939 L s [(85)] .01131 .33939 1 0 Mshowa .02381 .44067 m .03006 .44067 L s [(90)] .01131 .44067 1 0 Mshowa .02381 .54196 m .03006 .54196 L s [(95)] .01131 .54196 1 0 Mshowa .125 Mabswid .02381 .0558 m .02756 .0558 L s .02381 .07606 m .02756 .07606 L s .02381 .09631 m .02756 .09631 L s .02381 .11657 m .02756 .11657 L s .02381 .15708 m .02756 .15708 L s .02381 .17734 m .02756 .17734 L s .02381 .1976 m .02756 .1976 L s .02381 .21785 m .02756 .21785 L s .02381 .25836 m .02756 .25836 L s .02381 .27862 m .02756 .27862 L s .02381 .29888 m .02756 .29888 L s .02381 .31913 m .02756 .31913 L s .02381 .35965 m .02756 .35965 L s .02381 .3799 m .02756 .3799 L s .02381 .40016 m .02756 .40016 L s .02381 .42042 m .02756 .42042 L s .02381 .46093 m .02756 .46093 L s .02381 .48119 m .02756 .48119 L s .02381 .50144 m .02756 .50144 L s .02381 .5217 m .02756 .5217 L s .02381 .01529 m .02756 .01529 L s .02381 .56221 m .02756 .56221 L s .02381 .58247 m .02756 .58247 L s .02381 .60272 m .02756 .60272 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .025 w .1 .54398 Mdot .23333 .43601 Mdot .36667 .3404 Mdot .51905 .24419 Mdot .70952 .13946 Mdot 1 0 0 r .17914 .54398 Mdot .39714 .43601 Mdot .56362 .3404 Mdot .70895 .24419 Mdot .8439 .13946 Mdot .5 Mabswid .97619 .01472 m .97234 .01879 L .96843 .0229 L .96447 .02703 L .96045 .03119 L .95637 .03537 L .95224 .03958 L .94805 .04382 L .9438 .04808 L .93949 .05237 L .93512 .05669 L .93068 .06104 L .92618 .06542 L .92162 .06982 L .91699 .07426 L .91229 .07872 L .90752 .08322 L .90268 .08774 L .89777 .09229 L .89279 .09688 L .88773 .10149 L .8826 .10614 L .87739 .11082 L .8721 .11553 L .86673 .12028 L .86128 .12505 L .85575 .12986 L .85013 .1347 L .84442 .13958 L .83862 .14449 L .83274 .14944 L .82676 .15442 L .82069 .15944 L .81453 .16449 L .80826 .16958 L .8019 .17471 L .79544 .17987 L .78887 .18507 L .78219 .19031 L .77541 .19559 L .76852 .2009 L .76152 .20626 L .7544 .21165 L .74716 .21709 L .73981 .22256 L .73233 .22808 L .72473 .23364 L .717 .23924 L .70914 .24489 L .70115 .25057 L Mistroke .69302 .2563 L .68476 .26208 L .67635 .2679 L .6678 .27376 L .65911 .27968 L .65026 .28563 L .64126 .29164 L .6321 .29769 L .62278 .30379 L .61329 .30994 L .60364 .31614 L .59382 .32238 L .58382 .32868 L .57364 .33503 L .56328 .34143 L .55273 .34788 L .54199 .35439 L .53105 .36095 L .51992 .36756 L .50857 .37423 L .49702 .38095 L .48526 .38773 L .47327 .39457 L .46106 .40146 L .44862 .40841 L .43595 .41542 L .42303 .42249 L .40987 .42962 L .39646 .43682 L .38279 .44407 L .36885 .45139 L .35465 .45877 L .34017 .46621 L .3254 .47372 L .31035 .48129 L .295 .48893 L .27934 .49664 L .26338 .50441 L .24709 .51226 L .23048 .52017 L .21354 .52816 L .19625 .53621 L .17861 .54434 L .16061 .55254 L .14225 .56081 L .12351 .56916 L .10438 .57759 L .08485 .58609 L .06492 .59466 L .04458 .60332 L Mistroke Mfstroke 0 0 1 r .97619 .01472 m .96667 .01879 L .95714 .0229 L .94762 .02703 L .9381 .03119 L .92857 .03537 L .91905 .03958 L .90952 .04382 L .9 .04808 L .89048 .05237 L .88095 .05669 L .87143 .06104 L .8619 .06542 L .85238 .06982 L .84286 .07426 L .83333 .07872 L .82381 .08322 L .81429 .08774 L .80476 .09229 L .79524 .09688 L .78571 .10149 L .77619 .10614 L .76667 .11082 L .75714 .11553 L .74762 .12028 L .7381 .12505 L .72857 .12986 L .71905 .1347 L .70952 .13958 L .7 .14449 L .69048 .14944 L .68095 .15442 L .67143 .15944 L .6619 .16449 L .65238 .16958 L .64286 .17471 L .63333 .17987 L .62381 .18507 L .61429 .19031 L .60476 .19559 L .59524 .2009 L .58571 .20626 L .57619 .21165 L .56667 .21709 L .55714 .22256 L .54762 .22808 L .5381 .23364 L .52857 .23924 L .51905 .24489 L .50952 .25057 L Mistroke .5 .2563 L .49048 .26208 L .48095 .2679 L .47143 .27376 L .4619 .27968 L .45238 .28563 L .44286 .29164 L .43333 .29769 L .42381 .30379 L .41429 .30994 L .40476 .31614 L .39524 .32238 L .38571 .32868 L .37619 .33503 L .36667 .34143 L .35714 .34788 L .34762 .35439 L .3381 .36095 L .32857 .36756 L .31905 .37423 L .30952 .38095 L .3 .38773 L .29048 .39457 L .28095 .40146 L .27143 .40841 L .2619 .41542 L .25238 .42249 L .24286 .42962 L .23333 .43682 L .22381 .44407 L .21429 .45139 L .20476 .45877 L .19524 .46621 L .18571 .47372 L .17619 .48129 L .16667 .48893 L .15714 .49664 L .14762 .50441 L .1381 .51226 L .12857 .52017 L .11905 .52816 L .10952 .53621 L .1 .54434 L .09048 .55254 L .08095 .56081 L .07143 .56916 L .0619 .57759 L .05238 .58609 L .04286 .59466 L .03333 .60332 L Mistroke Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgd0oooo0`000?l<0?ooo`030?l0003oool0 oooo00l0oooo000?0?ooo`800000k03oool20000o`d0oooo0P3o000B0?ooo`003`3oool00`000000 oooo0?ooo`3Y0?ooo`80003o3P3oool00`3o0000oooo0?ooo`0B0?ooo`003`3oool00`000000oooo 0?ooo`3W0?ooo`80003o3`3oool00`3o0000oooo0?ooo`0C0?ooo`003`3oool00`000000oooo0?oo o`3U0?ooo`80003o4@3oool00`3o0000oooo0?ooo`0C0?ooo`003`3oool00`000000oooo0?ooo`3S 0?ooo`80003o4P3oool00`3o0000oooo0?ooo`0D0?ooo`003`3oool00`000000oooo0?ooo`3P0?oo o`<0003o4P3oool20?l001L0oooo000?0?ooo`800000g`3oool20000oa@0oooo00<0o`000?ooo`3o ool05`3oool000l0oooo00<000000?ooo`3oool0g03oool20000oaD0oooo00<0o`000?ooo`3oool0 603oool000l0oooo00<000000?ooo`3oool0f`3oool00`000?l0oooo0?ooo`0E0?ooo`030?l0003o ool0oooo01P0oooo000?0?ooo`030000003oool0oooo0=P0oooo0`000?lF0?ooo`80o`006`3oool0 00l0oooo00<000000?ooo`3oool0eP3oool20000oaP0oooo00<0o`000?ooo`3oool06`3oool000l0 oooo0P00003E0?ooo`80003o6@3oool00`3o0000oooo0?ooo`0L0?ooo`003`3oool00`000000oooo 0?ooo`3B0?ooo`80003o6P3oool00`3o0000oooo0?ooo`0M0?ooo`003`3oool00`000000oooo0?oo o`3@0?ooo`80003o6`3oool00`3o0000oooo0?ooo`0N0?ooo`003`3oool00`000000oooo0?ooo`3> 0?ooo`80003o703oool00`3o0000oooo0?ooo`0O0?ooo`003`3oool00`000000oooo0?ooo`3<0?oo o`80003o703oool20?l00280oooo000?0?ooo`030000003oool0oooo0`3oool20000obd0oooo0P3o002R0?ooo`003`3oool00`000000oooo0?ooo`0f0?oo o`80003o0P3oool00`000?l0oooo0?ooo`0W0?ooo`80o`000P3oool20?l00:@0oooo0000103oool0 00000000000000040?ooo`8000001@3oool00`000000oooo0?ooo`0e0?ooo`D0003o:@3oool50?l0 0:H0oooo00030?ooo`050000003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`020?oo o`030000003oool0oooo03@0oooo1P000?lX0?ooo`H0o`00YP3oool00080oooo0`0000020?ooo`04 0000003oool0oooo000000@0oooo0`00000d0?ooo`H0003o:03oool60?l00:H0oooo00001@3oool0 00000?ooo`3oool000000080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`0e 0?ooo`@0003o:03oool60?l00:L0oooo00001@3oool000000?ooo`3oool000000080oooo00@00000 0?ooo`3oool00000103oool00`000000oooo0?ooo`0c0?ooo`80003o00<0oooo0000o`000?l09`3o ool20?l000<0oooo0P3o002X0?ooo`000P3oool3000000<0oooo0P0000050?ooo`030000003oool0 oooo0380oooo00<0003o0?ooo`3oool0:03oool20?l00:l0oooo000?0?ooo`030000003oool0oooo 0300oooo0P000?lY0?ooo`80o`00/@3oool000l0oooo00<000000?ooo`3oool0;`3oool00`000?l0 oooo0?ooo`0W0?ooo`80o`00/`3oool000l0oooo0P00000_0?ooo`030000o`3oool0oooo02H0oooo 0P3o002e0?ooo`003`3oool00`000000oooo0?ooo`0]0?ooo`030000o`3oool0oooo02D0oooo0P3o 002g0?ooo`003`3oool00`000000oooo0?ooo`0[0?ooo`80003o9P3oool20?l00;T0oooo000?0?oo o`030000003oool0oooo02X0oooo00<0003o0?ooo`3oool0903oool20?l00;/0oooo000?0?ooo`03 0000003oool0oooo02P0oooo0P000?lU0?ooo`80o`00_@3oool000l0oooo0P00000X0?ooo`030000 o`3oool0oooo0280oooo0`3o002o0?ooo`003`3oool00`000000oooo0?ooo`0V0?ooo`030000o`3o ool0oooo0240oooo0P3o00320?ooo`003`3oool00`000000oooo0?ooo`0U0?ooo`030000o`3oool0 oooo0200oooo0P3o00340?ooo`003`3oool00`000000oooo0?ooo`0T0?ooo`030000o`3oool0oooo 0200oooo00<0o`000?ooo`3oool0a03oool000l0oooo00<000000?ooo`3oool08`3oool00`000?l0 oooo0?ooo`0O0?ooo`80o`00a`3oool000l0oooo00<000000?ooo`3oool08P3oool00`000?l0oooo 0?ooo`0O0?ooo`030?l0003oool0oooo00?ooo`<0o`0000<0oooo0?l0003o00000P3o 003T0?ooo`003`3oool00`000000oooo0?ooo`0>0?ooo`80003o00<0oooo0000o`000?l03@3oool2 0?l000D0oooo0P3o003U0?ooo`003`3oool00`000000oooo0?ooo`0=0?ooo`030000o`3oool0oooo 00h0oooo0P3o003^0?ooo`003`3oool2000000d0oooo00<0003o0?ooo`3oool03@3oool20?l00?00 oooo000?0?ooo`030000003oool0oooo00/0oooo00<0003o0?ooo`3oool0303oool20?l00?80oooo 000?0?ooo`030000003oool0oooo00X0oooo00<0003o0?ooo`3oool02`3oool20?l00?@0oooo000? 0?ooo`030000003oool0oooo00T0oooo00<0003o0?ooo`3oool02@3oool30?l00?H0oooo000?0?oo o`030000003oool0oooo00P0oooo00<0003o0?ooo`3oool01`3oool30?l00?T0oooo000?0?ooo`80 00001`3oool20000o`P0oooo0P3o003l0?ooo`003`3oool00`000000oooo0?ooo`050?ooo`030000 o`3oool0oooo00H0oooo0P3o003n0?ooo`003`3oool00`000000oooo0?ooo`040?ooo`030000o`3o ool0oooo00D0oooo0P3o003o0?ooo`40oooo000?0?ooo`030000003oool0oooo00<0oooo00<0003o 0?ooo`3oool0103oool20?l00?l0oooo0`3oool000l0oooo00<000000?ooo`3oool00P3oool00`00 0?l0oooo0?ooo`020?ooo`<0o`00o`3oool50?ooo`003`3oool01@000000oooo0?ooo`3oool0003o 00<0oooo0P3o003o0?ooo`P0oooo000?0?ooo`80000000@0oooo0000o`3oool0oooo0P3o003o0?oo o`X0oooo000?0?ooo`030000003oool0oooo0?l0oooo3`3oool000l0oooo00<000000?ooo`3oool0 o`3oool?0?ooo`003`3oool00`000000oooo0?ooo`3o0?ooo`l0oooo000?0?ooo`030000003oool0 oooo0?l0oooo3`3oool00?l0oooo8@3oool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0584301, 67.5683, \ 0.00377504, 0.177487}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, WindowSize->{488, 453}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic} ] (******************************************************************* 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, 838, 24, 295, "Title"], Cell[2617, 79, 59, 1, 30, "Input"], Cell[2679, 82, 59, 1, 30, "Input"], Cell[CellGroupData[{ Cell[2763, 87, 95, 1, 46, "Subsubtitle"], Cell[2861, 90, 51, 1, 30, "Input"], Cell[2915, 93, 51, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3003, 99, 254, 4, 74, "Subsubtitle"], Cell[3260, 105, 85, 1, 30, "Input"], Cell[3348, 108, 66, 1, 30, "Input"], Cell[3417, 111, 63, 1, 30, "Input"], Cell[3483, 114, 59, 1, 30, "Input"], Cell[3545, 117, 369, 7, 125, "Input"], Cell[3917, 126, 369, 7, 125, "Input"], Cell[4289, 135, 80, 1, 30, "Input"], Cell[4372, 138, 104, 2, 30, "Input"], Cell[4479, 142, 127, 2, 53, "Input"], Cell[4609, 146, 91, 1, 30, "Input"], Cell[4703, 149, 77, 1, 51, "Input"], Cell[4783, 152, 127, 2, 53, "Input"], Cell[4913, 156, 77, 1, 51, "Input"], Cell[4993, 159, 72, 1, 30, "Input"], Cell[5068, 162, 168, 3, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5273, 170, 150, 4, 68, "Subsubtitle"], Cell[5426, 176, 112, 2, 50, "Input"], Cell[5541, 180, 112, 2, 50, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5690, 187, 85, 1, 48, "Subsubtitle"], Cell[5778, 190, 45, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5860, 196, 92, 1, 48, "Subsubtitle"], Cell[5955, 199, 40, 1, 30, "Input"], Cell[5998, 202, 59, 1, 30, "Input"], Cell[6060, 205, 644, 11, 190, "Input"], Cell[CellGroupData[{ Cell[6729, 220, 169, 3, 70, "Input"], Cell[6901, 225, 368, 7, 25, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[7306, 237, 49, 1, 30, "Input"], Cell[7358, 240, 52, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7447, 246, 954, 15, 310, "Input"], Cell[8404, 263, 459, 9, 25, "Print"], Cell[8866, 274, 452, 9, 25, "Print"], Cell[9321, 285, 456, 9, 25, "Print"], Cell[9780, 296, 457, 9, 25, "Print"], Cell[10240, 307, 454, 9, 25, "Print"], Cell[10697, 318, 458, 9, 25, "Print"], Cell[11158, 329, 457, 9, 25, "Print"], Cell[11618, 340, 456, 9, 25, "Print"], Cell[12077, 351, 459, 9, 25, "Print"], Cell[12539, 362, 456, 9, 25, "Print"], Cell[12998, 373, 457, 9, 25, "Print"], Cell[13458, 384, 458, 9, 25, "Print"], Cell[13919, 395, 458, 9, 25, "Print"], Cell[14380, 406, 456, 9, 25, "Print"], Cell[14839, 417, 457, 9, 25, "Print"], Cell[15299, 428, 457, 9, 25, "Print"], Cell[15759, 439, 458, 9, 25, "Print"], Cell[16220, 450, 455, 9, 25, "Print"], Cell[16678, 461, 457, 9, 25, "Print"], Cell[17138, 472, 458, 9, 25, "Print"], Cell[17599, 483, 455, 9, 25, "Print"], Cell[18057, 494, 456, 9, 25, "Print"], Cell[18516, 505, 457, 9, 25, "Print"], Cell[18976, 516, 456, 9, 25, "Print"], Cell[19435, 527, 456, 9, 25, "Print"], Cell[19894, 538, 455, 9, 25, "Print"], Cell[20352, 549, 456, 9, 25, "Print"], Cell[20811, 560, 455, 9, 25, "Print"], Cell[21269, 571, 454, 9, 25, "Print"], Cell[21726, 582, 453, 9, 25, "Print"], Cell[22182, 593, 456, 9, 25, "Print"], Cell[22641, 604, 456, 9, 25, "Print"], Cell[23100, 615, 457, 9, 25, "Print"], Cell[23560, 626, 456, 9, 25, "Print"], Cell[24019, 637, 455, 9, 25, "Print"], Cell[24477, 648, 455, 9, 25, "Print"], Cell[24935, 659, 456, 9, 25, "Print"], Cell[25394, 670, 455, 9, 25, "Print"], Cell[25852, 681, 457, 9, 25, "Print"], Cell[26312, 692, 451, 9, 25, "Print"], Cell[26766, 703, 455, 9, 25, "Print"], Cell[27224, 714, 457, 9, 25, "Print"], Cell[27684, 725, 456, 9, 25, "Print"], Cell[28143, 736, 455, 9, 25, "Print"], Cell[28601, 747, 455, 9, 25, "Print"], Cell[29059, 758, 455, 9, 25, "Print"], Cell[29517, 769, 457, 9, 25, "Print"], Cell[29977, 780, 457, 9, 25, "Print"], Cell[30437, 791, 456, 9, 25, "Print"], Cell[30896, 802, 456, 9, 25, "Print"], Cell[31355, 813, 453, 9, 25, "Print"], Cell[31811, 824, 456, 9, 25, "Print"], Cell[32270, 835, 456, 9, 25, "Print"], Cell[32729, 846, 455, 9, 25, "Print"], Cell[33187, 857, 458, 9, 25, "Print"], Cell[33648, 868, 454, 9, 25, "Print"], Cell[34105, 879, 454, 9, 25, "Print"], Cell[34562, 890, 454, 9, 25, "Print"], Cell[35019, 901, 455, 9, 25, "Print"], Cell[35477, 912, 457, 9, 25, "Print"], Cell[35937, 923, 454, 9, 25, "Print"], Cell[36394, 934, 455, 9, 25, "Print"], Cell[36852, 945, 456, 9, 25, "Print"], Cell[37311, 956, 456, 9, 25, "Print"], Cell[37770, 967, 456, 9, 25, "Print"], Cell[38229, 978, 456, 9, 25, "Print"], Cell[38688, 989, 455, 9, 25, "Print"], Cell[39146, 1000, 454, 9, 25, "Print"], Cell[39603, 1011, 449, 9, 25, "Print"], Cell[40055, 1022, 453, 9, 25, "Print"], Cell[40511, 1033, 456, 9, 25, "Print"], Cell[40970, 1044, 455, 9, 25, "Print"], Cell[41428, 1055, 455, 9, 25, "Print"], Cell[41886, 1066, 454, 9, 25, "Print"], Cell[42343, 1077, 456, 9, 25, "Print"], Cell[42802, 1088, 456, 9, 25, "Print"], Cell[43261, 1099, 456, 9, 25, "Print"], Cell[43720, 1110, 456, 9, 25, "Print"], Cell[44179, 1121, 455, 9, 25, "Print"], Cell[44637, 1132, 453, 9, 25, "Print"], Cell[45093, 1143, 456, 9, 25, "Print"], Cell[45552, 1154, 454, 9, 25, "Print"], Cell[46009, 1165, 454, 9, 25, "Print"], Cell[46466, 1176, 454, 9, 25, "Print"], Cell[46923, 1187, 455, 9, 25, "Print"], Cell[47381, 1198, 455, 9, 25, "Print"], Cell[47839, 1209, 457, 9, 25, "Print"], Cell[48299, 1220, 455, 9, 25, "Print"], Cell[48757, 1231, 454, 9, 25, "Print"], Cell[49214, 1242, 455, 9, 25, "Print"], Cell[49672, 1253, 456, 9, 25, "Print"], Cell[50131, 1264, 455, 9, 25, "Print"], Cell[50589, 1275, 455, 9, 25, "Print"], Cell[51047, 1286, 454, 9, 25, "Print"], Cell[51504, 1297, 456, 9, 25, "Print"], Cell[51963, 1308, 454, 9, 25, "Print"], Cell[52420, 1319, 455, 9, 25, "Print"], Cell[52878, 1330, 457, 9, 25, "Print"], Cell[53338, 1341, 457, 9, 25, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[53832, 1355, 49, 1, 30, "Input"], Cell[53884, 1358, 41, 1, 29, "Output"] }, Open ]], Cell[53940, 1362, 92, 1, 30, "Input"], Cell[54035, 1365, 125, 3, 50, "Input"], Cell[CellGroupData[{ Cell[54185, 1372, 198, 4, 70, "Input"], Cell[54386, 1378, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54553, 1386, 198, 4, 70, "Input"], Cell[54754, 1392, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54921, 1400, 91, 1, 30, "Input"], Cell[55015, 1403, 22387, 636, 186, 6439, 435, "GraphicsData", "PostScript", \ "Graphics"], Cell[77405, 2041, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[77584, 2050, 96, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[77705, 2055, 126, 2, 50, "Input"], Cell[77834, 2059, 126, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77997, 2066, 136, 2, 50, "Input"], Cell[78136, 2070, 135, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78308, 2077, 161, 3, 70, "Input"], Cell[78472, 2082, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78639, 2090, 161, 3, 70, "Input"], Cell[78803, 2095, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78970, 2103, 110, 2, 50, "Input"], Cell[79083, 2107, 22670, 650, 186, 6592, 447, "GraphicsData", "PostScript", \ "Graphics"], Cell[101756, 2759, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)