diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-10-25 09:48:56 +0200 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-10-25 09:48:56 +0200 |
| commit | bdfbf32258d85d5cccae59c843cfe07aade07b8a (patch) | |
| tree | 3db4483ff57ae3927c6a80914770097d87b604cf | |
| parent | 1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7 (diff) | |
| download | mma-bdfbf32258d85d5cccae59c843cfe07aade07b8a.tar.gz mma-bdfbf32258d85d5cccae59c843cfe07aade07b8a.tar.bz2 mma-bdfbf32258d85d5cccae59c843cfe07aade07b8a.zip | |
Work.
| -rw-r--r-- | caselle_compare.nb | 377 | ||||
| -rw-r--r-- | new_schofield.nb | 6050 | ||||
| -rw-r--r-- | schofield.py | 34 |
3 files changed, 3742 insertions, 2719 deletions
diff --git a/caselle_compare.nb b/caselle_compare.nb index 95f0b08..7932af0 100644 --- a/caselle_compare.nb +++ b/caselle_compare.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 195819, 4365] -NotebookOptionsPosition[ 185470, 4185] -NotebookOutlinePosition[ 185872, 4201] -CellTagsIndexPosition[ 185829, 4198] +NotebookDataLength[ 201218, 4506] +NotebookOptionsPosition[ 190375, 4317] +NotebookOutlinePosition[ 190816, 4334] +CellTagsIndexPosition[ 190773, 4331] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -28,7 +28,7 @@ Cell[BoxData[ 3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, { 3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 3.827916450999913*^9}}, - CellLabel->"In[64]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], + CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[CellGroupData[{ @@ -96,21 +96,23 @@ Cell[BoxData[{ 3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, { 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, 3.843811750155121*^9}}, - CellLabel->"In[50]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], + CellLabel->"In[2]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[BoxData["0.27286889266851116`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, - 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"], + 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, { + 3.844135505327883*^9, 3.84413553304257*^9}}, + CellLabel->"Out[4]=",ExpressionUUID->"099fda0a-8f77-46f8-bc92-ee246f8e4d7a"], Cell[BoxData["1.007010684856479`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, - 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083926086`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"] + 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, { + 3.844135505327883*^9, 3.8441355330538063`*^9}}, + CellLabel->"Out[5]=",ExpressionUUID->"7a806346-1c79-490a-b950-a7a27cd5405a"] }, Open ]], Cell[CellGroupData[{ @@ -437,6 +439,122 @@ Cell[BoxData[ RowBox[{ SuperscriptBox["\[Eta]", RowBox[{"-", "2"}]], + RowBox[{"\[ScriptCapitalF]0", "[", "\[Eta]", "]"}]}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"8", "\[Pi]"}]], + RowBox[{"Log", "[", + SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", + RowBox[{"\[Eta]", "\[Rule]", + RowBox[{ + RowBox[{"t", "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"h0", " ", + RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], + RowBox[{ + RowBox[{"-", "1"}], "/", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "@", "1"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8441355650573378`*^9, 3.844135612822277*^9}, { + 3.8441356432559423`*^9, 3.844135644806315*^9}, {3.844135769024576*^9, + 3.8441358135052*^9}, 3.8441359564176683`*^9, {3.844136010585967*^9, + 3.844136037030072*^9}, {3.844136092718753*^9, 3.844136097681836*^9}, + 3.8441362459012527`*^9}, + CellLabel->"In[23]:=",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Series", "[", + RowBox[{"test", ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.8441360394005013`*^9, 3.844136069704311*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{ + FractionBox[ + RowBox[{"0.1784522279293546`", "\[VeryThinSpace]", "+", + RowBox[{"0.14899162286841253`", " ", + RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}]}], + RowBox[{"\[Theta]", "-", "1"}]], "-", + RowBox[{"1.0179704579082998`", " ", + RowBox[{"(", + RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", + RowBox[{"1.`", " ", + RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", + RowBox[{"1.964693557128907`", " ", + RowBox[{ + SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]", + MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+", + InterpretationBox[ + SuperscriptBox[ + RowBox[{"O", "[", + RowBox[{"\[Theta]", "-", "1"}], "]"}], "1"], + SeriesData[Schofield`\[Theta], 1, {}, -1, 1, 1], + Editable->False]}], + SeriesData[ + Schofield`\[Theta], 1, { + 0.1784522279293546 + + 0.14899162286841253` $CellContext`\[ScriptCapitalF]0[ + 0], (-1.0179704579082998`) (0.8836710382865575 + + 1. $CellContext`\[ScriptCapitalF]0[0] - 1.964693557128907 + Derivative[1][$CellContext`\[ScriptCapitalF]0][0])}, -1, 1, 1], + Editable->False]], "Output", + CellChangeTimes->{3.8441360705377207`*^9, 3.844136100604207*^9, + 3.844136247845188*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"#", "!"}]], + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Eta]", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"\[ScriptCapitalF]pm", "[", + SuperscriptBox["\[Eta]", + RowBox[{"-", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", + RowBox[{ + FractionBox[ + RowBox[{" ", "1"}], + RowBox[{"8", "\[Pi]"}]], + RowBox[{"Log", "[", + SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm", + "]"}], "[", "_", "]"}], "\[RuleDelayed]", + RowBox[{"-", + RowBox[{"datCasM", "[", + RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", + RowBox[{ + RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Eta]", + RowBox[{"-", "2"}]], RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{ @@ -496,27 +614,42 @@ Cell[BoxData[ CellLabel-> "In[541]:=",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], +Cell[CellGroupData[{ + Cell[BoxData[ - RowBox[{ - RowBox[{"test3", "=", + RowBox[{"test3", "=", + RowBox[{ RowBox[{ - RowBox[{ - RowBox[{"SeriesCoefficient", "[", - RowBox[{"#", ",", + RowBox[{"SeriesCoefficient", "[", + RowBox[{"#", ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", - RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", - RowBox[{"Assumptions", "\[Rule]", - RowBox[{"{", - RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "/@", - "test"}]}], ";"}]], "Input", + RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "@", + "test"}]}]], "Input", CellChangeTimes->{{3.843985185323773*^9, 3.843985191540288*^9}, { 3.8439853417991962`*^9, 3.843985399410922*^9}, {3.8439854859104147`*^9, 3.843985486109192*^9}, 3.843986044837152*^9, {3.843986259456277*^9, 3.843986260018146*^9}, 3.843987888756095*^9, {3.843988234259981*^9, 3.843988236906592*^9}, {3.843988327216732*^9, 3.843988362393538*^9}, - 3.843988489524564*^9}, - CellLabel-> - "In[542]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], + 3.843988489524564*^9, {3.844136044025272*^9, 3.844136047289119*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "1.0179704579082998`"}], " ", + RowBox[{"(", + RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", + RowBox[{"1.`", " ", + RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", + RowBox[{"1.964693557128907`", " ", + RowBox[{ + SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]", + MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]], "Output", + CellChangeTimes->{3.844136047741577*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"] +}, Open ]], Cell[CellGroupData[{ @@ -1190,8 +1323,7 @@ Cell[BoxData[{ 3.8439852967469473`*^9, 3.8439853090769577`*^9}, {3.843985419965234*^9, 3.843985436839972*^9}, {3.8439859516652393`*^9, 3.8439859894619703`*^9}, { 3.8439882228149643`*^9, 3.843988228008665*^9}}, - CellLabel-> - "In[507]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], + CellLabel->"In[11]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[CellGroupData[{ @@ -4183,8 +4315,9 @@ Cell[BoxData[ CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] }, -WindowSize->{475.5, 790.5}, -WindowMargins->{{482.25, Automatic}, {2.25, Automatic}}, +WindowSize->{1435.5, 790.5}, +WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, +TaggingRules->{"TryRealOnly" -> False}, FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00" @@ -4200,172 +4333,180 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 597, 10, 71, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], +Cell[558, 20, 596, 10, 29, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], +Cell[CellGroupData[{ +Cell[1179, 34, 2286, 64, 139, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], +Cell[3468, 100, 466, 6, 33, "Output",ExpressionUUID->"099fda0a-8f77-46f8-bc92-ee246f8e4d7a"], +Cell[3937, 108, 467, 6, 33, "Output",ExpressionUUID->"7a806346-1c79-490a-b950-a7a27cd5405a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4441, 119, 3846, 85, 137, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], +Cell[8290, 206, 1339, 21, 33, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] +}, Open ]], Cell[CellGroupData[{ -Cell[1180, 34, 2287, 64, 225, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], -Cell[3470, 100, 418, 5, 33, "Output",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"], -Cell[3891, 107, 416, 5, 33, "Output",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"] +Cell[9666, 232, 3847, 85, 137, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], +Cell[13516, 319, 640, 12, 36, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] }, Open ]], Cell[CellGroupData[{ -Cell[4344, 117, 3846, 85, 247, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], -Cell[8193, 204, 1339, 21, 96, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] +Cell[14193, 336, 302, 8, 32, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], +Cell[14498, 346, 206, 4, 33, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] }, Open ]], Cell[CellGroupData[{ -Cell[9569, 230, 3847, 85, 247, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], -Cell[13419, 317, 640, 12, 79, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] +Cell[14741, 355, 551, 15, 32, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], +Cell[15295, 372, 820, 23, 64, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] }, Open ]], +Cell[16130, 398, 2411, 65, 45, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"], Cell[CellGroupData[{ -Cell[14096, 334, 302, 8, 32, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], -Cell[14401, 344, 206, 4, 33, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] +Cell[18566, 467, 406, 9, 29, "Input",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"], +Cell[18975, 478, 1368, 33, 49, "Output",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"] }, Open ]], +Cell[20358, 514, 4890, 100, 45, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], Cell[CellGroupData[{ -Cell[14644, 353, 551, 15, 32, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], -Cell[15198, 370, 820, 23, 64, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] +Cell[25273, 618, 874, 18, 29, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], +Cell[26150, 638, 534, 12, 33, "Output",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"] }, Open ]], -Cell[16033, 396, 4890, 100, 147, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], -Cell[20926, 498, 861, 20, 71, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], Cell[CellGroupData[{ -Cell[21812, 522, 304, 7, 29, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], -Cell[22119, 531, 12065, 270, 216, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] +Cell[26721, 655, 304, 7, 29, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], +Cell[27028, 664, 12065, 270, 236, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] }, Open ]], Cell[CellGroupData[{ -Cell[34221, 806, 281, 6, 29, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], -Cell[34505, 814, 238, 5, 33, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] +Cell[39130, 939, 281, 6, 29, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], +Cell[39414, 947, 238, 5, 33, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] }, Open ]], Cell[CellGroupData[{ -Cell[34780, 824, 1589, 42, 185, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], -Cell[36372, 868, 3039, 47, 159, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], -Cell[39414, 917, 2133, 34, 88, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], -Cell[41550, 953, 1416, 24, 70, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], -Cell[42969, 979, 628, 12, 35, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], -Cell[43600, 993, 4228, 87, 222, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] +Cell[39689, 957, 1589, 42, 97, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], +Cell[41281, 1001, 3039, 47, 75, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], +Cell[44323, 1050, 2133, 34, 38, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], +Cell[46459, 1086, 1416, 24, 24, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], +Cell[47878, 1112, 628, 12, 21, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], +Cell[48509, 1126, 4228, 87, 243, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] }, Open ]], Cell[CellGroupData[{ -Cell[47865, 1085, 241, 5, 29, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], -Cell[48109, 1092, 267, 7, 35, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] +Cell[52774, 1218, 241, 5, 29, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], +Cell[53018, 1225, 267, 7, 35, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] }, Open ]], -Cell[48391, 1102, 4523, 91, 222, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], +Cell[53300, 1235, 4519, 90, 133, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[CellGroupData[{ -Cell[52939, 1197, 1242, 35, 132, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], -Cell[54184, 1234, 14451, 259, 223, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] +Cell[57844, 1329, 1242, 35, 48, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], +Cell[59089, 1366, 14451, 259, 243, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] }, Open ]], Cell[CellGroupData[{ -Cell[68672, 1498, 326, 7, 29, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], -Cell[69001, 1507, 188, 4, 48, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] +Cell[73577, 1630, 326, 7, 29, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], +Cell[73906, 1639, 188, 4, 48, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ -Cell[69226, 1516, 255, 5, 29, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], -Cell[69484, 1523, 194, 3, 48, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] +Cell[74131, 1648, 255, 5, 29, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], +Cell[74389, 1655, 194, 3, 48, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ -Cell[69715, 1531, 306, 7, 29, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], -Cell[70024, 1540, 221, 3, 33, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] +Cell[74620, 1663, 306, 7, 29, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], +Cell[74929, 1672, 221, 3, 33, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ -Cell[70282, 1548, 4200, 108, 338, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], -Cell[74485, 1658, 19071, 333, 219, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] +Cell[75187, 1680, 4200, 108, 338, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], +Cell[79390, 1790, 19071, 333, 219, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ -Cell[93593, 1996, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], -Cell[93799, 2002, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] +Cell[98498, 2128, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], +Cell[98704, 2134, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ -Cell[94405, 2021, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], -Cell[94909, 2036, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] +Cell[99310, 2153, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], +Cell[99814, 2168, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ -Cell[95168, 2045, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], -Cell[95414, 2052, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] +Cell[100073, 2177, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], +Cell[100319, 2184, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ -Cell[96698, 2096, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], -Cell[96913, 2102, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] +Cell[101603, 2228, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], +Cell[101818, 2234, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ -Cell[97685, 2122, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], -Cell[102076, 2252, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] +Cell[102590, 2254, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], +Cell[106981, 2384, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ -Cell[103312, 2277, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], -Cell[104000, 2296, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] +Cell[108217, 2409, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], +Cell[108905, 2428, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] }, Open ]], Cell[CellGroupData[{ -Cell[104919, 2315, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], -Cell[105602, 2334, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] +Cell[109824, 2447, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], +Cell[110507, 2466, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] }, Open ]], Cell[CellGroupData[{ -Cell[106441, 2352, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], -Cell[107196, 2371, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] +Cell[111346, 2484, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], +Cell[112101, 2503, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] }, Open ]], Cell[CellGroupData[{ -Cell[107944, 2389, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], -Cell[108645, 2408, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] +Cell[112849, 2521, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], +Cell[113550, 2540, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] }, Open ]], Cell[CellGroupData[{ -Cell[109294, 2425, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], -Cell[110112, 2445, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] +Cell[114199, 2557, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], +Cell[115017, 2577, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] }, Open ]], Cell[CellGroupData[{ -Cell[111116, 2468, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], -Cell[111875, 2487, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] +Cell[116021, 2600, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], +Cell[116780, 2619, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] }, Open ]], Cell[CellGroupData[{ -Cell[112812, 2511, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], -Cell[113654, 2533, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] +Cell[117717, 2643, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], +Cell[118559, 2665, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ -Cell[114152, 2545, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], -Cell[115157, 2570, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] +Cell[119057, 2677, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], +Cell[120062, 2702, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] }, Open ]], Cell[CellGroupData[{ -Cell[115565, 2580, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], -Cell[116616, 2606, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] +Cell[120470, 2712, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], +Cell[121521, 2738, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] }, Open ]], Cell[CellGroupData[{ -Cell[117040, 2616, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], -Cell[117889, 2635, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] +Cell[121945, 2748, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], +Cell[122794, 2767, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] }, Open ]], -Cell[118322, 2644, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], -Cell[119171, 2663, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], +Cell[123227, 2776, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], +Cell[124076, 2795, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], Cell[CellGroupData[{ -Cell[119428, 2670, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], -Cell[120274, 2689, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] +Cell[124333, 2802, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], +Cell[125179, 2821, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] }, Open ]], Cell[CellGroupData[{ -Cell[120544, 2697, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], -Cell[121442, 2717, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] +Cell[125449, 2829, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], +Cell[126347, 2849, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, Open ]], Cell[CellGroupData[{ -Cell[121951, 2729, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], -Cell[122182, 2736, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] +Cell[126856, 2861, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], +Cell[127087, 2868, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ -Cell[122493, 2749, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], -Cell[124038, 2778, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] +Cell[127398, 2881, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], +Cell[128943, 2910, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], -Cell[136374, 3051, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], -Cell[136552, 3056, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], +Cell[141279, 3183, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], +Cell[141457, 3188, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ -Cell[136933, 3067, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], -Cell[137112, 3071, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] +Cell[141838, 3199, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], +Cell[142017, 3203, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ -Cell[139246, 3141, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], -Cell[140109, 3167, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] +Cell[144151, 3273, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], +Cell[145014, 3299, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ -Cell[142090, 3229, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], -Cell[144715, 3308, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] +Cell[146995, 3361, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], +Cell[149620, 3440, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], -Cell[166568, 3750, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], -Cell[167296, 3767, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], +Cell[171473, 3882, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], +Cell[172201, 3899, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ -Cell[168085, 3792, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], -Cell[168767, 3811, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] +Cell[172990, 3924, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], +Cell[173672, 3943, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ -Cell[170102, 3848, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], -Cell[170841, 3868, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] +Cell[175007, 3980, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], +Cell[175746, 4000, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] diff --git a/new_schofield.nb b/new_schofield.nb index 9b86f5b..e54bca2 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 2187802, 38647] -NotebookOptionsPosition[ 2167171, 38343] -NotebookOutlinePosition[ 2167571, 38359] -CellTagsIndexPosition[ 2167528, 38356] +NotebookDataLength[ 2237790, 39495] +NotebookOptionsPosition[ 2216707, 39187] +NotebookOutlinePosition[ 2217108, 39203] +CellTagsIndexPosition[ 2217065, 39200] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -1487,24 +1487,25 @@ Cell[BoxData[{ 3.843884391590458*^9, 3.8438844521906443`*^9}, {3.843893099389781*^9, 3.8438931001718616`*^9}, {3.843895688269582*^9, 3.843895688923799*^9}, { 3.8438991895486917`*^9, 3.843899252351191*^9}}, - CellLabel->"In[36]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], + CellLabel->"In[38]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.1648856316501015`", ",", + RowBox[{"3.1648856316500398`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647100184`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044731`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647113243`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044883`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801431857895`"}]}], ",", + RowBox[{"-", "2.3933801431842485`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757169919`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757144406`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349698142`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.45586753496891075`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.01406961236362214`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.014069612363697113`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.843816627981923*^9, 3.8438166906843433`*^9}, { 3.843816728221302*^9, 3.843816890387457*^9}, {3.843816954497418*^9, 3.843816977126855*^9}, {3.843817045845647*^9, 3.84381704833007*^9}, { @@ -1515,8 +1516,9 @@ Cell[BoxData[ 3.8438852775933657`*^9}, {3.8438930922316732`*^9, 3.843893113567326*^9}, 3.843893232171549*^9, {3.843895660940199*^9, 3.843895691702873*^9}, { 3.843897137547141*^9, 3.843897142383761*^9}, {3.843899197736055*^9, - 3.8438992559841423`*^9}, 3.843901920619899*^9, 3.843970209674953*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] + 3.8438992559841423`*^9}, 3.843901920619899*^9, 3.843970209674953*^9, + 3.844085508534749*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"ec98952e-4a18-4631-8e4b-26548fe71159"] }, Open ]], Cell[CellGroupData[{ @@ -1556,29 +1558,82 @@ Cell[BoxData[ CellChangeTimes->{{3.8438934053618307`*^9, 3.843893413441764*^9}, { 3.843899229877779*^9, 3.8438992597272253`*^9}, {3.843970228035159*^9, 3.843970238483116*^9}}, - CellLabel->"In[40]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], + CellLabel->"In[41]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.582132356661545`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 41, 5, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085513839671*^9}, + CellLabel-> + "During evaluation of \ +In[41]:=",ExpressionUUID->"606c1d33-f633-4061-9e5a-b68f4618c677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"2.075778103580468`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 41, 6, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085513917593*^9}, + CellLabel-> + "During evaluation of \ +In[41]:=",ExpressionUUID->"fb8ff7e8-e796-43a5-aa75-a4748254d35f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"7.910661783307725`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 41, 7, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085513968781*^9}, + CellLabel-> + "During evaluation of \ +In[41]:=",ExpressionUUID->"d4332e36-d878-4288-b541-aa0ce07d39d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 41, 8, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085513998461*^9}, + CellLabel-> + "During evaluation of \ +In[41]:=",ExpressionUUID->"9adc8948-a973-447d-9210-111e7e13bd13"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.1649036098479413`", ",", + RowBox[{"3.1649036396653245`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668446298`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122601004`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668474411`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122683588`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.393380156636518`"}]}], ",", + RowBox[{"-", "2.3933801566382047`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670773562`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670747212`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458279417`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.45586754582706995`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069600756944788`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.014069600755773466`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.843893413830318*^9, {3.8438956969492483`*^9, 3.8438956994043627`*^9}, 3.843897142565444*^9, {3.843899225556612*^9, 3.84389926027955*^9}, - 3.843901920824957*^9, {3.843970231905294*^9, 3.843970239782789*^9}}, - CellLabel->"Out[40]=",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] + 3.843901920824957*^9, {3.843970231905294*^9, 3.843970239782789*^9}, + 3.844085514081236*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"dfcdebdf-f906-4dcc-bea6-b8fddccccf10"] }, Open ]], Cell[CellGroupData[{ @@ -1655,31 +1710,82 @@ Cell[BoxData[{ 3.843884461862664*^9, 3.8438844756629963`*^9}, {3.843884685619783*^9, 3.843884686098906*^9}, {3.8438957098039637`*^9, 3.843895711468151*^9}, 3.843895754605989*^9, {3.843899267550132*^9, 3.843899275133893*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], + CellLabel->"In[42]:=",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.7747588224198777`*^-308\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 44, 9, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085526937912*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"828ded20-9b75-46c6-9c57-3c5c9d088433"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"8.778422347366475`*^-308\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 44, 10, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8440855275117493`*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"c7ba3e0d-71d1-4299-bb10-09915e94c539"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"2.685344988752644`*^-308\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 44, 11, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085527718094*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"6fcf85c1-e776-4850-bb28-2330e4d37631"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 44, 12, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085527750236*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"aeee318f-167d-4388-b8df-df133929cfca"], Cell[BoxData[ RowBox[{"{", - RowBox[{"11.751113957916967`", ",", + RowBox[{"11.7511160185831`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.331282903835563`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1990484038713263`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3313486334590305`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19904868803575992`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2569952677267766`"}]}], ",", + RowBox[{"-", "2.25698345180104`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667536459903`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.307641305747679`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3961569989930734`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3961066748872896`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014413534782357226`"}]}], ",", + RowBox[{"-", "0.01443552471650996`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.00023300168594435792`"}]}]}], "}"}]}], "}"}]], "Output",\ + RowBox[{"-", "0.00022972921040302264`"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.84389571331374*^9, 3.843895757465501*^9}, - 3.843897147702183*^9, 3.843899287874754*^9, 3.843901921642076*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] + 3.843897147702183*^9, 3.843899287874754*^9, 3.843901921642076*^9, + 3.844085527781891*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"0521a4d7-0358-4fb2-9615-f8e842017b4d"] }, Open ]], Cell[CellGroupData[{ @@ -1717,83 +1823,82 @@ Cell[BoxData[ RowBox[{"SN", "[", "3", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8438957274767113`*^9, 3.843895737580668*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], + CellLabel->"In[45]:=",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"1.383581283132903`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 13, 1, - 31653754106501107189, "Local"}, +\"-\\\", \\\"2.0452521753692564`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 45, + 13, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843901922592671*^9}, + CellChangeTimes->{3.843901922592671*^9, 3.844085542687726*^9}, CellLabel-> "During evaluation of \ -In[13]:=",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], +In[45]:=",ExpressionUUID->"1e8c5605-6d80-4291-be90-d02e1aa21bf7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"6.917906415664515`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 13, 2, - 31653754106501107189, "Local"}, +\"-\\\", \\\"1.7870840093114997`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 45, + 14, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84390192264589*^9}, + CellChangeTimes->{3.843901922592671*^9, 3.844085543101637*^9}, CellLabel-> "During evaluation of \ -In[13]:=",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], +In[45]:=",ExpressionUUID->"797bbd09-273f-4512-af48-f9b1c5165911"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"3.4589532078322574`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 13, - 3, 31653754106501107189, "Local"}, +\"-\\\", \\\"1.0226260876846282`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 45, + 15, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843901922651989*^9}, + CellChangeTimes->{3.843901922592671*^9, 3.8440855431638527`*^9}, CellLabel-> "During evaluation of \ -In[13]:=",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], +In[45]:=",ExpressionUUID->"e1a653d3-2211-4bc9-9959-3b363bd43834"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 13, 4, 31653754106501107189, "Local"}, +during this calculation.\"", 2, 45, 16, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843901922693015*^9}, + CellChangeTimes->{3.843901922592671*^9, 3.844085543194022*^9}, CellLabel-> "During evaluation of \ -In[13]:=",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], +In[45]:=",ExpressionUUID->"e9a8f49b-29bb-42f7-81bf-a680544a69b5"], Cell[BoxData[ RowBox[{"{", - RowBox[{"11.751142100970982`", ",", + RowBox[{"11.75114545187156`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3312829236892874`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1990484241151759`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3313486533153978`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19904870828543317`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2569953198152035`"}]}], ",", + RowBox[{"-", "2.2569835039039003`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667198757734`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076412719682586`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39615702441258427`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3961067003151738`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014413476770888844`"}]}], ",", + RowBox[{"-", "0.014435466691032905`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.00023301374253497338`"}]}]}], "}"}]}], "}"}]], "Output",\ + RowBox[{"-", "0.00022974126858510006`"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.843895738249465*^9, 3.843895761446396*^9}, - 3.843897148276168*^9, 3.843901922758602*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] + 3.843897148276168*^9, 3.843901922758602*^9, 3.8440855437422028`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"ade78376-64f5-47b3-9987-fe77d254785f"] }, Open ]], Cell[CellGroupData[{ @@ -1871,31 +1976,82 @@ Cell[BoxData[{ 3.8438172106972446`*^9}, {3.843884495599029*^9, 3.8438845305933723`*^9}, { 3.84388469395575*^9, 3.84388469436313*^9}, {3.843893246719131*^9, 3.84389324737465*^9}, {3.843895780750424*^9, 3.843895781477371*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], + CellLabel->"In[46]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"7.086707313579416`*^-308\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 48, 17, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085563006016*^9}, + CellLabel-> + "During evaluation of \ +In[46]:=",ExpressionUUID->"86bf587f-026e-496e-91e9-6105d7eb3a15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"5.400955090828435`*^-308\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 48, 18, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8440855635890217`*^9}, + CellLabel-> + "During evaluation of \ +In[46]:=",ExpressionUUID->"606975cb-8393-461c-8fdc-5e93d6bda4b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"8.25716627962592`*^-308\\\ +\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 48, 19, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085563724944*^9}, + CellLabel-> + "During evaluation of \ +In[46]:=",ExpressionUUID->"32d24ed4-2974-4837-a919-03f87dc10df6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 48, 20, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8440855637542877`*^9}, + CellLabel-> + "During evaluation of \ +In[46]:=",ExpressionUUID->"b2174457-426c-4d4d-b6e2-bb6ef07f409d"], Cell[BoxData[ RowBox[{"{", - RowBox[{"2.5884920771752538`", ",", + RowBox[{"2.5884920771758964`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746720023`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19891824287445714`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.331059674667891`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19891824288560986`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.361502215545131`"}]}], ",", + RowBox[{"-", "2.361502214675438`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.46058409961803`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4605840984773528`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169850193`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.30719761565451936`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.026882257042416906`"}]}], ",", + RowBox[{"-", "0.026882255714883656`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03321206004178937`"}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03321206041220755`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.004370268351432168`"}]}], ",", + RowBox[{"-", "0.004370268381832514`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210538799`"}]}], + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338303795416`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9, @@ -1931,8 +2087,9 @@ Cell[BoxData[ 3.843884528604434*^9, 3.8438845391768007`*^9}, 3.843884699240148*^9, { 3.843885296425564*^9, 3.8438853036797867`*^9}, {3.8438932494816437`*^9, 3.843893257426305*^9}, {3.843895783800992*^9, 3.843895791614253*^9}, - 3.8438958405153723`*^9, 3.8438971523530397`*^9, 3.8439019246171093`*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] + 3.8438958405153723`*^9, 3.8438971523530397`*^9, 3.8439019246171093`*^9, + 3.844085565410104*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"faf17d28-027e-4782-9428-e39c0ac9f20a"] }, Open ]], Cell[CellGroupData[{ @@ -1970,36 +2127,84 @@ Cell[BoxData[ RowBox[{"SN", "[", "4", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.843895795253961*^9, 3.843895808005636*^9}}, - CellLabel->"In[17]:=",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], + CellLabel->"In[49]:=",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5509839361375514`*^-307\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 49, 21, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085582485648*^9}, + CellLabel-> + "During evaluation of \ +In[49]:=",ExpressionUUID->"181dc4ff-941a-4b9d-8137-f8e3a46ea13c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"2.022835393948343`*^-307\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 49, 22, + 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8440855831501417`*^9}, + CellLabel-> + "During evaluation of \ +In[49]:=",ExpressionUUID->"d27c6ed4-5a6e-4838-95da-26c38873a525"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5693498535113763`*^-307\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 49, 23, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8440855832541237`*^9}, + CellLabel-> + "During evaluation of \ +In[49]:=",ExpressionUUID->"e1bb172d-e9b7-4b85-8f13-990d2be723f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 49, 24, 25192597500608025920, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.844085583283182*^9}, + CellLabel-> + "During evaluation of \ +In[49]:=",ExpressionUUID->"7e2d84cc-091c-4e1e-904b-1bc7e2ed3e5b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"2.5894982288562955`", ",", + RowBox[{"2.5895036584313944`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746630394`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19891824286627846`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.331059674665404`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19891824287772772`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.361502215519321`"}]}], ",", + RowBox[{"-", "2.361502214651624`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.460584099622719`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4605840984822007`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169866144`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976156532618`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.026882257199972816`"}]}], ",", + RowBox[{"-", "0.026882255872590025`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.033212060175714056`"}], - ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03321206054247045`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.004370268382751191`"}]}], ",", + RowBox[{"-", "0.004370268412195115`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210075686`"}]}], + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.032333383031876016`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8438958097062683`*^9, 3.843897155058906*^9, - 3.843901926169096*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] + 3.843901926169096*^9, 3.844085584565158*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c1d34a55-d37c-48bd-a03f-eeaa34510bac"] }, Open ]], Cell[CellGroupData[{ @@ -2007,7 +2212,7 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "5", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "5", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "5", "]"}], "=", @@ -2047,7 +2252,11 @@ Cell[BoxData[{ RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "->", "0"}], ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], + ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, { @@ -2078,92 +2287,40 @@ Cell[BoxData[{ 3.843884702107793*^9, 3.8438847380433903`*^9}, 3.843885321335536*^9, 3.8438932628714952`*^9, 3.8438932978331213`*^9, {3.843893438578382*^9, 3.843893439298211*^9}, {3.843893480084515*^9, 3.843893480195063*^9}, { - 3.84390227137232*^9, 3.843902272068658*^9}}, - CellLabel->"In[45]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"1.5643457278865946`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 47, - 34, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, - 3.843902016449499*^9, 3.8439022821790667`*^9}, - CellLabel-> - "During evaluation of \ -In[45]:=",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"7.821728639432973`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 47, - 35, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, - 3.843902016449499*^9, 3.8439022822247667`*^9}, - CellLabel-> - "During evaluation of \ -In[45]:=",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"1.1357180869699784`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 47, - 36, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, - 3.843902016449499*^9, 3.843902282271016*^9}, - CellLabel-> - "During evaluation of \ -In[45]:=",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 47, 37, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, - 3.843902016449499*^9, 3.8439022823138847`*^9}, - CellLabel-> - "During evaluation of \ -In[45]:=",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], + 3.84390227137232*^9, 3.843902272068658*^9}, {3.844085612156879*^9, + 3.844085624770358*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[BoxData[ RowBox[{"{", - RowBox[{"5.275380895686097`", ",", + RowBox[{"2.466759577582444`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3659855916402093`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19798224717346755`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.424267485780541`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1992711603952227`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.432462467455871`"}]}], ",", + RowBox[{"-", "2.3444194829449576`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5545013988137597`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4326274090819284`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4152771313274199`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22717381764123148`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.16464479623608336`"}]}], ",", + RowBox[{"-", "0.05493371009724726`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0015866531307366378`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.07677213602274902`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0013870109773813654`"}]}], ",", + RowBox[{"-", "0.008419750267403346`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.05442435526910374`"}]}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.014551514064764095`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00017404316385435817`"}]}], - "}"}]}], "}"}]], "Output", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0012187298177748498`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.012174403607223182`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8414648792576437`*^9, 3.841466213483655*^9, 3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9, 3.8417351450580807`*^9, @@ -2196,8 +2353,8 @@ Cell[BoxData[ 3.843893269720996*^9, 3.843893306270376*^9}, {3.843893435890896*^9, 3.843893511639142*^9}, {3.843895860382124*^9, 3.84389587869118*^9}, 3.843897173840925*^9, 3.843901935611261*^9, 3.843902021521545*^9, - 3.843902283059269*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] + 3.843902283059269*^9, 3.844085656729051*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c67f9139-1916-45d8-b2aa-8739130b7377"] }, Open ]], Cell[CellGroupData[{ @@ -2237,87 +2394,42 @@ Cell[BoxData[ CellChangeTimes->{{3.843893524691846*^9, 3.8438935377880898`*^9}, 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, { 3.8438959087931347`*^9, 3.8438959090159683`*^9}, 3.843902027056909*^9}, - CellLabel->"In[48]:=",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 48, 38, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84390203253931*^9, 3.843902287225566*^9}, - CellLabel-> - "During evaluation of \ -In[48]:=",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 48, 39, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84390203253931*^9, 3.84390228735631*^9}, - CellLabel-> - "During evaluation of \ -In[48]:=",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 48, 40, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84390203253931*^9, 3.843902287539579*^9}, - CellLabel-> - "During evaluation of \ -In[48]:=",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ -\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ -this calculation.\"", 2, 48, 41, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84390203253931*^9, 3.8439022875834217`*^9}, - CellLabel-> - "During evaluation of \ -In[48]:=",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], + CellLabel->"In[53]:=",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], Cell[BoxData[ RowBox[{"{", - RowBox[{"782.9024683563285`", ",", + RowBox[{"2.4667999303463906`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.417421768248329`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19623756996571676`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4242622700519745`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1992714221754604`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.384349776177989`"}]}], ",", + RowBox[{"-", "2.3444089543526156`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4944302576186625`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4326225517561784`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827412960121003`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22711007353972304`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2224895687204029`"}]}], ",", + RowBox[{"-", "0.05489830141899225`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.03607560739406468`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.07682285668736964`"}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00655047414057241`"}], ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.008425491244743443`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.09565637440779434`"}]}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.014564884561744164`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0006926970427181251`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00122001662416486`"}], ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.012185421594463343`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, { 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9, - 3.843901940455085*^9, 3.843902037286686*^9, 3.843902292271083*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] + 3.843901940455085*^9, 3.843902037286686*^9, 3.843902292271083*^9, + 3.844085711650053*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"2691df8e-4c25-4822-b142-9257cae7164c"] }, Open ]], Cell[CellGroupData[{ @@ -2358,41 +2470,43 @@ Cell[BoxData[ 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, { 3.8438959087931347`*^9, 3.8438959090159683`*^9}, {3.843902027056909*^9, 3.843902045024184*^9}}, - CellLabel->"In[49]:=",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], + CellLabel->"In[54]:=",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], Cell[BoxData[ RowBox[{"{", - RowBox[{"781.9183891323007`", ",", + RowBox[{"2.4668136446583357`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4174499095572046`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19623837275274397`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4242622700519745`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1992714221754604`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3844047782650346`"}]}], ",", + RowBox[{"-", "2.3444089543526156`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4945044321287986`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4326225517561784`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827425954641644`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22711007353972304`"}], ",", + RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.22253679627867537`"}]}], ",", + RowBox[{"-", "0.05489830141899222`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.03607696344672339`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.07682285668736964`"}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.006550889829736402`"}], - ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.008425491244743441`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.09566783498205164`"}]}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.014564884561744172`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0006927978972384512`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0012200166241648602`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.012185421594463345`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, { 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9, 3.843901940455085*^9, {3.843902037286686*^9, 3.843902049709662*^9}, - 3.843902299644085*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] + 3.843902299644085*^9, 3.844085745247385*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"c6d0fbe8-5d9d-4139-a88e-e375eb9fc814"] }, Open ]], Cell[CellGroupData[{ @@ -2400,7 +2514,7 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "6", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "6", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "6", "]"}], "=", @@ -2441,7 +2555,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{ - RowBox[{"A", "[", "4", "]"}], "->", "0"}], ",", + RowBox[{"A", "[", "5", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", SuperscriptBox["10", @@ -2477,43 +2591,44 @@ Cell[BoxData[{ 3.843884758771953*^9, 3.84388475913988*^9}, {3.843884831877975*^9, 3.8438848346376333`*^9}, {3.843884973951572*^9, 3.843884974495858*^9}, { 3.8438936156376534`*^9, 3.843893616549342*^9}, 3.843894707083518*^9, - 3.8439021672681637`*^9}, - CellLabel->"In[56]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], + 3.8439021672681637`*^9, {3.844085804666209*^9, 3.8440858249484463`*^9}}, + CellLabel->"In[57]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[BoxData[ RowBox[{"{", - RowBox[{"7.206485312402673`", ",", + RowBox[{"5.839012018462659`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3202935507800044`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1975914146940715`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3398198859665875`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19869505091544978`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4759955012663792`"}]}], ",", + RowBox[{"-", "2.4139392955663697`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6199499108601143`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5517097435064886`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.41116945013129075`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.19939822215857333`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.17105945200813755`"}]}], ",", + RowBox[{"-", "0.05261321561498922`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03709585278787565`"}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.17623075382639436`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.044989919411572`"}]}], ",", + RowBox[{"-", "0.0592567586071191`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.02268309568493727`"}]}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.046524432946114594`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.013931497523780157`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.018403671359670238`"}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.012995806497916306`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.015792273009231677`"}], ",", + RowBox[{ + RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0015977517153956515`"}], + ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0017772272087942685`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.0019208479409624317`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9, 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9, @@ -2548,8 +2663,8 @@ Cell[BoxData[ 3.843893989631591*^9, 3.8438945508023443`*^9, 3.8438946364911537`*^9, 3.843894728756699*^9, 3.843895946036622*^9, 3.843897226683311*^9, 3.843902082931218*^9, {3.8439021604155827`*^9, 3.843902186174138*^9}, - 3.843902342914719*^9, 3.843902519954713*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] + 3.843902342914719*^9, 3.843902519954713*^9, 3.84408593853584*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"994fd86b-3a38-481f-969a-a46a9b8a1546"] }, Open ]], Cell[CellGroupData[{ @@ -2588,97 +2703,101 @@ Cell[BoxData[ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.843902077088789*^9, {3.843902128514913*^9, 3.8439021286739902`*^9}}, - CellLabel->"In[59]:=",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], + CellLabel->"In[60]:=",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], Cell[BoxData[ TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 59, 55, 31653754106501107189, "Local"}, + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.316995021742252`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 60, + 25, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, - 3.84390253454387*^9}, + 3.84390253454387*^9, 3.8440860615006*^9}, CellLabel-> "During evaluation of \ -In[59]:=",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], +In[60]:=",ExpressionUUID->"50c1f9db-d511-4e4d-82ee-f4b170f3928a"], Cell[BoxData[ TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 59, 56, 31653754106501107189, "Local"}, + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.8077025533592354`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 60, + 26, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, - 3.8439025349102163`*^9}, + 3.84390253454387*^9, 3.8440860620052853`*^9}, CellLabel-> "During evaluation of \ -In[59]:=",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], +In[60]:=",ExpressionUUID->"e2951d22-dbee-426e-9d2f-07273f5dfb17"], Cell[BoxData[ TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 59, 57, 31653754106501107189, "Local"}, + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5573441949345712`*^-307\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 60, 27, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, - 3.843902535703671*^9}, + 3.84390253454387*^9, 3.844086062647519*^9}, CellLabel-> "During evaluation of \ -In[59]:=",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], +In[60]:=",ExpressionUUID->"2701a564-5e4a-432b-85df-c26538f17ccc"], Cell[BoxData[ TemplateBox[{ "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ -\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ -this calculation.\"", 2, 59, 58, 31653754106501107189, "Local"}, + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 60, 28, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, - 3.843902535744382*^9}, + 3.84390253454387*^9, 3.844086063299534*^9}, CellLabel-> "During evaluation of \ -In[59]:=",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], +In[60]:=",ExpressionUUID->"aece043e-cb9d-4d2a-9162-98d48749a667"], Cell[BoxData[ RowBox[{"{", - RowBox[{"104.23080840239297`", ",", + RowBox[{"96.50348730712902`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3693245641608245`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1971430368297307`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3877588522895008`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19710674376223233`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.433757359091536`"}]}], ",", + RowBox[{"-", "2.442176866686059`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5599700062155228`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5725000313807143`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135318873582`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4622460959870973`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2005939288764567`"}]}], ",", + RowBox[{"-", "0.2229846230407289`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.026210637509807237`"}]}], ",", + RowBox[{"-", "0.000329982330836756`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.014884741008542564`"}]}], ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.002815263894131611`"}], + ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.05406441159475623`"}]}], ",", + RowBox[{"-", "0.10970304610866415`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876307860813`"}], - ",", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.0009387648126340071`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.014420057232025288`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.015169893320946187`"}], ",", RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.000570798002340311`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"A", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0018186964898347939`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.00002753108778653612`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{3.84390209451889*^9, 3.8439022086870003`*^9, - 3.843902501751268*^9, 3.8439025399681253`*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] + 3.843902501751268*^9, 3.8439025399681253`*^9, 3.844086071156098*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"214547ff-a3e3-4da5-ba3d-de4d689ffe59"] }, Open ]], Cell[CellGroupData[{ @@ -2718,96 +2837,48 @@ Cell[BoxData[ CellChangeTimes->{{3.843894745437924*^9, 3.8438947538904467`*^9}, { 3.843895956896408*^9, 3.843895957416436*^9}, {3.8439021304751263`*^9, 3.843902130666195*^9}}, - CellLabel->"In[60]:=",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"1.891406938872476`*^-307\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 60, 59, - 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8439025533284607`*^9}, - CellLabel-> - "During evaluation of \ -In[60]:=",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"9.45703469436238`*^-308\\\ -\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 60, 60, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843902554173274*^9}, - CellLabel-> - "During evaluation of \ -In[60]:=",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"1.157933366503335`*^-307\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 60, 61, - 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843902555537036*^9}, - CellLabel-> - "During evaluation of \ -In[60]:=",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 60, 62, 31653754106501107189, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843902555542123*^9}, - CellLabel-> - "During evaluation of \ -In[60]:=",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], + CellLabel->"In[61]:=",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], Cell[BoxData[ RowBox[{"{", - RowBox[{"105.20006456324`", ",", + RowBox[{"90.4374120748726`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3693245643432388`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19714303679801537`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.387700257017475`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19710650357634105`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4337573590963326`"}]}], ",", + RowBox[{"-", "2.4421979153260382`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.559970006062279`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.572531419779727`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135324822247`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4623046424292532`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.20059393001573939`"}]}], ",", + RowBox[{"-", "0.22297993541861633`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.02621063711050144`"}]}], ",", + RowBox[{"-", "0.00037154605141472604`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.01488474127424088`"}]}], ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0028148464179159087`"}], + ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.054064411318565486`"}]}], ",", + RowBox[{"-", "0.10969313099701818`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876176117714`"}], - ",", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.0009371659175707711`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.014420057543619254`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.015149733219723299`"}], ",", + RowBox[{ + RowBox[{"A", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.001816612268988648`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.000570797961625302`"}]}]}], "}"}]}], "}"}]], "Output", + "0.000027362715818964995`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8438947704883204`*^9, 3.843895969029764*^9, 3.8438972437495537`*^9, 3.843902106182866*^9, 3.843902220151823*^9, - 3.843902555547042*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] + 3.843902555547042*^9, 3.844086147358294*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"72a26d03-7ad4-4584-a53b-39de4781a452"] }, Open ]], Cell[CellGroupData[{ @@ -4630,7 +4701,7 @@ Cell[BoxData[ RowBox[{"H", "[", "#", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "9"}], "]"}]}]}], ";"}]], "Input", + RowBox[{"2", ",", "7"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, { 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9, 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, { @@ -4755,8 +4826,9 @@ Cell[BoxData[ 3.843107664900504*^9}, {3.843117576267062*^9, 3.843117577898965*^9}, { 3.8431965775334883`*^9, 3.843196577687647*^9}, {3.8431966249287167`*^9, 3.843196626848268*^9}, {3.8432906922751417`*^9, 3.843290744856604*^9}, { - 3.843544475418182*^9, 3.843544475561912*^9}, 3.843728579496278*^9}, - CellLabel->"In[62]:=",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], + 3.843544475418182*^9, 3.843544475561912*^9}, 3.843728579496278*^9, { + 3.844085420599657*^9, 3.8440854208699408`*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], Cell[BoxData[ RowBox[{ @@ -4793,7 +4865,7 @@ Cell[BoxData[ RowBox[{"SN", "[", "#", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "9"}], "]"}]}]}], ";"}]], "Input", + RowBox[{"2", ",", "5"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, { 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9, 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, { @@ -4939,9 +5011,9 @@ Cell[BoxData[ 3.843897735729596*^9, 3.8438977360095463`*^9}, {3.843898295125554*^9, 3.84389829609173*^9}, 3.8439010408945436`*^9, 3.843902113361537*^9, { 3.843902718148726*^9, 3.843902718404586*^9}, {3.843903443514246*^9, - 3.8439034437301693`*^9}, {3.8439061282357187`*^9, 3.843906128939198*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], + 3.8439034437301693`*^9}, {3.8439061282357187`*^9, 3.843906128939198*^9}, { + 3.844085765734462*^9, 3.8440857659588127`*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ @@ -4955,137 +5027,63 @@ Cell[BoxData[ CellChangeTimes->{{3.843711517183962*^9, 3.8437115486234922`*^9}, { 3.8437120377524652`*^9, 3.843712041968378*^9}, {3.8438173592547607`*^9, 3.843817359444666*^9}, {3.8438851953645*^9, 3.8438852081640587`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], + CellLabel->"In[56]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.560181, 0.691569, 0.194885], StyleBox[{{}, { - LineBox[{{1., -9.121285207970635}, {1., -9.121285189674733}}], - LineBox[{{1., -9.121285189674733}, {1., -9.121285171378831}}]}}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{{}, { - LineBox[{{2., -6.757705342348684}, {2., -6.757705340627354}}], - LineBox[{{2., -6.757705340627354}, {2., -6.757705338906025}}]}}, + LineBox[{{1., -9.121285209438469}, {1., -9.121285191142567}}], + LineBox[{{1., -9.121285191142567}, {1., -9.121285172846665}}]}}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], StyleBox[{{}, { - LineBox[{{3., -6.72370612140098}, {3., -6.72370611973719}}], - LineBox[{{3., -6.72370611973719}, {3., -6.7237061180734}}]}}, + LineBox[{{2., -6.757991942631244}, {2., -6.75799194090942}}], + LineBox[{{2., -6.75799194090942}, {2., -6.757991939187597}}]}}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], StyleBox[{{}, { - LineBox[{{4., -10.109801247911934`}, {4., -10.109801198746386`}}], - LineBox[{{4., -10.109801198746386`}, {4., -10.109801149580841`}}]}}, - + LineBox[{{3., -6.723706115048581}, {3., -6.723706113384791}}], + LineBox[{{3., -6.723706113384791}, {3., -6.723706111721001}}]}}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], StyleBox[{{}, { - LineBox[{{5., -10.283603027489416`}, {5., -10.28360296899128}}], - LineBox[{{5., -10.28360296899128}, {5., -10.283602910493148`}}]}}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{{}, { - LineBox[{{6., -12.309343980073828`}, {6., -12.309343536557039`}}], - LineBox[{{6., -12.309343536557039`}, {6., -12.309343093040445`}}]}}, - - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{{}, { - LineBox[{{7., -9.807059753123985}, {7., -9.807059716800968}}], - LineBox[{{7., -9.807059716800968}, {7., -9.807059680477952}}]}}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{{}, { - LineBox[{{8., -9.089527104916078}, {8., -9.08952708719209}}], - LineBox[{{8., -9.08952708719209}, {8., -9.089527069468103}}]}}, + LineBox[{{4., -6.877256269622569}, {4., -6.877256267682646}}], + LineBox[{{4., -6.877256267682646}, {4., -6.877256265742723}}]}}, Antialiasing->False]}}, { {RGBColor[0.922526, 0.385626, 0.209179], StyleBox[{{}, { - LineBox[{{1., -6.569861286925891}, {1., -6.569861279793183}}], - LineBox[{{1., -6.569861279793183}, {1., -6.569861272660474}}]}}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{{}, { - LineBox[{{2., -8.554879259698145}, {2., -8.554879207777887}}], - LineBox[{{2., -8.554879207777887}, {2., -8.554879155857632}}]}}, + LineBox[{{1., -6.569861286889576}, {1., -6.569861279756867}}], + LineBox[{{1., -6.569861279756867}, {1., -6.569861272624158}}]}}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], StyleBox[{{}, { - LineBox[{{3., -8.31167620332549}, {3., -8.311676162614178}}], - LineBox[{{3., -8.311676162614178}, {3., -8.311676121902869}}]}}, + LineBox[{{2., -8.554043769004304}, {2., -8.554043717127406}}], + LineBox[{{2., -8.554043717127406}, {2., -8.554043665250513}}]}}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], StyleBox[{{}, { - LineBox[{{4., -9.32501363932119}, {4., -9.325013527170501}}], - LineBox[{{4., -9.325013527170501}, {4., -9.325013415019825}}]}}, + LineBox[{{3., -8.311676186122043}, {3., -8.31167614541073}}], + LineBox[{{3., -8.31167614541073}, {3., -8.311676104699421}}]}}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], StyleBox[{{}, { - LineBox[{{5., -9.311251716268238}, {5., -9.311251605650387}}], - LineBox[{{5., -9.311251605650387}, {5., -9.311251495032549}}]}}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{{}, { - LineBox[{{6., -10.545631957022044`}, {6., -10.545631576911703`}}], - LineBox[{{6., -10.545631576911703`}, {6., -10.545631196801507`}}]}}, - - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{{}, { - LineBox[{{7., -10.706355792238272`}, {7., -10.706355345851676`}}], - LineBox[{{7., -10.706355345851676`}, {7., -10.70635489946528}}]}}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{{}, { - LineBox[{{8., -10.070539748134387`}, {8., -10.070539511771225`}}], - LineBox[{{8., -10.070539511771225`}, {8., -10.070539275408118`}}]}}, - + LineBox[{{4., -10.570401341718279`}, {4., -10.57040095207527}}], + LineBox[{{4., -10.57040095207527}, {4., -10.570400562432411`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.560181, 0.691569, 0.194885], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{1., -9.121285171378831}, - Offset[{3, 0}, {1., -9.121285171378831}]}, {{ - 1., -9.121285171378831}, - Offset[{-3, 0}, {1., -9.121285171378831}]}, {{ - 1., -9.121285207970635}, - Offset[{3, 0}, {1., -9.121285207970635}]}, {{ - 1., -9.121285207970635}, - Offset[{-3, 0}, {1., -9.121285207970635}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{2., -6.757705338906025}, - Offset[{3, 0}, {2., -6.757705338906025}]}, {{ - 2., -6.757705338906025}, - Offset[{-3, 0}, {2., -6.757705338906025}]}, {{ - 2., -6.757705342348684}, - Offset[{3, 0}, {2., -6.757705342348684}]}, {{ - 2., -6.757705342348684}, - Offset[{-3, 0}, {2., -6.757705342348684}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{3., -6.7237061180734}, - Offset[{3, 0}, {3., -6.7237061180734}]}, {{3., -6.7237061180734}, - Offset[{-3, 0}, {3., -6.7237061180734}]}, {{ - 3., -6.72370612140098}, - Offset[{3, 0}, {3., -6.72370612140098}]}, {{ - 3., -6.72370612140098}, - Offset[{-3, 0}, {3., -6.72370612140098}]}}], {{{1., 0.}, {0., + LineBox[{{{1., -9.121285172846665}, + Offset[{3, 0}, {1., -9.121285172846665}]}, {{ + 1., -9.121285172846665}, + Offset[{-3, 0}, {1., -9.121285172846665}]}, {{ + 1., -9.121285209438469}, + Offset[{3, 0}, {1., -9.121285209438469}]}, {{ + 1., -9.121285209438469}, + Offset[{-3, 0}, {1., -9.121285209438469}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], @@ -5093,14 +5091,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{4., -10.109801149580841`}, - Offset[{3, 0}, {4., -10.109801149580841`}]}, {{ - 4., -10.109801149580841`}, - Offset[{-3, 0}, {4., -10.109801149580841`}]}, {{ - 4., -10.109801247911934`}, - Offset[{3, 0}, {4., -10.109801247911934`}]}, {{ - 4., -10.109801247911934`}, - Offset[{-3, 0}, {4., -10.109801247911934`}]}}], {{{1., 0.}, {0., + LineBox[{{{2., -6.757991939187597}, + Offset[{3, 0}, {2., -6.757991939187597}]}, {{ + 2., -6.757991939187597}, + Offset[{-3, 0}, {2., -6.757991939187597}]}, {{ + 2., -6.757991942631244}, + Offset[{3, 0}, {2., -6.757991942631244}]}, {{ + 2., -6.757991942631244}, + Offset[{-3, 0}, {2., -6.757991942631244}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], @@ -5108,14 +5106,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{5., -10.283602910493148`}, - Offset[{3, 0}, {5., -10.283602910493148`}]}, {{ - 5., -10.283602910493148`}, - Offset[{-3, 0}, {5., -10.283602910493148`}]}, {{ - 5., -10.283603027489416`}, - Offset[{3, 0}, {5., -10.283603027489416`}]}, {{ - 5., -10.283603027489416`}, - Offset[{-3, 0}, {5., -10.283603027489416`}]}}], {{{1., 0.}, {0., + LineBox[{{{3., -6.723706111721001}, + Offset[{3, 0}, {3., -6.723706111721001}]}, {{ + 3., -6.723706111721001}, + Offset[{-3, 0}, {3., -6.723706111721001}]}, {{ + 3., -6.723706115048581}, + Offset[{3, 0}, {3., -6.723706115048581}]}, {{ + 3., -6.723706115048581}, + Offset[{-3, 0}, {3., -6.723706115048581}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.560181, 0.691569, 0.194885], @@ -5123,44 +5121,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{6., -12.309343093040445`}, - Offset[{3, 0}, {6., -12.309343093040445`}]}, {{ - 6., -12.309343093040445`}, - Offset[{-3, 0}, {6., -12.309343093040445`}]}, {{ - 6., -12.309343980073828`}, - Offset[{3, 0}, {6., -12.309343980073828`}]}, {{ - 6., -12.309343980073828`}, - Offset[{-3, 0}, {6., -12.309343980073828`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{7., -9.807059680477952}, - Offset[{3, 0}, {7., -9.807059680477952}]}, {{ - 7., -9.807059680477952}, - Offset[{-3, 0}, {7., -9.807059680477952}]}, {{ - 7., -9.807059753123985}, - Offset[{3, 0}, {7., -9.807059753123985}]}, {{ - 7., -9.807059753123985}, - Offset[{-3, 0}, {7., -9.807059753123985}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.560181, 0.691569, 0.194885], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{8., -9.089527069468103}, - Offset[{3, 0}, {8., -9.089527069468103}]}, {{ - 8., -9.089527069468103}, - Offset[{-3, 0}, {8., -9.089527069468103}]}, {{ - 8., -9.089527104916078}, - Offset[{3, 0}, {8., -9.089527104916078}]}, {{ - 8., -9.089527104916078}, - Offset[{-3, 0}, {8., -9.089527104916078}]}}], {{{1., 0.}, {0., + LineBox[{{{4., -6.877256265742723}, + Offset[{3, 0}, {4., -6.877256265742723}]}, {{ + 4., -6.877256265742723}, + Offset[{-3, 0}, {4., -6.877256265742723}]}, {{ + 4., -6.877256269622569}, + Offset[{3, 0}, {4., -6.877256269622569}]}, {{ + 4., -6.877256269622569}, + Offset[{-3, 0}, {4., -6.877256269622569}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, { {RGBColor[0.922526, 0.385626, 0.209179], @@ -5168,74 +5136,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{1., -6.569861272660474}, - Offset[{3, 0}, {1., -6.569861272660474}]}, {{ - 1., -6.569861272660474}, - Offset[{-3, 0}, {1., -6.569861272660474}]}, {{ - 1., -6.569861286925891}, - Offset[{3, 0}, {1., -6.569861286925891}]}, {{ - 1., -6.569861286925891}, - Offset[{-3, 0}, {1., -6.569861286925891}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{2., -8.554879155857632}, - Offset[{3, 0}, {2., -8.554879155857632}]}, {{ - 2., -8.554879155857632}, - Offset[{-3, 0}, {2., -8.554879155857632}]}, {{ - 2., -8.554879259698145}, - Offset[{3, 0}, {2., -8.554879259698145}]}, {{ - 2., -8.554879259698145}, - Offset[{-3, 0}, {2., -8.554879259698145}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{3., -8.311676121902869}, - Offset[{3, 0}, {3., -8.311676121902869}]}, {{ - 3., -8.311676121902869}, - Offset[{-3, 0}, {3., -8.311676121902869}]}, {{ - 3., -8.31167620332549}, - Offset[{3, 0}, {3., -8.31167620332549}]}, {{ - 3., -8.31167620332549}, - Offset[{-3, 0}, {3., -8.31167620332549}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{4., -9.325013415019825}, - Offset[{3, 0}, {4., -9.325013415019825}]}, {{ - 4., -9.325013415019825}, - Offset[{-3, 0}, {4., -9.325013415019825}]}, {{ - 4., -9.32501363932119}, - Offset[{3, 0}, {4., -9.32501363932119}]}, {{ - 4., -9.32501363932119}, - Offset[{-3, 0}, {4., -9.32501363932119}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.922526, 0.385626, 0.209179], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{5., -9.311251495032549}, - Offset[{3, 0}, {5., -9.311251495032549}]}, {{ - 5., -9.311251495032549}, - Offset[{-3, 0}, {5., -9.311251495032549}]}, {{ - 5., -9.311251716268238}, - Offset[{3, 0}, {5., -9.311251716268238}]}, {{ - 5., -9.311251716268238}, - Offset[{-3, 0}, {5., -9.311251716268238}]}}], {{{1., 0.}, {0., + LineBox[{{{1., -6.569861272624158}, + Offset[{3, 0}, {1., -6.569861272624158}]}, {{ + 1., -6.569861272624158}, + Offset[{-3, 0}, {1., -6.569861272624158}]}, {{ + 1., -6.569861286889576}, + Offset[{3, 0}, {1., -6.569861286889576}]}, {{ + 1., -6.569861286889576}, + Offset[{-3, 0}, {1., -6.569861286889576}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], @@ -5243,14 +5151,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{6., -10.545631196801507`}, - Offset[{3, 0}, {6., -10.545631196801507`}]}, {{ - 6., -10.545631196801507`}, - Offset[{-3, 0}, {6., -10.545631196801507`}]}, {{ - 6., -10.545631957022044`}, - Offset[{3, 0}, {6., -10.545631957022044`}]}, {{ - 6., -10.545631957022044`}, - Offset[{-3, 0}, {6., -10.545631957022044`}]}}], {{{1., 0.}, {0., + LineBox[{{{2., -8.554043665250513}, + Offset[{3, 0}, {2., -8.554043665250513}]}, {{ + 2., -8.554043665250513}, + Offset[{-3, 0}, {2., -8.554043665250513}]}, {{ + 2., -8.554043769004304}, + Offset[{3, 0}, {2., -8.554043769004304}]}, {{ + 2., -8.554043769004304}, + Offset[{-3, 0}, {2., -8.554043769004304}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], @@ -5258,14 +5166,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{7., -10.70635489946528}, - Offset[{3, 0}, {7., -10.70635489946528}]}, {{ - 7., -10.70635489946528}, - Offset[{-3, 0}, {7., -10.70635489946528}]}, {{ - 7., -10.706355792238272`}, - Offset[{3, 0}, {7., -10.706355792238272`}]}, {{ - 7., -10.706355792238272`}, - Offset[{-3, 0}, {7., -10.706355792238272`}]}}], {{{1., 0.}, {0., + LineBox[{{{3., -8.311676104699421}, + Offset[{3, 0}, {3., -8.311676104699421}]}, {{ + 3., -8.311676104699421}, + Offset[{-3, 0}, {3., -8.311676104699421}]}, {{ + 3., -8.311676186122043}, + Offset[{3, 0}, {3., -8.311676186122043}]}, {{ + 3., -8.311676186122043}, + Offset[{-3, 0}, {3., -8.311676186122043}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.922526, 0.385626, 0.209179], @@ -5273,44 +5181,36 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{8., -10.070539275408118`}, - Offset[{3, 0}, {8., -10.070539275408118`}]}, {{ - 8., -10.070539275408118`}, - Offset[{-3, 0}, {8., -10.070539275408118`}]}, {{ - 8., -10.070539748134387`}, - Offset[{3, 0}, {8., -10.070539748134387`}]}, {{ - 8., -10.070539748134387`}, - Offset[{-3, 0}, {8., -10.070539748134387`}]}}], {{{1., 0.}, {0., + LineBox[{{{4., -10.570400562432411`}, + Offset[{3, 0}, {4., -10.570400562432411`}]}, {{ + 4., -10.570400562432411`}, + Offset[{-3, 0}, {4., -10.570400562432411`}]}, {{ + 4., -10.570401341718279`}, + Offset[{3, 0}, {4., -10.570401341718279`}]}, {{ + 4., -10.570401341718279`}, + Offset[{-3, 0}, {4., -10.570401341718279`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -6.489967158769578}, {2., -7.215121967968009}, { - 3., -7.288698113608662}, {4., -10.386973334685711`}, { - 5., -11.28534572892896}, {6., -12.558995043453105`}, { - 7., -11.177620554129026`}, {8., -10.162857609168995`}}]}, + LineBox[{{1., -6.489967158608301}, {2., -7.215524147309796}, { + 3., -7.288698107271513}, {4., -7.710213431452344}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -6.411565498460083}, {2., -6.532907548464786}, { - 3., -6.469945827351774}, {4., -10.605589644489372`}, { - 5., -11.369570856135084`}, {6., -12.025882822779488`}, { - 7., -10.050531768180324`}, {8., -9.212664056505645}}]}, + LineBox[{{1., -6.411565498563877}, {2., -6.5332950390517155`}, { + 3., -6.469945820576324}, {4., -6.774472197552433}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -9.121285189674733}, {2., -6.757705340627354}, { - 3., -6.72370611973719}, {4., -10.109801198746386`}, { - 5., -10.28360296899128}, {6., -12.309343536557039`}, { - 7., -9.807059716800968}, {8., -9.08952708719209}}]}, + LineBox[{{1., -9.121285191142567}, {2., -6.75799194090942}, { + 3., -6.723706113384791}, {4., -6.877256267682646}}]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -6.569861279793183}, {2., -8.554879207777887}, { - 3., -8.311676162614178}, {4., -9.325013527170501}, { - 5., -9.311251605650387}, {6., -10.545631576911703`}, { - 7., -10.706355345851676`}, {8., -10.070539511771225`}}]}}, {{}, {}}}, + LineBox[{{1., -6.569861279756867}, {2., -8.554043717127406}, { + 3., -8.31167614541073}, {4., -10.57040095207527}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -13.040066292195093`}, + AxesOrigin->{0., -10.89585384796274}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5331,7 +5231,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 8.}, {-13.040066292195093`, -6.411565498460083}}, + PlotRange->{{0., 4.}, {-10.89585384796274, -6.411565498563877}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5339,19 +5239,7 @@ Cell[BoxData[ Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, - Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-12.206072645530174`, - FormBox[ - TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", - TemplateBox[{"10", - RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> - SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, - 0.}}, {-11.512925464970229`, - FormBox[ - TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", - TemplateBox[{"10", - RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> - SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, - 0.}}, {-9.903487552536127, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-9.903487552536127, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", TemplateBox[{"10", @@ -5370,28 +5258,7 @@ Cell[BoxData[ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, - FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-13.122363377404328`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-12.716898269296165`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-12.429216196844383`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-12.02375108873622, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-11.86960040890896, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-11.736069016284437`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-11.618285980628055`, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-10.819778284410283`, @@ -5463,16 +5330,10 @@ Cell[BoxData[ 0.}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.506557897319982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.2188758248682006`, + 0.}}, {-4.199705077879927, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.995732273553991, + 0.}}, {-3.912023005428146, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", @@ -5481,9 +5342,8 @@ Cell[BoxData[ 3.843902305947394*^9, 3.8439025626208076`*^9, 3.84390271945584*^9, 3.8439028204136963`*^9, 3.8439029720245113`*^9, 3.843903445290597*^9, 3.843903919014111*^9, 3.843904578141638*^9, 3.843904773766004*^9, - 3.843906130401853*^9}, - CellLabel-> - "Out[105]=",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] + 3.843906130401853*^9, 3.8440857696283007`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"a2d4d282-8e3d-4a0b-964d-ad42e2f0325f"] }, Open ]], Cell[CellGroupData[{ @@ -6980,62 +6840,117 @@ Cell[BoxData[ RowBox[{"H", "[", "#", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}]}], "}"}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "9"}], "]"}]}], ")"}]}]}]], "Input", + RowBox[{"2", ",", "7"}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.8436457019100523`*^9, 3.843645745060442*^9}, { 3.843645785133505*^9, 3.843645794581313*^9}, 3.843645826822052*^9, { 3.843728289002473*^9, 3.843728315507414*^9}, {3.843728572090158*^9, 3.8437285728080473`*^9}, {3.843729379624946*^9, 3.8437293826788063`*^9}, { 3.843729487361848*^9, 3.843729505880847*^9}, {3.843730032211598*^9, - 3.8437300344347143`*^9}}, - CellLabel->"In[81]:=",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], + 3.8437300344347143`*^9}, {3.8440854363944407`*^9, 3.8440854366187363`*^9}}, + + CellLabel->"In[34]:=",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ - "2", ",", "0.002860955318525926`", ",", "0.004496459219585747`", ",", - "0.0025781014469987568`", ",", "0.0004361990091461404`", ",", - "0.0015990766131468608`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - "3", ",", "0.0005720429508622171`", ",", "0.0010847239134089692`", ",", - "0.000805365486839224`", ",", "0.00006427186448818359`", ",", - "0.0003917599113948043`"}], "}"}], ",", + "2", ",", "0.0015185988806263317`", ",", "0.0016424512339846542`", ",", + InterpretationBox[ + TemplateBox[{"0.00010931409", "75", "20"}, + "AroundSeq"], + Around[0.00010931409748554666`, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0014019918", "83", "10"}, + "AroundSeq"], + Around[0.0014019918834638455`, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.000979915", "90", "10"}, + "AroundSeq"], + Around[0.0009799159023033766, 1.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{ - "4", ",", "0.00003961608489011503`", ",", "0.0001278039316774393`", ",", - "0.00018174532718064074`", ",", "0.00013408467605927413`", ",", - "0.00002358497641938859`"}], "}"}], ",", + "3", ",", "0.0007353808953864949`", ",", "0.0014547698806950948`", ",", + InterpretationBox[ + TemplateBox[{"0.00116189226", "43", "20"}, + "AroundSeq"], + Around[0.0011618922642676333`, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0001926030", "53", "10"}, + "AroundSeq"], + Around[0.0001926030528925822, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.000471678", "09", "10"}, + "AroundSeq"], + Around[0.0004716780917582721, 1.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{ - "5", ",", "0.0000622987443403833`", ",", "0.00016919055775577174`", ",", - "0.0002085264051783775`", ",", "0.0001300161350704411`", ",", - "3.732946060521912`*^-6"}], "}"}], ",", + "4", ",", "0.0006832169448554026`", ",", "0.0015493096608610868`", ",", + InterpretationBox[ + TemplateBox[{"0.00120207491", "47", "20"}, + "AroundSeq"], + Around[0.001202074914739018, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0002456319", "79", "10"}, + "AroundSeq"], + Around[0.00024563197897510894`, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.001190252", "28", "10"}, + "AroundSeq"], + Around[0.0011902522778089069`, 1.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{ - "6", ",", "0.00005016392362722222`", ",", "0.00014150435296594877`", ",", - "0.00016732830408854038`", ",", "0.00007562595035311148`", ",", - "0.00005202003334785774`"}], "}"}], ",", + "5", ",", "0.00003083151013294483`", ",", "0.000024777126610253664`", ",", + InterpretationBox[ + TemplateBox[{"0.00004067889", "30", "20"}, + "AroundSeq"], + Around[0.00004067889303242811, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0000891657", "53", "10"}, + "AroundSeq"], + Around[0.00008916575299173363, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.000066685", "95", "10"}, + "AroundSeq"], + Around[0.00006668594729061653, 1.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{ - "7", ",", "0.000015703311988302104`", ",", "0.00005762691693961264`", ",", - "0.00009304388663239349`", ",", "0.00007579125219901034`", ",", - "0.000010561158237231718`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - "8", ",", "8.173890766238756`*^-6", ",", "0.000021607891761421527`", ",", - "0.000022883111337773654`", ",", "6.9772437447900015`*^-6", ",", - "0.000010861362342928695`"}], "}"}], ",", + "6", ",", "0.000012555575489514581`", ",", "0.000011541389969949023`", + ",", + InterpretationBox[ + TemplateBox[{"0.00003418912", "42", "20"}, + "AroundSeq"], + Around[0.00003418912424536791, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0000904013", "28", "10"}, + "AroundSeq"], + Around[0.00009040132752613159, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.000090497", "69", "10"}, + "AroundSeq"], + Around[0.00009049768674665578, 1.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{ - "9", ",", "2.4873158455118727`*^-6", ",", "7.768088409076945`*^-6", ",", - "9.816343265717231`*^-6", ",", "3.88602466879287`*^-6", ",", - "5.648983756909563`*^-6"}], "}"}]}], "}"}]], "Output", + "7", ",", "3.513158584711462`*^-6", ",", "5.987223218928417`*^-6", ",", + InterpretationBox[ + TemplateBox[{"4.50941", "31", "20", + SuperscriptBox["10", "-6"]}, + "AroundSeqExp"], + Around[4.50941314238118*^-6, 2.*^-12]], ",", + InterpretationBox[ + TemplateBox[{"0.0000263081", "55", "10"}, + "AroundSeq"], + Around[0.000026308155365337843`, 1.*^-11]], ",", + InterpretationBox[ + TemplateBox[{"0.000039381", "31", "10"}, + "AroundSeq"], + Around[0.000039381306641833976`, 1.*^-10]]}], "}"}]}], "}"}]], "Output",\ + CellChangeTimes->{{3.8437283026165257`*^9, 3.843728317456636*^9}, 3.843728574441174*^9, 3.8437293837019167`*^9, {3.843729490738748*^9, - 3.8437295067979717`*^9}, 3.8437300369560337`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] + 3.8437295067979717`*^9}, 3.8437300369560337`*^9, {3.844085434239089*^9, + 3.844085444149378*^9}}, + CellLabel->"Out[34]=",ExpressionUUID->"b45ec73d-f5b7-4fd8-a8e0-8472b7f98423"] }, Open ]], Cell[BoxData[ @@ -7046,7 +6961,7 @@ Cell[BoxData[ dat\>\"", ",", "\[CapitalPhi]comp"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.843645642651417*^9, 3.8436456883153763`*^9}, { 3.8436458349500504`*^9, 3.843645836790111*^9}}, - CellLabel->"In[82]:=",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], + CellLabel->"In[35]:=",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], Cell[CellGroupData[{ @@ -7062,7 +6977,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Range", "[", - RowBox[{"2", ",", "9"}], "]"}], ",", "#"}], "}"}], "]"}], "&"}], "/@", + RowBox[{"2", ",", "7"}], "]"}], ",", "#"}], "}"}], "]"}], "&"}], "/@", RowBox[{"Abs", "@", RowBox[{"Re", "@", RowBox[{"Transpose", "[", "test", "]"}]}]}]}], ",", @@ -7124,49 +7039,281 @@ Cell[BoxData[ 3.843290753554248*^9, 3.84329075362434*^9}, {3.8435444808595543`*^9, 3.8435444810261106`*^9}, 3.843645699796947*^9, 3.843645829496767*^9, { 3.8437120486246233`*^9, 3.843712055888475*^9}, {3.8437137199686747`*^9, - 3.8437137683289337`*^9}, {3.843728557513138*^9, 3.843728564873845*^9}}, - CellLabel->"In[63]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], + 3.8437137683289337`*^9}, {3.843728557513138*^9, 3.843728564873845*^9}, { + 3.844085455030134*^9, 3.844085456128683*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[BoxData[ TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { + GraphicsBox[{{{{{{Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{2., -9.121285209655177}, {2., -9.121285191359275}}], + LineBox[{{2., -9.121285191359275}, {2., -9.121285173063374}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{3., -6.757705342348684}, {3., -6.757705340627354}}], + LineBox[{{3., -6.757705340627354}, {3., -6.757705338906025}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{4., -6.72370612140098}, {4., -6.72370611973719}}], + LineBox[{{4., -6.72370611973719}, {4., -6.7237061180734}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{5., -10.109801247911934`}, {5., -10.109801198746386`}}], + + + LineBox[{{5., -10.109801198746386`}, { + 5., -10.109801149580841`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{6., -10.283603027489416`}, {6., -10.28360296899128}}], + + LineBox[{{6., -10.28360296899128}, { + 6., -10.283602910493148`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], {}, { + LineBox[{{7., -12.309343980073828`}, {7., -12.309343536557039`}}], + + + LineBox[{{7., -12.309343536557039`}, { + 7., -12.309343093040445`}}]}}}, {{Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{2., -6.569861286774665}, {2., -6.569861279641956}}], + LineBox[{{2., -6.569861279641956}, {2., -6.569861272509248}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{3., -8.554879259698145}, {3., -8.554879207777887}}], + LineBox[{{3., -8.554879207777887}, {3., -8.554879155857632}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{4., -8.31167620332549}, {4., -8.311676162614178}}], + LineBox[{{4., -8.311676162614178}, {4., -8.311676121902869}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{5., -9.32501363932119}, {5., -9.325013527170501}}], + LineBox[{{5., -9.325013527170501}, {5., -9.325013415019825}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{6., -9.311251716268238}, {6., -9.311251605650387}}], + LineBox[{{6., -9.311251605650387}, {6., -9.311251495032549}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], {}, { + LineBox[{{7., -10.545631957022044`}, {7., -10.545631576911703`}}], + + + LineBox[{{7., -10.545631576911703`}, { + 7., -10.545631196801507`}}]}}}}, {{{Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -9.121285173063374}, + Offset[{3, 0}, {2., -9.121285173063374}]}, {{ + 2., -9.121285173063374}, + Offset[{-3, 0}, {2., -9.121285173063374}]}, {{ + 2., -9.121285209655177}, + Offset[{3, 0}, {2., -9.121285209655177}]}, {{ + 2., -9.121285209655177}, + Offset[{-3, 0}, {2., -9.121285209655177}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -6.757705338906025}, + Offset[{3, 0}, {3., -6.757705338906025}]}, {{ + 3., -6.757705338906025}, + Offset[{-3, 0}, {3., -6.757705338906025}]}, {{ + 3., -6.757705342348684}, + Offset[{3, 0}, {3., -6.757705342348684}]}, {{ + 3., -6.757705342348684}, + Offset[{-3, 0}, {3., -6.757705342348684}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -6.7237061180734}, + Offset[{3, 0}, {4., -6.7237061180734}]}, {{ + 4., -6.7237061180734}, + Offset[{-3, 0}, {4., -6.7237061180734}]}, {{ + 4., -6.72370612140098}, + Offset[{3, 0}, {4., -6.72370612140098}]}, {{ + 4., -6.72370612140098}, + Offset[{-3, 0}, {4., -6.72370612140098}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -10.109801149580841`}, + Offset[{3, 0}, {5., -10.109801149580841`}]}, {{ + 5., -10.109801149580841`}, + Offset[{-3, 0}, {5., -10.109801149580841`}]}, {{ + 5., -10.109801247911934`}, + Offset[{3, 0}, {5., -10.109801247911934`}]}, {{ + 5., -10.109801247911934`}, + Offset[{-3, 0}, {5., -10.109801247911934`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.283602910493148`}, + Offset[{3, 0}, {6., -10.283602910493148`}]}, {{ + 6., -10.283602910493148`}, + Offset[{-3, 0}, {6., -10.283602910493148`}]}, {{ + 6., -10.283603027489416`}, + Offset[{3, 0}, {6., -10.283603027489416`}]}, {{ + 6., -10.283603027489416`}, + Offset[{-3, 0}, {6., -10.283603027489416`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.560181, 0.691569, 0.194885]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -12.309343093040445`}, + Offset[{3, 0}, {7., -12.309343093040445`}]}, {{ + 7., -12.309343093040445`}, + Offset[{-3, 0}, {7., -12.309343093040445`}]}, {{ + 7., -12.309343980073828`}, + Offset[{3, 0}, {7., -12.309343980073828`}]}, {{ + 7., -12.309343980073828`}, + Offset[{-3, 0}, {7., -12.309343980073828`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}}, {{Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -6.569861272509248}, + Offset[{3, 0}, {2., -6.569861272509248}]}, {{ + 2., -6.569861272509248}, + Offset[{-3, 0}, {2., -6.569861272509248}]}, {{ + 2., -6.569861286774665}, + Offset[{3, 0}, {2., -6.569861286774665}]}, {{ + 2., -6.569861286774665}, + Offset[{-3, 0}, {2., -6.569861286774665}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -8.554879155857632}, + Offset[{3, 0}, {3., -8.554879155857632}]}, {{ + 3., -8.554879155857632}, + Offset[{-3, 0}, {3., -8.554879155857632}]}, {{ + 3., -8.554879259698145}, + Offset[{3, 0}, {3., -8.554879259698145}]}, {{ + 3., -8.554879259698145}, + Offset[{-3, 0}, {3., -8.554879259698145}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.311676121902869}, + Offset[{3, 0}, {4., -8.311676121902869}]}, {{ + 4., -8.311676121902869}, + Offset[{-3, 0}, {4., -8.311676121902869}]}, {{ + 4., -8.31167620332549}, + Offset[{3, 0}, {4., -8.31167620332549}]}, {{ + 4., -8.31167620332549}, + Offset[{-3, 0}, {4., -8.31167620332549}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -9.325013415019825}, + Offset[{3, 0}, {5., -9.325013415019825}]}, {{ + 5., -9.325013415019825}, + Offset[{-3, 0}, {5., -9.325013415019825}]}, {{ + 5., -9.32501363932119}, + Offset[{3, 0}, {5., -9.32501363932119}]}, {{ + 5., -9.32501363932119}, + Offset[{-3, 0}, {5., -9.32501363932119}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -9.311251495032549}, + Offset[{3, 0}, {6., -9.311251495032549}]}, {{ + 6., -9.311251495032549}, + Offset[{-3, 0}, {6., -9.311251495032549}]}, {{ + 6., -9.311251716268238}, + Offset[{3, 0}, {6., -9.311251716268238}]}, {{ + 6., -9.311251716268238}, + Offset[{-3, 0}, {6., -9.311251716268238}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.922526, 0.385626, 0.209179]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -10.545631196801507`}, + Offset[{3, 0}, {7., -10.545631196801507`}]}, {{ + 7., -10.545631196801507`}, + Offset[{-3, 0}, {7., -10.545631196801507`}]}, {{ + 7., -10.545631957022044`}, + Offset[{3, 0}, {7., -10.545631957022044`}]}, {{ + 7., -10.545631957022044`}, + Offset[{-3, 0}, {7., -10.545631957022044`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}}}}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], - LineBox[{{2., -5.856599682468509}, {3., -7.466296480483548}, { - 4., -10.136275338080454`}, {5., -9.68356928742401}, { - 6., -9.90021444246551}, {7., -11.061638913188895`}, { - 8., -11.714565536474149`}, {9., -12.90430640260919}}]}, { + LineBox[{{2., -6.489967158294373}, {3., -7.215121967968009}, { + 4., -7.288698113608662}, {5., -10.386973334685711`}, { + 6., -11.28534572892896}, {7., -12.558995043453105`}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], - LineBox[{{2., -5.404465032019062}, {3., -6.826429782057151}, { - 4., -8.965013252194838}, {5., -8.684484917575256}, { - 6., -8.863180078343914}, {7., -9.761520791437412}, { - 8., -10.74245195067655}, {9., -11.765486445850913`}}]}, { + LineBox[{{2., -6.411565498162156}, {3., -6.532907548464786}, { + 4., -6.469945827351774}, {5., -10.605589644489372`}, { + 6., -11.369570856135084`}, {7., -12.025882822779488`}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], - LineBox[{{2., -5.960702024192532}, {3., -7.124214362663731}, { - 4., -8.612904152028939}, {5., -8.475444881202655}, { - 6., -8.695552782640089}, {7., -9.282439276847414}, { - 8., -10.68511141565525}, {9., -11.531461881147008`}}]}, { + LineBox[{{2., -9.121285191359275}, {3., -6.757705340627354}, { + 4., -6.72370611973719}, {5., -10.109801198746386`}, { + 6., -10.28360296899128}, {7., -12.309343536557039`}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], - LineBox[{{2., -7.737411975757921}, {3., -9.652388588760953}, { - 4., -8.917039046694875}, {5., -8.947851999283966}, { - 6., -9.489711075039514}, {7., -9.487527678321284}, { - 8., -11.872856598145137`}, { - 9., -12.458123858909548`}}]}}}, {{}, {}}}, {{{{}, {}, + LineBox[{{2., -6.569861279641956}, {3., -8.554879207777887}, { + 4., -8.311676162614178}, {5., -9.325013527170501}, { + 6., -9.311251605650387}, { + 7., -10.545631576911703`}}]}}}, {{}, {}}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], @@ -7202,7 +7349,7 @@ Xe2niGavclTzbAv/epuv5iWe/bHRlYS6ln7r+ssEZlp3Zd+kSJiLczxccYXA Gxo5fRfWkhDz+DEz/qr6D6tKHLWBhOtRWlvCSwk8WjtT54/UfjpbCzaWq/0i hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= "]]}, - Annotation[#, "Charting`Private`Tag$11248#1"]& ]}}, {}}}, { + Annotation[#, "Charting`Private`Tag$4376#1"]& ]}}, {}}}, { DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> @@ -7212,8 +7359,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= FormBox[ "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[CapitalDelta]\ \[ScriptCapitalF]\\), \\(0\\)], \\((n)\\)]\\)\"", TraditionalForm]}, - AxesOrigin -> {1.854166666666667, -13.491211551681658`}, DisplayFunction :> - Identity, Frame -> {{False, False}, {False, False}}, + AxesOrigin -> {1.8958333333333335`, -13.040066292218407`}, + DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, { @@ -7231,8 +7378,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange -> {{1.854166666666667, - 9.}, {-13.491211551681658`, -5.404465032019062}}, PlotRangeClipping -> + PlotRange -> {{1.8958333333333335`, + 7.}, {-13.040066292218407`, -6.411565498162156}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { @@ -7389,9 +7536,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ - Automatic, - 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], @@ -7439,9 +7585,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ - Automatic, - 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], @@ -7489,9 +7634,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ - Automatic, - 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], @@ -7540,9 +7684,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ - Automatic, - 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], @@ -7617,8 +7760,8 @@ hNouniSsqM4bcLxO4IhFv23neJGwI1ix2qSCwAVVbcUMHxL+A9EaQ0Q= 3.843710945764225*^9, {3.843712049022056*^9, 3.843712056130436*^9}, { 3.843713720381803*^9, 3.843713768557667*^9}, 3.843714024529799*^9, 3.843721523047819*^9, 3.8437285246688232`*^9, {3.843728558125668*^9, - 3.84372858209944*^9}}, - CellLabel->"Out[63]=",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] + 3.84372858209944*^9}, {3.8440854492828283`*^9, 3.844085457209093*^9}}, + CellLabel->"Out[37]=",ExpressionUUID->"d895d521-b312-4afd-98c0-abf3059ba10a"] }, Open ]], Cell[BoxData[ @@ -7659,16 +7802,17 @@ Cell[BoxData[ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ")"}]}], ")"}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "9"}], "]"}]}]}], "]"}]], "Input", - CellChangeTimes->{{3.8437303090807257`*^9, 3.8437304670185757`*^9}}, - CellLabel->"In[88]:=",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], + RowBox[{"2", ",", "7"}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.8437303090807257`*^9, 3.8437304670185757`*^9}, { + 3.8440853750473843`*^9, 3.844085375326336*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/yl_\ comparison.dat\"\>"], "Output", CellChangeTimes->{ 3.843730348825367*^9, {3.843730410064704*^9, 3.8437304334066877`*^9}, - 3.843730468565028*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] + 3.843730468565028*^9, 3.8440853774291573`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"69477405-8a00-42ad-86d7-91fa4759e74c"] }, Open ]], Cell[CellGroupData[{ @@ -7688,125 +7832,58 @@ Cell[BoxData[ RowBox[{ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ")"}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "11"}], "]"}]}], ",", + RowBox[{"2", ",", "7"}], "]"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ SuperscriptBox["10", RowBox[{"-", "6"}]], ",", ".1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.843108152525075*^9, 3.843108170815724*^9}, { - 3.843117745741742*^9, 3.843117745941431*^9}, {3.843545854483124*^9, - 3.843545854627014*^9}}, - CellLabel->"In[64]:=",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], + 3.843117745741742*^9, 3.843117745941431*^9}, {3.843545854483124*^9, + 3.843545854627014*^9}, 3.844085383267905*^9}, + CellLabel->"In[30]:=",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{1., -4.161270223633423}, {1., -4.158067709187776}}], - LineBox[{{1., -4.158067709187776}, {1., -4.154875418109133}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{2., -5.968025267814502}, {2., -5.948676992997732}}], - LineBox[{{2., -5.948676992997732}, {2., -5.92969597928999}}]}}, + LineBox[{{1., -36.04365338911715}, {1., -15.169346776622499`}}], + LineBox[{{1., -15.169346776622499`}, {1., -9.898335891887436}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{3., -5.868703144086993}, {3., -5.851168288784784}}], - LineBox[{{3., -5.851168288784784}, {3., -5.833935613558236}}]}}, + LineBox[{{2., -36.04365338911715}, {2., -11.781223860425282`}}], + LineBox[{{2., -11.781223860425282`}, {2., -9.761175894728423}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{4., -5.81726599136133}, {4., -5.800602992083543}}], - LineBox[{{4., -5.800602992083543}, {4., -5.784213103719304}}]}}, + LineBox[{{3., -36.04365338911715}, {3., -14.33720832976688}}], + LineBox[{{3., -14.33720832976688}, {3., -9.891687210364237}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{5., -7.374624319971788}, {5., -7.297895133901858}}], - LineBox[{{5., -7.297895133901858}, {5., -7.226636088131909}}]}}, + LineBox[{{4., -6.6126591293616865`}, {4., -6.576112179622553}}], + LineBox[{{4., -6.576112179622553}, {4., -6.540853949040372}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{6., -7.6456159352018345`}, {6., -7.546157264081057}}], - LineBox[{{6., -7.546157264081057}, {6., -7.455701909219525}}]}}, + LineBox[{{5., -7.703093662451382}, {5., -7.598049626445797}}], + LineBox[{{5., -7.598049626445797}, {5., -7.502998459058191}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{7., -10.896063819448266`}, {7., -9.588223891678313}}], - LineBox[{{7., -9.588223891678313}, {7., -9.040335757269364}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{8., -36.04365338911715}, {8., -10.257564108125548`}}], - LineBox[{{8., -10.257564108125548`}, {8., -9.37178855906428}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{9., -36.04365338911715}, {9., -12.392853344821907`}}], - LineBox[{{9., -12.392853344821907`}, {9., -9.823787150772034}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{10., -36.04365338911715}, {10., -11.164554070053267`}}], - LineBox[{{10., -11.164554070053267`}, {10., -9.654012407985642}}]}}, + LineBox[{{6., -8.385875028862818}, {6., -8.18765167824278}}], + LineBox[{{6., -8.18765167824278}, {6., -8.022295424719202}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{1, -4.154875418109133}, - Offset[{3, 0}, {1, -4.154875418109133}]}, {{ - 1, -4.154875418109133}, - Offset[{-3, 0}, {1, -4.154875418109133}]}, {{ - 1, -4.161270223633423}, - Offset[{3, 0}, {1, -4.161270223633423}]}, {{ - 1, -4.161270223633423}, - Offset[{-3, 0}, {1, -4.161270223633423}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{2, -5.92969597928999}, - Offset[{3, 0}, {2, -5.92969597928999}]}, {{2, -5.92969597928999}, - Offset[{-3, 0}, {2, -5.92969597928999}]}, {{ - 2, -5.968025267814502}, - Offset[{3, 0}, {2, -5.968025267814502}]}, {{ - 2, -5.968025267814502}, - Offset[{-3, 0}, {2, -5.968025267814502}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{3, -5.833935613558236}, - Offset[{3, 0}, {3, -5.833935613558236}]}, {{ - 3, -5.833935613558236}, - Offset[{-3, 0}, {3, -5.833935613558236}]}, {{ - 3, -5.868703144086993}, - Offset[{3, 0}, {3, -5.868703144086993}]}, {{ - 3, -5.868703144086993}, - Offset[{-3, 0}, {3, -5.868703144086993}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{4, -5.784213103719304}, - Offset[{3, 0}, {4, -5.784213103719304}]}, {{ - 4, -5.784213103719304}, - Offset[{-3, 0}, {4, -5.784213103719304}]}, {{ - 4, -5.81726599136133}, Offset[{3, 0}, {4, -5.81726599136133}]}, {{ - 4, -5.81726599136133}, - Offset[{-3, 0}, {4, -5.81726599136133}]}}], {{{1., 0.}, {0., + LineBox[{{{1, -9.898335891887436}, + Offset[{3, 0}, {1, -9.898335891887436}]}, {{ + 1, -9.898335891887436}, + Offset[{-3, 0}, {1, -9.898335891887436}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -7814,14 +7891,10 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{5, -7.226636088131909}, - Offset[{3, 0}, {5, -7.226636088131909}]}, {{ - 5, -7.226636088131909}, - Offset[{-3, 0}, {5, -7.226636088131909}]}, {{ - 5, -7.374624319971788}, - Offset[{3, 0}, {5, -7.374624319971788}]}, {{ - 5, -7.374624319971788}, - Offset[{-3, 0}, {5, -7.374624319971788}]}}], {{{1., 0.}, {0., + LineBox[{{{2, -9.761175894728423}, + Offset[{3, 0}, {2, -9.761175894728423}]}, {{ + 2, -9.761175894728423}, + Offset[{-3, 0}, {2, -9.761175894728423}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -7829,14 +7902,10 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{6, -7.455701909219525}, - Offset[{3, 0}, {6, -7.455701909219525}]}, {{ - 6, -7.455701909219525}, - Offset[{-3, 0}, {6, -7.455701909219525}]}, {{ - 6, -7.6456159352018345`}, - Offset[{3, 0}, {6, -7.6456159352018345`}]}, {{ - 6, -7.6456159352018345`}, - Offset[{-3, 0}, {6, -7.6456159352018345`}]}}], {{{1., 0.}, {0., + LineBox[{{{3, -9.891687210364237}, + Offset[{3, 0}, {3, -9.891687210364237}]}, {{ + 3, -9.891687210364237}, + Offset[{-3, 0}, {3, -9.891687210364237}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -7844,14 +7913,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{7, -9.040335757269364}, - Offset[{3, 0}, {7, -9.040335757269364}]}, {{ - 7, -9.040335757269364}, - Offset[{-3, 0}, {7, -9.040335757269364}]}, {{ - 7, -10.896063819448266`}, - Offset[{3, 0}, {7, -10.896063819448266`}]}, {{ - 7, -10.896063819448266`}, - Offset[{-3, 0}, {7, -10.896063819448266`}]}}], {{{1., 0.}, {0., + LineBox[{{{4, -6.540853949040372}, + Offset[{3, 0}, {4, -6.540853949040372}]}, {{ + 4, -6.540853949040372}, + Offset[{-3, 0}, {4, -6.540853949040372}]}, {{ + 4, -6.6126591293616865`}, + Offset[{3, 0}, {4, -6.6126591293616865`}]}, {{ + 4, -6.6126591293616865`}, + Offset[{-3, 0}, {4, -6.6126591293616865`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -7859,9 +7928,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{8, -9.37178855906428}, - Offset[{3, 0}, {8, -9.37178855906428}]}, {{8, -9.37178855906428}, - Offset[{-3, 0}, {8, -9.37178855906428}]}}], {{{1., 0.}, {0., + LineBox[{{{5, -7.502998459058191}, + Offset[{3, 0}, {5, -7.502998459058191}]}, {{ + 5, -7.502998459058191}, + Offset[{-3, 0}, {5, -7.502998459058191}]}, {{ + 5, -7.703093662451382}, + Offset[{3, 0}, {5, -7.703093662451382}]}, {{ + 5, -7.703093662451382}, + Offset[{-3, 0}, {5, -7.703093662451382}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -7869,30 +7943,21 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{9, -9.823787150772034}, - Offset[{3, 0}, {9, -9.823787150772034}]}, {{ - 9, -9.823787150772034}, - Offset[{-3, 0}, {9, -9.823787150772034}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{10, -9.654012407985642}, - Offset[{3, 0}, {10, -9.654012407985642}]}, {{ - 10, -9.654012407985642}, - Offset[{-3, 0}, {10, -9.654012407985642}]}}], {{{1., 0.}, {0., + LineBox[{{{6, -8.022295424719202}, + Offset[{3, 0}, {6, -8.022295424719202}]}, {{ + 6, -8.022295424719202}, + Offset[{-3, 0}, {6, -8.022295424719202}]}, {{ + 6, -8.385875028862818}, + Offset[{3, 0}, {6, -8.385875028862818}]}, {{ + 6, -8.385875028862818}, + Offset[{-3, 0}, {6, -8.385875028862818}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., -4.158067709187776}, {2., -5.948676992997732}, { - 3., -5.851168288784784}, {4., -5.800602992083543}, { - 5., -7.297895133901858}, {6., -7.546157264081057}, { - 7., -9.588223891678313}, {8., -10.257564108125548`}, { - 9., -12.392853344821907`}, {10., -11.164554070053267`}}]}, {{}, {}}}, + PointBox[{{1., -15.169346776622499`}, {2., -11.781223860425282`}, { + 3., -14.33720832976688}, {4., -6.576112179622553}, { + 5., -7.598049626445797}, {6., -8.18765167824278}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -7918,8 +7983,8 @@ Cell[BoxData[ Exp[ Part[#, 2]]}& )}}, PlotRange-> - NCache[{{0., 10}, {-Log[1000000], -2.3025850929940455`}}, {{ - 0., 10}, {-13.815510557964274`, -2.3025850929940455`}}], + NCache[{{0., 6}, {-Log[1000000], -2.3025850929940455`}}, {{ + 0., 6}, {-13.815510557964274`, -2.3025850929940455`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8103,8 +8168,8 @@ Cell[BoxData[ 3.843117746212892*^9, 3.8432908590333967`*^9, 3.843545855148696*^9, 3.84362537523025*^9, 3.843637954756461*^9, 3.843638016627933*^9, 3.843710953972478*^9, 3.843713800076083*^9, 3.843714029296383*^9, - 3.8437285541831284`*^9, 3.8437285974218073`*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] + 3.8437285541831284`*^9, 3.8437285974218073`*^9, 3.844085384868688*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"0aa79ed5-1e55-44b1-8798-e87dbf1b705c"] }, Open ]], Cell[CellGroupData[{ @@ -8124,101 +8189,82 @@ Cell[BoxData[ RowBox[{ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ")"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "11"}], "]"}]}], "]"}]], "Input", + RowBox[{"2", ",", "7"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.842336862881982*^9, 3.842336866191779*^9}, { - 3.8423369010084476`*^9, 3.84233703955632*^9}, {3.842338047829585*^9, - 3.8423380779341507`*^9}, {3.84233902963297*^9, 3.842339034487693*^9}, { - 3.842341912687029*^9, 3.8423419130620003`*^9}, {3.842350596340082*^9, - 3.842350647444791*^9}, {3.8424119721274652`*^9, 3.8424119777670403`*^9}, { - 3.8430387966805*^9, 3.843038812840392*^9}, {3.843038863691227*^9, - 3.843038867833747*^9}, {3.843108068941387*^9, 3.843108125684422*^9}, { - 3.843117741837873*^9, 3.843117741925305*^9}, {3.84354585876329*^9, - 3.8435458589228354`*^9}, {3.8437286012484617`*^9, 3.843728611912702*^9}}, - CellLabel->"In[67]:=",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], + 3.8423369010084476`*^9, 3.84233703955632*^9}, {3.842338047829585*^9, + 3.8423380779341507`*^9}, {3.84233902963297*^9, 3.842339034487693*^9}, { + 3.842341912687029*^9, 3.8423419130620003`*^9}, {3.842350596340082*^9, + 3.842350647444791*^9}, {3.8424119721274652`*^9, 3.8424119777670403`*^9}, { + 3.8430387966805*^9, 3.843038812840392*^9}, {3.843038863691227*^9, + 3.843038867833747*^9}, {3.843108068941387*^9, 3.843108125684422*^9}, { + 3.843117741837873*^9, 3.843117741925305*^9}, {3.84354585876329*^9, + 3.8435458589228354`*^9}, {3.8437286012484617`*^9, 3.843728611912702*^9}, + 3.844085401830894*^9}, + CellLabel->"In[31]:=",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{1., 0.2523396669680713}, {1., 0.2723396669680713}}], - LineBox[{{1., 0.2723396669680713}, {1., 0.29233966696807134`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{2., 0.09371259766422015}, {2., 0.11371259766422015`}}], - LineBox[{{2., 0.11371259766422015`}, {2., 0.13371259766422014`}}]}}, + LineBox[{{1., -0.017357206102485794`}, {1., + 0.0026427938975142062`}}], + LineBox[{{1., 0.0026427938975142062`}, {1., + 0.022642793897514207`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{3., 0.07534753314923061}, {3., 0.09534753314923061}}], - LineBox[{{3., 0.09534753314923061}, {3., 0.11534753314923062`}}]}}, + LineBox[{{2., 0.04128551260485526}, {2., 0.06128551260485526}}], + LineBox[{{2., 0.06128551260485526}, {2., 0.08128551260485527}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{4., 0.08137835397397165}, {4., 0.10137835397397166`}}], - LineBox[{{4., 0.10137835397397166`}, {4., 0.12137835397397166`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{5., -0.013529287427400432`}, {5., - 0.0064707125725995684`}}], - LineBox[{{5., 0.0064707125725995684`}, {5., 0.02647071257259957}}]}}, + LineBox[{{3., -0.01630647881696266}, {3., 0.0036935211830373404`}}], + LineBox[{{3., 0.0036935211830373404`}, {3., 0.02369352118303734}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{6., -0.016543777042724788`}, {6., - 0.0034562229572752123`}}], - LineBox[{{6., 0.0034562229572752123`}, {6., - 0.023456222957275213`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{7., 0.027552745060932766`}, {7., 0.047552745060932766`}}], - LineBox[{{7., 0.047552745060932766`}, {7., 0.06755274506093277}}]}}, + LineBox[{{4., 0.007204949589832994}, {4., 0.027204949589832994`}}], + LineBox[{{4., 0.027204949589832994`}, {4., 0.047204949589833}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{8., 0.0256943559101739}, {8., 0.0456943559101739}}], - LineBox[{{8., 0.0456943559101739}, {8., 0.0656943559101739}}]}}, + LineBox[{{5., -0.014251374966636182`}, {5., 0.005748625033363819}}], + LineBox[{{5., 0.005748625033363819}, {5., 0.02574862503336382}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { - LineBox[{{9., 0.023364816524124716`}, {9., 0.043364816524124716`}}], - LineBox[{{9., 0.043364816524124716`}, {9., 0.06336481652412472}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{10., 0.024119660034940277`}, {10., 0.04411966003494028}}], - LineBox[{{10., 0.04411966003494028}, {10., 0.06411966003494028}}]}}, + LineBox[{{6., 0.002055969176304035}, {6., 0.022055969176304036`}}], + LineBox[{{6., 0.022055969176304036`}, {6., 0.04205596917630404}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{1., 0.29233966696807134`}, - Offset[{3, 0}, {1., 0.29233966696807134`}]}, {{1., - 0.29233966696807134`}, - Offset[{-3, 0}, {1., 0.29233966696807134`}]}, {{1., - 0.2523396669680713}, Offset[{3, 0}, {1., 0.2523396669680713}]}, {{ - 1., 0.2523396669680713}, - Offset[{-3, 0}, {1., 0.2523396669680713}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, + LineBox[{{{1., 0.022642793897514207`}, + Offset[{3, 0}, {1., 0.022642793897514207`}]}, {{1., + 0.022642793897514207`}, + Offset[{-3, 0}, {1., 0.022642793897514207`}]}, {{ + 1., -0.017357206102485794`}, + Offset[{3, 0}, {1., -0.017357206102485794`}]}, {{ + 1., -0.017357206102485794`}, + Offset[{-3, 0}, {1., -0.017357206102485794`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{2., 0.13371259766422014`}, - Offset[{3, 0}, {2., 0.13371259766422014`}]}, {{2., - 0.13371259766422014`}, - Offset[{-3, 0}, {2., 0.13371259766422014`}]}, {{2., - 0.09371259766422015}, - Offset[{3, 0}, {2., 0.09371259766422015}]}, {{2., - 0.09371259766422015}, - Offset[{-3, 0}, {2., 0.09371259766422015}]}}], {{{1., 0.}, {0., + LineBox[{{{2., 0.08128551260485527}, + Offset[{3, 0}, {2., 0.08128551260485527}]}, {{2., + 0.08128551260485527}, + Offset[{-3, 0}, {2., 0.08128551260485527}]}, {{2., + 0.04128551260485526}, + Offset[{3, 0}, {2., 0.04128551260485526}]}, {{2., + 0.04128551260485526}, + Offset[{-3, 0}, {2., 0.04128551260485526}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -8226,14 +8272,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{3., 0.11534753314923062`}, - Offset[{3, 0}, {3., 0.11534753314923062`}]}, {{3., - 0.11534753314923062`}, - Offset[{-3, 0}, {3., 0.11534753314923062`}]}, {{3., - 0.07534753314923061}, - Offset[{3, 0}, {3., 0.07534753314923061}]}, {{3., - 0.07534753314923061}, - Offset[{-3, 0}, {3., 0.07534753314923061}]}}], {{{1., 0.}, {0., + LineBox[{{{3., 0.02369352118303734}, + Offset[{3, 0}, {3., 0.02369352118303734}]}, {{3., + 0.02369352118303734}, + Offset[{-3, 0}, {3., 0.02369352118303734}]}, {{ + 3., -0.01630647881696266}, + Offset[{3, 0}, {3., -0.01630647881696266}]}, {{ + 3., -0.01630647881696266}, + Offset[{-3, 0}, {3., -0.01630647881696266}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -8241,14 +8287,13 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{4., 0.12137835397397166`}, - Offset[{3, 0}, {4., 0.12137835397397166`}]}, {{4., - 0.12137835397397166`}, - Offset[{-3, 0}, {4., 0.12137835397397166`}]}, {{4., - 0.08137835397397165}, - Offset[{3, 0}, {4., 0.08137835397397165}]}, {{4., - 0.08137835397397165}, - Offset[{-3, 0}, {4., 0.08137835397397165}]}}], {{{1., 0.}, {0., + LineBox[{{{4., 0.047204949589833}, + Offset[{3, 0}, {4., 0.047204949589833}]}, {{4., + 0.047204949589833}, Offset[{-3, 0}, {4., 0.047204949589833}]}, {{ + 4., 0.007204949589832994}, + Offset[{3, 0}, {4., 0.007204949589832994}]}, {{4., + 0.007204949589832994}, + Offset[{-3, 0}, {4., 0.007204949589832994}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -8256,29 +8301,14 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{5., 0.02647071257259957}, - Offset[{3, 0}, {5., 0.02647071257259957}]}, {{5., - 0.02647071257259957}, - Offset[{-3, 0}, {5., 0.02647071257259957}]}, {{ - 5., -0.013529287427400432`}, - Offset[{3, 0}, {5., -0.013529287427400432`}]}, {{ - 5., -0.013529287427400432`}, - Offset[{-3, 0}, {5., -0.013529287427400432`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{6., 0.023456222957275213`}, - Offset[{3, 0}, {6., 0.023456222957275213`}]}, {{6., - 0.023456222957275213`}, - Offset[{-3, 0}, {6., 0.023456222957275213`}]}, {{ - 6., -0.016543777042724788`}, - Offset[{3, 0}, {6., -0.016543777042724788`}]}, {{ - 6., -0.016543777042724788`}, - Offset[{-3, 0}, {6., -0.016543777042724788`}]}}], {{{1., 0.}, {0., + LineBox[{{{5., 0.02574862503336382}, + Offset[{3, 0}, {5., 0.02574862503336382}]}, {{5., + 0.02574862503336382}, + Offset[{-3, 0}, {5., 0.02574862503336382}]}, {{ + 5., -0.014251374966636182`}, + Offset[{3, 0}, {5., -0.014251374966636182`}]}, {{ + 5., -0.014251374966636182`}, + Offset[{-3, 0}, {5., -0.014251374966636182`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], @@ -8286,67 +8316,21 @@ Cell[BoxData[ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ - LineBox[{{{7., 0.06755274506093277}, - Offset[{3, 0}, {7., 0.06755274506093277}]}, {{7., - 0.06755274506093277}, - Offset[{-3, 0}, {7., 0.06755274506093277}]}, {{7., - 0.027552745060932766`}, - Offset[{3, 0}, {7., 0.027552745060932766`}]}, {{7., - 0.027552745060932766`}, - Offset[{-3, 0}, {7., 0.027552745060932766`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{8., 0.0656943559101739}, - Offset[{3, 0}, {8., 0.0656943559101739}]}, {{8., - 0.0656943559101739}, - Offset[{-3, 0}, {8., 0.0656943559101739}]}, {{8., - 0.0256943559101739}, Offset[{3, 0}, {8., 0.0256943559101739}]}, {{ - 8., 0.0256943559101739}, - Offset[{-3, 0}, {8., 0.0256943559101739}]}}], {{{1., 0.}, {0., + LineBox[{{{6., 0.04205596917630404}, + Offset[{3, 0}, {6., 0.04205596917630404}]}, {{6., + 0.04205596917630404}, + Offset[{-3, 0}, {6., 0.04205596917630404}]}, {{6., + 0.002055969176304035}, + Offset[{3, 0}, {6., 0.002055969176304035}]}, {{6., + 0.002055969176304035}, + Offset[{-3, 0}, {6., 0.002055969176304035}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{9., 0.06336481652412472}, - Offset[{3, 0}, {9., 0.06336481652412472}]}, {{9., - 0.06336481652412472}, - Offset[{-3, 0}, {9., 0.06336481652412472}]}, {{9., - 0.023364816524124716`}, - Offset[{3, 0}, {9., 0.023364816524124716`}]}, {{9., - 0.023364816524124716`}, - Offset[{-3, 0}, {9., 0.023364816524124716`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{10., 0.06411966003494028}, - Offset[{3, 0}, {10., 0.06411966003494028}]}, {{10., - 0.06411966003494028}, - Offset[{-3, 0}, {10., 0.06411966003494028}]}, {{10., - 0.024119660034940277`}, - Offset[{3, 0}, {10., 0.024119660034940277`}]}, {{10., - 0.024119660034940277`}, - Offset[{-3, 0}, {10., 0.024119660034940277`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.2723396669680713}, {2., 0.11371259766422015`}, {3., - 0.09534753314923061}, {4., 0.10137835397397166`}, {5., - 0.0064707125725995684`}, {6., 0.0034562229572752123`}, {7., - 0.047552745060932766`}, {8., 0.0456943559101739}, {9., - 0.043364816524124716`}, {10., 0.04411966003494028}}]}, {{}, {}}}, + PointBox[{{1., 0.0026427938975142062`}, {2., 0.06128551260485526}, {3., + 0.0036935211830373404`}, {4., 0.027204949589832994`}, {5., + 0.005748625033363819}, {6., 0.022055969176304036`}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -8369,7 +8353,7 @@ Cell[BoxData[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, - PlotRange->{{0., 10.}, {-0.016543777042724788`, 0.29233966696807134`}}, + PlotRange->{{0., 6.}, {-0.017357206102485794`, 0.08128551260485527}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8384,8 +8368,9 @@ Cell[BoxData[ 3.8430388681449957`*^9}, {3.843108092458481*^9, 3.8431081259843197`*^9}, 3.843117742197577*^9, 3.843290859577046*^9, 3.8435458592274714`*^9, 3.84362537613055*^9, 3.8436380148242617`*^9, 3.8437109563924007`*^9, - 3.843713800990252*^9, {3.84372860170702*^9, 3.8437286121983232`*^9}}, - CellLabel->"Out[67]=",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] + 3.843713800990252*^9, {3.84372860170702*^9, 3.8437286121983232`*^9}, + 3.844085402469151*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"bb2126ed-a867-417f-a9c7-1e694934b782"] }, Open ]], Cell[CellGroupData[{ @@ -8431,7 +8416,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}]}], ")"}], "/@", RowBox[{"Range", "[", - RowBox[{"7", ",", "9"}], "]"}]}], ",", + RowBox[{"4", ",", "7"}], "]"}]}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.843038908915916*^9, 3.843039025372636*^9}, { 3.843039068391004*^9, 3.8430390812137423`*^9}, {3.843039113072671*^9, @@ -8440,30 +8425,32 @@ Cell[BoxData[ 3.843108048821316*^9, 3.84310805498759*^9}, {3.843117727838696*^9, 3.843117732197199*^9}, {3.843545863507519*^9, 3.8435458707473803`*^9}, 3.8436264580770817`*^9, {3.843645375615492*^9, 3.843645394782382*^9}, { - 3.8437286714748707`*^9, 3.8437286722181387`*^9}}, - CellLabel->"In[68]:=",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], + 3.8437286714748707`*^9, 3.8437286722181387`*^9}, {3.84408614111069*^9, + 3.844086146516163*^9}, {3.844086187245356*^9, 3.8440861995942383`*^9}}, + CellLabel->"In[65]:=",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], Cell[BoxData[ TemplateBox[{ "Power", "infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ -encountered.\"", 2, 68, 9, 31652614240606783354, "Local"}, +encountered.\"", 2, 65, 45, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { 3.8430392583180647`*^9, 3.843039299792432*^9}, 3.843107954152071*^9, 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672678033*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.84408620014501*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], +In[65]:=",ExpressionUUID->"9e258802-4dd7-4247-9d27-3e981a22b633"], Cell[BoxData[ TemplateBox[{ "Infinity", "indet", "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \ -\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 68, 10, 31652614240606783354, +\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 65, 46, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { @@ -8471,32 +8458,34 @@ Cell[BoxData[ 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.8437286727619057`*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.844086200181549*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], +In[65]:=",ExpressionUUID->"4607cf9b-6c84-47ea-b38f-99db43ae0621"], Cell[BoxData[ TemplateBox[{ "Power", "infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ -encountered.\"", 2, 68, 11, 31652614240606783354, "Local"}, +encountered.\"", 2, 65, 47, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { 3.8430392583180647`*^9, 3.843039299792432*^9}, 3.843107954152071*^9, 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672773604*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.8440862002137203`*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], +In[65]:=",ExpressionUUID->"bec9728c-e318-4b07-b6f7-9bd82b77e271"], Cell[BoxData[ TemplateBox[{ "Infinity", "indet", "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \ -\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 68, 12, 31652614240606783354, +\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 65, 48, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { @@ -8504,49 +8493,52 @@ Cell[BoxData[ 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672783538*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.8440862002456493`*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], +In[65]:=",ExpressionUUID->"f9aadd2e-5bf0-44da-b754-e220c1fe305d"], Cell[BoxData[ TemplateBox[{ "Power", "infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ -encountered.\"", 2, 68, 13, 31652614240606783354, "Local"}, +encountered.\"", 2, 65, 49, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { 3.8430392583180647`*^9, 3.843039299792432*^9}, 3.843107954152071*^9, 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672796933*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.844086200277096*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], +In[65]:=",ExpressionUUID->"c9e7304f-f5ff-44f1-9c82-2bbb7d7bf672"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \ \\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \ -calculation.\"", 2, 68, 14, 31652614240606783354, "Local"}, +calculation.\"", 2, 65, 50, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { 3.8430392583180647`*^9, 3.843039299792432*^9}, 3.843107954152071*^9, 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672810272*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.8440862003081512`*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], +In[65]:=",ExpressionUUID->"164764eb-21da-4f2d-9639-23944417c74c"], Cell[BoxData[ TemplateBox[{ "Infinity", "indet", "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \ -\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 68, 15, 31652614240606783354, +\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 65, 51, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { @@ -8554,56 +8546,62 @@ Cell[BoxData[ 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.8437286728235893`*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.844086200339263*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], +In[65]:=",ExpressionUUID->"a31c8609-9314-42ea-b2d7-f518d6fbc27d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \ \\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 68, 16, 31652614240606783354, "Local"}, +during this calculation.\"", 2, 65, 52, 25192597500608025920, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.843039123814147*^9, 3.843039136710627*^9}, { 3.8430392583180647`*^9, 3.843039299792432*^9}, 3.843107954152071*^9, 3.843108055364347*^9, {3.843117728353074*^9, 3.843117732580961*^9}, { 3.843545864042536*^9, 3.8435458711323977`*^9}, 3.843625379368246*^9, 3.843626459335294*^9, {3.84364537686788*^9, 3.8436453950715837`*^9}, - 3.84371380369567*^9, 3.843728672836954*^9}, + 3.84371380369567*^9, 3.843728672678033*^9, 3.844086148088873*^9, { + 3.844086189171053*^9, 3.844086200370564*^9}}, CellLabel-> "During evaluation of \ -In[68]:=",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], +In[65]:=",ExpressionUUID->"f0b7f3c5-28a3-4e70-9bc5-9ee05d4113d8"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{-1.0986122886681098`, -0.34506385655267025`}, \ -{-1.6094379124341003`, -1.5939241893147924`}, {-1.9459101490553135`, \ --2.9476876890974495`}, {-2.1972245773362196`, -0.21675247223648747`}, \ -{-2.3978952727983707`, -2.2224800380831224`}, {-2.5649493574615367`, \ --2.593652555199629}}]}, + LineBox[{{-1.0986122886681098`, -0.5254223480032854}, \ +{-1.6094379124341003`, -2.503142401203806}, {-1.9459101490553135`, \ +-0.7386685579353841}, {-2.1972245773362196`, -2.2376482955318107`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{-1.0986122886681098`, -0.1238551595142692}, \ -{-1.6094379124341003`, -1.5262739805409067`}, {-1.9459101490553135`, \ --1.3260542349097244`}, {-2.1972245773362196`, -0.05303613428984394}, \ -{-2.3978952727983707`, -1.2473567197011404`}, {-2.5649493574615367`, \ --1.9161848159261075`}, {-2.70805020110221, -2.691884607034622}}]}, + LineBox[{{-1.0986122886681098`, -0.3281483180426431}, \ +{-1.6094379124341003`, -2.2663422237212076`}, {-1.9459101490553135`, \ +-1.1143021099072583`}, {-2.1972245773362196`, -1.8244112515623783`}, \ +{-2.3978952727983707`, -2.439287170295765}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{-1.0986122886681098`, -0.1240320577088941}, \ -{-1.6094379124341003`, -1.5888048175086207`}, {-1.9459101490553135`, \ --1.1645195437127034`}, {-2.1972245773362196`, -0.16668462170807238`}, \ -{-2.3978952727983707`, -1.221053737981528}, {-2.5649493574615367`, \ --1.8512494269356834`}, {-2.70805020110221, -2.455394833056804}, \ -{-2.833213344056216, -3.518642781414847}}]}}, {{}, {}}}, + LineBox[{{-1.0986122886681098`, -0.30936463741032855`}, \ +{-1.6094379124341003`, -2.206785614443164}, {-1.9459101490553135`, \ +-4.4902042205789225`}, {-2.1972245773362196`, + 2.6284946782239773`}, {-2.3978952727983707`, -1.4208489506559274`}, \ +{-2.5649493574615367`, -2.2984016976650725`}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{-1.0986122886681098`, -0.22998080008943558`}, \ +{-1.6094379124341003`, -2.0334044901225017`}, {-1.9459101490553135`, \ +-1.8497428413770705`}, {-2.1972245773362196`, -2.102701505635729}, \ +{-2.3978952727983707`, -0.1131274061136029}, {-2.5649493574615367`, \ +-1.6621453159978383`}, {-2.70805020110221, -2.9418260762091477`}}]}}, {{}, \ +{}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{-2.9062412530721224`, -3.7898461689736145`}, + AxesOrigin->{-2.7758086548809033`, -5.047282808239126}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8626,8 +8624,8 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{-2.9062412530721224`, -1.0986122886681098`}, \ -{-3.7898461689736145`, -0.05303613428984394}}, + PlotRange->{{-2.7758086548809033`, -1.0986122886681098`}, \ +{-5.047282808239126, 2.6284946782239773`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8749,28 +8747,41 @@ Cell[BoxData[ 0.}}, {-1.0498221244986778`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}, {{-2.995732273553991, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.05\"", ShowStringCharacters -> False], 0.05, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, - 0.}}, {-2.3025850929940455`, + 0.}}}, {{-4.605170185988091, + FormBox["0.01`", TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, + FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.10\"", ShowStringCharacters -> False], 0.1, AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, - 0.}}, {-0.6931471805599453, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.50\"", ShowStringCharacters -> False], 0.5, - AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., - FormBox["1", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, + FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046, + FormBox["10", TraditionalForm], {0.01, 0.}}, {-6.907755278982137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-6.214608098422191, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.809142990314028, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.521460917862246, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.298317366548036, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.115995809754082, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.961845129926823, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.8283137373023015`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.710530701645918, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-3.912023005428146, @@ -8782,6 +8793,9 @@ Cell[BoxData[ 0.}}, {-3.2188758248682006`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.995732273553991, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.8134107167600364`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, @@ -8803,6 +8817,9 @@ Cell[BoxData[ 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.6931471805599453, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, @@ -8839,7 +8856,37 @@ Cell[BoxData[ 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 2.302585092994046, + 2.995732273553991, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.4011973816621555`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.6888794541139363`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.912023005428146, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.0943445622221, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.248495242049359, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.382026634673881, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.499809670330265, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.605170185988092, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.700480365792417, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.787491742782046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", @@ -8850,8 +8897,373 @@ Cell[BoxData[ 3.8431177285019007`*^9, 3.843117732948329*^9}, {3.843545864185811*^9, 3.843545871490288*^9}, 3.843625379551635*^9, 3.843626459412537*^9, { 3.843645376970646*^9, 3.8436453951525993`*^9}, 3.843713803823037*^9, - 3.843728672940864*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] + 3.843728672940864*^9, 3.8440861489432077`*^9, {3.844086189940118*^9, + 3.844086200694008*^9}}, + CellLabel->"Out[65]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlfQeYVdW1/4lDEWM0z2hiXoqaxIoaGxYsqImaaOyaGGM0RikWUEGxi4oI +CkrvMDB0ZmAGGHodeocZGDoM05nee1v/9Vtnr33PvXPv3LG8l/d9//m+GeXc +u9fee6211179PPj8mz269nz+zZdeeP7C+3o//3qPl17oc+G9r/XmRxE/cJwf +pPJvxwsd/D85jv6RnzT8Mf8I8/9fy3/aUWNjI8XExNAbb7xBr7zyCo0ePZpK +S0tPk4/bUlRUFH399dekPxs3buSn3bp1c06n8vJyeRYCxCPf3wz79u2jQYMG +0auvvkrvvvsuzZkzhyorK69tzQxt/GaoqalxgXegl19+2U4aAoJz0fc2Q4gt +OOe1ZoYzmmEpKSlJwOGrb731Fo0fP55OnTp1WsvQfu5P+yVLltDbb79NGRkZ +VFJSQiNGjKAhQ4a4QCK8c/K/3L+Yt0ePHp5nIcE88v3OMmbMGEpLS6Pa2lpK +T0+nzz77jEaOHHlta2Zp3wx/cXFx9M4771Bubi5zW4sgLvr+Zgixh/NaM8M5 +fjOAwKA5oNTV1VFBQYF8/uabb1J9fb18JwQ4PyZoT3379qW1a9fadWdnZ4N9 +KScnhz8NRY+Wxz38LWHrs6NHj1L37t2purrauaYVsNqZcUuXLhUMZGVl8akM +P+7Cbwn79CDrPLcVsDoYQhcXF8szUAY/ZoweCe+Q811qfWU+qqiokI9OnDhh +TwtEys6dOw3s5lg9rZVjH/wOcyjljhw5YjHy+28ID1jr06cPeLrVa/71d5gj +2Jp/8o3gnU5NTU1ytmbNmiViHSfbMzbY0J/5UzQ/P1++zUS3M4Ef+B4MS9Fw +Yx/8DnO4MquNSJrU1FTq378/rpFrWgmyvfkLhOMWysvLE1YPN+7X3wh+hBe+ +OfLNlnxuK0G6O+5Amzdvlu/h99NPP5XT2pqlBxD2/+pR1Qt1xowZ1KtXL9FS +cE2Ahauqqq5pJWiRgafR2LFjXbyHY/vWnlQf3NNaXui5rQSonAgyQg+aMGFC +4HqDjjPk/L94T+pygRlgA/+6oRWw9P5ZvXo1vffee/Y7Ldw/rbkiQ4E1y/v5 +NwCxZ88eUVhbsbLzvfQJqTzpVf39Ka6hIQYjSEgw7czHQ4cOpYMHD+L2gW5B +H3/8MUVGRp7W8ugwSmmrgPsv9/zWQYyOjhYise1ChYWF8vGXX34ZZrkBhgcE +9Lx586h3795y5KAXs3niztFGlqQCmDHcpuVRj3wHoC4KzGOWvvgbIXxsfowS +EwZ6O9Ehhg8fLnIKPDtz5kwg/bSWR1/0PQAPv4WftG4WNlRo4sSJ8jF+ISdZ +ZobZgqGszBTEzXCBWSPWp+uRv+u+x899H39PUH/mPuOPt+PPD0KP+mWQZxe2 +8nvnB3n20yDPzg3y7Jwgz34c5NnZQZ6dFeTZj4I8OzPIsx8GeXZGK591aOWz +01v5rH0rn7X7np+1/Q7P3NMUlJXeDfKse5Bnfwry7OYgz64M8uy3nunlk//t +Sf/De/4/J2nCfe4ydEj/ZCj3YIvexAixWPTGkLn5flRfq/lptlOzkhAXfMiV +hPi+Xr/NLc4WcCFalqqETjCd0AXRsqoZzMnYiqnDmQv6LNz3Tvt204czPvVZ +uO+FnL6dnX31f2zPB82zmrpSampqlH9l/UeIryvZcXQyLdv9PjU01tmVtHwQ +VJ36jozvLqANxWzuSkMXXkuzN/yTausrMv3WEEIns2sI8bmGLQJU4mB33QED +qa6hSpahvzPW/Y0qqvMy3OVcEHJke0rJ2WhHjVl6u/x30so/U2FZipMebvjp +lLB/sAxZsrMvhshQF1QXyizY04Ka6ULoQNPWPiEj9qfGyge8bFk+no2Iv4mO +Za92UkODSTbIwjDdR2lVtoavmCY0f0sP89F1tPfELOdkOGgRdDA9XoZMWf2w +o/YN85jwms6y4cAwnIIT4aHpqLX7BtpYA87PxgPDLbSlu97lGWqPh4a23+yU +qIkmLP+jjDp+al17s9PElLmyQzyet7kbH9Jy51h4aPmlx2TIsEXXY8jpBtqx +7LU0krGPj6ave5LKq3Kco+GgRdCu49NkyJyN/zI6ZlvKKtxLY5fdKc8nrvwT +FZQdd46EBxW79WUZsvXwOKPWtqXC8pM0eeX9hsPuoIyCXc7h0KD2mT0yXmnk +4ptlGK/mTAOtojqfZib83XDajXQka6VzKDy09PwdMmT0ktv4BNf/yI/TXrKc +tvv4DCMlWoAWQZsOjpAhC7e/bqwBl9OW7/nQ8sb65K/AL8nhoc1c/7SMSEyZ +Y+yNdsIvmw+OstBwVBkj+0NDSzI7ra4tsSxVVH7yHLPTpJPRwi54HLPpRWab +MrOAFqExeo10gbrY9BMDjVnYchpkQRlzWlI4aBG0KvFTGbJy78cmSNuWsouS +fJy24j7wtpMYGlSiWRgQpFx1OHP5Tw20IjDbqgesZGS6O3s90ASYwiiuSLOU +r6ot+pmyWE2BZbHh8Z0A3tkTbkURlHhyrgzhoc7PDRnr6ivtmcAvjhqvfFd4 +aIu295YRLG6c/zbQmHFpxZ5+FhrkOLPYztDQ9pqdNjY1COtjVHr+9l94uezQ +aAtw8c63qL6xdkd4gNmFiTICTMAjfmVQt+/kPMtl0Zv+DaXD2R4OWgTEhQyJ +3fKy+V5bOnFqvT3/UWsfYxY75WwLD2ruxucNpqOM06AtnSraT+OW3SXPJ6y4 +l/JKjzhbQ4PaY/YI4aCb4SEXGWjgmshVf7HihPHpbAkP7cSpBBkyfvkfQLTf +GGiVYDYjAMBshzKWOpvDQYvgW2mQDFm2+z3ndx5mi9v6qqXmzmNTQeGN4aFN +XfOojDiQvtC52MNsfE4tNMzI694QGtpus1MWBnYUX0GXeJhty+Gx9qP4Hb2p +vqFmfTiAEZSctsCwwePO5QZv0DyUOKA5iz0nITyopbve0aPjXGFApeRsYE67 +xZ2CMVFameWs84ASSLvM5qACjFt2t3yZB3b0YzH3Me75vJLDztrQy1FouSWH +LOWZfFdaFkunyNUPykejltxKaXlbnTXhoEUIwd2T94JzteWvQpq1/hl3lkU3 +0MGMxc7q8KDmbe4uQ7YfmWjdtdBXF2zrZQkIPZ6JujI0tJ1mm0xmUQsxijF1 +jbIYS6VVif19LJY0EPhdER5gat4Wq0/wCE1YAYttOzzeAoQQrW+oXh4OYARt +SB5qmLKPCTK0FbZTFpuz4Tm+IoqdZeFBqR6cdDLG6WRAnczdRKMWd5bnU9c8 +wiyW6SwNDWqH2SaIp3spqci40UDLKT4gYsQVJ38EFzlLwkGLgGiRIZNX/cU4 +etoCKuvLD7mcxgtMzd3iLPaAEkgKQO+e1Yn9nVsMAL43xY5S/oIIiQ+9lu1m +Z6AUbnsMY2OhsyEgE4uVqtfsprcfmYSvLgwPEHaMTyUuvdXDYqs9LLY66TM8 +WxAOYASMDjUSnds9/MUnwkLDUnnJceGh6bnZfGiU08WgjlElKFNTlFHpxIYG +tc3sFIomhAKGsS59p2WxzZbF2AICZZ354aFlFuy2xGfIdxloucUHhbX0xmKW +c+aFgxZhlYkF23o6fzCgmNeF50VdYDHLZ8GJCWQx9anXJW+j8gkfwgw3ByTC +steeEzOdP1q2K5YzqSTns+pEh17fWWa3jaWFVNj9Vir4dyeqmPXVEvOYlWF7 +0tnSucdyY43Vw/AL0cIsMCf0PGcrwA0LZQ78Vq+JXmweH8teY5QQTNF0r5kH +d8qapM/tPFCTmUlnh57nxwZgZcxId54XbqLapE3x5qtrkgYIILZHjJvX5V1I +bJ2ESQSJPivcJGz78vLKRr8tExW+1IUaMo45i8z39ZY6lLHEud98n68Yy9e4 +eliKOTNDT/NfZlhTbTWV9P+XTFPU5wFqLM5zFph9god04ayeP2CG8L1ojwJW +wvemMyOQtdQCaiwpoKI3HxT4JZ/8k5pqqpw4s559qfON1fxXkwfSVu5mNdmh +PfLF5UwPvQ01jRoyj1Phy11kmrKRbwonx5rvQ78WL0Ty185D9nhkWf0Lx4OV +Cmda6GnONRip27+VCl68SaapnDtsvnkMVoIbB9BYlj9sJoFRyOa9PS77U+c7 +UaEnOc9Aq06Y72PjhPnzzOOc4mRrf7P402AxjguUOiUUlD1mnimh5/mpsvHc +Ye48vCGWADHmq9uPTiLjGXEeM5Ngg6r8uqZkP6iqkYFUV4OQPxQyCPO+cifI +YwRFhNjBriIT6TzuOSY7j02x8KFQs2Y2OfQm1GxkfhK+Ev5lPmN+c+YotVh1 +go4HiCxanzRD+NTYxzAC2BhwJoWe6Xzl5OI8OSHCyXxi+OQ4s81M6hqESc24 ++qsZwkaKNQD5/mc7OdWZGHqmn5th9elH5cgLM7MIYFHgzDLf93gRnafM99lM +EuGmK8gu2udMCD3Nf5tFs+gSESbMHDNSZ/B4GZ2/mxlKq7LFHHSPy80wq2zA +80BKAc1fd4QqqupMxpiHIX6hPL1mruVpFtMzzOMAV+TTZjocHBiyenDYwDWe +4PZsHzbQjOUH6NlPlshv90ErKDbhKFVW1zmDQ2/6lzrjrCGG6W+muoM77jRf +rUpbQ5UnVzCm651/mWdez+YzhlHZ6ubT9qZdNK5epo8641OySujtUQlYGM+F +vxGywAXrj1FVTb3zRbgFmqMz/A1zdO6ihuyTzh2eY5I9/8+UNul3lDnzFire ++RXVl2U8a8B5naf/lGdny8ldt/9Lu+AVez4SI7OhsYli1x2lf326VND40hcr +aWtyljxP2JNOvYchNOHuAJ8t2nicyVLvDHR30Kpo3ncqutDwghdH6vBoqqmk +4n5Pu4e+78OsYBQZbTGCmliZLdzcjzKifs/LYEwxIdImXUy5y5+nylSh8NOG +FwLcw896sLzreJRF2eyE7tRv4mrFxuCZO6iorFq+rMGb+gaWj7vS6PWhayzW +Xv5yFS3eBKw1OAP8sNZy5PE7lyu0safv1wZfjUW5VNT7fld0ffY8i64aw1OM +r/oqKj8STacWPsb/Ar4iXN7a9TXVl2caIdPM+/0vcxxh3gwzasfncx6gHl/O +ozWMiSbypRwAO6t3ptJrX/uw88rgVbR0SwrV1jU4/Q12wgfGvm16omLRy0wX +GOTUpx6iwh63u9J23HsibVUs1BYcpMJNHzZjprzlL1BVKtvgjQ1Pmq/uPj7d +tVk3/stR5OQVV9KAqVvpla9H0pDYm40Wej/8pVZ81tU30srtJ6nnV6stcnoO +WU3Lt6VA1jmfWOT8T6bh6ve8CLrQUL5273q+J25074nYMZqcAxsU93RB2TGb +IN9UV0nlh+fSqQWP+phpVmcq2T1UmOlx8724ra8IMhCxcI/dGeAYkTzdBi4X +ifTvz5ZR7Pq14ju0N1thoubj4B5YvjWFXh2yyuKt11erBZeMU6efxdv/ZF66 +fK+d76zxTbdylu+m27z4bMNlKpuhvcEfzXLZ0QTl2oIDzGUfUHrU1f5ctuJF +5rJV4LKHDXQ3PuN6zbIK96qULymvoa9n77SX4gfjNlJGbpnQEY7BqLWPW8fx +8VNrqTYviek0h4VljU1I4pPIJ/IETqZFKJ9YWrMzDSfY+fA/xojqA2akUcX0 +QS56u95CdYd3GRuznbhUVNdWPzjbL9cacI11FbLhUwseCWDMYcyYWTbTDaJq +woIkyimsMJ7KZlEsVQW2H8gWGQ98P8e3aMyawxjubqqDRP5Vh5FLeebl7r3N +s5YdiMI9ZVHPVwTF81XB4Czq+Sqhdbtd1L9vUY+f/y0Bqc5yZj8q/bqXq5G8 +ejc1nEo1aG8v6gUr8lafhl2YnAYDr8m5zrJ3cmj2TlsN+L8yqJ654qBV6nYf +zrncQPBG/v5h0F9RXUdj5++1LP/WyHV0LKNIKydwrZUdmE7pMXdTTPSVp2E8 +j1owpyOlMhVcStxCZclTQQkfIepp4YZj0HgsIXoPXytyiTUjk+UV7h7/Fpna +wbSd3xr8N1VVUPGHTwn+i995lJrKi238M7/0KMxnj3+hF0z1671sf2g2nYp7 +2MP2tzLbD6eGimxHQ1K4qD6asMkiE7zc2NR0qQHjjZU+bYbsO55HvVg86JBp +S5OZ5xuUkRoqc1k9HUIZ0683RP8hpU25kpavfMwuduLiOyhh7g2UMvliq9KW +7Y8E7SwOWWumuPVHwRGWIn1GrKONiRlCkbf9KNJyGsk3zccORpTfGaI0Fp6i +ojf+5KpUn7/IN1+tJyhdKyyrzi3cXEezVnXS85C/jwo3vk/pU6/ynYfJl1De +yq58HtbiPGgkE5fcpIVJFslfTN9OZZW1F5vtBESdnzKjIE6mLtlvR0GK7z+R +r6SpLTxEBev7UnrkZWb+doL60r2jqbHGrRBCWHXM0i7usWlP4xffRuuivZS6 +iUr3TfKjFBtgYlF0G+ijFA7l5n2Z4CXnLZdSFwRB6sUGqfUpfBH2uE2QWj7+ +Awh8G5tHboT6vfCLC5VlrCLV5fRZzOkP+Th99m1UsmcEc/opWxQALWPd7nTR +LoAbiNkTmcW/MxgNiLz/TR6fQUfTi+hN5jrF6LjYRNmv+9NE1RnrKXfpszpx +9vwHqOLofJYstY4yEeKacHGMW3a3o2gdG9+Z1sR0ohOTXYmUMeNGRutEqFEW +rWxWy3FktciiFSbm1v1ZgtY+odF6idlU7e61PgVuwYT/MqhA5FJ9lnIcV9wH +396NZhT2BT2hcON7YFV/Tu1GVenr+BsNPzEYashKoeL3n6TSwS9T+dTPKGv2 +WJr48VD64P0J1PPT+bSW9X/G/W/MMr05CX81IHD3Rq8+LJcpkAwTYefBUy6K +G2rESsme9ydFMgy66kyoYU0WWYhk7DkxEzqjRfLo+FtoJSP5eOTFBsmdqDRp +PDjGjuMzRXN56hc/9yH53THr5Y5vYiS/ERrJlxp0VS2b5tP7tiw9xyAZAQL1 +zbi2+SD4pW6ybFtO5QdnMts+6GHb25ltRwrbqrItFi+jl6EzUPw9nbJeuI1O +vP4olYzoQxVzhoqPBT6dhuyTsPDU9eLN2TiSucK1VzpQWk4pvTd2g2Xpoaw+ +llTUUGN1Ic8+CkfcSIcIlhSXU8GGt6mu6IjNr4eQSzoZA9AW1aNYvVwecyMd +VVRPv4FKE8f6obq0opZmrzxELw7woRrrAKWB6tfCodrogVMHuOju1pnqjux1 +FN8QiRpu1qBMdtG+mwOZesM7zZm6uzL1mQZHmAgmodK1ct4oqpw7nMpG9aWS +j/8B/wx/y6UG7OuSgV2pfFI/HDLW/ZdQ/dG9bHvnwaT8iVmAf/ZL8eNmJj7J +ogE+39/lfRaitGFvBtWWpLi605SOlhrAaglb5w1VWijaQaIFTZVl1JCbIVIU +juqabcuFJ6rXzmMdotxKIrh/ktMWIgJpKTdiUSdaOu9GOmIpd717H9SVW8rB +yJi5/CC9MGCZpRwMDVbUxNzvGZpylynlGuqpdMgrrirZ8w/UkJNui3qYN60T +HTcnXGsNjXW36Kpry/ikzKBTsX+xJyVrzh3Cqw2VOSaHju/EVXNMcOZGeLXb +eEjZVFFKyQmbaNT7X9HUPu/R8t4vU+anXan47UfgD+SNuqQs7HarK8uGvkYV +M76k6hUzqXZPgvhlWRnTahJv6pFLx3NhN9Cnk7fYU/V51FbKObKO8ha/QOmj +LqGMYZdR5pDL6dTwLlQyqy9Vxo1BSIzKJ/ajsmGvi3em+N3HqbDXH+GbbS8r +ihAfemXMCInOWDI2NYj3BfkZPjLeQPHzO9HhKZdYMgJBjDxLxuKyapq+7ABu +QEtG6H57j+QKGV8JTUZNAwGnGWnEq32MNdISS0a4dL35MDMSnoKLoLPfAUwU +cZI+5UrfAbyU8lb1oKqMBBxA1dfqj+8TTy0mqlo40d3CjxjLlVZ2Pce/8P82 +MWs15mdT3cGdVLN+AVXOH0Pl494XV31hr3vsOeX/52fPybmunDeaqtfHwRHM +Y7OgeSl2vZlgbojtLN8hy8sMOGTRVLlwIh0a+jGtfK0rbXzlH7TnpUfpFBMx +v8dNP5aZ2wpHwn6CDo8VlAz4N0/kEhjmbHlkf/H26hJgWx3LXg0MWgIP54Ox +YP6NdFAJPO06UXEaa0stgQtLqylqSTJkiSVwv4mbKOlYnhD4pdAE1uQcIKPo +tXsF76WDurGeV2sI3F4oiMidhr29Ho1bPYcV1ld24GFlkcKWgbGGeJ6yIhtT +gYkJ35sW0LIxQWNjfQYe/K6sDLmscTo1VVciJioHEwe0YsZgOUHgSz7A7lnu +IMEtuIihl+DOqFw8mRaP70zTpl5HGWlrRMV0V312i/Rl7gtxUO/BQeXRmO/s +ZkQu/bqnqLJYXuWC8SKeWD2Qi7r+xH5IQBwfCVgq4WFwY97ifk9bBkE0rf6Y +5inq3yZJo0KyhDLIsEXXURwzSLJlkGvF2musKbEMUlBSRZHx+/0Y5JPJm2Ej +CIN0D80gmnmFpUNMiqbONx7QeK4hHFwxmhDoccXc5pEANbl7XRNEJcDpIgHy +V70sqrT3mkBQjxH0QwMc+vuqHan2ooR1fjK75EzDFSAhAnW4eXED4ybG+nAz +8w1thcBLXSSAAKy6qlO0T3Wqq70kGEOcPPidGSLzvadpa8+nKaHXM7T3rT9T +1sfXUnb/jpQ18ArK+vpaKo7vS7Und1uG0HpJXF6Yu3TwS5YhYHTWJm6QI+Nl +CETnkYqmDAFFY15sJ9o31TBE1DXijvUyRH5xFU1etA/BIMsQ/SO3SGgPDNE1 +NENcaahau2OVVZOq4iefZ4QFZBgS5CAkAv1DGrFh2cXCYhqsJiMs2lDOZ52t +esdH8SzDdscyiqzTARYcq0hGLp0Ougn9QEeoPaBr2sAn6NjrN1But5uD6WlV +Cz16WrHoaT/+HkjvCvyfhJEDs0PJAbFGRkTvpvcGjqYlI5+g1EmXWOUva04X +KkueIir1LwwCsb6yse/K3KcZ9oAYrNm4SCS3ypXMgj2ad++oQyw69kZKjLrU +sMbvJezTWFOsnJFXVEkTFyT5cQYiGodSC+UbL4TmjKsMZ1QtmeIzjLav+Kk5 +yPBcadKex3N1h5+U2CNSIuurq91ttaGsAVdR/mpICeH8H1mRU8Oq1jZ7V0C6 +1dU3unP90JeezJyIK6c+JRlLoarFkVQ+pT/OFV8SDwkC3YvjHKsEgsBeJRD6 +hR8zLJrUEjO4vHDWN+SFNOUFtbb2Hs6mEcOH0MYx99gL9dTCx6kyZQmuC0sA +6P9wkRd2v9WyAjge1imrrpYVkDlrsuMsK8yO60R7oi4TVkiPulrcd43VRcoK +UG3HxyXCPLesMGjaNjqSViTfeD4cK7iGW3nkp676z/itP5bkKD8gwW7TwZGB +TrMuZihUu8JX75KheR/eTmkTf+d3JmCswGA+04JrojmrDlmOgALE954m8gRk +mbfX64MvHqCw7sA2qk6IlUyvsjHvSIYJ2yvnfTdi/tygprK8lFbOHUSJ425y +vA5xXH81OUgGbvqtysbSIrYRxmFGS0/XGBjpZwzklRw2eQnXWXrOWMCK2TRD +z6lXUfGOL2HdKz2z88tpzPy9UKAtPb+cvl1kLL7xXGh6apoz1ddR6Rc9XHoy +v7OwNIk57aRWQXNcPf662zzSWvN2ij/4mzg4anJ2U0HCWzB2vYY5HD0VxyHK +qrS6Cc4CjRMiBsOai6MWdkDKv+uUPQ8WMNWnHRZnWNXy6XJKQDs5q2yKwggM +Tc8lwehp/JZwdufQ8dX96ejEqy1TpkzuSHkb+1F9aZoxf10vDuCxTmOpiRsO +Msir+ReWnRB8MYdaak7j07ndS83tg6ihqkCpmZlXTqNi9ggdlZpDWGM+kSkO +XZMPEpSavzdIFavuvSdckrDk439baiKVypssaXyFtxqcV0R97jLBy10QHlJ9 +hHUMvqyiPDZ7G7lk4H2pObUDEly1fXDjO6PX22ha/MbjcAf9l4HkrbzQEnoE +5/PW9aHUyb7r8cCE6+nQqiGi3WgJPQ51zdZlVPzR3wPUaa2Qcv8i/x+1F8MX +3WCxPnVBJ9o67XKJGbGyylgfyFjPV6wjxoqb2ot1xGFZI5Vv/CM01q8xWIe4 +kbsCJtCXPXCmrLM6NXeLDX+bxB5QQp1ZUF30Zq3duVpjf/DvF20bQJkzb/YY +X13cWCdz4+kGOsIEhmVcD+CcXXBqq8vRW55yjyKKtSKY6LlLn7Wgt4+9g+Jm +fk2l5RU2ou0qrFuwIZ/CykpXbeJGP4UVeWVgK1YPLcojGeWbZlzGKL9YUF60 +7XO4uhTlaadKaRiv1Ity/BvP8Y2/h0b5tQblsKNw7MR4YaMbxsv5FiklUmAa +4D9UpzgsTo1QsIKpTidYbPAd5q/pyWu+QlGTE/83iTrDOtdKZhgwyFvQxCuE +SNJzyjRXOqCM5w8qOeD/PjyXsufdZ0/S6lEP0cCvhtPmfRmAeoP5KixX3Fls +ePi0wQ/+SjVIVGbmUtyXV+dKNuHIxTdb3E9ccANtENyD3TtS0dbPWLhZ3IOt +TZqBxT3Y36QaOH8LjfvrlGdZbbJ2wpIpWmSHuIvWI7rOv1HQCK5X0cTCu/id +x2y0jY+0dUTDfECMM2fRkxY1WHv+2tddd1JjQ1sD5jBrrcitAd5fHLCctuzL +smC85U53K2jxhY9AXMZImLaUMukyih3xT+ozIFKuy8LSatvAoyE3nSqmDYRu +46998X0D7UtRjwoTVDSzNWRRP2HhDZQw43I6ORmov4JR/ynuFUU9Mgshz72o +x+GF3Mc3ngyN+usN6mG2eMSFoh61vUhLD3DY6WERH/iot1xb/PV74c92VCrX +l54UTzRLF8cvd4zvprqiw7YevLi8RuxJlTRwP9Y3NGoLHm95mGZe1RWfCHB8 +t6MTU66nacN60kv95yBSI34AviOs0wm6UuyYAF3pLvHaN5bkW+zjiKP2cczS +Oyz2xzHjI0MDAU7B/pZPoE662G8vOhGIrRuA0xG6E99azhPhMG/03gkfulck +S4/61EMmC9d1p+1v5k6LEnfa75VyzD9acFB3aJcqsZDG1dnbXE9K1NXWLoh7 +SExE1g4c7XkFddibNQsfdVFZdQcDKaC+Ti1zCW1mb0WmhqFvO8qIvoeip3xO +L3y6QCDBccSmQRcVVFBxVs5iFecv/irO1M8kccQGoVkBR2HEuGV3WSKM5SOw +momAcChCTkjjbKjIViLA0IDBYYnAEhSB2FMFFSZRPSgRtLCMLWG4XH2VDiUF +Nv+hpDKzmcuKn6kJW3dkj037r1oy9XzFWn0VVRxbgNsQ+rvLpme4vuyV3dg2 +W4YIsKwC0VqwLNb96pBVdPCk0dyaVSMqNzexPQTgvshge8pd8gztTIih7kb1 +hRMMihISIVRmibbD+iq0HUuAF26UM1x/fJ8lADQ65CxOWP5HS4DRTIAVs6+g +4zgFkZdJ6mN9eZYSAEb/52z8ewkA50BuUaXziIcAgn8twpMCEE2bR+5pXa1B +u+sd2hXgHXKbWzT5XNEYbxItyob3FvVBHR98Qqk0cRzfivcaHHWQkEfh5o/E +xZiRW8r3a4JdLNLbvImp3tLNzipF+DopTZqANBmfcRZ5KRsmfagwIxFxUm/Y +UtUOn4bEms++zTCLrOZTOqirmA9Yus0YbqyVPhSTVv7Jon/UwutoGaMf4VMX +/R8ga1L1OmgO8MixJLVXALQIeO7yiitNbUvQM6A1jG6u621+bttfmjOABF/I +fj+HTHW+Dd0hC2xQN9c6YFsJ1oHmPGpUtWjLx8C/VTpjWK3dNYomzF7hpy4g +p0cHYqXadQRlr3qV1pelyxXoS5LpIMEOGLEgOyxAm33Hv3PZ1keq3P06PiXZ +LZ8K1II2LxYtSOkAtwNYLnLVXywdRjIdFs/uSEciLxHSIwOivizDSwe4ylny +2W3hJMLpVFBS5fwlNB1uMvvm69enBS2f/isrpeuk/0SAD0RTDCqjR/hcJ2mH +f6NiiGUMahcQwObl6m0Jj8LB2U/Q0CEfU9dPYyVphLWFCDMqoDr4RrNa+Nzy +17wKw9uqPFlz7xQzDtm9yHoZH5fol4uF7BiM1l6+8GVWRAWoQX2gBs1A2Mbi +HhFMlK1FrXnU4n4E437RnI50SHHPpiIbLV7cI47Vb+ImP9wj3gVN7P7QuFer +CSEBDRDzqfy1wT06YgTxV2hiEFx/ngKWS3QLrCGKhWvzStvQ8YlX0MIRT9OA +wcNpe3Km9iiCYx6ATfW0pugx+Zh6yz3qazv8vzzDZ2S47bWv1+iGpyzeL8Yb +ADyiCyktlJBnc+VntNx0inOIXCjbqLlTnA9nnMfNvdINKvLlhdhsfWmqF+cI +Dn80wYdzON+hxRWXVRt7vAWcBxQzoh4s+6SjiMdFhBp0r2shNW+Lcjd0agwx +xtoVZpa6oqOiZmbOusWibd94thyj36XqohPe0nLNQwX7glbMztZfAP8S2J1v +C6srIfCIbEa95pBVvu9Ynib6I/AIZzBfan4aDqKL0HAU0xCK8EXNWv+MxfQw +XtH86CspearBNGturER7MY1sig/GbbSYfmHAMsm6KCmvce4NjWmtDEc9nJbG +wGJqqig1328n9fta/i3uBMY630MX6NDaamgN7lAGgSoRDe+AE+Fzz1v7Glso +1sCdssAVIInHplnbH9IZUpqltS+BKOpqlub9IUUdzYSFTq2XM37HzNuL+O5T +ir76OnFwFH/4VIAe0xd+OD80w0/C6hv/C2hui4Rf2jf1UqFuQcKbVFeSYjOj +0ecelwdf3hbHsAVnrzyI3CRT6xwUx50NoiT383UTHR/8sscB31bSvr2trw6m +xztahiNmwORPfKVduRkGa20kYr53zXjaOPY+3P8uw7ShQ1OvoPzVr0h9WlNj +fUezKlQMQCFhCWlxjLxeKC5wNiiOkVKH5EFNqXvpy5XIaXvGyp4mUUxKv+hu +lJX2cse7ykqT2XcTZeTvlHJQxe/c6KsoUfG7rjeMNT/8Im3u3THrffhlzRfp +dWWVtUZPDYpf9SaKf6brLa6TZcbgi8xXtTsGVmKrLdbH+WzavevV1EVy2+eR +bhuVsbHXWd/jjBuFDYE+3tfFFg2N4r1h9drxGVEPU8XxhVIQqGYs3BxIeFKO +/WrWDpi2Wi8I7zC401/l+JtwsVflwE1jDG4jGNrS7JiraI+E4S6m/HWvM0aP +WYwiNwz2A1/gFqNwfoOwKLq8MzRGNeZes9FTGZ8Qq5U98DMro5ZWZmqNpGiJ +JrhfGTOyk9n+kp1un633I7vRRwNH0qbp3RFN9iW93i/Jqw2VeY6SDMV4cID5 +FPQISXOG1QolX19tgi0u3nzCZuV2ZYZBli6U9RdUruSkuVl/3Tp7tIoHRBZ7 +tQo0UTAF0Ra9M+ZdbUIhjF4WYXx7+KEXOcosizzoXSG5zCgqvSM0em83CEOo +2RaVHt6txSTaQgFVTr9QIVtZ5oYaITu+6CGyw7VQzyBve45Zq2eIXgtsfDh2 +FWUlzqPc5f/GkfOPjfybKk/EA9HamJnNfsn4yJjRySd/p3QUawKCUB2RbLX5 +OWUGTNmKcG93RQvbXVAekONoFYpX7xYlw6tQFJQdMw6c6yy6oxjdOxTda3qK +L0jRDU8EkvdZcbToRrkHkvxRIntbOHRrQUpPG3ZqzM8y328jKalDpdz6Aeg6 +WlItCoipqi1648+yA5evzwxsYiKVDRCUWoiy61AOmFqYm5ncF8i4RiyDmhxU +LjX9zCyYT66bMj3lCp9onnmTZPSytmjrmCFdUTKqXgGwPuxT5HS/rMcniKqB +g4lwC1InlQbov4bCXl+8qC1NmX81bZ3uunJxg9QVHvKjgRT5DvcV+fb4YqWU +voAGnUPT4A4PH9tg0YdPyQlUoYzGHmpapOfv+Ll5jGh7gfYbOLJXLQ5vyxft +vYuEFG89CtLCsWgxNAuSxTJk/raG5ty7xE/LRqPtJy6+q6wtHt9VBLLHJYsc +ZW/tzTFAKe/gGTvsVB+Ol9K5XgpG1JDFEOT+aghrs141BL0y0PJmeHwnS4LJ +839Pm6dfLpEMxHZrCw5aEuBmRnmXt2IYTBdvKoZvDk2CLoYEEIg4kQXa86Kp +0b6bRF2qrIo46q5ClqPW+zNXaQq6t0mO6g0oSoVbQZECtxtf3mrK8KUolVvI +xEiPvNyGOxb/XdCLpGF1q7turDi/tF34yyTNy2but5Pac9SZq6tm3tojwNEb +SgY+vwgelQ7q6tNUvujup6mUV+VIqfvI+JssCSbF/p42Tnfjd8gvZebxIwGK +G5uXJZ+ADWCcJkFJcKei9MA2XwuF+WP0AGijLLRKqK2v0K4YUoZtsiqhKMD7 +ooElJGV7+gtpxAKn1Fuqcjyz2JcAXFPiZkTbym0T+GD9wc2PaTjd81U4yjJn +dfYk9V8m9gcEg0Zhy6tq/UKCfUclYMq+ijHRcN7yaDjt5fDD3wi/I37QxxHG +16jFnS0VxsddQwkzr5DYBrwUtfn7LRW0/rmXp/4ZHlLEyFD/fIOHCkKEuwzG +bKI3LPJty7WEEAYueqcOlRYW87XhJc6xen8lZbmqwnpjkBcl7ke3G5NekAi5 +9B621npaTVm79jjmu1RSZDJn32Y5G8WdxTu+EP1CyVRfmkZFW7yerAhxUmIs +cmHPMNMlHs1FEbhfkKS2rkEby7NpKU50n/rT3qv+CO7Rnwlp86OX3GZxP45x +v5Zxn4KKS1a9avOSLO6lhnpbCmJiFvc9PTXU14U+AdqySmwaLAt3cfdbkYtm +2jRESBAPeJ2z4Tnb3AapUhoGacg4pu6+LYfGGKdjTysSwIxfzvAFXZB8xAjR +3HAxSbM2i4HHuI0wzqpTCx6R+lqVT6yD+BKFov8gackoW1O0o+QzMt4n6nDK +DqQUfKgnpyRfAkg+Nai9qwbFjhGfC35w36FB2dhld1q0j2G0r551hcQyUOha +m5foQ7tUWqf4VVojqxE9EuDDvCY02u/2sDPcyqLP9L5f4luqviOPQbV61gw0 +L8abockHVusq5mx4Vr6JPl8qBqASQwArTmD0sLqo0gSOFJS3wV5qZ0PdT7kd +EZoaHM3VRbi1z/B1fgRk9eJjBVNVIZGtoj73+1Ar2s1AcSHiBzVqiBCMt1GK +tjR6wbW0cpYbpYD+W5O7x6IWbrHFQSqpoWkBtVeHRq12TkMYsegtV0OXPj91 +tfalJ1rQjaqAcwxekXOq3Xoqpg28xTwO6G6mmUt7juSKUgl8QOXae8QnAerL +MyWPDX5zSYde0wvHVVPaIClROaVmAe6qXYdOfWbWJprKpnh4uS06RVMZ8454 +w/EDpy/0LbYyLDpHLriGls7uSMeAzmX/QhaWB5310vnFrx56mK8e+srQ6NSe +cZIx8dIdrv9uYj+59LQ0DVVIQxe6ndkamxq09ZkUu33wV5cCnz4rOayK1oBm +boobGDPvj/NVs8F4Yy7WZhFQBnEHEpHNEEQyA2r8dAiSSEoragfqEKNxlAxU +jaOdGGwI7kDoof4NjXfZ0PBh8lpaPOdKiRtAx2HLwGISMQ90AerhwSTOxgZT +x3xFaEzeowd49zpf0GDpNEUijogGj1NyNmrDCRHM4z9whS0LrMb8bBvj8naq +0wYKEEo4oLbcgnVilsCu7tJetG+YB5p3Dx6GGQcLfbABi2od6fpl1YN24lBE +OiTUA+g4B9IXoS+homwEM98iRtnhSGa+pf9EVphFmRQUJ/iXfqMId1NSpqDs +stAou9fgpio+0uvr17ihttRcvPMt2zwQubzWk5S0ScOw3lZ7Wt8NdROy2tYg +DJMaBK1/QCrbx5M2W0wOjNqGuNBQAxHyAgl/vou8HaLlEjUH50OBOZy5nKat +fVKxBLcxOhccmsJYWvIPuE8sllAfDFntrQ+G2rbF1AdfEg5LhlXGve/L4MtK +sU3CtFMlQrTVtSU/Mo+hCaqLrjJunHruAjoGapPB4xnFUoSudi6LD5ND0l78 +hdA34OfG5/gv/o1a0BFm0XIJx4xEHMCizL2Ex8ol7FZKrUUlns/Tfg3Fzr2S +DjDKchY/LWkMvFGN/EK3gFHZ1VPwi/TDbcluwe/vQmPtPpVS6JyoGazSlqHE +UVMX8kY5Z2/KbG2j31ReLKQW58+QVySHVBnN2wxRa+lQKzvQL619H24BPbKo +4/EmRIDpsgsqxhiIcr8umwb9wIc13K/TBkpUxS0f2gj1TB278+A4n3IpY+wp +0a1goSnKUJWAjGpv4S7kpxbu/iY0yv5k9i8GkInlS65jQ72jSdHa4RXVlHpZ +ohii9KtXfSkbZUXGP+Tf1VFPHoQU/MzepO/8EpM17LpcIDz0/sX5hUyGMBmv +SKuvlbqJ4veftEiDhefeouI2lrZ+MZu7er3hSVMvlWy/6sxNfkhDYQKamnhr +ZnFPwacE0XmhB2mCsz97Dpj6YCumf6GMVVZ1irTjQ17pEc0/RKJygemKwyPV +7RvQl1LtUFYaxMOpEYH9x/Ot6geWGz53l0UhKMyybbLZj9yKe9cjCc/cim2F +kqiIgBhBl4bYrS87ihv4tfdGXSoRTbFJPbhBVlhgISq8L3tMIeqvQzPU/WaD +MDytX3vdfOUlfbkEEso0xQnpqNoEoXrNXHXdBnTVtNnrBRVWOYC+hauPmVxN +Q5AP6pd+jOARH8woMz8yi037S8NEbd2LcOsyuQgxKXrZKJZmMJZ2M5ZQ0SEp +ix4swT+FaKQXS+DrxKNuNecvQ2PpAeWOmBEe9/Qu9QcdzlwmW0ebVTZ72+sh +LciWhHhR2PhWgMKmCWHe3qDaowQq9+h5njTi2TtxdasrCYoPOirpxyjYY8Ng +poEot2Fkf3Cu5zZ8UNLkcRuiTGjxzr5geq93GZnwpxY+5hbse7CF2leEx/1K +G1ksMosLtv47HLZMA8Zhrxvv8h89RQ1u0oS++oc10XZmiKSW9X/OlzlfU2n7 +6+lrj9Du1J29gwiiFdtOWgUCWk16jtuuCxk+Xqcg3HBQwzFytoGJWjUQtdl9 +GDdOzBd4tJfv/gD2hyJtqnEHZy94WIKJXqSxiJRpvEjzlv+dHxppf1EMoEeR +UdmlnKO60lGPuGqbC7b1so14tI0XLANmAa36Qi6AJoPlFh/UnpjI/PO6Rrzm +CJ7DdYJvagtbpAuzhgxPvw8/3W+VWXHzoUIVHUiGx9+g+ImMvVp8tdlxD7k9 +1zz4kSK4hQFFcFO20qGTBfKNn4bGj7Y1lix/c6g0i0378KIWS+MPrDRpByto +zdZe376ii3mMpvaaG8TyXX0tEKafTdnSLD8Ytza+oc2Q3fttYfP7bey7bh0h +XzAoM2AqKGomxl5DG2dcTllxDxoTv9GiBpX4gUVh0FgOp7n1geeGRs1DSvND +u3w9leeNUqzgotW2dbuOTdW0JWn0bLo1VswcrOnC65OHyDfRFvcCxTlrA8ic +gFsZ2jBYWTtoyz22J4HvsRd899jgl+Qeq6jKk/cI+RLj29J4xsF64CD2Acm1 +8uIAd8XYgEIqNGrStKhzPDgQFGgzPzTm8Hgw3Z2fYXuPouEukevblvP17uM2 +i5KNfd26t1+vxl2RwqJ4XmKeIaoO1vO7lPo9LRn5VbxlFN+NXnyr43Ucrpt5 +BWXMv19SWb1bzmITBzLfu2XU5x831UY/Dk32RwIlAJLZUpJd/2AHcR+r2wQH +Q9LPUc2gsb7CHOt9D+gefMzMhlZEUmVor5S25kqZQ9XluW7u95Lbm7nq0uf/ +ya2n9GwUIf+RMf4FPl/N2im+YXzjrHAbNT1PTJGchB6L8hwtj9a3LuAFCXDk +qq1ad2Cb8bD62hCz1eykmGdoKoNGNGyt2S1CvEjBWlGmtOQbt9TnjRzNZvaK +WR0pdd59Ei6Gl063iItn+Fz/LaIUKNVktp4ZeouPmi2iHk6aqIjL7DnJHFKd +HHYZlh8z7VZfDnX8ZE1X9vYsTlUZVVnG4jsKpoJvdyK+v6Da7ONuhyePQ3AU +726Z7O4eKRT07g67GBqkZMVct8b3FnR3j6kcyTphHXzalUwtNGRsTom7kzJe +co8xWsYw/2iMIqDDcLpuEEJ4/QIEUO0GRQiPe49qUvbJa8Mm+bnoWLLN7kgp +8/4gOeFIGtANghORiBIo+LUw5PTQG3zcrBJuLlWNq5ZM0Z76CLOn9XO7Bmf2 +uk1Sye42QwK6AWca6Fas2tYmbSRDqiZ5EyWnxtEUn7MMnp/4OVfS8ei7eU+x +nj21FzHijclCxYa4gQe3fej9PGEWh6vfen32rtdXEcCNj8e5L3aiaVHXy7ut +lA293XtP2c00IU6NvAG7GXR9qt66lO+3eIpa87BuZjjUm7lX0tGYO93Gb431 +VtXBNaBWOm/KSw9Z/hOKbnhhJn5k1KIu0jNfm99JC15zU6yf4Pby2nZkgq7e +2043zzwD10qymZWCbcStXcVS8NjJJTRj7RM+9xJ8JVfR4eg7qPxIjGf1EXKR +61lpAfXaW1/KevV1En0fll6VZxk+RCsFpL2pJzjxxGxZNV7rxbtXqR7Q4rbA +zAbfAd5YwKix+3FF3gQ6eWIpzU542usum8f7ORh9mxvu5/20IKi1Wz+8TEhT +dlNzuot3QjuBsUQT2ot+y5YcnD+oI1JlFa9X1A0E9Ist8kq1JVM9Uq2NRMHQ +XCD9cDxFb3g2wmT9waOQHH2726K3sa4FCfw3s3aobvYVK1EDRUb90KxHzCt1 +7eWkacaCa1VJR3hbdQUdAM9gnJbqupmkSLNj9cOuG8IKtmFWUhzN2/Sirnt2 +zNW0L/pWKcdraqhtQbZqV3F0YbAG/Jpo9Wd489Vqd69V5U91X7BHbb2tOZq1 +/h9uFmrKHKdcDy9bcXCYs7Lk2DqMIa9QzvY5FLdZHRRtxPTeG91ZAum85Gan +8+9masT7bPLKwZ1avFOfdsTinbnTdp9lOaiFu8lpC9S8CejXWeknaPbA6rRr +Lfn4GcpbN4Xit75m1sqaHhu+u2Nu96SvBMWtvrRBcp70JRzo25ub7liLFek7 +emMP7Cq8roFt7baLjFpdeUBfzBoVMqyNo44E3dNsUBrZbUtH0/KtvaUbkURr +4m/BUWhp1fruBwn+aBYybGnbtcLsaEQfV7q8fp9EPVXMIgdKlcHiijT1WHgb +TdarKCnMkZQ9P1HCln5RzGBas7kvJR2d1sKt+Q8VF+hIYQq34S+AM1cZFee8 +QAv2Du/SwKk2qN58cJTjbYfkac/Y6CctpmCbvtQvkRaDJZnUi0lZ3zMGHm4s +65mPHqEpO2JlmUwVvh/VK4bSF8yMjAlmWvXjB3QpJKUNREFCrCRQiJQc1LUl +/cLtOdBBVB1P5Nl9k4rJn3YTl5qsmw51gfoCytTcLeod9/baI3fPnnO+aw1a ++LS0FLfJfHvf6z+ACtNYTquZtBwVnhOxJXe9bb3z3nZwArGF+8S+RwJpiqaL +lbV00o6caXaq1wQy5WrqSjXAiaIYdTHB0eyZTNtBNX/pfYT3pfduTpp88JwB +Ksfd1E/XbFykURyIKX1vK2NYl4AEZRGz7mtGvUv4qVmCt7W1qgpeHGhONNx7 +OGr411nmmb53lMW2o1kI+v5AvItUIJz9zeZ7wywd73VSKVBQZtNLvO8n/Tbg +e5tneFs04KxP/spXy8Ucqy/ewpt4WgNe3hjwmgGA9xFhMBqWsJDUjDC8ilUf +m1fIf7tlt5G2uPoeIjZDNPNy3b4vTJLgey5WfvzNwPcxz/Rtkou2v+EobG/3 +iG8P28eLwHBlTeEN5rFfm4TqXO8MWh0d0Ou7fQuTQAbry/LYEtBOCt6WADLA +jVkGPfRvGlCwvDFm2lqoxE1a5eUtcW8tKOxLXSE5xQe0g0JArXY4aG+ZZ9qT +c23SQNuMIaD0uHWg2KIxygAq2Vg+6DsWvNW0MuCc8KCg7GvfB779FJS3IjQc +KE1O1BYxCD9pVU1AkWPrQPnwAuyXV+VoGX5ABV9roYG7tEf/9qOT9F0pGw4M +k0d4+akM+EloUG8bUPB8YAy6kjDYq81XtWwXLz9tLSi8vkXFFptZWuoe8PLT +cNDeMc/0DXRQs64yz7xvPpVvt+AMfsdMr0IPqbB1DVXawse+AzXps1aDQraJ +vkzzQPqijh5qeN6BGg6apl9qPWHMphcdBRVYONAqUP5VNyWVmVrR6M2DlwHn +hQb1nnmmFSZbDo1xFI43n7t1cHxVE5NW/hmcfZkHhZ6k5NZCQ+qbvqc+LW+b +QgtIsw0H7X3zTLvx4JbSRlredFH5tjcEI2DeN5PqmR0pWlb5pQaAN+uxGYCg +C3EF7ySTWbzv5LxLPLv1JPqFg/aBeaYvbQW5FZT6Sk1yW+tAtZFzqgzFPKll +bdqvC1leMuBnoUFpuivLbhnDwsl2N9OqaKRAtQ5OG3nLruyEDyBrtL81j735 +QXgHeyuh+ae4bdDmeN6UGRnQQqDyI/MMb65UqatwvKkkrYPjY2ZcnWwhXWQe +B2RctBYaiK1oZpZUaAHJCeGg9TPP8P5mDEPjaI0IeSP38u2fh4OjSpZJNik5 +rGVt3oh2OFCa68t6vYxZt/9LW6oVEOxtHag2khuHIVAbWIxozUVAXLQZNAGm +MGDV4BY3l4BWzXijiAKghXSBT8wzPWWIbiscKH94hpBc6+D4aC1R4Op8+77K +6nx7YtAtrZXQwFAaGGS9TPOX0W0BjxBLkgG/CA3qUwMKvb1FC16DcE+T5lB6 +AzetBVXpCe5lF+3THMOAKEk4aP3Ns4XbX3eVgsT+Nl0xIC7ROlBt5J1oQ43L +lg+a5hF5owIyoIVkGwWFO1PVc5aYCsrrom8GSiBpHrcy4bzN3W3pVoBPPNxa +PgvABg4xM49msQQ4qMNBG2Ce6Vug2Fa3uR1eh7F8+1fh4LSRtjdGL8RJVYvQ +68VtLSg/F3z+zvM8jz1+1nDQPjfP1COOC1NBHfV3fLYOVDNPtXpu1FJeufcT +d48t5LgpKH9fcpyWc4jf0Phu8OqMQGgCTJPZvS7dEG8iCbecgWaY189aVJ6q +5ZbNHHQXhAY1yDxTdygzkS3bbOZoCwvH48Rktb5JW3gH96S1AprXA3kyd7NC +C+YUawHaF+aZdSbylaKdNZs5u5plgX5hJvX5CCX7+mwDoJk768JwCwnw9aXM +1X6TwbxXLUD70jxTHx7LBEdBBXNYhQXl77JjgaWFo82cUxeFBqUFCD733BBb +gBoV6IgKC8fnkYMcZwFpA2lBnE5eaAJMYfj73Naqc1lLXqxPqYW06SHmmUoN +CNlgPRNbB8fHwrgc+SoO0fyvtdBcp9mjhhFtRCGYT8kLTYB9Zb6s73yHqsLw +NE7SzJP029DLUVBIBvJ5y5IVVDNPUgug9I3L2g2TVTsTZwnuSQoLCtfHKhli +XGUarArmSTLQ9O1CzZ38YV+Z3dbiV6f3utdYb1ZHazPXkyl3UA/9N3hxpQYN +vZvXShc9wpBzOnUzV1XYqVt+cWmwdzQONbtXVsQNx7aMBmeDubhaWEVr31wb +7BWqw3TX5kUHbJnZFWv6daS6xy4Ov4ZwryOWZ+28J8znMUS+pX1RvZrB1qHW +ism/PQLaiIKh74hl01mjkuKMMy4Vdca1sJJvyxDDzTPmd6N+9XN0CYVGn/E6 +8cIu4RsdB3f200W2qv9LJaPH6Sf/dj1BjsYIv9n7SluaHMrQBOsNXSgfejyF +3skvCAJmhMG8Sg74iQK8g05rYajbVJeiOGFjPiyMkfK3rXV86q91BF4afiyq +Nr1jrQ+wFWPh7POOLSg7HnbsKENMvSzxq6ZE2GER8KBaq0Q+aaHuUce4rso/ ++1x2LYwZbZ5BpatwfXJht6RjoD3qs3Bj5O+6/48+9338PUGV/09z/9/5wf8D +9Arlhg==\ +\>", "ImageResolution" -> \ +96.],ExpressionUUID->"72ac7c8e-c77b-4316-b135-33157bc5868b"] }, Open ]], Cell[CellGroupData[{ @@ -8877,7 +9289,7 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"S", "/@", RowBox[{"Range", "[", - RowBox[{"8", ",", "9"}], "]"}]}], ")"}]}], ",", + RowBox[{"4", ",", "7"}], "]"}]}], ")"}]}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.843038908915916*^9, 3.843039025372636*^9}, { 3.843039068391004*^9, 3.8430390812137423`*^9}, {3.843039113072671*^9, @@ -8886,26 +9298,34 @@ Cell[BoxData[ 3.843039467206892*^9, 3.843039493341281*^9}, {3.843107802839673*^9, 3.8431078135107822`*^9}, {3.843117687924999*^9, 3.843117711412985*^9}, { 3.843626992668977*^9, 3.843626992756966*^9}, {3.843713812217536*^9, - 3.843713812385523*^9}, 3.843728679770965*^9}, - CellLabel->"In[69]:=",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], + 3.843713812385523*^9}, 3.843728679770965*^9, {3.844086166214139*^9, + 3.84408617214264*^9}}, + CellLabel->"In[63]:=",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{-1.3862943611198906`, -1.065632984119704}, \ -{-1.791759469228055, -0.7038774661999426}, {-2.0794415416798357`, \ --1.3244689164589851`}, {-2.3025850929940455`, -2.382023689150254}}]}, + LineBox[{{-1.3862943611198906`, -1.5591004588927644`}, \ +{-1.791759469228055, -2.251391045933432}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{-1.3862943611198906`, -1.0530284925188969`}, \ -{-1.791759469228055, -0.7407613051154354}, {-2.0794415416798357`, \ --1.3784237071084091`}, {-2.3025850929940455`, -2.301979177901118}}]}}, {{}, \ -{}}}, + LineBox[{{-1.3862943611198906`, -1.1300663643960847`}, \ +{-1.791759469228055, -1.618601443577125}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{-1.3862943611198906`, -1.2198625061028654`}, \ +{-1.791759469228055, -2.1423832291361395`}, {-2.0794415416798357`, \ +-1.3215560155454926`}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{-1.3862943611198906`, -1.1385900976873167`}, \ +{-1.791759469228055, -1.482973311097722}, {-2.0794415416798357`, \ +-4.39025778317791}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{-2.3411615691189556`, -2.5133481546260557`}, + AxesOrigin->{-2.108623519333618, -4.645386263381266}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8928,8 +9348,8 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{-2.3411615691189556`, -1.3862943611198906`}, \ -{-2.5133481546260557`, -0.7038774661999426}}, + PlotRange->{{-2.108623519333618, -1.3862943611198906`}, \ +{-4.645386263381266, -1.1300663643960847`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8938,208 +9358,251 @@ Cell[BoxData[ Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}], - Charting`ScaledTicks[{Log, Exp}]}, {{{-2.3025850929940455`, + Charting`ScaledTicks[{Log, Exp}]}, {{{-2.0794415416798357`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.10\"", ShowStringCharacters -> False], 0.1, + StyleBox["\"0.125\"", ShowStringCharacters -> False], 0.125, AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-1.8971199848858813`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.15\"", ShowStringCharacters -> False], 0.15, + StyleBox["\"0.150\"", ShowStringCharacters -> False], 0.15, AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-1.742969305058623, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.175\"", ShowStringCharacters -> False], 0.175, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.20\"", ShowStringCharacters -> False], 0.2, + StyleBox["\"0.200\"", ShowStringCharacters -> False], 0.2, AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-1.491654876777717, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.225\"", ShowStringCharacters -> False], 0.225, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-1.3862943611198906`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.25\"", ShowStringCharacters -> False], 0.25, + StyleBox["\"0.250\"", ShowStringCharacters -> False], 0.25, AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, - 0.}}, {-2.995732273553991, + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.8134107167600364`, + 0.}}, {-2.2537949288246137`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.659260036932778, + 0.}}, {-2.2072749131897207`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.5257286443082556`, + 0.}}, {-2.162823150618887, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.4079456086518722`, + 0.}}, {-2.120263536200091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.2072749131897207`, + 0.}}, {-2.0402208285265546`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.120263536200091, + 0.}}, {-2.0024805005437076`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.0402208285265546`, + 0.}}, {-1.9661128563728327`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.9661128563728327`, + 0.}}, {-1.9310215365615626`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.8643301620628905`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.8325814637483102`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.8018098050815563`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.7719568419318752`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.7147984280919266`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.6873994539038122`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.6607312068216509`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.6347557204183902`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.584745299843729, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5606477482646683`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.5371172508544744`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.5141277326297755`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.4696759700589417`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-1.448169764837978, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.4271163556401458`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.3470736479666092`, + 0.}}, {-1.40649706843741, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.3093333199837622`, + 0.}}, {-1.3664917338237108`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.2729656758128873`, + 0.}}, {-1.3470736479666092`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.2378743560016174`, + 0.}}, {-1.3280254529959148`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.2039728043259361`, + 0.}}, {-1.3093333199837622`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}, {{-2.3025850929940455`, + 0.}}, {-1.2909841813155656`, FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.1\"", ShowStringCharacters -> False], 0.1, AutoDelete -> - True], NumberForm[#, { - DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, - 0.}}, {-1.6094379124341003`, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}, {{-4.605170185988091, + FormBox["0.01`", TraditionalForm], {0.01, 0.}}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.2\"", ShowStringCharacters -> False], 0.2, AutoDelete -> - True], NumberForm[#, { - DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, - 0.}}, {-1.2039728043259361`, + StyleBox["\"0.02\"", ShowStringCharacters -> False], 0.02, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + 0.}}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.3\"", ShowStringCharacters -> False], 0.3, AutoDelete -> - True], NumberForm[#, { - DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, - 0.}}, {-0.916290731874155, + StyleBox["\"0.05\"", ShowStringCharacters -> False], 0.05, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + 0.}}, {-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.4\"", ShowStringCharacters -> False], 0.4, AutoDelete -> - True], NumberForm[#, { - DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, - 0.}}, {-0.6931471805599453, + StyleBox["\"0.10\"", ShowStringCharacters -> False], 0.1, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + 0.}}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox[ - StyleBox["\"0.5\"", ShowStringCharacters -> False], 0.5, AutoDelete -> - True], NumberForm[#, { - DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, - 0.}}, {-3.912023005428146, + StyleBox["\"0.20\"", ShowStringCharacters -> False], 0.2, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, + 0.}}, {-5.298317366548036, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.2188758248682006`, + 0.}}, {-5.115995809754082, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.8134107167600364`, + 0.}}, {-4.961845129926823, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.5257286443082556`, + 0.}}, {-4.8283137373023015`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.120263536200091, + 0.}}, {-4.710530701645918, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.9661128563728327`, + 0.}}, {-4.199705077879927, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.8325814637483102`, + 0.}}, {-3.506557897319982, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.7147984280919266`, + 0.}}, {-3.2188758248682006`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.5141277326297755`, + 0.}}, {-2.8134107167600364`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.4271163556401458`, + 0.}}, {-2.659260036932778, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.3470736479666092`, + 0.}}, {-2.5257286443082556`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.2729656758128873`, + 0.}}, {-2.4079456086518722`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.1394342831883648`, + 0.}}, {-1.8971199848858813`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.0788096613719298`, + 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.0216512475319814`, + 0.}}, {-0.916290731874155, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.9675840262617056, + 0.}}, {-0.6931471805599453, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.8675005677047231, + 0.}}, {-0.5108256237659907, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.8209805520698302, + 0.}}, {-0.35667494393873245`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.7765287894989963, + 0.}}, {-0.2231435513142097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.7339691750802004, + 0.}}, {-0.10536051565782628`, FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.6539264674066639, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.616186139423817, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.09531017980432493, FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.579818495252942, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.1823215567939546, FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.5447271754416722, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.26236426446749106`, FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.5108256237659907, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.3364722366212129, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.4054651081081644, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.47000362924573563`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.5306282510621704, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.5877866649021191, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", @@ -9149,8 +9612,8 @@ Cell[BoxData[ 3.8430393001732893`*^9}, {3.843039418677228*^9, 3.8430394361655817`*^9}, 3.843039493793488*^9, {3.843107813972395*^9, 3.8431078381755133`*^9}, { 3.843117689894182*^9, 3.84311771161446*^9}, 3.843626993066184*^9, - 3.843713812913806*^9, 3.8437286807390003`*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] + 3.843713812913806*^9, 3.8437286807390003`*^9, 3.844086172713854*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"00797d70-cfe8-4ae2-875a-9e28fbdcace6"] }, Open ]], Cell[CellGroupData[{ @@ -9169,201 +9632,206 @@ Cell[BoxData[ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"8", ",", "9"}], "]"}]}], "]"}], ",", + RowBox[{"6", ",", "7"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.843117379400096*^9, 3.843117450464201*^9}, { 3.8431176777326736`*^9, 3.84311768214819*^9}, {3.8431179869457617`*^9, 3.84311800024196*^9}, {3.843625389127116*^9, 3.84362538925511*^9}, - 3.843728688082923*^9}, - CellLabel->"In[70]:=",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], + 3.843728688082923*^9, {3.844086221803383*^9, 3.844086223091054*^9}}, + CellLabel->"In[67]:=",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwt1mk4VW8XBnCUioiUhCaR0qyMGe5EkVBRSqYiSkmUJCRFkSk0kERRIimh -ROlIyZAkQ5yzZTjOPscQZTpE6X3+1/V+Wtfvw97XHtaz7qXgdNLSRUhAQGCa -oIDAf/XOga2Rj7Id9G/+v2p9UKrVUtLFxcBNwf/V7KxG7wlFM0ScVjMYJ/Xo -4rXlLYp2EFlUONZE6labA56fFd3xeX2GRhGpaj6/PpQpBiDUP6rVl9SsEJ2f -7xQj4Vl2e3/00kjwZh6aWqKYBDnB5K8Di5LQsd3ErsAyG0dLGabjutlYWr18 -uUvFC6RGeraUP3iBjTPz27Lev8H6p/TPUq83KDQ846i5qhQKUP9e0fwOPofF -XvDyyrDx/WBw9vIyVKWNLbQOq4SdXP+imAcVkFiXqdxp+hlpFeePdw99gm/N -43BH11qEOEQLP/tRg/wbWRGrzeswc/Tdm68CXwGzx//uzWnAUKjCsmsOdShV -iXiv9LURjm6zKxNT6xF7a15saH4T5t+xL0nobcDT4ZSvsWeZmJKToSs84xtk -2PXy/gcpCLo+SrFe2gTfke4Xpzd/R/nmaQI98s1YPv63dI5AG2IM4/2Fe5sx -27jVvfJUO8LyFcZynjKxoGSg0MqnHYyUDtPdz5lQ1hae3nquHesvqfT9zGNC -d9Xq+4NB7RiuyFy8opAJVwm/Rvlr7bjS0KYZ8p6JoiZpfY+sdnjnqMzubWLi -8FFziTmcdkx7uMni1D8mXl5989xubwcKOkriHbaz0Lav880Gmw4cFhCILdnB -wgxl0YoZ9h3orbcPXmLBgm3pvtb8wx3o2f7JkmXJgsDEoKi4dwdmhn6JV7dj -Ybu7yuHiuA64Sa24Fe7BQovFrXmLajuQay27IzuWBeGFxQrD9eR6AxXZmuss -rO3tXF3V1AGGqiP14yYLQaGqhj5tHfjn/lhHKZGFZSXVJ2v6O/CDKjvil8qC -h+qUykBxNpaadVt8yGVBcK6nf5spG+N63m6fv7Lgk67xMM2Cjbjwyx/S6ln4 -ofW35oglG9I9MUt9G1n4Zh++9JcNG9ynCjw5JguPHz2oFHBjY/TF9Gsm7SxY -6jBlloay4dVva2DUz8IDpy35h9+zseLszDNvZlCQHZnRuqKcjbm5LuOWohSi -Q79M76tio2fsxAXeTAq+T+xsz9SxsWZwZZioBAVzvo/QlQ42Qo7XxmpJU+Bf -zdr16B8b6tdXn1JToGDyfG5ft04nJLUi6h9rUriHdy4n0Im7WSzdHi0KY59P -tP7a0glRfRHu8k0UHvV8/DK6vRNGfypH7+pSmKZ0Lld4fydUJM1lzhhQ+HDr -+1kF705UqR7e9MWUAgLShWyedCL1gt6rDXYUbola+bc868SXA4JTN9lT6E/4 -N+SY14m8YZloOFBIfrGfdi3qRFDHXPutpG//9ItWeFd0IjhBm9Y5TKHo0Mmo -GE4nBPL/3Ww4TkHDWGt+xQIOPIsXI/8chScrxyzil3AwesYm+YYfhaWzXl12 -VeKga2pV7yl/ChKNmkNTV3PwbfmG3SrnKXQ5adYY6HDwMvjA1vNBFO4EaoS8 -tuGA5xf2+d0VClJO/KJwew6yyheKXwylELb15YDNIXL/xKub9MMoeItpOI4d -5YDeXu+Qe5WCRaL6JnVfDiQ93lZfjKQg8FLt19NbHEjli+sUx1LwuT2sHJjI -geuko7VtHIUfAfn25skcyBjvdxwlZhqqfep9yME1LfVNKjco5H7dmL7iBQez -vwTP8b5FYcWLoZbRVxzsHODdEYynkJKQN6f8DQdO+b2zo4gjHTdedPlA7Fv3 -8W4CBZe+DXap9RzwOSp70hMptNQOxnk1caCYfWu74h0Klvm5lZspDqQfZKxO -Jtb336DZxuYgyKP0dVQShfkiG6QWDHLQJzl10iqZQpWSasVNSRrqUZLS5+9T -UJzaZK40l4a/pGJbHXFAZ0B9rgyN+mZRSjmVwtrUitYvi2iYjx49Wkkct/jg -iMgaGnJXaphjaRR6J4X9E9bTqNr5e8PmBxSMWrMElqvRuHJZ7u1lYn7S6Ewj -HRrBZ6yOzXxIwUbu2tLA7TSUZ66VF0wn3+e3WoaYOQ3flttTNxGLMllr7uyi -UbpFeYkX8Zt4Ze1X+2jYRb/qYxJLn61+u82Wxp3sqpSZjyh4WJ8yanSgUdQo -HaJDvET67c5BFxpP4dV5k/jcsHNjkBuNn6xohxLiunoRW4kTNOpUBcS6iUPi -9rqu9qaxcNf4X7UMCt+9JnqLztKQjondsp9YY/d9r+3+5P4BtwvPEXdJ9AW4 -XqKR0SSLAmKDn3FCI5dpWHy/b15PnFijFRZ8lYbr28LoPuKh7FZxqSgaK++5 -CU3LpGAWFXL9Xgx5vk+FGQuIH7qvlF13g0ZZdu5FVeLJHbXJxfE0JJvsooyI -rVf5KJndofFnouTTXuJnogses5JpPBvm6boQz+h5t84tlYZsMav9FPHByiMv -Rh/SaPdOLQgkLswQ17mSScPF0eRdGLFUWF7J3GwalZ2Nf2OIjx+x2ZaWQ4MZ -uedEPPGHbf8+qebTkBGpkUgiXqj8cHdJAY2ClWZ0MrGP8I4mi9c0bvKa+1KI -v3B+2X1/S2OTTaDKf17x4Rb7eCmNhjfbEv67/mKa7tHxMhobT+tuSiBmXWL3 -hVXS+ChwTCKOeKNT2GmZzzTuirNkwokjDdb+flhLw9El3iqImF7SEKjWQMNk -9EmpN7G+gN/U90001n1b5nKEOL5tcfhuisZpLXGd/cS/3pZJtLfSEPb1MDIm -3p58/KYHm/SP1N6LasSp52fL/6VJv2dUDywmnrAruBfRTaNzsv2mCPEeXXtl -uT4at/7ePTFA/p/wRIaq5jAN661bXr0mfpzc35g3SqOrUv9DMrHFFjW/9RM0 -xJt+SwcRJ1xllKoIcdGqSIXrEeutET6SLszFu4uyT2WJ2bWmMxVFuIh8sE1m -mPTf6vnfrBZIcvGtJfl1GvHX1/JjCXO4+C3dyfcl9nE8lCQtw4WBrYmvGTEj -/Qdn1iIurr7KNO8n58FSfYqP4GounNO0jBYSjzabyAWu46JAf+Q5h5y3pIDo -t+MbuBiK1XN9TMx9Lzt9WJsLzyWZqeuJz1muT+Aac7FP55z7CnJeF/HP6Drv -4GJAYokkm5zv0tuv29ssuDjjVjZ+m1isY5sKcy8Xgn7GD6cS3ztpX/TJmbzv -57pdZWR+bJ2T5mByhIvTafPWehH3vOwSKjvGRRun3lKeWG3y9I63XuT5QsZP -HbtHoTwyvCXnAhfy2m8lhsl8cl9fG7QmmIuRiLiVccSSDdLLHl/h4qOhc9Ra -4gPy90+kRXHhU6q3yukuyZ/Mgsmbd7hIVyqszCfz77r531SpFC7cubuVtxJr -DWwxvpbKhaXkqU/1ZH5e0qq5FpbJxdYLMT97b5N5Us5Z4l9Avscfw/vTybzV -5cw2PFjPRfbXtqIf18n8/37s4YomLnLCQ8r3Er9vfD99gMVF/419tW/IvDct -P1N9kc2FTWb/txCSD/sfM/emDXDhW5pf9CeawmnP+0e5EjxUj38ZiiD5ouE2 -XvV0Dg+D/MwvDSR/xg9ZrTkrw4OpuUOmPHGQlfDg9MU8/BYst04j+RWt4eav -spaH899fJSUGk/77sz7a3YyHhPnP+leQ/PMYufpLbRcPO/LKXuwOoKDaz7b8 -a8XDjTXRAb4kL1+13ZCJtuVhNDRHpITk68fSsXvPjvFQlJG+TNOH9GNYSd5g -GA/Gzw2DyjzIfiK9i+lbxsNBh70ZziTPS0SuhQtU8rBUQm+/I8l718nPOmHV -PKQMpJrbkH0gl7cjOb6ehx4xRxGTA+R7FBk7v+zggfO1qVzSmoKfI/qG/vKQ -9H21/05zClTmWsGTGl1gTbTduET2kUvJJ3L52l2o0e9ZZ6xN5sf1J86Bel0Q -SrKbK0r2F++AlR+jjLrAFP5XGK5O+m+ncsQTyy40D3P9z64n/2t4oXSPRxcW -5IiOTS6jcFdfXMXlURdkfsh9/Ej2J6cwxwStrC7sgvlr9VkUlOueTxd71oXB -d365qWIUclysubkvu6AREPLIR4T0e2RKmsDHLsRWhD6fNoXMe5bqoiROF85k -+58sH2Fhw1nrOfUK3bibWP+jmux/5c9S/m5O6obu4gS9oTssNBfHRgjd60bI -02h2320Wuj4Fy35I68YDxZAMbjwLol1H1I2zutH4zTChjuyvZkvWnzAv6kZp -/DTxGxEs1MaUtNg0d6NVJ9K/2I8FllfH61Nze9BUtXIoax8LfRsV/R5E9kAz -IL1/ihgL7XoT1stiejDHItoxT4SFBuP6jenXeyAZbK97aDoLRbbBfY8SexA6 -6r/plRALV4I7D2Zl9CDCyNDC6jcTS+rTjHM/9ECqKUFAn8vEnlNK0iV/epDQ -Mvyb+5bs/znLcij3Xjy5kdsQd5yJNWf+HhM6+AMitkaTk/ebYbxhT9ufLX0o -tIwN7K1ugr1Q0kSgQj8UCl2Zz+lvkJUrTPol9RPpZgnMn3WNCFi5d1R9+Cfc -l5kNWBY3YIuB83F171+QktsV6udXj0Q3qkCb+wvJTvkhKdp18JQ3axa0HsC0 -hjeFg321kPVa/trgywAKxTWE93bVQNqw1O/45kFk7/O9tGt6NTivyv+IvR6E -7Dq5wL7yCqi+KrM8tXEIY1bc1ft9y1C3Mfjyu7Qh3Nu87PPItlJss8ryC1s4 -jKMFtovnuRVD/Gecmfa1YbgLvdk+K/wlLOeeHsyeHIZipZ6Brs4zHPtefCDx -7Aj4r1eXisWl4NvSihTPrhH4CZoc29HnAL3+9z5He0agPD6lpCLcGg8KGeYH -f4xgxJRneMXCDF67CiZ2/hpBQs2Khqh5yxhigen71o2NQMwjNu+6ghPDgBki -0T+djyAnXumqvnOMJ9cMLhxfzkfwvlm40RvFmGOrZ+2swofPS+exPxPRDD9l -7TW2q/jQWy562nBaDMO4eD1luo4PzZIKvX/zYhnsnsWaKzX5uK8076m+9nXG -/G2T/V3b+FCPGdJtD4pnXJg9XtZuwod2ldTvxaIJDG7LSFKzKR8fq45HeF5P -YOSd7jOtsODDWcdli1H6bYbF/Zb0R9Z8yEclHXlZfYeR7958PmU/HxrX4wzP -Wycx5LUa9sQf4MO90UV6b3sSo6vmk1CoAx8zaj8+1hy+y9iZWM4MPMiHZ6in -z5bAZMZLl/c5Pk585J5ZZ+IwI4WxQJUR6nGYj1jVBUoRcSmM4D9FDq6ufOz7 -qBJ6eNY9xv8ARdJ7AQ== +1:eJwt1nlYTd/3B/AUSjI1SEKjJJGS6NuHd5mKRlE0SB9UVChKVPIxNk9oUFFE +UaI0ktxGkgYKTedE3XvPvZVS1I1Ev+15fn+t5/U859699zlrr7WUDhy3dhEW +EhISnyIk9Dcm22+NyMxx2hj//3F9terb9ar/IOyYYczfmJP9weeXihmi6B2+ +4yQeVlj1ilJxxPrpc1+3kbjVzt6rQcUTFrK//cpI1D01VF2jEoihHyz2ZRKz +Lxl8rVCJwNUxxqNSOQK8mf9OLVdJQdybVWKVCino3m7iWGydg9GpnwczDHOg +XL9smUttIa6+0M55nVWINTMLPmVXPYdJxYWo0HPP8XSz7/51Kyqx8wbnRAJT +gVOHJAp5+TXY1M+rm4Ua1KX/WGwb8hrXXYpXmNXVYo7WAzX2jgYMWnovtdas +x+nGrLD9rm+xLeFTyjSDJhRczw7XNG/GjTDnsit67wCzrMk0qffQtT0j5nu3 +GZXLw6tU331AlqfmKH+8BbHx82ODC1ohqfPLlGX/AY9GUt/F+rVjospffXn0 +R8j2tMgHOHci5mehgfnLVpwe7S08aUhDYskCk46uNiwb/10pJfQJaYfft4k0 +tGOecZfn6xOf8THFJN+toANFoc/zHG26IX2j5PWodyc+7WE/17HrRqjIythh +n06IqYnXiu3rxnEzO5d+v044VO7pKjjUDdaWBJ32s50Q+vVNfJZPN8Y3d+25 +GdqJ7Z7LD5Vd7YaCSFTwq7ROUBbx85e87QZ7Zp3l7YZOTJH2Cvi0owfM+0Mn +7JQonMrQu5du0YPvExFH6lQofFn/u9HNugfXRIo99dUofNwXpjxk14NXP0bj +5q2gkJV597XQkR4E3TzimaVLwdqgXVY5uAe0fXX/WWMKdw9sKjhU1YMtxd/M +szwoyI2Kdam/6sH664s3UkcpRAU3iQ7U9YCSvK0t4UXh9ENHB9/mHkydvKPk +6kPBXHBK+Ep3D8oWaS0RPktBEJptlTnZgwVrUyw6IimY5EkP9Bqw0XXdo3TG +IwppqHA5CjYeJo9v6HhM4UfD0a6hTWxUlWf+uZ9HIbPvZdPYdjb8nML0jQop +TFc982TaXjYKOEXRjs8pVMfTfko+bIhqLIrZWEcBgRnCdg/ZiDsQfvoRh0K8 ++K4A6jEbip3R9tsYCoOJk9/357PxU8/Yh+JRuFW4l+v6jI0HdtMtRPopTAyK +1/rUsvF1xCrOYJjCs3+PR8Zw2HDpf2Rs+5uCnvH6BbWLOHg6epKjI03jocYP +iwRFDrL9Pd48kqGhPLvksqsqB6eWNF5Vl6Ux58O671M1Oai931Mhs5AG/8C6 +RiMDDt575CZ9VKCRHKR3qdSOgwzvAOFvGjSEinSHHsVz0CXGmhUFGqdujKgF +JXEwfHgyqobk5ZfAgn3mtzgYXW3dO25Eo32z7pv+exw4FZmq799C48m7NRnq +hRzEezm9nrWdhsuAjuOdFg6WjHFdRaxp1Klq18bN5SK6/WuExQEaKlNbzVWl +uWBck6tXH6QRyA5seSLLxZZZ4vPnHaKx6k5tV9MSLqbsujSt3oXGVQXn0Rkr +uaj9aCC54ggNu4XRykHbubBNOlcWeZys/1P3voQ5FxYP9p3d6UVDvL1jZbIV +Fxmpe3dLedN4nqCmX7KHizUyk9tiT9BQlHlh+c2Fi9t2If875Uvez5yBQNcL +XFycl6vH8adh9PWq8OhlLiJFZW1CA2gkNa4PuRjKhULorBDNQBpmkZeupcVw +YWI6Y8XRszQeiy/K6rjFhbpaj3PrORpifRVaR+5wsVHJQ+HofzScX7sVjt0j +5z+9bVjoPA3JkPxy6RwuzML3NCpfIO97mmmrRSkXL+emHbG8RKOJM+RIv+Ci +ZMbpFx+I1avjezwquTC46bHU/jKNjgs9AyGvuWhUkFi+7wqNjUL+U6tauVCU +ny5iFkJj2q/72utGuFBa/vZzfTiNrFuDH/LHuBDTTd6kE0HDYpOu/+pfXGjP +9n0VR5wYyqpcLszgfF2d/p5IGpoLPu5aNJfBm8n/lVVF0XhXKv8jUYrBWd+S +NQujyX73/5siI8tA1Vun/hgxK+MLZ/YSBrUPrx+QjKFhvVbk1BRNBu7hh5Q2 +x9IYazNZGKTF4Eub7N0w4pTAqBfjOgy6k0qN3xIzVXKiI/oMPltaDdtcpRHu +tj/bawNZ32NSEEe8euY9ywFDBlMs5Be/Jz5jvTqRMWYwr2F+3Y5rNJYIfP85 +aMpgzb5Cq4vElTdKP3+yYKCftHHsKbFE97bl7TYMlOVi0pWu08i7FNFgY8eg +WW7BA2tiW/Vm72ZHBgu3ijeeJ047vu/Zm4MMtj7J8e0g3iqV7mTixuD+OYUf +InE0+or4wjXuDJ5FBd5YQaz756TpC28GBen+632J228//fo/Xwa/hem1CcRB +WyevFZ9mUGGbs7OY+FVEGJV7jgEvS54zTOy5+u1/Ky8yyGoJsJeIpzH3vczS +rCsM6owaB1WJC/0cXquFMTi5YyTNgNhe/vbR9EgGfY5NXlbEky+YeYqxDK4I +GzkdJL57QLMo5TqD6i6NIz7E26efsJdLZGD9+FjsReLBB8V/4pIZiJkNfowh +vmb++45kKnFmuH4K8frhTcbRdxiU16s/vUdMXw/pn5nBgMPOtMkhvrC+MTrk +AYPolf2z84mXUVK603IYrJ32gVNEXH/Oru18Lvl+n41bS4i9VFID/+QzyLNS +Y/5a5hVHMaCYQdOk9bxi4mfuGjVjzxjE5efu/ft/TrO9jvi8YCBhpvz873oi +TwpnDVcwoKrCDDKI79v8yjtaw8BmdcPHv/s1/2lo21dL8rOiPjKW+FvKlXHX +egZzKj2dLxEnGNbfYjcxuJ4QY+FL/A9n3mbnFgZOlfJ7DxEL0e731FtJfsTO +aLAkrvpQJTrcQfY/Z7+oPvGVxkXuT7tIvmz7MV2ReMcr3/rzPQzkDuW9mUo8 +u7xx1Q6GAfuZqw2PfM93JctiJfvI96kaSX9FvDer3SZ9mMG+8FnR54kXpeuU +eIwyUBjbucKB+FNy+ELdnwyGj/eE6xC7Rm74VC3Eg8MFxxt/82/5lXijyKk8 +HBoT2pZN/CXoa7qNGA/HVrsVnSE+6XX7MDOHh/ZtQ91ziPWOjNc9kuIhQasp +pZXk//i/u1b6yfKg/J238Cbxf7umfRNV4MGrxtBZiXiLmdPut8o82M3buOwz +uV+iW4uLEtV4CHzyNTeFOErvSMDyVWQ/Ml9mziG21qqkh7V56DMeparJ/ZVR +lzd8tpY8n6fldfrv/ZZrmGq6gYcTBUVUG6kHWROrozzNeIitCq8LIvXi2Gjo +kK4VOU9v8gNlYu3BHuvfu3j4atG1vZrUm5JP12WjHMh+Np9tECJ+Wfkj7bE7 +D4Y7q2knUq/CSneKnD7GQ1nPtKohUt/MC7JcDE/wUBx86fB/xO/vOWq8O8OD +sEvF98QwGj0h5fnfQnhwipoQfUzqY8Z5ufmlETzMreX3ryI+4n/i9MUYHoaa +1aIfBtMY8lDdIJ3Iw6b8pVK3SX39YxHycm0mDwaN0rOPk3osJ2PVfrqGh4V5 +x4pvkXpfPiM6TOg1D4vnRkdOI3b902AQUk/ex8zfHu5BpD/xTG8ltPAgSXsa +rSL9Yscz44NF3Tyc7Lc0u0X6jf9+DHz/zYNmk8ZbBdKPFHcH3QqYwseWFC8l +Nx9yfpMyS5FpfEzZ9+LMw5Okf+gYPJGU4MP3riq0ST/LmrrOT3shH/IlovIq +pB92Plg15bgeH9+av0y/f5jc11tHnwj0+Qjo6mc1uZF+cu3hwaANfJQvbgga +daXhE6jxMnILHwv1hmcZkH4rYakW/tCaj+AB9vFH/5L7MrJYpu8YH7tshXT1 +7Gnc3DhruUsmH/dObbd6Tfr9gZD9ieuz+TDt5i9JMqGh1pwnKvGYj9DWmsTD +xjRyXWyZJ0V8iA6MRv4h80JlRGq60Es+3rxwC5xN5gt+h/aSFA4fel9GHV6s +paHjZyvVotRL6nJe5T4yrwjK71/IWNqLGZW7KfZiGqXiv4bPLO/FgdNnU90W +kfy9lfpWUbsXSwbWKB+Wo7Gnhh95zLAXZrmyC8ylyHwhFSAmvr8XVtN8yjKm +k/r7OPW3YUovLCNuFiWS+autLDZcOK0XvJEL+lQvBf6bi3LV6WS9p1n+i/kU +xPlua42ze8E2zlt3g8x3Zoqrj5o/60V8uW6KL03hbUw5ZdfWC+cbVyQqGyl0 +eHeXnpDuQ1vq0LkHZL4cWKPifzeiDwydKJzvTuHzhl+2S2P6UPiJehl5mMJ7 +45Y1Gdf68CB19LqrK5n/HC4OZCb14fiuCgvJAxSuXGQ7Z9/vg96yKH1rOwqK +LenGT6r7kPaB+XaSzM+7T6jKlE/0YfL9Ol0ok9/nLs3t9OyHdcmmU2PvOlE/ +Z57pfa9+HPPs+y7f1ImuYxNcH59+KBSFq22sJ/P9yhb52YH9gLF0dsDLTpg8 ++C/YMLwfAaalazqfdaL1dqfTvQf9YLFl92qmd2Lkauys40w/mmc6pMqe6MRK +39/uws5fQEUnBy+Y0Qljnd2fJjYNwF9ohR1XswP7hFN+BSkNYvfDkIsCvXbI +LXyaMiT5FffeKdWZzWxDoIbN2NqRr5Cx87sw8eEjNhkd9FjrM4RhSzFUuH1A +0pHOYn1mCD8dmjXcBS3wkjdrm2I7DLWAD2VXfJoh572s1KhpGNUbagxqnr6F +zOZKfw/DbxBbGrJ9fG4jOCWvJiRKv2HzVO9cUaM6aJfUWJ9Y8x2Z1O0ud5eX +aF5z8XJF+nc0L2Rps55WYtuubP+QxSOYEZ0rKThchllfr5rpR49gfl0Vc4lX +CGvpk99y/oygVeqQSYZRDtzpMvskv1Eyp9ebbM9Pxkfl2lQv/ih080b8tqpL +YcNg1anDfaPw65JW9Nqiz7r7lGXu/GUUVZs6BrPumbK8rYp/WQ6N4q6WXmro +W0eWRFDGHq0fozjoT7/ca3+UZdR+ac6gqACXfFVUfYLPsh5GG53zWCbAlZaB +zDWekSwphw22B5cL8G5pjJbX7iiWv5r+SocVAhRkjBW5/BPNMi5b3blDS4Dx +gK3/lF2OYfX0KazTWCdAtOBni+Kuq6wF2/4M8rcJwJkYz/7DxLHOzRuv+Wwi +gNrWOKt3e+NZDDWa0rZDANu0/Pdn6+JZ+ScHdtRaCLBbT+vdwZwElsVtKiPT +VgCtQJ+vTt43WAWebWdT95L1475zfnXfYMmvf787wZ48v6TgoLd1Eovf+EY4 +2EmAOd63rbg6ySzLpFftQc4CQOPMYfadZFaRS1XuqQMCDKjxHZ9KprAWabOC +jx0S4HlZkrDbhRTWxYlnTq6uAlyt01z1ZTiF9X8NaZGw "]]}, - Annotation[#, "Charting`Private`Tag$13552#1"]& ], + Annotation[#, "Charting`Private`Tag$7477#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwt1nlUTd0bB/CkqEiGEBKKkEZpIPoqFNEgCpFIpTQriXojRYOIpKI0qzeZ -STS4TRSRBkn3kLr3nntv83yLUr/9rvX746xnfdYZ9jn7PPt59gp7T0tHYSEh -oUly/BcTbXZEZT86qh/7/6hbsbJWd+VmLPmzJeS/+Ci30XdMYQ+8jxsa/CHR -eZlq5Q+FI7hd3zfaROKOQzZenxXc0EBd0SkgcYNfX8U7hUAEfhBl+ZOYG6rX -W6oQBe9tVk7X5aPAm3FcpEQhCQta1KcNyCWhbdfOI/mWj5BSt0V8bPMjyH9a -vdqxKg9TnksnVmXmQXPGy1+55UWIqHBZV+5dhDfbztjprCvDrMFR0crvpfBz -mJnHe/EO9eIhtlmr3+FjxuhS6/AP0Iy8rxSYWQUptRxFtsln1DgwVhUPVsO/ -5kGknVMtHs0QW3OkqwYvY3OvKpvWYy/77sgVoTpgz4PJ1HlfYcXSd5x/tB5l -a6+Wr6xrxA4vU/9faQ24GbfgZtjLJjQ2WLqf7/iKx0MpdTfPNkNil+64y7Rv -WMhqWBJwjEKPrPk5seVN8B9uz/PZ+hPRCLTPl/mO1X/+ls0T+oVtvs3r3nO/ -Y45xi9uH0634qhLRND2nGbIl/W/2+bXCuCZnd3puMxQ3ik5vOdeKuuxSCb3H -zdi8Tjlt4GIr1GsVXU6+aIaT1PnGJdGt4OeMp+UWN6Ogab6+R24rtET7frbV -NcPB2VRqHqcVCQph1iK/m/EqoujZEas2lCpu95UxZOLXAXbR+kNteH82s/T0 -dibEFCWqxGzb8HnbCuFqIyYOlx1oeenQhvlfCg6f2c2E0NiAhKRvG4xuBLs9 -28/ELre1DsUxbbh9Nf7neycmfpjFLZCrbYOlomudYwQTokuLVww1kPFMe1WC -rjKh2slW/tjUhnlm+v6x15i4GKaxze9XG5LkUhoLbjKxquSTZ01PG7gnFJ/0 -3GHCQ2PqhyBJFrrsiwoHcpiYIu0V8MuEheXB3rquVUz4ZWnfzzBjwXzQP1D3 -IxNdun9rTlqycKZWtHjqJya+2UbK9x1iYekJDc3YL0w8yM78IOTCgvOIQ1/S -NyYs9ZoXyoexsFYz4JYph4lMe8OXDuUsaHRlPFGaYGLRsFjLmkoWPqf6m+RP -MnE97Mv07o8sMHW1WwymUPB/eOTwmXoW+P4ifRYiFEwFfsJX2lhInClfYC1B -QRCRa5E9yYK0REq90AIKO59Jd7frsSGUJ+RVs45CKkod3cHGuqy6j1NVKIx+ -dm/pM2TDTdTGTkeVQnbH+y8ju9hQTDbXuqNOYdrKc89FD7IR1jzjlrEWhYq4 -n2dX+LKxVHKtmLk+BQRmCR96yEZyr7aPmDmFOIl9AT+esFG69CdPxILkZcLk -oN0LNj76no6dJE7OO0g7FbDh9W3T7V5LCuM9ElW+VWykvRnTLLCmUHDc89oN -Dhu/p/7z47ctBW1jXZkqWQ4+lzFi5F0pPFQaNYtfzgE7+Ky5gFh+1uvLTis5 -0JBLG6h0oyDVqDMoosxBY61Cl4MHBb69To2BHgcRMrwHl70pJAZphxYe4iCg -fZqF/VkKc+0FBZG2HNgqVntK+1MI3/Gq/9BxDgZXXThTQew7U9tu1JmDkayk -9XLnKZjd1dqk5U/Gmy/i8zqQgtCrDX2P4ziwF2dODw+m4HdnSDHoLgfDsWMh -MpcodAW+tDVNJu+7vojOIm7etqG68z4H8VskbYpDKDyv08xak8eBc0SiaN1l -CmvyBn+MvObAYefxxxZXKKQkvJhXWcRBnsXTzTXEUXaawY4VHPwSZYuXh1Fw -7F5/JL2BA4P9Pk63Iij8qB2I8W7iQMXKRk84koLly+cftlIcZOuWDnsQ6wes -1/nF4sAjTXKJ4VUKMuLr58oOcPDo38zVX6IoXO/q39k5zEHKnGtrVK5REKl9 -dqHgNwdzbUZnRRD3x2l0H5xCoynvSNSm6xQ+rtSouj2bhlr21V2h0RQURJpM -V0rTcI6scv5EHMgObHi+kIaZ+r/P596goJpe1fJFjkbQwMH3d4jDgj0cjsrT -UBJRu8Ekbj0m3dG1ioZ++bPQRTcpxCw7NiyuQsarr+q+Sdw5IRqQoE5D1uiE -fTXx9pZcodUbaBx++GrK1BiS/0kjM7br0XiuFVfiRnxocbR80C4aenlpULpF -5vv3hn9nmtLo1nCTsCKWaGaqJFrQGNssJRREXBSvuPH1ARrJ8f2uH4nnn/30 -1ugwjZkxm1jdxB7Wp7c3HqVxy8szRCqWwvL5b80HHGmMfH5mZEp8buhE40UX -GqMrPzq7ENc3iB+WcqfhMJuTF0K87sWT1nteNHxsRFWTiENjrJyUfWlMGdSs -e07803uss+AsjRu9Z1IqibX3pnnvCqBhfrUugUkcrW480hREY8Zq0+JOYr5U -d6DTJfJ9u3pnjhEb9MYID1+mMXTvbZjYbQp3a3TDQyJoDAhKVaSJBx+1SM69 -Rp6/W2hyKfGea6G3Um/QqH19cWwV8X03pUVqsTSsgk0UlIkndtcmF8fTsJV0 -9FMntl7nt3JPIo2qjqah9cRPJGQfMJNpLPj8IFmTWKyjVM0lncbxa7TPf+eP -fTiZN3KfxkmlG75qxG/+ldS7kkPjQtXzVCXiueEvSqQf0Yh7ZjWqQOx68pBR -xlMam6yCA5YQVxhNVmu8JO+7U19pDvFSxft7S/JpHDK6LSJK7Ce6u8mskAZL -NVpihHz/F07fkZ9vaSiIaW3mEa+piGO5lpH7/0bfaSQOztjs/OcdDaNjOfJl -xMxLrO7wDzS6siKbHhJr2of7LPxMo9h9y+vbxFEGqr/v19II9auuCCTWFzov -Ut5E5nN22vEdxPG/lkXupWj8bhvvVyTue/tOqrWFRr7PkcfTiNP/mbPkL01j -1bBFbgnJn7Ej+alX22lEWYx13iXev9lWcXE3DZntXw/6EIuO/auhM0Sj86R+ -vhzxg+SexhcjNLbM4kcPkHw2M9xwXn2MhuuQbHYFcUIEo2ytMBffbu2/eYJ4 -i4roySxRLuweuTuoE7NqTWYoiHPhWqnvN0bWi7LMt32ys7nw3KRjHUVcV7hk -NGEeF0/F/FZaEvvZHU+av5CLodJEjQXEjKwuziw5Lh4f+ST233q11JrqN0WZ -XH9b9mEEWd8j33cuDlLjIkW567QBcVLg9bd/1nPRNjnt3AipD9zyRdOHNpLr -pfdtO0p8zlI9gWvMRWJccd0CUk9SPW0Lqk9wIaE5l6VJ6tOOeRlHd57koqdI -IvMLqWcdr/jC705xYTxDI8uFeMOEz+633ly0mG53TQinUBkV+ePpBS5m2276 -00rqY09O/sTtRC5kZv+zUY7U11umf9PnpnBx88wH0WRSf3X7DY2j07kQjds5 -T5b4km5NdHgOma+RlQNzSf2eX8lZHpDPxYCxcWlnEIXNnDnbjjVwEdGmlLeL -1H+hn6fur2niYnwvb1fqOQrljeXT+5lcrPBYWz9E+oVJ5ZlPwSwuwn6nF8eT -/nLwQbNVRj8XlmzNqe98Kfh4pTlzpXjIW/DQrpj0J22XPx8fz+Nhoz1Xd9Cd -wp/j+1TOLuQhZGzP9NXEF/eJDkxfxsMJdanQcNLvrmu7BKxV5WFfwiUhTWeS -H+Pq19328KAzFieneJzUp+GIvg0WPLB0Fh/UI/tCjR6W5d99PHx1Sgk3s6Pw -+lfswuuHecg6te6LB+mv78tGU5+c4mFG+6vhuEMkX8JLXgyE86B/L7Hi8l4K -i+ZbNPu/48FwcsW+FlAoEY+OFPrAQ7r3WMl70v+dJj7rhX/iYet4ldujLaS+ -8nYnxzfwUFOQH3RGj8xHgfGJV208DCxTi+7TpnDeDt2Df3lQZez9J4bsP6gc -1Sme2nxcr2a7XllE/key+3PBRj7MOOlftWXI+r318ETQFj6mqe27QJP9jG+g -0vtr2/m4Kzw7cYs0hZnmilcfWvKxI/9t7/dZ5H8NLZ3f4cFHiGSwctFUCvf0 -Jdc6ZvOxSmxRr1YXE/bhdgm6uXwseOo9ea2DCcX6Z9NnPuGj/OtqcQ6fiaeO -1tznr/iI0PMSj6SZKItKyRB6z0eNSmNZcQsTfKaGXBKHjz6HzO0VtUysP2s9 -r2FFO2zTnTrNXjBR+STl79akdtjo8mKcTjPxvfjmVeHUdlS3PX2604vcXx2y -qCKjHT/73/DWeDAhwT+pZZzbjpi/7ulsFyb2LFd3Ny1oh2RWqoXhcSZqb5T8 -OPS9Hc9Y1WWZ5kwwvdsKT0t3YDzSMnFSiYluTYXzmVEd0FRoCFv8g+zHn656 -Srl1Inb91PQDWs1QOfP3lPCxLnim5zjHOHyH8fr9v8YNu3Hyj/vRG+FNsBVO -Ggta0QPbwj0Mv7vfsGjxm6S+ub24OyF60OpiIwKVrEa0hnoRGf+wZbnDVxga -nHDV8u1DismtTYWLG3DXhcrfyO1Dllzz5rSvdfBasuf7FOt+2Fqnq/4JrcUi -79WFBl/6kWd6SdxkTg3mbys777p1AM+U9f0b1KrBeV05PrNwAAuKMkJGhyuh -8fqd5WnNQUzYfFzr+aIC9Zohl0szBiHYnnc4Lq4URvtyz4cvHYLBJl2jabuL -INkbs2dj9BDijFz9lpXnwVLaZ+DRxBCWbu3P9ox+jFM/i23unh0GgxHio3o4 -Fd/kq1K8+MNQK+Gf7J3ljy095X7OHcMwqz9n2qzuh8w3DNNjXcOo+ma4oMDS -F94W+WPmfcPoWy7/+FicF2YGZR1QGx3G6JwvE+Gb7GHQHCrVM10A/R7dY9I2 -BxgPow0uuK4WwFNLPftnWzBj3uEt1ifWCvDG2G6hQ90lxnnFjSqH1wng8rsz -o7skhGFcrE6ZqAnwchubLZ56mcHqWKajpCPAaU5GoePRCIaM0UQP30iAjV4G -1rXuNxgX5vx517pTgLjuO4U59A0G98dw0ncTAeyd7lmG2t5kvPDpNqkyI89f -EjSx2TSGYZb2IyvbWgBN+Su5hcqxjJdu3/9JOShASfTC8XuZsYwlul/3x9sI -0PF4wjxY9jaDX1MtHHZUAOVX9zpMZsYxzO9WNgcdEyAgtWiVRmgc45Vj+VM/ -ewHsNk3ukRmPY8hqMMI8HATYL5dgI+QbzwgZLzjq5CRA8JU3O9s74xn/A3Lz -LHc= +1:eJwt13k0Vd/7B3ApKUMUDaKEaEKGTN/UGw1KqGhARCEqpEgZkqIoilKaJBlS +hgZTg+oao2SIhHtPhuue41KEuBXRb3/W+v31rNda55y1z37Ofu99lPYfsXEX +FhISEp8kJPRfveOwISYjZ+/a6/9fDcsX1xsuNoa6zJ+L/9WcrCb/MRVLBI9q +uIyS6qmoWUmpOKLh6l3/FlI32Dv41qh4YdEbPbXXpK4KGCivUAlB/pWsxDBS +syJW/yhRicF6sZ6tOcox6BbfN6VYJRFLqT+J3oqJ6Ny8yfG5TQ4MZ8joLUMO +lD8uWeJeVYDm5rcFdg8LoCue355V9hrTTvWH9wW+xst1x50NVpRC/MzzpcMd +JQhwkyjozquAM/+YXZBeBT6k/l6wK+o9VGvv7nn3qgpSKx+pdVnU4NnzCbbQ +7I84WZt50flAPfTm27mfnF+H/GtZ0epWDbiruPCJ9KJPgGXmv2SZz1Dc8cNx +amQDSpdFly3+1IQOz7DSY02NuJIw50pkfjMG9VIuLl/RhMfD9z5dOdGKP5Yy +SuU7vmAut1E+2IUDyY/GTQ9Cm3FypKfAz+QrdnvpnE2KasGS0fFSGaF29ObP +Uq/yaMVM8zav98c6UL4zN9xjDRsKxYMvbQM6IPW8JHCLCRtqRiKibYEdiIwY +LNFYx4bxCvX7Q2EdqPLKN+/bxMYBqaAm+dgOnNZlK9ntYONV8+y1PlkdqE46 +3UodYsPN00pKhtcBMS2L+8kJbBReeP3McWcnUjdoak/pYaN9d9drHftO5OgU +eTz5xsY0NbGqaU6dyFuYEW/Xz8ae0t1t+W6dOKHu/yHtJxtCY0Nikv6d+Hug +MWvxBBubvZa5vbnaCacfl8ZLZnFAWSfMWVjfCfWAq1zf/3EgsuCN0nBjJ8rT +pxiyjTnQ/Nal/qG5EyP9DYGm4CAsUntdQHsn/PMOl0xfz4Fq8ccjtf2d6LX8 +bnfGigMf7cnvQyW5GL92zkuCzOskWd/gdgsueh/eNY8L5yDggX56qjUXCwSt +KdnnOPhuOF7rYcNFyVSfkXeRHHxxuqg8YM9F0cfU0yPRHGRmpL0XOsjFTvVA +pf9d48Bmdetc5UgujPZWu+1L4yBtv1m+WxkXmsKnTNTKOJAbmda2tJKLkQoZ +6UkVHFyOrBPt+0Cu7/Kta33Hwclsxz3HG7iQsLqmcO4DB1aCAOHznVx8/arU +W/qJA8GFrG0Z/7hYrNSgyGnnYNMz2b6e1V0wmznNM2SUg2SUuHujCxdf6nr9 +GePgd41324BZF8QNI5L8xznI6H1X92tzFxYqdMW4C1GYujgwV8SuC97V76O1 +p1IoT/h6Qsm/C+4p874fnUkBIQ+E7bO78Dvyu1i8GoUEMdtg6kkX/JTFwpqW +UOi/+e+nc14Xwi/9XjBnGYWkAjv6wKsu5CxIa7yygsLffrEq/6ouqLWXKPlp +UXi178ilOF4XMrQ+qn41oqBvbjivSoGH89TKF1ZbKGQv/219YxEPC/wOSh22 +pKA848W5A4t58G4c0T9vRUGqyeDnFHUeylzMBQVbKfD3G9SaruYhavim1pgt +hTuh+hFF9jx8m/zxkIIjhVn7Ba8uOvHwZJfkszlOFKI2FA7a7+Ohxyq/fMZe +Cv4S+s6/PXmwn3XK9rczBevbev/TO8mD3lNRsWeuFIQKVw08TuDBbEtf3otD +FAJuDauF3uYhP+tMUexhCt9D8p2skngILMm/5OZFoXXdqupv6TxIJlpcEfWh +kPtJ98HSAh5SQs9L6x6l4N6n45jSyIPMhMUHxRMUqPqhq0ebecg5xng0Etvk +57434fCQcSusJuIkhbXBOgbtXB6q980Y6AikMG+6ziyFIR5mmqpdDg2h8GGx +dtV1aRqm606Jbz1DQWVKs9ViWRonH3661UQc0hXSmDuXBus6R9/hLAXNlKq2 +uoU0KsrjE53CKVxVdBmZrkFj0FZfxuochW8TIsE3tWi4CDfLlBOvb8sSWrKK +RuQnA2Wj8xQEib/E16+mkeFZ4rEgkoL9/Fjl0M00QlyeXq2NIu/7Z9VDCSsa +ecqSE3oXKIi1sjXubKNRaW8ccIf49Q01oxe7abTeuxvjcpHCotlvtw6509iY +Z2bdGE0hcNi1KewgjfaD0xesiKHQ0Dh9j5Q3jdsFr3+FEUdc3XlA3Z+M3/dk +vdol0n+pvpADZ2kYyRlI7LlMwfTHVeGRczSWm+wwSCW+XWsYFX6BhtWf0949 +xJaXIuKT42h0BiaMHomlkO61XG7lNRpXjLdsf0o8saU+6c0NGuJRKbn9xE/E +FDLZSTRaJGuvucdRmNZbsvJgCg0tM+/ZScQu7z0KfqWT+fq5Pvkz8ayovGLZ +HBofFPU+r75C4bCH/cbUpzRqr8md8iIu3/ivWjufxo6g2pV3iANEtjRbF9EI +/maWO0Rcxxtw/PqWRvnRujPyVyksLU/gHi4l/XF652BGfCbV2HO0ggb31Iw1 +HsTss9y+qPc0clmXl14k1t0f5Te3hsYXbc0FWcQxppp/0utpzJv8ef4H4rVC +QVPKmmkwivVawvEUbrQrXtzOoTFxaGSTPPHA2wqpjjYyPlnWQR3izUmHr/tw +afC+y8abE6ecmik/TtPQYNrKHYjHHJ8nR/fQMJ4l8u8w8Q5jJ7X5fTTKUo+Y +BhNny0/OfjhAQ7Z/akwUscjYQ22DYRqq7nlt8cSZSf1Neb9Iv620pe4SW5ut +CtIaozG3QmtPGvFPOnBhzgSNJMGd0kfENy+wSpcJM0hQd9qQQ7xGQ8TjgQgD +j7q9XY+JufUW4irTGXS4Ryf+50j/uCf3JBjoXq/xzSZWn/fFVkGawcQiaZeH +xJ+K5H/flGGw/duaQynEAc77EmfPZZA3bBp7m3j+5AyTq/MZGDiK1sURsx58 +581YyMDfOXDZOWI3C50L0UoMbjmEJ50gntZ/QmOaKoNDVdKansQ5V958iljK +YJuZZMsuYhu9yQGT1BnsDXNLXEf8q2XT/NCVDOzshYM1iRNDLr8d1WFQVNrg +N5fYdNHn/Sf0GVTWl5yfIP1jyuREh40YhBcW5XURR3s4Z/muYVBVkT36jlhL +PH1rnwmD9UfO7HlIHGijdZMxZyDfH3nInXih4Lix6xYGuxE/z5S49FZRR7s1 +g1RlvY75xBKdG5e17mQw+m2gqIp8j88iYmp22jNo20DXJRLvWtpwtMGRQZqc +6rgPcfIRp1fVrgweea1JlSTeIJO6d5MHg2K7QXk2WQ+9hXzhikNkvm5m5KQR +r5rw2/L2KBnvukb5VcSVMRepp6cZ6AcbKBmT9ealVR+mEc4gyUHS5Q9Zr9Kf +Z6tmnif9WGj/PJ/YQf6+d+olBpHHZjxRJe5/9Hzi+h0GthPyJQMkH+KtxlNm +3WNQSFWXJBEbDpqZx6YwWCjtzbYgPmtYGxv1iMG7yHW2d0nezK7kLQp+zmCm +etS+FSSPjHkz17k0MnALlu36RvJO6Ouh9KXNDGrZr18cJS5rKhMdZDOwduRa +j5B8tKg8/vEMl0H0cafXIxEU7DJbd6YOMlC4tfw2h+Stn+99T0aqGxeeeNqs +DiX73cHRD49lunEgg7fk7ikKo/tsNU7M7cZkzufXf0meh9mKDIkqdqOK37S4 +IJjCZf2Dwcs0uyFtWPxNjOR/5l+ty16W3cjR+r3Jwo+Cz8iFgVXbujGlRkIq +6hgF7X6uzbhtN5RUXsWXkf3mRfu1uZf3dMPa9XGLri+Fd6W/k58c6sZUxbyt +f8h+xY0qzhuK6obqvOP8uQcoyM3e1nqyohujiZlhqbsoFE+PvSj0vhsRw5J0 +5k4KByZqVkd97MY6XsL2pztI3ndvSbrRSJ43Q2RdgQ2Zj1fmroWd3fAWrj6f +YU0hyBl9P8e78cbB8LLGRgqcR5qTjujzkSDbf46lS/qR5J0rMOLjRGBld6QO +ybv4bNfQNXw8U/Hcbq1N9ueQ5e8urefDSnV8dZMm+T63qkVn2/BhMvOITzU5 +bxgPL5jd68OHZn/hJntFCnfXSi5zz+CDGntKjU6jsD/K+aZhFh+rpDlFbqIU +1BqeiUo84eN75F+LjyIUnrrvYnIL+bg8Z3XgNWGyHmLupQq942NHyKY50/9y +wGdrL0zk8SGtt88uvJ8DnRO7ZBqVerDe3VPv9X/nseKHZx+o9mCFcKMSVcdB +kdjYYOCyHrBubGT9qeFgfdK9+kXaPRgVDpTUJOe53RX8Sz4mPWhYcvB3UCkH +ITLB08Sce6A9qiD7IJeDyif3xk0Se5D017ba9AoHLW+uRAsn96B89+hs5Vgy +nupwufLUHmTe5y0VusSBGN9DzzyrB64/PmYURHFguUjL2+pVDxa6/RCfGsZB +fVwxZd/Sgy3uCDX24YB9tLPomGwvCjaN3RHazEGfrkpQWkwvzg37DPX+YqNj +zdgu1bheDFjVqXiNsPHZvFH3QXwvBHE3vL4Nkf+BPeF9Gbd7sb24Yj2vj43z +4V0uWQ97Eed+eBari41FjanmueW9MHk8aiRXx8aOY4tnF//thetAVbBLGrn/ +qepTjtc3tMdJuJpuZkPj+PghYZfvML8foEMfbIW5zo72v2Z9cHHuMDEOaoGT +cOJYqFI/LtzsKBo+1gy5+S8TB2b9wJkT4lYv9L8gZPnOX3rDPzB6MuSIzfBn +mJm6HtbzH0CsqVNKaVAjbh/kPDdiBpDoIFpcMKkBvvKWLZN2DeK8Vu+fmcH1 +kDu6pMi0bhByuYFb8kJqMHtdadBhkyE8df0o4ajwAbwXlX8lioZwfkVAe9uO +d9B+UWFzTPcnVEQ7F02KLEWDbvi5ktSfeCkXLtBpeYONtllBUQuGERaUr/7l +VwEkf1y1NIodhmXJa+Mn5H/URtZvKGdiGFXOTfSPibs49PWNw+0TI0gO2vhy +lYEO64ty1T1f/ghGOyektZPvsNb0lwV49o4gzTivqnJuIivtJcvK5fsIKlNd +PDbGJrKObns+tnVgBBo1PHr01F2WROiD3St/j8ArJrpojcM9lmlrhFS/qACW +CXEZ0yLvs7JjTU8fXiJAXqGTzUztdJbMnjW7XJcJsHO8//3aw+msIDUjjT0r +BFBWcN27Nz2dZf5Gi2OxUgB+lWyKn9wDFrdX0WC5gQBaCSkDw0IZrHkbJ/r5 +GwUYTrc+taHmIev0zNGKjk0C7Pp1qfDS1EcshhpJbLEQYL+Zs3wlHrHy/Pos +qqwFuFHYtFwy9xHL+j71IGOXADkv/hXwrmey8r1aTt2zE6CS35KcX5vJkjf8 +vOOGgwDi0+esOS6axeLXVgtH7hVg6MJuy6qTWayttytbQ10EuOZ5L9nhWRar +0L3sacB+AWq0Gzy/9mSxFLRZkT5uAkzyiLy+TTmbFf731d4DBwTQ9LWZm++Q +zfo/hNGUYw== "]]}, - Annotation[#, "Charting`Private`Tag$13552#2"]& ]}, {}}, + Annotation[#, "Charting`Private`Tag$7477#2"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -9395,7 +9863,7 @@ LHc= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 1.4}, {-0.03135980749074168, 0.43222807147287173`}}, + PlotRange->{{0, 1.4}, {-0.05537951264088324, 0.46232435679963674`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -9405,8 +9873,9 @@ LHc= Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.843117407966116*^9, 3.843117451050243*^9}, { 3.8431176786646423`*^9, 3.843117682458384*^9}, 3.84311800075559*^9, - 3.84362538972773*^9, 3.843713821695488*^9, 3.843728688537775*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] + 3.84362538972773*^9, 3.843713821695488*^9, 3.843728688537775*^9, { + 3.844086215222834*^9, 3.844086223607254*^9}}, + CellLabel->"Out[67]=",ExpressionUUID->"96e77c0c-c76d-4ed3-8356-b3be3af08700"] }, Open ]], Cell[CellGroupData[{ @@ -9426,262 +9895,263 @@ Cell[BoxData[ RowBox[{"H", "[", "#", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"8", ",", "9"}], "]"}]}], "]"}], ",", + RowBox[{"6", ",", "7"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.843117379400096*^9, 3.843117450464201*^9}, { 3.8431176777326736`*^9, 3.84311768214819*^9}, {3.8431177985349817`*^9, 3.843117806110187*^9}, {3.843117917640306*^9, 3.843117966241499*^9}, { 3.843118172822197*^9, 3.843118175349275*^9}, {3.8436253929915543`*^9, - 3.843625393135111*^9}, 3.843728700267021*^9}, - CellLabel->"In[71]:=",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], + 3.843625393135111*^9}, 3.843728700267021*^9, {3.844086226826098*^9, + 3.844086228412931*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwV1nk4lVsXAHBEyVRJ96IyRKKkQqawkGjgXhmKEkqkkiGRpPpMZUgRRVKU -ecpQSpKFyNB0jOdVGZPjTMiUIn37/nWe37Pf8661197v2lv+mLe1Gx8PD48h -Lw/Pf7/3Du26nlPkZHhwpWF59NovVTr1ijQdRX3gLvylYd+aVF1U0HluTsEC -bKRdozi059VpQe+MuNJ24Hrhp8CXlpZqD1m1xi8KjvBzLNo1j0avlhxsVHK/ -cxRqf9ZaTqYMVgc/nWX2SLtBKTTF3mhhVfdfVSmyS/MA1XyPe3E7Jqp3ORzy -ea/gCR+6TWOtaT+q8zfFaOzK9QbBoKcxUQoL1Uv+HLnodMcX0kXU3ySn8KGu -x4xjir0f+D1HgYzQxXi69YZhl7Q/aO/pFxhoFsIHehvkxHsCYLuekbCVzzKk -ZSDvP2mBkHFx4saMnjhqBozXNygEQ6TNYjXrj3+je19kNu/wJbhPO/T0c780 -Ju+WjzTIvQL1Q2HrpuVl8LJoXtahOyHgaH8x68Tddfi3if+dwPOhMBu6om5X -iCKWBBhfu2MfBlFKwfsZ/1PCwb5ujzbpCFDlF3/k3bgRL0pkO4zPRYCglVW+ -jdhmlNhzdq9Yz1UYt7z1ZNpzC5qVCanuTYuERz5a3c901LEgfMdYrcJ10MiW -xStvtdH0xZL+Pv5YmLBRE2q31MVebjvt97dYEHisd2nhsx4uP+hZppt7ExK1 -/wx0rzbEysQPlfZ34qH9h3JqXaIJLi7WfMJYfAtc32aZGkbsRJvmlIKA87fg -rJ9W7sOLpsj57Z6aaJ8Ai2xS1dYGmaHMiT+XaNK3YZFT3r+dr/biqRC3AOeY -23A1IpT3Us8+fH7vrdfo3G04vSNIdckiS7SiJTmL9NyB/oBwwRrnfzFUd6vx -7rRk2FJ7052+xRoZwkf5axRSIVnEz8K96iAubtmGb+6nwmOxUtwXY49KkXxB -7/++D3cPaJY+OOKAx/kzxz4JP4AgulNOtMhhHJwf/jQ9mQaHEpuvnUxwwrGA -Z9SqwYfQcVj8mP06V1zolNGSkn0E0b8Gbi/PckWx7dcS1jg+gnTp1ZpBKsdR -bfLgPwpdj0DE0lTDRdsNPb1/vt7akgFvE5qTPE+cQNYJ/eJ9ZVngShX9qybp -ib/eZIr8O5YFBb//HPxQ7olCSqKnrFWzwZe32FHK7gyqDPUoOmRngwLuvPc4 -2Qs9XK6kuKfkwJT/Xy+H7vrgsH1dREhoHrQs1uoudPTDgT27HZ9bF4Hkitl0 -gysXUPrE8tzimCLwiJGO3jdwAW3Dqcmc+iKwc5R5LmIahE3VHjHJWo/BZ9G+ -HznCF/GxRlTlBelikC6tqNiREYyvxNxEZHxL4Pul2ujMySsYNZt1ql+nDMI6 -JS4wYsJQaUl0nKNdGZgwBRxHGsOwbpXXM8q3DIIqxgWAPxzn1bX4WvPLwN60 -dCP3Ujj6nHlzt3bNE2D2Oq/a4x+BBwaHmx7xPIU2CZmFAb9ruO7dhg1uTeXg -sC5UOqc4BmV+LzWxHiqHe6Xn9KumYlBajeMIPM9A5d1MrqzedVwZV3JLSucZ -uCWf6aY1XEd+W92F9znPIETw+CeqPxaHP+/t1Lr2HFoG7t8tEY/DfPaZMEGz -FxDw6OruYr9bqCH8tK/gdRWI3irMTc1IQsVvW9kzA1WwTz5Ee217Ekpg0Ywx -zytgeB+Le8OXjDNnc0Qp/VcgeabEOOFYMlZ+StnB/+wV3FQ4IyyueBdN8kOS -HHOrgff56sC4xymYl5mTc9WsBsILcyVY/ffxxU5/Z+1NdWATpl7APvQIA46L -lDOeNMBhPlq4n28etmTMrj0Q2QxdQuc63RaV4rIteUpf974HXrb3Abu75Rj4 -IT/a2Z0GOsaMyNsKlfg0sSBG1bINKNnWg3LmiGCR/yd9ZQf03et83766DutU -Yl4rtnaCkNJb4cn4eoy/81f8tad0EL6hFbvKpBEfT6W1xp/vBhlpVo9UXTP+ -Pdi++qLLZ+jYPXPyh9c7DJxmlvsZ9cDVwJNuv/98wA2/ftet5OmD/YpdlT25 -NFxh3uvZfLYf8luzUmt6WvFZVFWpo90AeHlFnD421oa8Ej4X+/YOQpeZSeMx -gQ7cXSrBZe74CvpLbV4CbydqmetINq0ZApb99jkveie2KG5rur38G+zdquC8 -NKcLBeZyt2lPfYOaD31lUlZ0zH8w2vnkxzeg0Y6KXLGm4z8mmkFb577Bl7Vm -fYO2dEyOIlPmGwbbLRNjWQ50VJXsslmzfBjcY5Y8lXKlo/X2RQG8qsOQfF8s -5Lk/HdO9j1S+dR2G+Y9x/C136ag/tGKnS/swxN29+V63h448PaeylOnDUHPw -2i33Pjq+7ny95PunYYhctd4/foCOexv934UMDoNkQV/8wDc62ud322V8HwaX -di3Z06N09PN56DG8jAFbFTbrKvwh+c9vveFpwQBFu5PfFWUp9JqOGte0YsB1 -l+ZKCXkKt40OWv+2Ic6KvcOnQGFFX+LfNw4zwMNiOIxSovBN3Wx68Sky/t5B -9YwahYORNU8mIhnw5faIh64BhVKrrLoDGxjgOZZheNiBwpqlN6N5mhkgVy7Z -MnaIQveF9zsi3zGA/2Tog1BHCssY+x4ktTPASmqTfIYzhXsrzV2fDTAg2PDO -1Y9uFAY5A3fyNwNKXI8nd/pS+DlPjddbawSO60qvvB1JYeiDM2UzuiNg4Thv -OBFFoXJCoetlgxFIzG8osIyh8FzwxjexpiPAc0PC/E8shSL/KsUUWo8Ajeq+ -ZJlAof7U2lUsrxEw5cg8u32fwvuGoipuOSPQcYwnr72EwmORzsk6BSPwLvbp -9+VlFCq1lS4RKR4BCUU7RYsnFJa4HRguezYChXHqZlXlFNZdT8vgeTMCqS27 -z4VVUjjyaZtM6hAZf16nW/SawkLF8FjvETLu3LTQVE+hr1fXvAmHjPeq5A02 -UPiL9+Jn5iSx+GDhsiYKRVXqk7UXMUHwlKOH1TsK1c8fWNkuzwRNkUJfzw4K -Z2pyQ7PXM4FmrnvavZPCl0Jz3y+oMEFRp2qXUxeFpg/SaHLbmFDhcTPVnKLw -YMNIrJcRE1QvM5t5vlAYvPKioJAzE/7HYDBEvlJofOT9+Z5jTEgV6qANES/O -kWWUuDOhw/3CncohCm/q1Tcc9GICZ/fwM+dhCh8dFQ3LukTyW75sVxyTwsbi -tN9GqSTeJdsj0WMUUq/iY/jSmSBp5pCjP07q8TZMqj6D5LfpRw+HWGjkxHbz -ApLPbZHl5hMUWshtPWNZyQQ5AaGQwSkKHdXWzYlVM4FqMVEJn6bwjL5EFK2W -Cdd5tlcpzFB4w34206aZCWvS7R86/qCQFlfzxYFigseI8rHynxT2Pyg7tfoL -E8LdKxzMflH4vTBz9ksfmS9to14nsXhzpIQLg7yf/vEpZ45CO979Fu4zTLDI -fhPNt0DhJ9+Bl2clWJCZrH+tmbcbWVfa92hKsmBoP/+EDl83zsU20KdXs4A2 -tcYkm3hNft5koAILrGyOxgct6kbnQd9NV9RZUPNQbnipQDf6jLu+MNJiAdVv -7+9B/L8FO3M+PRbwWCmN1BM/ktZzjTBmgemFrPPnF3fjkDXfvRgrFhzPMNB5 -vaQbp1ymlC1tyfvXbOhdLtiNAt7Dz8TsWTBeNeHmSKwU09IW78yC/ssO0lxi -rbtVLjauLLAPijJTX9qN5jmPRyVOkHz3N9j4E3u8viWU7MWCEoxZPk0c2Bqe -7HCWxDMqxG1C3RjVF6C0OoAFyb78/3oS588dMnlwiQUdm6NEPxO/XGpJcw5h -gVGphf4y4W589zc4yUewoKrTf68xMVdDISjzOgueuirzpxH3G8wdWB/HAk/J -PbRG4g7zdo3sBBa4KI3WjhJXHg7j5qSQ/PPWrtIW6cYit8Mtyg9YIHLdNsCe -ON1bIyfvIQvS0z3mzxNfDfvqUpBL4luGBpQSX4h9aaBaSOJJbT/1ltgzKUG6 -qJgFciGyoV+JXR6e/rH5Can/Ycnqn8Q2BTs7Hj8jz6fMrBUT7Uaz8tWlWypZ -4Gge/1COWA8nY0tesWB5OO7eRry5+e2pbbWkHjH2K42I5dozzMvqSf6lGryW -xCt7LipqNLFg61FlcXvixQwb3qdvyXrKipkdJf41vqlX8yNZv8iqVA9i7q9F -L8vbyPrsF/7Li7if/0uSVhfZb+Ztpb7EHWJPzz3vZkGqFdPbj7hR8vp+nR4W -6QfKVv+5ct1xtRf9LGjKO2H93/NFqvrCekMsKDS4EnCGOF1LYqSSwYKK0+ZV -J4gTjTj1O9gsGIlPVnAhvra3/mHVKAsklPYVHiAOsk29bDBB9lO59oF9xF5O -5w5XT7NAlaElb0h81MNCB36S+Z2XF91CbHtWcVXNPNm/O2hSMsTmwfPfjXjY -ECi7xlz4v/pd7fhQu4gNPCq9iTOk3mpxhQUmS9iQ6jfG108snxIe+VqIDUPq -KvGNxBKZjm6mYmxoKj0ORcSCjzVNGlawocr6omg88Wjt0NwbSTYc/5kmaEM8 -8LaKMl/DhnSdo9u3EXd0JpY3ybJhROR4iChxJdPUu0WJxBu+HVBD9lfR5BqL -fRvZMNsbKJtEnP57SvndZjZQ+wUYp4mvrcgafK9J4kWFtf63n4NWX8J/dNig -81Nlqpfsd6/1dqkfd5D/a3/VLCS21RU40GrChv6zs8uMieWOujV3WLEhdz5F -2ZZ8TytPG2Tb2bLhi1u9tgTxYv9VYV0HyXyv0V3byPfJjWzQp5zYMC+hLL6H -uLJkfclnTzb4CPi9liXf+7tlK/bl+rDB4nv6RDPpB71e89/OnWODS4zNiC8x -7+b21WLBbJgSuqn0kvSP3Xn/u2YUQ+oT78xU5+/GQ4Ke60RvskH1XJn5W9KP -PE8cfNV9iw0d8WtPHyWOW682eTaFPH8hkuca6V/0h5+dsvLYYL/rrctznm4c -4Wn86VtE1jP456AB8S/nskTDUpJP7yfluj8UyshEtdAryPxqF/95Tfqle4qW -llATG4wKtWiF8xRO3YoX9R4m9T34vU98lpwnE8G5O1hskOsdiPQn/Vpyv8dO -wVE2SHyjTXSSfr5jGVx4OM2GYCnepXGk34fGcIba+TmwO15Mj0nOh+Xh5lU6 -ChyIfO8QvYVL4bqv6gcFNpDxhPgtXhwKNU1kJlo3csAxRS0hn03OO57pDafV -OSBXMZ24hkXhg+BHCfeNOTA1tPfyN3J+bfb/fYrPhQP8y37VC/WT99E+2N5w -5YDgh7kEzT4K/9qUbih9ggNG6v876dhL4UK/ibi6FweCH8ZvyCbnJ80i8sXR -YA50KLhw5LvJfUNxpWBtMgeGordcqmylsLJdOetKKwfWaNh/9aql8LHarxvC -nRyIYziYOdRQmBH1NjCJ4sC7eoFCY6TwOnhZFPdxINzh22WRVxQeKXgy2cvl -AEcsCqIrKOQJMzQxFOICTyaKKxVTaK5u2zdvwgVlvxmt3hQKI/c3MALMuBAp -nOJ/8y6FTT5a4+N7uGCav7/RMJnC3cWSvN+suBAOiRlJt8l9S7Vn3XsnLuS6 -X9dXjyPnr5K7+/0gLnhM3+8WiqDQWjqQa1DGBc8UJ9E9Zyi8pcucfl7OBR+5 -wuCq0xS22x9a2PaCC7NevXObT1Fom6S/TKmGCxWuN1SET5DzVIJ3m9gHLmyl -e8BjFwrtxaLP9TK5kFgbD0k2ZH58qXOX5Uch2O87Y1KbwqoAuTrT9aPQn7V0 -EZ8WhdLszEghlVGYHfVsE9Uk94n2olV3to5ChUhqrMxWEi8LtxTBKJRU7j+r -qEzy3/3V9fORUch0Gv5U+zfZTzc2vtNOGYXEkgV7k2k6Skm/SB0XHwMdi0VZ -Nnl0PBStUOb/1xhQbgaGP7PpmPortvGX1BjEvQptTc2ko9znYxP88mMgF932 -rSeNjkqpIrultoxBYfFCnfkdOqrLuEwa7xuD8ZF/dlSGkvv4uiV7E8LGwP74 -5lCpQ3QM3mj3Y/vUGHgYjxyq4qPjl7G2lsWzJL6Er8SjP12oX271gD43Bi66 -ge4R8124IJv9qIp3HHJ/RbWbznRhdf7DPU5Lx0H5kv+HbGYXQk1y0kPJcSgJ -2LD5x8cuNGJf1VDWJpbXq2xK6UITY9fT28+Ng71YqJ2yShemnPz8XHd4HCpO -jQl36nWiz2oLivfAd9DhS0hr3NKBUr4bXhp//A4u2XfvKY604aqddUGnjSZg -9uSxf5bdasWhisZ5kZcTUOLIs6GB+xG3VTRYn9WYBLlfOGp49h22aYRF1GZM -gpXFQcbMUBOa2RQERa6dAlpasJHkk3oUHbtloXuTeMuBWqezNWgt4TdRtDAF -crOC3MKh53iq59WhlPPTwHN33ZX3pfnYta4pzWeEWPNlmhU9Ag1GXwd4sIjP -tfn2WIZj5gu0dOEQz7gLsF+H4sfKkMSPXGLxoxHemSH4f0m4cHU= - "]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGAQBWIQzZnMer7841d7hjcb9l/uqd3PU7csXP8HkL/EYF3v -76L9Gf13+08wfrP/t3RpdY6e337Hmy3879i/2TM8UHwbdS/cfk2/Y322OpAf -kS+rEdBjLxxtG5asCeRvO3Tp6Mte+yo1S91obSD/wATT58399u57DW576QP5 -1U5nbsVMtH/0St5cyxzIb/1VcmjqFHsJt3/vXrgB+cEzg9hFZtvXC/46+sAD -yP+/IeXPk9n2z+58nXPDC8g3cKs22TbHfnPxW68TfkD+ow6mvMh59n4L7yxb -HvbNvmHyTc+Wiwvst+TcqJ0fAeS/ufeR23qhvbTFlZDpUUB+snHm1iUL7V+c -O83UHgfUL7TkTW7FInv/Wcdv1iUA5T0seGofLbLflnp4Q1kSkD+LW2mdz2J7 -GcP97XkpQP6VJ+aM2xfbN//ZFZeWBuQL94eXKS6xBwDbNabP +1:eJwV13c8le0bAHCk8YomGUlWpGVmRC4rJHplV0KJhIyy8yZJlD1CXlv2THa4 +lRGi7HEeK5lnICtvRr/799f5fD/nPPdz3eu6rsN3x1HPioGOju4iPR3d/z// +vXEpOKvATFHsxD/uc83DNbKNgp2yggrQzKymadIVW1eQ1+eyIaANYrS5EWpn +RV2yV7sSjcsQGnbNEcNtbXU2x899HhYwhQjVN2W5nQN1HBOfhaxjboPopg15 +JX6izrt0fW6Eywos9jpNRbSR68ZfiBQYJtvAU9ut91HyS3WXrt9w6hCwB3Zd +oz7jzl91uaeDJC9lO0KMrCV9pMB23e4/tx6bxTjD71dhssnxDEjOZs003uQR +BH1bdc1/tgvZdYUq9nO5wt5jnZbzrUwo6YIw76ERN4ib1Xa547QfdaYj+qvJ +HpBE/2iRQf4QknJbbGwS8IacdD/te9/YkfVYYCb99D/wouhU0to4F4rT5Au8 +mO0D9GzvVo/w86AnLDkZN2J8oWYu1c73DT9iV3GN8XB/BkUyyWxWvoKo2E05 +IMbED2RCfZlZfIXQxNiQTTeXPzTMMx/I+HwKPWbNvL644Q9KF09ERO47i1gv +P9TaN/IC7L79pQkPRJF6CdMZreRAMDi+qTcrK4HynssvfBQIBvl52rHeLzJI +rWr3+BhjCFR3uD+SuCqHRmk9nVtTIbAm5bl1f/gCOmBsXyKXHQYigl2/LLgV +UXX012qTmAi4OXDRV+S1CtpVJPV+ZlckCBe79Bb5qyL91vg8N/dIGD3m8o7H +Ww1Rt6wTok2iIF81Hr33Ukc89/7808n1GrbX9Bxy67SQra+Vm3nQa2B29r1/ +d/QKqvj3i8P8xmvwdhVlZGDUQbqdsebMIzHgVshqOWXxN3omJ6asmRwHbOc4 +QxLE9NDM3tuM9QIJYMBzlru81hjtahNHzYkJ4G53t6sk2AQJBTJ4dbAnAg/j +oCSP+XV0l/HtAmlvEqjcXqhX3HcTTWxOk1aXk8F/J1NTzGsztOBWPsg2kQqL +ZlL9zIKWaLuPR5rzeBqovpbPGM60RPvOB0Rxm6bBcojMN7PTd9G5ZeOrAv1p +kGJxp9NDzgrZO/7XINaWDrekBqL/u38Pke8pFF0pyQCbuhQN4qg9+t38lvnv +hQwwmjm4I6PKHjEJsdjqnckEn0oG9qPXHyCRyRHB65mZoCPTlcGU6IBsLHzi +reOzoEPGcdg1wQlNm3zy932WA4VP++tPWTxC3y9rmlboFYACczj5ir8n4rp3 +ILsoqABcl9kbA2c8kcHzweWsxgL47B5L9dTyQi11NkFx0oXgucxq4HHoMSqU +fFntyVUEfft1w8dyvVHtPitmHudiCNv+7Ci85YNermfYjsuWgP/oQY1dUX5I +aPercFPDEriU0npK8psf+sTmUD7oXALWmpwJ5Xufo00JaYau3BK44ieXX+// +HDk9aH7zkfs9+OdHHRv9xx8ZTUy3pNGVgk3A62b+JwGIv11Y2KqlDGK7GM8u +1QYhnq2/VPQmy2A7m+Xg3zuCEdc5qinQlUPIpxOXNjSD0eHw4khO2XKQLzDl +Ue4LRowGctsdWeVgkrCT3ednCJomtPqkAypA5VHLlj53OMqlPPDbo14FuVK+ +KXefRiLJvaVjeQ01cG/9UO+TylgkOCVGWfteAxxX/8zqz8YiVlSwpkxXC+Pk +rBo9jji09jCLZVChFo6/pNfs8IhD1aR4ecbyWjC5NfX8vfwbpJLrG2uaXQfV +l5QUxVvjUc7brKwX6vVwzIPbyYghCVWpuprLnP4EJW36xudd0pDbXeaymfdN +QKhl1Bql5aC29PVjRoGtwPCmkeeF6Du0XzRH6IdWBzxk/YdV53sZ8via+8rc +uhNENcvv2IZWo9LovKAzOt0gJXoysXoCIdDO/ZNyuBey14f2sLz4hD6JBDUI +dvWBkFPfn+pjTSgi5khEQOkAvOYwjP+9/hkVriR3RbgPAfe4p2RpVhtin+g5 ++tiCgGcti5vXQjuQx+pc2SOlEdBnmqkLE+1Ewr+3Ph2mG4Mifk1NCc8udFBj +1L714TgMtbO+zOntRuUva96ZGn6Hi+zfxXqZexE9q9PjMa0JuNFLf3roah/S +fMdKm5P/AeM7+7Xi3fuRtIYsRwv3JDxkY1d85jGA2gTFW14fmIKk/UkaL9wG +0c6NbHGZlSmwaDW7Kaw1hHKT5vve/5qCmmXqgpjOELqqIuUltjEF2+/UJ2V1 +h1DcSzxlhmlI8JMlqxoNoTMc/frcB6aB2ZbLVP3OENI7v8ON/sw0ZGrIWGx6 +DqEUx1vVXyynQeqqvZhI9hBSmDyoatEzDROVVRY2f4YQ3YhtxsmBaWBUbXio +yEBCDX0Nu3+SpqGSKvvo0E4S0vrs2u47MQ2RRxoVSplIyCR3yDD95zTwco+P +jbKR0COnVJvp/TMgm1jb/e00CeVuioXaa88ASfpm31EjEnJYfbkopTsDZ1y0 +HQtNSEh8fkJvS38GIrs+TCjeJKHKsWj20JszMNz/RP+6BQk1f1pPKbKdAbMD +z7RcbEloIrD+/VLgDKx5Km8rPyEhTjbdIY+mGWC4x0cv+5aE6v8Ke0XXOgNJ +T/bq3MokIevtDvnA9hlwu9KY9TSbhEpmriTF9syASVF0wMd8PJ9qDcvy7zPQ +8sFk4nQZCXmZA215awaCJekj05pIiMg5R+8oPQvBydlXWKdI6FnSg5I1uVmw +5+92+T1NQiej8i2fXJwFRpXwhNFZEnLxPtUcojYL2tTWqRQqCTH/LRSUrzcL +i9/PX2NZISGFlWNsZIdZWF+z4PZnIFCiIouIVdYsdNLOstCOEehOoHmcbN4s +SD2/oVZ2nEBC3e92MxfNwspf3SyP+QhUbGU0XVI+C/U3hA3/CBLoU3ByOl3z +LBhwcr0lnybQLEmcJ2FyFhT6uauuyBFIwt3ocA/fHGjvnHWX1CPQWn32s8wT +c1D6hbMlX59AH5g2fnqKzIGJ3YFYAUMCqSUld/KKz8EZr+nCv0wIZNw0G+Kg +NAccou5lFbcI5H348R4m8zlwMmiKi7ch0Oei5C2lhDnQ1GeMcfcm0GBtRBBD +yhwcYLsqE/8PjueLH2djOh7P555p9RMCMc3eO6+RNweNg0Oiy08JpM0r9kCn +eg4mGbyo6v4E6gyvH74+OAeVDgKqbiEEGk8qsT06PAfcGxLjTqEE+pn/dn14 +DMevZ7NuE0agQ62BrBYzc6DGyBt3LYJAhvTXtK3X5iC79qs/42sCkZy/f3jI +SgbdPM70xX8JRPbpuSzFQYZx5tSSTwkE2ghpGlg9Soanzl1SkYkE4s7NWfYQ +IEO0FWuYSDKBzCecT/tIkKHljE+wXBqBnBYtq5SkyUAXncP/C/vptqEGwwUy +nNyrK1ySTqA0rguW/spk2JTa9uTNINCkHsO/QbpkyFaxkh7NItCKxcpJHQMy +eGeviAdkE2in43T5PhMyqB0Ziz2bg/c7qK07wpwMg0crUx7mEsimIZIpzoEM +jf+dihvJJxBNUsDrbTAZtN9I50u/w+tzccPoRDiOV0k1qgC7V6NHMjOKDAld +eZL8JQSqvulHy4ong1jlYhLjewK98PthkZdNhnbhpcOFpQTyDPlw8Uw+GVjf ++lcfKiOQfWwUV0ERGSa3ZNldsfXzVHsLy8ngxHf3p0Q5gXh70jVKGsnAGBpz +LKqCQIdHHgtKtpBB9urS/SnsXTP69KVfyEANl79/vhLH+3vHh7JuMnDfoPP5 +ij3OOBwr3U+GcL530exVON59pS4VQzh+WtVNM+xq/rvnqsbJsKcNNiexC84o +7L0wSYbn15d7BasJlCLNOls9Q4Z6it2tO9gBWo2pNfNkWP/K5d2P7WWQ8OTi +EhmKxwIPsnwgkIOZy826VTzfh6cNlbENHgqy1W/i/bnpM5WGreG9+VOJjgLc +ZffFO7EvvOj9+nEHBU7G/hbZwD4Xnp+nspsCpnNfvwrUEIgv/nlgAxMF9tT4 +HdfCZn1raqW2jwKCmuVHHbD3FEqpNB2kwPjCjoYw7PmPkxvNHHi8WeuD7djf +v9QManBTYLKtomIau7cvuqzlOAWCafG7/2B/HrOPvCxAgdKnhXRstXg95tQc +24QoYDAannYSu2CZW/vKKQowvxqnymGnbK2cbD9LATVxhTFN7OjdHTt1xClw +IE/F0xA74GDGRIcUBbzXI6vNsb2O/oOuylLARa097R62wwnDhG/yFNj8ESL+ +APu26FlPXaCArJG7tRO2gdxOoy4VHJ/aSWVnbA3VEQk9dQokPFP66Ih9Qads +f89lCjzdZzFth33WOISqr0OBmgPCxVbYvLetWnt1KeAxfJ7nFvZhu4uZhgYU +cFo4I6aHvcuVza/fGK/fUv6UGvbvJzRz45sUWKkwUjyPTQtsUhg0w/sDX+QE +sMcjEzmv36HAcHHewD7s3gTXtSErCkTffsO+/v/1y9TpuXGfAo2d5/8bxa4u +PlFM2FNAM4ffuwG7ff/BK9lOFGDkSt1Owx512JxycaFAdnZNuQ/2YsfMU2UP +vF7vt9KvY9Of7Tm6z5sCun3UJjHsQ8F15SQfCthPHeLeiS1IybmW5YfX49d6 +Rj8+L5o5TwOUgihQn3pK3xn7xh57fpYwvJ8RL10vYNvfM64disTzkfrWSocd +fuLc8sN4/Px3mV3++PwOpBJmGTn4vIUVfLTD53+W7vN/zgV4v9kdrXmwf5uX +RCu+w9/LOsn9/z7x8LxsG6ikwHOjOzYnsK3jpaWZWijAy2M38g7fV4//+Lr6 +v1DAhgie0cF+ZcJin/6NAtRiI+4ZfL8LjkymKgxQQDv6KONB7JXICBbHabz+ +VbvqVXC+2LXknS1PpsDgxo7DLTifcFyzUd0zj39fwheihS2/HzxTV/H5dvqz +oo7zz7Mg6mQPIxVSdnIGHCvC55E84JOyhwrcf6i7ggsJlHm5gesBMxXaafdz +fxUQqHV3vO4uVioENmXdaMb57cBzjRpZAfz8C2UDZZz/+H9IGO8UpsLbgPtT +cTg/SqnwLHWdooK3bU8MDedPY7pVYTsJKvTK15mE4vya5J0WlahMBUF/WZ2C +t/g8um7ZMlhQgZfv+78WSXi8zq8GoZZUkOJ9YxqH8/2R0ymKXPeoMHnTNaYD +14PtcZVDEg5UEGPQchHD9aJTO7Dqtjd+34T8t4FYArkIHt7zMY4KdG8Lq/LD +cX72mfypnUAFe4XsqQ+4Ht0ilRGDyVSQZUzwb8H1Sj3cpGgxkwqby+d4ScEE +Yt9MNOItw/GuyVSMBuLz2XMyw6cLz/+IjPADXA8Lz/0O3dtHBWZDqwf6PgRK +f/nFI3aQCqXEG34ZXD+DwUG7aIwKuibjg2uP8fvy3i+P0qhQ7Oxpb+xOIDo/ +RRVFJho8NdKkJTzA91XCYGxThQYppo7aMrieB15rmnFTp0F0hg1btxGBWpyk +Fxcv08A+XMjMFtd/zSIO+ildGtAtzTyIwv2C1pkR/g4zGrB66Pl81sb1Wsja +OtGLBhbNe8QrlAikx+VBu1hCg3XpALb3QgSKlJtbrSijQfGm4M0t3J/0mNzY +Fq+igY1yEcclAZxPYhX2C9XTYFAi8Xc77m8MWenF932lwfMpN/06DgKZ7Hvl +MjpHg/GwdCFhJjw/hoSNJ3zzYGp87Mt+CgnVuPF+UjsxD+FFr/WHcb/FRXkb +yCQyD06uXwYzcD822FPAFiM2D895bAZFJ0jIIAOJFsA8tDxUzzg+RELamj8s +iVt4PJfyiw7NJCQfeqpdJn4eDtip1jQlkVA8Q1HkVuI8DOsbW4onkNC6m+T1 +htR5KA5//efNGxIqN1eYvpozD4ELZUfuRJOQhPhVOutK/HxoQlXHSxI61ess +Fd2P47k9nn7IBfenXFUJi4cWoDdFMf+aOgndeCVQ4npkATj0Al1DVUko4XfI +59+cC9B5+nFUixIJ8RJ3lhj5FiBYq7NdSp6EhBKYNTlFFyB86JE4TRS/j8di +WfnKApxhc8wY4cD9K/9urSi/BUh59fNWzewQ8j5l+Ov8ygIoqEXI2j0dQsML +3W271heAkSFUvcQb9/tlukkDG3i8CYrImscQ2j6emVZDvwg1qo+dXJyHUF1u +6mWzvxaB7kP3by38/wHq42JTORah8vGpVXPVIaREeSF5UmYRbOLO84jsGEIq +ypZ2510WwcTYu1jacxDF3ycq5KYXoT5frCrDcAA5HdUepDf6CSetwhpEWPoR +p7PwB+VvP6ElTmLHgmcvYlP95GWntASdyrG1Tf3daLLy8ybzhyVYbyf5DP7o +ROKVTXoPJZfB4tZC6mJSB+qW9PP/mL4MThcPf293b0Xq+nlegcdWoLOJJW/H ++0bEshCpLRe2AvWy/a/D9tQjPdZHSwXbK0B37WhEZ1w5snmZF9N8ZBWmE2kH +Y31KUaZvF8sjt1Vg5c6h5zLMRrYjtTfi3VeB7nxHbC5fNjo+oPnh5zS20POz +JQu+6H8gUo0u + "]], LineBox[CompressedData[" +1:eJxTTMoPSmViYGAQA2IQHVl/5uvMV1/tGXpUD5/dVLd/yc79vglvgPw32zT/ +6dfsLwzY/tv/A5B/osQqZF7Zfp66ZeH6P4B8jtsTXL+l7Xe82cL/jv2bPUPC +MQaVKan2a/od67PVgfxbK/e7Lu22F462DUvWBPJfeGd94+i1r1Kz1I3WBvIn +df2fldNn777X4LaXPpDvYq93f+YE+0ev5M21zIH8BdHVGxMm20u4/Xv3wg3I +N9a89vTNDPt6wV9HH3gA+VcU/7vOm2n/7M7XOTe8gPwHtt/m+M+y31z81uuE +H5Bv6d+ot2m2vd/CO8uWhwH5XSdSb5XNs9+Sc6N2fgSQ7zAh+rX6fHtpiysh +06NA9rc0frwx3/7FudNM7XHf7Bu+FLjlzV1g7z/r+M26BKD8uX0tD74usN+W +enhDWRJQ/nrIJx+/hfYyhvvb81KA/Og7JZuXLbRv/rMrLi0NyO/48FH4/0J7 +AKd1sx0= "]]}, - Annotation[#, "Charting`Private`Tag$13602#1"]& ], + Annotation[#, "Charting`Private`Tag$7523#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwV1nk4Vk0UAHCkqCwpRZSIlFIUyZYjFEmbKJWiTZI9JFREIpEkW0LZSWTN -kmPJmsr+3kRJeDdblr6y9U1/3ef3zH1mzpx75syVOu9gfImLg4NDiZOD49/z -6am9D1KzzmpNpPnt6nrbXab6TqZZVUYT6u7LK5m1RJZnZXa4zEgbAf2FV+BQ -c1F5vEeT9rCYKWTLKy/qbmwst163ra5b2hxcxAYvpDfTykX76mStIs6Bq6ni -oYmYvnKv/N/MHrFLQD3KCglpZJX3+stlmcZbQ3mlZmyoxnj53pOnHD9I24Kl -zasQ4+b/yjO2BCntTXMAq7X/BQdKz5fz/D3jeTbCCbhGWHVRMVyoZv3LPMbs -Guj9p8ebeGcRXm0J0eoUcwX1LKfF3xuWYJz6RsnlPW7Q2SG37IijIDYnIueh -eHeIHIKwX+rLUdlt7F2NtBdU6KYqGX8SQatvASmcgzfhqpJ/6ZdeMYwykArY -nXYbZG/f3TIlJYG3+NOTT0X4gPqJ4y8vR69HER3XCPfrd2C75aXGvT4ymOO2 -516EmS/w7b9zmu4ti33fPlu3it0FvkOQ41C3GT2FU06OzdyF76LzJccEtqLw -fmdDgR5/ELESqpuyVcB9uUvkDeMDIOPmwcFC1R2Y6acxWin9AOI3W3Tcfr8L -9Yp5er9xB8PRs0el2w6q4dfhtua5gWDwOO0fPf9FHZedsM1VS3sIqt2eC7vE -tbAk/GOJWcQjeO64oqgqXAcXZSvn0ReFwZqpo+e17urisYaYTLfrYZBlRdU/ -99TDoTmr2HCzx2CY/8l0rcc+lLj892az2BOIPdXt3/HWEG18LrlZBD0BO6b5 -7ps9B7Do6Xv7kZknIKOjZ8ez4CAeaY604OuJgEkZIZMKi8N4R01xj0F8FHTm -L4ymKRgjfek57grpWKgZVnluVXYCFzVux9pnsaDrKiNmFGSGsgFcHh9EnkHR -1Vih+DMn8SJ30mjX0jg4o3lPOIjvNPbNDnZNTcRDXDjXcpvHZ3HUrZBa2fcc -FJu3Npmtv4DzHRIqq9e9gKBddguFki+gwM57j9eYv4AUTf10D7mLuG3ixCHp -zhfAMWyQb7nrEto6/KlWbEyEizi2w+7yZWRd1sw+kJsMHYEBcgqitjhdm8R3 -eDQZbLPeqH8qsMUlsvw2xvIpcE3rjoGYqR3K9ffInExJgaCOBTHZUfZobXk7 -xiomFfoNPh8aiHbEQbOquz530mGgqfRplvk1/L7fwLzIOAs+aol91rp9A8Uu -L0vLDsoCnlz+RqPvN9DEj5pIfZcFtJcz8/x6Hlhfbh0UpfIKUtL3HU5f6omv -lAJLbohlw810vh27E73wrcAlPgmnHHB8V2KYMnEbA38n2/Sq5sJ72+EkRpAv -yvLcDzU3zQWrW3kPmHW+WLXSvpByygWD/c4a2tx+OLtDhaslIxf29rVfGbnp -h452tdGVa/Jg4cOYy4aud/F432D9C458kAlb6frj2j1c37Rx46X6AhApXvKR -BI4Sc4t1jPsLYNXX5vG3k0Eotm3IHDgKwcab+7yU+gNcEZoTtlq1EPJuOke2 -1jxAbhO1+Q+phfD03K2Ert5gHPxi2KFyrwjm+c54v14eihlsO1/efcUQ+bhe -IudaGCotzf+WWV0GghvXlMcmRqLMgCL71/cymNMU3LO2LRKFMevXHo63cOtg -fHAtVxT+ck7lpzTfwozMuMzj81FY0hWjwV34FsYrlhcIyUSjToZPpHlaOdwU -wCcPX8VgelJqqv++Cnj1uzeR3vsMi3VdLXZtqYKQrZ6x9FMv0O0iXwE9rwa0 -w1uPn3dKx8bE32uPBzRA1OKQqwcWvEZBhXTZH4YfoLpEZXRldAG6f8y4b2HV -DIzB82Ei0iWYH54ZJH+wFbQcu2sU9yGCUcbfhBXtsM2fq45XvAqr5IKqZVo6 -gB6cq5sT+g4fRax6dC+fBpszHTas1q7DV5PxLY+uf4bmroi5rdiAIn1t4p6W -X4Dj1tr2LJsmdJ9iFlzT7gErcQ+x4T8fceP0XNUKjm8w6645XpPUjEL6X20b -nHuhw+T7/Z1UCxYGlr02N/0OZb/WOcgxWpFT2NHzm2EfZOwXKh2daUOD18LD -TI0fYDbVXb9hqh1V9FVF69f0g+ig1MzF+g5slNle/2TZADTy65XvCe/EhTNp -23dNDoDqtKO/rhoNM+JGOvL+GwAr7rr2SA0aHtJR9lCcGYAIiZDHrN00jAok -W+YaBNlImXNBOjSUF+08tmbZICxvslMqOUBD450L3DjlB8E/4a1t0xkaJjic -KXl/YRBCH/fNVHjTULNfSNeybRBe9ocf+FxJQ44em+RNtEHYVL1F5Gc1Das7 -qnl+dg1CeNrlqUW1NDSsc23y6SP+YMKQb6ShWcZn08Sfg5AwV/LsXCsNrzk+ -tx4UpINi9eIpuz4S/6xiiK0RHUzalVoFOSm0nwocUz5Ch+Z7PMDkonD7SJ/x -3DEynimQV8FN4Ztv4SIhp+nwpsA0+wovhbVVvxOybejgHSw7mihIYV9ARd54 -AB027XCA4rUUrl555LN7DR0MHpk3XFSlsGLxw/scDXQQtRyQ/aFGodX8B42A -JjoEeAZUW2hQmEs/EBfZRgfuSqHiY1oUGpboXyj8TgfrJwPBsnoUeljA8MQc -HdqFcpOuH6bwS/o2TgcVBjCoA1hzkcI7cXa5v9QY8NJb0GepFYWbHr+8cGs3 -A9y7224cvkyhi9fm2mA9BrRPXBRsvUIh32HZoJfGDKg/011daU+h5uTalSx7 -BnCIKa854E7hMy1+uUupDPB64de34D6F5wMsolQzGaC8cNJZNohC2dbXPHzZ -DHjHk/d93wMKcy4dH8wtZEAA/beZTwiFVQ/iEzlqGWD96llKdxiFjK7tErH9 -JB7l4lvyTyl8KeMX7MBggGr0VIt8LIVO9p2zOkMMyK+amd/8jMJpTs8vzAkG -iD4zHJCMp5Bf7l3UrgVM6E3f82X8BYU7rh9f0SbFBIO0VwoKGRT+qki7k7KB -Cdaf6+f5MiksXTLz84YcE9LwRCKDWC8uvllyOxOaFtdcjc6i8EQNI9hemwnK -xT7jvTkUeq3w5F1iwST3pc4zniIK95z5cL3nPBMUr5gmVREvSl1Hz7Figm1/ -kZfnGwofqr+rOWHPBPkTNgmDxRS+OMfvm3yTCQ/cbr58UUZhXXb8nHYsE8wS -SuNfV1JIvX0UxJXAhO7ZyO59VSQf731Xv0tkwsuiLTOfiZcwLu/Uz2SCJe1h -959qCo0kFe0OlpB4DMblJGspNN+2fkagnAn1bAX7JGI7TeHA5koy353jYbJ1 -FIaY/U461kDWj/S4IVNPYXNoRfdJigk5OkNlixop7I3LtRHvZkK4itb0DeKf -L5N+d39jwlBKwUo28fKGAGFLOhm/pTJY+55CU86jRla/mBAg4kK/+IHUq6Bu -18ZpJkg29QvWEbut3WnNnGPC7JUq4Y0fKYxSW+1nu5AFokfYub3EXU7fS52F -WUCV82uoN1PIut22X1mUBbP35rWDiGeCa2hT4izY5PFKqot4TUb6hLs0CyTl -3Z2dWijc+uapj/pGFuR4b+orJtaqDRac3cyC/I01WzhaKbToc9pyewcLEuzH -D/gTO45dKNZWYYHRtNj6WmLveVN9LnUW8OVYtCxoI99HTP3C3T3kfX2HEnfi -3E3yP/ftJetfbZvIJq5WkbjNu58FMpr+CweI+425ngYdYYG7Ft9rg3YKJy0n -Nx00YYHZIg/D68QLHQYLBcxYYJt2tTSRWDaosfWRBQv8PIWkfxGrRJdZHrvA -ApeIc6vXdFCon/pqRPgyWd/CbhCIravDlkTZk3y9+LnAh9i9xS/qpDMLyk7w -mMQRB35zkxV3Y4Ge8gqPYuKYYev87hssUIV+11bijJlTOnE3STwZ+/WZxKWL -DzZb+LDAsWX5yBxxkwiclbpL3lcXtFnWSWH3hu1DfQEkvnCBUkniYSVpj6QH -JD8lvb3biHt3zxzfEMqCXhFXCXXidv02pZTHJB6DMndd4rqjmcs2RrJA/tnD -UUPiktO+w6kxLDC4W3/nCHHWpdONm+JY8CZUe4cJcYKDUmr6cxZU2LfMmRI/ -vrHUb3MyC5RHTAb+2d/3h2VmGgvM55IYx4hvBJfuln/JgmUZT3n+zWcb+Vgs -K5sFUVIrdP6tZ/n86n9b84hzBiJ1iI9l6ra/KiTzVQ/zqhHvKxB/rVDCAkb/ -widbidVxIjjnLclHBa/mv/1ubXhvs72S1N+6lrl/+ZBsS9TPfUfeH1Lr+kvy -taLHU0apnlhBomWIeBH9GGf+exY0LzvZRyOeHtvyVfkTyUdnDX8l8fD0gtKC -VhZ00+FYGnEvd3ekSieJr+FFbjBxu0C+S9FnUh+SjVuciEvWX9xW3Evq4VSH -zQ7iLHnNper95HxIOSkuI05QEWaU0FmQJLtHcIjUzz3Dd8/LRkh+Fo6KxBF7 -mMTe2j1O8lN6d48Lsf1Zl9PlU+Q8XKry/VefJs4yKytmWRCQlHCUTepX32v2 -pzYHG2SWznYXE6v7t3+sXMAGy6VO3v7EUjF+AdVL2OD3aY2gGPFIZf9MrSgb -Yj/n628m5+f7+zJKfw0b9NJXhjLJ+WvvCC+oX8eGfPGboynEJUw9h0ZZNpi8 -psbFie8JJfd9UGZDAK7iHf1E4hW/iYdU2bBm7C93PLH9BtPYTxrEV/pFDhKb -qC083qLDBu1a8duJpF9InrvU0H6EDWPluYfVSH8pydmQ88WWDS/zzHp4SX9q -EhQ6kObIhqifnKWhDRR+tZ8dcHFhwzvRRcdXEXNubRMX8GJDgpRPtRjpfwbp -3ve0g9gguujPdV7SL2nPv5xNTmeD+6T8huukHzM46v44ZbEh6a9JbVcF+b4W -ueFar9lQdsZ5vSaxhERgI+0NG0J3/Fnyu5z0vxgVlSX1bDDoVY42If19MuwR -v8MgG9IE2u8nFJJ6GfdK02CxwSjmcOO3AgpFj1rr8o6Q/XL5Vq0h1hCEG8+n -2DBrf6/7YR65r4OG+tu4h8AxcH/eKXL/LPPTL1OVHgLbNoOPd9JJvbrO2XBZ -DkG4dlOneAyF65s/moRcGAJhNM+WjqZw1ZYELbHLQ5CvuSlALorC+V6d5Tvs -h8DkhqC6QgTp/0YBxee8hkDx7+3Y9eT+dZFZwVsZNQQGcQf10wNJfts2Jd9u -GYJ3Pk5Pdl6n8NW26ZClHUNgZh1hMOdKYWLge/dIagj47Df8qXKh8AHYG2V/ -GwKj3m3GBs4UnsnMm/g6PAQBXjnf1e0o5PDV0tFaMgx6qR8v4nlSfztMvs3q -DAP35a5re40oDDhaQ3fbNwyicmES7YYU1juqjI3tH4aXR9wpy/3ke2WLcg4c -GYacH8E3XPaR/x/5nvUfzg6DdsFKBz9tch/KWlk98xiGpvsJq/WVKTQWcx/e -nUvGex9xnhCjMEyNOVVUQGxMXUsVpbDN7NT89uJh4JW/MjG1itRbpKagbMUw -/L6iJBa8gtxvwpzbBT4OQ7jQGHcSH4VmAvddvjKHwSXNW9dlnoZnuGJnbkmN -wIP0pfxxvTQsc5Os0tswAmaVaSN3v9JQjJ0UsERuBBz9d/te7aYh1Za1MkJx -BKJSV9YoUDQ0SUaFLBgBba2Z9NhPNDQy+HHhy5kREE7+MMRTTkONkM1Nu2JG -ICA/ZU46moarxYpjx5aPQpnqii4HAxqeui+d67pqFMKH/aZ/7qVh7HRw3fTq -UeAWahNx1qWh5Jfz49xSo9CrwTaw1aKhbCyfwWoF4nlzPwNlGu6QsJzYc2AU -VJX5TiesI//H63kMH/uOQkX4hnMfJjvRa7PpfzsnRyEq6fMn8ehO1Nlz4epO -lzGQTHe7F13YgTFXvhSpDY5BlO9eM1pFOzqKG1Gcx3+CtoRr54fsNlzttLF0 -z6ef4JjP21x+oRVX6lZ5XNUeB46agblNfC3Y/6Zulq90HBQtBH9pD37E7W9q -jJ2VJiC0Z6L6jft7bFXyvVuZOAEJCm/SPBbU475jmR4Bayehwndb9a3pauQf -DTNSezgJkhEzsuXfEY2Fr41nzU9CglB3Yv+1IrTpeXsq5voUeLcNGDtcy8TO -9fXxjowp4LBkpDpbhOLukWo3axZxrqP0hPlDTCrGg5ZDxJITTenTweh0pGjm -8BixSbGv0M4g5LuVckLhN3Hh0VcNyXdR+77P4d6/xHHp7Pnt3vg/n4JZiA== +1:eJwV1nk4lksUAHBUkoSkEpItSVIo2XKEEFqupZBQslRCkmzdhEqhVUiyFNkS +2UJyZMlWWeN7USTbt9hVsnXn/vU9v2e+mXdmzsw5I3HK3dSRg42NTZGdje3/ +3yfW+8NTs2y1TjZv5+6u6C5VrZJuUpXWhK1G2WDZHF2WlfnFa07KBMI/v3jL +anpTluD3UXtE2AIMLJWud9fXl7lsUqjplrIBaamH8hlNHWVCfTUyTlEnYUFe +Rnc6tq8sIH+G/lXYEZxuxN2+V88o672xNcsiwQWisks8H2hMlu23svb4JOUK +h5uMX1s0/S7L2BamvD/NHX7z3H14R2qxbPnfE/62URdA//aTJ3GxHKjm8ssm +1vIiTHhGPksL4sRzzXe02oUvgXdm9cxwHTfGq28RF/jqDRcPMhesPfiw6Tmy +H0rwgbP3ipkL6gK4y3u8qloqAGzOcL+zbVyPTj2hL9gHr0CklnsBs1cYYwwl +QvemXQWJq+WwQlIM/12VnmIddQ2W1G744/1YEtfrXIryuRwEVDbzlOU1aczx +3nczyjIY5FX2vl8IlMG+HsqlRfg6FA5nON+tkUN/wRdW43PX4X1My2pf3u0o +eMDTiPfrDeCpfOwlcX4H6udyyxslhMINmxa9NlUlzAzRGHsvFQ6dC7cYrxv2 +oF7x8t6epRFQv1v/w8pDavhtpLVpYSACfpcnndHqVkf+Y665aml34Uj5gd1y +olpYEvm5xDLqPuQlcTf8jdRBzuxdeUOcDyDislLDteu6aFYXm+l9+QHYK5mx +s/z1kLXgFBdp+RDsByoLvP30Ucz575Um4UcQtZafy7zMCM9ec/S2C3sExiJa +jzm/GeObJw1uo3OPwOppmGnckoN4pCnajudrFPin/fZysz+MQWo79xkmxID1 +quF4k52mOLTy5NJyqTg42M2Y2v7uGHLWK+KHp3FQpJuuLhFuiTKhHH6f1j8F +39J3eUG2Vnh6afJY58p4mPuybiRi1XHsmx/s/DmVALI9Qk35kbY45l1IW9uX +BK3r+TqOSzng4hcxlQ2bnsEdkRIByRcOyLv75kNRm2fgPFxsECt3GhWmjh2S +an8G4bTJHQmqjujq/qdyZ/1ziLXbXzbu4owMZ81s49wU4M8oijkh7IqzH5J5 +Do+lwPUbTi7rilyRW2bVWVP5F6A9orzE/9h53Nr/VdrqxQtQSnnF3P/EDV3s +r8Y6xabCqVIP/XNPPHDQsuL6taB0eGp3jK/c9iJ+P2Bo88Y0C/JeCue1B/mi +sDN/WnZYFtRI7QxgG/BF8xDaVGpVFnCti9vyzcAPa8tcwmJUXoHG+kHDfD5/ +fKV8q8RXOBvo7GNx1akB+I7XkUfsQg5suzZBM/pzFW/NpJztVc0FBdYalsS9 +YJRZfvuejUUu2HElMDU/BmPFWrdC2oVcsBZu3fKKKwTnlVQ4mjNyIeqHdceD +oBD0OP/h8XvRPOgPKYs86Xcdj/YN1j5jy4dorYG9M743UfLjli2OtQWw94BE +nmRRGIotrNAx7S+ABNv19qcWwlBYgWUDbIUganx4clwnHNfcy3mwQbUQWE4J +urOfw3Gpudrip9RCeBx0m72EEYGDXUZfVG6+ASVdQR8XoXuYwTwfzKVfDGvT +tlWo+j9A5ZX5PZmVpeCbPdM2nx2N0gM7mb++l8JOawmH7J5oFMSsX/vY3kFX +VKBxGF8M/vJMXUXTfAe4uKypzD0GSzpjNZYWvgO7NpttAkqPUSfjWrRNWhlY +8p5WP1oWi+nJqak39Mvh+w+9vLzpp1ise8luz7YKsPA9sbb3zDP0Ps1TMJRX +DSsv/tI0vpOO9c9nNh4NrYOE13Z0q42vkW9HuswPo08QU8o+H1RZgD6fM27b +OTXBjGVGyPTJEsyPzAyTP9gCMnVSC7eSEMEk42/imjbI/vLNT9OqAiu2hlVK +N3+BoZjekEN9VXg/at39m/kdYNWjvD4oowZfTSc0379MgeHslxBtvXpc39cq +4m/fBZZ2PBnn+T+hz096wUXtr+AdutLNvrIRt8wuVKxh64FbNTJ7n4o042qD +b651nr1gzFm/d/XpFiy8VfraxuI73DAWanwe2orsgh7+PUZ94FYyZuuV14aG +rwVH6Bo/4N6HjNigyi+oYqAqVCvaD1zfp/5UZbZjvbRi7SP+AbC9E7vPJ6ID +l82lKe6ZHgD9+mJjq/00zIgf/ZL3m3h+Y+OUAQ0P6ezy2zk3AOvuij4LN6Jh +zC2yZI5BYD2Z21V8mIbyQu1movyDUKJdz7ZoRUPT3Uu82eUHYb5Dr3q3Gw0T +3U+UNDgMgu2OpkzrRzTU7F+ta986CJ9DXaPsvtGQ7evZFNmOQYhROLKvuJeG +lV8ql090kvHMRxr4f9DQqObSx2t9g/DAl+3f4iEaWmZQFs8nBsGJ68D+iXEa +XvRIchnkG4JDnp3f/nBQmDG/846ryRCERDaqndtModvPW+O7jgyBi6Fu2dUt +FCqO9pkumA2Bq7MY/4OtFBb1RK6/c3wI5GQaNuRsp/BDxUxi9tkhEv8DBc27 +KewLLc+bDB2CfJOCuxn7Kdyw9gjlUz0EgZPFE68cKCxfcfc2W90QsH3wNjvh +SKHT4ieN0I9DMM058HaFM4W5Q8bx0a1DUEQXSLA5S6FRiYFD4fchCFju/Izh +QaGfHYxMLQyBnv6UeuoVCrvSFdjdVYZh12xgRsIjCoPiz+f+UhuG7tVe3LzR +FMo+fOnw795h4EnXdvCLodArQO5DhN4w5G/PXzB5QiHPYZmwl6bDMDMnX08l +Uqg5vXEtw420Owg73M+k8KnWqq2OqcOQ05yTfgkpPBVqF6OaOQzS7hoeb8sp +lGl5vZwnexhcwgyqF99TmON4dDC3cBjk2VuE/q2isCI84Tnbh2Go5dE4ZldH +4XCnolhc/zAIKRwvy2yh8KV0SIT78DBoN+7bUd9K4QW39nkd1jD0p1yWGWyj +cJbdv4s+NQysAw0p6zooXLW1KmbPEjrQpn5SVl0UKl0+uqZVgg7dVzamufyg +8Fd5WtCLzXSoffNmn10/hW+55yZ8t9JBvC7JymyAQr34hCZxRToU5bhy7Bqi +8Fj1cISbNh3CUUSug0FhwBp/Lm47OuxcfuV08gSF+058uvz1FB1CJqzTPCcp +5EzdNJTjRAfNe+9OaU1ReFe9qvqYGx2SnTarfZ6m8NnJVcEpV8j/Y4XtGn9T +WJOdsKAdRwcXl82bjy1QSHt3P4wjkQ6Rez/H/CEebgjeUPWcDqWt2x8+XqSQ +e9h5t0Em8aKJcMtfCk3Ed54/WEKHxGdFjps5OtFGQXKOt4wOXm6VHPnE5zUF +bzW9p4NlKruU9pJOvGM5k2xWRxxqzTyytBOb7pV3W9HoMO5pedecsxN743PP +inTTwTWjQ62ReOJl8kx3Dx3Kf6w5bbC8EwXqQgXth+hgv5RHZSdXJ1qw/2Pi +9IsOqrxLqn6s6EQnPt3OLbNk/jMe9kbcnei9cbcLfYHs320l31fEMWobQlyX +MYC/7+9G95Wd2Hnh+1tPQQY0Pfsj28LTiYyrrQd2CTFANE4tTnpVJ85FVHf8 +FGGArOiFUC9i0Yz0KR8pBsw8Eq3n4e3E7UVPrqlvYUA4V6mYBbHWhwi+eTkG +5EylM2KJ7foubLuqRPpfqh8U4+tEj3GHYm0VYmW5dSeIAxctDDjUGSBfrPQ2 +hviZsLrD9X0M4CqPPc3F34m5svIT+vsZ0L9hq4smcaWK2FWuA2T+o+96zhP3 +m3I8CTvCIPXj+NY64mn7admD5gzwGno4O0m8zH2wkNeSAeIWu7SEV3fiuis0 +vabjZH4yX6a0iGXC6lvu2zHA5xSfyElilcel9mYODKjdH5AXSGyQ+mpU0JkB +LL2C0qfElgWJAe1nGeCy0lyliNil8gF3jBsDlgZMbmoi9mkOibHyJOPnyPkO +EN/q8ZYR8WYAbTZq3wxx7IhLfrcv6f+j2YdLoBMz5qx14q8woFzOW2wd8dsV +B5vsrjGArU5MSYL443qwlbhOvj/ilLeVuHuzIqsvlAGC7IykHcQjylJ+yeGk +PUl3QYm4d+/c0c33yH6omn5UJm4zaFV+8ZAB5jL7T/zfXvNPJv+WaBKvgIZs +BeKS48EjqbEkHt6RlbLEWY7H62XjGdDtczhGnDjRXTk1PYmch7Uvt/8/v4e+ +K0PkUkj8l1kHryC+EfzDPjONAUcUVzyeJevzjXi7V/4lA9pSz7jRiV2jHwpn +ZZN4pWxb0k5sn3Tu9/Y8BgTe/Xu0nNgsU7ftVSED8mcenUkj1i8Qeb2jhAFC +TxPU7xCr41REzjsSz9Of6i4Qi7c+N8itYoBri5WEEvGar/7SyrVkPHEROi8x +55AZe34D2d/e6vN0Ev+R2SVvC1rIer/Hv4wm7l3aHa3SzoDTmxWdzhG38eZ7 +vaEYENDr1fX/+SqRPK1Q3MsAzaTO3zRyHrPkNVeq9zMgkfNU/HPiRBXB4ZKh +/++L499zxDeNqpJKR8n3JF6N/STn3dxTem35PAM8dAYDR8l9MQiYn9BmY8LS +PeOTL4jVb7R9fr+ECUc2CW48QSwRGxJayc2Eogn/mApy/0bf9899EGKCrFOk +lCe5n98bSmkGokzovr37kBBx25fIgtpNTDjt/VihlNznErqee70ME+JsrvEt +kPt/c3VK36ddTOCxeH/AgeQHP5EreEiVCT5OzsK/Sf5w22wR16jBBBP9kPhQ +YnO1ZUebdZhg3/gXk0m+ET/pWNd2hAmJoWvt35P8VJKzOafLlQnih1a1h7GR +88i32jjNg7QXadqPkvz3zW1+wMuLCSGOHIqHiNm3t4rwBjBB8CkreRnJl4bp +gTe1w8h8t9z9aDZHYUdSl21KOhM+ml367PqT5Fe2mj8Xsphg2EiLeU7y86xd +bqTWayZoS9ond5D8LSZ2q76jiAmi0Teu7CH53SlWRYW7lvRf81uhfZTC6Qf3 +V7kP/r9fJ/ffJfWCczIgTYPBhJeKb2cfD1Io9I+LLtcoE+S/LmclkfqiwQe+ +ST+ZIJ2lci2d1KOgMFZ/61IWeH2SPB/dQyF/iEGpqhQLXGU6lo22U7j90sJZ +DnsWRB7P3RhSSaFk02fzOw4sMF/CxmtSQeG6bYlaws7E73+Hryb1dbFXR0DJ +jQU5DrO7H5VR2GQSWnwygAUu4oztV4tJfZdew/U+hgX99auDv76isKRVNuVq +MwtEdwSqV5D3wCuF2Tsrv7Ag+an0A40oCp/favCJprFAeyDwQm4kheHgZpLd +wwJ+tvsfYu5TeCIzb+rbCAuqbpyrMgijkC1YS0eLewRqzyf1KfxLoYGSec+8 +zgj0lhr/I36KwtB/qoe89UeApXHyppk9hbUeKuPjB0bAI+fvsRBbEq9sIfaB +I8QCCrXfrMn7Rv6r5CfbEbC5VdLjbUbqnYyT01O/ERD6c7dGWY9CU2Gfkb25 +IxAzLenYI0XhAzX6zzcFI+BTsTe+WoLCVkvrRcXiEQhsmndN30ShebQmn0z5 +CJQfo+rPiFBoIciuyPt5BFyalEM+CVBoyXvb6xt9BLQNTjWKs5P1ccTN/Ssx +CqcFivp+dtGw1Fu8Qm/zKAwHeqy1pmgozEwO5d46SurVP+fettOQ1pq1Nmrn +KNjwzV+91ExD8xTckQWjwKrnPFDzgYYmhj8cuk6MgpB3osb3HBpq3JH7uCd2 +FAwra8tHgmi4Qbg4blxgjLzvhvc7iNHQ+rZU7qV1YxADGf8aitAwbjaiZnbD +GPSq5StvE6KheNepyaUSY8AW6yZAX01DmTgeww07xmC8SDJJfxkNlcTsp/YZ +j4G8XPifUGYHGkkuN3oYTGw2byZX2IEBcha/d0+Pgarza+9vuh3YPdZSzzlD +vj/esKoFOlCz4Eh8xxzx4WXZFRoduLjpxbNS9nGQpYb5nih3YFlG0gHbFeMw +o7nORFaqA6E8JjpJaBwMve3z89k7UJt5Q1l2zzjUrrAOe1Tajjr7HM7t9iLO +Y//ot7UdY890vVEbJBb3yjP43YYeIiY09qMTEGiaeKjseStuuLDl7b7GCRD3 +P/T4OFcLrtWt8DunPQmJPfryu042YX9RzTzP20nI8QscDO76iIpF1aaeylNQ +ftszuaqoFluUg6+/fz4FbDsOSfjFVaG+WaZf6MZpsKdpXeVsRFw19sBE7e40 +iAuYbeJ7Uoimghcnsxange1c722xoAw0LjjjOyn4E8or7JvM81/gfxqwCxg= "]], - LineBox[{{1.3758626357477213`, -0.006638484048995252}, { - 1.3846240015927647`, 0.005937250364499214}, {1.3851045006501337`, - 0.006633239943825586}, {1.3855849997075027`, 0.007329886072878544}, { - 1.3865459978222405`, 0.008725148891041812}, {1.3884679940517164`, - 0.011523563159006933`}, {1.3923119865106681`, 0.01715199757376773}, { - 1.3927924855680371`, 0.017858519415706375`}, {1.3932729846254062`, - 0.018565701481191077`}, {1.394233982740144, 0.019982047209838427`}, { - 1.3961559789696198`, 0.02282267155971951}, {1.3966364780269886`, - 0.023534481690256293`}, {1.3971169770843577`, 0.024246953904168755`}, { - 1.3980779751990955`, 0.02567388551605987}, {1.3985584742564645`, - 0.026388345381517908`}, {1.3990389733138335`, 0.027103468265296193`}, { - 1.3995194723712023`, 0.027819254401620697`}, {1.3999999714285714`, - 0.02853570402490302}}]}, - Annotation[#, "Charting`Private`Tag$13602#2"]& ], {}}, {}}, + LineBox[{{1.3185069111258099`, -0.043120625074359875`}, { + 1.340971889202452, -0.012009446335388585`}}], LineBox[CompressedData[" +1:eJxTTMoPSmViYGAQB2IQfThUWNu94qs9wx5Dc22utv227w6XZbwC8mNuGtQa +z7VfsnO/b8IbIH+pT4Tbs7n2hQHbf/t/APJfzw366D3fnqduWbj+j6/2Deye +Lpe5F9o73mzhf8f+zZ7hd7uJ5Y3F9mv6Heuz1b/ZNxQ2ekUUr7QXjrYNS9YE +yh+XlFU4u9K+Ss1SN1obKF+wWOGV2ip7970Gt730gfJHFlW03Fpl/+iVvLmW +OVDeL3PuBcc19hJu/969cAPytwZq7xBYb18v+OvoAw+g+tQ/LrOz1ts/u/N1 +zg0voPzjHS31R9bbby5+63XC75v9gb2RM1VtNtj7LbyzbHkYkD99+rZv7zfY +b8m5UTs/Aqi/lvfda5mN9tIWV0KmRwH1h1aVPPTcaP/i3Gmm9jgg//sr77OL +N9r7zzp+sy4BqH77vu7DFzbab0s9vKEsCWhegOaPnX832ssY7m/PSwHKL+3s +2KC1yb75z664tDSg/rdWJsvDN9kDAB0XugQ= + "]]}, + Annotation[#, "Charting`Private`Tag$7523#2"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -9713,7 +10183,7 @@ DTNSezgJkhEzsuXfEY2Fr41nzU9CglB3Yv+1IrTpeXsq5voUeLcNGDtcy8TO Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 1.4}, {-0.39144597939344705`, 0.03931779688676951}}, + PlotRange->{{0, 1.4}, {-0.4334376465131491, 0.07164998078490292}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -9724,8 +10194,8 @@ DTNSezgJkhEzsuXfEY2Fr41nzU9CglB3Yv+1IrTpeXsq5voUeLcNGDtcy8TO CellChangeTimes->{{3.843117407966116*^9, 3.843117451050243*^9}, { 3.8431176786646423`*^9, 3.843117682458384*^9}, {3.8431179221287947`*^9, 3.843117966720529*^9}, 3.8431181756067553`*^9, 3.843625393694675*^9, - 3.8437138221927757`*^9, 3.843728700837434*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] + 3.8437138221927757`*^9, 3.843728700837434*^9, 3.844086229113646*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"d82c69c9-3339-403f-946f-72fb937addfc"] }, Open ]], Cell[CellGroupData[{ @@ -9802,7 +10272,7 @@ Cell[BoxData[ RowBox[{"H", "[", "#", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"8", ",", "10"}], "]"}]}], "]"}], ",", + RowBox[{"6", ",", "7"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0.00001", ",", "1.4"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", @@ -9825,620 +10295,418 @@ Cell[BoxData[ 3.843118951492248*^9, 3.843119048301594*^9}, {3.843119108271299*^9, 3.843119114566826*^9}, {3.843126846579843*^9, 3.843126903323943*^9}, { 3.843196901223112*^9, 3.843197008512505*^9}, {3.843290877971253*^9, - 3.843290878418971*^9}}, - CellLabel->"In[72]:=",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], + 3.843290878418971*^9}, {3.844086235695135*^9, 3.844086237698028*^9}}, + CellLabel->"In[69]:=",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwV13c8Vl8YAPDXzCyjKCUrQiUyss9NRhlJkvGTaBiljJBIkYhIyJYiCWU1 -iIbn2iRlk733eF9ee/1u/9x7v5/n3Oecc88953OO0GWnc9doSSTSaeLy7355 -Dqt5QuuDEY+kojZ6YJUcUVX+ee2fVV9OHoai1MFLtXcv/XMa+akS3Fg2OMNW -Yk7YN/OXmAbgWAc1QfPCv3hgloMOzBouKcV3GxPGprhi9eFS5eCg465zhPOO -F/09CzuVpI4xfzxLuO9Dj7UxvL2nM/1QzJBw8gjDgAn8sPgupaNn8O/90cWL -ZnCxhsJ+tkiPMP5av8UCxhPfzL29pEtYOuThqYvw8ErRXYtjpwnXq258uQQv -60x3fBc/RdhSkInLBjptn9qdVdUhHE7np30ZtpSsww/YaxO+avX47hUQER2x -tMrQIrwsJf/+KhzZPXqSsqJJuFkopfMaBGlSr1+3+OcCiV4WO7Bj0e6trTpJ -mGeBpGQPS9L76Fyxf+bS47F1gOr5ByRSmQZhbZMjkdfhaJC0pNGZf67uPPfj -BrA91uD19z5B+OPHRY5bEOPlFdO59585lIOVnODOnd3dHSUY4XS3TGlnkBWP -Wyre988vhkxMXUCL388mOAURdi05MOECbqz3ZSw5/9mwNumeK3wqjV7rZlD/ -l88gIfk2LP8Sf+4VrEZ4Q1XkmBvE7+aTz+ci7CttbFPmBkbZw5M35VQJewky -DrsDbSiFXumXClF+bY+LuwdM/SfVpWRP2FehPJ7hDsjxP43/+V6Z8Ae3Q6Ke -MCDxSKnvHGGS/WDsZ09gTzpYJr+hRPhGW/XJu1BuwqzRZ0HY96rKfRsvSOR9 -nlAor0j4VLplwj0YzdJSk507Trjfn1vcB5QX6Z3xvH/WF4zP94HTn2nq3sn+ -c1Lhzvr7IBJHfq11RgEjCbYyuvn5Ar28XcGv3YSxY5TYKl/oOUVa+DEkj5GS -7/a+ZfcDDxVqUoovYcFevcfxfmC3Ub4+WymHkXCka5n3EL68i+NPjSWcLBPx -de0h6O+o/hHo8M9TdnQ6/sCayn8th4OwtYzahW5/MDIZF9K/IUvkOynBwhwA -C0XCsbqahEldGZXGAaBeY814cD9h6y4r55cBMJC3wW3RfIxwQESobCCY6q4V -954m7KsUPWv5GOLtZH7QSPyzmCV/+mMoHVQ0qWUi3NfpqEx5DDYMQjXopwxR -X4bxyYAgMK8yHxA5T7jvhkpMVjCs+nQoH/aVxkjS3ZjjcgjcLi09nW1HOPk9 -Kf1EKDRrlZRGGxLu0+dufhIKZWO/RyIECZMz6xj4n4KEUYtZz9OjGCmcPq8W -CwNm726FMG0pjOSMfd3SCIdw22t0WoKEOb5vV7QLB771qvyA1SMYqfBMwvWQ -cNjOKikTl0e4ej6suCkcRhRtC3KECS9rOohcjYBlPOiR8b7DGMkzhjLpHwlK -0yK5dluHMNJYuNLNtEjw3Xrxo36AcDiL8ERlJJzMFJFKfEfYbGKxlfk5cLv/ -lh9VIxzEnODz7Dm85vjJJeEqSdQXlMWQEAWC3y+N9ZkTTvYo0/wWBde6fK61 -nyDsGb/4oCsKWht37nrI9S/+9tfE/mi4PlTemVogQbxfRo5MjYbMk7V8Z5kJ -O/fFHMuKgVc8V76FUcWJ+pqdFepiIKn1k/9mL+Hw+BqFmRgQWsuIvPWFcJQ/ -+xHpWODbnvzlnj3hjAdu5E+xYMu3afWj8SBGYpJXaPsaB3Vas9SmMjGM5MZ2 -XKsyAV5SIkxMPhMO2vtafSQBGDGHHuobwvTDKvKMieAjbzgWGkh4vZuZTzsR -/E+O5PPoEX7U7FxakQiplAparb+iRP+KzCLKX0Ab/wk+yjbC1fcM1fCXEKB3 -yTFu7QBGUo1sGOh9CX6UQ97nZwlHaQ0FbL2EKFrbCeY2wqShinL1V2C//G7r -SjphR40S0R+v4EFHhHC6HuGexkvfLJMhYsL4qkCKCDH+VT7HzFLADXq+CMcQ -Vuwtk3NIAXvDktTjIYQrOSrlvVKAQT47JNqdsHMJndyLFGiY8Py4T4+wdUWg -UF8KcLJIcMuuCP+b7/kldq+BvVmmwdWaML1u8H6PVKDksWRYmBKe3he2GpgK -O1R0rQ3PEK7Vdm2JTYUrskc2rFQJK7t2PS5KBTbzmgLuPYQ5fc/1rqfCzSjz -yq/NQhjp2f5Ic/83EPNaQdbgPGFNZQe/Z2nwUmwkVtCAcIufJf+rNMh8fM1n -XYvwzA7Hwpw0MKENC6o7TpjBeWCyLg1Efpn/bdxLuI9H7RTbW4hPswPLYUGM -1H/5SFvQW9BqUfVjuk/YO37AyC8djq3VTv6+Q9jV1qsxPB0YdW5wvHAhzC6K -nUtOh99BDGa61wh/cDE1hHQ4ZakRt6BP+P1iKdpIhwNlyov3+AnbJCyveGbA -bItlKkugADH/L+5oc8qEdO7cBhkvwnzvbIN8M8EKNy2+douwlka7YkQmND52 -95y/QDjUli32YyZYKDrTvxEnfL2+8tRCJvRsS6/T/r0fIy2wUP283sEbxea6 -bcKEw58Gnnn0Hr7qxP/IGN2HkbgK5+yjsyFzrs8spodw9HJgbFo2fFlg5Att -IXzLyqwiPxv0AvK7n5URViV/2t+aDXX6HvuXXu3DfL87mlbz5ICOQIqrsgVh -E924pdgcCCNF2Z1q3ov5GvhIVcfnQltQVs3lLj6MpFvZm1yXByNZR4oDWwiv -7zLnbcmDl7uT8nN/82G+i48CnnblAUlWIJqjhIiXiCx7TubB27Q/Tuxv+TC8 -m0tHn/kDdJmz+sw4E+WP1yQPaX4Aue8vJQ6y8GHYBauRrm8foOb4Gy6z03uI -9U/Mi5zxEcg2vRZV7bwYqYrxl276Z2D9zHFj7QMPRjotH37yQQFkKb3BdPN3 -YdhKGJl6uhCYPhbN1ZbtxJJf6dSYHP8KQ/o3D4etcWOknc18VVvf4I9ulCOP -EjeGmelOXZr4AVfDckcNn3Jh2NnaD11VAHr1+q+i1zgxnFlKvBzHYZS0b4v1 -BifW5yxEMs4pgfX86fvCsxwY3qQpq/KkFAo6wwRO3+bA7MUZ9EM8ymCsu8J+ -mpYD2/05USDSshxyar85lWvswEgfhR/ZylRAyPYBwQs+2zHpqZWvqjyV4Nl4 -U7+5nh2Lq0jayzdRCdlOrQXvZdixU2MspUKFVXCsr/Uk9zM2THqx36QyuhpY -RopSxrZYsXam37Fdl2sgtU1mS+EmKzZWthCnin5C/2fqVZphFqxatvXX+121 -IKj01va8IwsmbbJ3ZLmzFmKzho+2zDJjGQ8M7kt++AVVMZWDAn7MWN/ZlAkX -jzpwzPSYttzDjNGzd9kqKvwGY4Hg5IJsJszeP57Gn/4PKPqyaEQZMGGkE9ad -+mV/QFr2lUTh+DZMsTpdX+xUPSiG0QmfCt+Gcag93UubXg8htcXV0yrbMOdj -kSEKdA1gYEO/MDHIiIn+/i5lZtsAFlL1sW1RjFisZEw8S2kDtLaUPtTRYMTs -3V4LBRxoBG2uZ3+kqQyY9YlNP8NHjRC27PO+NZsBM6+eMO3raoQLugco+64y -YOwfD+eyqzaBvGehd6gQA9aYWejJH9UEBelXI/UH6LGDBSMc+eNN0BY1KF33 -ih7j3hByw7WawYK1ryX1Cj02ETHs2p/QDK7lF01tDtBj1VevHDBZbIa8hYCH -omN0WIZpHIOeYQtswwWqnn6gww4a3/sTnNICtQ+e1q/focPaj3nNU1daYLJN -+kfhSTpsYis4r0yvFcQQc+YLNjrM+lv67uTUVjCqtg1YbqPFItltefettIJD -gKrv3gxaTEy9U+jIqTbglb5W6+9Oiz248ilaPKkNtBuMWF10aLGmKyerGifb -oOeHh6rRXlpMUU1ryVCxHYZO+WpETtFgKSu2vTFP2kHQtGV9voQG25mfjX1t -bQfd+2isPooGC+6xjg8V/wvXNc1uBjjQYNVSRTVHPf/CURlFF1oNGmzVlS60 -q+QvDHt+fcC9mwYTNvFo3MPZAecYvlJxCgkzpyazeVp0gJ2Pvvv0LxJ22+D+ -WEtKB3wOejtQnkbCGGvk9mXMdMCR7hRNqh8Jy7GudyqX7wQ7fkWHwf9IWPXN -lRW1h51w+PLcDKMSCTv3gjeLt6YTJsNbS+7wEvme2Yoxb++Cfou0Ps/RLaQ0 -9VJS3awLcp2yLNbStlCMbOP4yosueFWsGHbaegtt8NbtHBrpgq2/dOZ8/Fuo -79HV3GGpbhAq27J40LuJCj0o7567dMOD7rCtpqRN9Ceu1MysqBv4DpZ3B9ts -Ituz0YNda90gcniJ3vLgJuLb0Ol5pdoDbYYzCerjGyhqJi/7ysMe8Ehy3iWT -t4G+3v+jxlzWA9uFnhWdvb2BhHkHk5KYeqEPrST6KG6gFykR7531e2H6Z/uq -E+0GYs8Mua4d0gtTQfyNWdXrSFUzrGfxdy+c9zlsE/x8HY3pVQZ2M/bBsSe3 -nQ5ar6PqknpaZ9E+KHc3ypWUWEcJ54pe2Gr3QUqUSHL44hq6lfy5fuFqH3TY -Xmp2xdfQ1u0C//6APngTW5kUG7aGGH1kP9x80wffJh80GVutISNgNpQt7QMm -cK5OlVxD6zS2QgYDfQA+2eK0a6toLG+AtIvUD/oXRN2ZqlfRkZ06qpKC/RCm -7KT+MmYVZX47euUu6oclS4adXA6r6LP6xXx/y3544lHUqqG4igL8ObubvPuh -Yur3oiLrKuLf3L06HNcPqireu5/2riC+AMcElN8P2jNpWh/yVhCpKUWuvakf -ethuXHQNWEHT3Kp26uR+qHS1+sltuoKGMoLHu7cPwDet5o/skiuo/UfVs4rD -A7Av8ETVfdIKKhDzow88NQBws0S7v2kZLc6ov75rOwBcdx+npr9bRlc7hbr1 -Hg4A7WfSu5v3l1GvZftJ/eQBKOPMM3UxXkYoMfjqix8DcN57jaPw0DJ6dybe -pKV9AAZL7l5jp1lGt09+3H18cQBu8AI16u8SYsl3XwzkHIR9zbyeip+W0K1j -ZFGZw4MgfI9NZDl4CeXzPLHYOjUI3CG/T/y+soTMVH6+Kr8yCMqs82u1ykuo -rypzLtN3EC4vvd83wLWEqFp1PhMvBiE21zKJOr2IqLoKWZJfBkHnotd35cpF -dLyAggc2DUJqWXWbU8oiyrthOD0yPQhLDTsDXvssoouMXmrvtw1BEENxOrfp -IprJO/DzscgQOBpdSrgou4gwU5VRJ7UhSMwsEp5lW0RWilrKN82HAP1364PB -+AIyfcMm4nV7CFI0njclVC4gvR8upuTQIbA/9WhIMWUBKZCYyj0zhmA5INIr -/P4C2qlQ4c5bOgSKTL+6MPMFlMvNOlrRPQQKjd77u+UW0Duzo809y0OgrzYS -Ksi9gBwqws13cg1D0ardUPkMFQ1a26mbHhmGrctx84x1VEQqimP+qj0M3pSA -WaEsKlLT0Jh9emkYGHjzmdOCqIicoKJ+02sY1gNb1QrsqKjx2eRfl+fD8Gsy -44W8JhWdd4vEfHOGgRrT6BkiREUtQyX8NDXDQMcpX2pNQ0V3DDRMsvqHYa97 -oeG7nnk06H1+/dL6MCiNeX++UTyPzrlYpmG7RuB4Vszlt4nzyKrZIk1cegTe -dh2Pzbo7j25mczg+1h2BxKMVv/gt5hGjleUz3isj8B9r5nF2xXl0yDDaKMdn -BOg3dNatd8+jOqmTPzxjRsDqyLZ515U5JCToGFKcMwKsWcPntrXPIZU/Coks -NSOwK7hfbqFwDtEz5ww/7R+BwapcBofYOTT/1UmUd30EVm2dXsZ5zCF1poD7 -/DyjoGnHksRrNoeqK5j0raRGoZ0ihwscn0P7SasGaadG4TrXLIPrbiJ+pM5H -3GYUprv5gtxXKWhi/KPK4buj8HxHbCl9BwVdp6sAheejMBcRkdPyjYJMZ2uo -D96PQtLuMm+5RApqN3dxqK8YhfLeIAYNbwriwf0tUntHQTc50D34IgWxqWwd -/LI0CiPvHthaq1GQzSPva02cYxCS5yJ+U4CCXjPuyJWRHIOicO8Sli0yEpK7 -YROvOQbfY44qnO0lI/s5r6BAqzEo2V05Xl5CRmdbX+t98RiDhjBJ3toUMpK0 -eag9Hz4GxiLBbBv+ZFSu+7r4duYYNHmyTv2xJeLs1528S8ZgJ+/oJTkdMore -EnAK7xyDw9KdZiBBRickr3ZOzI/B6iGerU5mMtLqSjU6v30cvkhc/O9IyyxK -fXDioo74OLjsOXNtJGEWcR7lcPDFxkFPqIO35L9ZNLNNTa3WYhxK65zdOgRn -0Zarnqvl7XHoU19tER2dQY+D3mzdCRmHw3El8uEZM+jC0RWTjLRxOI/GDx27 -NYP6Z76yChSPw+ORk9NkqRnie55mzG4fBxu2WZ3B+WnkVDrt4UcZh2fZbw23 -iqbRJ9ZFSj/zBFwK9noh6z2Nfn7cMrh4YAJWx2eNY7Bp1BCwL3y/2gQwClMi -2WmmUVIQU+6G6QTkJ/XEppdOoUyuiewbrhPA+dV06UbQFBLVN0reHzIBTU8n -z6ufnkKl1Iof82kTcGvB8ovi9in0qPamAztMwBq92FGj5knEP9B5KL9tAvjm -J5WdoyeRe6pliv/cBJSdc5fMt5hEWXG7JKNZJ0GsNCdolW8SVd2hP9AgNglZ -DPWaF7omUOf2NKOXJybhzTbOodaUCUTy25uXZTEJP8+E25+5PIH6isxhwn0S -huxPMEyITaDKZ6UCDs8mQa64G9xGxlFTuObtve8nobXftmJ7+jiSYtC8YF05 -CdQTgnl1N8ZRPX0M12DvJNxWbN3tfGgcPer9kf5qbRICY9T8js+OITLH14m4 -XVNQusx9bfvnMdTUmG4nfHQKWBXiDL/fHkPEkaVpUncKRLNViiOOjyEOK7GF -matTYCHO0yW7OIrO52mwHPebAsEpw9nO/FGU6Je/wJU0BU0772K5d0eR8lDL -EdEvU6CgL2WJKY4iBbVLUv5NUxBq/UN7c3UEbXH8ado1MwUG+QaaFcUjKFP5 -Ho0S0zRQQ0lGyj4jiFnMmJpzYBpkLicH9qMR9LFkKt0ETUO1jdt3iY1hJEHT -0X/echqY3C89eVs8jAbp+0Ye3pmGqxixz/MbRi0FPfEnIqehcK/iMyX1YdRl -9fK6de40xLxvUQ7cGkIKac9CMn9Og5ReX/O5b0PoxJl0JvOxafDc2V+/23MI -JS6S1JIYZuBSpxVVWGkIDeC21YxCM0CZoueKow4i0lNu2l71GbjD7K1u8nkQ -vZA/sbfDYgZ+BiXHcrsPoooVyc2rHjPQI1O946D0IHr+4yzVNmoGyryXkkNn -B5BZ6qX/AvNmYIrLXVI+cwBFiE0WivyZgfMhe8wbrgwgWWMeFpPpGah6Zyta -KzyAki0M25OYZ2Fzu2nDTGc/Ok1yfHdTfBbkCm/5u8f3I5Ja1ZqR1iyQ2RvT -V0370S3vJu1ym1n4payS+IyjH0VccHxV6TsL5vsE8qLq+tAJXmmutqRZCKo6 -Pfn8UR/Ce6MW7v+YhQIL8VTi9IJ62vlfyHTOAu+zVZql5V4k4+C56bw8C3sc -38ZHXetF4puv4sTZyHBibtlOrbMHJRUWPePbS4ay3M0HTpo9aHr/D7A+RAZm -vz/P7+R2oxzHJgMnFTI4U78lZYl0I5UshmlvXTKIfXrzn3hIF7JJ0UjutyDD -/AvpHf1rnejuX/tbJ6+TQWpjPP/ZrU40x6Kd63CXDOsWEXux5g6k311SNB1M -htjI8ZfnTnagx9uh0yGeDP61BQFH0v4isodxpM47Mvxu3MpoZfqLrvvN2k5+ -JUPiYBItq0c7Mqv8ROf/kwyZ3/uMilraEOUi9a9vJxm0WW9ZMaI29D1F56jz -JBnWxH4rPE1oRXOneKxq1skgGukx9nepBZVkRzaNsFNA9doFv3mrFtR4/Po+ -Cj8F3IekJGe/NKNvPxu9HI5SwGjb0qs6vmYUUdgl9AtR4G3+649JD5rQyueo -tWlDCphMZVCoLY0oiuz32s+GAsl+Hiw2Co3oq2505qoLBcTqluOZghpQgH2g -3pg/Ba6c5u682VmPSklrwtHRFDAWlx3Zr1SPuD8y7xF+S4GnlvZFOjv+oPkx -DkOxQgocTDyrxV9Sh9Kaa2K21VCgh/OAcqvHL8Qmz7Ce8pcCUy58qtbstUh0 -4qBM/iSRX/au+eGiGnRYYa7r1ToF6m+fvsSjVY2eUAu46HfMQcgM/fZ7I5Xo -Boe4qKrgHCgvJax9DalAgUEh0Qdl5uBbm0udGEc5evXwmFnIyTmoH7vyNuJd -KRqyWA/+fn4OhlGgnLVICTpm8JPuqt0cDErvy19RB3ShS8O68O4cfDG2fn32 -6neU8UHid+OTOYj/I35DW7MIecZyFFsmzYEX7ce6PqMCpNcWz5CeMwecaQdl -RO0+oStPWnIjYQ5ypKrwark8lHSzy7C/YQ64P+uOhVx+h96+crcaHpgDEebI -v37VqWhX1639agtz0BfaQjXxSEDMDbdy9m6bhyoexi85iqEoMb+hLYF3HlR9 -b/IIqGsgbMi6SFFiHty++H9Kvh4EclOdikhpHpgsB/j95RMg+cqV8dO688Ah -KXK4Y/sbCKrcfbjaYh6EmG50u758Bzve7Li/6TAPAqqPnyiM5QErfcbzc17z -IJxTU6d95jOMnB3f5hQ8D3MLXxk2sr6AOv6iVjhuHjylvGc2Ln2D/xYaK5bT -58EDfUcPeophqZ0lI71gHuInnP/OmZeABien1t3KeQje/PN7/EQZWOyeWZpo -mYfclUenyrdXgJdHAfOJoXn41p2U1s9UBY5BJ2W/zc9Da3ap5P3RaqjoC9wm -QEsFjhjz4ujSnyD5oeDdEQ4qTFbKOXf8+gXJ5HYfGwEqMEzrNOd9/Q2NHGKM -gUeo0MO9PybDsR5shQNk61WpINa359gfrwb4T6X6bo0eFTS0tvRUvRpBxDVt -X5E5FdRZG52lnzeBRdTc1B97Kih9tKSXSWqGOxGpi70eVDhOGnDJLGkBN1YH -td2BVOCN/DQtP9wKj2uMOxiiqeD92n9ebaUNaMZPJZJfU8HM8NU3Lom/wJY5 -PcTwkQrs+72WRU53EPucpmt8ONF+pSe8tXadUHaB12Gsjkq0i5uUldoFQ/xj -2YNdVChoS+c68qcbpBpKi/smqLBjiyWaf08vhN7yP8O+SoXhi7fD9GSIc6W1 -6fElpgX4Loh0H9b1Qddu1ZEhngWo4EK5v+/2w6lrHtMMYgswKontd+EfgDzN -sIlDcgvAXR0iFY4PgIjN+VROjQVI+xCllu82CA1ry0JHjRZA3I3LpUlgCHY/ -6k09d2kBXuWH/y7vGoI1t+DsD7cWwIMtVDc4fBjoucSf8PosgP+121MMmiPw -nY2/BwtZANHQyB3eLKNwNH9n/PuEBbDR9L5nWTUK9QfPuPFnLoDqriMCx+LG -4JuG1feWwgUoMHBni3YYB4eqp5ym1QsweDejdU56AvanfjHtbV2A30NTRoXs -k6Aqv20of2QBhvsfSZ3tm4SL987nPl9YAHvT/zQPfJqCGtKvAyr0i8DIYmSw -8WIaJj01q5R2LoLsnf3rR+/NQGhu+h91kUXg4Rij1t2eBV/H+wWvZRcBg/NS -bgpkOEW+IdR+chH6LkYzOGaT4Xu8RxKX8SJUX/5unyFDgZjRcwNfrixCKpLu -Us2jwJNndHKXby+CSvAK35bqHBjwnvL3e7QITW+6WBlr5yBjOufb3ehF8IpU -lhUwnodb60k73dMW4VlEttzviXkIFDtutFCwCGKHhQX971Fh8PxClmfVIryg -61y7smMBJtzOzDS3LYK9hJymzydiXJ6T3arHF+GBkGqBudEiBDum1H1fXYQ9 -sUHTgzRLcPGbcboZ+xIIe+aU7shfAjYXtqFugSXYazR44rvNMrwSTDOwkVmC -YJstu1siK1BQI8/yVnMJwvbrBef1rIDo4uKD8QtLcHCA4f3HF6swe+2oE6/D -EqgspUZHuK7BL2NHW1GfJeiLoj3498Q6sB7IKT8avgRBXqeK4g9twJPIHRPy -aUtAXf2xzLBjEw4P7LulXLQEK5x9H5SXNuHRU2qmWt0SGLSmG2hubsGU2Wip -w+ASiJfx5j17QMJHcl4lPl9eAnWjYp87nDT4wWd5Gzs4lmGTN4NePIMG1zr6 -43XRwWVwrbt0hFaVFjc3Trp7WX0ZblQkbmMbpsXLY76OpJkugzRTXOpgCB3+ -PdEgl+K0DNp6XDF1ivT4xdiGPT5By5B1LrSegcSAvwy+v0jzZhl6dV6381Qy -4MsvdYcSipdhLWLNLO89I/4kz9XzSdcyRAem3jvychtu25GzdnhtGWZ4tknl -RzDh6qy3ozZ2rwDJhbYpJJcZv/4xhumv8grsnf9Q1dfAgnMNnvmPw3IFaJq3 -vtpLsuGuO99kbH+4AgMHdHZ4J7PjH0SpHB8yV2BZ+0BznsgOPHhvgh5Pwwp8 -2s8itnKPA697vdU7uLkChbI7DaPcOXETv+G0PUdWge1QsaVeCBde9nBlQcdq -FX5yDD3aNc6Ndydx5ZHjVuFjnPG8+I1d+MekfVljLasQSXfWwNaWF+e6z69c -KrgG56K3nyO378GXv/11FvdYg+AMQ5eDf/bhGF3HSnnzGpiNDfuxvRLE86IX -aaaN18ExIS2MM1MQT26S92O+sA6cAwshYp8EccW9bCfFzdahqmSUzq9KEK8/ -cuW1o+U6VJ42Kl4nC+JBcy+sOK+tQ3F94UlFHSG8r+mOzx+PdUDRE9hRWmEc -K7ds1nmxDmzyC6/HcBFccZZ2roJM/FfkL/Z360Xw+gaRO/Hz63AMv3TxUJ8I -Hl49zeWyuA4t/G4fqFsieDIpsvjw+jrIns1NkjxxACf/vKLRtm0DQtLsuuJ+ -HsDPbg9MpBfcgL1jcy9rN0Rxa8qW3qHzG1CXfUwgmUsMdz5j9TzJdAMaz5zL -fXdQDO8jDvG7/tuADpu3n66dE8PzyBFn91zegDsuVL+wd0Q8i4XhpvMGbL/n -Q59gexAPh8qui2Eb8HFSejiXRwIPT7xfKFO/ATxHxZUPHZfAz3q0uq43b8Dv -y49u7jWTwJM/Tiw2/t0A8/XBiGuJErhzh6P2m8ENiPldKkw9KInj5+/U9ixt -wM0kzwnKf4dw34O0x8jCm2Cs+OYwk6EUnlw1nDYXsAnychEnWAKlcF9vEGkO -JeaZuPZlsWLCm2utdc83gUZjUatJ5iiOC0o8ZXu9CYkW/uw7d0rj2IpsWi1s -QteBQzWrR2RwzKpNi5NmC16Wlh4olpfDfZW29gekbkHehSde75zkcNIn0omq -nC1YvWTw0P09ER8Lv3b66xbsj6C15pKQx3G2Oq09jVtwGP+1twEp4KQkB6bX -tCT8ys/bGlyhCjhuH7/ozEzCmwPPOuh2EnHFS49ucZDwrx8tRG/6H8dJynKf -tvaT8Ici5ZdP0SjhpO+cSb/VSfiLT/LJSzeUcNz1T/k1HRJemW29t7uTsJjR -b+2zJDzhwi9lnjplnITOsK1dJuESKqM1OgxqOFb94kF3KAmHA/UG9zPVcPzd -UIdrHAlv23Hum4+ZOo57vKM8fUPCZ/USkyidCCcVfbv8uJiE3/08fd2y5QTu -q6r1026NhH9P6a7xvKGBkzpcM2jZafDIjtubiRwncV91912NAjT4NreUzHPP -NXHSVpdK9WkavNU1vzvRUwsncV+fsrOhwSfjxfs27mnjJNfrtAreNPiZ/1p5 -ouhP4yRTk6rjX2hwu/N5ho4pujhJd1igtIMGd1K238MWrU/0vynUhI4Wj8GY -7Z1oDXGS56uCkGO0uKOq0eAWpxFOCrMSHbxOi38xWV5SOWZM5NexeZZHi5tU -9eUwG13ASVfNsrxY6fDWsq77OSH/4aRTEhSPp3S4zJewEMW4Kzgp+abKyi16 -fEguxaVJKwAnkZ4zToYy4UOfx2fmn0cTbu+iEuvW/4/960s= +1:eJwV13c4V18cB/CvPRpGmWVTQpFNca6dUWYqERoKCfWTkDIzGrJHCpXMyoqs +PlfJJlkJZe/1tTe/2z/33tfz/pz7fO59zj3nuQKXnU2uUZJIpDPE4d95ZAHV +hlJ6Y8QlqeQXNZysqTmpXHftn0+9mpSAlC5T63oP639+S36qBBamZqd3V1wg +jGc0HFKHZx3XFhI0zf85ONteBxyfrCnE/zEl7DPHGmsAr7IN+2+ymRBuPlH8 +2wg+r64cY8gzIox9/mtjCuQ+n2G/Q4aE+ck0A2fB+kyQiI7+6X/jF5etzsPM +0RNURsX6hMkFBu0WsMfCYuSdtR5h0Td+p6xgQqvO0UJa91/9xa0ia5i/kr9T +KnqKcLYMPastmM4ImRud1CH8/ICv9mXQDBX0Fr6hTTjdK8jjCtxO/q5zKV3r +Xz8mcllXYfNlu8TcmibhIf2U7msgeWjI2MHiny9d7GW8DrYUYpX11RqEpSQp +lG6Am/nosCv2zwHP2O3swbhYpH/nqzrh9ddHIxxALPctvfGZf/4ia1ruCAlT +knN+XmqENUVWmG9Bh/q+W90H/pm3NETJGSY9jPO6KjDCG2UZUi5waM9c9ZeD +/2ypan7OFZSZZLaCUxDhbmGRCVfwDThQc5Hln3crvbp/G/K6GoP+0KhiJJ/A +nwnJd8A4i5nbM0SFyPsahaT/A1bPV4UFrIR9NOZsv/0H7d4Ol51kTxJW6aYd +doO7v7vcFBtOEPW6Q65udyGQxkFH6QZhn6FXCTTuwM2nuFabpUzkObclRO5B +z2uDyF6Tf766GFdwD+5d3mSX21Ii6k9v1mp4wAeWypBei38eDn1o6wkHesxq +i+QUifr+c5cS7kO/Tso16XkFwucM2US9gbluIhxyCPvk07345A3+dY39GTL/ +LNPN3vwAXra2JWqekcdIyUoWbr4+kFdxM6OekzAp0Ty+2gemyzn7y4bkMBIe +dC59jy9UNdLdT/YhzH9wMjjeF+y9D3+ZqZIl7leKLuX4gUv93l8psYRJ00ll +G34QRK/uHGhPmL/0OY2OP0j6utC+ZyacnJl4/o8/+LrJv9ZzlMFINgGkPQyB +cGWMnklXkzBmmFxrGgi9aj/dRHgJ899yv/MqEDhGzG+fb5MmctHZMJlHsDfV +Y/2PLmGftOAFyyCIwdtnd0Sl//XrLpAWBBJGSw9q6QnzK+SqzgXBZeWhPpW6 +40R/nNM6gcFwPjOoXcCMcF//4xfZIbB279rAER8pop9XcndWH0N0VtJo5nXC +JD3JD2pPoCp00DzSkLAPpXd36BNYcDe/HsZPmF8ndw/PU5hiNWH8/VQSIzHn +xLRhz8CrtUAzWPsYUe9vRKPxHHhuXtpU5SdsdK9B5fpzoIyvj3+4fpQYr+zj +8vg5tNBvT4TnEG6+Vl3Z+hxyWuq40wUJnwo3FLsaDjxnh5UMDkpgJM7D5xf9 +I4A8VGRosyOOke5pNrulRkDhu7O6tQOEz0ePz1dFgFvvdFhk5r9cS7CPIRIk +Iv+q96oQlsqJDgqLBJsG0h3+22IYiRx6kyUhCsp4sqQ7LxDmdAej0igo0G2I +/6FGONlG8klPFKjVyvJ4sBKmv+C7whsN3x2LQhMKjxD9jr5LfhMNcPjYfm0G +wvcc3NWzYyBQquZlwKIoRnrrnqDdGANyXoyGi72ERaVVdGZiIGciR/Jq0b88 +mUNVKhbUBjVXXG8QjjtWSFkQC6U2P/tyWw5jJGGMdaokDtae6sxWfTuEkQx0 +t6yrEqBuv5PCqQLCJNPGCyMJ8DDrc9roW8KJzI1GtC+AnHzR5+EjwmYD9vLa +L6D+PkzQ6xO+6uTZ9/0FeGk9uSX/WwQjPaEdyatMhOXrt8b76Ahj5z/Y4a/A +ZO6MQPCGMEbarC3c3fcKJr2a2TRnCV9dMcrZeQUJzAZGax2EK0c1yapJsNV8 +Z8MkjTC9723T8iRw2EjVidYnTD7/qM0yGSLET7XsShHCSHeL8ozOpwB/Qiwd +UwzhTU1zU/sU8FyXbBd6TFg5o9DMMwUOaV/08XUjvL2WZ5qYAokVSxL0+oTr +Tpap96WAx+nQGJ41QeL+zgdHrr+G+d7sixdtCCtdHNe9+wa49HxYNc4RFsm6 +eijoDSyGZGcqnCHcJ4JTxL2Bt36ITuckYQPXA5+K34BeSQza4CTcVO+9d+sN +RB1j0ktpE8BI9i1fnvi/hdT83NfHzQhLtGPlYanwJWl6lPo0YdnXZReSUiGQ +ceZ9nxbhWN+zSx9SIeT5skeuAuG28b4jTalwr3Vdv/AA4SVt5+Dd78D/mLU0 +GubHSLb7Zw6EvAP2LzFTY96EswJskn3TIFTdUP6jO2GFqy8EwtOg9MAe5fuu +hGdYaV4np4EYWyUSu0Y4rcsuGdLAUaV4o82AcECza+RWGiRfFTC8yEN4oZTZ +1CMdwiQ5D3wL5COe1zPthEsGXB+4tDPuQdjoU9O0TwaofRlM4bn1z2YsSeEZ +8E3etTrTnPCV1ontvAw4GXnkiIUo4XTlrfylDBj5bBm/3siLkS4cYV70zISd +G9/aCwUI+37X/RGQBXa76lZPjx7ESHxrcYwx72H6SrbWib+Eax5rKL97D6Vv +z32Waid86r6EfeF7cPJq/ivzjbDtj5LKjveQWCYyFJ9E+MDzltscHyCc+mF5 +14WDmI9niEJW3AeIM2F9P9h6ACOdfkMflvARJoXaqha6uTF8xecBV1MO5Jlf +deJo58ZI/abJz9tzoOjhT3asicjVe93o/uTADekDFsk4kd/wP7k4mQMutY83 +XqRyYz5nC5XrGHKh/TZTpKcL4Z9MzDe0cuFBibPOBwZuDFNl/uZYlguSeZN7 +2k9xYbjIX464jDy4EJPnfbSTA/OReW1wPL0AokUGZPVz2TFSfNC2i08h3AtN +UfIvYMOwD87a/+l/huo4benJr/uxvr7DLSeVSkD/nfWTqPV9mM9fyOWhLAP6 +mWvTJMV9GClS6CE2XQ7ublZHeJ+wYjZvWvvN6wGq5C2qTq2zYH1BPhd/fsXB +UtdkIdmeBcN3dhfiORVwOHQtOGGaGSPlJFnsfvoVsFJR5hRXZsxI+Sm0eHyD +5Ny3+0UomLHmnY/5520qYU2NTnNZlQlzyf/49b3cdxCIFe/X8NiLjbl9+8R9 +oAq6Hrcr+jbswVZ9lqLDZqugYtxjmuPoHsynTJ9W/ks1VO1oUyuG7sZyih2D +IxJrYDd9aGjt+i7MyGk0yNqhFrRXAw81Xt+FSew/1hauUwed8vNzBr2MWIG2 +3WY3bz00GOGGF+wYMfxC0TPSSD3QdRVZPRlnwGyCV8VEyxogKNne46knAyYc +wjZo49cIjKrhjr6sDJjs0U89vBpNUHxO9nvoO3rs5h1NAz/WH3DGU9ProDY9 +ln6elG/V8gNSKvJYpvvpsPsqttq6Rs2g9/nRmWPBdFiZXKxe6cdmCBwOHQ+U +ocP4aMMfBu/+CbSX4r2PdtNik/PNG2ddfoLeeI1N7WNazEdF5NGHhp9wNvh4 +b58iLdYpQ9IflGwBS72F27cnaDCukGdfHZ63gOxHvw/f39BgEkZHH+WOt4Dx +kKZ/7gUaTN91kzdTtxUe/H3dUc9Ogz3xt1b1ft0KA8GFWQq/qDHzoQq/36ut +0MMZymEZRY0NBlhS42fbQHK0YaP7HDUmfbeyKS+rDQJMA3KUOamxRc3Gt0z0 +7ZC6b4kupZsKe1HZJEK2bQc25y7+3LdUGCuPccveT+3Q8M2iHRyoMN5YTuXb +ezsgQ477uIA8FfbKaQeO2nZAV720/uttSmwt2UKYuaQDvrP+vJNYS4m1vPz6 +LYL5F+jo8uVciafEri8rRb+0+QXCvT8HrttRYuU6mnPZhb/geD0X14oCJSb6 +VcXTirYTuNJ7wj13UWLrHF8V+kw7IeDLdWfzHgrMI0gyXSetEybcLp+4kEuB +BZ8wK7+/2AkFVUKFTf4U2Coucfe+zm9QmT4jwHOeAjMwxpBB3G+4fHbylrIU +BbYNrUFsg7+B/6239CANBUaXLlb1WKYLvjOttx/rJWGdn4gN80EXRIia020U +k7D/Ps6fiqnqggMDar72ESTs4GJQU9b+bkBfg57K3yJhfK75L9YsCXM9zirR +IWE9f7jOfc3sBlea4z0ewiTsyxJDded8N2gcIq0EUZIwTgkLRWqlHmg8kXr5 +a9kOcihUCw4P6IFSzCTOy3MH+R0W2B9R1wP6whpbMzI7aMiMob+X7Q+wFvtq +jc1uozO3J7TUrf+AibXMO//cbTQRcifk5Js/EBWQybJ1axtJD7/9c3PqD3i3 +5n0ePr6N+M9L0JyS+gsSjEflZ5a3kGTqyier23+hXP2N31LRFjKJZt8XVfwX +bKIujXM/2ELPPjRgMRt/QTims/UitoXivMQ90tR7gVXpUsp76i3UIZBrtRDU +C853RoxaGzcR5YNcEfGaXnCbqGg7HrmJyLp0Ah9p+4AipTdM1WoT1fxNnaw6 +1Ae1I39eMx/ZRJ+/vE/drd0HPJaFevJzG+gJzexK1fU+4GRL0W0s30Ay34b6 +9wT1AeNo+1LTow20P2tstCK9D9okrywImG2gl+oUxxlr+iA/ytuGWWgDcfBJ +HwsZ6YPgp3fpfWfW0XIA7UEnun6o0Sxd3vtlHUWliwfPi/SD86SApUzoOgpn +txHp0O6HIrngK5Pn1pFnlnoX2a4fRPLUbz4/so6qNrc6iwP6gTvLkbF/ZQ2l +l0VE/37bD+XX9zLS1q2hm7rUyh++9kPsSvqZpy/X0Il75XLVvf1AnuVwaHUi +6pN0+aR2+uFdIkfgd7U19G494/SFgwPQ78T/9xHrGjoDQTUNJwaAwlKEL3Vo +Fe3Osj8YaDEAQrufZuuWrCL/NMNMevcBqNerKG96soqu3bK2bI4egArWm21V +l1cRo9Powo28AWjwoWl/L7eKbhZI5WA/B+D7us/+XwyrSFBKPubq7ADc+EMd +atK/gsivQy9d2TUI79EMR8OnFdROzup/cWQQlH6r7Q16uoKCKyzuFGgNgsBa +e8xluxV0yMMwVMh2EP5wjNLqnVxBca6y7tUPBqGg8wjLObYVVKh9R9UsYRA2 +5C9+8JpcRvZ1d3+wfB6Ex35ng8q/LqOmlq2Xh9oHQdisrJPx5TKqq838JEEe +BIc6Gtb7/y2jTN5UHes9QzA2xXJx8swyuh1p5BckOgTRPkkUVmLLyKDpdBmT +xhDcvZzyZYtyGZ388yEGtx6C5MhHOo/+LqFcDSqvW55DwEUrY6RTtITO/vJr +VosdAi+yuPFQxBJa4KM9xJ43BKuLzQ3/OS+h9N3ztwwbhqCH6luQju4SGldU +ncgcG4K1fSGxAyJLyM2Ok2Ev1TA8lDjMVbOziFzWtjOf8w3DwKpx+quuRVSS +7yfpcWIYAlfvM4h/XkQMDh3vnM8Og95GkStj5CK6p+845ec6DA4JNUIxLouI +9fuqU9rjYWBiDarbObOIWGqK7RRTh6ExPEK8UmwR5Ue87BrEh+Gt5SyVCMMi +8uHes57aNQxVNDm7RocWUEvFo3Sf5WH4Uh49HlCxgETz2ntqWEbA6dU+s5zk +BdTdU9UjIT4C7RT9cRreCyjaKeplmvYIVCtbFFlaLqB88z+/MJsRGCtZFR9U +XEDjMUqWs14jsPmJ5qUy+wLS6D32kCl2BB7fuVLFuDyPnrvfiDXJGYG+0vj2 +063ziK5RrzijfgREFHxaKPPnUdp0tdih4RHgoMiS8oqcR7vmb89xbo8Ay4NR +Y0fXeXTE7l0rL9coVPTyynw1nkdZdtRVp6VHYfDs3fEoyXkUN8fJFHZ6FPaC +97ro3nm0J8x8R+fGKFxV2XuGa3YOcRT5/XfUdxRctSRuhjTOoacFrO3CiaPw +i3XSwujDHHqdc/+Z3qdROB3zpbQxbA79yHgZN9k4CmPAgzXdmkMummxOr8ZG +QSvIpeig0Rx6UH/2uh/FGLS63uadOzaHXlkuMd87OAZ63DEjHnvnkIrT9UcT +8mPA6xdgdYpMRr1PJd8+NxwD+ufzWNIPMlK0VGg95TAGMu5m/gq5ZPT+zgSl +vP8YMLHTn7R4TkaFXaZRcq/GIDgpM0DMhYzGKwAKPo/Bw2otFjkTMtKY/zbs +8HMMTEJRRv1xMgqRFTKTnRoDRcPM+rh9ZDTYaNEsRzMOJle+7uWcmkXnToXv +LeYZh4NP9lRwZs+i4VtcZUaK4+DJc7PT02UWTXm19wkYjwObePTSquQsqr3F +Zk9/cxyYXxUHfyHPII+H+/xvPxoHSa2snq5PMyhYdfM4R9I4ZE/bpO+7O4N6 +LSMWWorHAS5shb9UnkEa15Wma1vGIffGp9QrpBmkFKiHa02Og0qfaIFWxTRC +d7mfd9FMwB0tDSeXR9Moo0T7eBbvBAyZqZUUak+j1t7aqzFKEyBq3kmptmsa +0WoFNJabTMD+s8tUO81TqOTITLGj4wTINKff7AifQsLbUW/kH02A1Umcd9J8 +CrnkTA2oJE1A5WcHRw6OKTT0UI3vaskErOVlFbt2TqLV8oG9+9onYNs5OpHq +1SQ6XU0lsj09AYwnooUyLk0iLtkhmV0Mk2CR+o7LX2gSlSV/vGImOAlXfp+s +CBifQCuMvScPnZiEoruiKtGZE2jrQ7Qqj/kknPD4earDeQJFjjKXGjpPglL8 +rKig1AT6pHWLMjN0EuI67+uGzY0jT7VnVmGpk7BbwYBDrGgcdbhaKX/8Mgkc +SVw0te7jSE1yO2399yQsWQ8PR54cR2P/MYj7LEwC19RtB6vNMVTHE2coyzQF +hSOWC1j5GPr4IGT0P7EpuIZ9lzL0G0PPl7v4ZjSmIP6FzF1T9TE0wjGql2A9 +BXly64G+tGPo/HE3xwceU6DwKbeiun4UndLsyZyOmIIr+rdj1h+Poqltl4tR +H6bAWLw56pzRKPLldOR1rZmCfWu1pvFMo4hltx59yNAU6Bc9EZz8MYLErNLG +j5Gm4Wz/XNCNqBF0sJ87iZ57GhhvjO0G0xH0h64kXlB+GoQj+iPUOEYQw5P3 +5s5G00B7PH6trXsY8Wc0jOk4TMNVOXEGuRfDaKyzn8bu0TTI3lXcW3lpGIkb +OKkUJE9Db7GSFRvPMMosYLtgUD4Ns2Z4a0zvEAqdy1HZ1zkN0pvXOoTfDCGV +oxaWdvPTUDFx+qGd7RCytiCLMzDNwAPVzs4eoSGkeJ87+deRGRBMdslc7xtE +kUxST9a1Z4DROv0jd9IgOvsmdCH7ygxI3RHgc7MdJL5vW7egBzPQ9svk8zXe +QaT1ROFv2YsZMHxgrx7ZO4A6RBPfchbNQMD+WYaalAHk8yDLidRCjC8yxX0u +DaCBca93urMzMC/ulOTNN4AWFA0NPjHOgoajKjbb1Y8cDuTjQaKzYF0uwGsZ +249cswXfjGvNQlXfXCbb+X5kcso12t52Fvy5Z/OO7etH6zWl7ucezkKqAN2Z +uJY+lNXJpGL7YhZsk6QmqSP7kGkQD+dy4Swk73tcXHK6D4W9OriX1D4L3DRC +wvW7+xC1h6KIwNws7On3thJ+0ouKZsgJf+nI0Pr7zhFXul7EcF1xVZ6dDGTN +wrjygL9Id2n4sZkwGWLz4yM0l/+gfqVh63wZMkwzmtO9dvmD0t7eGuBSJwNL +/80qpt4edHxarKjSmAz5IVI/rAx70Dizgoe8LRmYhhH2sqYbUb03on3vTIZJ +z8eX8+S60WfxU78dH5LhUPr6re9ZXSjDsHTj6DMy+GmJf/0p1IU0X0uxFSSS +ISjQJ/Fu2G9ELRJt/CibDNTBLxIVqH+jCz6GVedLifp1b8FLNztRwcil+571 +ZJhjoV843/ELHTHWSbftJkOgQw2E6/5Cr3zr8rUmyPDoTvXT8Y8d6Ku0a+/9 +dTJEpujxh/F1oCMqooc+MszBQ7qr3Vx+7YjfxC1KgXsOAoL31DqNtCHf5T7Z +ALE5EMtZ4ZI3a0P5SU4aNUpzwP19LjGyoBWl33ZhtdObgwFLpQfuvK0oiiPC +aO3CHJwI9fM9FdqCTsZTVhrYz0H1jKTKxbGfSNj9lPiWxxy0F9W08Rr9REKm +DuxJIXOAtPJv/s1oRnbDI7bJCXNwvDRF6gJNMwq91sd2OWsOEsmXf1xvb0Lq +Q87MLKVzsLcz9L6ZfyPabUuuEWiYA4Wlim4JrQakLZJtxNND9JPHztPKWI+c +Gj+btk3OAXUspdhoXi3aH/ri2czmHFRmP2s/7VyDFms2t2Z2z8N0SXeLx55q +RK+nbmvKOw8qJTTuR/DvyH2CZyfh2DxU3dN6GXW3Eqn28d2KV52HkltiVH17 +vqG7O78X1w3nQYs3KUmwpAKVh2kYKdvMA4Xixy+B2jjSKXkj3O1K5MwhSzLZ +5aiuxdjhqP88NLfdYNVbLkG/D2icOBc5D2cD6daebBehr+p8v3vezsPVx4Ur +0tKfkGf5Wya5T/PQW1a8KeKUhy6wUVbLfp8Hqs8MB47VfECix1X9AjvmwfCU +YxMFUwY6ML5HJWlkHsaaVUNF616jRbeq9M2VefhPJiHWWzAetfs5K03QL0Dq +uOv5D02hiK9nl/AzzgU4cIgv5J6ZGjrKyp2qfWQBWGI3n9tJBwHD5RpGf8UF +ONylso9qNA7MohVjy04tQIO+7QE7pjdgDDw33M4vgL+RN81RgwwYYacrXbNb +gFJhh+1xlhzIVbfeHXl3Aa46uz+KPJ0PP34/iKYNXIAPT9qVA/0K4SWmkMQV +SYy/w3mQmr4EPBcsH2q/XoDNVVH2wYvlwDPAesEyZwFMo8143H1xyDC5ePwp +LAB/bENaoslXWD82wmnXtAAa+3YihBgrofKl437pngUw6GWu5Zz+DjqSproH +JhfAhdcxYV9hNVjreWObqwsgzvSwb9mrFsoTFyue0S6CRZNyrKpzPdhDeQjG +tgiytKcGMnUaYbf9AhtZcBHa+p4nCRn+gB9uLHL48UVgnLUVvJbZDE7AcF8b +W4RuTmqxM0k/oV9QRPbH6UU4m1YjOZHdAkpzvUJelotwUaWv+1p2K7DuWxkX +d1iEGl0Yeva9DTZsXg1TeCzCy9wiuQN/24FGomZXVNAiULu2cG+MdsA+x1Ca +Y9GLoJ8axDKzuxO6qO6Vk98sgqjroO2a4G8YcjeYKMtdhPWVVp85hS5I+JAX +cgoWoZFiUOaBfTd4l6qOkpoW4egh9v9CH/fAkMyZG5Xdi1BG9YjnTv0fSDpg +sVI0sQgyP+vSjHf1grickKvz2iLETQ9u+fH0gdURD04ZuiXYf9X+tOL3PnC7 +/5VDgn0Jgi1lNQuv9kOcjzCFtPASUMZcTZ+gGgAnOQ3jreNLsJNvqLOZPwAO +X7oHqNSWwIW+mNrz4iDkvjS4x2G4BPFqIU25+4n/BraKM46XluCzUPzZ49+J +/5b6LJ+Gm0tw4s9P6Y9uw7AnT7962XMJ6E9cEhRRGoEnrFxtN0KXgCLW295r +YQSU5xiCRuOWgJTPptRdMQoLne/sCtKXYLDv8LZI+BisdDW3GX1eAod0d4W/ +5uPAKX8ydbVqCTpkGpG89AT03jtzcbVjCczLzLvbqCbh9UqsKtXIEmQ+snnM +3DEJnyeu6/xZXAJ13ln2PJiCVipBJm6aZWCwl1/hTZoGC6lpRpv9y3Ctg0vw +fiyxb7Y3cLKKLAO7/WJZT/gsbEaaoES5ZRgVcbXCMWKfGf/CdFRrGdgcFI3l +q8hAc5PrgKL5MrhoUD0+qT0HddMuJ3XtlmHnQfWZ8bY5KErLSO9zXwZD/vn9 +Mtfm4VurTNu5kGW4IuEl8X12HkRuavz5Gb8MBm/Eu56FLoBY6aPsoaxlGOJX +y4rhW4RyqtWKtbJliNNRWTxUuAhjDOevTzcuw2xeQtxX4r1Tvp1YeNa3DP2K +EzPnKJah83qkoOT8Mug2BnolFC1DEm9BXRjNCgg6P07b5boCr8wTsX7OFbDG +1UqlhVfh0CVRnaPiK0Dv9Xk+fXoVjq/wLZijFag7XvRqImcNlOoDDnmZrMB+ +klV5oPs6xNoJ7nt+bQUOFuZpvTm3AavXHBhTPVeAruRr8/XjmxAhavoj59kK +CKjnjScf3oIT/O3R3W9XAP9qINvCsQ0cibWvt4tX4PbpxoHcPTvw8Mp/FYd/ +rMCl1MpNT1YS3vM0+HvKyAoYnxHslHlBwg2fFh1m3VqBlxUttMvyFPhaQIMT +BfsqSOV1e+h1UuDh9FWXj0iuAt+yXQqtOyX+N5dh1ymdVUh+YuZJe5QK3xwO +/yB7eRVertxhluynwl3FaiwE7q9CpR/1Z6dEatxONtz5QswqNC160zb9R4Nv +itfdrM5fhQ1WFtZYA1rc6sqWslrzKgRme1U80qHDQ7feHzpHXoUAOqWPt43p +8dGwl07yLGvAIDt2wd6KAf/Cy+6mcnwNbE7+2t4Vz4gzvtLPe3d2DQp9Dsz9 +7tqFH+zVM3DwWIOB7NeaOhZ78A/9tfw2r9cgUf/gbbfNvXj/5e0GscY1MIrI +pcg5x4xPdHzIrFxZg4QVjk4pWxb8SKEH79Uj62CwYxb50osVL9FujQ+/uA4B +eKXNieJ9+KaC9RpP+Dq8OMh6Os6ADV93OMyv8HMd+Ghvtc5WseGF3sWdNwfX +QT+uCo7UseH3XcurRwnTBMvE8/9iwzuCTL63D6/DJLNJ8Nm9HLjLyCyF6P4N +MJoSHidd48IrH47LDtptwLBY2NXJswdxy54JLoWqDcBuWJ0P2uDDPxe30Z8j +5sGJM868Ia2CeDqjs1VR5SaUSsm9f98niPetLinIVhPzJOfd6YlpQZzzhhhf +Qe0m1IfzzWTTC+Eksq90edMmKLJE8dkgIfxG+0f9pc5NuFnaZl2VK4TbUCWl +Us9sQgy7G/3h98J4X9YJNMC9BeN7N2vWy4XxnMPxh1t4tuDuo42d+SZhPNnJ +/3wV/xZM7LIdM5kTxn349KpLD21BiDfjn14FEdyl9JZBj/QWaN16PpPbIIJL +0YXZkgy2gJ1K5sQe7sN4c8c1Ph2/LRgK6fJTlTqM+1ix/q0P3AK+sXGnDO3D +OD9vcb15yBZUSbUISf13GCeLvXny8PkW8EyYCPG2HMZdnPkl+JKIXKAf90oQ +xbFF5abs8i3wWPQQWbETw/Ep8vefpG3A4n48634khpME2dVMaLZhN6zXH0kT +w7HQk8M9DNvgKBa3d8+4GM4fW3GZZd821DlQk2Vui+P4bGz4psg2XL92PflO +ogSe3GDvuOvMNmhKyp1ncpDEcTnbprH0bdj/0HBuM0USJ+1bmcr5uA0+z4sk +KbolcSwxTOB54TY83PypryQqheMx/noxldvgb/BfLGMq4bzHfm392yBWMFsZ +UHEcJ3mq7q8T2AH+8mSusTHCTAvml8R2YOjBtffqLNK4D226J4fMDvjYrvDR +XSPMaey0pbkDKpKTHvu5ZXCSXQAVOOyATHxSFKqWxXFZ16o42IG2acugZGo5 +HBemva1SvwMRQ1vuDJpyuE/32RqRXztwJaznhkMtkft9oGya3YGDT9N+nJiX +x/Fi498uxLpxg+0K01sNBRybvFnnz0XCTUtoUwzjFHCf2R9PavhJOEdno5WF +gSKOp2fVzkuScDdeU0HaUSWcVJ6RddiYhH9fG3irYKGMkwT2PhOxIPKI5nH1 +VmUc96TMvnOFhIs/tMwm/T6BYz3svzjcSbi/Iu0LZm1V3Ge/W4DeGxLOrarA ++GNdFSfN97tEfCThzkNqwqxlCCexv/V1LiPh3hrzm/KfMJyk0pcv0knCz/18 +YpfbpY6TpI2Uv3BR4MPffF44eGrgpNdFYdHiFPij2JwEOTFN3Id1aeidKgUe +ZdkfpFSlhZNo38TK2VPglPdF2ytKtHHS2+ubx3yJ+lfjpjnNOjjp+ee3l19Q +4NYKVV77A/VwkvrFK7bEOumcfHfaARngpAOx955tUuB3f3/Tqjl3BidJ3PEd +F6HEVfXr6vQ8jXDS4ufTPOaUeMul1sVj4iY4yWS8oSqMErcFbozJ0wwnaZ5z +PPuLEv8cpcl+f+gcTtrdxK4iR4WH1X3XcSiwwkk2ZyJGyqjw/Z7HIu9HX8NJ +Rmz5UR+ocSTT3ZVbHYaTSKtrxs0M+P8dH+aL "]]}, - Annotation[#, "Charting`Private`Tag$13651#1"]& ], + Annotation[#, "Charting`Private`Tag$7570#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwV13c8VX8YB/BrrxQZiRRSZlmJMr7HDMmIJKRFUSlpyU4okZUQMjMq+iG7 -8hwRSjbZe+977e13+uee+359nud7nvO693XO+QpevXvWlppEImkSH/+O++ew -Xy+p3THiK6m4lRakhUaUT/62/WfNuElJ0HIfvFT95NI/p5BfnYC0vDMGO0ov -EMY+/DmsDqLd7QvRmmaEcb8M+1MQU7l04m23yb/6qd2R+vCXa3DwNtdZwlkK -Re1GIHXxiCxTjhHh+uyeyyagb6c17X3YkHDCCN3AObAdKjp66vQZwgKjSxfN -YXxyhtWo6DRhcpJ+iwU8O5s4l3pJ79/5A7x1LkLwh7wnFrK6hNuUNwsuwdc4 -k13fRHUIXxZg3H0FGkte3DBSPkU4luap9lX4wWkZImynTfiB9fMn1+C3R5+V -dbrWv3ml5D/ZAHmqT4Oyqkm4TzCx0xYgZPrmTYt/LhfrZb4Bz3+r9lZXahAW -XySdsINXVzhpnLB/Fj7Nfd0eXEMfk0hl6oStzx0JuwmFwSLixgb/3NN59vst -+GmuuOeZqxrh2pwltjtQm3E3opPvn4+d9D9xF2QZWLs7SjHCXx98kHYE7GbA -csm+f/4ydO78PUCnr1/xT0SEA0uFJ+7Br+4rMlbs/3y7+p2bE8TVPFrvplPF -SF7HzkQn3AeD24yvXfxVCAurHJR9AAqnVo7l7SZMsjK5UvYA7CbxSYdjyoQz -BeiHH8JdvWraE3+UCMvx3nv4CHre0HedsCPsda/8Ld1jmEdX3/7+dJLIFx5I -HHIG1uLzJ/rO/vOXwchcZ+CIWP0hv3mCqC9urdJ4ArQcbWp9Fv9couRxxQUm -RC2jC+UVCX9Ls4p2gzjGHSpycwqErXw4RN1BJurXXTxL4d//Q+Btnju4/v3x -56Pcv1y6iLPeA8ZefkzSMjiOkXBphgdPveDo2QP5f3gIk8IokZVe8C4wf+H7 -kDxGEujpTWV9Ckylqe8SvQhjBvrP3z4Fs467G7MVx4j+n3pWWd6gd1ONPzmS -sEBJaPG6N5hn3vnuZ084wcuO5tQzSKeAzWe2f/VNKmbdzyCy2VtQ/5YckdOJ -MzP5gsd6UYSeJmFS2ocKE184/GuRTmT/P2ddcozzhTXBIA6LZlmi/1ZYoJwf -3HP0LunVJUzSiZi1eg6fZPK/UYkRvowu8qc9h0MGX02rGQn3bTucpDyH5ylx -Vei3DHH9A6Yavi9AP72m/6ApYVKrckSGP+xROnlS0kuaWL9Q/fZKANBNHdDN -vEHYK4I6TS0Qwtv4frwxJOx4iqv5ZSAIaAqPhAoQJv2so+N/Ba7dN8/3vJLC -SFk2OdVYEOQ8PyUfpH0UI618/7qtHgJzo7+otAQI82iyKd4IAbWpw7m+a0cw -kl1/zM2AEKCpdJeKyvrn2JCSphBw0E7O/SxEuI/v1kGbULh9OdLbZJ8kRgpp -mp98FgbizEcyb2xLEPN2KDmkhIHkm4Sv9QOE7a4IT1SEgZjQPsmYj4SrLFf/ -Mr0GUbcsuVEVwlhOrHvwa2g/78Em5iSOkV58+I8uOhz4FXaO9F0gbJ5Wofk1 -HPL9Dl9rUyN8uWPVsysc4mqzd3vv/pcz1k/sfwNgoNeenC+GkQrtF8KS30Dv -dwEeIybCVntjZDMiYNYzpzBoQZSYT+Dh8ZoI6BPf9NrqJey8WnN8JgKWeUaC -7xQQ1mHZfUQ6EsSDynPd7Ah3XXhC/hIJM3Fky++NIhjJDZRai6Pg1awLpans -MHG+w6paFdFAObrn7Llcwo5GH1RHouEu61jHwnvCXcc05OljIIandCjQj7Cm -DTuvdgwkiarmcJ8mzFjt/ONnDMwrjG9pth/CSEOxV0LLY+Fh9goXhYGw6R0L -FTwOVhnZ7KLWhTHSjrSugd44yGhpeWQ6S3jKfdZ3Ow7GxalHmFoJW9k0lKvG -g7aPxPq1NMLKZjWHvsfDj9gO/rTThI0eX/9qlQAyE+KXDiQexEgz331lzRPB -aSYzRyiCsPNM9TH7RPD7+CJOIYBwgmKtvEsifO6x8XvzkDA9345jsYmwh4U9 -c99pwvk+wYJ9ifDC6ymr3KoQRop7CKU3kuB3FmO102XCw5nh+x8lw2HL9kSL -84T94t+u+SXDwH9sFoYGhI3G3Fsik2Hk2OCStTJh+bNjz4uSgf+sdRbHXsIv -e617N4j65U9Q3CyIkfY/j7/w7D3s6aKSPGNK+FeP89PgFHhh/yFE4AxhJ93b -/PEpUNMg8GhDi3D3mmvh5xS4ZXriaY0CYYmkucmaFDDjHG5o5CPc1H5GZ0cq -tD7IKbAaFiB+D2PU+iIVDh6he8LoQViQbtn4aRos8gYO1j4m/GU9qDEkDcol -DzLG3iPMN2R6NiENWhcyDPVsCVP53jaENDAvqQpe1CdMk9eGNtNgtdBj2o2f -MHPRrjXndLhwqy2E2e8ARpq2FWu9+wEarXhAxoXwk1GvF14fwK7o8yfbO/+c -O6cY+gE4W9Js580IH9UQicz5AA9JFyjJooQ5fQd0Fj9AJ8dGkXbtfoxk6cbu -7fIRIkW3CxmECA9/SjPw+QSHX1xPTR/dh5EGafbZv8mEpbsxahE9hI/6Z0Wm -ZIJ15mfqwBbCPMe8f+ZlgsBHhYrgMsLtRj37/2aC3dFM+uV4whEj3lXcn4Gd -Uc3ipMU+zGuJpmI58jMwG9Aa6DTzYV4Xpy5Xvf0PWhYKMq928WJ4q8BWQk0W -FAuJJPm18GJe3G8f72nJAtZIn7f/1fJiGEi/f9WVBfQw4MxWStRrC+55MpkF -oHrahDWVFyPZ5l3XZ8qG7talSzOORN7ztXRIMxu2TtmziDATrmdi7v6aDSr5 -4nPndfdi+P60ZHJ6Dvy4+0S+sm0PRgpfpDmdlgtPZ/jU1rO5Ma+Y2lYNz3z4 -T95wt14eF+Zl6am7qFsIUX/qoLqME8MM9yiYKRSDvfyDxVfrHJiXfsO7yu2v -0IJ5y3Cf4MBI69+eX574DiGDy+mGr3ZjCVpG17srAR5oh198s86OYeQLQeU4 -DnVmScUst9gxAQah+yafS8H54i1FoVk2zGu1Nlvp5Q8IZ3zaqnOfDXP+eOBv -wKMyeNBJOTBNzYYxFkR8CbMqB5lcnp4y9V0YNud64IbMT7D7RhN6zn0n5vjg -g6UKdwVE5W9BUz0rVl99qIR3ogJyol9LfZJhxYz0qq4KFVbCiPnF8t3BOzDn -prbZijdVYLgvV2JsmwVjfMJ7uPvqLyifXHpz3IEFC6Fp4FBBv6FHipGFapgZ -kx7JkMzgqgbD2Bh+09vM2OXlj8KrndVwuEpyo3mWCculaggSz/4D/FbkigNP -mbAdxtk/7z2qAUoJ1YTVXiZMOTqOWvF4LTyc4/qWn8mI+Vw8ctqbtg6eMc+6 -h59hxAKTrX6fLquDACeXwMJxBmxru+jlIZ16eHSTO1MnhAHLc3Hno0qrB+rb -JM8ZJQYsX3NWS56mAZwGPXomB+kxb1rR12bXG6Cu9EpeWzg9ph0kl8z4owH0 -ud9366jTY/fF73zzFm6EjN34LdkFOky93SdJ36cRcCNL/7ZMOuxps99qV1cj -dKxG8B2wocNYsBOFTMpNkNs5NBckSIfFFDgO8YQ3gdGXjguGA7RYWUBk03/j -TSC80/RcfTwttjQy61Cs1QxaZ8rN0q7RYrqmM/Ed0c1gxtivbitMi315E3bp -zFIzHBi/0S02RoNpu0mqqhu2gDbGEhKWTYNR+zHQeCW2QGE87KF2psEMkpUW -x1dbQEd80atEgwY72xTjUXD6LzBk668n7aDB7k9veYYl/wVT3eu3tlupMfeG -KhrW1b8QHKm2LJROje2crnm9T6cVkry+jAY8pMYohYLG3O9a4Uxc0a8np6ix -B+NFNSWTrXCnRz3Rgo8ai3sVdfykYhsElV+2iZ2iwlwebbN7vmyDcMNbrVul -VFhTmOuthL9tsKCkHN4VToXpuczccRRtB48DT8ih9lSY7pPHMuzO7bBLpfzn -LnUqzNyGK/hraTvsnhIoFeShwhiCbvEssXWAV1XMvnoKCXvBH55gbNEB73bx -vdj8Q8I+kWryMhI7gOp90lZLCgnz1twNrjMdoHBp6Aq9NwlLbQpeCZfvBNvO -c+lLliTMg8Vpndm7E7hWsFN8J0jYhLXUif6qTigfGVR4tYeEzayJi9WxdsFk -XYRh6ug2+jZkLkYy7wI3lhgFidRtpDvzZ7Mgtgu+1Ucdcru8jSraNovejXQB -X+W5AkP+bVQsGFUVfbQbmPSe3ijo3UKfz/w017zXDdstoay74rbQSuRxJtqi -bui5E9tYeWUL4TI9xc/Wu8HX5+x4rMgWqmO2rlBT7gFrEb5f3uObqGzyGj3J -uwfqot3uOGdtIuoDcXIJP3pgn1bAu5j7m0hUb9HnKGMviPed2PNHcRNFr525 -vn66F7Lki8dLqTeRrObno9Uve8Gr/mIs9a8NhCsVkB/U9oLUx799A683kJEx -g+lb+j7Qjz6Z4XN5AwUE0b8UPdQHU7qFPIFiG+jFF2tnPu0+iNwryrK0tI4e -XqM6mGbTB5fuTOR34etIcldBX5BvHxhXqv2mC15HG1Cosud9HwjMcBpXWK+j -y8I3qNpL+0Bj1oyLT2Id6Vae853p7wMFemD3WF9DbMNNWM52Hxha3/X0r1pD -3lQC3T8O9IN/kshD4cg11PZa8zwr6gcxf5LqO/s11E6jcITDqh/msqm9mxTX -0J/iFFNr1344rHNitJZlDb36QUq5FdUPE5pKJqJ9q4gjmfcentsP0Sy1V85m -r6La7/s+mjT1g7D/PZ69fqtoN1VoXu5sP7CdLv2Bn19FF47dcjPYOQDjkhsU -XHwV6VJiLaUlB2Bv6x8aRapV1M2irTd5agA23neLJjavoCxl4fI22wGwe3et -x+HTCtKnTT6Q8nQA3knFTJ/0XEG3fd2p4uMH4OKkfYaW6QqyTNoMG/s2QNxv -EoReS66g1cA/GF/bAKyuSM3MUq2g2rt67I8WB8CZKzrWo2MZpbWK6gPbILgm -MmFiucuok2m+5arEIIhFnqsjv1xGBUcKPonpDAKaanSqtVlGrzyCx0evDsLN -V8oezUrLiNuq6/5Pz0Go5Hu+OMexjKT/hkttxQxCzMCGDevsEgrbKTNzPH8Q -4o9w6VlVLqHq7ezKl42D8KjjFrxNWkIeY7H7BqcGoezjj7JmjyVk3VkTEU8/ -BJKvTx4wNF9CXmmLj+8LDQFPqtbfxGNL6Kxv7jkT5SEo3OvEqrJzCV1ojwo4 -ZT4E7fQije8nFpGya23laachsDk5J7xeuYjGBT+ZFAUMAafbT8vkpEU0Opsg -pZg2BHGn5t/Qei0i5ybB3zX4EKjPX4kGi0W05vpJzqlrCB4wH3K/fnwRNZfq -7X26TPRfvEuVy7mI6sxr92ayDUPjf3zO18gLKOhcrsewxDBwKt7lzqpdQINL -lsaqWsOQ/rQgoiVzAdFxyugwWg/D2kNPXZuXC4hGbjWpy3kYUl9HuHnZL6Cw -yyc7/4YOg232y2UW7QX0TOlLfXvGMHC8XRpzOLiAIotm1Q0rh4HReCDZgGYB -rUXSf5ztHYaWSPXq933zKMjB3y5ybRhO8q4IOOHzyCU4suo2xwjkUNQpRe/m -0c8VkUs6R0dgbiVYpcZ1HjlYPKqI1hkBzZJLrXpW8+hAKvOxA1dGALFXDZw6 -OY/YD45zfXAdgV/9u4PTeedRpqqE0Y3wEXCi7DOvXJ9D4nCTKjFjBIaXuRvs -O+aQ4sY89FaMgAJ/PaPt1zn037Cok1nvCIjdK/IYfTuHBHY+6m5YHYF2WbGP -h57MoUZO/ge/OUZBjk3MIcdiDtXtilbfkhgF9nD7z79OzCHzz7Pbx7VHwcFU -UVWcbw4FJ9DkZliPwlmd5CmlTQqKz+HhSH40CjGr5fkdXRTkE0Q7ERcyCmQs -2KS4hIJ4IkhaHemjcP1shbJYHAWVPdZ4yVc2Ck8MCiq0PSiI4mJ7o7drFDbb -BvXfXaYgY7mwraGFUahbt6jywSgo0ep8OmXnGFhOjgknClGQncwtNTWRMRiQ -pGo2pKagJamI3ig1IndIUE4dICORajnOR5ZjUJRGGhf/SUYUw4zGyPtjMFbw -Pkw9hYxOXNGzLns1BiSVAzS+z8mI9vEbi2OpY5CXGilld5OM9le8/SZZMgaf -KBMuPXpktOsx96Z02xgEEu/1LkfIiOlGdporeQyc1enUPrCSEXOO2mgT8zhE -a7QrTnXNIrG9FyfyhMfhK8X6TmXSLGoyuLXYozwOsiUpjyuvzaKK0VeGPOfH -oZ19kUwjNos0/Kf2vL07Dvu/za/em51BXHTz994/H4e8PfPHqLNnEG1XBk9Z -4jhcq3paUPloBs34grxY8ThQHbNDmQozyBip7E1pHocVtjG68o1pFKurFWw3 -PQ7mKh7zNGXTaPI/C+NCugng7Lppc8lnGgWsPnooKDABlKZTDSO602ivnGxK -g+IE3Ol0ovdjnkafQ3Nk40wm4Ofb206n/kyh8grx0VWHCWiZ/pYvHTaFtKy8 -vsf4TQCLtLGihMkUOh1wSt06cQKU/l6QOc0zhdjkS15cL56A6fbj0S96JtGt -G1oKm40TQPuLXF8XP4kESFECRdMT0HE9Q/+k7SSatNczL6KfhCdrobfSD02i -Jh2GVwOCk2BcXyArOTqB+sLB8J3yJEz+XTrSmDGB7n/09o0+NwnineXyTg4T -6GfiFVKF4yS8PlwXKyc7gYprOTjkXk7CtbsSKqOUcRQ8VJzbmDIJec9XzD7k -jCNb8eMGdKWTQAG94FePx9FrfXPWxx2TwHjurJ65wjhSFUszEFyaBNGgG/Ja -62NoyYA5iIltCqoVvQoxfAzNSQc+9habgoozY+LcXmNI96YR00mtKQi9nH2K -TXMMKVTbp0hemoJtlo+D7dRjqMfUZeOqK9EfvuyY/mMUbWeEfzoSOQXF3J0W -8X6jKJ/n96ZU9hSY8ajmm2mNItvbB5fdaqZgaixvRYFxFBleNZvZHp0CTT4D -FcE/IyiLwXeBg3oaTHcpMX59OYImBlcKn+yfhmdP3Nh9zowghujtCPYT08T9 -aMyOzDyCTrvsZ6Eym4a0w8g+6M8wSmVKei9wbxpKbQcfSAcPo1YTs2cNAdNw -9KKI+zX9YRS0Yy67P30aMJE1vTrWYfTw+cxz/vJpkNYR6v32awjVJ79hgv5p -2Il32yf5DSF8w2d5cWsa4hTqjv86NYR21TEEmfDOwL7HVN5WNEOoq6/b4IDi -DFBB5NKxskHkap+HdpnOQJiflCSrzyDi5tXIDL47A8fdLNKU0CAyLdHs9Hs1 -AxHjX22KtgZQyzBraeyHGTh/TIHiUjiA3LSxB9JVM3BRttz+6P0BdNRUddF8 -ZAZARqpEWXYA6QVsSUZTzwJ5+oLxw8l+lJOk5X5VcBYeSpce3fmhH2X6rj3F -VGfBr5uvIflGP+I19TXOtJgFq+RRfl2BfuSSY+T38cksUPHnzVh296HRMqGV -/IhZ2P3nnLFdeB9y72i9aZk/C/Yrlu/GDPvQosDNbyzNszBjs3302o4+ZKFk -nK1LmYUm2X1kJ99eNGP3/VM4IxkeCcWNHFrvQYkXFrr99pDB421xqrVND7J1 -Nu+sESHD4iWrT3Z13Sh8Z1hltwIZvCJJKjEa3Yh5hlZhSpsMESk2d3d96kJe -Ry66m54nw8rht+e+8XWhgD+qekXXyVAqJ19hEdSJuEKTWQcfkuE99YLkwnwH -Mm8QDL3lRwbfsJSFyasdqLbsuc/UGzLITHQOJZe3I9/3XEfrU8lw+raDnbBo -O3prrRPrUkAG+x2c9EfetKFJM3rOvZVkuEo1oZmy0Iqs2u4dPNBGhq8S32yK -LraiMv2mMe4xwvlSKuuFfxHX0IU9LqtkUGn47LnB9RfdFtRRT2KmgDMvbWSV -Wwu6wOBqUcBLAcf8SWG7lmZ0o8TVSlmSAsYXVGBMoRldT9P68kmZAutSLeLn -YpsQOX7zb4c+BcC24Z7CXCMaMP804G5NAQeh+fIjZxuRHu9bBfq7RG4zN3c6 -uQHV1re70j2lgEl7D7/AUj1K4PYtLA+jQEaS2FXMpB5RU2qariVTIIh9zFRJ -vQ59veBW75ZHAa0WFfayuRr0WqnJ36mCArx1xz8IpP1BP3T9VwVbKTBWOXqH -V7kaSejqHz4zToEp8nt3i5FfaJ5eQsNwjQL5X9cT3B2rEIu/IEftjjlYdG7/ -LshWiUjGTvwC++fA0Px+d/CXnyjtdRzHYSkiX6vJGpUvRyfIGX/S1OZAL/QM -/anaH4iZlZNz6ewcHPOyawHNUmR29qpuie0cMOIewYNugER6jpCOOc+BPOvx -i+7vviE5jbzYO/5zUFWge5/VuQj5RzG92Rc7BzFFP19d9MpH09szL/wz5wDJ -fKQ9FvIFcf++yR9VMgfVRjLvPp3PQkwHwyNYG+Zg/8Kop1rsR/TjYFvh8YE5 -0Fnz4Hm+kIwO9vTfLViYg4209xYKOdGopeFFcwn9PKTffPwk8Ekgery+ZWOz -Zx6s+J80ldmpIzyPrUlCbB686Q90Rr9/AXGmvrLmJ+bhuarAx9oH0cDsbese -oDcPYn56CXux92AVaOUvYzkPvNW0Qg19H6FERpD11c154Kp5a7abIxs0vl9+ -z+Q6D+xKBX8CvXOh0cxFRP8l0a//8ErXRAH4mCZ4Hno7D2Osloy56V9hyyH6 -jfCHedAeOnrlmwyA391AqbWCeSDT9u9/6l8KevIguVQ5D3mm1KSXj8sgJIVv -KrR1Hq5v8axr6/2E3ft+J+4amYfCNRcR+tOV4MAgpZa3SPQXK39nl/4Fb1Ta -+dVpF8DR4gf5C3s1ZGoE3H6yewHok0rbzA7WgOBfnsF2wQVwps/gNOKpA947 -O4NFpRdAIOkcxTW+HtImBBcT0AIw1/36rzi7AVDXU/EqgwWIYKE+x5/XCDWB -VIcGrRbgv2WG876NTfDz4As/sdsLIFEdR2rpawbbjhG36y4LsKfYuUSYmdjX -n96gq/dfAGNF9bZ42VZY7VaJmIlagN85bnO3TrfB5ymfFwxpC0B989B6tFc7 -8EftcjXMX4CgR9QW7Skd0Pg5r/F1+QLkqzoC/OoE2c5IldBGwuxRDT4s3XA8 -7JoX3r8AbpxGl/OJfSrTo2uxM7ML0By/M4zxVS9EKV4aNtpegAs3WlI87/RB -Qnotv+PORfhYf8q+lbUfrsZR04fsW4TnX2eYUr/3w2dz5Z1jEotwOXvb4ZPN -AKRvcwyonVwEM7ZzvxVYBkHG81Cfhc4ieF62sSSeF8A1MOKZdX4R7qdfe0FP -7CO2c+WaGK8vwu/FkHB+uWHoRnxRiQ8X4TUeKzEwMQxyfvm/VHwW4VkZo9HN -pBFgctv8ERu2CPkqP+qvO4wCdtSGSz1pETKfC229PzoGiqdOr05kLcKJz0Px -lrTj8HvXSdSLE/N9N57L6iDeu368/RNTvwhR776X1KdOgHKcUqhl7yI0Pq/r -GH0xCce9jfzuzC7CZq09X9zlKWCeOD7ss7UI5TyxOrGK07Bvq4pyjXUJHGxv -uZ0UnYEd5gHrcfxLkFq/4+zKjlnQSP9s1yW5BMtinP1X6cjQ0ZFzw11lCYYu -iL5k8yWDo2Jl9syZJdCgqexn2CbDiH9v++WLSxDIzv87xo8CKuz1Sup3loCz -eDrJhnEOKo7rmQh7LMGPb+vfC6LmYGswOtIzeAkas7tEzovPg+WXg5w5CYRX -O2P68uZhfDZEcDBrCZxa1k2uGC9AoGPc99gfS6DGFpbzbWQBTn/ZW2TatAQ+ -v+0dtdwXIXlW339wcAkkNJ453jq0BH95GkN3LC3BoIFOqlDlEhT8vHtDhmEZ -tlV5OGZcl8G6fc/W9t5lCKxuTrwgtwIGB0wpuZLLQCkfMmEZWoGh+0mFV1WX -YY1ujUvk4ypYjz+DRuNlGGUJTQu1X4Ot3A9/lGyWAbcudsyUWAeG2t9RAY+W -wVVeb5aKfgOqP9X4Fb9cBmmlfWqO7RvgFUWf2vtuGe5FkdLTKjehrs62YzNn -GbIv/KWW+m8LGEyvRHBULsPJMKzhbMw2KL9XFRbqXIZfR0NjVExIeOLy1hMT -yjIwC48ZebaQ8LQMxmIX+hVIlO65heypcBkOZupJ/hXodH94NpSKGpddMGf1 -kF8Bly+hb75GUOPzwSd66PVXoP8SuXMUo8GrjBdH9tqugFaVENXjMRpc8vOr -32LuK2Ai79uW+YYWd9Lfn3TzzQqsnNm7lW5Fh1sn7Nn7MmsFbP04dFsF6XHc -zunA598r8DJByTWUjgH/wy0aQj22Al288rtYFxnwho9+kxN0q0Dy+ir2YIgR -f7w7ln9CaBU+O+QIrq4z4Vvp76e/aKwCp0SxhQw3C17f9f1hwbVVaC8Zyqi+ -ugM/6fOyWejFKtwvONu8VsWKX9baKTWYSawXqPrnhuIuHAIPPz/ctApCR7ce -zDuz4deNApsPbK2Cv5e35N1L7Liksseh3WJr0HtM0VHl4m48NvjXrJ7ZGhQ+ -gt0qkRw4Fqyc6huwBkwPlOdVJzhxS1pJpaXSNZjpwaRQDDe+YRkp4kSzDuQ5 -kUm5OB78L9uGgKj+Okg1RCgGzvLiVdErF+berkO/2YdLoeL78Xod7/xLm+vw -3IhZ+YuAIP4iS4Rx6s4GcO/Z9zeTThj3uvpU/NjmBrS0RR45xiWMC2ibOm1u -b4Ds5S+5HcLCOKa4FP+behN+Vd/keqkpjPd9Mmp3ZNwEGvvRRQ9fYTzkcRTD -DMcmdD3KyZPaeQjPqlnjzpfYhKyCaq081cO49DNXr17rTfA3NaY1MDmMO45i -xujqJoQJvHHltTuMs5n87Htvuwka+edozoYdxrNCcgKe3t4E2WzjFNPxw3iI -5/tzz1w2YVvY0N8nSQTH6YfPfYvchEJcJnNQVwx3tGlj+N66CUcHxIsFbMVw -NtIA69fOTQj5Quv52UsMF5hWPljauwmJYuzPfhSK4UZeydvDo5vwOJ3/+Lqk -OJ7QqKcdsbIJMXyHLA1FJPAEgQSpHL4tYHuom995/wh+ubozmvfmFhxPKWo4 -/+4ILqDY4OpwdwtmnFj3PK48guO/3v1X+2ALQnRsBbP4j+IJb9q0v3tuwf3q -DO3AxqM4rjihYRqxBarSTiVaMtI46Zt7yNeKLVDy0y2RF5HFvZANfZ3CNoia -jmYkGcrieKIFtxO2DUwl7pm7nsjiWMiZnJO622Cx5aHPVUfkB2sK1Sy3wVhh -SuGQvxyOtwftMXy6DVn0tYWL6vI4XqapPvd3G1iHszeVveVxr2zgzB/YBh0H -tbikMiJXDZOGGSL/JBuhfeY4LsDLJNRKQ8IraU2cNzwVcFJ4slHufhI+8WGq -5HPISRwPHt+6YE3CC/cKhLswKuF45KCN5w0SPh1ye/ORnxJOmvUYWXYk4Scm -fo1rRirjJInLX9d8SHi/msxEsQDCvag39u7PIeHsP/cUmfYgnFQZsPFfCQk/ -FJBg/58phpOCOiN6qkk4r2B8gpmCGk7CczOMx0i46nAgmclDAydxjr1cl6DC -b4u6cDnIa+Jechqn2xEVLuHZmeRGpYWTyOnWqueo8JOoPzBwXBsnbYz4ffKl -wlXOhqkp7dbBSQVRF+wTqfCm+SfJFjd1cZIBHiSGU+HJTrtrn43q46S/Bup/ -mKjxgdbSyELMECeJfkB7FajxvhSHW3EHjHFSSXlp4W1q/O1wz+EbB0xwEu/D -IY3P1HhuqzwmvX4OJzWP7dCgpsG1Rrj2PHplgZMULVoCHtHg3PRNtpPNV4j5 -4pOyZWjx7/F2yyGKTjgJq4iv56THDeSIx+6rVJxEEpiot2PF/weq6bOX +1:eJwd1nk4FW8fBvBjV8iWlBTJ1qLIvtQzllAkvyJCKGRJJWuhHCSJpJIk+5I1 +WyJJ31GUpJB93/ftODjI9k7vPzPzue77mXmeueaamX1Xbp6zoyeRSNrE5t+e +wxz78Yj+LkYckktbGWF7QZOaSo3dP2vFTx6GlyLhVj/vWP1zKuWxMrQGlp5h +r7hIGMuqFdcAo5q1+RitC4TJwTmOOoAdrlZ61X2eMD7L81IfFNXMB5z5zhGW +ViltNwSa+knpLYWGhBPf91ifh2Pl6WMB4mcJW08xDRjDjUKNAzp6ZwgLz9Iu +mUJW+zMWw1I9wg/f6jebQVGy8eQbq9P/rvcqQPcS7BZzuWV27BThnWfXS6zA +K3Ar8ydJXcJNh1h5LsPrgmOXDNV0CLdx+2tfAbEds/dFHbQJ198MvmMDL/uN +DS0zThKmaMpn24K+wVGFuRWtf32VpE47cGpgt3Ay+2c1nd6t9sC7RaLu53dN +wqn8dMoOYLZYPncL++eDbjuuOoIZc+f05hcNwvcCpZ45wc7k4zv+M/jnXK7z +5ddA5nE8KdBH/d/1aTSuG+BS4navc/c/1z4IUb4Jl3QzvnZUYISzEzKlXYD6 +Rb3zs+A/r+66YHIL7p3oFAtJQoQj1kQnbgFT0x+qOff/zR7v6wrfxsuKu5lO +YCRy0+uYRDdY5RHX8w45TuQSz/cfc4f9WwbHi3j+Wabg8ld3mNETjbkup0Y4 +9AnzsAfY3+/IU6pVJcafenbLwxMcR4oDlR3+GdOOYfKCG9vkVWqyVYj+J7bD +YrehSymnpffcP0NQdNFtuBNZZSG/rkw4KuiH5h3oo/No6jX753F6v8vekM8v +tveDvBLh4IxLMb5QfX9L+TGqInF+gRfbJe9CgcXcJOT/836NmPd3YXfFfvUs +2X9+s85Xfw8O5fGwnDRQIMZn1rv7k6H6ttuO2p2Ehcuror+ToU5ixrB8SB4j +WQtAOoc/6E2FziWSCZNrNR6+8oc/zfpo9pscRkr0dL+UHwCXDZ3Mk18Stnau +KVsNgCKhDlqQI+G+jHxGnUBYL4qMfMv1r3/zjUl3ILzUKT+ud02W6H9qZ9sS +BJZRS29PaREW9nauPh8EDNVSO8X3EiYfVnCNDwK5gcTdF5uOEeNHn4bLPoAq ++6GCnlOErfNm5iyC4QZDaxbpAGFhy19C6cFgVfLseA0rYfwWTW0uGOTzat6c +qJEh1tvCqR30EGrUNbJEjAj33bR9lRMCD5Ormw+SpTESpc7GZTkUxvVme7Lt +CVuzaGerh4HfR9FzkWf/5T992h6FQRA1xClCmHD9m3tb9zyGys0V6c7HRzGS +9LbVeiwctJcK3j7SPkLkVewMmhFQsbXhurow4eiPt1XtI0BjWzlvwF8pjBRx +TPBGaATUcG7xjMwnjE+of2mMgGpDr+osEcJtcYEStk8hJOb+kbOCh4n5ulAo +gc+grOurvs3mIYyEsRm7pj2DzeFmg9qBQ/+eX7PZb89A2eD6m6gswtE1Tl1b +noMzZ7HPwHHC1d9CAp88h4ZvY3P7XQ8S59fKZI+JhJeZHh87LxIm9w7qlUXC +aAj5YKM6YUNx1eCuSBjHG8CXhzA+aEbd+wIOmHv/F198ACPl8+98nfICBGtD +RE9vIWzbx6KWEwVFWR4lDxckMZKaPgf2KwrOPOZyXe4lTGJ/hs1EwRsLXzuH +EsKSXkcVpV+CntrkOU8Hwg6lZ1ffvYSZB44hxX8kiDw3bvBjNLxLj1Co/SqO +kWqnRIy/xYDc7ZSHZ4oIF7HUGIzEgI36AP10KmHTW4knmV/DQe27s/cfEGZ3 +Gj+o/RoWffgDtukRjrx1pqnqNfiFXjVRaxfDSDnG+mmVsWCx99GdURbCC6fG +jfF4KGvg+BS+KoqRbmuVrfbGw9k1xbLTs4QrH+xN2IyH7eJ8bKRWwjmaKT0n +EoCJQ73/Yjph9/kprDwBTlX53o/VI1zjYlRjkQjfQ0QqeJP2YyQDPnct0yQg +O7+j548ivABz2o5JcBV73nUolHDkwiFd7yQYt7FKDPEgnLvRoR2bBHGLAfe4 +9AgnbtOW70sCQw8tffEVEYx0lcm81T4ZFFx39NhaE64UNFLyTIFpoeEkfRPC +fTYJ24NTYAHj0VE3IDzuVzP7MgVyf5SUG6oRlmCrTC5NgSA2r4NMuwgf+WO5 +upYCAoPV8dlN+zASqzjpdmAquF2UqVMzIuz1eiP1SRokPpLax3WGcDGnpnpC +Gni0UucnTxLO0Eztyk2DYcqz9k+KhBUtgOt3GqxdWe+p2E3YTdrxBvsbSIlj +ldIbFsZIB3g5SSFvoN1ysnTxLuErxeFk/3RQO7HA9cmL8OjtYLqn6WDQwiwS +cotwRX6uf2I6lLq6ayjaETbyfeQH6dCrwyY3oE94WTno1no6uP99MO+wh7B7 +IPXInQwY3Rcn0BckhJFSM3t5XDJBzXNckMWb8I6XhZXkTLjw+263yo1/uWei +x9NMaMR1UPUFwtzCdU2FmWCRP7PrtiTh43cePFzMhN8Gf+7u+r0XI435/6ry +zgLr3N8ZrfsIb1fa8fp+NpjcFKhyHRXESEMVnD9evAUy5ZuMdQ9hRu9Ty2lv +QZvzZKVxM2E57grx4rfwt/juwYtfCdvLXfNveQtnkj/mQQJhWnSRFH8uDDH5 +P6IzI3wxz/ZKdC4cNz0fyN60GyPHRDieiMmDJGpMtXCXAEamVUeN/coHT6nv +4VrNAhj+5aS7VXM+VDu0mlz/TbhfjamlKx8STXw7fuFEP21d/ctkPgw+W/r7 +I43IH/sceLmlAArf9D7NdCEc87rq2MkCuLxX+XTvFqK/otQi86kAHlmwSW09 +tQvD9JaEjTILoTFZqf9aGz9GUp5pbEwvgpRi/8xnBTswjL0LaH7FkCRtR2ks +4sOEWWNr205/gNrlvovaX7djfUoPNL2UPkKM30rtyl9ejHSerusg3SfQtNfx +u6XEi1lzSqbxTZVDsryeXEwYD0ZmfZI+/QMgOPdUU91fbky6QEN+rQKHjqEt +OnJO3Jhh+muzyrwKEDdqiVOe4cJwvkNRo6FfwLrz3bEzrlzY8qzI8N3bX+Ey +b65JDx0XhtXbSdZbVsJD30d//DFO7GG+xABFtgoci0B80nsbZrq1mSy86xuw +Gd4a1vjNgWHPs0pMpr9BQuCzpfkjHJiSoYZ/edl3OPX7/FGZMHZMOqp7Z92r +anBi57PuWWPDHur6JP9n/wNS8ll8SU5smJFMrfwRrRqQPXGjLL5/KxY7fYxX +aPdPiOTtoX532IoN2Zp9muz/CRf85SoFprZgGF3adG5JLfSm4jTlu1uwnCUm +waC7v0A3zrROj28LRonTWO4+/hvan5uze2ayYgs9PrG/2etg0MmjQ/wUKxap +MCqiUlsHjv7MUbuGWTDvzyRsWb8eVkeuC/qEsmCiphaVh3Pq4ZyB9GeqAgsW +n6JkW8baAHGvJG+X9zBjP89u3tRwboB43bYQ7yfM2J+LrG0XqhvgLWK1K1Zj +xn6pXjqCDv2BA73zPM4zTFj+4Rsbt0P/gMof5wv96UzYfUS/6T70B3hRrCv1 +EhN2oiyeXkCrEZ4M2E0f3c2E9Unq4LGxjSDTVhb6uZMREw9oY8mgNoKZoj/X +lleMGHN0xnG5s02geL26OceCEevapxFYn9oE7z/GVR/bw4hJn0gS/kVqhkHT +OBLex4ANXlb5oG/WDDcvDWUtZDJgH00ordveNsMTVelLh1wYMJGfGiFszC3w +k/TSvFCVASNLnmOwM22BUSXppxaMDFikrFRTR34L1BimO/rV0WP/rSsGUJhb +gZzBO+ycQI9ls1Lin19oBVH3we4YZ3qMKyLmP+mcVmiRcLL87wQ9ZhlZWOq2 +2goh/F4Jq9z0WD7/iYgQ3TZ43e7STjdIh2kVhcHt121whN3X9fAHOuzTNblU +1bE22KaoffHXIzqs9aSVX7lKO/AIdOVqW9FhNtrvYzhD26H88W2tMEU6zDuO +8dfl5nZ4dFtp1ZqDDnM7fWbMSKwDvIZfDTePkLBoq2BBq5sdcLjbt7qmgoTt +mESv7Us6wE39YpZdDAkz9xiTXmTsBLGnWy9beJIwGcab9l/0O4GyIDDOYUjC +fJs1utdfdUJuA2v50mESZvj2YEp4fyek5Z7tPMpGwmjGj53lJbpg1/Sjquu/ +N9HnAnteGdcuKGusGvUN20RIuZM5o6QL8pTZus9obyIBtQKaJX03qAWuuqfQ +byJ2oU2fQ3rdYHVex/RF5QZ6UhxuEx3eDc2xG6vOARvotsrJGqnWbohv+LX+ +9uQGmt5966unQA/YOiS7c7BtoMIL5I+r5j0gJMNOdqtdR6bWckHPk3tgJJgt +Z+7ZOhp+oaVLGuoBo0arI8+N19GYUTf9jYO9kO85flRLYB3dtxXv4r/ZC49u +Omx8GVxDPO3HJEpyeyHxuJ5/QOYaihcvuqU53wvnyaSdE25r6GygzprTrj7o +NloM4sPWUHBD3B4bpT4I333ZPZaVGJ8cGl59sQ8u1fPcC29eRQvxTulwuw/y +8PUD8/GrqHPfhrdgTB9wHRXrSXZeRb0BfR95Svvgz1TlzSnVVXQtO7cUa+2D +8nc/lXGWVfQ7duVw7VIfuAo3TGS1/kU7ZU66bfD1w0E+a3651L+IXu65abBC +Pzj8sjQ46/oX/d3Ld0X3Qj9Y2qnx/Kf1F80P+8mVu/WD6rCrBzPvX4RS+Hb7 +P+8HvhXzjyHDK0ivs/LeZn4/yOxhjLpeuoLeNCS7fv3VDzt5Jo13PlpBrHc+ +vqib6oczflcDHSxX0ON0UmnSlgE4VbS08eToCrrXKX2xWHIABl+8zOGhX0Hn +XKQ5uXUGoMk8joGvbRllyQb1qtkMANdVt5nNrGXk1XRwPtV/AMKu+h0z8V9G +z+gF+gbjBmD6ziGXNKNlJBB8msHs0wDUmpSJyh1YRi5c3zL2dAyAi0Gc0Ta6 +ZXR/m772l8UBaDeJy5hpXkJBcVop0byDMKtyKnlL7hKS0QxXMD46CHf5RS5o +Bi8hj+yvPx1PD8IZAa6liEtLqG82RibbfhCmBLbYrissITzTvqQzYBCyFKVs +QziW0P6kthW5xEG4frWkTHqYhganLDdHPg1Co2fJO+LLhW6ws+ZHtA6CwoBi +SNFLGrJo/FBtuUD0zb9FBLrS0Nxnp1VJziGI2kZlOm9AQ7IrOQ1GB4ZAs+6s +90UJGlr7RJNNOjkExRvyLRgDDSnw/jwwZzUEnf9lP3HoWkS38IM+lr5DYBvx +0dTuwyJqCxuzaYwaglWF4/HnXyyi0sR7q7n5Q+C4XWg29OYi6npn/C61dgi+ +z/tnBOkvokiBlY8ZI0PglNcS0SC+iCbnphQq6YeBPOzsyU6/iP4kZ1jr7B2G +rL2HMVrvAnovf06tV3EYglszilXKFlC5onV/6PlhcIxwDRZ9tYCKzpwIM7w+ +DLFbFJQnvBZQj8NCeOCDYbBvZZLhMVpAvf6I70fSMFw2f15Yd2wBca1dEjpc +Ngw3om63L25bQA96A2sTWobBdig3Z3FyHp0zblsImBsGniLz/b4/Cd/d9uvh +1hFw/Vvz41bGPDrjPhoeJzYC7+c3Lo8Ez6NCl9b3rSdGoHB09VGd7Tx6d1vo +spDZCKR+LPMI1phH7U48ZR3uI6CraKhcIDKPBhWM1+HxCFx0E6IZkeZRxetL +iQUZI2ByQbvSpo+KZIJOhNZVjIAQjzbIVlBRkczPYbuOERjgjbsakEBFxZl4 +I8viCCRfmFqXJlORwbP7te0co5CraS99xZKKRJ8+yyuWHAXzlnync8epCMha +bhyaozCisVMiei8VndLxe//SfBQGZV+p267PIadShaTDnqNgMjjvSu6ZQ/Hc +bn208FG4XvSl3hCfQweE2HJOpI+C4x7u/KyEObSxp+HI04pRELSw6tLzn0P3 +7wb+3N0xCtecwg7csZ5DZLuPhwoWRmG0YPK6KTaHin+8Lq3aNgYCK1//eIrM +IVWx0+3bJcZAi5Ulaj/9HCp8fcP0pvoYbI32kWMboiCHNe7PTGZjsNCDWAK/ +UlAFeyhDhvsYMPvsn01LoaDGg3LWteFjULrTpmgtiIKGBNnDjqSPQdN5tr9D +dhTULsFTGVcxBkwsH13WdShIxfhzq17HGOw6jyWWHqQgSSWuPfeoY6DPFs/H +ykZBjywF+z6zj8OXM5bs9J2zqOa2Vz0SG4eHV05V7no9i4JnxG7Vo3HQLVGv +d7OYRVLSIrqjF8eB+7CF706RWfTFo08fuRJ57Q4YGJhB+ysUt2aGjcP1vZsi +1PQZdGW8LtQobRz8i4dalG7MoGgvIdfg8nFY279tIuXoDKLr8b/4u3UcTg6S +GPUXp5HyGIe3CWUcWHyZffiLp9GXU0Jk2tYJyGbnd9/tM41+KmXytO2fgNfe +7vIG6tOIX59UraE2AQsmskZJ9NNI0n1E5duFCfBiHswUr55CxkZFUmE3JyAu +qaL3x8Mp9PTYgNL1RxMQfMbvzYvTU8j3QkJ3e+oE+Hcr2oRzTSFYfx//sHwC +zi2QdiQ2TKIg1yfzxm0T4CGlUNcZNYmoaud07OYmgDFeRl7l0iT6GbN9dXPL +JGj/F/01e+8k2mOitPxJdBKowT0rmkMTKH5Nh7vs+CT0fOQImkidQNFKqUE9 +ppOQWOdclHN1Ar1PV90Z4TYJOz5+VHp+eAKFtBx/6B82CWbBVcrk6XHkfCu8 +KDZ9Euzr63ZGFI4j1V/NMkv4JIQp625JdB1Half3rd7rmoQj9kJKlbLjqGX3 +WauopUl4ui8xc+vKGCKJcxlMck3Bh/IAHZ3SMdRG/zfE9fAUULKcHqXdHUP7 +cnP9FLSnQPmpVO0OzTGEK/y9+dBqCgLVXru7MYyhFg/JQW6fKeCctW+ifh9F +9M/uNTRHToHn2cxUo+BRFKGwGdGcPwV7Q/sf4zqj6LJj1NOrtVNg9jTz8n/s +o0hn4qrD0ZEpKD6S61PycwQdlv5GUqGfBt26dzqaT0ZQdJS+lI/gNHANZpR0 +nB9B2trsO/UUpkFTgdFSmXcEBfvqD105Nw1XmgQDK1qGUWlex8Fc52lQkDY/ +yPRiGEnIhl3WDpkGr6+FE24mw2jH45QQrtRpcE7M6h4XGEbVZoZDjp+n4UvC +fP/W9iGUKK9G2dE5DRU5S94Wr4cQthasQ12cho5WeU890yFkdVJqQJx3BvbE +XlVT2DGEbsUb3Js5OgMiWnoWpm2DqPa/X3p9p2fgQQ/nPcYXg8gNI/cfc5iB +vRmn1ieMB5Hi0IH0t4EzEC1/Sa+RfxDNOvY6l8TPwNkSmqJM0wBa9XuTfODT +DHwpOdjVEDmAbnIxe0PrDFSuiIq2nh1Auzi/batcnAHK3uGFerYBlLlto8Cc +dxYC3PZo8tf2I9+BE5PcR2chQWjtVtaDfjRxkqaDzsyCTXfSy/CT/WjHc62P +Dx1nIWtFUt6FqR+l9SSqWgfNws6A1Pog6ENWkb8ulqTMQrPUg29Ld/vQocvX +OcTwWXCwllx/qNCHTtj2/berdxae5GcPL430Iq2acxf2rRFOSp5vuNKLgnJW +bczZKfAhanS04E8PGrt0tH96NwUE1kr2u+j1oEMMxlLBBykQGxvJx/ShG9mo +kceuqVCAi/xC+5p4N9q3Juu56zQFmkX7N3/FdaGQG3/v1JhS4J5A9noVaxca +3Oec+9OBAgY5jOHVvp0o+smJ1N9eFCg8u//aB2oHyhYWYXz5gAJ/DF7Lrph3 +EP9jLFpFUUQ/aN726u92NFAZnVuXRgGJmtk7k7LtSPaQYJVmMQXOqG6S5V63 +IS2H47J+3yiwvw2HOrY2ZGPJNVrUTIGmIeG/sjdb0dENZg7dEQo4T5QwrnW2 +oLj+vBuNixTwSOA+qa/agniYmxlx5jm4x1g/cD62GX2Vcs515Z8D1eYf1hPM +zWjOzvDULok5UFLvvpFn04S8HgyniynNwZLr6kX+mkZUqnI7c7/uHGjOy76w +PNaILgbK7x80mYPwR98zPcP+IONQoRB2xzkoV0VT1pQGdPxEyl+RO3OQlvy2 +4NfJBhTH8Tr0zaM5kKexWPTH1qMDMe/lp17PQcn9CrS0Wod+P1ia3ZUzB7Hh +lj9NEn+ju5s6+z+Uz0GSEJWHZvoLCegwhqr+noPjbJ6Smny1yEVc9IJPzxy0 +a/gztxfWoH1eb+iPUObgsmaMuJDdD9RkauiBk6hgz2zRMLv0HV1K4kHfeagw +Nxu5/ibhGzq2pck8az8VKIPyZ2inqxAX5dcfLTkqJK5ZVNc2f0X58/wR57Wp +UCj102Sr5xf0UG8XpmRCBfPhT4WLCziq9XkjEeFIhXP8ZvfeT39G7rg9Q4wP +FaIZbzQ77vmEFMaU7FzDqNB8SsBCkLUUcXJ2ln6Ip0L6W5M2FaFi1Nn5vu97 +HhXe5FWzGx5/h0J2vgu+i1OhbGaBOsybj+rjuZSi/lCBZCe2U0U6C1G0WcOc +B6kQPpL6xzstBQl+3tx4uUgFJ2WrKDG9GEQrEE0zZJmHqbVRq8vbwtBVuafp +BfzzYKyZp3dPTAM926yskzswD0Gnzm8eOPMQjDRfGUsqz0NJczJ1u0AMdGa2 ++oiengdZXJ8muJ4C2LcjBjFm87A16NK3baFZUGJRP/DLcR70XPbcae3Jh7lf +vs9EveeB9j0q2lm7CJ72ehXqhsyDXyZXTXN6CayuPZhijZ4Hm76OZVmrMggo +KSZR0+dhSW34u/zgZzhXacvwoXgekhdXxgStK0D+qktYxrd5uFN4d/Kd/ldw +zz6YeKJlHt6JtX99v7cKpPmLdn4amgep3A35K0LfQV/dgNN+gZivmO/ydqYf +oBnporFBvwBG+KE83rEaKIn0rtfiXgD27mhJjrVa+I9qmFUmvAC8YiNnuBd+ +w6ZPcJPo0QVIYmujBDyph+DKe7L4iQWgGdlYO6Q2gIDRe2UugwW4umMm7XvW +H1D8zCVnYrEA3T/372CubYSv9dT5xmsLsBW5pAT2NMEptWyu094LEHet8Qo7 +RwsMkxKKlkMWYD9wf7BXbYVQV7+oK68WoDp+7aqdWRuYOsRkV6cvgGmo1CWh +l+0g9unoyrWSBQiN0BVRq+yAkdLR7RzfFuD6PSuzHEonJA4xZjk3LcBNDyXe +fLVueFth9XXb0AJUlR+dvXa7Bzi/aO7Npy5AbEyGskFzL0juy7wWTb8IIk2P +7J1e9YFAvRRo8SxCHgPXYhbqB85h+u1zwosQe3vrSNpSP+w3yDOflF6Eq4vh +QX/fDIBXTyDxVVuEva253GYXBoFxcLPgjcEi6D/AMkp3DoFbuHbfJ8tFSCv+ +T4f9zxCcX2gnN15fhGClkWKvhGGgb+N4o31vEaT1jh4qtBmB7692h358vAgp +QmNBtsR/7vaBrrvLsYtwwfPdxZ/0Y8CQIMYf93YRDjZoy0Y0joFxzq6L6uWL +IBZfPX2jbBz2vVmjGf1ehPdZXT5b0iagASt0Vu0l1sOakxR0fxLyxJw6hGYX +YV8Do6PK3SkQ0HRh8ifRYF8hupN/bRp26cZv9nLRYPC07cMk8xlwi3Ihc++j +QUugwCFF+1lwG7wx9fsYDRpebfCyyFHA9mBbTbAmDUSWbvw1/kq8x8/sqG03 +poHU55vMjkZz8HFd9BKbAw0QmezT1jsHjO+0POXv0OCE2TubVuI9IGA5o8QR +RoPL4Vl8R3jmwUrsoV53HA1yv1/3CPs4D8HZbnXOBTQQ/pm9s8xuAcbSfe6M +VdJgSZ5zkIFtEU63fhe52EoDsReGPwsrF2HkcdmFtEkaOGT2roTfpkG4M33X +yAYNTualOV8+ugRLcakH+HiWYGzJgcNnfQmU/P5qYRJLcJ/++Vpi1TKc/9JU +eEl1CQJO3PEqSl+Bti76qRf/LcHkQn156pO/cJ/8hNxhvwSiNT92x99ahYRb +e2u23V2CJC9Bf3bXNXh75PKlJ5FLEMl3xIPh+jqsvHxGpc9egrM/jK1abmyA +1x5H35CKJQhrf96/GbkJv43J7DEdS1C6ctVTyJyEVwb2JMRTl+DDXRm5ShId +bkHJ1LHnWIbWAYvpxFQ6PNZn9IGUxDKsdhU11xnQ47fN3jmpqC+DhrnDUy1e +Bvwb38ywi+Uy6B0VluZuZcAHGN0uF3gvQ5FqoErwR0Z8YnDsml/MMgTfERO1 +yWbCHxjUjHKWLQPTTJ/HYhwzPlSw3vatYxnESwrX7MtY8MKgQ0m/NpbBaW+i +s3YPK44peBpKiRD3BStQ4tuxFf/w+l3Se+0VMPWwo3sayoZnDwaVl7qswMBF +nbZ7nBy4xknMKihmBWqrWz5ojm3DJTrL80R/roBPg6k4zZcLt2YePTO4sQK9 +SyeO9Edz45rqIsfvyv4FeUPlskESL+7rZ8Vn6/oX1vMeGHx/uh3/qj7LvrXo +L8Tib69dfrMDZ1+J3sPLtAryO+KkqzR24UbtNlHGV1bhcPxYmPddQTysc2vW +Ws0q7L/wRfHtZ2E8w9rZ6bnZGvQ4oRi1GsKyHbQNizXIVxLv7WsWxiMkll2u +W62BymEqp+O0MJ4f80zvvO0aTOnX6Prt2YdnlLtd17yxBnWfd30nBezDSenH +LT8FrMGKarVwmKUIXn30XurZ3DXItPFI0Lsugis1Wt88ULAGm67ezw/6iuCk +FP9zLEVrwMezP1k3RgQnP/31tK50DcRcTXR52ojcIuzc86o16PLwv6Bnth9n +/WUfOt+9BhpzRtLOd0Vxa8ES6QCedTjPU/v1W4Qonsh24tU43zqMNWtkn0sV +xYUPqPdf2LUOL5IKf9DViuJc6TevaAqvw4PW82+b94jh2Pkn968eWYc6j43V +A7ViuKEdX+643jo0H8j2TDaXwLlq816lhq1D0p4RheNeEniEoQx1JWIdFOU3 +rsk8l8ATU73bTF+sQ8UDbECqVgInFdxckY1fh9b2AO58DUlcGOl42+avQ9kj +ppoOzQM42TJ+Z0fLOnhP523xyj6E43IiNjVSG1A/kqJ6vPMQ3vduw1tDbgOe +aGu0jLMdxq2luIfrVDZASpHUxetyGE+U7R0/rLsBs5n7qh9rSeEkh0MRJNsN +aCF9iH0qfhTHqySLsxM3QP6GNf82x6M4KV/2/o+MDVhMFP1v91vCqn8aWQs2 +gMXd5Oz2PdI4qXjBjFKxAUr9OSGM76XxPsWEsfvDG/CCJHLORuAYTpZ/rrpN +fhMOb+cSP3TmGI5re6RMok0QB2O/R/7HcIy/sJtRbxMm613W7WeJ/htb3cXL +mzDYM2FwfUAWJwco1ex7vgkxzuaDJaJyOEnpT4504iZ4dnbV+jnK4ViKefmL +t5tgPGQsemSVyK/IJbr/2IRS70rme1oKuLVShQ8HAwk3w87/EEhUwMnMR4IV +2Ui4pP/iKTqSIo7pPCpL5SXhnHu/cvH9VsTJLFV3zMRIOG4UkNuQp4xjvdeF +a/VJ+KNru/g5VVRwciiX0xsTEv7FLFuov1YFxzNKNmhXSPj7nXSmfFxqOM4a +aCvmQ8Jz3GVueskgnExpL1d7R8LT2Xe7ULZgOOmC/Yz0FxLuXyH3svY+hpOH +EkYZ/5DwfXdmGp/FqeOktwt7Py2Q8CXdcYMbSAMnPdzVMcxChwtJJbzknNfA +yYPXDPwE6XCS8e7nL+K1cPIp1VbaaTo87OaZ/PnEkzhJZ8z8jh0d/hS7xCry +UxsnHVyBigA6/EdoOK+TpC5Oqu2Rd0mhw6svLf8Q/HEKJx17rHq5mg4X3NaX +3F2lh5OOVi/WUenwh/BlmE7bACcJvFuKFKXHJ+TtcsO/GeIkuYfyKdb0OCPd +7/5ejvM4KaJdUiiHHh9IEci8GHwBJ92OTEXcDHjVJe5tlBoLIj/rfSKTAT8d +UYVNL1/FSWS2I6Q2Rjw5Uf3RZOhLnESqdj27hw3/H6qnsGg= "]]}, - Annotation[#, "Charting`Private`Tag$13651#2"]& ], - TagBox[ - {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ - 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwV1nc8F38cB/AvmWVnlCQzpLK3+lxKEaKUsqJESMso1S+jklkyygiRPUMa -RO8rImVmZ+/N98vX1+Z3/XN3z8frfZ+7z33G40Qv3zxjT08ikYyIw78zQy9W -HUT/ECMufYrbGCB6elBb85f9Px9LmNwPVoXtNr/v2fxzKvmZBsQuaZ5i+2ZO -2CezZq8OMIyXUWOPmf3L/XOcToDWkwaNmG7Tf/kUT5QhZAYWDLrwnSHMpV7c -YQKKqbMKrIUmhG0Le2xN4cv6u6lHe40Jm4wyDpyD/5ZYDp4wMCIsMkazvgD6 -nKLsJsUG/5xi2GIBgTIfKGk2J/+19+yRnjWEj2d6Wijq/zNa/2QD7dukOEql -9Qg3i7LwXIID+zQdTLRPEHZh9D1+GQQsx59LOB4nnGHrf88ODvuftLyYoUs4 -UUEl+wqwZ0jqUJaPEWaRTOq0h9eL25ycLf7Z60Dv1qvA0qPS/bvqKOGnyyQN -R/glM0hyxf5Z04TfwQlkdu/e2PyuQ/ig5YFwZyiafyt1+tQ/Px84U3YNbn63 -4n384Ahh5y80rhsgc+pqROeufx46GqhxE1pY2zr+fsMIS9/PlL8FkWWL81+F -/tl18tz52zDU12MemIQI01dLTNwGxlZPGSvuf85qiv/PFT7SVc51Mx7GSD4S -52MT3eDbU0rg/cBDhBn0xBXdoa/lnuwHHsIkDZtL5e5AEr/Zf11Zm3DhQaZh -D8j4xr6iXqNF+LLMbY87cIHc2aDh+M+dzTGMd+GIjfmzX9maRHuMAbKSniBV -0b2/7wxhktxSVJEn8B1h/6iyrkH4w/TPo/egTnGLcp8FYZ/ps16X7sNL57Sg -zyrqhJV/WsX+B1GmXfuV5tSI+o607dIP4RK+2wbP/2d73ZgPDyHwyK4vWUqE -fdQGeBu84Dxl/bnuKVWMZJsl4u7rA7UfZpJqdhAWcWCLrvIBr3ZSX9mQClG/ -Yy2N3RdqMwb9k3wIk+5d84/xhbfOfkOzlcoYCXO+ZZX/CMSKvzIkRxEm6RWX -rD6Ca8FnUp46EbbdDNty4jHUO18/mcdFuM/lmln3Ywgv/cBgeE2JyONst7L6 -gf4Ng3snjxH2yRioNPWDhayh0b3CSv/G//WtBD+QjlKmmjcr/nufphClp6As -FBzXq08YUxqYtfKHzxW8sXQyhPF9ObvT/WGl9IbCbxbCthugSfGHmvylZPRL -gag/lnvULwACCxxLxM8STlx4+yonENorpdj3+8gT99v9dFkKhnpX0125Vwm/ -iAlJPxICuGNkxEtjwlwlyc1BIRAqIPExTISwyMWrTLufwUXb25TuZ3JE/25a -12DPIViRsfzZ8YMYSU9QinT0BWQH0J4dEyFMfuWlfvUFMFThh/1WDmCkW+rs -14JfwMbE1MeofMK2kizQ9AJMQjJU8sQINxTMil8Jg/ZRT9oZof0YaezIy6nH -4WAh6b3n6qYsRlIf6bueGg53uy7tbxgg7CNQO1EZDldffIqJzSLcF5rZxhoB -VrGzsSOHCJsEWnmFRoBCULmztOs+or8eYUyxkTAnmXe4z5ywDzVH90skePXu -KWk78s+fhny6IuEui4WDLw/hMcWKSeGXYJmI7U3+KIOR2kdXI5Jfws0Ij/PG -rP+sUqOU8wpU3Yxoz6jSGEmoJFut9hVornaVrvcS3iGyVX3mFUQPG/y8/olw -opf5Qfko0PKUGnngSJhNoZ3yPgpKFLZ7l/6RIr5vfE17STQUk9UX/5TvxUgp -BdiJylgQfLBx7mwRYa5b77GRWBAIWeyaTyFMXT2rxvQaaj7sHgx+SrivUFHo -+GswXZfK5DMgzMBeUvHjNVRsKRk52iFJ9Md5JKIiDkS063pmmQnnP/LA8AQI -kpg+GLUqgZGmGulGehOg06tYy3SWcGmzcOBmAvwanU1jaSPcYMr38/AbeGch -WnQ5nbD0f1oyZW+gfDq/MtXgX96sX2aVCNcFmEd3J4kT42X4S/lCEpj1H1MX -fUVY1VdAzSkJ9h7vEFUNJszRI6J+Pwm87koyRnoQzuO6rhqXBAcvpojtMiD8 -p4pdoi8JWmr8biksixHzZfuDiqtv4eeqCMttW8LqNq2id5Lh/kxg14XzhFNV -h9afJkOiz4Vwo1OEZTwa26OSofSS2T5rbcKeK0bBxclg8GvXX+6dhFu9xwfW -kmH6W03L52ZRIpe+a/04BQ4ESAkanCVsK77oF5oKvBqu/wkbEa6to4q+SYUr -48E2K7qEDRo4yvJSQfvaiP1vNcLturHk2lQYmN2W27CLcFTTHiO2NNBFKd4W -wyIYqW7EsSsgDVSLp3YyeRG+0t153jcdJLas+dbcJey/3af9RToIJgqmxNwm -vM/wzIXEdPjNVjBywp5wAjw6B+mALnUJzRsSvnZR9Ph6OkyVBDnc3024+SZO -upcB2zQSFRif7iH6h33quZkJ+RnGFvvvE6baCr/wyQSePNMjtjcIJ/e/wcIy -YTJejDxtRhgToCYUZkLtcyf7BGnCkWmzJguZUKjSTzpSJ0ysH53koPtZwM2p -mkInRngVM73wJBt2qDG2JI0KEetdBvN4mQu4xjnn0B7C7DHjyam5cH/OV9Kv -hbCBbkPjh1zQY9XoDignfC3bTLY1F2SsFxnJb4QwHz6ySQt/HhwvqJdRsiDy -spGjjNF5MJMzUYo178J85CpM2mLegTznWzOLLkEMe9vGnlWbD94myrpeLYIY -/mQlQqQlH974v1dNryN8Qa/2VVc+5Bw7vZXlG1E/WGX+aDIfQlVkahnSiFyT -sfscawH08HpkDd8icunQpJljBVDVJEfbvZWwSfWP0S8FEFtVsPOU/k4MD+jS -Ws8ohLKk3JQv7QKYT9CymVV6ERiLGdDNFPAT64vP18L7Izy0FhPU+sCHJcar -7OY5+Rm2FJe1lpTzYiIRpn/vq5WAQLSv7IPV7cT8P5VJ3fwC6VqqhnQa27E+ -C77VqIkyCLDySlR/xoORBqxui/wEKJTyOfHfKjeWvxkjMoXjcDxV14LszI31 -8X4weZT3DX5aMKQxzHJhnsXcfK5B32FbrXmztBsXNrZx6ODvO+WgLNKT/oue -CwvwFs7rtKoAT4Ozh+7rcGKfvb93FSv8gMgtT8uYHnJg7bI2wa/5K2E48+yi -dwM7toPFyfXJRCUE3OR0PaPAjuU3z++P/lwFKmQUXPScDfspKvX15Kuf4ORd -+uXJ5jbM51PP8A27avBMcbxS67IN8zz9bagH/YKAfLod4UNbMZLapa8X+X9D -sE56Ue+1rRivEItGaddvSNRvemYxy4o1M+s+IRXWAHOHxNs3PqzYsVW6ExZ3 -a8GZ8zNf2w5WjNpgEqakVgfa2pop+3JZMB+mFN8Ixnr41u18l96IBduRYCrm -WlEPuSrmm3vGmbE+jqScCr0G4NK3omSGMmP6Dd0D2ekNMCaQnaCvxYzVa52e -nNzSCD98NrWxQSbsRPDvaMGrjdCyppu/N5IJK/02HN/xvRF8vJ40hx5hwmi3 -OnQvS/6BkF1ZV13nGbE2/htrmn5/YPKF8TR3LiMWLRgY19H9B3glvXRO2zFi -WFSSBf+hJri93VenRIQR+7guR1Z+2QSwXtbn1s+AIca91zsnmkAqrdlpOoEB -25CnOCweb4bK4Dy7sssMWOJ/h49LxzXD6hGIdRNnwHiytr/OXWyG7Uwpz+RH -t2Dh+CfNDyYtUDl9jyU8fwu2ozSdwpDcAn/cDqct39mCUZt62x+ttgCz33BU -ns4WTOmd+z07o1aYOPB1KGjbFmI/KsoyTW0Ftgyyam8rPWbStu/h4EoraBjI -Cq2m0WMLN85eYj7ZBizHzmdbutNjy3hvqsCbNuCX7kg9cpwem7dwSmyZboNy -4etZgoL0WFFOcICDZjsoCZp1mk7SYZd+fJIrD2kH4V8vNfNwOoyHXV1+tb0d -WIqfizyOoMNGewS0h/Z1QHyseLGcIx12Jfc3R8L9DthQGzdKxegwtUQebduK -DnhasoTl8dNhhcPrnB+2/wVRqbydZ8kk7PyBbZEy1n+B/Oey4L3fJEw+1/9F -fMpf4In4ZK6XQsLOuGfzBlD+QhBzB+ctHxKmNUOx+aLeCbWGlHYzCxJ22fu5 -0Cm/Tjg0R3vqqkbCymS2xaOaTnhofD+xk4+ENWR4vtPj7oKitOKfckObaMfz -kPAoyy4QN8i5//btJgocoC++ltgFJqGCvr1Wm2jpYO/rWxNdoKrTaflm5ybK -bXD9FKLYDZjmCR9q5waqKQ3KNPXohqgOr1612A1Ec7+WqVRG5KHJz7qtNxDd -4z1zjZvd4NbtVvVGfAPJN52yzcN6gHqnnfH28DoaulPE8vxpD6St1OqY5qwj -z4zZGqOqHsh6rn7o0s11xNAzWLfB1gsrDoeL/1NeR+1LxkozJr0gWWHUcHFj -Dalz8Ub2hPZCx6NUSmDFGqJeKRLJaeqFe2745LnQNeQr6d+iy9oHNLGDuYOW -a+jze6vGYak+OK7rJt8isYasul/vm9Trg8K/SYH75lbRORFl9YCrfdD6RurD -ypdV1POymvlxQB8Y6q7GcQStIk+jc4670/vgQIyqdon5KpLTa2KiVPRBg6SH -9JLkKvqSe1tEcLgP0qgFWbq0FUSvrXKeTN8PrlrsaRrlK+gy70MlPvF+WP9y -xbksbAVpt9j9dNPpB7FMXieRKyvI0d4mPMSmH3YuS/cfVlpBNoJFXlNe/TBx -zmNEnGkF7S2Yc2CP6we6lh2Hrv5dRi/cxGM8PveDfouK7L3sZRR2dohXuK0f -WOciVWV8llGtruy+iPl+YKcfFft8ehkljRzo1+EZAFndvs43EstI0lLqkab8 -ANBiOGibK0voNe47zWo4ALy7LJlN6pbQmbenW9mdByCrLmI/Y+oSymy/eW7W -bwBy82v9P3suIe7Rb2aklAGI0zrRk2m0hGKTlZttvw3Aid/i93oll9DTGx78 -mV0DsJ3FQVtsdRHpKJEe71oZgNN89u7RTYvokor02n2+QXDM7aXty11EZAHF -J8rygxCUaivX/ngRfa8Xu7bdaBC28mIC8daLKNkk1GTs6iB8wmkyAcqLqE0g -PqHnySDMSBWuBrMtoo47W/vlkgYhyuGk87NRGhqXyMn3/jIIpY45LN+AhsZe -xnyfahsEDepU31AsDV2Mpm+2mhsEBbaDqUx3aShoTeqbPNsQyF2yd7U3oaG4 -3bYnhKWH4MZF7lMJ+2nor81THX6dITCXmDu7m4mGeBhTGyQuDkHzD5Uk54EF -lGkq0XbEcwhiq7d2p8ECOn9NuacqbAgYGYQSFWMX0Hyr8/1LuUOwfXey1L27 -C2is+7EWV9UQCNRh/AJnFtCx9Y0dDQNDMFeodzTpwAKyuuktubI+BMXGVl1N -2xbQsolxOhIYht+BaN1+lIrWaa+HIhSHoVkB44v6QUV/2doHmQyHIeP8wXtJ -KVQkrPgpd+LKMDCIH07g8aWi3TJ5Wp3ew+D5cLfQdlsqCiz9MzsbPQz+HizX -fLSp6NOH1z85i4YhjqUrpmInFZ1C734k1Q1D7L0Gt8DleSSb9IFqNToMtGsX -D31rnUeWFxsmROlHgE+rbJfrx3kUZuJczLNrBHr3ic7HRswjQ4cUZTbVEajQ -W/oQensehTSOivxnMgJaAqUfyKfn0cvstcNCTiNgpRqXWCc3j6Y87p6qeDwC -lqRXIjxc8+hFz8/OhLgREFs1V+WlzCHKa0V3atEIiMb73o6qn0M3VDfjTteP -QJMgnaNH/hyyeyDZPDQ6AgfxLZztz+fQnkxZQ2/6UQidOjBCuz6HmidMH70S -GgUWulpzB+M59PmMHmlUeRSu3bT7Yn1wDhnxo+XDxqNwQXbNPZFzDkXWb59v -vDoK2ElyQySFgthMGfcMe48Cdbb84/ZGCjphJXyGFDsKEVUGPi2FFORT6c1q -XjgK5/Y4bpEIp6D3VNAuqRmF3cEOeaKuFGQfGhEcPzIK3UlMNyzOUpBkzVoQ -vjEKUvlhL0SVKYgn6J7c9I4xeNBdlb+Hn4IuI7siC4UxYDbsC8tdIKMwTuXG -PwZj8Mn/aOlgCxm9vzu+Xm8/BlMCKUYnP5ORisu7OE6vMfj6KM7oSDQZ1Wp6 -xFhGj8HK43At+/tkZPxsZXwin2jPY8/DfdZklHvYnpOuegyGb1qY+hwiI9Wb -LomSg2Owa5dT/foeMmoOpd55vjoG4W0f6NlIZJRVz+nCzD8ORU3CF29/m0Wv -7gYEs8qPA9l/WwyX/yyaSDDwN9Ebh0iD89n1J2YRW+Xhs1mXx8HU/m1UPdss -+rTH2Ub/wTg466nb0DfNIPnfFyxcI8aBzWbi5pnIGZSx20WwIHccBMRua3SZ -z6C0SItdKpXjEBvvK+8rOINk82PONPaNgwwnpcuydxpp1PMOFi6Pg0GyANel -1GnEUd3FLcIzAXP8hVsfOkwjz117GTL3T4Ab693/qmWn0ceG4Yo7uhOw/2QX -j8zUFOp/fF7dznYC5LLdrHJyp5COoBxfz/0JMHD7sWrpNoUmL8s0x0VMwL0U -e8sdylOonYP9kVfeBDRkcr7fWJpEVoHX3iVXTUAq47n1LTCJzCzPPjLrm4Cq -1ewKDp9J9PDw8mf51QnQiyw3PqI7ic61PVs15J2E8B0Spm6MkyiLOmQcKTcJ -6jtsMksrJ9DCJG7ucnISBBkv5e4PmUARs/Uvn9hNQryjbW244QSqeHOerdZr -EspLL1cKc08gq1nFjrPRk3DnpZpGTMM4cnq5xsldNAmyn9PnxcPG0ZfsrtM2 -9ZOQ6Tyl1XJuHO01ev3fxNgk1E1+D3PiG0ecU+e63jFMwSHjjicSHWPoxTum -jXzhKUi+MtQxGz+Gst9f6zmiPgVlBQ9Xw6zH0NKI5TTP2Sk4fVlXwlp0DLHN -FP0RujEFEefTZ6m9oyjpwM2ma0FT0L7/wueIN6PognO90Km0KTCJz5KwsRtF -H+WT+uzxKXA3t3s+JkrUWyW4VXdNQbXoiT2JQyNoX4pNr+3iFPR7W+VfyhhB -Ky09pwO4pyHd06Cy0WEEibYtutAfnIZ7y9aHPGRGEAODVkiO3jR0BT+6XDIy -jE6HJC/m2U/D/AFWfZWMYZQrWODZ6zMN5z2LL390HkbRR1xEEl9PQ8KeLPsq -qWHUnNb5CP88DaqN3Xv4xofQQxbR8K3N07ChcYdhKGUIFchre5ZQpgFz8Lqd -e2kISVoLuG9wzMAMEhv8IjaEqrP51K/um4EDccIjqj2DKN1qknpIbwZ4t8uW -r8QPItuLwdvUrszA2dOp9fjFQfQopcoKvGfgv/e75rt3DiIBe4aOsvgZOFXG -Wm/UMYBmbW6f7yieAV2+pin6iAF0NjKw+Hb7DNRylJFzjAbQwc52m3jaDJR1 -C9J9YBtAcXqXDvbxzEKxIy13/Ec/krQ4WZihMAtrpvYlvo/7kbXJGRe/U7MQ -kWFlvFOnH2W4sQbMOs8CwxuJyfKVPtQ80yk+FjgLV90f1vR86kP6u4pzZ9Jm -QcSn2m3xRh/KkGEdCaqchQ8X96U83deHquU6vysMzUL1RPCpvXW9SJ1Fx7qQ -RIYm3CqcTqsXLTJvaL3mIoPE9YWc0fwepHa5edlvDxnipfwcbQV7kASJUlMu -RwZv3iGtQr9uxO/991U1IsPy0QFh+ZUulGPE+bT2FBlM3oW7bF7qQla7jLRk -bMig4hX3YmtTJ5q9rCbte4MMv46rn+E43onubP+sEP+QDE5q01tEcv6i81/N -gviek6Fo/tae8F1/0TMfw/1P48nwTrGL6+/DDjSWsK/cLI8Mh2z3T8/3t6MW -Jwem6a9kGCRdSX1l3I6q6iwt79aRQZS/MfL7uzaUIOvF79BLJv7/2t8G7WxD -iUdOph6fJQN24cuReI9WNBiwyBlKooBN6rW1e00tSN/y9fHX3BSwu85xRESr -BYnH1+ORohSY4EwJ+RLZjPzS3+5YUaQAh7vImspSE8Jzz6uePEqBxdar71Ot -m5CkM/9ec1MKHB4dpRQU/UEHGqtvtF2hQPdMU0gd3x/kHWBSpOVB5Mc9txx2 -bEROrwtnuP0pYH3YLvRWaQOK4DDrTIumQD/b6N1xwQZENmRLF8qkgPDHrAtJ -zXWotfFbNdMXCuiU4XVyAbVIWfZxQ91vCuTESDFnoxokt1PnpXEX8T7nXkUp -tv9CEhab67ozFGAZc42a8atGEaX+HbybFKCdrbNj5f2Jyqbdus255+DT1R92 -YZ8qkccJ9kY3sTlYTRPZtnHxB2ofDarGlOZAYe7py77hcsR1Z9vtR7pzMKQh -f7Tg0Xc0c3isLtxsDkj0F2JUNnC0ZWfjGz6nOfCjXN6ttPIVNVYmjxx7MAc7 -Wn6ZUiRKEZ/j+R9aIXPwuVR3jn5bMdo2rSqckDAH7EAjhwp/RKYC+l7f383B -m/Q7KiMa71HRZNPeAHwOuLWNhK5y5KMcOu20nD9zEJh194SEeBay53dKChic -g6/2+HHl6GS0be9r9aKFOXjPKs7wXjkWfR4q6XZgnoea59fMkynB6G/qvepS -gXl49PZItCunDprB5ncclJmHhRsSDYqyAfBss3Bjm8Y8SLo2meiRY+DS/S9S -k/rz8Pf7DOt6ezKo0xsVH7aYh/0lb0fbz2WBUTQbj5HTPBQEVdsYF+fDwtCa -n8e9eTgcl3aCla8Iap5+73IMmIc3+lz0ck6fQM1AZXD+1Tw0NXGwaHB9gY7m -N0LxafMQPxA9zfX4K3TXn00W/TAPog9qTyZJfgNf/9ikiop5CLzqc7eeqRzy -H/ypYG6eh88ZnffYayvgwFeTFIWBeRBbpPnlQCU8yRxYuU+Zh6lZNsulVz+h -WU7lbP7mPHT0y3tFOP+C1TBXnxfsVOgUFZszd6mB0Me5bS+EqDCYXLN95HQd -fNeNPv5kHxUOcqSiUKUGmCPZ0UVrUOHT/qc5PdqN8Hdj5omFHhXuqJudCFf7 -A6sTT/7ymVFhu9e1FGmDJrC698Jv7goVvKip38aNm4F/rGzwlysVhOQFFq7d -aIFf5e7aP3yJ5+t6lf0JbgVHHTsz9xdUqHGfyWqLaYPWh6dkxROo8POya2/L -93YojHFJXcihwvWWX4FKXR2Q1LBIrS6hwkpT9PWl+b8wwGGPnf9JhdXGh670 -0l3QN1igsrWNCja/Kq80G3RD1av0km9DVDBhDOjb8qwHUtQOBCfOUwGzs71x -q7YX2j4yv9aiX4D5I//t8Pbqg6jCqkvdnAsgbTeX9kWyH064VdpmCi9AwZpl -yZWKfhAtJJ1+uH8BxCPO7LtyeQCGpE4tcWouQLpRfWoe1yBcFbyv0aC3AKS3 -77K3fRyE4Y8OeTFmC9BGNp11dBkCq84fLyPsF6DE/eZkwc5hGHEtDYpyWwCG -ftfW/yqHofJPkYe17wKwOFhknPAbAZ/EydMXXizA1L7Oo7Gao0DbHK+0TliA -ms22r5X0Y1AbqbPxOncBdpoe/LT39xhoyv6MSCxdgLhkT+nEwHE4rSn9992v -BdhzMkNc3moCKt56d653LACvT86RPIlJcKC73G82RjxPoVeUdXoSLi4LzNyh -LYDQ8JbEll9TkG357UYXIw1eaPcH7EyYhochmw6GvDTIzZw6v+w/A+8qH75i -lqCB+wM/7yLXWRjmf/8+VIkGPQ7vmRRlyJDzQktPVIcGT0Q4kpRTyXB1xHmK -6QyNWDfR0bG7KDBne3RhwZYGd/f0OYwmUICvK/A5dpsG+9yVHm8Q+9AFxl+X -rH1p8Md15IxC0hykV0Wt+r6gwUnO+/QOB+ahd+94JnsSDSq1/Y4mvZ+HrH0i -44n5NKBN8rv/p0mFcAcajRGngcto9pXYBiqwZB3e39tAg1MfVpPcbRdgTaKp -sayPBnR/uAWzSTQoqOmhF5qjgQiv0tegtzRoC6AonN+yCKpKGt2thxahN85T -6+X2RQh2LGdRnlyEmNGNB1ckF6HH5b3UXNgShDUEWaqqLsKoFk1eR3MZqrh3 -fBs6vgiJalCRRFsGjFfqt7r5IiRL/vwjkLMCE+dPvwxxXgTXVXTH4e4q3Iqz -Foh+uAgPBaU3mrTWIFNFxT85dBEKpctdF+nXwWVCt+ZV0iIoXHq3p3pgHbwE -9zFc/LAIeZrBjo+/bEBysbOt2M9FODrZPuj7bhNKFQ2Ym7sWIUrigeXDsyR8 -ueXSij9lERo4d7rE15Jw+uFxF1XGJZDL8a0JNqPD6YsCk1YFlyC4beMrRxcd -zl3Sn10mtwSc5Nbs/Cv0uEzgp5ynx5YgVMHYcHiTHheUfRoSY7kEu46FlrRE -bcEvBhZvZNxeAl27uPm1Ywy4tt3MX4WgJdiutzpls8SAm3nIqC2+XYI/dDx0 -ExmM+MyccsmXkiVYm+U38nJjwks4f+CGLUvgkxy2W1KbGRdaE/ccm1mCCYoS -ihFnwQUanra82bYMEjEjTj/5WfGxqrzsEell6Jmb+/2JdSsePfHBWV93GQpN -ct+QJbbhN9IczK3slyE/5GNjog4bLn9BQCfnyTKcSVffHnybHT8UUmZTl7IM -WbebbfLbOHBm3cS4+9XLcE5X4LukOBf+FCv7mzK9DAl31AXfb3Dh16XLJI4L -rEAEz1a/N7PcuCPLxMyWoyugHctnMzHJg2t2/fZqubECoaULDnlivHjD5vew -429X4AvTYbacW3y4rdH0d7x1Bd52CKeOTfHjT7etdZ3lXIWTyymV2W078DTu -9b9U01UA7iFHZqZdOHbLurUqbhVu8ITy7qEXxkmNhedKllZhf6Jc6UeqCD6m -SsHa7NfgtbxFmf5jcfzWV8WCR8NrcPNTEkvhC3F8LEAsaWl0DZ5puLYoJojj -F4ozo29PrMHxlDIx72JxXH5UsMxldg2iZ6yFDSjE/czKnwOWCUublC/bS+Dy -ZtnfL3Ksw66kwxXGDpK4iTNzRYXmOmi4OFqw90rht+i8y4WT1iFB2somjCqF -J+ZaFdxMWYfvhXbmJ7dK4w0Bn2Ur09eB4/nL+Iuq0vitGSXuJ3nrEBOe/Vom -TBrnarxZrlu6Dl2uE68kz8jgJvKOR+bb12FU6NieTVZZPJHfzDpFYAPeO59j -PiZN2LBloWnXBiyFbBaMHJfFcX16RzaRDfglTL9m6CeL2171uxUtvQFnYhZO -tDLtx/t2LzqJam5ATcir8HbhA7iIiLvObpsNmHQeft7yUQ5PbDW2VincALYt -xmuT43K4j9evNxafN0B0aaSOyiGP24Zcnw3/ugHx2snilsfk8b67G+GHf2+A -dDy3k/IHeTzxQR0ldHgDYo40BNG9V8BJ3wry4oQ3Qf9PSXNFiwKOjYnoq+zd -hFX3yAz9ZQUcfxs8NnFgE+g3czKLdBRx7Pf5j/mHNkFo45DObK8iTspbtP52 -cRMuhBz4GmqojJNMdvctpm9C1814jh/eyjiWHB87WLAJKipRji5Fyjg+/yGK -VLoJxTuaWMzFVHCSrq1ga8MmjHZZbp3gUcVxze9n9q9vwtH833/gojqOK5On -7imQ8FaS+/pmEWFnfbdX6iRc5uTO1o8cGjipql17GBH7At/NXp9aDRxzr1uR -MCbh6zZChb99tHDsakZC8C0SLoBX//7DjeE+T8c01MtJuLxKsf/ETQwn0THF -WNaT8FLsp41TM+EdLbxcXST8QceDgO/vj+A+VTI59oskfFo9aS1IXgcnsbgu -SDPR4W//I2VmfCIsdjbnOx8dzpjw9aXi5FGcdPQV54AaHX5Ld7gk+/UxnHTs -zteMk3S4bXi5Uu1FXZz0WiDr10U6/H5tVT/b/hM4qUXj+EYwHR459iAnBNPD -SSnnNt6m0uEq/7W1ejzUx0mG4oNN3+jwU2axtzQTDXFS1hi9GgM9zrh01Jyc -fQon7Xt2YP9+epx1arvdrxgTnHQwmfmBBT0u19tyXU/9DE4qcXF2DaPHKxrV -2YevnMVJIcZKw81EvjVI+aP/eZyUMZb9V3YL7nvBPsvojRVO8hRLeJS6BQ9I -nK3xfGGHk7gghHadAZeMXNrDMHAHJ/nsNBP8zITv1FZ1vzKWhpNItm/C7rLj -/wNzEhJw - "]]}, - Annotation[#, "Charting`Private`Tag$13651#3"]& ]}, {}}, + Annotation[#, "Charting`Private`Tag$7570#2"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -10469,8 +10737,8 @@ nK3xfGGHk7gghHadAZeMXNrDMHAHJ/nsNBP8zITv1FZ1vzKWhpNItm/C7rLj 3.843119049520691*^9}, {3.843119111532508*^9, 3.8431191160183973`*^9}, { 3.843126850223662*^9, 3.8431269035835657`*^9}, {3.843196950210411*^9, 3.84319700895439*^9}, 3.8432908790983887`*^9, 3.843713831158618*^9, - 3.8437287066693497`*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] + 3.8437287066693497`*^9, 3.844086238868331*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"02b7f52b-a421-460f-97a2-cbea9b09d942"] }, Open ]], Cell[CellGroupData[{ @@ -10510,7 +10778,7 @@ Cell[BoxData[ RowBox[{"H", "[", "#", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "#", "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"7", ",", "9"}], "]"}]}], "]"}], ",", + RowBox[{"5", ",", "7"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", @@ -10526,177 +10794,176 @@ Cell[BoxData[ 3.843123804836687*^9}, {3.843126912116753*^9, 3.843126912380032*^9}, { 3.843126984229598*^9, 3.84312700686185*^9}, {3.843290907355577*^9, 3.843290984660825*^9}, {3.8436270130296*^9, 3.843627020046433*^9}, - 3.843728711763672*^9}, - CellLabel->"In[73]:=",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], + 3.843728711763672*^9, {3.84408624564249*^9, 3.8440862468787947`*^9}}, + CellLabel->"In[70]:=",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwBwQI+/SFib1JlAgAAACsAAAACAAAAj557XCLef0HjcZFJa0mewVoW9BdP -n/1ArxSoDQdeE8FK3482ZyHgQFsYG5+gWfPABbiOn6wgzkAmKlDRSy/hwEqp -potOi8FAzNpWV8VQ08Clo1byrw+3QDGrRNCas8jA96DWAcBcsECu3fflaiPB -wFs8F370B6NAbr5Hddo+s8CoieYPtXqeQL+pkdaAYq7AymKg1Hb7mEDUNXmQ -yJaowAVV/yeRs5FAfkQZtUYLocAqq9m3Z4iEQHVG1vhIGpPA+1GoW0xNgkBp -6KjgxeeQwC3h03d2a4BAPNH34y8hjsCPuJ3HP+F6QFlF66W6W4jAsUFVNkv+ -ckCcUsBuoNmAwMofIeJp6GVA0XcN5I7OcsBUiyG+qaZkQE9x6kqjqnHA81D+ -ZvN/Y0DR0QtCN6BwwDSTTUYteGFATdGTEX6ZbcB3YWvKEYRcQMnLJSKq4GfA -5rR3Vx8IVEAUiB63jnFgwBRNuwYO1EZAH3yPkSguUsA6CE0L5BVGQMN6xj72 -jlHArwXZtb5gRUB1dJV0mvdQwMtp64NMD0RAJM8xrNm8T8D4uqgajMJBQKuf -9fva7EvAE4A98KZhPECBJJYJuRBGwBSAlzBYPDNA/gTzS8ZcPcBr9alHg68k -QPSbenkSvS7AKD8GMIiQEUAuhsY1P00ZwOjEM8adWQJAqEMq+dryCcDrPP1s -TyH0P20AlAe4F/y/q+799lwO6D9p6zFvsKTwv8MBptfEuts/zJJks9AO47/n -7sLeRvTOP0ZBVgtGLNW/RSBVIrzQvz96t/MjW7DFv0BpJEOMib0/aitj5lEi -xL+uAzbrwTS9P/2giuly6MO/AES/6dTguj/Hmvbit1HCvwrmilBd07k/pth+ -SM2Zwb9LSr+zLOKiP7vgKeeDrKm/vROkmFhfTT+Q0C98L/FTvxlzYkY= +1:eJwBwQI+/SFib1JlAgAAACsAAAACAAAAqwZm3l5MfEHh4wwUmq6awWZkuCfb +S/pAe3+s6J8OEcEPRG95IKHcQG64WCJiCfHAk5MQKz66ykB+pa9QOEDewAwR +STNCHr9Ag03wztj+0MBSIwxe/XG0QJrIff9OusXA8Az9Tr4ArUB2xJhs/SO+ +wI7waasI26BANqd/dZTpsMAGf8Gde/yaQNTjEw9YsarAal4azaMclkBUiBj0 +IpilwHRoVU53UI9AEE4ssc3qncAew1yPIiOCQCQ1aA1bvpDA9yt0w0MpgECc +6pdpJKCNwPxjir8R/XxAWmSEATdkisB0wT1jL7Z3QON4jf13UoXAPqebMla7 +cEB58nyT4HV9wFSCX0ztPmNAh9OYYYFlcMCXBEz+pCJiQGIeLj5Oy27AFsvR +DUseYUB/x3VZX/hswOVxhi11pl5APWmpnUfFacA2dp4X6PpYQFtNNS6SwmTA +ky4lblJ/UUBDezlTToNcwK+/2eRq0kNAMAfECYBXT8AIfX02RytDQGl/Xhjw +QU7AN5goIRiMQkAhhJoxFzpNwMBZQxSkY0FAvCXEOxRQS8ADDQnjYr0+QOcj +xjwd/kfAsLf1UpF6OEDsx3+/I+VCwO1kckuJeTBAY8bDjLr4OMDv8CPCEnQh +QF6qqJHJwinAimqdah+3DEA27yXcv40UwCTJYVgl6/w//rOpsbFUBMDgcoxN +nz7uP+EsftV4//S/h9jSRf8c4T/hMK7kiJPnvymGP059TNI/XPiiD+8P2b8f +4xKLT23CPxq3buB/I8m/T4rkt3abvT/NjlRWli/Ev8a7XuMzKb0/S8hXyH7h +w7+vIB+BbhOwP/s6O90r4LW/SJzfx2QDrj94r937kmu0vyKnu1YSy6s/AADZ +BMnosr9TO6pSnxOBP2wJoK66MYe/WDT4toe/Qj9ax77PHnVJv1edUmY= "]], LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA+QZryAqNfb8W115etQ6EPxcZEOpG -CrC/UqdiuFq6tT+6T+hHptS4v/xvtXQcy8A/wTsf+083v79Op2dEeBbFPzSo -G4LFZcK/JGcJ4m3UyD8PVWkVs63Ev5vNNYfN4cs/6e1vSrOJxr9WDkEXX13O -PygTrgOhX8i/XDAh579n0D9dja1vaP7Jvxg6x+Zxe9E/6H1+p922y79mrP2f -cZ/SP8BywIaza82/YrQOxx3A0z+kMapD6xDPv8WiPo1z1dQ/fiUojbN40L9M -xiwPbRDWPx/TPXW1Z9G/nZTg4StI1z92ObUxwWLSvwYAPrPAjdg/R2ua596I -07+TuWLenAjaP7aDeKx5stS/b60xwQCF2z8TaIpyNxHWv2mD/YFYQd0/i43g -FReJ17/x3aSVoxjfPxwTOJOVBtm/cHG1Ptt44D8v2QmBI8navytL2hfCjOE/ -zefuvl6T3L8ICePRgaHiP71FbBLqet6/K/aMJLPD4z/bM+wNSl3gv1nR54S7 -FOU/2ABjSJqB4b/S1HEP4WTmP9e4uj+22uK/AAZ/EfHp5z/iFsHu0Tnkv49c -bglTbek/oTxFO4Kv5b8H/1a4jgDrPxkANKfNaOe/ck8xDCfR7D/sW95Hfinp -vwlg6HI2ne4/HEJ1z64767/Q1ppkz1bwPxRsovr1dO2/RpD9NtNp8T83R1AP -wbfvv7bYXlXLePI/7IQF0j4y8b8EukIJ267zPzEafqpKj/K/PT2b6BDg9D/E -mxlwswP0v9Oyi0R7GvY/vtTbONy89b/lRxbEJIH3P/xVOv64fve/M72oj8Tg -+D9op67p6ob3vzSmNIgM5/g/X3yp/B+P97964ZLQVe34P9ajT56Tn/e/IJJs -Uez5+D/9y0X0oMD3v6UuIRgpE/k/xyfRC1UD+L8qHvnd4UX5P/DQ5wwsi/i/ -gLElb1Gs+T98SCZtxZP4v5QQrrLDsvk/W/bUHmKc+L8jDz9LN7n5P4Ij5Hul -rfi/fUgifCLG+T97mpBCVND4v164geEI4Pk/xGAlMlMW+b9BO0zfFRT6PwcF -7UsiH/m/tCcAh50a+j/lROnM9Cf5v2csW4YmIfo/eAsECqQ5+b/daq6MPC76 -PwAjgZcrXfm/KK5hvHhI+j/pLqgRFmb5v4c/5iULT/o/80cb/gNv+b+O+2Ho -nlX6PwcEfDPqgPm/gyfneMpi+j88QTZ/4on5v9S2REdiafo/TsDVQt6S+b++ -r0Fv+2/6PzE4wn/dm/m/jCcI8ZV2+j/o8GM34KT5v+I1wswxffo/+9YDiw== - +1:eJwVzns01AkUB3CPUt6WbFtW3mrSRtFLtZc8E0MWPTzXxni18tiE0mNtOCSk +2mJJKWZ+XvMrYq3uWLHk/aYwIzPN4NippunI0u5v/7jnns+553vvNQiO9gyR +k5GROUbV/33W65EPb8sh9D6+wj1S7gyxkZNJKkWlKGHE+n2SEJDM801cW8bE +5rK7hdrBbBBu3LU7mGSi3dxKz5/hbDAOcBzIbGLiwgzGuMewoSYtqNx9kIkX +zePq1lxiA4d3vf7eMhM3MJbEiwVsMM23uVrkyMKohHaeXA8b3HNrGY8aWMhq +eBjYrUNCQvetdTHIQo6jt1q9Hgkli11/a7ay8Drb1zDNiISwXfKfJ3pZGLrT +U3FwKwmJzhn7cmZYqJ+tV22yl4SJN9+QxfIEnjoVnznkRkLftw72UgUCHX7+ +YUrbgwTDRG8zEyUCffZJGw56kjA5Lnm6ToPAObfnWbY+JIQ0hS3u2Uigv1a5 +oa4/CfSy8l+fbqbsZ5cCoSTISHKIyS0EitxdChQYJJwNYHBf0gg8vZS0nqTs +odyY5mtGoHzH1Za6MBKMMh0juJSzl7kHNcJJ2C6ZPLx/G4Fn5gMr6JSz3Ai/ +aMqbV1dbxlLW9708lkx5g5P1YhLlMauJ90GUlyosN4VTNpqf5m2inFqc13GA +ctvvr5RMqf2xiQfgJnXvcUmRM4P6t9h85JIa9W+5YnwDXZZAuay8/u9cSbhw +bqjyujsLIzq7lPcPscG69Otze1llmL66RCdVqQYyM5iB8O8DdI8tMFfRJ6BC +nPjWQL0I1++ajhGHl0JkbtWQ+PgN/Nw3IvvM/y5IC/pHzRSTUH+hzrpa9woM +l9Haf2SchyeyHFvPlCt4OH3SzzkzH+irpjRk7Qtw+fTWyI+iEtCl+8f6DpRh +8bzEQMeHCVsL3nTrDNdgxdq6IEl0DXzxJmX0Y0ctWqjQtFNZT0BVMfurL480 +olmyvE3Ss3pw8Fq6nWLPwWmv8n4ZjybQKze9x9nSguxtzJysJQ487zinlqzc +hn+NKqdx97ZASMI5Ld+2dnRYLHwRgK2Q9G7ljVNbJ9o6cYqjLNvh4V07NaXC +Hsxd8aZVPHkBBZ3XAGv7sFXXSByc1Q07HT4Wh9kMYHzixZaArX3Qs9y76eaT +QXQdO0NMcPqh3UL63tZ1GG3MHjh1HR2Enaqv00a6RtBlOa7K8t0QRCUMKFw+ +PIb5zWe1C3pHQK+tZjFmbhwjY6zu6BBjcH7Nq56Tca9wuhndsvtfAjfmvJaN +wSRipb84XnsSKrw4rKTOKfQvTLCPP8GFUkN1eth2HhY2q4aSn3lg/CD5hqLS +NKqbElYZnq9BdXdElvw45XaHkPr6Gag16Rlqevga19xSUFfxE8ByY6jl7C8z +eCUDZLhyQhiLPClUOMHHVXRadLqSEC7bOow3+PHRjCH4yUpTCGRR49uoID5q +xnbS8w2EcPS4e84gg4/Bd/Rc4myE4EzsyLt/lo8vh8Mcq1OE4Gc9XuKUz8co +F9fvTVeEQHeNX6zs5eORmj8ajVeLgHb/w28hg3zkzTn3mKiK4KHEKFx3lI/R +gQN6FroiaFq5cebaFDWXpueGHBRBDm/MLnqBj1UnUm97pYhArkq8vE9ZgE1T +HeKUqyLIShWsSNQE+O3Mc42KbBHoWxQaV2kKcM8DFbZaMeWLHjOGGwVoueCa +LkUq7/bBRI0mwGM7HtntbhfBOx0N745tVD5Jry+xTwRSUspMtRCglnNlkOK0 +CCYeG7b+s0eAxWa8UO9ZEVj7RmU+3S/AiP7oQ6XvRHDLITUhDgT42SLqg/ST +CAZyIzPM7QRIyxNccJGbBW6AUfO8owD/AxmI2A4= "]]}, - Annotation[#, "Charting`Private`Tag$13688#1"]& ], + Annotation[#, "Charting`Private`Tag$7601#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAa29eS/VceEEYiPZ5hb6WwXob2jvZ -ovZAq+5FNoETDcH2eMjy/aPYQDNVIfGnCe3A1/Fd+gMAx0Bg7Ygx6cbZwBA+ -wJgxxrpABADU89z1zMDPQ5ZfoZaxQBkbvqeCgsLAQT2/W0HyqEDv+HpPZ6y5 -wIJC0xil/JxANfcB7+/NrMDvxRgeYjOXQJjx8e5huqbAYj1O8c8Bk0CgYFas -cWKiwK3kF6Sp6IpAfdvBL8J2mcBO20ugviZ/QFOiL2zlfIzAGltE7sLAe0DS -wVFhFDOJwBtzhvrv4nhA1sLqJxpyhsCqdM7Ri1l0QP1V14ctIYLAaw1GNV2z -bEDcnu4sSwl5wLbJ5aY3fGBAbmqCZcLWa8CkOt5iIhBfQBfZdqZ2I2rAmSvn -a/lQXUDQheesR5ZowE77ummcPFpAaYb295vdZcAppaAEgV5VQJxcVO/SmmHA -hFsx5JPlTUC61g7bGydYwD4aBJ+h40BAUebSJjt9SsDJzs6cdFRAQMojsDif -kUnAUiMvpTaYP0BGC73uq7FIwDsSh3ptnD1A8FLVWs0RR8CerL/dMic6QGSN -bm+aQETA0lbHIZTLNECsmLQTots/wLR9gGfn5ytAgclZ1+f+NMD40JcKnF8d -QPRrPukuiSXAtZdSOJbUB0DN+voBT/cQwEgVSwcRlPc/qKDVKf6AAMD1BQgJ -nfjnP7sAWsZtlfC/4qbbzWby2T+KHr2XM9Lhv8fv2KPkMck/JMgBYFA20b8l -i/15Lq6zP+hFKGD4yrq/O7SzA0s/fD9gefVvrS6Dv+3+s66MVFw/fGsgkjM8 -Y7+KbD4d - "]], LineBox[CompressedData[" -1:eJwV1Hs0lNsbB3AUaeRUJIRRiul3nKbQBcV+TY6mo9LtyFEc5RKlBidyyV3I -JY10mULkPikn9zD2G3kpUehXfp0upMjgNC4zuYTfM3+8a6/P2muv/a5nP99n -zQnOQXc5GRmZOPik6+U/6sRV9cJ6GbqKrPP6Mcvsqpk6mx4f3PeYGFB5G4B+ -zWzRM3G4jT2L9N77RN9Fs4IT/yidLMWt9JHi/wxVo42qH+QcA6twUNYX7XkS -I2717UVOhrXYXEVbou3cgBIUDh1/ECLAzw/rbQ0abkQbgipuZRtgbGU7YJ6k -1ISaq6xtSzRJLLj5zSCVbEK6OYTvuZMknlLrttH/mUK86IN1vtdIvHDC/ITP -KQpVHJl89h5s/smw9KfTFGq3TmGwr5O4annMOz44Pu/4C/UbJN7hNtf8zptC -ud6p03dvkthtsTWTwaHQxIn+Wq/bJK7RM35+5C8Krfp3nUktuJiZmfEK/OiO -Kk0pncSTS8bc7c5RyKt89m0eeL75a6+lP4VeFm5Z15JBYvEa13L58xTSYrHW -kndI3GjWvWZzMIVM830VJsETc090ueB77i+PMLPgfi57wzD4LG0f+zp4Vx95 -IT2EQgujfvgfyiaxd96pFf0XKBSrwOkJAysZaVWahFJIJVQfF4JrVx73Cwfb -vGW++w4eixCi5WEU+isSF0TfJXFX7ueD9HAKFYj8mu+CewbYI8fApo8FLiRY -qcO9mAd+9CpB7js4rPV2hnIEhT64WS5ZlkPig1it0xpcMTHEZYA9DWibgsFm -EedVD4IZpjJnPoJXeHOWuYNHG9n7lkZCfbdfSwyQnk/iOVmAnYvOXowFD88q -p3uBLyaHzaWBY+3raWlgox7r79lg0yLMrwMr1Fr63Ae7964N7QMzj/Z7VYGX -UlNRilEUGtUr+4zBvNk9AkPwSfmd7s3gztzWPjuwQpaHfhv4TIvNqC/4dgJf -vwOsx1MY4ILLzt/w6AI70OyoEnDF1tKvUid2/3mlFTxUGVLcCS5OOmfzBVyw -2Lf0Bdgo6sngD/BLN6WZZ+AHwqgQlWgKHdAnY5+A57o+/NAHR3fI2NeBuw0X -cLaBY7S2e5WCWU0ru2zA8X3dZD54/tiOnw+Dzc0JJx74SGaq/59gWdcuywTw -KcbmSk+w5muRe5D0fy5vG+GA0c7xTg9pvd1LtPzBrKtGsdL3EBB8ViC4XDgX -vkNa/ypj1yDw4D0+uQ4sOW0XJt0fDYxgK4Ftli64Jj3/eUuLugjev8RtT6EP -uJdGMbvAQTYGj7zANI+a5HJwMD+uxQV8dbZ3cxo4Nd/1ze/glg7/dX7S/XNF -/WzwNPPesX1g5wDr72bgoxaCAlmwdfSK1SvBKSvGarqhX1+xlM1lwelPAtUf -gK8UfnIQQn2Dby24L+1//u+RhZXgt1xW/1qwhYXoLQ/8t+JurzHIS7tKnFoI -OFp+ek8COE3OLn8beOEGIikP8taj7G3Lg/455b9+8BLk03tax2oe+v2kxPXI -Ysj/840cJUfIm0BhIDkX5oPpHIcpC9bSfqppCY5Y6R+aD/mMm7LZ5A3zxEDU -mzUURKHDpGBveRr0L+e7vEsghYjB0uHxKyQufzEYMwrzIbdRbd2GeBKzA5kZ -1TBvxpZ2u7j4kpgutnLrtqeQJMfCM9mYxJ96ij9Yr6LQ2nKrRXPXMZ64dGev -76MmyOsth8SYevw6Vlg2ZdGEhpoqDXzUBNg2veHHTNYTxPI3VlabrsHO4qHl -wc2NaDtt8AbfoRorXCxwDW9pQO4Wfd4PU8px2GSmXaTvY5SdmPLV07oEX4nv -TZfPxaiwbKfu2IEcLOlhdn2cqkW33Lhb5cPP4UWW83vbTaoQLXRzlH9yNvJr -YNh/7XuIoioT/G0tK5CcS2fAyaQC1NA2G3/PqBEVFi9sj/mWgtSthDGm7DaU -bqahkfKZi5/a37cVRP8XnWLqtiTteIAv7N3eQE96j9qiFlQxbtTgu2fNxp9l -9yHJ5D+evMpGHGzhGxdhIESR5bVXswpa8ct540O9nSL02+lufvviTvxS/d+L -8h1iZM7JfJG3+Q3usIs+2va/GeTYUBCeNvYOJ/rsWeXjIEsUdu9VYQf3Yq6T -SanvG3kiwVxkvUj3CzaV2a/rKKQRDNp5dqjwKz7rcXlg+MwyYqSuIqVLcQTL -TrtFPPxtBUHbvk8omhXhTdvK29R5GoRoh5zH/sRxrKdTsVPxgQaR2pRE//XG -OA5+Xpqg2KhByOz65aNlzjjWNwusNB3RIJYwhGFWteOYpXm01IGlSRzYYuIW -PTSOL79eVZP1TZMw4t/Sn9kzgfszWIcz7bWIwvlP3CZVMaYHV+llntEiGGVM -R+fVYnyhc6N+SYwWEYKYTj9+EeMtnrsnFpZpEetrSjXZNmKc3uA3H7FMm7Di -tfDoQWJcH1Iq19SuTURUT9KffhTjnmrtuPf92kTfiZuHKofF2O/y6plF89oE -znr0rnBKjEdd2npTN+oQ63vmxzJUJfjSgk3TkVwdIn8/w6lllwQrBvBtDfk6 -hLGBk2vPYQkWhxmM9DfoEJzdWq2zxyV4Rvx+/7UJHcLSsKaJfUGCsxPjDeOV -6UT9zZ6jAZck2Ogn1bhkAzoR9XCVY9F1CS6apDh5iE6orF3S0JsjwUqSidEX -DnRim8jhmu5DCf4/RIF8TA== +1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAA92OOJ/TSekG+wQot7TOZwbV19ZQF +7PhAZ2N3lNYbEMHtvDdeyiDbQBdwL7YjFvDAFFMLtjtSyUB5dycC+Y7cwBTV +PR+zeb1AKRDQ6q8K0MBlwiPVvlyzQIMWoH8ygcTAlg548yF2q0AG5IIfTHC8 +wPimQSZO6J9AI5Q4CSvnr8C3OjeGl4mZQKU7zgriK6nA6cbcxLfrlEDTiLF+ +FVykwCi1IY66nY1Ag51sATQynMBxGPcU7COBQAy70FZXiY/ANQgRFi6KfkCs +eJFM+eSLwPvlw11oYntANDW5FzDYiMBMfa9HAWR2QI7xOwqAEITAAB15VOyS +b0D/bSwyZbN7wLAD4jkUIWJAxePTTMHIbsBxkzpCYBRhQLSZUWTd5mzAhtwR +olAeYEDah1L9LS9rwEhZT0QD2VxAZwaVcv4raMCynxmmr31XQH3pG0KldGPA +uoWBDe5sUEDdjtOD0axawJLbNOQaikJAdMLNIwU3TcC2JfzqmOxBQCasmVVy +MkzA+McLMZpWQUBda/6UxjpLwFyT5ChOP0BAQObnn+FuScAiQOsD2rA8QKKa +jH5qUUbASviUxTLMNkDTs+VC1olBwJVpS0rkiy5AJV8HGMgSN8AqvV3ZCwQg +QGeT+S++jyfAWVzYzke6CUAyHzFWQlsSwMgafZMoGPk/+waHtXyWAcBHU+No +8PboP2Arypf2R/G/dpxjY69I2j9GunlZCQ7iv0aNaVk+fMg/kbkfKYy50L/0 +LU0j6fKxP8qta3khbri/L75yRV0bqD9e7M+Aomewv8uKgVl0Yac/oFbMSjHS +r79ukNgQWblwP2D+ADk7tna/n/r4TY69ST8AY6z25nlRv8vUOGY= + "]], + LineBox[CompressedData[" +1:eJwVzns0lHkYB3DF5DJmprayhG0rbbnVVlJK5/e22ULOVlZjl1KNpHJdinAQ +4tRkFbMIJa1rmTGvmJcaPG6Z0WSKiCTjEilyF/NK7bt/POc5n3O+5/s8azh+ +jh6LVVRUjlPz/x65PL5qKCsQvC2dul/mhqJTqx+Zp3/lg/83tThuTgkqev3W +YF5XAPMJjxbciBLkxM+RLNomgIhcX7fPkhL0YEx2bvEZATBiOHZ+H0sQf1md +m0IigGhbeh7PrBQ5jxCfLoUVgedb81NTuaVoZppcG5MrhAztlvdH/URIbhci +SxAJoaBf39g8VIRq6PP2h54IwaUqIaP5iggtbZWHjfcLYXZmz46YNBFiPfNM +VzBx6Kz3N0qsFqGTHa4rpvfisPNuHD2ZRiBvduE9bgIODeyiWYYPgSbSvW0T +knCY+FjoEBpAIGta/EvvFBzsC7ZFlgYTCG8RBojv4OD1IS+PF0Wg8Ksd1TkP +cIj4bjGNxqPyW20et1XioJft9dckn0B/a7ukZwEO+qnsc25CAnXmO92zq8Hh +fD5ecLuYQO2hxHvLehzms64sSRQRKIv77naMFAenpvpTJ8UEalnpvGDTiINJ +caHYo4JArdcsVAcpy9ec5qBKAtnztcolT3HY1bjjpn8VgaKGMms1ZFQ+zpQn +pewd/crYhPK4OLtzhnL/P/gqM8rVfwZkz1HurO6sYVK21iKNmym7tBYfbKH6 +6vU3P4ikvNP/l3dBlOPP3DqhRrmhfPu4O3WfqU9jJ1L/fDsv29jyBIceaXsT +lBFoQ9eVpnWPcND44fylrDwCdcsEMQ+5OBxdH9I35EnlnZImfLSLIKJhfcgm +11J0gDAs6XUrgMg/bvGsY3EU1j50+P5cFkR2H8lToeejqYCxzbSURNg19eWE +wbdUtOAgDT9y2R35m5zVeK56FmYZLxklcynIqrZb+0laJuy1UHQZXclHKe1B +2oYcIeRntGm66D1EMWEqDe91y6Hw8dRalmc5Sv6USb40r4bjPvQJgQDQzovv +Uk8o6sEm68VowcU6VJwzar80sBGSWJ0rG/dIkHTAZleYoRzqTzSPsrNlKL+Z +IVXDm8EkTWzioP4CBVXYMiysW+Frpmwi/G4Lcs2xSnHRawdpn2XfpGcbGt2v +V2Km1gnD5jc4cagDcZNtLbzauiCe2RVEz32DfnzjO73umwI8jL3cP2xUoO1p +j1ulcb2w9lNm0/3wXuRoHPtaZ3k/HKMvq9zyvB9lqu0xffv8HYQaymRWewbR +Ut6tyO/DB+HpLJOja/kBGaw5VHvObQiUWza1ZLiMIOXGSg/XzR9BrHzApbWN +IdN/rXgbl4xAx5ju8V7mJHIc/Gq6SmcUgt4M9Px0dBqpeOgP1GmOw1Cc4LK7 +0SzSa1vXZLJhAo4dPRUodyDRPi3nCCO7STDa2axpk7+AzOJdPt47OQXBA0+j +3gyoYFw+d70kbRoeZz7M7dJTxa5yOcIeyQys1Enn9V2nYb1Bsb6+ys8gwpxy +vW5oYH7Dw1FwaA4U1UsieqrpmF00Hp6apgSh4bZpzRd0rCv7a5LfXSUkx6jd +362gY4P8g0G2uUqoM9qiKFugYysqsPwvuBJsvA9PLt+tjW1WNxX5SpUQ33HJ +za1MG/vNMS85ZFYJAfdvqroQDGxHZSHTlE1Ch79FGK+BgVkkpC0zPEbCaEfN +o7ZXDCxjOnSAxSGh4KrBnQuzDGzEJ1hlzocEmbM82MCKidW+GKO1xJLQuc/E +VbeKiW2KLnAXiEjICb7j2CNnYh/UJi/zxSREvOp2LlYwsXj3Qn9+DQl+WpI7 +votYmO3UM0lREwmZBy4ks39lYdquZ5wrB0hYnZwU4slmYbUPG7Xqhklgn867 +EeXJwvRiXRMbJ0jwDBx0b77Gwq4vOq/7eoGEssBtpuoZLEzM0dHrU50HjUtl +lvv5LKyCf/jTsOY8xBWpX0+oZGG/V/2c/Jk1Dxe2is165CwsKVi+dLHOPPwH +H4wgqg== "]]}, - Annotation[#, "Charting`Private`Tag$13688#2"]& ], + Annotation[#, "Charting`Private`Tag$7601#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" -1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAVhT/I3nzd0FoTFKsfVWWweOOEIuU -QPZAqY1hSeqMDMHgbdH3uDjYQAGeKZXoguzACzsWpJubxkCv0NrU/k7ZwDSI -lcf7ULpAWENKIs1uzMBnTNgKa0mxQBuZMoT4K8LAf48szW+EqEBx/1k4EjS5 -wBkUVapTfJxAiQ6V20BGrMCia6W1ZMyWQMGHPMENT6bAYk3lIzStkkBIR8bN -aAuiwCYsZ7E2cIpAbtE0BJv9mMDY4QffwJl+QOmVFrL+84vAc2WVzM1Ce0A0 -eIybrbmIwGNdCm2tcXhADEpAhbIFhsC3aQXIa/xzQPpytiwuyYHAvIgnNJIu -bEAuw6UEjo54wIvxIEhBLmBAtuSWnYlLa8DeYcxD1HxeQExA5I9roGnAVOjj -t5LFXECDm1JltRpowLhoty4sv1lAcgLgHytvZcDVLOX8OPdUQDPIasUEQWHA -xO735exRTUBcKMPqcKlXwA/RCpOTjEBAvlxvROLtScCAvtaECgBAQK3rxGDj -BknAomP32Wv0PkDTTohJVCtIwEbxwhEJAj1AtBJ3v6GTRsBotch0RJ05QBec -IjOq0EPAKjBM5GFbNEC172yVzic/wPQsNndtSitALJuHtlmDNMCyeQ0ftaoc -QJviKO6t/yTAVnECUH0pB0DdetgKK3oQwBXH4KF50vY/Dz5dJovt/79p0/EE -ZBvnP5RaM/KJ9O+/dL9Mu+H02D/t5mnTdyLhv1vQ9XWDU8g/ffo2opOd0L+j -9Kqi1ZqzPzIaP+uQsLq/0uNp2bbVhz+ZbS8OSzCQv4yY77GqYVw/8OyNrBtF -Y7+VHDW9 - "]], LineBox[CompressedData[" -1:eJwV0Hs0lHkYB3C3I2NWLkNLU3IXLc2iKLW/l5LLDqFN2RQrHCkhDF0mKZRF -ioouY122ZChaO/MmjYdSExXCkCmXhKKd3FXGvPbtj9/5nc95znnO8/0aBkf5 -hirIycntI9/3f9zBYdF75h/YuCpmrresBmXodcTVXOZBGl40H7ZegNTPVxP0 -ET4w+vtGJdI61JLm2CAZ5YNPduksTR6QaNnHXfckfDjuPT5ipgyom3bkt6Wz -fEigTYzSNACtXc55YqiIg23QaZaaMaAc/zMSWIFDTHM344oLINc2KWvvNhxm -7Og9VWxApfaJKNsNh8zNcZ63TgFKUn/A4HngYCTUaMk4A6gx/HlrrxcOVbYF -nubpgNT1I5tK/HDQ0jGrKs4FlDmwLE8jBIf8XF6n4CagQ5Zhgd0sHKzHuFna -AEhXk59wOwGH3Ula89b1gBIbrk5FJeKgaRIat6mBvF/P2XnwKA5ehjldjMeA -Lp/fUbLzBA6K83KmyU8B/Tq8fM0b0rf0/hStEwLao56ZsIuNQ+qhC7p9pIem -BrLsTuJQM7PhCqUJUGSZ9EtyEg7PNg1atjQDMr3LlNSR/txPWBo+B7Tyua7S -NOlVVuqO4aSnHSmPsVM4MKQCYTvp5gNRyb+TbtwQGzxHuqykM+sg6cRZd/el -LwBVPFs9HUv6WDw1Y/l3+7g9/O6R3rD1dNIK0QvTEaTz9kz6a5A+/ZP0b3/S -Y15mSvPkvn0XfTgrSf+nJjMtJ22bc+kHJ/Iey7r2NWnkvfyNfnazZB4ZEmsa -ki53jlpdRDqkredzFZmPWGjjDJD5vc5qNVY+AzQhy2gnjuOQUhPku4bsi/lW -p7Oe7N/Nqz7clOzfNG3B6XoY6cLj5ifKAKmUE1zmOB+M/LyLfCiA5jWOyD/V -4cOY/bLAzGEByt45paeqzAMPRl/e66MPUYzBrs0lN6phDZUb/ynvAYqKMKl9 -8eUenEH17moR99GHYiV955+rgCOK94/V5iO/Wc9F1lQ5SIIlE+Y21agmYtik -xbIUwC51d5NRFQqYesjUEhZBAOtaZ8HJMpRNGTK2kV4GG9eIxKdmRSik2Gfo -fNMJqLAM1Cq4fgG91RlqqXU8i4ISwko5g3GQrC2LvgCF6Ny4eVwdnwMmVnV3 -vZsq0ODYI0cLUTmkf22k+6/iI8bhvTZLRnmgIP5k5F1Zh+zrFbhqwXUwpyIX -5OzRiOz8XVP5/Y+BSKdYNJc2I91T44f3c5pgdY3iq8ieNnTulYZT9O1WsGG2 -ir8FiZBXScXkfEoH/GHal18dIkaFao3JK0O7QXdCvO6xzgDKl6cdWix+A606 -I+a7he/RSa0D9Ob9A2D18hmN1vUB7c12Yztpvgff/XcIC3kJqlhBYd9kjsD2 -1I6WfexJNNm1o16/axRyCs1S1AUzaO3HuW4DtgRCvlUbM7u+Ir9A4wrx5wlQ -vq9TLN0mQwle2lZUxjS058YVtBrLY11pObSUG7PwSP+tlckWJewSUxaWkPQV -WBaDIuG1JZjIhZ7kFCsF189G23HuEowopGWrJEthb+Twt8oHS7CtQfQvneel -oGdaOPNQTM4V60RsrhTmYmanXegqWJXMZF59UArccfaTHwtUsJ70da72vgsQ -MHcRveZSsP2njjtx1ssgIM1KY66WgmV5HDui5SKDWKXcqytfUjCTaO+1WTtk -4Doz8CF9nIJZfNTckRstgwkjwVi3nSpmIx6OHuTKwEX3o6dngyqmnPSclWVA -wCW0pVKlQxVLdeBZBqwloLQ9cGnLkCpm7dGTwviFgE97HLpZKlSsfCDOZmwP -AaHxWmpO3lSsOCmjqCiPgJuV+l3MYCp2y72bx7lFgPA2DsFxVOzpzF32XzwC -KgVKynfyqdgKzXvW/3YQwHeJP/iOS8UujNnShYME6IR8UjAQUDFW/HRD/yS5 -f6uwLbyViiHBDRNCbhFOig/01L6jYotGvVuNNBbhf0M3GIY= +1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAArH/uCb+aeEEVwdqwC/yWwU5gfqE1 +2/ZAuEfhL7NgDcEZtpVKI+DYQGEKKPc1Ve3A22TTkwY3x0APvRAwnAjawN7Q +tjXoBLtAhxU09yA+zcCzHhQ09L6xQAYk0Iy0r8LAKKg5vzMqqUCDL4fVtOm5 +wKK386e8Op1AoFPblZcPrcC54Qep52OXQIhux2by7KbAh+38Xpgok0D7fORg +VoqiwPx3N4TOHItA3/VzRDSrmcABQSd2nlx/QE1gh7YzsYzAqYS+fUvve0Dz +AwWh7F+JwE+Mr3tYC3lAtKdt2sWYhsAGtqBGanh0QFjBbZZXPoLAH5cRGq7Y +bEC8+XyUxit5wJJAg9tKimBAw7I2buHva8B3I9dl4ihfQFVLv+J3OWrA4UF3 +FadmXUAiKkTve6lowN0BJrr7TFpApA6bJAPsZcA9AyxE1WZVQPtYCUkOomHA +uWt6eNDiTUD1M/B8vSRYwKSlFL3S0EBAZbdSXD1eSsAL9iYYGEFAQPgCMfnH +cUnAecPkcHdwP0B6kXUaDZFIwCHPTTjbcj1AHhoDoM/vRsBLHq35u/o5QJUh +xWqAHETAtLNM0IWbNECq9+7UlY4/wIHrH8M0gytApHG0JeOvNMD6HSwMrZ8c +QI3Tal1P9yTAkheZP0GVBkCGa5Fh3g0QwLXb7dWqgvU/Rl5Jlq8O/r88Bdpx +j5bkP35fZ6h/bey/Zyjza3pf1D/XvzMPHO3bv8bs0pUYWcA/AMIvRaZKxr9F +XOtL16eYPx4nAaXhwKC/v8GVrDphYj9AD/LbdPVov15tKcM= + "]], + LineBox[CompressedData[" +1:eJwVz3841AccB3CKrYh22Oj8eKjld6dEph8+0YRm6lKEihSrExl15bSy1Zba +8XATzo/rsk5mHinumyf3vU+SZFyK6YfrFO2+l9h9a1Oq7dh3f3yez/N6Ps/n ++XzeLskHNqfMMjIySmTq/85KanxRV9WCfjMnv8ih2mBkywNZW20Lpt65+mb+ +ZBtkuJn31jW14LtvXJ5lGytgolAZZn2zBRe8t+64YK+Ail/FX/mMtSBv43hM +85cKGNew1hPeckzpef5LV50C2jKrLuZUyFEckhrft5qEwuvVOaFSOTZ5d8VI +PydhQixK/Usmx6Su9NqwSBIyw2aiXjbJ0Tpl/1p2AglDLMfD33bKsfOfRZH3 ++SSsb001dhmT42J792tPaknIWRmuO2FPYGVUbO+9FyQY1aWHv3MkcKw5q2Sh +noRmqad4kzOBO686D254RUJ/laRH9imBq49Lby2cIqEz3LaJ9iJQP7H86JSR +EmRfePTmLCFwqG+7k/lsJXjOWhyt4xCYEloY+NZECW9EpnHpywg8dze9P3GO +Ehqi3fw8/Qk0naz/LM1CCdJaqfh3xg3Rmk1cSyUEcTV9u1cQ2HomstNqvhLY +2bkJywIIDNMENLh/pISeWyc+yGS8xYQr+oZx0BHJkhLGT3WjbY2MQ+PV76sZ +z528vEvB2N7dUFbA2ESxQFHLmOcq4OxmXDNkMTuDsV3HUZ0T44cqdoYV4+6P +QvdEMPe5rVeEfzP/bA5i0RnLCQzxX6d2MFeCfo7BWOBLoJgO8B+Yq4TtkiT+ +fiZf7I7CXXuZfL5r5Y5zfAi0zIswXmqqhEROdqGTB4HSbe1TgQYSui7w4p7b +EVh6y5K3R0fCRZ9naVqdHOPdgnt2ykhIyudf6T/TgskCw1rLvjZ4GblUNOZ9 +BXnWMt96SSsIHGd8ctMbcTKw2Sn3fAuof77uN2xdh87/RHo9SWiCBbErbCUn +pVjgp/qptbgW7KVW8qevirFi3thK9WQ5HDqeFs5OD0PpkYE/vSqT4PMCnj1/ +rAjueIrO2XqdxdeBMYv4Bim8dBAYZl2RoU17ROOS4no4ceNYVua/TfhhmZtG +MHYZ3C4fbL6mInC6Ld5/vJIA7q6JVWUiBXKOC4rtdG3wawi93COrHdWDlR6X +frgOK1ZNZTun3URzyjYuPqsDVOX07aJfujAxhyNU8m9B9Zq3AQ80v2FuTZKv +RUY3nLnBixgeVqHO42/2l4O9cOrrxz1xorso6O4MSmDfhetdE/2W9v0489Zd +f0p9D9i7ht7xqwfQRDJ7pnN0AFQWh4XBIYPYoEZumW4QFgabpC7tvY/jufvN +69c8hOFC5FUeeYiuNnZHq4qHgC0ezBmZO4TL7tmtTZx+DBVYU7u7RI2G+6z6 +Ld1P4KBWY3MsWINRjlMnMHQESsyGTMwGhvH9MEerejgKUY4c5YV1T/GIUEMV +H/4DdvNbYqLZI7gwv3/lorkUJLvnF5k9G8ECDY8ib+tAFGbstpgcxUpOKen/ +9RjMizGbWXL6Ge7LrDMcY41DRn3JkyLuH5ihStlR0zsBTVHTk3FeWoyNTZeM +xOoh8RMtrX2jxdNO3rHCnXrwzLI4mv1ei5dYZtf8UvRg4zJiYTytxX3CQ2nH +svSQYpYX4mBKYSGR+G5SqAfWxGZ6szWF26TbS3nterBym7W13YfCMiuycqs7 +DeIi66CavRRei7de3cCh4UZ3oWDpfgpPR049n/GjYdXjJIXyAIVeZ4uiJcE0 +zHs0vVHNZ+YG10dEPA2Nrg8Im+8pHCgan+EKaQikJHn55ykM8Dqo54to2HQo +lGUro9DlA4eS8nIaNqpsL8rqKHyZ16u/d4GGEiP/0RuXKMxzw/UOJA3tmaal +BpLCv15nRrt20FATptwobKcw4YHqhXc3DTaeBZb2ncy+erLGZ5CGNPfkys96 +Kbz88b5WLzUN3DvJ+7r6KPQ98zj40xEaOn7KWB0zQOHKDeWBC3Q07FF8Z6O9 +T+Ht0qdisz9pgB+rXmUPUfgf9+UivQ== "]]}, - Annotation[#, "Charting`Private`Tag$13688#3"]& ], {}}, {}}, + Annotation[#, "Charting`Private`Tag$7601#3"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -10717,8 +10984,8 @@ f6uwLbyViiHBDRNCbhFOig/01L6jYotGvVuNNBbhf0M3GIY= "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, - PlotRange->{{-1.602752891892175, 4.091484273767077}, {-3.110903172900441, - 1.6555650709518592`}}, + PlotRange->{{-0.08678614973482819, 2.46778432724373}, {-2.418015650919827, + 0.11744286904463776`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], @@ -10736,8 +11003,585 @@ f6uwLbyViiHBDRNCbhFOig/01L6jYotGvVuNNBbhf0M3GIY= 3.8431269864722557`*^9, 3.843127007285858*^9}, {3.843290913075088*^9, 3.843290918797572*^9}, {3.843290955112083*^9, 3.84329096493569*^9}, 3.843291127609296*^9, {3.843627014697064*^9, 3.843627020850462*^9}, - 3.843728712301803*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] + 3.843728712301803*^9, 3.844086247512216*^9}, + CellLabel->"Out[70]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzMvQV4nMfROH6NLSdpUvi+fkxtv69hsMwQJ3GYOU0DDSd20I3jMDTggENm +tpilOzFazLIl2QKLyWJm5vnvzLu7756ku/eS9vk/v8tjO7L3Zmd3h2d29p5n +33rpxdeffevl55/93W1vPvvGSy8/v+13t/7lTfZXi35mMi2+yWQ6x+d3Jvx/ +MJnEb3M+v8HfTEsgv/wQ7ApfRr98zEvhm507oLCqg8ZcTWNMj9Ifi2DTpk3i +2wq4aPr5XPbbLKSd/lQCCwx0hu07D0J1U682eqkj0KI4tJmZKYjOellCC/Fb +AZ/t8YHmziFttLMj0CI5tMmpETCn/ElCC/VaC9sPhkPPwJg2epkj0CI4tJHx +HvA5fidB2s1+hXlcD1+7JsDQ6IQ2erkj0MI5tP6RJnCNvp6g7QtbBpZjd8Bu +v0wYn5zWRq9wBFoYh9bRVwqHItcRtIOhzuB/+BFwDS+A6ZlZbfRKR6CFcmj1 +7ZmwL2IlQTsWshTc9r0IISmV7KT56FWOQAuhn5dAeX0o7IlYTtA8gpfC/t1v +QerpRhqzxhFAwRxQnkKzvuar4fudX0qaXesIIDNf3+zsDMNAp9kgRrPf7N4P +tc192uh1GrSNHNr4+DhBZL802CYneOWVVyRcT09P2Llzp+kcjmhxcTHs2LED +XnvtNXj//fchICAARkZGnOwiF8SRm56ZhOjsV3Wi9VsGO/Z7QXvPiDZ6vYbc +DRxaaGgovPfee9DR0WHSZvi5QEjCPnjwIDQ0NMDExAQ0NjbCF198Afv27bOP +UCBHaGJqGCwpj0uEIrxXw/cu4TAwzOn+Gg2htcputbW14S/2E/5+LnR2doL6 +iYmJgbfeegtaWlpMF/LvVVVVwebNm2FsbMy02C5mARwz5EjveJ0jI903wAG/ +ZJ2HNlhjVl5eDlu3bsVf7Cft9+3bt8sZzuHjkpOTYdu2bbhVpgv431VWVjqI +nT/Hrn+4CVxiNkoOD3O5DTwj8nSevFbD7mZlVsSO7ZXpPPq7xUwezkB9fT1h +eeDAATqwJeq8AN58uo7eEikCDoUuhaDDD0J4aoXOtNdp092Cf5wDhw4dWkJ/ +sQR8fHxgy5YtRNLvvvsu+Pn5wejoqH3q8OVfru+wlhXe+5+B9AKNuzcqMzJA +iYmJ8MEHH9BPAjjOjfPhT+fZndCHT1jGxMluLk48mTg5tu8NKKrWyEvjCc4a +S2DXrl1QVlaGZ4aUBp9++im4ubkt+dFze3OAeRWHJRv4MQl0YP/ncLa1n8bc +aD030suePXtoY9955x3w9fVFPNS5hUg5hwsW3B8x9yK7+HjyM0dBllLwmcTJ +ErgU9h7YD529XFbcpCFlXyx6cGgoeaIUyRPOJM8BV28YHOGMfrMj0Nw5NBQb +5lRdbET5rIRj/pEwIZjzFkeguXFow+PdjNXvIkh72K9oj2vALyIdZmY5M93q +CDRXDq1vuBFcogVrOkOEy00QlVas88ptjkBzoZ+XQHtfCRyM0Dkv5Mi9kHm6 +jsbc4QigYxwQ6d1wjZdcGC8FHnoSzlRrCu5ORwAd5YBKG5jKDRc8cjV4H9oC +9W0and7lCKDDfKPQussr14nenxG92+FPoatvVBt9tyPQDnFoRK6K3g0OvBrc +3fbrFtQ9jkA7yKFNz0wwcn1N10t+zuDt58sIjxPYvY5AO8ChIbkGpTwmocV4 +rwRLRKxOYPc5Am0/h4bk6hl/tyTXWPe1cDzlhE5g9zsCbR/9vAR6h+rhKCfX +/YxcY1xvgJzT5TTmQUcA7eWA2nqL4aDUEc4QefQeKK1upjEPOQJoDwd0tj0D +9oYLqe8MoUcfh4bWXhrzsCOAdnNAJfUhpLqJUi1Xg+Xoa9DVP0Jj/ugIoJ18 +x5FScyuO6JQadBWY3T+F4dFJbfQjjkD7gUNDSk1SBGtwAIPmu595FDPa6D85 +Au17Dg0pNVKh1Ei/qyEiLECnrUcVaIut1fu3HMb45BAEKlZYnPcySEpJ0Cnq +MUcw+pZv+/BYF3gc5+KU2SbxHmsg91Q+jXnCEUDfcEC9Q2cZad4gSTPe7Xoo +r6qhMX92BNAODqit9wwciFxLgA4z0jzudgc0tWiy70lHAH3NAdW1pzOW04Vo +rOuj0N03RGOecgTQVxxQCROiuxTSjHZ/mVHTOI152hFAX9DPGmmeVCyHAPNV +EO3zV5ia5sT0jCPQtnNoSJqJpz/RXeTAq+B4yAH295yYnnUE2ud8kVOMNMOy +dJ0fzUgzM4FMf3jeEUCfcUDjk4Pgn/SYtMXjvZ3h9MkkGvOCI4A+5YCGxzrB +LU4z6vcyikryXAmVZQU05kVHAH3CAfUw0jwcdb0kzRT3a6G58SyN2eQIoL9y +QK1Mau7n+h1JM9n9Nuju1izOzY4A+pgDqmtPsyLNJI9HmF84TGNecgTQRxzQ +GSY1xYl5MdJM8t4EU1OTNOZlRwBpRrhGmtllulsdyKRmmuVjJDJt9CuOQHuf +o4WkGZ+v6/fQwCvhZCxpWHjNEUDvcUBIlSEZr0hAsb5XQXEWecjwuiOA3uWA +kCq9E3WqTPJZClVFyTRmiyOA3uGAhsY6mDOnU2Wq5wpori2kMX9xBNDbHFDP +YB0cElTJiCndYz30tp+lMW84AugtDqi1p5CpYE1gHmFWZ6bHLTAy2EVjtjoC +aBsHVNOawnTACgLkyhyqLO8HYXJco8o3HQH0JgdUVGdhQDSr05tR5YnAF2F2 +ekqZbEENp22fRosZJQesaDE/AkmeC7a3HEHmLxwZpMXo3I8ltLCAK6EkmQwh +fqgGgLZwQFPT4xCU9pIEdNzvSqjJ0yTku44Aep0DGp8cAI/4RzgtMnnkczU0 +l2kS8j1HAL3GAQ2NtjOdy2mRAcrwXgHdjZqEfN8RQK9yQN2DNbA/UqPFA8wK +yPJaB8M9Z2nMB44AeoUDau4+LWnxMBNsJ7xuholhjRY/dATQyxxQZUuSpEW3 +kKsh3/8BmJ7UaPEjRwC9xAHlVwdKWvRhtFgY/DzMzmgS8mNHAGkaQqPK5MK9 +VlRZGsu2WUjIvzoC7UUObWZ2GsKzP9Rd7IAroDYDrWpO4584Au0FvkgkTd/k +TbpN6HcFtBRQQIPrZQNAz3NAYxP94BprTZpd1Qk05nNHAD3HAQ0w0jwYdbsk +zUwvZxhqOU1jtjsC6FkOqHOgirnC13HSdIaT3mthrLeWxnzhCKBnOKD6jnxG +UVxMMtI85XMDTI1oduWXjgB6mgMqqY+H3WGa8nZjPnVR4H0wMzFAY75yBNBT +HFBWma88MRST5WHPMDGp2ZVfOwJIs6s10ozN36WHsRlp1h5nUnKWO8A7HIH2 +BIeGpBmU/p7uTjPSbMpCh4iT5jeOQHucL3Jqegw8El6Q0OIZaXYVetGY7xwB +9BgHNMpI83DUQ5I003yvhIHaOBrzvSOAHuWA+kdaYX/4rVKD5zBTYLQll8b8 +4AigP3FArb2VjKKulbmWfO9VMNFbQWN2KoDmqLk/8q9XteQwOlrD9bYzFPld +B1NDmg++yxE8BKDT1TGwSxLkUig1M4Ic76Mxux0B9DAHlFzkIc/Jh/kmNVFM +VrLzw88eRwBpMQiNIMOyvpHAzEFXQlPqxzpB7nUE2gMcGhKkT+JW3WtmGrwz +/whIgtznCLT7+SInpkfhWPRTCkEyOqqm3B6PARkAuo8DGhrrhQPh90jXOdXX +mdHRCRpz0BFA93JA3YNNsDf0JpkfyPJdw+ioisYccgTQPRxQfUcp7AldrxNk +wI0wzUXcYUcA3c0BnanLgN2hq7isdIbi0IdgZlJznY84AuguDijzDEZ1NO3r +zkizIvYVqX2POgLoTg4o5sRhK9Ksz0DhP0tjjjkC6HYOCL8UmKy7JmbmNXcW +UeSbR4UNAN3GAU3PTIFbtJ6hjgi8mskjTVW6OQLoVg5obHIEDoc9oitv/2Uw +1qF5FO6OALqFA+pnhtb+0NslQaYErIfJgQYa4+EIoJs5oNbus7A35DqdIINu +gZmxHhrj6Qigmzig8oYCBmiNJMjTYY/C7NQojfFyBNCNHFBueSJbkibijjLl +XRq/BYUJjfF2BJDIxsTn+igEeTXUZWMkTKMjH0cAaaksJwhO/k6emK95KbSX ++Guj/ByBch1HZ5b95xWzTRGUztDfkEZj/B0BdC0HNMmc/iOhTyr25EoY6y6l +MQGOANrAAQ2ODMLB4Ht0agzcAFPDrTQmUAE0R6mt519v72uH/ZYbpJ+darld +GkdBjuAhANW0VML+4HWSBk9EPMEOfILGmB0BtI4DOlWRCfu4LEMaLEpCw2iG +xlgcAaQljZ0gJS+E2QsreKh7KdTk7tZGhTgCZQ2HEpZyUMa5USK2lJu1UaGO +QFnFF4UE6xP1kS4SLYxumjJpTJgjgFZyQFPT0+AS8qJiOq6C8R5N94Q7AmgF +BzQ8NgpHzA/obrblWmleRzgCaDkH1N3fA4eDbtbd7NA7YXZSSwREOgJoGQdU +11IPBy3XSFJMj34SYEaTGVGOAHLmgIoqTsGBkFWSFE+lYNxAkxnRjgDSKp+c +IC0vlgnoFZIUy/P2aKNiHYFyNYcSnerC6HA5l4XO0FQRrI2KcwTKlXxRiH5A +5BeSFt2Cl0NvazaNOe4IoCs4oKnpGfCwvKqQ4ioY6dMoKN4RQJdzQCNjE+Aa +qBdpBYYwyTPaTWMSHAF0GQfU3dcPx4Ju0zVz2J3SjE10BNClHFB9azMcDbpW +AkqM+bMUHUmOALqEfnaC4spiOGJZrWlm9is77R1tVIoGZSOH8mPri7AqxGw2 +U7XIq6++ipUhMDAwYL9g42KOVFZeAhwKXs7Jmhl5+ZwaUzWkfkxdUXR0NFWM +NDU1QX9/P+zduxe+//57+4hcxBGJTfZkbKFtMSYjz1ZZtFFpGiI/tZ5IK+U4 +l6ousKZGfFpbWwmj9vZ2gwqe/+P7PDs7C+bIHYztNCyPhi6HzuYsGpNujeRP +KS0StSDDw8OESG1traz7wNKxvLw8/pM9ZP+XI4sM6Wt+g/mWnLNDVsNgXzWN +ydCQXajSSJxVV1cXTcB2SU6IO5iRkaEjMaf06H/41KPjk+Dpr+cmfUKvhfEx +LfyXqU2tVx2JCf+2Vf+OT93TP8imvl23pMJvh+kpjemzlKlNC5Uf/S008luO +QGNrC7gH6MIiOhYDKpqwyNYQcKgcaclPY6b/4cspqSgB16DVEo3UtDe1USes +cbBblqRJFovFAm+++SYdBhYOGkqW/+Y4ZOclgYtlhRR3p/J/0Ead1HCwLzT/ +i0OJT/SGwyHLpNqtquAWdq4jUP6DLwRZNyT8WzjABAvpXaY5W1o0CzvPEUD/ +zgEhWwUEbKWQkSYDVkNvn1Z7ke8IoH/jgFDP+fs+QS4aWYFh18DoqGYpnXIE +0L9yQN19g+Dne6fuhkTcAlNTWoz8tCOA/oUDamhuBV+/6ySg4LhHYGZWy9cU +OALonzmg0vIz4B2oE19cKqYqNEup0BFA/0Q/O0HOyUTwMC+XgLLyv9JGFTsC +5R85OjhxQoIfuFqcpVN8ppw8WDjjCKB/EIAYEUWEfkthOo0cl8PZJs3XL3EE +0K85oMmpGQjx30qRbI0aV0FHt+brlzoC6Fcc0PDIOFi8HtepMXw9DAw30Zgy +RwD9kgPq7umDYO87KKRK1Bh5M4xNaMHDckcA/YIDamhqBIu3Lv/84x6k4C9+ +KhwBdCEHVFpaDIH+q3RXNvVFCgHip9IRQBdwQCdPJIBfoE5EyScx4aNRY5Uj +gM7ngPAryXFe4MXpCG3mvBIKzUGNI4DO44BmGB3FWHZQdlUjyOVQXkcOG9Q6 +AuhcDmhiagrCfd+gRIZGkCuhsSOHxtQpgOZ46U7860PDoxDh9Rjl+ogMw9cy +v0uz2c86gocA1NXVDVGet1OKh/ziyI0wONpGY+odAbSYA6qvr4NIrw2SDL1i +76ZkFH4aHAG0iAMqLc5nO7NSd2iTnqL0GH4aHQEkbOuTmTEQ7O+s6/PsrZRL +xk+TI4DYPyDhpMS6YLUkM/wYFPZ36YWYP5nVBxsBm+X/gMQTG/QZc7aWSmCF +1d7Wg5sNgM3w1U1MTEK0z2YKpmlqegXUtqbQmDYDGNMcxsDgEER7Piip6ACj +ovZeEqzQbgBjisPo6GiHaK+bdDkWdQMMjGhJkA4DGJMcRn1dJUT4rJUn5Rl7 +r6SdTgMYExxGyelMJph1WWFJeY6KT/DTZQBjnMM4kW6BgKClemYh90NJMd0G +MEb5PxDFRO1lokY/5Nyyw9aDjYCNcISmmREXF/gOFWYKcVPZGENj+gxgDHMY +4+MTEOXzFMUrSNKEr4LmLrJToN8AxhCHMTjQD1Fed8pDPhy+geoF8TNgAGOQ +w+hoa4YIpl6EgHCLvp2ufehjbMMY4DDOVhdDiJ8uGwISHoPJ6VEFV9sw+jmM +4vxECAxYJmFEZW6V2mnYAEYfh5Gd7AXeZp1QMgoou6qcnW0YPRwG6aTwr5h3 +t1TqpOIarTJqzABGN4eB9BEb+BrVsmlnuwLq28nN40RtG0YXhzHKfJho3z9S +BEGokq4BTZVMKDB0TdTBv9nX381O9GZpB7tE3AhDYyQ4OGvbnl3AaGupg1Bf +nfW9Yx+gAm78TBnAaOcwairyIChAZ/2QlM10/RA/0wYw2jiMwhPhzOfWlUVi +7mfyRGcMYFBsndm8mQkHKH0rYOSXu6vaxDaAZo4EJhMSQ9+XVioGq6u4lUqf +nxkAauKApqenIDbgGV2wh62minH5OccAUCMHNDo6BFG+d8sjPhJ+LQyMtuiA +FhkAauCA+no6IMz3erk37lF3UhmV/Cw2AFTPATXXl4NZMS4D45+kqmz5cTIA +dJYDqjiTyoxLXQ5EZ74jhT19lhgA0sw0JziV6c9Uuk46mQX751mOtqHUcijp +cd/qYj58OZTUhs0zZG1DqeaLQgqKD9kihf1+MitP6oB+bgCoigOanJyAGP8/ +SYl/KGw99A6e1QFdYACokgMaHupn5twtMkztEnETjE706IAuNABUwQH1djWB +xX+9HpqKeVi6J/T5hQGgcg6osbYA/AN1JRKS/Ir1wf/SAFAZB1RWEMPUvE5B +SSexDGlWB/QrA0Caw+gEuWnHwCVYnP0yOFXqPc+HtQ2lhENJjf4rRV81d2IF +VDcmz3OpbUMp5ouanZmG45bnKWBDoiN0NXT0lOmAfmMAqIgDmpwYg0j/e6Xo +OBp2PQyNtOuA/skAUCEHNDLQxSw7XXR4RNwtVQR9/lkBpGup0/zrnW01EKiE +NALjnpHagT7/YoCHAHS2Kgu8g3Q1E5OGEUjluP/VAJAWG3KCM3lmcLNwrY/Z ++dMH54WrbEPJ51Bykn6g0g6hKEqqo+ZFz2xDyeWLwgUkRWylAmYSGKGroLHt +lA7oPw0AneSAsDw42vwo0S+ZiCHXMIHRpAP6LwNAJzigyfEhCA24RW6zS9gt +MKZqiv82AJTDAQ32tjCzQBcYvlGPWGuK/zEAlM0BdTQVg0+QLjBCE7dYC4zf +GgDSwtdOUF16HNy5wEB5mJj9rXJkvzeAksmhFGa7UtpQBMTyzvjPSyLYhpLB +oWTGfypDqpjSrKpPn5c3sQ0ljW8Nkk98+AsyfHAwZA20d1fpgP5gACiVA5qZ +noAI871STRwNYdKC5w7pc5EBoBQOaGy4FyyBirQIv4e5COM6oIsNACVzQH1d +dcw+WKP7GjHPWZ/6JQaAkjig5rM54KmEQqNT9CgWfS41AKSlPJ2goijYyhPM +yDs6LwtrG0oCh5KfsUdXE6HL4Uxl3LyksG0ox/micAEpcdukmjjI5EZ9a5EO +6EoDQHEc0CxzvWJCHtctTCY3egZbdUBXGQCK5YCmp0YgJOhWuc1uIbfC2MSQ +DsioGUoMBzQy0AYBQbrc8I54FKa5g0gfoz4o0RxQd1speJl1uREc9wZYHbza +AkVXXFqNhBPUVyaAa/AyqSYSMn9QDsqoRYmAUpLvzmQxVxOhyyC30KxAMWpN +EsGhZKd8TjevyCIIWQmVddkKFKOWJGF8Q3DxCVGbFR2xFto6a3RARt1IQjmg +mZlJiAi+T+7sMctGGBhWjMrVBoBER5PJ8QEIMm/U3ZKQe5ltoUgLo7YmoqPJ +UG89+JgVaRH5Ahnj8rPWAJCF73Rb00kq5RA6IiLxE2Wn1xtAMXMo1aUh0jig +0tacYwqUawygBHEop3P2SB1xgOmIgjJVVGwwgBLIoaQnbtPdiJDVUNdUpEC5 +1gCKP99gLNuIiXhCbvBRyzXQ2avIiesMAPlxQNNToxAcoueZXS23w8jEiA7o +egNAol/G2HAH+FoUORH6GLMvFDmx0QCQ6IPR11XKHEhdTpij3lQpRzbDsAnI +m+90Y10SUxDLuEnoDHEpu5SdNuog4cWhlBV6KgpiGWTnqxLDqHOEJ4dyIuML +WW1xkEmMksosBYpRxwh3vjUoMRLjNsug4RHLWmhqUyTGrQaA3AQgZvFHhOvV +bceCNkLfQK8OiPeJEDUzWCxhXcizGIaGNG3Ca2d+ao8gV/69qYlBCAi+QbdU +zPczQ1eRPVrFs+kmDqioqAheeukl/hP+/re3BxKNL4YG6sHToosvv1BM2SnG +Du9+YbuSZ5FaySOLZFScRf8dh7oDiUYanS25zDVeIcVhSOyn1rxxpzVijlbv +LISYQ42BtKJ3J6ipCNXDrqidM1wV+r7b9tFpoRyjhkAH+TSFeXt0xctEcG5h +rDLNPbanEYnGH9sS6DCfOD3pbWmMH7asgoo6VWrfazSxgz15DnIssRQ8JlqX +7sfMG5hloEj3+/5OEx7gE85MjYElTC8xdA+6nVkQirXI23rcwE8LAXN5gBOf +p8wpxMSPav6zn+MxNtoBPiG6EvEyPw6TU4oS0e7Q2BZworNIf3cZsxZXcUZx +hsCwbVT1ID9G7UW0Gz1OzF1JYKaDUCLMAIlXlYhRS5A9HEp5sbuk24MMWkqO +qkSM+oHs5lBOZm/Xc05MCpwuVZWIUR+QnXxrSInEb1aIay3UNihKxKgFyA8c +EF58CYvUzU7XoBugo0cxOx81APQ9BzQ50c9ErGJ2BjwAw6NKLNOoBch3HNDw +4FlwD9blto95E9U5yc/jBoBEG5Gu1hPM514hTQdz+KfW5GPUS0S7U+gEZytD +mTO4nAss5u0mqZanUf+PHRxK4ak90rU8FMJc3VxV7Bk1//iaQ0lPe0taDkeZ +DDtTUahAedoAypd8azABFB2r10S6Bl4LDa3NOqBnDAB9wQFNMQ81KFyROf63 +U9Wj/Bj1+9jOAY2OtINnyDUSkKf/E1S5KT9P8IFIsJN9tTDakAgDxcegJ/19 +aI989GfQ5LPazjyipUhfdwm4hKyUcWkf8zZr6tL4GIXhLEyPdsF4Wy4MVQRA +38mvoTP+RWgJuhkaXC9ZAg0uf7Azn+g80szQPMRpZz87/eCondZEqAnlc6kY +fLKnHEbqYqC/4AB0p26DtvAHoclrGftXnMwJ52Xz3wSdx1+A3hNfwVC5v+ln +MNZ6wg4in9L/OkFFmYdCfsvgeGqgQjh3iVUzA2l6uBXGWrJgsNQberM/h47Y +Z6Al4HqGw0UaIudCk/dKtumPQHf6uzBQdARG6+PZodTg4ZiMklWfcIRyT3wu +tfEx5irknMpQELqVbwve8JvoKobhmnDoP7ULupK2QFvI3dDofqVJYNPodhm0 +MpenK+EV6Mv7DoargmG84zTMjPeb1FSMHo8QrUrIe0/S76i7BK2F0ppKHY2N +HA28ozHFDMrRxhQYPOMKPZkfQQdT7s1+69iuaWg0+61nf/dn9m8fszFuNHYK +r7rNTpuMUhUCoRnsLRJ9n8JPN0Jzm1JOfo3Yl/E+GG8/BcOVFujL/RY6E15m +e3Ab24tL9X3xuAraQu+BruS/sL3bzfYwgu3lGbanwyajkPyHHKGJiV7wDVPE +uu8D0DeouJarJP1OMBKohpH64zBQeBi6096B9og/MlJZwRHCfbqIKKkj7lno +zfkchsp8iNKmhzFnPftbA5w+4DgNDdaCW+gaGQnw9N/EZIWS/lgqqBl5eKSD +cUgO8grjmS+Jd1qCbmS8dLGkZq/ljNUeYiz3Fgww1hupi4XJ3gq8924yCq2K +7jKd7TnMdl4hTQxfyyfWcuVysU/MV59ghs1IbRT0n94H3SlboS3sfmj0vFrf +JzfG5+ZbmLzZxOTODiZ/ApkcymPyCKPHs0ZxyPc4TnW1FiZzlvNg5jIIjT5i +7Wj8geOEXI+3vMea0mGwxBN6sj6BjpinoNn/Wp26fddAe9Sj0JPxAcldlL+T +/XXsq1Mmo5Cb1onECYoKdulB0eDlkJgeo7D87zg2eDVvorMIhqtDoS9/J2P5 +16A1+C7G8lfopO1+Ofu7O6Er8VXG8j+wsSHsO4X4XZNRQOkdjk1ahn7H0dW8 +mvkhp+dlm87F9cEUW+doQ5Kmb9j6cR/Yfuh747+B9gv3DfcP95FuzTPON4qY +iI45GDSOOv6YYj9dC5VnG3SE/lkixBRgb6VGQIyrcQtaLbci0cjtafJcSkSF +xNV/ei8bG8mIrhSJz2TUPVJ03pmcHIaACD347O5zB7R09ukI/XouQnXRCkK3 +obYyLREU7XoxtATeAJ1xzzPO/4Jxox9xpXYTfNaotaJo4jPKBIVHmH59zsP3 +CegfUozMCxzG6VziMlIbjL76mXGGmhe/wySZycgn2MoR6ukphqNhmouCCSNP +v20wNqGIoiVWCFXpCCFRI0JucxG6TUEomr6DWtXI6H2DI9TUGE/XCYSt6mf+ +Dnv66gj97O+EkJGFKFodlZW5yqDZkeBlEB7rL4XQ1IK47PnRuGwywEXrluQE +J3I/04s2zCsgOStFGzD2kxHZbYWIUR8x0SSJcozJ+g1X98B1cOqMVpEwOA+X +GAWX2x3Gxag7luizND09DsEx9+oxO78bobpBK5fu+Tvh8p4BLqJV09hYD3iH +K5lOrwehvVtLlLeruKChIXF53TYujO11XCoJF6OWSKLb00B/NbgoVoaH1ybo +H9ZimU1/J1yMmgWJhlFtbVnMi1jBM9vM4vH9KxMzWkil7u+Ey7cGuGzmuFRX +B9FdEy3btQz8Q45ICVMpcZnScWH6Z0FcXC8hvSVxYfpM4GLUIWYTx+VU4U55 +pdDFshwijkdI4VLyd8LFqG2K6HdFvbjStyo8vRrST2gtfArn4RKr4xJ8h8O4 +uBjgIlpm4UWpsOP6tWVP/2vhTFU9jcn7ybjsssJF7ZWhe1aiRdbkxCD4Reol +L14+d0Ij78GbbYVBjYLBFsIAfRhHMDDqISFwGRpuBtew9ZKTvbyehJ4BrcQ6 +jeOC0Vo0834SLsxgMOq38AzHpbOrAA7zpiHojnv7bJO+i6iuQJ93vD2f3CN0 +NNE3Yb7cfDReUdCoIDSMegg8zaeob4iVTIzRgEDLTsnEoowBCRqt2NH6BPJU +cD7mOUk00JkLumlBNIzu2ItuY8UlR6RDcIw5BFHHgyT/RvExGBjBCAA6Qb3Z +n5Hx3eTprKGxhExdDEX0ZP2VfLzxjgI0c1MNMPizssh0peede9AKyDiplZuL +90uEGznalEqubVfyG9yYvNgk0EC3tjPhJY1jzx7njv9MlgEaMqrFPLDIxGd0 +dglYByUVWtGRRYxBAd9TTn4RRn/Q42jyWSUwaHS/kgJG6KAMlnqRwzgzMWh0 +n1TtiRYQdZcedvW9GZp45CFAEOZYrxYZOuPKnOW3tUCM26UCAwyAoIGPMRj0 +ODBMx47P6JKlaKY2MtYJ7rx1GVppPt4PQ9+AFmoQbxwgmyJYJLa+vO9pOjat +3AO3SwkpRA6RRGQZ0kaXDx/l0Hv6KuBI6GoZMfbze0Va8+5iD5hgw63FLcat +xi1nnqkkR5/VdDAYLsSDwgNjB1dtgIFo39bYkmrVjcMS/KXkS9E/n7z1wUaK +tKCix9BPS+BGXTxcrOl4RqVIrWNNaYx68SBnTfUGaDzCpygt92HujChbWwZx +x90lX4r8FgUymMuNTIeOb3vkn5AZ5UZ4LWes+hhFEIcqg4iFGSu3GmCghV+d +ICv3K70ljXk5ZOckqDkdzpTMHcQo20DhQU1gm29BsaQzJYknJqxP76d4hdbJ +btbo7tRDYoVYn5GiN/rFW8Sl5WRXyEQMhr3Qs8aYIzq2GABs8l4hCdLjKmiP +eJjE+FCZL4XsZidHjC4YPcihT8+MQ1DMQxIDvBDd2KLZ5iLNgUGhseZMCk5g +0BhDJUyH64LpOooj9efvJOU2NXAWKWjUAIMHOPTxiT7wCL9JLwLyvRt6B7RK +ZZlNmJnWLImaSOjL/YbCe82+63TBdDkFI3rS36PoyHjbSYzTGF1jEb3x+vF9 +gdB1Unub/Z+RTCmi7DPj/QSWgldsGgqouV8uBZPvOkIKkcMgKLolouuO0bUR +0Vmvpf0kHOCdlvAOSojlfcmZMpyMnDlQzxRAHKlE3He2/wINsr7Z6eAp4Wnh +qU3zglCjOxWiL195TahifTvD8bj9kjNF3A87E2H8G4MsGIzGMKy0H5ZQ8L4j +5kmKhiLZYjRSdLEyunCgBWqc4GTBHr2Xh2UZ5OSEqeEsjT2nhloobIbpDPQK +kR2RPZ1UScVYFlkXWRhZeZrK6XkPRaOouejoh5MdT3tL155BK6GsTHsw4A1l +DCKEyhk1R0fs0yqjMosC00hMXH1K6R4MQIqucP9mgIboB4gl+EFxesbfL2A9 +NDdrIbzX+caRHcFEEZEHU15MgeviKvAGymGg/YkZlSmqNddO16hC/A6Ow8TU +EHhF6KVgQb63QP+AFrV7WeAw2kl7jfMgiTL24Dg4aTjgeSB9tuagutMmMCqf +Fr0MB0fa4FjoBqnFg/3+xISIRl0vcgTIjmhKp2A7aq9m/w06AsyQQplNqgvV +93i/NoFaUqz7G7fyaduZejkYKvphOUOE5S+y2udZMS2TEggSM1ZEjwHXy2kx +hIuoIK2ixpwZ69GmNarVFQhUM7qSFjXT3Amx30rGfFIgwGyHsdYTtLmYlGEM +oSPAZBTmF+nwkRFGu7QJjKpib+HA84pcZRUq3rw5keWvWnhOmlhoZ5ZLiTt0 +p7yJrCdnR7MFyRHJEsmTkan2ZaNiUdFVkTJpWfrDD15MZ5ef0exoYVUgP6Fc +QtMJ00Pkbbpc5CTl0grKNSJ3kgk91AKC/I3KO0VPRlTZluMvKCy4BpqbNDta +KFVsZ4zsjfoYlUUrMxiZTyXR8FpG4hGVBcYMVC40CuaLRjZoTHtH6jE1s99G +6O/Teg4JSY7mPFoOKG3Iywu9DzWEk+rXRD1OhiQa01xvK0duG42NfIqRsS5w +4TUZWDQQ6ncvjI9r4XIhtEh5MyN1qNJMZhzZs26XOakGDMrFnO3Mng3jNv2M +AsI2GtfzKbr6qhhLrJE+b5TlBcmbgn00w76aEjloMpLOcr9CouF+BdlR6ACi +ziINzgvYjd4+En0t65oypG2NL2ElR38iOfRGicYMhQHQSkD9iM4m2wKJhttl +mo+FzibbsAmy7jVbxChloFUFO8GpUn/9enHwUshNd7HeLtJUzH0kH+fkDs2k +9HR2Un0cRis9GR+S7T3RXSLb1xrV2GzgOCTlfCuta7znWV7Eq6CvUXFg1jJa +MujOka/ptVzgQCEIxjbIPshGpC25CWFUySKaaSKrhia+rrNq4ApobtAu9K5R +0CAjH0MQzIDtiHsONaaOxsUkRFCYkMuLvj+/P2n0PoxoxYnXp3yi/qizqv81 +0NetXQdeybdrZnKYFAcqB8wfN/uuNUkcXC6iaAxKVJSsKGGF4WD0bMpajgP2 +tnEJ1YNlYQG3wfiYVrknGj5qVHGWGASNOk1qXewk1Ca6OujxFbtoBvYkf5PW +6EUSsdU9A42MK9ZL3zc66HH5PsZVfB9wXaS/Cg+RrmKWpEkggFYl7g0pUNTb +EwNq7s42Aqs5Amdb8hh7ruQGtjOkRG0DIXdFF0XaBOb6YjUIWmptofciLS5W +zwLJkolTlBLIyQKE0bMaq/gaC8sjlE6WjD1TeUdV0TeRtFhbHlkRGPHBRLC+ +CSs0NcocTtoEcQpG70wISkvN3aeHopgSLzsdrJpfCmMyXwvlZFvYA6g1rHaA +cQRGJlBAqeL6EwMclitThCW/o0eCgpZDS6124fp3YhOYDkVfliyZxFeoDkZu +AipQpscxNjHWnKGbkEbZDtEkFe1on2i9b7CZKfH+rrM0RrRzwyIlzF6gz03x +UbdLJQLEjunvUsRQUxQzaimebQQEr+FzZq5hehOzcP8bYHxEC17/u9yBCZI3 +WOmDoXO0YeUOMN2NEpOsqaZU3YY1auW/lCPQN9TKmPE6WaUWG/QAzPA7PP8i +doB5EiSemYGAAVCmm0y6NLiZhCLqB1Tusse9Ucf8qzkC9W3FdE1aK1tzhtTw +zZKO/lHsABowTPCj042ih3m6EgE0G1BvYW3GaEMyWvzaBEbZFCFqiqoTZGNj +fLQlN2m7NuDXYvnoxDAnCc000tLuVyjLv5GcbAygo4nFbBzty2p7d92HuIKD +TD/lJi1oN8Z85ble2tcu5APQVkJ1i5VxWFrRErhRX7H7lRTvwmIsVFfMsde+ +7G6wYtFqFtkuIlVvAu9tdoamKu0FnvM5AtjwHD1qVMloHLJt1heNjlPKGww5 +T6rywsIc+rJRL3IhXFEh+0arbZdXQl+r1kzQSewAs7nQ6EGlj+VS6MHoO3AF +BQHRZsHYJDshbQKjPI1obTs+NQIuYXrxW3jABhgf0q7XnyN2YLyP3CMsDEIr +HcumnKQPdy25VYMlHppFMsNfVzRqqX0JR6B/qIMR2w3SXo4NvJNJr+EZZfGY +4UCuIv+FOVBy8cwyRJsVA/MYZpseaddgGzWsvpjP3dhRDgdCdCM5NfQpPMJJ +PjeJG2ZaoMtMoQtPZ33dfteQP4sRb/SvMANDsI0aQV/E5z5TnQL7pGXsDLnx +qK9mx+Tc42RTYBKI9pyx2mK57kvJIkb/AA1WJpc12EYpoD9w4On5Xro5zBi9 +LPeoaUROPEZBCEyqELm7X65PjBKGbQRuCNboYrEeAU42mPj/OPDI1C90b9Wy +DJoq4k2DYmI0dJj+RipD7we1i5zY82qyQzFAQbst+CzdYOLf891G18c/Wq/d +D2B81tte2icoHI3NpnSNxxlFYT52saJa0chCtYsULgVbtsHcv+NzT7CjdAvV +WSwkcAOMDbZ3i7knBjXuYiyMp4rlUotV2yZ+M1EZyhepU4xan/6Wz90/1MUs +KuGNLmMW5t1MqWlNRnl0hmQb02cYv8Xs2mLFuMTIGHE26TOu0Y1aioomwE0d +lXCIXyrAOq3k8OdwAa1y7j5SJmRNoE3pcpGcGwsfibuY0Mdsr5zbqO2nMFVK +q/ScDl49PZH4iUlrj7SYBDoqcTTlmOWqc/Q6kmQYwcUMuYyIGmWyRJ/arHxv +vTE02pF5HqYGPidqTjSd0NtntqIqRdCJwXgEN5w1mEZtKf+TzxmdrHdux5YQ +TdXJpjoxJxorzGRFy5yZZ6rOwlwdmqqUMRVz1hnMKRrg4n3kwCidl3zNjJc6 +KqvFtMxKxKgFmsPMJtKmXUxBTjQQyUfgrxsZdTz8Nz4jXqX2UDgoKOg6GB/u +ruAzIjgEi+DZNHJGZpAhEojMNH+5wqiloWipOzDUCy7Begl2hOUexvfjokeO +9IkqLbSXGNUU06IljFuOWy8e3eHZr59wK/THdnYXrXxbO6rgMGc+tK8SonDg +bJG6AObZormOBKhb0os1X4bRKQbi8DYGfniXwB9zh/THdq/+Z45aWXUaXVEU +dVfZyV+aChS00b1CawDNX3SBhMwQjigWuWMoU5q/vKPf33Ln9Fz++0/qDi56 +GWfnedNFaKrKDHGGklPeJtGFhxbGBB1az5gKQAdXXRgKSIyNoZUrPZsx64X9 +lDurS/jf/eTe67/hC4hN0gURdptorEszaUpKE37IhGi8NvuuletyvZgUHio+ +8ldE9GLKNrEJfH9kc3rR5BhFlzlys2KDrIb+7uocjijZPs2ZhBEjJfUAMBBK +bga6liLCAMaI/uSNlZ2ipyfBO+R+ibK/5XoYG+kVXXyIcJh2RusETTPdXFtM +8SlkZNSyaGXIz2LbeP9NlC6aUg8M94KbWS8pDWX4M5MtXdDDSCfVaaC7KOlh +MVUvYBYKmXtKbfl0nhG6P75VviCIVmajHAvWC07jojFhN5tiRRAZZB+1Bt+l +U+4lZKKicY7xCGkS0oe3tLN75ffHN9b/BT/wsspUOMRvWNKbXGlfm5IEMTAr +d0IQQ8xTc4jhZk4MCfIJN+XQbKtE4YifOOlldbPlTKGfKUGeaAcFSUmV+K6R +J8rMVzTj6ESHlKuORs3fLuBzHk/6Ql7cPRa8AhrOZpnixNmgv8BsdvT+WoPv +lGfjdgnFJjAciKUy0mSmj1GTNrXTd3CEfknNw7IGertrotWN7i6DgaKj2ka7 +XaZvtPkWipNiSs9qo416qQnKwHe7/YL1RJaP5QYYH+uPlHvdrlk7KVsxhThv +r9GUVPfaqD2ZYKGBoR7wVJjWHPogXpAJs9ruNNJCzEKw3u7HKARN3pHVdhv1 +IlvC97O1tQpced8I1CKxMa/y6k6x16UU+yVPeN5ef0Y+zMyk0svPqM2XiK1U +VqQwXaxfIcvI+NZkmbPRGOCZt9Gvk+lktdGXGcy5mM954oQnMZBkpOIAU6Cy +y6hi0ClSdhk9ftzlgQV32ehu2iI+cULC5/q1ELbo+oYck5/YZUbyJDqYhz13 +l1tplz8nJS1e4KKPs8HEP+OkhWo3NPxFeYnaJXgt9PXU+YhFMwcZSQvFU7P/ +tdYbvYUq2bS8NP8Y9YnCDBPjoUCz/nqdZ/ANMDY24CWOllkk6P9g9UGjx1WL +5sgOLIzB2jnrbbaTlp/l0w4OdINPkP6ARmDYg9gU2p1PS5vMxAYyC7N81IWi +LkQH0UpP28nAi/hYa3MluJv1tpSRca+Z3OS+jhExYeaUGfjyOC23UQQXQ1ug +NiSz0/pomk9XUZZIRcNCX6ZlfMcL5DW1jmeFCRq5qYtpU1FGYhwBfSb5udH2 +dFN8upPZHlQqrYXEl0NRSaDpiNVmlpKgt9rMlWRozttMOwl8EfBLiv9E9q8+ +FLKSGOSQupmNKZQHZG67vpm3L7yZt9uebpxTC7JFRNjzemvTkLXQ03f2gNzP +DhIyGABqdL9S7CfKggX3827bM47xGScnx8AcpBcce4TciGyx12pLS8iuaQt7 +YP6WxlhrNDtVAKN8xsH+DvAP1F8D8Qt/CKZnp3aLXUV5x8QKOszzdvXb+buq +dh+hZIJoT9/ahE3ylMdC4jEJO7vTai8DqPTKkb200xNkmBNLRWm83leP/UrJ +/s70vbqRXWeosKgt7H7DjbRTQzDEp8vNOiob8KEXWVBi5teHxC4m8V1cP38X +86138c+2pxPR2OTY9yUrHAhdCXWNOaYdcjPbyaTDdHSj+xXzN9PTejOfsT2d +6KZPtfghf1baN66D7v6zX4r9RBuACWQMSreF3if302cVhV/m7aedQgTRe39y +YhjMgXoXDbcQfO9mYLuccZpC3Kj3HNnSTbZn7OUz9vc2g6/SENJfawj5mZhx +ZpoC76QFfdcuvKuKV/SK7RnF2wBN9XngYV6hK4cESu9/IshmZooi7kg2zMCR +M7pfQYoRXXYrCWqnrEEEs0uKQqh4XeiHjBP7+OW/xZS7RIMdu4cwladPdyW5 +fZjJsLIu3rA9XRefLidtp9J9djmcKY8yfSSmm54ggY1ZI+Zayuk8rqIwLyaM +RM0IfbbZnk68MkA1r1FblDaEq6C5tegDOeM4Wf3I4k2ezmJGzEyjsY75uVm1 +07id8gjxJsEs8/7DLHoxukvIBmaod7wnZxwjsOQLeC6VM3otIyQQmVm1ae37 +tmcULxiMjfRDQJDeTs4z5C6YnB57R8zItgy3DrdQUfJkwrCNxg0XRUn0+cj2 +jK18xt7OGia69eZDQVHP4U6/xWdEux5pA50bRXSjLEVKQsNxVu3D/YntGVs4 +2dTXpDPRzbvBodef8plpm5xuiCrRyDR0v1xO57Oa+AT5BdTujJ/bnq6ZT1eU +76X0eFsOOac8TFvFdBMDFAshxeR2mZiOCQAy21AgWE33pe3pmvh06cmf6a9w +hK6A8po001/EdOP9FLTGhBaTLHI6v/Uk6VDiWYk1O9Ub4kkGZIqYyOf1DknM +uG/vrHldzDjWS1YM3gVgpqCc0f9acnI0Qar07PjO9oz1fEZ8ztESrFsxbsE3 +wvBI36t8RizvR/WEUrPBVc6IeQ+M41DARu3JsdP2jGf5jMNDHeBr3qCnPEIe +humZyZf5jMgURDNxz1vNGHgD2Ybksakz2qkIqeMzdrQWg5vSzDM0Bi/Uz27m +M5KyaM4gLlfYkNaY971WgKHOuN/2jOLliOryGCa6l8titKT0H/glf93WxlhL +s+86nUrXUBKafCV1ukO2p6vh0+WfOGgluk8Vhphe5OPRrcZ6N+apmFS5jeEl +5Hcrjjhqe65qPldy/Nt6/zcms+vqT5me5+ORI5A+mXst58LINFZToQa0Ukmu +ylxkflbw40KmiQjTL/8es6yHrt6mZwWBoC6qjyc9J7l8EZWUYi0T85wUP9PD +9oLEdJNMSAUG629jezCzZGx85GnluJCx0FeRmnYRp44fMLupTGenVEU8dTHQ +3wBeFv11HX+sk5ideYp/BVvSYKUoZsF0FbSc5CVW7Vnxt6/t6cr4cbU2ntCb +dWLrwLgPTU/y8ZiQQlOIeXw6abhdRplqzPpYKR87RTDizYyyM4HSw0SzOi37 +mOkJcWoLsfUiihCgfJF5GPrYeYteZA1zMr7RG50zTisqTTA9Jo5sdppSD2jO +SoZeRL46RiMYRyhz2bn4LN7foG4XcS8rUnk11LeU/0mhkAUZei1JZao1UBna +zlvy4qEONFVClEoiTAD0DXQ/wr+CERwMLjEL2pqnU7eRVWjF03bedxfPeYwz +veIbrIdavMz3weTU5MP8K8i2GIzoiH7Cmq2ZGsJKVivTL8b2dAV8ur6uSqZn +9DhLUPjL2FPuQXU/mRREkm/0vFoyeNj9VKAsy7LoY+dZ9dOcVOrrEpkPJITx +MohJ/Nr0IB+PJgMWRrSF3G0SE2HxAqqayb5aZSI7j5yLR0SKTrsojWGXQ+aJ +ANP9yqLQAyeadL/iHGUb0X7ATILVqdmpAhJ5zvSUjxQfbwWUVmab7hPrYieK +hS6tlltNqsjCAM/0cJuyrjTbE+kPksxANDMAxHm5MoHc0n72HrE0JpLQlCMz +1u1SuTS3S0hGE0GqUivD9ozi5ZIpRlGBoWor2FtgcGjwbv4VjEAgJ2P9olxd +0M2UQpD3juhjp65IPG4yPNQKnsHKI0bmx2BqeupOubppssQxEscE1znS07pc +U6GtJ8CKu0/YnlG8gtLRlk8ZGBHtCIl8CyHcwb+CGhudc6wjkLIr+E4S1dZy +0s7d+GxOJFXloTJAjv0bE1L3m27nS0MnEot3sBqsweWicxRJgt7APOPOzkPK +4jmV3JydMiyOTUJPFUbzhl2LqEYC+Qrz8TpTP6DJ/8lhZV12btyLXG18/Bal +++JqZoYUy7fI0U1DXaPLq0XkxmE0YKK7zPSCGMeosqk7H2ra1FeZ7PRASucH +iD5SSPiDCnleBz19neIFeCw+QFMOWwdKRRf5KCVAsIOZ6LjSN9wA2eUHwTVB +s7/xT6vnTF61jYp47WVivA98QvTiGu+ge2B8YvxGsUQS3WYsxNO3wmcV6So0 +XcRW4KuPhXUBEJD+NPtpFz2RuTdyDUTnvwvjk4Mmh3BKFevqqWYuoZ6BModt +QvkuKnZweyhM4rlU4oT+BQUtpie4NbmYXpGsaI6FsBOvw+6IFQKtwIxnofis +BZ+qU9CyE09J4SRTfzaNWay6Hog9/iXvbrdI43ImgztinrTWA8zEmxpslDjh +86WMXGhf9kWtFTi5J94HORWHoX9ENS3UoAtZuCK3XFDgQcyoGS/LIPuEj+l6 +jgna0HgJRjcAtd1Bkxdz489xTPCSwdmOTDh++q9wIHqDhsliOHr8Fkgr+R7a +eudYHXausQi0UtM+kfXjR5h8Kq/KNF0nD62KTGCs2D6Ho4WCArOzqCglWmwj +GzpPQELh53AodqNAi/0vJBZuh8auXGsSf9s2WgmcnFD9hEfrvUXczGuhraN2 +g3p0DUm4SboyYN4i2gp4dUP4DczHhPqObIgv+AwOx94gMGN7B3GnP6a9tHqD +7D3bmMVzzKanxsEv5A7dbmI6aGhk4BpxlGhcMJdEVVN0lAxbTIc9I4hqegyq +W5Mh9tSHcDDmWoHZ/uhrICb/PfqnKfWRLDuXccRbQEOD7eAerLcjDgj+Ez6E +sV6cZl81hUTmniaeMPs3iRleJClviobI3G06uS9GJAlZ5IQpNSZmpzdZHMes +rbWQGdCrpHCIjNqGZCoKr7TTTMb6GyvDBVkCld/THDMUWGfqQyA05zXYE7lK +YHY49kZGetvZaWbRgcvPZ7Yxi+XkX14eoatK9mdq+j5ZD4axWyQoRljKUT6p +2W3sKJ/iaOE73QW1fmDOfEGXWYvBJf52SD3zHTR3n7ImfztXimI4Wtk5e6xU +amFRtGmNPMda4kCrc3S/ksQrE7OmqzhaKAca2wchKqsWLMmVV/Gv43vBuVVu +4Jf2ZzZIQ9Uj6QHILNsH7X1zwh5f20ZVlHLExL+h9ye0rISGhmLTKnmwM2RH +MadBOdjryGbDg72Sozo0OgEnSlrhWHgRbPkh8Rx46rNoNvTFr+JEP1rTJWJV +DCSiiTrUM/lBsQKf1EfhROVR6B6ssV6BnQ5xkZw6UXyZw/XblJ5BG6C/v2Ol +IAPGD2iG4bUR3YV9nLxlFM6X843ADtl1Lf0QllYNn7lmwdO0BlzJYnh2ewx8 +6ZEDERk12APvIr4Y5PC69gxILPoChbignF3hyyEg4xnIr/FC7aIvxk6kLYIv +Zmx8ALyU10z8zHfB5MT4CkE8/XUUqMQrKDrxXEG232RPOV/MYhgem6QTORpW +BK99n7CYr+ONXUngFnkG8svbsAOYWMfoRC+UNkaQyNgftV6sY2/kasarr0LR +2SAGsEtfh534XThfR3dPLbgo9kRI+POY713Ov4L3+DCviysQ68B2COghY+Hq +peJQ2B/NnUPEBHgAz3weww/FCZ77IhZ2eJ2AmOxaGsPGmsSKkEvyazwhKPM5 +ladRpcWd+giqWhKs3760Ex8M46jUnE23KjxLTPjctEwwCpscGaU96lEr6xEz +BUhjgvonpqahsKoTPKNL4M3dyeqxuEedgdMV7Sp5Ia+09BRARuluZHHBK26J +95C5gGbwjBqsthN1DOWLyC/Qa3BRbuae9DY58/FoIWPEj/kt8kyw9BMdwonO +IrmInoExSMpvgJ3+efDCl3HiOJ7+PAa2u2VDJOMRlFvqcaBZiCrx+OlPdD3u +pDFK+lNMnrlCzyAGYmcVU8xOYFPURiWm6P3cjzLrp7o63bRULIf5o3gvDY0y +ySpul1FJ/FR/ncQNSexsaz/KWPjocIY4k1e/S4BDwQWQfaYFhkcnL+ajh8Y6 +yJINO7EFjW1BWPuY3R1+8i+k3obHlfcW3WwvQvRYQ+IJjX5e90yYrdTZUXs1 +/wreE8GCBLz4LNaBKTV0yzBw+geOGUraktou8Iopgb/sTBLr+OBQOgQlVkBV +Yy+jllmVtjr6ysgC9k19bLGii+MLPmVWQor1q8Cettdh5uuYmhpjbo3Szc18 +I4yO9AvFhQEwjK2peg/jbcTyzOb7P44Z9lk6WdpKm795x3FVBH/jfRIScuuh +u3/0YrnqMahtSyMDgolgsQ5PphGRbVp7Cq2Vt4/tdQTxdQwwO8zVoic7LCEP +I29cyb+CVjWm+vCO1DkykHETucR4Iex/OWZ9Q+OQcqoBfvDLRVEl1rHp6zjY +bz5NdDUytiBd7dPpak/ESrBkbYLTtb7QP6xkv+2EdsWDcU2tRcwl0Kw2dBFi +ot4wiUUsJH8xGo9VQ2gb/Z6j1do9TLL3c9dsVIhiEUzJk8Aqqu5EulOJipR7 +xSGVqFDqoulZ2RJP1qn82IkZB/BFlJRFWcVCMtP3ciW3sNRFW51ylEyU/Fai +NQs1zX3EBu8eSBOc8d6BNPor/KdZnTNQVtW2pZI3dDTuZklRyQ8xitpDAtmK +ouwEo/35ItKz9ypRv2VQcibCdBkfb1PqJr2GEVW5CGRv3G7c9td/SBQnwQ6F +pC4eUlv3sCSn0Xamts3zyClyFQRnv0TmrpVlEmF7EaJCMuL4m/oNB2YoNjcV +cDWtytrrrGUts2mnBs6a/mfOIo4xs+Slb+LFIlCT/+CXB6mnG7HdsTU5lZCt +aCWjbiDvb54St3P1VLwRiPrSP+wRPfRivgYG+tsu4V9ZWNY6U8kLytr/tr+O +TV8fhwOW05BX1qbq8cmpERKo6MUe0SnKK/lhZrXvnS+j4myvQ/SkHBsbBHeL +3iIv0HInFrddzL+ysKxdRzXEKGv/y3gdh0IK4BSzRyanJHujo1R4NpD8t71z +ieplKKjzhwGVqNTwO8VSPDn2XV11lCbXjENniAh/Bo3DiyT2zUQ51hL2Zilh +/9M+9kxpwOGQQrKmGPZCP+IWY4Qlq3w/+KT8SdV4GI+pbk20pqYU26cgHmes +rs2UJiG6e6lJn5jEIvDGHQVf3C5VJOw9mknIJOx/GC/iSChbRGUHDhGLQAzR +kIov+ISR0k06Kf2RHMDW3iJrUrJzP9iDL+LkKR/l+eFlcDrXg9sUi6gPDkZg +sRpaLiL8QZK6KGH/3bFFFFgvguioLhBCcl5BH0N1N0KyX6GY5sBoq74IOwkB +d76IuOTtuhcbvBzOVqVyg2IRlethkbzVIsLup5AFLuLfOFrMOoLSum5wCbe3 +CGGmoPJBAwp1HfNexUmwQyErt7o1yZqcTtpehHjJEuthgyL1RmKe5tXQ01X9 +v3IdnRSixlstOkXdS1VOuI5/FYTO/mhoGwD/+HLYsjNJrIMtidzBwiqrdVj7 +sLeKdXin/BGyyvYziiq2pqh82+sQr2DidVXPkLv1dLl5I4yP9P1erGO0k25R +4JV+sQ68uIiFXPo6FkFn3wg53O8fTJOO+PNfxpL1lF/eri4CI0uljeHMgX0T +9kWtU60noe6sJJOdZIV4MbNvsINRkp5fDQ15CHX17+QiuqmaBt+EkosIvpNy +M3hb+1/4uMGRCUjKa0AdLReBnhKasumFTeiF/y+nYaSonsE6yKt2p/AB845M +evTu+oVNqDO2VyJ699Y3F1HVxy5ek5gQQ6XBv+VfwevgeOFP1RVY5qmZgjOm +f+Z7PDE5DTklLeT2MWN8EQ/y/PVoJsTl1KG5K01f1LLonaaV/IDeqqApjLjj +X81zXO3cMD/CN6ewJIrys5SnDXOGkxk7TfoKeqlzgfUKbqUWdihq/4mjha1T +i2s6iZuZGS5W8NbeFAhOqURbV64A9xj3WgvvXi8c1t0RKyiXkVftAT1DZ8Ha +Ya20vYzDfBnJWfuUKyjLoKIklBtHmvGBuQs1toMXfDBdry+D/V3XEAQmlKMV +KEkKvVV0/Gqa+pD/hfmOXgWagShplYgrRqkjc9+imM/ohPK8Tq3tFRziKwiL +VZ4bYGZga/NpbhZpeRAshMEskaq4scAPwyC/4eOY3wPJ+Q3wmUuWXMELX8WR +y4fhEXZQv+MrQKbAoODJKhfwT39SkNKx+NshuehrHjNW4uz1tlcg3yzFVk+h +erzQx7wehgba/0ssgh09tpHCbif6Im6kTCAu4h85ZrNcXSDSTCwJasKIVFZx +M9p/pt/JoVogJ71kp8oPJGPLD5AasQp62ukLIB48HRrpAzclTmhmBuD01Nh/ +8q9gmhgNcmz1KhcRuJHyitg85B/5uM7eEQhJqYKtu5NNYgVv7kmG0NQq6Oob +lSvAjAG62RgbYBaTICTkh6DM5+FUjbe1P2Gnz4B4abW1s4oZgSJC6AzRkZiw +m/0P/hWMPSMDY/RejRCSEchW8A983DgTSxlMkH7lkaPT0pdxZAGWne3GY/ot +XwSSuhbmfFPNjLD/hfCTb0BJQzhFQuWn0/YixCuvZZWJVMokLMD05C+4eXou +uaHUYNPlD/QLS8Iwcj47PWb6taAM9kdlQy/ZHIpIQnc75VQjagfpAKLVdKrG +Z26aAp1rtF+1vI4Ssemxjb14XTYr11VGA7EIrLjAzyTeIMPqKKwBFNhj8QSq +CYz7/5rDROUWk10Hb+9LldSDoQGUTq1dQ1JA9w7Vz8tZYOIc0yvzlEG/bbzF +e7YxCR/oT7AEr4DG+mxuip5LdwSwyEPgjb40FvAwl8j0qzm7jj4O8z3PUUJM +e4NOkYXERJBw9pA1uwaqyNJjhrbKvScqjtA/WXHvkO0FyA7uMANBYX9WLL11 +0N9b/2/8K6jQyH1TfAcswqO2amzEL/k4lKPxJ88qFtIieHd/KuljdjbSXRWu +T3rpbnBLuHsxz4Bj6BWD5NYZ8DHb6IsHfMfHh8HToj/T5m+5BSYmhoXhhtEA +LPVRJSgWjVAxNxvxC+UYapv7KG3EWFY9hoOWAihH7hXtZbhR0ZUHycU74Njx +21QRhBEydChQ3cnPpO11iPeDu7sbqDBKrCMs/HE8GmG7YXEXlsY2+6230gRk +GTHN/ws+DiOWqM4+OpIhj2EbMyqiMmtgYHhCetuoqDBlPSebjX4P1kuUNIRZ +a2Mtc2YSDX5ttELR2lrM7z9SXFwMO3bsoMv177//PgQEBMDIyMhCF+y/43xV +W5fDrJKV0lJMSnhfGrIUbKtPoOo0GRrxWU09ULHpmdiMeuZ5YIyKSTOTONFn +PtcY60xNF8pj3X8fI7c79tQHajkEM+AhKu9tqiOxcqHo8zPrTbHR+MDWpmCX +gYaGBkatE9DY2AhffPEF7Nu3b6FN+ZZvSv4pf3rVjixP9md+rivflHOpyBj7 +IEoh6XEVlYFhadSFHCbmfNILmhRjZxElfDDP2Dc4pkczqEwlhXaDGWi65X8d +pazmyXf68E4WIuU9v7eLk9rbRXS1kK1Q1K4W5/O/q6qqgs2bN8PY2JhpoU4X +4oXqxOQvZVE5PqxZU5ViEu9FYv8oKr4TQtj1EgqGYB2o2BdMI5mTKuCVbxMk +oaBnhP4F+trMHRcxEmQctD7QGlcIBVUfxv2xQsSqcIA+51pvzfzuME6yO4xR +kxLxTH1lZaXdrfmaEyXd947Uuxpi4WxXR5Uw4NHQxwoA7DYmWAmTbFoHLCRb +kPIR0zbo8DIWEml1tPUDEyswC2LSd2iSvHi0BJRyFAyVaiU8J62VLH20eWQ9 +lVFPmSV8LpRD9fX1tHtMBhHvUKsZ8a72JPP/fS26/+9t2ci2rE9Y/yhWsX4X +S+3E8pGJtNpFsfxFFFTKLGpGD1MyDhOxxEyTUzMy+KRVVWVRTIxxi0odKGkb +OnMWWPsvrNduRAGL+dJ8fHxgy5Yt8Morr5DYweYmo6OjC8kP8VJJf387eCjp +JHPow4jybziroJWIgQPBKlg4Q0EEpmDETmAqCa30175PsJKp+8ynoKKhBwlF +BrHYZuCK59RyoRTB/cF9sqqYoo9mz3GZar/3jVgpbgQuXmUPdfVakYwTNDUW +0kvbu/hdhpi4rSaxdLwki418raRnwQEykMXSMTmDZhozCkyCAV7+Np4SN0yC +KMG7aaJypHZl3aJSrK49fQER8Rt13TZ1yRIHl7ydL7moOBwOcYVBHWqy90p/ +C2s7ycdXYnh4eVF7jVqHi7FITIKqSuPDw+mUIWEKRY/1cc8yqehL1S/DZaOw +xDyWlXtMn3+xXraNTjzqsnn/HobyJmrZlpiYKJe9UAenz/lWpGf8oDcUYFtS +WholHTc0KDDxpVpXGJbF1KS6FRh3wqQvs6is9MSewFNQXk/ELwzP7sFqyqi4 +xN8hI2f7o9ZTRR7pz3lbYedJ8s/4GqKjX5e3SI4Fr4KW1mK+hnPpZhv1y+QU +jPlsvF6IcTOBPzpJIcyd1vXcIkoC+8aVQRcT4QJ59O8w9Oed8ohJNQ0jTr5J +oaj5yv+/bCP/CT/b6ekJCAp5QAofD8u1MDTYKZ5RxlAsdg2UHOh2KdUVYIcv +gX97zwh4RJ/BGIfEH528SGbdMgdEGohjE/2UwQ7KfM6kVkKZs16ksojxyYE5 ++P/WNv5/5fgPD/eAt9KUxz/kXlzTr/hX8LYTNntSA054k5QergDRHkuTImiA +Yk2XWAOmf9OYKmFqRsY4cY8rm49TKceeiJWiVBir09BRGhptN4H1539tr+Fj +voa2tnLmZeitGcKisXfXrHDiyLBuSKb6ND16eRtdbwSpdhdRvAntoi9loGMR +fOmeQxki9m8yyomSEC0iNBqlHbmI+dt3U+qrZ7B27hrsNAvSri87QWV5vNXl +yJS0Hdyb1ow9ut2qxDmwoQRGaQTyqMtxs9mmywPA1DUeCjscfgDMBhmopijZ +kbibTLoRcyNz+r6m5JaVo02fS2wj/yFH/kTOYeWq5TIoKDRzF1p7+B2TEXjz +RbNULyZLFYvQBPJowaMEYla7RB4TEejmtPcMy8AsOm+YBPVNe9xK/KAknleq +TJ/LbSP/AUc+Pk69u4k9WfKkr4W7gW028W0IQTod0U9o7WoBpLLGGBnGaV7/ +PlEuANNaQcz8Rgf1N4J0GIKoMjBAtidy1TmKi42JufKmGKqOsP7YeazoPU7A ++M58aOijkgNcgtdDb2/TL/gZILfSZWUhRf3WaWlSZgKJJeB7pVhZxoxfk2oI +oxTCKJkwLjv7KyisxIjGJEgfy2Mx/DQ01jGX9O10cHqXIz8+Pgj+Zj3V7hV8 +G9NJIxdy5PHiCpYMYHxMuDoYJ2OaXiI/PDpJKuClb+J1EbozCeJO1KF6k9YB +prGw0ofJG5NquaF2x0TcfOq381DTOxz/nq5a8DDrl1fNEU+jg3Ih/2e0PzFG +LzYf1dlkT7lAHbUXksmmr49L1LfuTqacFhrh/8BJB40rTExjIJVJTpV0sIQU +hep87bvKNvZvcwKuq06XDZfQfoxN/KtJbD3ehVVDfdiEAZvcoPYV7hmazv7x +ZZhekPi/vS+FhNH0zKy0RlDwpJz5Fm1HSTeeyQ9Spmd4rHMu3ay1jflbHPNT +J93oOU0yA5nUOZnvabqAj8fgNgaymajUzcDUt8XLfNKm6mfYe8eWYpBSYv/+ +wTQqHkPsRSAWuRLDRwHpT5nUlGFS0Vfzb5XQZ73tBWzjC0hO+FDp9LECqmsz ++AKWkITBlqBi67FF2lhrjth1pBoMAr/wpb7rWIiIhTGoqwTeHf3lRNzMXpW7 +bsnaTKEfRi5zd/1a20hv5YihqAlXIqsulnXQ1V3/c04yZH+f/Jq4VItqX8Fd +jgm56RhVRW9Lj2BpxgLa44i8MD4wNoUGjy7uF2HBGBViWIdU6bPRNvLivcCJ +iWGKpcqwsOVWGBsf/jn/Zwy/Yd8IsemodKcGGgTeGIbEfLkqZTC3idko5k9w +lafFs5EoMJezL2qdYFW01bCyB7l4vqay06zsLxy9/t56hrEuaDDAPQsz5/Ot +x6oetM2spbwWSRXxKNS0sTl1VlIepQ26PUjvwmZCWxI1rXfKH+XW430NrGZl +dvTcrbfT+mwLJ/b6ukw4xg0cLCSJif/QJDDH+y14lwX9U5FSwIISrKQSmKOB +gzYCs4ytRHxiXj1ZmCLmjZuPohxtgn2Ra1Q5GXFyK8VwrMot6HObbfzFG49F +p7yspE12rrtJNPPEy3vUWZ/vPHpZE13FAnUUDUjbb0kHaxFGGiiLgL6msDYw +B4hFFr6pj5lUqxJTs8NjXXM33c5Lba9xpFOTP1auyayA8so07nacSxlMbB+G +LonGqVeSqY+Z8HP4GMwQfHIsE3GmX2jTIAcwe0dijXUfWAmMgt16t9+E+s7s +BXZb7SNHZWsv833EiHxE5FOKbFkLbZ21om8p3n+nh3AFezJLjLGnQLapY5Bq +gQWyWPTod7wML89wjaa582i7Y9km48dz+C6jBYxSZQHSttOCTqA9xWReQPCt +ilS5hVkkg5pv9CvqoYQ+H1q+pEU9l5JuEve/MU6LdV1Pc7zxT0yuYnpYxHLH +JwfJcHFPvFeShn/6k1DWFIXxh7lIP2AbadE9eqC/kTmrasuNJ1C2a0j/nNpq +qFYL3scXPe7x7gsqH5nZWwTf+pykkij8stDBmLfDaBETgSax0VjGj9Vb7X2l +c3G289TeZk7OTQ3ZdAtByJDIuA9MAmHs4kQxX8VWwegHNaJnsgPN85e/iRcI +Y1UNFvNrX9amROLAOJYla5PCf3eRicKc77kI22nht4kjXFzgI4UGFldn5bhy +hM+nFgB410sgjC1f0eBCaYHXh7Yp0mLbnhQySVA76tHbMdKOzPiW2KITgXH8 +WfGchf551Da24gXXtJRPFU9oOZRVpHAX7XyqPKGifBmIWcfrybRaOKwOkOHD +b+LJ8kaxLLDFOxtYZqxLiUVUF4AGVO9Q/Vxsn7CN7fOcgDVh8bQiLNZAa0eN +hvAvCDlEUiCMyFP5DLP4XCOKJbdhMhQjRYyoJbJoq2Iwd2/kaoks3iFGQbwA +ITxpG9nnOLKTU6PgH6z3bvA038xEBG/GfT6dO56/HqO+juiDOQDkgKmWEtZx +460B/KYIISGRo1gLzn5Z0oJ3yiNUjLGAeHjaNsLPcoT7+5uYeNAzt4Ghj2Hg +w4lPi3YFcphAGGtYpxkH5pa2YXmLakpjQZiKK3opJQ2hWO8vcUWzCIPL1uVe +9HnWNq7PcLptbDzBxMJKKRai494zCUTxyLG/stzZoJtItuEFqi/dc9SIN1oX +aAMJRDHehvUH6OkKKsDr/5gR6xmsm4voC7YRfZojWljga33XIvsoR/RCOm7s +kiYQxfKE4aEB8k4wGou0iikJ/Jm5uwJJ5jpBeskuDESZVG2GhtroRO9cJDfZ +RvIpjmRKynZ6TYekAF54r0jmzt55ZN3jFWmVTkdbsqk+iFk0Uht4n6QiOgA9 +QoiXa7AEVuUpN2bcYPXcAp6InVc2/8xJlK7ARz4rSRT7e7e31yzm02KYG4sJ +VAHQ0NhChaKq6Usuk4IoMj+miJkNIxHFUhR0mWas+jXTx06XzCc4opOTjPlD +9Oe7vcw3wshI/yJ+8hhjxepKaR/4rIbeqjgqNxQnj7YM5nKZ4SXwxGgdhlER +Q4EnVrWiBluAj+x08Hic49nf32zF80Ehj6JJsIhvKBbH0AOlwiRIeBkycout +fInvfXMxYsdJCaRwwoyZOetFXVHlvEL3vhdAdIttRB/jcBsUhqeLV3HvmASW +5EsUHZFmLd4uacjzgU9dMiWWWICHVy9m52CJMUQsoRLbiR5bVN476EXPxXKr +bSwf5VgWFvrLilrk9mzG7RqWFzCztd6qrqEt6gkIjkknDhdaCV1kdA9UDNGg +xhiEwBANbXQzF1ChdtqN/oljmJKqv35wOHg5VFQkStMfZ8OXqoRPho58ecp+ +eHO3HqPFGmvMXgCAjAfh91CUM1KUWGKZOGaKB0Za5mJpp9XFHzlZIp+HRT2n +J/uRz9uqxQNGePtAjY43B98LHoGRagwzu7hFOetzqeEGXlwWEMUuLhBUeNc2 +fg9zBKYmx8AvWGXvGxh79wn8sEeJVJWul0BB5Ofw8g5ZbIC2CIYv9T08lzgD +szoqfmg1Mxk6Fz87DVcfot/Ph77+FrZnKls/QlEc/GAlWU/mRzxGtgQa/G+E +Ay7e0odCBV7Z0Cs2DjOhWAumIobZ377hxrmI2enH8SAnv4bGXCs2jo192yTq +irCLPZaYi1PNC3odXtweRkhhagC9UGZfih3DcAteRLBC7NRH2E1oLmIf20ZM +c5suhIKCAIVznSE754g2gjkI2PACb94hUvWey+HIoV3iKLEyuaN3hAPWfsd7 +8lhrpUppDE1gxSaOmIOcnV4hWtO08xjTWpcFlZdTTxhKNTI+ECdZ5P0gvP6F +H20YGuSoomfFUw2a3YDOmarlUJtghncBvD5V8CKXXetzhmHGWQiLfF5hztXQ +1kaF+nSJCZUZbRWjfL+D7zCzO4pQwrwUM8UFOujfogPOXAKJDt4DQIJbAB07 +PXHv4duEneh9g/Xnfn2QK0d7KZ3Qm/O5tk1OUO5+Lbz/1UHCCWMyzICVZ4eW +KraYOBhzvZUlYEPD2mlbcjdHqr+/le2Q3oHGEvJHup+KV55bg+8SSEUffBJe ++DyEkMK7FBjBkMEkRoNYSO0Sf7tECp1UjAQs4PZ9ZRupu+j3X2LCSy9KRDaM +0d7oxudgUerj8dW6Xg3ffbudMMLauqLqTqFwUZj6pOidSbEkCkMVC/gddpr9 +3smhnS4IlMWA+5nnnJN9iC7QdMZvMontyT58O2z5QhNS2GwD01NCbSFfYYpE +YIMJfrSFJ6aG52Jjp/OJ1nXuF5CU+pXkNczOVpQfpxbGuqF+Ebjv3ALPfhZJ +23KmpkseFLoPmChjyk8eFIokvDkM80naTltiLTr5j1rVW5SuFtwZr7W3ltGj +LcJ4LDm6Gj7esZf2BoNKmNbDD6aP8FQYLav8hbd/F0DGzpPWt/KNRv7yCVab +EWyEoZ5q6lGkHdR5cHzf/bB5uxkv0lBmXfvMUojCI+l+nXzvhqoW7B81j6d2 +2UZEizn/GvoH5vLUwzDanC6d/7Mul8DhHzTJczC4QChbsvOZLhNIYEUPBnoW +8EXsdGPRutv9E+OhfCseOh67le64IIEgEoVH1pCYQT8THQ78YHoD24ygrhI6 +Cz0kTFJaf/bZRkB7s2yJNd/g9a20b/Gtbu0kzoXYfQ/Bpu0Wio9iBARPAXtY +HY27WRInKnYb4t9O9xYtb/FLSEz5wopVKnP2SuFfd+wSOPD9u/DiV7FUxz1L +21+FNpiYHO8b2aABO6+Laymf31C5f2jkcwpnrIHGtA/l9p8+vA7e+/oIVnuR +e4K3z5A3xdbjDWvsPTA5NTJ39sO2Z7+e7/3kBGMFi24A+pmvh+bwh4Umjtz3 +CGz+IgRC06oYG86QpD4Sd7NYOd7s7qWrbvO2/YjtubUWdL+A3r4mK+MuzHIH +NHqt1Lbd5VLY+92H8O7+FLoGgFvOmF4eOCZ0sDx8gT0/ZntmLUfoBGfPZsuX +rbCWPSX4Xs74P4dTh9fDO18d1YzbsWGqGUMnQOw1qvr5hQ6utifdwCc9dVqP +oFCtuPkWqRai9z0MW76NoBgU+ptuCXdb0bYNk8tOAxmtZ90FkJT8qRVtlwq6 +drkYDjK6/tI9G1q6WtGwkzNidWxZY+RCm2un//Y6+v1CIuiQcD246WlZCdXu +mogvPrISPvr6IISnV8GZ+jCcSdUv/IbV3Ent9JdZy5c5MTEKvsqtk6DAlUx6 +avZ30v674cO9EVBQXUyOvAzhJN7DI3fzZrTT91tr1fYr6OupZ9S7Ts4Y679M +sxYZ33rsfA0OWk4yWjlKWpxoh9EQ0s6UeBdc/9hp+72afv85nK3NYMenU2yG +z5U0W/nRq+Hr73ZB7MkMzL3JYEr6U6QkFlian+3JtJKLX0J+vqdyq8EZCjy1 +hHjmwZvgy0PBEH9qH7ECCeyo9ZRtnZ8qs9OFRmu/dj4kJOodj12Cl0IZJ5PA +Pc/BsfAw8E5+xIoN+D3tuUsKVGYiC38ZX4hGik/oit6yFGrcLoKaY5fB7l1f +QFD6t5K38d4rBvTmL8ROJ5plfCHj40OM/PSe88GBVxH5ofDe5YYXqx4yqUKT +tzCYuxCL7Zm0YqRfQE93LakIMdNxP620KO7AfXAk4gOpFtAmwMrKBXjYTlMa +rT/WeVBdk8rcW/0psyzvy4iw3Q5ugqOxD4qlYOx7cGGbMNT2JFrzqgshN/fY +PDIrP3Y17Pd5iZHXankqZ+qDYX6RSrjtCbSqs3Ph+PG3lcYPGnmlH90AB8Ie +svLU+hcmKzt9b67gS8BYhCVUbxnjY76KCMzX/U7G+OulGZ/PrLP5hBVle4LL ++RJGRvvoioTUkQFXQIXbJXAw8A7Fr3vEFrPb6Xqj9Ri6ANray8DVojdvT2QE +leq5nB37BmnaoQ5cwCeKtQ1da/6zBMrLopUevc6QzQjJ1/caNYpuw0+20+jm +Eg48K3O3bLt7KBSBXwoHLOulRjn9sbgjNhe4nS7zWpuc8yE6+jVZ2u3OiOe4 +35WwO0xnrormuLlQ7bSU/wNHeWZ6AgJC9IcA/BnBeJuXqUHwgZGWhVC2A1zr +dPFzGBzosLpNEsSk0P5Q3UJHZ3L+bRc7nelF94nmptOMgUSWyplhfbViid1h +6whTbEP+PYdcVGRR0krO4BqyVELG2BMGVxaAnGobsnYr/XxIJv9XtK5xlm1s +MI3PJcpcqHYa4vwPx1ez1vWYESM7iS/2lbPBh3Za5P83h4yWuK8Sij2gQEZK +xkZRC0DOtA1ZuwJwHrez9XIJsSt4lxKzrNafHNsAxW3E2rosqR2YfBVYYqMh +7FGyAJZ2gIpbanlkdDgLlSOAYi6b326YC9ROZ35x4ft4wgeyA7bQBJgHZX7M +XGh2eu/Lu8vs8Lm0l9kg98T7bXmeKkQyS0Qh++jYAHhrL6FKONiA3IawstNV +R0Bsb68QLyIp+ZWV1C5pAUI/bRuiqFcvr8BGWcusIB6OuZlXjM7DscA2RFF9 +nZW5S9z3kRDNGZsp2LQARDtteERJdGTEJnGqEiKa2FzTzoVYZBuiqDmdnp6E +APNtVhD3hq+hwvcFINppsCMKQQcHO8UDbrrIjL2b3gpYAGKJbYiivrGxMQ+O +BVuvOixrq3BK+Qu3f68r4SF8VrzoKW56EV7YQWZIazbEQZ1jf+KfAMkGTsEc +Et5otobkRJcvxYdDMxkgZvmJ4Gxg93+2j1DUHebne4vaKnmEuVXo5mqPJbvz +Gf4+F9jD+KxFRUXw0ksv8Z8WBmFjxh8DwgYW4vhDQ0Phvffeg46ODp7UdBiL +4B8BwgYWdg5HXHqIj3uH6QxnqS73ha2Gxq487Xls+xdgF7omH7rA1p3rAKyF +vnfBAvDFvsbExMBbb70FLS0tsk7WHvzgBb534QLw7Vxik8WHTC8GWx6wIuej +UbfSrUUc4cnH/ZSr9AttwxIH4YUs8N0L7MyBW7Vt2zakF4fnCF7guwvNYWcb +BdVMTIyAT9A1VttoSX1FvMhg8uLjfuJd/IV4eImDIBfayfMXniZc2RAUtJ2d +nbIMxNFp1O+et/A0dhhZUH93VzW4mZdLRkZTIacUGxHO8p6vf/Pdfnt7+lOo +81z705Gtfg4cOnTIycFJQuU3ltgHbWc/BVJlJTFwKEQVjCugsSPXnw/6sZ0B +Im2u/8cLxnMXgB/N/w7vo3/wgbgyaQw/zOb3rOFfbHvHxF6nJu+QwXf8dThs +A8bLAvg//4ieArY3yyaYhWhzoX0SrzLs2rULysrKUFqhMoBPP/0U3Nzcltif +JdiRbzu8cU4cWkTIn2EXd1Pxl1f0wygGA/k//41dCTSDbzEhxMfhDp1nH3qI +vW85OukSUgp79uwhHkQy9PX1xU1bYn/yYEe+bYzE721vvZAeM8wF8gvaaKWF +4rI+AWGbgvXHTk9FYSfT20Vm/bledMjPVEfOAWTV13CJCog+dbU5cDhUhgUw +rNU9ULsQRlaAnKwAncg8yNw5fV3HQq+15XQ3q1AWSyhRES+rIQ//qMdseZst +89fDPUtNGTGxkJj55ZwvaaF0XuSInbxH6Ytq5Ka8JnbOl7QX2E3aCcrj1/7P ++reb8DfeJEsYKfOjlAvF05ZARUE0BAZdRXjgv7sFbITJmfH/cxDMQuP+lu/+ +/zHH/+v4/b+0BxqzO0xV/9/kwSTb/8ObgdXEWn14+wyi5h82LSMtRIezHTRK +VZBRerb/exf7IDa8AgvaAwe6QOpUiTRmOIfocLaDxFQFWTLNAd7QfnixJnyi +YPY6/f83b0EaTUBt+7GYsJcCsT1YxCCTsdB10mz/P71/8X/rcm2UaeUPH58y +EWkDjVznD3Xd3WsHgE0ZXbjr1qwwAq3RxHbW139UANmzyuAHplj/H9/d93/e +Oj34tOL6VcHwnhZhU3yhpuxaEYnYqAqk9+1ugvfBCZviDfUUaIHqnsWG8EQw +B5gIrl7Zyk60QV5Qg759+YASd0tX6/1/+/YetkPhsBvkCTXo8f1zKMG8cYUO +6HgrTqIN8oAadOboPGAdqwevYzesAK3K/cdFtEHu0JDevS4LaUuwwf9dW4rh +Q4aETXGDmrJ9iS08lGcBQ/nc6eXwgXHCprhAPQVa8LUdOYus0fv/7Ok1PqIN +gq0+ff/mLrxdC1th8ePHF36iDXKCGvTo5lbwQgFYMG9cClpu+E+AaIMcoQF0 +6XALeDkDrPbavTEDPuVF2BQHqCmnt4cgLfzT/3/j3Hz4VBxhU+ygngJtYNqJ +FMyLgcH8+vkFEaINsoUa9AvYzVq/DTG9vX6lzv/fPz+KEm2QDdSgz58f/1+0 +CbFm+uA2UHECP5eZsEHW0AACnQY1e7sTNJiBHatLk6AnRhJjihXUFNDRgaA1 +cOCKY5v9/2ePdkBmn1mQDYEC6KHxFvDA/Qe+Ewa+GORQLGizOeyUe8KOMIcH +7le4IbBVU7///JAm2iAzqEGgU8qQDQKtGgH2b2WINsgUGizvvzwCX+kBM2jz +qRL4XRaETTGBmgK6/Qq0GBWchne6gi92lyfRFBbwGk/QKr9lB2NAx3wpkOgZ +ZrABsEF44nVjGxIZVTmqclCpxFNKDQLXjaocJir/YwHQg6sYGAEimAk8\ +\>", "ImageResolution" -> \ +96.],ExpressionUUID->"47da30b1-3298-4fb6-a3d4-2b6ff709af07"] }, Open ]], Cell[CellGroupData[{ @@ -38095,7 +38939,7 @@ Cell[BoxData[{ 3.843118081491584*^9, 3.8431180928836308`*^9}, {3.843290605662134*^9, 3.843290619902092*^9}, {3.8439049063728952`*^9, 3.843904910706853*^9}, { 3.843970548489707*^9, 3.843970558391683*^9}}, - CellLabel->"In[43]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], + CellLabel->"In[5]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], Cell[BoxData[{ RowBox[{ @@ -38341,8 +39185,8 @@ Cell[BoxData[{ }, Open ]] }, Open ]] }, -WindowSize->{715.5, 790.5}, -WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, +WindowSize->{1435.5, 790.5}, +WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" @@ -38368,10 +39212,10 @@ Cell[CellGroupData[{ Cell[3150, 84, 163, 3, 54, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], Cell[CellGroupData[{ Cell[3338, 91, 6467, 102, 113, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[9808, 195, 16882, 349, 211, "Output",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] +Cell[9808, 195, 16882, 349, 240, "Output",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] }, Open ]], Cell[CellGroupData[{ -Cell[26727, 549, 5991, 96, 236, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], +Cell[26727, 549, 5991, 96, 113, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[32721, 647, 13067, 266, 242, 8998, 199, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"ab665598-9049-497c-bafe-53f863ef4174"] }, Open ]], Cell[CellGroupData[{ @@ -38379,274 +39223,278 @@ Cell[45825, 918, 6177, 98, 113, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47 Cell[52005, 1018, 19963, 380, 236, "Output",ExpressionUUID->"3ae2f01e-2c08-40b1-a6eb-0cc6d5efcac2"] }, Open ]], Cell[CellGroupData[{ -Cell[72005, 1403, 4324, 86, 139, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], -Cell[76332, 1491, 1527, 27, 55, "Output",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] +Cell[72005, 1403, 4324, 86, 96, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], +Cell[76332, 1491, 1561, 29, 33, "Output",ExpressionUUID->"ec98952e-4a18-4631-8e4b-26548fe71159"] }, Open ]], Cell[CellGroupData[{ -Cell[77896, 1523, 1256, 35, 75, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], -Cell[79155, 1560, 957, 20, 55, "Output",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] +Cell[77930, 1525, 1256, 35, 32, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], +Cell[79189, 1562, 513, 11, 24, "Message",ExpressionUUID->"606c1d33-f633-4061-9e5a-b68f4618c677"], +Cell[79705, 1575, 513, 11, 24, "Message",ExpressionUUID->"fb8ff7e8-e796-43a5-aa75-a4748254d35f"], +Cell[80221, 1588, 513, 11, 24, "Message",ExpressionUUID->"d4332e36-d878-4288-b541-aa0ce07d39d9"], +Cell[80737, 1601, 452, 10, 21, "Message",ExpressionUUID->"9adc8948-a973-447d-9210-111e7e13bd13"], +Cell[81192, 1613, 991, 22, 33, "Output",ExpressionUUID->"dfcdebdf-f906-4dcc-bea6-b8fddccccf10"] }, Open ]], Cell[CellGroupData[{ -Cell[80149, 1585, 3447, 72, 116, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], -Cell[83599, 1659, 974, 22, 55, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] +Cell[82220, 1640, 3447, 72, 73, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], +Cell[85670, 1714, 457, 10, 22, "Message",ExpressionUUID->"828ded20-9b75-46c6-9c57-3c5c9d088433"], +Cell[86130, 1726, 463, 11, 22, "Message",ExpressionUUID->"c7ba3e0d-71d1-4299-bb10-09915e94c539"], +Cell[86596, 1739, 461, 11, 22, "Message",ExpressionUUID->"6fcf85c1-e776-4850-bb28-2330e4d37631"], +Cell[87060, 1752, 453, 10, 21, "Message",ExpressionUUID->"aeee318f-167d-4388-b8df-df133929cfca"], +Cell[87516, 1764, 996, 23, 33, "Output",ExpressionUUID->"0521a4d7-0358-4fb2-9615-f8e842017b4d"] }, Open ]], Cell[CellGroupData[{ -Cell[84610, 1686, 1156, 33, 75, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], -Cell[85769, 1721, 513, 11, 38, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], -Cell[86285, 1734, 512, 11, 38, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], -Cell[86800, 1747, 514, 11, 38, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], -Cell[87317, 1760, 452, 10, 21, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], -Cell[87772, 1772, 961, 23, 55, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] +Cell[88549, 1792, 1156, 33, 32, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], +Cell[89708, 1827, 537, 11, 24, "Message",ExpressionUUID->"1e8c5605-6d80-4291-be90-d02e1aa21bf7"], +Cell[90248, 1840, 537, 11, 24, "Message",ExpressionUUID->"797bbd09-273f-4512-af48-f9b1c5165911"], +Cell[90788, 1853, 539, 11, 24, "Message",ExpressionUUID->"e1a653d3-2211-4bc9-9959-3b363bd43834"], +Cell[91330, 1866, 475, 10, 21, "Message",ExpressionUUID->"e9a8f49b-29bb-42f7-81bf-a680544a69b5"], +Cell[91808, 1878, 978, 22, 33, "Output",ExpressionUUID->"ade78376-64f5-47b3-9987-fe77d254785f"] }, Open ]], Cell[CellGroupData[{ -Cell[88770, 1800, 3409, 73, 116, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], -Cell[92182, 1875, 3542, 59, 75, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] +Cell[92823, 1905, 3409, 73, 73, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], +Cell[96235, 1980, 461, 11, 22, "Message",ExpressionUUID->"86bf587f-026e-496e-91e9-6105d7eb3a15"], +Cell[96699, 1993, 463, 11, 22, "Message",ExpressionUUID->"606975cb-8393-461c-8fdc-5e93d6bda4b0"], +Cell[97165, 2006, 456, 10, 22, "Message",ExpressionUUID->"32d24ed4-2974-4837-a919-03f87dc10df6"], +Cell[97624, 2018, 455, 10, 21, "Message",ExpressionUUID->"b2174457-426c-4d4d-b6e2-bb6ef07f409d"], +Cell[98082, 2030, 3576, 61, 33, "Output",ExpressionUUID->"faf17d28-027e-4782-9428-e39c0ac9f20a"] }, Open ]], Cell[CellGroupData[{ -Cell[95761, 1939, 1154, 33, 75, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], -Cell[96918, 1974, 1125, 27, 75, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] +Cell[101695, 2096, 1154, 33, 32, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], +Cell[102852, 2131, 458, 10, 22, "Message",ExpressionUUID->"181dc4ff-941a-4b9d-8137-f8e3a46ea13c"], +Cell[103313, 2143, 463, 11, 22, "Message",ExpressionUUID->"d27c6ed4-5a6e-4838-95da-26c38873a525"], +Cell[103779, 2156, 460, 10, 22, "Message",ExpressionUUID->"e1bb172d-e9b7-4b85-8f13-990d2be723f4"], +Cell[104242, 2168, 453, 10, 21, "Message",ExpressionUUID->"7e2d84cc-091c-4e1e-904b-1bc7e2ed3e5b"], +Cell[104698, 2180, 1141, 26, 33, "Output",ExpressionUUID->"c1d34a55-d37c-48bd-a03f-eeaa34510bac"] }, Open ]], Cell[CellGroupData[{ -Cell[98080, 2006, 3645, 75, 116, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], -Cell[101728, 2083, 588, 12, 38, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], -Cell[102319, 2097, 587, 12, 38, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], -Cell[102909, 2111, 586, 12, 38, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], -Cell[103498, 2125, 526, 11, 21, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], -Cell[104027, 2138, 3451, 61, 75, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] +Cell[105876, 2211, 3800, 80, 73, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], +Cell[109679, 2293, 3532, 63, 55, "Output",ExpressionUUID->"c67f9139-1916-45d8-b2aa-8739130b7377"] }, Open ]], Cell[CellGroupData[{ -Cell[107515, 2204, 1303, 35, 75, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], -Cell[108821, 2241, 443, 10, 35, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], -Cell[109267, 2253, 442, 10, 35, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], -Cell[109712, 2265, 443, 10, 35, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], -Cell[110158, 2277, 483, 10, 21, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], -Cell[110644, 2289, 1370, 30, 75, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] +Cell[113248, 2361, 1303, 35, 32, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], +Cell[114554, 2398, 1461, 33, 55, "Output",ExpressionUUID->"2691df8e-4c25-4822-b142-9257cae7164c"] }, Open ]], Cell[CellGroupData[{ -Cell[112051, 2324, 1332, 36, 75, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], -Cell[113386, 2362, 1408, 32, 75, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] +Cell[116052, 2436, 1332, 36, 32, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], +Cell[117387, 2474, 1493, 34, 55, "Output",ExpressionUUID->"c6d0fbe8-5d9d-4139-a88e-e375eb9fc814"] }, Open ]], Cell[CellGroupData[{ -Cell[114831, 2399, 3942, 81, 116, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], -Cell[118776, 2482, 3828, 69, 75, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] +Cell[118917, 2513, 3990, 81, 73, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], +Cell[122910, 2596, 3909, 70, 55, "Output",ExpressionUUID->"994fd86b-3a38-481f-969a-a46a9b8a1546"] }, Open ]], Cell[CellGroupData[{ -Cell[122641, 2556, 1180, 34, 75, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], -Cell[123824, 2592, 468, 11, 35, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], -Cell[124295, 2605, 471, 11, 35, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], -Cell[124769, 2618, 469, 11, 35, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], -Cell[125241, 2631, 507, 11, 21, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], -Cell[125751, 2644, 1513, 36, 96, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] +Cell[126856, 2671, 1180, 34, 32, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], +Cell[128039, 2707, 580, 12, 24, "Message",ExpressionUUID->"50c1f9db-d511-4e4d-82ee-f4b170f3928a"], +Cell[128622, 2721, 585, 12, 24, "Message",ExpressionUUID->"e2951d22-dbee-426e-9d2f-07273f5dfb17"], +Cell[129210, 2735, 526, 11, 22, "Message",ExpressionUUID->"2701a564-5e4a-432b-85df-c26538f17ccc"], +Cell[129739, 2748, 521, 11, 21, "Message",ExpressionUUID->"aece043e-cb9d-4d2a-9162-98d48749a667"], +Cell[130263, 2761, 1616, 38, 55, "Output",ExpressionUUID->"214547ff-a3e3-4da5-ba3d-de4d689ffe59"] }, Open ]], Cell[CellGroupData[{ -Cell[127301, 2685, 1256, 35, 75, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], -Cell[128560, 2722, 463, 11, 37, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], -Cell[129026, 2735, 456, 10, 37, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], -Cell[129485, 2747, 461, 11, 37, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], -Cell[129949, 2760, 453, 10, 21, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], -Cell[130405, 2772, 1559, 37, 96, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] +Cell[131916, 2804, 1256, 35, 32, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], +Cell[133175, 2841, 1668, 39, 55, "Output",ExpressionUUID->"72a26d03-7ad4-4584-a53b-39de4781a452"] }, Open ]], Cell[CellGroupData[{ -Cell[132001, 2814, 4377, 85, 116, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[136381, 2901, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], -Cell[136968, 2915, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], -Cell[137555, 2929, 583, 12, 38, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], -Cell[138141, 2943, 522, 11, 21, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], -Cell[138666, 2956, 3474, 66, 99, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] +Cell[134880, 2885, 4377, 85, 73, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[139260, 2972, 584, 12, 24, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], +Cell[139847, 2986, 584, 12, 24, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], +Cell[140434, 3000, 583, 12, 24, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], +Cell[141020, 3014, 522, 11, 21, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], +Cell[141545, 3027, 3474, 66, 58, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] }, Open ]], Cell[CellGroupData[{ -Cell[142177, 3027, 1301, 35, 75, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], -Cell[143481, 3064, 372, 9, 21, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], -Cell[143856, 3075, 476, 11, 54, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], -Cell[144335, 3088, 476, 11, 54, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], -Cell[144814, 3101, 476, 11, 54, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], -Cell[145293, 3114, 453, 10, 21, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], -Cell[145749, 3126, 422, 10, 35, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], -Cell[146174, 3138, 422, 10, 35, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], -Cell[146599, 3150, 424, 10, 35, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], -Cell[147026, 3162, 460, 10, 21, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], -Cell[147489, 3174, 1609, 39, 96, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] +Cell[145056, 3098, 1301, 35, 32, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], +Cell[146360, 3135, 372, 9, 21, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], +Cell[146735, 3146, 476, 11, 38, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], +Cell[147214, 3159, 476, 11, 38, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], +Cell[147693, 3172, 476, 11, 38, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], +Cell[148172, 3185, 453, 10, 21, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], +Cell[148628, 3197, 422, 10, 21, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], +Cell[149053, 3209, 422, 10, 21, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], +Cell[149478, 3221, 424, 10, 21, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], +Cell[149905, 3233, 460, 10, 21, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], +Cell[150368, 3245, 1609, 39, 55, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] }, Open ]], Cell[CellGroupData[{ -Cell[149135, 3218, 1351, 36, 75, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], -Cell[150489, 3256, 537, 11, 38, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], -Cell[151029, 3269, 537, 11, 38, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], -Cell[151569, 3282, 537, 11, 38, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], -Cell[152109, 3295, 475, 10, 21, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], -Cell[152587, 3307, 1635, 40, 96, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] +Cell[152014, 3289, 1351, 36, 32, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], +Cell[153368, 3327, 537, 11, 24, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], +Cell[153908, 3340, 537, 11, 24, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], +Cell[154448, 3353, 537, 11, 24, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], +Cell[154988, 3366, 475, 10, 21, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], +Cell[155466, 3378, 1635, 40, 55, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] }, Open ]], Cell[CellGroupData[{ -Cell[154259, 3352, 5592, 103, 137, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], +Cell[157138, 3423, 5592, 103, 73, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[CellGroupData[{ -Cell[159876, 3459, 296, 8, 71, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], -Cell[160175, 3469, 322, 9, 88, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], -Cell[160500, 3480, 324, 9, 88, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], -Cell[160827, 3491, 322, 9, 88, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], -Cell[161152, 3502, 272, 7, 54, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] +Cell[162755, 3530, 296, 8, 71, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], +Cell[163054, 3540, 322, 9, 88, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], +Cell[163379, 3551, 324, 9, 88, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], +Cell[163706, 3562, 322, 9, 88, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], +Cell[164031, 3573, 272, 7, 54, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] }, Open ]], -Cell[161439, 3512, 1895, 46, 99, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] +Cell[164318, 3583, 1895, 46, 58, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] }, Open ]], Cell[CellGroupData[{ -Cell[163371, 3563, 1545, 39, 96, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], -Cell[164919, 3604, 2065, 48, 99, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] +Cell[166250, 3634, 1545, 39, 32, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], +Cell[167798, 3675, 2065, 48, 58, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] }, Open ]], Cell[CellGroupData[{ -Cell[167021, 3657, 1623, 41, 96, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], +Cell[169900, 3728, 1623, 41, 32, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], Cell[CellGroupData[{ -Cell[168669, 3702, 323, 9, 88, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], -Cell[168995, 3713, 323, 9, 88, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], -Cell[169321, 3724, 324, 9, 88, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], -Cell[169648, 3735, 271, 7, 54, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] +Cell[171548, 3773, 323, 9, 88, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], +Cell[171874, 3784, 323, 9, 88, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], +Cell[172200, 3795, 324, 9, 88, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], +Cell[172527, 3806, 271, 7, 54, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] }, Open ]], -Cell[169934, 3745, 2020, 48, 96, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] +Cell[172813, 3816, 2020, 48, 55, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] }, Open ]], Cell[CellGroupData[{ -Cell[171991, 3798, 5199, 97, 137, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], +Cell[174870, 3869, 5199, 97, 73, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], Cell[CellGroupData[{ -Cell[177215, 3899, 322, 9, 88, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], -Cell[177540, 3910, 324, 9, 88, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], -Cell[177867, 3921, 322, 9, 88, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], -Cell[178192, 3932, 274, 7, 54, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] +Cell[180094, 3970, 322, 9, 88, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], +Cell[180419, 3981, 324, 9, 88, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], +Cell[180746, 3992, 322, 9, 88, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], +Cell[181071, 4003, 274, 7, 54, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] }, Open ]], -Cell[178481, 3942, 1877, 49, 120, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] +Cell[181360, 4013, 1877, 49, 58, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] }, Open ]], Cell[CellGroupData[{ -Cell[180395, 3996, 4659, 82, 96, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], +Cell[183274, 4067, 4659, 82, 32, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], Cell[CellGroupData[{ -Cell[185079, 4082, 324, 9, 88, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], -Cell[185406, 4093, 323, 9, 88, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], -Cell[185732, 4104, 324, 9, 88, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], -Cell[186059, 4115, 272, 7, 54, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] +Cell[187958, 4153, 324, 9, 88, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], +Cell[188285, 4164, 323, 9, 88, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], +Cell[188611, 4175, 324, 9, 88, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], +Cell[188938, 4186, 272, 7, 54, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] }, Open ]], -Cell[186346, 4125, 2092, 52, 120, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] +Cell[189225, 4196, 2092, 52, 58, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] }, Open ]], Cell[CellGroupData[{ -Cell[188475, 4182, 1250, 36, 96, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], +Cell[191354, 4253, 1250, 36, 32, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], Cell[CellGroupData[{ -Cell[189750, 4222, 252, 6, 37, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], -Cell[190005, 4230, 255, 7, 37, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], -Cell[190263, 4239, 249, 6, 37, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], -Cell[190515, 4247, 254, 6, 37, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], -Cell[190772, 4255, 257, 7, 37, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], -Cell[191032, 4264, 271, 7, 54, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], -Cell[191306, 4273, 254, 6, 37, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], -Cell[191563, 4281, 254, 6, 37, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], -Cell[191820, 4289, 273, 7, 54, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], -Cell[192096, 4298, 266, 7, 54, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], -Cell[192365, 4307, 309, 8, 71, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], -Cell[192677, 4317, 268, 7, 54, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], -Cell[192948, 4326, 268, 7, 54, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], -Cell[193219, 4335, 309, 8, 71, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], -Cell[193531, 4345, 227, 4, 37, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], -Cell[193761, 4351, 365, 8, 71, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], -Cell[194129, 4361, 227, 4, 37, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], -Cell[194359, 4367, 272, 7, 54, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], -Cell[194634, 4376, 489, 11, 122, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], -Cell[195126, 4389, 280, 7, 54, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] +Cell[192629, 4293, 252, 6, 37, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], +Cell[192884, 4301, 255, 7, 37, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], +Cell[193142, 4310, 249, 6, 37, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], +Cell[193394, 4318, 254, 6, 37, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], +Cell[193651, 4326, 257, 7, 37, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], +Cell[193911, 4335, 271, 7, 54, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], +Cell[194185, 4344, 254, 6, 37, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], +Cell[194442, 4352, 254, 6, 37, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], +Cell[194699, 4360, 273, 7, 54, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], +Cell[194975, 4369, 266, 7, 54, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], +Cell[195244, 4378, 309, 8, 71, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], +Cell[195556, 4388, 268, 7, 54, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], +Cell[195827, 4397, 268, 7, 54, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], +Cell[196098, 4406, 309, 8, 71, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], +Cell[196410, 4416, 227, 4, 37, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], +Cell[196640, 4422, 365, 8, 71, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], +Cell[197008, 4432, 227, 4, 37, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], +Cell[197238, 4438, 272, 7, 54, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], +Cell[197513, 4447, 489, 11, 122, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], +Cell[198005, 4460, 280, 7, 54, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[195455, 4402, 5215, 100, 137, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], -Cell[200673, 4504, 601, 12, 49, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], -Cell[201277, 4518, 609, 12, 48, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], -Cell[201889, 4532, 949, 17, 77, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], -Cell[202841, 4551, 354, 6, 33, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] +Cell[198334, 4473, 5215, 100, 96, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], +Cell[203552, 4575, 601, 12, 21, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], +Cell[204156, 4589, 609, 12, 20, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], +Cell[204768, 4603, 949, 17, 35, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], +Cell[205720, 4622, 354, 6, 33, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] }, Open ]], -Cell[203210, 4560, 1265, 37, 96, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], -Cell[204478, 4599, 10391, 159, 71, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], -Cell[214872, 4760, 12010, 183, 71, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], +Cell[206089, 4631, 1265, 37, 32, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], +Cell[207357, 4670, 10443, 160, 29, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], +Cell[217803, 4832, 12058, 183, 29, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ -Cell[226907, 4947, 525, 11, 29, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], -Cell[227435, 4960, 23819, 525, 228, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] +Cell[229886, 5019, 521, 10, 29, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], +Cell[230410, 5031, 14124, 314, 228, "Output",ExpressionUUID->"a2d4d282-8e3d-4a0b-964d-ad42e2f0325f"] }, Open ]], Cell[CellGroupData[{ -Cell[251291, 5490, 20997, 469, 224, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], -Cell[272291, 5961, 21852, 498, 228, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], -Cell[294146, 6461, 22174, 479, 228, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] +Cell[244571, 5350, 20997, 469, 224, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], +Cell[265571, 5821, 21852, 498, 228, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], +Cell[287426, 6321, 22174, 479, 228, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] }, Open ]], Cell[CellGroupData[{ -Cell[316357, 6945, 1801, 44, 92, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], -Cell[318161, 6991, 2116, 46, 186, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] +Cell[309637, 6805, 1853, 45, 29, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], +Cell[311493, 6852, 3766, 100, 148, "Output",ExpressionUUID->"b45ec73d-f5b7-4fd8-a8e0-8472b7f98423"] }, Open ]], -Cell[320292, 7040, 398, 8, 71, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], +Cell[315274, 6955, 398, 8, 29, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], Cell[CellGroupData[{ -Cell[320715, 7052, 4133, 75, 120, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[324851, 7129, 24167, 491, 230, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] +Cell[315697, 6967, 4183, 76, 77, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], +Cell[319883, 7045, 35544, 718, 230, "Output",ExpressionUUID->"d895d521-b312-4afd-98c0-abf3059ba10a"] }, Open ]], -Cell[349033, 7623, 287, 7, 29, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], +Cell[355442, 7766, 287, 7, 29, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], Cell[CellGroupData[{ -Cell[349345, 7634, 1038, 29, 92, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], -Cell[350386, 7665, 304, 5, 33, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] +Cell[355754, 7777, 1089, 30, 51, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], +Cell[356846, 7809, 328, 5, 33, "Output",ExpressionUUID->"69477405-8a00-42ad-86d7-91fa4759e74c"] }, Open ]], Cell[CellGroupData[{ -Cell[350727, 7675, 868, 24, 54, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], -Cell[351598, 7701, 17575, 405, 246, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] +Cell[357211, 7819, 891, 24, 32, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], +Cell[358105, 7845, 13889, 326, 246, "Output",ExpressionUUID->"0aa79ed5-1e55-44b1-8798-e87dbf1b705c"] }, Open ]], Cell[CellGroupData[{ -Cell[369210, 8111, 1207, 25, 29, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], -Cell[370420, 8138, 11475, 249, 229, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] +Cell[372031, 8176, 1240, 26, 29, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], +Cell[373274, 8204, 7645, 168, 226, "Output",ExpressionUUID->"bb2126ed-a867-417f-a9c7-1e694934b782"] }, Open ]], Cell[CellGroupData[{ -Cell[381932, 8392, 2187, 51, 160, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], -Cell[384122, 8445, 733, 14, 36, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], -Cell[384858, 8461, 771, 15, 21, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], -Cell[385632, 8478, 734, 14, 36, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], -Cell[386369, 8494, 769, 15, 21, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], -Cell[387141, 8511, 734, 14, 36, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], -Cell[387878, 8527, 814, 15, 21, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], -Cell[388695, 8544, 771, 15, 21, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], -Cell[389469, 8561, 818, 15, 21, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], -Cell[390290, 8578, 11608, 275, 240, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] +Cell[380956, 8377, 2284, 52, 49, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], +Cell[383243, 8431, 805, 15, 36, "Message",ExpressionUUID->"9e258802-4dd7-4247-9d27-3e981a22b633"], +Cell[384051, 8448, 841, 16, 21, "Message",ExpressionUUID->"4607cf9b-6c84-47ea-b38f-99db43ae0621"], +Cell[384895, 8466, 808, 15, 36, "Message",ExpressionUUID->"bec9728c-e318-4b07-b6f7-9bd82b77e271"], +Cell[385706, 8483, 843, 16, 21, "Message",ExpressionUUID->"f9aadd2e-5bf0-44da-b754-e220c1fe305d"], +Cell[386552, 8501, 806, 15, 36, "Message",ExpressionUUID->"c9e7304f-f5ff-44f1-9c82-2bbb7d7bf672"], +Cell[387361, 8518, 888, 16, 21, "Message",ExpressionUUID->"164764eb-21da-4f2d-9639-23944417c74c"], +Cell[388252, 8536, 841, 16, 21, "Message",ExpressionUUID->"a31c8609-9314-42ea-b2d7-f518d6fbc27d"], +Cell[389096, 8554, 890, 16, 21, "Message",ExpressionUUID->"f0b7f3c5-28a3-4e70-9bc5-9ee05d4113d8"], +Cell[389989, 8572, 35962, 693, 240, 13161, 319, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"72ac7c8e-c77b-4316-b135-33157bc5868b"] }, Open ]], Cell[CellGroupData[{ -Cell[401935, 8858, 1336, 31, 77, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], -Cell[403274, 8891, 10700, 261, 242, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] +Cell[425988, 9270, 1385, 32, 48, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], +Cell[427376, 9304, 12843, 311, 236, "Output",ExpressionUUID->"00797d70-cfe8-4ae2-875a-9e28fbdcace6"] }, Open ]], Cell[CellGroupData[{ -Cell[414011, 9157, 848, 21, 29, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], -Cell[414862, 9180, 12644, 228, 233, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] +Cell[440256, 9620, 894, 21, 29, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], +Cell[441153, 9643, 13029, 234, 233, "Output",ExpressionUUID->"96e77c0c-c76d-4ed3-8356-b3be3af08700"] }, Open ]], Cell[CellGroupData[{ -Cell[427543, 9413, 982, 23, 51, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], -Cell[428528, 9438, 16441, 289, 229, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] +Cell[454219, 9882, 1032, 24, 29, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], +Cell[455254, 9908, 16248, 289, 235, "Output",ExpressionUUID->"d82c69c9-3339-403f-946f-72fb937addfc"] }, Open ]], Cell[CellGroupData[{ -Cell[445006, 9732, 3834, 96, 203, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], -Cell[448843, 9830, 38355, 642, 251, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] +Cell[471539, 10202, 3879, 96, 82, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], +Cell[475421, 10300, 26168, 440, 251, "Output",ExpressionUUID->"02b7f52b-a421-460f-97a2-cbea9b09d942"] }, Open ]], Cell[CellGroupData[{ -Cell[487235, 10477, 2305, 52, 134, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], -Cell[489543, 10531, 11461, 208, 522, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] +Cell[501626, 10745, 2352, 52, 50, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], +Cell[503981, 10799, 46560, 784, 522, 10546, 195, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"47da30b1-3298-4fb6-a3d4-2b6ff709af07"] }, Open ]], Cell[CellGroupData[{ -Cell[501041, 10744, 2206, 52, 134, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], -Cell[503250, 10798, 23560, 404, 338, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] +Cell[550578, 11588, 2206, 52, 50, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], +Cell[552787, 11642, 23560, 404, 338, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] }, Open ]], Cell[CellGroupData[{ -Cell[526847, 11207, 1629, 38, 120, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], -Cell[528479, 11247, 1251114, 20528, 368, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] +Cell[576384, 12051, 1629, 38, 75, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], +Cell[578016, 12091, 1251114, 20528, 368, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] }, Open ]], Cell[CellGroupData[{ -Cell[1779630, 31780, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], -Cell[1780809, 31812, 163730, 2704, 424, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] +Cell[1829167, 32624, 1176, 30, 51, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], +Cell[1830346, 32656, 163730, 2704, 424, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] }, Open ]], Cell[CellGroupData[{ -Cell[1944576, 34521, 1906, 42, 120, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], -Cell[1946485, 34565, 199193, 3283, 483, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] +Cell[1994113, 35365, 1906, 42, 75, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], +Cell[1996022, 35409, 199193, 3283, 483, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] }, Open ]], Cell[CellGroupData[{ -Cell[2145715, 37853, 1018, 27, 54, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], -Cell[2146736, 37882, 8989, 170, 219, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] +Cell[2195252, 38697, 1018, 27, 32, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], +Cell[2196273, 38726, 8989, 170, 219, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[2155774, 38058, 159, 3, 54, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], -Cell[2155936, 38063, 1510, 34, 133, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], -Cell[2157449, 38099, 1582, 38, 154, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], -Cell[2159034, 38139, 1804, 43, 174, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], -Cell[2160841, 38184, 1954, 46, 174, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], -Cell[2162798, 38232, 2132, 51, 195, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], -Cell[2164933, 38285, 2210, 54, 216, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] +Cell[2205311, 38902, 159, 3, 54, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], +Cell[2205473, 38907, 1509, 34, 92, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], +Cell[2206985, 38943, 1582, 38, 113, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], +Cell[2208570, 38983, 1804, 43, 113, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], +Cell[2210377, 39028, 1954, 46, 113, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], +Cell[2212334, 39076, 2132, 51, 133, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], +Cell[2214469, 39129, 2210, 54, 133, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] }, Open ]] }, Open ]] } diff --git a/schofield.py b/schofield.py new file mode 100644 index 0000000..96fe68a --- /dev/null +++ b/schofield.py @@ -0,0 +1,34 @@ +from sympy import * +from mpmath import glaisher, pi + +β = Rational(1/8) +δ = 15 +α = 0 +σ = Rational(5, 6) +Δ = β * δ + +s = 2**Rational(1, 12) * exp(-β) * glaisher**Rational(3, 2) + +def f(B, θc, θ): + return (θc * Ei(-1 / (B * θc)) * exp(1 / (B * θc)) + (θ - θc) * Ei(1/(B * (θ - θc))) * exp(-1/(B * (θ - θc)))) / pi + +def FH(θ0, θ): + return (θ**2 + θ0**2)**σ - (θ0**2)**σ + +def FR(AL, AH, As, B, θc, θ0, θ): + return AL * f(B, θc, -θ) + AH * FH(θ0, θ) + sum([A * θ**(2 * i + 2) for i,A in enumerate(As)]) + +def F(AL, AH, As, B, θc, θ0, θ): + return FR(AL, AH, As, B, θc, θ0, θ) + AL * f(B, θc, θ) + +def dfc(AL, B, m): + if m == 0: + return AL * θc * Ei(-1 / (B * θc)) * exp(1 / (B * θc)) / pi + elif m == 1: + return 0 + else: + return AL * factorial(m) * factorial(m - 2) * B**(m-1) / pi + +def dFc(AL, AH, As, B, θc, θ0, m): + θ = Symbol['θ'] + return dfc(AL, B, m) + diff(FR(AL, AH, As, B, θc, θ0, θ), θ).subs(θ, θc) |