(* 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[ 32300, 807] NotebookOptionsPosition[ 30735, 750] NotebookOutlinePosition[ 31166, 767] CellTagsIndexPosition[ 31123, 764] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["The program below calculates the fit to a straight \ line y = a + bx.", "Subsection"]], "SectionFirst", CellChangeTimes->{{3.442690085522408*^9, 3.442690123291915*^9}, { 3.442691223608529*^9, 3.4426912310948057`*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input"], Cell[CellGroupData[{ Cell["\<\ Here is some trial data. Replace it with your own.\ \>", "Subsubtitle", CellChangeTimes->{{3.442690146653887*^9, 3.442690191605599*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"{", RowBox[{"1.0", ",", "2.0", ",", "3.0", ",", "4.0", ",", "5.0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"{", RowBox[{"0.9", ",", "1.8", ",", "3.15", ",", "4.05", ",", "4.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"num", " ", "=", " ", RowBox[{"Length", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", " ", "=", " ", "0.15"}], ";"}]}], "Input", CellChangeTimes->{{3.442690194512908*^9, 3.4426903012761927`*^9}, 3.442843836279291*^9, {3.442848367616695*^9, 3.4428484401693687`*^9}, { 3.442848488495325*^9, 3.4428485292172194`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4426903236395473`*^9, 3.442690359936029*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "1.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "3.15`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "4.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "4.9`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.442690362676662*^9, 3.4428332401345882`*^9, 3.442843749417569*^9, 3.442843839415101*^9, 3.442847531171956*^9, 3.4428484428*^9, { 3.442848506707037*^9, 3.442848531257574*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.442690369882669*^9, 3.442690393987151*^9}, { 3.442690437166903*^9, 3.442690439473261*^9}, {3.442691038403049*^9, 3.4426910428765793`*^9}, {3.442691118519389*^9, 3.442691145882784*^9}}], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{1., 0.9}, {2., 1.8}, {3., 3.15}, {4., 4.05}, {5., 4.9}, {1., 0.9}, {2., 1.8}, {3., 3.15}, {4., 4.05}, {5., 4.9}}, { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], 6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], 7], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], 8], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], 9], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], 10]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5.}, {0, 4.9}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.442690379278911*^9, 3.4426903898704987`*^9}, 3.442690441839857*^9, 3.44269104461023*^9, {3.442691133001576*^9, 3.44269114769246*^9}, 3.4428332428966703`*^9, 3.442843750737924*^9, 3.442843840604661*^9, 3.442847531384322*^9, 3.442848444154682*^9, { 3.442848507494837*^9, 3.442848532057225*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Let' s use the traditional least - squares technique to find the : \tintercept : a \[PlusMinus] \[Delta]a and \tslope : b \[PlusMinus] \[Delta]b.\ \>", "Subsubtitle", CellChangeTimes->{{3.4426912585666647`*^9, 3.442691261045313*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"delta", " ", "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], RowBox[{ FractionBox["1", SuperscriptBox["\[Sigma]", "2"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "2"], SuperscriptBox["\[Sigma]", "2"]]}]}]}], " ", "-", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], SuperscriptBox["\[Sigma]", "2"]]}], ")"}], "2"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", " ", "=", " ", RowBox[{ FractionBox["1", "delta"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "2"], SuperscriptBox["\[Sigma]", "2"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], SuperscriptBox["\[Sigma]", "2"]]}]}]}], " ", "-", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], RowBox[{ FractionBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], SuperscriptBox["\[Sigma]", "2"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}], SuperscriptBox["\[Sigma]", "2"]]}]}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", " ", "=", " ", RowBox[{ FractionBox["1", "delta"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], RowBox[{ FractionBox["1", SuperscriptBox["\[Sigma]", "2"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}], SuperscriptBox["\[Sigma]", "2"]]}]}]}], " ", "-", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], RowBox[{ FractionBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], SuperscriptBox["\[Sigma]", "2"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], SuperscriptBox["\[Sigma]", "2"]]}]}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"deltaa", " ", "=", " ", SqrtBox[ RowBox[{ FractionBox["1", "delta"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox[ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "2"], SuperscriptBox["\[Sigma]", "2"]]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"deltab", " ", "=", " ", SqrtBox[ RowBox[{ FractionBox["1", "delta"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "num"], FractionBox["1", SuperscriptBox["\[Sigma]", "2"]]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "a1", ",", " ", "\"\< \[PlusMinus] \>\"", ",", "deltaa"}], "]"}], "\n", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "b1", ",", " ", "\"\< \[PlusMinus] \>\"", ",", "deltab"}], "]"}]}], "Input", CellChangeTimes->{{3.442833217993025*^9, 3.442833228480358*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Intercept a = \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.11499999999999706`"}], "\[InvisibleSpace]", "\<\" \[PlusMinus] \"\>", "\[InvisibleSpace]", "0.15732132722552267`"}], SequenceForm[ "Intercept a = ", -0.11499999999999706`, " \[PlusMinus] ", 0.15732132722552267`], Editable->False]], "Print", CellChangeTimes->{ 3.4418434472389812`*^9, 3.442690304449046*^9, 3.4428332481917*^9, 3.442843754310739*^9, 3.442843843507563*^9, 3.4428475315146637`*^9, 3.442848449002886*^9, {3.4428485097105618`*^9, 3.442848534146865*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Slope b = \"\>", "\[InvisibleSpace]", "1.0249999999999984`", "\[InvisibleSpace]", "\<\" \[PlusMinus] \"\>", "\[InvisibleSpace]", "0.04743416490252567`"}], SequenceForm[ "Slope b = ", 1.0249999999999984`, " \[PlusMinus] ", 0.04743416490252567], Editable->False]], "Print", CellChangeTimes->{ 3.4418434472389812`*^9, 3.442690304449046*^9, 3.4428332481917*^9, 3.442843754310739*^9, 3.442843843507563*^9, 3.4428475315146637`*^9, 3.442848449002886*^9, {3.4428485097105618`*^9, 3.442848534218317*^9}}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"error", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"ErrorBar", "[", "\[Sigma]", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.435415739974092*^9, 3.435415740324553*^9}, { 3.4354169156927633`*^9, 3.435416936477839*^9}, {3.4354174358561153`*^9, 3.435417439312717*^9}, {3.435417878338953*^9, 3.435417886177828*^9}, { 3.435417934398068*^9, 3.43541796398099*^9}, {3.435418037337775*^9, 3.435418042475985*^9}, {3.4354190953990602`*^9, 3.435419099099715*^9}, 3.442843387365293*^9, {3.4428434722817087`*^9, 3.442843502543778*^9}, { 3.4428435407500887`*^9, 3.442843545399226*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"error", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.4353538764571953`*^9, 3.435353895341056*^9}, { 3.435353929753837*^9, 3.435353931149929*^9}, {3.4354151365957403`*^9, 3.435415137255992*^9}, {3.4354155731206093`*^9, 3.4354155960960913`*^9}, { 3.435415687735236*^9, 3.4354156901248083`*^9}, {3.435416107416432*^9, 3.435416124450583*^9}, {3.4354163279302464`*^9, 3.4354163322629223`*^9}, { 3.43541636254458*^9, 3.4354164036556463`*^9}, {3.435416898330596*^9, 3.435416901090886*^9}, {3.435418392757285*^9, 3.435418406274625*^9}, { 3.43541869006487*^9, 3.4354186903964567`*^9}, 3.435418930925248*^9, { 3.435419185593678*^9, 3.4354191886646*^9}, {3.442843559775495*^9, 3.442843572074717*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"a1", " ", "+", " ", RowBox[{"b1", " ", "x"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Point", "/@", "data"}], ",", RowBox[{"PointSize", "[", "0.013", "]"}]}], "]"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0.", ",", "0."}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.442833339915844*^9, 3.4428333929832582`*^9}, { 3.442833453411209*^9, 3.442833455840206*^9}, {3.442833508489662*^9, 3.442833510025264*^9}, 3.4428431912290497`*^9, {3.442848267911332*^9, 3.442848274590212*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx308E3gcwPGZx1bWnrc8RGIcec1FaZ36faUsJ9OD58mRs5DD7VzSCs1T XbPKjleeql0XuTpKF1dkr+lMl7vSUfK6njysPL2yTCqF+90fn9fn9d6ZtmdF AoFAIOKE/39jbtr26tTA9+pb6aqWWeFjFMO97+L8daG69a3J77pKa5TKLU4e fv23ujVr7/XuVzEom5si97umV7fI3Btqc4aRghttY2DJ1DeUN86HXNGjM9xd ui87u9TXmx780EC3QPXc4D/3n0tTX5olNnbWp6M2blCLXK5BmUl6patZLrqf PGouMTNFGmldq41iLeoLu14QlxOAuk+MNU4r/dGzBxeeJmQ1o8frb9Z0fGdA Q5kS3r6ofvRii6G9UDSCXoFGXCygomHnbIVPSAoaF3k3JvRS0Ei093337GNo ck9BXYr9SjRxWGinnBpBb0p8u755ug7p3S6L/WNeI0Nl77bcWQ2a2rT1Xexu T/RW1nbnjjoRTa/5qul24W30LpZpVRtfjmaW/zw3EPo9+pAwPzMQ4Y7ef34k p6p1Cn0MgHvBhmdo1v4xTxV8E82FsjyWPZ9Cn/haKz9pEFoID9978NJJNL91 UH5uGxEIlQeCLJZygWDlU3be0QiMziou5aY3gZFjT/7m13uBWLLDXOnUC0Tb 2mOLhRIwLt/t0pPnCMZuAjf7g8NgUnnW6/l2Pph4zlNpH3RgKi/eWJD+FExd p8iu5GIwO9VhGclvBLO1Vy+emKwA84KL/Z1hLDD3qI+yEgeBRUb7KcIgAgun 9mAZ7yQsOsC1TGSVwyKeanBdBx9IyWuKks7IgOTcJqfri2BxukJ7+l41LPaq 6dkw4gNLJLZ6ZephWOJTE7Nl9RGw3BPJcYkbB8vVQ4RvafuALH5mMjZ3HMgb xtF4WwssjSJPCiZuwlJvj7LjhKtAcVw/uM7pEVCY2tN5dyuBckHJi/8sESgV Ub8lSalAXe4rFYVpgMqyFA3sjwSqilE3FuEJ1Cqnfwh9vUCz3tDnn5cCtGXR PY35K4CmNJq1EB8F2o92mTv7m4HOGFuIs70F9GWC0YrSXKArXI0L528AvVTx KqPKBhjU4jG/a/eAYfPFtRmLcWCUyLVi+w5gnMtwENsRgUkaUIU25wPTussm MWcCmMWimCcO0cBUFelogkXAMnez5jV9BNbyeL4w4j2wskv/GjU+BKzTd3lZ DB6wCU5xfEcWsG3LpgPXVAA7izQdlpoJ7HLZ5gZVH7A/MZNJ8jfAseuJb8kQ YDsxfPNtsIcknl18bK+2A1IBtiH3ssMq7BDay6Rq4NjTq6u6qdglLe3+Adi7 +rLd/gX2HMUya0GF3RsIQ6nAniddGZXsAM6Kh6u1O8uwrUT2SYewdb4b645i u5qGx9Zivw1uJkixAyI7hHPAcWCm1NbHYh8lqtzqsENrjpFcgb1gGhKhM8J+ ZBWoacNmzJ94sgr7pcsfnCvYjhe1PeHYM94+aT9h+815aX4FzkpWiLttEbas hnImEjtMQc7agV2yXVCajy2uKuzejK2azZY3YO//ZcF5LbZGOCE1xS7rnHxo jd39YaXEA7vmUeIqMvaL81FJIuym4Rd5BGx90KnYQmytIaLfgL3w7k74Vew+ owceuv8Ae08cjQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, Epilog->{ PointSize[0.013], PointBox[{1., 0.9}], PointBox[{2., 1.8}], PointBox[{3., 3.15}], PointBox[{4., 4.05}], PointBox[{5., 4.9}]}, PlotRange->{{0, 6}, {-0.11499987448979299`, 6.034999874489789}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4428333956631317`*^9, 3.442833514260412*^9, {3.44284318000838*^9, 3.4428431930680933`*^9}, 3.442843773081522*^9, 3.4428438544247437`*^9, 3.442847531958437*^9, {3.4428482693501863`*^9, 3.442848275864299*^9}, 3.44284845696957*^9, {3.4428485132202663`*^9, 3.442848538854885*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["data2"], "Input", CellChangeTimes->{{3.4428436949651117`*^9, 3.442843695927243*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", "0.9`"}], "}"}], ",", RowBox[{"ErrorBar", "[", "0.15`", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.`", ",", "1.8`"}], "}"}], ",", RowBox[{"ErrorBar", "[", "0.15`", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.`", ",", "3.15`"}], "}"}], ",", RowBox[{"ErrorBar", "[", "0.15`", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.`", ",", "4.05`"}], "}"}], ",", RowBox[{"ErrorBar", "[", "0.15`", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.`", ",", "4.9`"}], "}"}], ",", RowBox[{"ErrorBar", "[", "0.15`", "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.442843696783366*^9, 3.4428437754307528`*^9, 3.442843891201137*^9, 3.442847532198367*^9, 3.442848461862245*^9, {3.442848515358317*^9, 3.442848540498495*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g2", "=", RowBox[{"ErrorListPlot", "[", RowBox[{"data2", ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0.", ",", "0."}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4428436088954*^9, 3.44284362046597*^9}, { 3.442843811523425*^9, 3.442843812041656*^9}, {3.442847711976284*^9, 3.44284775405595*^9}, {3.442848224005322*^9, 3.442848235800829*^9}, { 3.4428482845957727`*^9, 3.442848328009956*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[{{1., 0.9}, {2., 1.8}, {3., 3.15}, {4., 4.05}, {5., 4.9}}], {{LineBox[{{1., 1.05}, {1., 0.75}}], LineBox[{Offset[{1.5, 0}, {1., 1.05}], Offset[{-1.5, 0}, {1., 1.05}]}], LineBox[{Offset[{1.5, 0}, {1., 0.75}], Offset[{-1.5, 0}, {1., 0.75}]}]}, { LineBox[{{2., 1.95}, {2., 1.6500000000000001`}}], LineBox[{Offset[{1.5, 0}, {2., 1.95}], Offset[{-1.5, 0}, {2., 1.95}]}], LineBox[{Offset[{1.5, 0}, {2., 1.6500000000000001`}], Offset[{-1.5, 0}, {2., 1.6500000000000001`}]}]}, { LineBox[{{3., 3.3}, {3., 3.}}], LineBox[{Offset[{1.5, 0}, {3., 3.3}], Offset[{-1.5, 0}, {3., 3.3}]}], LineBox[{Offset[{1.5, 0}, {3., 3.}], Offset[{-1.5, 0}, {3., 3.}]}]}, { LineBox[{{4., 4.2}, {4., 3.9}}], LineBox[{Offset[{1.5, 0}, {4., 4.2}], Offset[{-1.5, 0}, {4., 4.2}]}], LineBox[{Offset[{1.5, 0}, {4., 3.9}], Offset[{-1.5, 0}, {4., 3.9}]}]}, { LineBox[{{5., 5.050000000000001}, {5., 4.75}}], LineBox[{Offset[{1.5, 0}, {5., 5.050000000000001}], Offset[{-1.5, 0}, {5., 5.050000000000001}]}], LineBox[{Offset[{1.5, 0}, {5., 4.75}], Offset[{-1.5, 0}, {5., 4.75}]}]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{ 3.442843622299622*^9, 3.4428436885337553`*^9, 3.442843780870051*^9, 3.442843813619137*^9, 3.442843892467333*^9, 3.4428475323431168`*^9, 3.4428477568363647`*^9, {3.4428482287642117`*^9, 3.4428482397401543`*^9}, { 3.442848287749549*^9, 3.4428483287938757`*^9}, 3.442848463278812*^9, { 3.442848516661111*^9, 3.442848541802492*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.442848332172217*^9, 3.442848335906699*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx308E3gcwPGZx1bWnrc8RGIcec1FaZ36faUsJ9OD58mRs5DD7VzSCs1T XbPKjleeql0XuTpKF1dkr+lMl7vSUfK6njysPL2yTCqF+90fn9fn9d6ZtmdF AoFAIOKE/39jbtr26tTA9+pb6aqWWeFjFMO97+L8daG69a3J77pKa5TKLU4e fv23ujVr7/XuVzEom5si97umV7fI3Btqc4aRghttY2DJ1DeUN86HXNGjM9xd ui87u9TXmx780EC3QPXc4D/3n0tTX5olNnbWp6M2blCLXK5BmUl6patZLrqf PGouMTNFGmldq41iLeoLu14QlxOAuk+MNU4r/dGzBxeeJmQ1o8frb9Z0fGdA Q5kS3r6ofvRii6G9UDSCXoFGXCygomHnbIVPSAoaF3k3JvRS0Ei093337GNo ck9BXYr9SjRxWGinnBpBb0p8u755ug7p3S6L/WNeI0Nl77bcWQ2a2rT1Xexu T/RW1nbnjjoRTa/5qul24W30LpZpVRtfjmaW/zw3EPo9+pAwPzMQ4Y7ef34k p6p1Cn0MgHvBhmdo1v4xTxV8E82FsjyWPZ9Cn/haKz9pEFoID9978NJJNL91 UH5uGxEIlQeCLJZygWDlU3be0QiMziou5aY3gZFjT/7m13uBWLLDXOnUC0Tb 2mOLhRIwLt/t0pPnCMZuAjf7g8NgUnnW6/l2Pph4zlNpH3RgKi/eWJD+FExd p8iu5GIwO9VhGclvBLO1Vy+emKwA84KL/Z1hLDD3qI+yEgeBRUb7KcIgAgun 9mAZ7yQsOsC1TGSVwyKeanBdBx9IyWuKks7IgOTcJqfri2BxukJ7+l41LPaq 6dkw4gNLJLZ6ZephWOJTE7Nl9RGw3BPJcYkbB8vVQ4RvafuALH5mMjZ3HMgb xtF4WwssjSJPCiZuwlJvj7LjhKtAcVw/uM7pEVCY2tN5dyuBckHJi/8sESgV Ub8lSalAXe4rFYVpgMqyFA3sjwSqilE3FuEJ1Cqnfwh9vUCz3tDnn5cCtGXR PY35K4CmNJq1EB8F2o92mTv7m4HOGFuIs70F9GWC0YrSXKArXI0L528AvVTx KqPKBhjU4jG/a/eAYfPFtRmLcWCUyLVi+w5gnMtwENsRgUkaUIU25wPTussm MWcCmMWimCcO0cBUFelogkXAMnez5jV9BNbyeL4w4j2wskv/GjU+BKzTd3lZ DB6wCU5xfEcWsG3LpgPXVAA7izQdlpoJ7HLZ5gZVH7A/MZNJ8jfAseuJb8kQ YDsxfPNtsIcknl18bK+2A1IBtiH3ssMq7BDay6Rq4NjTq6u6qdglLe3+Adi7 +rLd/gX2HMUya0GF3RsIQ6nAniddGZXsAM6Kh6u1O8uwrUT2SYewdb4b645i u5qGx9Zivw1uJkixAyI7hHPAcWCm1NbHYh8lqtzqsENrjpFcgb1gGhKhM8J+ ZBWoacNmzJ94sgr7pcsfnCvYjhe1PeHYM94+aT9h+815aX4FzkpWiLttEbas hnImEjtMQc7agV2yXVCajy2uKuzejK2azZY3YO//ZcF5LbZGOCE1xS7rnHxo jd39YaXEA7vmUeIqMvaL81FJIuym4Rd5BGx90KnYQmytIaLfgL3w7k74Vew+ owceuv8Ae08cjQ== "]]}}, {Hue[0.67, 0.6, 0.6], PointBox[{{1., 0.9}, {2., 1.8}, {3., 3.15}, {4., 4.05}, {5., 4.9}}], {{LineBox[{{1., 1.05}, {1., 0.75}}], LineBox[{Offset[{1.5, 0}, {1., 1.05}], Offset[{-1.5, 0}, {1., 1.05}]}], LineBox[{Offset[{1.5, 0}, {1., 0.75}], Offset[{-1.5, 0}, {1., 0.75}]}]}, { LineBox[{{2., 1.95}, {2., 1.6500000000000001`}}], LineBox[{Offset[{1.5, 0}, {2., 1.95}], Offset[{-1.5, 0}, {2., 1.95}]}], LineBox[{Offset[{1.5, 0}, {2., 1.6500000000000001`}], Offset[{-1.5, 0}, {2., 1.6500000000000001`}]}]}, { LineBox[{{3., 3.3}, {3., 3.}}], LineBox[{Offset[{1.5, 0}, {3., 3.3}], Offset[{-1.5, 0}, {3., 3.3}]}], LineBox[{Offset[{1.5, 0}, {3., 3.}], Offset[{-1.5, 0}, {3., 3.}]}]}, { LineBox[{{4., 4.2}, {4., 3.9}}], LineBox[{Offset[{1.5, 0}, {4., 4.2}], Offset[{-1.5, 0}, {4., 4.2}]}], LineBox[{Offset[{1.5, 0}, {4., 3.9}], Offset[{-1.5, 0}, {4., 3.9}]}]}, { LineBox[{{5., 5.050000000000001}, {5., 4.75}}], LineBox[{Offset[{1.5, 0}, {5., 5.050000000000001}], Offset[{-1.5, 0}, {5., 5.050000000000001}]}], LineBox[{Offset[{1.5, 0}, {5., 4.75}], Offset[{-1.5, 0}, {5., 4.75}]}]}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, Epilog->{ PointSize[0.013], PointBox[{1., 0.9}], PointBox[{2., 1.8}], PointBox[{3., 3.15}], PointBox[{4., 4.05}], PointBox[{5., 4.9}]}, PlotRange->{{0, 6}, {-0.11499987448979299`, 6.034999874489789}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.442848337107008*^9, 3.4428484660314207`*^9, {3.442848518145146*^9, 3.442848543357682*^9}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXHuUk9dxl9llAYPjvIwBuzF2bMu0adI81dSN7SDbeVqmTVM1SbHAGAvb QXZshJ3IPMTDa4PXwBossGVAhuUhsNagZQW7ywoQIECLAIHAOu3p47Snpz1t c5KTk5y0Oen0zr0zn64+vqtvTXJan9P+sdrVp/ubmXtn7tyZuaN9YOa8ObPn zpz32KyZk7/y9Myn5jw265nJ9z/5tHjUcpXHc9UR8XPDZE+r+Bs8noYXqNVq BXwx//238lcLVCpl8VOV71bSs1qtCuVyCcqVqud+7VmpWIRyteYZo0g8KH+N FK9FSLZHwIfsfSHozBQ9UwnWFfUDizVCvraAP57FT+WIu+Vrm3gtQ7tfjgN/ MAjBUBz6K7X7mHslI8j7IF2ueb7MkGo/BD0ECQTAH2qHQrXmZ6lKGQh6PRCM RMAvoO3pome0EnyaNqd2nwd88axHwUZJQeJefNYFhXwe+vvTEA2GIVepee6x xlQhn0lDrliRE6nk2sXEY1ASn95rl7jCEivamVQSsoQrdkXA42+Hck0fU4Qo zqgjpxYp3yFm6IdcVX0qxL+aWODEeR391pSE+DilWIZEaVMkfT5I5Ks0vgrV Ws2StJYTknqhy1rbFsi2By21tdBrLFOy2LF6a9WsxNb1MkqthtKVGl/NCQV4 oKO/8l5noKvfL0akSzXLIHOJCLOxWBcSQuxAJxRKJSjkEuAVonVm88KQNcUU k5fhytm4XORshUQupqRssUy5QeRWfDrVQVAWqiIJhaFgTWgkFLriamvgT7Bd Wollw7UKdAR8Ym1qtJY+yFTqNiw0VcgmyczDkK/aZfZAqD0NxVJOaBjHBK/E UPwkDfkBS2sBgYtny7xy1WIGQlKRVWtySjNCsnJW7jJc1an0Wa4jxEYkVzzR X6bPxMTLGWkUuOrRSAiC4RhkCpXRwxG8IjetVxM8EQ6h+aqxlaykLHSn77uu lOV0IBNBTSRwExCJViilhZb8ASmQmMRUelzp75CrmsrloVLfM5k4urUA6oqE bZC5q6sgFvOih6nUqgVoDwfkZ2LBrfWWO8UPHYlOCJPzSxSqvH5p4TsDsSTk hAWEhEvyhFPWjkhHvZYVW2uKPjTghUAoDOFQEELRBLoWSwjxcSLsldNJFytj dLFHSt7bth2FxYt64J13TsC7775reQM0w1yqHWKdOdpGrVDIdEIo4BeeNywc fqFusWVIxUPg83qFQ45DrlSt72Jx9sRDUelKeXylPyX0H4VYLAZh4fcTwknY WQQEHWH5DUbdZtlG6dR5WLO6H15eeQBOnqzIMy6rDx2tm5H86cmehPjiHuja WoBq9ZKE7DFb3giS59y5KiTfyMOypftgoH9Iwt4xw1rp9dAhoZYXcpB47SCU T1+QsIyCyUWpWZ4W8DWPL1eZyY6i+Q8NnYdXOwfgpRf3Q6Fwlgld4wAZ6/Bs 3DDHDffZb0Lvfwv7fpLl/bQGTbzwGDLq/ftLsCS+DzZtPPT/Vvd/cx7/g1Z3 NVndhQsX4a3UEem89/Wc8jkMvdfh2X2/5XFNJB1Hkh4/fk6eSKtX9eGp9Pn3 n6Rqy47Egx72iAMfD/7tIgAQB6JKFLeasdfSLPFE3LB+EF5Y3gv5fFnCtphh HyLYwYOnYfnSXnjj9bwkgY9TGkyG2TwYD2iMp1C+rDi48fFmM4+PEuxE8Rx0 vHwAVr3SZ4UFG82w8QTbs6dhJSQsaYZdT7AzZ6rw+oa8nNXBgdMS9oYZNpFg uGa4dnposMEMm0Qqu3TpXdi58xgsWpiF3buP43ulsoQZeyOxxLBh7asD8GJ7 Do4cOSNhr5lhHyNY34EhWLpkH7z55iFLZWvNsJusDXsJtm5Ryush5b1q1/Rk Glx0UNkaM4+P21S2TVPZKjPsVoKdPYsqG5QqGxxUKnvFDLudVTZYhuXLeqXZ Iwl8/LIZ5iWVoWDbbeG1xK4wY6cQy1OnKtKPoD9Bv4KPXzLDfo9g+/adko4S HSY6TnzcboZ9gmAib5GnOp7ueMrj4xfsKvt9GlwQFoQBKFoUWhY+Xmbm8SnN gNFwcTV27dIMeIkZ+2liifsE9wsa8OHDyoDjZthnCdbfrwwYA3g24EVm2Od0 77NVGfDevcqAF5phX2Dvc6ICr3T0iZ8D0hPh4+fNsD8kGPo35IRbRnAeRcuF 4T0y37z5sPwtNqNaroiZ5BeJJCctOPe+vqE2Ioma3bTxMDw8c4f8nd55zJXk nUQS3QYmNOvWSa/VRkOfe3aPNfQyUtJq7tTUvyvd6L9ah0PFJtBdmk9TqVAO LbLlCkhxaU+PaxcvXgJTpkyB8eNvhmXLlikaT5ppcLqMm23Ww/NlSsfFM4Fv lOX7ZjpcYELenBpy7dTrveO3Quemm26Ttm2nI8sINSiK1DvgVWWbSDwJxWqt tQkHnJ2dw0PT58lMWRyHDRxGEKbUFQaPN45VFVk3cK73jJG0cQbXj7/FWsVD +rlZvqDoP95Iv5yNCXoxWVx1on8f0desRP5cvHjJOlwzmWLdN81xoS9rKFyl 0m2vRTNTdJScsePj8HsTmssmeGDt3HEMHp29U/7eu+cEjW9MzdCZ4+PZvxkb lJrZtBGbhlhcHDX4+BEbm0y0KZtpRMoWLEtSD5M9ShxkOuh6wauq7E7U/oSE 1gNajAmEQpUCZ9iky6chLmzbJN23SDoV26kgFyNXfBwy77pvEwxjOw4UkAQ+ nm6G/TnBcFNyHQ4jG3z8l3ZHGqTBuFgYLenHzHfNPL5LMDxDkD6G1Rwx/YUZ 9j2C4VHCQS6GQfg4aIZN54UYVJt1vVwIFeR+2wx7iNSIh8SO7WohusU+tCKm b5mxM4gl1wRXrtgPx46qnfanZtjDBMv1noIlwpzxnD1/Xu2caWbYLILhJtu8 6bCE5nIqYnrQDJtNMBQMBURBUWB8/IBd04/SYFwBXAlcEVbZN8w85li2e0Gu OxoiB7lfN8Me11SGEF1lXzXDniCVoevcseOo5Totld1vxs7VVNbZ2aiy+8yw JzVnF7epzG+GPUUwHCpVhkEuqWyqGfY0wdBro/fGYIPD3XvMsGc0U8Y4B9el Idy9y67uecTotAhy161VWVqBsrQvmRk9SzA9SxNW+UHij4HamtV9crb4tzg+ Ff/bzSSf0/zRlreUm+/pOXktkRwQSe7bYkoLns/Kv61TuAnJHxFJdveU532A hvJjfCdJec2knidSnPuRJxt3BaQWaN4NCxKyuj9weuwVkFpEpDg8WZ8YxIUZ TY8xern99jtg4kQVybhQW6xZjxWQvK12FZ9XToHXZaHmrXYri/OeK6k9hyZ9 9OhZjvCGFXfeahZ8GZFHXyjdqdhowhpHNCGPz4ZLfrl8bVN7WGx7tEz03Pi5 mHvrcJbBRlKlxaMbXbJYHNbYpEkfH47GXiTJMALJsMMW/rBQOCNtCD++wwxf QeuG0QJGtgue3yuVrsE87h0VIxworyRTQiHmz+uGaYHNMPeJ3dC772TDrnXp f2gxkm6T+0TYkMgxS+LYUMLvpfjlNo06ohzbERypr6IlwUAH82ksD2FujY9V /cear94jUI/HmYDTld/NigDz1e/unZKdTs1R2K8BJ9MMjXfoTgTXsrs41JDN SIIfswga7radCK5z8hj6OXxjXUznq2cnqgndW6zphxUv1U/oG4igitJtd8KO UfUGdg69l1enJpr3xusEs2It7eCeYIYlCYYHN8qtH9zj7W4xqS0fOlrcvriM 1nH9UTOjTcSIq1OoT9QrPv6IGZYiGB6haE9oV5yzfcgMe4tgem2ck4UPmmFb td2Eh69eUPyAGbaN91CPSht0lY0zw7ZrKuOCIofHY82wnTaVoclxeDzGDEuT 8tj3ou2j77Wyv8v6eHYRIwxw+RLjEF1itJkZZQh2UFMZFxRbzbBuXWXCCcl4 iiriLWbYHoJxbVxPkZs0CezVVoNzYUwd0JT/ywzrsZakKmN/utf5tRnRy6tB VzqU7f7KjMiRaHpFvLtbOan/MMMOECMshlup3bGzv7RrtY/G9ZJ/wQhBGOsv zJQHbK4FA2hhpz83IwYJIfjrJvozMyJvs06ODNA6f2qGHdZMFINJ0sdPzIiC Zp2oDyxcCH382Iw4qulDLzygPv7NDDuu+RJuvxG+5F/t+ijSuH09Df7+X8yU Tzr4jQMHSv9sRpTYZcjbiBzfRvyTGTFEk27IzNLK1f+jGVYmRujlMZGSl2iH z/yDQqhIAqqVijjGudexkcBZIsC3EW8m5XXa3xOBkdDfQY2X/gAEAyFI5EqO x+g5IoQXbFu2HOELtr8jQm1QzmchnS0QADtlvZAsOlZxz9t8DOVlf6NoMaIr LBtl6d3lVGRLq5g0HijysmLTIVgrUtgfPJWxynB/rUhaEVc+JcOZYGe/YiND NrVGo+WZqF9R4E7mCzvhbv7Kmqpc9EKXiGO8FBn7IVV0jGUuEG170TffWFBW g+uhJXbOhTzgjWYclXGBnulF3xFkYbKcvOOYVBAGFWhhlyzR810pbG1TqFJK 1tszFUctOTHhFjMMzbResIsWfQzzvL4IZHJZ6Aj7AHsWc861/ArR4no73XqM ose2qvIFy2IRX0h3QMDnBZ8/CB1p58DvHD1zS1m5jM31ZVw44TzOm3clU3bL W3kqaKGanZ+7Msp6yspdUbY+ijPulN1Wgztf8ETeQIW8/GC5bHez7A9styXc qMHHM5Zvz56tDpkFczIzpiKPiHq4WXpvVLiho1607sOi9UkzlQoZBF7z6rcd 3Zmi5yNErYeuTCmxKw6fGl9qIDXuGtFvS0Vud9xM7d8Jwcnba+oy9KgZ8WPi 71TPOWKG/YQYYdrCxRqRfh22W8BPaRyG2Cg+hjLnz1/Mmyn/TNtp6Fypfj1o RvycEJjoy8BHyCPkGjAjfqFNGierH7R9ZtgviVHDQXvkzAEz4j8J0dc3pPup nBnxK2v6qsIpj9Cek71mxK81B6IVMHvMCCDE3sY65V678nicbn8iRmjSlKwl DsoIcYmoj6jbBdaqKQXr0aiUt+ke/m0XLF//2dqPd7vAuAaKObtSj6wJpl1g 7Fhttb6dLrCxBDt2tB6gC4G3u8DG0broUToXALocVXYNMcIAXUv7m7TOaTl6 Y9ovVP+WC8ypJU6EWikXGLtKW1PKJhfYdQTLNnpYDmwwFEMDwI9wiwp36WnS SKaVXK6WZo6hLzWlyEF4PYUVhui8brkuQl9EjsNFeWvti8sLW6cIRisGtWFY LrcEioa3KXiACsNb30iyol2EG0lOdNgulMJ7iJ6A8VfR9JOcviIixzjVZbUa mtpRq4RqQtO3oa+jXj4RtWA5NpzEinSBvsARhkyhVC+ajrTscSLNHsMADH2u u+5mmPZgBDaqC6F1RBO/f5MGvzcCRSFJDr/M4pXralyDSfSBU7zyyKxnOf+g mqbVRpKKgD/WBdmOwLA5XB5rjZRT4eyEwgYqx1pfzkhFfArmu1I2o/SQzroj p1Ysz+pGdrVaXmlcsCtd0bqN1uM8+WNr1VrVaKrVfBJCkaTslzGyY1ti/U+Y IMNAdtq8KTD0EZuiw2W73kgf0N6R77gnTWbOuxpb+FZeAT328OXGG88VLqRu IDGw9IC9aDNC2+WRLOIXK2bG21AtFHjR0YNzTy2aF9ZzBgaG5PkulOHhY0Rv dentPdWkiVKS5OZIJKdd8C93gX2SJMHTh6/703T6LHXB/gGvYrleKDqULzdp p5SwzxCMa5mUHix2gX2WJLXlAzKSbdIcKbGfJ5a2GvQCF5iPYHhC1MtIl2KO OuXBWEFCz4cbSuSvP3Lh8UcEs93yP+cC07saOcTFvAILHvNdsF/S9MbxQz5f jrrA7ma9HVR6o2bkZ1xg92h6s5def+CC5W8RYikei9Bo2EJvT7nA+Lt8tmbk Jp2YWudHXYNUA5zrqO77WW9H6t5N6O0JFx5f1T0Z1QB3kyd7zAX7dWKJZzbn J4L9HBfYN22eiY7lR11gDzj4IbGgs11gDxIM3RmqC9V26lRllgtsmu6HuosN dwf8pRH0T5jbz3hoG8yPdsOiBVlPk5YnrQGr3pNEPorbP3A98GDAd26k/oxI YcyI9k9fJBnnQqpuMkzAFkmPvQJZuBcP++8wssb4RDg3LjZxQWbC9bfAwoVL mrSTSWrfIRiHH+hehSPhA9+tXPSAC3nuAFRffshzLZVjDLcKGpGnQnelXBYx admx0K31LbbZ23XlIMGKOzX0ShpzGAldEarm+gPg9wch2V92rCtqjZX1aitn tEuXLvM4NYQwmzYoZlOQTOfVJ7KFwIctBMYIS3V+jmroOX92/kKl4wlSx9TX akVpyaCI31NFemegO5NmILyc1cKFsxBmyPRaLAoliIqcINBQNpdUZmieAq8F vvedrejbiAAHr5WSCJpCKl7u7K8Y5/oIjY/9cI+cJyWOAUtHlVxn/V8bYCG/ 3blALqmpLsvRlu94aHqXTPYic3fr+eU3iTpKVYCwoBJJZKBYrrWZCIdJTFvx 7huWjnF0PhEGrz8E4XAIgsFIUx0/RgRttb2vNRCsVfPQEY1CNBaDaCQI4Y6s keDjpFx76Q9d6ldctuz3SRi9/icilCYtlRIWIZit4HKvC4z7KrngQjVBvaWy 7kW5m/JYYznwyy48ntZWg/ssuCZ4twuWGyRthcG7XGDzCYbFBjwwqEHyj11g 3FcpmyDrt2x3usB+SDD9Qu3EicoXXWAxgtmKhT4XGPdC2sz/C44q425H2z8l +JwLj0WayvibO1wx/IwLlrsNbRXDT7vAlrIB728w4E+5wLj50BYrfdIF9gLB OFainO0TLrB2Whd7rIQVg991wb5ELPEs3lDv0Z7iAltJMIx9tB5tvS2xrm5u /EMDtprpKeK/zYXRK8RI77gQy9OkjVLCVhOsl5rpU6oB4xYX2BrN8aCq6euH N7vAXiWYLWe7yQW2VrNne2f277hgXyOWeo+2cEE3usDWswuiHm2qSkxygW3Q 7Fm7pZjoqG7ukrNdUFzvwuNNZ8dznQtso4Pj6e8fatIlJ2GbNRekXVp8WMGs O/dqWfjPEunJQCqluyWqzPIXCqkPjk7rQgoLvX6IiJMaL8RzZfPxv8XZYV1L BEdBNZ+QqGRRFe7S2v8TMgZ4Xc7+7BqLajbu4yKpRKovaUXl952MVLk3D80j RRckYueNq1Nt98siZYWoZmWxN1anWg8emZatbnW1JqHAivi4M1uAQrYTvB75 T4maz5v7+dhFoo6ETY6x1JNPhlUAKaKySCgIkXiqaUl1F32AeSRmFviO/s+B R/2TIQyOhT7MiQnd8VH3Qq2UlrVcbzhh/HKZDqvXgEvQ1REFv88PsWTeKHCT G8X38rnnqv8GM7K4WA==\ \>"]] }, Open ]] }, Open ]] }, WindowSize->{640, 620}, WindowMargins->{{58, Automatic}, {Automatic, 28}}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (May 21, 2008)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 245, 3, 27, "SectionFirst"], Cell[816, 26, 79, 1, 45, "Input"], Cell[CellGroupData[{ Cell[920, 31, 149, 4, 54, "Subsubtitle"], Cell[1072, 37, 721, 18, 103, "Input"], Cell[CellGroupData[{ Cell[1818, 59, 445, 13, 45, "Input"], Cell[2266, 74, 581, 16, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2884, 95, 447, 9, 65, "Input"], Cell[3334, 106, 1304, 32, 323, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4687, 144, 259, 5, 75, "Subsubtitle"], Cell[CellGroupData[{ Cell[4971, 153, 4413, 140, 468, "Input"], Cell[CellGroupData[{ Cell[9409, 297, 610, 13, 25, "Print"], Cell[10022, 312, 583, 12, 25, "Print"] }, Open ]] }, Open ]], Cell[10632, 328, 776, 16, 45, "Input"], Cell[11411, 346, 1310, 30, 84, "Input"], Cell[CellGroupData[{ Cell[12746, 380, 767, 19, 84, "Input"], Cell[13516, 401, 2509, 51, 313, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16062, 457, 99, 1, 45, "Input"], Cell[16164, 460, 1039, 31, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17240, 496, 470, 10, 45, "Input"], Cell[17713, 508, 1749, 33, 315, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19499, 546, 148, 3, 45, "Input"], Cell[19650, 551, 11057, 195, 313, 3417, 67, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)