diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-12-21 14:35:08 +0100 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-12-21 14:35:08 +0100 |
| commit | 05377f7c3d39c956013facca1c4d91e8f55759ba (patch) | |
| tree | 4ef61d4c2614cae205c47c4af3c38aabec3734b7 | |
| parent | 9f777f7a2fdedd356fc60afa01e61082f4b7fc58 (diff) | |
| download | mma-05377f7c3d39c956013facca1c4d91e8f55759ba.tar.gz mma-05377f7c3d39c956013facca1c4d91e8f55759ba.tar.bz2 mma-05377f7c3d39c956013facca1c4d91e8f55759ba.zip | |
Work.
| -rw-r--r-- | new_schofield.nb | 4668 |
1 files changed, 4027 insertions, 641 deletions
diff --git a/new_schofield.nb b/new_schofield.nb index 0854822..84ee0f3 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 408096, 8223] -NotebookOptionsPosition[ 397188, 8036] -NotebookOutlinePosition[ 397582, 8052] -CellTagsIndexPosition[ 397539, 8049] +NotebookDataLength[ 590390, 11609] +NotebookOptionsPosition[ 576572, 11379] +NotebookOutlinePosition[ 576986, 11396] +CellTagsIndexPosition[ 576943, 11393] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,47 +25,27 @@ Cell["Definitions", "Section", 3.817119834596055*^9}},ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-\ ec66b9fbf698"], -Cell[BoxData[{ +Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"1", "/", "8"}]}], ";", RowBox[{"\[Delta]", "=", "15"}], ";", - RowBox[{"\[Alpha]", "=", "0"}], ";"}], "\[IndentingNewLine]", - RowBox[{ + RowBox[{"\[Alpha]", "=", "0"}], ";", RowBox[{"\[CapitalDelta]", "=", - RowBox[{"\[Beta]", " ", "\[Delta]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{"\[ScriptCapitalM]0Square", ":=", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - SuperscriptBox["2", - RowBox[{"5", "/", "2"}]], - RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], - "\[Beta]"]}], "\[IndentingNewLine]", - RowBox[{"TcSquare", ":=", - RowBox[{"2", "/", - RowBox[{"Log", "[", - RowBox[{"1", "+", - RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", - RowBox[{"ASquare", ":=", - RowBox[{ - SuperscriptBox["TcSquare", "2"], - RowBox[{"\[ScriptCapitalM]0Square", "/", - RowBox[{"(", - RowBox[{"16", " ", "\[Pi]"}], ")"}]}]}]}], "\[IndentingNewLine]", - RowBox[{"Ch", ":=", "0.838677624411"}]}], "Input", + RowBox[{"\[Beta]", " ", "\[Delta]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8171203487765493`*^9, 3.817120359509359*^9}, { 3.8171253080634003`*^9, 3.817125374665786*^9}, {3.81712545121809*^9, - 3.8171254551141233`*^9}, {3.817209512993226*^9, 3.81720951605719*^9}}, + 3.8171254551141233`*^9}, {3.817209512993226*^9, 3.81720951605719*^9}, { + 3.817216134198064*^9, 3.817216147934895*^9}}, CellLabel-> - "In[469]:=",ExpressionUUID->"fafcf491-a81f-4f91-b9fe-4d27770e7577"], + "(WOPR) In[1]:=",ExpressionUUID->"fafcf491-a81f-4f91-b9fe-4d27770e7577"], Cell[BoxData[ RowBox[{ RowBox[{"$Assumptions", "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", ">", "1"}], ",", + RowBox[{"\[Theta]c", ">", "0"}], ",", RowBox[{"t\[Infinity]", ">", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "\[Infinity]", "]"}], ">", "0"}], ",", @@ -75,38 +55,39 @@ Cell[BoxData[ RowBox[{"A", ">", "0"}], ",", RowBox[{"\[ScriptCapitalF]1", ">", "0"}], ",", RowBox[{"\[ScriptCapitalF]0", "\[Element]", "Reals"}], ",", - RowBox[{"\[Gamma]", ">", "0"}]}], "}"}]}], ";"}]], "Input", + RowBox[{"\[Gamma]", ">", "0"}], ",", + RowBox[{"\[Theta]i", ">", "0"}], ",", + RowBox[{"\[Theta]i", "<", "\[Theta]c"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.817121509075202*^9, 3.81712159405204*^9}, { 3.817122146902429*^9, 3.8171221498463*^9}, {3.817123222631443*^9, 3.8171232401305323`*^9}, {3.81712327174748*^9, 3.817123302075263*^9}, { 3.817123345236269*^9, 3.8171233467245693`*^9}, {3.817123565480311*^9, 3.817123582960553*^9}, {3.8171246080192423`*^9, 3.817124610971168*^9}, { 3.8172096124512787`*^9, 3.817209616026865*^9}, {3.81721066071721*^9, - 3.817210665188924*^9}, {3.817211071596877*^9, 3.817211091620666*^9}}, + 3.817210665188924*^9}, {3.817211071596877*^9, 3.817211091620666*^9}, { + 3.817271204530282*^9, 3.817271209927745*^9}, {3.817275283336474*^9, + 3.8172752836605864`*^9}}, CellLabel-> - "In[558]:=",ExpressionUUID->"395191f4-75f5-4aa3-87f6-ccf9cbedf73f"], + "(WOPR) In[446]:=",ExpressionUUID->"395191f4-75f5-4aa3-87f6-ccf9cbedf73f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "n_", "]"}], "[", "\[Theta]_", "]"}], ":=", - FractionBox[ - RowBox[{ - SuperscriptBox["\[Theta]", "2"], "-", "1"}], - RowBox[{"1", "+", - RowBox[{ - SuperscriptBox["\[Theta]", "2"], - RowBox[{ - RowBox[{"RealAbs", "[", "\[Theta]", "]"}], "/", - "t\[Infinity]"}]}]}]]}]], "Input", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"\[Theta]", "/", "\[Theta]i"}], ")"}], "2"], "-", + "1"}]}]], "Input", CellChangeTimes->{{3.8171202124436197`*^9, 3.817120269635832*^9}, { 3.817120312676557*^9, 3.8171203389089193`*^9}, {3.8171204067661743`*^9, 3.8171204839196587`*^9}, {3.8171205561371202`*^9, 3.8171205568649817`*^9}, { 3.817204484948892*^9, 3.817204488556822*^9}, {3.817204991326084*^9, 3.81720499357379*^9}, {3.817209015952724*^9, 3.8172090687475147`*^9}, { - 3.8172134845351257`*^9, 3.817213486502965*^9}}, + 3.8172134845351257`*^9, 3.817213486502965*^9}, {3.817269303799518*^9, + 3.817269304543895*^9}, {3.81727116429113*^9, 3.8172712020249577`*^9}}, CellLabel-> - "In[744]:=",ExpressionUUID->"3e69b8b0-cd07-4524-a460-17b8352b5902"], + "(WOPR) In[266]:=",ExpressionUUID->"3e69b8b0-cd07-4524-a460-17b8352b5902"], Cell[BoxData[ RowBox[{ @@ -118,20 +99,6 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["\[Theta]", "\[Theta]c"], ")"}], "2"]}], ")"}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox[ - RowBox[{"gC", "[", "n", "]"}], - RowBox[{"gC", "[", "\[Infinity]", "]"}]], - RowBox[{"RealAbs", "[", "\[Theta]", "]"}], - RowBox[{ - SuperscriptBox["\[Theta]", - RowBox[{ - RowBox[{"2", "n"}], "+", "2"}]], "/", - SuperscriptBox["\[Theta]c", "2"]}]}]}], ")"}], - RowBox[{"-", "1"}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ @@ -142,61 +109,60 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.817119845565673*^9, 3.817119882052971*^9}, { - 3.817119939573969*^9, 3.817120069536271*^9}, {3.817209086426073*^9, - 3.8172090977061653`*^9}}, + 3.817119939573969*^9, 3.817120069536271*^9}, {3.817209086426073*^9, + 3.8172090977061653`*^9}, 3.8172693107527933`*^9}, CellLabel-> - "In[745]:=",ExpressionUUID->"daded195-b1a7-448b-87f6-d258f2dcf5e8"], + "(WOPR) In[137]:=",ExpressionUUID->"daded195-b1a7-448b-87f6-d258f2dcf5e8"], Cell[BoxData[ RowBox[{ - RowBox[{"\[ScriptCapitalF]f", "[", "y_", "]"}], ":=", + RowBox[{"\[ScriptCapitalM]f", "[", "y_", "]"}], ":=", RowBox[{ - FractionBox["1", "\[Pi]"], - FractionBox[ + RowBox[{"-", + FractionBox["1", "\[Pi]"]}], + FractionBox["1", "y"], + SuperscriptBox["\[ExponentialE]", + FractionBox["1", "y"]], " ", + RowBox[{"(", RowBox[{ - RowBox[{ - SuperscriptBox["\[ExponentialE]", - FractionBox["1", "y"]], " ", "y", " ", "\[Gamma]", " ", - RowBox[{"ExpIntegralEi", "[", - RowBox[{"-", - FractionBox["1", "y"]}], "]"}]}], "-", - RowBox[{ - SuperscriptBox["\[ExponentialE]", "\[Gamma]"], " ", - RowBox[{"ExpIntegralEi", "[", - RowBox[{"-", "\[Gamma]"}], "]"}]}]}], - RowBox[{"\[Gamma]", "-", - RowBox[{"y", " ", - SuperscriptBox["\[Gamma]", "2"]}]}]]}]}]], "Input", + RowBox[{"-", "1"}], "+", "y"}], ")"}], " ", + RowBox[{"ExpIntegralEi", "[", + RowBox[{"-", + FractionBox["1", "y"]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.81712187820217*^9, 3.817121900537793*^9}, 3.817122299113345*^9, {3.817198483403965*^9, 3.817198509154025*^9}, { 3.817199440148189*^9, 3.817199440731868*^9}, {3.817199845562872*^9, 3.817199848402961*^9}, 3.8172001271039267`*^9, {3.8172001950013113`*^9, 3.8172001956329947`*^9}, {3.817209116226256*^9, 3.817209123026651*^9}, { 3.817209186739526*^9, 3.817209188013309*^9}, {3.817210278358514*^9, - 3.817210288080538*^9}}, + 3.817210288080538*^9}, {3.817269682319373*^9, 3.817269725334901*^9}, { + 3.817269813956863*^9, 3.817269814867185*^9}, {3.8172765008393383`*^9, + 3.817276503991358*^9}, {3.8172765584000072`*^9, 3.8172765730241413`*^9}, { + 3.817279978610174*^9, 3.8172799852438726`*^9}}, CellLabel-> - "In[746]:=",ExpressionUUID->"f27ba651-c22d-460a-a64d-186282c0ce66"], + "(WOPR) In[580]:=",ExpressionUUID->"f27ba651-c22d-460a-a64d-186282c0ce66"], Cell[BoxData[{ RowBox[{ - RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]_", "]"}], ":=", - RowBox[{"\[ScriptCapitalF]0", "+", - RowBox[{"\[ScriptCapitalF]1", + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]_", "]"}], ":=", + RowBox[{ + RowBox[{"\[ScriptCapitalM]0", RowBox[{"(", RowBox[{ - RowBox[{"\[ScriptCapitalF]f", "[", + RowBox[{"\[ScriptCapitalM]f", "[", RowBox[{"B", RowBox[{"(", - RowBox[{"\[Theta]c", "-", "\[Theta]"}], ")"}]}], "]"}], "+", - RowBox[{"\[ScriptCapitalF]f", "[", + RowBox[{"\[Theta]c", "-", "\[Theta]"}], ")"}]}], "]"}], "-", + RowBox[{"\[ScriptCapitalM]f", "[", RowBox[{"B", RowBox[{"(", - RowBox[{"\[Theta]c", "+", "\[Theta]"}], ")"}]}], "]"}]}], - ")"}]}]}]}], "\[IndentingNewLine]", + RowBox[{"\[Theta]c", "+", "\[Theta]"}], ")"}]}], "]"}]}], ")"}]}], + "+", + RowBox[{"\[ScriptCapitalM]1", " ", "\[Theta]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I\[ScriptCapitalF]", "[", "\[Theta]_", "]"}], ":=", RowBox[{"\[ScriptCapitalF]1", - RowBox[{"(", " ", + RowBox[{"(", RowBox[{ RowBox[{"HeavisideTheta", "[", RowBox[{"\[Theta]", "-", "\[Theta]c"}], "]"}], "+", @@ -231,15 +197,17 @@ Cell[BoxData[{ 3.81720944395175*^9, 3.817209446047728*^9}, {3.817209930464348*^9, 3.8172099380644417`*^9}, {3.817210264070428*^9, 3.817210267542055*^9}, { 3.817210329919582*^9, 3.817210334487361*^9}, {3.817210372639934*^9, - 3.817210377592119*^9}, 3.817212316154291*^9, 3.817212645208345*^9}, + 3.817210377592119*^9}, 3.817212316154291*^9, 3.817212645208345*^9, { + 3.817216916290226*^9, 3.8172169167762327`*^9}, {3.817219212992364*^9, + 3.8172192132224283`*^9}, {3.817266621409737*^9, 3.8172666282959213`*^9}, { + 3.8172683850976753`*^9, 3.817268385343678*^9}, 3.817269739852894*^9, { + 3.81726981683014*^9, 3.817269821291363*^9}, {3.817271032349269*^9, + 3.8172710326758747`*^9}, {3.817271110024907*^9, 3.8172711106148663`*^9}, { + 3.8172719744968967`*^9, 3.817271998377635*^9}, {3.817272634473014*^9, + 3.81727265440335*^9}, {3.817276578733289*^9, 3.81727661335675*^9}, { + 3.817280005679316*^9, 3.817280009539542*^9}}, CellLabel-> - "In[747]:=",ExpressionUUID->"e32b7309-d4a7-469a-ab41-1800db7276a7"], - -Cell[BoxData[ - RowBox[{"Plot", "[", "I\[ScriptCapitalF]"}]], "Input", - CellChangeTimes->{{3.817214696421403*^9, - 3.817214699557768*^9}},ExpressionUUID->"a67825a5-1532-4e67-9c19-\ -5eea914713e3"], + "(WOPR) In[581]:=",ExpressionUUID->"e32b7309-d4a7-469a-ab41-1800db7276a7"], Cell[BoxData[{ RowBox[{ @@ -248,13 +216,13 @@ Cell[BoxData[{ RowBox[{"SeriesCoefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "-", + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ - RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]", "]"}], - RowBox[{"2", "-", "\[Alpha]"}]], - RowBox[{"Gl", "[", + RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]", "]"}], "\[Beta]"], + RowBox[{ + RowBox[{"Gl", "'"}], "[", RowBox[{ RowBox[{ RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], @@ -271,7 +239,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]", "<", "\[Theta]c"}], ",", - RowBox[{"\[Theta]", ">", "1"}]}], "}"}]}], "]"}]}]}], + RowBox[{"\[Theta]", ">", "\[Theta]i"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ @@ -279,15 +247,16 @@ Cell[BoxData[{ RowBox[{"SeriesCoefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "-", + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{ RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]", "]"}]}], ")"}], - RowBox[{"2", "-", "\[Alpha]"}]], - RowBox[{"Gh", "[", + "\[Beta]"], + RowBox[{ + RowBox[{"Gh", "'"}], "[", RowBox[{ RowBox[{ RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], @@ -306,7 +275,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]", ">", "0"}], ",", - RowBox[{"\[Theta]", "<", "1"}]}], "}"}]}], "]"}]}]}], + RowBox[{"\[Theta]", "<", "\[Theta]i"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ @@ -314,37 +283,35 @@ Cell[BoxData[{ RowBox[{"SeriesCoefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "-", - RowBox[{"(", - RowBox[{ + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "-", + RowBox[{ + FractionBox[ + SuperscriptBox[ + RowBox[{ + RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"1", "/", "\[Delta]"}]], "\[CapitalDelta]"], + RowBox[{"(", RowBox[{ RowBox[{ - SuperscriptBox[ - RowBox[{ - RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"\[Eta]", " ", RowBox[{ - RowBox[{"(", - RowBox[{"2", "-", "\[Alpha]"}], ")"}], "/", "\[CapitalDelta]"}]], - - RowBox[{"\[CapitalPhi]", "[", "\[Eta]", "]"}]}], "+", - RowBox[{ - FractionBox[ - SuperscriptBox["\[Eta]", "2"], - RowBox[{"8", "\[Pi]"}]], - RowBox[{"Log", "[", - SuperscriptBox["\[Eta]", "2"], "]"}]}]}], "/.", - RowBox[{"\[Eta]", "\[Rule]", - RowBox[{ + RowBox[{"\[CapitalPhi]", "'"}], "[", "\[Eta]", "]"}]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"2", "-", "\[Alpha]"}], ")"}], + RowBox[{"\[CapitalPhi]", "[", "\[Eta]", "]"}]}]}], "/.", + RowBox[{"\[Eta]", "\[Rule]", RowBox[{ - RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]", "]"}], " ", - SuperscriptBox[ - RowBox[{ - RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], RowBox[{ - RowBox[{"-", "1"}], "/", "\[CapitalDelta]"}]]}]}]}], ")"}]}], + RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]", "]"}], " ", + SuperscriptBox[ + RowBox[{ + RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]", "]"}], + RowBox[{ + RowBox[{"-", "1"}], "/", "\[CapitalDelta]"}]]}]}]}], ")"}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", - RowBox[{"\[Theta]", ",", "1", ",", "m"}], "}"}], ",", + RowBox[{"\[Theta]", ",", "\[Theta]i", ",", "m"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Join", "[", RowBox[{"$Assumptions", ",", @@ -398,18 +365,30 @@ Cell[BoxData[{ "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqB", "[", "n_", "]"}], ":=", - RowBox[{"B", "\[Rule]", - RowBox[{"A", " ", - FractionBox[ - RowBox[{"-", " ", + RowBox[{ + FractionBox["\[Pi]", + RowBox[{"2", " ", "1.3578383417066"}]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"\[CapitalDelta]", " ", RowBox[{ + RowBox[{"g", "[", "n", "]"}], "[", "\[Theta]c", "]"}], + SuperscriptBox[ RowBox[{ - RowBox[{"g", "[", "n", "]"}], "'"}], "[", "\[Theta]c", "]"}]}], - SuperscriptBox[ - RowBox[{"(", + RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]c", "]"}], + RowBox[{ + RowBox[{"-", "\[CapitalDelta]"}], "-", "1"}]], + RowBox[{ + RowBox[{ + RowBox[{"f", "[", "n", "]"}], "'"}], "[", "\[Theta]c", "]"}]}], "-", + RowBox[{ + RowBox[{ RowBox[{ - SuperscriptBox["\[Theta]c", "2"], "-", "1"}], ")"}], - RowBox[{"\[Beta]", " ", "\[Delta]"}]]]}]}]}]}], "Input", + RowBox[{"g", "[", "n", "]"}], "'"}], "[", "\[Theta]c", "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n", "]"}], "[", "\[Theta]c", "]"}], + RowBox[{"-", "\[CapitalDelta]"}]]}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.817122561958515*^9, 3.817122595430499*^9}, { 3.8171226412071457`*^9, 3.817122654383555*^9}, {3.817122684808043*^9, 3.817122893980072*^9}, {3.8171229823734827`*^9, 3.817123013558132*^9}, { @@ -432,9 +411,17 @@ Cell[BoxData[{ 3.81721240169213*^9}, {3.8172126942254143`*^9, 3.817212733676169*^9}, { 3.8172128432044477`*^9, 3.817212850900301*^9}, {3.817213122273017*^9, 3.817213125505207*^9}, {3.817213504392342*^9, 3.817213522176297*^9}, - 3.817214109954194*^9, {3.817214983818109*^9, 3.817214986450067*^9}}, + 3.817214109954194*^9, {3.817214983818109*^9, 3.817214986450067*^9}, { + 3.8172173960165873`*^9, 3.817217426058158*^9}, {3.817218919892474*^9, + 3.817218934448584*^9}, {3.817218984339595*^9, 3.817218988675902*^9}, { + 3.817219056474732*^9, 3.817219056918*^9}, {3.817270667311324*^9, + 3.817270696028246*^9}, {3.817271226342354*^9, 3.817271252979103*^9}, { + 3.8172769069026337`*^9, 3.817276953348996*^9}, {3.8172775487711554`*^9, + 3.817277647805482*^9}, 3.8172803779817553`*^9, {3.817280418228038*^9, + 3.8172804267347317`*^9}, {3.817282016179366*^9, 3.817282092169364*^9}, + 3.817282209641667*^9, 3.817283240977447*^9, 3.817283291741331*^9}, CellLabel-> - "In[790]:=",ExpressionUUID->"77a88da0-5b31-458a-9ed8-0b34545e511d"], + "(WOPR) In[798]:=",ExpressionUUID->"77a88da0-5b31-458a-9ed8-0b34545e511d"], Cell[BoxData[{ RowBox[{ @@ -450,13 +437,13 @@ Cell[BoxData[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], "]"}], "[", "\[CapitalPhi]", "]"}], "[", "0", "]"}], "\[Rule]", - RowBox[{ + RowBox[{"#1", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", - RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}], - "#1"}]}], "&"}], ",", + RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}]}]}], + "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.197733383797993"}], ",", @@ -491,13 +478,13 @@ Cell[BoxData[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], "]"}], "[", "Gl", "]"}], "[", "0", "]"}], "\[Rule]", - RowBox[{ + RowBox[{"#1", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", - RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}], - "#1"}]}], "&"}], ",", + RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}]}]}], + "&"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417066"}], ",", @@ -519,13 +506,13 @@ Cell[BoxData[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], "]"}], "[", "Gh", "]"}], "[", "0", "]"}], "\[Rule]", - RowBox[{ + RowBox[{"#1", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", - RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}], - "#1"}]}], "&"}], ",", + RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "!"}]}]}], + "&"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.8452280782328"}], ",", "0", ",", "8.333711750", ",", @@ -557,10 +544,7 @@ Cell[BoxData[{ "[", "0", "]"}]}], ",", RowBox[{"2", "/", "15"}]}], "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"0", ",", "5"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"ARule", "=", - RowBox[{"A", "\[Rule]", "ASquare"}]}], ";"}]}], "Input", + RowBox[{"0", ",", "5"}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.8171238506222553`*^9, 3.817123981055841*^9}, { 3.817124021016416*^9, 3.8171240795775967`*^9}, {3.8171241841479683`*^9, 3.817124191819606*^9}, {3.81712424202855*^9, 3.8171243317581472`*^9}, { @@ -571,96 +555,2072 @@ Cell[BoxData[{ 3.81712575752703*^9, 3.817125884277041*^9}, {3.817126017709049*^9, 3.8171260243875713`*^9}, {3.817127284274146*^9, 3.817127295450204*^9}, 3.8172038927147207`*^9, 3.8172039519957237`*^9, 3.817211900243198*^9, { - 3.8172119490120792`*^9, 3.817211969444298*^9}}, + 3.8172119490120792`*^9, 3.817211969444298*^9}, {3.817216957447488*^9, + 3.817216958531187*^9}, {3.817268003369576*^9, 3.817268019019158*^9}, { + 3.817283853841984*^9, 3.81728388518631*^9}}, CellLabel-> - "In[658]:=",ExpressionUUID->"1f309ab1-20a0-46cc-93fe-35aed54ccb3d"], + "(WOPR) In[843]:=",ExpressionUUID->"1f309ab1-20a0-46cc-93fe-35aed54ccb3d"], -Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Theta]i", "=", "1"}], ";"}]], "Input", + CellChangeTimes->{{3.817283930216783*^9, 3.8172839337126226`*^9}}, + CellLabel-> + "(WOPR) In[853]:=",ExpressionUUID->"e7fef682-ee6e-4d26-962a-6946f28d5999"], Cell[BoxData[{ RowBox[{ - RowBox[{"testN", "=", "0"}], ";"}], "\[IndentingNewLine]", - RowBox[{"testEq1", "=", - RowBox[{"{", + RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq1", "=", RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"eqLow", "[", "n1", "]"}], "[", "0", "]"}], ",", + RowBox[{ + RowBox[{"eqMid", "[", "n1", "]"}], "[", "0", "]"}], ",", + RowBox[{ + RowBox[{"eqHigh", "[", "n1", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqLow", "[", "n1", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqHigh", "[", "n1", "]"}], "[", "2", "]"}]}], "}"}], "//.", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"\[ScriptCapitalF]sol", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", + "GlRules", ",", "GhRules", ",", "DmetaRules", ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}]}], "}"}]}], "]"}]}]}], + ";"}]}], "Input", + CellChangeTimes->CompressedData[" +1:eJwd031Qy3EcB/D1cPI8zjydrNYlqTxexilJaXasjoVITxuVp8plx0yb8hCV +h5gUoq7Hs26tG7pWSuhyVi3GVSaFapFdZWU5l/i9v3987vXH5/O5z+ePz4cl +TOBHW9NotB1UwKhTsUG3j5s2+2XFEZ3MLsFwPC2LeCzUPRxO2POIvL55Qihe +OzMW6p87iaBRTpdAmuBoFtz2k5cNmcWCdjjVMNoBs9qMrGzKuqgYD3hqo/4E +1NqlnYbptxgykhdnElcJE29DZYuGqMhblAsl78qJ6rI3BXBNE6sQfu1IN0F5 +T/MQ9JuTUauhNA0m1EHhbO8z1ZRFu24SOaXB5+FW5VnikVFJPpziX1sAuQyz +Gh7rHCFeaDuvhfs8VzfDaGnVEHQaZg/D8ZCkUcjn9lqgY8t06xrKwcp3dtCu +WCaAZeqzQniyKkf1lPJ3UmsF1A4oNFAkbq+G6/fLnGux/8U3xDAHEx8+C9AH +w2buNilMfaUgNlqUmbAnwPsGHOXTS2C9WlQK37deLYOJlYeV0IphP/KM0lDj +MQbH99ja1FPO8E8hTm55Qodhu9kMGGjo2AIH51/lwpPJ8mrIXtJKnF3p9eA5 +pe0Vt3x4RvytBdKlm3Rwc5Ux8AXmaO7tgLTyjEi40neIyH97IB4uWPeLyIni +nX6JPvomGUzqtUqHLMPBDNiltE1twH2E64jiGe4P4YRGq4DO7dbdHyl3DjgT +AzYc4nRSul0XboXM7KUNML8kmWiZeWfnJ8oSjoJIE6h2Q5PvU6Ln75wwWK9K +iYD385hHIUtlIDIcuOMw06PpLyxq22PThftw0RPti/9Ng5eNe6fDkE8h+2CT +VyTxQ9G/KBjWIxDAS2tFFbD5T6gaRi+UaOCfa0E10JwaZOnGP1Q9HIMqSQHr +M2XEcr4TrJBbM79Qfg7XOsL9EZnO8L1VDpEd+9gN6h7IV0CfQe8AWDaJx4GN +cWa/r5QNJqk/3H5xWSh0NdcStyvnSmHrhbsy+CLyxxUo+zvrOqnrU8mhpTH+ +FvT4tSgXDjzqJ+ZLmJE9lNWv84g8eko81CUeToDDgYUiOODZT/RRBl2GX/Ts +NOio+94JY7z4XTA5554Rnot26IeT1+S69CLvs9gduhp9V8LydfHE/3wzwOY= + + "], + CellLabel-> + "(WOPR) In[862]:=",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"s1", "=", + RowBox[{"FindRoot", "[", + RowBox[{"eq1", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"\[Theta]c", ",", + RowBox[{"1", "+", + RowBox[{"RandomReal", "[", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[ScriptCapitalM]0", ",", + RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[ScriptCapitalM]1", ",", + RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], ",", + RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], ",", + RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", + RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, { + 3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, { + 3.817127491557787*^9, 3.8171275000934143`*^9}, 3.8171275721198053`*^9, { + 3.8171278100273*^9, 3.817127849603622*^9}, {3.81712788866899*^9, + 3.817127911532996*^9}, {3.81719706565886*^9, 3.817197105498705*^9}, { + 3.817197893385504*^9, 3.81719790689716*^9}, {3.81719860001385*^9, + 3.8171986053976393`*^9}, {3.817198639295259*^9, 3.817198662766809*^9}, { + 3.817198876170909*^9, 3.817198908051071*^9}, {3.817198993133552*^9, + 3.8171991533442287`*^9}, {3.817199209928318*^9, 3.817199241960556*^9}, { + 3.817199495862*^9, 3.8171994994689503`*^9}, {3.8171995495740423`*^9, + 3.817199605718575*^9}, {3.817199652392643*^9, 3.817199715256566*^9}, { + 3.817199865131709*^9, 3.817199880715331*^9}, {3.817199936333564*^9, + 3.817199987661281*^9}, {3.817200026262958*^9, 3.8172000468302813`*^9}, { + 3.8172001570412397`*^9, 3.8172001598323307`*^9}, {3.817200236641964*^9, + 3.8172002385137587`*^9}, {3.8172002992189293`*^9, + 3.8172003208190928`*^9}, {3.817200415813776*^9, 3.817200416404771*^9}, { + 3.817204016980706*^9, 3.817204076853834*^9}, {3.8172041381029387`*^9, + 3.817204203727563*^9}, {3.817204234304641*^9, 3.817204255961961*^9}, { + 3.817204390931651*^9, 3.8172044426360817`*^9}, {3.817205022823312*^9, + 3.8172050577028513`*^9}, {3.817205106256721*^9, 3.817205106559868*^9}, { + 3.817209919633216*^9, 3.817209920608328*^9}, {3.817210044562058*^9, + 3.817210053786522*^9}, {3.817210136268099*^9, 3.8172101405721073`*^9}, { + 3.817210451098201*^9, 3.81721045318543*^9}, {3.817211412418923*^9, + 3.8172114542674837`*^9}, 3.817211713768137*^9, {3.817211774217906*^9, + 3.817211820329513*^9}, {3.817212210577387*^9, 3.817212210720683*^9}, + 3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, { + 3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, + 3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, + 3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, { + 3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, + 3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, { + 3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, { + 3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, + 3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, { + 3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, + 3.817270029113059*^9}, {3.817271285570938*^9, 3.817271292845436*^9}, { + 3.817271338825984*^9, 3.817271347239892*^9}, {3.817271687882124*^9, + 3.817271688161475*^9}, {3.817272026928958*^9, 3.817272038746695*^9}, { + 3.817272732073227*^9, 3.817272740779784*^9}, {3.8172727722855988`*^9, + 3.817272774613453*^9}, {3.817275330702072*^9, 3.81727534054673*^9}, { + 3.817275373172369*^9, 3.81727537934888*^9}, {3.817275674947576*^9, + 3.8172756762795753`*^9}, {3.8172777393447733`*^9, 3.817277749634144*^9}, { + 3.8172778167894783`*^9, 3.817277820829632*^9}, {3.817278006315517*^9, + 3.8172780223674107`*^9}, {3.817280034270249*^9, 3.817280072111932*^9}, { + 3.8172802071691732`*^9, 3.817280223767226*^9}, {3.817280503291031*^9, + 3.817280510489274*^9}, {3.8172805452815933`*^9, 3.817280546902663*^9}, { + 3.817280635015347*^9, 3.817280643275325*^9}, {3.817280679286304*^9, + 3.817280679669477*^9}, {3.817280748769155*^9, 3.817280752344582*^9}, { + 3.8172821291550713`*^9, 3.8172821298656*^9}, {3.8172824240538273`*^9, + 3.8172824749055367`*^9}, {3.817282636494815*^9, 3.8172826427854652`*^9}, { + 3.817283320587726*^9, 3.817283328321372*^9}, {3.817283389745932*^9, + 3.817283391669229*^9}, {3.8172839405657682`*^9, 3.817283941194763*^9}}, + CellLabel-> + "(WOPR) In[864]:=",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "lstol", + "\"The line search decreased the step size to within tolerance specified \ +by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \ +decrease in the merit function. You may need more than \ +\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \ +meet these tolerances.\"", 2, 864, 557, 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8172839055832853`*^9, 3.817283971485866*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[864]:=",ExpressionUUID->"20e41565-1936-405a-9504-d530fdcc8152"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", + RowBox[{"0.35782801821894805`", "\[VeryThinSpace]", "-", + RowBox[{"9.694348542908053`*^-16", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"\[ScriptCapitalM]0", "\[Rule]", + RowBox[{"0.047012285433126993`", "\[VeryThinSpace]", "-", + RowBox[{"1.1840438922058634`*^-15", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"\[ScriptCapitalM]1", "\[Rule]", + RowBox[{"0.8534070714613905`", "\[VeryThinSpace]", "-", + RowBox[{"1.3933688967862164`*^-15", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{ - RowBox[{"eqLow", "[", "testN", "]"}], "[", "1", "]"}], ",", - RowBox[{ - RowBox[{"eqHigh", "[", "testN", "]"}], "[", "1", "]"}], ",", + RowBox[{"-", "7.301447130143889`"}], "+", + RowBox[{"1.0883136380300957`*^-14", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"40.82128454804195`", "\[VeryThinSpace]", "+", + RowBox[{"1.5964707349774136`*^-16", " ", "\[ImaginaryI]"}]}]}]}], + "}"}]], "Output", + CellChangeTimes->{{3.817280643827911*^9, 3.817280758907701*^9}, { + 3.817282118654529*^9, 3.817282122045233*^9}, 3.817282223769466*^9, + 3.817282305603149*^9, {3.817282434403528*^9, 3.817282479844577*^9}, { + 3.817282643441534*^9, 3.817282683973117*^9}, {3.817282855874453*^9, + 3.817282863884409*^9}, {3.817283328636736*^9, 3.817283360690146*^9}, + 3.817283392486912*^9, {3.817283901559588*^9, 3.817283971572627*^9}}, + CellLabel-> + "(WOPR) Out[864]=",ExpressionUUID->"319eb113-9321-48fc-ad65-5700453ef613"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"s11", "=", + RowBox[{ RowBox[{ - RowBox[{"eqMid", "[", "testN", "]"}], "[", "1", "]"}]}], - "}"}]}]}], "Input", + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", + RowBox[{"Re", "[", + RowBox[{"#", "[", + RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&"}], "/@", "s1"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.817282132727553*^9, 3.817282168778081*^9}}, + CellLabel-> + "(WOPR) In[758]:=",ExpressionUUID->"ea36fa2d-8c46-4383-be61-eff682dedb14"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"B", "//.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}]], "Input", + CellChangeTimes->{{3.817282197466474*^9, 3.817282201883644*^9}, { + 3.817283506545725*^9, 3.817283511684161*^9}}, + CellLabel-> + "(WOPR) In[826]:=",ExpressionUUID->"5823df11-0739-494d-bf1b-44bf2a14cb2b"], + +Cell[BoxData["1.8046902735396873`"], "Output", + CellChangeTimes->{{3.817282202366857*^9, 3.8172822271920424`*^9}, + 3.8172824865696583`*^9, {3.817283507032922*^9, 3.817283512110911*^9}}, + CellLabel-> + "(WOPR) Out[826]=",ExpressionUUID->"cf69a3b6-a533-4dea-b33c-8d65e371fe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"GraphicsRow", "[", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "//.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->CompressedData[" -1:eJwdzltIk3EABfAvE1ZRDWlkkFQb6YMKqegMMvKSNWSKfMuiUnSfqFRewobO -6WZhBWqCtaaCUeIlYWMWg8Y2nZceEubmbIaO0VPaEBmb6VIfhvg//4fD7+E8 -nCPkGtiqKIZhEklgRXNNUd/TQE6uro4q2k6QwUinjlr7IKkMHsRJqdK/Zzmo -zDhdAz1zIgX0a/kqyMif6GDBP2k/vDAmX4UnfGEv1K34hf3E6YrqZNh83fMM -OnidLbDrvUBDe2UvNYVr7INGl5Wq/3T+A1QtT1BNhqVhmLYgHIF/vF0BqF1z -hmDumW67lRgINkxDLiar1UYcvfOOemtc1gFvG9upj8OqIXg8zz4MJYJtE6z9 -vUN9udLhgPfTU52wSm0JQdGWeAtG7rWFIStZ34WXXCejJolB8zIP8sY0cmgw -tXOwyTLwZYq43+b+Ch2beitUKFdt8OpDzWU7/r9aopZeDLBwJt8jg05JgRq+ -ntdTf+wae+FaftZbGGb5n+GsSTEOf7l7DLDR/MgIjwjidmaIvsnkPRi5G310 -lngq7wX1mOsbH5aWiAWw0Oe9CYOxPRLY9Fxrg+J4NzXGfO3jHDH6TeIQbFVu -uCBffWMR5lj8hd+xYx0shsxEdzm8kh2isj8r6+G5zP/UQ8dub5s= +1:eJxTTMoPSmViYGAQAWIQLfCjU+JgwRvHF+X/5UD0lte/lUB0toyUMog2vn9g +xhEg7XLs0nwQ3VEUFncUSJ96KRkPokNq3LLuAOkratPzQfRGE9daEH0rLwNM +619cNBFEF3Q+AdNfrhim3gXSq/5agWm5o/NyQLSP1AowLdQ0txxE68jvqQLR +M34ufwSiJZYWPwbRRUs1he8B6UO2a8D0ki8xRiCal+cfmF4VyboPRJ/a9OEw +iG53LjJ6CKT/GtSYgOgVzL7WIDpg23YwbdBywgtEfzt2yhtE9ynoxD4C0g0L +RJNB9Kx9Pf6PgXRZ3CkwfWPf6pcgWsNT8Q2IBgBMg7MM "], CellLabel-> - "In[788]:=",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"], + "(WOPR) In[821]:=",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"], -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.817214601000946*^9, 3.817214720325386*^9, - 3.817214981972458*^9}, +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAY6+Q7///978vtjyhSXr0vxT7GiY7 +/Pe/mB28sDp59L/ERqVcdvj3v2ihTAUpePS/Jt65yezw97/8+WOo/HX0v+oM +46PZ4fe/2eOiMHpx9L+bWG3aFN73v9R9sb9PcPS/TKT3EFDa979ySPMCIW/0 +v607DH7G0ve/IXkF97Vs9L9wajVYs8P3v+j47zWlZ/S/Iba/ju6/978tN6T8 +U2b0v9IBSsUpvPe/B752Tv1k9L80mV4yoLT3v0sS8Cs/YvS/98eHDI2l97+T +ONGWfVz0v34l2sBmh/e/t3LOQ91P9L8vcWT3oYP3v6x7rasuTvS/4LzuLd1/ +97+kdO9Wekz0v0JUA5tTePe/+l90yQBJ9L8Fgyx1QGn3v9X7SdHMQfS/jOB+ +KRpL979ws7OUezL0v5qbI5LNDve/mMZDvQYR9L+qMJmhtwr3v19ArsWmDvS/ +usUOsaEG978KhKvDQwz0v9rv+c91/va/n/U14XQH9L8aRNANHu72vz75XEG1 +/fO/m+x8iW7N9r9/7MbDuenzvyifvmXxr/a/5G7HJLl29b/5zf6G + "]], + LineBox[CompressedData[" +1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAhu1/MRuo9r+L6/cINNLzv5/fiG9R +Cfa/mvh+xp9n878W0FNPKRX1v62o6u6btfK/yFBTRMsl9L/8Sc0GVPzxv0gp +JXQjIvO/3eAmQTYr8b86rlymzy/yv9mAtlx+YvC/+opmEzIp8b9IBYHywwjv +v/X3pJVeJ/C/FSSbBFxN7b/EIpI0vm3uv9K3JteFquu/OwV/sytk7L/+22g5 +rd/pv5RANzdBfeq/yclLYqgv6L9jnFjl6p/ov5rZaq8/hea/z6ceCQGa5r8x +QOgV2bPkvx4MsDG/tuS/qOhk0GT/4r8KIObP6ariv73Z9BdCJOG/bFSFmKio +4L8z+SH/HqDev2DD38sekt2/xSD1sC40278iPf5RxYHZv5bs6qOze9e/qWiz +4bu21b8lxhcsxQDUv2rzsVyLmtG/lgJMl6450L8ufgVZBiPLvxplhLWsBcm/ +E3nUC5abw7/SxrytuxXCv9dkbCqv47a/HywUQqsdtb93eiqOyZWev0jo4uPJ +N5y/qo84QKQwnT/Thcu1Su6aP45pgdZggrc/UOAWIwmwtT8N9Ew7rFHDP9sL +UeGZ0cE/4HTGNHaEyz9kTB4OaV/JP+65TcJ3yNE/ipKeSOxj0D+mh6FgZInV +P90MgSUh19M/JfarE3ib2T8mHeSuQZPXP96yH707aN0/JU4/G+EN2z9Vl+CI +65DgPxAX9FPSdN4/nqWMvUyW4j9iXNauhRHhPwRbbe0FeeQ/3DrzCoPH4j/O +YKmnUoTmPwX2VjZPoOQ/tQ0aXfds6D89y04+lVfmPyaaIegHTOo/MzNKXM8D +6D/6doT9q1PsPyB4U5YX0ek/6/obDqg47j/tv2I6B3zrP6Bnh9QbI/A/opEZ +4PpF7T+QQcyMGSXxP8gzWQDGAe8/Dm+rQsMV8j9fZeoqqEzwP75EuL22GvM/ +oEcmMyIl8T/9bV82Vg70P1MUrgy+6fE/AQfSmSv99D9q3MricaPyPzZIcsJK +APY/7GSWm05h8z+JMgvvEQT2P0ZLuD/0Y/M/3BykG9kH9j/nb8vQmGbzP4Lx +1XRnD/Y/mp6dr95r8z/OmjknhB72P8pNjRZddvM/Z+0AjL089j/ESR4ZIovz +P5iSj1UwefY/mtr1rbaz8z/rfCiC93z2P8zLkRg0tvM/PmfBrr6A9j9M5Q0F +sLjzP+Q78wdNiPY/2rKAUaO98z8w5Va6aZf2P8fhpzN3x/M/Oc7ZA7Kq9j9y +Bcts29PzP7Wm8Fo= + "]], LineBox[CompressedData[" +1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA238YOIiy9j9LJRfu19jzP/rcrOgV +8vY/DdZOOxcA9D9EbMiQTfb2P1aMELucAvQ/jfvjOIX69j+OrklNHwX0PyAa +G4n0Avc/x7cFbBsK9D9HV4kp0xP3P9Xd/73tE/Q/lNFlapA19z+4Gqa16Cb0 +P95ggRLIOfc//WYWNTYp9D8n8Jy6/z33P9Gu71B/K/Q/ug7UCm9G9z9WyuXF +AzD0P+FLQqtNV/c/o/EUG9E49D8uxh7sCnn3P051cEBWSfQ/eFU6lEJ99z8P +RvKNSUv0P8HkVTx6gfc/Vu0r2DVN9D9UA42M6Yn3P6zIzO74UPQ/e0D7LMia +9z8c3f3XJlj0P8TPFtX/nvc/JCM2p99Z9D8OXzJ9N6P3P/Hq4viQW/Q/on1p +zaar9z93r08+3V70P8i6122FvPc/FhqUGR5l9D8SSvMVvcD3P2+DXaGcZvQ/ +XNkOvvTE9z+FAHVbFGj0P+/3RQ5kzfc/QAPwEfBq9D8WNbSuQt73P7ZDaAVe +cPQ/YMTPVnri9z/4PKN+q3H0P6lT6/6x5vc/lC7B2fNy9D88ciJPIe/3PzIS +rkJ2dfQ/hgE+91jz9z8Kxe7bsHb0P9CQWZ+Q9/c/3B+Abed39D8aIHVHyPv3 +P9qlAUEaefQ/Y6+Q7///9z8wtjyhSXr0P0YaBhk= + "]]}, + Annotation[#, "Charting`Private`Tag$906403#1"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{3.4698486328124716`, 0.6280517578123863}, {0.5, 0.5}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.5, 1.5}, {-1.3414851605111204`, 1.2798553751303068`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {160.85922755461604, -97.08986231664207}, + ImageScaled[{0.5, 0.5}], {301.7078610521121, 184.93307107931824}], + InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vf8fx5uKQmlIkZUImaVovEuJEkWFiKSshsjKCEmSndGg7FV22euN +kD2uI5t7rXzteV2X8ru/f855PB/n/fmcc16v1/tzPoff6Kmm8YZ169Z5MA7/ +P3slFG7vfb2KRVdlaEIac3Cl8nfNpyeraCyvcXD65SzwlD7dfYJ7FauSPRva +WaagnuO4jQLnKirxrcf0sklwNKa3nuFYRbk3j2U4HCbhN8vr4ItbV1HgjJe/ +9X8TEHgrjENzYQX9PvxuCWoeh43jFTue1K9g1KByXHjuf/D9jLel5a8VdCi+ +oF5m9x8YBl5rti5fwbWOcT9juf+g6HhXgGPeCurrVk4czh0FO7dpNq+4FRT6 +YX/YoeQP/LdnP2us8wo6ThxtKh4cho9m/Y8T7Bn1/7VR7L8Nw6XCuPqvz1ZQ +7GaZVrzVMMQYSvpmmK2glxTnD+31w3An+eK2kpsr+DHjisWWw0PQdO4pc6f4 +Cq6aP53992oAsh9VbGbvpWN3lTZf7IF+OMlnIZ3QTsfJT790lwv7oIDg1D9D +ouNP1bM8kvp9UHrmUdajX3Sc04oVl43phVp2jvvVmXQ8bCj23FquB8g/7pa+ +9KTjXZNZH2/PTjAyY57Y95KOM+kjKsLHOmGY+wdnhhMdO7k8+HwHOmDsNdPT +Pks6jptwuSWd74BF7VSeU3p0dNFav34zczuwrNIdFyTp+Gcyx2l/IQF+GXEJ +PqJ0bP/jHxFsQ8AOY3WSgBAdP0jd5UEJAvY0Rh/R2E/HfVkSNOH4VuCLUulI +3UTHUdEfq9xhJDh+8f1x085l5BV6cO55bDMY+krPdLovI4vD2fkarVpwzAry +bHixjElX3g4o0GogtGeeu+z5MmbvNBOIDKuBWvGcy0kWyxjFunhLYaAaZBsU +Yu10l1Giy/vWW+dfwMR2UWuXzDIWmg3xrnVXAJ9c/ATT0WXMfftTu9mnAk4Z +ML2iCy/jV++OweenK8AyrTqdwrOM7M8lL16O+gmd6mrMGczLGG5nkJxnVQ4p +AVpFVyk05HI+vd1YoRSqcnM1z/XQ8PkG2u2GSQRK/77/ZNtpyMZl6KpqhrBX +qnvPgQYanovbuivlXgm4Nt99+l8eDXcKmHolGReB5k5zAc9AGk4Ks09PpOfB +Y/naPAcfBteLMclCHry5J3btiScNBUvHzlQ05UJR5qTTTWcatg8Nxxct5ICQ +5rM2ATMaZlX+u5yjlg20ICcvBBq6c2iXGcp/hz/cZWOXFGg42rl74BKRCb8T +mNQaj9Gw2WuVycUyE34UvNvZe4SG0sxJW0gpGWAxkBhG30XDtD8JSubmaTAo +TaQcH11CpUzOT4f+JgGpkIu9eGAJk2rFUzbrJkGp0l2ri71LuH3stLdAfiJE +3B47foO0hL6DF82WXiSAzst1aFm0hKeFKWvG/HHQ2Czekhy4hOrsaxpPQyKh +SPeZrKzPEla+fRsoEBgByUO5oQWvl7ArdktTcMAX8KIp6tY4LqHnvYh7Hp/C +4QLf7cGRB0tYd5By06LjA8h8i1CyuLuEaaSHfpSZ98B3bChx8fYSphyqKiza +/h7+KT99vOka43qU37mX6iGQ9/T1Ir/8El4VvR4usBwIicu12l9ll/AdLTk/ +SywQ3r/aUSAlsYQu06elCsr9wfpDuAsILqGeK4n2LtkHJDBziz7rEsa01WUv +/XwNsWx9XB8pVDQNhCP9f20hSA+2yPdQcb/xOOf1N9bgnhS10PmbijtmspyN +9luBkeL9pgP1VEz4MapSm28GAnajHpE5VHzALBS+1eUKcPy8/OxcJhUvrBus ++XFEBjbsSL5LSaZibU6Q3iZeKRz4+kRBMJqKo+SOB31VNzGmd246wYeKbTej +7kwYPMQg0Zu9yp5UZKr8dMVazgLd7bNrR92ouI3WkaC3ZolGO5/Hi9pRUarI +LFQ20wb5lf7qphlSUS3krbRViRNGpWypyj5OxceFJBbpqx4YuGz2Q0uKinUO +oxe7t71Gt0u1UUuiVNx+suLAp+rXaEj2dZLno2LEbn7O1/JvkHc3h3QxCxUP +quwa9qe/xQgn7s8V/YsYYH/5afimAPSvfvHWuGsR/7WfivIPD0CXPf12TG2L +eGqv9IjkvkA0SI/WUKldxJhF57jhr4HIM3h4S33WIvaniiy9LnuHn69IP2t9 +u4iXi8xU31QF46FtV2qbPRZROV6F7LkWjMl1RgKNrouYMT3PNnIiBAuuhpCq +bRdxevTzRiIhBDvVl2RK7i3i1rzuGcqLUNx7o3g+SX4Rt/lu1lPe/QED9C7b +uvy3gOOfZFeDVz/hXm6jBqehBbyTf51325EwjOhxFHLoX8DlgShrnVthmKaf +0mbdtoCdnc1W7qlhWH+XXc68bAHnDVgtHt0Jx60P2qg3Pi3gzPYuc7ncz+j+ ++N7zI5cX8Dl/pYCBTST2+Rt8LriwgCZeQr9Y4iNRIVOvVPXsAkqPlWlOtUXi +3OKtrRayCxhSFzwjwx2F91yvfPzOs4DsFWfey7pF4bkg2bxTc/O4cN512eda +NH7Okuqpn5jHTUr5ceceRiPt99F1Bn/msepoqdLh19GYcUBExa1nHve175d9 +WxiNvPHcHRVV8+hs7azdKBqD/3I309TC53GjqQSo7Y5F3a4N3P2h8zif+9/T +jzKxmLO6BpaB8/i5gWdYSCMWLc7T3wS9nsdyhxbjbQGx2Fs7xdn+dB7djY3M +9rPFYVFv+wnDi/NIsxnUY94fj04bv9k/m5zD42XJ5tYWiWjxyYDJcHQOsc9V +4L/gRDSS3BWqNjiH/rulx1PyE/GKnvN3kc45PHq/T4OPKQn3/VCf7KuYw0SN +XTZlMUmYZTRvpPp5Dk8sWUmfGf+KU2Wn1Q+pMuobXJ0EClNwQHu2Z+elOayr +GdtDH0vBtsn4R2vn5tD9wYKHyIFULOJif9slN4fvmeNMvZ1T0ceK8jNQYA6r +urReGF9IQxF+T/m/y7PIL/zvpi8lHe+5NR36nTSLnLTQjv/SM1GrM/Jsb+ws +hrpppRbVZ+IVGUudoYhZLJEPd8v/LxOPDe3wnQuZxQNKFXNSh77jVhXNebaX +s2hkY+azJ/w7prG3lSnfnkWFDYWXEwN/4EpEl0E+8yzeOWmlcissG0OLhz9+ +fjiDPezFE1S+AjR4HuZywngGPQ0Tvvy8UoAistcekO7O4LsJZY48mwIsSMqT +3HprBidE/wBnTQH2BftUWcMMsuaO6iRaF6LwQ+mFK7tn8KAsf0dLUxE+O0qP +mHOaxkpFmSXVGMSCfpHtKQJTuDQa37ihqRwFd5xTvBkxjnNbnJYj8qvxu6jX +w4HBUawRuzY1+q8ReVsM88U6R7G/PfyA6N4m9LWX32rbOIpOsrkGd442oXHF +WPyW/FHcGrdiHKzXhPsM1Cji/qNoue/DqUu5TfjiHYeO/clR/LstILf2eDOq +0D4rbff7gxcGd/tcHmzG7AjbkFvuf5CZWBhpmGxGASX1wQj7P0hV7BpRpjXj +yrs1N2mjP2iZNuvAzdqCaWJGRVon/qAqW+0rJbkW3H1XWDaaMoKWz9J3e3i2 +YH9lJp+c3AhGKIo6HDxIQucbyxdPio/gH2v9xneHSbiPcs5cQWAEF+t825cl +SHh9tSnzLNsIDu0qqEwEEpbKTCkqjwzjE+rvGw6GJIyKFDXWeT+MWztSXg5H +kvD00WdvdX2H8cCUTtbnRBJ2FOSn3nEfRq9v09HK6STc8VuFamgxjIncE1bP +S0j4crvpG/NLwzg0bKB0sYeERg6xXx2pQ/j5w3Wq/Z5W/Mc03uA8wWB/Jup9 +7lYMC5GZcxkYwv1Fs9WKgq1ISi9TeNU4hBmXFjM6pFrxwkh/nU/CEIoFRDE/ +UG3FQze4pz5rDWGOVvT+yRetWEq+zxF5dQjDLbYurr1qxTsWyXLRikPYr3Ov +YZN3K4a8VXCNlxhCNsXjSkOhrbipVGdHGtMQ3r5WPkdLacVh8VAZzBnEC4tj +gRYdrSjqEj81mjyIhxNdJln6WtGiKfsbR/QgGj/UGQsdbEWa1W8BE59BZH4T +5G0/1YosuZy7WA0HsWWXXKvpRgKvbRVpkrs1iOljqpH2WwkMuX3Sx/DKINp7 +TH6yZSWQZ1VnY9axQRxt2Dl0ipNAqfNh87rMgygVTNKcOUKgbdC3dI9/A1gj +b81lKUFgwWDBo7T5AdxjvjmuV4bAC57dg+v7BvBeYFvLy1MEatVxE0nfB/C2 +9wOpSVUCnW5FZlH1BlB77ayekjmBpQnplnwaAyhvkB4R/pjATTQUv3JpAA+s +yxrpe0qgfxg57ovUAL44naojbkdgVD9/6MXNA5gYqP6R8pLAYSkZDQs6Bd1q +XFsjPAgUdVdk/ThNwd7n2SUqbwj8cej+6/FOCirX8r0w8iWwyjzONiiNgi7q +sl4poQRuK8ySLoql4MbaWanGDwRe3145OfyRgquRyad7PhHYmTZsLP+KguGl +9TrFXwg8uI7Kf/85Bb806WsHRhJopMHU5/uEwujLM6HXogmcmD+sRdamoKiv +X0pQHEM/pRMcLGoUzNx5wHZvAkO/98qNsooUfCUpq+eZyNDvj7a3/gkK8lzK +1BpIIvDfSbNLb8QpyHc74K7oN4ae3s83ZPJTMGrPyBODZAK9ur1KuvZS8FDH +hINLCoE7Xb7KSaynYJnVy8fuaQR65ohU71giY02EWI52OoH0qcTb8xNk5OdJ +tj+QQaCFsPB42wAZMwUPJzcweOBugnNeBxk/qHZdschk+PVRiC28kYyhwdwa +fxlc2xwX+aKCjCr3b+c5fifwLPMhacMCMmr773YaYfD387HlihlktNP+L/jc +DwIPOwrcFEogo5a1918vBod9jx7e8pmM97aVf0cGs43z2Y+9I6NtqVXaEIPd +BaO2Nrwho35q0PgSg6l6vGHpL8ioYX7ceJnBD0MixIKsySjH4r73Pwb31fMU +25iTseNwHr2KwZqbv6hr3yXjQocEazCDq85wk+VvkVESb15WY7CCXbgVtyoZ +p/6lf1tkPG9a2v6Na+fIuOlSn7gvgwX+fAqhyJHxZn1I3Q4Gv+flOlwhTsZL +t6LcXzHen0XnY26CABkPSQ+rDTH0cgnkvPx2Hxl1z949Isvg+er3XY/YGHqN +8e+0ZOhtun7vY/VNZKyT1VkfzvAjx1p05d5CP3J8vUj9kUpgxJDIQWFyP7o9 +Oj9RwPDP85bw+Ym6fiyUKO1PZ/hrUSX0IDO3H0PkrzQEMfzXOnHojV1sPz43 +ccu8/5VAYS7+hnVOjHrrsetNjDzt8OadqTTpR8nJts0P4wmk0Xl2+Wj2I6Wg +J24ulsDqnv2394j246WBtNCGKAIz1Licu/b0Y77NFIWXkd+PJZyRkev7cX+9 +NKshI99mUbuHj3T24aJXOvUrI//Xd+7aOl3Rh075+zN+MPrjpPtOsayMPrx0 +YfxsMqN/mB+wWZ316sMAQX7i/jsCvwlv/at5og/Z91bH0xn9F/SRiW+fYB9O +7I8mPXtNoCPz5gu9bH1oycFa1eFO4JXx9W9NR3qRM2qe/uQFgeNpK7udQ3vR +Rs3esdiKQIKXfuL8y14cvI15sRYEFgXSdJme9GKPfVKW/SMCfZ8tRgVe7MXH +STEDow8IFJebFo+f78FnMieYZ7QINJFwdc3v7cG1k1aVC5oERh5mJzX86sGP +pXmsQ+oEcnBK2lPDe/BnDSq6XyJwacmiTPliD1IbycrFxxj9O/Nv1x2JHvR6 +1/F4rxQjj6P+Jpb7evDuMeTXFSOwpyNt26eJbtTW/AbR/ASW50/dGgvpRmWK +mJUEYz1dzXRJ+ufSjUaBU/I9Wwg8/o1thcO8G7+9c42w2UBgUphE1Kkz3Xgt +UOeC8VIr+jlZjPkOd2Gm+ejpS+RW1Dkz5SIp14UGR/jvMqe1YtBxl5YLfF3o +e38fr1FiK9YdZTukw9KF9Uk63+KjWvHsQYkat75OvELtlpkMakXBtSe7SJ6d +eLOr8ZWLXStOlU4m2rR34JlvY5fT5Fvx1cXJ5vzn7di7y6XVPIOE5SoT147d +b8c3843PNBjf03Vq441pau3Yz7NFSyiC8f2+9V99rEA7Nog0bw7yIaGdyXC1 +X/1vvKgpS3Y1JqGZV2/pPb7fOEj96ZG1h4RX6xsymKsJLPExkETTFvRurpf0 +YPTZV9ekWLjTgtVEXdq/zwRKZq93Tr3egkq9NSnzDN8tzItfaci34NmpyqTe +AwRm1g7xFTG3oNSOkqjMp614tSDeUiixGffcTAu8zUlC88tirSe/NuH3wz4F +ShtJaHtZZPBjQBNeXzYdkp5uQTywINtt24TeEfwnWX614Nbr4rNMik34bzSk +v8CuBZUPCWr+7WjEkRdOEty/m7GbmO1zWN+IFtfefSw+0oQkrPbTPVOP36mV +7NWHarFDnj3PxKQa/b/FlJ9drsHh+rNsRheq8ZGBq212Qw1u/FEmpMhXjYeq +TnbH2NVgKLldOrPzF74PTU54UV2Niju6FtVVf6HjsXdnZB//wvWCnHeTj1Sh +4rM7jyJ+VOBO1kjNdcRPjO8e9vvPowT5br0r9W8uRn0N7qzu+3GYVrtqe10r +DvNZnNrKbWPhiPwG11XzWDg+sP7gSx0EblLMlERoCUgUaM9KfUVwdPkmutBf +AoeDUivIywiFRVuMw0URtkWnHI9SK4WuiofZ/oiwel2nZ22qFOafvn2+zqYU +ejPSj6B0ObBKHvz98FMZRFoaVJzJrQArutE9sfafIDhTuKxQXgONpoeG6Hur +wbnhgsfCZA0k3r3VqaJQDb+/1bGlcdWCeNZNfSf9avA27hbkt6qFIW8je7/Y +apjpoqtt4asDowXXn/ckaqCkUj6m9UU9eLuY5X09Wwu64blXHss3gYJY/+Fc +lXrIeg5tQsZNMHzZYu81s3pg0/p1tz+wCa4q17H+elMPZTvabTRHm4CuzOqv +VVUPuy84Xfus2gwDvnB85nwDOOWFObjTm4HG/j1nVqYRLsd2NqjrkODajHnF +jZUmmHmdZlL5hARBrk5tnNua4aPZq7VTr0hQTCi8sdnXDKNHj0ofSSPBl02L +s8syzeCV5xaycVMrFISJOcuaNkN1g7BeXnordEYXPNWqbwZlmu0o/5Y20FbY +fIj5bQtMdV15+ZG7DQI8jhudCGmB98W8+9ll2sDTB8Y1I1tgxL1GdfVOG9Rk +jmdrZLeAJytP+u/vbZA863vgCbkFqgQqbH0MfkOwP+sEhywJlNQ4Ni5mt8P+ +I0qH+mpI4H+PeXa5ph2KWoybWEkk6LBd1/+vtx0OaA5cFu8iwcOIqYKtTB3w +6+vpD8fHGPXTtc+4tTqg3eLQOgfmVuh492rgArUDcrKaskoutgJ/gmOzCksn +zOhvo3aotsLDAqsStYOdkIJa+RTNVlgduBumfakTlFNTsksMGfXHTms+et8J +z7un9yY4Mep/L5QFyXVBhwFNXTitFX6Mjad/uNIFLccMZ4SzGOP/DXz5bNAF +j+83de8taAV/4RaHBM8uSPLKfo2VjPrnqdIFv7sgK2Jd76keRv1+k2iKXTfk +PL34uW8zAUqS+gEj3gx+8Q3LWQjwv3DzxXhEN9x/9osllJ0A/seKtxeruqHE +I5hjExcBl4oP7mTm7AG96stV28QICLjb7iaV2wMjBl8XS1UJ8Jw4DSP1PVBV +Ykdpv0aAi0PM3/CBHrDLNinvvEGARfATxy1svTBLFN6P0CNA/ddGm74HveB9 +7q6Y2EPG/DfNZUIce4Hnll/VpycEnKU0zlwO7AWD1IO685YESKx8epJd2AuP +VG5bmNoTwCYpZerL0QenuF2f3HhFAFNRqJCiSB+crT07yeVJwD+VlcGlM33w +6KSpZZ0XAVNGVYb3zftAYn+l17QfASPTYrxcrn3APSMtYBRIQJ/zu97GkD4o +vGb3C4MIaHx/R1ehtA9YfqvC6Q8EVAmW75tp64PXwmycep8IKMkQbo8f74MG +PZbNxuEEpNXO3djJ2Q/JDg8lFSIJSNDW4fgl3g95/stWm6MJiBgqbnZW7Ie4 +/n3thTEMvf95qY0+6QdP+5y9Y/EM/XymtkW86gcOVl3avUSGfvtu1t741A92 +zh0slUkE2MXnezGn90NXOIfmrm8MPWV4lbGiH5692Uq6mkyACXpstu3qh7PR +nf5WKQQYXB37KTrTDzmBFb4vUwlInhA+P7OBDEcVhZud0wgQ/qHLV8dKhj0j +Lvr30wmIdfBbi99HBs4ZU/njGQTwnivtcxMkw8qeCLM5BoczzRfrSZDhgfrq +dFgmAZwNQl/k5Mmg3eRMSHwnIDhYx3nnRTJEb5c/kMZgdl0fvQl1MmzPMa/Z +94MAH74ShV+3yXA722TIgsFb/sxwxTwgA694olUGg1+lCi47PyWDnVWZXS+D +16y1OrQdyWDG/mh5kcFOCm9zZV6T4XLp8zXG/haW1hW9Zw0kQ9WjPn/G/has +f03ZjoaRYUQwPbWCwdN+/Ld+xpOBsYE38mHwo5s3j0VkkIG13OH7GQb/2f9m +l0MhGYJeHo/vZjzvfUr+3I0qMqgv958zZnB/4kSLRAsZPLqEfbsY76tnwZvJ +3EOGgLEuv1MMbj+mGTg0Qgbff8NXvRj63FjxeIqzZKij3mwuZejZVJarHrZK +hgMFmrzDDL1VvcaO2m6hwJjUkfOLDD9+qfOwXuegAPe582dmGX7tlqDsfcZN +gfcSPXcmGH4assbzhRymwNVtTfQ2ht/0OvFjHQoU+MO6u86GkYdLyTNn6Bcp +4PvxKosoIy/B3lnK3NcooEr6Smlg5En88mk9w/sUsKmJsqYw8vZcZJ2x+xMK +JCj0nNJg5LFyS4VFnD0F+vJcc9MZeTWoUnUf9aHAFb4Lwyc/ExB4Qe+rZRYF +Hgh+H3YOIaBHgPdHUAkFZlfddt1n9MeRDYNFWdUUOOrxRfIko3/KSx8203oo +EOEwrpHuQ8DiGcclt80DcNOT+yDpJQGKPGfXx7IPwLPVpc9Sroz8r67fVsk1 +ADs5W664OBMgUvj2ILPEADi4vr31x44A3ZOflN5pDYC+xbP9s4z1IYFT/9oP +wwF4ZLG8sdaUgHkq3+22hwMQIjBuFPSAAN/spMdcrgPguJcaP6tPAMrkBUcn +DoBH8ZzyOGM9OnS0nZJJG4Bc/Z+urVIEWG4PH2/dMAg3GhvOJ4kTUDxusLi4 +fRBM23ZzPhEhQOvbyFYF/kEQMe8S+sVLgJcwVbL88iA4bo7dUMJKwCT/HhdS +2CBcL2e3KR1phZNO0VZlcYOwWcgyMZvSCu7EUeOMtEFwO4Tynxnr7943l676 +lw+CgIZG0hlSK5ydsN9/ZWwQKI/TJ0lFrRCQ05VTJj8EE5L5dzQCWkFaNWo6 +o2MIWh6t65w/0grOceKDkQND8HG+9oS4YCtU/c377T8xBK6ez15pc7eCbkZL +8eN1w3DRaZnzDRvj/ns2+oqIDMPLUPk81TkStPYbi0TZD4PeRWMB+1wS2NqI +3QvYOwJZZt+Ci06SYC/LdJEW/wh8/zvTnidJgrzI7/sOio/Aa82LA4mHSbBa +K9+ccn4EgreWfjLYTQJ3fhWofTwCtm0hDVLTLeDf+IBn888R4DFl1XOMaYEE +kYhOx6d/QEOnoF1uXQu09+zQNKkehf3inketFZrA0OH0ny1Xx6F8UmEm3LkG +foqd8P65eQpgrkbk1M6fYCB5M3aWfQqS77gFUpbLgSZjVcS7fwo2rQWYBQ6U +g7hC8pSTxBRsaA1g3ppVDiEqvDeOaU9ByqqS6X3tcjAx3sIdnzQFd+//GpuI +LIOtke2pnqrTMJXN/kNLvhQOMxeNxqnMAMtFyzvZooUw90viYYzaDBxUMxi7 +vLEQSjyjxyM1Z6BSf95jrbsAtDa9mQq7MwNOhZtyGv0K4PWaxkKg5QxoPTrw +a8N8Pgwt/llz/jgDUhYsLFM/8yBmYBfnrdEZSBKhWXG9zAGLaM+PmpOM+QeE +Wo4a5ICC4TLX9bkZEFRYmTc7lQOk3j5u1dUZUIoW3XuTmg3rO78KnN8xC0Ld +YvHrLbLBsAkkjp6chQ3ncmJ+P8gCnqJHSpu9ZuHxJptTYlbfYTcXnW7hNwue +fo9EG65/h+12XhkdQbNgIpr4IUrqO6xKxh9I+TILyqbX5XpmMqErtm9W88cs +yCndvZJknQnvfTQiovpmwWsg0yTCPQP8R/tvsAzNwnCnd7CBcQa8VrJgtvlv +FkRT2oeuq2SAzZq3jfLCLDhUPqHWsWWApnXFlSnmOVjyZTp94nQ6sOmdWDp1 +fA4upcm/lPNNBaa8ypR4hTnIDdzxk6qdCn933zRiPzcHm+5fOLv/UCpMNFo2 +DFyZg7OXhy54F6dAreK32LeGc8ClaJLKvJgMb0R5rrf7zMH+oIKDWnbfYB19 +w9dnA3Pw1cblK0dpIhgOds67/mHc/7LfuGlYIpTWZ5z1m5gDMeX3mSy2ieAW +aUAkUudgl8km7hNiibB2sWCth2Uezis8EeANT4B/AVZayrLzYOBn6VfmFQ8G +DirRN0/OA+mvzodc03goMeKduHdmHh6Iu6nNX4oHl+MNL52V5+HhkyoLeaZ4 ++NslkpqpNw/RT8fLpt/EwaoQeSO3xzz8IcozbT8wftnYc9WPvJ0HwaeuwU6O +sVBE8/sk5z8Phz8SiUX6seBcd0pS4+M8lF7SNZs8FAsrlh90PVMY84UPJ85n +xwC9UD1zhpiH+WcLL3oo0bCkUWxQKbQAKr+3/63TjQL3zvTes2IL0KgNpuHn +o4DtXsydPKkFmOqTV/UTiYLDlm90k08tAM8FV7P4yUi46a+h9U5jASy+3h2w +ORIJGbXDavovFsDNbzxL8esXML/AdmaRWIAJlydZHZlhsFC7rsiiawHU5/6Y +/nwZBm6a8wqj/QtQ9Fe++ZVGGHy813Gye2wBcgY5xW1nPkGVa8yxsnWLMBh3 +MTVW7BMIFMmJ+4kvwge167U6wR8g7cKRZCaZRVBm2jbz3uADyNcdEHU7sQg3 +6Jqv7h/5ANe71olYKy7Cw6d970OK34MLrVbwts4irHW/ManvD4XuY3cPCHks +gvkmvcwDW0LAZPk4++u3i9D8aDBrS20wzBRv3zjsvwh3yjgD5HyDYZNywVjc +p0UQsHWNVWYLBonbewoOpS/CR5kdNVFbg8DtRZ3Ooa5FWFfy5F9STACwKMZc +9ehfhBMdKRy52wIglMnh3NDQIiRYJrB/eOYP3wIOi8RNL8IlyT3en+X9oDX6 +5ZLgZioc4SJemyR7w+GqE+8FpajAeS4+boLjNWR4s3m/Ok6FxsGtPWdveIDC +teEXgwpU0P22N/d94Cu41hFkHKtEhaqHiZV8G9zh+djkMUE9Kpw3PbV2zOUF +bEivEHllSIW/Xqw+R+udwM86nHvQmAp3+gd/aOxyhJhVlU2xllQQJG1j/+pr +B3Vsca0CnlR4fNy3seC6BWi1Ov5y96HCUe3CiJXnD4H8QaNwIJAKG8i3dPPf +mcAC31pMTDgV1DLpto+F9eGgrO4zgUwqeHrtzCg3k0ZL7R07BXqooO+c8aHX +2RqNkiTDhChUiBrTWfhXbYu3ltUFj4xQYR9+eBvJ8xwVwv2OS81QwfL2ytsG +sjNu7mfRPbtpCZwjvznSzF5hmMnmWF3xJWjYldirdNoffXMPiRtIL0GNY/G/ +DakB6Lr1YvY9uSWg/Vw5YfMuEB98c/9ldm4JupbNmo6xB6Hk1Nq43c0lMH5t +v7AiGooVtvRjwc5LcH8wxjdkLBxzqrhK3r9cguuiS4MjTZ/xK6e8cpjnEhic +FQ5Ry/uC/vn2t6MDl+CGaXq+Q1Ak3v678CI9bgmKxP8uf8mJximP6aq6+iXg +8Rq6vWkgHiltbNebWpZA+dLtO9pPE5A4LNFJ+r0E/AVOg47/EjC/+vF4J3kJ +rIGgKQkkocf2MfbRhSXIkXDe8NTtG3KFDOls4qHB1Iv+2JPh6XjyFe9eGwEa +bKvUf3lSLAO1num2DgrT4KSnwOld3hkYdL1Z7acMDZ7sk5F+p5qJ21mLFN1V +aLCdw1qOpe87/nsdLL7OhgZHNcU+d17IQW7bxv+eOtDg2nS3z1hODp56wJzY +70KDMeXUrKdiufhc0ZUf39Lg3+cvdUP78nD238O9LpE02CzbRundXIBD9orr +VmtpcP6Pw7FTYiW4wfRF8aNmGnxZv2p8PrcE+bTyHLvbaCA0Wh1AvYiof0xi +sYDMGH+ZK6xEphR/z3CNOVBpoPPng1GWfhnWmM+2LvEvQ15Y0yuu/p84qiP+ +zlR4GZzfvtv1UrYCmVRM1dvFl4Gn0UqM7FWBiod7q3NOLMMjvzBtP7lKLBqo +LrZVWwada6mrfV+qME0vKnH++TIc2caafyGiBo+1C9KZXJbBbWG6yny1Bgs1 +E6/uf7UMC5d4f7/Wq8Xqy2mz5/yWYURht1Eidx0Onig65R+9DBw/WIIrvtXj +vt0dTSK1y6DtnD69k9aEEQF6AqeblsGyS/rDGdlmFNrWb3ONWAaV03YBqw+b +UWbDCJdd3zL8qfd6y9PTjGoz8/d/zi3DRuPO3i2VLehez07TP0CHwFa/yvvf +W3GrSvAVKz46vOhpV8mba8WAn3u/eAjR4cbWp8mJsgR+LuBRTJakw9TGSl29 +XAJzk8R8aRfocPSGafGxqjac8FDmC35Mh3HtUO+EDR2ofcZVpbqYDinWqxtf +/uvBnsUR9vJyOtwZE7qWotmLRmnq7YW/6JCj/7EhILEXH/MeNElvoYPVaxZW +jxt96L6++NX7YTpI1VxyUMzqx7RKeskD1hV4nRwuuFONgsdcjDwNOFbgeHJo +iOQLCubL1arpcK5AvuPBgh+pFKxI/NSjyr8ClFDOqGn2Aex8e5Iuc3wFarMm +zZQ7B3CTut3x9for0K8+GLPZbQi9mfpW6fdWgO3WsEldzhCyo1LFgskKyN3k +5F8/NYT7pfbcGLVcgT3bJ3hRfxglObIsmzxW4HJ17qaPiiOo+3s2+UsKY7z9 +6odbAqOYafBEQGF1BXJLRZhGzk6gUfYMT9T6VRAYOpi34j2Bu7fbcDFtWQW1 +9Tnd6e0TaJfvuIO0cxUCP3pdX3o2iQq7vf6ZC6/CMTkfzoOZU1heE9P1SZMx +vraq+0bCDFrzHf69pr0KXvw7t/i1zOAh+68txvqrUHyrT4fn7wx6HsqoljZb +BTTveqF0axZVXYtzal6sglm8+tVy5jncMTY+f8JrFZbrDTfvNZ7D/wHlPNQj + + "]]}, + Annotation[#, "Charting`Private`Tag$906445#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.4999999999999716, 0.5}, {0.5, 0.5}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-2, 2}, {-1.1496792039950476`, 1.1448116011786587`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {481.0287324685357, -97.08986231664207}, + ImageScaled[{0.5, 0.5}], {298.6099606614872, 184.93307107931824}]}, {}}, + + ImageSize->{ + UpTo[600], + UpTo[223]}, + PlotRange->{{0, 640.3390098278393}, {-194.17972463328414`, 0}}, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.8172702319184723`*^9, {3.817271056741686*^9, 3.817271069000525*^9}, + 3.817271313118545*^9, {3.817271408985536*^9, 3.817271454589876*^9}, { + 3.817271694266157*^9, 3.8172717054033327`*^9}, {3.817272810682543*^9, + 3.817272864936503*^9}, 3.817275682687436*^9, {3.817277848688168*^9, + 3.8172778625827103`*^9}, 3.817277919175124*^9, {3.8172780270049467`*^9, + 3.8172780475022287`*^9}, {3.817280236948023*^9, 3.817280282125651*^9}, { + 3.817280450116068*^9, 3.817280466295412*^9}, 3.817280587317416*^9, + 3.817280647024148*^9, 3.817280761888534*^9, 3.8172821757749*^9, + 3.817282229805689*^9, 3.817282311242402*^9, 3.8172824892587852`*^9, { + 3.817283399411484*^9, 3.817283426493174*^9}}, CellLabel-> - "Out[789]=",ExpressionUUID->"b3ae6262-2369-4579-8f11-16e2dd721349"] + "(WOPR) Out[821]=",ExpressionUUID->"155c39dd-ec1d-4900-9cbf-4fc4b876ac75"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{ - RowBox[{"testEq2", "=", - RowBox[{"Simplify", "[", - RowBox[{"testEq1", "//.", - RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[CapitalDelta]"}]]}], ",", + RowBox[{ + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[Beta]"}]], + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], "/.", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}]}], "/.", "s1"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", + RowBox[{"\[Theta]", "\[Rule]", "1.04"}]}]], "Input", + CellChangeTimes->{{3.817283576740225*^9, 3.817283588198867*^9}}, + CellLabel-> + "(WOPR) In[830]:=",ExpressionUUID->"da645597-b6a8-4dfc-83c5-3cec31d750f9"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"1.7736514921292306`", "\[VeryThinSpace]", "+", + RowBox[{"0.7346705029632056`", " ", "\[ImaginaryI]"}]}], ",", + RowBox[{"1.0629888287473626`", "\[VeryThinSpace]", "-", + RowBox[{"0.44030438951824896`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{{3.817283566616807*^9, 3.8172835890690536`*^9}}, + CellLabel-> + "(WOPR) Out[830]=",ExpressionUUID->"f27b02e6-f3db-42e2-b534-43e5409fe36c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{ + RowBox[{"ListPlot", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[CapitalDelta]"}]]}], ",", + RowBox[{ + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[Beta]"}]], + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], + "/.", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n1", "]"}]}]}], "/.", "s1"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "1.3", ",", "1.4175", ",", "0.0001"}], + "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"1.3578383417066", "+", + RowBox[{"0.048953289720", + RowBox[{"x", "/", "2"}]}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.817280804305807*^9, 3.8172808637975616`*^9}, { + 3.817280897254437*^9, 3.817280903087328*^9}, {3.817280943100966*^9, + 3.817280948025497*^9}, {3.817283466925474*^9, 3.817283468322001*^9}, { + 3.8172835171353197`*^9, 3.817283535406034*^9}, {3.817283616348012*^9, + 3.8172837913669252`*^9}}, + CellLabel-> + "(WOPR) In[842]:=",ExpressionUUID->"b03f723e-24d4-4097-8ca2-9b1145403bfb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +\\\"714.9997764249956`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 842, 544, + 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.817283761224256*^9, 3.817283792191354*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[842]:=",ExpressionUUID->"1ff6b3ff-f0d9-48ea-95df-10584520bc02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +\\\"818.9883777407213`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 842, 545, + 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.817283761224256*^9, 3.817283792266705*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[842]:=",ExpressionUUID->"82682d18-f80c-4d23-8675-d31ca1576f0e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +\\\"958.6767276347036`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 842, 546, + 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.817283761224256*^9, 3.8172837925686893`*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[842]:=",ExpressionUUID->"164319c1-a2e0-427a-9f70-94e763f48d8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 842, 547, 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.817283761224256*^9, 3.817283792766893*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[842]:=",ExpressionUUID->"5d8fc41c-1820-4591-bdb1-29d65ed68611"], + +Cell[BoxData[ + GraphicsBox[{{{}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], + AbsoluteThickness[1.6], PointBox[CompressedData[" +1:eJwc23c8V98bAHDZComiVIqWkJGR/VApeySZoZItFCqyI7NI9sjI3nvvvTdl +RCL0Tcge6ff4/eX1fp1zn/Occe89934u5oeWdx4TEhAQhBETEOz/9aSlCnt5 +aRiIXpx3PUK6DrrXV1nbTw7DrdOMmjMk6zBC0RN6jmYYlNPyb5Wi7d4fmXAj +HoZ4ylkZf3S9JtfW3OYQuF1Le/gAbcmWOKm2MAT/nVsJ4Ed70K++a/02BL49 +xQMU+7aOP3BzaAjqJX9f+Uq8DittItyNbUOQ4OoXlYeWnVWmV6gegrGPXmff +oHfLnmeN5g9Bc+7nUm00g4HcilXKEGj1PTXmRvNeMJ+gjB6CCywKHCToaF1n +i+zAIZBvvk8yQrQOwt5cYRqeQ+C1ELGShY7n5tAidxiC003b6+5otYXLWVWW +QzD45tlhTbS23tRbB4MhILLcEeVEU7Ie3RDXHIKnlV7ORGjqGbdv5IpDYFN2 +ZPgz4TpwsW1If7k+BE15fjey0MqvxFlzrg1BzOZigzs6WY7d3p8D/Z1HWxO9 +vvBByJp5CD73SJNyoV3C1R9o0w9BBQt7EzHaTO/uL7lDQ8Ak2R0xcmAd7ly0 +HrxOMARXw9lf56CjP4UxSKwNgnu0gJsn+p12WeaNn4Ow0vjjgw56ILDtvcLE +IOS8u1pxFZ2nUFd7f2AQRBxpNsnRb5Q/8tu0DoI6/XPpCYJ1IDxiMB9QNQi0 +czqZhWjqIobP+fmDUPS65KIfWvZI0+5YyiC0ursUPER7RDjfoYwZBAq39HtC +6AkTzQHJoEGwYOamokEz8Vo4OnoNAh0Fyecf/9bAW+KLdLXjIMjPnC2uRDtY +1PCQPRsEPyP7tA/oFGZZXjXjQbC+RZ5nhv4tFy+deh/zF6vtvI62v79lTqQ6 +COepo/6eQIfefB35SBrzc3wnuby3Bv+MXnW3ig2Ckfr78Bb027gzxAK8gyBr +FkkSiw4UyuFLYR2EV2/jPJ6jt7/Z6JxlGgTmyMgTSmiP3BK7GLpB0Ldyqb24 +b6Z2JxaKQXj855bj3t81cNv+Z5mxNwB3D/6QH0JTWWRLia4OgELSXe4sdPki +/07v/ADol3pf8kTTSK/6WkwMwHuRV1d10a9fK61QDw5A3+VzKgJoyvUcjqK2 +Adj1sHWnRs9xePI+qhmAjnumrT92sf9/JIjoiwZgJnmTpRr96bZ6aFf6ANR6 +MwSEovW0b/znFzcAVUeqaKzQhj7u28qhA0Cq9f2TNHpBI6KG0X8AYlyd5JnR +vE+ohX66DYBKhifZ9s4asAaY6lW/GIBqwpXBPnRUjBhXxJMBkM4rK05Hm79j +/GRvMABHFwYyXqOdTMJK9bUGgOKnYOF9tLvEHTN55QFonx7vEUD7cc8WiN0a +gPzT5f8Oo8c0twP5RAdg6Euz5Pz2Gpwfu7rHfXUAVh/uhNSh3fpE1q6yDoAL +mcK/SLSqUsNTYaYBCGEssLdFy6s7P719FOuvXKJQQo+Pn1vSPDgAxEsf01jR +6TXms9YE2L4lnR4hmqL++N136/0w9/nlxbGtNdD1+cmT96sfQoLbCIrQruEp +r0am+iHx6N+Fd+gs+dPc5F/6wa6V/LcJWm+QXlqkux922GcIbu5bwKjmWWM/ +pJV4X2RCX4LpD7nl/eC5tKC7ubkGz7yMaldz++GYJkVaHzrYsktSLKUf7r/q +J8tEb9FuH/GN6YeJuRsv3qCjFLqvfP3QD+E8d3YeoCFfIFDAF9tbWAsQRUf4 +nRL84NoPi6UXhRjQ5/qtmDae90MD/9jK8gb278olCb0n/QCk1LUdaP15gfAO +g37wGMiPTUb37kZcAO1+YFdsfO+Gfr2r8q1IpR9OXRAOvY+mPqnbwivdD6mH +D2YJop3ONw4ViveDcwvHMB1awz6AXIy/H2KoI2gX17E+TadmK3s/6CXK6Leh +aw19m7RY+sH8Lm9NIrrOe0J2+Xg/VMwqXnVFUx36NuV3uB8CuT4U6aA399J8 +rpD2wwuCHXlBdPamtnj/bh+I8Dqs0e2Xk9JvO670wdInypzFtTUoyd4rvfKz +D6YEkl+1o4d+idtPTfZBVNd17WS0LivRtajhPhhXG5ZzR/8n6PBLq6sPYsp0 +FPXQVLojIUyNfUC82PZQBP1SVP3qbHkfGM6f8GZAZ42wlxfk9cH1T5K1K6tr +YBMdfOVNah9IMQkf6kGz3hz00I3tAyGtHcMM9PI0Z41waB8c1nMc8EK3zc9/ +Pvm2D4avlag+RkdTqnQc8OiDopWEaUl0v2peyC+HPviTKPiGCU1yWI9v7Gkf +fH/8RGRnZQ0M+tPjekywv4piBz6jz79YGmnV74MQl+jPBWh3Oq+xZvU+0GR6 +UxuIPrLRE9+m2AfNSn/Kn6DFMjjY+qT6wEFiuFkOfXr535Ovon1AdpZzhhX9 +tSDPYpG3D8hZFulI0f8dzWEhYe+DY060d7//WYN1DUOfMyx9UG0ZkFiDZl+6 +FSd+og98BB6Qx6A/WjQ9ekjTB+vHHF85oEk8dLp8yPrAWm3sgCY6mOz1ePFe +L2hJPA8TQH+eLPOfX+uF1Qu3JI6i/9K6jZ5Z6AVbTcmt5eU1MC24X6813QvL +PA/qu9Ge/w1IRoz2gsHBmJhMtNMva9Wvfb2QKLnk44s2X6tdvdjWC5bCyl4m +6E45NRab2l5Q0S4KuY1+I1j9ubGkFwqpTxZdQGeRhBw9ldMLw3V2P4jQedtP +++ySe6F5vvbS1NIa5Gv+oR6K6QXDrdWXNWgznfwmoRDM34x8PAadzq2xHuff +CycqV5Ud0TtrHhHUHr0wbpk3qI3uKZ3Odn7VC0nkwmbC6Fu2Z3jXnvUCJ83r +IyfQThTTZy3NemGT1rtlY3ENVkW/2y487IVrcZIBQ2iPkh5OK61emFJMMi5E +nyZ+JL2h0gtR+dkqH9C6r1Wr3WR6od70ntwzNMFz3QBayV7QpQtSu4OOWbpe +kiTYC2zKulY86HNf6niBuxc8mnMiadBs8/H/Ri/1gts59+HF37j+k9OOO57p +hc4jXee60SoGnxxYGHqh5oaPSxZaSvj+hQ7qXpB7krPgj04kS6S1J+0FMlkh +Mwu0tIWiBMdeD5wOOr0lj55u50yfWusBVYp7oRzo9xJMytELPUBhNSpFie6M +32DXmekB9rdJxL8W1mDCJUzkzHgPCHHm9LejvU9/c/gx0AMSTMt56ei7FgXz +uR09MMb1MN4XHUW36era0ANsgrtxZuhGvQ+SahU9MHS4JFcO3S9rc+FKQQ+Q +Br3tZUd72niwUWT0gHnciwOUaNezJQrzCT3AyWQp+esXXp94//l2RvbA6qJp +YAf6zlXlqcKgHhgneLycgW4USVCI9+0BV/F7D/zRfhQrbe/de2Au/No3C/TD +/0TV3zj0wHsyQmtFtHujy6Lzsx4wcs6i4UJ7UdUGvDLrgfpd/prD6I1mQkHH +Rz3wyCnQeek/bN9DYcpVuweek5Yp9qLfP0j381HtgbcRKVfy0EJ/WflC5Xog +7Ma9U0HoO86Dg8k3euAnVQWjzX79gLonFSI9cJWin1UNfUaTeHeAtwecpD/c +EkDfd8q1X2bvAf6pzWcMaP6z32ePnO8B6qWtnM2fa5A6VCAhcKoHTr4L+PsF +fTv7ppvu0R6onSjULEcPs+Wn+lD2QCbJo8YodJvwuYIy4h74eilQwgl9ztFG +bHyrGyKthNr10ClEEp3yP7vhOZXaY0l0+NO/RxpGuuE21zj1ObTVAVLSG+3d +wHqwvZkY7ZlTnNBa3g2WgwwBP+bX4LKU7Yx6RjdUtFcYtaDNbyQ1LkR1wwRb +vmIaOvlnkbivfzcs8K7e9ENLcR+X43bqBnb2l7JP0H1lMDP2pBvoNUT0lNGj +48lkgXrdoEfC534VXfWhO0NeuRvmXXSKjqIfOAl3H5bshpqTWZvrc2tg8tnK +ZISnG1jYWGS/oPvt/9lmsHTDM6K8tHI0X//zRQ+6bgBCdcYYdN6EZY8hcTcI +vz4Y7oJeYXejU1rrApGfjRcfoRvaFPLFf3QBf5hbvRR6+45dGv9wF4itCVmy +og1HElZ4W7rA02zm8iE097Kbt1BpF2gZO60szGJ+MQ2Gt9K64IzOXnsPelyT +yVMrsgvkynTz89EuFLJTtn5dYLQVlhqCPrxLYhfm2AX0QUlZL9H900dF6550 +wQFi1zoddOawGNeKXhdMtTPPAHrkhrwsu0oX7qvd6M+hZZcPe5le74LIJ1H3 +SNGG2zrfc3i74KiGSeL8Dxyf1kPqe+e7oKxwirATTUG3NX6HvguM6Qktc9AS +/STPssi6YPVQ7XwQuv02w5EjW50gyH7i2XO07QJ9vv3PTvh3iPiQNvq7/R/V +/0Y74aSMQ644+uVY5O+HnZ0g7fLCkAUtzkPh9K2qEyTurF0mRR9v5PtrmNMJ +GQ//25mfWQMB6tNGK3GdwKpxd6wTrZbSUOQZ1AliY5fbc9Fjyldnz3p0wsPI +xy3B6AdTViu1dp2wdfPAwEv0GZV3QybGnSDnu75wH02QHOt7XKsTvM8B/XW0 +0r9yqi65TqhvHJC/iB5w21X3EeuEDY7cwIPoewaujxW40PRd07+n8f4xasHD +wNwJDjcv3OpHU52bL5ql7QS6lzmFxWj2p0zLVcSdcMXBhDcKvbstOhq13gGH +jspWu6BvzTy3cp3rgObD8pqP0dpypBnmIx2gKGZyQBZ9WuCct25HBzx+ElnM +iU4KoyJSr+qA4OdjDnRoCQXyY/dyOuA690XFze9rcPWIVpl2PJY/fco5jv7r +ovDb6EMHuJ4sP1WH7j7Kk2Hv2QH1B7ePJ6NzTqkvBr3ogK8sl8/5oWsrjuXn +m3bACZnrItZo1/mmP190OuDVY3hwDy1i0JJKqtQBfQ8Zg0XQbMUO/UKSHRDL +2Tl0Fn336i2zZ7wdcKVU5SIpmmo2wDz/QgfYrMW5/ze1BuqJLX1bDB3A+aX4 +dw9aZeN++K2D2H8df6MitD9TY3n4bjs8cjj1OxKdddiOf+V3O/Rf1XNzRT+1 +/HVA9Vs7fHRXOm+ELnubfKq0vx12rWb75dHORmyuF5raoYWAOfAq2itshy2s +pB2fr9a1j6OJHyUeO5LeDm85HvDtfcP+JBWKBkS3Q8Q3bcZp9L/RyshjAe0g +aDZJ1YZePqbKGefWDv5jc9Q56LAtqqWrtu3wUM7ydAh6ocJnrM2oHU73WAi9 +QqucM1k01mqHRo+vDx+iJ1/Kn6dSaIcd7/JwaXR20KhdMbTD9u7eOCf6RXPN +lNHVdgg7kMB1DH3yv9RHTBfaQawy7u3OJO7fVaTXRhjaYUF9bfsbOqxROSj6 +IOa3G2rTgub2dhAy/NsGUsPuO1noQaXX3/mW2qD2eP67YPRTUTZ/iu9tsPLn +DM8rNN1XrqvTg23wKaJh4iH6BId2V0NLG1y5HRkpg37kbns/vbwNzK/GGHCj +FRLkRkOz2qAprFmYAb2dmnnDJ64NLpQeYdqbWIOQI5bv3T60wfqAHfUMOjbD +sN7lDZZzLx/qQFskPOl7bd8GZ4840Oejn1sZlL+1aIP+GmrOCLT+OKt9jH4b +xPsk3XFFixDEHixQbQPLCtHXxuisa7nG3bfaIDCpvU4Jzc96O2BJqA1GIhWo +r6GDSpUcGa60gd9yhSETOpu2gv3m2TbQ/UfXQYKWDXUJtaNrg5dnFMQXvq4B +08yHiizSNrDNelg5gB7tXgn5tdUKmoeUZCrQXHqRLNwLrRAWSjmVgL7f7qf9 +crIVKIuD3/iiv7/sEGvpbwWCnmmhZ2i5nQeNp5pb4ZTc6qYWWolM47ddWSvY +BFU1XEdr2VcUDGW2ghO9eDQb+qRq7FHRuFagv2nhRovWy2I4mPyhFSzf3rLZ +Hl8D+kahQAavVjhv2vB0Cn1x/mySv0MrsCp+c2xDJ7n9vElh2Qpd+aHBeegA +ymITn4etUEE/VRqBjqFNozlyrxU2Vst+uqGrrvzkj5ZphcGuU6xmaOEDcYOc +Yq1AdonwqSr6s+DOf43creDt9rhFBJ3wmtX24flWyDWWZD+PvhyqbUF8vBWY +HwVEUKI5Wdp60g+1QvNfefq1MZyvgYxIjX8t8K3JOmYcra8GbQdXWmBDcetq +E5pMqkaj7kcLjLF+7c9CpwhY33AeaYG0eUbXUPSt7BBPya4WqGZNE3ZBD7O8 +YKKoa4F6Z08CEzT/sh7ZUGELRPik9amgDxlEiqWktoDVLE2uMFom3b7SOboF +sgQKIs+hF0eU3XUCW2Cb8d17SvSHuWe+4h4tICIUFbw2ugZGKaJ9F162wDvB +oU9f0eZtpHdpLVrgTt21mma002duKuIHLUDrVj6bg267emp7+24LhF/QORmB +pqa+wrAh3QLTOke13dF0Vm36m6ItcH7ka5I5moFTt3+PuwXKVYr21Pbjzd81 +O3ihBUTtgx8CWpmK6cLJEy1gQvm8jxUNHex/ualagKdeTZEWfef0yqLcgRbI +1eYY2hlZg9bS/7bM1pqBLXjNZAadxRjAEDjfDFQ8GRTd6BHb+1Ll482w+Ee2 +sAR9oqLf+WdvM/jGdpjHo/OCbeuZmpqh5gAHtx9a/0ELpUZZM7ybfPTPFs3H +fVcjJKsZTlNYjuih9RoS4r/EN0OmjHStDPrw25tzzKHN8PHpz3ze/fLUpguW +vs3w9J5y3mm0wmiFeq1zM1S32lSQ7Tugwv64TTOIJNzpW/6yBmuf7/vaGDdD +dvn0yii6y0jEc1CnGf4tXGBuQsu8+2MkotIMFxiOaOWgt8XPXUmSagZ2+riY +CPS9A1Z9x4SbgbOj5/dr9Mstx7s+nM2gfypS1hL9ZHI1m+hcMxD+2s7VRPMR +OX9zZWgGXZb/zt9EX5FonSGmbIauFMMETjQbiXupH0EzVJgaXzmBvi2vq3li +rQk+qP1XR4ROjDhclzbfBJ0aPx/9/oz9+auwJPG1CX4+1qf5gpYl658c7WsC +cyvplnq0ebdWgENzE3y1iPbNQpsuJOycqWiCdjUtrXB0/QvLM605TVDLbM/3 +Gs1N4rppl9gEMp0bJyzRl+Ni3C9HNMGqWtdBLXROf0Dl5NsmkC7fJJVCk0ew +JES5Y7w9a2pu9IABM8/9F02wfY6f+SR6j/6+AYtFEyhziwEpOpwwRejXgyYQ +YvcwXh5eA9LZocyye01whok8egw99rum0l+uCTSO1o41o7MywfCxRBMInEy/ +lI8ePM31SZK/CXYkax1j0NdjLGxY2JpgMHzvqzfabmm0n+xME0zz68rZok8I +3K9epmsCEfbROn200OIQ7yR5EwwEWEnJo+k2uTn7/zZCkPOJ/mtoH0+19LY/ +jaBI22t2Dh3MypPSNNsIpY/fHz6M/lObx9w81ggOYRpV20P4vOHTfrSjtxGO +tTO9+LHvg5ZOg02NsHFmUrQPbcQYpP29vBEsy0Mpq9BXv3GlruU0Qla9xGwq +erIbDCiTGqFRf6gjGK0bV+19KbIRUipUK13RVepZ9LcDGoGFqKDEAp0vTEVu +5tEIUw/+VGmivw5MaAXZY3zygz1SaOc/7JQ1lo3Awbr+Hw+6KGbr+LJBIyit +5tIyofVZVJ0uajXCcpzgzYNoyQNSQvpKjbBi5OGyPrgG0Zvjt2JuNsIJ56Dm +KfTBv5yfJoUaYZFZ90Q3+rmgnOIlrkYY85u0LUezk0tff3q+Eej2jo0no7e2 +RR1rTzRCSOGW4gc0d/eN3aOHG0F8zbPdBV1g9aLCnLgRkghK71ig2TY2y1q2 +GkD8tO+0Jjo9YWaVdbEBhN5vutxCe03oG/lPN0BUyu4lXnS80LvD618a4Er6 ++y9n0BKPQ38+7G6AVz8KgynR9tfi1/obGmAy5YHO1gCul8SRKzJlDWBzPfDK +DzRng0VAXXYD0JFIUPSjl+t8GCUSG0D3psliNZp34WFrbUQD5KuRT2agS5Mu +R9wOaAD+gOOj4WgL06M+vR4NUCMfPOmJFmnRCtFzaIDlmZdLz9CmjwQqlq0a +4HRJ7cEH6Malqc03hg2gxmzMpYgu4IuRYdFpAENXY10R9JMDKek1Kg0wIFQV +yoo24b9+6tHtBhjMNBg9hmYqzQmjEGsAvevql4nQZY5CTAVXG+CIbqDrUv8a +HHA4n/aQtQFum1BPj6NzMsuFjjE1AGlXq3I72ueYXFs7XQMc3qxqLkFv55/V +9KRogLa789JJ6Elvv+83/9WDourNgSD05ZBJQ7K1enhs0G7iii7rt5rs/FkP +rtsvKSzRpwSDFMIm66HGWy5fB+2e+zHdcKge5t+IGMmi6S4sbQh21IOFudQF +QbS4xSTX4bp6eJRjsHABfUyjS3m+uB78uj5U06FjE09oNGfWg9SN3sgD6A2S +8zdSE+ohyu+Y22If9odB5fC78Hq4xnb/6TjayJC07MU7zC86wbwd3WKcLmHo +UQ/UJtNWpegFp9RYdYd6qD5y0jkZvblkNixvXQ/xp2+EBqMZFvSmpIzqwemo +Rqk7ettjter6/XoodFabsUY75kaY3lCth5s/BU7qo91uNU7dlqmH2skNLcV9 +78ydV4Z6uL8c9El0P5/Hrzh1+OthIp10kw0tvraxa8ZeD7Fxcmon0LPrg/7O +zPUQ8li3ggxt/e791xCGerjuJ3xlvRefZ8rTf+VS1UNd+mjyNPqpYlxhD1E9 +VGiLcfSjCRdXBVa26sCMX7usFm3JwPbkxFIdRPVz38lB89I1adz4UQef+kpX +YtCP/yqtWo3VgUnPcow/+kW1snh8Xx08MB9QfYW2P6zKN9xSB+6379OaoV2e +fO8/XF0H6sReI5pooUsBjPKFdbB4SzlDGi0jP0/il14HEwW5b66hF4pcgrrj +6uDmWrL5RfQtkp819GF10JTDqX0M/S+szPfB2zrwDJRUJUaHBXsvZ7+uA74b +Y3dXevB57+vi4gGHOth6uq03hX543Ou1unUdvOkOtelFb8X9zsgxqgNyipz3 +NWjJsFpDKt064OoVL8tG/+uNzba4WwfMo/BfDJp74opHryy2N5p14S2amYxy +RlCyDjy83pg4ou/fnuxIuFYHFeGNReboHRUVYVrOOpBsMaDS2S/3I2N/fR7H +r0vfQg59hyozaouxDpaNC4eE0apRC35Pj9RB/F1dGTb0k2y7rd9kdZCurN54 +As1nujHxZK8Wnp+OkqVAM0WdFf+zWguTr1i/bHZj/tWfjrz8rxa4r25azaG3 +169pEE3VwhVCMtrPaG7qgMOBn2thL0+5ohnNY2fAz9JdC7cpey2L0U+knjQX +NdbC4WF3jmS0E79xvWJFLfSPG/wJQWfEU1/6mVcLdr8saz3RAd5nlrxSa0G6 +JzbcDv3YU+sUe2wtEGms2BuiXftdUntCaqFN9dHje+jc22rBL/1r4ULwL41b +6PNqUeMXXtcCxaKPmgB6i+yUy6B9LbTzC2tfRFORRNl7WWN9WDehR2t5zbSJ +G9eC8FSZKym6+1H9k03dWvDdcI9f78L75d8DBoVqtbCrodDxA22tbJliK18L +Pd9o/w2hqWdHhIRu1ELOkx7hZjTD12P0BMK1ED7u6lyMZvr2R7iNuxZWqM51 +JqMjLt9KCr1UCzaT2efC0BOOM2rGTLUgdu28uxfakSvltuixWihfc/jvBZqX +0eglHWUt1BLk65igH8Xvzi0Q1oK1eOOQJnoz/+aH9q0aUAzJ0pRFG9Seepmx +VAOsy6Yzwmj/2kfBAbM1cEVo/SU7WoNr+8fzrzXwRVOe4RSakLzO7OFgDRBL +mFRSopdbY5iVO2qg94u0+d/ONbjxzJZUsr4Giuhnz/1G77lwHOcvqwGnWZj+ +ir67kH6XI7cGJMWVMrvRFZzjpRdTasCI+ohzDTpKIF3q/McaSJB31cxF/7Ik +XD8fUgNbvyNF49EHqnpaWP1roPiXDmsQusSBpILrdQ3Yideceo2ueRnYKeRQ +A8e/1p6wRdv8Ndy59bQG2prunzFEL1S/vKFuUgOEa++uqKM//KpKMNWvAXvD +uzel0aRnrzC6qtcAH2PyIyF0k2HFpwhFLKd57cuGlhQ1lCyWqoE+2dnyk2hz +7wu/h0Rr4HBHxyolOithPWWLtwYgjFtgrwP353LDlmfYa6C0gNplEa2R3iQh +zVIDlKyP+ibRFHha2ZzA47cvX+lD58gMbsbT1EAPr15APfr0zNboAFkNfJzY +2ylAE3yzdKPbqwYKChKrJHQMJ7uC+69qGKyw+BWKPtvDd3RrpBpIKPitvdHe +STH9Nq3V8GX33p492u2u45v14mpoTOkOMkfTis6xOyVVgy1TJI/uvl9tVRwK +roYeq8JhJbT/706Bj+7VsJLP6CmJPnPRI1jwaTVw/G0S5UWHmkkODutXA8Gj +op3z6N7yS39eKe2XT9fRozsa9eYuiVfDh2nF9+Toolm6gs8c1aDLu2Sy3b4G +8pzWKu9OVkMfcaPML7SmcnKF3MFqsLRt5fmKfp01t0y1VQXf47eYe9AHlU0X +BmergCxDhbEOTfPtUXrCUBXM5HQyFqA5cg6zPm+sgqw+k3NJaK+MND3lgipo +5GXhC0MbPrJR5EqogoKNP/I+aNa9rCW691XAfuOzxSu0scTH63suVUAh2hXy +BC3r4Sfx27IK7lD0NuujlapqfnzXrQKe/jECVXS9pRfPhEIVrNUtSEqhT+Rc +PT0pWgUMRAS+19A7548k/WCvAs7qw2OX0eYHXrT8YayCrXMn+E+hV4iqXIgP +VoGW3vEQavQhG9H2k1uVoBhL8Y8AffOs0ifBuUrYpp+3XGnD/a7OXXLt4Ur4 +uJo3N4P+9C9jxa2pEuLMHpl8Rjs9qHiYU1gJL7PXl9vQ3RpzKt8/VULLqrFb +JfqJUHjlyQ+VIGVdxJiD7ukVitd0r4R67dGyeHSsybXdqKeVcPVX/8NgtFn1 +gZaZB5UQph1F64V+TXqIkE+lEhimudvs0UQzzUlvJCphtsbf2wL94Gl23iRX +JahzZivro7P4RFjgTCX0mASeUUWznJldjqeuhPZc7nUp9NY7HibKvQoYlfIe +ENw/XjEywX6hAmIMQ8vY0b1eyU6/xyqgR009hQk93zeabtRRAQL3GqOPoL3O +1Vz6UV4BaenjEcToH31ff5ukV8CJyKiPG604XmENf/9EVICt6V76T7SlN4GK +q08FdOr/qx5HN9OfnzlqXwE8TZGjPehPB+uLMk0qoOl79149WuHNszo5zQoo +IQq7XIw+TtJFvChdAdetl7TTWvff71nYhwpWQOKLweBotJbn7zNSrBjP6MZw +AJqeYXl5g6EChHwFzr5Gy1XTL2STVQATX7rVc3SLFxG1xUY5SOZFt5ii95rv +q3DNlgOV+kFWXbQ5Y1f++lA5rNgsvFVBNxn846lvKgcjvRt/b6JzemJaPhSV +w6Qp+TNBdGq7to1ZUjmM/BJcYkcnEs/x3A4ph26RXpsz6GumG38veZaDRHYn +AR3a+7LEIJVdOaR9ZPtAitZMty/YfFwOvobTnNsteP4HPQibUysHHd2NngX0 +38pcx3Gpcoie0rP/hn4pzvZgmL8c6pQY2QfRuzp+MHShHESJzn1vQYsHRx4b +OVYOjtp28RXo4Q+nJ6dIymGxmMYkB/1FcCRyaa0MVl/8FviEHveLlCL6UQZz +/w5RhqFTW66MMA6VAXP24zlfdL+i3r1rTWUwM7/R7ozeSSMo1igqw/1tddGz +/ePfTW86JZUB04fiFCP0xODE8bSQMljrGo/TRjO/bKUb8cR4HJzxSmiCMPsf +1M/LoJwuMfUGWt+6y1/aqAwaf4uXXEPXP4wnfaNeBiKXNjvZ9+P9GFRou10G +hKydP8+gp4Jk9WkFy2BTp4z6KNrhxLSwHmsZTF2tECJHz4DXSM7xMnBg6Dbb +bV6D1WkmUTKKMnj8cvHTEtp+N1Dn4VYp8LacmJlGR/p1CtbNl4KBjSzHFzRB +ZnXnxZFS0F10tO9Ev/bQOB7QVgov0nO6a9EM8j7H9spK4dfJCfYitM4NmTqr +9FKYKyB5l4ZuL/E9ORdZCs/+O7sVg3YjkmUy8CsFT/4rpkHo625OzdOvSuEf +xaWpN+hzEReOmlqUwsfJgw9eoUsKxA6s3i8FqquDP6zQTeLNvm6KpTD83O3Z +Y7RSUkPOMSgFU47DZFroh5rCFplcpXCi/XmcIlq2gbNK5iy6p+T6DfScUlrs +T5pScCrp+nkNXa1ffCTgQCmIERaFc+wff/chtfCfEuDgMFNiRn93KQ2amyqB +v4U/D9GjS692xkT2l4DUWZ7ug+gL6dkcqg0lYPVLOPxf0xpIn7EVPlxYAh1R +xKaraKEi3sbuxBJwLvCRnEdveBK1fQgpAd/i1jNf0RWhe1K6b0qgi62KuB9t +NCYhwPGiBHaDDJaa0fJ8c6F7xiWQ+LJ0qgJtanLUeFAT83tUOpqLduacTciR +LYHBz/qjSejx06+lA0RKIOtRxrdIdEYxjaoNRwkk+If9DkA76BfU6JwugWff +mAk90Qf0w97KUGP9nzdPOey3NzFbKvyvGCr490St0IGz3cC9VIzXGVmDx+hQ +fefTbN+K4UDzhfda+/09fEmZta8YTrH5Nynt9/fD1gBbPdYndzwghRY1ZU/l +KSiGuJXl68JN+79H/mkVTSyGToc5Hy60C5cXn3xIMVjz3v9yHr0qe+GH3pti +sMqU52REt1CSjj1/UQxOjvneh9Gxp43pPpgUA4Pg2/+I0WMbPt4FWsXg/vSL +6nYjXr9mskW+yBVDf11g3SJ6/ADjJUKxYpitzr82gz57lVqGi7MYHh0QzR9B +C7H1x+ifKYbsM5f4e9B/jXIvhNAUA1mBdWUj2ujqykj3gWLQ1TguX44uD5su +p1opAvtkhm856Aqr/kal6SL4Kmr+Kgl9U+3wevBgEQwU0DJFockS52Umm4rA +LIOsKRBt6FpYxVlSBM9qb9u8Qed2NKu4phbBq/fdrI5o7svPCT5HFMF4VeT3 +p2jVjZMtV/2KIOVHyidj9M+7NEmBjkWQl7Zipou+eDIndPVJEbzNeCF0d7/+ +V40IbX30Wz4qWbTsfybpTSpFULtybhbQ9bdutvDfKIIN5xvN/Oj/0mV/p/AV +Qf7wu0x2NIfvN8azF4tANJYkghndQ24pF8lQBIHOcX4M6NAdLUdGiiIwPaXv +QbXfn/+os6K3C0GQSfw1EZqLZn3k/K9CYL0i6L3VsAYhyo4HcsYL4eQf2Q+L +aEsJujPQXQhp9M8SZ9BTZ1h5+moK4ZJUZsUoOvHLFX6TvEIIYV3/0osWJwxj +Jf5UCHnmsn+b0TRDo+QJwYUwX5l0sQp9QMiqX+pNIei2kt0rQIsWdHr8elEI +30VNfdPQkbZPToeaFgJxc1tTLJpPsStUSqcQVukvkoeiVXNN/2woFMLHsRdK +/mievDq2LCiEyJbqKHd0ObG6uDFPIfD6bSy+RMttp7JdPFcIml9OyVihLVxh +YfZoIeQ/5EgxRL8/H+2eSVoIgaMsVPfRI+Sy/9ltFsDKxu5zVbTxry7mmz8L +4JV58ZwM+uTFovPHxgrg9W9FPQn09QTf5fnOAiDhqxkVQDPPjnnUVRdA2gqZ +7hV0NIXQRExuAVRMs/w4hy4o5N5xSigAwWoqG0Z0E+u94YfBBVAu0kh2ZD8+ +j5i17JsC8KS7FUeGLuNwaOJ/WQA+BP4Se/VrIEGePHDerADuVobMrKLzxTTD +Ge4X4D5DP+A/dEg/Oy21UgHkBM1ITKGPa5eJkksWQPCF8xuf0fGLcfSkvAUw +/fx4fvd+PH7XaLILBXBfutqmCT2ivtlFyVAAemrHRCvR1yhSU45RFMDP+wwU +BegdFwFWlp18iGSuG01DN9hLyV1dyIcCfdqCOPQe36vDtyby4eAY8fswNJeV +29P7vflwRi3E9l39/vdnB56+qM8Hwrf1up5oht8Jh0IL88FQxlvBEd3CTS9W +mpwPobLTkjZo3z8kxBPh+eCo1itihr5gzqJL7pcPYZwKIg/RWSqnZPid8oE4 +8q6EJvpKb2LdY6t8sNSfllVGJwY+bQl/mI/rdUvrNnoi95pG7918oKQJsBJH +P2hOt6S8nQ+BXom+/Oir456UckL50GQnkMGB/vnUjcOfPR/kEqDvHDrdQbOz +73Q+qA9X/mVEV+i0/DpJkw95Y5mctGjqBT8vY8J8KHKkfEyBvv3MMKZkNQ9U +PIZiCdAvEo9xUM7mAUk1+dRG3RqkJetwPfqSB2PrH1kX0aUH/yVWtueB/VaY +zQ90enut/8mqPDj4YalxHA13zKZf5eSB/IeEU4NoWqv65G/xefCmJetFB1pH +L2hQJjgPQv9Rj9Sj2esSzQrf5MEEea1EOfpiXJPRefs8UCyozchDh5nWN4eY +54FeHxVTGlph2dSbUi8PGPniP8ShY8z80zxUsP10B5pw9Junu6yEN/NAjiI0 +MAB9l8CX0E0A82VeZvBCj1pS8ZNczoOaJs8EZ/Q1B80q35N50N5xl+85mlrk +VtQx6jzoJtNoe4IuvJDREU+QB17y/o8N0TJUjxV4V3KB12qZRBc9eEb+VPNM +LgRJu6aroe/PiF3T/ZwLv9OF7imgbeB41GZbLtBYM5BKoRmNy6RDKnNBzJKh +XBQdvkQsci0nF6SdBGz50B41X6xG43PhpZ01Hwf6xLFTc27BufCRu3HzHLrB +OSfmilcukHhy1p1Ev5559X7UPhdsldMC6Or23y8b1/pZYH6m/AaH0LK92pcl +9XOBKqtDlAidUCrRsnknF4Q3zBl3anF+9Qij8qVywYWZ7u8fdLOwf7y1YC4c +pqiY/ok2oOn+cpU9F+J8DHqn0BvLeK0/nQs67hT1I+hLYvx9VTS5MN+TXNqH +VowQeedNlAuPVEQL29AHdyps1NdzQO97fWEdOiMi04V1PgfmHouUl6Gndwhz +d0dzwLXkY2MeWmQun2igKweYyxcG0tD9liV2WbU5eJ1lmY9HS85SkPsV5EDY +HWHCSHTxbHyheXIOJKRePRuEfq7g7KgckQOM/OQ3fNGnr0Xdv+afA/zDxabu +6HjiTVVmlxyIfioe6rDf/3vvdamf5YDFz7CWZ2hSKnOHvcc5cIWlYc8M7Xzr +TcqyRg58/lshZIB21Jv9PiuXA0MPXF7qoK8vB7B/E8+BrauHqu6i/+vxdhzn +yQHve1pkCugC6i/DY+dzgCvPVE0KfXTNU3CCIQeoOIRSxNA6ZNHR0wdzIDat +7h8/ep5Q/uDITjZMHiXW4UQTZGmPLH3LBpY72xUX0aGP3JOpWrLhimw8yxl0 +1tSEBXdWNrDObPoxoG/eDbis+SEbUg/t7BxGn5EpGnpjnw3JSYmW5OiBYlvr +Cv1scP+4NkuAfr+zurZ+KxuIJ2cNtmrw/O3T0b92JRvu3Hn5YxnNofU5w5Eu +G/5OJpn/RNsfCR5u3cqCNTuLjSm0XX/d2MnJLHj7r9VzFD09FFTyrCkLXAxL +GQfQUxmiRr0ZWTATKpjfgS4UX53mC8oCbpebyo1o646VKzEvswAoR5Yr0QU/ +7cSp9LPg9uX10CL0L9dyWrdbWfC1Ifh6Njqq/UDyLkcWbHQULiejxVX8Nl7R +ZcEcl2piLNrp50cCou1M0BozvR+OLip3r3o7mQkatVsn3qO1+FyvnG3OhNtd +uyM+6JeU0zLFmZkw+8cq1h39/Ob24bsfMkHpjKrpK3QT89FX6/aZsHwjVtAW +/Y3ztU/Mg0wIV1E79ARtJfjxmrx0JhgIWU4Z7ucnX+H8jzMTun79rNRDx5fw +6ZUcy4Sk+43RGuj3ZAZ9drsZQO2046qCTiFIGRT+ngFOEj6msmiCJP3HxG0Z +0BL6RP0G+vLVJcf+nAwge54oLYqOZig/mRKaAbm97OL8aIa9SyJuThngE7l3 +jRNNXffx84PHGZDWwihwCc341H/plnwG2Co4Cp5FGyrqOvPwZkAS0zk4gf7d +6OrKzJgBYjwUsrTocVuTFfoDGRBiz6F5qGb/e3fv3iNz6aCw5G1OvF+/595x +2u50uOvF9Ppv9Rqs+cs2MBSlw7zg7Md1tNKnr70s0enwdnOyehH91PmdGO/r +dGCsIp+eQ1tnjxLJmKVDios25RTaaPYGs8GddIi5NiQ4iibdlX3/WigdUkds +TQbQw99sVdPOpkPjg2sxnehHGXIPBsnSgbORYbgJbeerVkKymAYmf+mO1qDP +tTOpiQylgQTRZbVSdF8PH59dZRq0dKtG5KEnGS/dKfqUBio6gd/T0RHib9J3 +fNPgZfxX7kR08I850VvP0oAhStAtBu3Z+40wRCsNlG5EDYf+Px7F9k/JNHB+ +T8oTiO5o2maSupwGMq9t3vqgHRKVn3yiSYO3dN8X3dFj5qnT5JupYC2ipOaI +pmZLdHo6kQp3Ngqr7NBMazOC35pSoef6UQ6r/fwWD9OoZaVC4wmjaBO0zM1W +gq7gVFB4kU77CJ13roxM3jEVyrW++urst9fgx9xtkAofK3fJ76F1HizIqsun +Qn00kY8S+vE1H5dp3lTg2VyklkETedBV251MhbNtVaHX0YpeIkTURKlw8IjF +eVF0hWORTNrPFPjYtlHAj86PEX4n15cCNavaMlxovrMuPculKeDrH/KNFU3P +I3kwOi4FlII+ObLsj9eWkJCCdwqEELufPrU//2GsWoTWKXB0krP2GHqKpdOk +QiMFys4nGh9Gh8TPGzhIpEBK7xQdBfrV0evSwJoCPD+m6wjRl42iaMhpUmDg +QYrtbhVe717WlA1uJIPsTTaOdXQ444sbKRPJ8Mzf6MciupPkXbJzczIYiN3/ +NI9+/b3vu3Z2MmjdJTf8jqa6TbcmGpoMTX2P2cfREZnMn1mck+Fm6dPVIbTJ +q15vKqNkiCTnqO1Bt/3bIP2rmAyVtW8D29BVJubyywLJ0DoT+rgBHdZDpv6T +KRkO2N0Uq0JXXEk8N0eaDOPPAo+XoPu0mbN//k6CP5MOG7noN/Ta68tDSfCv +imAkHX1i8+r636okWDp8uiYR/fiFbzp1chJ0D3amfkRf/yVNd/5dEvTR0oSG +o/+6qbCJP08CpdbJN0FooVv+Czp6SdCwI/rKH93K8EPT5XYSdGYw27xBL+Tc +Nk/hSgKeCV9LV3R17EfmQYYk6Ap+8cQBrSw3bkdKkARZ/dNWtlX7z+fLxqJz +ibAc2Wlnif7j1LNq15MIE8tcLib7+f1nwVBUkgjDn8n9H6Hnhmo6t2ITQf+u +WvR9tHVp7dHr3olw1Jg2Vx196LPp/FvrRMhhEGtRQafcKJGe1EyEg0Z9U3Lo +teFkLoHriUCv1U1wq2r/fa5QZABbIoyucrNI7Pd3wMJrkTYR3EVWbwnvz+dX +6dU7O59A5iq9JR/6iFL3aNn3T+A9HhTBiTafJhO91PEJ0iVNW1nRXGd2joQV +fIKrj0J2WNCXr+drUUV/gspbx3hOo0uUReneeHyC9aXvJgzoSKpPgiRPPsEn +w3+JR9AHt7ea39z7BMEZBjOH0GOqSlXUgMc307CSoouPFR+PuPQJqCoJnhCg +x1ekBi7TfILQQJ7i7co1CNCh/V25mQDPZGOJ1tAcdnyP7n1LgJ5fMqqL6KNM +TdwrrQkw7cieNI/ump1S/ZCXAH8Jr+9+R8ucTGkVikwAU1cfta9o1gK+d9/d +EyBo70DeZ7SofmpcoHkCfHNOPNJfuf/7OeveDTWMf/CpTSd6l2koblssASY/ +GYw0o2P3hr0LLyZArKr9jTr0W2+1fJvDCRB3Kie7At04/Pyk4GY8uJEQnSlG +U2WaVP+bjIfvdFaBuWjG5+pR7a3x8FRhlTQD/U3eMjsyLx5Giv2ck/bzW5hc +s4yMhx4NgZ1YtE7luLn063igEPj9MhJt3xp25IJFPEiq5e4Eo2trbn0juRcP +AhWvXALQ2eunv/wUj4dYKwVyX3S6/r31/kvxcPPF2SAPtEvwZYFamngY+/zn +rAt6rr0vOG8rDi6E1eba74/3l7e0KVNxMF7uLWWLzuOJSo1rj4MyGekxS/TE +tLDGx4I4sL69bWuKTojJOBkXHQeFZVG0jyv3r998y0meccCdypGnt1//M8NQ +jmUc+BxPvqu1P545Uc1VGnGgT02xfRe9JnqovkcyDhQDlOKV0LdYMht/sGH7 +Cc8VZPfnO7Kzg+BoHEQqOu3cRHPblQ4y/Y2Fv8H6GYAOP1o9LvEjFl45n9QX +RpuZcE4ZdsfCC5oMen605abGZEBJLCgrHu7hQtMOBg5WxcWCvPh1P7b99RJ3 +pXrJJxYyZyTlLqBp3rpFXLSJhXiZQ1Rn0Tz35gz078eCtGVkLyM6WLLkZMyt +WMjTXgw7hr7LolAxwRUL43TEj2jQDapENy+ciIWCqCGuQ2ifUsGcJ4SxQLnz +6B8JmsIxfPf58EfI4k3tJUAXJUuoM6Z9BGm5hKSdCryfTLCbNbz6CM9uKTmt +o2uOn+O1U/oIBZfTNJbRTkrLqVwsH8F2K4f/F1rGzaBtaTUGDpXpH5tF/85T +eFfaHAP5lkUb39CdUy4r3hEx4MOUPTaGVjgyuPzAIgYi2m43DKMnhM57SErE +QOtzx6w+9M07cimsdDEwf1khshNdcpvtHsOPaEiezvdpQR/8l+BNVRoNEelZ +r+rRQwoxYof8ooHXTdi6Ci3374AFjV40NJrdNS5FS3WU0Z6+Gg2vzbYeFKBl +dYov85BEg/Pri7rZaOob8xnyn6MgqfSzThqadu9mqGV6FFRTUekmoq+t1H4P +d4oCO/eaB7Fonida/u0qUSBzeskoEi3y8dA74gtREDweZhWC5gsb/H5zMxL8 +m4odAtHn5Ms9/dojQXRExtsPHelb93Q0JhI8GOXD36DHiFbjeZ5GwkXv8nQ3 +9Fkxbdp3UpGQdCm4xhEtHUpasXI8Ep5sDA6/QL+XIYvU+xUBBVv2y8/Q5XrW +aX3VEeDK5UpluT8fJdoz8kERkBE+w26KPkU0eavLMAL3d4nyj9FXqhjb7glH +QDZVpaU+mk6A3fQHVQTIHWcL1kY7uPKyOH4Lh0GN+Yp76GoXjQXGwnDg7d74 +oYI2HqttqvYKh1MOd+gU0LkHIlLNdMKBVGddUhptxUIdyMQdDhLWk09v7K8H +HsUXn4nCYaiUKkkcrTrtpxU+HAbJfA6jQmjS9H9XH6SHgerkBTr+/fEp+LrL +5RwGN8oPKnCjNX8a5JOohkFi/UVvdnTeQrfK1MUwMNmwa76InmXQ72/cDgWZ +u5tkLGh3Ow3enK5QqB1Olj2NJm7fM4+LDwUSZ7d3x9GfvSIdwu1CgeG2xxAd +Oqf3pVaYbCjkcWSeOYymej5LHMMUCiocG6YH0RfW+OzS/oQAx3X9EpL9/j4r +TK1sCgER0xmyA2jCuqqI4YgQ4Ix119wtx/lST725+SQEnk9cy9xA8yr1xJ+5 +gfXP/SNcQX82DsxRYAgBHcMhrd/oRWIFE7f/gsE6oaxgHl10zrClsjoY2gZS +aGbQjw2ut/4LwvLV6CeTaIsDskbSxsFwZjekaxQd2TMbHSoaDDdnAriH0SIS +3sYLNMFAmOr1oQ9Nci+mTmbmA/BIOGx3oo9khidnlH6AuwmPH7ai6WyWaOnf +foCEtpsdDehVM0YCz4cfgCTrmGDNfvyZQNNdgQ9AJTWYWI4er+lXeHnoA+x4 +uhwrRr811UvcnQiCKtOjb/LQyiNF5p4FQTD/w387E+0eqPuR3jsIGpfnLVPR +p8PHBTPvB4Gg64XZT+h510o+2atBMOojph+LztD1ebtAGgQTRFyjkWjZ5j7J +0NH3wP5tXT0UvdN3SfZ2znuQZHg/9B4tzng64e/r9yAf8ffe2/L997XS0mWa +74FOV+CLNzqJ4wa/I+d7IL0ndN8DbRaS/PgW0XvgsSX67oJusaEbPPY5EG5k +BZq+Qsc2XHT+LyMQPFYmV56jUzfd9ZpdA2FS4LfTM/TTjW7r1HuBMGZSdMgS +TcaYlxvIHggfHAUiTNFH2QcYXQgCofmhGZsh2uDRVIrNYAA0UtypeIDONPVV +t0wLAMeHs0r30ZqqLixWzgFgqcM6o4H+L9KG5PndACj4ceTVXbQtG9Ou++UA +WF+MPaqM1o8wJeb8+w7sDfuy5NAMT+Yv6ie/A2rBBNnb++uNkFc9RuUdHL9D +M3cd/Ve2yW9u5y34xtG/EUfn7F2sFk96C79o8y8Jo598GJ+JVX4L0u+nWvnR +xmLPN6l3/OH6oXgLHnTbtMdvr0R/2DP+TXtlPz57bDW1sj/whjSUsqJ1Hj14 +FLvtB6cdmR+eR8sHmPSKJfqBGxkh5Vl0mv79A7NKfpDJ9Kj4JPrklR8/I7d9 +wSZd0oAB/Ww110Mn0RfYQiJo6fbjaT5rZVX2hbQm0zpq9G70t0yCHR9QOZ/9 +7OD+eMWXsE0n+uD91+AiKTp+suRav7IPUBF6jRzYX/+myR2dO96grUgf8LcM +75fTCt/6k7zhpj7l7S20g6e9xYyKN3w8ZfRvFb17jMCE8K8XlBmdK11Cb3wv +bGdL8QKDC+I2v9CErc/9dVW9YEKwgHsOffX8xaTovTfw67Xb7+9onqFEqrnU +N1D6X2LmBDoCJsvF1LBc8eSTUfQn8fqUGII3kPxugmsYrXFZsuNghidYv138 +04eW71JmclP3BEV26eIutLHlQggxkSekS/141YbOrabnfJ/lAUYVTTea0L8n +ekbZtDyg0+LHoTr0is75sC4SDwi9dn2wEr3AzqTtmPsafqwPfSwt2//epvvU +tfuvQcYrzqwQPeyjOLhD/hoKm2MEc9GH1wpetRe4g0dAO2kmOkCf+VCSvjs4 +Vp4fStkfn9iiF76U7tDImpz0CX16KrLSocQNZtOVXsSiBT7t9toZuEHnmZNy +Uej6MvKsVzRu0KpDeiYMbXlrVca/whXchalXg8r2/798IzrF2BUOBnC1vdsf +z0ql+K6jrlDNaxTni/bVEVP6V+MC5ju5L9+gPw+SRAtbuABrBaWqO3oo7Y+7 +ywkXMJW1ueKMFhVN2IzzdQYC+xlyB3T4vfld9WknOMR0f8YOPUNnQHJOzAkI +KT7XPUULyrUQEoU4Qg6latwT9Cmx/pmN36+Ae7vNxRT9wkf24wHpV7AUJ/rA +EL3Ms3vmbJwDZPR/uv5wf/14VWmobtvDQ12CC7roQD4r4UhVe3CikSfXQhux +bhZuZLyEt8Wvf6mhe2OkKoxJX4LT2eReFbQVjbL4b70X4MKQU6yAfiLMcMWr +9DkcMY6KkUFXEye8FKB7Dj/GjD2l0DIfiI5tmdsBqQStpSR6jE9lqbvJFnK0 +gjXE0BlaGbtlZ23BbO33dSG0faQYe5m9DSwPn+TkR5Nl8Ft0DjwDqdbjjDxo +ibud+aucz6Do3RTplf35fia1xOX9FEKWbFdZ0XsrP+icv1tDYU731Hl0Xgsh +zZSYNawG/eo9i86fWR7UCLMC6/uttafQb5zZsppmLMG6+2HecfQ9z3QKosgn +4JJemHB0//z5KB1nqGwBz/KqgmnQ3MYr6ssk5rCTYO9FiX6kmkmTUG4K5vDD +gXx/PYa9yXKwNoHB63uWxOg1zoSjDpeModWs2oAAXdbMfTFu3BCa7C5q7Zau +gWGRVdNC0GMIO8OtvIle3Mr7rC9rAILMX26tonuZ1SW2CR5BKD+T+BL6mkzH +ZGnxA9g8tsv/C91zODD64xN9CLG35JxDc7IaFdyT0wWKk7aXptEiRfGrpaXa +kJFJwTyJ/pnFWW/Mqgkqc5dPjqH1U9xnH4beg/+c+459RssPCF5OIb0LXy8R +HBlAT5ESKwvaqcDe2L0/as4b8I/y2e2LHQrgX1PsZIseIQv7bJUhDSd9xmiC +0X1M4d+V/G/Aw6H6lAL0ocLUZY9xUXhz3fzWAPqIbYdKUNz/ZmSvnXPl5Wcg +f/XXiUJ9ZxXs4z7+miTc8N0eAFD1ui4= + "]]}, {{}, {}}}, {{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0X00lFkcB3AasY1hjSelyIyObTKIjtpdbfndqMhb5WWrkcqIQUrjmHOs +selNUoemzcaMtVaiVRlpp9pRWTUWeZm29KJFzZLtpOmsluc+RmLv/nHPPZ9z +7/f7u+dcV3F6ZOIsMzOzcLL+38sPii2X75H7izoW/KLR0tDSww/byt8Ou8a1 +tv3EM61NR/n8FEhwEaWyGmkoby7kzeZ/A2kZKtdI4rQ1sn0MrwAOLnRS/EPc +8yG5eJSnhPOpzvuEt2mw6hsUvOPVwhs2T/BTEw2VHRXStzwtZIW6lZ3S0aCu +L+hLW9YBL5VVCZ/raZDAQ6UxoweiT65d6dlLw/5h9yGN+jkgjwOzRv+ige16 +TPDySwPIlNTVfCMNRXadwsrdQ6CtfZKUimkQ90X/xur6G9bnc6b55hikvx8T +pwtGYKPDY0W1NYaGA5wox43vIHZ9o6fMAUOlfO+Iz9ZRuB7gUOvIx3CkYmrL +uPE98AaLllkJMZj1GNDt7DGYWa6s1/liWJKZlBUtpGHpJkdutD+GV3TJ19Z3 +MOy2vSH3DsYQMpz67XfSCTCo2ltfRGKIeKXwcHGZhGfP9trsiMMwohMfaq/7 +AAM3vOLcJBiWcZ8uCtz1ETwT9hQ2SzGwgY7vH5uGggZt60U5hqB3ImZxjBny +7j5qEB/H0Htvj7nI0xyFKV/QbxUYrp9o2cmnzVGW1ba5zSoMSbNlBr1+FjIG +bKCSqzEkZMivc1QslM6Pcoqtx+At8dCHxVugFPWoi7MWwwN7T2uZ32x0ZQ6L +1aDDcEt9pMyTZYk+Wq4YVXRjkJsLN3cNWKKSh8/vrOsl7+vPDt6vsUI/h9nl +tw5iGK5xLa7I+QS1pSRuP2vEULx0gYU2Zg7yifbmrGAwKFRJbfF8NqoxzG/n +mTMgKo7Tc16zUfGiM7nP2QxMrKs2VTRZo05B7nyJAwNDwwFZ9/I5yO7xqV+B +x8D5NcuduuNt0I/hNquM7gzU5cm4Ei9b9FVKXcuQLwP5MQmhLNoWRax8EVK7 +hoGV/ZW1+d2fosv6ow0BwQyUupfVdYfaoXnsYFdBJAO5zYWloVo7dN/+sPTl +DgbCnWKqO9y4aLwz5E6ihIG1+9tiuQVc5CXwtf9CykCFs9iti+ai+k2KoH45 +A266i+ciYu0RLOQc78pjQOF1T/ioyR4Ffe/YfPI0A0ljFg/vCylUMqD801nF +gLjhX37BaQrhNr9pUxUDaUeipkLOUEghyZ6z5AIDsijNM85ZCrlb3ZobSXyC +lhUpzlEobsNqj0vEaj/Th5JyCula/LeJqhkw3Z15WnOZ5O8GXmusIfMfcQpb +2igkvBWeJK9lQFW1L/n4fQq1iIqkF4mrMvWBwZ2kb1Kf00N8Y55islNP8n6b +z3pcYqBfRCX3PKEQczOyuY9YMLQgcHCI5DVbF66+woCPJtvlwjDJR5d+lky8 +Kq/PlPia3B/r9SkmDhOUX30zQub7ioKMxBl7+S7v31PoTMOOzB/qGMhZfdh0 +bYycbynPbSfOsxl8nEmT/tGBk+PEpfVVpyYmSJ/3rsowNfnvQxaSxkmSf1Bx +JYv48pbEgJwpkk833LxArFncush/muRtXXV/EDeNLTHNzFBopzpeP0X8H0l/ +WUA= + "]]}, + Annotation[#, "Charting`Private`Tag$907698#1"]& ]}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 1.3563204624785772`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 0.3617843613504096}, {1.3563204624785772`, + 1.3857285757189266`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.817283762942142*^9, 3.817283793407621*^9}}, + CellLabel-> + "(WOPR) Out[842]=",ExpressionUUID->"0f099d03-656a-4602-85f6-26b4b2405b3b"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"n2", "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq2", "=", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"eqLow", "[", "n2", "]"}], "[", "0", "]"}], ",", + RowBox[{ + RowBox[{"eqMid", "[", "n2", "]"}], "[", "0", "]"}], ",", + RowBox[{ + RowBox[{"eqHigh", "[", "n2", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqLow", "[", "n2", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqMid", "[", "n2", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqLow", "[", "n2", "]"}], "[", "2", "]"}], ",", + RowBox[{ + RowBox[{"eqHigh", "[", "n2", "]"}], "[", "2", "]"}]}], "}"}], "//.", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"\[ScriptCapitalF]sol", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", + "GlRules", ",", "GhRules", ",", "DmetaRules", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "]"}]}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.8172700941895447`*^9, 3.8172701434323797`*^9}, { + 3.8172703209660187`*^9, 3.817270321333618*^9}, {3.817271463286846*^9, + 3.817271467845633*^9}, {3.817271562977268*^9, 3.8172716016608887`*^9}, { + 3.8172717298008966`*^9, 3.817271734832752*^9}, {3.8172728813729362`*^9, + 3.817272883219574*^9}, {3.8172756877299633`*^9, 3.817275699753543*^9}, { + 3.817276014465931*^9, 3.817276016863351*^9}, {3.8172809741886683`*^9, + 3.817281030128274*^9}, {3.817281198191544*^9, 3.817281205016101*^9}}, + CellLabel-> + "(WOPR) In[716]:=",ExpressionUUID->"868d07c1-b3cf-44ff-a070-78c2a21c388b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"s2", "=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", + RowBox[{"Re", "[", + RowBox[{"#", "[", + RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&"}], "/@", + RowBox[{"FindRoot", "[", + RowBox[{"eq2", ",", + RowBox[{"{", RowBox[{ - "\[CapitalPhi]Rules", ",", "GlRules", ",", "GhRules", ",", "DmetaRules", - ",", RowBox[{"{", - RowBox[{"ARule", ",", - RowBox[{"h0", "\[Rule]", "1"}], ",", + RowBox[{"\[Theta]c", ",", + RowBox[{"\[Theta]c", "/.", "s1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[ScriptCapitalM]0", ",", + RowBox[{"\[ScriptCapitalM]0", "/.", "s1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[ScriptCapitalM]1", ",", + RowBox[{"\[ScriptCapitalM]1", "/.", "s1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], ",", RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", - RowBox[{"eqB", "[", "testN", "]"}]}], "}"}]}], "]"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.817214603618495*^9, - 3.817214613562722*^9}},ExpressionUUID->"527153da-c467-45ab-a51a-\ -b1545d520630"], + RowBox[{"gC", "[", "1", "]"}], "/.", "s1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "/.", "s1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], ",", + RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", + RowBox[{"MaxIterations", "\[Rule]", "10000"}]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, { + 3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, { + 3.817127491557787*^9, 3.8171275000934143`*^9}, 3.8171275721198053`*^9, { + 3.8171278100273*^9, 3.817127849603622*^9}, {3.81712788866899*^9, + 3.817127911532996*^9}, {3.81719706565886*^9, 3.817197105498705*^9}, { + 3.817197893385504*^9, 3.81719790689716*^9}, {3.81719860001385*^9, + 3.8171986053976393`*^9}, {3.817198639295259*^9, 3.817198662766809*^9}, { + 3.817198876170909*^9, 3.817198908051071*^9}, {3.817198993133552*^9, + 3.8171991533442287`*^9}, {3.817199209928318*^9, 3.817199241960556*^9}, { + 3.817199495862*^9, 3.8171994994689503`*^9}, {3.8171995495740423`*^9, + 3.817199605718575*^9}, {3.817199652392643*^9, 3.817199715256566*^9}, { + 3.817199865131709*^9, 3.817199880715331*^9}, {3.817199936333564*^9, + 3.817199987661281*^9}, {3.817200026262958*^9, 3.8172000468302813`*^9}, { + 3.8172001570412397`*^9, 3.8172001598323307`*^9}, {3.817200236641964*^9, + 3.8172002385137587`*^9}, {3.8172002992189293`*^9, + 3.8172003208190928`*^9}, {3.817200415813776*^9, 3.817200416404771*^9}, { + 3.817204016980706*^9, 3.817204076853834*^9}, {3.8172041381029387`*^9, + 3.817204203727563*^9}, {3.817204234304641*^9, 3.817204255961961*^9}, { + 3.817204390931651*^9, 3.8172044426360817`*^9}, {3.817205022823312*^9, + 3.8172050577028513`*^9}, {3.817205106256721*^9, 3.817205106559868*^9}, { + 3.817209919633216*^9, 3.817209920608328*^9}, {3.817210044562058*^9, + 3.817210053786522*^9}, {3.817210136268099*^9, 3.8172101405721073`*^9}, { + 3.817210451098201*^9, 3.81721045318543*^9}, {3.817211412418923*^9, + 3.8172114542674837`*^9}, 3.817211713768137*^9, {3.817211774217906*^9, + 3.817211820329513*^9}, {3.817212210577387*^9, 3.817212210720683*^9}, + 3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, { + 3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, + 3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, + 3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, { + 3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, + 3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, { + 3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, { + 3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, + 3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, { + 3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, + 3.817270029113059*^9}, {3.81727016313024*^9, 3.817270185946486*^9}, { + 3.817271080438819*^9, 3.817271082380143*^9}, {3.817271475068852*^9, + 3.817271483911096*^9}, {3.817271617556754*^9, 3.817271633205493*^9}, { + 3.817271726594358*^9, 3.817271760456759*^9}, {3.817272895451928*^9, + 3.817272906053697*^9}, {3.817275703982615*^9, 3.81727574191495*^9}, { + 3.8172758130790777`*^9, 3.817275845654808*^9}, {3.817276032115261*^9, + 3.817276037209382*^9}, {3.817281045413492*^9, 3.817281106435656*^9}, { + 3.817281187208206*^9, 3.817281238944985*^9}, {3.817281276487254*^9, + 3.81728128676392*^9}}, + CellLabel-> + "(WOPR) In[723]:=",ExpressionUUID->"7c02fde8-7f1a-472a-9e7d-0e95772516eb"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.2324003216794353`"}], ",", + RowBox[{"\[ScriptCapitalM]0", "\[Rule]", + RowBox[{"-", "0.032245651188134536`"}]}], ",", + RowBox[{"\[ScriptCapitalM]1", "\[Rule]", "0.933438837044559`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "2.7666956506400777`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "3.0942385597019992`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "1.6831403018575868`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.35760302968040714`"}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.817281106988557*^9, 3.817281187737056*^9, {3.8172812309684668`*^9, + 3.817281294710451*^9}}, + CellLabel-> + "(WOPR) Out[723]=",ExpressionUUID->"6b22737f-c85f-4c36-9b44-d9e694bee115"] +}, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"ss1", "=", - RowBox[{"FindRoot", "[", - RowBox[{"testSol", ",", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "//.", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "/.", "s2"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", + RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]", "}"}], "]"}]], "Input", + CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}, { + 3.8172714956480207`*^9, 3.817271502761599*^9}, {3.8172716647273273`*^9, + 3.817271668552335*^9}, {3.817271770580183*^9, 3.817271775109421*^9}, { + 3.8172729204002857`*^9, 3.8172729476159267`*^9}, {3.8172757499631653`*^9, + 3.8172758078877163`*^9}, {3.8172758601082687`*^9, 3.817275866449978*^9}, { + 3.817281121853549*^9, 3.817281145460658*^9}, {3.8172813100145817`*^9, + 3.8172813131216908`*^9}}, + CellLabel-> + "(WOPR) In[725]:=",ExpressionUUID->"0e89b49c-ebf1-4e9a-800f-62ec63f935a1"], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-1.2999999469387755`, -1.2110078507365805`}, \ +{-1.299202533406545, -1.210265967439999}, {-1.2984051198743145`, \ +-1.2095240898427762`}, {-1.2968102928098535`, -1.2080403518124079`}, \ +{-1.2936206386809312`, -1.2050729448741262`}, {-1.287241330423087, \ +-1.1991384112800034`}, {-1.2744827139073984`, -1.1872704966221705`}, \ +{-1.248965480876021, -1.1635395471734082`}, {-1.2365508835190653`, \ +-1.1519965232134384`}}], + LineBox[{{-1.2348927202537592`, -1.1402144322706482`}, \ +{-1.2332294033120883`, -1.1386522868190403`}}], LineBox[CompressedData[" +1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAHB9rC4S0879SiryAijHyvzl5jJAW +dvG/fSov0i9G8L+pAe2oDZXwv5Z9bbpu6+6/sdjTlxKG77+hM77BMGftv9zf +01Tfvu2/dBP7sGzD67+heqZH+f/rv4/TGWjuJ+q/5tmxTxxf6r+7yWnZJKjo +v/dqw84Um+i/V1k81IcH57+JwA1jFvXmv/ageyHYgeW/tKkqLWVX5b+VkFSo +7wLkv6vETW6JluO/8z5opGdi4r8jpKnEtvPhv29V+Oi93OC/Z7ULkrkt4L+/ +BfzOp2rev4i0gCoT4Ny/oJzORWkp279Ch1tbxaDZv5YvVtfRHti/lL1CeiIb +1r80Y2wP8dDUv+d8m8OR0dK/ZmgUlUu60b+lPwH2V4POv656YGshwcy/4tMV +PMGEx781R//kSCvGvyB6DddO/sC/0yiz/nQFwL8dzzucZNazv/C6fruItLK/ +8DeL0NCBmr8a0jKp5P6Yv2JZhhVKTJk/tKp9IgXblz9MbLSG7V+0P84/ikUz +NrM/H48g7z++wD/aDdGiLJK/P+cgzj4z2cc/ZYU3C9J6xj9JZDG38dLOP5c/ +p2UKDM0/1cpY7UWq0j8RuNByWpXRP+5/DBFoMdY/kHrsINrl1D8GrE4KeHzZ +P53yZSHK/Nc/67Drl+223D8aiqHt5wLbPxwpvhvcG+A/n4QSTkpJ3j9CtU1W +OL7hP7OZ7qfnquA/nA/XGb+D4z+0/xJ58VDiP3WlJ8g8K+U/XbkGOgLa4z+1 +p6VAbcrmP+c1sJFmWuU/KXgdQsiM6D/mrpH1VvrmPxyEXC4aMeo/H52u4MR9 +6D9DXpWjlvjrP0TL2wwiIeo/0aT74sW37T+WzZtf4rzrP94mKQ3sWO8/O8Zd +JYM97T+QOyhgno7wP2EP4QqG3+4/cYEfL8Jh8T/VgTlgVjPwP4V9LWO/MPI/ +sBL3V17z8D+zYLjbURHzP4CPgfPvw/E/9P+6vZ2z8z/2H+s0sjDyP7hyl0M= + + "]], LineBox[CompressedData[" +1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAPO+Kc2i68z93MiwqEzfyP/J/en2H +5vM/q+p9Th2K8j9CHk4xL+rzP0mhRlWDjfI/5Fr1mH7x8z8woutpT5TyPyjU +Q2gdAPQ/++BGr+eh8j+wxuAGWx30P05SZKgYvfI/wKsaRNZX9D/Lx+pFfPPy +PxFK7vd9W/Q/kc4ikuL28j9i6MGrJV/0P7nWeOBI+vI/BCVpE3Vm9D8/jHeD +FQHzP0iet+ITdfQ/AYCM4q4O8z/PkFSBUZL0PzIthAPiKfM/IC8oNfmV9D8O +QcRwSC3zP3DN++igmfQ/mvQF4K4w8z8SCqNQ8KD0P9pzh8R7N/M/VoPxH4+v +9D9S3lOlFUXzP6chxdM2s/Q/LutxInxI8z/4v5iH3rb0P85ChKHiS/M/mvw/ +7y2+9D+ZUH+lr1LzP+uaE6PVwfQ/GctkKhZW8z88OedWfcX0PwEZOLF8WfM/ +jde6CiXJ9D+fofc541zzP951jr7MzPQ/Sc6hxElg8z97bMNo + "]]}, + Annotation[#, "Charting`Private`Tag$891482#1"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.5, 0.5}, {0.5, 0.4999999999999858}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.3, 1.3}, {-1.2110078507365805`, 1.2110078507365805`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {159.94490842698494, -97.50736892665735}, + ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}], + InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwtmnk01N//x22JUJIkhTZLClGRFq9SUvYUpZRUtpLsu0nITmhB9MmWrUJI +sr3s64ydsZOl7GbGKFv6ze+c7z/zPo9zX3Pv6z7v877e957z3nvviZ4pCxMT +Uxfj5/+fg45hpUQiHfneBgQanXbHgDrP6IB6Ok495mLbL+SOR3c9trtQQ0f9 +jZM+5YtuGFCmIV6MdPR20OPNT3FD+W2nmFyK6SihPvF0v4cb9ptK9R79Tsdn +ui+LonTcUI6LM+xjDh2DS1Layimu2H97ydw8i45R4+ULoaWu6Jf969z+T3Sc +ZV6xCg1yxV79msW3H+jYvTHc6YqwK/rG+9wOiqYja4DZ1DZZF5RZsFO8+JqO +ocnGlQnzztijem8rSyQdC8XYPn/NdEaZ6bPVrsF0FDL7m/hG0hnJx9cPWxLo +mNcW3nqR2wmlGl3W1B7Q8aVp8Wb1WHvsELboYjWh45edcimBl+zxqc31bLxN +R52q5hsDdDvs2K7wQPE6HcMmGxKH1e3Q8+5Co7g6HRMSNWakZ22wZfFx7IYj +dMxsf+sXus8KHffcP1m5uoChLn6OG7nuovfTs3hiaQEvGhgLBFvewfBB4QuZ +9AVM5Z2bcys2wk9x3VoxswuYlV0/K2RiiGOC2iZPhhaQxflhOmeaHl7bqhSw +q3IBt16Wj6WyHMdjLFu67IMW8Pn36Ub9zmugYjJzc9JvAZt0Wj+mWRqAbln9 +0B2fBXToX/3Fv3YdrAi+k5c9FlCq0PgA865bkLyyvCZqvYDfesz5ye/vwraF +sf3EKwvYTPfrzw0xA9pooe2BnQuo3zz6ezbbBgLzKji6ti/gjdQUm1+rNrDn +ecN7f74F1At+uE/2oi1oi/eSprgWkCZTkJXUbQsZFssHv6zT8PbUk6E1uh2Y +zCqOnBmj4UDRlznTTY6wVAKu88M0DN8RrZl12RHCwtR4EwZoSCuqjT4W4AjF +steV2cg07CkafjLP4gSCdk5vG+pp+NxVqHjzvBO0/M7Tu55Fw9i6mSatBBcw +ry2e5PhEwx+vpFiX211gParKqzCN0Z+BQmvHBlc4rNSRKZxIwyCynuxuc1cI +cF/YNPaKhpb1F8v7Rd1AVHM14XUEDZUs/j76p+EG+btZldTCaHgg22WXjrMb +jJXwmWf405DJxlzQodENzjLJV9q40ZDHn+9xo6U7kFuUbu5zpqGvlSWT1gt3 +sE44R223p+FjFVmJ5Vx3iFO5Iqr4mIZ2HxzPt6y4w5KvjftfYxp++aoh4EDw +gBf6LnxZRjTUsK8PuPDOA8TFvdLvGtJwvGVlu3KRB1yrfUGu1KMhpspu+ET3 +gCzOrKNBqjTklHnsZ3PbE6yf7jPVVKHhd6W1fbyOnnB48fWbzUDDdF6TyOFg +T0gb9liOPEHDM9WapG3fPMHMgCKlf5yGvE7p4U6NnnCAeN9ohzwNX3JbCmwa +8oT4b+oYe4iR354F20pWAtyRLqXclqTh2Py7K5P8BNidJLdvjxgNQ3h1Np4V +I0BMmODzZBEatm85Lup1ngA32ELyzXbR0HqTd6zlFQIIuP37JSlIQ7bqyb2+ +dwgQafpT/fNWGorCs9eaTgTQ7TP0eLKZhnsnz39c8SLA5iukz3JcNBxKOLy7 +N4gAxJqzQwsbaagaHM80/ZIAQafzePPZaBgsHWknHUeASzkSKi7MjPmUO4Qm +JBGAXTLW/uQ6FUeyZa3VMghQ9W7zh7UVKhYq8R0VzSaAzzbvrtI/VHQ8XLsq ++ZUAKoGLG5/RqWg5eWnywXcCMP2zUDpPpeKsdadwezEBSh36H26Yo2Jl0kix +PRLAY0onrnaKitJ5fNMXywlw8m4lKfAXFb8nSTZpVhBgqVPhn8YYFZH5b8hz +BudrZBzZ/IOKMmV2OlRGvEO58L2WASp+kLNSDi8jgLxixMvIXirGHS3zuVdK +AMontuprZCrKOcmqWxQRIHOfy2+BDiomTRiWJHwjgFX0tERPCxX9ruRxbskl +gNRmY8NYEhXzWQlG2Z8JMOHTFnS7gYrDpfmjz1MJkLKsWixaS8Xcj/xNL+IJ +YPrk++yPSiqeD15Rb4omwIHxw6LJZVS8Pf046Fw4AUZuxuualVDxdTJPyaQf +AeJbtnlLFlIx5B4Hf60Hww8X/XOn8qnYoL2tvMeW4YfilbFPuYz5UO/+3mtG +gF45a4En2VR8vCP653tDAhgI67supFPxwh3rqjPKBOB/WZfxNYUxv71Xdt6R +JUAbx+l+5yQqrri9/JMnSgAd+j5Yi6OimJDwvo3rnrD54Rub0hgqZt6mkllm +PIE4xJno9YaKWlyyU8d7POFSI4VtQzgjP+blJZUvnsB+7oFCbQgV79kZ3hWO +84SqfLJ5YCAVrT2Ll2X9POFsYmkDjw8VF1/0Rq9f9wQl15BwAScq0h613lej +ecDN1VmrSDsqzjGrXQzr8AAPT53Lm59Q8blGN8fMVw8oe8bHwm5BxdXNQqdn +HT1ALSjaftGQim57WDJ4pt3BgntFx9aAikTBrwN8Ne4QFHbr8KweFf8a9rLK +xbtDU6TI+JgGFTuaxCS/X3EH/dhkg44zVFRz7M77l+4GTsLsR3VPUnH/asr9 +dk83iH5vvoWoQMVnTKd+l+u6QX+SVF2lLBXLso/mUBZc4f6nbKXcvVSkNpHr +3sq6gm1J8e7IDVSsflCUquvhDJEgsszDQkU4W3hv5pwz5JU/7Qxcp2CGEUkt +hd0ZlqpVwp79oSBudVd2DHWCp011/2wmKRgJFvd8wx0hdKhjRIdEwdqnpGp/ +K3vINFHAxnoK6iaM7hU8YA8to1GxajUUJNzfRa7rtQP+iZvXACnoN5P8KVjV +DmIpw9UyXyi4nhZ7PYbXFtKZZ9N4XlMQMu9kVy9bwbVFl6jqCAo+KLdojLph +BesTbH6eYRTk8F3rGv/6CK617L4/609Br97vpMVHD+Hff5rCJDcKhn+r3T9e +bQ76pz9FhNyloPTEBlw+cg+YnR+5cR2mYCV7c+GxUDX49PCPRaUkBbWdxo3n +VS+AwR2f6+5iFGS763c1eOksfFKNPTYtQsGOv64GNW+OwXX+xrmGrRTc6jI9 +cb1KCG/e16/hn5/H2XBp+litDn7pbo/i85vHqkX5gYir5tjUXduwSJhHZaLH +eLmVBU51F/3tdp7Hfu1ot0Z/SzzQk3T/veU8dihfyH5c+Qjf9NjLHtaax5dJ +T0ufStqgR++2WlX+eSSaOCrTRxzwYv/V3y6Jc7j9m6R+B89TvN+vdtAodg4t +StnjMwqeolf/KSN4NYdl5YL2p+W98Hv//ooNfnPY4jfm/nTICw8PLIRGWs7h +k7wDkoPgjVsHX4p9OjKH6g1zXIcEn2P/UPu1odJZJH/MK7WTDEY1qffFo99m +sfC8ws6J4GDMcXh4YCJ7Fn1OOqr2zQdjACcznZI4izc4RnpPfQ/BY0dlXrL4 +z2J/E+/D6SthGOoX0CqmM4t8pX9jokjhqCx9RttqaAYj+LepaKq9wnRnjnyb +7hmUcOeb4Xv2Cvkr2oUdW2ewH1ZtdhW9wimDh7OelTM4NqV8lyb7GqO8okJe +pM5gw7NbQoW73yClndqQ82QGezaqOFewRGOCW4ra8r9pDH3XNXWcOQ5F0mra +HZen0eZh3K0J5TiM6/xpTKNN46mf9f86PeLwzREJl+nxaWwbjeG6vxyHQT9T +0wYap1E99up51cV3aKeXzlkRNY0cnvLjckvv8YLUp8Yg2Wl0qRy4/Hh7Iv7s ++aKz23gKi9aNhycTUlBqT6Yc940pdOsVXnNqTEFrs4xta7pTqPH7+Kr4Ygr+ +oSWS+1SmcEHJyG/+UipycL8yjhWfQu3cGvpeWipKKTs9EZqbRIXiGmM2jXS0 +Tjz5QtBzEldiGiRtBT7hn4eVTfyxEzgk1VlyguMLBpbx3BdY/InMWpOnb538 +hnnpUtKm18dxW+qD+jPDJfixSss68M0ojvbmWPtmVOD+5PSq/IUf2M77+VQ/ +Ww1aHB5q/m/mB15RzMgr4avBzDz+Pr/xHzjm6tgftacGT1Q/pRqQf6A7KP44 +froGNX/qi/wp/IF6pppGAvY16CDJ4qLo/QOThKpW9YdqsPrTzUMFvD8w9tOH +CYUvtbjpeLhCPOcPTJ56P8VaWou6JdXnAlh+YERT03BNQy32ko7cuEEfxhqr +Fj2ZsVqcm2N/vkQeRsUN52a9BOpQQC538MT7YZS8zbpxn2sdmn/livwuPYyk +hhXhkuP1uOIv2FYhPoznmH5kTJ6tx7CbYnxE0WHk4PJe4NSsx6//lCMHtw7j +b4OLFmL36nHDq7EDG2eGMGN7aW51aD2eLvkiFusxhPlRW0LejtTjxy2aEpXv +BtGFf2CU27sB2/JMUztfDOL8BntKUHADLhk+lZh4NoifHFQ0V1414MXkHAke +s0Fc9c1N+ZTagCMndkpelxlEFh7/gdvEBhS691NyunQAd3Kwy43wNWJAnpfU +tuF+FLVM3UF/2YjtohcWtrf345VmnfA/bxtRJHhjsWBNP9ad49edSWjEPJMw +LZFP/Wj8s/dxelYjDm2Oszno0o/j7VZJNg2NqGD5LR94+3H42qKExN9GfNbh +9lSFlRGfZ/HtBCsRiaB8SfV3H7qYq387yUnEewLVPer9fbhmYt+xZTsRwyrb +1vTT+nDciXv330NEHBeeU7E624cHO+Qauw2IeCTwC9eTo31oxyFiOX2LiG50 +hw5b8T78WyCVOXuXiLyNq6bO3H14Rv/i37KHRDztwhno3d2LDplSdxM8ieg/ +SrzyvLEXL1fc+CXrTcQ27XChgNJerJu2yv/sR0QLsR2fQpN7kbOt/q/TCyK+ +ajvQHG3Ti0X31OaV44k4dGYiKvZ+L85zSNtfTCaiVPrHu/8Z9GK8ccTo6TQi +lj2VpyWd7sVmG63bv7OIOH347PYsjl4kD9/weltKRIVo1sEvqz14jCn4qGAF +Eb1Ya1Py5nqwqZ7k7ltNRIFerROFHT343ZEtQZJIRBX/W7eq43uwx0lP8L9u +Iu46QG7OjOzBIVsexaY+ItLL9C5E+/ZgkY6V4+QgEVNXLks/suhBHZY3wj/G +GP1HVSdcu9mDAhr9j0t+EfHmsXMCypo96BhZkuE7RURu6xP/eI/0oJmwTkH7 +PEPvTXn2K3t78GrmSZtbNCKWpspOjG7rQSauE6MkOhFtf4i35v/pxs3Hp+rt +lomoTkhUjZ/sxse678Q+rBLxwC6RwsC+bqxlM+au+EvErmvbk4ywG6/6CWkW +MZMwixq+4+KXbsz82h0axUrCgDDuENmkblS1kzl8ZwMJT9WxOrL4dyP18Jkr +GRwk5Dd9Ojnt0o3p8T7lsptIjHPO6u3Oh90YXuRh8p6LhPGnaBfTtLtRIOs7 +25nNJHTrflwUcbYbv6wa0B5uIeFVx0lZd/lubGK7OebNS8LDfKbJDw50o9iK +bIvvVhKyZw0Lagt048014482fCQc0jAKVeToRsmjwY8ubiNhwQSZee8KGTVH +rdjZ+UkY+fyq06YZMl7z7bXNYvCjfc1TCwNkVOiqTFLZTsILqG480ExG4m/5 +SGSwiFFNe005GTmdNY+KC5Dwz9K5S9m5ZDxqo+PpxOCW1yXFMR/I+D36tVk2 +gzPkleR8osi40fDleDuDfZrzPlgFkvHAMJkyzGAjqyNCBu5k3HmC5ymZwQqc +n8LgMWP8m0t+3xi8JUWC9aAxGSXOu/7zYvCESpIz3xUyzrAHDx1lcMWQyMyq +Chn9xs6LtDDyi/V4e3f8GBljDTtz9BnssFOgs0mcjB3HQ15VMeannR9xuUCQ +jDsyWwp3M1jiKk9pwiYyvnkiLnyHoQ8TJUA+eK0Lc3IO5wYw9OsJYUt1mOvC +DK3/HOIY+uYc9Np1Z7gLpWqvGMYw9A+pWX2h1taF7yyUDJ8y1sf0vjObXFUX +3tG9b6XNWD9lpgUXofwuLPZZDmLnIaHgO+tZ1rQuLGRS+ZzKWO+GLtOuruAu +PL89bDCZ4Y8k+x/qZZ5d+GJfxiDTRhJ68N7G9CddaOKfXqXK8JOs+rU0j6td +yH+0UCyI4T+OX827zVS7UMCiJjLwHxFHfDQidBS7sIv6sd6W4ddXJSpu+3Z1 +YVO6vNvaEhEj9lgorvF0oceflqXa34z65BNK72TqQuM+WcmnjP0QeLnbOvBn +J+6PJvpmM/YPofPxfcqXTmS2jv0oMk5EjxMv9zQkd+IOGRRTGyGia2zBQFJU +Jza37pS6NUREBxPWG9c9O9Frsg1Ve4hoORutWXqJ0W5ASjvA2P9muqWc0ac6 +sUvI729aHREf5I7W2Mp04hthlyJBRr244ypzToy/E5eb5B8UlhDx2oaq4yFD +HXiUIMLOnklEZeF5kZtOHfhHnx2Lgoh4you//6hlB3IeV9y5+JyIJ0aVYniM +OjCi5OXHnc+IeDTdd1v5uQ58P/TxyQFnIkoeF+KQ5OnAvX/MTp69R0Q+LVXq +YlI7mqoaaL84RsQt2Q8zm9+0ozfPwCV3GUY92Rb+KD2wHd83upnoSRJxY0/v +uNGTdvSsSpos30XEtQc2vZUn21GryPR8CjMRf3nEVka0tuHFMXOyT30j2m11 +PaxX2Ybny3kivcsbcf2DwWu+r234pra0yuJ7Iwo0bzV/Gd2GluUhr6fTGvHC +3oBNr43b8NAoE2ujXyMmVjtciZ5txSuZ/pa0M40oc1Ov8MZQK7rX8WlYHmvE +wjnZ/TtbW1FCOqasVqoRW3dM02PyWvFN7yb7UzsakemhSXSseyv2VZM01+ca +8PZm7aH/OFvx5x7XZXpMA04kHrpkvNqCzEMjX3+GNaCDIucX0dkW/MwzplLm +04Ahd6u841tasFRZY0TqcQMW5pwUT4xqwToxsdpB5QYUvC7x+INYC558/3lH +zUA9fgDm39d9mrBImkYt46zH3xE7Y2+bN+GvwgTVldU6hi5yZ+9rNGEqbcdu +4bk6nAi4F2S9rQmFBeXtRdvq8HBbpcjzJEZduR5UsiOmDvMe+KnlVBKRbfNc +6eC+OqwK5IrhZmvEaypx17jFa3Gkffvpct9aNFKu6bObrUL3nGd2qQ9rkck2 +gpzeV4X8EbNpobq16HvGvbe5vgovaldvv7m7FrkPUSQmP1RhRp3DPC23Bj0f +Rqnq3a5Cu5L2xAOj1agwR5rlrK9E5tQIzoBzVWg+upX2+FUF7nHjIWuvl+Eo +iVDgtoYo3Hwq7kFXLo6Nq5eRrXORohjc0vLsLfqdzsg9Z/cW7xn6bVfXjIG6 +JwHKlcoxoGmV5zdrnAdnF+Lf18/nguiLPfNQWgYX+X02a0QimKkaF3/sLYMg ++itP93LGNW31XeCOP2Wg7rHJP4RxbTttsevAvGw55OYwD0hIlMGNcwKG/yWU +w9unPBQp3zKIWOCqXPOtAFfpq8PCp8qB9cafN981qkAwNvWfWFwFqG9WeCBm +UQVJGgLi779UQGSVg1yEbxWkFUVzstdWwB45WqNFSRWMup4ojqNWwOlNs0yC +stXAGilcNa1aCY7FIw+d+GrAfNszfabpSvi1p0n5aE8t9PdypwWIVwP9c9YJ +ocVaiHexHz6jVA0spyLkmbfWQc70hMWQRjWI6F8Tb75UBxHmR2V/2VTDtcBe +nkcFdeBXZr+6sbAayqg/+xOj6kEpxPaU96UaiK7458Zn0AgDh50OrenXQorO +D4dl20YY0wge32NWC7n9FdbDoY0Qk1CjecSpFpp+P7+XWd0I10ZfLG5+Uwts +h7jV1Y8TQfpmqVtDRy3YvBTc6c1Pgls6z1nltOvg8gO5b9S2Jri/lmnvfKQe +Npui6NJME8yZVyz/OV0PHaZaAevszXCT2D7x4HI93DW3NOQ61Qyvbm+YZL1X +D04PE1YPJDUDm+3OOv3IerhSwLHnk1ILvOw4vX5+vh7yCnSuZV1sgf31/wwC +VupB4PubgJyrLbBt6DQWbGiA/u8HqAWPW0DjYHfGwK4GMC86W1Gd0AJpw+ZW +imoN4Fnq8mCIsxXqnTpbxd82wHApRo8ItAL6s26WSm4AFWQnje9vBbWUAoGd +mQ3AUfbq+MyZVth2bLtXYXkDvCzPZl+2bYXeG7tvbJpogPSqiTS+3lZoeb3/ +Vd+RRuCulh3Y/qsV4qdLZN4qNYJ1tdPWnfRWaNRNsLyg0gjHatjcRDe3wYdC +nYJbVxsBa/doHFZpA17JWL/XDo3Q2XBjVjWjDaqslmKP5TZCRswvx3sFbVBs +f5VFq6gRCBZO64SaNuBStjXUqmwEcfZXWwpG2uDzQxHyhvZGcDnXLCe1qx0U +yxVZDaiNsLtA1WlzSDtsFnm72/4gESh+HetSbxlMjHfbdIQI1fr3/dXS2iF8 +Rp4YqEAE6wWvaK+qdlD6PK199jwRUKa4kLbWDk1qW9dCbhHh3gf5f12PO2DI +88aHFH8iKDiU+y+4d8DdCi3e0hAicJ3X5eUN6oDDBUHhJRFEyBt+vPdySgd8 +2eQ24BBLhA27088XDXaAwkFxjurPROidUiSSZzog75m7u3AOETK/11yjr3RA +K7vlnjv5RDC4PmYqvaMTnA3ttkSXEiEtUjTgvU4nKFx6szpHIoKHSSZv8e1O +CJWTdwhsJcKVI2diuh91grnaaRXuTiKskG5mbA3ohEbDYlpDHxGa4iblZd50 +woGdoUPsQ0RIfORSpJ7cCcFPnikcGiGCBucbok9ZJwwfbD4hPUGEPd0H9OOb +OmFV6cn8pmki0FNyB4r7Gf3tLhNvnSVC3IXWucWlTqhjuyC7Y4EIc0+5t1rI +dcF545FrQWtE+C+AqvtKuQu+6QaJBK4TQSeiK7xMowt+Ckm+tWciQXZiPO9O +sy6wOBZcwsVGgrsfn+uq2jPi19Ntvm8gAW/ew3Bbry6442U7o7eRBLbVx3gb +3nZB8P04/cubSLCvaafu79QuGE9j10nhIkFb1/qLfV+7oP+axMF5bhJ4D402 +a1d0weF0xan9m0kgP1G3xb25C95d94u+sIUEI5TPOqn9XXDD0fnkFV4SvFyO +fNE+2QXHrH27Lm8lwQUWl+Z/v7tg7M8pexk+EtA33d5ymI0MLBtUdvxjcPI2 +FZ0bW8mw+k2nvmgbCfR3S7zwFSHDiP7R8AeMusAuxt2cfYgMgkotdssMzpem +bh44QQZqpYiL23YSmCl0aXNeZLRfPZz6i8ECUBR2/CoZ5mV3bTwnQIIatfgm +k7tkaPbe996Pwc66zzeHPSYDv2qYUwGDJQ0fahe6kUH6KL7qYnC3iU7YT38y +WJVKMf9gcMDDY018r8kwvH6zknEehhP2OzdDIiO/5LmRQgZPuK9rPcoiQ+ZU +tHkQg2N8R0OjislAer7X8CKD1UPrSJX1ZLgd/QDnGPmtvP7MQ+kiw8VEvUQf +Bmf8F6m1e4wMenYUzg0MvpXqHHqJSgaRHdfX7Rjz5c42Ijmsk+FPc64/iaFP +ccE5ngSubnjzVy2Tn8FW5eJaJMFuqOOzdLvE0HN3A1foslg3TPl60S0Y+nv2 +dXLrne2GeLY4fhvGesmMFWoStLqB6tHVaMBYz8GZ9yEZN7uhd6PDVSkeEiiv +W3KzOnbD9Ssif6IY/phj19GU9e6Ghe3/DshzkuD9lmMht150Q0L31MXvDD8x +7V3nykvvBqkyk+Awhv+yD45qDOd3g4eHUVk/CwlM5OuCuau6wfjCuc2CzCSo +OB/JZTrYDetJ7kIGf4lgp+msETHdDZOavdM3VomwT98ouGSpG6yZj69dWiaC +j5k4l8C2HtA9U85EpRPh2BMuDZU9PXBI6iVHOo0IY86UIGvpHjBpSHDSphDh +QmDhplq1HvBz8/lswthv7J+0N7l49ED6xvrEjGEiCO15PmwS2AOWxk/CBgYY +76FXRfkab3pAtePdxHovEa55SN4Xze6BFooDLw9j/ydqshTXjPbAyMXuSzfq +iJBfdiIym9ID3v4Clf+qiFB/7InF2789MLRf6+/rckZ93N3Pb72jFzaqRvSF +FRIBZr8+3q7RC3zjTha5H4mgZzJz/t/1Xkg+zMHVlkoEs859QpMPesG/iaty +KIkIYSUvaooJvVCqp/e+jlHv+kMtRR/k9MIASxS0BhHBRUa4NWdnHygnV7HX +mRIhJPFqapx4H3iu6qoO3CXCe4EgT7+jfcDi2KIzwqi3Neu/D97U6oMrx7SX +iq4QYXtzizfzsz5YMJj8lXmaCDlPfI/pTvTB5/oS+rstRJjOno6aze+HFZfp +/cvpjWCzYFlBqeqHl1+rdgYlNsLv4xMzC2398Dd/az9nbCMwFY2dW5nrByUx +Ta6u4Ebgrx6YZpcYgLqrmWuJVo2g3NMMe6IGIO2FaKLIoUaIZM77pec8CLsX +LUt3xTXAjgvyfAbPB2Fv6mlqWmQDxPllnzZ8OQgikuKKEoENkMr1OcI4axD8 +jWMv/XFsgOLtKaesfg3C+gbF2F/aDTB+MPrF8+tDEHj25+zO9XrYfbB0V/+u +YXh0ZvmXtl49aJqnhZjuG4brMhYHx9TqwfND5N85yWGQiOsOtz5TD4N7zYeY +FYZhPfn7tvuS9ZAgxJskoTsMKUGvC4h/60Cc+56Uve8wZJglc3xJqQPZ+Q1K +m2aHwVnbleUotRZUvmoZnCj9Ab0b2hRarWogbgt5J/qMQroDc5h8WwU4fpCo +O31oHD5PtWntji2Fr6kfzj5u+AnnQ90OmY99g4Muwip1IROQn3W4uezkF7jh +0BRo+HICAn6Pevvs/wIBNk9bp2ImwPtBguNV7i8wYfHjLk/qBAwdY7uwazAb +0gw/PNUrn4AwP8FsDe9sED8lXdK/OAHcm7fb2L7Ngn3rp09Q70yCBMF7iaPv +E+z2NZIRkpsCGdHbO9lzU8HXXG7PiRNTcFXBTMssIBVm1dn5DGAK6K5pDZO3 +U6F0a/ZihNYUDKbvr7jJmQom71lLOB9OgcLaI89xkxRIKczQWE6cgttz0vSk +nR/gCHXJopt/GoJEFMPHkhIhuoN08/euaSCRw5MKPBOBuSBRk3//NPjxrnll +X0+ENoLmEV25aWhJd4rm4k4ER+74P7Va00C77bP3iVMCFEqo+X3zmwbDZ+/4 +pq7Ew/k7r5PeLE1D4sTXORm1OLjzJ/Luy3/TwCon7bTMFgcu4eHC4ewzwCnj +ysdRGQufKoKjAvlnIMg04ioVYoFfwjvY48gMaM51PaKdfgs/563t71nMgI+B +wsuE89EQ9OzSeZnuGTjYObKm5PMKkoUuMh0amgF15q1PzC+/gtLc8yUSP2fg +mh9/SdeWV7Awrqy4lz4Da8+GX7u9ewlG6scP8fPOgpi4X2tHUSTIbNu3bUVt +Fur6fsQjWwS0Jq+OVH+bhYs7dulHhgZD781kd/XSWVDRcOHOPxIMI7xa/M1V +syDkw3ZarSMIaB7/qXa3zsJ+p093v+wOAj79c2lT07Pw7u/ey/E5AXBtg//j +LXvmYLnBpbmK9hy6TfmWbgTMwbERWjFXpRcM7yoKHwibg+Yq7bgX9l4w0Xr/ +4L3Xc/BQqOun+wEvWD7z9eajxDmwZp05L7TlKQgJ3CjxLJ6DIbHOhV0fPOBW +zTvvRMocMG76ii1/nGFQ/CDPzI15CHJrS9hgZQ2iVYs6f43nIa3la3OZ+mO4 +a1IRudl8Hl4gWVrvkBWMxN4SlHOchxWJuU2LVEv4yRu23yliHrZqHUiRem0K +8ys0JaaGeUhOjmHJNL0JR6LRY2vrPBgPKvvfvX0D7I6H4L7uefi+2abh8w0D +oD8RU1X9OQ+PTGRK+W/qgQftkKQqMwXaRq28F7eogpf5naNBwhQQPZYjYVAh +h3vyqzr49lJgNH9x3GP9BJazHXKKPUAB8+rjegoCZ5El8U/Bp0MUaLfpS+uW +UUPf/nDlZiUKxCzPPfN9rocBVyov8xtQYJ1d1f3fN2MMPyV5978wCnD/65i8 +XPwI0wQfzE9FUGCL64hyg7EV4uJ7guJrCjw6InargvkxzmXteNcSS2G8P7+Q +dp6zRs0DG3tZ0ilgmnnoSI6BDXLw/LxqXkkBwSO2nw/9Z4d7pvaO5tZQ4Luy +gVLKqB0q1t62Y2qggFm4xeItSXs0e9YZHtNCgReeAZ9csuyxarGK1DhAgbOX +9JIc8hzQazBJ7cgSBVLd3vYbxzhhdNFQl8cqBZLUp5qftTlhVvQus/p1Cmjy +5J8a2OSMg3ovfe9toMLoyatz4OqMp2u9y1/xUeHIXlJGtqYLXksu1f2xnQqd +r02vvn3qgo+erQxJ76SCVyLpXPEXF3x7ym69RpQKOT7OamnbXHEpy+TU8mEq +VIy9PbK7yRV5Q981qB6hwq9z79UqV1xR4mGPYeRRKtxtJZxNEHdDgwNXXA6d +pMLaL7ogs4cb5kWf/XpbjQpb05c2aQi7I9HR40KGOhVIybl9SefdcVSvoP23 +FqM9wI1Z3tId+XiO0F5co4KKRIX77Bd3tH0mKlthQgU3QqNxn5IH3vs+v3/9 +ARW+QTTHSUMP1KOi4EkLKpCt3HU7nD1Q3uQuS441Fe63z84W5njgvpgjf2Zt +qRCvsaOPvdkDt7UyzRx0pIJ1Z9Sb0CkPpJ9N6Exwp8LUl+wP6qKeOOZi2zBA +oEK3mdMLrxOe2JF9Dnd6U+Hlwoo9RdcTv+4ZSYsIYIzX+uqG51NPdGLa7/Hs +NRV6I3lLVds90ezEgk1JNBUsll58Uv3piQY2labLsQx9lPJmPJc8UXH4vo5t +IhU27GB68UaIgJKCxy58/sD4v/vhACcpAgrqsilNplFBUHIHc5gSAZcweZ9J +FhUuqywl3tMn4MQfhx3vcqhwPnmfqeg9AvbIqnL3fKWC927fHj5rAjaYb2fe +/p0Kb43TSKddCVj4fnxRt5jKOB8Gb3nnQ8AM8tepEKSCUGHi46OhBHy7xW+o +roIKHcnj+f9eEzBIzaCDrYYK4sfIhcz/EdD9qXj92XoqPNr54rLSBwJafftd +4kGkwieJyqMpHwloNF+TU9BMhaypFvVLXwioKRGVSm+jwsnrtXdF8wl42tg8 +7kgXFfLf2Vw6VEjAw1GKEVY9VIiTNOp8VEJA4eaNfmn9VJgrmegbRgJu3tjt +NjZEhWd52nJB5QRcV057smeUCskWGR/NKwg45+TywOgnFR5+Z9/nyuDBzEuG +0ZNU+A/NrUoZ8U0/BbU7Zhj6xHXeVywjIIpMqvBSqEB3Nx8ZZYyXbfBdUXOB +Cj8StSsrGfnEhwUeDvjN8FPVj5EuRr7hNYZ7q5apEHkvTUQ4h4Be6wcFmP5S +YdrYTP/NJwLaKKxsOs1EA+1CCXOVFALetW7458xKg1f3NI/vfU9A3ZS39Fx2 +Gny8/CpRPoqA5wYfTs5z0uCU36GXTmEElBc4NXiIhwZ/M/JnZnwJuE+bq92c +lwYAxm9euxGQpfRj8ZAADWpzXxI87xOQtuj+ZZcQDe5sILwsNiDgqLRmynVh +GkxVGH2QvkzAqnczL5r30yBXifz0wyEC5nUW+3JJ0GDYjEn60y4CJvOEuqpJ +0YD1wrX4sU0EfO4pfR+P0GDuzpaCKYY/+dK3fD53jAYUdrcbPG2e+F8H9Xel +Ig2UXKKEzxR7YsGh/KA6ZRpwqmQKVoV64oXr0R3qKjQ4IcB2Y5ejJ7Z6u4mQ +VGkgwbzQ9PSWJ071KOe0atLgzdDtWBsxT3TesHftqi4NdvHFbf/L4YlscqwX +u67SYMVDYmvUtAcKB9T29N6kARtL5frCZw/UVdBlHrOgATW97Ku+hAcOmMhr +mFkxxotV2afH6oEPQ/lfTzyhgSgX093bg+7oM9YtOetEgy4LVfWECHfMjzTR +/e1Lg3fvJ6t+zrjh7nm79xwJNLh5oyy6wMkV04X0J4OSaXCGfZmj4bwrKlxU +PMqTRoNHm/a/oWxxRZ13qzVbs2jgfHKP+dMPLuit4TsnVMKIL9yx/LXaGSdS +X5+R7mHE99b1yPQ5omO7s39WPw3kAmO6fsU4Iss/w1a5YRpI87vlVFx3xF0G +IqYKv2jwhzlUa6TFAbXZUkNgkQZB/frzEwX2mHu3oO/K1gWo0u/KlzOxxXwh +m23R/AsAv5bzRnfYYmGHhMbgjgVIvOzX8ZNkgxWXogofiiyAQtXKwriiDbYc +cYrxObQAO04cYB3eaI1zTMeuf1VdgKaMeguJVQuUSshqE3RbAG6jpdJYXiOU +uWW+ydhzAc7e0681T7iJ8ttFVT54LYBl4tk0+yOGqBQY9kXOfwG0eGyMnC4b +4CXbx+HqrxZgX9nerfctdNHs3CFtj8wFMKJwUj5HyGHCj5T6oZEF0NCNj1+9 +fA1oT908/X8uQJaaUddRdgNQEdGWk51agPNJ/jaGFddh7OZiNIG6ADUGe2tZ +T94CyY7zFsJMdPgdfyx/dqsJZNcMs98SpoNy7TVVwTFzYDbNK2TZS4cWRZHO +P4UWoMcaYJ1xgA7STE1eQ+GWQAfZruVDdEgtXDPyVnoEJ757fog+yWD9gykH +PKyh7KPQha7rdFg1/3Pv8C072Ko+98fzFh24cn5V+Rfawb2J8o9ixnQIyO+w +JgraA5uY5TZHMzp41x99ON5qD5f++zayzZEO61wWR3ccd4SY08FvilzocLGh +QuZpkCNM9d5Rv+9BhydGV97ZDzpCyA72nBwfOlw2keJteeYEzeHXnl2JpIOn +okU8Jc8Z9shKHl9+TYeZ3zF1Bn+dwYa0OhEfQ4dfIh0sP867AN+mJF1KPB3O +L7wlH2x0gftpTmzRyYx8rg5tJHK5Qt5F9QJIo4NlSIiDoborGPhQRV9k0eGU +dRhtpcwVUvdWtyvk0mHgc99vypIrLGG0/2A+HeQXH+1+I+MGb9dgXrqUDtnp +prezIt1g+u22pM5yOriURX1jLXeD00q/DDyr6VDdSciqnXGDUHLhJrF6OtjF +fCNPbXeH/31PDf/7nhr+D0USEhU= + "]]}, + Annotation[#, "Charting`Private`Tag$891524#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.4999999999999716, 0.5}, {0.5, 0.4999999999999858}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.3, 1.3}, {-0.22726070175099367`, 0.2272607093523108}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {479.8347252809548, -97.50736892665735}, + ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}]}, {}}, + ImageSize->{ + UpTo[600], + UpTo[223]}, + PlotRange->{{0, 639.7796337079398}, {-195.0147378533147, 0}}, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}, + 3.817271504527851*^9, {3.817271573161305*^9, 3.817271593697728*^9}, { + 3.817271656884376*^9, 3.817271669919692*^9}, {3.817271767551162*^9, + 3.8172717765611887`*^9}, {3.8172729282761497`*^9, + 3.8172729490402613`*^9}, {3.8172757458366337`*^9, + 3.8172757952482033`*^9}, {3.817275849713189*^9, 3.817275867735188*^9}, { + 3.817281126303303*^9, 3.81728114683925*^9}, 3.8172811899898577`*^9, { + 3.817281290630205*^9, 3.817281314398292*^9}}, + CellLabel-> + "(WOPR) Out[725]=",ExpressionUUID->"7cf0a89e-6d18-442b-b56d-94b97702709f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n2", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[CapitalDelta]"}]]}], ",", + RowBox[{ + SuperscriptBox[ + RowBox[{ + RowBox[{"f", "[", "n2", "]"}], "[", "\[Theta]", "]"}], + RowBox[{"-", "\[Beta]"}]], + RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], "//.", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "/.", "s2"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "1", ",", "1.078", ",", "0.001"}], "}"}]}], + "]"}], "]"}]], "Input", + CellChangeTimes->{{3.817280804305807*^9, 3.8172808637975616`*^9}, { + 3.817280897254437*^9, 3.817280903087328*^9}, {3.817280943100966*^9, + 3.817280948025497*^9}, {3.817281378848133*^9, 3.8172813936536837`*^9}}, + CellLabel-> + "(WOPR) In[727]:=",ExpressionUUID->"6c30dc25-997d-4790-bfcd-6e15ebcf7cbc"], + +Cell[BoxData[ + TemplateBox[{ + "Power", "infy", + "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \ +SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \ +encountered.\"", 2, 727, 461, 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{ + 3.817280903495492*^9, 3.817280948486462*^9, {3.8172813874112787`*^9, + 3.817281393884687*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[727]:=",ExpressionUUID->"56028de4-0ddc-4ea7-bf21-a25534c5c68d"], + +Cell[BoxData[ + TemplateBox[{ + "Power", "infy", + "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \ +SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \ +encountered.\"", 2, 727, 462, 31479193581598412653, "WOPR"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{ + 3.817280903495492*^9, 3.817280948486462*^9, {3.8172813874112787`*^9, + 3.8172813939726467`*^9}}, + CellLabel-> + "During evaluation of (WOPR) \ +In[727]:=",ExpressionUUID->"3d57804e-381a-4ba2-8dce-4428206df060"], + +Cell[BoxData[ + GraphicsBox[{{}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], + AbsoluteThickness[1.6], PointBox[CompressedData[" +1:eJwVkHs01HkYhycSMna7INpykOsmYuy0Sb1T0xJra4itmFpjl9pya2UpubQT +lRJ2rRJ7KkqORSmELm825G4Mk8vIJffblPr+fjNo29Ufn/P895znfAx9g939 +lBgMxu6FfWItPkxVO7eHk7u1K9l0K4PTkqsW/M2oBUdjUrDBreVfCImk3IN8 +lnH0tDY4DvM/gIS4QIgOgZsxTXfGfechcka0vK2tFFSM/pDzc+dgwKiNwfri +FZYHDxtXas3BV6e/53dZj+KICs/BJ2MWnl/kK5cJJ/FECS1rtpsFh91D4Wkp +08i/5mvh3aOABIPQ4lK+DOmInt9fXVbA+LZnEfbBMvzumGm+vosCKpqXdKfo +yHBntutoLFMBSwX8s70x07jyxzFZU7scnFItD7JrpjDXBM1XZcnBsVA8x5qb +xHNnXnveDJWDsSB9qYXpJGq2MKdf7pLDnazHmy/wJlCNm31vm6EcbqQdY3lF +jaN8UYJK2AcaYgRnBFp3x9DYqczQrJsGm840b+vRUUwxT4z+vIKGC/dr+JGm +o/hLgZPV+wwa3gpzrb0DR7A7idF+PYaGD3V1GyceDWN3E7V84icairgH4rRX +DKOBmdee/G9pOBqlpMgPHkJxchNWs2h4IunfE9Q+iMc8n2TqrV3wMy5RTM4g +Dk6YxF1WpcEqyk5v0/3XaLbKcl7zPQXrS9Ak/cvXyFtmMivso+DCgyn1/twB +PKFjk97bSMG1RGFxheUAGkUVNmg+osA6yUFZWtKPfaVZesp5FDS4ufBobj/u +L+0MKUqnQH5V+dTFgj6k42VyZgIFukbP/2L29KJV6fjY0kgKHlvek86s6MX6 +INvjNwMoMAwOzKxye4WP+ZppLw5RcHiGm6F9tQddIzrXhLlRwNbbknx6WIrm +V4//mrWTAhxLaL2yWYoyrnPBrq8pOKG1f0YjtRu3e1R4CiwpYK7S9RaSLpTm +82JHDCg4MND3rsCrC3MqHhaItSko9tcq49R0YitTu8pAg4KheL8Ait2JbtOZ +Ko0MCpxXXoGE/A7cWsxWE9EEnvp4xFaaduC8hmah+TSB4z2r3QW3X+La8kl9 +8SCBJQWmR1jmL1E8w/untpvAzw/Y1YvvSnBaY429upjAKembmNubJagSUHMw +uY6AyabrF8detKMtV4ftXUng/ZxOXPaBdpQOOcz6lxPIURMIC2VtaOrroVpU +RGBdttLUYHwbepbYjLLzCCirJ7kYGLWhqtlvXDqLwMkU5/U7nolxvmr92FQG +gZjQDIWFQIznq8ZR908CuZ3G0vLFYlySoC8Ov7zQP2WXKclrxafNEo7aeQK1 +feEJvntbMUXlnWPtGQICnUIfp48i1Lsbyy6NJMAT7rAK+FuE7xpswkVhBOw1 +r22v8BLhLvU3Z7VDCChSFSvXMEXIuJUkEx5d+Cu6NHAuugX93HM8VvsRCE7y +iEsdb8boZv8jHT8Q2KK0O3FgXzMGSm9MlHsR+Og5F/q0rgk1u5vznnkSMNat +lKpDE3basuMneAQSR7iLbj1sRAc13cNsVwLqGbzsIFYjUg1vudlOBDzPRUy5 +3m/ARWHV+hu5BJ7vtzy0zq4BnVlRi3u2EaC14ElHWT02pTsyc+wJLFcu+Y/H +qcdWnuq+RDYByaXqLeH1dbgzQvJZii0B+d7ZK6x9dVhHnfS/Z0Xgf/vZntk= + + "]]}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 1.2326611203921132`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{-0.9510776861588656, 0.5156707189238211}, {1.2326611203921132`, + 1.7786750794389343`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.8172808645119963`*^9, 3.817280904138884*^9, 3.8172809490422153`*^9, { + 3.817281388171639*^9, 3.81728139444154*^9}}, + CellLabel-> + "(WOPR) Out[727]=",ExpressionUUID->"56916602-5965-4962-8188-b6662a5aa173"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"n3", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq3", "=", + RowBox[{ RowBox[{"{", RowBox[{ + RowBox[{ + RowBox[{"eqLow", "[", "n3", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqMid", "[", "n3", "]"}], "[", "0", "]"}], ",", + RowBox[{ + RowBox[{"eqHigh", "[", "n3", "]"}], "[", "2", "]"}], ",", + RowBox[{ + RowBox[{"eqMid", "[", "n3", "]"}], "[", "1", "]"}], ",", + RowBox[{ + RowBox[{"eqLow", "[", "n3", "]"}], "[", "2", "]"}]}], "}"}], "//.", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"\[ScriptCapitalF]sol", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", + "GlRules", ",", "GhRules", ",", "DmetaRules", ",", RowBox[{"{", RowBox[{ - RowBox[{"gC", "[", "\[Infinity]", "]"}], ",", - RowBox[{"1", - RowBox[{"RandomReal", "[", "]"}]}]}], "}"}], ",", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n3", "]"}]}]}], "}"}]}], "]"}]}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.8172700941895447`*^9, 3.8172701434323797`*^9}, { + 3.817270286114553*^9, 3.817270318899034*^9}, {3.817270357375535*^9, + 3.817270357541957*^9}, {3.81727041769875*^9, 3.817270431586034*^9}, { + 3.817270463371037*^9, 3.817270467092168*^9}, {3.817270570223769*^9, + 3.817270572329393*^9}, {3.8172707344012623`*^9, 3.817270737650587*^9}, { + 3.817270775215129*^9, 3.817270781533001*^9}, {3.8172717945510798`*^9, + 3.817271814605665*^9}, {3.817272979628352*^9, 3.817273005497312*^9}, { + 3.817273039233885*^9, 3.8172730416036663`*^9}, {3.817275902266474*^9, + 3.817275915955117*^9}}, + CellLabel-> + "(WOPR) In[494]:=",ExpressionUUID->"b31259b6-cc89-48a8-920d-e9dbcee664fb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"s3", "=", + RowBox[{"FindRoot", "[", + RowBox[{"eq3", ",", + RowBox[{"{", + RowBox[{ RowBox[{"{", RowBox[{"\[Theta]c", ",", - RowBox[{"1", "+", - RowBox[{"RandomReal", "[", "]"}]}]}], "}"}], ",", + RowBox[{"\[Theta]c", "/.", "s2"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"\[ScriptCapitalF]0", ",", "0"}], "}"}], ",", + RowBox[{"\[Theta]i", ",", + RowBox[{"\[Theta]i", "/.", "s2"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"\[ScriptCapitalF]1", ",", - RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", + RowBox[{"\[Delta]\[Theta]", ",", + RowBox[{"\[Delta]\[Theta]", "/.", "s2"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"\[Gamma]", ",", - RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", + RowBox[{"\[ScriptCapitalF]1", ",", + RowBox[{"\[ScriptCapitalF]1", "/.", "s2"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"t\[Infinity]", ",", - RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], ",", + RowBox[{"0.1", + RowBox[{"RandomReal", "[", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "4000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, { 3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, { @@ -690,206 +2650,55 @@ Cell[BoxData[ 3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, { 3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, 3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, - 3.81721453132269*^9}, + 3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, { + 3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, + 3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, { + 3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, { + 3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, + 3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, { + 3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, + 3.817270029113059*^9}, {3.81727016313024*^9, 3.817270185946486*^9}, { + 3.817270335143284*^9, 3.817270367462471*^9}, {3.817270440307015*^9, + 3.817270442465829*^9}, {3.817270579806553*^9, 3.817270600570369*^9}, { + 3.8172718236141233`*^9, 3.817271852429574*^9}, {3.817271884330206*^9, + 3.8172718930060387`*^9}, {3.8172730122522783`*^9, + 3.8172730205535307`*^9}, {3.817275923134584*^9, 3.817275950260332*^9}}, CellLabel-> - "In[783]:=",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"], + "(WOPR) In[497]:=",ExpressionUUID->"30d0f855-c86b-4121-855c-813e9ee04f96"], Cell[BoxData[ TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.00001617606332891344`\\\"}], \ -\\\"+\\\", RowBox[{\\\"6.5540032390619315`*^-6\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\"-\\\", RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.017359918373734545`\\\", \\\"\[VeryThinSpace]\\\"}], \\\ -\"-\\\", RowBox[{\\\"0.00003480505173500426`\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"5.767651811132557`15.954589770191005*^1080\\\", \\\"-\ -\\\", RowBox[{\\\"3.220369289817145`15.954589770191005*^1084\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], RowBox[{\\\"1\\\", \\\"+\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.7186357434986`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\ -\", RowBox[{\\\"0.00012870700156761243`\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \ -\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ -RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1794.794305478754`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"0.3214460115274505`\\\", \\\" \ -\\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}]}], \\\"\[Pi]\\\"]}], \\\")\\\"}]}]}], \\\",\\\", \ -FractionBox[RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.05026264396575045`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"0.000010175200587390827`\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"\ -\[ExponentialE]\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"0.007826236712454249`\\\"}], \\\"-\\\", \ -RowBox[{\\\"0.0000347962809085611`\\\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \ -\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", \ -RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"5.500526500917296`\\\"}], \\\"+\\\", RowBox[{\\\"0.0005127723107315132`\\\ -\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\")\\\"}]}]]}], \\\"-\\\", RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.43457570892128017`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"-\\\", RowBox[{\\\"0.0009219407003604992`\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ -\\\"[\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"5.500526500917295`\\\"}], \\\"+\\\", RowBox[{\\\"0.0005127723107315117`\\\ -\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\")\\\"}]}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"16\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\"\ -\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \ -\\\")\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]}], RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{RowBox[{\\\"(\ -\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\ -\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}]}]}]], \\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"(\ -\\\", RowBox[{RowBox[{\\\"241.70973389640085`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\\\"0.4936259809340333`\\\", \ -\\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\ -\\\"\[ExponentialE]\\\", RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"-\\\", \\\"4.88288886140384`\\\"}], \\\"+\\\", \ -RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \ -\\\")\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\ -\\\"}], RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]}]}]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ -\\\"[\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"0.6176376395134557`\\\"}], \\\"+\\\", RowBox[{\\\"0.00010466255616021392`\ -\\\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\")\\\"}]}], \\\"]\\\"}]}], RowBox[{\\\"1\\\", \\\"+\\\", \ -RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"91449.27870869786`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\\\"703.2306648650895`\\\", \\\" \ -\\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}]]}], \\\")\\\"}]}], \ -RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"1\\\"}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"454.04782894674713`\\\ -\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"0.04232743072733425`\\\ -\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], RowBox[{\\\"1\\\", \\\"+\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}], \\\"2\\\"], \\\" \ -\\\", SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"1\\\"}], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{\\\"4043.636439904255`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"0.6852194537822353`\\\", \ -\\\" \\\", \\\"\[ImaginaryI]\\\"}]}], RowBox[{\\\"1\\\", \\\"+\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}], \\\"2\\\"]}]], \ -\\\",\\\", RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"24\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\"+\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\ -\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"3.3571126141215287`*^-6\\\", \ -\\\"+\\\", RowBox[{\\\"2.7194249958945334`*^-8\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\"-\\\", RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.017359918373734545`\\\", \\\"\[VeryThinSpace]\\\"}], \\\ -\"-\\\", RowBox[{\\\"0.00003480505173500426`\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"2.916026207996856`15.954589770191005*^1072\\\"}], \\\"-\\\", \ -RowBox[{\\\"1.407818716820538`15.954589770191005*^1085\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \\\")\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"454.04782894674673`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"0.042327430727334116`\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"13\\\", \ -\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}]}], RowBox[{\\\"\[Pi]\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"2497.5021375098786`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\\\"2.0713080264925728`*^-13\\\", \ -\\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\"+\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}]}]], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"2.916026207996856`15.954589770191005*^1072\\\"}], \\\"-\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\ -\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}]}], RowBox[{\\\"\[Pi]\\\", \\\" \\\", RowBox[{\\\"(\ -\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"2497.5021375098786`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ -RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"24\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \ -\\\")\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\")\\\"}]}]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"8.222320853181985`*^-6\\\"}], \\\"+\\\", \ -RowBox[{\\\"3.507187889934633`*^-9\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}]}], \\\"}\\\"}]\\) is not a list of numbers with \ -dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"6\\\", \\\"}\\\"}]\\) at \ -\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"gC\\\", \\\"[\\\", \\\"\ -\[Infinity]\\\", \\\"]\\\"}], \\\",\\\", \\\"\[Theta]c\\\", \\\",\\\", \\\"\ -\[ScriptCapitalF]0\\\", \\\",\\\", \\\"\[ScriptCapitalF]1\\\", \\\",\\\", \ -\\\"\[Gamma]\\\", \\\",\\\", \\\"t\[Infinity]\\\"}], \\\"}\\\"}]\\) = \ -\\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{RowBox[{RowBox[{\\\"0.000010934376781525021`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"8.408364901871981`*^-8\\\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \ -\\\",\\\", RowBox[{RowBox[{\\\"1.2529804226463594`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\\\"0.000021725117473261573`\\\ -\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}], \\\",\\\", \ -RowBox[{\\\"1.5914055013013795`*^-17\\\", \\\"-\\\", \ -RowBox[{\\\"4.0053973446175033`*^-19\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"0.017359918373734545`\\\"}], \\\"+\\\", \ -RowBox[{\\\"0.00003480505173500426`\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2497.5021375098786`\ -\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ -RowBox[{\\\"2.0713080264925728`*^-13\\\", \\\" \\\", \ -\\\"\[ImaginaryI]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"0.2592669230870071`\\\"}], \\\"-\\\", RowBox[{\\\"0.00007929733852228741`\ -\\\", \\\" \\\", \\\"\[ImaginaryI]\\\"}]}]}], \\\"}\\\"}]\\).\"", 2, 783, 551, - 31478759869561735920, "Local"}, + "FindRoot", "jsing", + "\"Encountered a singular Jacobian at the point \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\[Theta]c\\\", \\\",\\\", \ +\\\"\[Theta]i\\\", \\\",\\\", \\\"\[Delta]\[Theta]\\\", \\\",\\\", \\\"\ +\[ScriptCapitalF]1\\\", \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"1\\\", \ +\\\"]\\\"}]}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"0.10883474635158481`\\\", \\\",\\\", \\\"0.1087637311720366`\\\", \ +\\\",\\\", RowBox[{\\\"-\\\", \\\"0.03027802286883688`\\\"}], \\\",\\\", \ +RowBox[{\\\"-\\\", \\\"2.395987125603358`*^-7\\\"}], \\\",\\\", \ +\\\"0.010188811377372375`\\\"}], \\\"}\\\"}]\\). Try perturbing the initial \ +point(s).\"", 2, 497, 355, 31479193581598412653, "WOPR"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.817214526308713*^9, 3.817214540913575*^9}}, + CellChangeTimes->{{3.817271845315606*^9, 3.817271910309051*^9}, + 3.817273022397489*^9, 3.817273086526833*^9, {3.8172759390488853`*^9, + 3.817275950677195*^9}}, CellLabel-> - "During evaluation of \ -In[783]:=",ExpressionUUID->"ef961c10-8104-4e4d-b207-a87b03b3d39a"], + "During evaluation of (WOPR) \ +In[497]:=",ExpressionUUID->"f1cd282b-fb73-4166-8899-1f1b71289512"], Cell[BoxData[ RowBox[{"{", RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "0.10883474635158481`"}], ",", + RowBox[{"\[Theta]i", "\[Rule]", "0.1087637311720366`"}], ",", + RowBox[{"\[Delta]\[Theta]", "\[Rule]", + RowBox[{"-", "0.03027802286883688`"}]}], ",", + RowBox[{"\[ScriptCapitalF]1", "\[Rule]", + RowBox[{"-", "2.395987125603358`*^-7"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "\[Infinity]", "]"}], "\[Rule]", - "0.0008459722902801232`"}], ",", - RowBox[{"\[Theta]c", "\[Rule]", "1.242412046533791`"}], ",", - RowBox[{"\[ScriptCapitalF]0", "\[Rule]", "0.000014607404035551358`"}], ",", - RowBox[{"\[ScriptCapitalF]1", "\[Rule]", "0.05434978123417711`"}], ",", - RowBox[{"\[Gamma]", "\[Rule]", "2497.502137509859`"}], ",", - RowBox[{"t\[Infinity]", "\[Rule]", - RowBox[{"-", "0.27244656539953316`"}]}]}], "}"}]], "Output", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.010188811377372375`"}]}], + "}"}]], "Output", CellChangeTimes->{{3.8171270996292067`*^9, 3.817127105556841*^9}, { 3.817127204285718*^9, 3.817127264091604*^9}, 3.817127314951366*^9, 3.8171274144813757`*^9, {3.817127496044944*^9, 3.817127500612631*^9}, @@ -918,164 +2727,1698 @@ Cell[BoxData[ 3.8172122275095043`*^9}, {3.8172122698902597`*^9, 3.817212283156934*^9}, 3.8172123869969254`*^9, {3.817212477265932*^9, 3.817212505367959*^9}, { 3.817213142038204*^9, 3.817213156396003*^9}, {3.81721399823987*^9, - 3.81721406485555*^9}, {3.817214510874466*^9, 3.817214540922349*^9}}, + 3.81721406485555*^9}, {3.817214510874466*^9, 3.817214540922349*^9}, { + 3.817219147826261*^9, 3.81721916839528*^9}, {3.817219202321391*^9, + 3.81721926178716*^9}, 3.817219819433941*^9, {3.8172203499673634`*^9, + 3.817220388880389*^9}, {3.817220428714097*^9, 3.8172204420687723`*^9}, { + 3.817220475912451*^9, 3.817220600722657*^9}, {3.8172207994737062`*^9, + 3.817220837753346*^9}, 3.817220869735447*^9, 3.817221490855907*^9, { + 3.8172673879327583`*^9, 3.8172674061020613`*^9}, {3.8172677896248503`*^9, + 3.8172678294150743`*^9}, {3.81726803150861*^9, 3.817268040027916*^9}, + 3.817268349512271*^9, {3.817268405281534*^9, 3.817268494757325*^9}, { + 3.817269089883569*^9, 3.817269131142281*^9}, {3.817269950143134*^9, + 3.8172699532985477`*^9}, {3.8172700248676157`*^9, 3.8172700504906073`*^9}, + 3.817270188031938*^9, 3.817270369694803*^9, 3.817270443551853*^9, + 3.8172704748305483`*^9, {3.817270580860221*^9, 3.8172706056496277`*^9}, + 3.817270683974093*^9, 3.817270741457181*^9, 3.8172707866388893`*^9, { + 3.8172718454749317`*^9, 3.8172719104007607`*^9}, 3.8172730225617037`*^9, + 3.8172730866934967`*^9, {3.817275939131167*^9, 3.81727595078214*^9}}, CellLabel-> - "Out[783]=",ExpressionUUID->"15e91b3c-4864-4488-8f91-7c413ccb268c"] + "(WOPR) Out[497]=",ExpressionUUID->"3b7bac7f-12db-4bb2-8d83-0f02d8f19997"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Plot", "[", - RowBox[{ + RowBox[{"GraphicsRow", "[", + RowBox[{"{", "\[IndentingNewLine]", RowBox[{ - RowBox[{ + RowBox[{"Plot", "[", RowBox[{ - RowBox[{ + RowBox[{"Evaluate", "[", RowBox[{ - RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", - RowBox[{"eqB", "[", "testN", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], - "/.", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", + RowBox[{"\[ScriptCapitalF]sol", "[", + RowBox[{"[", "1", "]"}], "]"}]}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n3", "]"}]}], "}"}]}], "/.", "s3"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"Plot", "[", RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", - RowBox[{"h0", "\[Rule]", "1"}]}], ",", - RowBox[{"{", - RowBox[{"\[Theta]", ",", - RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", - CellChangeTimes->{{3.817212100311531*^9, 3.817212151983387*^9}, { - 3.8172121838725224`*^9, 3.817212184815969*^9}}, + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n3", "]"}], "[", "\[Theta]", "]"}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n3", "]"}]}], "}"}]}], "/.", "s3"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]", "}"}], "]"}]], "Input", + CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}, { + 3.817270389641168*^9, 3.817270412114234*^9}}, CellLabel-> - "In[687]:=",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"], + "(WOPR) In[241]:=",ExpressionUUID->"e1346f99-b8a8-49f2-9bab-d7d94b52e5d3"], Cell[BoxData[ - GraphicsBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJw12Hk4VN8fB3CtlpB8S78iWSKm7KJIp0WSspZIsrRQlhZZUrIliYqkkq00 -QtKMfYkcy8jYsoyQJVt8FQYRM1OZ3/14fr8/5pnn9dx55n7Ovfec83lf6TOX -Lc4v5eHhWbqE+BDfykjsB5fLxQ8kd0we4WWjy2zZMDaHi8U1hOKPEs7KVZOf -+cXFXxxqDYwJqysYnxkZ4+J8fmaiCWHtNSFdDR1cnJQ4amROeO/QdN1zKheb -aJBfnCBscbfxrYY9F+/WUdN0JOzTFOLuXLaAafdq+b0Jt7Wt+lHh+BdnWlGL -kglvKr+8VlviD07d9DCTTjjflbZidS8Hl4x1y00QdrivNvUlmI0nNVxW/cPH -Rqzom2EYsfCZBBlnTcJk4a8bYgfm8FxjhfUJwglGah6Me78w38Vtv7wIB7s5 -Xlc8PIuLe4/lPCJ8c1mGj8fET8wWYvS9I+wY2LSlPX0aG1qtcfpI+MmH4dgE -lylcsPncxx7C7/sUBDNlmDh+n4TaDGFZkb37jyeNYbqP/emV/GyUQwpzGRwa -xd7LP6MNhPuqs6W0tEawwr35r4qEh7c/UccFQzjudeobbcJr/N9oKS8ZwCUO -EpX6hEMLFOgi8/049IHlJJjDTDs5M96Pr5RekzhIeNA+1a+osx+LSNt7g3P2 -kSv3Z/Xj23w/FQwIW6xINLGy78cTznz3DhHeukG6kedmH74gy9I0Irxda3L7 -65keXEr6rmtK2Ek5IKC4twcr5Dw/D34hv7q1saYHsyJJkWDR9So+c/E9eKfp -xAB4fv5SxSH9HuzTN3fHjHBlMdPyR0w39nXYSDcnbK3H9FfR6sJSmWTN44Sj -d/i3HJDqwgxtextwvZLwFmuBLuy56XcAeI+kcm3g1y94bI5RB5bluv/TGvoF -xw/z21sSZpZPpHl2dGLe2tCgE4Rv6080F1/vwFmnqinWcH7DcVPNsx2YrDLZ -BOYxHvtEMe7AkyGcKbCf5fcGskwHHs/NVz9J2NtpmP6goR1PyZXlgS+E9ZY7 -SrXjWPf1uTaEjzY0ZvHT23CBzHisLeHw5gaVkJw2rHLUoABMb6unLCS04Sx2 -EAN8sLc2c+ZqGxYbSBQ6DeNhVqf3irfhtCHnQLCqSNnL7MsM/Juu72BHeN1x -StTJ9a34yHMZfge4f/IR7w8ua8U6r+alwGZs529qky3YUi5nJzg8SXqnQE0L -NozrcAYvjMb0vfduwVl7v9HAI7duKku0N+OnEctvOBK+ZPoo9oNiE5bxcWw+ -Qzh91mj8yZImPNQ3/A08+Hz53ktfPmEfmikbfOKbz7+S9z5hoyVt0mcJI187 -rcDRRjxmlHQVLELe1rY/rQHfUNARPAf1zlWvpm+pw3ttI5XOE36Y8apyD7sW -27I194Jd7QK88htrcYxbiQV4y8ed3a+8a3HkZxcf8NMnb1Nv0el4de4xDL6h -+UhPw60GK6cZH3aCekbdp97srcGctzw2YI0EI7LUuhqcfjfGBTy+bDm/cNlH -/KXKLgJsx/BuG139Ebea3aoH7/ewdU3KpeGmj4MHnQlLyu+SXBdGw8sQ+Tj4 -95d1LRG2NEx/qH8WnLevSct3BQ1r5CsGguXX7F963KoKv5D0LwILZG19zv+7 -Atu4mcpeIPy6e/jB95AyLKURMwDu8hN7kahRhv0OFo2BhSUPZZkPfsDhKhW/ -wN4O6a3F6ANuDQ/iv0jYYNhlfTinBBfZlaqAR5mTL0lXivH3wI0+YIkoqZyv -ksV47Zr7AWAzNfOq6MYibOQ7eBdcdC1nmEMqwswWvVjwPZYnqX64AMelUArB -pKWcXNdTeTiDcX0abEcmVW8WyMP1I9oscLT+qXZGUS4+0Nq9AOaElrJ0xXLx -fvXWVS4wP1cF6Am2ZONxMd8tYJ53VJPygGwsP2FHAmua9Nt7Kmfjz/GKquCE -qH3BPRFZOC7YXRfcSeJ7ePIBBSt5U83Ae90vZlX8eIedREotwenUulZFw3dY -6fY7G7Cv5oP1nKWZ+NrPPefAG/eIJsddf4OVWOLe4ODAa1VL29Mxycr0Bnis -sm3YRSMdNzx09geXHnpG0mWmYr4wg1DwaXOJvO6zKTjlVVkMeHzm1y4vGhmP -qPDFgv2eNmFhOTLWTNGOX6y/O7h+30gy5uwzTAZv97c17zZIxt6uiingEimt -Ds+0l3i531QqOK++tdq0JQk7WqhmgttEQluCoxOx+n/eUMAzlrt6848lYPFq -3mywev+LWfH25xi1eeeDzeWO8Zg+i8V+WncLwVdcVgoGWz/D7QG3isHUWTfZ -0a4YPF4j/gH8aZeUinjCY5z+saoMzPRn6JicjsahmeblYCFaqEGQ5CMc5ltd -AbYW9Uy5gCMxRWlzFbhdfh9DkxaOXY6EVIOP6QovXVJ7B+MVQTXgeLoZVn/t -gw3N9tWBA9sU2sSrjPFZIYd68M3HBnWumlfQRr3exeNVUvfuJooEowt9RXSw -gWCpdcuqu+i2uMDi/9HnmYoreO8jndmfNHC4e5joi5CHyFS3fLGe1OmoWxJB -USj84rVKsLMzyalgIRq53YzAYEMZH5vbejFojf3U4vgVeqtMzPyeoC+KuqXg -HxantX+wn6E6z+AicJ1QxrbCnc/Rz1n/AvBb+tzmEJ84pGXrmAd22xPFJ/kr -Aa3t76CCjdk9f35oJKGMP67vwMp5itOFHi+QNc9IBpgVMzCuwHqJ5ksjXoOL -BW5+rvQiI9FVSc/BL5XWMagyKeh4z4an4FAzanNCUwoqnfOOBh9/OlTvrZiK -WCs/h4OnpI9WknrTUWuM1OLz26E/gteHv0FLqKle4DLnwA/LtTPQflHhq+CI -d3lFX6PeotHcQGew/K5N1Gh9CnI5+8sCLGhbmBkwTUGV1XeMF583f/MMtyQq -Er46fwjsMFhpIeuXhXxe+e9eHJ/CvPHfz9lI7IrE4nyuzbXXz76Xh8pynkzA -/N9dvb1qa38ecn2lMwLOamfvS9LKR7Su8q/gp+zHKGIoH7nJXW0Cn0N0nfN6 -hWhO2pEK5tapqm2YLka/c/wvgj16/lIjD71HI6SdDuCRiTrllUnvkcxY6wlw -g8j57TNGJchDP/MAOO7E862NKaWo5CRTHLxjcIlkkDVGjXxZH2H9VH5vNa36 -BiOG+55SsHz0O1o/GyNL0Zxs8KrkzB0vjctR3obDCeA/ZtY9XGY5UpLWugLu -zaIqYrVKtFFI8J/F9TrB5p/1NpWoxom5EtwetuLvpeBKFMLN58B6/8nhVLMk -oxIJMWcHwGUivD7+nlXoQZkaFfziih1Nr5CG/OXT9MEJtvyUJ300dNe9Vwsc -a5j3bIK3GsnMsBTAUVICronW1Wi8uE8QHNicv+Yvuxr1a7oxYL9yVBWyL91d -g9I7A0+BZadK2DqVtUjmWawV7I9+jQdCZidq0d6GFQfB7Rn1wpQNdehw9DF1 -cPj5blnpq3VoqDlKEDzVxTHmlapHNLFoDPt1WfWuV4xbDUi1mLoZbBNfaOS2 -qwnRZ07QYf/Pu44+y51vQm2k9myw8Ika+76oJsSa2hEPrhDp8LQYbUL6pGfu -4LUHbpomHGlG2037RcA3i+J8gznN6OOxB+bQfxwmf2k0sW5F6U3mJfZQzx2K -U7V7K3oVZ5cMjr1wm6t7uxV9Wmd8FzyqpKSmSGlFHhJNFuCwosCYZcsZaOGC -8yj0S/TGraeKqAwkNjkqBD7E8hqV5v2M2CSV/Yv9l7Hosl/5HciTU2UK/d5D -R/5pdm0HOp7prwru9OLpW+jtQH84kmvALknM93wrO5HlJZFWK/j9ZJ2HxIlO -RHpbYAHufHR78MBcJ8pwEzGFftOlfbYiWqsLeYayNKA/jbTvCFQt7EEJCU8p -0A+Hju9GIw09qIx5+w7Y3/fV3/jBHnRB3cIWfOmx+w1e4V707cEjfrBJzTLP -r+d6kX50/BkTuN4qqs73Rb+i0YIeYWOoZyHMeNS9D11OFDWDfr3GZJOQmegA -El5u4AV5YEJ6nX9r3BCKK9fS2UnYy3ObY6TYCHrISntGgvWlR8TCiT6KyrLx -DOQPB9/d//IeHUORSw5l88H6vU07vGoFE2l1RojNEvlFnr90NMVwCpUGTYr0 -Ed5U6npwRdg0UnEwotMJ83CWvvEY/IkEvSpLKITnzT/YVcvNojmD9LQYwt2a -9uJyIb9QAPu9tzfhK1Yia2R65tDLIfVeyF8bYr5ZL9/EQg2ZLcnahCmnXqbN -XGejQs3VImsJW+kFGNI/cNB7w8jkKSLfZdu5y+j8+Y1EP7GdGwizBA4sK7b8 -i3aHnVcjQ55s0dXaFLuAYs9fm7xBWEB3VUVp4gLyGC7RBlekdB2xJS+gqriB -AF/Cqtd9HeMpC8iBTFt9nbDw5sL7G6oXUJr4dyUvwrVu6kPrfi6gaam3Zy9D -fuVTjBI+ykWWuqvzz8L5r7I2Usy5aHL3X9YZwtTumtfGVlx0w4G+GyxJdSq5 -f4aLfgjMVTkQ/mOZMiLgy0Ut3ZTm04QLyZv1eFO5SH/wyZAV4UtCkzWpb7no -WJGlHFjep8zCIJuLbFJ/OkFejjE6feFOKRc11lR9P07YYzru8TIGFyULV01A -viadcpEkd3JRc7SrMniAtuvN/q9cNKY4fcmMsFlsZ1nQdy468/DxJORzvqXp -h6UnucjXJksFjF192spnuWhWK+My5Hnvzwb2DhwuUpMNokLe/9/7APT/9wH/ -BVMTF5k= - "]]}, - Annotation[#, "Charting`Private`Tag$2426398#1"]& ]}, {}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 1.5642814010661}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{-2, 2}, {1.5642814010661, 1.5647991127342145`}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.817212152439725*^9, 3.817212185115758*^9, - 3.8172122205512037`*^9}, + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k4lP0eBvA5QpbpULydiqRIIiNLOFRfsmSJapIUSdKkeCNFUjQhUikS +ydJgsr/IMssjPA1SUVRG1hSdyBKRrW063/6Ya67Pdd/375l5npnVXv70o2IU +CiUVX3/eM2/J7WMwZknz+mVXV7XVky2Hd7zr95olKQLK0Vep9eSPjbHHDh6a +JZk2E9cKvepJl1axEGdXzNvsv7+eqiMXUWdTttlj7n1BXKRYR4Ze7u1WoeF5 +6panmjwfkc4hBR4dMzMk07KzwV2niozYPjhIn5ohKfnPrV81EmTpUjX/lnH0 +otTzKZ4EKcNJv/h4CPtcq+RVSXxSMHkzs6ILXXQyRlGMR9J8gwdu1qDHlf5d +NVpBLvSwZNhexv3fGlKyoiJyaaffxpBL6F6R+ROjIlKDnvw9Lww96524O6CQ +tLIZvrEwGP3Ozvr1x3ySSbvJa2Sg59/siO/OIedF3VLWtug1ntpNb1jkJ1Zg +kYUs2tvI15IXQc4tTw86tRAdZbl8UJxJSt5+DFkL0Hzuq99FoaT6lWVCys9p +kvKSmmIpEUB6BtT+JMfQmSt0l7zaA53mMk5bW9Dxdx4InkXD0/6sL6YJ6Nm9 +PdKu92D60Effoji0eI5PkDcLVvdpDildRbNfJmcYZ0Jod+nbnxHoMjPnT5AF +2m01TbVn0LSBUaYNG240dN3f5or+312qoXYeVG1bqVrhjA68rD3FzoOhR55p +arvR1sUebUr5YF4zlCBuj45JdfwpVQBTnJnwRjP01QTp9s5C2Ju3eL/9KrRL +U4iYUwlErN0rrFJCr9RnZPBLoISdslN7Gdq1t2PnmlKQzFxlQ12M3kqsnZ8q +BX6KjkGLGLpae2FmwwNQvmq3iD74laT4VfPOWZWDrVTclboBdLnvJnpgOQRF +v1xg8O4ryeRl8EtZ5dASse+7QidaRfXb3Hw5XDx/dKj9GfYtVc0f5FTAgN8l +wf5i9MbEGPpQJdRprFXpLcC+hmBPFJUD7PdPQz1y0aKFDiZ6HPB2ljc8wsL+ +GcV/1M9xYNCMleuXgHm1SRhlARcaZ7YtmIjDXHr1pKE6F/JKBw+duooOWOww +ZMUFHzXa8uBI9NTOgPooLozI1Fy7GIROv+tmJ+JCU4Pnp38F4nmnGYPuSjwo +Che3jjqJNjmfP2zMA78pB9GVY2jFI65+/jwY7+oOuLUf91TDbPFOHrQkhr9Q +dPnTt9d9+YUHpY5rtO7QMW9Va5aT5kOA4PiHNAd0T0HgJ2M+TObP783Zgv3g +xK7RG3x47ZVevs4U82c+VlZsPpQrm8sVGmHerScly+NDYHzM0xJd9OKW+Pe9 +fKDba6/V24DOWt70eZwPBuKtlyo00QM61gwKAdNnl5rxV6MDHZuTVhMg1Ku6 +Y6qCNjhr6KBHAGf04HT1CvTBmDQfcwKCD+UUCxTw+l1Zog53AlyW28lYyaND +wsw1TxBg3DbGaKSi1UjZt8EEzNsYqjZL4L6Ylhtwg4BOSucFRzF0XFmm410C +iKrzXa2iKZK5aeX5a2wCUs+sMqL/QHeYbltfTEAorf6WcG4K74fq77VcAg58 +Yky4TKM1V/KYtQSYZcvs6PqC/eJ7viaNBCi7l+S7fUYbq6zY8YKAn3/RJfqG +sZ8iWV3VRkBv68xhz0H0dJpNZBcBNbF3awcG0J4Dhff7CLhnuUXp6Dvcp0e2 +r/xAQPiv92eHejCXqCz5PEiABy9KeLwTfXHpCoURAuCUpt6YEH2fNXt9jABV +7edxJ1/9+fxnVQ6ME0D56D/y5QXaq5dxboKAOjtK7Lom9LJf1FF0VEn8Oo9G +NLFDKw5to7C68XYdnvdbsMED91IhZd7NtehUQag7nt/Ua7FA7CH2GwcDo4cJ +uG7xOsuEh/mbZ77dHwlwyvUy96/4c72GCpd+AuRkv/bllKKtK+K/9RDw0j8y +rLcI/YsDgnYCbgkVlBXycR87Ol3UQoDzf+9X2d1HR2/o4eH9XHrPcD8zE/un +6hQ+1ODzE3s8x01HDytxtSvxeR3bm/w5Bd0Q1nqzgAAVveC2Awm45xYdy04g +4H2SZGBCHNrWtHlHFAHZ35Pln8Zi3451UgZ/HxoNPMdNEZg/EtVwXQj4pGk7 +5huO9t85kWlNQGFc59XsUPRauxNJBgTo7Pv2RO407vcZchKpBIw/jGXY+KP1 +j2WkzPHhgeoKiTBftPkjUUY/HwxHTLeNHMH9+o5KVjkfNoddqG5wRvdLzOrZ +8kHUT3X7sQutovufcS0+PLLJ+KbniJ6kziVS+WAlX2vEssbz2raviX/OA8kg +p/Z2C8zbnF68K+TB066+09StmB8On5a9wgMH9u8H54zQKo6+o1t5QJWK3/lA +H/skQb+zDP//fqrjgzT0w/gP8pNcoBtZaDuvw76s4Kv7PS4ceBaRQ1uGebYV +vX+YA8o0Baujimg3/eZIggN9t9gDafLoYCPnlzEc8HJvWCUtjfvCoH66KgeO +T0ikfvg2SVJyfU96mVeClnOyyYrZSZJ5/azEQ/FKGONrdOyaQoevl735pAIC +IrYr1o6gazax42wrIOSv2BspPbgfEzdZYlwO+8IN+uQ60RTZXLevZWA09FYn +Roj9H5tZSiVlMMPXfxH0Ak3UXHunUgaB7r2ye0jsz+6Tke4qhd2Po92aHqLX +TK9RMy6FjTS9Igs++n20aXJCCUz8vmy/sQwdrqClZVYMfmzd2EVs9D83/6Z5 +FIIDtbszioVuyhVuTi8AraAozZ9paK9oN0F7PgzbdD0ZuY2eYVonmeYBYyRC +8mk0OjWyJrWRDdZ7dFwgEj0gr3+3JxvUqztyuBfRIqfAyJEs+BC3wTonBF3b +vH1imAWeem8iI06g1b14w953AFKZbd8YaGGr66/lSaCyQFvt1BG0spauXPUt +eCu8WHfIHc0/kpx26RpUb9Fa0uGK1tQ3HNwaDem5wsNOe9G2PvlXHjNBc5dV +R5vTn+9fUm2xxwf+D/QiEqQ= + "]], LineBox[CompressedData[" +1:eJwV2Hc81A8YB/ArhSjJKKOMhpESRUV0R1IhpZQtoUEqeyRbsrKSvVeUlWTF +PWe7+yK7FEVD9uhHoeL39E+93q/PM77zukvU/O6Fa2tJJJIU/vHv75JVJXO/ +U3NA8taK+el8G94KdpMFKGiK0qelvIegC/c9f8midX8uV35JgkMS4u13pNGP +NQtaXNKAK7Jzx8hedDLr44c2GdBpLlbTswstFiH8cWcOFBMdG7VE0B/DC4u+ +PYUIOXfj+u3oxf9OGcfngTZzx+8XvOgQAenyvnyQvntPU5ILLS+/nt28EDa9 +252YxoGW6/l7f7gIWvPcFMNZ5sD7c/tA1ZUXcObsLjebpVnwDot98ZupFNiu +VrHFLaBHh/eEFJUCw1EnqX5uFkgVMfnpl1+BVpIXCIyjr994ph5XBtoTH9bT +32O9btmGsukK2LxqHzvfh3ll1OiYeyV0cLFJinRj7uBZzsJcBTqKR7VcCLS/ +1xP3La9BNyg6ak81mirkfoi1BniSpXbrVKBXf4aVedVAb3Hdq/ulOM9LsmNi +vgYuv5t9152PeZPhlvJ3VDAQPyvsmzwLtH2Smp0naGDauD7/oyfmddH+ts21 +INyfpMzmjjn3u2cn52thaPLQG3mXWaB8i1I2EamDqzzmP0LvYh4RNGnpXAeW +FtSjx8zQ69fvVReoh90ulxjXjbH+8gotVaUevgVPGkXpo73mzxnerIfrJQJe +Y+fx+AIFt62+rAerNS6NsSrYn8GXbajWAHt5OfTqldENwQc4bzTAuET26LQC +1suaxisHNYDN+W529YN4vK7Xuja0NsCd1AMX5ndivW0tJVezERyVRz+eX4f5 +cvdlQq4JxkI/6YSRMO+5ZO13rgleVxQExS7NAKXKmfWtVROE/Qy+9Gh8BmiZ +OW2Xk5tAzv7klGvrDHhrUL5+Wm0CoS1y3f81oMWSlhO3NQNL8c7KOzXYj20r +0s3wfmrV37JwBkjc19mrjZvB26pq+/kI9IzKHoXSZrBmzVtLBGK/LBOHBr0Z +Lj6NHT3pg/3P7oWzfWwGsW+Opcfssd7yuGsKcwu0mh3QEtfF+nQl9/26LbBN +P8t9ZRse35uPF14NtwDpV9RVN06s137dJfOjBcaf+JyaZ8WcWUPOei0dqrtN +uceXpoFUrZbGv5MO5uf4n/d+QHecuOdlSgetaZbI8z3TQMl95LViQwf5Rz+d +iVZ0+g1+FXc6sBLdqrU100AjnJ9xx9KhUD3sfX4q9t8PYCa10iHu232aeBzW +6xsGFbyjg4//rZyMCHTQaMKub3TQrTttH+czDd5HRspv/aXDsjITm78Fzkvt +uOcuxQB1eVcFI3Gc1/lWY7MnA6wHEnz0RP7N52D5FsCAML8a+kV+nBce9yIy +nAFvO9caarFjv2agpl0aA27eeXRPeWYKaFZnsi7SGBDKW1ynMDoF3oNeU+PN +DCiu7mI7PIx56oZlozcMWGLjS5TuRocrlLQOMiD4acZr4fIpIKXXVswtMqBQ +u5Fpe/EUUDrmlc1WGdC18F2TLw/rVU9ufb6eAEG1/QOciWjKy4W+LQTkD5X/ +WeOF/bVBL8MlCOh4+F5txQX383JsH9tPwLz039BlW8zvZEuJHiJA2UN1x3/m +OD+EyVBamYB2/jblr+qYt6l6NJwj4Adt5sEQGfOu0QIBXQK23uRqHziK5n2Y +raNPwJUyPdPevbifN2XC3IwAf5N7OZ27MP90oVLZkoDcdcnTbdvROR5ayzcI +mL3w2bOJA+ud1ar47xLAs7yuuY4Fc6KJw8OegKPp4puBhMc7ErG93okAnxmb +1PIfk0DR6Dm/6E4AV+gvyO2bxPeZ5LjpIQGHDwmwZr9B/+CfCQ0iwPC90vn0 +FqwvyJ2aDSEgU8J3KL4KcwmDczciCGh5kyUR8xI9oiB0L4qASedm26h8tOeW +0/bRBMg1blwTkoKOv+zJHUeAvs2BMw9jcd7ZSz+q4wm4z30h0i8CzWQXoZVI +QFqVY79X0CSQTh0KqUsioOFqrOh9X8xP5fEIpxAwylpl5eo+Cd6J10zNUwnY +WDzwwtER56/6xIemESCjt7pkexvrWdJ/JqcTcGlFVPX2daxvnMmOySBA6fcO +ji5TnO/hlxmYScDuRf73h/Ww/gKN0zSLAPYF3pzEc5gf0ZLclo33a26LPek0 +uvWQRCm6f3rT8WsUdOHkKfkcAmgTG9gYR9EFenUJ6Kej6/ukZXHfQl3HV3TY +tzUZjyVxvvLkc+6nBDh9/nt7URTru9aGiqONPy0pmAhgXpyXK4I+MbCwvo4L +z8dn6egq9u/tn+sUY8f6BF+HevSWvqnkECacP6oddhu92DVmNft7Arw/fqH+ +xeP79Oab/KX5CSBpqSk6optah9dUTaKVfsh14vkV0AfbhL5NAKV89jMPOrqp +P95vEPvDGl3IeD3c63uvjfZi/TZ3MR28Xua0Ttmz7egP6aIaeD3P1LT9fdGE +Vr+QuPff9a6i07fCBNA0pBt/4P1ZeVl7dagIc8lnU4p4/74V1+w/mYv5gObZ +1wkEtBZULuWl4f7/hIV34/1PePoi0iES92fF9BU9weczq8DkXRDWqzXydz8m +4GZ6nqSyL9YfUgn+FEnAkcT0WmYHrLfPzyt9RIBQXPKjW7fQfZ9KPPD5ZH4S +b9BhgfsNJpJl8PntCYuci9fFnFpL1/UnwNbXR3T/YbREkVyiGwF6Xh5TkdI4 +XySXvcKZgOP33Sp/iqFXpAVpDvh8Odvp0Lbh8TRbBEbdxvfP6qrPxaVxoF3L +ZDmJ72f4dZOzFXPjQDGu20IzJsDZwoB/xzg6JTVa3IAANROdFyPv0QtOKdU6 +BAydVxl2qx4Hkrv2yFpVAviPiqqkeY2D9/vNViLCBCgq69wNcMX6jd9vNgjg +86Hqk2xjh/WRUsYGW/H90BpeOmqB9W3aIZc3ESBxNb2kUx0dq7Q+fZkBh4NF +dzNxYP85pqhHXQzQHRBluZ40BjQTfiYnVwY4D+vIaz0ZA4p1zTUrewbEjfhY +HAzDPOpjn44NAz7MDsOK1xh+v9ivvHqFAebrM1xjLbDeXNCzXZ0BdtI7x1v2 +otmzPHS48PPbe2ebVOUoePuO/HJJpwPfXy6qfAk60ohxLIEOGW5MReTno0D5 +4/PoZxQdyuy/RlxMHgVS1cm9Ov50+GiZo+vug/X13TFJ1+mw/8zeAcYZdMnD +0gRJOrRuOThh9f470Ga9FjPyWoA9U2VD7u8RfP9WknifNIPS4bJjJ/m+AU0s +a1PyYgMIv9v3W/HSFyA5rDllZlAHZeOLxTo2w+Dtcd1Ud5QKzwob95fwfQLv +Ui/LXr1K0MxO5raP/wDeT6r/KNwqhUseIiMO7W+BNJud/ZZUBHX2T7vE1HqA +tHXj9mcdOSCkuDGnXQ49Jan8oCgH3NbYuTnvQbuWkJ3CckAmQlGkiRkdmcoV +rZUDyQVtt6/Ru4F0tpWznZ4NrqP/sWZpo53ELyi1ZMF+UwpZ1KALSAHwXr03 +A+LO9D8XvNMBpIN5y4csU6BhlbqO/Qp6Zar9x/4UmHmVZbJ8Dn1HU+vjr2RQ +32m7uV8WzSXqeSw0GcYXNo3sm3gDJBlZE87yJMjUt3LcudwOpD876DK8ibBV +SCRyE18bzls7VfhfLNwOnlCdXGrF7w+MVKH6WGj4WTbP+IDm1K2qjooFhzdn +9QNT0VRFQ/+DsdDh7S7MJI6m0J+pOsZA0Je+gkV5AkhHUwICSE/gT+4jxpeL +dDyexpdeSlFw/LDk+pYjaM6g5CKeKLzPDeR8QTS1/fCGqUhY//F3qeMX/J7T +dz9RISUSOLitU9c7oK0Vd0esjQQRD3VH8ahmIBn/CTqSEw4ndVZ33OpoBJK+ +x5Y34iEQ+DFB/1wpWmZv6uvPwcC4dfjxoTh0qVzi3+Rg0A64zfrnClopUsCX +Nxj0X3/4ETrTgL9HlvrCWIPAek9FcyEH2pGxrmElAMKWbO1+aNUBqUW4dUXK +DwYG7V67SqMrXuzpmPQFyTr79aub0dtT/mMp9IWGYMd49u5aIL17LfVc1heW +BV1rdxugJc7U1ir7wI3jXlv0rtGAlKvyyK3LE0p3ehsNqqOPdostmXnCWhaf +bAsJdMuOoFOzHqCIZz/UB/j7RZpPZ4sHPK3dWM/1hYrzVK8LmLiDN7Oghcvv +atz3/ViyoCsIvtn+y4+KPm28bWu5C5TFCoVE+KBJWRZXLrrApMTOl3ks6DSJ +FxZhzmCgKck0wP0a91k3ynM4wcGII5mUfZVAutmvwSNvD1/5db9sMHmFz79m +dw7FGi7t/hkouhst0pH9/pUVNEnHSStMlAJpqPGh5z4ryDsx4HbTDU0Jnd4q +dBPu3LbkbH7yEu/3g2uPuK7DEs1R2b/9Be4PGcqlmIM1sfVL4hO09/Cz8dar +MNBbEfjSGF2sdDDF8CpQx/90fx4vxnqbd4b3zMCP54G1CguadlDCMMYEBDv2 +HvjrlY+eToy01IOVr3fu7ePI/1cvbP78MgwtlTQaJT3H45l/y7dwCXJ2HTOu +qniG9SI+CpG6IOOiGeQyl4vX5yhNc1IHv/+E9+R4odOe/tHR0IGFtG7hvk1o +M5YI8vPzUMUwKpPb+xTrn/hkTGjDSSGbL3Pm2TjfIy7LSAMkDhVLi85loWtC +96ufAbbT827nvdC0+F0PD5+GDrv7nEWJmWih7QUS6mDYGKps05OO5pdgXFAF +pfcdgYnmaNJTyY+3VEB4hqeHMZuG88ChIZgCX/mSrSU3oUlXFLeUKsPgO8MD +bSFJaJ0To/ePQM7M3I6s/MR//QpXuA+DLXPQRve2BLy+m603vJKDtXLlYxKb +4zFfF7nIfxAIDe13qwfiMB/adHxQBqKvfmvqOx+L+buMu3oHQCycO8s/6gk6 +nRLVsxdmsp9FGb2MRgO5rlQCKqpVfA72PEbzJxs/FwON8bumQ7xR6OwtXR92 +AvcalrPlhyPRwlMFvKIwsC3lWJheBLrKdIIQgo/BcbKuBx+hd3tGP+YD24om +DjHHEPR5g6IqXlg7Mj/R/SoIneKbxcEN0dy76D6/Hv6zn2M4J4ir6OQcUAhA +51aS722EyjtefoP3/NHR7NoHWEEzqcAspNoXPdvPc3wdDNI/KCuseP97H2ai +c0jwaZr7cLuXJ5rCntK5TF2nYTsryeSONnvwcMMCVSK79dmDABe093T72AxV +iyR5bXiDIzqt1UP8O9XW6IGw8iNbNO2NYtwnquTt+peyotZoEWfTom6q/a77 +EmPiFv/y4U6JRqrzSytFFRP9f/N0bXe8oHJSyk6Z9aqhST27WYKocomJT1jI ++8hoSj9Jj9rLrLrB/p7OPwcnJKdT1RI6hJluX/nnBxS3amp/zAFBRtF1NC0u +v6CNGjHknMOVd/tfrq5m0k/dzfspbr+OPXroF6H/hUqq8v3Y2eb0r/7sd6sJ +6gdTsd3OGm7/ctUl2x/UMiaGlUDzffTRAaehX9QzPWV6n0S90XxGN5lWqOU5 +gfdkh3zQA7XfbdbCHjfDZL8UPzTn7x5ZZojS3EfrNX6A3rfN/TwbkIRWPosL +PkSLqPa3cMBAXbpEa2zwv+PbZGLBAxpPHDSFLoei1c13iG2Dihsn79jyhKGj +q8t5BUAjYN4guCUCrbGpWlkEfO6a3Hr5NBJ927p9URQq9JvuDwREoZ96azF2 +wR6puFTpk9HoUybBxeJgzLPmhd7uJ+huwzONkhD116rOmykG3eJlPyuFv4uP +feuqjSWTvI9SSSdlYMDx016X44nob05rr8lDZfaO2nCZJKzv2Fnz/TDE9Bnp +5e5MRldz5rgchXNH3/n1M6di/UnZNXAMhj1uTiffSCeTKInFo04qcD7mocKz +ITRtm//SLVWgFub4lxlkYP+vjtSbJyDh01eBN5qZmDt9e+50EnRVrp4iyWRj +/xOW1x/PQJ2Bd9TGPDTtBNhu0AQZ+9RBvp056JSvlYpasClz0EGW5ynOe6y7 +/oU2NK0zTDNfzCWTRHSOKf3UAYWWC0sNtHys/7By4o0e5A7ZqXUqFOD8t6Hi +8fqwdSkifLAELXJX+sJ1A/gh+WbPz6xCPJ+x7+5sRtDXuCfvsVox5vVPBe+Z +Qrh4Rm+DRAnOayuQ/m0OTS9lf2tcQ3snV2nds4AVcq1IZzrabCZ+428LsNEf +ujUo8BL3nda1W3MNTgcJrf25sZRMiog9TojegLUTCdLic6/w+BvbMotvgYV8 +sGqGZBmZNHte7iHZBhq83C7vMEd7D6b3vLGBAB59T+5udLE3X8H8bWA7ztu+ +WlpOJnUcCswVtwWuyPDb71wryaRRswe7s+xB9Ih/fhCpBvdZTjLtdgVfHwfa +OgV0sVD5go8rfCbMe7zs0O9yLiYMuUKWmcofp89omZsvfqe6gUTwiqZ5AxX7 +K2u3i7tD3J1qpx1qNDw/YVrjZU9Iqz3M+5OljkyKcwgLSfaFxs308EgxtKvZ +dc8BXxg3MWLbfxKtpJ/wTtAP5Je9Vi180awdvXWJfsA4SB/r/IM21uuwSfOH +/zKNqAVz9WRSaKQwa00AqAd437j2oRHnx7gOqYbArR6uz6RlNKuUSXJYCETs +zDZO4mvC8203g/ch8IFK1+m+hO5pczroGAq2v7iUVDrQoa8yu54/goSb2Zw7 +GpvJJO2bQfNbI2BKg1HZU0gnk/ioK7eoUWD/2lByuBVtY2lVORYFP6Um4qbG +0Y5plMO8+Dm/aaMrsziDTLJ/x0K1eQxcb84ePpqKDlyoWicUDUcvdpYkhhN4 +v0rDLYOegL/Ru+fmtm1k0nXLQn6/OOA4/J/2YlwHmbQ9ic9/NQU+mFys+52D +Dk0Njz+YCrkPXsqvlqLT8m16r6WCSq/DduZOtOE1cVprKjg6zo9xb+gkk0zX +iMpop8GHkgX/A27/fOD3FdF0yD2wWHXdoItMmmYsdeD35xOSf8V6+XvIpJD/ +fjs45cDmY8ZctiNvyaTPH/veHisC1wPlXwzsP5BJn+QsJA+XQufdPl3zyY9k +krljddK2SjC7kW3DYzBMJpXSIjULqSAeOCiaKviFTDFxzt+9tg4UjtKGWNd9 +I3sr0HhkPjRAQn8al0DrCNlbu8D09+VmqPj6NHpr9wiZ9GCj316zZuidKdzK +/X6ETGv5Yqlr1QyczDUCG0exXverTJx7Mzw42L9zhek7mdS2N+ZjajPYhmw5 +9PkY2tih1uh7M6gr+1589vw7mXJry6MauxawPB3Um1OCvnl1WOpeC/hcjNDL +rPxO9uYpu/DYtwWqrVKMkpq/k2kcTy+efdwCsjFVFmFfMC8YU7IpbYHtMz8c +7AVHyZSo1IHTCy3wX5pFtGLIKD5P+vZcdnTQvhwZ1R41SqbVqeVIuNEhlx0i +zBOwfmifq5wPHUydBR4F52HufSR1XyQdWjQ7H7xvxnzZ+HFSMR2Sfh53ubdu +jExjvXjtxhQdfj63ceLYOEb2/i6wrm2eDjpXExwyuDHvO9cr9ocOzK0Ldxk7 +MZftLSxjY4Btev5NARXMT/BHq4kz4KSWgGGVxxiZom+vwWTKgLQ1p/W1H4yR +SQGPHdIsGbBc5nT5cyjmEZzHZG4xoFi08wJbEs7znlEQx9+7Ar8eahpWYX79 +1srdSAZMpy8oLf/E/BnbUd1aBpzW23UsbAUd9us8RzMDMjfqKOxkHieTJOvV +KlsZoO+SL6/BO072du9RG37LgDotC+mEQ+NkypizjvMUA2J/dQgr2mI9d+aB +eF4CyrIYr7VcMGeu1lyLv9/7dBr0rnhi/3kfT2MhArbml4f7h2JeQ6r6IkZA +jFnKansu2lHAXfEI9m+KSxwuwnlvFSmSx7C/KvLIfBn2j8QrspIJ4OV9cJe/ +cZxMEzMzjFEnIJp+65PFMObSfayzugSUOl9zdx5Fn5JVMtEnoGfXlW1BMzhv +IuFVpREB3J4XzhX+xX1ST1fI5gREHVSARf4JMu14hKvnHQJKPh00YhedIFOy +J2zM7QjoCt33a4fEBNnbb0eenCMBW74LHzhxGOtf7XbKdCMgIpE59dEFrGcd +eZHjR0DxadKxNAP03JDS0gMCOhaW+krM0DZMaxQCCdh8forj3Z0JMqlwX65X +KAHSf0eejTvh/MCDagFhBGg/G1L/ex/n6xiHuEUQELaux3NnCOYbPwbtiSag +8EWbgHwUWq/v1+ATAtpNm8tOxaPNZD19YwngqKyatnmK/SoTyuEJOP96abBX +Ie43vi31KxHncxeKRb3C/SUx8RrJBDy6nW5aXo++FG38MpWAfIHEZToD5xlP +m7ekEdDaHB0z0In944taLekETDqGHZx5h/VsyT9KMgjYuDOwfc0QOtta6t// +J+5742PN8x1tENt+KosArfvuzOLT6HN/S+bQNpJOGQoLaFaBogfZBIT23Tmu +9Qf37dsUz5SD+/1uvjdlmiSTNGPVb6FbZcyd7dgmyZREvkfV6MlBIy7/LZhX +hqv8QrOHXCqM4ZvE6xV3VPApAXuPntPIE54ke/dbqUugNb6dHnkthj7Qd1wI +bR2l6tu+H005vfAH+4PJSkLDcjg/tU6pAf09xvhwiBLO2/ZB0AatNn1fW14N +97U8YF7E400/mXz9kybWr31bewO9klTjGXQR699ocL3G8zOaH4w5ZITzc+te +z+H1qNBcKRw0x3yHnw87mjdTqPmhNc5zlRVjxetnv3z8k6w9zjvdees7Xu83 +Old+fXDD/Ectdx7ej315XpsDfLBfqPqjVgoBQaQ0cZkgtMSb0K4kAkb0aOT3 +EbjPw3RQAe/viaIhPf849IhQuG88AWnMa2yl03B+F7dZPj4fhq9U0nyL0MKi +uhmPCSjfaF6xrxznzRbN3I4kgMfSt6OPivuVDRP5w/H54qonSbVjfrKenTOY +ACnrL3y9vTifeVHV8CEBgbVMsl6DOO/9/rt+/gSo2qpd7Z7EnKfL186TgNRm +SzePeexf1O6Tdyfgj9CDSPE/OP/b559vXfB9b2usdWefItOSd9wptSVAUurU +zt170SL/PWs0IyDA94Ziu+wU2bte8MtdYwI+9z+84KowRSat9bqzoEdAUmCL +b+tpdMxmmUhtAjhHznxxvIH9xK6/axQJuK1s/VvoLvpYjqOHHAGM6GBuujPW +n08I6JQmwP8EcWJHANqphnXtLgIW07SyGrOmyBQ18333NhBwadGm+m4++lnO +nuK1+Plw7lEPfykeT85o+evfDLBZaVt3px5ztgyOC/h5OGR07trWz7hv7AOb +bTsDlF/e9aCN4Xz5NUanmhiQwBbxxHoO+y9LTs/WMEC3sqORSpomU6JvbK3M +Z0DL1gtiN4SnyaRnTRmcgQyo+fnCfUpsmuy9wChJ8GRASd+WTgdpdLA234Ij +A5JiOt29lbHfqmwN/1UG3N2q0xlvNE2m/dlVvfkIAyx/FouJWOC8ufY5jn34 +ed7HeT/HGk1+FPRehAGqMR1iL93Q479oPRsYsHXr+futsdhvp7hevZ8O7D+L +Oi+k4j6HHxzxrXQg9W0W78/BfT/q1pcCHcaevOn89gr7DXV0ydl0qOY9J77a +jc7jEki4TQcLXu0uWc4ZMs1mxaL1RwvoLxSIV2ybIXvz52ed/9wCWr2bPI4L +o5u3/BfZ2QKHn7SJa0qjH5pFnC5qATbesx6WWtgfptR/50YLrM7nd41fRLc4 +5TfotsB8z0YJOyOsv9TW06HSAoPRrV0e1jNk0t8NLqyCLVDMoyURG4iOcDj4 +nt4M2fPPPXZEYP++jSvNpc2Q0MPenRk7Q6Z0zlEs8fuHfzThUZyDTrboy3Ro +Bj0ezW56A/afyA0S5muG1Q17yJ6kWbL3Npbm+XNNMLBQVUFaN0umUTY0sB5p +gqrh8wf9WDA/fGVtw44mcKy8vyeQA3OfcQmp8UYYvdnDHrV9lkwJfJYS49kI +Hc1+77KPzpJJGvRtcdENUPCS/4KEEubkmkhHpwYITi0inpFxntRy/KdLDaDm +8oFapI71hESEAW8DVIgdyq7UxXp1ef3MsHpIe/DZrs0WzZPpHHCzDjzsXCfO +OaJL/kqTVerA0ITjWpcL+nEy6xX+OuCRV9R/64lO+rqmubkWAr9GHh8ORXPz +LfRsr4VrHeIVFhG4f3rgiuUsDVSra2RHHuP+nXVcyvU0+PN4bPdEAuYpQWcr +rtPA7oQK+0IumuP567jTANoH3vq75KNfrcwqfqHCPsHbK0tFaB2O34L3qTDy +I25upQznqci6XM+tAcOM2besjZjvT/cJHHsNR8ICdEJa0JeFEyIcXwPPve3E +plas//VnvdHfKmjXOU3l6kZLtZNHWKpAdU1a1vZhrJ+6tHB5pRyOq54ZGP+K +uaVNropVOSj4/eCuHMVc2OlGYkcZyKw/6XdpFnOLnkOTj1/BPvXpql3z6Mg7 +m31nSkHiYeyPuV9YL5j2ul69FIQ3jF8NW0XncSdf+l4CAhqP442Z5vDfo57t +O2RKYGuIUudeljmyt3NMhYfDC+DYFE5p5sDc09hfr7MI/nDKCZOE0Je+Xri/ +Ng8WdQYvt4uihSye8Ik/hf+iAsKS9qBvTIZUKGTDOE//36P70V82eR7Zkw4j +l3zlWWTRPLUXRZaT4XOM1O1eObSa2Dk/v3jo5/McsFNC+5pfN1KLgB4DcR4K +BR2d0fj23EPoSOjQ5FBDi1CmDHd7gGDEV5a9p9Bp9FoWYVv4H1lvI4c= + "]], + LineBox[CompressedData[" +1:eJwV0nk0lAsYx/FBXYXSokhJC5IkVLaWx21RtiZFZU2D0WKZyhJZhsiSaKyp +LMkdlDAYMy/yMupWt0JRxhqSpbRYQ4v7+MNxPuf7e+aM97WW5nnERZRCoaTi +z+xvVtfnAP9Dw0C5EXJycMAFHtu/HLlERVenFTrXuAGZ7q124Cj6dLfkY8nL +ULbmWeoHG/S8t33TFlFQfOr8a44D+lf37YHWWHiYJT+fSUMLY7I1ZOMhW8n9 +0qqzaOeChPT1KZCguuS4lR/a35MxrpIJsWcqYtcHouWurunVuQvR953/HWai +/YrNtCELQtV522Mj0WoVRScNsoGhaSfzNAWduPud5YcccDs/1yzpNlr/4Uxv +VS64FhdcccpAb38ZI5KUBw7bREZn2GgrBi1F6wGY67Ff65WhhzPjkzQL4KAf +db54Odp1f5/oxwLYVz5p+PYRWsamWSWpEHbuNC06/2QYmEltx5heRaBm+D32 +fhPaqc1JWMSBeYHBy/SEuL87J5w+wYE+YuGdJ23YXawtXA2K4d7WzXldPeg4 +iuj7R8WwasPZ2uXD6BrrJ6dLSmDaaco4ewz9uJJz+EsJCDMjG7Qm8fMkXQ27 +lEshST6nw2wGPT8PpBJKYeHC3h+hC0aAwnyrvcGBC0MmF4MWLUbXJ63uuM6F +/yJE56bLjADzQKo0rZILESJrlxArsfdHPx1cVgaUcXv1bxvRYz+mHSrKoFPr +S3HAZtzbr/T/1V0GlR4B+hJaaFVPrwhxHvgN3DJS1kMf+S5zkcqDkbZmR1sj +tKaQM/mGBw1yrv0Dxvh55VN0m2EeFFhNuPuYoz9JddQs5MO5epnLLEvcT5ST ++UZ8MJHKFlE8gb1Vz277KT6oGm+NzLdFh+TI1/nzoVdgkfSUhntfO47+Az4I +ZrpWWtGxR9JhsYAPmTsZWT1nsKd+shUV8sG+LLbwNwN7nISsgQgBO0cVdK55 +oZ97iYTLECCv+bBS7hLuX7xYMqJCwLu8F8+3BmNfN00aGBNQ2mdzuCYUzVpu +Km9NQPz6T+8OXZ19fvbt608TwHD0s2+PQj91sbD2IYCaNq/3zHX0weHAyisE +aLSmnP1xA++nddWpNwiQkt0wHJaIXr5VYekdAp7d2P8n4zbu62+mb+cQwH7V +FLY5Azt9c3hKOQFhEs6SFVnY/5jYatUSQDswyjrInv17snlzXhDwd1io3Ls8 +tLzWxqVvCFhTszjD6SFa4KTrICTgz+9M5eEivK87RevvIKDdQDM/qBT7HZ31 +RT0ElPuS2lJ89IO5Q0QfAb2XvjZHVOC+qcbxxyABC/0VAsVI9Gnb6eAhAvQu +m60LFuD+lKGY1VcCnAIuP51+gl1Judr3GwGxgffdfJ5jt1VjDKL5QS2LR16i +3UTMH6B7gufx3BvQb6WvVeG9VIiu3WDj7PNiWSt9IUAnlC7i0jz7/vg9HZ8I +cLySxO5qxX1RvelQPwHRYY9N7Tpn/9+OcQ/34vsJH/3e3I3+pbhDqouAzqvr +ko9+RAsYY4ptBMyLtNhRP4D3+1aMxbwlQDuK2WUyhJ3HOmhZT4B9dGH4v9/Q +ijK/fJ4REHmtU23PKO4LuTIT1QQUxyxoeDSB3SM48Q0fn9/1nd760+if4X4L +igj4K+6cPPc37mspVTlsAjRv3CI1RUaBedTxRBa+XxvWc+f8OaNA0XLe8YdF +QEHChsJ7ktiNTyZ2+BMgTDxmqSiNbpfvpHkQIJocPnVrCTpKTc78FAHHb37Y +G78C79XH3h/dTwAlLUPI3IAOqcnY8xcBaul1gb/UcP9Qz0V8nA+WGb/XXdLA +LrGkQfcDH/Lu2rp7bsfu95Pf+YgPR9iyog570fY6ujZufAjIMcppMUKnKd9m +HeMDO9fbzMoE7xPi2QaGfJi+35hsZoF2awrvXcyHe4Vxm3acxL0O6979Ah7U +FVU1lNHQmkOs0EQeTHK+eGvTcR99hfXajwdmpabVG93RW/oPN+/hwRhf3Eru +Mrrjm35CXRkYCYKDxpPxXt1r0OIVF+LkBN2Vt9BKt5u/53BB6DFnf1g67mWM +86ZCuHBmZZTkUjb2iMu5ptu4EOMVf1OTiz1fP0AsvhTeqPxTfK4Rza0yp2qX +wMrA/mVbm3HP8VRtESsB58aNftOt2DMWvXrXVAzjwQUQ1YOdxiza4l0Mci28 +l+xh9J0bW1wLOeBw7b++bukxoDyO4NAkiiCnW8okbyl6vrHJG3YhfNelPmTI +ojlZls26hRDS23hxZjVaaH3z1bECyN7VQVHQQF8QqwyLzIdP377JnzBD04L6 +eitywddyGbUuEm10r1T/dCZksXeJWMWgfeSbO55lQN2kS0lbHLpBUeM+mQ5K +aWWyg8nooDNr3HPvwJuPx7vE/kEr0agV9Jug4XvrvH4NOlHS951GHPSmKiZm +T6E1taoWBJ0hFw0dMNr0e/b7vdq6L/s8uWM3Y5JDGQeKo0ffpTgfMr6n2o4U +RzcoKXTsYJKwiabcugxtp+6ediCavFWZXSatjW4yyKrzTiEPv9/Y4n8WrbLn +QUIym1TwWRtx1gOtINe662QO+UlqxXabC2ibbTNPVHPJcIN5LH1/9OcubY+q +PLI8qe/gZBQ6c+/dRWP5pJLZPb533jgwVxwXrHjMISf5q24yBrDb1oy65PLJ +J1QZI8ch7FdsF6nKE2R8n+QY9TuacUDqSAxBbpb5Sd0yiVbxaG4/X07SPFvE +v4pPAGWoas+zvyvJl8rJvuc2TABzv0PZizGSTK28rmy7aQIMp6St/XWqSfrR +8EaTLdgV0vbWXKgmRUK8tqjpotV2i/V9riZ12o/0DxhNQPUyidLIrhpS7KJJ +ktAE7xcQChqrBWTD/D17nx1CK/AM59oJyHO6Whk5x/BeLsL2oFBA6tWpmqfY +YA9do1q6vJb8y2XNz6sO2Okpxy2sasnGn7J5PjTsp7OaFBNrycx46eN0OrpW +LlqxsZb8H4bHvAw= + "]]}, + Annotation[#, "Charting`Private`Tag$738014#1"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.5, 0.5}, {0.5, 0.5}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.4, 1.4}, {-0.21603873670728646`, 0.10131711070161664`}}, + + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {159.9449084269849, -97.50736892665735}, + ImageScaled[{0.5, 0.5}], {299.8967033005967, 185.72832176506162}], + InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81W8bx0UaFJIkoaGsQlOZVylpS1nR+IVSUhkNMpJNhQoNJEKShOzi +ss7iHHvveY51jmMmief7/OX1fn3d97nG5xr3Fst756/z8vDw+PHx8Pz/rzFt +qWWy/iQOCWvq9duMwHjSrHGC9iTaetT86X44DLWWURnyGpPoZrbPekB+GDKk +Dgknq03i2E15TdeWIXAM9aemqk6ixpltm8x0hmDqkbhm7pZJfHtA2LVYaBBm +j+3bXME/iZGGlwuTaQPAM3BvmMuYQKOfysmFcT1QcoInUL58AmtMfAYPX+0B +n9RQ+SvkCQxtjpk3kuqBFc7p1hWFE2hze/Nu+bfdICw42ZnwfQLdLY3fUnZ2 +gczuh3XmLydwQZb6bcnFNugOX+b48sUEkoKn9A/0tULcXIQINXACD/YX5Dvc +bQW5spwz+70m0O91RSbHvwWUTf9QhJ0mMPhKsUI7uQm03N1+lRlNYGyjn942 +p3pY6Fll8ffcBPo0WhgMraqHomPRf3afmUDrw1IK7z/XwVGRQrUYvQmMLHY9 +lNdVC6c+Laa5qE3gaNk93VLzGjCneSWoSEygdIOIs+s0HZzXBQa/bRtHuXs+ +Z/PSSsDUY2+ncPM4shwvFH+RLQE1Voeyf/04Xrq2K4X5phimc/cwHjDG0Vd/ +h722TxE4XmoXvIDjSPH/WaDf/AvsPqkGrv40jsEZoqUCnEw4taq12SdmHI8X +b8/1//sDlB74KMxHjmP54RMsC8EfMHSshTIcNo5Wuwe2z+1OhxvDXsuofuP4 +dHfF30P7v8J/uxu9vWzHsWMPs6DJLBLgvWfdnxvjqEFyvWoi/RZk+HbIOliN +45HTR0W0h8Ogo/5JydVL45huxhchrPECzJ0Vl2ifHcfrLWfC6+WtwAjdPH7v +HkfXrB/xe4PDcK+CfOVdlXFcn0trnj7xBkVf1kgzlcbxxyPtpL0L77DGUq6g +XnYctbT4C83OxeDZZdV/09eNo+5t+bZrlfF44oysi90fLj4zPZPXZZ+KAtfy +Bd5Oc/HCa68umdTvWH7fMKp0nIvr+M2Mcp3S8HTUE5Qc5mLKsKyy2ud0PDvS +xk9r5WLkaMt3w98/0Cgw7NX2X1yUuRy62wlyUSx6xzbDXC5+MrMR9izKxYa0 +kiy3TC5+4Scdq4c8NGnmNtelcJE24BV8TT0fL8qf2eQVzcWh5K3/Hkj8wisk +/pRODy7ue1GT/yUQcVNLlLaAKxcLGgd/dXARu0f3Vu1/xMVc/mbeEzuK8JqY +5cTze1x8LHDKvSy4CK2tCg9q/sfFhO+T8svPFOO2R8blNy5xMbCv4kjN42Ic +CBq1eGXGxUcHpOoHPxfjjQzJJ0PnuHj3VhZjGU8J3lryiPTmMBe/RfLy7Ugq +QaV1Qqal2lx0OWea/qK6BIcVEgY56lwM6q8JPjlbgnbn6gSP7eHi7fOMFS16 +pXg3RvX81FYuHuxpqHdqKcX72oOd55Zy0XT9inPcvjIcet5lGMzDReuVpkwp +XhL+zP0W+ObPGJqYXg0q2kTC4Jkg4xfDY7jv5NrzjhdJuM9Rj+1MH8NUCzIj +nkxCmTX76ibLxpASl8lI7Sbh8rSteXcLxjBHMd9IY46ErexFH+vUMXx1z0a4 +bQcZPW/lS50LHcP4I053bwSS0XbFF96KgDFU3Dc9EhNDxguf3wzqPR1D3fU7 +2dZZZJQbuJ+p6TiG6vZlRhFdZKT/p3pa3mgMX4R/1ctVoWD2ovSeuNNjuEhT +cb13mIIxH1ZJSOuNofyd2pyfFyjo2D7UJ6o2hgnes/3rH1FwvVm868L6Mbx8 +e+rfQi4FeX6/uuYiMoZ9i+9velApOBz+VH9qxRjeOSw5GNlEwV91V9YO/+Fg +vtyZoKwpCloabPja0MbB3sTx3KdKVDzNWf7yXD0HlSuM94kcoOL+FzMPK+gc +JKct/0/vCBVXVNTpFhdwUDWia+qzORVTjwW3psRw0FOrd8TWl4pvB9yK5N9y +8NsSK8apECo+9bmdGBfKwR8FZc/a3lLRqOS449unHFyTqRsu+JWKOtcOmK19 +zMGtXK2mbz+oKM8jpxPsSHy/29TH+4uKc9p8Aj5WHHR2v3WQVkHF/vbxsQUL +Dt4oW2KrVUdFhmt3g4sRB71nPdRvtFLxY15B7D09Dr7wdHDqYVExyCzFf1ib +g+FHPfL3cajo9Pv9netqHFQSjjPTnaLisf3O6hbyHDwXmHI4dJGKtu3vn5pu +5uADuSezLktpGOxdQLuwgYO1lRE7lVbSsKmG1/y0IAcLfBvHutfQcN55e9zx +pRx8m5bAHlxHw82bjw8f/cfGLZcEjuVvoOHNuy8ea4+xUaGzr/HnZho+X5dW +oj7Ixl07Xt1ny9Iw7VetgFoPG+VlTh0YkaNhvdX0+T2tbPy5pqQyS5GGfwQk +IlXq2Kh3wGvozE4aymRo9CnR2UQ+xvZlqtBQ9+LlHfIkNtokH788tIuGN3g8 +nWQL2WjolLias4eGQZ/jfm7KYWN9+MJYyT4app4l8UmlsdF8TPbbTTUa1k6z +Tkl8YaMWhTLadYCGM1ECYWJxbHw08NhYUZ2GG48qt4tEsjEsKfW5ngYND40Y +bFsdxsYZyWy1/Zo0tH7laLfyBRuzl1NmZgkOUA/P5PdjI1Xo792XWjRM6c6Z +X/KEjQm55w4tElzt33p04REbLQJTBI5o03BK5d/zOXs2Dou22l0mWKJxU8PM +LTbqLn+x1IBgbXdd6UlLNoaesLwrQbDltuvXxyzYOLLQrZdP3OdX4f9txIj4 +/sF1+36Ckx2Tp1ln2Gi95GViIGFP5QaGdv8xNvI53LmWS9g/UTTm2w1slM0+ +xS4m/BO/KVrZfpCNT+RMuhMP0lBDeL94y242Smd8rrIh4nE12/RKgxIbB8dO +G/AT8fK5/DixRpaNAkp6E0+IeCYtjeYwpNh46Jb3yWYi3tzzvR5kITYuitlc +3qZKQ7G5pZSS5Wz8nFKotkGZhgdj5YWRh40tGSW8HCUaPh2zi8mZGMVhh654 +dSL/iREhrB8jo3i41uFlOqGPcu0M1bT+UQxeSIgW3EJD0ee/MalxFKm3Ue3m +Rhqq7ZVckVA1ih15y2pvS9DQvFXrXCx1FC/PZn25QOjxk4JX97v8USz+vm5z +rRAN95FWLXn2YRRdwlbdfctDQzM71RP+b0ZxRoB0kD5PRbe15196hxLn/QZP +DM5Ssezamy1uXqN4w+H37jYuFY0XtujeuTGKN6dMfPO6qKj1V1qo9sooPvTa +Jd9G1N+22Q2taqajuNfO4cZAAxUnxtc48hwfxRhfrzXZRP0GDyyJe604igZn +f242y6Yimd6zJH90BJmpxQc2BlDxQGRs8TKnEbx4/miY9hYqyryNfnH79gj2 +7QV9N0kqLgt/d7HaagQNpD73/VhLxfrgl+PvjEaw22DutfAyKtp7Pd2irDaC +YpPhP3yGKZh069rTC3+GUb+l7npxBgU3HNxy+OOTYeTPaFpQOEJBDW3De37O +wxj/SlH/lxYFL+k+jbZzGMa3FaLfL6hR8OPpnj8HrYbxrkB+W4giBRWuxWbU +HBvGA125jkdFKKgWtGUbn9Aw2ovxRNZ2ktEsxPD80LJh3Fo2t6OsmYyPw556 +Vi0O4a9+C++CWjIWfuhpjxwfwlJPcVMqmYx6P2LD9zUMYXQ8Q/HodzIatW9Z +fiNqCPdlzYktPiXjwx7D/afDie+Dtvo+bmR8y3xqtSd4CAubNmuJPSJjG7cH +F54MoWLyoXXGdmS05I9zfmM1hOv8bvFeNSWjg8rWYarSEK78K5+RpUrGV3vP +S3yXHUISuS3sjxIZMw96HQuXGsJDl2TfnpQj46xub9w1oSE0W/HDW0yamG+m +cRZz44N4Yc+tG6cEyRjsuZWxI28Qf4+bn7g6TEKJf6KF+zMGsXRQtCCCScI4 +F77v8HUQr3q8CmzvJWG2Y3/ohehBVGpTDHjdRsJO60Qj16eDyDwj5JnOIOHN +ngg938eD+Gwkc8uVchJOXPZXC3EaRN9iB/IGCgmXmd6U+HR9EO+Tn18vLCKh +8gml9vITg7h6IeJ3YSZxP0mSUa87iPyrH2QMpJPwkK5gYafmIH5Lcv+38TsJ +jTRHYyaUB7F3bJ9XzhcSuimnWkmKDuKnELmerzHE/ckfjLYJDqJqmvHPc9Ek +DJUL0VNZOoipe9oi+CNJGL/JXl53hoUuGh5eMREkpK/ZM3KrlYWXhvfeCg8m +oUnw1nanOhaeObk2+OdzEnYLrGW401lo398oMBFEwim+qdSXhSw8sC9dNdSf +hB6e/TGROSyMp8UM/vYl4Yp/9aEJaSysiZDdaO9DQqmZLMe8OBbu2mAi8Oop +CRMdE61KI1kYq0+q1/Qk4a6xCCNGGAvzWk/tm/EgYf5tf72mFywMSm5SKXYn +4dHBR2o9fix882OGFuVGwkrrm/IjT1h4LaNJINCVhGY9ZhLTzizMKTw54/uY +hHat6nMrbrPQnWLYme5MwhkTpRFRaxZ6KGX0dj8ioWedZLvUZRY6RerEbiZY +4JwgQ86EhVv4fks5PCRhGP1vwS4DFoaDp1ntA2J/OjGaqnGched+bTM5SnAS +qT3m6GEWdq9sWE+5T8I9uozQsxos1HqgEGNO8K/Cgqdme1n4+sNl9oITCY9p +pjpa7mRhsrAFXybB1TkfrOy2s7Cu5nuPC8Hm+0KMHsqw0JcvLOAcwf1pT/Q8 +17PwxJ2h3wcIvqtsrxYkwsL34lqquwie/fKffNhKFnJaSpTVCfaSM5T4wMvC +qNmrE+cJFvx0eGXSXyaqp8a6uhNs9kDQQ3KKiWZ8s28KCY7Xb5h4PspEqeC/ +dmsJe8c3xNgs9jMxaV3gb1eCdUZvtjt0MFFea9W+WYKfFe4x7G9gIv9FT5kA +wv/m0HmSSSUTHc47ZOwg4rXdiqxBIzNx78P54V6CHfeHftdEJpINa0q+EfHF +5ebbUnOYSAncs+85kY9VrbLvNqcxMTVt5qCHC2FfCnv16yQmdkkFlnsT+Uvw +yPHij2XiWMFwTxSR34lzT38/esdEq/GMRzQi/zqyp+yGXzIxyETEZyWhl2ZK +p3GVFxPv3NPpKiX0tP19UvlhVyb+E7sppeNF2GPnCJlOTFxwbE2p8Cbis2aZ +4jtrJl5xnIjZTOjXrK8qWvAyYU9bBZsVQMQn652ohzET+5RMr5cQetcxV563 +PMZE966sT2lEfTzb+du+QYeJbr/Sz5eFEr+/UDSgf4CJccsy/g6/IqHDJ6Oq +nQpMlKMvLHd4Q9w36ho3s5KJXie0n12JJeJdqLf+Fi8Tl+ffCl4RT9z/Uvh5 +29wA1olTJEmJJGza/+lB0cgAinvxhT5IIfT5pPx4EGMAty6V3ZyRS0JTw7CC +edIAutT1xXF+EvfLXtlzr3AAs1p4FbSRhNrU8Y1G3wcwVR/HhIn9337NhjHp +lwPI98T4v6B6Ehb09VqFBg7gR427fUbNxP3ZKc28XgOY4v2WsaudhJ/MD5Ww +HAfQqCjPW6qfhI2fbMLTjQbw8ZuVm4qnSKillq2pJzGA6eo5Vjs2kLFMJFNU +fc0Amvh/fZdK9NdTI+lDOwUGUEdEPA+2ktH847c3YvP96LnO1fIZ8b5wFkiY +7OvqJ+ahjgRZh4xZna+/en3uR343ula2DRlV/B02Fqn141iQSG9PCRmzr92b ++KHaj0qbHp7/TSWjttYd2meFfsQu8/L1VWQ8PX7zUYhkPwZJq9u6tBHvFYv/ +6q4s9KFS88aIX1NkTFQ1ePaP1IfRx7mvdxDzblPzzr8axn04UryknP2WQrxv +lpq8OdOHvz6uTad/pBDzoy1tUq8PUzX++WYmUfD4u8AbKWp9uF358fUPxHvE +0ZxZIy3Rh6zmkaHGZgqWtcck8bT14oqVBxTziXlu2yNqQv6vF4t8p1u0P1Ex +e3g2zdCuB8t/FgZ+LiT251ehlTXWPbj2hvl/NynEPqqhMGp4uQdva1raKFTT +0DPQVP782R4UW+FyL6GHhicVsqPP7+rBh1X1eiFLy7HzulPQhaluXJ+6THDJ +yXJc1sO2MnbrRjfYc82kthxzA3yfNtzvRhFJP4fM1nK8vUs6xvhON37eZcK/ +uq8cq5+cbjW+0o2ua8O2fZssx/cyX8+ZHOpGycNdhxLEKlDl0k1t06XduGzF +7k3GxhWYnEpSzpDowpbjC3651RXoI3RZOUugC83sZeJimyrw6t2pnbnznXj/ +4voNXp0VKKYiu7OwuxPVr2t+VRitQI9vnkrlSZ24rarbbOVyOp5P0ZTvPdiJ +4f/42nk06bhzVZ3cgFInMpatrDp/mI7L7WzlBqU60d1a8tZ7fTr+2vFuO4en +E/3Ws+QFjOgo93VGdo7agY3uNiM37eg49yV9s+jFDmzXHkheFUnH+pUnNq87 +1YF8vgVFKR/p+P1W9yYJ7Q4M2fu841AiHa0VhTfJbOnA+qPSlKPpdKxMspNW +GmrHXWe/ReWS6Rj3WV5S16Uda2SjsjTG6Oi2HDfo3W7H0i3Ob4Wn6GhqY7Lh ++OV27Cvw/tM4S8dV8r4SZw+34zC/ZZMWLwMfJvaKm69sx9bn9+wtxRh4KiF6 +reO7NvyX2NnFo8bAlDSW5LEgguV3e+lrMHDVr91bJV3b8FsfBrvpMJBeS9pV +cqkN6ZuPPkw/xsDTPJwzopvbcO6q1oMjJsR5wYPGTJE2VNXPvzJ3kTi/3utS +/pI2JDlVNHy4zECGsvhty75WvPRSZ0maNQPPWugEZCS2oobqyRtcBwam3ggI +8XvTim0/VetFHjBQyLE2wjygFaX4RuelnRlYGXAjgde2FfXDgyUW3BmoEpaW +0mjeiqGY2lztycDgmLkfyada0e37Bk6INwMNsoNLziu3YnKjYFZtAAPTiptp +cjKtKPhww36TZwwUYWytmRNqxSNTHp9JLxhY3ZfdFcdtQYOBnbw3XzHw3Jqu ++YkfLVi8wYKb8544L6W4lBLfgtmbjlu9jSLOKzgJRoa34IJ9hID1B+K8znLJ +I49aMEnp2ftfsQzcddJwy/qbLegok2t84hMDQ40jFUbMWjD+x4XhongGGtqp +Hnit0YLwqfSY/WcGZjxy0bHZ0YKP17n1fk5ioKh3qZ6mVAuWh91epH1hoGPw +6jPCq1uQaj7h35jMwNp3pkZ9/5pxmhV1g/GVgXsSYi1yOM14afM2v9QUBr5K +G7F81tWMVJs7NS7fGDjxc7/t1epmjC8I2quaysDzlCcOe4ub8VZz/ptKgjNq +ac7LM5ox49CtIdPvxO93rvVsi2vG7tsqYhUEOw5d9v/+uhkfNlbxKaQxsG7q +c7C3TzOypA/F3yV4H89EuOmDZlSUjOn5QHCYoFb0jhvNWDmjnpRL8JS4X/yi +STNWnXrW/5Ngo63VX+v0m7F2v6Z3EsGZypI/Ph9sRu27mxw8CBZTt853VWzG +HEvNSG2C7x9NLTaQbEan00WcAcKeeoNZqqxgM/47tvriI4L3WehW//7bhCk3 +vlPGCX/CbjxvqhhtwoLKawrGBE85NHbGdDQhL2X1rVgiHsbum5lOlU2oVVP+ +qJGIl9K72vSTRU3IFngutJRgniwf9y0ZTZgx7X1emohvY7XaidlPTegmFrp/ +KxH/lNFBsarwJqRopn8RJfLjtSKyO8G/CW/GCMZyiHyabjuT4ubShHu7mauz +ExnIeyn9iNLlJuRjj61ZTuS/+ZGV8BKDJjzy6kpwaByh/9fr2poONeHL7qqT +/IR+Lla4OPpuI+zVKzNIiyb0ztqhc0m8CbOiEjyYkQxcyte5cu+KJtx58Fj+ +8v/rU0M3tnukEQ/0C8oJRjDQz2TKLqejEc+uT9Vmv2bgJcfEg8FVjVgyuHJ3 +/ksGLk8WqNb80YiUzPuuYoT+20m/IkUTGvHHqi0/Y4MIPfTctRmKaETrmuLP +G4j6ubKhbiHicSPaSH8xp3kR8d7vW37HrhGfOqcKLCHqT8DwQMTRK43Y9me7 +pixRn1kBkcoThxvxlY3zhNwjoh/MWl06s7IR5Sz/hivZMrB3rbjCtr8NKHmu +XzbrBgNzVamTc6MNaHNiVbeiFQOtbHY+S6puQKmTWb9qLBiY3ziVx/e2AS15 +03klTxP1NJHo2xpInOdvnp/SZ+B1oYuG6a4N+OamSnveEaI+jxUMXrnagG/j +3yss0WSgTZbv+ny5Bqxyaljrq8Ag8n6gL1SiAds5rYapsoTe2UOpNgIN+GBB +ZX+xDAMLt509to5Tj30awZWfiH4pFib+wD6rHt9sKve3WKRjiePnWrmj9bhb +xNw2pJqOMhqrEiv31eOvnD/yNBodXZY4uDzcXo/bl1nuGiyh465Qjc3kZfW4 +Ql9nRWMmHaO/Me5cp9URfX2biv0bOjoPTq6IP1uH8kKfaO9M6Vj33az9FNTh +5EmexO0GdFR5VPB9UrUOF2/99Yg4RscBfn+TI2vq0OXPHkn5/cT8kpWM762r +Rfe6V0l8a+iofOUQbLlYi1e07CyTSiswYHuCKO1ELZpJvvrtlVeB/aMrmfYa +tej0quOO7vcKfO9a97xoYy1qPxv+d+99Ba54d6P1amcN5l34ne17rwJ7654/ ++GBVg6Ex0YFRxDx+e6Ll68a71eg1erkskJj3ZYuFSwWvVuNp1Tn7I9rlOJYV +f3nOoBq5512M+lTL8dhWe+GW3dX4J+5eU4NYOQ5Pr2buHKlCEXGVx34dNPxk +duv+1rlKlO47tVPKlobiMptfrpZg4IK/tsh5eyreCRrRHf1DxEFvbnvPVSqW +zWRPlbcRfps2eJoaUNGp6oxZQAwdAyc4e+aUqVjt6bqJT56OfJaiDIlhCgb2 +NX6b3V+BsWZXfEiXKTif9KK87wINHy+rzNXYS0YdNUV+6gEaVlW+aNmwhXiP +l5ZBykYaKoc3cPuFyMjf+Tfzfh8VmzKqDwDxHhdaaxvD70TFIq2XMfwfSbjZ +/dh9+VcUNFTlnR5YTkI9w0Xp29Uk/G6dcceCVorBf+wdJk6XIO/xD4c/ixdj +e4fDT2eVElTMOsYrtlCEiiWO/IvCJWhz9rHI3YEiLAu6/06wrhhnnjS5DP8o +wrmNzsXbLhZjre09veXnitBG58ka0+tFaOihEFG5EtFz2UarR39/4eJMX9ZM +6U/s32DUt/JyFsoO2UlodmViR7O5KuNZFFoLBBl2O0dh+/0upUc6kTBiv3Qd +n0ok8I68V5EfzwJs/rl35GYWWO0P0o1TzAZ+v93a+tFZUPbExUTaMhvuk+47 +BNdkgZ+YmcfaumzQvU0K71DPBgGddZWLmTlw92quk8vKHBB9GXKn2TkP3Da6 +S7rH58KWAz4pgTwFcFvX6bIN9Sd8LFZbN7O8BFwayEYjnUVAEqaFvJQrAb2g +da7pv4tg+LKFgLJeCZiPTVZYixTD/rkni1ZeJZDxxSzg1eFiKN9DG6qZL4Fn +BoHfl38qhslPFoXfxkshrkHt0BHLEjjm52lzvY0EnUqvQsxrSuF2vWgvzxwJ +HA9k+r9hlULo1oRLURJk0No7XVz4rxTaCmmGdcZksPdeTKpQLAP736Jah6vJ +kGIftNDuWQbvbyaISJMokPmgQ5muRAL2yfK8+lQazJ41KzC9QwbHn+aKPXQa +PJXb2XHJkwwzO0besodp0CJ3hnbyNRl4Vq9yXiZfDtFvS2nduWQQrTqjdjCm +HNgiUhWTvBQ4eKEmIzKkAgIaZk9/eUUBH4vmr5b2DJg6pn9rJoYKK+k3N94L +ZsC6R7/ezH2nQrDWnyDXFAbkPmbPDiAV3khL2oYNMkDzgNAOxy4qJHdZKJD/ +q4TYRlOtq9I0qLbqilc0rILg0Q3CPmE0EFKbPDv7thpkl97cWXyvHNouXyj5 +m1gNKqYfcwpdyyHJ98f+xcxqiFh5tiPBvxwONzhJLauphvXMisFdhN33708N +rV1ZAwvmq6LVGcT5jGkfVZcacL2qVC26vQKSWo1n9/jXgOcC80mSagXc582+ +rRZeA34bX0XJa1SA0PmH57XTa6BzO69479kK0B2f2XRqqAZOB8736D8izqvO +5t+4WAshm5LXNZZWwANTMxVbm1q4ekFlLS+D+P8nubF3HtSC7bNQx/WNFdBe +6Rxw/2UttGhwzBZYFSB894+xF60WVppmtPwSoMPDlDlutHodxEzHV/w7RYcj +9ebWsfp1QF7z8nbRBTqIzOc3xRvXQbjLIV87Czp8OeVa+NWhDiT6M3Y9taVD ++/DfZ3lfiP+X3vYzyp84r/hPrmFDPcz0K6XEFNAhKCH51XLFeniwRmfQu4wO +tVvMFtQP1kP107XsMxV0+E/yR8MHk3qQ41Oyfd1MBzfBWz43X9dD4Bkc7R+n +Q6m/OPd9XD2UXNJXmP1NB4GlZRaM9HrgPdVgNf6PDu/mZfbuqa4HtNSfC1/J +gGx2fc/fVQ3wli4ZlLSJAf9ueZ1RkWoAU4U1yaPbGHCUqZr3344GcDELWb1e +iQF1nUGhpBMNcP2Nb5nMPgZwqw5BiF8DMD/l8f49xoADpznJxeENQDKdPeN4 +igEe1EjxqfgGSF503lltwIBVxTNss9IGcIv/WQlmDFDMSInaytMIGtkn+8Zs +GGCvYr7CWLgRLp09zht9m9Bl8vL7/jKN0Bt5V2T3PQYc+2R5alSrEaz8SnYI +PWTAi00iOTKnCU5TPW/qwoD6yIKthhaNEBd29L2/GwMswyTmslwaYWHqd2m0 +FwO+iJCvDwY0wpGdZkXevoT9z51qJN82goxb31rDAAY88a1MepLdCFu3i8zG +vmBA1EMf0xOTjeA0YnhU5g0D+iZ2l7ryNkHFnpMBh94xQOlel0rqmiZIWfLg +zclIBuTZaCxbu6sJQp+NG4nHMICnn+WgB00g2vh0a/NHBhz/L7zj0dkmeJhY +/OdpHAMazbiZ7XZNwJvVyB+cwADphujNwm5N8D76ugU3kQHWhqeeH37WBLe0 +189rJDHgK2P2t9P7JrA0Lpy984UBEycSrRK/NMHetEuWgckMUCdfqGrObYJD +wrInX3xlgKfuEk1BahNsWO9Q7ELUObUwNVG7qQlyNBtazn5jgLDmJVF7ZhOo +pqxKWJXKgO7E2LyYqSawiN3SkkRwhijrvyreZij+6tOx6zsDfDx2rlgUaYZb +sWuK4wk2GXb4rrKpGU5FUF4tTWOAgkmOyRXlZsiiU6+dI/hP8fy/F5rNYJNg +rh1AcLmybkLBiWZ4GDKwL4XgqHf+p9mmzTDwe8r0F8F3+RmTUjeaYZX6gWxi +34dDDqKRp+83Q2Kg+9VYgkU7THXdvJohZ+Sn1UOC+45HD30NbYatG1fWHSA4 +M7M3tO1DMyy6figg9nvw26xwUPBbM3xf0bzXk2Cz53e6NH42QyHsO7acYKXZ +DD9bWjNcW2PE70r4O281q/y+qRnq6XNP24j4MKq0G2gDhP2rhRgKBH/Q9Hb7 +M9kMOp/Df1sS8bT/TJVV5G0BzuufokFEvHXXClWYibRAcmeF6gciH2JPLjgG +yLTApdB9/8UQ+cox6SxiabQAi2x/+NZnBgSUyN5cf6IFrN7T1u0h8m2ucktY +37QFzh73PToYz4AF/qnLiU4t0F0f+0eK0Eu1gzp/49MWmE0Ni48k9BTb4ZHC +H9oCLipCk8sJvR3NWvnXOqUFYi/Kk74QehTfYhAXlt8CERzLu12EXlnPw06U +UVvAnXFpGd9bBgRZb3orO9ACOa+UDcTCGFCzdv/+XulWWHO6xeraMwbEPXnc +vmZnKyyzzo5dEciA+yPofVijFVzPDNh+8GOAROnJ2o8mrXDryeBY+FMGXHH8 +797VkFbIjjrLk0PU567OBPGQ6FZ4PR1XV+/EgCUnRwoKv7ZC2p2+xh5iLsVv +ebhKhtoK1o70YpotA0aqn31p52mDT1+9PesuM8BZNafvomMbKAhcLeo5xIDH +Ka78up5tsEFA3k9EmwGuiofklYLbYG/OzINd6kS/kaXZzn1pgyv+fkpHdzPA +e33b+PueNqAxtM4UbGZA8OLCYtu5djDfkLmwkuiHoW6lW8qutEOK1nOa8Swd +Xv7xP5Ji1w6lvoztYZN0CJsU8XcLIPi/4bHBIaJ/srYKSRe1Q8zgm8vTDXSI +rzomdUW1A0y8rvunfqVD4mlBnWPaHaDwovK5SiIdPtOqrqqc6oDaMIX4uI90 +SC41+7RwowMailfZ2YTT4XuOrVLMhw44Fb1O+oYHHfJjgg92r+6EXd1tu86e +pUPNvUYjy9FOqH3u2e7BrIDThwfvuvzthGuSz6/KdFUAVXQuIFSgCwRme9J+ +NFVAUZZ0QaFCF/gu+e9kEbUCUv9ab994vQuYR/13X0+ugOf+k9N1HV1wncvf +N3+7AuINAiribLrhlxSt8L+hcvjPJsFO7GIPtP1jeEg20KBP//Ebmf96QJbX +zLif2EtuKBiUKNj0QNeGDf99K6OB3dDseu0HPXD7ztUQ7UwauNw+XXr9ZQ90 +JOwpvviaBq/uTW7IofUAJUGiMcqQBmWPDlMuavSCd8T2bwpVVNA3E5+wOtwL +qd6OsesoVCg/OCJ193gv/HOeTOMn9pHqP2GOXia9sGbuXPRYKhU6XAelvzr2 +wlNDtiAnmAozT0Luzyf3wufP09vTDKggH9CxJWZjH+zfUi4r00CBQdEW6iHZ +PviPRy10JYMCSdH193qV+kDr1XaJf2UUUPhRUbBdow/2nMoW/pdJAaXOvIsp +Zn3A11f81TqcAjv3RbzMC+8DQ63JLxOmFBgtfHnQIroPSh4fE3I4R4GUEy+6 +5uP7oPueS8Of4xRQvuqjfCizD0QGhzbs0KCASpAjjVzbBzpBY+dEpClEXs8u +qRfuB/mKt1/4BsjAtT2Z9GB9P/SXiHse7CRD2rSewfpN/fDrSXiHSxMZdgtq +R5ur9IMmoyNtazkZ9qjtUO853Q/qBvZ6Imlk2Pd8uQMnsB82DRpyHnqQYUqc +TyL0ZT/cGhfe5+1MhszYhcLd7/ph2Xz572hHMuzPmV71IKkfjgTT7y3eIINa +b1/SX3I/ZCW9vvDgHBnUDxZ1r1g6AB/1vDL15MhQmO+/XVFwAKp3qthHbiHD +UW0D2xOiA+B/av+FRSkynNPtnAzcPACs47f6xteS4cbp+WWC2gPQ7hl9x4eX +DKOVpad2HB2ApXa5iWcWSOBg+Cz01KkBCN3Gl7yd2KPdTCQln18cAPL215d4 +J0jw6r+DyqsfDsDIiRPe9r0kkOhbdFB2HwDZN4JbMjpJEH2dkn3GZwA2zIrK +8BF7eZKtyaHgVwOwt3SHW10dCQrv378g/H0AruSxE1XJJDj6W/OtavYA/GC0 +yXBKSEBz4eswKCDuk7ng9gtJUO/x6kZoxQD8rrwkF5hHguGANJc1gwNwsm1n +Z983EtgLOhfuHhuAxeq7O2S/kmD6BfCdnxmAjU2v6x2TSMDzuvL5q6VM8Nnx +y/7IJxL4rYuoyRBkgnaUskfZRxIIvr0sXifKhCbNy1ImH0ggHj0as3YLE6YO +VWt9fUeCqE2Z/XsVmBC/9mzT3Tck2BLnqmikyoT/SP/2HAknwc7PAj/CtJnA +z3fKQuYlCXTTFcjrzJnw07w5KiaQBNS9XAG1a0zgndpgP+xPgjPZOQYmN5mw +ZDrJ9JgfCcx+HmuJeMiE1Sph/ru9iXeMtpBMjjsTOFyZnqKnJLAqarBs8mGC +39/zDtc8SXCXZD26/jUTDNKTjBrdSTClv3P3wfdMEFB3yU52I4FL+eQDs1gm +rA0wsAt1JcHC6Z/5zklM2K2b7eb/mAQ+VV6Lb78zgbJ0gB3iQgKB8yeP5mUz +QZ2KpC/OJAipXxPYUsAEycONKxsekUDMtIXxp4wJYYescA3B71s+ikrSmRAj +dnrk6kMS5PZ/DhOvY8JGC/KzkgckaBhLFV/byoRbnDv/9hM8MZf1VriHCclz +o0fy75NAZFmB5KpBJvy6HGVpQLDymrKoFWNM2CPmfWnaiQQnpSpk+GeYQE4w +3pdC8E352o9L/jHB++WDUSeCffe0bF3gY8GRPK7faYLjtLvj5wRYsIThya9G +cNFxltzvNSxwzwq6tYvgjgucpEkJFgQuSGdqEjx3ZVqJu4kFgoenBkwJlrCd +TxmVY8HB5/aLPgTvf8CnOqTMguzKDzylBJ/3FEgf2McCXtg7tIaw1/7Zmr29 +mizIKA3MdSA4OEIiq1OXBZPmCXd6Cf4au+lA2wkW9DxVXW5N+E9NkctrOseC +vZGPvGcIZuYoa9absuC1sWP3OyJ+fKX7CqqvEPatydt4lojv5kpNYFxnQeOx +wD1riXxY9J84QnYi/K0cHagi8uU8do5U8pgFtUJKrhQinxFzpvr4lAUX7hzp +qCLyXS1y41RuCAv6FM9Oi3qQgLPxDiMzggVQM/7xzBNC7/L3DdKjWaDOrl/6 +jtDTMW2vC8lfWbCa/Kr9GqE/6+OBDYkZLNh4S+xIlw8Jnl4INf2UxwLG6q36 +dwi9/rr1wSKKwiL2vsEVPwl9t9xP6HhbyYKXPxWyHz8jEf0+5Wp4AwvetfF2 +n3xBgt0R+VbBfSwQ09vtI0XUx9nY4oGgYRY0vGgZln5NArsUqo3/OAsUrUsS +VYl6SixpvO25yIJvh59MeBP1JzU24eS4cRDS4gJCOHEk0Jj7M3136yCEf5gw +c0gggSn/EufbioMQf3fNuqVEvb/aKOxmfWAQyvvFdl4k+sOK4zt8TC4MgrqT +5Y6iXBJMfrQK03g2CK93/frqWEvYY/LyVeWrQbjT8madeiPRrwQx1PL9IJyZ +1JgRaSXBlYeSL4K+DMLxN/rfpnqIfJ6q8W2lDML1tw8oAUQ/jJrRefR46RC4 +zJRJUcXJMPPV7oHQqiHwkvn37s1GMhhee+8Ut3YI/JQ2+j7cTIZl9Ol75VuH +QPGuoYClEhnsY1NuSh4egsyDTXYjOmTQOy1pnu8+BAqeD5fG2ZLh45LjZmd9 +h0C5aTbbyJ4Mc9kPTHqfD8ElH2lxsYfEPNpSc14gagj0hKWFc5+SQfK3/ynz +/CEYvTq5K+QdGTix01pzM0NwPWQw/UQFGd78rt6kYT8MAkZ2T2A/BbLjy3+e +fjQMZk7jbR81KdBoWGZ61WMYDmh8Nl+mSwHxlJwQn+fDYFlWg+1nKRDx34fF +yqRheJGssTLtJgXCaLe7rHqGwbu4en9WFAVCI5fFvDg/Ahun3J8dWEqFtOM8 +mh8vjoCnwG/aawFiX5j+05jx3wjcDsglD4tQQfgcW6j57gjMOwy+85emQvDS +eo+tz0bA2Fy/2lGNCi/uxF7JKR2B5Sr/+ApvUCFFMnKOVj4CAxJzyyLtqECn +hEW014xAfPbbHjtHKqzaGlC5pHsEHqdV+bLdqfC88a7O6fkR0E9r2WUaRoUg +0JLp2TcKEypN5+4WUoEVcUntmdYoVD6Iqq0upcJRjtvZ/UdH4ZaU1gEZGhUW +ogo8Ai8Q340jTB7VUcFxTqdrt+ModPr3W4qyqFBlePV3m8sosaeiy88RKuz8 +8kTY7+komFKUU05yqcA0LYLW0FHoFcliSvyhgnnW4Y9e30dh8l7anOVKGuSs +sszdmTMKER01sGM1DcSsvaobC0dBu5HmVS9Cg0rRUp4dlaMgv2fFRcp6Guyw +7ZNoaBiF1EaVMOGNNAgo5tv9pGMU7l0bklKToYGu/dFrdaOjYBKqabpxGw1i +KNYu7lOj4DpxNqFZjgbzMr4v5ecJ//2HXRwUaXDxYcKXGj42aAmnbRrYQYNs +BqnYVZANmkjv2qNCg7XbmS3b17IhPuX3EvNdNLB3WzZRJcmGv8r29It7aECv +kxN4vJUNdTrz3rv30UBxh/7WbUps2NLLvN29nwZ+XjYalbvZYOu9QLp+gAa9 +Lf7nndXZsMn0dW3RQRrA7iTbrYfZ0Jf3oJqrToOoAKoX/Tgb+EOm5qc0aPCn +a/D9w3NsyI5ue03XpIHJgZU/Npux4TXboeqhFg1+BCtWlF9lw78tzoMTBIsw +T/Tdt2FDRr2c+CFtGtzRtv0rc48NS8Z2Bl8muDwsaC3tIRsSeFN9ThIsP5q8 +w8mDDdMfD+1cRrDPkYoj0n5siEgfzQoh7ut5P2JBecEGUaqiIZP4fZ0JwfsO +4Ww44dyxYyXBkSd2Pt8YzYbVyRcdfxP2z348HU+KZ8PQiLlBGuGf8azdr3sp +bHhYtmx0D+F/hsGL+g2ZbNjKN3zPg4iP8Odvo6U/Cf+Ff/O82kvs6wuMpXdL +2VCg7lNqt5sGNGOOlEQFG24uPdm6WpUGct+E9pfUEucfXLtxfycNui0Mrov3 +siHkS7F5MJFf7R/33IuG2NASJ/wPZGnwXiA03HacDd8gO+DHJhr8vpb2TewP +G57bvBEfJPRjlFdNKuThgLfGSEE7oa90kfGOmys4UGuiExa6lgZCN9fMiIpw +IEva/huvMA2o4uflbDZxYOC155g0Pw0KZtJd2XIcOHPuGLVzkQoZjWtqnFQ4 +8F7yvy+X5qgQFVHj6qnNgUP1Bweecajw8uHummV6HGh5csZOc5AKfiYv5V6c +5oC/6xWj+B4q3BM3rHlnwYF9PLbBH4h6s55Jk9tsxQGRuapFZToVzBpF3BJt +OSA9yL/GqYwKuhHVcj9cOCD1MB8kM6kgLn7Ojf6GAyvCk78Wh1BBcOZ7zfkY +DqipWy3t86UCT6OwfEsiB86FPNiR4UqFofCqmoEsDhjnCbUbE/3l1zoD+cU6 +DlgnP94RcYAK6dOpbr5tHCgW2GuzcgcVEhuEagX7OOCpHrZ3qwwVQsMr3SQm +OPDb9oPOIT4qWK07W7tbZAz+Xg77J0yjgNn0N/nc9WOgc8o9+WUeBU43rHbX +2TQGZjfpGmlfKKAWzpA/pTIG3LTNLzCAAgLrzrhbnx6DdQs9+suJ/rs4lVI7 +fGEMrmSV3j6nSoGp+lUKDhZjEH675ryyFAU6wui17rZjkL7eKSd6ipgHYqcV +3gSMwRKO+4sDH8mQMPXVXTp0DM7dNw76F0iG9/WCdZ/ejMEbn4wfZ5zI4BNW +4Z6WOAZpTzHK/ygZTMVO1dHKxkC9fr5Gh5h3iyu3gwcPF4J75nKjeEnQPp2f +y7OUC/om5ynOzDLI7zm3x3s5FzoPNti308rgfp7b9gAhLlC5ISpqIWUweLNe +8JUUFw7Mb1IVEysDkpGtr9hmLkBr8d/VU6UQd4hnMUKWC+8rau/41ZXCJYmd +E5FKXDhpzfjCCS2Faop3c8JBLtyeD/nnyl8K335sOK+gxYUlS5e5n+wpgaCY +7xXJwAWxgir94F8lcPRRW+H3Y1xQmx6ftHcogVy5vQl5RlwQfVfy07O+GD76 +9jow7Lmw+YGqcZZHEbg7OI8Y3OfCtHKFoZ5hEZhfFrpe+4gLyaKUb2qyRSC2 +X8OsyYMLJKe5KPsghID+lzo9z7kg2Hv/5za+QnA4clhwOokLX3ikKMOZ+XBW +tcnnUQoX9parrvp9NB92bryz8Oc7wdfe1b+vywPmxNvxhWwuFHcWJESP5oJ5 +HLdpBYkLbnsK3Q6tzgHdJR/jpXq4QP+0M9d+2Q/Q0T3RPtzPhbKJzULrnDJA +3Xtibd4gF2KOBOi0dqTDLn49b2MuF7z234jO+ZYGm1YOXwte5EJurOOdj3Yp +MC+ybxOPzDh0mhdasCtjYdaww6RyyzismVd9Hn7zI0y+8guO2j4Oxzc8hvm/ +0TAs1vLvoPI4aD+XO95x4C20SHi0O2iNw7of+e+dXwRA9mbquz7zcZi2dgoO +iwrCjGsONelXxiFZ4fiW5V9D8Vuc5EpPy3HwT89JtFgThvHb7jhL2Y7DPYkl +LLG/7/G1gqipscs4qK8Lb74RF4/2uy6JUd6MQ2jhi233uemodIgbnFw/Dpbf +zySYRhfjCvcn6w42jwP/lkQuS7EEmXlCUaQ2wj4q/2VqTgl+2qv8pbt3HFJG +Xx71aipFKXnbUvHxcVjReD5gvTwZhYT6f3utngDSj9NpeSsqcPSkk4fImgko +zzVTM/5ageX+vPwfxCbAKXXws7UBHf2XbBHN2zgBDQqibwYjGcgzfXnnmOIE +8GfUSFrJVuNEW9N/Fscm4M7Q1uSZiVqslrBhDZ6YAL3igHyHc3WYajxz5+GZ +CfC2mGLlpdbh7Sox15dGExB7Zt3L7Dv12F9iGE6xnIAh/dWKPtMN2Pilgrb3 +yQSoi+nue6HcgvmPcM+q3An4bLKfX3dbN/Y7c5r8f05AoVZwZufVbhR6LO3O +hxPwxeO13kRkN1q5uVLmSBNg5G6R7bmuB1c9PXBpqG4CWNqKUWeEevFy0Hdf +8tgEdF3fNQPr+5EnOqbZU34S5O1qX999NohKHyrd55Um4fDNaiedpkE0ivm3 +1VllEqL/+FZFyg7hl1iLO/f2T0INj8b8ksIhPJ+4nvfKkUlA5gbLl3+GUeAi +V7VEfxKurnrkc+PaCP4PfV1dRg== + "]]}, + Annotation[#, "Charting`Private`Tag$738056#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.5000000000000284, 0.5}, {0.5, 0.5}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.4, 1.4}, {-0.855639704437987, 0.8564320900118193}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {479.8347252809547, -97.50736892665735}, + ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}]}, {}}, + ImageSize->{ + UpTo[600], + UpTo[223]}, + PlotRange->{{0, 639.7796337079396}, {-195.0147378533147, 0}}, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}, { + 3.817270386217204*^9, 3.817270413445382*^9}, {3.817270447239348*^9, + 3.817270477074524*^9}, {3.817270593198266*^9, 3.817270607955358*^9}, + 3.817270744280167*^9, 3.8172707889603767`*^9}, + CellLabel-> + "(WOPR) Out[241]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnQm8VVd1/2/zHoNo1Go0TjWp89xWrW3/1VqtY/3b2lqnqsUhRtSYuTFR +o8UMJDGEkFklk5kkJGSEJIYEEiAECDNhJkCAAA/C/ID3GE7Xb5/13Xff8849 +9wVT/eu/7/N5DOeeu89aa6+95rXOJ7968qBvfPerJ3/r61898qMnfvX4Qd/6 ++klHfuS4E+1S2x/Vam1H1mq1fUfW9O/M/ul/FH5eqz96XP7/9ur08FdbdvTR +R/NJfueQkg+m/obfqX/yP7H6s/qdcP13AVGvaPTF8FffbE3Hjmz8jFXZ7Q8t +zcY+8kQ2Z2lHtqd737dLvvmt8Ge/7ID9teKprdmDj9W/Nm/5xmzvvv05gIeX +fPkSv/bwrNXZnROXZavWbau9MwflC/7R409syn78i0nZfwweU2sPf7ZlR519 +b3bVXfOyji2dtUEly37Tr3Xv3Z/9euqK7KTh42t9/LvfPu/+7C57VITrJRVw +nXXNFH0tmzDzSeD6nH+0/8CB7KZfLwirHuLQnXDhg9m5103NfnLlI9lXfjL2 +EH/k1868J7vj4aXZvv0HakeXPI1rC1c+nf3nxeOTJduyUy6ZkJ3zy0dFAvtf +fu30n03MNm3dVd/7F1egcOqlDwUUZi5aDwqf9V0+YChcPnpW+Fi/598wLdu4 +ZVdbguH0Beuy7136UATnrKunZFt37Al3HFXy1KMSbhAXDPSlv37WPdnoCUuy +Hbu6am3+eO2OyMLjjx/2gB7fEqNvnffrcP/S1ZsbMWq3DVkYl7v30Sf6JYiK +Hwf+ZGz4SPv01MYdZQh83b9i7JFddmsjbbbt7MpX7BMOyKBzczi0RZ27u/Ot +eFHJmhc7dFqT9QxRh/0z/umMRevrsE95YoA/6Ym1W7PvDh0XLh9z/v3Z2o07 +ciDDM76W0HLojdPiAndPWqY9eI4vsv7pznBo9NFFN8/QRzm4f1wBrliM9Wx9 +B/ff/NOdu7qz7/z0/vDpz26b/Tx/0tPbdmcnDn8wXBbYT23aWftayUO+6vfb +mciG3TQ9PujR+U/VnuePmG/iI7neAuC2bPmaLeFe25jauxqh/eXY+eEjQby7 +a9+h/vQt23dz4gL7bd6+2yFrfMJX/H6x9S/umBOhsj2rPd8fcf29j0esd3ft +DV98YQW0jy3M91vHy6H9tC9lvCn5ET62217gT99oG3LcBQ+Eyz/6+aSsq3tf +7QPOADt27MiuuOKK7Lvf/W52wgknZCNHjsz2799/CMBdf312/vnnBwi6u7v7 +CKLac7JBgwZl6c+jjz6aff/738++/e1vZ2eeeWa2fPlye24zerQ3HN9Jc9a8 +wC8LfXjj1vGL66QIq0AAaQrdcfa1jxYJcOktM8NHEqQHIGN+6o4ekrPx5XY4 +xcZ/r88OyYYPHy6m3Lkz27BhQ/bDH/4wu/3223Ps+2UzZszIJkyYENG89dZb +s+9973vZU089ZZLN6FEbkO3duzd+vmzZskCC2bNn69Ps3nvvzY4//ngRub2E +GgMdanZUv3dNWvbHfnn8jCfDpaOH3BdOjX5eUMEYtz20JNxvRIAu/+pLrX96 +ZxSpi1Y+/SK/PGvxhnjZRMdf+UJdXV3ZunXr9Gv/0599so6OjvC0TZs2hYev +Xr26dojfP2nSpOykk05yjsqvjR07NpBq/fr1tXYn59VXX51ddtllkVwSr7pn +/PjxtTL6/Idv37pNOwMRBOZlvn0QSXLgxAtzuSECtCLSNWPmhXvt1DUSqS2e +9cFXTq4d5svfNiGnqU6V6Y33+K1LliwJp8V+7X/6s082ePDg8Chtvs6HYRcp +9OSTTwZotmzZUuvn1wzr7OSTT87WrFlTQ3WeccYZ2ZgxY8L/+O6ll16aXXfd +df6/nph92akkUf79yx8O4P7QNH3X3n21FzsaD/iRkSKQNtHP8yuoNHzkY6gD +qPQvvpRJwbgZUx9/6jB/uvZS9gZqUortfb7alClTArVSrDZu3BieLO7q79ce +fvjh7MQTTxSvxfskVR588MGG71511VXZz3/+8zpFglj6ogPINkpvdWzuZCdN +6GXfcs07Zd7aliRw21HiqUiCh8zqDBL7/HHiv5f45e2dXeGSn0Gwb8UPua7t +GzDSXvPjvMCWt2KDLzkUc83kRpg8MnftS/3WG+4NJqfMzFpL3FEWZkM34t6W +nXn1I+Gjm8ctqh3uj5zXqG/f67ciKgzZiLi2GFEB4joIp556akRcYsKw5Sut +pAT7HsjvBo8ZFgAn2a9LA3PjKXzn0JJlLvL7Zb2iQ02fOvqf8k83JraNffoy +v3zdPbkOl4lpZu57HTNTLtmwYcOy7du3S2cEZjb10tc/vvbaa7MFCxZk27Zt +y1auXJn9+Mc/zkaMGIH2QZtIC+3evTu7++670SaVhEAJyjDZtWfvy/xWaX5d +Nt1ba0kF2ergaVq5gQptwSZ2MVN7uX9D5wuTaPjIGZCgiX0BCW677bYgOL/z +ne9kp5xySrA3du1yV6JPsCt+8IMfBDKcddZZTe2Kf3cg5HYA9sIVm17ut5pu +C5dMPLZCvS04o7navbf27ka8/2vE5FxJT1xWe4U/0tRpatb9e8nKX/Bbd+7u +jgLCpBQryPRlBSlq/TyvAsCZprWDAXjJBAD8Z19Kdmmy1Cv98tV3z4scYbsZ +4AlrA9lVd81Nb3ilPwkZePfk5bWWYGGWDTGzrAGsthAS0EfmU9Ze5Y/sFDH8 +uJoy/kLJyp/3Wxev2hyxMpPlVX6rmUrhkvmWraEbPT5X5FeMnl2EDmX3q/sX +1v7EHznt8ZyR5PmZJ/X5kpU/57fKAkHvmo/ECqs3bI+WgzZeP8+NhAesK+/M +CT/Snu1g/VOyLorWBHG+bu5KXOCOjxx6k1cxtlAGnu1dtCK37NgDeFoGMa9T +E8FrQj/5sbr311NXFAFd8uTmqHDNuHi1X5aoxHGeMPPJMhhxv3UCvuFuprnf +R/iteEzX3D2v1hLAH14xMdxsO9cIYN0wPu/6qbUj/ZHwg3tdn62AzlgGh0ub +AnSmXHHjW0OHV6PYQwE6c2PiIQO6PSZMj/XdGfXAojLocP/l53M4TBGzQioJ +9G/9DChZZrjf3xBj2LrLYfxk8qlCMfrUvOU/9csTZ+eGkD6yLwWQwvK4z+Iy +hX5009Abp7/GATj5ovHYj7WWkKUq1+AoQGYEzZnvrHu1OUAmowGFd9ktsz5T +sj4wPrZwXTyoazfuAMZf3J4zn6n2VjC2xSNg9nXtL1MApSuXR2/1tf7IVGcY +Av9WsjIerSiPWr12zPzX+q2YoIZja+gQZlLXBegU1NFHtzy4uPY6fyTXBpu2 +sw38dAV0dljDrd885z7ZX+Anhw3paRZI+M5zKgBUrDVnkWlFAKWR9JHCkABo +Vn2IjQYTd97aMgBxfOU3Y/WPmbycFcSXhAMVKG4FIPHBq+6aB4D/15faurNu +KZnV9Hq/bMokalTzxP61AkZMc4W/zIl7vd9q0qpR+VYBiM0n464BQPM/lmwA +ktob/JHaFESSfSVAEhbGxZEd8tUzxnJK3+BrKSijS5eMmtkapjOuyl2Fh2ev +LsI02t1qY7XaG/2R+KhSBKao/qVkZaAz+zLc6mEeoCOOorB9HbqwBDDBTvJs +CjChVO804w6YpINPuywPhI+4Y04ZTHgGi1bVz/Sy1VtYIQ2GchT6lyxzod/f +4H5s2lmAEY09Z2lH7U3+jXnLNkYHZ9W6bZ8qWRzzUFIRm86kIiuE0+CHRGi0 +gjE1WE1TOYyf8E+37eyqa54de97sC8HOOuNVMMo3133iPvPX+PoQ15KyP1oA +2BaVgiFVe08jdMSGxf2G95v98sp12yLQZm7+c8niqV2GRL7hvgVv8Vvtn+GS +GS2tAZwyP0fyB1c83AhgWxSp5/zy0dpb/ZGcbjnfBvQ/VUBH0FASeceuLqBD +U0d9UQXdGDcZh900vQjdCDfJFD4DOkl7WNYYM0ASFkZHKzLFwbv9oaV8D5pL +dYvt9dOvAiycbHOdAAtHRY69HboQ2X67XxvszppycG/zR2JuKz5mh+GTJU8D +6HvcZ8wj/3sBWrjUPaxOHiZczHgIQbcFFThc+Kvc1zCroIiDdkwfmUEX4RVR +8AGMqbmsA4gCNOn8jnC5RSy/T0MsXz+TJ0+u5QH9/iEEoZ877rgjxGLkcCs4 +qajT2rVry3xuFGAatDdHG4r858UTouLm2vc8p6j0x3iHSoGPs88+OzzxtNNO +UzDZ41sDstNPPz278847I8QXXXRRiB5x70033aTQfRl0EFw7jalZILj5zxGa +lLJsr3mob/fLHG6l7Oz8h8uVuYP+PXIHthEhJzBnzhwBGtIHaZ5hzZo1inyE +pa688spAfVu6NNID6XFspBaMMSHzMGcyhSm4RtLRrPfag/5YBZVETpFYMf/H +H388BGIWLFjgAbsBIYWh6/wogKfYrUBdsWJFiMoMGzasagt4tHyfwhYg1cfP +WOVb0BYl9LFDx9Xe4YgqtkcCx87z6/zW3yRRgaSZP38+UMdr2isdolmzZpXS +/xMNYN3nKDz5Dr8V2+9nt82OjKXwGIxlTDa2FxjY+QzhcIMmYiDO0BHX/7C9 +li9fHqDr7OwshXaYgyDzI3EJC1txuSetTUDHrcAuly76M18F000C3XgOh+TZ +yIiUbYWOjHjSjk3lVmChSzPbCWUr8JPMUoxboaQ2BpPdOrYpBu0RA0nSCy64 +gLj7/fffH457uguLFy/OvvnNb+pQVe7CKtd6kt9GkMIu3OiCRiEPdoGExtV2 +jV3QXqoiJQjdR594q9/aKtNSRuk2p7fYcN68eUEAiaUuvvjiIGQjQkFXfMwB +2Lx9d4wImDXzZxDRHWFzriL8WMZyjsf7NYW+L7/88gZAxe+SelnQC1lQaYsW +LcqWLl0agJo7d272ox/9SN/rE+EZ6l8m8qus+F810pQImInFCNNPr58G7Wp/ +7igR1XaNj+l0MNxLqYoEu7hXgX8pM6U2TDCVSct/dCiu8VitmYZ6JBsuUcPh +NbuODTe1Fg1JaOvM2kDblGOh7Y033hikoeLuSjaZ8sr27NlTBtwwvwaJZMQX +qDx57prwkQqOoPJJHucxFzRS2Syk6MaYrIHKrZJFzancFqgs6mZB8faE/uP+ +6A2bO6NTO2vxBiCSkZXoKEiL8DNWiaQVi+p8pSJ5xIgRUSRDO5FW5lYziKDn +tWPmR5O2QE+FJXDbMT4VDBpYdw7/wi+X2vwtsk/tgZLTpk0LRorBhsyCmKpu +yGsc2rJ9+/ZF0MtyjxCYojD3y//CbyVtokAA1B05blF0l8b7DmOPjB49Ovxb +phL2CHUFouwvf/nLBvCkrqvAg9rEsM20b6R2Xjmjj+TH2Kl7C5eTQJYRH4Kn +LqAhAsErc13tgdjnnntu+LhAcEErQ/yQ8GdbkL1VGCGFlWSggGPBik3v9FuJ +WCuqB8HNGInXJjizrlq1KhsyZEiwp8Udsr05aCJ0Eaz77ruvV4TGsn5s4foi +oVMjZOuOPRz/WZ7TUujmXX7rIx4JUF7Bbv1YUzrUUzjnXTfVv16PMakcBiIQ +hBg3fWVtYcl6F/ijFSjBwXpy/fYCDhIYVMWZ4wcOqbUEDvJrCSCZzxzgDY/8 +qN+Qhu/t3wCfSlOAJ8lkqq4S+M1J6N/0mANP1gy+lUwGckrQzD327EQ9LC4y +mMH60ZIHcu2nfq4UzXu3X0sNARBICzCbI1A3GEwR1/66EXqSCXLqgf7CxN0B +em0R8X+zm8qg/4jfSnZR58jOEytsSTLgxrQEilL/f+PWXVVoTJqT76GJvyIa +BHTMgYto4Kka23tosj3UTxMM69jc+ZGSp304wfhsLzs2W54VUk5etX4baHRs +6YxomGCrQoNzdNkts4po4BbLMgUNNKkxQERDsBEN/vntc6rQwPuTIF63aScF +V6ckEoWQICwmNllUgQCSb9QDi4oIjElMQ0iTSqjNuEntUR9LFZi2+HDJAz+U +oIvOG3HHHMrqsDkVwgQH7DdVJlThQNmN+L6AA3lIiQpwMJkV+cY4AAgo0JJI +rEKACoMQg926i6+rdF6Xb/r1gogA4UqTATkCYUXAJsGvcHsBbFNXuZt/wQNx +MZ578kXj/fZ6gs9F8YfiM/4h4XCSv2ZH/bWvpbYAXbp41Iy4Pk6i5FwZtYf6 +kqpxS5z1BsgbjQKT72/yhRD/qn/4G7829MY8p2Aiyonb+EBwgA3kUZlrDg5o +gcEmQcAB3X7r+MWVOOBnakkjUQEHBe2SWAA4jPTIhayyv/FbqYdxDfUPJc/8 +oN8qbUeMz5gEKiz0dGe61bCiNHFzNBoPSL6e12i0xciLAqYgQOm9qPN//Br5 +TBnyVdAjr5WAMncL/OU1oB/M8ONJafSwCgFKnaUcCwhAKgk1lkXBmU3vCOQl +bLF6d9XTHyx52gf8VnkIZkNh6bFCg9basouHEVITBatw+Lnnws3WLeLAPt4/ +bWXEAQCUpfpbhwDXQGrA5OMHKnAgESh3Zufu7r/1W4kxGwVifq6BjXfsqcIh +TQcUcEBB3GwKgpUlw9GbZhWAhvKi5DpmL+kIIIfn/b3foDgfUs+2nlrI0125 +T5m/Nj4i9Tns5JQBf34CDdaT2SsF+A3u8InijSyexgt27up+r18uJED+vuSZ +YELYxMMhYEKaVE7UG/0autH8+triCjRSoOIJi2gYC4VPVKIKGg1SLMtAI02A +GEnL0Hi/36o6M5KbJqKpyq3rsoURjdRgq0IDi1HLGlAFNMhCq9iNlY1VomL7 +O1/Fm8CIWL6/AodRvsEqrLYTDg4Up9vZik+iKG74yBkVOLTFmIGdR5czEQHa +Yez8xWWJo+p2EChEv8sQ4FYVSeAxPTx79d8VgJDK5ElEOxUSqUKASKkZWI0I +FB2gfZQHIIllEUDZNIPStXff35U8EBwATI1xdly5NVZjJtuNxpFHEnAIKwI5 +7pJygAXIFVhIAjxAzqNViwTkadpt7CNPlEH+Pr9V2VHiXuY8slG4nuk+IyUn +zl5dSf0TvOVCIt5xeLV/dGxSPA4CRvJwTbUVyBcsR4WxzeZ+X6QTYCOWVbFg +xwzEC9UHPCKtWS+D/KcJ3fj6pq27CsCnVf+sjOdiZyACL4UKDUaPX/K+kgci +q1Ltbd4NK2irgcNMDOqGCuXnVZiwf9LiRp8CJoRETCBETE6O8diOqG0f9pOt +VexE55z4rOSS9VPSGFYWX35vAWiFUDBz0HtyKKHSlsYQR3Mq1SsfJNT/tpFE +qaiBRJhEZvVGEmmrsNVuuHdBINGzmP2t6BorzSRhi6jgASKYzIZehJsUJqKW +LD3qSyqIhU6S/V8g1l0T64qFbSgkNTGkycVIQ9sRoyf32c7Wkrh6pm1lGMUy +qkhAG1a4Bli0D0xfFemX6vQbk68rViDpamf8kNCE3haOu4q+TPHEwFcZqYkG +yI4qkBo7RB49pNZTILWZAB9MgEBmmW0HqZ/tbOxv0p8GuekSkn4zIkHuGAqb +sCSSG0tQBdvX+C7L2lBwSGpDxpt2ThWTxmR23uxuE1o6vIqSSv8qbKWo8o5d +Xa8vgYptQFsZdMVtwKqV28oSnDmFNT9URMx+DbFX+K0Hn4t9Jl1vf5UwAgFP +c9cINqQ1U+CAu6BD/otwLW/fU9BIlNeOGGVrzwlUbQvqSD6x2eB+rT0EXBQs +UAzOvvunJRQ+zyGzDYicu3XHngYiN5YKm+6jsoOmdjOOG8JqHM6hN06Dzr9t +fiYuQGTCCxWhOFamSmSheJqPuRyK21+qRBg3fWWoZ1WtYj5ron9QecJUCko7 +IvdBu6PSSlNG9NPK2ZcmlHRXn7t6GlT7o4AoIy9kpNhjw8iLI5ruUp3ZlaR/ +b+MWpVLeHscWmSMdLp159SMxepvGimxF+q8OPrnbj25AAG4p3YkbppEQU2uE +O2lFksvB9hBzeeCxVbVvJMwmxBUKNJKTgVUnj9SbGqbsjLS74NERUcRXAXF9 +LA/kAEMH2OudIbKhFJTdXmMoh7wBEV9Nza8qwYcNoo9AKS7fIPYT91ZhHHYn +VddkOjCof5i3DeW7c3B54mfenci+UEIgHjdqsi+kmxTnY19OTsoHmPsg61+R +Vh0ZfW6nz0nZL6QeJP5lRcpl1glV9E6kPdK/L1tOQkuV7EpTD4xb0ScIcMlQ +1W/NXdYRVDhSRhuvDjeFYtk6KV6pGK3/ihKU2TpiX2ryKmxdmtNj6/Bs1WzA +1gltym3MomXrnlnGuY/ToLddlegWSXDSOvc9uoL0DWEQiYy0sSJJNw30WyW8 +tGOi9qFObTGAmF+KWnmunbu6ay9zCFUkoiyguFiGknox2131SGOrOUeF4gYZ +qkeRIjH4wGQIjrxZQak7wtIBP7YFQ1kxucK2pKkatiVNoJO9lWSN4YPufSRK +yohIjlXhHpNNbGyq/0y00UFTCN992ReWUJONLjrmSD4vCDldk9wRncUqat8V +5yt5Is2gkTrywU+5ZEJfF1n6mi6JxIph6HY7HIfCWbbnIp14XjMTdC6MtO2+ +eQrmaPNUJS2LV0cAF0oNW7LQvhKBzKsLBZjueGkJlc51vCVyCYAYaQrbQvRS +QTu2haIOY8y4LTLLNepA100fl20Lab200cUoyArqG4r0393NtsSS9bODy533 +3PcLuWKscP1KsATLyD59rrO0YFLOS3kpDa7Rqcn34vkBY9myijTomAhPWW4q +kpEwUt5KpUKyzKQ/xLlmkfX1zVAQTpe1yzo1GlH1NgdNiV7CUfqVIScTWm2j +ZROs2AjSbiG4cOBAYSPSnDAbAQGUv6Y+hVC+Vtm6c8974hmE/HTyeGcD5JeS +hw1shygynelWoTqfv+SMKq5Cz2sjFc+IqrdvEEjynXQ6dFoVvrbbX+inQGJN +VBeLKxopKWKn4J3+bWWuEBMeRFBU5rCmhKv7LoqUvq+RaqnFBNUAfd6yjZFq +0lGM37rm7nnvKXkamfW062j5mi0f91spDTV3pQbxZGgSW/miM6XEDIX6SrfI +hX25c45ksI62ZLMgF+OKGY0R7Vgrhdo/NJarfU38IMTVabhszZawrlH+r30p +IST7Bc2gvwWOzkfZ4CtoSQ+mPaJIS7qeTrzwwUhLOigUu6Ekje437+78y5Kn +xZqRtDvq1ln/6LdSeiArBFreTPXa7XN89kBuWVCAoRNp4sutyb5ByqQCQiUr +JmHLhlKBO2z3yNy1jbi3h0YT2N2Afk3CNjzAWB4KpG6TcX8VBai40v7YClCA +AKiCwlAgTUMzfQHH0oflfNORV0hTcXYOtBT4whWbymZcneMryeomZmp0LOCf +hnBN04F/qjNN2lJQK5nNWmZov7vksVRrpVFdM9ZoehoWm3aeiPiz0+pcYDqA +qkMpmQsPsCUJhsoUsyvpYIviwKy3O70qQ68DeoRem7TsvNpXk4Sg+Uo7oLTe +gfLxL+86OACadOXQeaJLjYWEfaiNDT/e5OOOYT50T4O21PpwzDHHZJdcckm2 +devWdt8jHFVPvjlrHOkPS5uo4AvqNUJtZ5bRMUBSWya4sSiVd2V8cbcn1TxV +AV8gnmQRwhf4LEqMfN4x6jZJetql5qucdmVYvqu7ux7/fW4IVowaNSoSpCoe +HNR6Zez5uT1iz1XdRXCJ7B2KVfQry3BP976yOSnvagnCgB4gNOkaguM1Q02Y +qg9MVej6d8JwxR6ke+65J3C8nNXOzs7QSGBuDl4nOT3Dx5N3kT1wt8zbrNHo +n5aR0Vglo0JtiSEqMH1VQDlQ4Z1+gyw+bjDFR38uBXHSkbBfoZIg9L72DRHA +vrGwmtqhb5x+rZ6Sl4xXR7ZfV1+nPayThNDLIuj0qaS9TUckR456qRAguGKi +rPiyeSqUGLcK2Jc1J9GUo5Jjb+vz0E+/ICXGjRsXUVViQN8zSRajcFTvKqVV +2Fi8APVzsLHUFJuBE7s6wVJ237adXWDTE8P2WEp0aj72gy2Wke0WQq1M83Tu +7qZ7WKQmCt8e/uwbToFiCfjTV908rr7jrQOSr2m6dHtYOgmGNp811thVlTvQ +fcLgMMSnnCd1CpaNNIFmvZtr1tgYVcYBVPZLNui7S5cu9R3vnx177LHZ1KlT +I1ekM3HMOy0wAWOOVJ8IoWIJ3ZWTG6aZYNWZDC9jAir9qVLUr/2bhmGMfJWU +wQT4hp6O/ZyTlZEJ0sFz5s7zHGm+TKswPzW1rVIJffwQVbVwvcbhUdURSkoR +JUWeyoaHvPMZPbtppxaNYWU7vnnz5rBMfQJi/yDXH3roobjjK5N2OTPPCjvO +cVawnR2PfTs3TItd8XgL+jV5T2NKii/dQGIOnK/Lb51Frz2msdLIPAl3VFnB +zzlmcvM5RfKaPKTd2/Pd26YzqN6kwex1/rGiOES39TsmN/4CNIk+6/3zmvSM +Ve1yz3Pdr8e5Tp3m9zduMcnQwQnh0fAKPzA3ghIT6S4TE39escUNI7G272aL +KbaXvuBJOM2KurPFWIMaOyqB1LDF1QkLEsKtEiJEY9POtjf548Wg6fRtBYrs +GWWTE4rKutXj0rY1vttMWaujkB+deZR15GrP6yroXdjSWA88dFwkNENwrhkz +L25pOhbMTnXZlv5Zya1mA6CB0y4UnoTvrsKxzzpC2kacpGtvGZfmO2rsa1XC +422+N5WplNa9dRxbmYyElt3W0Lb3LSHAu3r35FZtc29xPpBhIDNMSlvnW45Z +f3+EzG6dezP5wmPkmJ133nlYZ8d61asGPjRseD6wKfifg0PxAiF7PDDV3TJG +h7MpGWq+fdjfgDE7zTmXKW/bBq+sTRv4soxH0NU+evySuNkKiKOoJz8yJc2Q +1Bh8XpYiaeGfp5vc6O829vO9wR+hyDpxCeUbzN0qzcK08MrTHS4+Nu3XS3dY +ywg7mWXpDuN6Sy7I9ZYY27ZtG8PA2Ub9mslb2OR0glzHlk52gOCJxlh9KrkV +HXvF6NlojxRrJj+kmtssPlZonE+6j4el711gaB6xLxVPft+JoDglPpmSRHq9 +QFnS8my/RtbYlIuXANZ4JMXeJtTitTQ4xMwq4hZ+7ztKnsa0kXzmW26f2hlh +hbSIf/P23TyMqfmqYGEoYLpTazp2/MDRFgwUuIn+JjVrZSUOoG1mVTSoC2jT +36RCSa6dnsxaYbiZqehwTeFMJqc0QZvKCffNGJnGPhkekdcUUiRr89SmnYz3 +Q2bKVjjdcVZxBHWyEvF6D8IhJVCclSxNQt0sggLaSB/NWeMaXe5zl3VEtFWW +AaXHPvJEGdqMo1B2glCCmRtMsyN/pWZJ0E4Lm7u696VTFuGCB6av+lG43C/E +vYhmKnIlSuhHsmGIf3WZ13qLyHaOCtjekGSiuUY5plILjAFkVpIwNp56Wwm2 +b/XtEKxkV5VTVB4KlOF5xc6wFchDKToDd3NN4Uw7uT8Ol/NMEGWaMu00ZdFA +4LU1OO7Kf3ygEU9Kkc83lwFaC1AKcY1nPu3wpxPh9OKMAxG3MnzbY3eeJL0R +m1GPJAP02gpQRS9pRhccTS2AIBvsIMio5/vy4Or7WR/yrKrCApJUZRr0EUnl +eGAoY1kYSlVuROsfnr064BLQoy9e7E0Ew4QD0CJq1bwEVrRYDh/5WC1lWDhz +4uzVP3HE5DshwUVLjXLlWKasv2FzZwNuaSn0fVr8CL+czmY09Qr/MHtANoYx +DT5Xun1vTtiV2JJ4S/O9wJZiZaUFwDat1AdbiqJ8EvAZvrRS3Uqh67EitqYj +nOnL4HZorMcHG1FNNV/n7m5QVYaJM2FAf8YfIlUCuyp8JnYd4OflGYb5m8Tl +Cds/g8lhdKmSDxVhlq/ZgsKm0EI2G3TlVS+i9RvyZWzF4/XHYY30KbTuH+EL +sAl6xwujkXUNLWLWWKDLMwxsNwlFH+xgLyYySiegPkypMTsZ7lI+FMqkc4/L +1EzZhM6yeM8Af7SuocjN6SqbXlL29d4+5pmB82w/o2+4Rt5Gv4ogHVAg/XcJ +1rNHIkq8FJFGe6mmQTqiLJzf22flRQHRh0ZTz1q8IWbkCZWaYPfMV5/YoSbX +XJUoXV1dep/LMyr9J7hZlSFAyrQa3PZGX1FCgtJ/DVpSxQyHjGY7xQc4ZIOS +Cstn65BFX2lz5x/WIcuvicTSglSAyZI5kE/5LN2a3+fTRpmTavvCyM5n97Sl +PdZH+DViz6qX5bTJNkV0ywVdvHixXX1m3R9sTc+obVsatY33tZrPRyMvUXnp +21Xrt1EyQSxVPZlH+K3pAA7zA/EOaORSeLaMkO9teq09XvPAGjwpS0NE001l +VVZlSyJqKIpRAcw/NO4X7y1QmSL7RR5Kgwh564amN2Gq3PfoCiK4rTIukLln ++mRAQ/qkIhtUn+dH4a7sR7xQc255HYe5k7nteN3UuD+82cJ7stkf8qVqNRni +pEoIF35UTwvxVW4gG1h3/iBCUY9bGEQFuhL21ygF6BoD9NdPjXVIMJXwWbdp +J7r94Fn/OQ0JiyY5l9Lg3eudEIoqwDHy3fRKT2icpihBi65ivVwCL1vSk0iG +Kd6y17HSnimvE8tWjzW3w2lcn/GhKsQPNRKYI6bGMyC5O/pvM2Kpm7AxaGHo +4MSDfe9yDQOqcgiRykbdspNOTxyupc6Quei8eofeITm6YJHOFoCeJoai+7G7 +a28ZPSnXUmqI/nUFns3/rZ3my0iAEAQ0j6ZA0oUr6n01AEOYStWDvLRJwRoK +/EdPWJLzbMs3SDUJyUP3g5nlh0BQKTksdM+UJ77ot6ZjCcEnHauDNOCVSwrF +nVPymHanrGI5hNsUw7JTXzvV72BKuvx0c98bKNvYEWlyhK496uwlhngnGspH +zvHiVZtJZrZ4N1VlNPzg5va91rHW+11wy1X6rAMEhRm/oIYwKJyGHaEwgXVV +n5VRGONENbw0x0t8qK7jFCdM2j5qTuWHGykszk560aEwVfhK23zJH6KF8NH1 +MPM/YklcCtRrkvvx8xVR3LR1l6/Vlpa3RgIQ11JxOTFW7Q/RyHnLN5bRoK8/ +Ti0JVHzoHMtv+U9fBr9FmBpPOQ0AnndLzl3aERtDSW1qmgFvX1QBHSEtRXWk +ZF5TAhG0Jfah39lLNnzZL6fDDYz8PJF6bgWDQT++2C4XX2Xo8x5jeYOS06xs +xoZ24CT/Cvbl5bfO8oajHmWuaoYGGOoEpcz/w4HRMUZamPgKWAZYCMtInCDf +Ro5bxPdUCpVEs5iDUZjrQyqANIwipOfGR5C9UjCTg6Jf9aAYDU/wNeMAt8Eh +oFtANI44un9hRBTkNfhhoK+CKMn3raOs8ZVWM7EE7KNDLp0P3mmyzPa8+NIw +Hw4N3pwUvXXh3JIn8iZFnQiKsPUb3rq9c89xvrrUNv6BLfnRRgrQ06FaGijA +sVOYemBydLH1JJnreZlGoI7w+/VUIv6SP3pX8lf8/pjD2bgjjp/Bs6mbPvWh +lcoslRGAJhvZPXCZxJD89WMde95Pp8/jQMuI/cPJmAiwJ5mgyn/e5CwmgypK +/ChzeERT7OtTfoTpopVP85LotGUTxHUqg/i4flo85GlloRGuDHfeoK1oJhJI +T1MQ/hhfJm0fNCv6Y424U48hGwXcqYYw+6Wh9xJLR28tE0O/ugQiGoehqX7N +Tv9aYWkjR8Sd8g9NkoTrqd+UqXFeyWNoVRONeImafsWc5kN+K+E/aqBku3Xv +3V9rIEDjK8ZsgwEq3aSv+WpKjeCzSREqoP4nJcBxotO077Vj5n/db0UZKdXF +1+Mc00nLIg2oHpR/XEaD5zsNpKpJawTWHD5eMnlQ5MKFkS9Wrtv28Ub0G7Kp +G3cAD2jGN8fX6jPy9GtuVrg1QPQqp4/q9ajQ1KkXj4A0skehah5C+FoSBqRR +MNKvZUi/0JFWWzzv09SvIncmWGnhxjXUr9n/eT9IbBaqz8HtiFMRRQi+YTxx +lF9mE/RrPF3Wpf1KR1+Jd0CSYWWKrHaU388MT7XR8EQJU8oFl63ZAgWopVFX +WBkF6G7TQIC0bF82pXHo3/hN0geaRaIeELXLKs8pZJTXVcebCmbVV6jYnMS/ +lJtKI6TNVeEu5n65Y4Z0cts6fFYgKfXZilOBYBrMsYN6lK8mvLEjZcBoiuIr +SxB9hd8vRNkxBZ/t/95cVW/W1ShJHpv2b5oGpIQiTZ4ZNGWkzfvR+gUIZaSx +OwP9wEvg0x6o8IWyzOppV0OUmNlOzQv0BftYUW8xgeJBIq36ae0rL/Jvq8mJ +8gj9ygQxDvxEI1F5H4ByPq/yb6ZoeAglf63A0aG7RtVr+lHvkVBTHJA0XROf +5+1O57K+JHJfyXJh+ZkzZ4ZXFisWctxxx2XnnHOOwoAv9qUkkkiRSpSoPqWs +Sx4G05ZRFCQto4kVL3GoK3OPA2iuYslmkBG573WfVv8yesR22rsnL4fdyC4q +4mSMw3viGPsnDfbTEtQPc15Tcjtt0pXiUdxFquptTh7NMdQYIvm3MkDUXZ03 +AB8azCoNdVCmWhVv13hbps65/ta0CmnFc6+bGu7TGCj6wOX2iG9lLat3NnRz +HzhA5b8MVTXGmgcSI3dSNITyC9yaDlTOifPCOEBVv/618LdCx8Ta1N6j//O5 +CizVE9XR0RE2uUlaNifO86paporL5aspttcnrKaNV52cIoNLliypwb6qtsIx +kumkuXLMM0n3kJEF2h8Mw9BKu36bd7r3rc4StxcbwKqgo2io+TyxQ3vdT3bJ +r3LsNHkJnZa+RgVlRF2W9rSMi1/qXKxWW2qh9CtjVKyj5BpFj2InmZtS1RKN +GmTAEBUl2ZSUk8ksQ155y9iDllfWq1xJQlmHQDbd0UPu7eNnQEaHNKz0mqJ9 +GuAhXpYek2iR8apjKh6XpNVICRhatVY6W3rQJxsZGoIoz0JntLjKB5lls+Yv +ywaePjI76r9GSSLFqI8IjewlsN8q04k9/vTTTxcGpbWHg6Ifbwnj62lxOZmk +Cy+8MIh1/Q9uVsAJIzgIYzMseDF8upeH+/2iGNwsyipodLijX5WILYMBsdvz +9U7PadrhNuTiG8Kz9U5ueJMJOHr5DLyJ1BQPl/Hm4WyHnWZpaRWCs+vqQ1aY +0hgr+uySPuqQkbWjUQGmwmvMvJBDKSkqR9KlpK+f9zjrmuakSpIqqWyS9VB/ +lFhbLG9CwqvbY5y1MFLiZU6esWPH0uCVHXvc8dk3Bn0nO3rQMarKqeSxVkkO +eEyRyuLbrqTs9ONNKjwm7U8hHK/CoJtvvjn87zCnnYI22LjiMY21hv495UWf +UERGEFQ8puAW97dKP5bB0ZzPyvpu2gNePx5yMRYtbCYBoktKXsNmVFeqtj2w +WcAIdSDJJLNaajVnrvZAANWZyPS2vXiFP1OWm2SbTEKzCmAt1foonivBpfBn +fWJRv3B01ccgC1KKXBVycqHrk4/6BLtDvq1ez6mpR3oP5r808lnn7gaLuPia +IVVtpDndIl+1SkrGl5S0aGljfJSGQYrfpBJVISXrTkpq5cqVkUGEOT6FfhXR +eGmk/kv8LmVOCLPJcJKoQrT1TJG2pSnSXkFDpXYZW/XEtj1ge/oZQwM8ts2w +VfrGMdyR1Esx/VQmwNgn8ZgEmAbztTmPSSDJhVOgZA9+RV7cIlkkTSeGUMIc +RhuYh7hCCkqei3QznQGSffJJxCnyKsSEeR1hnMiVvsEFyNIByFUc1EoywUGt +WuTyZ+SejL4rU1AqSWMITFy8zD+WpZFGg91oLRvdggATQYj56ISt3rA9mny9 +q4doChUtDs9ENp3500sDKJeMmll/eY+/VHXxhh6NBf5G4zImIhglLSVm0dQd +E1A5U/SL5r8kjMwmKUDx24GIV/981qAJL5lQmtUmZSx3WMxk5nEfZ0l1luqy +hJBx9zmN7BNHBM1dG9knrXquYp9WeeW3Ok2r2u/IUbNJZl1Hn1q0ob5Sv3Jd +TaMxUTUlJ0aVLFHyY1Jkaqd4pYNR1SJXBgbtds2MpDKULr3qFjeIpsd3U6Wx +PBMCeKL4ZSp+Z4Z3z5xFHq6RflJcwly+/r6tcoBkwyiiYRj3R5oY8grqKYak +b4kA5zduOS0keq0oW84weVUgULEgyTtx4sTgrLD1JHaaJMEZcVXVmFckteo0 +yIRr6gT4IzUkA2X7sa06cEbGsiFFxOCUESCUpd/zzMk2EQpfNUnR9+0lYPQR +FKYw9nfWaIb7PZMWxv2GNTY1RrlhDZJLynyVscZrncziOuWn5NLJRjrb7RC5 +cP1dksiI1YtRFIiQj6Z75bPJHrmwkTHSEUowRjr3F8YQ3cQAOudFxuhFMKvY +xFeke5q91zJg/Qp/hEYOoxNkZenMG5OUDS8iLC0DLh0apijMvv0HmKzepKyg +t4DBEIXZjrlB3L8M57T2DEqnb1/CyOUFZGrpKmMEyvYlYtRZITVh6uCQkB/J +c5eqyZAbYBS6rHG7edWDWa/1F7PGd1U8VjveqaNUTDopS9Ft0zsvKIEnzX0o +WobYky8x7fF1x/tXmCyqXopXFqG5ekrUo1omjq5ct62MAlMbcUpfe8LK5Aqu +GD27doKfHOlOeX+01Cg8JFZX1UeIboSnEOfQecH11q8KrTZs7jzBHyAFrct6 +lQgPTV+mCTrp1CMDoCU6PbJgxGrTVxIzrlf+CC9AQvtpfkh94GFZfjafRoi8 +wemVJaEs0Yn+vfR1wSCIm6/6F+QWkRnliYe2xq6gGMGuPjNkYe1kv6b9UtDL +oKuPErVdUGpEe1ZWk8Y11VHK6JZ3xnfl2elk6A5qLnixjQIMYEkuTEUuYEnX +msrvKrB8g390SvJWKlBkVJtiJKf4NUWcpbTSGZ2K16lgX7U4ZdMEkFDyDTQO +QyOU01G4Og66g8KaQtz35X5ZKpZWfeN1EKWoRuVMvUBUvXe6XQ1BIMowSb1Y +5VS/JiAUDtde4jcxvFzh+e2dXWWFWmgfxY3UXCabQIpd0+bBWY64Yp5i+u85 +cpKLOuY64kanlyeXIcWOXV3gzDgqbXgvcKa0TScRnBVEUW2NPcG7m9uCAyeA +ZVIzUlzWm/CWP61HyC5TwZbs92OHjuuTREJlBSt6HZY7ROjBoOk4BeTM/sYX +TAY0AhYO/GE5Lkd7txavP0mZw4RNBfZlaUEaJhCGUpNlcmeAbyPXhLUccU2I +LGPx38cmhNxpel44V+Izhdel8ZXs1X2SZDL/pfPE8VIMJm/7liz1+9RfwjW2 +USpImv/oJr0X6XfFMnpZWtkzGEhO9YkCLheU3NeSO+td+PrMeLw5heoMSu2A +amP+UBj0DxkW9ogAZG+5T4ZMFffRUa++74PkPgyekHHasL033EcDiKT//3Lf +//uwxDC02xG95T6VUVZxH0ax6k0ruI+XxlG1oVFyeSClMIx4664ybmresHVw +12I89ar6u5IBR043BZBmemOA0QOq0qFeIBpn2UxaFldOX29jhtdZJatwjUot +DWfg62nB9+6uGJShYH/+8o29AYz6PvWssnL63lpDvwowxompl43USfr2I2y9 +9L3I5iX0AjAcbbW9sXL6MrKzdS2sACzpS9n4Bl1oZ5vHASyF9xv3ApZFXuaq +UhZW5t1N0vJnV1CIlh29apPv1qejzI3uWvq64mGtQOrxQtTDC6uc/rOJlVDR +ZHPBTdMjVDCZnCCgujN5GUwvoApvm/WYl3njQEWXq3qoqqCii0zD/ICK2j35 +pUBFm6QCjxVQ8VZhjrWygICUzn+sAmlG8uKAwx1LefnJqyaAKn0B87DInQVY +RjjoN963IMJCpbdKmKtgIb6hiTbAQt2/9LVJTmCh2HrBik29oRAFEjIagIpZ +B6MeWNTjsNV7SHxqGm/mgP/UQVd29k2g9wIcLOiTho+P4NAjZJxbQaRGh3nX +nr0ARjREHaAAltLObJ6WgNW7TAfmvieLpyOtqmBLVVvHlk6+TimnKM0Gpi+s +uLA1YAVfmpXTmeJlgHGNM6sMON8lqKuUG1DFRgPjkwqoeFU71oVKtFk2nbNe +BVL68oSXOJbSxViaK+u6mFfVaQJkL6Aitzt6wpK4ctpVYzxaBRjSRFN3+Dod +hYEvuqMu5o3X5kT3BjAiwJJJrFwY3FUFGF0AehovaOElFnrZBdF6Mgwqps9b +UfuoXCHMUGcS/6RJk2p0hvuYfZ7XbGp/WRNzAUHaMiUdgHBVvYopb/4OK4AT +6TFVc/ENgv8SVhxlKR44Y8VTW/MYXr+Q2BKoAl+VGioWVWnvggULYnFycUZ8 +k4nzLdHrIYspGCDUJGlW1ioMrlgKii+AKxFYBZljKXoi4Xbu6iZeqdpkVTnv +378/prk1NUhpLv2vbK562dyFAlI6GeQ0TeiDVByue+XkSqTiTOXrp0WkVOKG +uASpZfVXh2szQUp5uQsuyE00kFJyXEUSKVLpqPAKpBjYhd8hdwaMMIlM0VRi +RNmByUf/bi7YSRGY+C3adEognebXrr322lDFm2KkrdNwpyyj+bbpVOzwcfC7 +pzSiRLpcUXBQomFfxn0VSulYXVCCmT0LVCwHUEkvKLXapBYjoCtOFsihvU3E +ReTSt6o1R66eztKvqUnKMqbMq8siJGM6gw3ktDfKEKfHasSIEfFYlU1ALpvK +U8AIu1JCAYwoGpdPWRSFPd5dAx5kwzXRGjzQO3IXczzqonD06NHh36r/RhT2 +TXComvVblu9owKs95OkS8wsoOXCq7CzbrHgteYk23yVhc9fEencbloV0GKNZ +V61aFWZOSy+p0EM6DM++1YzbXmAm44P+tCVPbga6QYnpVIUZ9owKsPgu/Yyy +ccAM+0jrDW8OVax5c2vkwcdWeQNSj5dr5618v8OpfZCAVssU1rSNe9PWXaiD +tPnL9F0vCEG3k16gwuJxtOHg0BMfCPG7HdMHKZgurbgJ0OLeuQqEFHhaobM7 +y3pBCvqVpZupP4plGybiB/m13+b8NBAfmcxQBzaKd1TVxTGIRtNF42sXtUK5 +bj4oPWyMy+vRsFLUmw3Wv+05VmCOJaTCKjDHvE0rxpnvoHqXXmCevvfyqY07 +wDz1d8H8tzoeiqCFumNwZEGbIhW5UKDNEAGNkqhAmwnB8SV389bWwFk17rp2 +w30LnoXdPvjRTYxIprfPT+4L/bIsaoxFs7IgALxgJ6Q3BGDshJCFAOnLZ4uH +/H9wqhL4pgHtbTu7wDclg0nhfy0Aq57fgG8aLgNLDo0OA1hiSygimLfq/y6m +HYF0mNrnVovpbMr7CF9L8jCLAp6VEdRyhxtfpGqG6wuSB8Z027ptUOC3P5KI +uTHYYnKmQP/qRBuDfhr56QX6qWAzHQj6aQezWQllw2u4hhmssQgAxiSBuugp +GBs79lTARqMQHqxWocAwLXGpj5gBFipwNBAdVFT/mxSWFcfz+Es6ewEOgq++ +eF31aSJb2fAPAOOEqXIWwEDFOa+ok5XyuLg1VAzxkKMMVDEbYlK+Cir6nxW3 +4ru4nvVJbI0vxm0JUv1dH/o1f4pXWeI7q86tOVSNo7JNivN1qsdkzAFY+p7j +XgCm48mopvnLN7JyjMGalqsCLI0/GPscyqr2F5mAOUs7gC0NqlXARvsSkXfF +Sw9N4E3ibWWwcY1qT+V4+XrqJe7c1Q1gqAS9kbsXgN2dMAQrF7Ki9YMIOERJ +VUfBSyo5K3odF3P2Uw+zJSz1I6O6VNsNcum8GUpNcmUzI4AKL/7SW2ZGqMhy +qWgPqOARe1xvoJKpwTaZiQxUnCT1w1ZBRfm3YiRART5uirHkp5PHQPSNW3Zd +HInu4NDDRIBDWXBgIYMsZmwOSz4GDKloz3tuyX5v3r4biNIRf3Z3BamAjV51 +mefAlhqZVbClFp2pZOoJEYApW6XvDL2kFVT5+xSwnUwhDkgemOjGMti4hq2t +2TEAhvdZf9dAWyhR1jXFKnsBWPqyk7lLOwBseeKH2S1VgKG0lK7n6+mg0pmL +NwBb+mK+Cth4zRfiXOgNKCyhuv16Hy6wYK1p5iSwUGygjTVdASypA9sSlvbQ +Sul+rMQx5jMpP6WBy/ruzvOvpymF7r37+TraRczKSyWIh2q4Yi8AC/XGg+OL +fliZkJTec1sF2P4kGrZw5dN8HYUlCQ5gqn7G0K8AjFcrkkaXMqYiLW0wMM+i +DDCuoUPSr6cvNTLJAGCIeGmmXgBG8lPtqkR4sT9UtVHWKAFUd3nOSpXv/QvX +5CLwBguYX/K9JUj521SQA6vWbyPayQHQ5J/mUNU9s4G5LZ0WxOqywse8+aQh +db25swI2+hHZdp3vvr6K5BbO0rxlGwNsYREgkgDAYjF/om8RUMPVcAaoVPib +dGwJVHuM+nuVfR+/TLZdl5u0vHBN7a66VYEV4uYUdUg+sZNprdKlEc8COKIH +r2syCUUwgQy1+fil1f3n+9fjYEojS+fubl50nr7CYdbiDUCUlhRc2pxUvLqc +CJIkgsHZlrKc03zRyqfzGYktgst9egSXJ0+enFeP2mlggJJ+SqYmlUVYIICk +kAbWBaNi8nIIQOORTE/jKAjAEFAVg/WCAJ3Jy5Zve2gJBMAsU0+ESfRAgMqg +cv8eQeXmM3j6Vb7DvSy8ONTBooTHRx7TDr4uyX4Z8/OqCgaiq9SgghTv9t0l +QuvSPtxjzEf/jxqq+OYxvlqr4DLCJm1b5iWvVW8vb06DASFFxnHSvBX9qPoI +FtEL+2yt4ktxZCe0JEJbYDYv+6y1O+ZhYK/f/l2/r1XIsTnmrUcYlMVhKGDk +RcM5ZPmfckfUbak7QBvpoiGJFWj/pX+UvDQsNnyJ93Vddxzr97WKLleh3Wr2 +R7gvyIuhzpGjkmG1GJxzl3UwGT99nWMFjvmrG/rEWWUKW4nX9bIuukB/29uZ +Fwrlwl0cqqogs3+YUc/EQFkIFZiN8o9ahX9bHcNmAxHKjmH4sywH6jDd4ntX +Gazt0bDOpJWqZv3fBJrKwGmPbmlmo5d1iJdpqlZQTD/Y79Q/qZcK/KZr/gF9 +J2v8ee3/Xk2v1v7ovwEsLc+u\ +\>", "ImageResolution" -> \ +96.],ExpressionUUID->"24eee5ea-c8f9-4063-9d36-9e38f4d71b1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"GraphicsRow", "[", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", + RowBox[{"\[ScriptCapitalF]sol", "[", + RowBox[{"[", "1", "]"}], "]"}]}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", + RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], "/.", + RowBox[{"{", + RowBox[{"B", "->", + RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", + RowBox[{ + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", + RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]", "}"}], "]"}]], "Input", + CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}}, CellLabel-> - "Out[687]=",ExpressionUUID->"e1e88a87-be5f-441c-a4ca-2f1bdaae916d"] + "(WOPR) In[193]:=",ExpressionUUID->"8b99e721-7bc5-4c63-b150-8946bb7d2007"], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03s4lHkbB/BxCKGtfZVXSKTkzSGnVMSNZEUqs0ohREjkVGEVyaGiCO2q +dWoGgzGZeZIi4acwiVChECrlkKZIxlLK3u8fzzXX5/p+7/v3u565HjWvYLqP +KI1GS8Hn/7+MjKXOvr4zxKIjfza+jk/aD+96/dZrhtTTz+vwLvDJd70kv0Me +MyS2eBFTxJFP9neIRjodwP6b2Tjl901kiezMdSs7tEjaFy3ZJhKV2N+noovz +Tp9riHcDcYpku78UConF+H8MDPTrSdxvIyP0KSGJHVNf3/qTEJ68enD7ZzRT +vjIhmxDpOzlnm0bRbYLuye468uDLFcbtXnTIN+tbu2uJbkD40JVaIaEJf3oI +91QTSfftvraJmNsxuJyMCiLfE6gXeQ4tuXXTdoMKokHP/FYcjX7K2Wr1/Dax +tvmQKhmODlcrjZC7TWJ1r1TyfXGfq0gjP+sWmf3ZJ7XDFi3H8TwQVUbGboRx +LGXQ5d5J9ax88s/KnFOhkmhu0sVHC0wi8WcTMMXQ/mcsuS5MsvaiQhdtfprQ +TDqtVskxiGdI3TwRoH+BqbWrskmPhfRu83a0LDO21TOdNL9lTpqko2np5bIf +bGDaYziAk4L2TNlxJsAV1AY1R5WS0Qz/7J4CH4jq4w3Mx6EthiPecsJAq7O2 +pe4k+smJH46S5yC1sbfQ6gBa6oK2b9MVqLZapXrbCf3evaeenwaj9Z7Z6o7o +2fcpsux0sKgdTRe3QyuuHXQ+ehWm7ghj+KboyZa0q88yYV/xrwftVqOjJoPM +HXIhbt2+rmol9LvPtSHL84BbcH2PlgI6JsDnUW8eSDBW28j+il5sffj4RgZU +XdcxbBdFHzAZNWQzQTl55xL6yFcSa37vVW1QIdhKpVx8OIQekJ+XaSiEU+ef +ihm+Rmtf2XhIngXtcc7f5HrQvQK2eDULzp72Ge1+/JXQZpS32AmLYCjw3IOD +Zehes7OVJmx4qLFOpZ+N/fL/zXlGs6HgTXOUexHmgu00CcKGI07LjLxvYM7s ++WEGpTBieqMoMB3zEaVX2w05wBdaiU2koHcPfC8+zoFi3ohHaDL25e50/yji +wFF13ZXh8WjGePQf8jdhXLr20tlT6KgS7UtjN6Gl0XNMJAzn4+WJs2IZcGLE +dyQEodUFmjL2ZRA4Zf/zoh/2Cw9XqbLL4HNvX0jGQTT9ksqAMxfar8a0Ld+P +7n8/fDeWCzyHNRuu0dGu9n4BJVwIeeD/LtsevUlM1X2aC19KZvexzNCJla2m +MTx47pVTvt4EzxvkfarJ5UG5ssXSUmO0svtmmRoehKVdaOZuxH7aiu+SQh7Q +7bTW6Wt/JRZBHz16JSkwFO84d1sT+2srGOnLKZiOkDetUkN/pL3W0KagS7/6 +mokKzteeeCeymYI7Hw9N1yjivM/3TlNLCjJZIo7w36+k3rWN3WlHQbgHq+yB +HObSLw42/07B/pU7pa2X4b6I3C4FNwo2dwp8+bKYy2hJNHpToJCS1mC7GO01 +1t18jIJZGyPV1kVopXgNjVAKemg9ZxxE8fxrbd194RTcqz7d2/FzisSy8mqG +T1OQdXK1Mf37FKmXobg7YimI0m3I6Ppnilj0no6ai6fAZcx3Yv805tEKHxbO +U2CaL72rd3KK0NLk6pyTKFB245a4fkKb2VcuJFMwv4K+aPAD7jfnX565REF/ +h/Cw5wjuO5w8aXKZgtqkv+uGhnBfYGhqK+Z5282UfF7jfNi8TDHOx/x4EzH6 +CvvO66SeXKTAvTKhy78H+/m6SlvxfAjV1Bd0oR1DXwjiKFDVepIS9Az7RLNx +OIYC2nDw+GQb5se2+a2JouDhTlrS+ha8z55UcbWTFCRw09a78zG/SNttfpwC +Gzk1/p8P0XMi5pE+FEhF3jrSWof3ORnb8ATfd0u/pZjofdyvkfBgK/4fly2f +M7dUoi34v9TaUrBU5usgi4fzpY23fuhR8DQ4Prqfg7nt8RN31SnI6JJTlivB +ffeMXM+soEA+z+hgLAPv81KBay/gQY9o0z93c9DcvodSLTzI8tuX+ek6Oqf+ +WyuLByr64Z0u6TjPnjbf48yDN39JhKWnYG7UoCGuw4P8b5nLmpMwT+kYLqHx +QKOx0mFTHOZlx6bZTC6MadoKAmIwV7r1ei6IC6UpPcn5UehEyReqJlzQcZ57 +tPQE9teqrul9jN/X/SRfm2B0X8XfbqllQKkqLooOQNODXbP3loHRuInVuDfO +Dzwv0m6/Cduiz9Q0OqEP7dxcd5MDP9/Kun7fiybhO83cOVBvkzun74D2F3QY +LeGA9bI64xs7cJ9DxzZf71KwL1ig/jDGXEbgUjZRArJSaXsoA7TKxPiTSyXQ +Hqj6eUQX+8y6ftl1JUA3ttRyWo/OE9t6b3cxuDyOY+kqYL9iws8gmgXKunLW +PsvRn+yf8WksGMwoGMpehk5ubBY5Vwhebo2rFy9Gh9DHVkcUgP/Eoqx3c19I +bNPN4+WbmbDBKXOL4swXQjOUVDLOY4CgSuPl3il03XwIh8aAkLjflteNo92d +8j6E5kLkiqTU66/QNXmpWSPXwDnGcHBpD9paZ5NEYiYYjw7oXOhCLxjLuyj+ +BcIqg7ZTbegxNQN3zQzoUhtQ/vQY7bHBcBcjDSqSLwQe4aM1C8eMlVIhzK1f +5neCNjlwrPHyBXBsOu/ach/d7+UbqJYAerr6HMsq9PR78W05sTCxkGindwsd +yb5WdDoM2o/qZRWXoSdX5ubF+UCFtqGT+E20ashZHWc3+BcTsKOd + "]], + LineBox[CompressedData[" +1:eJwV2Hc8VW8YAPATUkbIKJGZ0JIGkXQoGlJRiZBkNERZGVnXSFZCMkIuRSoh +ZDQ8F1nXuUZGiFyJ7NHW4Pf8/qnP9/O8z3jfc+6555KzuXLMnoMgCCX85/// +d/du6C96MAuEmdslB3k7WH81RPlvCprbPe2YHg1G93XXjcWjd8X5hIVFQH1+ +8EqbWHT455dO/DGQI65yvvsm+tid0qmvcXBuLIi7PhT91JxLZEkyWG/pDA5y +QN++ULb4Xw6Qd2ltc+dmgSbBvuXg9xikOTescbHFeOjVr7q/nkBfe0DVGUuM +33+dY9abB+Ze6xZpH8E4zV3z1aZC0BxoMyo2wHh0XjPRWQjiBv70DftnQSf5 +58N9PkXwTrKNlNBBZ+rs4HxdDCfA1//nFnRHQHCpdClsU1ZquqyC+Qn5l5wL +SkE4tlVqeD3GjyqxksgyaLVRfN2+BvsZe0e5nSyHI9wtf56JYbzcbsXw+Zdw +8PAab8e5GaBJB+TZrwXgPfuCN+n7DOhorVpVmgbAdDdOrZ6dAesilbnfPAww +TA0AibEZkN3+Y1TdjwFHxt8vbuiZAQbHKZN9ZpUguOCa+K1zBtg3j4c0RFVC +izDvOtk2rG8ivN2ZUQnGOzUMPRuxPv/UKq21VXAiPD5u7Su01MecvUNVIJq2 +QcG4DPvpXX5uLVINHQVVz32LsX5Lf0S1TjWc7JrpastFl5jtvphcDaeUDssE +pWF9vzCHO3vegFXN4twP/jNAPHQdUvCsAZnuVG1eH6yXvotLPqUG2BPbmtU8 +MX9mWVZ8RQ2cFbX5EnUF4y6SDwc5a8HOtkJDyxrr7a34bh9WCwqeJsxzlrif +haSPhjm1MBQxYRFnhm5QNXxRVwvnCiUCRo2w30L+StXFdXBxkWdNoi5ad+5e ++bU6WC8mYFqtjfW2xXVxJ9bBmHLWyJQmnl+ewtWRwjpwNGrj27cV16+T4rsy +WgeX0zcf+yaPjjRbX2RcD+7aIx+MuGaAPqIve1CoAUaj+o2jCZz/6598acUG +eFn2NDxxbhqs6bQFulYDRP+IMLk5Ng06+bo8BfYNsN1Vf9KLmgbascz3IiUN +IL18e9vXN9PAUON6cKmhAZYUyJdffj0N9BOWnF69DdAzuRBilzcNRFm/ZOEi +JtAuvlhtFIP1dpz8WH2ACQ5LH3E0hmH80N78rlNMOP4wcUQ/EPu3c3TmODBB +cci9WMt1GmTzRQ39I5lAWW82VDoxDezJx33CTCasNHvgM78S+z/5Hk3TagTi +Z9xZbyGcLzArI+NAI4zdCdz/bSnOI/tWPNykEV61WYmMzU0B45RI8tPLjWBz +dNWTjvdTILuoSub0vUYwnFoSa9SOcZGFrMpHjaB284dHI4WWtZGZLW6EpY1t +eypfT4GOZx1vEbMR8vZF9+SmY1xu+dbWr42QNOTLUEqaAlrGe1bKv0YIDLmU +nRkzBQRd2EFtCQUnqg64JgVOAT3XK+zdKgp+a3PyhthOAdtx7Z5Puyj41Ds7 +PW8xBdZ7fN9u06eA5cPu8D6B6z9NcZw8TAG9/HXGFX2sPyjyU+Q0BfvUvDQt +lLD+Oc2qwGsUOPTeDTSVxfnqYof/0CiIDn7dcHwV5idMnjG+QcG7Vg5zQz6s +vyQo5tZtCi5cvnlNe3oS6Lccnc4+piBKrKBKcwRtPf2mIp+CgldvedUHJoHo +efJurpiCOV7xFJW2SWBn3DTmBQoiHma+lCmdBBrn8tOprRTkHanhXF0wCTp+ +tubTHRS8/f75kPgjXP9gYK98DwWSept6hVImwZrtO6T8kQKd8aMKy+Jx/dwH +2X9DFNjFuTry3JwEWa+/RwpHKchll/5dFID9F0yCGDMUtNzo0Zv3nATGiPli +iW8UfFP5F/XbGetrFnqY/KRA22+P1FcbjPNUirv9o8BGwd5+2gLzd6yqMiFY +ENp44+n4CTQH7yFJThY0rWJpf9qH6z9pDh9dyoIvjOnrbBL382O3I/CyYMUF +4aZeDZx3hVO58DIWnCkxtepYj+u1PSPsl7Mg5PS17NY1aJVQP3sRFuRwpU2x +VuP5KSqvMBBjwcyxj/61AjifULRQlTgLRH9z1VUtwf1u3t5nIsECjQwlQSCw +X5Da2mZJFlgeMDB9OTcBOpfKV6tIsSBw2jG99MsEyFac++kqzYLshFufi8Yn +gIixH0mTYQFTu3BzwacJYP+yls+XZcHUp3bP3L4JsG4Ne5ctxwLhqJ+Q04lx ++9ua1+VZoL5NYmlW8wTer+BtsIYF5j27jDLqJ4Cu1l7/A+0feCYprRLrb1U0 +jVBgwX3lIHbyC5wn7c6JxWtZUN/8QDmhCPODYmfOoyc86pzjcnH9nLh5IVpI +eqwsOgud+Qo+obfX8C+KvIfzrKUfXUCbOW4+eCMR8zN8dnAossBX5FhscAz2 +l0x7MIlx+gv37oBwzB8Yra5EvzmbKOcbhPOP91f6o0eWvrjo5YP5GolMBTR/ +Qe8zd/cJoMlU8xTjvKqmC3POTjhvStHjjWiTebk9TuewftLJrmjc364/UgJv +rXCeg+JhTDwPhV+retRNsd/dKs0JPC++72LZKUcxbnZH/hue55fZ5a7EAezf +dNTzI55399Sy3fY66PCtjqV4PRjjPLxMDey/fJGaG16v6KFFmbfXYb+qpYJ0 +vL5XP/5z+iWH9QXOX1++Cq9v/5zmaQn0k/lkh5UsWN8926rIh/X+iNi24/2z +vHMyLZIT82WEvIfw/vr1dvTizJ9xoPnqz3wQZEEtNbDoxcQ4MH5HMiL5WPC0 +oY8lPYTxo1meJA8L4mu7k4P7xkFWjM+wl5sFNozWLYebxoG4uJvr7SIWzBdV +nmXnj4POc0d64Q8Khgpeb9LPwXy731uLv1JAPS2fe0QfB3py0n46ft7uPnwW +6xY7DtbN6zM1xijYkZJRye2G+XO2JZd7KZBOSrt56RLm72n7Xt9FAfed5FMt +ttifdpJLED//7dGxs8knsB4rSuUMiwLnoEC5TeoYn1u6WPQ1BTkXzwYenxsD +mkOB5GwSBbfOnT5cNjsGDD4ZG4l4CjxsT62SGhsDurlY25ZbFOidNn423DMG +xDblyg3XKWAb6Q54vxoDnV9JCUedKVilIadLD8D1aXO33PdSsFPb+Eqo1xiw +69Klv2tTYLknMM3RBfu1qc+c18DnqeHAnIYt2ja0UmETBcpnMwpb92E+l3TX +PzEK1CPkFDgFsH7yszV7hxrhRK/cknOpo0CcocxfXWsEjwFjNcM76MEk/SI3 +fP4PB9pujUZf2GeU7tgI72cGYD5gFGjP9VeaWuH3zeJMr0TbUWAnlWTu120E +FxX5sfr1o8CQVJjXXtwI0TR51obyEbBu2bucK5QJ4v+EK9QKR4DIP7V0yo8J +md6c+eSTEZD1TWQ2X2VCieunmONpaP7dM9fsmfDBLvuETyA6RsLbRY8Jmw6u +72UeHAF20fT8BIHfn8u3jl/s+Qz0N4svX3dvAL77ujw5f4aBbVkyp3GwHnap +l2jpiw+BjousbmQwvu90bfyz02QQCCG3vJaaKigZ+1Vg7DgAjL0J9Q5RAI/z +ajYVivcDTfvj5YK35XAoK03ENfk9ME6+49heVwwmfrLDbk3vgMgzt9YPzocq +14dvFfXa8fq9Hkjd8BCkd/JnN21vB9rpJ3Q2z0PwXuTi7bEWLdDdrzmSDaox +O2VruXH9pU7uTVnZkPaU5WTf0IbvN4f4V8pmg9fI16UPjrQBrWP4GodEFmyy +0iHlTr0FWrEEh7f0fUg62P1E8nILEE33Zx+/uwdvFiq4+M6gX685F0a/B9PP +H5z+fRQ99fLG7Yv3YJ+8s2D3FvSSZL5tf9Ng7Puy4Y3jzUDobX6QtCYN7ptd +dJf/3YTXn32C1ycFVkjLxi7D5zrB43542DAJnCLG90zMUUCUHFgUL5kEb36U +fGO+R0u2C7iMJYJb82GzsHS0Z+SF8rBEaKH5yHAqoUOjnULqEiB8sPPpLzV8 +j3Fo1hM4cgf+5txkDh5vAEKw68iegDjYrb5ucf0OdF5yeNfJOKBVvyFzJdGv +Vmsmq8TB4g9/it0H64F4nCR+90MsCIg4pC92Q/va1N7ViQVZv33uSnF1QLQ8 +lkvH3yf6xgtSl1pqgLgse/tdeCSEfbhrdrQYrXekmrE3EpiX1G9vS0Jnmrwj +5iPgSKjT0r9n/o+//HTdLQLMXr7/EjX9BgiJzwpZNuHgsLasLk8AHUXz1DO+ +AdFzzi5fDKuAUE+WtnMOht4+l5deKuiYkcrDqsGwrsp18YIgOozwTZ8JgjcR +7sl8bZVAEDouPq5B8FvSq1LhFDrvN8dKn0A4vztguak9A4heWa42MgCK5WkW +ffvQso8nSyh/4FgSmGWrjGa0tDqa+8NO3D27E/D96933I15+8LCSv1p4sAKt +Gz/92gdo3JK2nn9eAWG9rbTM2Qskm1f/DK5Af/On1fN6QUmidGRMIHp1/fsn +WZ4woSxf9GgJ+u9E9mSfB5w6tI6zV+QlrleTsDa7CltjdtzX2ViO+/GQFr3q +Cp9WnRjkOf0c60t5J6Q6gInCjzA5BXTX+KN+QQeoVUlS0RwvBsJIQvVeyEV4 +tLfX+4L3/47I9XG9AJed7ITq7hQBUWBl9/LMOZhjuGuHND1Df6m1o9mAQ+OK +wZQ7/7u6UZDPBno7ysKKLP/346otiWehYuxv28exAiDYFoM9RdYQLHrdQXcJ +2ojVHPbvNEi2rN/8LyAXrwflJ1BiCvOfLl/bKIAWOrPH9PdJYM8V1likPsH8 +ZxExuiche42W5Yuyx7ifJM2OrhOg6nko3HM2B+sJf3u8/hi+b9xqzw5AC/lX ++IQaw3d6m0znsv+9bc3uISN4wbQo2b7+IdYb8VA1PQr60o6DszZZQOhw8BuU +GoDytgIVudkH+Ht2JR//vYPAe+Cbt1EAmt0rUxRxAFpcfIXyU+5j/1C7Z1f3 +gXlNlLZjewZe/zsC7nF7YFdPS1iKDZqd52mXowsy06LtzBk61u+P1HqjA5/E +0xzWLUPTYtt2Se6Gvi7zzazIVPT2o55NOyB7elbqQW4K3j/D9MXW6uDMHc7v +w7qL96Ponqm/24Fje+mosmAyxtsCms22QqPBka6FzUkYd0urX7kF4s8O1XYa +JaINVu18sxkUb4k8CIm7g/58+9mWDTCd9TjOoige+7kIBvKug7JXuoFb229j +nJpY+lsRDMauWLHF4tAsi71Sa0Bk0ZLDpeqxaL7HP4zkoHflPa1o0xh0RHad +ugx8iEja4rX1JlqV6BkRB+eyWgFF90i0gpYI9wrgGP423vY8HH3jdpWRCMSL +rGkI/Hnj//ybI/VCoKRrnL1ZMxRtdZCvjx/KLwcE910LQSclbg9eCodSn1pH +vgpC8/ccDuGCvob32przNHRVmymbgP4pEfWmAH90jmO2yp8KLgPnmXWcPmhZ +vcBj3yuUs6jH10M90b2HdDfOVBgS6+wHeNzR4vNNnp8rnC2uy2jfdEaXOY5y +sCvWOVUXbZFzQDvfy/7aVuG6xld5VMkWTVPd4VpT4VF0cafuaTM0Q6HJ7FmF +kE7JfusOPTQh+v10eMX2lJQ7S8iNJJp+38i0ooN7D4/rNeP/PVjck1Ghd7dF +htPpDJrxiKv3VUV3wmZJZv45tM7ze6JNFTFsj2zhR07/O5983l2hINaftMnY +Ff1LcCRlsIJ4EfShlXUVXcC/UD9e8d5KUcHDwBvtlT5b8KWihJN5UaLOF61x +8eC2XxUH20tM++VoaKrz+qX5itLssGtb2IFoq963uRyw1ts8LfheMNrxQ5s/ +N8Qd2sjosLyOXr+j5gkvENLzH5Ukb6DfSmRvE4TeqgxlKjECHeu/6rEoGNxx +OyR9MgrdEHrZYyWUnde/7CwajVY7p+ksAQah305F1MeQBC1YZaWHLAReOX2p +6GEs+mvKhh3yUGZW69sbGof2LpsTUIC1G5LSVfTj0f5xlRzKYCm66Jmpwh00 +560X0ush7t/FKhpnAtbPKrtkvBG/R7SG3lYmYrzS+ZqfKvS696/33J2Cluoz +yFeD8iypyluqqSTBGM3V37EDEjotTHPk09ArIJXSgKMaXcHd3Om4XkvLSmYX +DPhdmEo7n0ESOlrTsYW6YJRwQ/MxG80WXv7nyR6oyMsOKTmVif1jXgvl7oW7 +/Z8kmg/dR4c26TD04YTu2f2EahbWX6/wVMMAqk7R4vgfoYmAObfzh0DVNb1P +XD6bJGT32wylGsKy+31uW0Qf4vrujlrJo1DLZU63+ZVDEgU98hXbj4Fm/bG5 +N4xcXG+zTl3eDHLYLnqtmk9xPjPV3ikzWDEXc6uvEB2j/6u94hR8Wde89seD +PJJQ3SpQccECOmvWPrqtV0ASRq//XfhkBbeUMjveKBeSBF3Y5pq2LdQWbflj +YI9myMeZVtjCPFkp25qBzrnn26tjB45m7Et9EkUkUfaJp8/AHg6ES3P84C8m +CTOL/Oeu54Fj/K6K0uxzknB+qvJouSPYqkXsyVxXQhJLT10IzXSENwHeJ6Vs +0Mpy7LfbnSBU1MxfpA09YiJWfvoy8O4Wa1ooLiWJCefHFtbOIBx7y6nLq5wk +vNqWFwy5gtyOkNxw4jXurz1B29sLggLdGFya6LI7HIFdXvCx0aY9wAXN3zTr +reEND6x1/179iLZctSzqtzcoR8wfsnlTgedfK7j5hg8kXX51VUqPgedhFWFV +5Q/0SnWxH0uqSKLQtmi4PwhqBBtuxSqibQ6pMmSCYey0Be8mfbTzmnwO62BQ ++x2wYBuEPnLXvWogGJhbG0Zb/6LDyHMbxkLg632Liqez1SQhoVMTL3AD9oXS +ztu/ryGJKqknR7Ii4VK78EfiN5r+XE/5SyTEyGdZporXkkTEn/ILZBS8r2gw +bjNBj+wZl3ofBc4/hXfptqDjthiaroyGuxeyhKRq6kiif+fZa8YxMGnALG/P +ayCJo37Sazlvg+tL83UDFPrOaUuJzbfhx4bxpMmx/+POY6QFPueX8XtxKzFJ +ovRXo2TxbRBuPqyukY7+suAqdiEeNI63FqbcaiSJ3MJ47u47EGLR9cTGmUUS +Yhv33vqQBALqX4/8SmohiVBaT+DVdHh/+njVn2z0jfJ4x0fpkHO9SG2hGP3T +P8m/Lx10O9xWc7ei85IV+dfQwd3926gITytJpApHx0TR4X3h95DN3uhQzne7 +bTMgZ/OvF+dOvSVpPk+9F8vch73r/il2rGonCTKXUduUDYJalsLOw+9IQkRi +uSvkg9fm0sFTru9JmnzRlumYYmi90nnCZuIDSSi8aKiLKQfr81mOoqcGSFqZ +l2OkEYBSWJ9cuuQgSTTlTylcqgJNDQZ7KdcQSauuXHbXrgbudtOFJahhUtby +bH4ydz2UfXoYv6JtmGSbb+V2EaqHjum8FSI9wyTDdrZkr0Q9CHG/luAfGSaJ +p9xzPZvq4frWbvl5zs8kfedSRvOJenCOXL7to9ZnUrZWdVN9Rj3s0w46/vgJ +usdkIR3fo+0OhHdkF34m2fzS8Y06DRB4PMb0fvlnkiEi/nfmYAO8unjPIrXu +M6kj4yW0zrIBtiS8sI0e/EzSKtrfGtIaYPX0FzdXyRGSvruNcbKuAb7SbeN3 +Ro6QhDGPtZARE46cjI1rihsh2QadDwROMSGHD2Js7qK1ToZw2jDBykPiZsQj +XP83parFjQn1h1qv99ShD19d+JHAhNQfuz2vcY2SsjxVStbvmaBvKGH+wm+U +ZGeNufFZNgJ90QGzI9dHSR2JPvsi20b4XXL15MeoUZKedXLd0UuNUCDXeow3 +FeNRmZVn8feqxM8bh8xfYH7Udc+ZxEaYyvi+6/cPtEaMfVpLIyT+bJHZibeq +7KLqOY8dFJQ8YL409BwjaRmKXQT+fu40fmN6xn+MpOflrfLbQ8GK3NJbIVFj +pDVrzVnDwxQkWN9baMpBb762fa8NBfENl/ptB9BuT0evhVNQ7GHv4zEyRrKD +5qukoyloX3NmZfg0+uy4SVEcBSL+x47m/UN32+zIS6Egbqsm/Fo1TuqMJLz5 +nEtBTAp3+s1j46R1yWVVI4qCggOEFv3UOElf2DE520xBy/e5zkLrcZKx2OV6 +UBsFgkaTAl2Xx0nZa1H1V3ooiOZq95ePxPXE8DLPzxTkPWNJqMWNk4S4+eqo +MQqarOpK9idjfrMVcWuSAoHyF1OOD8dJ2oha5emvFNx0yrAqrcZ6ypFnJOcp +yJVI+d3AHCfZsSyTFIIFVF18Qm8rzquTybuUkwX88mFNi9iYPyQs83AJCzY2 +BzqIfkbzeal187DA0NeHW2kK+80veP7kY0FU5+Xdhn9xf3+ejv8UZEFu8IUe +K84J0tpasbV7OdZXtfFw4Z0gacftDj0UYQFfpElegvgEyRA+Ysv1/9+TNI4a +PJKZIInx54W38XepwdCB4ZeKEyT92KnfyyRYEEHukh7YPkGyn4i9rVrNgs8J +luqRuzBf85/1CmkW6E35HlHTmyB1Og/7GMmwIEM/7Vz/IYxrG084y7JgPvW1 +f/hx9PpWf085Flh860vYZoH1o8X+2cqzoOzQfF6fDeYzPqqqr2GB2H3puhsO +OH+W5+Ak2vX37v4trjhfc2Tf/39fbDY+8/O9N8ZvHf7MvxbP51GAYGggerF1 +vRs6nKArqYbjvHLd+wE9bMoge2IwnkZunEbvzWebhiRhvbEwLU5FFtC5Fzmr +0HH9ipVafzD+77RcWNdDdG7JdCfa/LkuPSgf8/1TpRLQpfw2ZRtL0ZdswzTQ +onZBLZ0VWE+a9+trnM/lZeYIrRbPu3xGRhHdJFxNbGjC/ft2tjjjfjY4DIp3 +dOB683e1abj/sErOLQF9eB5BF6ty8XyGxBUOrhvC/iPmwWl4fnuc9c62TUyQ +sk+b6q/g+abX2Xn7fcP+YTuN1+D5/5W+Hqv0F+PSdj2leH1OeWQ9auWcJK0P +W8ltkmRBCaum0odvkmScC/0YtIoFImuHu9eKTJI0y8DuMrz+zr7cX5olJkn2 +gEZlkxgL1m3YL6+wHvPdmAbJeP+EBp3f2bRlkqQPFlsdxvvrY/eNY16aWM/b +Yz+bnwWpYfVB1IFJUrZikVsG3q9z/SN3PYywXneoXDMXC07u4CmSNZskCc3j +vj2LWCA0fHDQ/Tz2t1q6OPwPBU7aDn+kr2A/9njihl8UMOMjRBo8cH0jV8bj +bxSE7G3cKxWK8cX/Onbh5+sX3fBBzQPMDxp8l9NLgckvx1dXctFN/psVuygo +PHqzfVUx5s8M2fnh59lxnsV1uRrnlfvDU9ZAAdviqP2Kjxg/cf/8iWIKtIuu ++DFG0U4i/Ql5FNzljbnjMIv70X5xqiCHghPlLTUVxBRJdN3vOJdKQf2KY4rn +ZaZInbKHy94FUvD6xzOfScUpknbwiuLINezfubzVTWWKpG9Mf97kRkFqQqsP +TRvzr3dkSNhTcGWFcWuyBcYvRBhn6lNg96NAUdZ2ipR10q89js9Ls04h32wH +rGdnYvtuOwV7EloUi7wxv0znxPE1+PxcYeRLJWJ/ibWXls83At+P/NZj6bh+ +VWLo/m+NQHQKKnVnY5yrarXhWCOM3mluHXqO8ZjcqoqORngldlRpoQ3jqf0t +Wo8bwVbsyNstQtMkUXfGXepgI5h9f6pUthKtW3X6r1YjGHYs89stM03SGtQ4 +MlQaQf0OS+mQyjTJXv96XkOkEXjFDvvZGeL6avW62G4mLHzLfTt2HNeH19+N +YjLhWzu/sosFxnMiR/e/ZEJfPPXWzwG9S2vNvxQmFIgaKieGTZP0tVHBh82Z +kPXtiZ9UzDTJyBCs3HGQCXfb+druJ6IrP/v07mBCSHyjX0E21o9vWXdMlAmm +oofaGt7gPO067Z0NDbDAs5b0J2ZIYskTIx/FBuj9/qKM4EJf/VMpJdwALwaM +tgYvmSF1/CaaPf7Vg3u579owgRl8PvNsP9hWDyMX2vniVs/g+0z9fhOfemip +C+7K0pgh6VSc+sZXdfC0aNUx5V1Yr95a8k1mHUSk5zc+Jmfw/WKxCkd4Heh5 +vq/I3zdDWsuUzV06UQdlituyyk9gvfcSrm+Ha4F+/aMLyxnrOf4UK/5VA34u +XuNH3XEekcPV/N01YH5awP6tJ87TVBb6rawGRNV2mr3zx7iMob6DZw2EfYrd +PRCF/Ru+vn0x9QZc9uryfc/B9daZPko11XBk87sQz1zsv1VwX0haNWyUdJqf +y8f5RG/8PXy1Goa/JM3Ol+A8Wg9cpdZUg3nmzLulNVhPQvK7pWcV7FlEf7B6 +YIZkywveT1hgwO49B3vHPmH9lkeC/A0M0Az+IlI+gm67L3knlgGqi/WDTWZw +vUVpf6MMA2R4xs5GL2C9F4Muh6wrQMLgdrIl5yypM3z9z9rB17Aiclfr+iWz +JO1A8Zk3tq9BYNktnToB9Orf2cJWr+Cv0HYZQnqWJKLJzXpqL+CXcd/JJjmM +a8WN3HpQDl/jQqNT16JbjdbLLC+HMdHufxqbsP7A7VkYKIVucf9el12zJCPB +5AvHmedQIlufPGiO9c7nP6l1z4fCsy6tz6wwP5gvlJh4Ck8zJXhoNui4QV/S +MhceKDh5rXZAv9dnZik/gtvKwqYm3ug/m0/O+2dC9MWX0Wv80EtbP6hRdIh4 +bFc7S8P6XixmxNZ7ELSxVC067P9+3YM7ryWCv5O1k2UUmpMznb09HrzzeLLW +x6BDNbSUeWLBWdVStC4RbR5VemFXKDi6LDa8k4L+5NdT0UqD84V5wbbp6KVX +lOtcPEEsjGv3g2w0PWL28y0T+A/H9QoF + "]], LineBox[CompressedData[" +1:eJwV0nk8lHkcB/Ch1hFKyhFJaSUkxcqI+koluUZF2hzJ1UZKCQk5doQi98hs +uQ0zYR4qpONxF1uOyNmBhEpumrTYb3/M63m9X5/P7/Mcr9nkdOGoKz+FQonB +36/rzS6R+zOFk0CZ2Dc/3uUG5lRWK7UUHWnOU5YIAmN/mrBgBdpAoF3NOQwO +VPAM3jxFO4yf8NhwHfT1TYmLdeg4A7ozxICqwcQtTjv6QBPr4dZkEAoKlqR2 +oX1KKseSGDD0aOWdul509tKL+e8pkK2lzu4bQFPMO2qymbBe2b1GahL9TqHV +PzUd5p1/HM6ZQdf86fztdAZ0ZUS27ORNQkhNgULYdAYky+a9M1vC/D2nTEs0 +C1auHPweJjYFFKVx+oxkDoyaeF8TXz0FId8Il1txOdAYwf9b2lq0lL+4slAu +RPBtkngkh322hkv8WC5QZu23jatgzul0aErNg/c7v5UEqqOdk4+OLOTBk/OB +uit2oj/6trqfygf/EaaREhVN+L1ql2XDVG+no60R7nH18o5f5kCLzJnhkcOY +77q71FrLgSLrOU9fc3RtitqyNffAo3ltQLwVupPJzsu/ByaiOXwKJ/B8veQ9 +1Yl7sPWwVmSBLTrE41OYdgEMVh9Jfu6Efd+WxuZHBVC91Cdn7YaGD7TXvALI +0PfKGjiL/U/F9XXahWBfeou74IVO/yKZyi6EDva/DVrB2BcbNGX6F8GDoZOW +VWHovZrNTflFkLD5S4fFdeyL0oQ3dxQB7a7Q4NkY9JcmDVDjwvaeFPfvcWiH +SvHVx7ggKq08SU/C82dkkqT8ufAi7uBi+j9o23rZZpILrFftdPV07Fvf33yz +jwv0FS4ij7PQDL230UtccDo0HW/MmoLKKXfDcysJ2EcPk+lgowujFXXXE7Cx +anW6cyHubTOT0lAhYHEhQ2mS+PW9u9ZZahNQ4UdqipajB12F5UwJGLwy1hnx +GPdr+RdTrQhYeVU+aBmJuY5N0DF7AqgBZorB1bh/beGPw64EOAcGPJ+vw3yq +tiHwHAG3gjjnfBswN/7eOX6JgPJr3aunXmK+wJzOvkLAQLBQmWcLWvp+PjOI +ANFQHbvPbdi3CAx4E0rArjA3PtfOKTBozBuxDifA8e9kVl8P9qMTXeUjCbhB +rzW1e4/P9yDEUf0GAQ/Cpyc6+7Gf+Nwg4iYB768rMo59wnxA+My2aAKEIo/o +NY/g/rST+ga0ZlRIn8koWp0xbI99+xvc8Ppx7JN6H0ejCIi8+V7VcBr3Sr6e +eRlBQEm0WMvTOby/95myBToBb2P0fXTnsd9SJRaGzysQ6yH7cAH34sMzT+L7 +7Ihjkjv4psGguCc7Et/3ZHyDS8HyaQg5yDEQ8yaAnsAT3io0DZVqVWmf8XsV +JSpzs0XQ9MkPG9wI6Eo6bqWwCvvLtDYVORDAzwj/wZSYBopm9dXbxwnYlvIg +TUoK91P3Uj6YE2Bz++P+hHXoheeVYQcICEuV+Cwmj+ejZJ/TdxNQwNx3K2oj +nt/KWTekQQDlbnpXiDL2Y+n5jTIEqKY1Bf2niv3TOu9oogRYpS8oXtmOVrBM +81rkAjvT1vOCNtrA3MmzngvtWTckvlLR4h5zd/K5sJj9qMxNH/fjHDyZUVw4 +ypLmd9iPuXzABgFjLgTmGeV1G6HtqW/8lPD/nO9jZm2CfQL+esbHhXlOG8Ps +COaq3DctpUWQzY1V0zuFeZmmHXVNETQRz1pKndBuIcS14ULgFX/z0XTDfo9l +AauiEMwemFaqeGJOG03OtC+EmXJBa5kAdAZ9yoNRAEbVwddmGWjtTLmodg7E +ylT3P2Gi79i6/JnAga7zyw/S03AvrsNhyoIDZ+WiRNawfjmNSa9lQ/TlhNs7 +HmI/5pWbVWY+vN6SW+LRhrnHgOpHRRbIBQ1LanWiL4ltGXuVCy5tKv7zPdiv +t/To8suF2eAiiBrAvEZ5gPYiB2S6y16yJtFNoWLfbLPB4WbjUP+qGaBIaQ2P +WGRAXr+oCXsN2jFRZbIlHSZ0aIVe0ujJXtMZvnQIHWzzXtqAFjhkUWR/F3L2 +vKPIb0czgvpV/0uFL+PjsifM0AWGQ5TOBPCzkqQ1RaIJgX99I/6CLNYePuto +NKWBO1bsCE081/u9seiQgKTItCPw+91S6c8MtMHEbvAxI19/sulblovOSAzV +bPAmt/sxL+pWoWc+JPI9ukEOpiok5fxAr5A6OGSXToqPHjJSW0BvaaPNHsgg +9fZ68Yops0BRLFSlvs0gEwYq7UhBdO1jvkXRLBLUnJR6JNEBJySD/HJI5pOc +0lWa6B8nng5cYJOWH1S6r7rPQsgYKzB7tpiU990U4X4ebbicmXm8hPwiuk77 +5CX0XO2eVeUlZPhuoXjdq2iHYRFq4H2yInnImBeF1tkVUS78kPzdLLvch437 +MS5l+rrlJK98/W2vEXRWQ2veyDOyjrbWyHEU+8bmsfI2JJkwJDJDm8D8gpXF +zzqSVF/7k6bBQzd1LPgerSSdLnQLjgnOQSXjosobrSrypRLDz0N5Dii+E0Iq +lBoy9UmMkq0a5ja9rSm7a0i3Y+FtJhpzYNAr/puuTw3JF3pZQ1UHPelvIvG1 +htz19ujwiNEchJD3KuS7a8ll3ibJXSa4V0fdKy9ZR7YIG+5/YYE+vcfL4kgd +6aGzMz3vOPpUAv1gYx1JbdpqnnISXUDoigjWkwKuG39ed8C98n5D/gP1ZNtP +abavEz6P3VCUamg9mZGwysbNDe/fnMX7+1k9+T8biWwf + "]]}, + Annotation[#, "Charting`Private`Tag$724199#1"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.5000000000000284, 0.5}, {0.5000000000000284, + 0.5000000000000284}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.4, 1.4}, {-0.22772255331967983`, 0.06463974354335722}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {159.94490842698494, -97.50736892665738}, + ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506168}], + InsetBox[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwtmXc8lf/7x5UWGqjMUlZDoRQZ6bJT2ZtKisooycgqomSVUFkRGihayo4r +DUVW5jnnNs8yDjJyGnz0u7+Px++v+/F83O9xXe/36xr345Y+dcHq9GIeHp4P +i3h4/vfMSV5jf+YMF1WYD6Y4IxxoPmnSP3iKi0FKMsoqzRyY2xV79vgJLual +Qu21Yg7YtSwOsnHg4tPKTYRxKAdWreSm6R3momnDsSKnVRwIieqhSSlxUffn +ufmMPaNgE/TUuXt2FpMkTopcjRmG5c76Z4yjZnHVjdliT2sWfB3MndRM+olX +VZql97J6gX4uotbx+Qw2+G317XRsBx7WhdHJpml0NPrcdvfSJwhaH5uQRkxh +i3fEhXdyGXDIVDb43J9JrFxTeV/n51vkP1nJnzY7iVflpJznT5Zgg79l5sep +SeSZn9HxaClBk8xwlBidxO/HjpbYPS1FMw6xtJ42iR3uhZciHcvRJvZusvy7 +SVzhE2qgVFiFzp+XFvWFTeKqJz/XKPPXor/2cJ/FkkmUjKvlU1j0BUdu9lsm +8EyiSMPKp48Vv2BV+fPY1D8/UO34gZQ5xy+YwI2zvTX6A4teBoUdKP6Ce30N +x4Maf+C/NsVr4ie/4lWPyg0WiT9wR5OG/s7yehR1eBy6IPoDrxqtfsNr0ohG +qkEaR7dOYPJ4Rq36jVb07MmIsN88gVVFhtd+pLRiwrXqemvxCbR+oFKWmt+K +3d8XO5kIkPza/Pq7r63o7n0rRPvHODY+mhVz4P+OcfkPqzaVjaNlnYsdLe47 +Nos3aTONxrGnvfKcXEQbTr//ETUA45j5ixsomNiGIu7CzT3q4zhmJOAx8aAN +T5TaO3cqjOPei3ICV9+14aQVPaxu9ThOOwy/+cttQ+Gbv7CgawzD9j2vtvBo +R9sFab3zZ8ZwMDqfmqbfgfvnNq5ucx7Dhb571UzLDpT7LU5Tsx9Db1/Ru5td +OnB6SsiXx3gM74uK73C/3IEJrEUP72wfw70LnKv73nZgXePgosoxDooOf6un +be7Effdza5f5cTDH2LTEeqITpdKybnl5cXDf27/v8/524rJ76Y6trhxU0Jiz +GF3WhR0JSVPpNhwMebRJUH9TF/pERkgrqnFQao1QnJZ5FxZ4nIyw/jOKFy9/ +dDMp6kJxdWndnPBR3MjYcW7V0W7U1La8cCNoFC9ncma+unXjMb2IrHMXR3FH +78HQQO9uzDEZ/KPuOoq+HjGpzyO6cdvJ3OLvRqPoEbj4fFh+N6rFScvxrh7F +u39kPpRMdqNNj/TyM5kjuNsjHu8GU/DSoKWqyb0RVDMOtSuLoGAaO8JVJWEE +g9DqVFMsBYnJQVwIH0HLBfuh9nQKnlr6MCjVdQSHLQVXHamg4EUlmdGvCiM4 +5+/6hzlLwYSrMk07KobR/cfJ/oHTVBT7T7hGtXgY54wtVzmco+LDYN6XUDiM +01GOWR99qVjqy0y0zhrGnyc8pwLDqdjnlmcTGjGMB8zC6m3TqKh4SKGn4dAw +5ifHqI98Icd/lmjq0BtGs5WrZAuaqKijJ1DTpzWMOma+eUfbqWijNZY9rTiM +UQU3o3L6qHhZ8YWrhPAwhi8rX/LwJxUbhVQ4HrQhzI3QWBItRUO7BJkev/Yh +fMXbI5IkS8MB/rVNVxqHUPnesj+3t9HwJ+/PF0k1Q7hgka5xToWGG7glvhUP +h/CL6F6BbEManqNp/F3hNYT+dU2cSQ8acu0UOMJuQ7jkvVDiIW8aXm2X6Nlw +fAilVpzWTPWl4d3Guepd5kM4ztP9QiiUhu9qqiMc9gxhu8yuS9fiaSjwSJev +YI6N95ffCjr+jIYOAQJhEj/Z+DsywMX+BQ0fH+ycvjnGRmWBhkyDYhoeGHPv +udjLxreGQnJ/Kmjoq5r4UgvZqL81it3wlYa43EnuRRkbjf9ocU400nAlTTZ9 +8ys2UuNXnx1uoeGTsLLIpblsXHhytLO9i4aUL322LZFsHHfsXbqeSUP5jIIG +3VA2xi+p2m80RK5/zhfe+rExPMFxldcoaa/Qsu3pbmwsf73t1u1J0h4nxflT +RmwcVVC5ajBP2jsW+pDLx8bF6yLmTwoROFVjKOqxmI08n053Na8l8EDSmpvE +XxY26andVhYhsFv1UcB7DgtlP/W/aJQgkD+8wTiuiYXlN5Q3XZIl0N7ybvX8 +ZxYmXzHziJQn8LGss8qFGhaqmPS/jdxKoPbXKUmblyzc4ZNy8sQOAn2ExH9s +TGLh7VmhuFgVAqsZdNfEWBY6jwQ6qO0l1y8toiyOZOGd9G+Hu1UJfOSk82HI +l4U0ucCiWXUCJ3fy73PyYuF9kXNyfpoE7v/XXtjoykL96ZjvTC0Cux6dvffa +hoWGvb49jw8QKHtpN7+cKQsFPxF6M0DubzwXlmLIwjL9xz9UdQnkG09wD1Vj +YfTyOMU0fQLt0KF3XImFmSzdL2UGBD5MkrFy2crCqMSE8m+G5H5qpVqGYiyU +bhZ/03qQwE+Cb4U1hFiY17yMp9iYwCOc1yM7+VmYX2+iGnuIQKec56nr5pmo +Kk6cET9CID2k0HvFLBNTKVKebSR72D41nB9n4g73YtcIEwKD+J/MMPqZ+Ca6 +5mCtKYE8rIcN3RQmFt/brWFlRmA05uR++87EpT4jSlSSV2c8CMIGJi5b6brT +zpzAFP9M8zcfmfhIV1K1nmQp84wt+e+Y6PEtwUTFgsC87Wn/ZZQwMcVI81IS +yUpLUjoSXjBRak9GCZvkkr47hZH55P4zCqtVLEl/K5IiL+Uwsa3J/ZofyZ/u +3Hb0TGdi80iLWCHJJt63djknM5Fi1fOdQnKHcfxyq3jSvl98xfMkH5ON7TO8 +zkTX/I53IlYEMv67UaJxhYm/Rctnt5DsSbl+U/ESE1v6lV0USZ4ujnSVvsDE +5cFl/7aTHHLrquZ6dyZ26TR0byB5kXuYEN9JJt4JZHCWkhyjd3l43pGJ33TC +gEXuJ7gxhKxJTNR+tL6rkuS0X4EpzCNMHImRe3OD5E1tAecpBkzciPI0Y5Lz +ivwMGrWZGM69Y7aIZKXoi5Lv1Zgo+HFk7SvyPEpPXph+o8xErcxcRVuStfef +r8/fxkR6j2r2JHm+n0S8cu5Lk/593HwukmSTKffA2xJMfHKxJ5Wf5I5vZ8yu +rWWi2DhdPpa8r6N5bvKBK8nzlHohvkDer+dRl3bnBQbmVwXrfCPvf1rV+ZnV +LwYaeZ0PkSU5WPBYhNEkAw85rdzmS+ol5rO9shKdgRsP7R6bJvUlmGO7TIZg +IKXwKZ88yakh1r3rOxjIWVtcYErqMU/ZPP6/zwzcG2UXHGlE+sdvemqqhoGL +hJivE0g9lzAPa7DKGOiWzwxOIvX+Kd1oqPEpA0XqNteF6JF65T2gn3mLga/9 +C1/1aJP29mlJJN5goMmH35+z9pP5o1xj6lo4AwfHgm/YkvHH462a7XWRgcl7 +uSJPyXjdRNk5p2nLwJcCrK4BMt49VyyxSzVloNKegX1quwl8q068mjFk4MlH +/324qkygcXrsmSI1Bq6tN/CYJfOFrxP7+0YxBgbSIy4elyPwXVz1zhBB0l7B +1dnHZAhcVnU3umsFA2/c5pWw3EzgfUl97dt/6Din841PYgPpT092AQ9Bx9Jk +BZOdZH5bvSqQ93g7Hek+J1y6BAl01DZzrvhGx/LjWqyA1QROZM2v9X1HR6cb +163u8REoesIxnJFFR1yWrmb3j4aeg8J2dS50jOdoLjCGafhWaPSVjCMd1e0G +dw6xaPhPt1Yg3JKO6QMJwgN0sr48vFC7T4+OFZ7J69700LDatXHnU1k6Ospq +ePeR+V6QHcV7kz2Iuurh5mZvaVg6+vuV5blBdBGLD3sdQEP35MTm726DWLZP +ZyH6Ig0lNbeNWR4fRLeNyZK258l6Fmu/1cpsEENuZkK7Gw0PbyvNsto1iDMW ++3JPWNOw77RfnPXPAWwrC/J4p0TDZYPjrraXB/DBmsB/D8l6XB4TFdHpP4Cp +QSfVbKlU9Nq1Mdv2/ACe0dt1e4Gs363hJjRb5wFs/TtXqlZPxQypQgs7nQGU +SWy00n5DRaVj7tr2SwZQaWbWLj+Kis9efFYsFutH8d5YdwE5Kl5ffVyxhL8f +PWolVMSkqHjC++fO8vk+vLkxt2yjGBXXKcnurBnow84nLN61K6kY9vyqQkNB +H2YqP1/Im6GgVZHWVrp6H1Y3j54NrKXg36evNws79pLxH+703Z6CR55krfVN +J9AgU2mFnE83Fr0akjCKI3CrdltV+9luXPlut4xEKIF1hmv7Qk90Y2Pb510f +jpE6ynUMLzHrRhOeCVNhUjfux88UNu/sRrOjB2KK82iow809ljnUhRZC/fPT +pJ97DYLLPth3oe2VzWy/5m5UMJfK3CrbiR9889u2GHSg/rpfRCPZH6cdohZK +ereiltLhV86SLThfcKuBYV2PiWu87M7f+IoJf3wuTpt8wMBHLQoB/2qRKW7D +4DteghOdRe0aB0qwl+Kk3BSfid9u71yvGp2JPf79CoEH7kMXZNUFad6HxZwM +pa1TJaDmXPHyU0sJ5NSqrecu/wDDuqKelOpaGD/cUNHxoh4cjh/ank75CqvV +Zsx+p7XCFu23DhquLaC//b8tneIdMBY1Z10W1gZrtI4J+7C74b7sFP+KPZ0w +kJdbkf2zG0wzmo3c9ndCsfCQS8tiCsTnznysNOwEu9GLL5U2UaDC1tLfzqET +MtOjTcbtKfB112JT4yudoPC7+IZnPQXCxtQI4bpOMCjhm3MrokI/V8l8h3UX +BCmXMRx9CXh42ja0wKkbQopCl+pdJeCd37N4q1PdELpdZ6tCAgEBmol6XI9u +CJOt9/z7lABwW5qqENwN10SJqYxBAqbBLtwotRsS/i38Iyx6oO+brZ9xWzc8 +bjHa4KzcCyLsVWud9SmQZyJwwEib/K7k+/lI7TAF8utbTigd6QWt7MV+Kywp +8Oyjw6OFM71wZU10TaozBV6WeSpkP+gFtHj20i2YApXZCeoDq/rApptXquQ5 +Bb5f6LI5NdYHDX9VDcSFqGCiO+wdPNcH2VdiZe+JUuGr8N+YRP5+2LLBL3mF +FBXel2ysrtnWD7lPjFd3KVDhxZybvOTpfpj2Kl0hYECFm9Ezs+29/dB1h8+Z +6k+Fx+Yx3x6eHQDgTiiPtlDhlHqSg9KFAbi6mKCbd1Jhs3QGq+LSANjwyGcX +0aiQOV34r5X8Ykue5ZU9wqLCnXste/49GgBCBOiSf6kQSYhkHh0YAI/KlsQV +MjRwOfvk3DrHQTghIK8x5UkDxsGQVCmXQUjh3+I75E2DM9vMP2w7Owhxsdnu +nb40ODfyW1Q7YBB4I42vpoXQINjL5OPppEFY53L9b2UsDZIvzIiX1Q+C2DqG +hHceDdZbfDWobR2EwjvKiX1PaZC2K+vCt+5BkLaRvGn0nAYPpow+97MGoXZQ +hP+/NzQo9MvwWbGYDmvKrtfw1tLgU6DuF0dNOrQWbFgRQKXBQQeRaVddOrwq +On3kWA8NGtQ5G7yN6fD6ydE+zX4atP656xtpRwcT9wRWL5MGvaHDGwt96WCz +pV6s6gfp77Fq45JgOihe2Rt8bJoGzP3JfniVDr9WNqya/UmD0f+06tsT6KB+ +69Vngb804Ibf9p9/Rod3dqsFW3gJCHZxy15WTIcmnwuvty8jYF5Ho0Gwgg7/ +Yi56ha4gYPFixib5L3QIkEuWXLKKgNXX1b6ZMuig7/Bd4Nl6ArbG9EpnSzLg +oKn1NkN5AoaFqV91ZBlwJPV8t+pWAgqyOi7QFRgQ5VbSLLmdgG1vvlXLazIg +wFD9+pedBCj0VTgWOTCAITtxO2sPAaPuJTxmLgwgbjksVVcl4NnMq/wfZxnw +bfuH7C9qBOzgK5hVCWRA2LI/u+s0CNi5NyWp4h4DMoLLLHSAgLGaJPWjWQzo +z+nzvaZDQNGhW/3zjxnQotOUUqVLgOKJ64o6bxlQvP9UG78BARMj4R2DVQzQ +oqsPShsS8MI/NPTaRwaE3tk3oGhEgFKcb31dGwO2LF+ZJWdMjl/n7eNOY0Dy +gKDVmkPk+GwPUX46A3Jm7rMmSPZWOF1TOMKAGC8D64+HCVAucTltOsWAUZPc +lJtHCJiEYyt//GbAh4BDhYdNCHjVYP8mkYcJRlntN/8jedeA2aKONUww5R1+ +rGtGjvc8XBAgyoTNEw/a2kh+NWtoLrqJCXK7kqoczAnwuarLLd/CBNEam6Pt +JO8W0M5yUmJCzunw53oWZB65p24wr8oEg6a853kkF2/ey8nSZsJxfxf7fyT7 +FiongyETFr3RzTOxJEBFbYfGoAkT5iv67yWQPP1+y0CkDRNKklukP5NcfEQm +Wu4YE5Q35RlOkuzbtVGpzpUJ0+K/59dYEbDnpHjnWS8mcNc76cuR/JOz7jKf +HxMehbmsI/tfeHtJULYwhAlvU7O9FEj2X7SywSSSCbuvFBqQ/S/svbn84kQs +E47Jit1f/L/5IrxiiUnkfLtgz15yv7e5CzW705mQUnXqRRHJ/jv/nm7PYUJT +89lTPiSrls2uDChgApspGbmNZK7u1BuRV0zwVBDm6yT9LW0ccyovY0Ljo97p +AJIv2Q8vckImmCgKaQmQrEZnFMzVkf6EQO9d8jy55/rNs5qZcEVsrkOY5LJf +NO6BLiZYenRtjCLvIyiyK2uglwlnC1zfcEwJUF/VZhDJYoLx8N4kI5J/pzZx +ZMeZMCPcU3yPvN9ymfrkzz+ZQBkZXUsl9aCh/n5gxRIWVHdFRe4n9VJTGS2/ +XYAFS1M3VnqRejLQNvc8JMwCiVtqjxJJ/Vno9c3EbmZBwpXQ0CpSn12fnqg/ +28qCcMLbtZbU79GD5680KLHguJrvxDtS32dM5pcJaLPgq5Va/109Mj6aPx7Z +YcAC4bBq7YtkPFy0jE88coQFhcGDu/TJeLlsJyFx05EFu47F133RJiDZRV1x +1SUWRBjsOmytToAY499FxSssKNd3HybIeMw6/aXU9DoLjnZYLDiS8VrgaaeT +kMwCh91VkWoqpD/+/tZrXrJAPv1hjM8O0p9fWmnKpSwIfr8q/DGZD+qDeXvN +q1kwckS1tYnMFx1hyWcSv7FARFzbn0eOzAcxr4KFhlnw63DtcZYkqXeBoJrd +P1gQt/vhp4/iBMzeAl4rLgt8juh7pIoSwHOn+WbyEjYo3zc8LrWWAJGssey1 +0mxIk3of94yPgMxNb5l7trFhO1csRGU5AdIPQ7fbKLOhukwx7uUSMp/k87+5 +q82GEPdlCzH/aKD3elvdeic2nHNpai4n8+nXPZP8aifZMG9ywnlkigampWXm +du5sqCzKmVpN5mOHKiNqyiU2aIk9XacxQgPvz25jonfYMJS7cmhFLw0yqDnC +Eo3k/EtJCXc+0KCcmX9XpJ0NZkEnbeWQBp0/XoispbGBEr/L9lkVDQSXVUus +HGbD+3Gh6XtvaRClQpVZ4B2CJUOfdDhPaOATL7SHrjUE9mrZu+Jv0CAhRayk +T28ILq+24ZyPJOtP7qZ9xKEhMO8UKjAMowG7TFGrw34I2LZs8Y4AGhxlHtKv +8xuC2gPZYefcaGCkHWn9rHAIqlqMD8UADdyMYzvziofAZMOd6ApNGkRYJ9o/ +qhiC78Gtif2qNHjn8eBo5hdy/XgnLt9OGuxOqXRNYAzBl9FNz7tFabDhx7Sf +r+QwpP179Ml6nAozOa53NeOHwf/MFe/S21Qws0tKbk4ehq2aYQ+nY6hQIICJ +pzKG4aXsBTnpSCo4X5K4Ffd0GIp3+/HYkv3D1yPfo2hfhiG4f1+WqAPZH3AP +BIYsGYEjYWVxSzZSwdBEwqnyygi8M+Hf65xJgZxFxg5mUSOwxtQ0mbhDgb+l +AXb0myOgdbP01eF4CryS/m7FnzkCVevVNiyQ/ZDEr+gjTpUjYM25tLvCjgIT +ubP7/3JHIP9Ak8/lVRRI/dW6SdNnFAKV1UTFfLqh9HFDlUngKMj616QHnOmG +LstP9ifCRsHHqE+t7lg3iBSV3b5+cxT2jB8v1jnUDSkuD/41F4yCt1uecYZ0 +N9yt9+p3HRyFD5ytn3pauiDx/rLsW1YcUHzifSVKpgteGfNo5ThyoNe41whE +u6B19k9XsQsHYuVPl3IEumCNxfhqijcHfqVtCd4w2wkJSzrCZOI5cFZLZWsv +2Z/eOp/rXPaRA3YNf6a7z3ZCHOyXGtw7BoZb7j5Pz+6AoZRjavH7x+CKpMXb +uKQOMJi4bKZqMAaUMq9rXtc6YCGzOizWegzs09a6z5/pAN+/B/p3+47Biwe2 +X50UO8CpRDcn8uUYWDHONi0ta4ftOw7KyCmMg91eJ7mf1W3wVcRqy9lNEwD6 +vlI70luhmvs6dHzLBLz/J/v0QHQrFHcJffdTmoDolUE+ugGtkJnyPfSq9gQM +/ZB5tM6yFS6IWH5PPzoBE4WaklPLW0FExOJyY+oERH5mdM0zm8F1vVnbbsEf +cOcUn2VKQCP845OHMJ5JSB3fGX5K6Qv0zFaW8yyZhIPFarH9S75A5aCFyrXl +k5CRK+irTdSBf8Vl+ZjV5Puqxg/3o+tg2L1DIHnDJHz0C0oe7PsMrV+uUZ6o +T4Ku6aqQ+OhPkBNFv9jkMwljq/a1y9XWgt6inMcbBich7W1EanZ+GSjoTCY8 +65iCwNrlJ+evpWBlIKqsLJ+GCrctKWJNH9DoQ3jYbMoMSNcFsZVOtWGgzXrz +5pif8ClaNiEitBct+rdTQzxnAbTumVulMHHjJeloT+9ZkJnIPzD5momjK8VV +nXxnweLcf8/vNzExSnNFkkYIyW+KxSSXsrDyHtv4d+wsOEhKnX/nz0I5k0fl +AU9nIYjfMjbejo2/yzek+QzPwlxeofUFuWH8bL7OyGVsFqq2X//wQXcYk9kC +P80nZ+GlCd9KuRPDqLhuzlz59yzwqvppCmYM46kL1OUTy7mg62Vgc1twBBvl +UwK9tnLBYJ3vbwWeUUx/d0v+6A4uqF7478xxqVE8Yx3VfliZC/0uxb1Z+0dx +UYS/ssI+LhSMLkwYB4+iWo/V0LARF8oDuJMHZ0aR1+/wPcphLuxZkzs5KsTB +Vj49/a9mXND7a7gmcxcHvfbtzs6340Lpp9G327w5qN68zTTViQvBUrm6S25x +cNnpzXM3nLnwtabm93ghB9vnRJ9eOsWFtOObelkNHPz//4Hw//8D8f8Ad9EW +nw== + "]]}, + Annotation[#, "Charting`Private`Tag$724241#1"]& ]}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->{{0.5000000000000284, 0.5}, {0.5000000000000284, + 0.5000000000000284}}, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{-1.4, 1.4}, {-0.8723048895982457, 0.8723048895982457}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {479.8347252809548, -97.50736892665738}, + ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506168}]}, {}}, + ImageSize->{ + UpTo[600], + UpTo[223]}, + PlotRange->{{0, 639.7796337079398}, {-195.01473785331476`, 0}}, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}}, + CellLabel-> + "(WOPR) Out[193]=",ExpressionUUID->"d79294e8-cb2f-4112-ad68-da965b8a242a"] }, Open ]], Cell[CellGroupData[{ @@ -8034,9 +11377,10 @@ Cell[BoxData[ }, Open ]] }, Open ]] }, -WindowSize->{1917, 1062}, +Evaluator->"WOPR", +WindowSize->{1437, 792}, WindowMargins->{{1.5, Automatic}, {1.5, Automatic}}, -FrontEndVersion->"12.1 for Linux x86 (64-bit) (June 19, 2020)", +FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" ] @@ -8052,177 +11396,219 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[580, 22, 156, 3, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], -Cell[739, 27, 1285, 33, 104, "Input",ExpressionUUID->"fafcf491-a81f-4f91-b9fe-4d27770e7577"], -Cell[2027, 62, 1177, 24, 22, "Input",ExpressionUUID->"395191f4-75f5-4aa3-87f6-ccf9cbedf73f"], -Cell[3207, 88, 862, 20, 40, "Input",ExpressionUUID->"3e69b8b0-cd07-4524-a460-17b8352b5902"], -Cell[4072, 110, 1226, 37, 38, "Input",ExpressionUUID->"daded195-b1a7-448b-87f6-d258f2dcf5e8"], -Cell[5301, 149, 1188, 28, 54, "Input",ExpressionUUID->"f27ba651-c22d-460a-a64d-186282c0ce66"], -Cell[6492, 179, 2420, 56, 40, "Input",ExpressionUUID->"e32b7309-d4a7-469a-ab41-1800db7276a7"], -Cell[8915, 237, 195, 4, 22, "Input",ExpressionUUID->"a67825a5-1532-4e67-9c19-5eea914713e3"], -Cell[9113, 243, 7655, 193, 343, "Input",ExpressionUUID->"77a88da0-5b31-458a-9ed8-0b34545e511d"], -Cell[16771, 438, 4883, 137, 108, "Input",ExpressionUUID->"1f309ab1-20a0-46cc-93fe-35aed54ccb3d"], +Cell[580, 22, 156, 3, 68, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], +Cell[739, 27, 613, 13, 42, "Input",ExpressionUUID->"fafcf491-a81f-4f91-b9fe-4d27770e7577"], +Cell[1355, 42, 1380, 28, 42, "Input",ExpressionUUID->"395191f4-75f5-4aa3-87f6-ccf9cbedf73f"], +Cell[2738, 72, 838, 17, 45, "Input",ExpressionUUID->"3e69b8b0-cd07-4524-a460-17b8352b5902"], +Cell[3579, 91, 820, 23, 58, "Input",ExpressionUUID->"daded195-b1a7-448b-87f6-d258f2dcf5e8"], +Cell[4402, 116, 1225, 26, 62, "Input",ExpressionUUID->"f27ba651-c22d-460a-a64d-186282c0ce66"], +Cell[5630, 144, 3022, 65, 66, "Input",ExpressionUUID->"e32b7309-d4a7-469a-ab41-1800db7276a7"], +Cell[8655, 211, 8663, 212, 436, "Input",ExpressionUUID->"77a88da0-5b31-458a-9ed8-0b34545e511d"], +Cell[17321, 425, 4921, 136, 171, "Input",ExpressionUUID->"1f309ab1-20a0-46cc-93fe-35aed54ccb3d"], +Cell[22245, 563, 233, 5, 42, "Input",ExpressionUUID->"e7fef682-ee6e-4d26-962a-6946f28d5999"], +Cell[22481, 570, 2312, 53, 64, "Input",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"], +Cell[CellGroupData[{ +Cell[24818, 627, 4764, 78, 42, "Input",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"], +Cell[29585, 707, 632, 12, 38, "Message",ExpressionUUID->"20e41565-1936-405a-9504-d530fdcc8152"], +Cell[30220, 721, 1499, 29, 49, "Output",ExpressionUUID->"319eb113-9321-48fc-ad65-5700453ef613"] +}, Open ]], +Cell[31734, 753, 461, 14, 42, "Input",ExpressionUUID->"ea36fa2d-8c46-4383-be61-eff682dedb14"], +Cell[CellGroupData[{ +Cell[32220, 771, 452, 12, 42, "Input",ExpressionUUID->"5823df11-0739-494d-bf1b-44bf2a14cb2b"], +Cell[32675, 785, 278, 4, 46, "Output",ExpressionUUID->"cf69a3b6-a533-4dea-b33c-8d65e371fe08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32990, 794, 1740, 46, 105, "Input",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"], +Cell[34733, 842, 21020, 380, 218, "Output",ExpressionUUID->"155c39dd-ec1d-4900-9cbf-4fc4b876ac75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[55790, 1227, 966, 27, 45, "Input",ExpressionUUID->"da645597-b6a8-4dfc-83c5-3cec31d750f9"], +Cell[56759, 1256, 469, 10, 46, "Output",ExpressionUUID->"f27b02e6-f3db-42e2-b534-43e5409fe36c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[57265, 1271, 1847, 47, 109, "Input",ExpressionUUID->"b03f723e-24d4-4097-8ca2-9b1145403bfb"], +Cell[59115, 1320, 519, 11, 22, "Message",ExpressionUUID->"1ff6b3ff-f0d9-48ea-95df-10584520bc02"], +Cell[59637, 1333, 519, 11, 22, "Message",ExpressionUUID->"82682d18-f80c-4d23-8675-d31ca1576f0e"], +Cell[60159, 1346, 521, 11, 22, "Message",ExpressionUUID->"164319c1-a2e0-427a-9f70-94e763f48d8e"], +Cell[60683, 1359, 486, 10, 22, "Message",ExpressionUUID->"5d8fc41c-1820-4591-bdb1-29d65ed68611"], +Cell[61172, 1371, 25289, 433, 243, "Output",ExpressionUUID->"0f099d03-656a-4602-85f6-26b4b2405b3b"] +}, Open ]], +Cell[86476, 1807, 1836, 43, 85, "Input",ExpressionUUID->"868d07c1-b3cf-44ff-a070-78c2a21c388b"], +Cell[CellGroupData[{ +Cell[88337, 1854, 4656, 86, 64, "Input",ExpressionUUID->"7c02fde8-7f1a-472a-9e7d-0e95772516eb"], +Cell[92996, 1942, 899, 22, 46, "Output",ExpressionUUID->"6b22737f-c85f-4c36-9b44-d9e694bee115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93932, 1969, 1989, 49, 105, "Input",ExpressionUUID->"0e89b49c-ebf1-4e9a-800f-62ec63f935a1"], +Cell[95924, 2020, 21952, 393, 218, "Output",ExpressionUUID->"7cf0a89e-6d18-442b-b56d-94b97702709f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117913, 2418, 1382, 36, 45, "Input",ExpressionUUID->"6c30dc25-997d-4790-bfcd-6e15ebcf7cbc"], +Cell[119298, 2456, 520, 12, 40, "Message",ExpressionUUID->"56028de4-0ddc-4ea7-bf21-a25534c5c68d"], +Cell[119821, 2470, 521, 12, 40, "Message",ExpressionUUID->"3d57804e-381a-4ba2-8dce-4428206df060"], +Cell[120345, 2484, 3161, 69, 259, "Output",ExpressionUUID->"56916602-5965-4962-8188-b6662a5aa173"] +}, Open ]], +Cell[123521, 2556, 1713, 40, 64, "Input",ExpressionUUID->"b31259b6-cc89-48a8-920d-e9dbcee664fb"], Cell[CellGroupData[{ -Cell[21679, 579, 1187, 27, 40, "Input",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"], -Cell[22869, 608, 207, 4, 25, "Output",ExpressionUUID->"b3ae6262-2369-4579-8f11-16e2dd721349"] +Cell[125259, 2600, 3913, 66, 42, "Input",ExpressionUUID->"30d0f855-c86b-4121-855c-813e9ee04f96"], +Cell[129175, 2668, 1064, 19, 28, "Message",ExpressionUUID->"f1cd282b-fb73-4166-8899-1f1b71289512"], +Cell[130242, 2689, 3809, 57, 49, "Output",ExpressionUUID->"3b7bac7f-12db-4bb2-8d83-0f02d8f19997"] }, Open ]], -Cell[23091, 615, 647, 18, 24, "Input",ExpressionUUID->"527153da-c467-45ab-a51a-b1545d520630"], Cell[CellGroupData[{ -Cell[23763, 637, 3094, 57, 24, "Input",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"], -Cell[26860, 696, 12459, 182, 150, "Message",ExpressionUUID->"ef961c10-8104-4e4d-b207-a87b03b3d39a"], -Cell[39322, 880, 2753, 42, 25, "Output",ExpressionUUID->"15e91b3c-4864-4488-8f91-7c413ccb268c"] +Cell[134088, 2751, 1587, 43, 105, "Input",ExpressionUUID->"e1346f99-b8a8-49f2-9bab-d7d94b52e5d3"], +Cell[135678, 2796, 61160, 1040, 218, 39593, 685, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"24eee5ea-c8f9-4063-9d36-9e38f4d71b1d"] }, Open ]], Cell[CellGroupData[{ -Cell[42112, 927, 709, 20, 22, "Input",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"], -Cell[42824, 949, 6591, 128, 183, "Output",ExpressionUUID->"e1e88a87-be5f-441c-a4ca-2f1bdaae916d"] +Cell[196875, 3841, 1714, 46, 105, "Input",ExpressionUUID->"8b99e721-7bc5-4c63-b150-8946bb7d2007"], +Cell[198592, 3889, 30207, 531, 218, "Output",ExpressionUUID->"d79294e8-cb2f-4112-ad68-da965b8a242a"] }, Open ]], Cell[CellGroupData[{ -Cell[49452, 1082, 491, 13, 22, "Input",ExpressionUUID->"8dd8c18b-504b-469d-8072-a9fb0cc417df"], -Cell[49946, 1097, 539, 12, 19, "Message",ExpressionUUID->"a55da929-28cd-4032-aea8-5daec85d020a"], -Cell[50488, 1111, 539, 12, 19, "Message",ExpressionUUID->"d9f18df2-5058-4626-9d48-5486b1743e96"], -Cell[51030, 1125, 2243, 56, 62, "Output",ExpressionUUID->"7ce119a6-a1c0-48cc-9d86-6e7b6a1eafe3"] +Cell[228836, 4425, 491, 13, 29, "Input",ExpressionUUID->"8dd8c18b-504b-469d-8072-a9fb0cc417df"], +Cell[229330, 4440, 539, 12, 22, "Message",ExpressionUUID->"a55da929-28cd-4032-aea8-5daec85d020a"], +Cell[229872, 4454, 539, 12, 22, "Message",ExpressionUUID->"d9f18df2-5058-4626-9d48-5486b1743e96"], +Cell[230414, 4468, 2243, 56, 79, "Output",ExpressionUUID->"7ce119a6-a1c0-48cc-9d86-6e7b6a1eafe3"] }, Open ]], Cell[CellGroupData[{ -Cell[53310, 1186, 561, 16, 22, "Input",ExpressionUUID->"b0a27cf9-de55-4cf4-9b19-ff7b3add442a"], -Cell[53874, 1204, 913, 27, 63, "Output",ExpressionUUID->"d3fcf7af-82f3-49c4-81c0-3bf29938e0d1"] +Cell[232694, 4529, 561, 16, 29, "Input",ExpressionUUID->"b0a27cf9-de55-4cf4-9b19-ff7b3add442a"], +Cell[233258, 4547, 913, 27, 75, "Output",ExpressionUUID->"d3fcf7af-82f3-49c4-81c0-3bf29938e0d1"] }, Open ]], Cell[CellGroupData[{ -Cell[54824, 1236, 681, 19, 44, "Input",ExpressionUUID->"f49c10e4-6ea3-40fb-85e8-436bcc73196f"], -Cell[55508, 1257, 4071, 86, 176, "Output",ExpressionUUID->"0ede64a7-b62f-453c-b5e6-06e4c6ab27af"] +Cell[234208, 4579, 681, 19, 55, "Input",ExpressionUUID->"f49c10e4-6ea3-40fb-85e8-436bcc73196f"], +Cell[234892, 4600, 4071, 86, 235, "Output",ExpressionUUID->"0ede64a7-b62f-453c-b5e6-06e4c6ab27af"] }, Open ]], Cell[CellGroupData[{ -Cell[59616, 1348, 486, 13, 22, "Input",ExpressionUUID->"67bd5207-9130-427b-afb3-21bda9c7e82e"], -Cell[60105, 1363, 200, 4, 25, "Output",ExpressionUUID->"39e5dba9-9c25-42e4-8876-75a530e46ee5"] +Cell[239000, 4691, 486, 13, 29, "Input",ExpressionUUID->"67bd5207-9130-427b-afb3-21bda9c7e82e"], +Cell[239489, 4706, 200, 4, 33, "Output",ExpressionUUID->"39e5dba9-9c25-42e4-8876-75a530e46ee5"] }, Open ]], Cell[CellGroupData[{ -Cell[60342, 1372, 783, 22, 22, "Input",ExpressionUUID->"6db9bdd5-3bc4-4993-85d9-2bb9c2d0db38"], -Cell[61128, 1396, 3496, 77, 187, "Output",ExpressionUUID->"028520eb-aee9-483d-9152-2416a8a91977"] +Cell[239726, 4715, 783, 22, 29, "Input",ExpressionUUID->"6db9bdd5-3bc4-4993-85d9-2bb9c2d0db38"], +Cell[240512, 4739, 3496, 77, 249, "Output",ExpressionUUID->"028520eb-aee9-483d-9152-2416a8a91977"] }, Open ]], Cell[CellGroupData[{ -Cell[64661, 1478, 1223, 33, 24, "Input",ExpressionUUID->"aab225ac-8e68-4d46-a4da-600fe6364133"], -Cell[65887, 1513, 10880, 231, 176, "Output",ExpressionUUID->"6e880d59-ffe1-440b-af8b-754c17269f6e"] +Cell[244045, 4821, 1223, 33, 24, "Input",ExpressionUUID->"aab225ac-8e68-4d46-a4da-600fe6364133"], +Cell[245271, 4856, 10880, 231, 176, "Output",ExpressionUUID->"6e880d59-ffe1-440b-af8b-754c17269f6e"] }, Open ]], Cell[CellGroupData[{ -Cell[76804, 1749, 2115, 52, 66, "Input",ExpressionUUID->"f01a72f1-91c7-4454-9040-b54a61c9cd07"], -Cell[78922, 1803, 615, 13, 19, "Message",ExpressionUUID->"46cbf58a-9f1b-42bc-8a11-616c84d0e1d7"], -Cell[79540, 1818, 613, 13, 19, "Message",ExpressionUUID->"c25c6435-fc6d-4b46-b41c-a3d203aa09da"], -Cell[80156, 1833, 613, 13, 19, "Message",ExpressionUUID->"3a09025b-666f-454b-9a32-9f324e354788"], -Cell[80772, 1848, 580, 12, 19, "Message",ExpressionUUID->"5b1f7808-f0a6-4257-b7ed-4acdc8c4ac95"] +Cell[256188, 5092, 2115, 52, 66, "Input",ExpressionUUID->"f01a72f1-91c7-4454-9040-b54a61c9cd07"], +Cell[258306, 5146, 615, 13, 19, "Message",ExpressionUUID->"46cbf58a-9f1b-42bc-8a11-616c84d0e1d7"], +Cell[258924, 5161, 613, 13, 19, "Message",ExpressionUUID->"c25c6435-fc6d-4b46-b41c-a3d203aa09da"], +Cell[259540, 5176, 613, 13, 19, "Message",ExpressionUUID->"3a09025b-666f-454b-9a32-9f324e354788"], +Cell[260156, 5191, 580, 12, 19, "Message",ExpressionUUID->"5b1f7808-f0a6-4257-b7ed-4acdc8c4ac95"] }, Open ]], Cell[CellGroupData[{ -Cell[81389, 1865, 536, 10, 24, "Input",ExpressionUUID->"1dfbee5f-7e33-4446-bc10-991ba8838497"], -Cell[81928, 1877, 93071, 1628, 177, "Output",ExpressionUUID->"e57fa90a-27ff-4013-8fad-ca7e3c98d348"] +Cell[260773, 5208, 536, 10, 24, "Input",ExpressionUUID->"1dfbee5f-7e33-4446-bc10-991ba8838497"], +Cell[261312, 5220, 93071, 1628, 177, "Output",ExpressionUUID->"e57fa90a-27ff-4013-8fad-ca7e3c98d348"] }, Open ]], Cell[CellGroupData[{ -Cell[175036, 3510, 314, 8, 22, "Input",ExpressionUUID->"8499af31-a50c-4059-afac-b628095fc761"], -Cell[175353, 3520, 368, 8, 25, "Output",ExpressionUUID->"9aaf347d-0fae-4cb5-8920-f15fee437a9e"] +Cell[354420, 6853, 314, 8, 22, "Input",ExpressionUUID->"8499af31-a50c-4059-afac-b628095fc761"], +Cell[354737, 6863, 368, 8, 25, "Output",ExpressionUUID->"9aaf347d-0fae-4cb5-8920-f15fee437a9e"] }, Open ]], Cell[CellGroupData[{ -Cell[175758, 3533, 577, 17, 24, "Input",ExpressionUUID->"fecf4a67-c7e8-40b5-8e36-582a0bab9fe6"], -Cell[176338, 3552, 753, 23, 48, "Output",ExpressionUUID->"742a0341-4af8-4ba4-a799-e15a1e847a9c"] +Cell[355142, 6876, 577, 17, 24, "Input",ExpressionUUID->"fecf4a67-c7e8-40b5-8e36-582a0bab9fe6"], +Cell[355722, 6895, 753, 23, 48, "Output",ExpressionUUID->"742a0341-4af8-4ba4-a799-e15a1e847a9c"] }, Open ]], Cell[CellGroupData[{ -Cell[177128, 3580, 438, 11, 24, "Input",ExpressionUUID->"9884f3ff-ff57-4cf7-b122-2aebcb709801"], -Cell[177569, 3593, 947, 26, 45, "Output",ExpressionUUID->"5f69419d-b0c1-4cd5-9616-460f429c823a"] +Cell[356512, 6923, 438, 11, 24, "Input",ExpressionUUID->"9884f3ff-ff57-4cf7-b122-2aebcb709801"], +Cell[356953, 6936, 947, 26, 45, "Output",ExpressionUUID->"5f69419d-b0c1-4cd5-9616-460f429c823a"] }, Open ]], Cell[CellGroupData[{ -Cell[178553, 3624, 549, 13, 24, "Input",ExpressionUUID->"c18d621f-7e5f-48db-8ae7-0fda0221c79c"], -Cell[179105, 3639, 599, 17, 45, "Output",ExpressionUUID->"b45884b0-ccdc-4e99-ac15-83498ea86eff"] +Cell[357937, 6967, 549, 13, 24, "Input",ExpressionUUID->"c18d621f-7e5f-48db-8ae7-0fda0221c79c"], +Cell[358489, 6982, 599, 17, 45, "Output",ExpressionUUID->"b45884b0-ccdc-4e99-ac15-83498ea86eff"] }, Open ]], Cell[CellGroupData[{ -Cell[179741, 3661, 338, 7, 22, "Input",ExpressionUUID->"8e16b08d-33f5-4a51-9850-75f98a0e6a08"], -Cell[180082, 3670, 2269, 65, 61, "Output",ExpressionUUID->"21b799e5-0965-4692-b4ba-6083041c0cdd"] +Cell[359125, 7004, 338, 7, 22, "Input",ExpressionUUID->"8e16b08d-33f5-4a51-9850-75f98a0e6a08"], +Cell[359466, 7013, 2269, 65, 61, "Output",ExpressionUUID->"21b799e5-0965-4692-b4ba-6083041c0cdd"] }, Open ]], Cell[CellGroupData[{ -Cell[182388, 3740, 237, 5, 22, "Input",ExpressionUUID->"4c8cb259-b56a-423e-957f-9a65ba700a16"], -Cell[182628, 3747, 2063, 59, 109, "Output",ExpressionUUID->"312f09f3-55f8-4f9d-a42c-05ca1c4aea27"] +Cell[361772, 7083, 237, 5, 22, "Input",ExpressionUUID->"4c8cb259-b56a-423e-957f-9a65ba700a16"], +Cell[362012, 7090, 2063, 59, 109, "Output",ExpressionUUID->"312f09f3-55f8-4f9d-a42c-05ca1c4aea27"] }, Open ]], Cell[CellGroupData[{ -Cell[184728, 3811, 564, 14, 24, "Input",ExpressionUUID->"069edadd-116a-4ccf-831d-0fe6e07540fe"], -Cell[185295, 3827, 1113, 29, 52, "Output",ExpressionUUID->"e6426e3c-3d4d-49f1-becd-dfef45704088"] +Cell[364112, 7154, 564, 14, 24, "Input",ExpressionUUID->"069edadd-116a-4ccf-831d-0fe6e07540fe"], +Cell[364679, 7170, 1113, 29, 52, "Output",ExpressionUUID->"e6426e3c-3d4d-49f1-becd-dfef45704088"] }, Open ]], Cell[CellGroupData[{ -Cell[186445, 3861, 522, 13, 24, "Input",ExpressionUUID->"3cd180b6-0e22-4832-af2b-e9ecec7e0a49"], -Cell[186970, 3876, 5586, 138, 258, "Output",ExpressionUUID->"45f19748-f63a-49e1-8ced-a4f5c5dda272"] +Cell[365829, 7204, 522, 13, 24, "Input",ExpressionUUID->"3cd180b6-0e22-4832-af2b-e9ecec7e0a49"], +Cell[366354, 7219, 5586, 138, 258, "Output",ExpressionUUID->"45f19748-f63a-49e1-8ced-a4f5c5dda272"] }, Open ]], -Cell[192571, 4017, 366, 10, 22, "Input",ExpressionUUID->"3ffc56f5-fc40-4c69-bdce-f91a4aab1c67"], +Cell[371955, 7360, 366, 10, 22, "Input",ExpressionUUID->"3ffc56f5-fc40-4c69-bdce-f91a4aab1c67"], Cell[CellGroupData[{ -Cell[192962, 4031, 838, 23, 42, "Input",ExpressionUUID->"e131ab87-4ef6-4852-9ddd-e4499b39559a"], -Cell[193803, 4056, 597, 16, 51, "Output",ExpressionUUID->"86a22957-07a1-48ab-90d1-d142a27afe22"] +Cell[372346, 7374, 838, 23, 42, "Input",ExpressionUUID->"e131ab87-4ef6-4852-9ddd-e4499b39559a"], +Cell[373187, 7399, 597, 16, 51, "Output",ExpressionUUID->"86a22957-07a1-48ab-90d1-d142a27afe22"] }, Open ]], Cell[CellGroupData[{ -Cell[194437, 4077, 921, 23, 42, "Input",ExpressionUUID->"22a30e99-2bd5-43a5-9353-3a3be14232a6"], -Cell[195361, 4102, 2812, 74, 80, "Output",ExpressionUUID->"470e97c2-b944-4611-8c77-75e5a0915c04"] +Cell[373821, 7420, 921, 23, 42, "Input",ExpressionUUID->"22a30e99-2bd5-43a5-9353-3a3be14232a6"], +Cell[374745, 7445, 2812, 74, 80, "Output",ExpressionUUID->"470e97c2-b944-4611-8c77-75e5a0915c04"] }, Open ]], Cell[CellGroupData[{ -Cell[198210, 4181, 824, 23, 42, "Input",ExpressionUUID->"3752e4d8-bc7c-475c-b88c-a0d99559d99c"], -Cell[199037, 4206, 2580, 68, 78, "Output",ExpressionUUID->"db6b4f65-90c7-4c37-9945-5690d8472368"] +Cell[377594, 7524, 824, 23, 42, "Input",ExpressionUUID->"3752e4d8-bc7c-475c-b88c-a0d99559d99c"], +Cell[378421, 7549, 2580, 68, 78, "Output",ExpressionUUID->"db6b4f65-90c7-4c37-9945-5690d8472368"] }, Open ]], Cell[CellGroupData[{ -Cell[201654, 4279, 463, 12, 40, "Input",ExpressionUUID->"6a34969c-5bbf-4acb-a54f-a9bfbf2c9f87"], -Cell[202120, 4293, 8623, 160, 171, "Output",ExpressionUUID->"70cff46d-010d-4a9a-8cf5-3901b2a30edf"] +Cell[381038, 7622, 463, 12, 40, "Input",ExpressionUUID->"6a34969c-5bbf-4acb-a54f-a9bfbf2c9f87"], +Cell[381504, 7636, 8623, 160, 171, "Output",ExpressionUUID->"70cff46d-010d-4a9a-8cf5-3901b2a30edf"] }, Open ]], Cell[CellGroupData[{ -Cell[210780, 4458, 595, 17, 24, "Input",ExpressionUUID->"6afc45fb-65bc-47fe-b120-408f15ede40b"], -Cell[211378, 4477, 470, 13, 50, "Output",ExpressionUUID->"4cdf78f8-6821-4e67-9385-8a091cc9cf9d"] +Cell[390164, 7801, 595, 17, 24, "Input",ExpressionUUID->"6afc45fb-65bc-47fe-b120-408f15ede40b"], +Cell[390762, 7820, 470, 13, 50, "Output",ExpressionUUID->"4cdf78f8-6821-4e67-9385-8a091cc9cf9d"] }, Open ]], Cell[CellGroupData[{ -Cell[211885, 4495, 236, 6, 22, "Input",ExpressionUUID->"b66a0012-a40b-4041-8ea9-a9cad40db85f"], -Cell[212124, 4503, 301, 8, 39, "Output",ExpressionUUID->"9744135b-7d1f-4023-b02d-1bdf3b29d60f"] +Cell[391269, 7838, 236, 6, 22, "Input",ExpressionUUID->"b66a0012-a40b-4041-8ea9-a9cad40db85f"], +Cell[391508, 7846, 301, 8, 39, "Output",ExpressionUUID->"9744135b-7d1f-4023-b02d-1bdf3b29d60f"] }, Open ]], Cell[CellGroupData[{ -Cell[212462, 4516, 419, 12, 24, "Input",ExpressionUUID->"7ceb4bac-ce7b-4adc-aeb9-95a215777744"], -Cell[212884, 4530, 720, 22, 40, "Output",ExpressionUUID->"9c7df971-6bfc-41f8-a68e-fb9921c0b017"] +Cell[391846, 7859, 419, 12, 24, "Input",ExpressionUUID->"7ceb4bac-ce7b-4adc-aeb9-95a215777744"], +Cell[392268, 7873, 720, 22, 40, "Output",ExpressionUUID->"9c7df971-6bfc-41f8-a68e-fb9921c0b017"] }, Open ]], Cell[CellGroupData[{ -Cell[213641, 4557, 492, 13, 24, "Input",ExpressionUUID->"07932986-b2e1-477a-9d99-1b9701e3af0c"], -Cell[214136, 4572, 510, 11, 19, "Message",ExpressionUUID->"f0c4d2f9-9d6d-48c0-b78e-b8f84a7f6bb2"], -Cell[214649, 4585, 5864, 115, 182, "Output",ExpressionUUID->"82bf5b22-f54c-4da8-bea6-61b7c42c3450"] +Cell[393025, 7900, 492, 13, 24, "Input",ExpressionUUID->"07932986-b2e1-477a-9d99-1b9701e3af0c"], +Cell[393520, 7915, 510, 11, 19, "Message",ExpressionUUID->"f0c4d2f9-9d6d-48c0-b78e-b8f84a7f6bb2"], +Cell[394033, 7928, 5864, 115, 182, "Output",ExpressionUUID->"82bf5b22-f54c-4da8-bea6-61b7c42c3450"] }, Open ]], Cell[CellGroupData[{ -Cell[220550, 4705, 804, 22, 54, "Input",ExpressionUUID->"13e1541b-4ad9-4a40-89f2-be40a0e4d6fd"], -Cell[221357, 4729, 479, 13, 51, "Output",ExpressionUUID->"dff49a57-ddf5-4e9d-aa0a-55006221f3c2"] +Cell[399934, 8048, 804, 22, 54, "Input",ExpressionUUID->"13e1541b-4ad9-4a40-89f2-be40a0e4d6fd"], +Cell[400741, 8072, 479, 13, 51, "Output",ExpressionUUID->"dff49a57-ddf5-4e9d-aa0a-55006221f3c2"] }, Open ]], Cell[CellGroupData[{ -Cell[221873, 4747, 650, 19, 24, "Input",ExpressionUUID->"6def2df0-3761-4f37-b66f-ba9071b93625"], -Cell[222526, 4768, 534, 15, 42, "Output",ExpressionUUID->"175a2c7c-fa54-45c3-bf4f-c4ed89dad110"] +Cell[401257, 8090, 650, 19, 24, "Input",ExpressionUUID->"6def2df0-3761-4f37-b66f-ba9071b93625"], +Cell[401910, 8111, 534, 15, 42, "Output",ExpressionUUID->"175a2c7c-fa54-45c3-bf4f-c4ed89dad110"] }, Open ]], Cell[CellGroupData[{ -Cell[223097, 4788, 302, 7, 24, "Input",ExpressionUUID->"657e079b-66fb-4614-816e-af41b7fabf10"], -Cell[223402, 4797, 454, 11, 19, "Message",ExpressionUUID->"f6532f4e-d02f-402b-985e-f8964b91f90e"], -Cell[223859, 4810, 1129, 29, 32, "Output",ExpressionUUID->"5f2bc73c-3ef7-4874-86b3-dd3ac3e99858"] +Cell[402481, 8131, 302, 7, 24, "Input",ExpressionUUID->"657e079b-66fb-4614-816e-af41b7fabf10"], +Cell[402786, 8140, 454, 11, 19, "Message",ExpressionUUID->"f6532f4e-d02f-402b-985e-f8964b91f90e"], +Cell[403243, 8153, 1129, 29, 32, "Output",ExpressionUUID->"5f2bc73c-3ef7-4874-86b3-dd3ac3e99858"] }, Open ]], Cell[CellGroupData[{ -Cell[225025, 4844, 325, 7, 24, "Input",ExpressionUUID->"49f74264-7484-4d5a-b52f-d0892384e631"], -Cell[225353, 4853, 4933, 99, 175, "Output",ExpressionUUID->"26e2807e-1336-4751-8e74-d4414f081679"] +Cell[404409, 8187, 325, 7, 24, "Input",ExpressionUUID->"49f74264-7484-4d5a-b52f-d0892384e631"], +Cell[404737, 8196, 4933, 99, 175, "Output",ExpressionUUID->"26e2807e-1336-4751-8e74-d4414f081679"] }, Open ]], Cell[CellGroupData[{ -Cell[230323, 4957, 1059, 26, 48, "Input",ExpressionUUID->"3bd71288-3233-4171-a393-57251fb3dc52"], -Cell[231385, 4985, 6890, 131, 180, "Output",ExpressionUUID->"203873a1-0dd1-4567-8d12-97eeeed127f7"] +Cell[409707, 8300, 1059, 26, 48, "Input",ExpressionUUID->"3bd71288-3233-4171-a393-57251fb3dc52"], +Cell[410769, 8328, 6890, 131, 180, "Output",ExpressionUUID->"203873a1-0dd1-4567-8d12-97eeeed127f7"] }, Open ]], Cell[CellGroupData[{ -Cell[238312, 5121, 1358, 35, 48, "Input",ExpressionUUID->"39644cf7-65fa-4952-a674-714ff8619dd6"], -Cell[239673, 5158, 15118, 266, 179, "Output",ExpressionUUID->"16b2f1f1-4bda-4b9c-9a2d-c4721af32a8e"] +Cell[417696, 8464, 1358, 35, 48, "Input",ExpressionUUID->"39644cf7-65fa-4952-a674-714ff8619dd6"], +Cell[419057, 8501, 15118, 266, 179, "Output",ExpressionUUID->"16b2f1f1-4bda-4b9c-9a2d-c4721af32a8e"] }, Open ]], Cell[CellGroupData[{ -Cell[254828, 5429, 1607, 46, 65, "Input",ExpressionUUID->"72bac293-cf66-40a9-809d-4d0874dae037"], -Cell[256438, 5477, 59065, 1048, 175, "Output",ExpressionUUID->"d758ff21-6281-4951-879d-9a8a224caf38"] +Cell[434212, 8772, 1607, 46, 65, "Input",ExpressionUUID->"72bac293-cf66-40a9-809d-4d0874dae037"], +Cell[435822, 8820, 59065, 1048, 175, "Output",ExpressionUUID->"d758ff21-6281-4951-879d-9a8a224caf38"] }, Open ]], Cell[CellGroupData[{ -Cell[315540, 6530, 1002, 31, 42, "Input",ExpressionUUID->"41ea287c-9ee3-4b18-b17d-5dfc6a4e056d"], -Cell[316545, 6563, 3476, 103, 125, "Output",ExpressionUUID->"7b8e54ff-34ea-444e-8e78-ad376945c6d8"] +Cell[494924, 9873, 1002, 31, 42, "Input",ExpressionUUID->"41ea287c-9ee3-4b18-b17d-5dfc6a4e056d"], +Cell[495929, 9906, 3476, 103, 125, "Output",ExpressionUUID->"7b8e54ff-34ea-444e-8e78-ad376945c6d8"] }, Open ]], Cell[CellGroupData[{ -Cell[320058, 6671, 753, 23, 24, "Input",ExpressionUUID->"77ced036-93d3-4558-8eb2-1aeeb8345ed7"], -Cell[320814, 6696, 840, 23, 40, "Output",ExpressionUUID->"49c3b3ed-cf01-4c58-acac-6b3b7b9cb822"] +Cell[499442, 10014, 753, 23, 24, "Input",ExpressionUUID->"77ced036-93d3-4558-8eb2-1aeeb8345ed7"], +Cell[500198, 10039, 840, 23, 40, "Output",ExpressionUUID->"49c3b3ed-cf01-4c58-acac-6b3b7b9cb822"] }, Open ]], Cell[CellGroupData[{ -Cell[321691, 6724, 1262, 35, 41, "Input",ExpressionUUID->"1dc20dd2-2639-4b38-8eb3-e39481c6a15e"], -Cell[322956, 6761, 71734, 1205, 306, "Output",ExpressionUUID->"ae6c01c8-9abd-4358-a6f9-fb8f033a8ba4"] +Cell[501075, 10067, 1262, 35, 41, "Input",ExpressionUUID->"1dc20dd2-2639-4b38-8eb3-e39481c6a15e"], +Cell[502340, 10104, 71734, 1205, 306, "Output",ExpressionUUID->"ae6c01c8-9abd-4358-a6f9-fb8f033a8ba4"] }, Open ]], Cell[CellGroupData[{ -Cell[394727, 7971, 1045, 25, 40, "Input",ExpressionUUID->"25d7aa57-46b2-4829-8aad-b00b9ab2ecff"], -Cell[395775, 7998, 1385, 34, 41, "Output",ExpressionUUID->"5f0c650e-d3ec-4a10-aad2-c391b45db45f"] +Cell[574111, 11314, 1045, 25, 40, "Input",ExpressionUUID->"25d7aa57-46b2-4829-8aad-b00b9ab2ecff"], +Cell[575159, 11341, 1385, 34, 41, "Output",ExpressionUUID->"5f0c650e-d3ec-4a10-aad2-c391b45db45f"] }, Open ]] }, Open ]] } |