summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--caselle_compare.nb377
-rw-r--r--new_schofield.nb6050
-rw-r--r--schofield.py34
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)