(************** 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[ 269126, 6973]*) (*NotebookOutlinePosition[ 269830, 6997]*) (* CellTagsIndexPosition[ 269786, 6993]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Phase Envelope for Ethane-Benzene Mixture ", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}], StyleBox["\n", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox["Authors' Data", FontSize->14, FontWeight->"Bold"], StyleBox[": Zakia Nasri & 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[TextData[{ StyleBox["Acknowledgement :", FontWeight->"Bold"], "\nThis problem was presented in Thermodynamique, Application au \ G\[EAcute]nie Chimique et \[AGrave] l'Industrie P\[EAcute]troli\[EGrave]re by \ Jean Vidal, Technip, 1997." }], "Subsubtitle", Background->RGBColor[0.773449, 0.996109, 0.996109]], Cell[BoxData[ \(Off[General::"\"]\)], "Input"], Cell[BoxData[ \(Off[FindRoot::"\"]\)], "Input"], Cell[BoxData[ \(Off[Unset::"\"]\)], "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 Soave-Redlich-Kwong Equation of State", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}]], "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(Ap[i_] := 0.42747\ a[i]\ Pre[i]/Tre[i]^2\)], "Input"], Cell[BoxData[ \(Bp[i_] := 0.08664\ Pre[i]/Tre[i]\)], "Input"], Cell[BoxData[ \(\(\[Phi]\_v[i_] := Exp[\((Z\_v - 1)\)\ Bp[i]/B\_v - Log[Z\_v - B\_v] - A\_v/B\_v\ \((2\ Ap[i]^0.5/A\_v^0.5 - Bp[i]/B\_v)\)\ Log[\((Z\_v + B\_v)\)/Z\_v]];\)\)], "Input"], Cell[BoxData[ \(\(\[Phi]\_l[i_] := Exp[\((Z\_l - 1)\)\ Bp[i]/B\_l - Log[Z\_l - B\_l] - A\_l/B\_l\ \((2\ Ap[i]^0.5/A\_l^0.5 - Bp[i]/B\_l)\)\ Log[\((Z\_l + B\_l)\)/Z\_l]];\)\)], "Input"], Cell[BoxData[ \(a[i_] := \((1 + m[i]\ \((1 - Tre[i]^0.5)\))\)^2\)], "Input"], Cell[BoxData[ \(m[i_] := 0.480 + 1.574\ \[Omega][i] - 0.176\ \[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;\)\)], "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"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Critical Pressure and Temperature and acentric factor for Ethane and \ Benzene\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(Pc[1] = 709.8; Tc[1] = 550.0; \[Omega][1] = 0.1064;\)], "Input"], Cell[BoxData[ \(Pc[2] = 714.2; Tc[2] = 1012.7; \[Omega][2] = 0.2116;\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Phase Envelope for Mixture 1: ", FontSize->18, FontColor->RGBColor[0, 0, 1]], "\n", StyleBox["20% Ethane and 80% Benzene", FontSize->18, FontColor->RGBColor[0, 0, 1]] }], "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(\(P = 5\ 14.69;\)\)], "Input"], Cell[BoxData[ \(x[1] = 0.2; x[2] = 1 - x[1];\)], "Input"], Cell[BoxData[ \(y[1] =. ; y[2] =. ;\)], "Input"], Cell[BoxData[ \(T =. \)], "Input"], Cell[CellGroupData[{ 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 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {y[1], 0.005}, {y[2], 0.995}, {T, 400}, {Z\_l, 0.05}, {Z\_v, 0.9}, MaxIterations \[Rule] 1000000] // Chop\)], "Input"], Cell[BoxData[ \({y[1] \[Rule] 0.9949271130773872`, y[2] \[Rule] 0.005072886922612762`, T \[Rule] 480.6367471860588`, Z\_l \[Rule] 0.020161080551086813`, Z\_v \[Rule] 0.9443350007400503`}\)], "Output"] }, Open ]], Cell[BoxData[ \(Te[1] = T /. sol[1]; Pe[1] = 5\ 14.69;\)], "Input"], Cell[BoxData[ \(i =. \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 2, i < 65, P = \((4 + i)\)\ 14.69; x[1] = 0.2; 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 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {y[1], y[1] /. sol[i - 1]}, {y[2], y[2] /. sol[i - 1]}, {T, 800}, {Z\_l, Z\_l /. sol[i - 1]}, {Z\_v, Z\_v /. sol[i - 1]}, MaxIterations \[Rule] 1000000] // Chop; Te[i] = T /. sol[i]; Pe[i] = P; Print[i, "\< \>", Te[i], "\< \>", Pe[i], "\< \>", Z\_l /. sol[i], "\< \>", Z\_v /. sol[i]]; \(i++\)]\)], "Input"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]495.7173481764275`\[InvisibleSpace]" \ "\[InvisibleSpace]88.14`\[InvisibleSpace]" \ "\[InvisibleSpace]0.023674602030047637`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9383993349091593`\), SequenceForm[ 2, " ", 495.71734817642749, " ", 88.140000000000001, " ", .023674602030047637, " ", .93839933490915928], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]509.430971094739`\[InvisibleSpace]" \ "\[InvisibleSpace]102.83`\[InvisibleSpace]" \ "\[InvisibleSpace]0.02711189478880102`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9330730711828691`\), SequenceForm[ 3, " ", 509.43097109473899, " ", 102.83, " ", .027111894788801019, " ", .93307307118286908], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]522.1144040140957`\[InvisibleSpace]" \ "\[InvisibleSpace]117.52`\[InvisibleSpace]" \ "\[InvisibleSpace]0.030485512115382172`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9282336961696618`\), SequenceForm[ 4, " ", 522.11440401409573, " ", 117.52, " ", .030485512115382172, " ", .92823369616966178], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]533.9923728058393`\[InvisibleSpace]" \ "\[InvisibleSpace]132.21`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03380510122138147`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9237894886205659`\), SequenceForm[ 5, " ", 533.9923728058393, " ", 132.21000000000001, " ", .033805101221381473, " ", .92378948862056587], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]545.2227922582283`\[InvisibleSpace]" \ "\[InvisibleSpace]146.9`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03707839929845724`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9196687976539566`\), SequenceForm[ 6, " ", 545.22279225822831, " ", 146.90000000000001, " ", .037078399298457243, " ", .91966879765395659], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]555.9210844603505`\[InvisibleSpace]" \ "\[InvisibleSpace]161.59`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04031182816505062`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9158137956666462`\), SequenceForm[ 7, " ", 555.92108446035047, " ", 161.59, " ", .04031182816505062, " ", .91581379566664622], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]566.1742562541377`\[InvisibleSpace]" \ "\[InvisibleSpace]176.28`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04351087163183093`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9121765976225175`\), SequenceForm[ 8, " ", 566.17425625413773, " ", 176.28, " ", .043510871631830927, " ", .91217659762251746], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]576.0495360129839`\[InvisibleSpace]" \ "\[InvisibleSpace]190.97`\[InvisibleSpace]" \ "\[InvisibleSpace]0.046680326763644774`\[InvisibleSpace]" \ "\[InvisibleSpace]0.908716725379097`\), SequenceForm[ 9, " ", 576.04953601298394, " ", 190.97, " ", .046680326763644774, " ", .90871672537909698], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]585.5999264337029`\[InvisibleSpace]" \ "\[InvisibleSpace]205.66`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04982447782129463`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9053993813367974`\), SequenceForm[ 10, " ", 585.59992643370288, " ", 205.66, " ", .049824477821294628, " ", .90539938133679743], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]594.8679151405836`\[InvisibleSpace]" \ "\[InvisibleSpace]220.35`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05294722064239219`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9021942321162842`\), SequenceForm[ 11, " ", 594.86791514058359, " ", 220.34999999999999, " ", .052947220642392191, " ", .90219423211628424], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]603.8880361632484`\[InvisibleSpace]" \ "\[InvisibleSpace]235.04`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05605215407444488`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8990745262275514`\), SequenceForm[ 12, " ", 603.88803616324844, " ", 235.03999999999999, " ", .056052154074444881, " ", .89907452622755135], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]612.6886880119991`\[InvisibleSpace]" \ "\[InvisibleSpace]249.73`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05914264883252334`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8960164376574286`\), SequenceForm[ 13, " ", 612.68868801199915, " ", 249.72999999999999, " ", .059142648832523341, " ", .89601643765742855], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]621.2934556384112`\[InvisibleSpace]" \ "\[InvisibleSpace]264.42`\[InvisibleSpace]" \ "\[InvisibleSpace]0.062221900496942734`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8929985665686623`\), SequenceForm[ 14, " ", 621.29345563841116, " ", 264.42000000000002, " ", .062221900496942734, " ", .89299856656866228], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]629.7220922968556`\[InvisibleSpace]" \ "\[InvisibleSpace]279.11`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06529297113963843`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8900015519061484`\), SequenceForm[ 15, " ", 629.72209229685564, " ", 279.11000000000001, " ", .065292971139638431, " ", .89000155190614838], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]637.9912627245075`\[InvisibleSpace]" \ "\[InvisibleSpace]293.8`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06835882266688248`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8870077653829685`\), SequenceForm[ 16, " ", 637.99126272450746, " ", 293.80000000000001, " ", .068358822666882479, " ", .88700776538296855], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]646.1151153100848`\[InvisibleSpace]" \ "\[InvisibleSpace]308.49`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07142234405943357`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8840010657185937`\), SequenceForm[ 17, " ", 646.11511531008478, " ", 308.49000000000001, " ", .071422344059433568, " ", .88400106571859371], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]654.1057294539015`\[InvisibleSpace]" \ "\[InvisibleSpace]323.18`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07448637409042158`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8809665981787597`\), SequenceForm[ 18, " ", 654.10572945390152, " ", 323.18000000000001, " ", .074486374090421581, " ", .88096659817875966], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]661.9734703139867`\[InvisibleSpace]" \ "\[InvisibleSpace]337.87`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07755372069502454`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8778906286193379`\), SequenceForm[ 19, " ", 661.9734703139867, " ", 337.87, " ", .077553720695024544, " ", .87789062861933786], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]669.7272737836507`\[InvisibleSpace]" \ "\[InvisibleSpace]352.56`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08062717788679911`\[InvisibleSpace]" \ "\[InvisibleSpace]0.874760404085371`\), SequenceForm[ 20, " ", 669.72727378365073, " ", 352.56, " ", .080627177886799115, " ", .87476040408537103], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]677.3748781784512`\[InvisibleSpace]" \ "\[InvisibleSpace]367.25`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08370954092135316`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8715640340061767`\), SequenceForm[ 21, " ", 677.37487817845124, " ", 367.25, " ", .083709540921353159, " ", .87156403400617666], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]684.9230146947936`\[InvisibleSpace]" \ "\[InvisibleSpace]381.94`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08680362027216357`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8682903874393587`\), SequenceForm[ 22, " ", 684.92301469479355, " ", 381.94, " ", .086803620272163567, " ", .86829038743935871], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]692.3775655903507`\[InvisibleSpace]" \ "\[InvisibleSpace]396.63`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08991225488845644`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8649290028324236`\), SequenceForm[ 23, " ", 692.37756559035074, " ", 396.63, " ", .089912254888456444, " ", .86492900283242358], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]699.7436968114221`\[InvisibleSpace]" \ "\[InvisibleSpace]411.32`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09303832513987476`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8614700075098867`\), SequenceForm[ 24, " ", 699.74369681142207, " ", 411.31999999999999, " ", .093038325139874756, " ", .86147000750988667], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]707.0259701812166`\[InvisibleSpace]" \ "\[InvisibleSpace]426.01`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09618476580975638`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8579040446360692`\), SequenceForm[ 25, " ", 707.02597018121662, " ", 426.00999999999999, " ", .096184765809756378, " ", .85790404463606917], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]714.2284390834917`\[InvisibleSpace]" \ "\[InvisibleSpace]440.7`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09935457947346991`\[InvisibleSpace]" \ "\[InvisibleSpace]0.854222205803055`\), SequenceForm[ 26, " ", 714.22843908349171, " ", 440.69999999999999, " ", .099354579473469914, " ", .85422220580305497], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]721.3547307043964`\[InvisibleSpace]" \ "\[InvisibleSpace]455.39`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10255085058746519`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8504159676861197`\), SequenceForm[ 27, " ", 721.35473070439639, " ", 455.38999999999999, " ", .10255085058746519, " ", .85041596768611971], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]728.4081172465546`\[InvisibleSpace]" \ "\[InvisibleSpace]470.08`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10577676061692745`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8464771314202711`\), SequenceForm[ 28, " ", 728.40811724655464, " ", 470.07999999999998, " ", .10577676061692745, " ", .84647713142027114], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]735.3915780438673`\[InvisibleSpace]" \ "\[InvisibleSpace]484.77`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10903560454467086`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8423977634979908`\), SequenceForm[ 29, " ", 735.3915780438673, " ", 484.76999999999998, " ", .10903560454467086, " ", .84239776349799078], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]742.3078541412971`\[InvisibleSpace]" \ "\[InvisibleSpace]499.46`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11233080913161123`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8381701370806776`\), SequenceForm[ 30, " ", 742.30785414129707, " ", 499.45999999999998, " ", .11233080913161123, " ", .83817013708067756], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]749.1594966310339`\[InvisibleSpace]" \ "\[InvisibleSpace]514.15`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11566595334114492`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8337866726608605`\), SequenceForm[ 31, " ", 749.1594966310339, " ", 514.14999999999998, " ", .11566595334114492, " ", .83378667266086048], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]755.9489098335805`\[InvisibleSpace]" \ "\[InvisibleSpace]528.84`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11904479139834083`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8292398770117139`\), SequenceForm[ 32, " ", 755.9489098335805, " ", 528.84000000000003, " ", .11904479139834083, " ", .82923987701171387], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]762.6783902640655`\[InvisibleSpace]" \ "\[InvisibleSpace]543.53`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12247127903344183`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8245222793140831`\), SequenceForm[ 33, " ", 762.67839026406546, " ", 543.52999999999997, " ", .12247127903344183, " ", .82452227931408306], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]769.3501622199382`\[InvisibleSpace]" \ "\[InvisibleSpace]558.22`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12594960356262283`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8196263632554626`\), SequenceForm[ 34, " ", 769.35016221993817, " ", 558.22000000000003, " ", .12594960356262283, " ", .81962636325546256], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]775.9664107587039`\[InvisibleSpace]" \ "\[InvisibleSpace]572.91`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12948421859394715`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8145444937427633`\), SequenceForm[ 35, " ", 775.96641075870389, " ", 572.90999999999997, " ", .12948421859394715, " ", .81454449374276328], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]782.5293127994424`\[InvisibleSpace]" \ "\[InvisibleSpace]587.6`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13307988432220627`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8092688366498374`\), SequenceForm[ 36, " ", 782.52931279944244, " ", 587.60000000000002, " ", .13307988432220627, " ", .8092688366498374], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]789.0410670776438`\[InvisibleSpace]" \ "\[InvisibleSpace]602.29`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1367417146054614`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8037912697145193`\), SequenceForm[ 37, " ", 789.04106707764379, " ", 602.28999999999996, " ", .13674171460546139, " ", .80379126971451931], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]795.5039237103878`\[InvisibleSpace]" \ "\[InvisibleSpace]616.98`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14047523231617953`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7981032822840264`\), SequenceForm[ 38, " ", 795.50392371038777, " ", 616.98000000000002, " ", .14047523231617953, " ", .79810328228402638], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]801.9202141915937`\[InvisibleSpace]" \ "\[InvisibleSpace]631.67`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14428643485533119`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7921958610470117`\), SequenceForm[ 39, " ", 801.92021419159369, " ", 631.66999999999996, " ", .14428643485533119, " ", .79219586104701167], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]808.2923827423125`\[InvisibleSpace]" \ "\[InvisibleSpace]646.36`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14818187224333634`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7860593581356916`\), SequenceForm[ 40, " ", 808.2923827423125, " ", 646.36000000000001, " ", .14818187224333634, " ", .78605935813569161], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]814.6230201003787`\[InvisibleSpace]" \ "\[InvisibleSpace]661.05`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1521687409067539`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7796833369606144`\), SequenceForm[ 41, " ", 814.62302010037865, " ", 661.04999999999995, " ", .15216874090675389, " ", .77968333696061443], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]820.9149010654265`\[InvisibleSpace]" \ "\[InvisibleSpace]675.74`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1562549972358781`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7730563897495273`\), SequenceForm[ 42, " ", 820.91490106542653, " ", 675.74000000000001, " ", .1562549972358781, " ", .77305638974952728], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]827.1710274470367`\[InvisibleSpace]" \ "\[InvisibleSpace]690.43`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16044949630151464`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7661659188468888`\), SequenceForm[ 43, " ", 827.17102744703675, " ", 690.42999999999995, " ", .16044949630151464, " ", .76616591884688878], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]833.3946785377493`\[InvisibleSpace]" \ "\[InvisibleSpace]705.12`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16476216294712379`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7589978711616991`\), SequenceForm[ 44, " ", 833.39467853774931, " ", 705.12, " ", .16476216294712379, " ", .75899787116169914], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]839.5894719137123`\[InvisibleSpace]" \ "\[InvisibleSpace]719.81`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16920420505587722`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7515364113779339`\), SequenceForm[ 45, " ", 839.58947191371226, " ", 719.80999999999995, " ", .16920420505587722, " ", .75153641137793392], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]845.7594383551215`\[InvisibleSpace]" \ "\[InvisibleSpace]734.5`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17378838250483175`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7437635141192961`\), SequenceForm[ 46, " ", 845.75943835512146, " ", 734.5, " ", .17378838250483175, " ", .74376351411929609], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]851.909116137541`\[InvisibleSpace]" \ "\[InvisibleSpace]749.1899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17852935075404452`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7356584473236119`\), SequenceForm[ 47, " ", 851.90911613754099, " ", 749.18999999999994, " ", .17852935075404452, " ", .73565844732361185], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]858.0436721363138`\[InvisibleSpace]" \ "\[InvisibleSpace]763.88`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18344410614274131`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7271971072258282`\), SequenceForm[ 48, " ", 858.04367213631383, " ", 763.88, " ", .18344410614274131, " ", .7271971072258282], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]864.1690605490683`\[InvisibleSpace]" \ "\[InvisibleSpace]778.5699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18855257239137616`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7183511472237358`\), SequenceForm[ 49, " ", 864.16906054906826, " ", 778.56999999999994, " ", .18855257239137616, " ", .71835114722373583], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]870.2922353331521`\[InvisibleSpace]" \ "\[InvisibleSpace]793.26`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19387838731680473`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7090868144642275`\), SequenceForm[ 50, " ", 870.29223533315212, " ", 793.25999999999999, " ", .19387838731680473, " ", .7090868144642275], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]876.4214410263259`\[InvisibleSpace]" \ "\[InvisibleSpace]807.9499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19944998030993893`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6993633620400547`\), SequenceForm[ 51, " ", 876.42144102632585, " ", 807.94999999999993, " ", .19944998030993893, " ", .69936336204005467], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]882.566620973623`\[InvisibleSpace]" \ "\[InvisibleSpace]822.64`\[InvisibleSpace]" \ "\[InvisibleSpace]0.20530208387368942`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6891308278980354`\), SequenceForm[ 52, " ", 882.566620973623, " ", 822.63999999999999, " ", .20530208387368942, " ", .68913082789803537], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]888.7400069728068`\[InvisibleSpace]" \ "\[InvisibleSpace]837.3299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21147791423835863`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6783268381272191`\), SequenceForm[ 53, " ", 888.74000697280678, " ", 837.32999999999993, " ", .21147791423835863, " ", .67832683812721906], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]894.9569998791134`\[InvisibleSpace]" \ "\[InvisibleSpace]852.02`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21803242299915435`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6668718496154031`\), SequenceForm[ 54, " ", 894.95699987911337, " ", 852.01999999999998, " ", .21803242299915435, " ", .66687184961540313], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]901.2375382708813`\[InvisibleSpace]" \ "\[InvisibleSpace]866.7099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2250373424457063`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6546617811103257`\), SequenceForm[ 55, " ", 901.23753827088126, " ", 866.70999999999992, " ", .22503734244570631, " ", .65466178111032569], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]907.6083320822825`\[InvisibleSpace]" \ "\[InvisibleSpace]881.4`\[InvisibleSpace]" \ "\[InvisibleSpace]0.23258940523713773`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6415560264666846`\), SequenceForm[ 56, " ", 907.60833208228246, " ", 881.39999999999998, " ", .23258940523713773, " ", .64155602646668464], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]914.1067385584391`\[InvisibleSpace]" \ "\[InvisibleSpace]896.0899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2408245831356628`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6273567198672317`\), SequenceForm[ 57, " ", 914.10673855843913, " ", 896.08999999999992, " ", .2408245831356628, " ", .62735671986723174], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]920.788047160398`\[InvisibleSpace]" \ "\[InvisibleSpace]910.78`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24994480296188754`\[InvisibleSpace]" \ "\[InvisibleSpace]0.611769884409575`\), SequenceForm[ 58, " ", 920.78804716039804, " ", 910.77999999999997, " ", .24994480296188754, " ", .61176988440957503], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]927.7407459400906`\[InvisibleSpace]" \ "\[InvisibleSpace]925.4699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.26027383709124297`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5943242630447293`\), SequenceForm[ 59, " ", 927.74074594009062, " ", 925.46999999999991, " ", .26027383709124297, " ", .5943242630447293], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]935.1240262376032`\[InvisibleSpace]" \ "\[InvisibleSpace]940.16`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2723943705776818`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5741725291582299`\), SequenceForm[ 60, " ", 935.12402623760318, " ", 940.15999999999997, " ", .27239437057768179, " ", .57417252915822992], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]943.2874560468969`\[InvisibleSpace]" \ "\[InvisibleSpace]954.85`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2875845748618465`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5494590320091272`\), SequenceForm[ 61, " ", 943.28745604689686, " ", 954.85000000000002, " ", .28758457486184652, " ", .54945903200912716], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]953.4477193101441`\[InvisibleSpace]" \ "\[InvisibleSpace]969.54`\[InvisibleSpace]" \ "\[InvisibleSpace]0.31028172790144426`\[InvisibleSpace]" \ "\[InvisibleSpace]0.51375795246853`\), SequenceForm[ 62, " ", 953.44771931014407, " ", 969.53999999999996, " ", .31028172790144426, " ", .51375795246852995], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]966.3681148708438`\[InvisibleSpace]" \ "\[InvisibleSpace]984.23`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3476187964425702`\[InvisibleSpace]" \ "\[InvisibleSpace]0.48412444988034387`\), SequenceForm[ 63, " ", 966.36811487084378, " ", 984.23000000000002, " ", .34761879644257021, " ", .48412444988034387], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]968.6890162921873`\[InvisibleSpace]" \ "\[InvisibleSpace]998.92`\[InvisibleSpace]" \ "\[InvisibleSpace]0.35397484901254894`\[InvisibleSpace]" \ "\[InvisibleSpace]0.40369994096245004`\), SequenceForm[ 64, " ", 968.68901629218726, " ", 998.91999999999996, " ", .35397484901254894, " ", .40369994096245004], Editable->False]], "Print"] }, Closed]], Cell[BoxData[ \(\(tbl1 = Append[Table[{\((\((Te[i] - 459.67)\) - 32)\)/1.8 + 273.15, Pe[i]/14.69}, {i, 1, 64}], {\((\((513)\) - 32)\)/1.8 + 273.15, 968/14.69}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt1 = ListPlot[tbl1, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], PlotRange \[Rule] {{200, 600}, {0, 100}}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[ \(\(P = 5\ 14.69;\)\)], "Input"], Cell[BoxData[ \(y[1] = 0.2; y[2] = 1 - x[1];\)], "Input"], Cell[BoxData[ \(T =. \)], "Input"], Cell[BoxData[ \(x[1] =. ; x[2] =. ;\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sol[1] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], x[1] + x[2] \[Equal] \ 1, Z\_l^3 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {x[1], 0.005}, {x[2], 0.995}, {T, 400}, {Z\_l, 0.05}, {Z\_v, 0.9}, MaxIterations \[Rule] 1000000] // Chop\)], "Input"], Cell[BoxData[ \({x[1] \[Rule] 0.007665035131527089`, x[2] \[Rule] 0.992334964868473`, T \[Rule] 730.2323128777865`, Z\_l \[Rule] 0.01703333152210276`, Z\_v \[Rule] 0.9226183312005704`}\)], "Output"] }, Open ]], Cell[BoxData[ \(Tro[1] = T /. sol[1]; Pr[1] = 5\ 14.69;\)], "Input"], Cell[BoxData[ \(i =. \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 2, i < 62, P = \((4 + i)\)\ 14.69; y[1] = 0.2; y[2] = 1 - y[1]; sol[i] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], x[1] + x[2] \[Equal] \ 1, Z\_l^3 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {x[1], x[1] /. sol[i - 1]}, {x[2], x[2] /. sol[i - 1]}, {T, 800}, {Z\_l, Z\_l /. sol[i - 1]}, {Z\_v, Z\_v /. sol[i - 1]}, MaxIterations \[Rule] 1000000] // Chop; Tro[i] = T /. sol[i]; Pr[i] = P; Print[i, "\< \>", Tro[i], "\< \>", Pr[i], "\< \>", Z\_l /. sol[i], "\< \>", Z\_v /. sol[i]]; \(i++\)]\)], "Input"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]744.872854310273`\[InvisibleSpace]" \ "\[InvisibleSpace]88.14`\[InvisibleSpace]" \ "\[InvisibleSpace]0.020355194711530786`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9115461265583346`\), SequenceForm[ 2, " ", 744.87285431027306, " ", 88.140000000000001, " ", .020355194711530786, " ", .91154612655833456], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]757.7317859118995`\[InvisibleSpace]" \ "\[InvisibleSpace]102.83`\[InvisibleSpace]" \ "\[InvisibleSpace]0.023686908255431335`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9009988857269798`\), SequenceForm[ 3, " ", 757.73178591189946, " ", 102.83, " ", .023686908255431335, " ", .90099888572697984], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]769.2399429454871`\[InvisibleSpace]" \ "\[InvisibleSpace]117.52`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0270333562782093`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8908799108453437`\), SequenceForm[ 4, " ", 769.23994294548709, " ", 117.52, " ", .027033356278209301, " ", .89087991084534368], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]779.6837898648052`\[InvisibleSpace]" \ "\[InvisibleSpace]132.21`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03039839103701024`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8811188349751182`\), SequenceForm[ 5, " ", 779.68378986480525, " ", 132.21000000000001, " ", .030398391037010239, " ", .88111883497511823], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]789.2642033711257`\[InvisibleSpace]" \ "\[InvisibleSpace]146.9`\[InvisibleSpace]" \ "\[InvisibleSpace]0.033785207570594056`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8716623071543746`\), SequenceForm[ 6, " ", 789.26420337112575, " ", 146.90000000000001, " ", .033785207570594056, " ", .87166230715437465], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]798.1279035756335`\[InvisibleSpace]" \ "\[InvisibleSpace]161.59`\[InvisibleSpace]" \ "\[InvisibleSpace]0.037196565003567085`\[InvisibleSpace]" \ "\[InvisibleSpace]0.862468567175306`\), SequenceForm[ 7, " ", 798.12790357563347, " ", 161.59, " ", .037196565003567085, " ", .86246856717530596], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]806.3855673841232`\[InvisibleSpace]" \ "\[InvisibleSpace]176.28`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0406349260638354`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8535040791319478`\), SequenceForm[ 8, " ", 806.38556738412319, " ", 176.28, " ", .040634926063835397, " ", .85350407913194781], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]814.1228958768695`\[InvisibleSpace]" \ "\[InvisibleSpace]190.97`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0441025498313004`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8447413359056977`\), SequenceForm[ 9, " ", 814.12289587686951, " ", 190.97, " ", .044102549831300401, " ", .84474133590569767], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]821.4077022766432`\[InvisibleSpace]" \ "\[InvisibleSpace]205.66`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04760155625377465`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8361573685320585`\), SequenceForm[ 10, " ", 821.40770227664325, " ", 205.66, " ", .04760155625377465, " ", .83615736853205846], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]828.2946304852662`\[InvisibleSpace]" \ "\[InvisibleSpace]220.35`\[InvisibleSpace]" \ "\[InvisibleSpace]0.051133972876544476`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8277326998840855`\), SequenceForm[ 11, " ", 828.29463048526623, " ", 220.34999999999999, " ", .051133972876544476, " ", .82773269988408549], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]834.8283997797073`\[InvisibleSpace]" \ "\[InvisibleSpace]235.04`\[InvisibleSpace]" \ "\[InvisibleSpace]0.054701769985232025`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8194505893094968`\), SequenceForm[ 12, " ", 834.8283997797073, " ", 235.03999999999999, " ", .054701769985232025, " ", .81945058930949677], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]841.0460983874361`\[InvisibleSpace]" \ "\[InvisibleSpace]249.73`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05830688800639093`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8112964740046872`\), SequenceForm[ 13, " ", 841.04609838743613, " ", 249.72999999999999, " ", .058306888006390931, " ", .81129647400468718], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]846.9788436738577`\[InvisibleSpace]" \ "\[InvisibleSpace]264.42`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06195125964332366`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8032575471048828`\), SequenceForm[ 14, " ", 846.97884367385768, " ", 264.42000000000002, " ", .06195125964332366, " ", .80325754710488284], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]852.653008911937`\[InvisibleSpace]" \ "\[InvisibleSpace]279.11`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06563682840059985`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7953224330418746`\), SequenceForm[ 15, " ", 852.65300891193704, " ", 279.11000000000001, " ", .065636828400599853, " ", .79532243304187455], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]858.0911463421033`\[InvisibleSpace]" \ "\[InvisibleSpace]293.8`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06936556463816565`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7874809335270991`\), SequenceForm[ 16, " ", 858.09114634210334, " ", 293.80000000000001, " ", .06936556463816565, " ", .78748093352709914], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]863.3126929072209`\[InvisibleSpace]" \ "\[InvisibleSpace]308.49`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07313947996889025`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7797238257301827`\), SequenceForm[ 17, " ", 863.31269290722094, " ", 308.49000000000001, " ", .073139479968890253, " ", .77972382573018273], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]868.3345175514797`\[InvisibleSpace]" \ "\[InvisibleSpace]323.18`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07696064060074989`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7720426996282218`\), SequenceForm[ 18, " ", 868.33451755147973, " ", 323.18000000000001, " ", .076960640600749891, " ", .77204269962822181], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]873.1713510689066`\[InvisibleSpace]" \ "\[InvisibleSpace]337.87`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08083118008505129`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7644298251410295`\), SequenceForm[ 19, " ", 873.17135106890657, " ", 337.87, " ", .080831180085051288, " ", .76442982514102953], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]877.8361275608552`\[InvisibleSpace]" \ "\[InvisibleSpace]352.56`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08475331184020161`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7568780421689534`\), SequenceForm[ 20, " ", 877.83612756085518, " ", 352.56, " ", .084753311840201614, " ", .75687804216895338], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]882.3402584522202`\[InvisibleSpace]" \ "\[InvisibleSpace]367.25`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08872934176122993`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7493806683996656`\), SequenceForm[ 21, " ", 882.34025845222016, " ", 367.25, " ", .08872934176122993, " ", .74938066839966555], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]886.6938543984264`\[InvisibleSpace]" \ "\[InvisibleSpace]381.94`\[InvisibleSpace]" \ "\[InvisibleSpace]0.092761681189025`\[InvisibleSpace]" \ "\[InvisibleSpace]0.741931420993545`\), SequenceForm[ 22, " ", 886.69385439842642, " ", 381.94, " ", .092761681189025003, " ", .74193142099354503], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]890.9059064573727`\[InvisibleSpace]" \ "\[InvisibleSpace]396.63`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09685286049413469`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7345243491523151`\), SequenceForm[ 23, " ", 890.90590645737268, " ", 396.63, " ", .09685286049413469, " ", .73452434915231513], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]894.9844350684662`\[InvisibleSpace]" \ "\[InvisibleSpace]411.32`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1010055435243231`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7271537752268481`\), SequenceForm[ 24, " ", 894.98443506846615, " ", 411.31999999999999, " ", .1010055435243231, " ", .7271537752268481], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]898.9366133250426`\[InvisibleSpace]" \ "\[InvisibleSpace]426.01`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10522254317081114`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7198142424974865`\), SequenceForm[ 25, " ", 898.93661332504257, " ", 426.00999999999999, " ", .10522254317081114, " ", .71981424249748649], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]902.7688695140064`\[InvisibleSpace]" \ "\[InvisibleSpace]440.7`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1095068383242358`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7125004681113555`\), SequenceForm[ 26, " ", 902.76886951400638, " ", 440.69999999999999, " ", .1095068383242358, " ", .71250046811135548], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]906.4869727694123`\[InvisibleSpace]" \ "\[InvisibleSpace]455.39`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11386159251773917`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7052072999185585`\), SequenceForm[ 27, " ", 906.48697276941232, " ", 455.38999999999999, " ", .11386159251773917, " ", .70520729991855846], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]910.0961048363957`\[InvisibleSpace]" \ "\[InvisibleSpace]470.08`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11829017459183219`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6979296761353669`\), SequenceForm[ 28, " ", 910.09610483639574, " ", 470.07999999999998, " ", .11829017459183219, " ", .69792967613536694], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]913.6009202922835`\[InvisibleSpace]" \ "\[InvisibleSpace]484.77`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12279618176511353`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6906625868929381`\), SequenceForm[ 29, " ", 913.60092029228349, " ", 484.76999999999998, " ", .12279618176511353, " ", .69066258689293814], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]917.0055970690555`\[InvisibleSpace]" \ "\[InvisibleSpace]499.46`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1273834655586413`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6834010368150346`\), SequenceForm[ 30, " ", 917.00559706905551, " ", 499.45999999999998, " ", .1273834655586413, " ", .68340103681503461], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]920.3138787267853`\[InvisibleSpace]" \ "\[InvisibleSpace]514.15`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1320561611027699`\[InvisibleSpace]" \ "\[InvisibleSpace]0.67614000781435`\), SequenceForm[ 31, " ", 920.31387872678533, " ", 514.14999999999998, " ", .13205616110276991, " ", .67614000781435002], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]923.5291096128504`\[InvisibleSpace]" \ "\[InvisibleSpace]528.84`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13681872045766771`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6688744213077853`\), SequenceForm[ 32, " ", 923.52910961285045, " ", 528.84000000000003, " ", .13681872045766771, " ", .66887442130778529], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]926.6542637853295`\[InvisibleSpace]" \ "\[InvisibleSpace]543.53`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1416759507081225`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6615990990273826`\), SequenceForm[ 33, " ", 926.65426378532948, " ", 543.52999999999997, " ", .1416759507081225, " ", .66159909902738256], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]929.6919683648171`\[InvisibleSpace]" \ "\[InvisibleSpace]558.22`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14663305775706226`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6543087215439977`\), SequenceForm[ 34, " ", 929.69196836481706, " ", 558.22000000000003, " ", .14663305775706226, " ", .65430872154399766], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]932.644521793923`\[InvisibleSpace]" \ "\[InvisibleSpace]572.91`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15169569695062018`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6469977835210438`\), SequenceForm[ 35, " ", 932.64452179392299, " ", 572.90999999999997, " ", .15169569695062018, " ", .64699778352104376], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]935.5139073170951`\[InvisibleSpace]" \ "\[InvisibleSpace]587.6`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15687003193421975`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6396605445684161`\), SequenceForm[ 36, " ", 935.51390731709512, " ", 587.60000000000002, " ", .15687003193421975, " ", .63966054456841615], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]938.3018018353554`\[InvisibleSpace]" \ "\[InvisibleSpace]602.29`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16216280348273376`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6322909743608609`\), SequenceForm[ 37, " ", 938.30180183535538, " ", 602.28999999999996, " ", .16216280348273376, " ", .6322909743608609], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]941.0095801314496`\[InvisibleSpace]" \ "\[InvisibleSpace]616.98`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16758141049414582`\[InvisibleSpace]" \ "\[InvisibleSpace]0.624882690404112`\), SequenceForm[ 38, " ", 941.00958013144964, " ", 616.98000000000002, " ", .16758141049414582, " ", .62488269040411204], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]943.6383142904725`\[InvisibleSpace]" \ "\[InvisibleSpace]631.67`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1731340059211916`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6174288864526385`\), SequenceForm[ 39, " ", 943.63831429047252, " ", 631.66999999999996, " ", .1731340059211916, " ", .61742888645263849], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]946.1887679468815`\[InvisibleSpace]" \ "\[InvisibleSpace]646.36`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17882961118994548`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6099222490706153`\), SequenceForm[ 40, " ", 946.18876794688151, " ", 646.36000000000001, " ", .17882961118994548, " ", .60992224907061532], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]948.6613847554008`\[InvisibleSpace]" \ "\[InvisibleSpace]661.05`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18467825369060883`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6023548591340657`\), SequenceForm[ 41, " ", 948.66138475540083, " ", 661.04999999999995, " ", .18467825369060883, " ", .60235485913406572], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]951.0562701893338`\[InvisibleSpace]" \ "\[InvisibleSpace]675.74`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19069113332881502`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5947180741255714`\), SequenceForm[ 42, " ", 951.05627018933376, " ", 675.74000000000001, " ", .19069113332881502, " ", .59471807412557143], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]953.3731653851831`\[InvisibleSpace]" \ "\[InvisibleSpace]690.43`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19688082604969673`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5870023857680812`\), SequenceForm[ 43, " ", 953.37316538518314, " ", 690.42999999999995, " ", .19688082604969673, " ", .58700238576808117], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]955.6114112333448`\[InvisibleSpace]" \ "\[InvisibleSpace]705.12`\[InvisibleSpace]" \ "\[InvisibleSpace]0.20326153492254395`\[InvisibleSpace]" \ "\[InvisibleSpace]0.579197245723876`\), SequenceForm[ 44, " ", 955.61141123334482, " ", 705.12, " ", .20326153492254395, " ", .57919724572387599], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]957.7699001945259`\[InvisibleSpace]" \ "\[InvisibleSpace]719.81`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2098494031518966`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5712908495075892`\), SequenceForm[ 45, " ", 957.76990019452592, " ", 719.80999999999995, " ", .2098494031518966, " ", .57129084950758924], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]959.8470122982902`\[InvisibleSpace]" \ "\[InvisibleSpace]734.5`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2166629088066462`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5632698650552821`\), SequenceForm[ 46, " ", 959.84701229829022, " ", 734.5, " ", .21666290880664621, " ", .56326986505528209], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]961.8405302915774`\[InvisibleSpace]" \ "\[InvisibleSpace]749.1899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2237233689970296`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5551190869609811`\), SequenceForm[ 47, " ", 961.84053029157735, " ", 749.18999999999994, " ", .2237233689970296, " ", .55511908696098111], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]963.747526687795`\[InvisibleSpace]" \ "\[InvisibleSpace]763.88`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2310555930865912`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5468209892721324`\), SequenceForm[ 48, " ", 963.74752668779502, " ", 763.88, " ", .23105559308659121, " ", .54682098927213241], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]965.564212081356`\[InvisibleSpace]" \ "\[InvisibleSpace]778.5699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2386887426513718`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5383551373128788`\), SequenceForm[ 49, " ", 965.564212081356, " ", 778.56999999999994, " ", .2386887426513718, " ", .53835513731287876], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]967.2857287802786`\[InvisibleSpace]" \ "\[InvisibleSpace]793.26`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24665748433450868`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5296973994991592`\), SequenceForm[ 50, " ", 967.28572878027865, " ", 793.25999999999999, " ", .24665748433450868, " ", .52969739949915917], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]968.9058652199047`\[InvisibleSpace]" \ "\[InvisibleSpace]807.9499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2550035676916121`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5208188685706943`\), SequenceForm[ 51, " ", 968.90586521990474, " ", 807.94999999999993, " ", .25500356769161209, " ", .52081886857069426], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]970.4166522501584`\[InvisibleSpace]" \ "\[InvisibleSpace]822.64`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2637780369106406`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5116843489195734`\), SequenceForm[ 52, " ", 970.41665225015845, " ", 822.63999999999999, " ", .26377803691064061, " ", .51168434891957337], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]971.8077773849125`\[InvisibleSpace]" \ "\[InvisibleSpace]837.3299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2730444187211468`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5022501749781096`\), SequenceForm[ 53, " ", 971.80777738491247, " ", 837.32999999999993, " ", .27304441872114682, " ", .50225017497810964], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]973.0657075611377`\[InvisibleSpace]" \ "\[InvisibleSpace]852.02`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2828834714873377`\[InvisibleSpace]" \ "\[InvisibleSpace]0.49246095870380785`\), SequenceForm[ 54, " ", 973.06570756113774, " ", 852.01999999999998, " ", .28288347148733772, " ", .49246095870380785], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]974.1723233831982`\[InvisibleSpace]" \ "\[InvisibleSpace]866.7099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.29340054643009866`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4822445434757876`\), SequenceForm[ 55, " ", 974.1723233831982, " ", 866.70999999999992, " ", .29340054643009866, " ", .4822445434757876], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]975.1026880131917`\[InvisibleSpace]" \ "\[InvisibleSpace]881.4`\[InvisibleSpace]" \ "\[InvisibleSpace]0.30473756717799094`\[InvisibleSpace]" \ "\[InvisibleSpace]0.47150378373570206`\), SequenceForm[ 56, " ", 975.10268801319171, " ", 881.39999999999998, " ", .30473756717799094, " ", .47150378373570206], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]975.8211734100898`\[InvisibleSpace]" \ "\[InvisibleSpace]896.0899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.31709375783872623`\[InvisibleSpace]" \ "\[InvisibleSpace]0.46010230564782795`\), SequenceForm[ 57, " ", 975.82117341008984, " ", 896.08999999999992, " ", .31709375783872623, " ", .46010230564782795], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]976.2741773406476`\[InvisibleSpace]" \ "\[InvisibleSpace]910.78`\[InvisibleSpace]" \ "\[InvisibleSpace]0.33076448817978044`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4478377906051643`\), SequenceForm[ 58, " ", 976.27417734064761, " ", 910.77999999999997, " ", .33076448817978044, " ", .44783779060516432], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]976.3748586852328`\[InvisibleSpace]" \ "\[InvisibleSpace]925.4699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.34622243691083116`\[InvisibleSpace]" \ "\[InvisibleSpace]0.43438608425243697`\), SequenceForm[ 59, " ", 976.37485868523277, " ", 925.46999999999991, " ", .34622243691083116, " ", .43438608425243697], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]975.9656342235339`\[InvisibleSpace]" \ "\[InvisibleSpace]940.16`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3643163757554129`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4191641289317546`\), SequenceForm[ 60, " ", 975.96563422353393, " ", 940.15999999999997, " ", .36431637575541292, " ", .41916412893175459], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]974.8532527570536`\[InvisibleSpace]" \ "\[InvisibleSpace]954.85`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3775349212306869`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4017172960517279`\), SequenceForm[ 61, " ", 974.85325275705361, " ", 954.85000000000002, " ", .37753492123068688, " ", .4017172960517279], Editable->False]], "Print"] }, Closed]], Cell[BoxData[ \(\(tbl2 = Append[Table[{\((\((Tro[i] - 459.67)\) - 32)\)/1.8 + 273.15, Pr[i]/14.69}, {i, 1, 61}], {\((\((513)\) - 32)\)/1.8 + 273.15, 968/14.69}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt2 = ListPlot[tbl2, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[0, 0, 1], PlotRange \[Rule] {{200, 600}, {0, 100}}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt1, plt2, Graphics[{RGBColor[0.75, 0.75, 0], PointSize[0.02], Point[{\((\((513)\) - 32)\)/1.8 + 273.15, 968/14.69}]}], 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.5 0.0025 1.73472e-017 0.00618034 [ [.125 -0.0125 -9 -9 ] [.125 -0.0125 9 0 ] [.25 -0.0125 -9 -9 ] [.25 -0.0125 9 0 ] [.375 -0.0125 -9 -9 ] [.375 -0.0125 9 0 ] [.5 -0.0125 -9 -9 ] [.5 -0.0125 9 0 ] [.625 -0.0125 -9 -9 ] [.625 -0.0125 9 0 ] [.75 -0.0125 -9 -9 ] [.75 -0.0125 9 0 ] [.875 -0.0125 -9 -9 ] [.875 -0.0125 9 0 ] [1 -0.0125 -9 -9 ] [1 -0.0125 9 0 ] [-0.0125 .12361 -12 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -12 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -12 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -12 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -18 -4.5 ] [-0.0125 .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 .125 0 m .125 .00625 L s [(250)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(300)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(350)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(400)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(450)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(500)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(550)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(600)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(20)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(40)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(60)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(80)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(100)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid .16755 .0309 m .1885 .03708 L .20754 .04326 L .22516 .04944 L .24166 .05562 L .25725 .0618 L .27211 .06798 L .28635 .07416 L .30007 .08034 L .31333 .08652 L .32621 .09271 L .33873 .09889 L .35096 .10507 L .36291 .11125 L .37461 .11743 L .3861 .12361 L .39738 .12979 L .40848 .13597 L .41941 .14215 L .43018 .14833 L .4408 .15451 L .45128 .16069 L .46164 .16687 L .47187 .17305 L .48198 .17923 L .49198 .18541 L .50188 .19159 L .51168 .19777 L .52138 .20395 L .53098 .21013 L .5405 .21631 L .54993 .22249 L .55928 .22867 L .56854 .23485 L .57773 .24103 L .58685 .24721 L .59589 .25339 L .60487 .25957 L .61378 .26575 L .62263 .27193 L .63142 .27812 L .64016 .2843 L .64885 .29048 L .65749 .29666 L .6661 .30284 L .67467 .30902 L .68321 .3152 L .69173 .32138 L .70023 .32756 L .70874 .33374 L Mistroke .71725 .33992 L .72579 .3461 L .73436 .35228 L .743 .35846 L .75172 .36464 L .76057 .37082 L .76959 .377 L .77887 .38318 L .78853 .38936 L .79878 .39554 L .81012 .40172 L .82423 .4079 L .84218 .41408 L .8454 .42026 L .85093 .40725 L Mfstroke 0 0 1 r .51421 .0309 m .53455 .03708 L .55241 .04326 L .56839 .04944 L .58289 .05562 L .5962 .0618 L .60851 .06798 L .61998 .07416 L .63073 .08034 L .64084 .08652 L .65041 .09271 L .65948 .09889 L .66812 .10507 L .67636 .11125 L .68424 .11743 L .69179 .12361 L .69905 .12979 L .70602 .13597 L .71274 .14215 L .71922 .14833 L .72547 .15451 L .73152 .16069 L .73737 .16687 L .74303 .17305 L .74852 .17923 L .75385 .18541 L .75901 .19159 L .76402 .19777 L .76889 .20395 L .77362 .21013 L .77821 .21631 L .78268 .22249 L .78702 .22867 L .79124 .23485 L .79534 .24103 L .79932 .24721 L .8032 .25339 L .80696 .25957 L .81061 .26575 L .81415 .27193 L .81759 .27812 L .82091 .2843 L .82413 .29048 L .82724 .29666 L .83024 .30284 L .83312 .30902 L .83589 .3152 L .83854 .32138 L .84106 .32756 L .84345 .33374 L Mistroke .8457 .33992 L .8478 .3461 L .84973 .35228 L .85148 .35846 L .85302 .36464 L .85431 .37082 L .85531 .377 L .85594 .38318 L .85608 .38936 L .85551 .39554 L .85396 .40172 L .85093 .40725 L Mfstroke .75 .75 0 r .02 w .85093 .40725 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgP3oool30?l005D0oooo0P000?md0?ooo`005@3o ool2000003h0oooo0`3o001D0?ooo`<0003oL@3oool001D0oooo00<000000?ooo`3oool0@03oool2 0?l005D0oooo0P000?m_0?ooo`005@3oool00`000000oooo0?ooo`120?ooo`80o`00E@3oool00`00 0?l0oooo0?ooo`1/0?ooo`005@3oool00`000000oooo0?ooo`140?ooo`80o`00E03oool20000of`0 oooo000E0?ooo`030000003oool0oooo04H0oooo0P3o001D0?ooo`80003oJP3oool001D0oooo00<0 00000?ooo`3oool0B03oool30?l005<0oooo0P000?mX0?ooo`005@3oool00`000000oooo0?ooo`1; 0?ooo`80o`00D`3oool00`000?l0oooo0?ooo`1U0?ooo`005@3oool00`000000oooo0?ooo`1=0?oo o`80o`00DP3oool20000ofD0oooo000E0?ooo`800000D03oool20?l00580oooo0P000?mS0?ooo`00 5@3oool00`000000oooo0?ooo`1A0?ooo`80o`00DP3oool00`000?l0oooo0?ooo`1P0?ooo`005@3o ool00`000000oooo0?ooo`1C0?ooo`80o`00D@3oool00`000?l0oooo0?ooo`1O0?ooo`005@3oool0 0`000000oooo0?ooo`1E0?ooo`80o`00D03oool00`000?l0oooo0?ooo`1N0?ooo`005@3oool00`00 0000oooo0?ooo`1G0?ooo`80o`00C`3oool00`000?l0oooo0?ooo`1M0?ooo`005@3oool00`000000 oooo0?ooo`1I0?ooo`80o`00CP3oool20000oed0oooo00070?ooo`@000000`3oool2000000D0oooo 00<000000?ooo`3oool0F`3oool20?l004h0oooo00<0003o0?ooo`3oool0FP3oool000L0oooo00<0 00000?ooo`3oool00`3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo05d0oooo 0P3o001=0?ooo`030000o`3oool0oooo05T0oooo00080?ooo`030000003oool0oooo0080oooo00@0 00000?ooo`3oool00000103oool200000600oooo0P3o001<0?ooo`80003oF@3oool000T0oooo00D0 00000?ooo`3oool0oooo000000020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0 H@3oool20?l004`0oooo00<0003o0?ooo`3oool0EP3oool000L0oooo00@000000?ooo`3oool00000 0P3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo06<0oooo0P3o001;0?ooo`03 0000o`3oool0oooo05D0oooo00080?ooo`800000103oool2000000D0oooo00<000000?ooo`3oool0 I@3oool20?l004X0oooo0P000?mE0?ooo`005@3oool00`000000oooo0?ooo`1W0?ooo`030?l0003o ool0oooo04T0oooo00<0003o0?ooo`3oool0DP3oool001D0oooo00<000000?ooo`3oool0J03oool0 0`3o0000oooo0?ooo`190?ooo`030000o`3oool0oooo0540oooo000E0?ooo`030000003oool0oooo 06T0oooo0P3o00190?ooo`030000o`3oool0oooo0540oooo000E0?ooo`030000003oool0oooo06/0 oooo0P3o00180?ooo`030000o`3oool0oooo0500oooo000E0?ooo`800000KP3oool20?l004L0oooo 0P000?m@0?ooo`005@3oool00`000000oooo0?ooo`1_0?ooo`80o`00A`3oool00`000?l0oooo0?oo o`1=0?ooo`005@3oool00`000000oooo0?ooo`1a0?ooo`030?l0003oool0oooo04D0oooo00<0003o 0?ooo`3oool0C03oool001D0oooo00<000000?ooo`3oool0LP3oool20?l004H0oooo00<0003o0?oo o`3oool0B`3oool001D0oooo00<000000?ooo`3oool0M03oool20?l004D0oooo00<0003o0?ooo`3o ool0BP3oool001D0oooo00<000000?ooo`3oool0MP3oool00`3o0000oooo0?ooo`130?ooo`030000 o`3oool0oooo04T0oooo000E0?ooo`030000003oool0oooo07L0oooo00<0o`000?ooo`3oool0@P3o ool00`000?l0oooo0?ooo`190?ooo`005@3oool00`000000oooo0?ooo`1h0?ooo`80o`00@`3oool0 0`000?l0oooo0?ooo`180?ooo`005@3oool2000007/0oooo0P3o00120?ooo`030000o`3oool0oooo 04L0oooo000E0?ooo`030000003oool0oooo07`0oooo0P3o00110?ooo`030000o`3oool0oooo04H0 oooo000E0?ooo`030000003oool0oooo07h0oooo00<0o`000?ooo`3oool0?`3oool00`000?l0oooo 0?ooo`150?ooo`005@3oool00`000000oooo0?ooo`1o0?ooo`80o`00@03oool00`000?l0oooo0?oo o`140?ooo`005@3oool00`000000oooo0?ooo`210?ooo`80o`00?P3oool00`000?l0oooo0?ooo`14 0?ooo`005@3oool00`000000oooo0?ooo`230?ooo`030?l0003oool0oooo03`0oooo00<0003o0?oo o`3oool0@`3oool001D0oooo00<000000?ooo`3oool0Q03oool20?l003d0oooo00<0003o0?ooo`3o ool0@P3oool001D0oooo00<000000?ooo`3oool0QP3oool20?l003`0oooo00<0003o0?ooo`3oool0 @@3oool001D0oooo0P0000290?ooo`030?l0003oool0oooo03X0oooo00<0003o0?ooo`3oool0@03o ool001D0oooo00<000000?ooo`3oool0R@3oool00`3o0000oooo0?ooo`0i0?ooo`030000o`3oool0 oooo0400oooo000E0?ooo`030000003oool0oooo08X0oooo00<0o`000?ooo`3oool0>@3oool00`00 0?l0oooo0?ooo`0o0?ooo`005@3oool00`000000oooo0?ooo`2;0?ooo`80o`00>P3oool00`000?l0 oooo0?ooo`0n0?ooo`005@3oool00`000000oooo0?ooo`2=0?ooo`80o`00>03oool00`000?l0oooo 0?ooo`0n0?ooo`005@3oool00`000000oooo0?ooo`2?0?ooo`030?l0003oool0oooo03H0oooo00<0 003o0?ooo`3oool0?@3oool000T0oooo0`0000020?ooo`8000001@3oool00`000000oooo0?ooo`2@ 0?ooo`80o`00=`3oool00`000?l0oooo0?ooo`0l0?ooo`002P3oool010000000oooo0?ooo`000002 0?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0TP3oool00`3o0000oooo0?ooo`0d 0?ooo`030000o`3oool0oooo03`0oooo00070?ooo`D0000000D0oooo0000003oool0oooo00000004 0?ooo`800000U03oool00`3o0000oooo0?ooo`0d0?ooo`030000o`3oool0oooo03/0oooo00070?oo o`040000003oool0oooo00000080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?oo o`2D0?ooo`80o`00=03oool00`000?l0oooo0?ooo`0k0?ooo`00203oool00`000000oooo00000002 0?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0UP3oool00`3o0000oooo0?oo o`0b0?ooo`030000o`3oool0oooo03X0oooo00090?ooo`8000000`3oool2000000D0oooo00<00000 0?ooo`3oool0U`3oool20?l003<0oooo00<0003o0?ooo`3oool0>@3oool001D0oooo00<000000?oo o`3oool0V@3oool00`3o0000oooo0?ooo`0`0?ooo`030000o`3oool0oooo03T0oooo000E0?ooo`03 0000003oool0oooo09X0oooo0P3o000a0?ooo`030000o`3oool0oooo03P0oooo000E0?ooo`030000 003oool0oooo09`0oooo0P3o000`0?ooo`030000o`3oool0oooo03L0oooo000E0?ooo`030000003o ool0oooo09h0oooo00<0o`000?ooo`3oool0;@3oool00`000?l0oooo0?ooo`0g0?ooo`005@3oool2 00000:00oooo00<0o`000?ooo`3oool0;@3oool00`000?l0oooo0?ooo`0f0?ooo`005@3oool00`00 0000oooo0?ooo`2P0?ooo`030?l0003oool0oooo02`0oooo00<0003o0?ooo`3oool0=P3oool001D0 oooo00<000000?ooo`3oool0X@3oool00`3o0000oooo0?ooo`0/0?ooo`030000o`3oool0oooo03D0 oooo000E0?ooo`030000003oool0oooo0:80oooo0P3o000/0?ooo`030000o`3oool0oooo03D0oooo 000E0?ooo`030000003oool0oooo0:@0oooo0P3o000Z0?ooo`030000o`3oool0oooo03D0oooo000E 0?ooo`030000003oool0oooo0:H0oooo00<0o`000?ooo`3oool0:03oool00`000?l0oooo0?ooo`0d 0?ooo`005@3oool00`000000oooo0?ooo`2W0?ooo`80o`00:@3oool00`000?l0oooo0?ooo`0c0?oo o`005@3oool00`000000oooo0?ooo`2Y0?ooo`030?l0003oool0oooo02H0oooo00<0003o0?ooo`3o ool0<`3oool001D0oooo0P00002[0?ooo`030?l0003oool0oooo02H0oooo00<0003o0?ooo`3oool0 "], ImageRangeCache->{{{91.5625, 320.938}, {264.063, 122.75}} -> {-11.5487, \ 88.6443, 1.55939, 0.630788}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Phase Envelope for Mixture 2:", FontSize->18, FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontSize->18, FontColor->RGBColor[0, 0, 1]], "\n", StyleBox["70% Ethane and 30% Benzene", FontSize->18, FontColor->RGBColor[1, 0, 0]] }], "Subsubtitle", Background->RGBColor[1, 1, 0.658824]], Cell[BoxData[ \(\(P = 5\ 14.69;\)\)], "Input"], Cell[BoxData[ \(x[1] = 0.7; x[2] = 1 - x[1];\)], "Input"], Cell[BoxData[ \(y[1] =. ; y[2] =. ;\)], "Input"], Cell[BoxData[ \(T =. \)], "Input"], Cell[CellGroupData[{ 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 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {y[1], 0.005}, {y[2], 0.995}, {T, 400}, {Z\_l, 0.05}, {Z\_v, 0.9}, MaxIterations \[Rule] 1000000] // Chop\)], "Input"], Cell[BoxData[ \({y[1] \[Rule] 0.9998076959948731`, y[2] \[Rule] 0.00019230400512691711`, T \[Rule] 412.0022354448945`, Z\_l \[Rule] 0.01858298026831486`, Z\_v \[Rule] 0.9125319866071626`}\)], "Output"] }, Open ]], Cell[BoxData[ \(Te[1] = T /. sol[1]; Pe[1] = 5\ 14.69;\)], "Input"], Cell[BoxData[ \(i =. \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 2, i < 101, P = \((4 + i)\)\ 14.69; x[1] = 0.7; 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 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[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; Te[i] = T /. sol[i]; Pe[i] = P; Print[i, "\< \>", Te[i], "\< \>", Pe[i], "\< \>", Z\_l /. sol[i], "\< \>", Z\_v /. sol[i]]; \(i++\)]\)], "Input"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]421.87335998741844`\[InvisibleSpace]" \ "\[InvisibleSpace]88.14`\[InvisibleSpace]" \ "\[InvisibleSpace]0.021991529772494568`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9006700123064953`\), SequenceForm[ 2, " ", 421.87335998741844, " ", 88.140000000000001, " ", .021991529772494568, " ", .90067001230649535], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]430.6324187129342`\[InvisibleSpace]" \ "\[InvisibleSpace]102.83`\[InvisibleSpace]" \ "\[InvisibleSpace]0.025361027504125718`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8894970928846524`\), SequenceForm[ 3, " ", 430.63241871293422, " ", 102.83, " ", .025361027504125718, " ", .8894970928846524], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]438.5478851548834`\[InvisibleSpace]" \ "\[InvisibleSpace]117.52`\[InvisibleSpace]" \ "\[InvisibleSpace]0.028699111217533393`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8788945155648604`\), SequenceForm[ 4, " ", 438.54788515488337, " ", 117.52, " ", .028699111217533393, " ", .87889451556486042], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]445.7988029257098`\[InvisibleSpace]" \ "\[InvisibleSpace]132.21`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03201147228000804`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8687765105842756`\), SequenceForm[ 5, " ", 445.79880292570982, " ", 132.21000000000001, " ", .032011472280008037, " ", .86877651058427563], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]452.5110718208481`\[InvisibleSpace]" \ "\[InvisibleSpace]146.9`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03530251736380141`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8590785736792206`\), SequenceForm[ 6, " ", 452.51107182084809, " ", 146.90000000000001, " ", .035302517363801411, " ", .85907857367922058], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]458.77689491719497`\[InvisibleSpace]" \ "\[InvisibleSpace]161.59`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03857576138834651`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8497506792186031`\), SequenceForm[ 7, " ", 458.77689491719497, " ", 161.59, " ", .038575761388346508, " ", .84975067921860314], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]464.6660087318448`\[InvisibleSpace]" \ "\[InvisibleSpace]176.28`\[InvisibleSpace]" \ "\[InvisibleSpace]0.041834075606795765`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8407530770047763`\), SequenceForm[ 8, " ", 464.66600873184478, " ", 176.28, " ", .041834075606795765, " ", .84075307700477631], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]470.23255764393326`\[InvisibleSpace]" \ "\[InvisibleSpace]190.97`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04507985195174642`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8320535561387072`\), SequenceForm[ 9, " ", 470.23255764393326, " ", 190.97, " ", .045079851951746422, " ", .83205355613870724], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]475.5195040234107`\[InvisibleSpace]" \ "\[InvisibleSpace]205.66`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04831511621863846`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8236255907595417`\), SequenceForm[ 10, " ", 475.51950402341072, " ", 205.66, " ", .04831511621863846, " ", .82362559075954167], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]480.561568748882`\[InvisibleSpace]" \ "\[InvisibleSpace]220.35`\[InvisibleSpace]" \ "\[InvisibleSpace]0.051541608557238265`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8154470409723998`\), SequenceForm[ 11, " ", 480.561568748882, " ", 220.34999999999999, " ", .051541608557238265, " ", .81544704097239984], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]485.38725627658783`\[InvisibleSpace]" \ "\[InvisibleSpace]235.04`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05476084228285129`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8074992169460168`\), SequenceForm[ 12, " ", 485.38725627658783, " ", 235.03999999999999, " ", .054760842282851288, " ", .80749921694601678], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]490.0202881581025`\[InvisibleSpace]" \ "\[InvisibleSpace]249.73`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05797414785278502`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7997661883681553`\), SequenceForm[ 13, " ", 490.02028815810252, " ", 249.72999999999999, " ", .05797414785278502, " ", .79976618836815527], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]494.4806421446247`\[InvisibleSpace]" \ "\[InvisibleSpace]264.42`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06118270641720694`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7922342643011383`\), SequenceForm[ 14, " ", 494.48064214462471, " ", 264.42000000000002, " ", .061182706417206939, " ", .7922342643011383], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]498.785321102372`\[InvisibleSpace]" \ "\[InvisibleSpace]279.11`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06438757587204545`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7848915942348424`\), SequenceForm[ 15, " ", 498.785321102372, " ", 279.11000000000001, " ", .064387575872045452, " ", .78489159423484245], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]502.94893240973215`\[InvisibleSpace]" \ "\[InvisibleSpace]293.8`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06758971140995265`\[InvisibleSpace]" \ "\[InvisibleSpace]0.777727857153325`\), SequenceForm[ 16, " ", 502.94893240973215, " ", 293.80000000000001, " ", .067589711409952652, " ", .77772785715332504], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]506.9841316224487`\[InvisibleSpace]" \ "\[InvisibleSpace]308.49`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07078998196212287`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7707340156967339`\), SequenceForm[ 17, " ", 506.98413162244867, " ", 308.49000000000001, " ", .070789981962122869, " ", .77073401569673394], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]510.9019671131453`\[InvisibleSpace]" \ "\[InvisibleSpace]323.18`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07398918352301435`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7639021192537049`\), SequenceForm[ 18, " ", 510.9019671131453, " ", 323.18000000000001, " ", .073989183523014354, " ", .76390211925370488], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]514.7121512599336`\[InvisibleSpace]" \ "\[InvisibleSpace]337.87`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07718805007765707`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7572251443673558`\), SequenceForm[ 19, " ", 514.71215125993365, " ", 337.87, " ", .077188050077657069, " ", .75722514436735577], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]518.4232763371033`\[InvisibleSpace]" \ "\[InvisibleSpace]352.56`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08038726266233201`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7506968639649316`\), SequenceForm[ 20, " ", 518.42327633710329, " ", 352.56, " ", .08038726266233201, " ", .75069686396493163], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]522.0429882104442`\[InvisibleSpace]" \ "\[InvisibleSpace]367.25`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0835874569559811`\[InvisibleSpace]" \ "\[InvisibleSpace]0.744311739111778`\), SequenceForm[ 21, " ", 522.04298821044415, " ", 367.25, " ", .083587456955981104, " ", .74431173911177795], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]525.5781274389869`\[InvisibleSpace]" \ "\[InvisibleSpace]381.94`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08678922970390505`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7380648285512408`\), SequenceForm[ 22, " ", 525.57812743898694, " ", 381.94, " ", .086789229703905055, " ", .73806482855124078], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]529.0348449173965`\[InvisibleSpace]" \ "\[InvisibleSpace]396.63`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08999314420548722`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7319517124216619`\), SequenceForm[ 23, " ", 529.03484491739653, " ", 396.63, " ", .089993144205487222, " ", .7319517124216619], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]532.4186974272204`\[InvisibleSpace]" \ "\[InvisibleSpace]411.32`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09319973504610451`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7259684273706545`\), SequenceForm[ 24, " ", 532.41869742722042, " ", 411.31999999999999, " ", .093199735046104515, " ", .72596842737065448], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]535.7347271834777`\[InvisibleSpace]" \ "\[InvisibleSpace]426.01`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0964095122148102`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7201114109034304`\), SequenceForm[ 25, " ", 535.73472718347773, " ", 426.00999999999999, " ", .0964095122148102, " ", .72011141090343045], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]538.987528520797`\[InvisibleSpace]" \ "\[InvisibleSpace]440.7`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0996229647201992`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7143774532659648`\), SequenceForm[ 26, " ", 538.98752852079701, " ", 440.69999999999999, " ", .0996229647201992, " ", .7143774532659648], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]542.1813041623686`\[InvisibleSpace]" \ "\[InvisibleSpace]455.39`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10284056379457039`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7087636555171317`\), SequenceForm[ 27, " ", 542.18130416236863, " ", 455.38999999999999, " ", .10284056379457039, " ", .70876365551713172], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]545.3199129877978`\[InvisibleSpace]" \ "\[InvisibleSpace]470.08`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10606276575930529`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7032673927158161`\), SequenceForm[ 28, " ", 545.31991298779781, " ", 470.07999999999998, " ", .10606276575930529, " ", .70326739271581606], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]548.4069108154075`\[InvisibleSpace]" \ "\[InvisibleSpace]484.77`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10929001461100632`\[InvisibleSpace]" \ "\[InvisibleSpace]0.69788628136034`\), SequenceForm[ 29, " ", 548.40691081540751, " ", 484.76999999999998, " ", .10929001461100632, " ", .69788628136034003], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]551.445585407328`\[InvisibleSpace]" \ "\[InvisibleSpace]499.46`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11252274437745703`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6926181503833768`\), SequenceForm[ 30, " ", 551.44558540732805, " ", 499.45999999999998, " ", .11252274437745703, " ", .69261815038337682], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]554.4389866680433`\[InvisibleSpace]" \ "\[InvisibleSpace]514.15`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11576138128419754`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6874610151369462`\), SequenceForm[ 31, " ", 554.4389866680433, " ", 514.14999999999998, " ", .11576138128419754, " ", .68746101513694624], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]557.3899528215993`\[InvisibleSpace]" \ "\[InvisibleSpace]528.84`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11900634576595277`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6824130539069589`\), SequenceForm[ 32, " ", 557.38995282159931, " ", 528.84000000000003, " ", .11900634576595277, " ", .68241305390695894], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]560.3011332069361`\[InvisibleSpace]" \ "\[InvisibleSpace]543.53`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12225805435192678`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6774725865813646`\), SequenceForm[ 33, " ", 560.30113320693613, " ", 543.52999999999997, " ", .12225805435192678, " ", .67747258658136456], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]563.175008215372`\[InvisibleSpace]" \ "\[InvisibleSpace]558.22`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12551692144980606`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6726380551645342`\), SequenceForm[ 34, " ", 563.17500821537203, " ", 558.22000000000003, " ", .12551692144980606, " ", .67263805516453423], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]566.0139068022733`\[InvisibleSpace]" \ "\[InvisibleSpace]572.91`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12878336104997937`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6679080058865703`\), SequenceForm[ 35, " ", 566.01390680227325, " ", 572.90999999999997, " ", .12878336104997937, " ", .66790800588657029], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]568.8200219311609`\[InvisibleSpace]" \ "\[InvisibleSpace]587.6`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1320577883688241`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6632810727023475`\), SequenceForm[ 36, " ", 568.82002193116091, " ", 587.60000000000002, " ", .13205778836882409, " ", .66328107270234749], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]571.595424248949`\[InvisibleSpace]" \ "\[InvisibleSpace]602.29`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1353406214477927`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6587559620130966`\), SequenceForm[ 37, " ", 571.59542424894903, " ", 602.28999999999996, " ", .13534062144779271, " ", .65875596201309661], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]574.3420742427402`\[InvisibleSpace]" \ "\[InvisibleSpace]616.98`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13863228272337766`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6543314384749351`\), SequenceForm[ 38, " ", 574.34207424274018, " ", 616.98000000000002, " ", .13863228272337766, " ", .65433143847493513], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]577.0618330892149`\[InvisibleSpace]" \ "\[InvisibleSpace]631.67`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1419332005817512`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6500063117848723`\), SequenceForm[ 39, " ", 577.06183308921493, " ", 631.66999999999996, " ", .14193320058175121, " ", .65000631178487234], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]579.7564723754067`\[InvisibleSpace]" \ "\[InvisibleSpace]646.36`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1452438109109212`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6457794243564676`\), SequenceForm[ 40, " ", 579.7564723754067, " ", 646.36000000000001, " ", .1452438109109212, " ", .64577942435646762], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]582.4276828431387`\[InvisibleSpace]" \ "\[InvisibleSpace]661.05`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14856455866256824`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6416496398152309`\), SequenceForm[ 41, " ", 582.42768284313865, " ", 661.04999999999995, " ", .14856455866256824, " ", .64164963981523093], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]585.0770822874955`\[InvisibleSpace]" \ "\[InvisibleSpace]675.74`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15189589943530662`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6376158322583939`\), SequenceForm[ 42, " ", 585.0770822874955, " ", 675.74000000000001, " ", .15189589943530662, " ", .63761583225839391], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]587.7062227215787`\[InvisibleSpace]" \ "\[InvisibleSpace]690.43`\[InvisibleSpace]" \ "\[InvisibleSpace]0.155238301090916`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6336768762354866`\), SequenceForm[ 43, " ", 587.70622272157868, " ", 690.42999999999995, " ", .15523830109091599, " ", .63367687623548663], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]590.3165969047334`\[InvisibleSpace]" \ "\[InvisibleSpace]705.12`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15859224541510825`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6298316374153479`\), SequenceForm[ 44, " ", 590.31659690473339, " ", 705.12, " ", .15859224541510825, " ", .62983163741534787], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]592.9096443189122`\[InvisibleSpace]" \ "\[InvisibleSpace]719.81`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16195822983462219`\[InvisibleSpace]" \ "\[InvisibleSpace]0.626078963912242`\), SequenceForm[ 45, " ", 592.90964431891223, " ", 719.80999999999995, " ", .16195822983462219, " ", .62607896391224205], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]595.4867566674347`\[InvisibleSpace]" \ "\[InvisibleSpace]734.5`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16533676920286974`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6224176782488082`\), SequenceForm[ 46, " ", 595.48675666743475, " ", 734.5, " ", .16533676920286974, " ", .62241767824880823], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]598.0492829616867`\[InvisibleSpace]" \ "\[InvisibleSpace]749.1899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16872839766699688`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6188465699366688`\), SequenceForm[ 47, " ", 598.04928296168669, " ", 749.18999999999994, " ", .16872839766699688, " ", .61884656993666876], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]600.5985342541499`\[InvisibleSpace]" \ "\[InvisibleSpace]763.88`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17213367063008547`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6153643886572772`\), SequenceForm[ 48, " ", 600.59853425414985, " ", 763.88, " ", .17213367063008547, " ", .61536438865727716], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]603.1357880701397`\[InvisibleSpace]" \ "\[InvisibleSpace]778.5699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17555316682331346`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6119698380255624`\), SequenceForm[ 49, " ", 603.13578807013971, " ", 778.56999999999994, " ", .17555316682331346, " ", .61196983802556237], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]605.6622925857802`\[InvisibleSpace]" \ "\[InvisibleSpace]793.26`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1789874905042436`\[InvisibleSpace]" \ "\[InvisibleSpace]0.608661569917868`\), SequenceForm[ 50, " ", 605.66229258578016, " ", 793.25999999999999, " ", .17898749050424359, " ", .60866156991786802], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]608.1792705957483`\[InvisibleSpace]" \ "\[InvisibleSpace]807.9499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18243727379904048`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6054381793432893`\), SequenceForm[ 51, " ", 608.17927059574833, " ", 807.94999999999993, " ", .18243727379904048, " ", .60543817934328925], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]610.6879233111969`\[InvisibleSpace]" \ "\[InvisibleSpace]822.64`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18590317920837077`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6022981998342023`\), SequenceForm[ 52, " ", 610.68792331119687, " ", 822.63999999999999, " ", .18590317920837077, " ", .6022981998342023], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]613.1894340258299`\[InvisibleSpace]" \ "\[InvisibleSpace]837.3299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1893859022990517`\[InvisibleSpace]" \ "\[InvisibleSpace]0.599240099327535`\), SequenceForm[ 53, " ", 613.18943402582988, " ", 837.32999999999993, " ", .18938590229905169, " ", .59924009932753497], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]615.6849716863834`\[InvisibleSpace]" \ "\[InvisibleSpace]852.02`\[InvisibleSpace]" \ "\[InvisibleSpace]0.192886174606252`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5962622765033848`\), SequenceForm[ 54, " ", 615.68497168638339, " ", 852.01999999999998, " ", .19288617460625199, " ", .59626227650338481], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]618.1756944026373`\[InvisibleSpace]" \ "\[InvisibleSpace]866.7099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1964047667742549`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5933630575419517`\), SequenceForm[ 55, " ", 618.1756944026373, " ", 866.70999999999992, " ", .19640476677425489, " ", .59336305754195173], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]620.6627529316028`\[InvisibleSpace]" \ "\[InvisibleSpace]881.4`\[InvisibleSpace]" \ "\[InvisibleSpace]0.199942491967587`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5905406932536099`\), SequenceForm[ 56, " ", 620.66275293160277, " ", 881.39999999999998, " ", .19994249196758701, " ", .59054069325360992], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]623.1472941706579`\[InvisibleSpace]" \ "\[InvisibleSpace]896.0899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.20350020958876192`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5877933565304174`\), SequenceForm[ 57, " ", 623.14729417065791, " ", 896.08999999999992, " ", .20350020958876192, " ", .58779335653041742], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]625.6304646951332`\[InvisibleSpace]" \ "\[InvisibleSpace]910.78`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2070788293441319`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5851191400602423`\), SequenceForm[ 58, " ", 625.63046469513324, " ", 910.77999999999997, " ", .20707882934413191, " ", .58511914006024235], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]628.1134143773027`\[InvisibleSpace]" \ "\[InvisibleSpace]925.4699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2106793157055276`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5825160542374251`\), SequenceForm[ 59, " ", 628.11341437730266, " ", 925.46999999999991, " ", .21067931570552759, " ", .58251605423742514], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]630.5973001258737`\[InvisibleSpace]" \ "\[InvisibleSpace]940.16`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2143026928226862`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5799820251959985`\), SequenceForm[ 60, " ", 630.59730012587374, " ", 940.15999999999997, " ", .21430269282268621, " ", .57998202519599851], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]633.0832897880567`\[InvisibleSpace]" \ "\[InvisibleSpace]954.85`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21795004995014575`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5775148928832671`\), SequenceForm[ 61, " ", 633.08328978805673, " ", 954.85000000000002, " ", .21795004995014575, " ", .57751489288326707], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]635.57256626024`\[InvisibleSpace]" \ "\[InvisibleSpace]969.54`\[InvisibleSpace]" \ "\[InvisibleSpace]0.22162254746263188`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5751124090826688`\), SequenceForm[ 62, " ", 635.57256626024002, " ", 969.53999999999996, " ", .22162254746263188, " ", .57511240908266881], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]638.0663318582835`\[InvisibleSpace]" \ "\[InvisibleSpace]984.23`\[InvisibleSpace]" \ "\[InvisibleSpace]0.22532142354529716`\[InvisibleSpace]" \ "\[InvisibleSpace]0.572772235285083`\), SequenceForm[ 63, " ", 638.06633185828355, " ", 984.23000000000002, " ", .22532142354529716, " ", .57277223528508303], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]640.5658130048103`\[InvisibleSpace]" \ "\[InvisibleSpace]998.92`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2290480016600013`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5704919402969741`\), SequenceForm[ 64, " ", 640.56581300481025, " ", 998.91999999999996, " ", .2290480016600013, " ", .57049194029697414], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]643.0722652987683`\[InvisibleSpace]" \ "\[InvisibleSpace]1013.61`\[InvisibleSpace]" \ "\[InvisibleSpace]0.23280369890666708`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5682689974615697`\), SequenceForm[ 65, " ", 643.07226529876834, " ", 1013.61, " ", .23280369890666708, " ", .56826899746156967], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]645.5869790423416`\[InvisibleSpace]" \ "\[InvisibleSpace]1028.3`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2365900354203564`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5661007813549135`\), SequenceForm[ 66, " ", 645.58697904234157, " ", 1028.3, " ", .23659003542035639, " ", .56610078135491348], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]648.1112853124307`\[InvisibleSpace]" \ "\[InvisibleSpace]1042.99`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24040864497098682`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5639845638017648`\), SequenceForm[ 67, " ", 648.11128531243071, " ", 1042.99, " ", .24040864497098682, " ", .56398456380176476], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]650.6465626790143`\[InvisibleSpace]" \ "\[InvisibleSpace]1057.68`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24426128696475996`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5619175090360449`\), SequenceForm[ 68, " ", 650.64656267901432, " ", 1057.6800000000001, " ", .24426128696475996, " ", .56191750903604487], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]653.1942446913921`\[InvisibleSpace]" \ "\[InvisibleSpace]1072.37`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24814986008588696`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5598966678055861`\), SequenceForm[ 69, " ", 653.1942446913921, " ", 1072.3699999999999, " ", .24814986008588696, " ", .55989666780558611], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]655.7558282765727`\[InvisibleSpace]" \ "\[InvisibleSpace]1087.06`\[InvisibleSpace]" \ "\[InvisibleSpace]0.25207641786606627`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5579189701899939`\), SequenceForm[ 70, " ", 655.75582827657274, " ", 1087.0599999999999, " ", .25207641786606627, " ", .55791897018999392], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]658.3328832232161`\[InvisibleSpace]" \ "\[InvisibleSpace]1101.75`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2560431865299947`\[InvisibleSpace]" \ "\[InvisibleSpace]0.555981216861847`\), SequenceForm[ 71, " ", 658.33288322321607, " ", 1101.75, " ", .25604318652999469, " ", .55598121686184698], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]660.9270629611277`\[InvisibleSpace]" \ "\[InvisibleSpace]1116.44`\[InvisibleSpace]" \ "\[InvisibleSpace]0.26005258554139643`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5540800684726986`\), SequenceForm[ 72, " ", 660.92706296112772, " ", 1116.4400000000001, " ", .26005258554139643, " ", .55408006847269864], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]663.5401168925496`\[InvisibleSpace]" \ "\[InvisibleSpace]1131.1299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2641072513701533`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5522120327830293`\), SequenceForm[ 73, " ", 663.54011689254958, " ", 1131.1299999999999, " ", .26410725137015328, " ", .55221203278302933], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]666.1739045903562`\[InvisibleSpace]" \ "\[InvisibleSpace]1145.82`\[InvisibleSpace]" \ "\[InvisibleSpace]0.26821006512327583`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5503734490757365`\), SequenceForm[ 74, " ", 666.17390459035619, " ", 1145.8199999999999, " ", .26821006512327583, " ", .55037344907573649], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]668.8304122537551`\[InvisibleSpace]" \ "\[InvisibleSpace]1160.51`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2723641848389458`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5485604692899055`\), SequenceForm[ 75, " ", 668.83041225375507, " ", 1160.51, " ", .27236418483894581, " ", .54856046928990554], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]671.5117719095347`\[InvisibleSpace]" \ "\[InvisibleSpace]1175.2`\[InvisibleSpace]" \ "\[InvisibleSpace]0.27657308344499204`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5467690351775968`\), SequenceForm[ 76, " ", 671.51177190953467, " ", 1175.2, " ", .27657308344499204, " ", .54676903517759678], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]674.220283974055`\[InvisibleSpace]" \ "\[InvisibleSpace]1189.8899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.28084059364673464`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5449948506111196`\), SequenceForm[ 77, " ", 674.22028397405495, " ", 1189.8899999999999, " ", .28084059364673464, " ", .54499485061111963], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]676.9584439584019`\[InvisibleSpace]" \ "\[InvisibleSpace]1204.58`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2851709613560879`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5432333479360739`\), SequenceForm[ 78, " ", 676.95844395840186, " ", 1204.5799999999999, " ", .28517096135608788, " ", .54323334793607392], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]679.7289743215066`\[InvisibleSpace]" \ "\[InvisibleSpace]1219.27`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2895689097353987`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5414796469556247`\), SequenceForm[ 79, " ", 679.7289743215066, " ", 1219.27, " ", .28956890973539873, " ", .54147964695562467], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]682.5348627751276`\[InvisibleSpace]" \ "\[InvisibleSpace]1233.96`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2940397165506558`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5397285047136309`\), SequenceForm[ 80, " ", 682.53486277512764, " ", 1233.96, " ", .29403971655065581, " ", .53972850471363087], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]685.379408751588`\[InvisibleSpace]" \ "\[InvisibleSpace]1248.6499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.29858930837479747`\[InvisibleSpace]" \ "\[InvisibleSpace]0.537974253673592`\), SequenceForm[ 81, " ", 685.37940875158802, " ", 1248.6499999999999, " ", .29858930837479747, " ", .53797425367359197], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]688.2662803067614`\[InvisibleSpace]" \ "\[InvisibleSpace]1263.34`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3032243763500692`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5362107251019698`\), SequenceForm[ 82, " ", 688.26628030676136, " ", 1263.3399999999999, " ", .30322437635006921, " ", .53621072510196977], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]691.1995845167498`\[InvisibleSpace]" \ "\[InvisibleSpace]1278.03`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3079525198549203`\[InvisibleSpace]" \ "\[InvisibleSpace]0.534431153358571`\), SequenceForm[ 83, " ", 691.19958451674984, " ", 1278.03, " ", .30795251985492028, " ", .53443115335857105], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]694.1839555446276`\[InvisibleSpace]" \ "\[InvisibleSpace]1292.72`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3127824267506942`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5326280552217308`\), SequenceForm[ 84, " ", 694.18395554462757, " ", 1292.72, " ", .31278242675069418, " ", .53262805522173085], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]697.2246661718528`\[InvisibleSpace]" \ "\[InvisibleSpace]1307.4099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.31772410225895936`\[InvisibleSpace]" \ "\[InvisibleSpace]0.530793076093234`\), SequenceForm[ 85, " ", 697.22466617185285, " ", 1307.4099999999999, " ", .31772410225895936, " ", .53079307609323401], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]700.3277709777311`\[InvisibleSpace]" \ "\[InvisibleSpace]1322.1`\[InvisibleSpace]" \ "\[InvisibleSpace]0.32278916350778286`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5289167915549083`\), SequenceForm[ 86, " ", 700.32777097773112, " ", 1322.0999999999999, " ", .32278916350778286, " ", .52891679155490834], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]703.5002929537711`\[InvisibleSpace]" \ "\[InvisibleSpace]1336.79`\[InvisibleSpace]" \ "\[InvisibleSpace]0.32799122431612937`\[InvisibleSpace]" \ "\[InvisibleSpace]0.526988447654602`\), SequenceForm[ 87, " ", 703.50029295377112, " ", 1336.79, " ", .32799122431612937, " ", .52698844765460195], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]706.750470910053`\[InvisibleSpace]" \ "\[InvisibleSpace]1351.48`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3333464064376529`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5249956154188068`\), SequenceForm[ 88, " ", 706.75047091005297, " ", 1351.48, " ", .3333464064376529, " ", .52499561541880679], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]710.0880938808015`\[InvisibleSpace]" \ "\[InvisibleSpace]1366.1699999999998`\[InvisibleSpace]" \ "\[InvisibleSpace]0.33887403201614535`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5229237225554008`\), SequenceForm[ 89, " ", 710.08809388080147, " ", 1366.1699999999998, " ", .33887403201614535, " ", .52292372255540076], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]713.524963245011`\[InvisibleSpace]" \ "\[InvisibleSpace]1380.86`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3445975824132237`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5207554047459312`\), SequenceForm[ 90, " ", 713.52496324501101, " ", 1380.8599999999999, " ", .34459758241322369, " ", .52075540474593118], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]717.0755479337145`\[InvisibleSpace]" \ "\[InvisibleSpace]1395.55`\[InvisibleSpace]" \ "\[InvisibleSpace]0.350546060294373`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5184695839490867`\), SequenceForm[ 91, " ", 717.07554793371446, " ", 1395.55, " ", .35054606029437302, " ", .51846958394908671], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]720.7579417830865`\[InvisibleSpace]" \ "\[InvisibleSpace]1410.24`\[InvisibleSpace]" \ "\[InvisibleSpace]0.35675598360149813`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5160401191053134`\), SequenceForm[ 92, " ", 720.75794178308649, " ", 1410.24, " ", .35675598360149813, " ", .51604011910531344], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]724.5953134086499`\[InvisibleSpace]" \ "\[InvisibleSpace]1424.93`\[InvisibleSpace]" \ "\[InvisibleSpace]0.363274410967683`\[InvisibleSpace]" \ "\[InvisibleSpace]0.513433759070617`\), SequenceForm[ 93, " ", 724.59531340864987, " ", 1424.9300000000001, " ", .36327441096768298, " ", .51343375907061695], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]728.6181995159766`\[InvisibleSpace]" \ "\[InvisibleSpace]1439.62`\[InvisibleSpace]" \ "\[InvisibleSpace]0.370163735921677`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5106068992502143`\), SequenceForm[ 94, " ", 728.61819951597658, " ", 1439.6199999999999, " ", .37016373592167701, " ", .5106068992502143], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]732.8683331737977`\[InvisibleSpace]" \ "\[InvisibleSpace]1454.31`\[InvisibleSpace]" \ "\[InvisibleSpace]0.37750970462253614`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5075001584716716`\), SequenceForm[ 95, " ", 732.86833317379774, " ", 1454.3099999999999, " ", .37750970462253614, " ", .50750015847167163], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]737.4054895118983`\[InvisibleSpace]" \ "\[InvisibleSpace]1469.`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3854357794238497`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5040286655132601`\), SequenceForm[ 96, " ", 737.40548951189828, " ", 1469.0, " ", .38543577942384971, " ", .50402866551326009], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]742.3208965292345`\[InvisibleSpace]" \ "\[InvisibleSpace]1483.69`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3941313292498051`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5000629988689125`\), SequenceForm[ 97, " ", 742.32089652923446, " ", 1483.6900000000001, " ", .3941313292498051, " ", .50006299886891248], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]747.7670888179326`\[InvisibleSpace]" \ "\[InvisibleSpace]1498.3799999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.40391450182068966`\[InvisibleSpace]" \ "\[InvisibleSpace]0.49538668508900624`\), SequenceForm[ 98, " ", 747.76708881793263, " ", 1498.3799999999999, " ", .40391450182068966, " ", .49538668508900624], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]754.0386880016501`\[InvisibleSpace]" \ "\[InvisibleSpace]1513.07`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4154026777996351`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4895809913878679`\), SequenceForm[ 99, " ", 754.03868800165014, " ", 1513.0699999999999, " ", .41540267779963508, " ", .48958099138786793], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(100\[InvisibleSpace]" \ "\[InvisibleSpace]761.8830899531656`\[InvisibleSpace]" \ "\[InvisibleSpace]1527.76`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4301694186500777`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4815809745779597`\), SequenceForm[ 100, " ", 761.88308995316561, " ", 1527.76, " ", .43016941865007768, " ", .48158097457795968], Editable->False]], "Print"] }, Closed]], Cell[BoxData[ \(\(tbl3 = Append[Table[{\((\((Te[i] - 459.67)\) - 32)\)/1.8 + 273.15, Pe[i]/14.69}, {i, 1, 100}], {\((\((770 - 459.67)\) - 32)\)/1.8 + 273.15, 1560/14.69}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt3 = ListPlot[tbl3, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], PlotRange \[Rule] {{200, 600}, {0, 120}}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[ \(\(P = 5\ 14.69;\)\)], "Input"], Cell[BoxData[ \(y[1] = 0.7; y[2] = 1 - x[1];\)], "Input"], Cell[BoxData[ \(T =. \)], "Input"], Cell[BoxData[ \(x[1] =. ; x[2] =. ;\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sol[1] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], x[1] + x[2] \[Equal] \ 1, Z\_l^3 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {x[1], 0.005}, {x[2], 0.995}, {T, 400}, {Z\_l, 0.05}, {Z\_v, 0.9}, MaxIterations \[Rule] 1000000] // Chop\)], "Input"], Cell[BoxData[ \({x[1] \[Rule] 0.0344095943119555`, x[2] \[Rule] 0.9655904056880446`, T \[Rule] 658.2490335467944`, Z\_l \[Rule] 0.01755076372292015`, Z\_v \[Rule] 0.9563216522361718`}\)], "Output"] }, Open ]], Cell[BoxData[ \(Tro[1] = T /. sol[1]; Pr[1] = 5\ 14.69;\)], "Input"], Cell[BoxData[ \(i =. \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 2, i < 101, P = \((4 + i)\)\ 14.69; y[1] = 0.7; y[2] = 1 - y[1]; sol[i] = FindRoot[{y[1] \[Equal] \ K[1]\ x[1], y[2] \[Equal] \ K[2]\ x[2], x[1] + x[2] \[Equal] \ 1, Z\_l^3 - Z\_l^2 + Z\_l\ \((A\_l - B\_l - B\_l^2)\) - A\_l\ B\_l \[Equal] 0, Z\_v^3 - Z\_v^2 + Z\_v\ \((A\_v - B\_v - B\_v^2)\) - A\_v\ B\_v \[Equal] 0}, {x[1], x[1] /. sol[i - 1]}, {x[2], x[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; Tro[i] = T /. sol[i]; Pr[i] = P; Print[i, "\< \>", Tro[i], "\< \>", Pr[i], "\< \>", Z\_l /. sol[i], "\< \>", Z\_v /. sol[i]]; \(i++\)]\)], "Input"], Cell[BoxData[ InterpretationBox[\(2\[InvisibleSpace]" \ "\[InvisibleSpace]669.4498049727027`\[InvisibleSpace]" \ "\[InvisibleSpace]88.14`\[InvisibleSpace]" \ "\[InvisibleSpace]0.020885091168389176`\[InvisibleSpace]" \ "\[InvisibleSpace]0.950014931460704`\), SequenceForm[ 2, " ", 669.44980497270274, " ", 88.140000000000001, " ", .020885091168389176, " ", .95001493146070404], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(3\[InvisibleSpace]" \ "\[InvisibleSpace]679.1876612457158`\[InvisibleSpace]" \ "\[InvisibleSpace]102.83`\[InvisibleSpace]" \ "\[InvisibleSpace]0.02420079691195601`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9440096144258485`\), SequenceForm[ 3, " ", 679.18766124571584, " ", 102.83, " ", .024200796911956011, " ", .94400961442584852], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(4\[InvisibleSpace]" \ "\[InvisibleSpace]687.8195310355898`\[InvisibleSpace]" \ "\[InvisibleSpace]117.52`\[InvisibleSpace]" \ "\[InvisibleSpace]0.027502605823887822`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9382525269559231`\), SequenceForm[ 4, " ", 687.81953103558976, " ", 117.52, " ", .027502605823887822, " ", .93825252695592309], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(5\[InvisibleSpace]" \ "\[InvisibleSpace]695.5820834107344`\[InvisibleSpace]" \ "\[InvisibleSpace]132.21`\[InvisibleSpace]" \ "\[InvisibleSpace]0.030794037085864246`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9327048923053555`\), SequenceForm[ 5, " ", 695.58208341073441, " ", 132.21000000000001, " ", .030794037085864246, " ", .93270489230535547], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(6\[InvisibleSpace]" \ "\[InvisibleSpace]702.6408798878588`\[InvisibleSpace]" \ "\[InvisibleSpace]146.9`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03407781735614456`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9273372737016846`\), SequenceForm[ 6, " ", 702.64087988785877, " ", 146.90000000000001, " ", .034077817356144562, " ", .92733727370168462], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(7\[InvisibleSpace]" \ "\[InvisibleSpace]709.1165928531847`\[InvisibleSpace]" \ "\[InvisibleSpace]161.59`\[InvisibleSpace]" \ "\[InvisibleSpace]0.03735612540748647`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9221266202995587`\), SequenceForm[ 7, " ", 709.11659285318467, " ", 161.59, " ", .037356125407486472, " ", .92212662029955872], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(8\[InvisibleSpace]" \ "\[InvisibleSpace]715.1000827117906`\[InvisibleSpace]" \ "\[InvisibleSpace]176.28`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04063074616555945`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9170544295060177`\), SequenceForm[ 8, " ", 715.10008271179061, " ", 176.28, " ", .04063074616555945, " ", .91705442950601768], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(9\[InvisibleSpace]" \ "\[InvisibleSpace]720.6615924448969`\[InvisibleSpace]" \ "\[InvisibleSpace]190.97`\[InvisibleSpace]" \ "\[InvisibleSpace]0.04390317249734667`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9121055458663959`\), SequenceForm[ 9, " ", 720.66159244489688, " ", 190.97, " ", .043903172497346668, " ", .91210554586639592], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(10\[InvisibleSpace]" \ "\[InvisibleSpace]725.8566259024425`\[InvisibleSpace]" \ "\[InvisibleSpace]205.66`\[InvisibleSpace]" \ "\[InvisibleSpace]0.047174675147987365`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9072673440667367`\), SequenceForm[ 10, " ", 725.85662590244249, " ", 205.66, " ", .047174675147987365, " ", .9072673440667367], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(11\[InvisibleSpace]" \ "\[InvisibleSpace]730.7298548342889`\[InvisibleSpace]" \ "\[InvisibleSpace]220.35`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05044635236752507`\[InvisibleSpace]" \ "\[InvisibleSpace]0.9025291546202271`\), SequenceForm[ 11, " ", 730.72985483428886, " ", 220.34999999999999, " ", .050446352367525073, " ", .90252915462022709], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(12\[InvisibleSpace]" \ "\[InvisibleSpace]735.3178016629545`\[InvisibleSpace]" \ "\[InvisibleSpace]235.04`\[InvisibleSpace]" \ "\[InvisibleSpace]0.05371916609518755`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8978818488333112`\), SequenceForm[ 12, " ", 735.31780166295448, " ", 235.03999999999999, " ", .053719166095187551, " ", .89788184883331124], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(13\[InvisibleSpace]" \ "\[InvisibleSpace]739.6507333533198`\[InvisibleSpace]" \ "\[InvisibleSpace]249.73`\[InvisibleSpace]" \ "\[InvisibleSpace]0.056993968962814744`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8933175317230357`\), SequenceForm[ 13, " ", 739.65073335331977, " ", 249.72999999999999, " ", .056993968962814744, " ", .89331753172303574], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(14\[InvisibleSpace]" \ "\[InvisibleSpace]743.7540306477628`\[InvisibleSpace]" \ "\[InvisibleSpace]264.42`\[InvisibleSpace]" \ "\[InvisibleSpace]0.060271524857566726`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8888293101353563`\), SequenceForm[ 14, " ", 743.75403064776276, " ", 264.42000000000002, " ", .060271524857566726, " ", .88882931013535627], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(15\[InvisibleSpace]" \ "\[InvisibleSpace]747.6491987772386`\[InvisibleSpace]" \ "\[InvisibleSpace]279.11`\[InvisibleSpace]" \ "\[InvisibleSpace]0.06355252486033154`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8844111145100055`\), SequenceForm[ 15, " ", 747.64919877723855, " ", 279.11000000000001, " ", .063552524860331541, " ", .88441111451000554], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(16\[InvisibleSpace]" \ "\[InvisibleSpace]751.3546272664715`\[InvisibleSpace]" \ "\[InvisibleSpace]293.8`\[InvisibleSpace]" \ "\[InvisibleSpace]0.0668375997962627`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8800575597189586`\), SequenceForm[ 16, " ", 751.35462726647154, " ", 293.80000000000001, " ", .066837599796262706, " ", .8800575597189586], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(17\[InvisibleSpace]" \ "\[InvisibleSpace]754.8861704277131`\[InvisibleSpace]" \ "\[InvisibleSpace]308.49`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07012733025887978`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8757638348903541`\), SequenceForm[ 17, " ", 754.88617042771307, " ", 308.49000000000001, " ", .07012733025887978, " ", .87576383489035414], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(18\[InvisibleSpace]" \ "\[InvisibleSpace]758.2575973000593`\[InvisibleSpace]" \ "\[InvisibleSpace]323.18`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07342225472039281`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8715256150870144`\), SequenceForm[ 18, " ", 758.25759730005927, " ", 323.18000000000001, " ", .073422254720392807, " ", .87152561508701443], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(19\[InvisibleSpace]" \ "\[InvisibleSpace]761.4809449375866`\[InvisibleSpace]" \ "\[InvisibleSpace]337.87`\[InvisibleSpace]" \ "\[InvisibleSpace]0.07672287617206577`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8673389897044173`\), SequenceForm[ 19, " ", 761.48094493758663, " ", 337.87, " ", .076722876172065774, " ", .86733898970441725], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(20\[InvisibleSpace]" \ "\[InvisibleSpace]764.5667990651515`\[InvisibleSpace]" \ "\[InvisibleSpace]352.56`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08002966762148817`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8632004038279143`\), SequenceForm[ 20, " ", 764.56679906515149, " ", 352.56, " ", .080029667621488165, " ", .8632004038279143], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(21\[InvisibleSpace]" \ "\[InvisibleSpace]767.5245194067479`\[InvisibleSpace]" \ "\[InvisibleSpace]367.25`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08334307669112681`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8591066097539776`\), SequenceForm[ 21, " ", 767.52451940674791, " ", 367.25, " ", .083343076691126811, " ", .85910660975397757], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(22\[InvisibleSpace]" \ "\[InvisibleSpace]770.3624223456045`\[InvisibleSpace]" \ "\[InvisibleSpace]381.94`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08666352950337929`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8550546265689964`\), SequenceForm[ 22, " ", 770.3624223456045, " ", 381.94, " ", .086663529503379286, " ", .85505462656899645], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(23\[InvisibleSpace]" \ "\[InvisibleSpace]773.0879303061083`\[InvisibleSpace]" \ "\[InvisibleSpace]396.63`\[InvisibleSpace]" \ "\[InvisibleSpace]0.08999143399429205`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8510417061782679`\), SequenceForm[ 23, " ", 773.08793030610832, " ", 396.63, " ", .089991433994292047, " ", .85104170617826791], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(24\[InvisibleSpace]" \ "\[InvisibleSpace]775.7076949116494`\[InvisibleSpace]" \ "\[InvisibleSpace]411.32`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09332718276634536`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8470653045445482`\), SequenceForm[ 24, " ", 775.70769491164936, " ", 411.31999999999999, " ", .093327182766345357, " ", .8470653045445482], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(25\[InvisibleSpace]" \ "\[InvisibleSpace]778.2276992797151`\[InvisibleSpace]" \ "\[InvisibleSpace]426.01`\[InvisibleSpace]" \ "\[InvisibleSpace]0.09667115556698569`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8431230571684846`\), SequenceForm[ 25, " ", 778.22769927971513, " ", 426.00999999999999, " ", .096671155566985689, " ", .84312305716848457], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(26\[InvisibleSpace]" \ "\[InvisibleSpace]780.6533435728909`\[InvisibleSpace]" \ "\[InvisibleSpace]440.7`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10002372146166894`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8392127580487161`\), SequenceForm[ 26, " ", 780.65334357289089, " ", 440.69999999999999, " ", .10002372146166894, " ", .83921275804871609], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(27\[InvisibleSpace]" \ "\[InvisibleSpace]782.9895170013252`\[InvisibleSpace]" \ "\[InvisibleSpace]455.39`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10338524075651181`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8353323415158487`\), SequenceForm[ 27, " ", 782.98951700132523, " ", 455.38999999999999, " ", .10338524075651181, " ", .83533234151584868], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(28\[InvisibleSpace]" \ "\[InvisibleSpace]785.2406587788344`\[InvisibleSpace]" \ "\[InvisibleSpace]470.08`\[InvisibleSpace]" \ "\[InvisibleSpace]0.10675606671512446`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8314798664547074`\), SequenceForm[ 28, " ", 785.24065877883436, " ", 470.07999999999998, " ", .10675606671512446, " ", .83147986645470739], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(29\[InvisibleSpace]" \ "\[InvisibleSpace]787.4108100086557`\[InvisibleSpace]" \ "\[InvisibleSpace]484.77`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11013654710602865`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8276535025225079`\), SequenceForm[ 29, " ", 787.41081000865574, " ", 484.76999999999998, " ", .11013654710602865, " ", .82765350252250791], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(30\[InvisibleSpace]" \ "\[InvisibleSpace]789.5036580718097`\[InvisibleSpace]" \ "\[InvisibleSpace]499.46`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11352702561068002`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8238515180435674`\), SequenceForm[ 30, " ", 789.5036580718097, " ", 499.45999999999998, " ", .11352702561068002, " ", .82385151804356738], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(31\[InvisibleSpace]" \ "\[InvisibleSpace]791.5225747794121`\[InvisibleSpace]" \ "\[InvisibleSpace]514.15`\[InvisibleSpace]" \ "\[InvisibleSpace]0.11692784311708904`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8200722693186561`\), SequenceForm[ 31, " ", 791.52257477941214, " ", 514.14999999999998, " ", .11692784311708904, " ", .82007226931865607], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(32\[InvisibleSpace]" \ "\[InvisibleSpace]793.470649307482`\[InvisibleSpace]" \ "\[InvisibleSpace]528.84`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12033933892006445`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8163141911328129`\), SequenceForm[ 32, " ", 793.47064930748195, " ", 528.84000000000003, " ", .12033933892006445, " ", .81631419113281289], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(33\[InvisibleSpace]" \ "\[InvisibleSpace]795.350716741987`\[InvisibleSpace]" \ "\[InvisibleSpace]543.53`\[InvisibleSpace]" \ "\[InvisibleSpace]0.12376185184595276`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8125757882819281`\), SequenceForm[ 33, " ", 795.35071674198696, " ", 543.52999999999997, " ", .12376185184595276, " ", .81257578828192811], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(34\[InvisibleSpace]" \ "\[InvisibleSpace]797.1653829109322`\[InvisibleSpace]" \ "\[InvisibleSpace]558.22`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1271957213172431`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8088556279678074`\), SequenceForm[ 34, " ", 797.16538291093218, " ", 558.22000000000003, " ", .1271957213172431, " ", .80885562796780741], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(35\[InvisibleSpace]" \ "\[InvisibleSpace]798.9170460599788`\[InvisibleSpace]" \ "\[InvisibleSpace]572.91`\[InvisibleSpace]" \ "\[InvisibleSpace]0.13064128837042033`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8051523329351702`\), SequenceForm[ 35, " ", 798.91704605997882, " ", 572.90999999999997, " ", .13064128837042033, " ", .80515233293517019], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(36\[InvisibleSpace]" \ "\[InvisibleSpace]800.6079158315844`\[InvisibleSpace]" \ "\[InvisibleSpace]587.6`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1340988966388725`\[InvisibleSpace]" \ "\[InvisibleSpace]0.8014645752433444`\), SequenceForm[ 36, " ", 800.60791583158436, " ", 587.60000000000002, " ", .13409889663887251, " ", .80146457524334436], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(37\[InvisibleSpace]" \ "\[InvisibleSpace]802.2400299297636`\[InvisibleSpace]" \ "\[InvisibleSpace]602.29`\[InvisibleSpace]" \ "\[InvisibleSpace]0.137568893311424`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7977910705811938`\), SequenceForm[ 37, " ", 802.24002992976364, " ", 602.28999999999996, " ", .137568893311424, " ", .79779107058119381], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(38\[InvisibleSpace]" \ "\[InvisibleSpace]803.815268789291`\[InvisibleSpace]" \ "\[InvisibleSpace]616.98`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14105163007610658`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7941305730466864`\), SequenceForm[ 38, " ", 803.81526878929105, " ", 616.98000000000002, " ", .14105163007610658, " ", .79413057304668644], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(39\[InvisibleSpace]" \ "\[InvisibleSpace]805.3353685165267`\[InvisibleSpace]" \ "\[InvisibleSpace]631.67`\[InvisibleSpace]" \ "\[InvisibleSpace]0.14454746405805655`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7904818703231373`\), SequenceForm[ 39, " ", 805.33536851652673, " ", 631.66999999999996, " ", .14454746405805655, " ", .79048187032313733], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(40\[InvisibleSpace]" \ "\[InvisibleSpace]806.8019323265746`\[InvisibleSpace]" \ "\[InvisibleSpace]646.36`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1480567587599015`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7868437791928303`\), SequenceForm[ 40, " ", 806.80193232657462, " ", 646.36000000000001, " ", .14805675875990151, " ", .78684377919283033], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(41\[InvisibleSpace]" \ "\[InvisibleSpace]808.2164406664664`\[InvisibleSpace]" \ "\[InvisibleSpace]661.05`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1515798850126498`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7832151413358976`\), SequenceForm[ 41, " ", 808.21644066646638, " ", 661.04999999999995, " ", .1515798850126498, " ", .78321514133589765], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(42\[InvisibleSpace]" \ "\[InvisibleSpace]809.5802601849393`\[InvisibleSpace]" \ "\[InvisibleSpace]675.74`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15511722194489924`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7795948193681769`\), SequenceForm[ 42, " ", 809.58026018493933, " ", 675.74000000000001, " ", .15511722194489924, " ", .77959481936817687], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(43\[InvisibleSpace]" \ "\[InvisibleSpace]810.8946516851045`\[InvisibleSpace]" \ "\[InvisibleSpace]690.43`\[InvisibleSpace]" \ "\[InvisibleSpace]0.15866915797812892`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7759816930765684`\), SequenceForm[ 43, " ", 810.89465168510446, " ", 690.42999999999995, " ", .15866915797812892, " ", .77598169307656839], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(44\[InvisibleSpace]" \ "\[InvisibleSpace]812.1607771758975`\[InvisibleSpace]" \ "\[InvisibleSpace]705.12`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1622360918559204`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7723746558142534`\), SequenceForm[ 44, " ", 812.16077717589746, " ", 705.12, " ", .16223609185592039, " ", .77237465581425335], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(45\[InvisibleSpace]" \ "\[InvisibleSpace]813.3797061210047`\[InvisibleSpace]" \ "\[InvisibleSpace]719.81`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16581843371515906`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7687726110212267`\), SequenceForm[ 45, " ", 813.37970612100469, " ", 719.80999999999995, " ", .16581843371515906, " ", .76877261102122674], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(46\[InvisibleSpace]" \ "\[InvisibleSpace]814.5524209693275`\[InvisibleSpace]" \ "\[InvisibleSpace]734.5`\[InvisibleSpace]" \ "\[InvisibleSpace]0.16941660620761395`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7651744688379759`\), SequenceForm[ 46, " ", 814.5524209693275, " ", 734.5, " ", .16941660620761395, " ", .76517446883797591], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(47\[InvisibleSpace]" \ "\[InvisibleSpace]815.6798220385789`\[InvisibleSpace]" \ "\[InvisibleSpace]749.1899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17303104568076394`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7615791427819186`\), SequenceForm[ 47, " ", 815.67982203857889, " ", 749.18999999999994, " ", .17303104568076394, " ", .76157914278191863], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(48\[InvisibleSpace]" \ "\[InvisibleSpace]816.7627318128309`\[InvisibleSpace]" \ "\[InvisibleSpace]763.88`\[InvisibleSpace]" \ "\[InvisibleSpace]0.17666220342735114`\[InvisibleSpace]" \ "\[InvisibleSpace]0.757985546457427`\), SequenceForm[ 48, " ", 816.76273181283091, " ", 763.88, " ", .17666220342735114, " ", .757985546457427], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(49\[InvisibleSpace]" \ "\[InvisibleSpace]817.8018987055208`\[InvisibleSpace]" \ "\[InvisibleSpace]778.5699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18031054701391147`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7543925902709749`\), SequenceForm[ 49, " ", 817.80189870552078, " ", 778.56999999999994, " ", .18031054701391147, " ", .75439259027097494], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(50\[InvisibleSpace]" \ "\[InvisibleSpace]818.7980003312297`\[InvisibleSpace]" \ "\[InvisibleSpace]793.26`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18397656169946017`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7507991781231393`\), SequenceForm[ 50, " ", 818.79800033122967, " ", 793.25999999999999, " ", .18397656169946017, " ", .75079917812313934], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(51\[InvisibleSpace]" \ "\[InvisibleSpace]819.751646322349`\[InvisibleSpace]" \ "\[InvisibleSpace]807.9499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.18766075195662876`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7472042040489452`\), SequenceForm[ 51, " ", 819.75164632234896, " ", 807.94999999999993, " ", .18766075195662876, " ", .74720420404894516], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(52\[InvisibleSpace]" \ "\[InvisibleSpace]820.6633807202259`\[InvisibleSpace]" \ "\[InvisibleSpace]822.64`\[InvisibleSpace]" \ "\[InvisibleSpace]0.19136364310888254`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7436065487772403`\), SequenceForm[ 52, " ", 820.66338072022586, " ", 822.63999999999999, " ", .19136364310888254, " ", .74360654877724031], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(53\[InvisibleSpace]" \ "\[InvisibleSpace]821.5336839645225`\[InvisibleSpace]" \ "\[InvisibleSpace]837.3299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1950857830990035`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7400050761785502`\), SequenceForm[ 53, " ", 821.53368396452254, " ", 837.32999999999993, " ", .19508578309900351, " ", .74000507617855016], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(54\[InvisibleSpace]" \ "\[InvisibleSpace]822.3629744990443`\[InvisibleSpace]" \ "\[InvisibleSpace]852.02`\[InvisibleSpace]" \ "\[InvisibleSpace]0.1988277444058911`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7363986295690327`\), SequenceForm[ 54, " ", 822.3629744990443, " ", 852.01999999999998, " ", .1988277444058911, " ", .73639862956903268], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(55\[InvisibleSpace]" \ "\[InvisibleSpace]823.1516100071759`\[InvisibleSpace]" \ "\[InvisibleSpace]866.7099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.20259012612888724`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7327860278357597`\), SequenceForm[ 55, " ", 823.15161000717592, " ", 866.70999999999992, " ", .20259012612888724, " ", .73278602783575975], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(56\[InvisibleSpace]" \ "\[InvisibleSpace]823.8998882850973`\[InvisibleSpace]" \ "\[InvisibleSpace]881.4`\[InvisibleSpace]" \ "\[InvisibleSpace]0.20637355626139428`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7291660613454755`\), SequenceForm[ 56, " ", 823.89988828509729, " ", 881.39999999999998, " ", .20637355626139428, " ", .72916606134547546], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(57\[InvisibleSpace]" \ "\[InvisibleSpace]824.6080477561045`\[InvisibleSpace]" \ "\[InvisibleSpace]896.0899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21017869417856402`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7255374875952039`\), SequenceForm[ 57, " ", 824.6080477561045, " ", 896.08999999999992, " ", .21017869417856402, " ", .72553748759520387], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(58\[InvisibleSpace]" \ "\[InvisibleSpace]825.2762676244245`\[InvisibleSpace]" \ "\[InvisibleSpace]910.78`\[InvisibleSpace]" \ "\[InvisibleSpace]0.21400623336736901`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7218990265583761`\), SequenceForm[ 58, " ", 825.27626762442446, " ", 910.77999999999997, " ", .21400623336736901, " ", .72189902655837612], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(59\[InvisibleSpace]" \ "\[InvisibleSpace]825.9046676618434`\[InvisibleSpace]" \ "\[InvisibleSpace]925.4699999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2178569044315404`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7182493556744983`\), SequenceForm[ 59, " ", 825.9046676618434, " ", 925.46999999999991, " ", .2178569044315404, " ", .71824935567449832], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(60\[InvisibleSpace]" \ "\[InvisibleSpace]826.4933076150777`\[InvisibleSpace]" \ "\[InvisibleSpace]940.16`\[InvisibleSpace]" \ "\[InvisibleSpace]0.22173147840882879`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7145871044235019`\), SequenceForm[ 60, " ", 826.4933076150777, " ", 940.15999999999997, " ", .22173147840882879, " ", .71458710442350193], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(61\[InvisibleSpace]" \ "\[InvisibleSpace]827.0421862160107`\[InvisibleSpace]" \ "\[InvisibleSpace]954.85`\[InvisibleSpace]" \ "\[InvisibleSpace]0.22563077044388685`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7109108484176903`\), SequenceForm[ 61, " ", 827.04218621601069, " ", 954.85000000000002, " ", .22563077044388685, " ", .71091084841769026], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(62\[InvisibleSpace]" \ "\[InvisibleSpace]827.55123977044`\[InvisibleSpace]" \ "\[InvisibleSpace]969.54`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2295556438670825`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7072191029341562`\), SequenceForm[ 62, " ", 827.55123977044002, " ", 969.53999999999996, " ", .22955564386708249, " ", .70721910293415624], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(63\[InvisibleSpace]" \ "\[InvisibleSpace]828.0203402937541`\[InvisibleSpace]" \ "\[InvisibleSpace]984.23`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2335070147379198`\[InvisibleSpace]" \ "\[InvisibleSpace]0.7035103157986176`\), SequenceForm[ 63, " ", 828.02034029375409, " ", 984.23000000000002, " ", .23350701473791979, " ", .70351031579861756], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(64\[InvisibleSpace]" \ "\[InvisibleSpace]828.4492931536079`\[InvisibleSpace]" \ "\[InvisibleSpace]998.92`\[InvisibleSpace]" \ "\[InvisibleSpace]0.23748585692176016`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6997828595170236`\), SequenceForm[ 64, " ", 828.44929315360787, " ", 998.91999999999996, " ", .23748585692176016, " ", .69978285951702357], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(65\[InvisibleSpace]" \ "\[InvisibleSpace]828.8378341700253`\[InvisibleSpace]" \ "\[InvisibleSpace]1013.61`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2414932077806568`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6960350225337671`\), SequenceForm[ 65, " ", 828.8378341700253, " ", 1013.61, " ", .2414932077806568, " ", .69603502253376714], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(66\[InvisibleSpace]" \ "\[InvisibleSpace]829.1856261119307`\[InvisibleSpace]" \ "\[InvisibleSpace]1028.3`\[InvisibleSpace]" \ "\[InvisibleSpace]0.24553017457373608`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6922649994739197`\), SequenceForm[ 66, " ", 829.18562611193067, " ", 1028.3, " ", .24553017457373608, " ", .69226499947391973], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(67\[InvisibleSpace]" \ "\[InvisibleSpace]829.4922545155711`\[InvisibleSpace]" \ "\[InvisibleSpace]1042.99`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2495979416803968`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6884708802008633`\), SequenceForm[ 67, " ", 829.49225451557106, " ", 1042.99, " ", .24959794168039681, " ", .68847088020086333], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(68\[InvisibleSpace]" \ "\[InvisibleSpace]829.7572227339651`\[InvisibleSpace]" \ "\[InvisibleSpace]1057.68`\[InvisibleSpace]" \ "\[InvisibleSpace]0.25369777878138683`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6846506374887725`\), SequenceForm[ 68, " ", 829.75722273396514, " ", 1057.6800000000001, " ", .25369777878138683, " ", .68465063748877253], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(69\[InvisibleSpace]" \ "\[InvisibleSpace]829.9799461066602`\[InvisibleSpace]" \ "\[InvisibleSpace]1072.37`\[InvisibleSpace]" \ "\[InvisibleSpace]0.25783105015959545`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6808021130699892`\), SequenceForm[ 69, " ", 829.97994610666024, " ", 1072.3699999999999, " ", .25783105015959545, " ", .68080211306998917], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(70\[InvisibleSpace]" \ "\[InvisibleSpace]830.1597451148053`\[InvisibleSpace]" \ "\[InvisibleSpace]1087.06`\[InvisibleSpace]" \ "\[InvisibleSpace]0.26199922531555736`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6769230017686774`\), SequenceForm[ 70, " ", 830.15974511480533, " ", 1087.0599999999999, " ", .26199922531555736, " ", .67692300176867737], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(71\[InvisibleSpace]" \ "\[InvisibleSpace]830.2958373565114`\[InvisibleSpace]" \ "\[InvisibleSpace]1101.75`\[InvisibleSpace]" \ "\[InvisibleSpace]0.26620389113390186`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6730108333714251`\), SequenceForm[ 71, " ", 830.29583735651136, " ", 1101.75, " ", .26620389113390186, " ", .67301083337142509], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(72\[InvisibleSpace]" \ "\[InvisibleSpace]830.3873281400457`\[InvisibleSpace]" \ "\[InvisibleSpace]1116.44`\[InvisibleSpace]" \ "\[InvisibleSpace]0.27044676588860966`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6690629518093766`\), SequenceForm[ 72, " ", 830.38732814004572, " ", 1116.4400000000001, " ", .27044676588860966, " ", .66906295180937658], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(73\[InvisibleSpace]" \ "\[InvisibleSpace]830.4331994454557`\[InvisibleSpace]" \ "\[InvisibleSpace]1131.1299999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.27472971544013686`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6650764911305218`\), SequenceForm[ 73, " ", 830.43319944545567, " ", 1131.1299999999999, " ", .27472971544013686, " ", .66507649113052181], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(74\[InvisibleSpace]" \ "\[InvisibleSpace]830.4322969456415`\[InvisibleSpace]" \ "\[InvisibleSpace]1145.82`\[InvisibleSpace]" \ "\[InvisibleSpace]0.27905477206021273`\[InvisibleSpace]" \ "\[InvisibleSpace]0.661048347618641`\), SequenceForm[ 74, " ", 830.4322969456415, " ", 1145.8199999999999, " ", .27905477206021273, " ", .66104834761864095], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(75\[InvisibleSpace]" \ "\[InvisibleSpace]830.3833147018945`\[InvisibleSpace]" \ "\[InvisibleSpace]1160.51`\[InvisibleSpace]" \ "\[InvisibleSpace]0.2834241564261933`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6569751472590615`\), SequenceForm[ 75, " ", 830.38331470189451, " ", 1160.51, " ", .28342415642619329, " ", .65697514725906148], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(76\[InvisibleSpace]" \ "\[InvisibleSpace]830.2847770508743`\[InvisibleSpace]" \ "\[InvisibleSpace]1175.2`\[InvisibleSpace]" \ "\[InvisibleSpace]0.28784030346382045`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6528532075492959`\), SequenceForm[ 76, " ", 830.28477705087425, " ", 1175.2, " ", .28784030346382045, " ", .65285320754929588], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(77\[InvisibleSpace]" \ "\[InvisibleSpace]830.1350170724035`\[InvisibleSpace]" \ "\[InvisibleSpace]1189.8899999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.29230589289576575`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6486784923890776`\), SequenceForm[ 77, " ", 830.13501707240346, " ", 1189.8899999999999, " ", .29230589289576575, " ", .6486784923890776], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(78\[InvisibleSpace]" \ "\[InvisibleSpace]829.932150859828`\[InvisibleSpace]" \ "\[InvisibleSpace]1204.58`\[InvisibleSpace]" \ "\[InvisibleSpace]0.29682388558841394`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6444465584375171`\), SequenceForm[ 78, " ", 829.93215085982797, " ", 1204.5799999999999, " ", .29682388558841394, " ", .64444655843751708], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(79\[InvisibleSpace]" \ "\[InvisibleSpace]829.6740465918645`\[InvisibleSpace]" \ "\[InvisibleSpace]1219.27`\[InvisibleSpace]" \ "\[InvisibleSpace]0.30139756710191346`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6401524908634274`\), SequenceForm[ 79, " ", 829.67404659186445, " ", 1219.27, " ", .30139756710191346, " ", .6401524908634274], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(80\[InvisibleSpace]" \ "\[InvisibleSpace]829.3582871055031`\[InvisibleSpace]" \ "\[InvisibleSpace]1233.96`\[InvisibleSpace]" \ "\[InvisibleSpace]0.30603060026916423`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6357908257938658`\), SequenceForm[ 80, " ", 829.35828710550311, " ", 1233.96, " ", .30603060026916423, " ", .63579082579386581], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(81\[InvisibleSpace]" \ "\[InvisibleSpace]828.982124262147`\[InvisibleSpace]" \ "\[InvisibleSpace]1248.6499999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3107270892023056`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6313554559197965`\), SequenceForm[ 81, " ", 828.98212426214695, " ", 1248.6499999999999, " ", .31072708920230557, " ", .63135545591979647], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(82\[InvisibleSpace]" \ "\[InvisibleSpace]828.5424228373607`\[InvisibleSpace]" \ "\[InvisibleSpace]1263.34`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3154916579160742`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6268395145496319`\), SequenceForm[ 82, " ", 828.54242283736073, " ", 1263.3399999999999, " ", .3154916579160742, " ", .62683951454963194], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(83\[InvisibleSpace]" \ "\[InvisibleSpace]828.0355908783745`\[InvisibleSpace]" \ "\[InvisibleSpace]1278.03`\[InvisibleSpace]" \ "\[InvisibleSpace]0.32032954786519485`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6222352317649`\), SequenceForm[ 83, " ", 828.03559087837448, " ", 1278.03, " ", .32032954786519485, " ", .62223523176490003], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(84\[InvisibleSpace]" \ "\[InvisibleSpace]827.4574923553362`\[InvisibleSpace]" \ "\[InvisibleSpace]1292.72`\[InvisibleSpace]" \ "\[InvisibleSpace]0.32524674026965456`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6175337540024856`\), SequenceForm[ 84, " ", 827.45749235533617, " ", 1292.72, " ", .32524674026965456, " ", .61753375400248556], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(85\[InvisibleSpace]" \ "\[InvisibleSpace]826.803336313893`\[InvisibleSpace]" \ "\[InvisibleSpace]1307.4099999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.33025011138605975`\[InvisibleSpace]" \ "\[InvisibleSpace]0.612724915012417`\), SequenceForm[ 85, " ", 826.80333631389306, " ", 1307.4099999999999, " ", .33025011138605975, " ", .61272491501241699], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(86\[InvisibleSpace]" \ "\[InvisibleSpace]826.0675343477094`\[InvisibleSpace]" \ "\[InvisibleSpace]1322.1`\[InvisibleSpace]" \ "\[InvisibleSpace]0.33534763225771763`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6077969411525933`\), SequenceForm[ 86, " ", 826.0675343477094, " ", 1322.0999999999999, " ", .33534763225771763, " ", .60779694115259331], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(87\[InvisibleSpace]" \ "\[InvisibleSpace]825.2435146059119`\[InvisibleSpace]" \ "\[InvisibleSpace]1336.79`\[InvisibleSpace]" \ "\[InvisibleSpace]0.34054862957108367`\[InvisibleSpace]" \ "\[InvisibleSpace]0.6027360664511238`\), SequenceForm[ 87, " ", 825.24351460591186, " ", 1336.79, " ", .34054862957108367, " ", .60273606645112376], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(88\[InvisibleSpace]" \ "\[InvisibleSpace]824.3234749800898`\[InvisibleSpace]" \ "\[InvisibleSpace]1351.48`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3458641321281417`\[InvisibleSpace]" \ "\[InvisibleSpace]0.597526021214837`\), SequenceForm[ 88, " ", 824.32347498008983, " ", 1351.48, " ", .34586413212814171, " ", .597526021214837], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(89\[InvisibleSpace]" \ "\[InvisibleSpace]823.2980492651319`\[InvisibleSpace]" \ "\[InvisibleSpace]1366.1699999999998`\[InvisibleSpace]" \ "\[InvisibleSpace]0.35130733997806624`\[InvisibleSpace]" \ "\[InvisibleSpace]0.592147339431346`\), SequenceForm[ 89, " ", 823.29804926513191, " ", 1366.1699999999998, " ", .35130733997806624, " ", .59214733943134601], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(90\[InvisibleSpace]" \ "\[InvisibleSpace]822.1558455796031`\[InvisibleSpace]" \ "\[InvisibleSpace]1380.86`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3568942738167474`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5865763998041451`\), SequenceForm[ 90, " ", 822.15584557960312, " ", 1380.8599999999999, " ", .35689427381674738, " ", .58657639980414511], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(91\[InvisibleSpace]" \ "\[InvisibleSpace]820.8827916753478`\[InvisibleSpace]" \ "\[InvisibleSpace]1395.55`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3626446972405304`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5807840635342246`\), SequenceForm[ 91, " ", 820.88279167534779, " ", 1395.55, " ", .36264469724053039, " ", .58078406353422463], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(92\[InvisibleSpace]" \ "\[InvisibleSpace]819.4611780784142`\[InvisibleSpace]" \ "\[InvisibleSpace]1410.24`\[InvisibleSpace]" \ "\[InvisibleSpace]0.36858346647260326`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5747336802200101`\), SequenceForm[ 92, " ", 819.46117807841415, " ", 1410.24, " ", .36858346647260326, " ", .57473368022001015], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(93\[InvisibleSpace]" \ "\[InvisibleSpace]817.8682086872283`\[InvisibleSpace]" \ "\[InvisibleSpace]1424.93`\[InvisibleSpace]" \ "\[InvisibleSpace]0.37474257774272735`\[InvisibleSpace]" \ "\[InvisibleSpace]0.568378062319768`\), SequenceForm[ 93, " ", 817.86820868722828, " ", 1424.9300000000001, " ", .37474257774272735, " ", .56837806231976795], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(94\[InvisibleSpace]" \ "\[InvisibleSpace]816.0737079135945`\[InvisibleSpace]" \ "\[InvisibleSpace]1439.62`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3811644108573764`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5616546908286745`\), SequenceForm[ 94, " ", 816.07370791359449, " ", 1439.6199999999999, " ", .3811644108573764, " ", .56165469082867447], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(95\[InvisibleSpace]" \ "\[InvisibleSpace]814.036292841866`\[InvisibleSpace]" \ "\[InvisibleSpace]1454.31`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3879071524306576`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5544776974301452`\), SequenceForm[ 95, " ", 814.03629284186604, " ", 1454.3099999999999, " ", .3879071524306576, " ", .55447769743014519], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(96\[InvisibleSpace]" \ "\[InvisibleSpace]811.6965279445812`\[InvisibleSpace]" \ "\[InvisibleSpace]1469.`\[InvisibleSpace]" \ "\[InvisibleSpace]0.3950545093665279`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5467235008217252`\), SequenceForm[ 96, " ", 811.69652794458125, " ", 1469.0, " ", .39505450936652792, " ", .54672350082172516], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(97\[InvisibleSpace]" \ "\[InvisibleSpace]808.9635146702504`\[InvisibleSpace]" \ "\[InvisibleSpace]1483.69`\[InvisibleSpace]" \ "\[InvisibleSpace]0.4027347690207992`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5382026162331182`\), SequenceForm[ 97, " ", 808.96351467025045, " ", 1483.6900000000001, " ", .40273476902079919, " ", .53820261623311816], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(98\[InvisibleSpace]" \ "\[InvisibleSpace]805.6850380983445`\[InvisibleSpace]" \ "\[InvisibleSpace]1498.3799999999999`\[InvisibleSpace]" \ "\[InvisibleSpace]0.41116330071020735`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5285967830987005`\), SequenceForm[ 98, " ", 805.68503809834453, " ", 1498.3799999999999, " ", .41116330071020735, " ", .52859678309870051], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(99\[InvisibleSpace]" \ "\[InvisibleSpace]801.5667868639619`\[InvisibleSpace]" \ "\[InvisibleSpace]1513.07`\[InvisibleSpace]" \ "\[InvisibleSpace]0.42075776288639083`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5172885108126626`\), SequenceForm[ 99, " ", 801.56678686396185, " ", 1513.0699999999999, " ", .42075776288639083, " ", .51728851081266258], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(100\[InvisibleSpace]" \ "\[InvisibleSpace]795.8616662878278`\[InvisibleSpace]" \ "\[InvisibleSpace]1527.76`\[InvisibleSpace]" \ "\[InvisibleSpace]0.43258205392055216`\[InvisibleSpace]" \ "\[InvisibleSpace]0.5027041307768189`\), SequenceForm[ 100, " ", 795.8616662878278, " ", 1527.76, " ", .43258205392055216, " ", .50270413077681886], Editable->False]], "Print"] }, Closed]], Cell[BoxData[ \(\(tbl4 = Append[Table[{\((\((Tro[i] - 459.67)\) - 32)\)/1.8 + 273.15, Pr[i]/14.69}, {i, 1, 100}], {\((\((770 - 459.67)\) - 32)\)/1.8 + 273.15, 1560/14.69}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt4 = ListPlot[tbl4, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[0, 0, 1], PlotRange \[Rule] {{200, 600}, {0, 120}}, DisplayFunction \[Rule] Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt3, plt4, Graphics[{RGBColor[0.75, 0.75, 0], PointSize[0.02], Point[{\((\((770 - 459.67)\) - 32)\)/1.8 + 273.15, 1560/14.69}]}], 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.5 0.0025 0 0.00515028 [ [.125 -0.0125 -9 -9 ] [.125 -0.0125 9 0 ] [.25 -0.0125 -9 -9 ] [.25 -0.0125 9 0 ] [.375 -0.0125 -9 -9 ] [.375 -0.0125 9 0 ] [.5 -0.0125 -9 -9 ] [.5 -0.0125 9 0 ] [.625 -0.0125 -9 -9 ] [.625 -0.0125 9 0 ] [.75 -0.0125 -9 -9 ] [.75 -0.0125 9 0 ] [.875 -0.0125 -9 -9 ] [.875 -0.0125 9 0 ] [1 -0.0125 -9 -9 ] [1 -0.0125 9 0 ] [-0.0125 .10301 -12 -4.5 ] [-0.0125 .10301 0 4.5 ] [-0.0125 .20601 -12 -4.5 ] [-0.0125 .20601 0 4.5 ] [-0.0125 .30902 -12 -4.5 ] [-0.0125 .30902 0 4.5 ] [-0.0125 .41202 -12 -4.5 ] [-0.0125 .41202 0 4.5 ] [-0.0125 .51503 -18 -4.5 ] [-0.0125 .51503 0 4.5 ] [-0.0125 .61803 -18 -4.5 ] [-0.0125 .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 .125 0 m .125 .00625 L s [(250)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(300)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(350)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(400)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(450)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(500)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(550)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(600)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .10301 m .00625 .10301 L s [(20)] -0.0125 .10301 1 0 Mshowa 0 .20601 m .00625 .20601 L s [(40)] -0.0125 .20601 1 0 Mshowa 0 .30902 m .00625 .30902 L s [(60)] -0.0125 .30902 1 0 Mshowa 0 .41202 m .00625 .41202 L s [(80)] -0.0125 .41202 1 0 Mshowa 0 .51503 m .00625 .51503 L s [(100)] -0.0125 .51503 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(120)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .02575 m .00375 .02575 L s 0 .0515 m .00375 .0515 L s 0 .07725 m .00375 .07725 L s 0 .12876 m .00375 .12876 L s 0 .15451 m .00375 .15451 L s 0 .18026 m .00375 .18026 L s 0 .23176 m .00375 .23176 L s 0 .25751 m .00375 .25751 L s 0 .28327 m .00375 .28327 L s 0 .33477 m .00375 .33477 L s 0 .36052 m .00375 .36052 L s 0 .38627 m .00375 .38627 L s 0 .43777 m .00375 .43777 L s 0 .46353 m .00375 .46353 L s 0 .48928 m .00375 .48928 L s 0 .54078 m .00375 .54078 L s 0 .56653 m .00375 .56653 L s 0 .59228 m .00375 .59228 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid .07223 .02575 m .08594 .0309 L .0981 .03605 L .10909 .0412 L .11917 .04635 L .12849 .0515 L .13719 .05665 L .14537 .0618 L .1531 .06695 L .16044 .0721 L .16745 .07725 L .17415 .0824 L .18058 .08755 L .18678 .09271 L .19276 .09786 L .19854 .10301 L .20414 .10816 L .20959 .11331 L .21488 .11846 L .22003 .12361 L .22506 .12876 L .22997 .13391 L .23477 .13906 L .23947 .14421 L .24408 .14936 L .24859 .15451 L .25303 .15966 L .25739 .16481 L .26168 .16996 L .2659 .17511 L .27005 .18026 L .27415 .18541 L .2782 .19056 L .28219 .19571 L .28613 .20086 L .29003 .20601 L .29388 .21116 L .2977 .21631 L .30147 .22146 L .30522 .22661 L .30893 .23176 L .31261 .23691 L .31626 .24206 L .31988 .24721 L .32349 .25236 L .32706 .25751 L .33062 .26266 L .33416 .26781 L .33769 .27297 L .3412 .27812 L Mistroke .34469 .28327 L .34818 .28842 L .35165 .29357 L .35512 .29872 L .35858 .30387 L .36203 .30902 L .36548 .31417 L .36893 .31932 L .37238 .32447 L .37583 .32962 L .37928 .33477 L .38274 .33992 L .3862 .34507 L .38967 .35022 L .39316 .35537 L .39665 .36052 L .40015 .36567 L .40368 .37082 L .40721 .37597 L .41077 .38112 L .41435 .38627 L .41795 .39142 L .42158 .39657 L .42524 .40172 L .42893 .40687 L .43266 .41202 L .43642 .41717 L .44022 .42232 L .44407 .42747 L .44797 .43262 L .45192 .43777 L .45593 .44292 L .46 .44807 L .46414 .45322 L .46837 .45838 L .47268 .46353 L .47708 .46868 L .4816 .47383 L .48623 .47898 L .49101 .48413 L .49594 .48928 L .50105 .49443 L .50638 .49958 L .51197 .50473 L .51787 .50988 L .52417 .51503 L .531 .52018 L .53857 .52533 L .54728 .53048 L .55817 .53563 L Mistroke .56944 .54693 L Mfstroke 0 0 1 r .41423 .02575 m .42979 .0309 L .44332 .03605 L .4553 .0412 L .46609 .04635 L .47589 .0515 L .48488 .05665 L .49319 .0618 L .50092 .06695 L .50813 .0721 L .5149 .07725 L .52127 .0824 L .52729 .08755 L .53299 .09271 L .5384 .09786 L .54355 .10301 L .54845 .10816 L .55314 .11331 L .55761 .11846 L .5619 .12361 L .56601 .12876 L .56995 .13391 L .57373 .13906 L .57737 .14421 L .58087 .14936 L .58424 .15451 L .58749 .15966 L .59061 .16481 L .59363 .16996 L .59653 .17511 L .59934 .18026 L .60204 .18541 L .60465 .19056 L .60717 .19571 L .60961 .20086 L .61196 .20601 L .61422 .21116 L .61641 .21631 L .61852 .22146 L .62056 .22661 L .62252 .23176 L .62442 .23691 L .62624 .24206 L .628 .24721 L .62969 .25236 L .63132 .25751 L .63289 .26266 L .63439 .26781 L .63584 .27297 L .63722 .27812 L Mistroke .63854 .28327 L .63981 .28842 L .64102 .29357 L .64217 .29872 L .64327 .30387 L .64431 .30902 L .64529 .31417 L .64622 .31932 L .64709 .32447 L .64791 .32962 L .64867 .33477 L .64938 .33992 L .65003 .34507 L .65062 .35022 L .65116 .35537 L .65165 .36052 L .65207 .36567 L .65244 .37082 L .65275 .37597 L .653 .38112 L .65319 .38627 L .65332 .39142 L .65338 .39657 L .65338 .40172 L .65331 .40687 L .65317 .41202 L .65297 .41717 L .65268 .42232 L .65233 .42747 L .65189 .43262 L .65136 .43777 L .65075 .44292 L .65005 .44807 L .64925 .45322 L .64834 .45838 L .64732 .46353 L .64617 .46868 L .64489 .47383 L .64347 .47898 L .64188 .48413 L .64011 .48928 L .63814 .49443 L .63593 .49958 L .63344 .50473 L .63061 .50988 L .62736 .51503 L .62356 .52018 L .61901 .52533 L .61329 .53048 L .60536 .53563 L Mistroke .56944 .54693 L Mfstroke .75 .75 0 r .02 w .56944 .54693 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg03oool00`3o0000oooo0?ooo`1D0?ooo`030000o`3oool0oooo07H0oooo 000E0?ooo`030000003oool0oooo03T0oooo00<0o`000?ooo`3oool0E03oool00`000?l0oooo0?oo o`1e0?ooo`005@3oool00`000000oooo0?ooo`0i0?ooo`030?l0003oool0oooo05@0oooo00<0003o 0?ooo`3oool0M@3oool001D0oooo00<000000?ooo`3oool0>P3oool00`3o0000oooo0?ooo`1D0?oo o`030000o`3oool0oooo07@0oooo000E0?ooo`030000003oool0oooo03/0oooo00<0o`000?ooo`3o ool0E03oool00`000?l0oooo0?ooo`1c0?ooo`005@3oool2000003d0oooo0P3o001E0?ooo`030000 o`3oool0oooo0780oooo000E0?ooo`030000003oool0oooo03d0oooo00<0o`000?ooo`3oool0D`3o ool00`000?l0oooo0?ooo`1b0?ooo`005@3oool00`000000oooo0?ooo`0n0?ooo`030?l0003oool0 oooo05<0oooo00<0003o0?ooo`3oool0L@3oool001D0oooo00<000000?ooo`3oool0?`3oool00`3o 0000oooo0?ooo`1B0?ooo`030000o`3oool0oooo0740oooo000E0?ooo`030000003oool0oooo0400 oooo00<0o`000?ooo`3oool0DP3oool00`000?l0oooo0?ooo`1`0?ooo`005@3oool00`000000oooo 0?ooo`110?ooo`030?l0003oool0oooo0580oooo00<0003o0?ooo`3oool0K`3oool001D0oooo00<0 00000?ooo`3oool0@@3oool00`3o0000oooo0?ooo`1B0?ooo`030000o`3oool0oooo06l0oooo000E 0?ooo`800000@`3oool00`3o0000oooo0?ooo`1B0?ooo`030000o`3oool0oooo06h0oooo000E0?oo o`030000003oool0oooo04<0oooo00<0o`000?ooo`3oool0D@3oool00`000?l0oooo0?ooo`1^0?oo o`005@3oool00`000000oooo0?ooo`140?ooo`030?l0003oool0oooo0540oooo00<0003o0?ooo`3o ool0K@3oool001D0oooo00<000000?ooo`3oool0A03oool00`3o0000oooo0?ooo`1A0?ooo`030000 o`3oool0oooo06d0oooo00090?ooo`<000000P3oool2000000D0oooo00<000000?ooo`3oool0A@3o ool00`3o0000oooo0?ooo`1A0?ooo`030000o`3oool0oooo06`0oooo000:0?ooo`040000003oool0 oooo00000080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`160?ooo`030?l0003o ool0oooo0500oooo00<0003o0?ooo`3oool0K03oool000L0oooo1@0000001@3oool000000?ooo`3o ool0000000@0oooo0P0000180?ooo`030?l0003oool0oooo0500oooo00<0003o0?ooo`3oool0J`3o ool000L0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`030000 003oool0oooo04L0oooo00<0o`000?ooo`3oool0D03oool00`000?l0oooo0?ooo`1[0?ooo`00203o ool00`000000oooo000000020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0 B03oool00`3o0000oooo0?ooo`1?0?ooo`030000o`3oool0oooo06/0oooo00090?ooo`8000000`3o ool2000000D0oooo00<000000?ooo`3oool0B@3oool00`3o0000oooo0?ooo`1?0?ooo`030000o`3o ool0oooo06X0oooo000E0?ooo`030000003oool0oooo04X0oooo00<0o`000?ooo`3oool0C`3oool0 0`000?l0oooo0?ooo`1Y0?ooo`005@3oool00`000000oooo0?ooo`1:0?ooo`030?l0003oool0oooo 04l0oooo00<0003o0?ooo`3oool0J@3oool001D0oooo00<000000?ooo`3oool0B`3oool00`3o0000 oooo0?ooo`1>0?ooo`030000o`3oool0oooo06T0oooo000E0?ooo`800000C@3oool00`3o0000oooo 0?ooo`1>0?ooo`030000o`3oool0oooo06P0oooo000E0?ooo`030000003oool0oooo04d0oooo00<0 o`000?ooo`3oool0C@3oool00`000?l0oooo0?ooo`1X0?ooo`005@3oool00`000000oooo0?ooo`1= 0?ooo`030?l0003oool0oooo04d0oooo00<0003o0?ooo`3oool0J03oool001D0oooo00<000000?oo o`3oool0CP3oool00`3o0000oooo0?ooo`1=0?ooo`030000o`3oool0oooo06L0oooo000E0?ooo`03 0000003oool0oooo04l0oooo00<0o`000?ooo`3oool0C03oool00`000?l0oooo0?ooo`1W0?ooo`00 5@3oool00`000000oooo0?ooo`1@0?ooo`030?l0003oool0oooo04/0oooo00<0003o0?ooo`3oool0 I`3oool001D0oooo00<000000?ooo`3oool0D03oool00`3o0000oooo0?ooo`1;0?ooo`030000o`3o ool0oooo06L0oooo000E0?ooo`800000DP3oool00`3o0000oooo0?ooo`1;0?ooo`030000o`3oool0 oooo06H0oooo000E0?ooo`030000003oool0oooo0580oooo00<0o`000?ooo`3oool0BP3oool00`00 0?l0oooo0?ooo`1V0?ooo`005@3oool00`000000oooo0?ooo`1C0?ooo`030?l0003oool0oooo04X0 oooo00<0003o0?ooo`3oool0I@3oool001D0oooo00<000000?ooo`3oool0D`3oool00`3o0000oooo 0?ooo`1:0?ooo`030000o`3oool0oooo06D0oooo000E0?ooo`030000003oool0oooo05<0oooo00<0 o`000?ooo`3oool0BP3oool00`000?l0oooo0?ooo`1U0?ooo`005@3oool00`000000oooo0?ooo`1D 0?ooo`030?l0003oool0oooo04T0oooo00<0003o0?ooo`3oool0I@3oool001D0oooo0P00001F0?oo o`030?l0003oool0oooo04T0oooo00<0003o0?ooo`3oool0I03oool001D0oooo00<000000?ooo`3o ool0E@3oool00`3o0000oooo0?ooo`190?ooo`030000o`3oool0oooo06@0oooo000E0?ooo`030000 003oool0oooo05H0oooo00<0o`000?ooo`3oool0B03oool00`000?l0oooo0?ooo`1T0?ooo`005@3o ool00`000000oooo0?ooo`1G0?ooo`030?l0003oool0oooo04L0oooo00<0003o0?ooo`3oool0I03o ool001D0oooo00<000000?ooo`3oool0F03oool00`3o0000oooo0?ooo`170?ooo`030000o`3oool0 oooo06<0oooo00070?ooo`<00000103oool2000000D0oooo00<000000?ooo`3oool0F03oool00`3o 0000oooo0?ooo`170?ooo`030000o`3oool0oooo06<0oooo00070?ooo`040000003oool0oooo0000 0080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`1I0?ooo`030?l0003oool0 oooo04H0oooo00<0003o0?ooo`3oool0H`3oool000L0oooo00@000000?ooo`3oool000000P3oool0 10000000oooo0?ooo`0000040?ooo`800000F`3oool00`3o0000oooo0?ooo`150?ooo`030000o`3o ool0oooo06<0oooo00070?ooo`<000000`3oool010000000oooo0?ooo`0000040?ooo`030000003o ool0oooo05/0oooo00<0o`000?ooo`3oool0A03oool00`000?l0oooo0?ooo`1S0?ooo`00203oool0 0`000000oooo0?ooo`020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0F`3o ool00`3o0000oooo0?ooo`140?ooo`030000o`3oool0oooo06<0oooo00080?ooo`<000000`3oool2 000000D0oooo00<000000?ooo`3oool0F`3oool00`3o0000oooo0?ooo`150?ooo`030000o`3oool0 oooo0680oooo000E0?ooo`030000003oool0oooo05`0oooo00<0o`000?ooo`3oool0A03oool00`00 0?l0oooo0?ooo`1R0?ooo`005@3oool00`000000oooo0?ooo`1M0?ooo`030?l0003oool0oooo04<0 oooo00<0003o0?ooo`3oool0HP3oool001D0oooo0P00001O0?ooo`030?l0003oool0oooo0480oooo 00<0003o0?ooo`3oool0HP3oool001D0oooo00<000000?ooo`3oool0GP3oool00`3o0000oooo0?oo o`120?ooo`030000o`3oool0oooo0680oooo000E0?ooo`030000003oool0oooo05l0oooo00<0o`00 0?ooo`3oool0@@3oool00`000?l0oooo0?ooo`1R0?ooo`005@3oool00`000000oooo0?ooo`1P0?oo o`030?l0003oool0oooo0440oooo00<0003o0?ooo`3oool0H@3oool001D0oooo00<000000?ooo`3o ool0H@3oool00`3o0000oooo0?ooo`100?ooo`030000o`3oool0oooo0640oooo000E0?ooo`030000 003oool0oooo0640oooo00<0o`000?ooo`3oool0@03oool00`000?l0oooo0?ooo`1Q0?ooo`005@3o ool00`000000oooo0?ooo`1R0?ooo`030?l0003oool0oooo03l0oooo00<0003o0?ooo`3oool0H@3o ool001D0oooo0P00001T0?ooo`030?l0003oool0oooo03h0oooo00<0003o0?ooo`3oool0H@3oool0 01D0oooo00<000000?ooo`3oool0H`3oool00`3o0000oooo0?ooo`0n0?ooo`030000o`3oool0oooo 0640oooo000E0?ooo`030000003oool0oooo06<0oooo00<0o`000?ooo`3oool0?P3oool00`000?l0 oooo0?ooo`1Q0?ooo`005@3oool00`000000oooo0?ooo`1T0?ooo`030?l0003oool0oooo03d0oooo 00<0003o0?ooo`3oool0H@3oool001D0oooo00<000000?ooo`3oool0I@3oool00`3o0000oooo0?oo o`0l0?ooo`030000o`3oool0oooo0640oooo000E0?ooo`030000003oool0oooo06H0oooo00<0o`00 0?ooo`3oool0>`3oool00`000?l0oooo0?ooo`1Q0?ooo`005@3oool00`000000oooo0?ooo`1V0?oo o`030?l0003oool0oooo03/0oooo00<0003o0?ooo`3oool0H@3oool001D0oooo0P00001X0?ooo`03 0?l0003oool0oooo03X0oooo00<0003o0?ooo`3oool0H@3oool001D0oooo00<000000?ooo`3oool0 J03oool00`3o0000oooo0?ooo`0i0?ooo`030000o`3oool0oooo0640oooo000E0?ooo`030000003o ool0oooo06T0oooo00<0o`000?ooo`3oool0>03oool00`000?l0oooo0?ooo`1Q0?ooo`005@3oool0 0`000000oooo0?ooo`1Y0?ooo`030?l0003oool0oooo03P0oooo00<0003o0?ooo`3oool0H@3oool0 00P0oooo0P0000040?ooo`8000001@3oool00`000000oooo0?ooo`1Z0?ooo`030?l0003oool0oooo 03L0oooo00<0003o0?ooo`3oool0H@3oool000L0oooo00@000000?ooo`3oool000000P3oool01000 0000oooo0?ooo`0000040?ooo`030000003oool0oooo06/0oooo00<0o`000?ooo`3oool0=P3oool0 0`000?l0oooo0?ooo`1Q0?ooo`001`3oool010000000oooo0?ooo`0000020?ooo`040000003oool0 oooo000000@0oooo0P00001]0?ooo`030?l0003oool0oooo03D0oooo00<0003o0?ooo`3oool0H@3o ool000P0oooo0P0000030?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0K03o ool00`3o0000oooo0?ooo`0e0?ooo`030000o`3oool0oooo0640oooo00070?ooo`040000003oool0 oooo00000080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`1]0?ooo`030?l0 003oool0oooo03@0oooo00<0003o0?ooo`3oool0H@3oool000P0oooo0P0000040?ooo`8000001@3o ool00`000000oooo0?ooo`1^0?ooo`030?l0003oool0oooo03<0oooo00<0003o0?ooo`3oool0H@3o ool001D0oooo00<000000?ooo`3oool0K`3oool00`3o0000oooo0?ooo`0b0?ooo`030000o`3oool0 oooo0640oooo000E0?ooo`030000003oool0oooo06l0oooo00<0o`000?ooo`3oool00?ooo`<0_kl0M`3o ool001D0oooo00<000000?ooo`3oool0o`3oool90?ooo`005@3oool00`000000oooo0?ooo`3o0?oo o`T0oooo000E0?ooo`800000o`3oool:0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo 000E0?ooo`030000003oool0oooo0?l0oooo2@3oool001D0oooo00<000000?ooo`3oool0o`3oool9 0?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo000E0?ooo`030000003oool0oooo0?l0 oooo2@3oool001D0oooo00<000000?ooo`3oool0o`3oool90?ooo`005@3oool200000?l0oooo2P3o ool001D0oooo00<000000?ooo`3oool0o`3oool90?ooo`005@3oool00`000000oooo0?ooo`3o0?oo o`T0oooo000E0?ooo`030000003oool0oooo0?l0oooo2@3oool000030?ooo`000000000000<00000 00<0oooo0000000000000P0000030?ooo`8000001@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo 00030?ooo`050000003oool0oooo0?ooo`0000001@3oool010000000oooo0?ooo`0000040?ooo`03 0000003oool0oooo0?l0oooo2@3oool000<0oooo00<000000?ooo`3oool00P3oool00`000000oooo 0?ooo`020?ooo`040000003oool0oooo000000@0oooo0P00003o0?ooo`X0oooo00030?ooo`030000 003oool0oooo00<0oooo00D000000?ooo`3oool0oooo000000020?ooo`030000003oool0oooo0?l0 oooo3P3oool000<0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0oooo0000 0080oooo00<000000?ooo`3oool0o`3oool>0?ooo`000P3oool2000000@0oooo0P0000040?ooo`80 0000o`3ooolA0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00\ \>"], ImageRangeCache->{{{91.5625, 320.938}, {667.5, 526.188}} -> {-11.5487, \ 488.099, 1.55939, 0.756947}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Plotting both envelopes together. This mixture \ present a peculiar phenomenon called retrograde condensation.", FontSize->18]], "Subsubtitle", Background->RGBColor[1, 0.72549, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt3, plt4, plt1, plt2, Graphics[{RGBColor[0.75, 0.75, 0], PointSize[0.02], Point[{\((\((770 - 459.67)\) - 32)\)/1.8 + 273.15, 1560/14.69}], Point[{\((\((513)\) - 32)\)/1.8 + 273.15, 968/14.69}]}], DisplayFunction \[Rule] $DisplayFunction, Frame \[Rule] True, GridLines \[Rule] Automatic]\)], "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.5 0.0025 0 0.00515028 [ [.125 -0.0125 -9 -9 ] [.125 -0.0125 9 0 ] [.25 -0.0125 -9 -9 ] [.25 -0.0125 9 0 ] [.375 -0.0125 -9 -9 ] [.375 -0.0125 9 0 ] [.5 -0.0125 -9 -9 ] [.5 -0.0125 9 0 ] [.625 -0.0125 -9 -9 ] [.625 -0.0125 9 0 ] [.75 -0.0125 -9 -9 ] [.75 -0.0125 9 0 ] [.875 -0.0125 -9 -9 ] [.875 -0.0125 9 0 ] [1 -0.0125 -9 -9 ] [1 -0.0125 9 0 ] [ 0 0 -0.125 0 ] [-0.0125 .10301 -12 -4.5 ] [-0.0125 .10301 0 4.5 ] [-0.0125 .20601 -12 -4.5 ] [-0.0125 .20601 0 4.5 ] [-0.0125 .30902 -12 -4.5 ] [-0.0125 .30902 0 4.5 ] [-0.0125 .41202 -12 -4.5 ] [-0.0125 .41202 0 4.5 ] [-0.0125 .51503 -18 -4.5 ] [-0.0125 .51503 0 4.5 ] [-0.0125 .61803 -18 -4.5 ] [-0.0125 .61803 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .61803 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .125 0 m .125 .61803 L s .25 0 m .25 .61803 L s .375 0 m .375 .61803 L s .5 0 m .5 .61803 L s .625 0 m .625 .61803 L s .75 0 m .75 .61803 L s .875 0 m .875 .61803 L s 0 .10301 m 1 .10301 L s 0 .20601 m 1 .20601 L s 0 .30902 m 1 .30902 L s 0 .41202 m 1 .41202 L s 0 .51503 m 1 .51503 L s 0 g .125 0 m .125 .00625 L s [(250)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(300)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(350)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(400)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(450)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(500)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(550)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(600)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .10301 m .00625 .10301 L s [(20)] -0.0125 .10301 1 0 Mshowa 0 .20601 m .00625 .20601 L s [(40)] -0.0125 .20601 1 0 Mshowa 0 .30902 m .00625 .30902 L s [(60)] -0.0125 .30902 1 0 Mshowa 0 .41202 m .00625 .41202 L s [(80)] -0.0125 .41202 1 0 Mshowa 0 .51503 m .00625 .51503 L s [(100)] -0.0125 .51503 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(120)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .02575 m .00375 .02575 L s 0 .0515 m .00375 .0515 L s 0 .07725 m .00375 .07725 L s 0 .12876 m .00375 .12876 L s 0 .15451 m .00375 .15451 L s 0 .18026 m .00375 .18026 L s 0 .23176 m .00375 .23176 L s 0 .25751 m .00375 .25751 L s 0 .28327 m .00375 .28327 L s 0 .33477 m .00375 .33477 L s 0 .36052 m .00375 .36052 L s 0 .38627 m .00375 .38627 L s 0 .43777 m .00375 .43777 L s 0 .46353 m .00375 .46353 L s 0 .48928 m .00375 .48928 L s 0 .54078 m .00375 .54078 L s 0 .56653 m .00375 .56653 L s 0 .59228 m .00375 .59228 L s .25 Mabswid 0 0 m 0 .61803 L s 0 .61178 m 0 .61803 L s .125 .61178 m .125 .61803 L s .25 .61178 m .25 .61803 L s .375 .61178 m .375 .61803 L s .5 .61178 m .5 .61803 L s .625 .61178 m .625 .61803 L s .75 .61178 m .75 .61803 L s .875 .61178 m .875 .61803 L s .125 Mabswid .025 .61428 m .025 .61803 L s .05 .61428 m .05 .61803 L s .075 .61428 m .075 .61803 L s .1 .61428 m .1 .61803 L s .15 .61428 m .15 .61803 L s .175 .61428 m .175 .61803 L s .2 .61428 m .2 .61803 L s .225 .61428 m .225 .61803 L s .275 .61428 m .275 .61803 L s .3 .61428 m .3 .61803 L s .325 .61428 m .325 .61803 L s .35 .61428 m .35 .61803 L s .4 .61428 m .4 .61803 L s .425 .61428 m .425 .61803 L s .45 .61428 m .45 .61803 L s .475 .61428 m .475 .61803 L s .525 .61428 m .525 .61803 L s .55 .61428 m .55 .61803 L s .575 .61428 m .575 .61803 L s .6 .61428 m .6 .61803 L s .65 .61428 m .65 .61803 L s .675 .61428 m .675 .61803 L s .7 .61428 m .7 .61803 L s .725 .61428 m .725 .61803 L s .775 .61428 m .775 .61803 L s .8 .61428 m .8 .61803 L s .825 .61428 m .825 .61803 L s .85 .61428 m .85 .61803 L s .9 .61428 m .9 .61803 L s .925 .61428 m .925 .61803 L s .95 .61428 m .95 .61803 L s .975 .61428 m .975 .61803 L s .25 Mabswid 0 .61803 m 1 .61803 L s .99375 0 m 1 0 L s .99375 .10301 m 1 .10301 L s .99375 .20601 m 1 .20601 L s .99375 .30902 m 1 .30902 L s .99375 .41202 m 1 .41202 L s .99375 .51503 m 1 .51503 L s .125 Mabswid .99625 .02575 m 1 .02575 L s .99625 .0515 m 1 .0515 L s .99625 .07725 m 1 .07725 L s .99625 .12876 m 1 .12876 L s .99625 .15451 m 1 .15451 L s .99625 .18026 m 1 .18026 L s .99625 .23176 m 1 .23176 L s .99625 .25751 m 1 .25751 L s .99625 .28327 m 1 .28327 L s .99625 .33477 m 1 .33477 L s .99625 .36052 m 1 .36052 L s .99625 .38627 m 1 .38627 L s .99625 .43777 m 1 .43777 L s .99625 .46353 m 1 .46353 L s .99625 .48928 m 1 .48928 L s .99625 .54078 m 1 .54078 L s .99625 .56653 m 1 .56653 L s .99625 .59228 m 1 .59228 L s .25 Mabswid 1 0 m 1 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid .07223 .02575 m .08594 .0309 L .0981 .03605 L .10909 .0412 L .11917 .04635 L .12849 .0515 L .13719 .05665 L .14537 .0618 L .1531 .06695 L .16044 .0721 L .16745 .07725 L .17415 .0824 L .18058 .08755 L .18678 .09271 L .19276 .09786 L .19854 .10301 L .20414 .10816 L .20959 .11331 L .21488 .11846 L .22003 .12361 L .22506 .12876 L .22997 .13391 L .23477 .13906 L .23947 .14421 L .24408 .14936 L .24859 .15451 L .25303 .15966 L .25739 .16481 L .26168 .16996 L .2659 .17511 L .27005 .18026 L .27415 .18541 L .2782 .19056 L .28219 .19571 L .28613 .20086 L .29003 .20601 L .29388 .21116 L .2977 .21631 L .30147 .22146 L .30522 .22661 L .30893 .23176 L .31261 .23691 L .31626 .24206 L .31988 .24721 L .32349 .25236 L .32706 .25751 L .33062 .26266 L .33416 .26781 L .33769 .27297 L .3412 .27812 L Mistroke .34469 .28327 L .34818 .28842 L .35165 .29357 L .35512 .29872 L .35858 .30387 L .36203 .30902 L .36548 .31417 L .36893 .31932 L .37238 .32447 L .37583 .32962 L .37928 .33477 L .38274 .33992 L .3862 .34507 L .38967 .35022 L .39316 .35537 L .39665 .36052 L .40015 .36567 L .40368 .37082 L .40721 .37597 L .41077 .38112 L .41435 .38627 L .41795 .39142 L .42158 .39657 L .42524 .40172 L .42893 .40687 L .43266 .41202 L .43642 .41717 L .44022 .42232 L .44407 .42747 L .44797 .43262 L .45192 .43777 L .45593 .44292 L .46 .44807 L .46414 .45322 L .46837 .45838 L .47268 .46353 L .47708 .46868 L .4816 .47383 L .48623 .47898 L .49101 .48413 L .49594 .48928 L .50105 .49443 L .50638 .49958 L .51197 .50473 L .51787 .50988 L .52417 .51503 L .531 .52018 L .53857 .52533 L .54728 .53048 L .55817 .53563 L Mistroke .56944 .54693 L Mfstroke 0 0 1 r .41423 .02575 m .42979 .0309 L .44332 .03605 L .4553 .0412 L .46609 .04635 L .47589 .0515 L .48488 .05665 L .49319 .0618 L .50092 .06695 L .50813 .0721 L .5149 .07725 L .52127 .0824 L .52729 .08755 L .53299 .09271 L .5384 .09786 L .54355 .10301 L .54845 .10816 L .55314 .11331 L .55761 .11846 L .5619 .12361 L .56601 .12876 L .56995 .13391 L .57373 .13906 L .57737 .14421 L .58087 .14936 L .58424 .15451 L .58749 .15966 L .59061 .16481 L .59363 .16996 L .59653 .17511 L .59934 .18026 L .60204 .18541 L .60465 .19056 L .60717 .19571 L .60961 .20086 L .61196 .20601 L .61422 .21116 L .61641 .21631 L .61852 .22146 L .62056 .22661 L .62252 .23176 L .62442 .23691 L .62624 .24206 L .628 .24721 L .62969 .25236 L .63132 .25751 L .63289 .26266 L .63439 .26781 L .63584 .27297 L .63722 .27812 L Mistroke .63854 .28327 L .63981 .28842 L .64102 .29357 L .64217 .29872 L .64327 .30387 L .64431 .30902 L .64529 .31417 L .64622 .31932 L .64709 .32447 L .64791 .32962 L .64867 .33477 L .64938 .33992 L .65003 .34507 L .65062 .35022 L .65116 .35537 L .65165 .36052 L .65207 .36567 L .65244 .37082 L .65275 .37597 L .653 .38112 L .65319 .38627 L .65332 .39142 L .65338 .39657 L .65338 .40172 L .65331 .40687 L .65317 .41202 L .65297 .41717 L .65268 .42232 L .65233 .42747 L .65189 .43262 L .65136 .43777 L .65075 .44292 L .65005 .44807 L .64925 .45322 L .64834 .45838 L .64732 .46353 L .64617 .46868 L .64489 .47383 L .64347 .47898 L .64188 .48413 L .64011 .48928 L .63814 .49443 L .63593 .49958 L .63344 .50473 L .63061 .50988 L .62736 .51503 L .62356 .52018 L .61901 .52533 L .61329 .53048 L .60536 .53563 L Mistroke .56944 .54693 L Mfstroke 1 0 0 r .16755 .02575 m .1885 .0309 L .20754 .03605 L .22516 .0412 L .24166 .04635 L .25725 .0515 L .27211 .05665 L .28635 .0618 L .30007 .06695 L .31333 .0721 L .32621 .07725 L .33873 .0824 L .35096 .08755 L .36291 .09271 L .37461 .09786 L .3861 .10301 L .39738 .10816 L .40848 .11331 L .41941 .11846 L .43018 .12361 L .4408 .12876 L .45128 .13391 L .46164 .13906 L .47187 .14421 L .48198 .14936 L .49198 .15451 L .50188 .15966 L .51168 .16481 L .52138 .16996 L .53098 .17511 L .5405 .18026 L .54993 .18541 L .55928 .19056 L .56854 .19571 L .57773 .20086 L .58685 .20601 L .59589 .21116 L .60487 .21631 L .61378 .22146 L .62263 .22661 L .63142 .23176 L .64016 .23691 L .64885 .24206 L .65749 .24721 L .6661 .25236 L .67467 .25751 L .68321 .26266 L .69173 .26781 L .70023 .27297 L .70874 .27812 L Mistroke .71725 .28327 L .72579 .28842 L .73436 .29357 L .743 .29872 L .75172 .30387 L .76057 .30902 L .76959 .31417 L .77887 .31932 L .78853 .32447 L .79878 .32962 L .81012 .33477 L .82423 .33992 L .84218 .34507 L .8454 .35022 L .85093 .33938 L Mfstroke 0 0 1 r .51421 .02575 m .53455 .0309 L .55241 .03605 L .56839 .0412 L .58289 .04635 L .5962 .0515 L .60851 .05665 L .61998 .0618 L .63073 .06695 L .64084 .0721 L .65041 .07725 L .65948 .0824 L .66812 .08755 L .67636 .09271 L .68424 .09786 L .69179 .10301 L .69905 .10816 L .70602 .11331 L .71274 .11846 L .71922 .12361 L .72547 .12876 L .73152 .13391 L .73737 .13906 L .74303 .14421 L .74852 .14936 L .75385 .15451 L .75901 .15966 L .76402 .16481 L .76889 .16996 L .77362 .17511 L .77821 .18026 L .78268 .18541 L .78702 .19056 L .79124 .19571 L .79534 .20086 L .79932 .20601 L .8032 .21116 L .80696 .21631 L .81061 .22146 L .81415 .22661 L .81759 .23176 L .82091 .23691 L .82413 .24206 L .82724 .24721 L .83024 .25236 L .83312 .25751 L .83589 .26266 L .83854 .26781 L .84106 .27297 L .84345 .27812 L Mistroke .8457 .28327 L .8478 .28842 L .84973 .29357 L .85148 .29872 L .85302 .30387 L .85431 .30902 L .85531 .31417 L .85594 .31932 L .85608 .32447 L .85551 .32962 L .85396 .33477 L .85093 .33938 L Mfstroke .75 .75 0 r .02 w .56944 .54693 Mdot .85093 .33938 Mdot % 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`03 0000O`3oool0oooo01d0oooo00<0001o0000o`000?l07@3oool00`0007l0oooo0?ooo`030000oaX0 oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0 oooo000E0?ooo`8000007P3oool00`0007l0oooo0?ooo`070?ooo`80o`00503oool00`0007l0oooo 0?ooo`0?0?ooo`80o`00303oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0080003o 6`3oool00`0007l0oooo0?ooo`030?ooo`80003o603oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3o ool0oooo00P0oooo00<0o`000?ooo`3oool04P3oool00`0007l0oooo0?ooo`0A0?ooo`80o`002P3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0080oooo00<0003o0?ooo`3oool0603o ool00`0007l0oooo0?ooo`050?ooo`030000o`3oool0oooo01D0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0 oooo01d0oooo00<0001o0?ooo`3oool02@3oool00`3o0000oooo0?ooo`0A0?ooo`030000O`3oool0 oooo01<0oooo0`3o00070?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00`3oool0 0`000?l0oooo0?ooo`0G0?ooo`030000O`3oool0oooo00H0oooo00<0003o0?ooo`3oool0503oool0 0`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool0 01D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0:0?ooo`80o`004@3oool00`00 07l0oooo0?ooo`0F0?ooo`<0o`00103oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`070?ooo`80003o503oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0 oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0<0?ooo`80o`003`3oool00`0007l0 oooo0?ooo`0I0?ooo`80o`000P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00D0 oooo0P000?lF0?ooo`030000O`3oool0oooo00T0oooo0P000?lB0?ooo`030000O`3oool0oooo01d0 oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`001`3oool4000000<0oooo 0P0000050?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool03@3oool00`3o0000oooo 0?ooo`0=0?ooo`030000O`3oool0oooo01/0oooo0P3o00000`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo00H0oooo00<0003o0?ooo`3oool0503oool00`0007l0oooo0?ooo`0;0?ooo`030000 o`3oool0oooo00l0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo00070?ooo`030000003oool0oooo00<0oooo00@000000?ooo`3oool00000 103oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo00h0oooo00<0o`000?ooo`3oool0 303oool00`0007l0oooo0?ooo`0M0?ooo`80o`007P3oool00`0007l0oooo0?ooo`070?ooo`030000 o`3oool0oooo01<0oooo00<0001o0?ooo`3oool0303oool00`000?l0oooo0?ooo`0>0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`00203o ool00`000000oooo0?ooo`020?ooo`040000003oool0oooo000000@0oooo0P00000`0000O`80o`00 ;P0007l30?l002H0001o00<0003o0000O`0007l08P0007l20000odd0001o0`0000090?ooo`002@3o ool01@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool00P3oool00`000000oooo 0?ooo`0M0?ooo`030000O`3oool0oooo0140oooo00<0o`000?ooo`3oool02@3oool00`0007l0oooo 0?ooo`0M0?ooo`030000O`3oool0oooo0080oooo0P3o000I0?ooo`030000O`3oool0oooo00T0oooo 0P000?lB0?ooo`030000O`3oool0oooo00l0oooo0P000?l<0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`001`3oool010000000oooo0?oo o`0000020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0B0?ooo`030?l0003oool0oooo00P0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`040?ooo`80o`005`3oool00`0007l0oooo0?ooo`0:0?ooo`030000o`3oool0oooo0100 oooo00<0001o0?ooo`3oool04@3oool00`000?l0oooo0?ooo`090?ooo`030000O`3oool0oooo01d0 oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`00203oool2000000@0oooo 0P0000050?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool04`3oool00`3o0000oooo 0?ooo`070?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool01P3oool00`3o0000oooo 0?ooo`0D0?ooo`030000O`3oool0oooo00/0oooo00<0003o0?ooo`3oool03`3oool00`0007l0oooo 0?ooo`0B0?ooo`030000o`3oool0oooo00P0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0 001o0?ooo`3oool0503oool00`3o0000oooo0?ooo`060?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool01`3oool30?l001<0oooo00<0001o0?ooo`3oool0303oool00`000?l0oooo0?oo o`0>0?ooo`030000O`3oool0oooo01<0oooo0P000?l80?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01D0oooo00<0o`000?ooo`3oool01@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo00X0oooo0P3o000A0?ooo`030000O`3oool0oooo00d0oooo00<0003o 0?ooo`3oool03@3oool00`0007l0oooo0?ooo`0E0?ooo`030000o`3oool0oooo00D0oooo00<0001o 0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?oo o`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool05P3oool00`3o0000oooo0?ooo`040?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0303oool20?l000l0oooo00<0001o0?oo o`3oool03@3oool00`000?l0oooo0?ooo`0=0?ooo`030000O`3oool0oooo01H0oooo00<0003o0?oo o`3oool0103oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?oo o`3oool01`3oool001D0oooo0P00000N0?ooo`030000O`3oool0oooo01L0oooo00<0o`000?ooo`3o ool00`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00h0oooo0P3o000=0?ooo`03 0000O`3oool0oooo00h0oooo00<0003o0?ooo`3oool0303oool00`0007l0oooo0?ooo`0G0?ooo`03 0000o`3oool0oooo00<0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`80 00002@3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0H0?ooo`030?l0 003oool0oooo0080oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0@0?ooo`80o`00 2`3oool00`0007l0oooo0?ooo`0?0?ooo`030000o`3oool0oooo00/0oooo00<0001o0?ooo`3oool0 603oool20000o`<0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool06@3o ool01@3o0000oooo0?ooo`3oool0001o01l0oooo00<0001o0?ooo`3oool04P3oool20?l000T0oooo 00<0001o0?ooo`3oool0403oool00`000?l0oooo0?ooo`0:0?ooo`030000O`3oool0oooo01X0oooo 00@0003o0?ooo`3oool0001o7`3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0 oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool06@3oool01@3o0000oooo 0?ooo`3oool0001o01l0oooo00<0001o0?ooo`3oool0503oool20?l000L0oooo00<0001o0?ooo`3o ool0403oool00`000?l0oooo0?ooo`0:0?ooo`030000O`3oool0oooo01/0oooo00<0003o0?ooo`00 07l07`3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000 003oool0oooo01d0oooo00<0001o0?ooo`3oool06P3oool0103o0000oooo0?ooo`0007lO0?ooo`03 0000O`3oool0oooo01H0oooo00<0o`000?ooo`3oool0103oool00`0007l0oooo0?ooo`0A0?ooo`03 0000o`3oool0oooo00T0oooo00<0001o0?ooo`3oool0703oool00`000?l0001o0?ooo`0N0?ooo`03 0000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`0K0?ooo`030?l0003oool0001o01l0oooo00<0001o0?ooo`3oool0 5`3oool30?l000<0oooo00<0001o0?ooo`3oool04P3oool00`000?l0oooo0?ooo`080?ooo`030000 O`3oool0oooo01d0oooo00<0003o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo000E0?ooo`8000007P3oool00`0007l0oooo0?ooo`0L0?ooo`80o`007`3o ool00`0007l0oooo0?ooo`0J0?ooo`80o`0000<0oooo0000O`3oool0503oool00`000?l0oooo0?oo o`070?ooo`030000O`3oool0oooo01d0oooo00<0001o0000o`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`8000002@3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030?l0003oool0oooo01d0oooo00<0001o0?ooo`3oool0703oool20?l001D0oooo00<0003o 0?ooo`3oool01`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0003o01d0oooo00<0001o 0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?l0003oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3o0000oooo01@0oooo00<0003o0?ooo`3oool01P3oool00`0007l0oooo0?ooo`0M0?oo o`040000O`3oool0oooo0000oa`0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`07 0?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?oo o`3o00007@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0o`000080o`004P3oool00`00 0?l0oooo0?ooo`060?ooo`030000O`3oool0oooo01d0oooo00D0001o0?ooo`3oool0oooo0000o`0K 0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?oo o`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`040000O`3oool0oooo0?l001`0oooo00<0001o 0?ooo`3oool07@3oool00`0007l0oooo0?ooo`020?ooo`80o`004@3oool00`000?l0oooo0?ooo`05 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00P3oool00`000?l0oooo0?ooo`0H 0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?oo o`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`050000O`3oool0oooo0?ooo`3o00006`3oool0 0`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo0P3o000@0?ooo`030000o`3oool0 oooo00@0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`030?ooo`030000o`3oool0 oooo01L0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`00 0000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00D0001o0?ooo`3oool0oooo0?l0000K 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool01P3oool20?l000h0oooo00<0003o 0?ooo`3oool0103oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0003o 0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?oo o`8000007P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0080oooo00<0o`000?oo o`3oool0603oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00P0oooo00<0o`000?oo o`3oool0303oool00`000?l0oooo0?ooo`030?ooo`030000O`3oool0oooo01d0oooo00<0001o0?oo o`3oool01@3oool00`000?l0oooo0?ooo`0E0?ooo`030000O`3oool0oooo01d0oooo0P0000090?oo o`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3o ool00`3oool00`3o0000oooo0?ooo`0G0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3o ool02@3oool20?l000`0oooo00<0003o0?ooo`3oool00`3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo00H0oooo00<0003o0?ooo`3oool0503oool00`0007l0oooo0?ooo`0N0?ooo`03 0000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`040?ooo`030?l0003oool0oooo01H0oooo00<0001o0?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`0;0?ooo`80o`002`3oool00`000?l0oooo0?ooo`020?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool01`3oool00`000?l0oooo0?ooo`0C0?ooo`030000 O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0o`000?ooo`3oool05P3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00d0oooo0P3o00090?ooo`030000o`3o ool0oooo0080oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`070?ooo`030000o`3o ool0oooo01<0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`002@3oool3 00000080oooo0P0000050?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`050?ooo`030?l0003oool0oooo01D0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0?0?ooo`030?l0003oool0oooo00L0oooo00D0003o0?ooo`3oool0oooo0000 O`0O0?ooo`030000O`3oool0oooo00P0oooo00<0003o0?ooo`3oool04P3oool00`0007l0oooo0?oo o`0N0?ooo`030000003oool0oooo00L0oooo000:0?ooo`040000003oool0oooo00000080oooo00<0 00000?ooo`3oool00P3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool01P3oool00`3o0000oooo0?ooo`0D0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool0403oool20?l000L0oooo00D0003o0?ooo`3oool0oooo0000O`0O0?ooo`030000 O`3oool0oooo00T0oooo00<0003o0?ooo`3oool04@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo00070?ooo`D0000000D0oooo0000003oool0oooo000000040?ooo`800000 B00007l00`3o0000001o0000O`180000O`80o`001P0007l00`000?l0001o0000O`0]0000O`030000 o`0007l0001o02l0001o0`0000090?ooo`001`3oool010000000oooo0?ooo`0000020?ooo`040000 003oool0oooo000000@0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo00L0oooo00<0o`000?ooo`3oool04`3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo01@0oooo0P3o00040?ooo`040000o`3oool0oooo0000Oal0oooo00<0001o0?oo o`3oool02P3oool00`000?l0oooo0?ooo`0@0?ooo`030000O`3oool0oooo01h0oooo00<000000?oo o`3oool01`3oool000P0oooo00<000000?ooo`0000000P3oool010000000oooo0?ooo`0000040?oo o`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`080?oo o`030?l0003oool0oooo0180oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0F0?oo o`050?l0003oool0oooo0?ooo`000?l00P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo00/0oooo00<0003o0?ooo`3oool03`3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0 oooo00L0oooo00090?ooo`8000000`3oool2000000D0oooo00<000000?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00T0oooo00<0o`000?ooo`3oool04@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01L0oooo0P3o00020?ooo`030000o`3oool0001o 01l0oooo00<0001o0?ooo`3oool0303oool00`000?l0oooo0?ooo`0>0?ooo`030000O`3oool0oooo 01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00X0oooo00<0o`000?ooo`3oool0403oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01T0oooo0P3o00000`3oool0003o0000O`0O0?ooo`03 0000O`3oool0oooo00d0oooo00<0003o0?ooo`3oool03@3oool00`0007l0oooo0?ooo`0N0?ooo`03 0000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`0:0?ooo`030?l0003oool0oooo0100oooo00<0001o0?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`0K0?ooo`80o`0000<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0=0?ooo`030000o`3oool0oooo00d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo 0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool02`3oool00`3o0000oooo0?ooo`0?0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool0703oool00`000?l0o`000?ooo`0N0?ooo`030000O`3oool0oooo00h0oooo00<0 003o0?ooo`3oool0303oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E 0?ooo`8000007P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00`0oooo00<0o`00 0?ooo`3oool03P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0003o 0?l0003o00007@3oool00`0007l0oooo0?ooo`0?0?ooo`030000o`3oool0oooo00/0oooo00<0001o 0?ooo`3oool07@3oool2000000T0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`0=0?ooo`030?l0003oool0oooo00d0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000o`3oool0oooo0080o`006`3oool00`00 07l0oooo0?ooo`0@0?ooo`030000o`3oool0oooo00X0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0 oooo00<0001o0?ooo`3oool03@3oool00`3o0000oooo0?ooo`0=0?ooo`030000O`3oool0oooo01d0 oooo00<0001o0?ooo`3oool07@3oool00`000?l0oooo0?ooo`020?ooo`030?l0003oool0oooo01P0 oooo00<0001o0?ooo`3oool0403oool00`000?l0oooo0?ooo`0:0?ooo`030000O`3oool0oooo01h0 oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0M0?ooo`030000O`3oool0oooo00h0oooo00<0o`000?ooo`3oool0303oool00`0007l0oooo 0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0000o`3oool00`3oool20?l001P0oooo 00<0001o0?ooo`3oool0403oool00`000?l0oooo0?ooo`0:0?ooo`030000O`3oool0oooo01h0oooo 00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo00l0oooo00<0o`000?ooo`3oool02`3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0000o`3oool01@3oool20?l001H0oooo00<0 001o0?ooo`3oool04@3oool00`000?l0oooo0?ooo`090?ooo`030000O`3oool0oooo01h0oooo00<0 00000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo0100oooo00<0o`000?ooo`3oool02P3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0000o`3oool01`3oool20?l001@0oooo00<0001o 0?ooo`3oool04P3oool00`000?l0oooo0?ooo`080?ooo`030000O`3oool0oooo01h0oooo00<00000 0?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo0100oooo00<0o`000?ooo`3oool02P3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0000o`3oool02@3oool00`3o0000oooo0?ooo`0A0?oo o`030000O`3oool0oooo0180oooo00<0003o0?ooo`3oool0203oool00`0007l0oooo0?ooo`0N0?oo o`030000003oool0oooo00L0oooo000E0?ooo`8000007P3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo0140oooo00<0o`000?ooo`3oool02@3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo01d0oooo00<0001o0?ooo`000?l02P3oool00`3o0000oooo0?ooo`0@0?ooo`03 0000O`3oool0oooo01<0oooo00<0003o0?ooo`3oool01`3oool00`0007l0oooo0?ooo`0M0?ooo`80 00002@3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo0180oooo00<0o`000?ooo`3oool0203oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`000?l02`3oool20?l00100oooo00<0001o0?ooo`3oool0 4`3oool00`000?l0oooo0?ooo`070?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool0 1`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01<0oooo00<0o`000?ooo`3oool01`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01d0oooo00@0001o0?ooo`3oool0003o303oool20?l000h0oooo00<0001o0?ooo`3oool0 503oool00`000?l0oooo0?ooo`060?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool0 1`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01<0oooo00<0o`000?ooo`3oool01`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01d0oooo00@0001o0?ooo`3oool0003o3P3oool20?l000`0oooo00<0001o0?ooo`3oool0 503oool00`000?l0oooo0?ooo`060?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool0 1`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01<0oooo00<0o`000?ooo`3oool01`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01d0oooo00@0001o0?ooo`3oool0003o403oool00`3o0000oooo0?ooo`090?ooo`030000 O`3oool0oooo01D0oooo00<0003o0?ooo`3oool01@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0D0?ooo`030?l0003oool0oooo00H0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`040000O`3oool0oooo0000oa40oooo0P3o00090?ooo`030000 O`3oool0oooo01D0oooo00<0003o0?ooo`3oool01@3oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo000E0?ooo`8000007P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01D0oooo00<0o`000?ooo`3oool01@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3o ool0oooo01d0oooo00D0001o0?ooo`3oool0oooo0000o`0B0?ooo`80o`001`3oool00`0007l0oooo 0?ooo`0F0?ooo`030000o`3oool0oooo00@0oooo00<0001o0?ooo`3oool07@3oool2000000T0oooo 000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0E0?ooo`030?l0003oool0oooo00D0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`050000O`3oool0oooo0?ooo`000?l0503oool00`3o0000oooo0?ooo`040?ooo`030000 O`3oool0oooo01H0oooo00<0003o0?ooo`3oool0103oool00`0007l0oooo0?ooo`0N0?ooo`030000 003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0F0?ooo`030?l0003oool0oooo00@0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`050000O`3oool0oooo0?ooo`000?l05@3oool00`3o0000oooo 0?ooo`030?ooo`030000O`3oool0oooo01H0oooo00<0003o0?ooo`3oool0103oool00`0007l0oooo 0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0G0?ooo`030?l0003oool0oooo00<0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`050000O`3oool0oooo0?ooo`000?l0 5P3oool30?l00080oooo00<0001o0?ooo`3oool05`3oool00`000?l0oooo0?ooo`030?ooo`030000 O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01P0oooo00<0o`000?ooo`3oool00P3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00P3o ool00`000?l0oooo0?ooo`0F0?ooo`80o`0000<0001o0?ooo`3oool05`3oool00`000?l0oooo0?oo o`030?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool000L0oooo0`000004 0?ooo`8000001@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o 0?ooo`3oool0603oool00`3o0000oooo0?ooo`020?ooo`030000O`3oool0oooo01d0oooo00<0001o 0?ooo`3oool07@3oool00`0007l0oooo0?ooo`020?ooo`030000o`3oool0oooo01P0oooo00<0o`00 0?ooo`3oool05`3oool00`000?l0oooo0?ooo`030?ooo`030000O`3oool0oooo01h0oooo00<00000 0?ooo`3oool01`3oool000L0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`00 00040?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0I0?ooo`050?l0003oool0oooo0?ooo`0007l07`3oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo0080oooo00<0003o0?ooo`3oool0603oool00`0007l0o`000?ooo`0H0?ooo`030000 o`3oool0oooo0080oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`001`3o ool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo000000@0oooo0P00001K0000O`03 0?l0000007l0001o04D0001o00<0003o0000O`0007l06P0007l20?l001L0001o00<0003o0000O`00 07l08@0007l3000000T0oooo00070?ooo`<000000`3oool010000000oooo0?ooo`0000040?ooo`03 0000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0K0?ooo`03 0?l0003oool0001o01l0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`020?ooo`03 0000o`3oool0oooo01P0oooo00@0001o0?ooo`3oool0oooo0P3o000E0?ooo`030000o`3oool0oooo 0080oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`00203oool00`000000 oooo0?ooo`020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01/0oooo00<0o`000?ooo`0007l07`3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0080oooo00<0003o0?ooo`3oool0603oool00`00 07l0oooo0?ooo`030?ooo`80o`004`3oool00`000?l0oooo0?ooo`020?ooo`030000O`3oool0oooo 01h0oooo00<000000?ooo`3oool01`3oool000P0oooo0`0000030?ooo`8000001@3oool00`000000 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool06`3oool00`3o0000 oooo0000O`0O0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00`3oool00`000?l0 oooo0?ooo`0G0?ooo`030000O`3oool0oooo00D0oooo00<0o`000?ooo`3oool04@3oool01@000?l0 oooo0?ooo`3oool0001o0200oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01`0oooo00<0o`000000O`3o ool07P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0003o0?ooo`3o ool05`3oool00`0007l0oooo0?ooo`060?ooo`<0o`00403oool01@000?l0oooo0?ooo`3oool0001o 0200oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0o`000?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0003o0?ooo`3oool05`3oool00`0007l0 oooo0?ooo`090?ooo`<0o`00303oool00`000?l0oooo0?ooo`020?ooo`030000O`3oool0oooo01h0 oooo00<000000?ooo`3oool01`3oool001D0oooo0P00000N0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0o`000?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool00`3oool00`000?l0oooo0?ooo`0G0?ooo`030000O`3oool0oooo00`0oooo 0P3o00080?ooo`<0_kl0103oool00`0007l0oooo0?ooo`0M0?ooo`8000002@3oool001D0oooo00<0 00000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?l0003oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0 003o0?ooo`3oool05`3oool00`0007l0oooo0?ooo`0>0?ooo`80o`001@3oool50;no00<0oooo00<0 001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?l0000M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00`3oool00`000?l0oooo0?ooo`0G 0?ooo`030000O`3oool0oooo0100oooo0`3o00020?ooo`D0_kl00`3oool00`0007l0oooo0?ooo`0N 0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`040000O`3oool0oooo0?l001`0oooo00<0001o 0?ooo`3oool07@3oool00`0007l0oooo0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o 0?ooo`3oool04`3oool20?l000D0_kl00`3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0 oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`050000O`3oool0oooo0?ooo`3o00006`3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0F 0?ooo`<0_kl0103oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?oo o`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`050000O`3oool0oooo0?ooo`3o00006`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00P3oool00`3o 0000oooo0?ooo`0H0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`00 0?l0oooo0?ooo`0F0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`005@3oool2000001h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0o`000?ooo`3oool05`3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool00`000000oooo 0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`030?ooo`030?l0003oool0oooo01L0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0 o`000?ooo`3oool05`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0 003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<0 00000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`3o0000oooo0?ooo`0F 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`000?l0oooo0?ooo`0F 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`07 0?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`050?ooo`030?l0003oool0oooo01D0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o0?oo o`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`03 0000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo00H0oooo00<0o`000?ooo`3oool0503oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool0 7@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0 1P3oool00`3o0000oooo0?ooo`0D0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0 103oool00`000?l0oooo0?ooo`0F0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0 7P3oool00`000000oooo0?ooo`070?ooo`005@3oool2000001h0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00L0oooo00<0o`000?ooo`3oool04`3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool0 0`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`080?ooo`030?l0003oool0oooo0180oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 00T0oooo00<0o`000?ooo`3oool04@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool02@3oool00`3o0000 oooo0?ooo`0A0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`000?l0 oooo0?ooo`0F0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000 oooo0?ooo`070?ooo`00203oool2000000@0oooo0P0000050?ooo`030000003oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00X0oooo 00<0o`000?ooo`3oool0403oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo 00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo 00<000000?ooo`3oool01`3oool000L0oooo00@000000?ooo`3oool000000P3oool010000000oooo 0?ooo`0000040?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00/0oooo00<0o`000?ooo`3oool03`3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool000L0oooo 00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`800000K@0007l00`3o 0000001o0000O`0e0000O`030000o`0007l0001o05D0001o0`0000090?ooo`00203oool2000000<0 oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0<0?ooo`030?l0003oool0oooo 00h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`040?ooo`030000o`3oool0oooo 01H0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo 00L0oooo00070?ooo`040000003oool0oooo00000080oooo00@000000?ooo`3oool00000103oool0 0`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0=0?ooo`030?l0003oool0oooo00d0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo00080?ooo`800000103oool20000 00D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool03P3oool00`3o0000oooo0?ooo`0<0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool0103oool00`000?l0oooo0?ooo`0F0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`000000 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0?0?ooo`030?l0003oool0oooo00/0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`040?ooo`030000o`3oool0oooo01H0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00l0oooo 00<0o`000?ooo`3oool02`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo 00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo 00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0403oool00`3o0000oooo0?oo o`0:0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`000?l0oooo0?oo o`0F0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?oo o`070?ooo`005@3oool2000001h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo0140oooo00<0o`000?ooo`3oool02@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3oool05P3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool00`000000oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0B0?oo o`030?l0003oool0oooo00P0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`040?oo o`030000o`3oool0oooo01H0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?oo o`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0180oooo00<0o`000?ooo`3o ool0203oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00@0oooo00<0003o0?ooo`3o ool05P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3o ool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool04`3oool00`3o0000oooo0?ooo`070?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool0103oool00`000?l0oooo0?ooo`0F0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3o ool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0D0?ooo`030?l0003oool0oooo00H0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`030?ooo`030000o`3oool0oooo01L0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0 oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01D0oooo00<0o`000?ooo`3oool01@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo00<0oooo00<0003o0?ooo`3oool05`3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool05@3oool00`3o 0000oooo0?ooo`050?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool00`3oool00`00 0?l0oooo0?ooo`0G0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`005@3oool2000001h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01H0oooo00<0o`000?ooo`3oool0103oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00<0oooo00<0003o0?ooo`3oool05`3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool00`000000oooo 0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0G0?ooo`030?l0003oool0oooo00<0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`030?ooo`030000o`3oool0oooo01L0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01P0oooo00<0 o`000?ooo`3oool00P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo0080oooo00<0 003o0?ooo`3oool0603oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<0 00000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool06@3oool01@3o0000oooo0?ooo`3o ool0001o01l0oooo00<0001o0?ooo`3oool00P3oool00`000?l0oooo0?ooo`0H0?ooo`030000O`3o ool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool0 0`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0J0?ooo`040?l0003oool0oooo0000Oal0oooo00<0001o0?ooo`3oool00P3o ool00`000?l0oooo0?ooo`0H0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3o ool00`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0K0?ooo`030?l0003oool0 001o01l0oooo00<0001o0?ooo`3oool00P3oool00`000?l0oooo0?ooo`0H0?ooo`030000O`3oool0 oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool20000 01h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01`0oooo00<0o`000000O`3oool07P3oool01@0007l0oooo0?ooo`3oool0003o01/0oooo00<0001o 0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`8000002@3oool001D0oooo00<000000?oo o`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?oo o`3oool07@3oool00`3o0000oooo0?ooo`0M0?ooo`050000O`3oool0oooo0?ooo`000?l06`3oool0 0`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool0 01D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0o`000?ooo`0M0?ooo`040000O`3oool0oooo 0000oa`0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0 oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3o00007@3oool01000 07l0oooo0?ooo`000?lL0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool0 0`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`040000O`3oool0oooo 0?l001`0oooo00<0001o0?ooo`000?l07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01h0oooo00<000000?ooo`3oool01`3oool000030?ooo`000000000000<000000P3oool20000 00@0oooo0P0000050?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00@0001o0?ooo`3oool0oooo0P3o000J 0?ooo`030000O`3oool0003o01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N 0?ooo`030000003oool0oooo00L0oooo00030?ooo`050000003oool0oooo0?ooo`0000000P3oool0 10000000oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`020?ooo`030?l0003oool0oooo01P0oooo00<0001o0000o`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3o ool000<0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0oooo00000080oooo 00<000000?ooo`3oool00P3oool2000008@0001o00<0o`000000O`0007l0600007l00`000?l0001o 0000O`1K0000O`<000002@3oool000<0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000 003oool0oooo00000080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`03 0000O`3oool0oooo00@0oooo0P3o000G0?ooo`030000o`3oool0oooo01d0oooo00<0001o0?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo00030?ooo`050000 003oool0oooo0?ooo`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo 0080oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`060?ooo`80o`00503oool00`00 0?l0001o0?ooo`0N0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`000P3oool2000000@0oooo0P0000040?ooo`8000001@3oool00`000000 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo00P0oooo00<0o`000?ooo`3oool0403oool00`000?l0 oooo0000O`0O0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000 oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00T0oooo 0P3o000?0?ooo`040000o`3oool0oooo0000Oal0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool02`3oool20?l000X0oooo0`000?l30?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo 000E0?ooo`8000007P3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0=0?ooo`040?l0002o_`00_kl00;no00<0oooo 0`000?l60?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0M0?ooo`8000002@3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0=0?ooo`D0_kl00P000?l90?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0 oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01d0oooo00<0001o0?ooo`3oool03@3oool50;no00/0oooo00<0001o0?ooo`3oool07@3oool0 0`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool0 01D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo 01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0=0?ooo`D0_kl02`3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0 oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo00h0 oooo0`2o_`0<0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo 00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3oool00`000000oooo0?oo o`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?oo o`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo0P00000N 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo0P0000090?ooo`005@3oool00`000000oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3o ool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0oooo00L0oooo000E0?ooo`030000 003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000 O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo0?ooo`070?ooo`005@3o ool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3o ool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<000000?ooo`3oool01`3o ool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0 oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?ooo`030000003oool0 oooo00L0oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`00 07l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`00 0000oooo0?ooo`070?ooo`005@3oool2000001h0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0 oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool2000000T0 oooo000E0?ooo`030000003oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo 0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07P3oool00`000000oooo 0?ooo`070?ooo`005@3oool00`000000oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01d0oooo00<0 001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?ooo`030000O`3oool0oooo01h0oooo00<0 00000?ooo`3oool01`3oool001D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M 0?ooo`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N 0?ooo`030000003oool0oooo00L0oooo00000`3oool0000000000003000000030?ooo`0000000000 008000000`3oool2000000D0oooo00<000000?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0M0?oo o`030000O`3oool0oooo01d0oooo00<0001o0?ooo`3oool07@3oool00`0007l0oooo0?ooo`0N0?oo o`030000003oool0oooo00L0oooo00030?ooo`050000003oool0oooo0?ooo`0000001@3oool01000 0000oooo0?ooo`0000040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool00`3oool0 0`000000oooo0?ooo`040?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0103oool0 0`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool01`3oool0 00<0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`020?ooo`040000003oool0oooo 000000@0ooooo`000003000000T0oooo00030?ooo`030000003oool0oooo00<0oooo00D000000?oo o`3oool0oooo000000020?ooo`030000003oool0oooo0?l0oooo3P3oool000<0oooo00D000000?oo o`3oool0oooo000000020?ooo`040000003oool0oooo00000080oooo00<000000?ooo`3oool0o`3o ool>0?ooo`000P3oool2000000@0oooo0P0000040?ooo`800000o`3ooolA0?ooo`00o`3ooolQ0?oo o`00o`3ooolQ0?ooo`00\ \>"], ImageRangeCache->{{{91.5625, 320.938}, {355, 213.688}} -> {-11.5487, \ 192.417, 1.55939, 0.756947}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 800}, {0, 517}}, WindowSize->{792, 483}, 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, 816, 23, 229, "Title"], Cell[2595, 78, 322, 7, 87, "Subsubtitle"], Cell[2920, 87, 59, 1, 30, "Input"], Cell[2982, 90, 59, 1, 30, "Input"], Cell[3044, 93, 56, 1, 30, "Input"], Cell[CellGroupData[{ Cell[3125, 98, 95, 1, 46, "Subsubtitle"], Cell[3223, 101, 51, 1, 30, "Input"], Cell[3277, 104, 51, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3365, 110, 258, 4, 74, "Subsubtitle"], Cell[3626, 116, 73, 1, 30, "Input"], Cell[3702, 119, 65, 1, 30, "Input"], Cell[3770, 122, 229, 4, 50, "Input"], Cell[4002, 128, 229, 4, 50, "Input"], Cell[4234, 134, 80, 1, 30, "Input"], Cell[4317, 137, 91, 1, 30, "Input"], Cell[4411, 140, 127, 2, 53, "Input"], Cell[4541, 144, 73, 1, 30, "Input"], Cell[4617, 147, 77, 1, 51, "Input"], Cell[4697, 150, 127, 2, 53, "Input"], Cell[4827, 154, 77, 1, 51, "Input"], Cell[4907, 157, 72, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5016, 163, 149, 4, 48, "Subsubtitle"], Cell[5168, 169, 84, 1, 30, "Input"], Cell[5255, 172, 85, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5377, 178, 273, 9, 74, "Subsubtitle"], Cell[5653, 189, 50, 1, 30, "Input"], Cell[5706, 192, 61, 1, 30, "Input"], Cell[5770, 195, 52, 1, 30, "Input"], Cell[5825, 198, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[5888, 203, 494, 9, 90, "Input"], Cell[6385, 214, 218, 3, 29, "Output"] }, Open ]], Cell[6618, 220, 71, 1, 30, "Input"], Cell[6692, 223, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[6755, 228, 809, 13, 150, "Input"], Cell[7567, 243, 437, 9, 25, "Print"], Cell[8007, 254, 424, 9, 25, "Print"], Cell[8434, 265, 426, 9, 25, "Print"], Cell[8863, 276, 436, 9, 25, "Print"], Cell[9302, 287, 436, 9, 25, "Print"], Cell[9741, 298, 424, 9, 25, "Print"], Cell[10168, 309, 425, 9, 25, "Print"], Cell[10596, 320, 425, 9, 25, "Print"], Cell[11024, 331, 427, 9, 25, "Print"], Cell[11454, 342, 439, 9, 25, "Print"], Cell[11896, 353, 439, 9, 25, "Print"], Cell[12338, 364, 439, 9, 25, "Print"], Cell[12780, 375, 440, 9, 25, "Print"], Cell[13223, 386, 439, 9, 25, "Print"], Cell[13665, 397, 438, 9, 25, "Print"], Cell[14106, 408, 439, 9, 25, "Print"], Cell[14548, 419, 439, 9, 25, "Print"], Cell[14990, 430, 426, 9, 25, "Print"], Cell[15419, 441, 426, 9, 25, "Print"], Cell[15848, 452, 427, 9, 25, "Print"], Cell[16278, 463, 427, 9, 25, "Print"], Cell[16708, 474, 427, 9, 25, "Print"], Cell[17138, 485, 439, 9, 25, "Print"], Cell[17580, 496, 439, 9, 25, "Print"], Cell[18022, 507, 437, 9, 25, "Print"], Cell[18462, 518, 438, 9, 25, "Print"], Cell[18903, 529, 438, 9, 25, "Print"], Cell[19344, 540, 437, 9, 25, "Print"], Cell[19784, 551, 438, 9, 25, "Print"], Cell[20225, 562, 437, 9, 25, "Print"], Cell[20665, 573, 437, 9, 25, "Print"], Cell[21105, 584, 438, 9, 25, "Print"], Cell[21546, 595, 438, 9, 25, "Print"], Cell[21987, 606, 438, 9, 25, "Print"], Cell[22428, 617, 436, 9, 25, "Print"], Cell[22867, 628, 437, 9, 25, "Print"], Cell[23307, 639, 438, 9, 25, "Print"], Cell[23748, 650, 438, 9, 25, "Print"], Cell[24189, 661, 437, 9, 25, "Print"], Cell[24629, 672, 437, 9, 25, "Print"], Cell[25069, 683, 436, 9, 25, "Print"], Cell[25508, 694, 438, 9, 25, "Print"], Cell[25949, 705, 426, 9, 25, "Print"], Cell[26378, 716, 438, 9, 25, "Print"], Cell[26819, 727, 424, 9, 25, "Print"], Cell[27246, 738, 448, 9, 25, "Print"], Cell[27697, 749, 425, 9, 25, "Print"], Cell[28125, 760, 449, 9, 25, "Print"], Cell[28577, 771, 437, 9, 25, "Print"], Cell[29017, 782, 449, 9, 25, "Print"], Cell[29469, 793, 435, 9, 25, "Print"], Cell[29907, 804, 449, 9, 25, "Print"], Cell[30359, 815, 438, 9, 25, "Print"], Cell[30800, 826, 448, 9, 25, "Print"], Cell[31251, 837, 437, 9, 25, "Print"], Cell[31691, 848, 447, 9, 25, "Print"], Cell[32141, 859, 436, 9, 25, "Print"], Cell[32580, 870, 448, 9, 25, "Print"], Cell[33031, 881, 437, 9, 25, "Print"], Cell[33471, 892, 437, 9, 25, "Print"], Cell[33911, 903, 436, 9, 25, "Print"], Cell[34350, 914, 438, 9, 25, "Print"], Cell[34791, 925, 439, 9, 25, "Print"] }, Closed]], Cell[35245, 937, 216, 4, 47, "Input"], Cell[CellGroupData[{ Cell[35486, 945, 226, 5, 50, "Input"], Cell[35715, 952, 130, 3, 29, "Output"] }, Open ]], Cell[35860, 958, 50, 1, 30, "Input"], Cell[35913, 961, 61, 1, 30, "Input"], Cell[35977, 964, 38, 1, 30, "Input"], Cell[36018, 967, 52, 1, 30, "Input"], Cell[CellGroupData[{ Cell[36095, 972, 494, 9, 90, "Input"], Cell[36592, 983, 216, 3, 29, "Output"] }, Open ]], Cell[36823, 989, 72, 1, 30, "Input"], Cell[36898, 992, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[36961, 997, 811, 13, 150, "Input"], Cell[37775, 1012, 436, 9, 25, "Print"], Cell[38214, 1023, 426, 9, 25, "Print"], Cell[38643, 1034, 424, 9, 25, "Print"], Cell[39070, 1045, 437, 9, 25, "Print"], Cell[39510, 1056, 437, 9, 25, "Print"], Cell[39950, 1067, 425, 9, 25, "Print"], Cell[40378, 1078, 424, 9, 25, "Print"], Cell[40805, 1089, 424, 9, 25, "Print"], Cell[41232, 1100, 426, 9, 25, "Print"], Cell[41661, 1111, 440, 9, 25, "Print"], Cell[42104, 1122, 439, 9, 25, "Print"], Cell[42546, 1133, 439, 9, 25, "Print"], Cell[42988, 1144, 438, 9, 25, "Print"], Cell[43429, 1155, 438, 9, 25, "Print"], Cell[43870, 1166, 437, 9, 25, "Print"], Cell[44310, 1177, 439, 9, 25, "Print"], Cell[44752, 1188, 439, 9, 25, "Print"], Cell[45194, 1199, 427, 9, 25, "Print"], Cell[45624, 1210, 427, 9, 25, "Print"], Cell[46054, 1221, 426, 9, 25, "Print"], Cell[46483, 1232, 424, 9, 25, "Print"], Cell[46910, 1243, 426, 9, 25, "Print"], Cell[47339, 1254, 435, 9, 25, "Print"], Cell[47777, 1265, 438, 9, 25, "Print"], Cell[48218, 1276, 435, 9, 25, "Print"], Cell[48656, 1287, 438, 9, 25, "Print"], Cell[49097, 1298, 438, 9, 25, "Print"], Cell[49538, 1309, 438, 9, 25, "Print"], Cell[49979, 1320, 436, 9, 25, "Print"], Cell[50418, 1331, 435, 9, 25, "Print"], Cell[50856, 1342, 438, 9, 25, "Print"], Cell[51297, 1353, 436, 9, 25, "Print"], Cell[51736, 1364, 438, 9, 25, "Print"], Cell[52177, 1375, 437, 9, 25, "Print"], Cell[52617, 1386, 437, 9, 25, "Print"], Cell[53057, 1397, 437, 9, 25, "Print"], Cell[53497, 1408, 437, 9, 25, "Print"], Cell[53937, 1419, 436, 9, 25, "Print"], Cell[54376, 1430, 438, 9, 25, "Print"], Cell[54817, 1441, 438, 9, 25, "Print"], Cell[55258, 1452, 438, 9, 25, "Print"], Cell[55699, 1463, 438, 9, 25, "Print"], Cell[56140, 1474, 425, 9, 25, "Print"], Cell[56568, 1485, 436, 9, 25, "Print"], Cell[57007, 1496, 423, 9, 25, "Print"], Cell[57433, 1507, 447, 9, 25, "Print"], Cell[57883, 1518, 424, 9, 25, "Print"], Cell[58310, 1529, 444, 9, 25, "Print"], Cell[58757, 1540, 438, 9, 25, "Print"], Cell[59198, 1551, 448, 9, 25, "Print"], Cell[59649, 1562, 437, 9, 25, "Print"], Cell[60089, 1573, 448, 9, 25, "Print"], Cell[60540, 1584, 438, 9, 25, "Print"], Cell[60981, 1595, 447, 9, 25, "Print"], Cell[61431, 1606, 438, 9, 25, "Print"], Cell[61872, 1617, 450, 9, 25, "Print"], Cell[62325, 1628, 438, 9, 25, "Print"], Cell[62766, 1639, 450, 9, 25, "Print"], Cell[63219, 1650, 437, 9, 25, "Print"], Cell[63659, 1661, 436, 9, 25, "Print"] }, Closed]], Cell[64110, 1673, 217, 4, 47, "Input"], Cell[CellGroupData[{ Cell[64352, 1681, 226, 5, 50, "Input"], Cell[64581, 1688, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64748, 1696, 225, 4, 70, "Input"], Cell[64976, 1702, 21226, 606, 186, 5320, 405, "GraphicsData", "PostScript", \ "Graphics"], Cell[86205, 2310, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[86384, 2319, 341, 12, 74, "Subsubtitle"], Cell[86728, 2333, 50, 1, 30, "Input"], Cell[86781, 2336, 61, 1, 30, "Input"], Cell[86845, 2339, 52, 1, 30, "Input"], Cell[86900, 2342, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[86963, 2347, 494, 9, 90, "Input"], Cell[87460, 2358, 226, 4, 29, "Output"] }, Open ]], Cell[87701, 2365, 71, 1, 30, "Input"], Cell[87775, 2368, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[87838, 2373, 829, 14, 170, "Input"], Cell[88670, 2389, 438, 9, 25, "Print"], Cell[89111, 2400, 425, 9, 25, "Print"], Cell[89539, 2411, 426, 9, 25, "Print"], Cell[89968, 2422, 437, 9, 25, "Print"], Cell[90408, 2433, 436, 9, 25, "Print"], Cell[90847, 2444, 426, 9, 25, "Print"], Cell[91276, 2455, 426, 9, 25, "Print"], Cell[91705, 2466, 426, 9, 25, "Print"], Cell[92134, 2477, 426, 9, 25, "Print"], Cell[92563, 2488, 437, 9, 25, "Print"], Cell[93003, 2499, 440, 9, 25, "Print"], Cell[93446, 2510, 438, 9, 25, "Print"], Cell[93887, 2521, 438, 9, 25, "Print"], Cell[94328, 2532, 436, 9, 25, "Print"], Cell[94767, 2543, 438, 9, 25, "Print"], Cell[95208, 2554, 439, 9, 25, "Print"], Cell[95650, 2565, 438, 9, 25, "Print"], Cell[96091, 2576, 427, 9, 25, "Print"], Cell[96521, 2587, 426, 9, 25, "Print"], Cell[96950, 2598, 425, 9, 25, "Print"], Cell[97378, 2609, 427, 9, 25, "Print"], Cell[97808, 2620, 426, 9, 25, "Print"], Cell[98237, 2631, 439, 9, 25, "Print"], Cell[98679, 2642, 436, 9, 25, "Print"], Cell[99118, 2653, 433, 9, 25, "Print"], Cell[99554, 2664, 438, 9, 25, "Print"], Cell[99995, 2675, 438, 9, 25, "Print"], Cell[100436, 2686, 436, 9, 25, "Print"], Cell[100875, 2697, 437, 9, 25, "Print"], Cell[101315, 2708, 437, 9, 25, "Print"], Cell[101755, 2719, 438, 9, 25, "Print"], Cell[102196, 2730, 438, 9, 25, "Print"], Cell[102637, 2741, 437, 9, 25, "Print"], Cell[103077, 2752, 438, 9, 25, "Print"], Cell[103518, 2763, 436, 9, 25, "Print"], Cell[103957, 2774, 436, 9, 25, "Print"], Cell[104396, 2785, 438, 9, 25, "Print"], Cell[104837, 2796, 437, 9, 25, "Print"], Cell[105277, 2807, 435, 9, 25, "Print"], Cell[105715, 2818, 438, 9, 25, "Print"], Cell[106156, 2829, 437, 9, 25, "Print"], Cell[106596, 2840, 436, 9, 25, "Print"], Cell[107035, 2851, 426, 9, 25, "Print"], Cell[107464, 2862, 437, 9, 25, "Print"], Cell[107904, 2873, 424, 9, 25, "Print"], Cell[108331, 2884, 449, 9, 25, "Print"], Cell[108783, 2895, 426, 9, 25, "Print"], Cell[109212, 2906, 449, 9, 25, "Print"], Cell[109664, 2917, 436, 9, 25, "Print"], Cell[110103, 2928, 449, 9, 25, "Print"], Cell[110555, 2939, 437, 9, 25, "Print"], Cell[110995, 2950, 447, 9, 25, "Print"], Cell[111445, 2961, 436, 9, 25, "Print"], Cell[111884, 2972, 447, 9, 25, "Print"], Cell[112334, 2983, 435, 9, 25, "Print"], Cell[112772, 2994, 449, 9, 25, "Print"], Cell[113224, 3005, 437, 9, 25, "Print"], Cell[113664, 3016, 448, 9, 25, "Print"], Cell[114115, 3027, 437, 9, 25, "Print"], Cell[114555, 3038, 438, 9, 25, "Print"], Cell[114996, 3049, 436, 9, 25, "Print"], Cell[115435, 3060, 437, 9, 25, "Print"], Cell[115875, 3071, 436, 9, 25, "Print"], Cell[116314, 3082, 428, 9, 25, "Print"], Cell[116745, 3093, 425, 9, 25, "Print"], Cell[117173, 3104, 428, 9, 25, "Print"], Cell[117604, 3115, 439, 9, 25, "Print"], Cell[118046, 3126, 438, 9, 25, "Print"], Cell[118487, 3137, 439, 9, 25, "Print"], Cell[118929, 3148, 426, 9, 25, "Print"], Cell[119358, 3159, 439, 9, 25, "Print"], Cell[119800, 3170, 449, 9, 25, "Print"], Cell[120252, 3181, 439, 9, 25, "Print"], Cell[120694, 3192, 427, 9, 25, "Print"], Cell[121124, 3203, 426, 9, 25, "Print"], Cell[121553, 3214, 449, 9, 25, "Print"], Cell[122005, 3225, 438, 9, 25, "Print"], Cell[122446, 3236, 426, 9, 25, "Print"], Cell[122875, 3247, 427, 9, 25, "Print"], Cell[123305, 3258, 448, 9, 25, "Print"], Cell[123756, 3269, 438, 9, 25, "Print"], Cell[124197, 3280, 426, 9, 25, "Print"], Cell[124626, 3291, 427, 9, 25, "Print"], Cell[125056, 3302, 449, 9, 25, "Print"], Cell[125508, 3313, 438, 9, 25, "Print"], Cell[125949, 3324, 427, 9, 25, "Print"], Cell[126379, 3335, 425, 9, 25, "Print"], Cell[126807, 3346, 450, 9, 25, "Print"], Cell[127260, 3357, 437, 9, 25, "Print"], Cell[127700, 3368, 426, 9, 25, "Print"], Cell[128129, 3379, 428, 9, 25, "Print"], Cell[128560, 3390, 436, 9, 25, "Print"], Cell[128999, 3401, 436, 9, 25, "Print"], Cell[129438, 3412, 439, 9, 25, "Print"], Cell[129880, 3423, 424, 9, 25, "Print"], Cell[130307, 3434, 437, 9, 25, "Print"], Cell[130747, 3445, 451, 9, 25, "Print"], Cell[131201, 3456, 438, 9, 25, "Print"], Cell[131642, 3467, 429, 9, 25, "Print"] }, Closed]], Cell[132086, 3479, 242, 5, 47, "Input"], Cell[CellGroupData[{ Cell[132353, 3488, 226, 5, 50, "Input"], Cell[132582, 3495, 130, 3, 29, "Output"] }, Open ]], Cell[132727, 3501, 50, 1, 30, "Input"], Cell[132780, 3504, 61, 1, 30, "Input"], Cell[132844, 3507, 38, 1, 30, "Input"], Cell[132885, 3510, 52, 1, 30, "Input"], Cell[CellGroupData[{ Cell[132962, 3515, 494, 9, 90, "Input"], Cell[133459, 3526, 215, 3, 29, "Output"] }, Open ]], Cell[133689, 3532, 72, 1, 30, "Input"], Cell[133764, 3535, 38, 1, 30, "Input"], Cell[CellGroupData[{ Cell[133827, 3540, 831, 14, 170, "Input"], Cell[134661, 3556, 436, 9, 25, "Print"], Cell[135100, 3567, 425, 9, 25, "Print"], Cell[135528, 3578, 426, 9, 25, "Print"], Cell[135957, 3589, 438, 9, 25, "Print"], Cell[136398, 3600, 436, 9, 25, "Print"], Cell[136837, 3611, 425, 9, 25, "Print"], Cell[137265, 3622, 424, 9, 25, "Print"], Cell[137692, 3633, 425, 9, 25, "Print"], Cell[138120, 3644, 427, 9, 25, "Print"], Cell[138550, 3655, 439, 9, 25, "Print"], Cell[138992, 3666, 439, 9, 25, "Print"], Cell[139434, 3677, 440, 9, 25, "Print"], Cell[139877, 3688, 440, 9, 25, "Print"], Cell[140320, 3699, 439, 9, 25, "Print"], Cell[140762, 3710, 436, 9, 25, "Print"], Cell[141201, 3721, 438, 9, 25, "Print"], Cell[141642, 3732, 439, 9, 25, "Print"], Cell[142084, 3743, 427, 9, 25, "Print"], Cell[142514, 3754, 426, 9, 25, "Print"], Cell[142943, 3765, 427, 9, 25, "Print"], Cell[143373, 3776, 426, 9, 25, "Print"], Cell[143802, 3787, 427, 9, 25, "Print"], Cell[144232, 3798, 438, 9, 25, "Print"], Cell[144673, 3809, 439, 9, 25, "Print"], Cell[145115, 3820, 437, 9, 25, "Print"], Cell[145555, 3831, 438, 9, 25, "Print"], Cell[145996, 3842, 438, 9, 25, "Print"], Cell[146437, 3853, 438, 9, 25, "Print"], Cell[146878, 3864, 437, 9, 25, "Print"], Cell[147318, 3875, 438, 9, 25, "Print"], Cell[147759, 3886, 437, 9, 25, "Print"], Cell[148199, 3897, 437, 9, 25, "Print"], Cell[148639, 3908, 436, 9, 25, "Print"], Cell[149078, 3919, 438, 9, 25, "Print"], Cell[149519, 3930, 436, 9, 25, "Print"], Cell[149958, 3941, 434, 9, 25, "Print"], Cell[150395, 3952, 437, 9, 25, "Print"], Cell[150835, 3963, 438, 9, 25, "Print"], Cell[151276, 3974, 437, 9, 25, "Print"], Cell[151716, 3985, 436, 9, 25, "Print"], Cell[152155, 3996, 438, 9, 25, "Print"], Cell[152596, 4007, 438, 9, 25, "Print"], Cell[153037, 4018, 425, 9, 25, "Print"], Cell[153465, 4029, 438, 9, 25, "Print"], Cell[153906, 4040, 423, 9, 25, "Print"], Cell[154332, 4051, 449, 9, 25, "Print"], Cell[154784, 4062, 423, 9, 25, "Print"], Cell[155210, 4073, 449, 9, 25, "Print"], Cell[155662, 4084, 438, 9, 25, "Print"], Cell[156103, 4095, 448, 9, 25, "Print"], Cell[156554, 4106, 438, 9, 25, "Print"], Cell[156995, 4117, 448, 9, 25, "Print"], Cell[157446, 4128, 435, 9, 25, "Print"], Cell[157884, 4139, 449, 9, 25, "Print"], Cell[158336, 4150, 437, 9, 25, "Print"], Cell[158776, 4161, 448, 9, 25, "Print"], Cell[159227, 4172, 438, 9, 25, "Print"], Cell[159668, 4183, 446, 9, 25, "Print"], Cell[160117, 4194, 437, 9, 25, "Print"], Cell[160557, 4205, 438, 9, 25, "Print"], Cell[160998, 4216, 435, 9, 25, "Print"], Cell[161436, 4227, 437, 9, 25, "Print"], Cell[161876, 4238, 438, 9, 25, "Print"], Cell[162317, 4249, 425, 9, 25, "Print"], Cell[162745, 4260, 426, 9, 25, "Print"], Cell[163174, 4271, 427, 9, 25, "Print"], Cell[163604, 4282, 439, 9, 25, "Print"], Cell[164046, 4293, 439, 9, 25, "Print"], Cell[164488, 4304, 439, 9, 25, "Print"], Cell[164930, 4315, 428, 9, 25, "Print"], Cell[165361, 4326, 439, 9, 25, "Print"], Cell[165803, 4337, 450, 9, 25, "Print"], Cell[166256, 4348, 437, 9, 25, "Print"], Cell[166696, 4359, 427, 9, 25, "Print"], Cell[167126, 4370, 426, 9, 25, "Print"], Cell[167555, 4381, 449, 9, 25, "Print"], Cell[168007, 4392, 438, 9, 25, "Print"], Cell[168448, 4403, 427, 9, 25, "Print"], Cell[168878, 4414, 428, 9, 25, "Print"], Cell[169309, 4425, 448, 9, 25, "Print"], Cell[169760, 4436, 437, 9, 25, "Print"], Cell[170200, 4447, 425, 9, 25, "Print"], Cell[170628, 4458, 428, 9, 25, "Print"], Cell[171059, 4469, 448, 9, 25, "Print"], Cell[171510, 4480, 437, 9, 25, "Print"], Cell[171950, 4491, 428, 9, 25, "Print"], Cell[172381, 4502, 424, 9, 25, "Print"], Cell[172808, 4513, 449, 9, 25, "Print"], Cell[173260, 4524, 438, 9, 25, "Print"], Cell[173701, 4535, 427, 9, 25, "Print"], Cell[174131, 4546, 428, 9, 25, "Print"], Cell[174562, 4557, 438, 9, 25, "Print"], Cell[175003, 4568, 437, 9, 25, "Print"], Cell[175443, 4579, 436, 9, 25, "Print"], Cell[175882, 4590, 424, 9, 25, "Print"], Cell[176309, 4601, 438, 9, 25, "Print"], Cell[176750, 4612, 450, 9, 25, "Print"], Cell[177203, 4623, 439, 9, 25, "Print"], Cell[177645, 4634, 429, 9, 25, "Print"] }, Closed]], Cell[178089, 4646, 243, 5, 47, "Input"], Cell[CellGroupData[{ Cell[178357, 4655, 226, 5, 50, "Input"], Cell[178586, 4662, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178753, 4670, 235, 4, 70, "Input"], Cell[178991, 4676, 25334, 731, 186, 6724, 497, "GraphicsData", "PostScript", \ "Graphics"], Cell[204328, 5409, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[204507, 5418, 208, 3, 74, "Subsubtitle"], Cell[CellGroupData[{ Cell[204740, 5425, 369, 6, 110, "Input"], Cell[205112, 5433, 63841, 1530, 186, 11083, 874, "GraphicsData", \ "PostScript", "Graphics"], Cell[268956, 6965, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)