(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 42022, 1073] NotebookOptionsPosition[ 38961, 960] NotebookOutlinePosition[ 39295, 975] CellTagsIndexPosition[ 39252, 972] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Empirical Models Homework #1 Joe Sloan 1 November 2007\ \>", "Subtitle", CellChangeTimes->{{3.402925529780272*^9, 3.402925547789384*^9}, { 3.402927851185052*^9, 3.4029278545983*^9}}], Cell["Load Data", "Subsubtitle", CellChangeTimes->{{3.4029255761377373`*^9, 3.402925578205147*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"$Path", ",", " ", RowBox[{"ToFileName", "[", RowBox[{"{", "\"\\"", "}"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.402925593740697*^9, 3.402925682171858*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts1", " ", "=", " ", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{"Number", ",", " ", "Number"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402925696169487*^9, 3.40292572367439*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"130", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"131", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"132", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"133", ",", "63"}], "}"}], ",", RowBox[{"{", RowBox[{"134", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"137", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"138", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"139", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "70"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.402925735299293*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts2", " ", "=", " ", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{"Number", ",", " ", "Number"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402925696169487*^9, 3.40292572367439*^9}, { 3.402925828224346*^9, 3.402925843886531*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"109", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"149", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"149", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"191", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"213", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"224", ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.402925735299293*^9, 3.402925847689144*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lp", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{"pts1", ",", " ", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"125", ",", "145"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"57", ",", " ", "73"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.402925881132465*^9, 3.402926012756082*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{130., 60.}, {131., 61.}, {132., 62.}, {133., 63.}, {134., 64.}, {135., 65.}, {136., 66.}, {137., 67.}, {138., 68.}, {139., 69.}, { 140., 70.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->{{125, 145}, {57, 73}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.402926014728324*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fiteq", " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"pts1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "x"}], "}"}], ",", " ", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.4029260296352673`*^9, 3.402926065097674*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "69.99999999999903`"}], "+", RowBox[{"0.9999999999999942`", " ", "x"}]}]], "Output", CellChangeTimes->{3.4029260665198727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pltfit", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{"fiteq", ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "125", ",", " ", "145"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402926098494217*^9, 3.402926124771316*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVyn001XcAx/GbKKnpaQlRkse1g3Qrlc2HJHWffvdXuHm6v58o1xwUNWtb RySdGym2RHV3S4WSh1vz1FpianYtp0uGHG23EnVZtIR07dsfn/M5r3PeyyPi 6SgDDocjJPv48zZVTeNACp+jsdM5KTykuYUdjiR2YusMmolHrQ2nNRObehob 5BzmoWdMzMnxlqJ7uJBjl8ZDcdmgfsUmKfaFPf6w5SgPXpb2k1v8pFByt41l Z/IQN5w7ms2XQq91HFyWz4P6p72vlu2UosbraYeXigdmYXVXaJIUWoe4G7X9 PEz57lGps6SwkT+IzFvCx5mizLa6K1LQIoui/QI+Zi/3HL93V4q1PskjWWl8 HJMEzjJ6LIVbZekCkyo+nlyZsGZGpegVvN1Yr+PDfKH89nljBil8p9EDtgI0 reKzdosYcO+7pZ/aIcCTkO0ZtbYMzsULrPvkAuifZV/c48rA/AcvueK2AAUz ZmofbWRwzNLqWNC/AhSubiyktzIofTAne5u9EJV3bgb3BzD4W6+JuRAkxOdB r3IzdzFoCb0ucj8hhF1G6PDrBNJb7WtqbBRiudl037jvGSglc+bVvhXieMWQ +YScgX9D3a7+lSJMlMx9qshjYFj8Zea34SJ0lO13pS8zSLrVcdv/RxFc+WbK JhWDTredKWZqEbL8dUb0HQaUbeVi/w8iSKiZQ7oWBr8qTXu6LCg4VQeplV0M wuPKT3uvprC/StvyaR+DsdimfGc+Bde7KirvDYOY1KgLLnsoDH1W0+zOYdEf kJAblULBUmnQ1PMJC8BIXnuWQuP1jGd+S1jkhMxtzqqikGDpM97syELHPTKS 20rheI73yZA1LGzt02yqX1K4KjtgNcOHBdOm85hjKIZf1/OWBCGLMyp1/j9W YlA7CqYGQliUFnOn2taJEe5yxPG7aBa/hxqLxigxuhfeeGh1gEW94+7C9bFi BEsW7+1IJa5w0ZamixG0popLZbOoiYmVKRViNFgXHOw8x+LERu7biloxVkXd +PmbEhaxf+z+6o1GDNOa+YnO1SwcElb00UNiRBde3ZH/G4tuv4AS91k07g0m r7R9yOL04+FAX1saOZsyj9T2snDJMJ+V+AWNiLF2jewViwevSy63BdIo3yzZ 3P2ORfTxCvnNeBoyhc2GnUYR6PH0TlLJaTgFLrUbnh+B4FJPf20hjQAL9mTe sgjcdG+wcb1DI8bJyj2fuJfyiHQnPrTur7YC4hnxZUVriIsDBIsVxMHXClw8 iSdOrVdcItavSPTcSqwwWVBaSey3yE6yi7jvfcN9NXHHu/TsvI+9ySHZnx/7 RZOaAuK5lutntxI7cfeZKYg9PMqFGuKDCeHnLxHLk84+6iReOrD2WiWx62Di 0+fE0d0v7qmJfSdd0l8Q54yFmbQSS2a/dBggrjNrF2iIU52ZGB2x6fb69k7i 9ij+8AixSn1G+5y4P2lm7n/E3QOmDgPEH9IauKPEhsbpMh2xw0WP5HHiQN+9 r0eIN1S+sXhPfCjixepRYlF92a1J4uKUsK/HiSNbZWF6Yo2irW6SOLnXbmqK eOKXrfop4v8Bspk0jw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{125., 55.}, PlotRange->{{125, 145}, {55.0000004081635, 74.99999959183688}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.402926127254477*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"lp", ",", " ", "pltfit"}], "]"}]], "Input", CellChangeTimes->{{3.402926129538966*^9, 3.402926141873105*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{130., 60.}, {131., 61.}, {132., 62.}, {133., 63.}, {134., 64.}, {135., 65.}, {136., 66.}, {137., 67.}, {138., 68.}, {139., 69.}, { 140., 70.}}]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVyn001XcAx/GbKKnpaQlRkse1g3Qrlc2HJHWffvdXuHm6v58o1xwUNWtb RySdGym2RHV3S4WSh1vz1FpianYtp0uGHG23EnVZtIR07dsfn/M5r3PeyyPi 6SgDDocjJPv48zZVTeNACp+jsdM5KTykuYUdjiR2YusMmolHrQ2nNRObehob 5BzmoWdMzMnxlqJ7uJBjl8ZDcdmgfsUmKfaFPf6w5SgPXpb2k1v8pFByt41l Z/IQN5w7ms2XQq91HFyWz4P6p72vlu2UosbraYeXigdmYXVXaJIUWoe4G7X9 PEz57lGps6SwkT+IzFvCx5mizLa6K1LQIoui/QI+Zi/3HL93V4q1PskjWWl8 HJMEzjJ6LIVbZekCkyo+nlyZsGZGpegVvN1Yr+PDfKH89nljBil8p9EDtgI0 reKzdosYcO+7pZ/aIcCTkO0ZtbYMzsULrPvkAuifZV/c48rA/AcvueK2AAUz ZmofbWRwzNLqWNC/AhSubiyktzIofTAne5u9EJV3bgb3BzD4W6+JuRAkxOdB r3IzdzFoCb0ucj8hhF1G6PDrBNJb7WtqbBRiudl037jvGSglc+bVvhXieMWQ +YScgX9D3a7+lSJMlMx9qshjYFj8Zea34SJ0lO13pS8zSLrVcdv/RxFc+WbK JhWDTredKWZqEbL8dUb0HQaUbeVi/w8iSKiZQ7oWBr8qTXu6LCg4VQeplV0M wuPKT3uvprC/StvyaR+DsdimfGc+Bde7KirvDYOY1KgLLnsoDH1W0+zOYdEf kJAblULBUmnQ1PMJC8BIXnuWQuP1jGd+S1jkhMxtzqqikGDpM97syELHPTKS 20rheI73yZA1LGzt02yqX1K4KjtgNcOHBdOm85hjKIZf1/OWBCGLMyp1/j9W YlA7CqYGQliUFnOn2taJEe5yxPG7aBa/hxqLxigxuhfeeGh1gEW94+7C9bFi BEsW7+1IJa5w0ZamixG0popLZbOoiYmVKRViNFgXHOw8x+LERu7biloxVkXd +PmbEhaxf+z+6o1GDNOa+YnO1SwcElb00UNiRBde3ZH/G4tuv4AS91k07g0m r7R9yOL04+FAX1saOZsyj9T2snDJMJ+V+AWNiLF2jewViwevSy63BdIo3yzZ 3P2ORfTxCvnNeBoyhc2GnUYR6PH0TlLJaTgFLrUbnh+B4FJPf20hjQAL9mTe sgjcdG+wcb1DI8bJyj2fuJfyiHQnPrTur7YC4hnxZUVriIsDBIsVxMHXClw8 iSdOrVdcItavSPTcSqwwWVBaSey3yE6yi7jvfcN9NXHHu/TsvI+9ySHZnx/7 RZOaAuK5lutntxI7cfeZKYg9PMqFGuKDCeHnLxHLk84+6iReOrD2WiWx62Di 0+fE0d0v7qmJfSdd0l8Q54yFmbQSS2a/dBggrjNrF2iIU52ZGB2x6fb69k7i 9ij+8AixSn1G+5y4P2lm7n/E3QOmDgPEH9IauKPEhsbpMh2xw0WP5HHiQN+9 r0eIN1S+sXhPfCjixepRYlF92a1J4uKUsK/HiSNbZWF6Yo2irW6SOLnXbmqK eOKXrfop4v8Bspk0jw== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->{{125, 145}, {57, 73}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.402926142655322*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["fiteq"], "Input", CellChangeTimes->{{3.402926176038918*^9, 3.4029261791201897`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "69.99999999999903`"}], "+", RowBox[{"0.9999999999999942`", " ", "x"}]}]], "Output", CellChangeTimes->{3.402926180835648*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fiteq", "[", "134.5", "]"}]], "Input", CellChangeTimes->{{3.402926187348209*^9, 3.402926199490407*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "69.99999999999903`"}], "+", RowBox[{"0.9999999999999942`", " ", "x"}]}], ")"}], "[", "134.5`", "]"}]], "Output", CellChangeTimes->{3.402926200374015*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fiteq", " ", "/.", " ", RowBox[{"{", RowBox[{"x", " ", "\[Rule]", " ", "134.5"}], "}"}]}]], "Input", CellChangeTimes->{{3.4029262108524714`*^9, 3.402926221548279*^9}, { 3.402926271445842*^9, 3.4029262841346903`*^9}}], Cell[BoxData["64.5000000000002`"], "Output", CellChangeTimes->{3.402926285855486*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lp", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{"pts2", ",", " ", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "230"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "12"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402925881132465*^9, 3.402926012756082*^9}, { 3.402926333713789*^9, 3.402926379256731*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{109., 1.}, {149., 2.}, {149., 3.}, {191., 5.}, {213., 7.}, { 224., 10.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->{{100, 230}, {0, 12}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.402926340320118*^9, 3.402926380805484*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["pts2"], "Input", CellChangeTimes->{{3.402926431116858*^9, 3.402926434225466*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"109", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"149", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"149", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"191", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"213", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"224", ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.402926435978405*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Transpose", "[", "pts2", "]"}]], "Input", CellChangeTimes->{{3.402926460178916*^9, 3.402926466402038*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "109", ",", "149", ",", "149", ",", "191", ",", "213", ",", "224"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.402926467073575*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"xLst", " ", "=", " ", RowBox[{ RowBox[{"Transpose", "[", "pts2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.402926471312311*^9, 3.402926493022787*^9}, { 3.402926539279426*^9, 3.402926540612843*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"109", ",", "149", ",", "149", ",", "191", ",", "213", ",", "224"}], "}"}]], "Output", CellChangeTimes->{3.402926495827682*^9, 3.402926541884742*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yLst", " ", "=", " ", RowBox[{ RowBox[{"Transpose", "[", "pts2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.402926497374826*^9, 3.402926547348917*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "7", ",", "10"}], "}"}]], "Output", CellChangeTimes->{{3.402926515281372*^9, 3.402926548386978*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lp", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"xLst", "^", "6"}], ",", " ", "yLst"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.402926569578483*^9, 3.402926712100622*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{1.677100110841*^12, 1.}, {1.0942526586601*^13, 2.}, { 1.0942526586601*^13, 3.}, {4.8551226272641*^13, 5.}, {9.3385106978409*^13, 7.}, {1.26324651851776*^14, 10.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.402926605661367*^9, 3.4029267137681913`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fiteq", " ", "=", " ", RowBox[{"Fit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"xLst", "^", "6"}], ",", " ", "yLst"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "x"}], "}"}], ",", " ", "x"}], "]"}]}]], "Input", CellChangeTimes->{3.402926819442274*^9}], Cell[BoxData[ RowBox[{"1.4913547249296648`", "\[InvisibleSpace]", "+", RowBox[{"6.528567870161485`*^-14", " ", "x"}]}]], "Output", CellChangeTimes->{3.4029267763826303`*^9, 3.402926820934018*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pltfit", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{"fiteq", ",", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"1.5", "*", RowBox[{"10", "^", "14"}]}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402926868569656*^9, 3.4029268981447353`*^9}, { 3.402926946012824*^9, 3.402926974059079*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx39cy3kcwPFWV9KaSULN9HPbg+u0LgrF9733WeGS5MqUukQu3bpy4kQk tnOUFI8VclSuCbF2XcX147oKZ0Il+jFpIf2QhbXbyI/73B+vx+vxdI5JDIk1 NTExCSL9f32hcslYeIBA1LxiPPeRgQp9yvPJEHPwkE6/+tmggXoTS6WvF8/H aw6FJZ56AwW8r7lCsRDttxhCmxlGamBC686F4lDsMv+tjEYZKV+jbZGXOBbX UR9ixYVGKjapopIv3o7rfle0CDa/pXa5Wwg8xFIMPzFVPjL6jvKkf+puD8lF O4FSkCr8SBVdl1DLZQX4C21+zWKlCbSe8Tyh7S/Ga0fjvEZ8TCHsqj9r4MIl DMg0P1fVawYVGTlDCmkZJsv4mkXfm0O8urzbLqkcP1lft1NPnwDlhtnM3sBK rFPyeRdrLKGx0iwqzngVZ26cY+EptIKPMhvM76nGzv1Hetq1dKDNOABZOXU4 T7F3Pz+VAYFeboI3+fXYYBlgVk1jwuXhAvc39AYUxfkt8fxmMvy4bRUnZGMj ngk53RdtbwOB1icGf+5oQtsxPs1x1AaSMg6vfLn0Bjq7K7PG6qeAUX3lr/KT N3FfvNFULrEFmV/C+yD6LWREJ+v6RVMh94dI/xWbVDgUUaWiOdrB5bKBcIfu 26if5DGrVG8HjC6Wzczld/CU6Fhvwj/ToLUtvX3P2buYXVJzkH5kOoRqwTN8 YguWK1ilPjEzYEzdtbe4sgV5tYIqarY9VNUE/HoouhXnbVjD/3bEHqTFps6d M9owseYkh1HvAOY/hV162NSG4+zztDwpC7KDDaeotPtY4T20ThExE4CdECHw bker59Ocer9gQ1Hbbhedph0V+fQ7w6/ZMCm7I4h56gGmW87/V3JjFrh7N6er /R/iud0ci/FMR0i8J5PCq4eoaDDBJp4T1CaVapklHchxnUiF5BC/i4g6uqYT Gy22e9zVOcHNTJFXCqMLDcLxyJwoZzgwQTvJtroL11j2p2GDM2zaLqoWxnbj B1mT6JOrCwS/YN55wlbjkrS6RLMsF9Auj+73UKlR/oK1S//KBfLKPsQMSB6h vPx4w9z1rrDJKknp49eDOn9aw7brrvA0cLfFgoEejIts+0POc4OEvPv1RQWP Mflebb/TMTe4oGpKr13ZiyVN1laH9G5g9fqw7VZDL86Wru5/H8aBP5mrpDfX ahAKyz5W1XNgGYsjuXJZg/tgG32DKxceXSysUFn14Vrf4LDVWVzwS2F2PCC+ MKydFUV8OmCPUUM8fvLIQDxx5DORr4H4rFG1U0L8mD35b1d6Hw5WCPOriPuy 9zanEqfwfTXso1x4viPi6VzrPszncOOHif2Ftz5bRPyyvelLA7Hc1ocrJKYk G8fNsrnwXdmULRHEz54UZLKJB4duaQ8SuxewFMHEL9YveKchrnOwGaskDvxc zhohnqxS1DQSl761XWwgjkkJkrYQi3NH0xiMPrTozJg2TKy9JzdfRLxKZrGQ ncOFoDNTeULiwqXFtDnEV8T7lwUT63RfqbyJEydGZWwmzgtJjwgmbum4XbqV eJjm5BZJzJcvvJtK7KesG9lCnJ18fvQgcVZ0ZMUO4ldoZ3OcWMN8v+cA8X/I yT4y "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 2.}, PlotRange->{{0, 1.5*^14}, {1.4913549247837832`, 11.284206330317772`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.402926869714017*^9, 3.4029268989503307`*^9}, { 3.40292695344094*^9, 3.402926975190184*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"lp", ",", " ", "pltfit"}], "]"}]], "Input", CellChangeTimes->{{3.402926905601342*^9, 3.402926916947678*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{1.677100110841*^12, 1.}, {1.0942526586601*^13, 2.}, { 1.0942526586601*^13, 3.}, {4.8551226272641*^13, 5.}, { 9.3385106978409*^13, 7.}, {1.26324651851776*^14, 10.}}]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx39cy3kcwPFWV9KaSULN9HPbg+u0LgrF9733WeGS5MqUukQu3bpy4kQk tnOUFI8VclSuCbF2XcX147oKZ0Il+jFpIf2QhbXbyI/73B+vx+vxdI5JDIk1 NTExCSL9f32hcslYeIBA1LxiPPeRgQp9yvPJEHPwkE6/+tmggXoTS6WvF8/H aw6FJZ56AwW8r7lCsRDttxhCmxlGamBC686F4lDsMv+tjEYZKV+jbZGXOBbX UR9ixYVGKjapopIv3o7rfle0CDa/pXa5Wwg8xFIMPzFVPjL6jvKkf+puD8lF O4FSkCr8SBVdl1DLZQX4C21+zWKlCbSe8Tyh7S/Ga0fjvEZ8TCHsqj9r4MIl DMg0P1fVawYVGTlDCmkZJsv4mkXfm0O8urzbLqkcP1lft1NPnwDlhtnM3sBK rFPyeRdrLKGx0iwqzngVZ26cY+EptIKPMhvM76nGzv1Hetq1dKDNOABZOXU4 T7F3Pz+VAYFeboI3+fXYYBlgVk1jwuXhAvc39AYUxfkt8fxmMvy4bRUnZGMj ngk53RdtbwOB1icGf+5oQtsxPs1x1AaSMg6vfLn0Bjq7K7PG6qeAUX3lr/KT N3FfvNFULrEFmV/C+yD6LWREJ+v6RVMh94dI/xWbVDgUUaWiOdrB5bKBcIfu 26if5DGrVG8HjC6Wzczld/CU6Fhvwj/ToLUtvX3P2buYXVJzkH5kOoRqwTN8 YguWK1ilPjEzYEzdtbe4sgV5tYIqarY9VNUE/HoouhXnbVjD/3bEHqTFps6d M9owseYkh1HvAOY/hV162NSG4+zztDwpC7KDDaeotPtY4T20ThExE4CdECHw bker59Ocer9gQ1Hbbhedph0V+fQ7w6/ZMCm7I4h56gGmW87/V3JjFrh7N6er /R/iud0ci/FMR0i8J5PCq4eoaDDBJp4T1CaVapklHchxnUiF5BC/i4g6uqYT Gy22e9zVOcHNTJFXCqMLDcLxyJwoZzgwQTvJtroL11j2p2GDM2zaLqoWxnbj B1mT6JOrCwS/YN55wlbjkrS6RLMsF9Auj+73UKlR/oK1S//KBfLKPsQMSB6h vPx4w9z1rrDJKknp49eDOn9aw7brrvA0cLfFgoEejIts+0POc4OEvPv1RQWP Mflebb/TMTe4oGpKr13ZiyVN1laH9G5g9fqw7VZDL86Wru5/H8aBP5mrpDfX ahAKyz5W1XNgGYsjuXJZg/tgG32DKxceXSysUFn14Vrf4LDVWVzwS2F2PCC+ MKydFUV8OmCPUUM8fvLIQDxx5DORr4H4rFG1U0L8mD35b1d6Hw5WCPOriPuy 9zanEqfwfTXso1x4viPi6VzrPszncOOHif2Ftz5bRPyyvelLA7Hc1ocrJKYk G8fNsrnwXdmULRHEz54UZLKJB4duaQ8SuxewFMHEL9YveKchrnOwGaskDvxc zhohnqxS1DQSl761XWwgjkkJkrYQi3NH0xiMPrTozJg2TKy9JzdfRLxKZrGQ ncOFoDNTeULiwqXFtDnEV8T7lwUT63RfqbyJEydGZWwmzgtJjwgmbum4XbqV eJjm5BZJzJcvvJtK7KesG9lCnJ18fvQgcVZ0ZMUO4ldoZ3OcWMN8v+cA8X/I yT4y "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{ 3.402926917598024*^9, {3.402926959009493*^9, 3.402926981142619*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fitData", " ", "=", " ", RowBox[{"Fit", "[", RowBox[{"pts2", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "z", ",", " ", RowBox[{"z", "^", "2"}], ",", " ", RowBox[{"z", "^", "3"}], ",", " ", RowBox[{"z", "^", "4"}]}], "}"}], ",", " ", "z"}], "]"}]}]], "Input", CellChangeTimes->{{3.4029271131945343`*^9, 3.402927163105682*^9}, { 3.4029273397542677`*^9, 3.4029273429915047`*^9}, {3.402927409332282*^9, 3.402927410409401*^9}, {3.4029274549575577`*^9, 3.4029274560907793`*^9}, { 3.402927513751443*^9, 3.402927519205146*^9}}], Cell[BoxData[ RowBox[{"366.91230535150174`", "\[InvisibleSpace]", "-", RowBox[{"9.502217900332125`", " ", "z"}], "+", RowBox[{"0.09010551959617254`", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"0.0003708350213873077`", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"5.633955118950522`*^-7", " ", SuperscriptBox["z", "4"]}]}]], "Output", CellChangeTimes->{{3.402927154912182*^9, 3.4029271639414787`*^9}, 3.402927344920224*^9, 3.402927421258192*^9, 3.4029274631886*^9, 3.402927524543434*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lp", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{"pts2", ",", " ", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "230"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "12"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{109., 1.}, {149., 2.}, {149., 3.}, {191., 5.}, {213., 7.}, { 224., 10.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->{{100, 230}, {0, 12}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.402927204837639*^9, 3.4029273490108337`*^9, 3.402927421324779*^9, 3.4029274632440653`*^9, 3.4029275245917053`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptFit", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{"fitData", ",", " ", RowBox[{"{", " ", RowBox[{"z", ",", "100", ",", "250"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.402927211700561*^9, 3.402927252404381*^9}, { 3.402927538343878*^9, 3.402927561504655*^9}, {3.4029276032099752`*^9, 3.40292760859977*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd13k41F0bB/Ahyp5l7PsWyZIQyXROtvAgIWXJY8m+lWQpZSxFiiIqyVJJ knqQJCSRjLGvyR6SkCXJkuW95/1rrs/1vc99zu93rnNmRtIlwNKNnkAg2NMR CLTPv3962AgEW4z5crouEVhw77Q2dYHeFrcZfSmyGmbGpSOZsWOMtrh6yCXd oIoZB1Ld6etZwfZf3S6FM+OpjD/LCfy2eH6a/v7BNSbcq883Jqxii8lvPJIm 13bg0uTjbzUdbTHhc2DVa87tOCX2bfBuZ1ssUdivvfyLEQeGi6oLn7bFnOfp 7K26GbGS+7eXm162OBut29rfZ8Q5B87n1J23xRY9/sLPZBnx7ZGUm1YJkMuL rKoeZsBnlLvcAiphvrCwxefX6fH6sepr2e/hed49YV/0p8ex5wtetNdA/m3j 8wlLepxZGbOk1gD9mKkGFwTpcZOJxpWVbqj3SKeXfEaH5Tzu5ETOgdOH5380 E/BQ1smx21J2mPAy2ovHbhN51+rvqJO1wziixbNXbhMtTezd80feDpOzJh26 lzYQmzLzuZMqUL8t/U1w8gbSrnxLL6oDlnmub92yjlJ7haRyj4PHfpJcLf4i U65Bp7I4GH/wwhDvpRUk8uaw46vrdrg6rGwixnoF/XTItX+ZCHmkbYek4gpK zAuwyUmB3Ep7c7x/GbUhetNb2dCvIs8ykbSMjvvLaXqWQT2PiLkd8x/k2HiW XWAS1vvzxzm9mkWkfLaHhWcaxjt6NxlkLaItvoNMHLOQxx8/fS58EWW7MGxj +A1u4do6qrmIRlfvrMxtQb+jWWls//1C7vKVY/X89hj7HiVF5i6ggCvby0OO 2GOy1erMTa85tD4x+d7VxB4TCgxMDqnMoXijxrqjZmAzhS/aS7Mol/VWu5wV 1KfW/hKNmkVDSYI/PjuC1RUnY7N+ItNMRQGtYHDy9sSGyWmk8MYyeCUHPG+y tfZqEpUJaISPPwWvZe7cFT2JDC/wR7Xlg0fl0+5bTiJn0kBCXiGYMhv176/v 6F6t25OTlWBSeLa1xne0oy20q6yTtr6xu42Ub2h8MnNfGL0DJnBsfZiSGUMS YcxZOYxgjxN6maujyJ45iLWNyQGTib+aH7WMoo7dxuO7doJZ6Qwzw0ZRtfdi apcweDjktW3nV5Q+c2RVRQP8aKdNeeoI6gkvdrPXgn7u/T2eASOIm1204+pB yDf0otyMR1Cc0q/8wcOQ77ltkLQ+jIL9HzhcNwc/sZZx+TyELOfn3094gBeE +D49G0CJZHtFbh/wavqPd+4DqIHz0z2SP3jLw8dUZgBh1fSzKUFgfTUexYf9 SDnQQFo3EhxQvXvmYR9i/p12NeM+uNzGT/J9L6pe1jWzbgbr+L797daNMMuu 28Zt4HtKVGutbvRBhPnLoU5we3CEMms3qjncenr3F7C15Duz4i708bp9+OY4 mLqzVW17F2oQD3qetw5Wretx+tiBTPadWMjYAnfv1dLO7EBUfW3N2/SnMKG/ uz8utAM1eRFqLzGBfeI7Y5Q7UMurG32WRHD0lZm5rHbUceQJ88YecE/hQZt7 bcjSLu7oL2WwmYCRa1gb6vT1Sf2uCpZyNvhq14a6klQlOzTBy8kEFfE21NP/ TuupHthFdJPHrhXZzGZffmAIjjFQUZZuRZ8JMR+TjMGZSRuyP1tQr6yJRfhR cEfDsYLoFtQX0ONxzB586z4dY0Uzsot6+8LQEazTobcR34z6Ux4sHnQGf2T+ 3mLfjAbeukTs8gArTquvbzWhoW1zd/4Ggh8waJyxbEKOfB0D8+fBj/o/yuxu QsPyr6UmQsFiLFEvCU1oxOziy7bLtPWJ+KHiRjR2d8enJ/Fg3ePeRuKNiPtL YGBfAq3fUu3bVSrCQkNiO5PA2UzXJLqp6MGDkpDQu2CmwqLGRCqiDorLvLgP 3myu5fCjohWx621fM8BagZn6plRk/dB59z85YGUXtqvsVBQ12tQd8RQc9/Lo rbkGVCitFVWSD84jV8R3NCD2XI5+0SIwR7m/WXoD+pRfcWP+HXil7e+yZgP6 Pb3rgOwHsION9lnJBiSllPzN9iN4Qs67m7UBXf7P81AtFRx0g9FhjIIK5jun lpvBFlGyl9ooqE8V3VVsp/WLz7paRUGaJbzzqZ/BOQ/YLDIoyH2J/IDaBzaK eM2RSEEp+2eMtgZpzyMn8yqCgmpCTiypfQUX/HmlE0hB82U1Dz3Haft3qTrf jYLE1pTMM76D/S8+WbelINODaWvtU+DSoSrVoxR0IZzh6fZZ8ECtp7EBBeW9 C7A6uAAuCd7S1aGgns2+rYDf4Nyzw6LqFMSADQtylsE2jm5fFCloX2TRyS9r YFPibNAuCnKqEWHk2ATX3O+Zk6CgxG1xRbp0jphwUi7cWISCKvUXT4UwgGPE dCIFKGjqiiNLwQ5wHE/QHV4KEqxvKB1hAUtRIuN4KMiIScOVlwMcpVRrw01B wcbZO024wN6udwjgnHjWystE8Mob2yvgjsZgz1f8YP88n3EYT2AfJU4KgQW+ KojyUZCyudkHETFarvNHWZCCHG6W+R2TBGt9VBQUpaD4NmmhqzLgiUKlfkkK KuO6+alcDpzodTJIjoImLNcC5xTAhjFs40oURExxE5dRBg/VPdutQUF63W2N J1XBk5K39EkUFMinE5qgDq4uF1c3pKDsE09lajTBZ76WLcP7X/9y6dKeQ+Ds HfErsF8Kwj92Ox0G696OVof9POlg3ZOiDw6tY9aF/S4ZUlDZNAFbHzjcmk5B o+J3+veZg+0uvTZ7TkGcznRxHsfAl/100isoyG/s80jbCfAvW5aHQ9BvpDr1 jx3Y3Whkc56C9AefmYg4gnMj5iQZGpDQ54slHqfBDlHurxUb0Pau014JHrT9 4n8io9uAFtrMxF55g0vjqDYnGxCFKh63eYb2/s+E0cU2oJJ6JpJMEJjM3h+a 1YCyPi4sGIeAie2dhWUNKLiq1j71Eljkj47TzwYkU+yhohgP3mXfU/AvFXH+ ZzF+LAFc/rBX4DIV/X1+IC3kFrivsQ9nUFHHE9ZttXfA6y53agapiJz2X4/t YzA2Xg33aET95OVLsZXg+c2z5hlN6NOlkX0v3tPmO2Gxv74JFV9o+N5RAx7I lWhfaEJxQenHxBrAKY9tRY2b0X5PJPu6GzzTHksgtKDko7FNo7O09//8wPnE VnTZ9Ewk0y9wgbO9cW0r8jK23a+85Eg7rzfqV1oR1tuTHfaXtv4LS8P72tDs /tZznEz/YoLJtizK4zZkLMYvfEgS/DKUTiy1HV3ICH2mJAM2vRmbWtyO8kX6 NEXlwOWaelZt7YhNOMN6XRGcb3Qxmw2+L/ilE8u1wJlmHRfjOpAllwqdpgW4 cvMMY0InsmM48l0lAixTFTZa343io/POi0eB13f4v/7ZjSroWRh2XgEn33lT z9ODROiaJWbjwYT6wGdOPWhow9Ku4A6YOp9rv9GDXJcdm+Vfgk8byZvq9iLf qeBXkoO09a1t/FjpQyb3nPIsRsA1gox8Cv1I3tAkI2KM5o+lMfb9aPyhaOzg D1q9Ftfu9/3olO1Hu7Q/4IIfPlevDSC5caZIJiYnTGjLMrNTGEICVjbyZEnw FUVWi+YRtLZ3ITjAGsxnHzVwexyxGUsNTR8HX1MpyC8aR6LOVgaeJ8CaQxuJ reMIJ73mcbYDK/uUprF+Q7ELYYWWTuCZxOaSmG+IWEw/peELHivSnrkwgZTV iKfWo2njC1jfBE8iFw1NvWuvwFx9lbdyZ9C5InXxj5zOmCxJDV6p/4U0t2k1 TZ93xgRSmrXrxjLKyvgnz7wL8nfd1+pYN1AFu9vxTG0XXJ0UoMnyDx2OWNLg 3pnlgsk+TMzPVrfh77L8m+XrYDo6JrfT2/E2xc1yKxdX+L1+3l5nhAnXXFjK lfvgigl3VTM1mFixRtYv10m50/C89kYkBXZ87ODTvdQbpzG5NVw8gHkn5pTw Vfw+dRrjqVI3KRNOHN23f3Xewg3OvzhVl4ELpw1yLWkUgsmVETFpXPjkyRzC A3Z3TDZ+OnGFnxs35ukMzga6w/ktGX2ZwI2/Hv42Gd4OeSTLl+w5bvy88Hbd sqYHJvOvWzlY8WCxu6tFtx94wP0Rlqvyhgf3BXhwsGZCHvih5VUZD75r1O0d lQW5tFi6VjkP5lwrlD77CGz0QF7/HQ+mO+WZap4H9UMplq61PHhc6nMocwl4 TaSutpUHP3tZgiIawZahASI/eLD6p4Bm7zVa/fKNfDEiPlIqOUi3Dv0eqM8m ShCxXW7nzL0NMFtEeZAUEZOvarLVEzwx4a9Ptv4uIm423DKR3gEmHVpeUiJi 9/pESj8P2GFP1EMSEadRXtSaKoF/vx1VdSTiTer0W2Un8JcOiekcIlZfty3N dwYvKe8RfkrE3kqU4l2u4PeasmbPiLj7Zs5zMXdPTO5wXCx9QcQF1qcyOHwh P/fc4FEprG+ohTwbAv7ArNZHIeLXC0VHXt4Ey+TNjc4S8ZSUhL5CEpjb81+b BSKWsE7EucnQb88pwaZFIr5R6n0gMxXMSA6pWiFil4vSexLTwQZE5ff0vJiT MZXD/yn4oCOPGj8v9hUI7VZ6DzaU8189zIvJcrI2j6rBllsTL/R5cer+jh6+ GphvS2/29BFeXGWt2Lv1ETwW+arPlBfvTBrpa6dCPTOH17cTvLiY2XjkfA/k bemMF/x58cqa4PS7n+DtFi4lGbyYjaXeZ98c1J8QMKjO5sWSgkEzufPgvU95 Wh/zYhPNlp83F6EebycvPePF6eei5p1XIW+K/OFWyosPzUwtMTJ6wf14Nvtz Ky+OHqwgmIuANbz7eBj58Oy2F+qjol6YPLeXuYWJD9spZHoGi0Ned1z4Bhsf 3htCbsuUAufcX+Uh8uEBToPsOXnw52h2K2k+vF+/BSVpgGdnuZN1+fBk/sjl LnPwF8NBlRg+bNXeXuxpAXYv0/WP48NVyzUT68dgvhBl9qIbfDhF/4m57HHI Zd5+1Uvlw4eHvMSC7SFXTtjIzOXD97kW3/F7Qv73c64ylQ+bhTJu2EWCH5FJ 7UR+3DdcLNoVBaYXJx8T5MeeR5wOmcWA3S6z9ojy4xi+iggUS3M0y8wuflxe coZeJgH6Oy2zmh7gx/IL/Tt+3oM8/uK+YUd+zOBdzB1RCE5x/O39gh8nt/+r tlIE9XdcFC8W82OJA+zWZ1+BEw6J33rDjw8yeaa6loKld+hTPvDjwFxRAaNK cHXH3NkefjwyGifKRYF+DBHbXhIEcIX9v/KPh8EeptOjJwVwdp/F+sGvYJ0y cbZ/BXCMrW5b1yg4/5z/QTcBbH5CNnT7BNiHyb/grAAesZyu95oB++qF98YL YAaTEI+9q2CBeI5TVQLYVOtm7jtub0xosZbSVhDEA8T3Mr0G4DKhSFs+ITzW 5fvt+BHwXY2+fFEhPJUilNtpBH5TdJ9eVgivEIPlWv8B895zqVMTwkReJYVP x8CFo9H3jglhM950lZJTYIpaVWiiEK7iDdG+dR7c7fPlELswfsinYmH0BDya EdEpLoKvlginVuWCKxYXiuVFsK8lU596HrjB+U6aqgjWSvzqKvkc/Nvparie CG5hTAlZKwSniIWleYjg9d8rmQWV4NgIR7UiEXyys+YnZxdYBzMymojinbds rn+h94HzJbPCdVsMmxrERgcw0OzgRs0Uw3Frby4ybgcn/rkFFxymdxP0VWUG t4toK9eI4d8HBkyv7QRjmaDvC2K4d8yZ44AIOFn1+n4rcZyt6Zd0TwNMff35 DYcE3jscffeEpw8mS2kOUicl8M3uM+EdXpDz1Oy/OCeBZxtPOZv5gHuVA/f+ kcAFZZp79Pyh3i/m3rNtklg+ebpKOQi8Q3iyR0wSSxpYTTCSwWE3K8VtJDH3 cymNkrvgI0aPL1Ik8VLwhw7Oeug3wO77o1IK58f88n5OgTzpD0qqk8JOydLb DKmQy2cnoBYp3PTiitrFZvAdz8f/DUvhnHHjlG+dUB9kyztEL42tLDuOl49A fvTiarCJNC5SGut1XYP8w0HxwiFp7DfOMFyq5Av/x/5R3BCWxYkNW2uXksGm LK7vv8phq2UWQ/I8WOURvfsPBdy4JuwSYOMH92V71mqFMv5uSHqR9toPVzeZ KCz5qeICFj6mb9z+mJycaF1cqYZlcn6riYb6Y8KTwHuMd/djfHUs8VYPOIyx oDz9AN55qLd8XicAExK6tPXMSFhepXN5/f/ut6kA60q0qDOTwEeygtTMSTiY /uNLSTCZ7tRr6aMkPPTpv0eWNG8W/cNwjIQLjsbGl9Dqm+sa66xJ2Nh5v13o IchPFwuaOJCwi6Xq3RiauWz9asDheopdt2imf1ejfYqEC2WlzJ+BCVWVgXsc SVhgil23j2bBB9/ZnEh4IvDbbh0E9TuGZNpcSfA7bsTdCEyYsEsxOk3CQsf7 H1vTbJrK+AFsptku6kerr9D9WeRGwiV/K7kyaflzcvttDxJumXljnk+z1pQ5 mycJTw4WXy+l2Z+rJQYsUp3H2EobP36v/bwXCe8veqzbT8tVVo/Pgi0eZUZ8 p+Vq/APu3iTsfTutcpGW//7lOgyOjklZ3aLlYTd+nvAh4f8BZeds2g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{100., 0}, PlotRange->{{100, 250}, {0., 29.419310423656043`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.402927253896467*^9, 3.40292735235779*^9, 3.402927421398445*^9, 3.40292746328633*^9, {3.402927524623255*^9, 3.402927562383458*^9}, 3.402927609241497*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"lp", ",", " ", "ptFit"}], "]"}]], "Input", CellChangeTimes->{{3.402927258058371*^9, 3.402927278933666*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{109., 1.}, {149., 2.}, {149., 3.}, {191., 5.}, {213., 7.}, { 224., 10.}}]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1nk4lOsbB/BBhBbb2EeWOhh70eZMPU8LqYQkIcmWLMVwRMfWRDnWkhNC iyUqbaSaZN/yjl2ILGUpayGOye53z++vuT7X976f93mf5b1G0dHL/Bw3iUTa zUUicX7H8xXWkUjWWKHjv+FgkiC2LOw1iuW2xvR3GWolgwK4rCIlXIYX8ogX V8RqBHBiC5l7uyDkmXoHlmMF8P5J/nk3sjXGp2Lt6ykCOEXt11CrqjU2W/0S ZL6XHxull1c8Om6N43Sli2vj+HDWDccA00xrnNvasLfVmwc73k3IEcu2xsKO Jq0KVjxYIYfo6nhsjdOsFtde38uDU6q1/rR/AeOlxWjeWseDbywtLNILwEkf PJjZ3NjP/d/g+CaoDy2o0+3nwkaGVYz2RWtsP1un8tyFhHktfucmr8D8QmuO FJuScIWDWv8ZLhvct/nOxMAuEqYFx+0b4rPBaSf1EzzXkfDW17bcv0VsMOnX x/r1TqtIRmk2TErVBjPMFwrseVbQ+PIf/5y2gFxmUNXeaRGxB1RYU5aQJyZH eO5ZRCSCui7c2gZjpntImuQiIsdr3sy1g/rewRnP+gVEU96exOsGnvQIfL1z AcWYHHz0MtgGl10qftFOnkeaDxxreB5Bf74Kc+MoG+265iyQ/ATG19v0wreG jfa7uRzVegb15dJBS1lsZKnr3mSVB/V+A+e8ndgopMa743khjN+dMDHxdRY1 TjKGTzVDfZx/ncbX/5AXfrD22Tx4UOvHCfY08lm/bKa3BOMf6fp+8fM08uu0 SSlagZzGV5FdNI2C6BKaDTynMcN7ccI3bBpFpcWaT2w4jcuUUplXRadRNino no4S5NLqP4/v+IV6y6x03xw5jUk3fluPqk6ivpi3QXuOgeka7IfsCfTNivyh 2hTqx1hbU6sm0NhUk9UnC8h/F23e6TCB5hQOhfy2gzxyVl/t3k9Evrqdtfsv 8H+6kcPyP9DRfaJnS1Kh3o6qKmo2itLEhlKC70MumZdhrDiK2N8LPtHSIdcM 8SemR1BGlINJYTbkfzXnhyWOoLnW3D3v8sBXhci8/cMoy8WU8qoG7OJ3USp0 CK1Gx3zOmoH+i3yZOTODyMLOXvwcG3yUKG+rH0Q5OnrHt8yD5SRcaNmDyLK9 m8hYARPOHyqtB9GzTervHgjYYkZ46p2XlQPIOo+VmCwPvh2p1Z/Rj/I/8VnE HrXFpDZWxBvZr8iS8SRdzgRcamGwuf8LmqMaTz43A0sI5s5mf0F7g29FNZ4E f/JprtH9gojNlHIhe/CmWm6KeS/qoW/VivcFX3H92ya9G4XItAUq+YMbcOHS hW6kWOXHevU3WOt2Hml3N3KRLHJuDQH331jR+NiFfhUbppIjwXJKUyICXYhv nS1/0j3w8C2ebxGd6PHrlZMqaeAn4f7RNp3oqF16JjMDnNv58pZGJ4rLG9rb +Qhc2/OqoKUDyVp5X5J+xRmfPuqj0IF0ssIHUj+AVxLoDk3tyBrlFaVNghMy U8e9W5HJJGvp/DRnvJtsNeNWtP/BAE17FnyzrO2jcivSWBUrLl4AW57XPd37 EZFK/Yq7eM9gktK4ipHpR5S9l1ZCpoAD1KPsDVtQ6oTFSvcmcE6a6AaVFhR3 /+LeTEXwK53wTfwt6O+V+yVbVcBezke86pqRcQlXqck2sLbl+grLZjS9p6Y0 wgj8UCFpdrURDf/8ump6FKzWU/m2oRH13JtDkibgbV9z9e82ouplalnWCbBv r0Dkn43oTnFMWYUd2MyZrhvWgGIvZpGiHMAVpqdWLBtQqFwJPu4MNvcJjlBv QBeCJ8u+uoFpdUTnp3qE9piXL/mCGTfUz+yoR3o/3bmq/MHZqFtcuB6p3gvb Fx0AfpdnGjVWh0SXX5dLM8BbbtU9TK9DQ0WSFTuiOfOnsP+VqkPdF3S4V2LB /L/zNs3VombK4f3VceDbr0scOmtRQVBAxYlE8P0+UaHUWhRD662gp4PxTOaC ai0KaD0uqP4Q/O2nEnNjLXJ1/3D8ezZYuXFZcZaFDO687LN+BibxqXFVsZCe 9hZV8kvO+y4/833GQkof7ng15oG7ZCdvJ7DQyszVlf1M8C5p8S43FvoRxTZY LgAP2KqvWLBQl6JHLLMIPHXzXANmobemFhSNCjAl5amHDAt5PVXWF28A+wUZ 320nkN3+1KtNTZz1qTXd+IFAxp+FWJEfwRt1DVSZBFJdO39qpQNso+9lnkog ifsXH7zr4vRHdTrcINCa7QNDPr3gTst7kqEE6nOsuzQ8wHm/9kxfDwI1zqPi 9O9g1yUZWQcCFcW9XmM7wlnfKCuXUwTKUaEaS4yDe/x/nzQhUHLJvX+bf4Jf t8WPGhAo4qRod9QUeE1ttcJeAvn9CFcymAFHJKsv7iCQc9ii2+osWPje2cs6 BDKXoecVzIFdDi0nqREI532b+2sRHL85zfoPAmkZWWOtFbBl+2CRAoEoXxv+ GSHZYVKalHM5hUCCfvubMnjAARVFLtIEmlvPlDjDB14ojXwmQaChTHU7SQFw lcT5eDKB2vTTslrWgQ9+n5IUI1BlC/ln9EawlmMlTZRAr1wj9QxFOP09ASRw 2upyIInMyYvzHcE3En0q30uAc8IEnaA/SHNY8JI0eI6Q5RInkHvVaXNtCvj+ 3ms0SQJZnW5OHt0EfviijyxDIMPpg/2Zipz5LzZEyhFIL7JA1W4LeJfCaIoi gZQUtOhSKmB3naZDygQSZmYwP1LB663k4tQJtHJMcjVGAxzTTf9rK4F+fos2 PKQNPiJ1/tdOAvUEkm5wbQMvhd0TQASqFb3UXqjHqX+WV2hIoGxs56yjD+Yf GR2H/bzd8fHpGA1cdOuwG+x3qOehmYcI/Fh5JQTOg91dnVBpA3CJ8Rfvq3De dLNYrYfAtN2GJrEE0q+VFrlxhLNeHwLLkwkkOcedxm0Gbotiub+G/XUxnI81 B+8gLWSXw/q1RZpLnwRbVoqda4LzmCfMq2MDtnhZc+4HgabcNrmfcQZn/Hub rsFC6p0OlSMuYGUPn/w9LORimEXxdQN/8qi6ZMpCvUoaTVGeYEFmtL8vC9V2 79Z7d5mzXmqy5+F+8h4Jjj0QCK4I3nDvMwvhd2VDjcFg+wAes0m4b7cPJX8P BdfeqFSn1KLMYydXRGPBuVJSrwJrUVApnbiYDlbY7/X2eB1iar5WnM/k2NXi jmcdmk79HXAtG1y22X06ug65Xg7RTH0Kbpaf3UDUoZNbY+KJN5z9fqDZZVCP tDIf2W6uBb/bF3ntVANyExl/86IeHGRQWB3YgB5e0RLSbwLTbc8EpDUgGds3 5WZt4B+aVbTxBrRWvFI55AtYx6xfLrwR9YV/meqc5uy3QIlQSxO6uJhES50F mzAb+UnNaMHreMSZOfC3u521ks1I3LpKfmCZs/7vg0WMmtER9RyTcf6zmPRe cjDzaTN603Tp2fImMOPATH5IC4qS2uCqdBQcEBqvf6IVScV+yP92DMztvP6a TyvK4mKsZpuBg/Ib+eNbUdnYdKK6JXip9FJlSyuaLeqs1nMAP7YwmzvRhuwd Hm4+5A82KfHf5dSOtuf8+dUjE+y7oNvxtAMJsytpq1ng0Fc8D5s60Ng+45T4 x+AQdsqDmQ50/7PtyYLnnPnciFOidSJ+gZA6vndge6nnJ5o6Udf5MmZ6PXjk tO+Blc8o5A+DuI5ZsHPVVYfgHuRs9ihNcYs9JsnTB4OW+lCjm3Sr8x/gDJMR mlg/2hUWzftYGUwuogmp9aN1b73ctajga7sSxk71o1eyu/T+1AIPORsHvO5H XMNEjcUusGux/BR9AN0PHpv4xxhsYvOYYA+izzmaeyZ8weq5fp+2DaOEJl/V 5Hpwe/T2m/D/cLI38ZjLJgdM8vTb3+c3g+Le/l0u4g+uPVEwvn4OnfH8rLCp 0QEzup+cobxdQiwh8ntjeUeMz07nTMeScGCgUIa1vyPsB5PL5gc3rm/+XhnB csSMKf8fAeK82GkqSC9RyQnuS5qLiuVarDwZF7cmAHxwg4i6pwCO6LiinFDn hBnzyi1a+9dhnSjtdWu2OGNGqVBqisQG7K/8nprgB/aySBp5uBGPpZfr/lMD 3pm8rZ9bGGcOR8ackj+HccbB7hPPhfGihKb8Ee9zmOG5xBWwWwQnC98iydae wySrKLZFiQh2GvVuMFZ0ge+hummHtiiuf6rZlubjghkTL8asY0Vx4K4camst 5Ew9u5URUcx6wVWgIncek7LCzl/aLYYPrPmk23sR3FeYTIoQwzxbPJbp1eCE yrKgATHsqNlNUpF0hfNwOqdsHxnnTm02j5RyxYyCYErIATJezb+QOS4Nznxb RzMg47v6Kwa5FE7OHC02IuNPhxSjdytB/+Htdk2mZHzU8by4sSbkwkXLOnZk rJc0Q/U+ANZMGloOJOO1XOtPFHqBd5/6Z2cRGS9p0zT5vKF/7pva1hIynra7 sPa4D3idkK1GGRn3FNUXDvmCzTM8Vapgfpdjt4gGQH9LY4ROPRlbTW1ku14D X7mlG9dDxk++iiRLJEN9UFlC/ArMp0Tyq3cF5JfXaAgZieOivlna20rIvb34 vI6IYy2etpSFKvCZx+3NxuJY1CjOMqwG/FjcJuW4OP7cwt94ux76u+a1DU6L 4/Pf54uYn8C1We8XPcVx2PqelOUxqP/qWTqfJI4LbdIsI8XcMCOQwftoShxb Mgo0R8lucH492j7OiOOprI9rDkuAdcOucf0Wx8q/1uTzS0P99+T488viOP4f N6GITZDnmby0FJTArq+3EeFUN8551qvcIoElNlbvvobALw2Hh09LYO/yUcoV D/B6UQN2qwR+ZT4WVHMBbDft8LRDAv83ONYj5AmOmEt06pbAfnw/7qbRwcMx 5r0DEjjo6ASl4hI870eCKfuXBA5vn6bwMsAd8g5lwpL47ugiJfo2eNqQq9pM En8Q2SiXVAz9qYdVxLolsU72YfZCCdgjYi93nyRO1b/eZFcG9bbhj2e/SWK6 09JV5UowJl8dnZDEMm/Ght4Q4Hl2Ci+PFL5oVZPb1gpee11VVEMKkx8wDoqO geWSouOvSmEHjRmPWAl3+D5MaA3oS2Oj1z3EmCS4uXvrAJbGOrQPfxhJgx2/ bR42lMYrR5O/clPAOu/7V82lcYoHOnFZERxeJ3vRQxq35kTrO2mAf2YY7r4n jQ2oWwR27wcLekS8WCODqcons79dBO8UrC8dlMFvpZVj1Lw4z7O1ShyTwQc3 /Pam08G3tg14/5LB9v/d2bPkA6Ypze9clcGJFT1tYpfBs8eukGRlMfdZZ54D oWCNe0bXT8jinqS/7NMTwX98rqMTsvimQLyMXSm4K8DJrYKCDUn3/y4tA9vr njWoo+Al9pNOhQqw8Bl+1TYKdv9WnjhYBf7g5c01RMEHS3+JutWCyfk8vIJy eMH3+DrfdvBzKwvzE3LYpU94KXIcPHpbU35cDtOYN3vfSHrA90DsgZmOPI4w ce3SdvfAjMnEccVfCphUXVwhWAi2faDdGqSES3jb5itFL2DSuStin723YFmd avcHzhcww91B4ctNZVyyxV/Nuhg8IJIrsJ2KK/mY1U4cC0j8aw8mRtj2nmAS zy1/Jrj1mV9SGMdXxw+e20HFI3p+a15wvEH3V9lOKhYxuPSFuwT6tYTjLutT sfO5v+KfcbxRYXgEUbHboXxNJsfP+OYRpmJP6gxRDiY9dF6fBP77p8/qJ07+ PHynwT4qvnHJ5wJXKfip04P0/VT87rq3oSWYxHv9jY0BFRefz+u351h78Ese uOLwryAPTv38OwEBQypu2OCdz+DYr86JCR5IoCs85dSHxlDJRlQ87J9b+Ibj DY/tPMA/rKcsyzg+9WdCBZgtR49t5/Trsvi8D1Px4upL1T5O/rFyHwEmDUxW jnGMdoTIH6Fivirts7P/H1+hyA+8LttrYZXjlNDFBvD/AKJ+pN8= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"x\"", TraditionalForm], FormBox["\"y\"", TraditionalForm]}, PlotRange->{{100, 230}, {0, 12}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.402927280001004*^9, 3.402927354930213*^9, 3.402927421474329*^9, 3.402927463368547*^9, 3.402927524707346*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fitData", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.402927681741893*^9, 3.4029277077229643`*^9}}], Cell[BoxData[ RowBox[{"366.91230535150174`", "\[InvisibleSpace]", "-", RowBox[{"9.502217900332125`", " ", "z"}], "+", RowBox[{"0.09010551959617254`", " ", SuperscriptBox["z", "2"]}], "-", RowBox[{"0.0003708350213873077`", " ", SuperscriptBox["z", "3"]}], "+", RowBox[{"5.633955118950522`*^-7", " ", SuperscriptBox["z", "4"]}]}]], "Output", CellChangeTimes->{3.402927708822473*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fitData", "/.", " ", RowBox[{"z", " ", "\[Rule]", " ", "150"}]}]], "Input", CellChangeTimes->{{3.402927712408708*^9, 3.402927721410666*^9}}], Cell[BoxData["2.6045919302719085`"], "Output", CellChangeTimes->{3.40292772373423*^9}] }, Open ]] }, Open ]] }, WindowSize->{640, 576}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 195, 6, 96, "Subtitle"], Cell[788, 31, 100, 1, 26, "Subsubtitle"], Cell[891, 34, 318, 8, 43, "Input"], Cell[CellGroupData[{ Cell[1234, 46, 276, 6, 27, "Input"], Cell[1513, 54, 777, 25, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2327, 84, 325, 7, 27, "Input"], Cell[2655, 93, 484, 15, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3176, 113, 777, 20, 73, "Input"], Cell[3956, 135, 526, 13, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4519, 153, 264, 6, 27, "Input"], Cell[4786, 161, 170, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4993, 170, 273, 7, 27, "Input"], Cell[5269, 179, 2016, 39, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7322, 223, 157, 3, 27, "Input"], Cell[7482, 228, 2215, 42, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9734, 275, 99, 1, 27, "Input"], Cell[9836, 278, 168, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10041, 287, 128, 2, 27, "Input"], Cell[10172, 291, 232, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10441, 303, 250, 5, 27, "Input"], Cell[10694, 310, 86, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10817, 316, 823, 20, 73, "Input"], Cell[11643, 338, 472, 12, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12152, 355, 96, 1, 27, "Input"], Cell[12251, 358, 462, 15, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12750, 378, 131, 2, 27, "Input"], Cell[12884, 382, 319, 10, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13240, 397, 308, 7, 43, "Input"], Cell[13551, 406, 192, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13780, 415, 220, 5, 27, "Input"], Cell[14003, 422, 183, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14223, 431, 649, 17, 73, "Input"], Cell[14875, 450, 559, 13, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15471, 468, 370, 11, 27, "Input"], Cell[15844, 481, 200, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16081, 489, 370, 9, 27, "Input"], Cell[16454, 500, 2138, 41, 235, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18629, 546, 157, 3, 27, "Input"], Cell[18789, 551, 2316, 44, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21142, 600, 593, 12, 27, "Input"], Cell[21738, 614, 526, 11, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22301, 630, 708, 18, 73, "Input"], Cell[23012, 650, 547, 13, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23596, 668, 364, 8, 27, "Input"], Cell[23963, 678, 7244, 125, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31244, 808, 156, 3, 27, "Input"], Cell[31403, 813, 6653, 114, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38093, 932, 136, 2, 43, "Input"], Cell[38232, 936, 406, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38675, 950, 168, 3, 27, "Input"], Cell[38846, 955, 87, 1, 27, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)