(* 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[ 73218, 1528] NotebookOptionsPosition[ 71363, 1461] NotebookOutlinePosition[ 71725, 1477] CellTagsIndexPosition[ 71682, 1474] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]", "=", RowBox[{ RowBox[{"s", "^", "4"}], "+", RowBox[{"s", "^", "3"}], "+", RowBox[{"5", " ", RowBox[{"s", "^", "2"}]}], "+", RowBox[{"K", " ", "s"}], " ", "+", "K"}]}]], "Input", CellChangeTimes->{{3.4482872836112967`*^9, 3.448287313204668*^9}, { 3.4482876433254423`*^9, 3.448287655075292*^9}, 3.4482878287136946`*^9, { 3.4482883142387295`*^9, 3.448288316879321*^9}}], Cell[BoxData[ RowBox[{"K", "+", RowBox[{"K", " ", "s"}], "+", RowBox[{"5", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "3"], "+", SuperscriptBox["s", "4"]}]], "Output", CellChangeTimes->{ 3.448287314126531*^9, {3.4482876241694374`*^9, 3.4482876555127864`*^9}, 3.448287828963691*^9, 3.4482883174730635`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RootGrainPoly", "[", RowBox[{ RowBox[{"Gain_", "?", "NumberQ"}], ",", "P_", ",", "s_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "sol", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"P", "/.", RowBox[{"K", "->", "Gain"}]}], ")"}], "\[Equal]", "0"}], ",", "s"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "#", "]"}], ",", RowBox[{"Im", "[", "#", "]"}]}], "}"}], ",", "0.05"}], "]"}], "&"}], ",", RowBox[{"s", "/.", "sol"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44828732906384*^9, 3.448287355626*^9}, { 3.448287455937216*^9, 3.4482875655920625`*^9}, 3.448287599169758*^9, { 3.4482876307631035`*^9, 3.4482876321693354`*^9}, {3.4482877122776847`*^9, 3.4482878525258894`*^9}, {3.448287903415863*^9, 3.4482879074001875`*^9}, { 3.4482884056125603`*^9, 3.448288425784177*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"RootGrainPoly", "[", RowBox[{"1", ",", "\[CapitalDelta]", ",", "s"}], "]"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.448287364297764*^9, 3.4482874089378176`*^9}, { 3.448287573310714*^9, 3.4482876047321863`*^9}, {3.448287673059437*^9, 3.4482876740281744`*^9}, 3.4482878346823683`*^9, {3.4482879150563393`*^9, 3.4482879944459476`*^9}}], Cell[BoxData[ GraphicsBox[{ PointBox[NCache[{ Rational[-5, 3] + Rational[1, 3] 2^Rational[-2, 3] (58 - 3 78^Rational[1, 2])^Rational[1, 3] + Rational[11, 3] (2 (58 - 3 78^Rational[1, 2]))^Rational[-1, 3], 2^Rational[-2, 3] 3^Rational[-1, 2] (58 - 3 78^Rational[1, 2])^Rational[1, 3] - 11 3^Rational[-1, 2] (2 (58 - 3 78^Rational[1, 2]))^ Rational[-1, 3]}, {-0.0820120404593403, -0.44727789990956524`}]], PointBox[NCache[{ Rational[-5, 3] + Rational[1, 3] 2^Rational[-2, 3] (58 - 3 78^Rational[1, 2])^Rational[1, 3] + Rational[11, 3] (2 (58 - 3 78^Rational[1, 2]))^Rational[-1, 3], -2^ Rational[-2, 3] 3^Rational[-1, 2] (58 - 3 78^Rational[1, 2])^Rational[1, 3] + 11 3^Rational[-1, 2] (2 (58 - 3 78^Rational[1, 2]))^ Rational[-1, 3]}, {-0.0820120404593403, 0.44727789990956524`}]], PointBox[NCache[{ Rational[1, 3] (-5 - 11 2^Rational[2, 3] (58 - 3 78^Rational[1, 2])^Rational[-1, 3] - ( 2 (58 - 3 78^Rational[1, 2]))^Rational[1, 3]), 0}, {-4.835975919081319, 0}]]}, Axes->Automatic, ImageSize->{200.77013679065132`, Automatic}, PlotRange->{{-3, 0}, {-2, 2}}]], "Output", CellChangeTimes->{{3.448287605763423*^9, 3.4482876743406706`*^9}, { 3.448287747495984*^9, 3.4482878544008656`*^9}, {3.448287909462661*^9, 3.448287936181069*^9}, {3.4482879782274055`*^9, 3.448287994758444*^9}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXL1PHEcUX7i75ZY7QRQS7HQoRe64s5OUKG5cJTT3PxhZkc5FlJNj4cRB wk06JKSkQKKhpKehQpSU0CFKSjo6SrK/2XnH7O6bjxO2Ocwbwd7u/N7XvPna 2Xm7vZU3/V9/W3nz6uXKwi+vVwb9Vy//WPj599dpVmUiiib+jaLJyYUI59dR RIfr9O/6PxyQc8vzVXVeiXq9XkSpqo6V6OzsTKH4n2N4Li4uhnzEs7e3x/K8 1TyQeXJyoq4mdd7R0VHU7/fV1VcGz58aPzg4GNry2MD/0vj29rayBVePDFxJ bMCuWFNeXl4qi3GV4FiDSxOD552m3N3djTY2NtRVPcvT3s/K1mB4YCPS+fm5 l+dvzYME+3E15eEhv8NfhCsfToLDp3FV64A2kgB/oKRI8EuYjKzmKVX0EbVE PLFHTtYaaspjqHkk/EJG4uH9R3DBFTx2VgkuuPQKwQWXVi+44NIrBH8wuFrT xUB9q8hsXV9Vq09K6blv4aeW+2qpO/2xKEuPAwqPED6u9rGlfJtRrq2thZPr +sWTBjxx6PV6Pra7bsCCjwEu05bggkuv+MzxbMug2t/a2nq/vr4+2NzcrF9d Xfl2ALIdj3h/eXkZNPR/tLS0BHbfY3e9ofL88PCQWDV15cXOzs6QpxomB9YX 5aA0o8ppn56eFuUs7+/vB8vJ3FKDF023bA4GA++myrsbG+CXH4+Pj703sNKn BRd87HvFjPqpqT1pSrTLWAOmljTqLB1iiAr7oCnFYibXuzGuZFQYTWm2IhxJ kMWYDrLjjIfsdunk6C2iu3x2NUjP9z7nV5U8bDFrWIms5s/StTWEgxJLRgor SPPa2ne+SAPD0FgtN6ERspCDcINRZXns6ujCFZ5gFJ1mtcXL79G/6IaLjcRq x1N7/X2p3UUmgrtuuBAJHckM4kACRq72BXs0jDzqCq1A3jjQlk7mizTNMtoW h+h0oLxWIF2T0da1u3tOk1MXxJW+dRlGaCCuhFThnKqFRhgzTmbWoENvxVWb oZsO1FF2oym57EafvFYgXZPR5nAjtVoKxUGiVgt2YqkY7s4VohBONFMwyUaX jKKj5Mac5JwbffK+C6RrMNocbtQyKCU40PyBTknq0s5YH9pcHZ59gzNr4BX5 FM2QdD92ciR+HTmfOiTfeNcqr8KgTUayw3/FykVScgpzfsyo6ho9gyLQSD18 T9XK0XGVcdNzZxgpHadTWkxeg5HyxO6KL3SzQX2S91JWrkqpRGYcXdYRskgx GiuQcM3Ruz3QdEgb3ROJQ5rDIzRG0WwGzxTHKORx/bhr5BXCBocVYjY2487L yevTWx6ZfNrsY5lNR3Ess9HFo5XXN9tS3yFX0H2ub+biozAT3dwpqhGOTtvD opOpHqj6pok2eDVPSk4PLY2Prs4r9C4AfEWm20voL95GQX9L140rapUmXwwv 1AA6AXyhNhTdntf0tOTzsDL56eqMth98Dp9S9ySm06lq0dAT3YNo4QBamIFq TVWYayRKXHxvXY985pqWSlK8QbbJmHKboscP2nNsOjS286SNAMF2eNqhyDGo z2o2SKMBjJa+1FlReuTlFpF8EHRDYzRjUgLe9vJZVJV2ZJteLRaWkoIun+0q hsOZ4/M46m5w9RIETqJVHHRAwhzDwO2pc3EUXN5teD+0PLFlvGzJ3yfd++KI LeNvi6PJzTN53zJ53N0opypUHsd7GzpOL8fruKvm3POMyfvpE9CNyWwpuOCy pS74Q8U/eKuX4CRDzsMMThJ8vHGZ6QQXXHqF4HeKf5bvvN2Xt9LkTTfB7zEu k5XgDw+XVi+44NIrBBdcWr3gnxQP/dhtLVCO71Uyn5zQj+IGbp1wL/ZYebiP 5wY9jeDezQj6jO48g5uh+ybOfR73a6YG+ODi+RKlOxC4TO8PXzU/VOz6nK35 QeIRPs4cTfwPO5B5+Q==\ \>"]] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"RootGrainPoly", "[", RowBox[{"K", ",", "\[CapitalDelta]", ",", "s"}], "]"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"K", ",", "0", ",", "15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.448288016086296*^9, 3.4482880520545855`*^9}, { 3.4482881008977103`*^9, 3.448288110553837*^9}, {3.448288181334181*^9, 3.4482882048963795`*^9}, {3.448288337363434*^9, 3.448288353378854*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{K$$ = 12.55984354019165, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[K$$], 0, 15}}, Typeset`size$$ = {283., {266., 274.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, K$7093$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {K$$ = 0}, "ControllerVariables" :> { Hold[K$$, K$7093$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Graphics[ $CellContext`RootGrainPoly[ K$$, $CellContext`\[CapitalDelta], $CellContext`s]], Axes -> Automatic, PlotRange -> {{-2, 1}, {-3, 3}}], "Specifications" :> {{ K$$, 0, 15, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{406., {308.5, 315.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4482881443346543`*^9, 3.44828841967488*^9}, 3.4482884842365537`*^9, {3.4482887096242933`*^9, 3.4482887144836063`*^9}}] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RootTracePoly", "[", RowBox[{ RowBox[{"Gain_", "?", "NumberQ"}], ",", "P_", ",", "s_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "sol", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"s", "/.", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"P", "\[Equal]", "0"}], ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"K", ",", "0", ",", "Gain", ",", RowBox[{"Gain", "/", "100"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Map", "[", RowBox[{"Point", ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "#", "]"}], ",", RowBox[{"Im", "[", "#", "]"}]}], "}"}], "]"}]}], "]"}], "&"}], ",", "sol"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44828849854887*^9, 3.4482886492656913`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"RootTracePoly", "[", RowBox[{"60.", ",", "\[CapitalDelta]", ",", "s"}], "]"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.448288666077976*^9, 3.4482886969682055`*^9}}], Cell[BoxData[ GraphicsBox[{{PointBox[{-0.5, -2.1794494717703365`}], PointBox[{-0.5, 2.1794494717703365`}], PointBox[{0., 0}], PointBox[{0., 0}]}, { PointBox[{-0.44905570078982426`, -2.1404202128460392`}], PointBox[{-0.44905570078982426`, 2.1404202128460392`}], PointBox[{-0.050944299210175764`, -0.35049630022864875`}], PointBox[{-0.050944299210175764`, 0.35049630022864875`}]}, { PointBox[{-0.39112352294541325`, -2.1009344770651057`}], PointBox[{-0.39112352294541325`, 2.1009344770651057`}], PointBox[{-0.10887647705458676`, -0.5009052011471021}], PointBox[{-0.10887647705458676`, 0.5009052011471021}]}, { PointBox[{-0.3242520314460472, -2.062519656351981}], PointBox[{-0.3242520314460472, 2.062519656351981}], PointBox[{-0.17574796855395283`, -0.6180933550115505}], PointBox[{-0.17574796855395283`, 0.6180933550115505}]}, { PointBox[{-0.25346848475879896`, -0.7145435197347849}], PointBox[{-0.25346848475879896`, 0.7145435197347849}], PointBox[{-0.24653151524120104`, -2.0284111070436555`}], PointBox[{-0.24653151524120104`, 2.0284111070436555`}]}, { PointBox[{-0.34214010325477245`, -0.7906975921694879}], PointBox[{-0.34214010325477245`, 0.7906975921694879}], PointBox[{-0.15785989674522755`, -2.004189840058315}], PointBox[{-0.15785989674522755`, 2.004189840058315}]}, { PointBox[{-0.4372122018208128, -0.8436256155589882}], PointBox[{-0.4372122018208128, 0.8436256155589882}], PointBox[{-0.06278779817918723, -1.9958438410341404`}], PointBox[{-0.06278779817918723, 1.9958438410341404`}]}, { PointBox[{-0.5303471295446985, -0.8738694706200332}], PointBox[{-0.5303471295446985, 0.8738694706200332}], PointBox[{0.030347129544698537`, -2.004629934528108}], PointBox[{0.030347129544698537`, 2.004629934528108}]}, { PointBox[{-0.615379286485705, -0.8869990404780028}], PointBox[{-0.615379286485705, 0.8869990404780028}], PointBox[{0.11537928648570495`, -2.0261383832741306`}], PointBox[{0.11537928648570495`, 2.0261383832741306`}]}, { PointBox[{-0.6907203979179567, -0.8892659465412938}], PointBox[{-0.6907203979179567, 0.8892659465412938}], PointBox[{0.1907203979179567, -2.054914843638038}], PointBox[{0.1907203979179567, 2.054914843638038}]}, { PointBox[{-0.7572573717821901, -0.8850093918532523}], PointBox[{-0.7572573717821901, 0.8850093918532523}], PointBox[{0.2572573717821901, -2.087193919784716}], PointBox[{0.2572573717821901, 2.087193919784716}]}, { PointBox[{-0.8164634040726746, -0.8767789665513731}], PointBox[{-0.8164634040726746, 0.8767789665513731}], PointBox[{0.3164634040726746, -2.120853653631082}], PointBox[{0.3164634040726746, 2.120853653631082}]}, { PointBox[{-0.8696942522971685, -0.8660234051745893}], PointBox[{-0.8696942522971685, 0.8660234051745893}], PointBox[{0.36969425229716846`, -2.1547727013191214`}], PointBox[{0.36969425229716846`, 2.1547727013191214`}]}, { PointBox[{-0.9180429612123636, -0.8535792841728209}], PointBox[{-0.9180429612123636, 0.8535792841728209}], PointBox[{0.4180429612123636, -2.1883704443447827`}], PointBox[{0.4180429612123636, 2.1883704443447827`}]}, { PointBox[{-0.9623600493214974, -0.8399443002727902}], PointBox[{-0.9623600493214974, 0.8399443002727902}], PointBox[{0.46236004932149743`, -2.2213525726858188`}], PointBox[{0.46236004932149743`, 2.2213525726858188`}]}, { PointBox[{-1.003304961094103, -0.8254232923574342}], PointBox[{-1.003304961094103, 0.8254232923574342}], PointBox[{0.5033049610941029, -2.253577848056683}], PointBox[{0.5033049610941029, 2.253577848056683}]}, { PointBox[{-1.0413931542679242`, -0.8102071609198894}], PointBox[{-1.0413931542679242`, 0.8102071609198894}], PointBox[{0.5413931542679242, -2.2849880974828736`}], PointBox[{0.5413931542679242, 2.2849880974828736`}]}, { PointBox[{-1.077032487272279, -0.7944167829829175}], PointBox[{-1.077032487272279, 0.7944167829829175}], PointBox[{0.577032487272279, -2.315570652112048}], PointBox[{0.577032487272279, 2.315570652112048}]}, { PointBox[{-1.110549977627049, -0.7781282638810684}], PointBox[{-1.110549977627049, 0.7781282638810684}], PointBox[{0.6105499776270491, -2.3453377012569563`}], PointBox[{0.6105499776270491, 2.3453377012569563`}]}, { PointBox[{-1.142211247539679, -0.7613879090893194}], PointBox[{-1.142211247539679, 0.7613879090893194}], PointBox[{0.6422112475396791, -2.3743146953100416`}], PointBox[{0.6422112475396791, 2.3743146953100416`}]}, { PointBox[{-1.1722346973283204`, -0.7442213276593845}], PointBox[{-1.1722346973283204`, 0.7442213276593845}], PointBox[{0.6722346973283204, -2.4025337228370844`}], PointBox[{0.6722346973283204, 2.4025337228370844`}]}, { PointBox[{-1.2008019317554852`, -0.7266390599796152}], PointBox[{-1.2008019317554852`, 0.7266390599796152}], PointBox[{0.7008019317554852, -2.4300296918704234`}], PointBox[{0.7008019317554852, 2.4300296918704234`}]}, { PointBox[{-1.2280655205376902`, -0.7086400657032146}], PointBox[{-1.2280655205376902`, 0.7086400657032146}], PointBox[{0.7280655205376902, -2.4568381269854696`}], PointBox[{0.7280655205376902, 2.4568381269854696`}]}, { PointBox[{-1.2541548475379998`, -0.6902138352540801}], PointBox[{-1.2541548475379998`, 0.6902138352540801}], PointBox[{0.7541548475379998, -2.4829939140666415`}], PointBox[{0.7541548475379998, 2.4829939140666415`}]}, { PointBox[{-1.279180574825511, -0.6713415662630132}], PointBox[{-1.279180574825511, 0.6713415662630132}], PointBox[{0.779180574825511, -2.5085306082652976`}], PointBox[{0.779180574825511, 2.5085306082652976`}]}, { PointBox[{-1.303238090924631, -0.651996656539194}], PointBox[{-1.303238090924631, 0.651996656539194}], PointBox[{0.803238090924631, -2.533480079300178}], PointBox[{0.803238090924631, 2.533480079300178}]}, { PointBox[{-1.3264102050098148`, -0.6321446458581629}], PointBox[{-1.3264102050098148`, 0.6321446458581629}], PointBox[{0.8264102050098148, -2.55787235913198}], PointBox[{0.8264102050098148, 2.55787235913198}]}, { PointBox[{-1.348769274646014, -0.611742655632888}], PointBox[{-1.348769274646014, 0.611742655632888}], PointBox[{0.848769274646014, -2.5817356102226032`}], PointBox[{0.848769274646014, 2.5817356102226032`}]}, { PointBox[{-1.3703789031023712`, -0.5907383073797478}], PointBox[{-1.3703789031023712`, 0.5907383073797478}], PointBox[{0.8703789031023712, -2.60509616429564}], PointBox[{0.8703789031023712, 2.60509616429564}]}, { PointBox[{-1.3912953060233753`, -0.569068032153716}], PointBox[{-1.3912953060233753`, 0.569068032153716}], PointBox[{0.8912953060233753, -2.6279786007276917`}], PointBox[{0.8912953060233753, 2.6279786007276917`}]}, { PointBox[{-1.4115684214869997`, -0.5466545981795257}], PointBox[{-1.4115684214869997`, 0.5466545981795257}], PointBox[{0.9115684214869997, -2.650405845503813}], PointBox[{0.9115684214869997, 2.650405845503813}]}, { PointBox[{-1.431242818971284, -0.5234035616250498}], PointBox[{-1.431242818971284, 0.5234035616250498}], PointBox[{0.931242818971284, -2.6723992790039186`}], PointBox[{0.931242818971284, 2.6723992790039186`}]}, { PointBox[{-1.4503584493025774`, -0.49919815075515445`}], PointBox[{-1.4503584493025774`, 0.49919815075515445`}], PointBox[{0.9503584493025774, -2.693978845482423}], PointBox[{0.9503584493025774, 2.693978845482423}]}, { PointBox[{-1.4689512677817396`, -0.47389176088611146`}], PointBox[{-1.4689512677817396`, 0.47389176088611146`}], PointBox[{0.9689512677817396, -2.7151631599993546`}], PointBox[{0.9689512677817396, 2.7151631599993546`}]}, { PointBox[{-1.4870537553555905`, -0.44729663345340764`}], PointBox[{-1.4870537553555905`, 0.44729663345340764`}], PointBox[{0.9870537553555905, -2.7359696103904345`}], PointBox[{0.9870537553555905, 2.7359696103904345`}]}, { PointBox[{-1.504695357208895, -0.4191661269734948}], PointBox[{-1.504695357208895, 0.4191661269734948}], PointBox[{1.004695357208895, -2.7564144530170265`}], PointBox[{1.004695357208895, 2.7564144530170265`}]}, { PointBox[{-1.5219028539981054`, -0.3891655770790197}], PointBox[{-1.5219028539981054`, 0.3891655770790197}], PointBox[{1.0219028539981054`, -2.7765129017589323`}], PointBox[{1.0219028539981054`, 2.7765129017589323`}]}, { PointBox[{-1.5387006777780456`, -0.35682131753398943`}], PointBox[{-1.5387006777780456`, 0.35682131753398943`}], PointBox[{1.0387006777780456`, -2.7962792101584735`}], PointBox[{1.0387006777780456`, 2.7962792101584735`}]}, { PointBox[{-1.555111182233203, -0.3214238367296308}], PointBox[{-1.555111182233203, 0.3214238367296308}], PointBox[{1.055111182233203, -2.815726746891875}], PointBox[{1.055111182233203, 2.815726746891875}]}, { PointBox[{-1.5711548749329203`, -0.28182168430396765`}], PointBox[{-1.5711548749329203`, 0.28182168430396765`}], PointBox[{1.0711548749329203`, -2.834868064897221}], PointBox[{1.0711548749329203`, 2.834868064897221}]}, { PointBox[{-1.5868506178507258`, -0.23590262799336642`}], PointBox[{-1.5868506178507258`, 0.23590262799336642`}], PointBox[{1.0868506178507258`, -2.8537149645683884`}], PointBox[{1.0868506178507258`, 2.8537149645683884`}]}, { PointBox[{-1.60221580122374, -0.17886047353126439`}], PointBox[{-1.60221580122374, 0.17886047353126439`}], PointBox[{1.10221580122374, -2.872278551458144}], PointBox[{1.10221580122374, 2.872278551458144}]}, { PointBox[{-1.617266494905295, -0.09189408047763847}], PointBox[{-1.617266494905295, 0.09189408047763847}], PointBox[{1.117266494905295, -2.890569288938494}], PointBox[{1.117266494905295, 2.890569288938494}]}, { PointBox[{-1.7544577339584921`, 0}], PointBox[{-1.5095774272971674`, 0}], PointBox[{1.1320175806278296`, -2.9085970462538184`}], PointBox[{1.1320175806278296`, 2.9085970462538184`}]}, { PointBox[{-1.8422359310808558`, 0}], PointBox[{-1.4507298049238402`, 0}], PointBox[{1.146482868002348, -2.926371142379713}], PointBox[{1.146482868002348, 2.926371142379713}]}, { PointBox[{-1.9087486988001574`, 0}], PointBox[{-1.4126016944075186`, 0}], PointBox[{1.160675196603838, -2.9439003860726163`}], PointBox[{1.160675196603838, 2.9439003860726163`}]}, { PointBox[{-1.9655655281483915`, 0}], PointBox[{-1.3836475240614776`, 0}], PointBox[{1.1746065261049345`, -2.961193112465255}], PointBox[{1.1746065261049345`, 2.961193112465255}]}, { PointBox[{-2.016420936261272, 0}], PointBox[{-1.3601550959471862`, 0}], PointBox[{1.188288016104229, -2.97825721653266}], PointBox[{1.188288016104229, 2.97825721653266}]}, { PointBox[{-2.063094955954662, 0}], PointBox[{-1.3403652381184485`, 0}], PointBox[{1.2017300970365552`, -2.9951001837241495`}], PointBox[{1.2017300970365552`, 2.9951001837241495`}]}, { PointBox[{-2.1066044135508526`, 0}], PointBox[{-1.3232806531273715`, 0}], PointBox[{1.2149425333391122`, -3.011729118028882}], PointBox[{1.2149425333391122`, 3.011729118028882}]}, { PointBox[{-2.1475967469891177`, 0}], PointBox[{-1.3082722127519806`, 0}], PointBox[{1.2279344798705492`, -3.028150767716753}], PointBox[{1.2279344798705492`, 3.028150767716753}]}, { PointBox[{-2.186515490013114, 0}], PointBox[{-1.2949135748533087`, 0}], PointBox[{1.2407145324332114`, -3.0443715489726766`}], PointBox[{1.2407145324332114`, 3.0443715489726766`}]}, { PointBox[{-2.2236810098087143`, 0}], PointBox[{-1.28290053644339, 0}], PointBox[{1.2532907731260523`, -3.060397567620622}], PointBox[{1.2532907731260523`, 3.060397567620622}]}, { PointBox[{-2.2593341978083177`, 0}], PointBox[{-1.272007424497476, 0}], PointBox[{1.265670811152897, -3.0762346391141655`}], PointBox[{1.265670811152897, 3.0762346391141655`}]}, { PointBox[{-2.293661996960012, 0}], PointBox[{-1.262061642288373, 0}], PointBox[{1.2778618196241927`, -3.0918883069526233`}], PointBox[{1.2778618196241927`, 3.0918883069526233`}]}, { PointBox[{-2.326813227709476, 0}], PointBox[{-1.2529279099251214`, 0}], PointBox[{1.2898705688172987`, -3.1073638596658784`}], PointBox[{1.2898705688172987`, 3.1073638596658784`}]}, { PointBox[{-2.3589088753014287`, 0}], PointBox[{-1.244498037295448, 0}], PointBox[{1.3017034562984384`, -3.122666346496746}], PointBox[{1.3017034562984384`, 3.122666346496746}]}, { PointBox[{-2.3900490410493545`, 0}], PointBox[{-1.2366840274641162`, 0}], PointBox[{1.3133665342567353`, -3.1378005918968865`}], PointBox[{1.3133665342567353`, 3.1378005918968865`}]}, { PointBox[{-2.420317793837823, 0}], PointBox[{-1.2294132748738644`, 0}], PointBox[{1.3248655343558435`, -3.152771208940799}], PointBox[{1.3248655343558435`, 3.152771208940799}]}, { PointBox[{-2.449786650323199, 0}], PointBox[{-1.222625130417176, 0}], PointBox[{1.3362058903701874`, -3.167582611752166}], PointBox[{1.3362058903701874`, 3.167582611752166}]}, { PointBox[{-2.4785171310120364`, 0}], PointBox[{-1.2162683866676307`, 0}], PointBox[{1.3473927588398336`, -3.1822390270276095`}], PointBox[{1.3473927588398336`, 3.1822390270276095`}]}, { PointBox[{-2.5065626764863755`, 0}], PointBox[{-1.2102993994127822`, 0}], PointBox[{1.358431037949579, -3.1967445047347014`}], PointBox[{1.358431037949579, 3.1967445047347014`}]}, { PointBox[{-2.533970110026335, 0}], PointBox[{-1.2046806596002695`, 0}], PointBox[{1.3693253848133025`, -3.2111029280536942`}], PointBox[{1.3693253848133025`, 3.2111029280536942`}]}, { PointBox[{-2.560780771922868, 0}], PointBox[{-1.1993796907239085`, 0}], PointBox[{1.3800802313233884`, -3.225318022625838}], PointBox[{1.3800802313233884`, 3.225318022625838}]}, { PointBox[{-2.5870314117509094`, 0}], PointBox[{-1.1943681856622712`, 0}], PointBox[{1.3906997987065903`, -3.2393933651652427`}], PointBox[{1.3906997987065903`, 3.2393933651652427`}]}, { PointBox[{-2.612754899245286, 0}], PointBox[{-1.1896213225780568`, 0}], PointBox[{1.4011881109116713`, -3.253332391485924}], PointBox[{1.4011881109116713`, 3.253332391485924}]}, { PointBox[{-2.6379807972031655`, 0}], PointBox[{-1.1851172166771575`, 0}], PointBox[{1.4115490069401615`, -3.267138403990928}], PointBox[{1.4115490069401615`, 3.267138403990928}]}, { PointBox[{-2.6627358280296813`, 0}], PointBox[{-1.1808364764090085`, 0}], PointBox[{1.421786152219345, -3.2808145786661225`}], PointBox[{1.421786152219345, 3.2808145786661225`}]}, { PointBox[{-2.687044257296569, 0}], PointBox[{-1.176761840915201, 0}], PointBox[{1.431903049105885, -3.29436397161744}], PointBox[{1.431903049105885, 3.29436397161744}]}, { PointBox[{-2.710928211826663, 0}], PointBox[{-1.1728778813714795`, 0}], PointBox[{1.4419030465990712`, -3.307789525186837}], PointBox[{1.4419030465990712`, 3.307789525186837}]}, { PointBox[{-2.7344079455937216`, 0}], PointBox[{-1.1691707530750983`, 0}], PointBox[{1.45178934933441, -3.321094073679179}], PointBox[{1.45178934933441, 3.321094073679179}]}, { PointBox[{-2.75750206363894, 0}], PointBox[{-1.1656279882030027`, 0}], PointBox[{1.4615650259209714`, -3.3342803487293873`}], PointBox[{1.4615650259209714`, 3.3342803487293873`}]}, { PointBox[{-2.7802277119184957`, 0}], PointBox[{-1.1622383214404213`, 0}], PointBox[{1.4712330166794585`, -3.347350984336695}], PointBox[{1.4712330166794585`, 3.347350984336695}]}, { PointBox[{-2.8026007392826733`, 0}], PointBox[{-1.1589915423818555`, 0}], PointBox[{1.4807961408322645`, -3.3603085215905337`}], PointBox[{1.4807961408322645`, 3.3603085215905337`}]}, { PointBox[{-2.824635836488728, 0}], PointBox[{-1.1558783698946802`, 0}], PointBox[{1.490257103191704, -3.373155413110506}], PointBox[{1.490257103191704, 3.373155413110506}]}, { PointBox[{-2.846346656156099, 0}], PointBox[{-1.1528903446201557`, 0}], PointBox[{1.4996185003881273`, -3.3858940272210276`}], PointBox[{1.4996185003881273`, 3.3858940272210276`}]}, { PointBox[{-2.8677459168049904`, 0}], PointBox[{-1.1500197365462335`, 0}], PointBox[{1.508882826675612, -3.398526651879512}], PointBox[{1.508882826675612, 3.398526651879512}]}, { PointBox[{-2.888845493521154, 0}], PointBox[{-1.1472594651775618`, 0}], PointBox[{1.518052479349358, -3.411055498375426}], PointBox[{1.518052479349358, 3.411055498375426}]}, { PointBox[{-2.9096564973196966`, 0}], PointBox[{-1.1446030302917627`, 0}], PointBox[{1.5271297638057295`, -3.4234827048161423`}], PointBox[{1.5271297638057295`, 3.4234827048161423`}]}, { PointBox[{-2.930189344908568, 0}], PointBox[{-1.1420444516375101`, 0}], PointBox[{1.5361168982730389`, -3.435810339414247}], PointBox[{1.5361168982730389`, 3.435810339414247}]}, { PointBox[{-2.9504538202555386`, 0}], PointBox[{-1.139578216221671, 0}], PointBox[{1.5450160182386048`, -3.4480404035897845`}], PointBox[{1.5450160182386048`, 3.4480404035897845`}]}, { PointBox[{-2.970459129124133, 0}], PointBox[{-1.1371992320665445`, 0}], PointBox[{1.5538291805953388`, -3.460174834899879}], PointBox[{1.5538291805953388`, 3.460174834899879}]}, { PointBox[{-2.990213947551342, 0}], PointBox[{-1.1349027875067539`, 0}], PointBox[{1.562558367529048, -3.472215509807194}], PointBox[{1.562558367529048, 3.472215509807194}]}, { PointBox[{-3.0097264650833093`, 0}], PointBox[{-1.132684515248269, 0}], PointBox[{1.571205490165789, -3.4841642462978344`}], PointBox[{1.571205490165789, 3.4841642462978344`}]}, { PointBox[{-3.0290044234571036`, 0}], PointBox[{-1.1305403605367914`, 0}], PointBox[{1.5797723919969475`, -3.4960228063584533`}], PointBox[{1.5797723919969475`, 3.4960228063584533`}]}, { PointBox[{-3.048055151311374, 0}], PointBox[{-1.1284665528850286`, 0}], PointBox[{1.5882608520982013`, -3.5077928983216378`}], PointBox[{1.5882608520982013`, 3.5077928983216378`}]}, { PointBox[{-3.0668855954216365`, 0}], PointBox[{-1.1264595808927118`, 0}], PointBox[{1.5966725881571742`, -3.519476179087931}], PointBox[{1.5966725881571742`, 3.519476179087931}]}, { PointBox[{-3.0855023488836704`, 0}], PointBox[{-1.1245161697630277`, 0}], PointBox[{1.6050092593233491`, -3.531074256232268}], PointBox[{1.6050092593233491`, 3.531074256232268}]}, { PointBox[{-3.103911676608167, 0}], PointBox[{-1.1226332611772343`, 0}], PointBox[{1.6132724688927005`, -3.5425886900020056`}], PointBox[{1.6132724688927005`, 3.5425886900020056`}]}, { PointBox[{-3.1221195384392297`, 0}], PointBox[{-1.1208079952377485`, 0}], PointBox[{1.6214637668384893`, -3.554020995213237}], PointBox[{1.6214637668384893`, 3.554020995213237}]}, { PointBox[{-3.1401316101667844`, 0}], PointBox[{-1.1190376942307179`, 0}], PointBox[{1.6295846521987511`, -3.5653726430515853`}], PointBox[{1.6295846521987511`, 3.5653726430515853`}]}, { PointBox[{-3.1579533026669724`, 0}], PointBox[{-1.1173198479933657`, 0}], PointBox[{1.637636575330169, -3.5766450627832365`}], PointBox[{1.637636575330169, 3.5766450627832365`}]}, { PointBox[{-3.175589779374133, 0}], PointBox[{-1.1156521007003937`, 0}], PointBox[{1.6456209400372632`, -3.5878396433815785`}], PointBox[{1.6456209400372632`, 3.5878396433815785`}]}, { PointBox[{-3.1930459722619826`, 0}], PointBox[{-1.1140322389083075`, 0}], PointBox[{1.6535391055851452`, -3.598957735074432}], PointBox[{1.6535391055851452`, 3.598957735074432}]}, { PointBox[{-3.210326596489403, 0}], PointBox[{-1.1124581807174683`, 0}], PointBox[{1.6613923886034356`, -3.610000650816514}], PointBox[{1.6613923886034356`, 3.610000650816514}]}, { PointBox[{-3.227436163847239, 0}], PointBox[{-1.1109279659295437`, 0}], PointBox[{1.6691820648883913`, -3.620969667691479}], PointBox[{1.6691820648883913`, 3.620969667691479}]}, { PointBox[{-3.2443789951261177`, 0}], PointBox[{-1.1094397470933568`, 0}], PointBox[{1.6769093711097371`, -3.6318660282475617`}], PointBox[{1.6769093711097371`, 3.6318660282475617`}]}, { PointBox[{-3.2611592315111912`, 0}], PointBox[{-1.1079917813452829`, 0}], PointBox[{1.684575506428237, -3.642690941770607}], PointBox[{1.684575506428237, 3.642690941770607}]}, { PointBox[{-3.277780845097465, 0}], PointBox[{-1.1065824229616876`, 0}], PointBox[{1.6921816340295763`, -3.6534455854979986`}], PointBox[{1.6921816340295763`, 3.6534455854979986`}]}, { PointBox[{-3.294247648608775, 0}], PointBox[{-1.1052101165507084`, 0}], PointBox[{1.6997288825797416`, -3.6641311057767862`}], PointBox[{1.6997288825797416`, 3.6641311057767862`}]}, { PointBox[{-3.3105633043942397`, 0}], PointBox[{-1.103873390819162, 0}], PointBox[{1.7072183476067009`, -3.674748619169086}], PointBox[{1.7072183476067009`, 3.674748619169086}]}}, Axes->Automatic, PlotRange->{{-2, 1}, {-3, 3}}]], "Output", CellChangeTimes->{{3.4482886687810664`*^9, 3.4482886976869464`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"s", "^", "2"}], "+", "s", "+", "5."}], "\[Equal]", RowBox[{"0", "s"}]}], ","}], "]"}]], "Input", CellChangeTimes->{{3.4482889579023657`*^9, 3.448288971183446*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ RowBox[{"-", "0.5`"}], "-", RowBox[{"2.1794494717703365`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ RowBox[{"-", "0.5`"}], "+", RowBox[{"2.1794494717703365`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4482889675584917`*^9, 3.4482889716521893`*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"(*", " ", RowBox[{"P", " ", "7.1", " ", "c"}], " ", "*)"}], FontSize->18, FontColor->RGBColor[0, 1, 1]]], "Input", CellChangeTimes->{{3.4482904403677645`*^9, 3.4482904545238333`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"s", RowBox[{"(", RowBox[{"s", "+", "2"}], ")"}], RowBox[{"(", RowBox[{"s", "+", "7"}], ")"}]}], "+", RowBox[{"K", RowBox[{"(", RowBox[{"s", "+", "5"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4482872836112967`*^9, 3.448287313204668*^9}, { 3.4482876433254423`*^9, 3.448287655075292*^9}, 3.4482878287136946`*^9, { 3.4482883142387295`*^9, 3.448288316879321*^9}, {3.4482904160555763`*^9, 3.448290437867797*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"5", " ", "K"}], "+", RowBox[{"14", " ", "s"}], "+", RowBox[{"K", " ", "s"}], "+", RowBox[{"9", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "3"]}]], "Output", CellChangeTimes->{ 3.448287314126531*^9, {3.4482876241694374`*^9, 3.4482876555127864`*^9}, 3.448287828963691*^9, 3.4482883174730635`*^9, {3.4482904292429075`*^9, 3.448290438102169*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"RootGrainPoly", "[", RowBox[{"K", ",", "\[CapitalDelta]", ",", "s"}], "]"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"K", ",", "0", ",", "15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.4482905298353696`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{K$$ = 14.790000000000001`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[K$$], 0, 15}}, Typeset`size$$ = {450., {151., 159.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, K$7231$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {K$$ = 0}, "ControllerVariables" :> { Hold[K$$, K$7231$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Graphics[ $CellContext`RootGrainPoly[ K$$, $CellContext`\[CapitalDelta], $CellContext`s]], Axes -> Automatic, PlotRange -> {{-8, 1}, {-3, 3}}], "Specifications" :> {{ K$$, 0, 15, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{499., {193.5, 200.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4482905200698695`*^9, 3.448290566803646*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"RootTracePoly", "[", RowBox[{"60.", ",", "\[CapitalDelta]", ",", "s"}], "]"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.448290584819041*^9, 3.4482905907720895`*^9}}], Cell[BoxData[ GraphicsBox[{{PointBox[{-7., 0}], PointBox[{-2., 0}], PointBox[{0., 0}]}, { PointBox[{-6.96590132044512, 0}], PointBox[{-1.794043572297053, 0}], PointBox[{-0.24005510725782742`, 0}]}, {PointBox[{-6.932185820613933, 0}], PointBox[{-1.4849458952542118`, 0}], PointBox[{-0.582868284131856, 0}]}, {PointBox[{-6.8988668306070995`, 0}], PointBox[{-1.05056658469645, -0.448187373880825}], PointBox[{-1.05056658469645, 0.448187373880825}]}, { PointBox[{-6.865957184329902, 0}], PointBox[{-1.067021407835049, -0.7805246397801837}], PointBox[{-1.067021407835049, 0.7805246397801837}]}, { PointBox[{-6.833469159762645, 0}], PointBox[{-1.0832654201186775`, -1.010749399771521}], PointBox[{-1.0832654201186775`, 1.010749399771521}]}, { PointBox[{-6.801414421888341, 0}], PointBox[{-1.0992927890558293`, -1.1991929391075926`}], PointBox[{-1.0992927890558293`, 1.1991929391075926`}]}, { PointBox[{-6.769803968987729, 0}], PointBox[{-1.1150980155061354`, -1.3632925120628832`}], PointBox[{-1.1150980155061354`, 1.3632925120628832`}]}, { PointBox[{-6.738648082976095, 0}], PointBox[{-1.1306759585119524`, -1.5109987148424797`}], PointBox[{-1.1306759585119524`, 1.5109987148424797`}]}, { PointBox[{-6.7079562844046805`, 0}], PointBox[{-1.1460218577976597`, -1.6467254948205914`}], PointBox[{-1.1460218577976597`, 1.6467254948205914`}]}, { PointBox[{-6.677737292682783, 0}], PointBox[{-1.1611313536586083`, -1.773221276516912}], PointBox[{-1.1611313536586083`, 1.773221276516912}]}, { PointBox[{-6.647998991996736, 0}], PointBox[{-1.1760005040016321`, -1.8923325511671834`}], PointBox[{-1.1760005040016321`, 1.8923325511671834`}]}, { PointBox[{-6.61874840331072, 0}], PointBox[{-1.19062579834464, -2.0053690445521277`}], PointBox[{-1.19062579834464, 2.0053690445521277`}]}, { PointBox[{-6.589991662734656, 0}], PointBox[{-1.2050041686326718`, -2.1132983944247576`}], PointBox[{-1.2050041686326718`, 2.1132983944247576`}]}, { PointBox[{-6.561734006438915, 0}], PointBox[{-1.2191329967805429`, -2.216858554231088}], PointBox[{-1.2191329967805429`, 2.216858554231088}]}, { PointBox[{-6.533979762187499, 0}], PointBox[{-1.2330101189062501`, -2.31662679766576}], PointBox[{-1.2330101189062501`, 2.31662679766576}]}, { PointBox[{-6.506732347453859, 0}], PointBox[{-1.2466338262730707`, -2.4130641967236257`}], PointBox[{-1.2466338262730707`, 2.4130641967236257`}]}, { PointBox[{-6.47999427397939, 0}], PointBox[{-1.260002863010305, -2.5065454534472345`}], PointBox[{-1.260002863010305, 2.5065454534472345`}]}, { PointBox[{-6.453767158537187, 0}], PointBox[{-1.2731164207314065`, -2.597379581240009}], PointBox[{-1.2731164207314065`, 2.597379581240009}]}, { PointBox[{-6.428051739574764, 0}], PointBox[{-1.285974130212618, -2.6858246493211673`}], PointBox[{-1.285974130212618, 2.6858246493211673`}]}, { PointBox[{-6.402847899331647, 0}], PointBox[{-1.2985760503341766`, -2.7720985497433803`}], PointBox[{-1.2985760503341766`, 2.7720985497433803`}]}, { PointBox[{-6.3781546909623525`, 0}], PointBox[{-1.3109226545188237`, -2.8563870250813723`}], PointBox[{-1.3109226545188237`, 2.8563870250813723`}]}, { PointBox[{-6.353970370143323, 0}], PointBox[{-1.3230148149283383`, -2.9388497635723927`}], PointBox[{-1.3230148149283383`, 2.9388497635723927`}]}, { PointBox[{-6.330292430604478, 0}], PointBox[{-1.334853784697761, -3.019625101731357}], PointBox[{-1.334853784697761, 3.019625101731357}]}, { PointBox[{-6.3071176430020355`, 0}], PointBox[{-1.346441178498982, -3.0988337045558776`}], PointBox[{-1.346441178498982, 3.0988337045558776`}]}, { PointBox[{-6.284442096538793, 0}], PointBox[{-1.3577789517306036`, -3.176581482370176}], PointBox[{-1.3577789517306036`, 3.176581482370176}]}, { PointBox[{-6.262261242740108, 0}], PointBox[{-1.3688693786299462`, -3.2529619290599103`}], PointBox[{-1.3688693786299462`, 3.2529619290599103`}]}, { PointBox[{-6.240569940807394, 0}], PointBox[{-1.3797150295963032`, -3.3280580157125152`}], PointBox[{-1.3797150295963032`, 3.3280580157125152`}]}, { PointBox[{-6.2193625039943585`, 0}], PointBox[{-1.3903187480028207`, -3.401943738378638}], PointBox[{-1.3903187480028207`, 3.401943738378638}]}, { PointBox[{-6.198632746483115, 0}], PointBox[{-1.4006836267584424`, -3.4746853936947426`}], PointBox[{-1.4006836267584424`, 3.4746853936947426`}]}, { PointBox[{-6.178374030275769, 0}], PointBox[{-1.4108129848621151`, -3.5463426381623897`}], PointBox[{-1.4108129848621151`, 3.5463426381623897`}]}, { PointBox[{-6.158579311660743, 0}], PointBox[{-1.4207103441696287`, -3.6169693738043223`}], PointBox[{-1.4207103441696287`, 3.6169693738043223`}]}, { PointBox[{-6.139241186859973, 0}], PointBox[{-1.4303794065700137`, -3.6866144932659433`}], PointBox[{-1.4303794065700137`, 3.6866144932659433`}]}, { PointBox[{-6.120351936512124, 0}], PointBox[{-1.4398240317439381`, -3.755322510220822}], PointBox[{-1.4398240317439381`, 3.755322510220822}]}, { PointBox[{-6.101903568696278, 0}], PointBox[{-1.4490482156518614`, -3.8231340954926}], PointBox[{-1.4490482156518614`, 3.8231340954926}]}, { PointBox[{-6.083887860249472, 0}], PointBox[{-1.4580560698752636`, -3.8900865351487433`}], PointBox[{-1.4580560698752636`, 3.8900865351487433`}]}, { PointBox[{-6.066296396178592, 0}], PointBox[{-1.4668518019107042`, -3.9562141236178507`}], PointBox[{-1.4668518019107042`, 3.9562141236178507`}]}, { PointBox[{-6.049120607011844, 0}], PointBox[{-1.4754396964940781`, -4.021548502390368}], PointBox[{-1.4754396964940781`, 4.021548502390368}]}, { PointBox[{-6.032351803976851, 0}], PointBox[{-1.4838240980115747`, -4.0861189529076665`}], PointBox[{-1.4838240980115747`, 4.0861189529076665`}]}, { PointBox[{-6.015981211930466, 0}], PointBox[{-1.4920093940347672`, -4.149952650698339}], PointBox[{-1.4920093940347672`, 4.149952650698339}]}, {PointBox[{-6., 0}], PointBox[{-1.5, -4.2130748865881795`}], PointBox[{-1.5, 4.2130748865881795`}]}, { PointBox[{-5.984399309925978, 0}], PointBox[{-1.5078003450370108`, -4.275509259820985}], PointBox[{-1.5078003450370108`, 4.275509259820985}]}, { PointBox[{-5.96917028212319, 0}], PointBox[{-1.515414858938405, -4.337277847127462}], PointBox[{-1.515414858938405, 4.337277847127462}]}, { PointBox[{-5.954304079499545, 0}], PointBox[{-1.5228479602502276`, -4.398401351128696}], PointBox[{-1.5228479602502276`, 4.398401351128696}]}, { PointBox[{-5.939791909091269, 0}], PointBox[{-1.530104045454365, -4.458899230927838}], PointBox[{-1.530104045454365, 4.458899230927838}]}, { PointBox[{-5.925625041588611, 0}], PointBox[{-1.5371874792056945`, -4.518789817304825}], PointBox[{-1.5371874792056945`, 4.518789817304825}]}, { PointBox[{-5.911794828838499, 0}], PointBox[{-1.5441025855807504`, -4.578090414565659}], PointBox[{-1.5441025855807504`, 4.578090414565659}]}, { PointBox[{-5.898292719420125, 0}], PointBox[{-1.5508536402899376`, -4.636817390795413}], PointBox[{-1.5508536402899376`, 4.636817390795413}]}, { PointBox[{-5.885110272396183, 0}], PointBox[{-1.5574448638019085`, -4.69498625801125}], PointBox[{-1.5574448638019085`, 4.69498625801125}]}, { PointBox[{-5.872239169346953, 0}], PointBox[{-1.5638804153265238`, -4.752611743499373}], PointBox[{-1.5638804153265238`, 4.752611743499373}]}, { PointBox[{-5.859671224796972, 0}], PointBox[{-1.5701643876015141`, -4.80970785344067}], PointBox[{-1.5701643876015141`, 4.80970785344067}]}, { PointBox[{-5.847398395144689, 0}], PointBox[{-1.5763008024276557`, -4.866287929778139}], PointBox[{-1.5763008024276557`, 4.866287929778139}]}, { PointBox[{-5.835412786204797, 0}], PointBox[{-1.5822936068976015`, -4.922364701150276}], PointBox[{-1.5822936068976015`, 4.922364701150276}]}, { PointBox[{-5.823706659471046, 0}], PointBox[{-1.588146670264477, -4.97795032860472}], PointBox[{-1.588146670264477, 4.97795032860472}]}, { PointBox[{-5.812272437204321, 0}], PointBox[{-1.5938637813978396`, -5.033056446712509}], PointBox[{-1.5938637813978396`, 5.033056446712509}]}, { PointBox[{-5.801102706447208, 0}], PointBox[{-1.5994486467763962`, -5.087694200622656}], PointBox[{-1.5994486467763962`, 5.087694200622656}]}, { PointBox[{-5.790190222061858, 0}], PointBox[{-1.6049048889690711`, -5.141874279527574}], PointBox[{-1.6049048889690711`, 5.141874279527574}]}, { PointBox[{-5.779527908883349, 0}], PointBox[{-1.6102360455583256`, -5.195606946950094}], PointBox[{-1.6102360455583256`, 5.195606946950094}]}, { PointBox[{-5.769108863075654, 0}], PointBox[{-1.6154455684621731`, -5.248902068211322}], PointBox[{-1.6154455684621731`, 5.248902068211322}]}, { PointBox[{-5.758926352772194, 0}], PointBox[{-1.620536823613903, -5.301769135393926}], PointBox[{-1.620536823613903, 5.301769135393926}]}, { PointBox[{-5.748973818077671, 0}], PointBox[{-1.6255130909611646`, -5.354217290076804}], PointBox[{-1.6255130909611646`, 5.354217290076804}]}, { PointBox[{-5.739244870502606, 0}], PointBox[{-1.6303775647486969`, -5.406255344083474}], PointBox[{-1.6303775647486969`, 5.406255344083474}]}, { PointBox[{-5.729733291896852, 0}], PointBox[{-1.635133354051574, -5.457891798457305}], PointBox[{-1.635133354051574, 5.457891798457305}]}, { PointBox[{-5.720433032943275, 0}], PointBox[{-1.639783483528363, -5.509134860851266}], PointBox[{-1.639783483528363, 5.509134860851266}]}, { PointBox[{-5.711338211267915, 0}], PointBox[{-1.6443308943660426`, -5.559992461497688}], PointBox[{-1.6443308943660426`, 5.559992461497688}]}, { PointBox[{-5.70244310921826, 0}], PointBox[{-1.64877844539087, -5.610472267904097}], PointBox[{-1.64877844539087, 5.610472267904097}]}, { PointBox[{-5.69374217135677, 0}], PointBox[{-1.653128914321615, -5.660581698404274}], PointBox[{-1.653128914321615, 5.660581698404274}]}, { PointBox[{-5.685230001712595, 0}], PointBox[{-1.6573849991437026`, -5.7103279346788005`}], PointBox[{-1.6573849991437026`, 5.7103279346788005`}]}, { PointBox[{-5.676901360830434, 0}], PointBox[{-1.661549319584783, -5.759717933346377}], PointBox[{-1.661549319584783, 5.759717933346377}]}, { PointBox[{-5.668751162651752, 0}], PointBox[{-1.6656244186741243`, -5.808758436715742}], PointBox[{-1.6656244186741243`, 5.808758436715742}]}, { PointBox[{-5.66077447126008, 0}], PointBox[{-1.6696127643699603`, -5.85745598277802}], PointBox[{-1.6696127643699603`, 5.85745598277802}]}, { PointBox[{-5.652966497518916, 0}], PointBox[{-1.673516751240542, -5.905816914510502}], PointBox[{-1.673516751240542, 5.905816914510502}]}, { PointBox[{-5.645322595627738, 0}], PointBox[{-1.6773387021861308`, -5.953847388555068}], PointBox[{-1.6773387021861308`, 5.953847388555068}]}, { PointBox[{-5.637838259618865, 0}], PointBox[{-1.6810808701905673`, -6.00155338332767}], PointBox[{-1.6810808701905673`, 6.00155338332767}]}, { PointBox[{-5.6305091198153905`, 0}], PointBox[{-1.6847454400923048`, -6.048940706609212}], PointBox[{-1.6847454400923048`, 6.048940706609212}]}, { PointBox[{-5.623330939268068, 0}], PointBox[{-1.688334530365966, -6.096015002662872}], PointBox[{-1.688334530365966, 6.096015002662872}]}, { PointBox[{-5.616299610186918, 0}], PointBox[{-1.6918501949065414`, -6.142781758918199}], PointBox[{-1.6918501949065414`, 6.142781758918199}]}, { PointBox[{-5.609411150381359, 0}], PointBox[{-1.6952944248093207`, -6.189246312258135}], PointBox[{-1.6952944248093207`, 6.189246312258135}]}, { PointBox[{-5.602661699720944, 0}], PointBox[{-1.698669150139528, -6.235413854941445}], PointBox[{-1.698669150139528, 6.235413854941445}]}, { PointBox[{-5.596047516627152, 0}], PointBox[{-1.701976241686424, -6.281289440189769}], PointBox[{-1.701976241686424, 6.281289440189769}]}, { PointBox[{-5.5895649746052545`, 0}], PointBox[{-1.705217512697373, -6.326877987465598}], PointBox[{-1.705217512697373, 6.326877987465598}]}, { PointBox[{-5.583210558823984, 0}], PointBox[{-1.7083947205880081`, -6.372184287464918}], PointBox[{-1.7083947205880081`, 6.372184287464918}]}, { PointBox[{-5.576980862749538, 0}], PointBox[{-1.7115095686252306`, -6.417213006845964}], PointBox[{-1.7115095686252306`, 6.417213006845964}]}, { PointBox[{-5.570872584839423, 0}], PointBox[{-1.7145637075802886`, -6.461968692713483}], PointBox[{-1.7145637075802886`, 6.461968692713483}]}, { PointBox[{-5.564882525300657, 0}], PointBox[{-1.7175587373496712`, -6.506455776876111}], PointBox[{-1.7175587373496712`, 6.506455776876111}]}, { PointBox[{-5.559007582916113, 0}], PointBox[{-1.7204962085419435`, -6.550678579892821}], PointBox[{-1.7204962085419435`, 6.550678579892821}]}, { PointBox[{-5.553244751941865, 0}], PointBox[{-1.7233776240290677`, -6.594641314922973}], PointBox[{-1.7233776240290677`, 6.594641314922973}]}, { PointBox[{-5.547591119077925, 0}], PointBox[{-1.7262044404610377`, -6.638348091393183}], PointBox[{-1.7262044404610377`, 6.638348091393183}]}, { PointBox[{-5.542043860514019, 0}], PointBox[{-1.7289780697429908`, -6.681802918493089}], PointBox[{-1.7289780697429908`, 6.681802918493089}]}, { PointBox[{-5.536600239051624, 0}], PointBox[{-1.731699880474188, -6.725009708511028}], PointBox[{-1.731699880474188, 6.725009708511028}]}, { PointBox[{-5.531257601302977, 0}], PointBox[{-1.7343711993485114`, -6.767972280019738}], PointBox[{-1.7343711993485114`, 6.767972280019738}]}, { PointBox[{-5.526013374967402, 0}], PointBox[{-1.736993312516299, -6.810694360921333}], PointBox[{-1.736993312516299, 6.810694360921333}]}, { PointBox[{-5.520865066184925, 0}], PointBox[{-1.7395674669075378`, -6.85317959136003}], PointBox[{-1.7395674669075378`, 6.85317959136003}]}, { PointBox[{-5.515810256966875, 0}], PointBox[{-1.7420948715165623`, -6.895431526510491}], PointBox[{-1.7420948715165623`, 6.895431526510491}]}, { PointBox[{-5.510846602702877, 0}], PointBox[{-1.7445766986485614`, -6.937453639248946}], PointBox[{-1.7445766986485614`, 6.937453639248946}]}, { PointBox[{-5.505971829743418, 0}], PointBox[{-1.7470140851282911`, -6.979249322713775}], PointBox[{-1.7470140851282911`, 6.979249322713775}]}, { PointBox[{-5.501183733057012, 0}], PointBox[{-1.7494081334714942`, -7.020821892761684}], PointBox[{-1.7494081334714942`, 7.020821892761684}]}, { PointBox[{-5.4964801739607925`, 0}], PointBox[{-1.7517599130196038`, -7.062174590325169}], PointBox[{-1.7517599130196038`, 7.062174590325169}]}, { PointBox[{-5.49185907792323, 0}], PointBox[{-1.7540704610383848`, -7.103310583676551}], PointBox[{-1.7540704610383848`, 7.103310583676551}]}, { PointBox[{-5.487318432437577, 0}], PointBox[{-1.7563407837812113`, -7.144232970603479}], PointBox[{-1.7563407837812113`, 7.144232970603479}]}, { PointBox[{-5.482856284964535, 0}], PointBox[{-1.7585718575177327`, -7.184944780500468}], PointBox[{-1.7585718575177327`, 7.184944780500468}]}}, Axes->Automatic, PlotRange->{{-8, 1}, {-3, 3}}]], "Output", CellChangeTimes->{3.4482905918033266`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"s", RowBox[{"(", RowBox[{"s", "+", "2"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"s", "+", "7"}], ")"}], "/", RowBox[{"(", RowBox[{"s", "+", "5"}], ")"}]}]}], ",", "s"}], "]"}], "\[Equal]", "0."}], ",", "s"}], "]"}]], "Input", CellChangeTimes->{{3.4482908831277227`*^9, 3.4482909324708405`*^9}, { 3.4482909795639877`*^9, 3.448291001173086*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ RowBox[{"-", "5.478832190340841`"}], "-", RowBox[{"1.887017207543392`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ RowBox[{"-", "5.478832190340841`"}], "+", RowBox[{"1.887017207543392`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"-", "1.0423356193183198`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.448290909299262*^9, 3.4482909328458357`*^9}, { 3.4482909934544353`*^9, 3.448291001376209*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "s"}], RowBox[{"(", RowBox[{"s", "+", "2"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"s", "+", "7"}], ")"}], "/", RowBox[{"(", RowBox[{"s", "+", "5"}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"-", "1.0423356193183198`"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.44829118487386*^9, 3.448291194873732*^9}}], Cell[BoxData["1.5026505178306395`"], "Output", CellChangeTimes->{{3.448291190655036*^9, 3.448291195217478*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]", "=", RowBox[{ RowBox[{ RowBox[{"s", RowBox[{"(", RowBox[{"s", "+", "2"}], ")"}], RowBox[{"(", RowBox[{"s", "+", "7"}], ")"}]}], "+", RowBox[{"K", " ", RowBox[{"(", RowBox[{"s", "+", "5"}], ")"}]}]}], "/.", RowBox[{"K", "\[Rule]", "55"}]}]}]], "Input", CellChangeTimes->{{3.4482912442793493`*^9, 3.448291269654025*^9}, { 3.4482913772620225`*^9, 3.4482913852931695`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"55", " ", RowBox[{"(", RowBox[{"5", "+", "s"}], ")"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", "s"}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.448291270185268*^9, {3.448291377918264*^9, 3.448291386199408*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tt", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{"1.", "/", "s"}], " ", RowBox[{"1", "/", "\[CapitalDelta]"}]}], ",", "s", ",", "t"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4482912736695986`*^9, 3.448291339340633*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"tt", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "44"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.4482913413718567`*^9, 3.4482913680746403`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1Xc8ll8bAHB7771XZomMJOtcEomShJbKLOt5jEhlJBmJyigjo4QIFRo2 KUJlRMqqrFBIZI+85+73fuoffD+3+9znGuc6kvYeFk5UFBQUGvjHn9+M/iVp G4wQ/rNOddtbXVkRaa34zChEcYddnfr+Lb3Rnv0L1pkpiMJxxUW9s0nvU0ej vHd5FqL4dn+zhvBXvf3724MFLQtQMKXx1Ozykt4h89DadcMiFLx4ae10Lx26 asAj4FD+BN2J3ZNNzcuNXmhkkV8plSLbOF2DT/qiaEFBvV4hswL1a5dluXHK IEXROuGr/DUoRiE14fq4ItrCsHH7omEtuvyJmbdPWA29pvQeVqB4iSBzg0Wd vyZyWim7frS8DjVuVqvXiNdDFHOU2ld9XqGkn87ckQ93oFs/do9UKzWiGA4T v3fORqh1oFtHKvMNEmCddvJsNEOuvZJjB441I5M1e2mvwv2IptMlPoy/Ffnw ULXdFLJEIsOrPrOG75AlTWHIr22H0f6P0W8Olr9HTQ3hPLos9kjs/ZYMz8RO NPc2R4rS3QFNtL0/E+nzAXU5eU7lNjqi8NciUhVKXYjHYvTDgscpdKDh+UIH czfqTxw4HvnMGUnUOTZPjHWjhMsuO/umXVBFVcFZscxeRDWu+4sN3NHlcnOz bcF9SF/wxYuFfSRkXTK7wfzYJ7Q2l+BSakZGG54kLTlrfUamS5I8Btoe6Geh TutF/i8ob7/f0lEmT1T1oD/r1uwXpFC70K5K8kSGVjuqup37UZlBfeJwvScq OMAjf/JjPyrpHS434vFCXBYjcTOGA6iq5rCi4SEvdNa8dC3oyQD6XlZYPBDr hb6YXXFm3jCIBCxn+dRqvZDRXpuOxNhBtI/eSM5xxAsVmCrpSVMMobyyCzeK Kb0RtwnF/ULyEDKLtHlE4vZG543buXU/DSFN31LGOWFv1G+UFdRkOoze6gRQ lGDvMjzzzap8GF3WfKWqjP//oYGx5aD8V/TibPv3YSpvxLNDqIac+BX1F7EE uox7IX+YUFihHUGH6RMyrJu90KBe9Y0InxFUbmL7ds99L2SsG7POPTSCBs+2 RUxf8EKPtO1d7+wfRR2DmZ2T+71QgCYdlCmNoR0LrJzJ3z3RoEZXnmHaGJos LzqSVuyJdm/N421n/oYOOVRwZJz1RHyqZuPfx76hu76dDVsoPVHRpoQEkcxx lFljYfhcgYx6ahv854QmkMHub+9yi0iI6tCSbUvcBEoYvHpCHpHQxh8bjXKY JpFUbMdN9Q53ZBFqsyk4ZBKdjBaJySK7o/NC1zgOL08iNe9Xmlu43NHdwpo5 Fe8fKOXJzzWPajf02mi6h+n7DzRUbN7Xd9oNzfRJPR+ym0IZ1M0VbapuSOi0 ZXZl9xQq3jsrELHiijJoDOpfy/9ELw+8nxNtcUVPW3u3lTj+RD1z2iyJea6o 6ZZPXuadn8iRg127O8YVfXJiFY3p+4mqNGnli4Nd0fSWe9cDBKZRqsAsW9c5 V0S7qkflYjmNUngzS8b9XZFgw0cfq5hp5GfFH3U+3BVtjvMc1X87jcQU99RS JLsi/WOMR5QYZpDNNYc748WuyEr+7luhnTPInO/Sq5QOV+TySwvRB8+gLWpv /E4tu6LA6o6iXxX4/z+Lfk+VdUOxke7S/Qsz6I5CzeXQg26oTDydsczjF7I1 cVALqHNDzd81ArLzfyER7pK73OtuaOBp64/Y0V9IY31s3UPbHTHuoXzvemIW XatMY73/zB2J8t8yOpgyi7zTzYSUZ92RyqBqmcHHWSTHWPqkdQsJHT7rmC6y bw6FSjp9EcwmIZLBGgdj1Bx6VO0xVdlLQhfZEi7NvZpDnAxTUh7sZHSzW2l+ gGoelWYGHm5GZHQ/q8G5RW8elfM5bQhxJ6MqD9ve8vPzqEDceNHwJhm901ra m/NsHnX60Rl9KSOjr7Rxz+Nn5pFq4YPDUj1ktNS2US1YaQFdt0mSnp4jI9bU l9nurgtotVqiX4vVA0meshE4fG8BXXYLj1sR90BbVeeuGA4uoC2NH/y0lTzQ 7rWraypiiyi1t2U/m6YHOtYo6yl2ZBHVZzVlxOl6IK/4mkGmhEXU4TTQ+lPP A4UdP2S18G4Rfdzks+OIjgdKVphuGGJdQmYNOi4MGh7owWykVtvuJcTUolCj reiBamukHlSGLSG2dJZXWvj7nVcqxO/XLqEG/Q3r5uwe6JuVZdzNtSVUL20/ 1LxKRmsSkzQh25dRmb3eZ+oxMuKcCPMj+y6ja23X9+56R0bbQ0psdk0uo5tc wzOmt8lo717zVjWFFbRd6wpvSSgZ2Ql805dwWkFPgLH5ogsZRT4UklvqW0H3 aM+SfFTJKO3c4+SvAquI40fSuio/GRXt3MPSbrmKDry/qh+4SkLdPYHTeW9X 0chEq1xhEwk5P1RvSadZQ2xp6SeuPyahxYvjeXE6a6jJLftpbjoJRVjdjQj3 WUPqlC0bxaJIiE/hsOP5gjV0/OgqFes5Erq3yq5PHl5Do4Xnyq46k9DWtlei 9iK/Uc9mKsonh0moLjNw2cryN3p+YLzl2h4SsvRT/7g7+jc66lbvKa9PQkMm 4491636jbI+m/PBtJOQtdjdGZfU3Oqtq/TVPGc+LmUMkGfV1lL798YE4BRKK rWc3EXRfR4/nDTU0ZEhIIvmVLGvWOvp14ThPtBQJFboHUlP2raPQxgrKcEn8 XELIc5mRAsZ9hke58PPRSN/jszIUsLnEs0NMmoQe/mrb80OfAhJoHXbGy5HQ mWOK2mPHKGDHUGHwQUUS0muIUBg8RwHbVaXGzFVJiE5liL/vJgXcDnli7LCd hFpu6dF9KKKANodSVS8cz02aW7OtzRSwVDlmamNCQtJd5u9e0lKCH0r8tfc4 CU3oF9RUSVKCh9JBBj4XEnqST/+wRJcSckfVJvV8SMjgQvWVfF9KaOfvcNbC +baXVdwZ/5USjneb+9eV4nkZE6F6lZIK3r2IcAp4SUIzS4MSEaJUwCa7g7eu mYTKHfTYL26ngusHUocuf8Tnszl57bwVFYwe/alR3k9Cxtvmxn28qGB3K1Xs 7m8kxJFh3kO+SgUlH+4mbpwmoS6mgkbn+1RwJ2qc/8AiCd3xoS+xr6eC7sbj NBW/cb98ts+2GaCCBAZhsg0NGSkbV8dbr1FBlvqZc2qMZDRfJBhiLkgNTrFm ZnqsZFQt7OtpspUabou40ARykFF4WNvxnfupIa1ze/Q0FxmZTW3aq0eiBg7S mRu3eciI73CEtmYkNei//+AezUtGn14MKqhmU4Mgl8tINXaWop6AYi01rBZ+ VkHY7gnJdLKfqOEei1YlH35fnWJuVnyJGqxagMkcr7/qYj4kyEsDG1n54+fx fKrryH/HrUIDe7843OLD+4vSpX/OupcGxqtsmKrw/i1y7B/Su9CAGzWn2QIt GQlxVqdShtGALJeJYgclGQ2eF4xauUMD5933ZR5fI6G8YZ9zc5U0YGPcVZ+D 87W9dJP1t1ka6LQLmM/7QUKHTiSzv3OkhXDeWOWJbhJKFugL1gumhe+57BJz 70mo553YTH4KLbwOLzgt3kZCNjuz3oe304JBLVvs6isSSlsbMZydpIW9EY7+ NS9I6PMzhRI7Rjo4P/Zt8WU1CYl7usu3StOBT37uNHsFCdkqPErWATrwqjNx yS0hoYzBaaa8o3QwoLM3KPYJCQ2mqAfw+9GBNbWOWwu+jzdY+U2GxtHBV6W+ SLtHJOTIVn585gEdpMvIHdrzgISyG1ZbTzTRwRHb+aDr+SQ0Eoz0m4fpwF5T t2djHgnJaoUUa1HQQ5phQYjofRI69atuQ64wPZRaJXU55ZJQbgH9Td5t9FA4 sXadEnvMyYTukgU9fL9yrmoyh4QUxK/6/STRw2AGy7Asfu7a1Tp2LJIerm+M oL6PnR/LdeRNFj0kqpFzPPD6EyZWbzSf00Osj+a8L/7+ZpoknXu99KC4VP78 Gd4fuarnAfcCPcQYZsQq4v0/OiMqfpGLAQxHmivfPSShn8q2MT82M0DzxhDy nUI8b+5+9W5yZIBrp5ty7+L8PD4qP6wRzAAWjhlGr5+R0CyPm1VWCgP0850t pC7D8yHi57YL7Qwg/Ilu4UYVCZWA2v2JSQawEV1+PVCD5+eSr9ARRkYICesm bcT1Ou++sqoOjJA/9/1tCq5nhYwe+e5RRnAI7MipaCSh1c/BX9j9GCFBLTql /jUJBe6ne/H9ASMY8JUsRLaQUDXTbrVDTYzwlD2YpIf74/fLqKz6YUaIbf4t 9O4dCaHAFl41CiZo/PGRDjpIKFiDM+KOMBPIbAtOj8T9VTt1YJF1GxOUXeR8 WtCJ5+n9BBd/Cya46GxyMfcDnjf23T1jJCbIb351KwDPi1BhkT3WkUzAcyV4 Xr6LhOrfH696mcUE+0m5gw+w6a5lKKk8Z4IQ3zFKFtzPu3YN307vZYKXhRJG O7EvU8hxsiwwQUVS4feD2E1lLiHnuJjhy/fjZGNsptMFv0Y2M4M8w0w0P7ap 4pSj5W5mmKu/otmA14/+qvKh1pEZGi064g5jN6f77FIOZgaKk9wjbXh/bIdK SlNTmGHIUStdGXsf57ICUwkzhPlP6Z/F8cS81knxa2eGK/3P3B7geN9dusDy dZIZNt/SevkO54NL90WgBSMLvJeumx/F+Yp/tMt2M7CAa0bVvVmczzozqZ+T x7DVjsv14HzPT65eeOjPAu4sIRkVrfg8KxbfVi5hAe+uU8NBeN5eeROt/PM9 C7R+MPM/+RbX1/VUTeEMC1DEPk+1ekNCYvdFvqgoscKjKtWFA/i+3We8QJ4x ZQXW56FHT+H6B4+++13swgr2Le9SrjSQUHF4wbXTEaxw3KBctQb3y5BMhJh6 NiuMvq87QofNU2/3cPYFK3wKN2OzqychI0cdvaf92IkbGNrqSMiPmr/F9zcr CIeW1B3Azr07fUxDhA0U+KYvTeD7olv/7eT8djaICQ0yvYXNNHAvsOQgG4w2 Z32zwdYJvsh61pcNwoYCFtWwSeI2aZrxbHChMmZADDu9WmPzUiEb3Bd7PSCC 3XaMs6qshQ2YGrNYN2NTro3vOT/BBl45N63MsFVTX/VpMbHDvtWkKxewHbQz 3Ffk2OFiSLd9DfaNHv/VCkN2+KrtEMSC9/vqnHV0gAM7HJ197+aEvSCgIqJ7 kR16dtA8aMSWL2UuWEtnh7mIyxXqOP4jB0e0qyvZ4YGOFGsuduXNlKNokR3s mK5Yp+N8nRGqmFtn4oBfTxNNxXB+2V1zdfsFOaCy8kLYbWxgvNR8ZxsH9Co9 M7uD69F9yJP3ohEHZFv7mYviennnHjtmZ8UB/OcagxOwM3dpTkqe5oCeecH9 5/B51UmU2UoVwgH5R9xlBrDfj3AFDsZwAFckfbw+rj9Jg6L+xW0OKO29sJyM TRc+yZL5kAOCr+3p/oad3tljeamKAx6nFjVtwf2zTaYx1eEtB5RsOxFCxm7z eTps0MsB0UFvOu9iO9fdVZT+zgEpyaZFzdgUPDE+NEsc0P5qWngKO9khsHKY nhPmNTS20uP+VH3sSlPPxwlGnz3V+LBfUx3aky3DCbcub7QXwXawMLwRps4J O1NNJYSwVzNU+5wMOGF1XekzO/aNaXFpIwtOeH79tvBvvP5mfVZ3WTtO6Dv9 yukr9quY5cd0npzAFMZh9Qr7eP/oykgQJ9gWc0RlYC8odxo0XOUEXyGnQj/s mAsvonJSOWGHVpb3bmz51kcdEfmcoK59MIQfu1YsTdi5nBPG6OliB3F+Zqr8 8uW7OGF00NrNGzvv+kQz0wgnkB3yPHSw7ezsfk784oTDn35J0GG30ZhuLWLn AlF/3dBbuB6XP9QcjBflAqulVKmT2ChX/bzvJi7o9FQ1VMN+aCpWs30XF7S9 /5nYget7UjR+QNiKC9jbl7xysEWn6Gl+23OBC9lkQxD2++cBsv2eXFDH+Xns IHZ03LTxiyAuyLT+MKeOvdPxpFtWNBdYap8/zYu9srX3avgtLhAcMb24hPur mN680DmXC8Keq20dwHbtrms3eYbXi6pJeYstlb99TrGOC4RnTpcS90N3wEN+ 9nYuEKBUDn+IHWO2QWv6Cxd8GUpeyMI2lkiy6ZjE35fJXUjHpphhufB0hQvq y6RcU7FLXl7MSGTkhmoKXcU0bPLN+Zfn+LnBal2FNwNb9pTbyFEZbuhfH53P wf6s2c+gp8YNZb1J6UXYN5msNknoc4PA1sDOKuw9fU17qfZxA9vCWTtivzQP 9TyHbbhBJKSB9hN2xYXHca9cucFuPfvSFLb3fvmnuWe5odJ1+RY1zsfALOey +w1uiHtaFKeMnfQqXGTfXW5Yn3w5bYRtnrSip1LIDY39zWPHsau1v16ae8MN G0MS7l/HPsN65N7Hbm7Y1G30m6jP5i8tjWWj3GCclUv5HDs1pJQ1iJoHytus TH9gW1pu3mLLyQPVY/IaNLjezLJ3LXaI88BcyDZBQewXC3y+0pt5gHF0oE0R +3xTVCKdNg9cEujWRdiqKRTlY8Y88C5WzdAc+5u7b99rax4YWj3TdgL7jt73 3wWOPPDWMrGZhH2I44TkdW8eODg1rnQem2Oww8ArmAdifwuNh2I3PDY+eeAa DyQqrK5exQ4Kq7q8NZUHvox5O9zE1jioms+fxwPax/QlU7B/yOc0L5XwwEW7 9zq3sbOXhX/21vOAZxrj8wxsm7cxXNUdPEDv9LPkLjZPOu3WOwM8MK8Srk74 rcf5gyFTPOAX5mF8B/uS/tQ5xzUeiF9/wJCGrcXtmGrEzAv1vpbRSdgzw13V 8oK8sKVl+0Qcdt6zvQNMcrxw6nj+jmhsu8svqCfVeYE+TDyfiEfgyDbZ1h28 cE7xm34AdtumAuMic15g653YcBo7+Kf7cuUJXuD4tjvJGVv56eaCRjIvrLRU XziGfU3vEXt/NC8c3KCnZYStR+1ZO57CC7pn9Cy1iPgbtpxeyOOFjeQUshL2 3v3FH9iaeMH28ookP/Yq7+nLQl28YEBRM8uMXdCjpiU7yguvuxe1KIn83J4d V5nnhcvducwLuB9YHJ+m6dLyAc0hDf9J7Er5M/t28/BBd+6RlGFst0kNSqsN fKBQx+3fhy1UvFBsq8oHZRPpsp3Yr8+UOrrr84HVyvmcFuzz2uf4zprj56Ne NE3YGym0Gi+d4AM1wfv6ddg9dcvnrpP54OVqiS3Rn5GRFZtSAvlA3bLOtgpb 0yzg071oPjh+P1OvAnuMS/d6cQof7DahnCsjzsfHNajO44NkpcsBhI1Tq2ea yviAQ5rjLeFF2wtZnY18YHi7uascO0cGrAc+8sGja5cSKrGtv1MwTI7wwXDM s4VqbLpHtWWLc3zA9qt/shb72ekQNxpaftg+eM+lnph/mgaiHDz8wKnPdJSI h2+NulV4Az88TEkrasaur60LllPlB+HKpzbt2D7hYapq+vwg555s+hFb2tRo WM+cH96sPCQR+Qt937DLmswPA7rZTKPY6smXl+wC+SE3z+HkBPbQsd35pGh+ uJxpVTKNvWP0NVtYHj8c8BinWsWeyY96HlPGD2vBTF8pcD3veu7xTm3kh6gd AVG02BZbWaVzP/JDf/6LCUZsyuXmzscj/GAtH0fBhl1YfS2iZo4fTK931XBi 217at/0NjQAU+z+X5iXOpzHH+AduARiTK9oogP2c5V3qoJQAZCybtAhhe76L NfuhIgC2i7asotjiCRYUyyAAKRZTI2LYLUe4i2nNBaDKgv2oBHGexd87cJ4Q gLnBMVdJbKXhG7yiZAHgX84QkML+nGvVIB8oAN9V9pwifI3Ed049WgButbUd Iayr+nEjpODvX+tdIN6fmE/sM80TAAn7OgPCqRWHrh0sE4BniWd3Et/bEywI Do0CwHLBgUKcOA87e6bJHwWAb8o6iNhvAWNK5vkRARgfPF0vjH205ahV+JwA PHXn/kTMv/KDn0rTuAWBrb0thciHbB2nooOUIDCotdlwY8dtMbotryIIPt5P WIj8uTE+CntsJgiKy2qWLNhdvkOLZ48JQrdL8SKR/52D/O567oIwLlebTY8t UhFs0RQpCDOnLyhTE/ex3NP6a0mC0GbDw0ecz9n4b5qWOXi9yDmBdVxvWwqx AsFngvD4xrD2Gnazu4X4lzpByFeTDFnB1uoOj8vqEARB+VM/lrDvGVbQug4K Qmj2ZMgiNlfx1FnlaRwPt7M+cd6DxKQnZtfxegIMm+axv185dKKcTQjQYDDM EedjIbr9gqgQ2AQzh8xiv3CoNTRUFIJTZu5Tv7CV2+ZKmbSF4NiOpQjCDPeP 3755SAj0+me2Eu6/2BAmcUYImjjkLhDe82Nl8WuoELjuS+oiXHpki3t+vBDM sA/vJ9aXbnD84nkXu11/jHCsWrKFRpEQfG19nkTs5/ft5vqVGiG4E7Hfltiv KwvV9toWITBSatUm4tnx1VV8z4QQ3DR+LUnE/3D/7TjOFSHo8hmWWSbmVXUH 7UdGYZhw36pC5OtXgs6EnZwwmHfZ7SfyaUvtdUJOQxhMjf1tfzcR90N2+8RO YWCyO+BG5D/LmK3Mz14Y3mkGuRL14Xi6Q1HXSxgUd5GOUGEHSPrdpgoWBl+G I7pEPceu5nM1XhMGoY+pnMT9arX8JexqmjDseNTYSfjFSZ4liwJhWF7Pv0yc V6UOY3eBCmE412WuQId9CwV++dQkDDznVp8RpisossjsEoZUcyUVon+8BUbq nUfx+x7piYQ/hwptV5oXho4g7e+ETabNCn7RiMA9HXkFBuySY5fEy7hFIOxW qSXhGI0J2p0qItAtOn+asDO71USLmQhUxIztJfzeP/LEjWMi8CDUZgNh/bGq 9sPuIhDFV/Bn/YeWM4bi/iKw5afQn34WqpUtG44UAXvl3wcIh28+qpiXJAL+ gqWLxP5nkq/f9sgRgbHBxzcIv/FeDFuuEwEZftVSIn5ruycdte0icNkl0YTw 4D5Pych+EYhQMewh8rWoOFbJvyoCVzSG54j8XhLOYvrCKAq0yz8vEWZjsj10 j18Ufp4+x01YevTjL3U1UXAIS9Mi6vOoM15/FUSBzf5LB1E/rbp911+aiYLd /lEvwvXFzJ+u2IiClNoRXsLmGQ0bLVxFIUe+qZqYr73XL50VPCsK/epFZMIn g9Cr/jBREGPzlyE87b7CnRsvCo/F/YeIfgk4WmLnkSEKGmXTuYTpTU4/0ngk ChPOzGcIx2kqr61VikJS0IAJYVG5cZP616KQ+fi8HOFc3pyk6C5RCJp7w0y4 ekZMXXhWFJQn+MaJ/uxsTWi9zy4G3KybRglPFLC5aW4Sgy1+SWuEqa6E0zUY icGZYLSJeP/q2R2W1yzFoNjg/m7CAqd+Z1jZi4FXn7874Uyr8ikRTzGI0toa T1hp5xnd4UAxuOJrXkW4TFU1Kj9KDFwFd30nvFPyR5d3shikn4oTJOI/8tvJ h/KpGIg94wwk/HVC8kXjCzEI0NUvJOzZ+4k9pk0MhqKqhwiHl1rli02IwS2W 17uJfHPmcC59XRKDwYP+/oRTbzYbPaAXh5LV2nzCcqGRN3x4xUGhSb+HcLG3 4aD2BnGgfXmPjqivrh3lFmoVcRgNzd5CuHFfVeBrPXHIu7RykLCl3rk3sXvE oUbHI4DwF8WtgoePiAOzWVsa4XnGB09GfcWhKOrVB8Iso9LmZ2LF4QYLBxXR T1J1qeM0D8TBQd1FnLBmBk9EfKM4WI6z/ZnfjkdpqgvXxYGNx16ecCPT+eWT whJgGlK2QKxnOnHx48GNErDtbEAb4ZbmyCfG2yWg1EInk3BnTDJ540EJaL+m DoQPeWeYCp+UgGbaATbCfQfuy7P4SoAnn2k/Ef+JrUW0a5fw+3pszwgP8pUN TsZJQNNVr1jCU6ld1kUtElDRmryT8KrU4msfJkm4dOqCHWGqEfowa3lJeMD8 4TJhxvv8SNNIEoK9Mp7+mW/uckuCjpJwzUnwz/f4lLc9XrkoCT0vdKmI/Ug/ tZarqZKElfmzkoRVtM+khCxJwkUhKi7CB3zdeR52SQHD7pla4n3fR/ZXu0s2 wObum98I2znFi2bEScPFfLcPhPcK1z1wJslAg6vPF8KVFE9Um47IwtMvh3sJ bxzJLFEwloOBSdVPhMMnmb/myMgDteKJvj/xz57mkqVWAOnHFX9cuylFXfeX AkzZxf/xHfsX1pZDG2FqLvuPjXmlY+hbN8F5/7Q/nm4IayovV4RHezP+OCL1 RH5UwmYg3b79x6Je26/aeCtBk9mdP9bwbXd4ZasMQ3T/Oadyq2iS3Bbwkf/P efuq+3oTtsBjwf/8YNAoVZxOBbaL/2dvVuUPj4JUgE30/+tp8nPAggrIi/3n SEaplNUhVfj8/+dNq1ktH56rwdv/O1p8dH53oTq8+b91HDMaeq5vhdf/9zPp hEf0bhp//ZjHJLr50La/TpM9w1mkofnXTM52UZvltv+1vkyEiBG31l870chY B0z9Mwt3SKjpZ+2/zjA4eFSzSuev16dO7q5N1P3r/jdbFYdC9f76UVNAiZQ9 +utg/9qUNXn4a4lMisLFpH/OZvjUWkun/9fjtIKuHwP/WZ4ntmtl4p9ly51r 3Z12/DVj+qen+b3/PBR3LWhpt8FfB4nfro2v/WeOqvEuHZWdfx2R1LnyOP2f nzOLJ/vxGv711PUsJpPQf+7Pj5x3Xv3nt7nBfuq//7k0229xff2f/weGLDoO "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.4482913471061583`*^9, 3.4482913880275097`*^9}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztW11oHUUU3tzf+tSCD+pTgk8FffBF8EUURKuI2LQJFUUwBiF50JaatqIv 9cVAVRRbaIvSKP6hFawILUJFaUAtiAGxKCqUChIfLAWLSEC4vd/8n9mZ2dm9 u/cnpPTu3bvnd845c+bMmc1DMwtzTz09szA/OzOxbe/Mnrn52Wcn7tu9t/uo PpYkY+e6n+snEtx3kkReOt3/nWVc8CT7fj++6iCtq7uduGvirqaeTeGuQfF2 MRbslt2pX7dw3gfYV5PAGUBysWgn2bVFnsl7D8m09cyHNxWJt7WY5jty4seq vR3XdsnKMvcmDdvMPeuZtJ0qVGDuHCNgqDU8qQWE7MwfeQVVjw3Eqfgh2sEX afRxDuqk/V3+aGLjqMShTCnH1wOD2lEwcCcL0ulwFGAJrBVxFEW3krWV1Kcd z7ISuEsyu74zHPAb8MWMeBKXsRTVHRd++ov92uzgtCXyWSxtP2QMu35ly2in XPrIl2d/H9nhjKJ+1bv0ufffW2G/bnagu565RLnwbi+ZXy+0LrybUqZYPH7s PPv1qAO9l2e3pkQtLb70NQfjms64WfCvdj/zeS/wb+fnToXgF3dNf1AMzsAe qv/uveetENfOXXcerxIOrSdWV/8ZFPznxx/7aOulS1dCXrt75Yc/81nVT1UO HLH4xJnTvwwr/OirryzPfXbqgg9+cOnE9/jks6qfqj9wjJhngVGDh6x6//nv /jizb+G0D4445LlrhODdnSL/Vv9cuw+r/Nd3Lc0eyQFJgrJ375640JhdkJu+ rcUiZ/GMvr7FNlRkvr1ux7gOxdo77RiZqSnZcsy8hoN9U3PetLb2Py9Z3MkA d7zkGDW4J0U3JNWVBx9Y2nL16po5VywUWetsoFAUVNbofKRQuEvqvNKS8Y7r CScfWZUFRK0/FFnqVYQiXMCLyWwXVKxN2SjYvmI3H0CRRefgUIQLeOWb7YK+ Kbzn5Mc/vnb4jW8CKLLiLR+lUAHJOs5saW1GSOh1DU4dhrh65vU+KBKqQaqV 7Gj4W88Yr/KLzEjBfR2+/5nSAs3iD188eHawWsgdW0VahDULaxFVo9r7xCDL 8RFEESuC7lh2giuCLPcDojZQ3Cio6FHZB1DwwZbB5yXdYQ17yctn1FCaJgo2 g9gU8pEvefFoH7hKPOEWjeB0y4CUK4ZHm+R+PNq2HiU8I+Pp3WDYaWUrhx4s erFZeLT3PmC84mVyQ6+fEWL6VaNsqOJ4xjQpVXDDxql5ogH7P+wDqxy3v3qn R8Y1tV/tdyj0T48M3TL0KFQ9ZzAdH1okEqj07M2xtGiETubS4mfmwRPhiibn py88/4WWcSyalnVauvXWbb/9+ndeWjRYUSPoDBVPixoEv/XBq59Wbl/V9Ozq S23lp1XHhCIDycpbHn/mJJe1Panx48nhKVhNnmfkI2/qM0+7Aj4azUMZs2MX giYPo0WutoPizWEzomWLPa8SsseHX7QA8vOQtuM82OTkt3SR9DNQx1NCCU2n O7a98NCDysdDG8AI9Zw8zAqWnowX44F0sDL75Cd5eZjbHwUT0xbRSn31eiG+ +LDdr+i1we7gC32hN68gvKwVOWfdslnLiSWmrOS6ffncRSTZFHcxVRRbPVVa dI+u55sAy1xkg4W9brx8+V/4Q8/yxehB2ZLlRBWS5WAkWIauoEY0IrEjIlYn H34Xcw3aiJIJjPCaD5uCfJWEnvtY8NS5ukJ0q7DGmAWYDVzmZj1BORjqwF5S GlTGiGBT/MY3NIP6SY0LghHwipKhN0a4wDMTpqGKg3a23sIY+tBb+91WForB 5CKYYTsMD1YHSDv4UE9iIVK9OZmOJ8w7OFmLe9kUd50tTq8w6floLgJwBTMz ozoc5GlONprQ6epG306K52kvNKaZaH4uwFPkG2kXGaE52am516AJhpxox7Oz CytZVOkXMY6kklXLx0TwwKiQmLS1jgT1MVcOZWXx+gaCXaeE1NjaIV5GCf5m z0RBren6H09H17MwnbnO56EzawwnXaFuTMuJkqkAbWtJBfq1Ix6oaonk1hgO XcKNm6QhdSGJpSxVipxCy49Ru9MdSFnKhXGaI6oV3fFVM/WYF2tx+tB3/L25 yNUM8iefTbZAs6hRB0P8bxdEwkyRyNVMFiY5SMi+vjIScgIbJpGoXhK+ojdN XFo8xfEnLyqESWTdloNE2oi820NIWj4SvZqHRUhnk3evCInV3RPPuiFFF9Vq aKAatlR6UcimwfBRhuneXDYNHAP9+D4ojgaxQv8gKBVgAhO+420BF6abOxxJ D9cCNOw6JH9WWzU8GbsGHCY6pQ==\ \>"]] }, Open ]] }, WindowSize->{1016, 651}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.25, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 438, 10, 35, "Input"], Cell[1031, 35, 344, 9, 35, "Output"] }, Open ]], Cell[1390, 47, 1348, 35, 102, "Input"], Cell[CellGroupData[{ Cell[2763, 86, 756, 19, 35, "Input"], Cell[3522, 107, 3477, 65, 355, 1230, 27, "CachedBoxData", "BoxData", \ "Output"] }, Closed]], Cell[CellGroupData[{ Cell[7036, 177, 868, 22, 50, "Input"], Cell[7907, 201, 1937, 42, 645, "Output"] }, Closed]], Cell[9859, 246, 1213, 34, 94, "Input"], Cell[CellGroupData[{ Cell[11097, 284, 576, 16, 35, "Input"], Cell[11676, 302, 21563, 348, 558, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[33276, 655, 257, 7, 27, "Input"], Cell[33536, 664, 472, 14, 35, "Output"] }, Open ]], Cell[34023, 681, 228, 6, 45, "Input"], Cell[CellGroupData[{ Cell[34276, 691, 572, 15, 35, "Input"], Cell[34851, 708, 419, 11, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35307, 724, 696, 20, 58, "Input"], Cell[36006, 746, 1862, 41, 415, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37905, 792, 576, 16, 35, "Input"], Cell[38484, 810, 15955, 300, 328, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54476, 1115, 525, 16, 35, "Input"], Cell[55004, 1133, 648, 17, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55689, 1155, 423, 14, 35, "Input"], Cell[56115, 1171, 112, 1, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56264, 1177, 472, 14, 35, "Input"], Cell[56739, 1193, 345, 11, 35, "Output"] }, Open ]], Cell[57099, 1207, 320, 9, 35, "Input"], Cell[CellGroupData[{ Cell[57444, 1220, 261, 6, 35, "Input"], Cell[57708, 1228, 13639, 230, 293, 11164, 188, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] } ] *) (* End of internal cache information *)