loos/TrUEGs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
e62d237361
TrUEGs/TrUEGs.nb
Pierre-Francois Loos e62d237361 notebook
2021-01-12 18:42:09 +01:00

13602 lines
588 KiB
Mathematica
Raw Blame History

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 602081, 13593]
NotebookOptionsPosition[ 585499, 13328]
NotebookOutlinePosition[ 585892, 13344]
CellTagsIndexPosition[ 585849, 13341]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Initialization", "Title",
CellChangeTimes->{{3.726041770598298*^9,
3.726041773223225*^9}},ExpressionUUID->"f14a9b83-4155-4933-b4bd-\
86482283a3f0"],
Cell[BoxData[{
RowBox[{"Needs", "[", "\"\<MaTeX`\>\"", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SetOptions", "[",
RowBox[{"MaTeX", ",",
RowBox[{"\"\<Preamble\>\"", "\[Rule]",
RowBox[{
"{", "\"\<\\\\usepackage{amssymb,amsmath,latexsym,amsfonts,amsthm,\
mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
3.733131339213026*^9, 3.733131352923026*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"f63df8ff-a805-43cf-b25e-970437446449"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"J3", "[",
RowBox[{"i_", ",", "a_", ",", "l_"}], "]"}], ":=",
RowBox[{"ThreeJSymbol", "[",
RowBox[{
RowBox[{"{",
RowBox[{"i", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"l", ",", "0"}], "}"}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.600453124069656*^9, 3.6004531282446003`*^9}, {
3.60048222016492*^9, 3.6004822548645678`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"06b69520-f042-4fc6-9314-22d2e79542d6"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"J6", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], ",",
RowBox[{"{",
RowBox[{"e_", ",", "f_", ",", "g_"}], "}"}]}], "]"}], ":=",
RowBox[{"SixJSymbol", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",",
RowBox[{"{",
RowBox[{"e", ",", "f", ",", "g"}], "}"}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellLabel->"In[4]:=",ExpressionUUID->"a8c11cd4-a9a5-4079-8595-5294b1fb94c7"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]_", ",", "m_"}]], "[",
RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], "=",
RowBox[{"SphericalHarmonicY", "[",
RowBox[{"\[ScriptL]", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.6167931952908697`*^9, 3.616793207770255*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"e29c6d12-164d-461c-b102-761d687a35f0"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y", "\[ScriptL]_"], "[", "\[Theta]_", "]"}], "=",
RowBox[{"SphericalHarmonicY", "[",
RowBox[{"\[ScriptL]", ",", "0", ",", "\[Theta]", ",", "0"}], "]"}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.6167931952908697`*^9, 3.616793207770255*^9}, {
3.743229365082172*^9, 3.743229372894492*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"74769596-3e6e-4ca2-8edd-d3dad7f9f8d1"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]_"], "[", "\[Theta]_", "]"}], "=",
RowBox[{"LegendreP", "[",
RowBox[{"\[ScriptL]", ",", "\[Theta]"}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.6167931952908697`*^9, 3.616793207770255*^9}, {
3.7428781062377253`*^9, 3.74287811954315*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"1fff622e-e162-45b8-93d8-03e2f95f6a4a"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[ScriptCapitalY]",
RowBox[{"\[ScriptL]_", ",", "m_"}]], "[",
RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{"Which", "[",
RowBox[{
RowBox[{"m", "<", "0"}], ",",
RowBox[{
FractionBox["\[ImaginaryI]",
SqrtBox["2"]],
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "-",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "m"],
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",",
RowBox[{"-", "m"}]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], ",",
RowBox[{"m", "\[Equal]", "0"}], ",",
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",",
RowBox[{"m", ">", "0"}], ",",
RowBox[{
FractionBox["1",
SqrtBox["2"]],
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "m"],
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",",
RowBox[{"-", "m"}]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], "]"}],
",",
RowBox[{
RowBox[{"0", "<", "\[Theta]", "<", "\[Pi]"}], "&&",
RowBox[{"0", "<", "\[Phi]", "<",
RowBox[{"2", "\[Pi]"}]}]}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{
3.617400433527934*^9, {3.6174039018984203`*^9, 3.617403963513486*^9}, {
3.617404074545025*^9, 3.6174041117104883`*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"7fc2e2a8-1267-4aa2-acf5-d2d12a58563c"],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[Delta]",
RowBox[{"a_", ",", "b_"}]], "=",
RowBox[{"KroneckerDelta", "[",
RowBox[{"a", ",", "b"}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellLabel->"In[9]:=",ExpressionUUID->"76897437-158e-48b2-bca0-c92679d71862"],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[Delta]", "x_"], "=",
RowBox[{"KroneckerDelta", "[", "x", "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellLabel->"In[10]:=",ExpressionUUID->"751041e2-0753-48c1-aa6c-9f69333e4db7"],
Cell[BoxData[
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Psi]",
RowBox[{
RowBox[{"\[ScriptL]",
RowBox[{"(",
RowBox[{"\[ScriptL]", "+", "1"}], ")"}]}], "+", "m", "+", "1"}]],
"[",
RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], "=",
RowBox[{
SubscriptBox["\[ScriptCapitalY]",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"m", ",",
RowBox[{"-", "\[ScriptL]"}], ",", "\[ScriptL]"}], "}"}]}], "]"}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{3.726076349075821*^9, 3.742817932502624*^9},
CellLabel->"In[11]:=",ExpressionUUID->"f13406bf-d041-4fbb-823f-f514d04fe27c"],
Cell[BoxData[
RowBox[{
RowBox[{"SortEigensystem", "[", "eigsys_", "]"}], ":=",
RowBox[{"Transpose", "[",
RowBox[{"Sort", "[",
RowBox[{"Transpose", "[", "eigsys", "]"}], "]"}], "]"}]}]], "Input",
InitializationCell->True,
CellLabel->"In[12]:=",ExpressionUUID->"183ae429-a997-4f0d-baef-2a20bbc5c8ff"],
Cell[BoxData[
RowBox[{
RowBox[{"YY", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[ScriptL]1_", ",", "m1_"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]2_", ",", "m2_"}], "}"}]}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]3", "=",
RowBox[{"Abs", "[",
RowBox[{"\[ScriptL]1", "-", "\[ScriptL]1"}], "]"}]}],
RowBox[{"\[ScriptL]1", "+", "\[ScriptL]2"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m3", "=",
RowBox[{"-", "\[ScriptL]3"}]}], "\[ScriptL]3"],
RowBox[{
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]1"}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]2"}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]3"}], "+", "1"}], ")"}]}],
RowBox[{"4", "\[Pi]"}]]],
RowBox[{"J3", "[",
RowBox[{"\[ScriptL]1", ",", "\[ScriptL]2", ",", "\[ScriptL]3"}], "]"}],
RowBox[{"ThreeJSymbol", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[ScriptL]1", ",", "m1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]2", ",", "m2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]3", ",", "m3"}], "}"}]}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "m3"],
SubscriptBox["Y",
RowBox[{"\[ScriptL]3", ",",
RowBox[{"-", "m3"}]}]]}]}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7432300298738956`*^9, 3.74323016561016*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"2fd619d6-5e78-47b6-adfc-2c3a75428669"]
}, Closed]],
Cell[CellGroupData[{
Cell["Transient uniform electron gases", "Title",
CellChangeTimes->{{3.726041069929246*^9, 3.726041082828075*^9}, {
3.7607264675564423`*^9,
3.760726469171418*^9}},ExpressionUUID->"c626dffe-68a4-4be1-b83c-\
a98638c384be"],
Cell[CellGroupData[{
Cell["Useful relations", "Section",
CellChangeTimes->{{3.743229812346977*^9,
3.743229815314281*^9}},ExpressionUUID->"e0a5c645-2143-460d-a4e6-\
085c89e142f8"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"L", "=", "1"}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "\[Pi]"}]],
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["m", "1"]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["m", "2"]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], ",",
SubscriptBox["m", "3"]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Phi]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], "\[Equal]",
RowBox[{
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "1"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "2"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "3"]}], "+", "1"}], ")"}]}],
RowBox[{"4", "\[Pi]"}]]],
RowBox[{"J3", "[",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["\[ScriptL]", "3"]}], "]"}],
RowBox[{"ThreeJSymbol", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["m", "1"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["m", "2"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], ",",
SubscriptBox["m", "3"]}], "}"}]}], "]"}]}]}], "//", "Simplify"}],
",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["m", "1"], ",",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "1"]}], ",",
SubscriptBox["\[ScriptL]", "1"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["m", "2"], ",",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "2"]}], ",",
SubscriptBox["\[ScriptL]", "2"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["m", "3"], ",",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "3"]}], ",",
SubscriptBox["\[ScriptL]", "3"]}], "}"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.743229347616185*^9, 3.7432293566229267`*^9}, {
3.7432293931406107`*^9, 3.743229582745933*^9}, {3.743229655069162*^9,
3.74322967376245*^9}, {3.743229823945314*^9, 3.7432298862913017`*^9},
3.743229927711697*^9},ExpressionUUID->"18ee6744-3e3b-4677-9588-\
1803214665ac"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"{", "True", "}"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}], "}"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}],
"}"}]}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{", "True", "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{", "True", "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{", "True", "}"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}]}],
"}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}]}],
"}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.743229886878755*^9,
3.743229929619356*^9}},ExpressionUUID->"cbca8ed1-5d8f-4e61-8033-\
cf95096b7059"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"L", "=", "2"}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["m", "1"]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["m", "2"]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "\[Equal]",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], "=",
RowBox[{"Abs", "[",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "-",
SubscriptBox["\[ScriptL]", "2"]}], "]"}]}],
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "+",
SubscriptBox["\[ScriptL]", "2"]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["m", "3"], "=",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "3"]}]}],
SubscriptBox["\[ScriptL]", "3"]],
RowBox[{
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "1"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "2"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "3"]}], "+", "1"}], ")"}]}],
RowBox[{"4", "\[Pi]"}]]],
RowBox[{"J3", "[",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["\[ScriptL]", "3"]}], "]"}],
RowBox[{"ThreeJSymbol", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["m", "1"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["m", "2"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], ",",
SubscriptBox["m", "3"]}], "}"}]}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
SubscriptBox["m", "3"]],
RowBox[{
SubscriptBox["Y",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], ",",
RowBox[{"-",
SubscriptBox["m", "3"]}]}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}]}]}], "//",
"Simplify"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["m", "1"], ",",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "1"]}], ",",
SubscriptBox["\[ScriptL]", "1"]}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["m", "2"], ",",
RowBox[{"-",
SubscriptBox["\[ScriptL]", "2"]}], ",",
SubscriptBox["\[ScriptL]", "2"]}], "}"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.743229347616185*^9, 3.7432293566229267`*^9}, {
3.7432293931406107`*^9, 3.743229582745933*^9}, {3.743229655069162*^9,
3.74322967376245*^9}},ExpressionUUID->"ea189845-c47e-4753-ae12-\
0c29bb7fe966"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{", "True", "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}]}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}], ",",
RowBox[{"{", "True", "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.743229554288212*^9, 3.743229584376692*^9}, {
3.743229656863202*^9,
3.743229675340521*^9}},ExpressionUUID->"92d6db72-9f08-4355-8160-\
14f066aceceb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"L", "=", "5"}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "1"]], "[", "\[Theta]", "]"}],
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "2"]], "[", "\[Theta]", "]"}]}],
"\[Equal]",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "3"], "=",
RowBox[{"Abs", "[",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "-",
SubscriptBox["\[ScriptL]", "2"]}], "]"}]}],
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "+",
SubscriptBox["\[ScriptL]", "2"]}]],
RowBox[{
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "1"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "2"]}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
SubscriptBox["\[ScriptL]", "3"]}], "+", "1"}], ")"}]}],
RowBox[{"4", "\[Pi]"}]]],
SuperscriptBox[
RowBox[{"J3", "[",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",",
SubscriptBox["\[ScriptL]", "2"], ",",
SubscriptBox["\[ScriptL]", "3"]}], "]"}], "2"],
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "3"]], "[", "\[Theta]", "]"}]}]}]}], "//",
"Simplify"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], ",", "0", ",", "L"}], "}"}]}],
"]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.743229754397874*^9,
3.743229790813179*^9}},ExpressionUUID->"c2d3be71-50b2-4d02-bc7c-\
fa8422bb9511"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.743229787447109*^9,
3.7432297917507353`*^9}},ExpressionUUID->"3a86ae5d-84b5-4de4-bf01-\
e2f7182357aa"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}], ")"}], "n"],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "R"}], ")"}], "n"],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "\[ScriptL]"], "2", " ",
RowBox[{
RowBox[{"(",
FractionBox["n", "2"], ")"}], "!"}],
RowBox[{
RowBox[{"(",
FractionBox["n", "2"], ")"}], "!"}]}],
RowBox[{" ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "+", "\[ScriptL]", "+", "1"}], ")"}],
"!"}],
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "-", "\[ScriptL]"}], ")"}], "!"}]}]}]]}]}],
",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}], "//",
"MatrixForm"}]], "Input",
CellChangeTimes->{{3.742997563067418*^9, 3.742997629595066*^9}, {
3.743007488832282*^9, 3.7430074921039743`*^9}, {3.743008519262891*^9,
3.743008520697835*^9}, {3.743008552202379*^9, 3.74300856107659*^9}, {
3.743008673268701*^9, 3.743008689038439*^9}, {3.743010924076429*^9,
3.7430109261273117`*^9}},ExpressionUUID->"6d246081-7c23-4031-b117-\
f6e9dbc0e0a0"],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"True", "True", "True", "True", "True", "True", "True", "True", "True",
"True", "True"},
{"True", "True", "True", "True", "True", "True", "True", "True", "True",
"True", "True"},
{"True", "True", "True", "True", "True", "True", "True", "True", "True",
"True", "True"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.743008697461802*^9,
3.743010934155423*^9},ExpressionUUID->"3f1ab4cb-673d-4ce6-aaea-\
91d682381bce"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Jacobian on a d-sphere", "Section",
CellChangeTimes->{{3.514962539137184*^9, 3.5149625496237373`*^9},
3.725888161913249*^9},ExpressionUUID->"f857da23-6512-4a44-801c-\
0238416ec25a"],
Cell[TextData[{
"For two particles on a d-sphere, we need to convert the Jacobian in the \
principal angle \[Theta] to a Jacobian in ",
Cell[BoxData[
FormBox["u", TraditionalForm]],ExpressionUUID->
"cb20c416-f00e-4253-a78d-8b716e51c9f1"]
}], "Text",
CellChangeTimes->{{3.514366347939295*^9, 3.5143663588893747`*^9}, {
3.514368123460621*^9, 3.5143681283725033`*^9}, {3.5144419641929693`*^9,
3.5144419660810423`*^9}, {3.5144420288335114`*^9, 3.514442066863542*^9}, {
3.5144421498400106`*^9,
3.5144421506088*^9}},ExpressionUUID->"2556e3c0-3c07-46c8-a4f0-e0d5f873e557"],
Cell[BoxData[
RowBox[{"u", "=",
RowBox[{
RowBox[{"2", "R", " ",
RowBox[{
RowBox[{"Sin", "[",
FractionBox["\[Theta]", "2"], "]"}], "\t",
"\[DoubleLongLeftRightArrow]", "\t", "\[Theta]"}]}], "=",
RowBox[{"2",
RowBox[{"ArcSin", "[",
FractionBox["u",
RowBox[{"2", "R"}]], "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.514440997871438*^9,
3.514441038467401*^9}},ExpressionUUID->"52f037c3-c011-4459-9ec6-\
6f496c768a58"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"d", "-", "1"}]],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"d", "-", "1"}]],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]], "=",
RowBox[{
FractionBox[
RowBox[{"\[CapitalGamma]", "[",
FractionBox[
RowBox[{"d", "+", "1"}], "2"], "]"}],
RowBox[{
SqrtBox["\[Pi]"], " ",
RowBox[{"\[CapitalGamma]", "[",
FractionBox["d", "2"], "]"}]}]],
SuperscriptBox[
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"d", "-", "1"}]],
FractionBox[
RowBox[{"\[DifferentialD]", "\[Theta]"}],
RowBox[{"\[DifferentialD]", "u"}]],
RowBox[{"\[DifferentialD]", "u"}]}]}]], "Input",
CellChangeTimes->{{3.51436962491194*^9, 3.514369710622314*^9}, {
3.514369824804817*^9, 3.514369826492672*^9}, {3.514370361976281*^9,
3.514370393649591*^9}, {3.51444091636539*^9, 3.514440982678095*^9}, {
3.5144410180546293`*^9, 3.514441019516622*^9}, {3.5144411456978903`*^9,
3.514441162811365*^9}, {3.514441221975813*^9, 3.514441255639862*^9}, {
3.5144416987210093`*^9, 3.514441704046093*^9}, {3.514441741525853*^9,
3.5144417650487223`*^9}, {3.5144418247020273`*^9,
3.51444182582703*^9}},ExpressionUUID->"e939f164-90ed-4275-8c20-\
a3c9b35f02a0"],
Cell[BoxData[
RowBox[{"\t\t\t",
RowBox[{"=",
RowBox[{
FractionBox[
RowBox[{"\[CapitalGamma]", "[",
FractionBox[
RowBox[{"d", "+", "1"}], "2"], "]"}],
RowBox[{
SqrtBox["\[Pi]"], " ",
RowBox[{"\[CapitalGamma]", "[",
FractionBox["d", "2"], "]"}]}]],
SuperscriptBox[
RowBox[{"Sin", "[",
RowBox[{"2",
RowBox[{"ArcSin", "[",
FractionBox["u",
RowBox[{"2", "R"}]], "]"}]}], "]"}],
RowBox[{"d", "-", "1"}]],
RowBox[{
FractionBox["\[DifferentialD]",
RowBox[{"\[DifferentialD]", "u"}]],
RowBox[{"(",
RowBox[{"2",
RowBox[{"ArcSin", "[",
FractionBox["u",
RowBox[{"2", "R"}]], "]"}]}], ")"}]}],
RowBox[{"\[DifferentialD]", "u"}]}]}]}]], "Input",
CellChangeTimes->{{3.51436962491194*^9, 3.514369710622314*^9}, {
3.514369824804817*^9, 3.514369826492672*^9}, {3.514370361976281*^9,
3.514370393649591*^9}, {3.51444091636539*^9, 3.514440975890657*^9}, {
3.514441046579885*^9, 3.5144410552684402`*^9}, {3.5144411650853786`*^9,
3.514441165711499*^9}, {3.514441237939712*^9, 3.514441258974966*^9},
3.514441768412119*^9, {3.5144418200515213`*^9, 3.5144418393774023`*^9},
3.5144419717829742`*^9},ExpressionUUID->"abec2db9-74cd-44ab-8e15-\
ec3c2d9acd58"],
Cell[BoxData[
RowBox[{"\t\t\t",
RowBox[{"=",
RowBox[{
FractionBox[
RowBox[{"\[CapitalGamma]", "[",
FractionBox[
RowBox[{"d", "+", "1"}], "2"], "]"}],
RowBox[{
SqrtBox["\[Pi]"], " ",
RowBox[{"\[CapitalGamma]", "[",
FractionBox["d", "2"], "]"}], "R"}]],
SuperscriptBox[
RowBox[{"(",
FractionBox["u", "R"], ")"}],
RowBox[{"d", "-", "1"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["u",
RowBox[{"2", "R"}]], ")"}], "2"]}], ")"}],
FractionBox[
RowBox[{"d", "-", "2"}], "2"]],
RowBox[{"\[DifferentialD]", "u"}]}]}]}]], "Input",
CellChangeTimes->{{3.514441348517651*^9, 3.514441350082279*^9}, {
3.514441788689559*^9, 3.514441817076388*^9}, {3.514441851341044*^9,
3.5144418681911297`*^9}, {3.5144419729582577`*^9, 3.514442001547876*^9}, {
3.5144436090329647`*^9,
3.514443609481625*^9}},ExpressionUUID->"6245dfde-4373-46ac-8f56-\
97c43c57cefd"]
}, Closed]],
Cell[CellGroupData[{
Cell["Spherium", "Section",
CellChangeTimes->{{3.4415144118152733`*^9, 3.441514417462728*^9}, {
3.441563463354508*^9, 3.4415634659050083`*^9}, {3.441648461308599*^9,
3.4416484613837833`*^9}, {3.4416489347610483`*^9, 3.44164894374827*^9}, {
3.442003673441472*^9, 3.442003679337524*^9}, {3.442384570530238*^9,
3.442384577341913*^9}, {3.4423851482723503`*^9, 3.442385148777483*^9},
3.705159142601218*^9, {3.716972358664538*^9, 3.7169723618822803`*^9}, {
3.725887700857214*^9, 3.7258877207683*^9}, {3.7258879529143953`*^9,
3.725887971537971*^9}, 3.725888164456431*^9, {3.742878203693392*^9,
3.742878210178339*^9}},ExpressionUUID->"d36161d9-7065-4d0c-9aa3-\
9e184ff60f78"],
Cell[CellGroupData[{
Cell["Legendre basis set", "Subsection",
CellChangeTimes->{{3.726073981425799*^9, 3.7260739868717747`*^9}, {
3.742878146737846*^9, 3.742878154661549*^9}, {3.742878200397444*^9,
3.74287820116363*^9}, {3.742878283137578*^9, 3.7428782911282177`*^9}, {
3.742878651086339*^9, 3.7428786516772127`*^9}, {3.7428787066524467`*^9,
3.74287871029501*^9}, {3.742898142501433*^9, 3.742898143278768*^9}, {
3.742898186664515*^9,
3.742898187434697*^9}},ExpressionUUID->"caba0f41-e4c2-48bd-b7f9-\
f49d444689e8"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
SuperscriptBox["R", "2"]]}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
SuperscriptBox["\[DifferentialD]", "2"],
RowBox[{"\[DifferentialD]",
SuperscriptBox["\[Theta]", "2"]}]],
RowBox[{"+",
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"Cot", "[", "\[Theta]", "]"}]}], "+",
FractionBox["1",
RowBox[{"Sin", "[", "\[Theta]", "]"}]]}], ")"}]}]}],
FractionBox["\[DifferentialD]",
RowBox[{"\[DifferentialD]", "\[Theta]"}]]}], ")"}]}], "+",
FractionBox["1",
RowBox[{"2", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}]], "+",
FractionBox["1",
SuperscriptBox["R", "2"]], " \t",
RowBox[{"(*", " ",
RowBox[{
"Hamiltonian", " ", "for", " ", "the", " ", "triplet", " ", "P", " ",
"state"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.4415273614013968`*^9, 3.441527390402627*^9}, {
3.441558204848555*^9, 3.441558232195305*^9}, 3.441559730873198*^9, {
3.441648594035817*^9, 3.441648609697917*^9}, {3.44165798861795*^9,
3.441657994696912*^9}, {3.441658262370665*^9, 3.4416582626277857`*^9}, {
3.442003758893745*^9, 3.442003800036807*^9}, {3.4423846162448273`*^9,
3.442384679581851*^9}, {3.4423856499997*^9, 3.442385669539687*^9}, {
3.725887734569551*^9, 3.725887750488283*^9}, {3.725888167336578*^9,
3.7258881684004602`*^9}, {3.7428020206313257`*^9, 3.742802022722247*^9}, {
3.742802071248371*^9, 3.742802073411126*^9}, {3.742802113237672*^9,
3.742802114380064*^9}, {3.742878166458519*^9, 3.742878202392807*^9},
3.74287824976378*^9, {3.742878683723751*^9, 3.742878696595866*^9}, {
3.742878785782621*^9, 3.7428788081921873`*^9},
3.7428790684197273`*^9},ExpressionUUID->"19db6ad5-bc03-487e-a573-\
966ce5a1e931"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "\[ScriptL]_"], "[", "\[Theta]_", "]"}], "=",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}]],
RowBox[{"4", "\[Pi]"}]],
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}]}]}], ";", "\t",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "3"}], "}"}], ",",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"8",
SuperscriptBox["\[Pi]", "2"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "\[Theta]", "]"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "\[Theta]", "]"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "0", ",", "M"}], "}"}]}], "]"}], "\[Equal]",
RowBox[{"IdentityMatrix", "[",
RowBox[{"M", "+", "1"}], "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.442384728507373*^9, 3.442384762544999*^9}, {
3.442384846108696*^9, 3.442384849245185*^9}, {3.725887836001515*^9,
3.72588783924848*^9}, {3.725887897025584*^9, 3.725887897520524*^9}, {
3.742878089764477*^9, 3.742878095672801*^9}, {3.7428781292961063`*^9,
3.742878137669608*^9}, {3.7428784349631367`*^9, 3.7428784475235558`*^9}, {
3.742878629235376*^9, 3.742878674283474*^9}, {3.742878761583694*^9,
3.742878772688912*^9}, {3.7429026540579042`*^9,
3.742902660217538*^9}},ExpressionUUID->"6cb4dcc6-ee3c-42a3-83e3-\
235f526f9182"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.7428786560165787`*^9, 3.742878674948601*^9},
3.742878773518346*^9, 3.742901391526465*^9, 3.742902661333044*^9,
3.742903268077057*^9,
3.7429231774546757`*^9},ExpressionUUID->"7a5608ac-da7f-4146-9663-\
314f8a925eb7"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "2"}], "}"}], ",",
RowBox[{
RowBox[{"H", "[", "\[Alpha]_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"8",
SuperscriptBox["\[Pi]", "2"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "\[Theta]", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[DoublePrime]"], "[",
"\[Theta]", "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"Cot", "[", "\[Theta]", "]"}]}], "+",
FractionBox["1",
RowBox[{"Sin", "[", "\[Theta]", "]"}]]}], ")"}],
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[Prime]"], "[",
"\[Theta]", "]"}]}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}]], "+", "1"}], ")"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "\[Theta]", "]"}]}]}], ")"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "0", ",", "M"}], "}"}]}], "]"}]}]}], "]"}],
";"}]], "Input",
CellChangeTimes->{{3.742918604620111*^9, 3.7429186131351423`*^9},
3.742918719955948*^9, {3.74291885295679*^9, 3.742918854648775*^9},
3.742922362967875*^9, 3.742980439148241*^9,
3.742980540306929*^9},ExpressionUUID->"4538602f-e656-4a1f-8b53-\
fef84aa71ecb"],
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "2"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "\[Alpha]", "]"}], ",", "15"}], "]"}], "]"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[", "\[Theta]", "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"8",
SuperscriptBox["\[Pi]", "2"],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Alpha]: \>\"", ",",
RowBox[{"N", "[", "\[Alpha]", "]"}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"{",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
"+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}]}], "}"}], "]"}], ";"}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"-", "10"}], ",", "0", ",", "1"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}},ExpressionUUID->"1fc2dedb-8f1a-403e-a7e1-\
c8dbd76bc9e5"]
}, Closed]],
Cell[CellGroupData[{
Cell["Explicitly-correlated calculations for ground state", "Subsection",
CellChangeTimes->{{3.726073981425799*^9, 3.7260739868717747`*^9}, {
3.742878146737846*^9, 3.742878154661549*^9}, {3.742878200397444*^9,
3.74287820116363*^9}, {3.7429004809627247`*^9, 3.742900482248204*^9}, {
3.743008847489559*^9, 3.743008848427631*^9}, {3.760885320961331*^9,
3.760885323017894*^9}, {3.761038569984333*^9,
3.761038570679368*^9}},ExpressionUUID->"bdb8d3b4-c988-408c-865f-\
6a4aaefec0cc"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "10"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"tab", "=",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "R", "]"}], ",", "100"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{
RowBox[{"S", "[", "R", "]"}], ",", "100"}], "]"}]}], "}"}],
"]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[", "\[Epsilon]", "]"}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[", " ",
RowBox[{"R", " ",
SqrtBox[
RowBox[{"2", "-",
RowBox[{"2",
RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "15"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<R: \>\"", ",",
RowBox[{"N", "[", "R", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}]}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}]}], "]"}]}], "}"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"{",
RowBox[{"-",
RowBox[{"Rationalize", "[", "5.3253", "]"}]}], "}"}]}], "}"}]}],
"]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"tab", ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}, {3.742995040906142*^9, 3.7429950736953487`*^9}, {
3.742995103988391*^9, 3.742995134262944*^9}, {3.742995247787807*^9,
3.742995324266892*^9}, {3.742995360656518*^9, 3.742995384384591*^9}, {
3.7429954237133417`*^9, 3.742995433990855*^9}, {3.74299547198099*^9,
3.742995484920415*^9}, {3.742995760731353*^9, 3.7429957673259373`*^9}, {
3.742995847653798*^9, 3.7429958543557777`*^9}, {3.7429960931764708`*^9,
3.742996100192951*^9}, {3.742996300021468*^9, 3.742996312749928*^9}, {
3.742996623983343*^9, 3.742996683485918*^9}, {3.742996763260223*^9,
3.7429967667513227`*^9}, {3.742996823435986*^9, 3.742996947881322*^9}, {
3.7429969858904467`*^9, 3.7429969890918093`*^9}, {3.742997154797719*^9,
3.742997179630937*^9}, {3.742997221183319*^9, 3.7429972234251423`*^9}, {
3.742997256190982*^9, 3.742997295285985*^9}, {3.742997325738884*^9,
3.7429973513749123`*^9}, {3.74299738735357*^9, 3.7429974112679663`*^9}, {
3.742997461552939*^9, 3.7429974669219646`*^9}, {3.743008210683326*^9,
3.743008225538146*^9}, 3.743009057265111*^9, {3.743009239073036*^9,
3.7430092656499767`*^9}, {3.743009361125576*^9, 3.743009373039097*^9}, {
3.7430094955856752`*^9, 3.7430095437002373`*^9}, {3.7430096137618933`*^9,
3.743009669733102*^9}, {3.743009863885*^9, 3.7430099872406483`*^9}, {
3.743010046219955*^9, 3.743010048241816*^9}, {3.7430103170795507`*^9,
3.743010344854659*^9}, {3.743011088494897*^9, 3.7430111264389553`*^9}, {
3.7430111611489353`*^9, 3.743011161959427*^9}, {3.743017152694162*^9,
3.743017214293683*^9}, {3.7430172717293787`*^9, 3.74301731611399*^9}, {
3.743050381548286*^9, 3.7430504265925217`*^9}, {3.743050459093212*^9,
3.743050513236857*^9}, {3.743058479430113*^9, 3.743058512638873*^9}, {
3.7430585676431007`*^9, 3.743058581876259*^9}, 3.743058631064424*^9, {
3.7430936684137993`*^9, 3.743093679241973*^9}, {3.743093711275429*^9,
3.7430937413274803`*^9}, {3.743093773814063*^9, 3.743093775701182*^9}, {
3.7430940895099916`*^9, 3.743094095858829*^9}, 3.743134557856875*^9, {
3.743134593968667*^9, 3.743134730681005*^9}, {3.743136067507962*^9,
3.7431360880238857`*^9}, {3.7432205013549223`*^9, 3.743220521207345*^9}, {
3.74324901832952*^9, 3.743249039226322*^9}, {3.743249141222273*^9,
3.7432491431661043`*^9}, 3.743249275352684*^9, {3.743250240903697*^9,
3.743250241066393*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"fd4d7d77-fd44-443b-a877-600297ee2a20"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
"-", "0.1221505895086752399672850481526467453951231674963393224824639187698\
510629717143679724801991059956225635619235945765`100."}], ",",
RowBox[{
"-", "0.0329776383481224696083465030844867425916092144997434553796738060473\
842476633084142694769402632462430048763648368884`100."}], ",",
"0.121189192074791677886199429384612372856196205110210467954297229577054057\
1299788262324991374025027180285762299667263`100.", ",",
"0.352824478791268842094551803605610560714169830756836675818144468000987186\
67601264685738820111391498215467923577726`100.", ",",
"0.658197287983287267972481670616492578263384688287338880906630524528966320\
4401974130248707878242182479787082595699135`100.", ",",
"1.036126198997539471845801990943954942866546829103444800341454650917282477\
5731944536633733689942485492001847246125242`100.", ",",
"1.493071436302994390071759619231425063440863301522365809679435088965429904\
2270506855869914221478548795637441650644614`100.", ",",
"2.305621582488911961576388232620486782796696540533005373783870191651545988\
9376808896048122639810653346546119604831802`100.", ",",
"5.800562289082376441214521876570322846101563848946398256812215108372655585\
7259092489543315160288367587772617431893314`100.", ",",
"61.05834835093963526398782194093927789728447678601293025105167285079751048\
35999222424279051681938080645134816458778736`100."}], "}"}]], "Print",
CellChangeTimes->{
3.7432491436528273`*^9, 3.743249275645846*^9, {3.743250241540782*^9,
3.743250269102879*^9}, 3.743252061783297*^9, 3.743252172287586*^9,
3.760885286003696*^9},
CellLabel->
"During evaluation of \
In[14]:=",ExpressionUUID->"eddb80e0-8314-4b81-a073-134184dae11a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5.3253`"}], ",",
RowBox[{"-", "9.219234834278800533326605743782`8.850010829569765*^-8"}]}],
"}"}], "}"}]], "Output",
CellChangeTimes->{
3.743134561955127*^9, 3.743134598396058*^9, {3.743134630792986*^9,
3.743134732201373*^9}, 3.7431360900707407`*^9, {3.743220514222476*^9,
3.743220523817198*^9}, {3.743249031908792*^9, 3.743249048224409*^9}, {
3.743249088261744*^9, 3.743249143757661*^9}, 3.7432492758447723`*^9, {
3.743250241623152*^9, 3.743250269175798*^9}, 3.743252061896006*^9,
3.7432521723645277`*^9, 3.76088528642432*^9},
CellLabel->"Out[14]=",ExpressionUUID->"77e73b0a-4204-439b-880c-363ddd8df3f0"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
LineBox[{{-5.3253, -9.2192348342788*^-8}, {-5.3253, \
-9.2192348342788*^-8}}]}}, {}, {}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImageMargins->0.,
ImagePadding->All,
ImageSize->Automatic,
ImageSizeRaw->Automatic,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-10.6506, 0}, {-1.84384696685576*^-7, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.743134561955127*^9, 3.743134598396058*^9, {3.743134630792986*^9,
3.743134732201373*^9}, 3.7431360900707407`*^9, {3.743220514222476*^9,
3.743220523817198*^9}, {3.743249031908792*^9, 3.743249048224409*^9}, {
3.743249088261744*^9, 3.743249143757661*^9}, 3.7432492758447723`*^9, {
3.743250241623152*^9, 3.743250269175798*^9}, 3.743252061896006*^9,
3.7432521723645277`*^9, 3.760885286702335*^9},
CellLabel->"Out[15]=",ExpressionUUID->"e954db0b-9de5-4b95-884f-97be0d9ee069"]
}, Open ]],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{"R", " ", "=", " ", "5.3253"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.742996084929338*^9, 3.742996087955208*^9},
3.743008844931081*^9},ExpressionUUID->"2a334965-e048-4730-b8d2-\
934066eee580"],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "\[Equal]", "0"}]], "Input",
CellChangeTimes->{{3.743008617221795*^9,
3.743008632732617*^9}},ExpressionUUID->"7e0bdb5b-809c-478e-a3d8-\
bbaf3faf9a2a"],
Cell[BoxData[
RowBox[{
SubscriptBox["c", "\[ScriptL]"], "\[Proportional]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"\[Psi]", "[", "u", "]"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}],
RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.743008638310566*^9,
3.7430087113463907`*^9}},ExpressionUUID->"efa3f2c4-c56a-4f0d-a231-\
57f12b695850"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "u", "]"}], "2"], "=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"n", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["a", "n"],
SuperscriptBox["u", "n"]}]}]}]], "Input",
CellChangeTimes->{{3.743008733842286*^9, 3.7430087532244596`*^9},
3.743009302480163*^9},ExpressionUUID->"6d2eae8e-6c4d-48f2-a1b2-\
4de4ecc2600b"],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "\[Equal]", "0"}]], "Input",
CellChangeTimes->{{3.743008826317938*^9, 3.743008876179605*^9}, {
3.743008923358904*^9, 3.7430089257474413`*^9}, 3.743008964749034*^9, {
3.7430110645813437`*^9,
3.7430110748797283`*^9}},ExpressionUUID->"ae82bc8b-92a9-43b2-ac92-\
6cd163b82739"],
Cell[BoxData[
RowBox[{
RowBox[{"a", "=",
RowBox[{"CoefficientList", "[",
RowBox[{
RowBox[{"1.`", "\[VeryThinSpace]", "+",
RowBox[{"0.6666467666189491`", " ", "u"}], "+",
RowBox[{"0.233711497250696`", " ",
SuperscriptBox["u", "2"]}], "+",
RowBox[{"0.057892269462279114`", " ",
SuperscriptBox["u", "3"]}], "+",
RowBox[{"0.011416060718727025`", " ",
SuperscriptBox["u", "4"]}], "+",
RowBox[{"0.0019001512003665785`", " ",
SuperscriptBox["u", "5"]}], "+",
RowBox[{"0.00027454051463773074`", " ",
SuperscriptBox["u", "6"]}], "+",
RowBox[{"0.00003485368552570877`", " ",
SuperscriptBox["u", "7"]}], "+",
RowBox[{"3.909550758995941`*^-6", " ",
SuperscriptBox["u", "8"]}], "+",
RowBox[{"3.886613919337475`*^-7", " ",
SuperscriptBox["u", "9"]}], "+",
RowBox[{"3.423932142765105`*^-8", " ",
SuperscriptBox["u", "10"]}], "+",
RowBox[{"2.6560194575496133`*^-9", " ",
SuperscriptBox["u", "11"]}], "+",
RowBox[{"1.7871244353862165`*^-10", " ",
SuperscriptBox["u", "12"]}], "+",
RowBox[{"1.017581390449739`*^-11", " ",
SuperscriptBox["u", "13"]}], "+",
RowBox[{"4.734306593585661`*^-13", " ",
SuperscriptBox["u", "14"]}], "+",
RowBox[{"1.714745687814212`*^-14", " ",
SuperscriptBox["u", "15"]}], "+",
RowBox[{"4.501929931069031`*^-16", " ",
SuperscriptBox["u", "16"]}], "+",
RowBox[{"7.574161874717616`*^-18", " ",
SuperscriptBox["u", "17"]}], "+",
RowBox[{"6.100436598427603`*^-20", " ",
SuperscriptBox["u", "18"]}]}], ",", "u"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.7430101190494423`*^9, {3.743010352750772*^9, 3.743010358043541*^9}, {
3.7430111740999517`*^9, 3.7430111950267553`*^9},
3.7430113269559107`*^9},ExpressionUUID->"87275d0e-03a0-4d3c-9d6f-\
87d7d86f1997"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"n", "=", "0"}],
RowBox[{
RowBox[{"Length", "[", "a", "]"}], "-", "1"}]],
RowBox[{
RowBox[{"a", "\[LeftDoubleBracket]",
RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}],
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
RowBox[{
FractionBox["n", "2"], "!"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox["n", "2"]}], ")"}], "!"}]], "-",
RowBox[{
FractionBox["2", "3"],
RowBox[{"(",
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "!"}], ")"}], "2"]}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox["n", "2"]}], ")"}], "!"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"2", "+",
FractionBox["n", "2"]}], ")"}], "!"}]}]]}], ")"}]}], "+",
RowBox[{
FractionBox["1", "5"],
FractionBox[
RowBox[{"5", " ",
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "!"}], ")"}], "2"]}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
FractionBox["n", "2"]}], ")"}], "!"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "+",
FractionBox["n", "2"]}], ")"}], "!"}]}]]}]}], ")"}]}]}],
"\[Equal]", "0"}], ",", "R", ",", "Reals"}], "]"}]], "Input",
CellChangeTimes->{{3.743008903832117*^9, 3.743008967251095*^9}, {
3.743009196399331*^9, 3.743009223717544*^9}, {3.743009319245885*^9,
3.743009320852151*^9}, {3.743009404900145*^9, 3.7430094792063637`*^9}, {
3.743009571152327*^9, 3.7430095985464563`*^9}, {3.743009758354797*^9,
3.743009784554747*^9}, {3.743010107602206*^9, 3.743010110403318*^9}, {
3.7430101563715353`*^9, 3.743010219116867*^9}, {3.7430103802544622`*^9,
3.743010407153284*^9}, {3.743010971637995*^9, 3.74301100841931*^9}, {
3.7430111317461853`*^9, 3.743011139419375*^9}, {3.7430113023914213`*^9,
3.7430113086757936`*^9}, {3.74325075070501*^9, 3.7432507633530416`*^9}, {
3.743252178653953*^9,
3.743252191491788*^9}},ExpressionUUID->"3a93abe4-2ad3-486e-8c6e-\
7fdc2391862f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"R", "\[Rule]",
RowBox[{"-", "7.90510513769442`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"R", "\[Rule]",
RowBox[{"-", "5.3252580783808625`"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.74300890102166*^9, 3.743008937590334*^9}, {
3.743008967830804*^9, 3.743008977460165*^9}, {3.743009202941248*^9,
3.743009224321291*^9}, {3.7430093127952747`*^9, 3.743009336272367*^9}, {
3.7430093977504263`*^9, 3.743009486065894*^9}, {3.743009566002088*^9,
3.743009598986909*^9}, {3.743009785285321*^9, 3.743009831584551*^9}, {
3.74301000669014*^9, 3.743010029742188*^9}, {3.743010110958336*^9,
3.743010120657176*^9}, {3.743010161125496*^9, 3.743010219470181*^9},
3.743010291783205*^9, {3.743010361433179*^9, 3.743010408716257*^9},
3.7430110099585543`*^9, {3.743011132333686*^9, 3.743011147105628*^9}, {
3.743011181862275*^9, 3.743011197086944*^9}, {3.7430113097387753`*^9,
3.743011328647744*^9}, 3.7432507526975203`*^9, {3.743252044458527*^9,
3.743252072024311*^9}, {3.74325218171531*^9,
3.74325219198354*^9}},ExpressionUUID->"3f0af36f-5a14-4009-9228-\
7f92279f21fd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "2"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"tab", "=",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "R", "]"}], ",", "100"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{
RowBox[{"S", "[", "R", "]"}], ",", "100"}], "]"}]}], "}"}],
"]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[",
RowBox[{"2", " ", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "15"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Normalize", "[", "\[Rho]", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<R: \>\"", ",",
RowBox[{"N", "[", "R", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}]}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}]}], "]"}]}], "}"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "8"}], ",",
RowBox[{"-", "1"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]",
"]"}], "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"tab", ",",
RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}, {3.742995040906142*^9, 3.7429950736953487`*^9}, {
3.742995103988391*^9, 3.742995134262944*^9}, {3.742995247787807*^9,
3.742995324266892*^9}, {3.742995360656518*^9, 3.742995384384591*^9}, {
3.7429954237133417`*^9, 3.742995433990855*^9}, {3.74299547198099*^9,
3.742995484920415*^9}, {3.742995760731353*^9, 3.7429957673259373`*^9}, {
3.742995847653798*^9, 3.7429958543557777`*^9}, {3.7429960931764708`*^9,
3.742996100192951*^9}, {3.742996300021468*^9, 3.742996312749928*^9}, {
3.742996623983343*^9, 3.742996683485918*^9}, {3.742996763260223*^9,
3.7429967667513227`*^9}, {3.742996823435986*^9, 3.742996947881322*^9}, {
3.7429969858904467`*^9, 3.7429969890918093`*^9}, {3.742997154797719*^9,
3.742997179630937*^9}, {3.742997221183319*^9, 3.7429972234251423`*^9}, {
3.742997256190982*^9, 3.742997295285985*^9}, {3.742997325738884*^9,
3.7429973513749123`*^9}, {3.74299738735357*^9, 3.7429974112679663`*^9}, {
3.742997461552939*^9, 3.7429974669219646`*^9}, {3.743008210683326*^9,
3.743008225538146*^9}, 3.743009057265111*^9, {3.743009239073036*^9,
3.7430092656499767`*^9}, {3.743009361125576*^9, 3.743009373039097*^9}, {
3.7430094955856752`*^9, 3.7430095437002373`*^9}, {3.7430096137618933`*^9,
3.743009669733102*^9}, {3.743009863885*^9, 3.7430099872406483`*^9}, {
3.743010046219955*^9, 3.743010048241816*^9}, {3.7430103170795507`*^9,
3.743010344854659*^9}, {3.743011088494897*^9, 3.7430111264389553`*^9}, {
3.7430111611489353`*^9, 3.743011161959427*^9}, {3.743017152694162*^9,
3.743017214293683*^9}, {3.7430172717293787`*^9, 3.74301731611399*^9}, {
3.743050381548286*^9, 3.7430504265925217`*^9}, {3.743050459093212*^9,
3.743050513236857*^9}, {3.743058479430113*^9, 3.743058512638873*^9}, {
3.7430585676431007`*^9, 3.743058581876259*^9}, 3.743058631064424*^9, {
3.7430936684137993`*^9, 3.743093679241973*^9}, {3.743093711275429*^9,
3.7430937413274803`*^9}, {3.743093773814063*^9, 3.743093775701182*^9}, {
3.7430940895099916`*^9, 3.743094095858829*^9}, {3.74324925746987*^9,
3.7432492932678623`*^9}},ExpressionUUID->"d1b1610f-85af-4346-ac50-\
e489107603e8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "8.`"}], ",",
"0.05663767376625528048334848706351426913`13.802711341328264"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "7.`"}], ",",
"0.05515826077011463963622210991315024364`13.790751914580428"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "6.`"}], ",",
"0.05267761031337876002220813890081900529`13.769978140343293"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5.`"}], ",",
"0.04771886253406148955033934815129399933`13.725422339701307"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "4.`"}], ",",
"0.03398178620477027569403537051987069279`13.573123108659425"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3.`"}], ",",
RowBox[{
"-", "0.00668395560516228709635906989335329095`12.841363418604455"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.`"}], ",",
"0.11793777599399517240707880748737754526`14.023145791709837"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.`"}], ",",
"0.5832241052451204458791142818175643314`14.68171816821296"}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.742996657478889*^9, 3.742996694811885*^9},
3.742996774697028*^9, {3.742996831606791*^9, 3.742996930722329*^9}, {
3.742996979128537*^9, 3.742996998685197*^9}, {3.742997170258297*^9,
3.74299719396703*^9}, 3.742997236462091*^9, {3.742997281163794*^9,
3.7429973094529037`*^9}, {3.7429973429218388`*^9, 3.742997365255122*^9},
3.742997401406933*^9, 3.742997433942346*^9, 3.742997481668456*^9, {
3.743008209064024*^9, 3.743008227506484*^9}, 3.7430090700339823`*^9, {
3.743009243713592*^9, 3.74300927481546*^9}, {3.743009368158757*^9,
3.7430093778680067`*^9}, {3.743009503160977*^9, 3.743009544881068*^9}, {
3.743009615591918*^9, 3.743009674203759*^9}, {3.743009877875682*^9,
3.7430099570468187`*^9}, 3.743009988127508*^9, 3.743010048849511*^9, {
3.743010321582046*^9, 3.743010345691057*^9}, {3.743011108463632*^9,
3.7430111275578327`*^9}, 3.743011321093457*^9, {3.743017188499008*^9,
3.743017216540564*^9}, {3.743017266818322*^9, 3.7430173175941553`*^9}, {
3.743050388269188*^9, 3.7430504389575*^9}, {3.7430504717763042`*^9,
3.743050525568631*^9}, {3.743058489036425*^9, 3.743058522599071*^9}, {
3.743058573364636*^9, 3.743058631765682*^9}, {3.743093680652239*^9,
3.743093742800342*^9}, 3.743093782907002*^9, 3.743094097635339*^9, {
3.743249263535275*^9,
3.743249293845167*^9}},ExpressionUUID->"d46330e7-34f6-4fd6-87c7-\
9d62e37f39f0"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
LineBox[{{-8., 0.05663767376625528}, {-7., 0.05515826077011464}, {-6.,
0.05267761031337876}, {-5., 0.04771886253406149}, {-4.,
0.03398178620477028}, {-3., -0.006683955605162287}, {-2.,
0.11793777599399517`}, {-1.7293408880365622`,
0.2438717606778325}}]}}, {}, {}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-8., 0}, {-0.006683955605162287, 0.2438717606778325}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.742996657478889*^9, 3.742996694811885*^9},
3.742996774697028*^9, {3.742996831606791*^9, 3.742996930722329*^9}, {
3.742996979128537*^9, 3.742996998685197*^9}, {3.742997170258297*^9,
3.74299719396703*^9}, 3.742997236462091*^9, {3.742997281163794*^9,
3.7429973094529037`*^9}, {3.7429973429218388`*^9, 3.742997365255122*^9},
3.742997401406933*^9, 3.742997433942346*^9, 3.742997481668456*^9, {
3.743008209064024*^9, 3.743008227506484*^9}, 3.7430090700339823`*^9, {
3.743009243713592*^9, 3.74300927481546*^9}, {3.743009368158757*^9,
3.7430093778680067`*^9}, {3.743009503160977*^9, 3.743009544881068*^9}, {
3.743009615591918*^9, 3.743009674203759*^9}, {3.743009877875682*^9,
3.7430099570468187`*^9}, 3.743009988127508*^9, 3.743010048849511*^9, {
3.743010321582046*^9, 3.743010345691057*^9}, {3.743011108463632*^9,
3.7430111275578327`*^9}, 3.743011321093457*^9, {3.743017188499008*^9,
3.743017216540564*^9}, {3.743017266818322*^9, 3.7430173175941553`*^9}, {
3.743050388269188*^9, 3.7430504389575*^9}, {3.7430504717763042`*^9,
3.743050525568631*^9}, {3.743058489036425*^9, 3.743058522599071*^9}, {
3.743058573364636*^9, 3.743058631765682*^9}, {3.743093680652239*^9,
3.743093742800342*^9}, 3.743093782907002*^9, 3.743094097635339*^9, {
3.743249263535275*^9,
3.74324929392282*^9}},ExpressionUUID->"a1eff725-6cd6-4766-9c48-\
e4596ad8fcd8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", "R", " ",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}], "/", "3"}]}]}], ")"}],
"2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "15"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Normalize", "[", "\[Rho]", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<R: \>\"", ",",
RowBox[{"N", "[", "R", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
"+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}],
"]"}]}], "}"}]}], "\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "2"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.743249317434453*^9,
3.743249370435869*^9}},ExpressionUUID->"312998b8-f34f-4d8f-ada8-\
529ce8e4fc92"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "2.`"}], ",",
"0.13174565054273172613063877577446241472`14.189537982782927"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.9`"}], ",",
"0.0613071878644988213426676455054809456`13.83855598577885"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.8`"}], ",",
"0.01621148017165953868975934024109813171`13.244125144327507"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.7`"}], ",",
RowBox[{
"-", "0.00549819479807370640993893605019036912`12.75853216507087"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.6`"}], ",",
RowBox[{
"-", "0.00614133775885803398953899157104994269`12.790728765694983"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.5`"}], ",",
"0.01213213484544885266155837405930094013`13.070581074285709"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.4`"}], ",",
"0.04742473000348483674589975821544297506`13.647075731952729"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.3`"}], ",",
"0.09794465662280307408467795150154074992`13.947188398060387"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.2`"}], ",",
"0.16176959973608382395756211575824370712`14.151561216728714"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.1`"}], ",",
"0.23661760255479798428713987334398564266`14.305165344332528"}], "}"}],
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.`"}], ",",
"0.31970896888176448295241466594701653813`14.426982255443834"}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.743249352275446*^9,
3.7432493714217453`*^9}},ExpressionUUID->"732834ed-bb17-43bb-807d-\
6b18ef0060a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"c", "=",
RowBox[{"RecurrenceTable", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"a", "[", "0", "]"}], "\[Equal]", "1"}], ",",
RowBox[{
RowBox[{"a", "[", "1", "]"}], "\[Equal]", "\[Gamma]"}], ",",
RowBox[{
RowBox[{"a", "[",
RowBox[{"k", "+", "2"}], "]"}], "\[Equal]",
RowBox[{
FractionBox["\[Gamma]",
RowBox[{
RowBox[{"(",
RowBox[{"k", "+", "2"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"k", "+", "1"}], ")"}], "\[Gamma]"}], "+", "1"}],
")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"a", "[",
RowBox[{"k", "+", "1"}], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"k",
RowBox[{"(",
RowBox[{"k", "+", "\[Delta]", "-", "1"}], ")"}]}],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-", "\[CapitalEpsilon]"}],
")"}],
RowBox[{"a", "[", "k", "]"}]}]}], ")"}]}]}]}], "}"}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "\[Rule]",
FractionBox["1", "3"]}], ",",
RowBox[{"\[Delta]", "\[Rule]", "5"}]}], "}"}]}], ",", "a", ",",
RowBox[{"{",
RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"c2", "=",
RowBox[{
RowBox[{"CoefficientList", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"n", "=", "0"}],
RowBox[{
RowBox[{"Length", "[", "c", "]"}], "-", "1"}]],
RowBox[{
RowBox[{"c", "\[LeftDoubleBracket]",
RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}],
SuperscriptBox["u", "n"]}]}], ")"}],
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=", "0"}],
RowBox[{
RowBox[{"Length", "[", "c", "]"}], "-", "1"}]],
RowBox[{
RowBox[{"c", "\[LeftDoubleBracket]",
RowBox[{"m", "+", "1"}], "\[RightDoubleBracket]"}],
SuperscriptBox["u", "m"]}]}], ")"}]}], "/.",
RowBox[{"\[CapitalEpsilon]", "->",
RowBox[{"-", "0.157412987479"}]}]}], "/.",
RowBox[{"R", "\[Rule]",
RowBox[{"-", "5.3253"}]}]}], ",", "u"}], "]"}], "//",
"N"}]}], "\[IndentingNewLine]",
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"n", "=", "0"}],
RowBox[{
RowBox[{"Length", "[", "c2", "]"}], "-", "1"}]],
RowBox[{
RowBox[{"c2", "\[LeftDoubleBracket]",
RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}],
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
RowBox[{
FractionBox["n", "2"], "!"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox["n", "2"]}], ")"}], "!"}]], "-",
RowBox[{
FractionBox["2", "3"],
RowBox[{"(",
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "!"}], ")"}], "2"]}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox["n", "2"]}], ")"}], "!"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"2", "+",
FractionBox["n", "2"]}], ")"}], "!"}]}]]}], ")"}]}], "+",
RowBox[{
FractionBox["1", "5"],
FractionBox[
RowBox[{"5", " ",
SuperscriptBox["2",
RowBox[{"1", "+", "n"}]], " ",
SuperscriptBox["R", "n"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["n", "2"], "!"}], ")"}], "2"]}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
FractionBox["n", "2"]}], ")"}], "!"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "+",
FractionBox["n", "2"]}], ")"}], "!"}]}]]}]}], ")"}]}]}],
"\[Equal]", "0"}], ",", "R", ",", "Reals"}], "]"}]}], "Input",
CellChangeTimes->{{3.743058256930421*^9, 3.743058272448606*^9}, {
3.743058311944397*^9, 3.743058377270937*^9}, {3.743058422125256*^9,
3.743058425331132*^9}, {3.743058546668931*^9, 3.743058546742296*^9}, {
3.743058641720284*^9, 3.7430586420763073`*^9}, {3.743058673176174*^9,
3.743058709883335*^9}, {3.743058815311449*^9, 3.743058908417449*^9}, {
3.743059013663269*^9, 3.74305901753706*^9}, {3.743059064286539*^9,
3.743059118971814*^9}, {3.743059238295856*^9, 3.7430592996460943`*^9}, {
3.743059386341751*^9, 3.743059412491478*^9}, {3.743059656942665*^9,
3.7430597753306503`*^9}, {3.7430598192186747`*^9, 3.743059838263276*^9}, {
3.743248912160686*^9, 3.743248940150074*^9}, {3.74324917661977*^9,
3.743249239136263*^9}, {3.7432493876767406`*^9, 3.743249393690229*^9}, {
3.743249547085828*^9, 3.743249553646801*^9}, {3.7432497666245327`*^9,
3.743249846178138*^9}, {3.74324987624471*^9, 3.743249889050623*^9}, {
3.743250192619252*^9, 3.74325020160819*^9}, 3.743250332485158*^9,
3.7432503778741083`*^9, {3.743250415497982*^9, 3.74325042068097*^9}, {
3.743250480403112*^9, 3.7432504891071577`*^9}, {3.743250553975196*^9,
3.743250588685631*^9}, {3.743250649758428*^9, 3.743250675590646*^9}, {
3.743250775619095*^9, 3.74325080592728*^9}, {3.7432508434027357`*^9,
3.743250846975026*^9}, {3.743252083575445*^9, 3.743252083836508*^9},
3.7432521471107607`*^9, {3.743252199341425*^9, 3.743252228836989*^9}, {
3.743252277211143*^9, 3.743252285418354*^9}, {3.743252322389007*^9,
3.743252458849464*^9}, {3.743252502110982*^9,
3.743252502254023*^9}},ExpressionUUID->"2016af84-5098-4a00-a783-\
f0d93f8c9ba3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1.`", ",", "0.6666666666666666`", ",", "0.23379769131419442`", ",",
"0.0580297869675747`", ",", "0.0115338105847618`", ",",
"0.001964066241684534`", ",", "0.00029881196177178093`", ",",
"0.0000417646114165144`", ",", "5.467974643583115`*^-6", ",",
"6.800336860330669`*^-7", ",", "8.117295909053398`*^-8", ",",
"9.172017060115108`*^-9", ",", "9.674590814152652`*^-10", ",",
"9.536315676229365`*^-11", ",", "8.851338979896362`*^-12", ",",
"7.783450438494016`*^-13", ",", "6.491954529766903`*^-14", ",",
"5.103921918620108`*^-15", ",", "3.710688560792493`*^-16", ",",
"2.3732207780114273`*^-17", ",", "1.1293028521778305`*^-18"}],
"}"}]], "Output",
CellChangeTimes->{{3.743249817817011*^9, 3.743249846809401*^9}, {
3.743249876864678*^9, 3.743249889626586*^9}, {3.7432501972877703`*^9,
3.7432502020302258`*^9}, 3.7432503335088663`*^9, 3.743250378877767*^9,
3.743250421241411*^9, {3.743250482612504*^9, 3.74325048942947*^9}, {
3.743250554983243*^9, 3.743250589229115*^9}, 3.743250677082205*^9, {
3.7432507765056057`*^9, 3.7432508061787043`*^9}, {3.743250843973938*^9,
3.743250847293895*^9}, {3.7432520845834312`*^9, 3.743252091222343*^9},
3.743252149197568*^9, {3.743252201340808*^9, 3.743252229471403*^9},
3.7432522861359997`*^9, {3.743252320366165*^9, 3.743252446848074*^9}, {
3.743252478524061*^9,
3.743252502778899*^9}},ExpressionUUID->"bd9eb2f7-582b-4a68-9544-\
172d9b5d206c"],
Cell[BoxData[
RowBox[{"{", "}"}]], "Output",
CellChangeTimes->{{3.743249817817011*^9, 3.743249846809401*^9}, {
3.743249876864678*^9, 3.743249889626586*^9}, {3.7432501972877703`*^9,
3.7432502020302258`*^9}, 3.7432503335088663`*^9, 3.743250378877767*^9,
3.743250421241411*^9, {3.743250482612504*^9, 3.74325048942947*^9}, {
3.743250554983243*^9, 3.743250589229115*^9}, 3.743250677082205*^9, {
3.7432507765056057`*^9, 3.7432508061787043`*^9}, {3.743250843973938*^9,
3.743250847293895*^9}, {3.7432520845834312`*^9, 3.743252091222343*^9},
3.743252149197568*^9, {3.743252201340808*^9, 3.743252229471403*^9},
3.7432522861359997`*^9, {3.743252320366165*^9, 3.743252446848074*^9}, {
3.743252478524061*^9,
3.7432525027935467`*^9}},ExpressionUUID->"202780ab-b52d-489c-a92e-\
1b0fd0915e99"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"a", "=",
RowBox[{
RowBox[{"CoefficientList", "[",
RowBox[{
RowBox[{"1.`", "\[VeryThinSpace]", "+",
RowBox[{"0.6666467666189491`", " ", "u"}], "+",
RowBox[{"0.233711497250696`", " ",
SuperscriptBox["u", "2"]}], "+",
RowBox[{"0.057892269462279114`", " ",
SuperscriptBox["u", "3"]}], "+",
RowBox[{"0.011416060718727025`", " ",
SuperscriptBox["u", "4"]}], "+",
RowBox[{"0.0019001512003665785`", " ",
SuperscriptBox["u", "5"]}], "+",
RowBox[{"0.00027454051463773074`", " ",
SuperscriptBox["u", "6"]}], "+",
RowBox[{"0.00003485368552570877`", " ",
SuperscriptBox["u", "7"]}], "+",
RowBox[{"3.909550758995941`*^-6", " ",
SuperscriptBox["u", "8"]}], "+",
RowBox[{"3.886613919337475`*^-7", " ",
SuperscriptBox["u", "9"]}], "+",
RowBox[{"3.423932142765105`*^-8", " ",
SuperscriptBox["u", "10"]}], "+",
RowBox[{"2.6560194575496133`*^-9", " ",
SuperscriptBox["u", "11"]}], "+",
RowBox[{"1.7871244353862165`*^-10", " ",
SuperscriptBox["u", "12"]}], "+",
RowBox[{"1.017581390449739`*^-11", " ",
SuperscriptBox["u", "13"]}], "+",
RowBox[{"4.734306593585661`*^-13", " ",
SuperscriptBox["u", "14"]}], "+",
RowBox[{"1.714745687814212`*^-14", " ",
SuperscriptBox["u", "15"]}], "+",
RowBox[{"4.501929931069031`*^-16", " ",
SuperscriptBox["u", "16"]}], "+",
RowBox[{"7.574161874717616`*^-18", " ",
SuperscriptBox["u", "17"]}], "+",
RowBox[{"6.100436598427603`*^-20", " ",
SuperscriptBox["u", "18"]}]}], ",", "u"}], "]"}], "//",
"N"}]}]], "Input",
CellChangeTimes->{{3.743252002666154*^9,
3.743252003628837*^9}},ExpressionUUID->"30e5f6ef-f847-4642-bbeb-\
30c280b77e0b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1.`", ",", "0.6666467666189491`", ",", "0.233711497250696`", ",",
"0.057892269462279114`", ",", "0.011416060718727025`", ",",
"0.0019001512003665785`", ",", "0.00027454051463773074`", ",",
"0.00003485368552570877`", ",", "3.909550758995941`*^-6", ",",
"3.886613919337475`*^-7", ",", "3.423932142765105`*^-8", ",",
"2.6560194575496133`*^-9", ",", "1.7871244353862165`*^-10", ",",
"1.017581390449739`*^-11", ",", "4.734306593585661`*^-13", ",",
"1.714745687814212`*^-14", ",", "4.501929931069031`*^-16", ",",
"7.574161874717616`*^-18", ",", "6.100436598427603`*^-20"}],
"}"}]], "Output",
CellChangeTimes->{
3.7432520041573753`*^9},ExpressionUUID->"5e69b9d6-c0fe-4adf-b5a6-\
d354021c664b"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Triplet P state", "Subsection",
CellChangeTimes->{{3.742903401180684*^9, 3.742903403606084*^9}, {
3.742918347228277*^9,
3.742918347362217*^9}},ExpressionUUID->"c866a966-62d2-4aaa-be30-\
188e454b7735"],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalPhi]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "=",
RowBox[{
RowBox[{
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}],
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "\t",
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"]}], "=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}], "\t",
SubscriptBox["c", "\[ScriptL]"]}]}], "=",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], "2"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
RowBox[{"Sin", "[", "\[Gamma]", "]"}],
RowBox[{"\[DifferentialD]", "\[Gamma]"}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.742897993868801*^9, 3.7428981067548847`*^9}, {
3.742898182660631*^9,
3.742898271183833*^9}},ExpressionUUID->"5f15e614-bd85-47be-b20b-\
e346fe08a2c7"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{"2",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "=",
RowBox[{"2",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
FractionBox[
RowBox[{"4", "\[Pi]"}],
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=",
RowBox[{"-", "\[ScriptL]"}]}], "\[ScriptL]"],
RowBox[{
RowBox[{
SubsuperscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}], "*"], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}]}]}]}]}]}]}]], "Input",\
CellChangeTimes->{{3.742898286664424*^9,
3.7428983914044456`*^9}},ExpressionUUID->"95762630-81b3-4910-890e-\
f8cbb4b3594c"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}], "=",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}]}], ")"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t\t\t\t\t ",
RowBox[{"=",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "1"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "2"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}]}]}]}]}], "Input",
CellChangeTimes->{{3.742898559305214*^9, 3.7428985732593737`*^9}, {
3.7428986183390417`*^9, 3.742898668556341*^9}, {3.742898891156012*^9,
3.7428989301880617`*^9}, {3.7428993174640627`*^9, 3.742899416229143*^9}, {
3.7428994864779387`*^9,
3.742899491064481*^9}},ExpressionUUID->"d65bd25c-ca2f-407d-9b79-\
7092dc14020a"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Simplify", "[",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "-",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}]}], "//",
"Simplify"}]}], "Input",
CellChangeTimes->{{3.742880368692409*^9, 3.7428804029481373`*^9}, {
3.742880525109131*^9, 3.7428805458700542`*^9}, {3.742898467130229*^9,
3.7428985242579517`*^9}, {3.7428992114127827`*^9, 3.742899287783554*^9}, {
3.7429000811947393`*^9, 3.742900096336309*^9}, {3.7429001529365797`*^9,
3.742900153845666*^9}, {3.7429004278822927`*^9,
3.742900428277691*^9}},ExpressionUUID->"86c4c204-12d5-4cc4-91f3-\
4ef38f2f1176"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742880543408547*^9, 3.742880546332151*^9}, {
3.7428984748725023`*^9, 3.742898524985319*^9}, 3.742899228848856*^9, {
3.7428992728911753`*^9, 3.742899296001245*^9}, {3.742900084424329*^9,
3.74290010643225*^9}, 3.7429001543651667`*^9, 3.7429004286643667`*^9,
3.742903530777356*^9},ExpressionUUID->"a2be3453-5dee-4d23-b728-\
7cbc223eac21"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742880543408547*^9, 3.742880546332151*^9}, {
3.7428984748725023`*^9, 3.742898524985319*^9}, 3.742899228848856*^9, {
3.7428992728911753`*^9, 3.742899296001245*^9}, {3.742900084424329*^9,
3.74290010643225*^9}, 3.7429001543651667`*^9, 3.7429004286643667`*^9,
3.7429035307907057`*^9},ExpressionUUID->"f9680827-b5a0-43a4-8fce-\
6d063ed22fc4"]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "-",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
"2"]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t ",
RowBox[{"=",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}]}],
")"}]}]}]}]}], "Input",ExpressionUUID->"ffcbeb9c-6e95-4df6-bb5b-\
328b41b21992"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "\[Pi]"}]], " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[Phi]", "1"]}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[Theta]", "1"]}]}]}]}], "\[Equal]", "2"}], "//",
"Simplify"}], ",",
SubscriptBox["c", "0"]}], "]"}], "//", "Expand"}]], "Input",
CellChangeTimes->{{3.819446495654708*^9, 3.819446561481535*^9}, {
3.81944724019627*^9, 3.819447254727998*^9}, 3.8194477371302137`*^9,
3.8194478701360197`*^9},
CellLabel->
"In[164]:=",ExpressionUUID->"61ee86cb-074d-4ac7-9f61-c1c6b64052ea"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.819446505179634*^9, 3.8194465617697144`*^9}, {
3.819447239126412*^9, 3.819447255055852*^9}, 3.819447737776888*^9,
3.8194478707360773`*^9},
CellLabel->
"Out[164]=",ExpressionUUID->"c480bc7f-ce40-4eee-b55d-3f73c76d3e72"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ",",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}]}], "}"}], "/.",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}]}], "//", "Expand"}]], "Input",
CellChangeTimes->{{3.8194472635719957`*^9, 3.819447281067357*^9}, {
3.819447733328557*^9, 3.819447750959692*^9}, 3.819447876940724*^9},
CellLabel->
"In[165]:=",ExpressionUUID->"b6e55c8f-0333-4b09-aed9-bd0241fab7b8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "-",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ",",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}]}], "}"}]], "Output",
CellChangeTimes->{{3.81944726401453*^9, 3.81944728132707*^9}, {
3.819447747220999*^9, 3.819447751318356*^9}, 3.819447877777974*^9},
CellLabel->
"Out[165]=",ExpressionUUID->"dacdb030-75e3-4580-b198-bc005365a6e5"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "1"]}]}]}], "=",
RowBox[{
RowBox[{"2", "\t", "\[Implies]", "\t",
SubscriptBox["c", "0"]}], "=",
RowBox[{
RowBox[{
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"]}], "\t", "\[Implies]", "\t",
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "=",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "-",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.74290046592192*^9, 3.742900508615451*^9}, {
3.7429008186008587`*^9, 3.742900822411848*^9}, {3.742901066474793*^9,
3.7429010697015457`*^9}, {3.819447915116123*^9,
3.81944792204714*^9}},ExpressionUUID->"db51f6a7-4690-40c2-af32-\
a6f7eab9b126"],
Cell[BoxData[
RowBox[{
RowBox[{"2", "-",
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "=",
RowBox[{"0", "\t", "\[Implies]", "\t",
RowBox[{
SubscriptBox["c", "2"], "\[Equal]",
RowBox[{
RowBox[{"5",
SubscriptBox["c", "0"]}], "-", "10"}]}]}]}]], "Input",
CellChangeTimes->{{3.74290109712473*^9,
3.742901159497686*^9}},ExpressionUUID->"67e833cb-794e-46bf-aaaa-\
f7fedec74084"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "\[Equal]", "0"}], ",",
SubscriptBox["c", "2"]}], "]"}]], "Input",
CellChangeTimes->{{3.7430170306628857`*^9,
3.743017043403906*^9}},ExpressionUUID->"3ade0751-2e40-483d-aa9f-\
7c6decd096ba"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
SubscriptBox["c", "2"], "\[Rule]",
RowBox[{"5", " ",
SubscriptBox["c", "0"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.743017034124732*^9,
3.743017043739946*^9}},ExpressionUUID->"e43011ca-1485-4c14-8ef5-\
e3e5c2853e54"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "\[Equal]", "0"}], "/.",
RowBox[{
SubscriptBox["c", "2"], "\[Rule]",
RowBox[{"5", " ",
SubscriptBox["c", "0"]}]}]}], ",",
SubscriptBox["c", "1"]}], "]"}]], "Input",
CellChangeTimes->{{3.743017049528429*^9,
3.743017086151045*^9}},ExpressionUUID->"1f77c8a4-02f2-4a43-9353-\
2c6dc0e607c1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
SubscriptBox["c", "1"], "\[Rule]",
RowBox[{"3", " ",
SubscriptBox["c", "0"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.7430170526953163`*^9,
3.743017086756802*^9}},ExpressionUUID->"8b84c089-d48f-4520-a0df-\
2c902ca82399"]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n_"], "[", "u_", "]"}], "=",
SuperscriptBox["u",
RowBox[{"n", "-", "1"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"M", "=", "20"}], ",",
RowBox[{"d", "=", "2"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"H", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["u", "2"],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[DoublePrime]"], "[", "u",
"]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "d"}], "+", "1"}], ")"}], "u"}],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-",
FractionBox[
RowBox[{"d", "+", "1"}], "u"]}], ")"}], " ",
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[Prime]"], "[", "u", "]"}]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["1", "u"], "+",
FractionBox["d",
RowBox[{"2",
SuperscriptBox["R", "2"]}]]}], ")"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}]}]}], ")"}],
SuperscriptBox[
RowBox[{"(",
FractionBox["u", "R"], ")"}],
RowBox[{"d", "-", "1"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["u",
RowBox[{"2", "R"}]], ")"}], "2"]}], ")"}],
FractionBox[
RowBox[{"d", "-", "2"}], "2"]],
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"S", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}],
SuperscriptBox[
RowBox[{"(",
FractionBox["u", "R"], ")"}],
RowBox[{"d", "-", "1"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["u",
RowBox[{"2", "R"}]], ")"}], "2"]}], ")"}],
FractionBox[
RowBox[{"d", "-", "2"}], "2"]],
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.742918604620111*^9, 3.7429186131351423`*^9},
3.742918719955948*^9, {3.74291885295679*^9, 3.742918854648775*^9},
3.742922362967875*^9, 3.742980439148241*^9, 3.742980540306929*^9, {
3.742994989188118*^9, 3.742995016518692*^9}, {3.742995150772037*^9,
3.7429951513978567`*^9}, 3.7429952985264072`*^9, {3.74299538074587*^9,
3.7429953808123302`*^9}, {3.742996132486848*^9, 3.7429961349036427`*^9},
3.7429963078815823`*^9, {3.742996660743409*^9, 3.742996660843338*^9}, {
3.742996945034573*^9, 3.742996945161457*^9}, 3.7430081967857656`*^9,
3.743009059579871*^9, 3.743009234820531*^9, 3.743009382026333*^9, {
3.7430094920285807`*^9, 3.74300951455619*^9}, 3.74300961041049*^9,
3.743009666438663*^9, {3.7430098539824047`*^9, 3.743009854170718*^9},
3.743009922023739*^9, 3.743134546286873*^9, 3.743134666275275*^9, {
3.74322049794233*^9, 3.7432204980603647`*^9}, {3.743247376064542*^9,
3.743247418681962*^9}, {3.819389816415174*^9, 3.819389816573246*^9}, {
3.819442666471469*^9, 3.819442666582307*^9}, 3.8194494164767103`*^9},
CellLabel->
"In[209]:=",ExpressionUUID->"fc6fe6fa-c5e9-41cb-966e-1e14dcc26ff6"],
Cell[BoxData[
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "20"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"tab3P1", "=",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "R", "]"}], ",", "100"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{
RowBox[{"S", "[", "R", "]"}], ",", "100"}], "]"}]}], "}"}],
"]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[",
RowBox[{"2", " ", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<R: \>\"", ",",
RowBox[{"N", "[", "R", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}]}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}]}], "]"}]}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "40"}], ",",
RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], ";"}]], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}, {3.742995040906142*^9, 3.7429950736953487`*^9}, {
3.742995103988391*^9, 3.742995134262944*^9}, {3.742995247787807*^9,
3.742995324266892*^9}, {3.742995360656518*^9, 3.742995384384591*^9}, {
3.7429954237133417`*^9, 3.742995433990855*^9}, {3.74299547198099*^9,
3.742995484920415*^9}, {3.742995760731353*^9, 3.7429957673259373`*^9}, {
3.742995847653798*^9, 3.7429958543557777`*^9}, {3.7429960931764708`*^9,
3.742996100192951*^9}, {3.742996300021468*^9, 3.742996312749928*^9}, {
3.742996623983343*^9, 3.742996683485918*^9}, {3.742996763260223*^9,
3.7429967667513227`*^9}, {3.742996823435986*^9, 3.742996947881322*^9}, {
3.7429969858904467`*^9, 3.7429969890918093`*^9}, {3.742997154797719*^9,
3.742997179630937*^9}, {3.742997221183319*^9, 3.7429972234251423`*^9}, {
3.742997256190982*^9, 3.742997295285985*^9}, {3.742997325738884*^9,
3.7429973513749123`*^9}, {3.74299738735357*^9, 3.7429974112679663`*^9}, {
3.742997461552939*^9, 3.7429974669219646`*^9}, {3.743008210683326*^9,
3.743008225538146*^9}, 3.743009057265111*^9, {3.743009239073036*^9,
3.7430092656499767`*^9}, {3.743009361125576*^9, 3.743009373039097*^9}, {
3.7430094955856752`*^9, 3.7430095437002373`*^9}, {3.7430096137618933`*^9,
3.743009669733102*^9}, {3.743009863885*^9, 3.7430099872406483`*^9}, {
3.743010046219955*^9, 3.743010048241816*^9}, {3.7430103170795507`*^9,
3.743010344854659*^9}, {3.743011088494897*^9, 3.7430111264389553`*^9}, {
3.7430111611489353`*^9, 3.743011161959427*^9}, {3.743017152694162*^9,
3.743017214293683*^9}, {3.7430172717293787`*^9, 3.74301731611399*^9}, {
3.743050381548286*^9, 3.7430504265925217`*^9}, {3.743050459093212*^9,
3.743050513236857*^9}, {3.743058479430113*^9, 3.743058512638873*^9}, {
3.7430585676431007`*^9, 3.743058581876259*^9}, 3.743058631064424*^9, {
3.7430936684137993`*^9, 3.743093679241973*^9}, {3.743093711275429*^9,
3.7430937413274803`*^9}, {3.743093773814063*^9, 3.743093775701182*^9}, {
3.7430940895099916`*^9, 3.743094095858829*^9}, 3.743134557856875*^9, {
3.743134593968667*^9, 3.743134730681005*^9}, {3.743136067507962*^9,
3.7431360880238857`*^9}, {3.7432205013549223`*^9, 3.743220521207345*^9}, {
3.743247446515685*^9, 3.743247452091736*^9}, {3.81938878253341*^9,
3.8193888149384604`*^9}, {3.819388952172921*^9, 3.8193889550278263`*^9}, {
3.819389430387745*^9, 3.819389449928714*^9}, {3.819389485687158*^9,
3.819389516461465*^9}, {3.819389574545333*^9, 3.8193896633216057`*^9}, {
3.819389758305996*^9, 3.8193897593540983`*^9}, {3.819389823211083*^9,
3.819389823319272*^9}, {3.819389853860545*^9, 3.819389856569173*^9}, {
3.819389961728573*^9, 3.819389999750451*^9}, {3.81939004776691*^9,
3.81939005503032*^9}, {3.819390159953825*^9, 3.819390160748537*^9}, {
3.8193901910509577`*^9, 3.8193901969896383`*^9}, {3.819391170163006*^9,
3.819391214528372*^9}, {3.819391250405773*^9, 3.819391260125876*^9}, {
3.8193912988176937`*^9, 3.819391332996833*^9}, {3.8194426706069717`*^9,
3.8194428979408407`*^9}, {3.819442934469702*^9, 3.81944304819543*^9}, {
3.819443082201737*^9, 3.8194431628107367`*^9}, {3.819443307914974*^9,
3.819443316858253*^9}, 3.819448958104372*^9, {3.819448994463859*^9,
3.819448998831089*^9}, {3.819449054543648*^9, 3.8194490546304207`*^9},
3.819449404157199*^9, {3.819449509900063*^9, 3.819449512165042*^9}, {
3.819449628315366*^9, 3.81944963056225*^9}, {3.8194496808111143`*^9,
3.8194496827632837`*^9}, {3.819449715306533*^9, 3.819449732873859*^9},
3.819449787993197*^9, {3.819449843713666*^9, 3.8194498450264606`*^9}, {
3.8194498825129747`*^9, 3.819449885786566*^9}},
CellLabel->
"In[235]:=",ExpressionUUID->"a06ef68f-50cc-4e7f-bfb8-5863cadce9e2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{"tab3P1", ",", "tab3P2", ",", "tab3P3"}], "}"}], ",",
RowBox[{"ImageSize", "\[Rule]", "500"}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"InterpolationOrder", "\[Rule]", "2"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"All", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.00135"}], ",", "0.001"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",",
RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"BaseStyle", "\[Rule]", "16"}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"AxesStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",", "Thick"}], "]"}]}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",", "Thick"}], "]"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"MaTeX", "[",
RowBox[{"\"\<R \\\\text{ (a.u.)}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{
"\"\<c_0 - \\\\frac{2 c_1}{3} + \\\\frac{c_2}{5}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"MaTeX", "[",
RowBox[{"\"\<\\\\text{$^3P$ ground state}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{"\"\<\\\\text{$^3P$ first excited state}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{"\"\<\\\\text{$^3P$ second excited state}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Left", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}],
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5.3257"}], ",", "0"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "15.9"}], ",", "0"}], "}"}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"-", "30.9"}], ",", "0"}], "}"}], "}"}]}], "}"}], ",",
RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",",
RowBox[{"PlotMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}]], "Input",
CellChangeTimes->{{3.819443319521805*^9, 3.8194433371857653`*^9}, {
3.8194490088634768`*^9, 3.81944901751068*^9}, {3.8194490484098167`*^9,
3.819449063777493*^9}, {3.8194495281320133`*^9, 3.8194496659140577`*^9}, {
3.81944970029033*^9, 3.819449701185473*^9}, {3.819449747193801*^9,
3.81944975896939*^9}, {3.819449850553174*^9, 3.819450040091752*^9}, {
3.8194500785122967`*^9, 3.8194501963871927`*^9}},
CellLabel->
"In[253]:=",ExpressionUUID->"6619aa61-41df-4561-afa2-5b697e931325"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{{}, {{}, {},
{RGBColor[0.9, 0.36, 0.054], PointSize[0.009166666666666668],
AbsoluteThickness[1.6], CapForm["Butt"], LineBox[CompressedData["
1:eJwtmnc8VX8YxyVklWTP7Gu7l2te4w4UZWSUttFSGgppSTvtklLRkNIukoZ8
v49SZmTvTcslo4yE3znnl396nde93+/5fp7383me55ybZvBWn7WCAgICZ6YL
CJD/TlF/PJCaZ5Rgtr4AbZwd4T9tggcDj93neEQVoCetqW2FYzyQ6A2mxx0t
QEWbL9xaOsyD5UIRPzsvFyD8xj7x2SAPOob2ea18UIBOfrydV9rHg+vZsd6/
cwoQ43y+XuYPHsQv3zv4sKIAPVW+hwK/8ABVbrM88K0AiYS4nKpq54GGziql
yKkCZLnxxlmpZh68Wuh8/ZhCIXKgZxVI1/HgmId23it6IVJ9EWfdWMGD03rj
J0QXFKKaUaWmTZ94UFRbPBi1rhCtG1+X9T6fB/ZBCePTDxWi+p5ccaF3PGi8
Vz5N5WYhMh/bo+b5lgfJF/8E0XIKUaR2Qt+tLB7E6sxWNWgoRDc3zoyZesaD
IwFz6BojhSiztKt43UMePKJPuy4pW4SeeanU1d7hwa9HTWv76EUoofdZis9N
HgR9Sj32waMIBd27Y1R7lQe955dOv7CxCMnHjm1fm0Dc78+fOt9jRSgz4lH0
xFkebJ4RJyqRWoRYR5H9jRPE+lfTL7yEInQ/0wy7H+FB5MxNkUubi5AA+RfL
g4ciOKN/rAixN5hNod08mJ465bZPvhit7815eyySBzHdxqwp82IUffahzbJt
PFApdj0a5VWMtnuObrfaxIN6Pw+jzk3FyNcwdZPqOh68Ocg2dDlejNS0n2pJ
BhE8/DQOJaUWozIbpUThFTxoK+JbfoditHFTR7HoEh7Quu9wjZqLUe8bcSTn
Q8T/9oL7wWPFaBntwhZjDx4oibSEnpUrQU+eRTcvnM+DPMmVh9MZJejHYiS+
k8eDiy8LRgs8StBs5ZDhB448OCSimV8dWoIOvmD1dNjyIP2W+I1fR0rQoy5V
ppIlDxwYhnRuSgk6niZS7kHngd6L/bsRKkEqk6O5sUZE/EwkYkIbS1DgtyGR
DD0ezLxaYscbLUEr143caNckrsffP1sg9wnNjJ5+WkqNBxu8B1oPmn9C29UU
S1mKPNC66lfwzesTOrnYMmSdDA+s6npD923+hJZqL194dhYP0sRz8tgnP6Gm
Q3FxWWI8iGK8qzO//wnJRoNykxAPUhZO3PHN/4SmUYB4YLRii/Ht7k/olsp8
W61xLswOlAvTFCpFI0WJH7nDXPAOGFxTqlWKBGcNpgUNcOGns7DCA04pyu3y
bY7hc+GHrufBzMBSZOmF1l39ygXeeMnd3v2laJUHwzmzgwvDeQcO+98oRfat
jyJLmrkgfihMhY9KUakQY7yjjgs7LU9vSm8pRXIop2qkkljf1BlxZ7IUSUv4
CkqUcWHTzm3WBeplKLen/5BqEXF/EYvnSk5lSC/w8lLjD1woO2H07crqMiK/
XA/ZARdmTV9WMz+2DKVsezY+L5sL19xag3RvlaHW7mM5/llc2GzTtMX0XRka
zS8pCEnnQmyZ90RIZxn6Lr9fbfsjLmw8dl0kRPAzelVBVII0Ltjs8fYylPmM
QsaNbp9N4YIeD9XN0PmMvpzTq7qezAVm69eUceZnND/+jOeTRC6s8/r0WNj1
MzoouGYOiufC6/gtY7pLPqOrLXfnlp7hgvGj4iMrNnxGJ2lLolriuPAuscvn
/q7PaElzhPzPw1yIXvo6UPLk53/+IeLf5/b0SBKx39lRc+k9XHBbcslR7sln
1H5y1VOtKC6suXh9Vjb+jJR/MyKZ4Vy4eSd47s7yz8isePth1zAuTJ3o2ObW
+Rmpz9JsDljPhRhn9enmvz+j7zn2+zcFc0G9Qq6GPqMcnWv4sDFmJRfaLQq/
uyiVI+k1b2+cD+BCXqiNY7hROdqyTEP9ji8XinaEVGY4lKM7OQPdrzwJHovc
74t7l6OXp+kjJW5csBbqxdHB5ehuUdOidmfiPCcWKExElKOtEcO/fztxwah7
7dPLx8qRnfPuV+IsLhSMf+5xv1qOTIbWbJlrRcQ/S5Ou9LgczT+QpcBkcEFK
LmCvIJSjU31bMucbc+GNQsRnkcpyNGp3xnkljQuhKNJY70s5OrlOtiBciwsq
YivPBY4R68OnOR1V40LFiMHfF5IVyHS5//2rilw4faJpq55GBbLTmT3jqQwX
PHMjetItKtDWEkbA+1lE/icNbgmYV4FKfN8k1YpxoVZ58R+l5RXI5839qh4h
LqQ63Dg9vKXifz4CXIgQKtXvO1iBqnVy1GXHOTB/a0exwOUKVKnfTtcf5oBG
TFOU6cMK9EcizMp+gAOT9LcGO3EFcitdaebN50DrsQNdDZUVCLZmqaz5yoH3
B43Tln6rQIH9keM7OzjwWDMnfOhvBdLzTio92cyBq2ssnO9JVyL5swYJN+o4
cGrBWfVovUpk+ljN63klBw7WfBYIYVWirQ+i/34s5cA+4dEfG7wrUe1Ru+SG
Qg7srRNqjltbiTZwQxh9eRyI8Rqp+bC7Emk0D76aBhw4vLGsTvVcJToW786S
y+ZA5LT7TufvVCLNlGKsn8UBJv/GBt3sStQnGuVqn84BMMz0rf9ciX7mu5V5
PeKAUk63wOMvlUi71XVZSBoH2LeZ227+rUQnPDd/jUrhgFXzzVvP51QhPfmc
qBPJHBjfaJjwRb8K/ba0Er2eyIEzC8vdbZ2q0PDjumvp8RzoPZDw7qF/FTKK
SWV8OMMBFYmdfx3CqlD83SuFdXEcUPgWOfrzYBWi016F8A9zoE3xQlbulap/
/uHAruRiq+fPqpAgI/y6zB4OtERq7crLr0I2byScaFEckEm5tO93SxVKuVbW
bhfOAVktfWfX4SrkWP32qGcYB7p+15RkzaxGs9dXmgSv58AhtdsK83Srkcwi
mdrIYA70JZ7SGbGvRu7xew/GreSA/ob4oY9+1SjLRIqeHMAB85MvD2eFVSMf
jeLWZ74cEBEcq/1wuBrpbHp2Ps+TAw9LlvT+SqpGBrOwS50bB9R7KvN4L6pR
sNjIeI8zB1at3Lwq41M1KlkRkDnlxIFN2jpv2F+qkXbX9c0yLA4s+alRNjBZ
jdT3HNWjWXGAsePUxQKFGpStKdVqx+DA8JN14h/oNehvrc1lT2MO3E95Sv/q
VoPak6d7BdM44Oa5foZZSA0K3bFVJEqLA5Xpp88k7a1BCQF7c+LUOOD5Seuj
2aUaFOJhGJGsyIGsm3pPvj2tQTWLdhmmy3BAzPiKa35hDepZG9qWN4sDC7bu
PlvcWYNS4/4k1IlxYOfGouO/J2rQtBzjBXwhDlxUizN3Uaz95x8OXDuedeqN
eS1K9YnIlBlnw/mHPpf9PWrRj8y4DbRhNmw/utJHfkMtqtZjq7IG2MBTqs35
e7AWBd+7XObJZ8NECK4XvV6L4m3PHQz+yoZ76+Tv2r2uRRsaDCyjOthgr9mk
daGqFrWcWPM1rpkNED/bW6q/Fv1xZ19JrmMDHT03yZCoQ6+Vc9zTK9lw5uaH
7N20OqT8p2E8r5QNdXaufzbw6pDG9yuP6grZMPu05fe9q+tQ4dexFfw8NjAv
xx/P2lOH5Ib/SAoAG1yWBtbJJdYhs/SqtzLZbBA6PRBxPbMOcbNQGC2LDfr8
pD++5XVogfBrVVY6G15FBYda9dUhj+vvSzwfseGxMTfXRaKeqH8te4PT2CA9
y17woH49Yj0RM4lKYUOjsrdxj0s90tF1aY5LZsMs3xinAyH1SPTLudPJiWx4
mPWR5XygHnX28x3S49mQ7mKgybxRj7JclvblnWGDhsDdn9459ehAV/X1ujg2
jHbbp11trEcun4K9+IfZYDfSO0/6T/0//7Chy+J1eaZiA3q+9/EzmT1sGLt2
3fmIdQNazdsURItiQ4TZ9ZsHFzcgQT/bOaxwNqzoe9n9KLIB3Xii8N4zjA0P
6npkhBIakLmvSETwejaE9NkaHc9sQJgjrBsVzIZDZilGtlUNyHm3bE3cSiK+
STpyCr8aEPy1OJYcQMSPmftVU7YRMQtDbNJ92RA4svP2UmYjSmm9/T3Pk4jn
l/nzkV8jEmH/ulrnxobFAswar8hGFPzDbyHfmQ19LrYesy41olctHyamnNjQ
nxXweCyrEXlecHgqw2JDxW7tDfJ1jSh8d0YgzYoNkq8Nf24Ya0Qal3XmsBhs
uBm+hTug3ISWf4t/72nMhrjUvqCn9k1Ic4tAZDCNDZ8WPfS4vaoJ7dDfqBel
xYa1u1KFP8U2IR+F8to4NTYsV2mIM77dhN7aWcYlK7LhjvXChtwPTSjjwiW7
dBk2uJb+GT71rQkx5/7uyZvFBk5rd+tpiWbEafNOrhNjQ/zGmQl5ps2osfq+
J1+IDext4fIMn+Z//iGu+6XXVEY2ozU5d4Npw06Q9KNv38Mrzai1c94HT74T
eK4WXfM6pxlt29FJi+pwggDPVfIT7c1IJWzXieQ6J8h52X8xSqQFtXwS680r
dYLoa7hV16gFZSVe9OLnOcGpsaJhce8WdK9EKUMm2wmGy+c06Ea2oKehV2RZ
6U7wRudyXNTVFvR5q8zO4DQnqBpYIjyBW5BY67H6uGQncLP193jd3YKWvRxm
pcc7gcz4maCHEq3o3ehqIv+cgGktzK1ktCLu7fdEvjlBRu/LPnpAK5Ka0Amh
RTlB2S/7r4UxrWjFwmMfPMOcoFHL8OHtO63I6PwPWlSwE9Ts3G+HSlrR3mLP
E8kBTgBD9glKv1rRgvHn/DxP4v4L0psbZrah6xrKXnxnJzCkRy8u1GxD4awD
6TIsJzikP8Sss2xDBQu+y7AYTuDD1No1w534/iKfqGCaE1z2FdZesqoNDS98
Wxen5gR+R5PM87e3oVIHGitdxgmOl3xNW3KsDenrxBO8nICh9/WgaFIbEqT4
EPvFX31f/6wNBZZvJvg4wg8ZwY3FH9qQfWJTniffEf6kqUU1N7ShJL+FBB9H
iPXq/SrV34b2iuTEJdc5wl7xcBws3I5aHpvy80odob/u3t9q5XYE7rc8+XmO
UP/m4o1QejvSaZZNl8l2BLtnzHtqru1IfG2cDCvdEaRfH5cfXN6OtnVMRgan
OcLq6nM/voS3oyX+kXVxyY6gJ+yh8/dYO8rN4dulxxOfz895z7jeju6rrE2u
i3OEOTfaC45ltiP5rS1TU/sdgSX2xmKyqB1Z6AcE06Ic4Qu7fltieztivCzP
8wxzBAWBCv7S0XYkpbqA4OMIFa6paVypDvRpcV5ccoAjyMl53/LR60Bb1jsQ
fByhbWN1fZxDB+J7ZHnynR3Bcj5z0Te/DuQlbkbwcQSZx2EztoR1oPNJaQQf
R9h5Jeav8uEO9EJIg+DjCOtnbqT/vNaBsriJBB9HaBY1u/3jeQe6ung2wccR
Wk5+8ptZ0oEC2ccJPo6w9pKLy5Kujn/+cST4X44o+NuBjibsJPg4gDr3XUeg
XCf6KfCT4OMA7M6PZzVMO5EVdx3BxwH4Enf2zJjXiYKWEuW3zgE03q64KxfY
iTa6+hF8HKBpqFdqwa5O5CdWTPBxAM3nAa/SLnQijRQOwccB+saSbhg96kTF
s18RfBzAueDNh5oPnSjA3zQqOM0BtNUzDO+3dqKCrakEHwc4NX6wNGWsE8kH
KhP+cYCYQJP09zJdyFXvHMHHAX4vTK+QMO1Cfu+ECf84wCjMstgzvwsNLdxD
8HGANf2H1eRDulBhSz/BxwF0pHyb2/Z1oeadhJ5gBzBX27W9MbEL6Ss2EXwc
IF55pEk4sws9wYsIPg7AnfFJNbCsC23ekk/wIePxh/HjRxfaoONA8HGAc09i
VVNFulFSewbBxwEYoauaTmt1I4m7+gQfB9CSuRie5tiNMsMJu6s5QMgjzab+
Zd3oojNRPmQcYIg5Q3Xjzm6UoU6UIzEHqHvkzJC52P3v+dQB1GQbVPjPutGF
b0S5HbaHlI35jb8+daOVdT0EH3uIfCYZbtLTjYLLiHbUYQ+Xu+83Joh+Qbc+
1RJ87EFS/IaKqd4XpFLpQfCxhzI1Pn2Y9wWVtb4n+NhDp8Z5lb6gL+jtkC3B
xx7my5xplIv9gjpnPSP42MPkr45tm69/Qc4MPYKPPQh+PNv46+0X1LEsieBj
D4uPXlR51PgFvTw5h+BjDxOWA/T4P1/Qx/dEvsXZw2DVHZUHSl/R7OlThH/s
wTYko7Hf5ita6kLoibKH0FvXmsMCvqKQo4SeMHtQ8v5yWjv6K2J8JPQE24P3
1gt82cSv6L0QcbsAexCaujHGfvUVyXKJ43vaA2tq1ou0uq/EfEyEw9kehre2
qruNfUWCr4n2wrIH5iJpa13lbyhpkNDDsIehlNQJFusb+mNIbE+zB/O1V7af
XvENKQUTx1Wzh9+XfyYoxXxDfy8T8mXswZ6Vtr7txjd0q4QIpxhxfy/42p77
7Z9/7GFtpZ28etc3ZGhObDfMAkaB/NBFke9IPoQ4Hp8FMSZ+Ma4G39HHC4Tc
DhZ4Th96ab7wO7LNJfTUsSDFbejG0q3fUVgfoaeUBVEC/lbZF76jEGWifeWx
oISmuGdJ1nek5kIcJ5sFqdh+i2nDd5S4hZCXzoKp/HdS7MnvqO4SoSeNBW3s
B6tPaf1A9TmEnmQWOBgOrZSZ9wMldRJfj2eBxuFk8epNP5C2KJFvcSw46Hl/
bfm5H2ijETnvsCA0Tn6raNYPRPck9ESx4GvR8lkHGn8g43BCTxgLpO//NORO
60GrLxIfB7Pgh3ZF3gJaD8p/SfJhwWbW9KZkjx60vpHkw4LrPw9us4noQQ5T
JB8W7GUvOqhyrQe5aRN6WCyYYbpFet67HnRyHnHJYIHTq3q17O89SDiM5MMC
vdb4tJ3SfPSctLsaC16lJD3Za8tHV1+QfFjwS/CXeVEQH2U1kHxY0DV1hRl4
gv/PPyxIvHLmueNzPjqpS/Kxg/ay8qdrm/jIfQHJxw5qUkIMqoV7ESec5GMH
O+c4a5w260WbL5N87OC9+o6Lp5f2os85JB87eJvff6TmUC/a2EUsz7ODkJk5
v9Y/6UV2EiQfO8j6WdvGqe9FbHOSD3G9heO+RqgPxSwl+dhB8IkxeplZH+qP
JfkQ+3EFEg4u70NJ90g+dvDxsn9UzLE+tOczcfs4O9gTN1b17nkfujhK+scO
GhT4z7za+hCQ5T/KDh6/3v3FZOZP1D2f5GMHD7sHF62z+4mmtpF87KDjmt/Q
6PqfaPYVko8dzG+6UdSd8BMp5ZJ8iM/vVtUa5/1Eit9JPsT68UHl0sGfaJY0
GV478N08Udg1ux+N2ZB87OC7ZtSts/r9qCmQ5GMHV651xq9n96MXpN3VCH0N
LrfCAvrREbJ8yNgBryWp8Pq2fuRBhlPMDhzTvklOHu//x4f4vqXBphO3iPXk
dsO2cO74qi7em34U5EXysYXKm8ejDSv7keBOko8tWMSk0Rz5/ejqdXJDW7iv
kT0QIzyA9D+SfGzB7vj7Gr76AHrcS/Kxhe5MqDlmM4AM5Eg+tpB2N2PAy2cA
Xbcn+dhC7MorNJewASS0huRjC9H1EdHrjw6gtSdJPsTnyi5dWTcHUHYGyccW
7mmIb7LIHkCiZL7F2cKXnveSzdUDyIMUFGsL9nu3Fz7vH0AnyfIfZQsfz/uv
zJEYRJ9IPWG2cJr/6PCU3iCaTeoJtoUrp6KddnMHkR+pJ8AWesNfnTZZNYiu
kfb3tIW9SWFblXYPog4yHM62sEQyocvh0iAyIdsHyxbCcxm9VzMGUTR5ybCF
0mxuHL1sEH0gt6fZwo7x/FeTPYNIhrS7GrE+NnePsNgQWkPKlyH0uZtVOOsN
oUyKjy30L5V++5Y39K++2ULGk/W2m4OGkD/FxwYezDd3X7x/CD0gj8e3gQ5a
eN/O5CEkSMrtsIGlC3X0KrKH0AoyfHU2oJy1YGBNwxB6ReIotQHVtV+96GND
SI5cnmcDQUtHOEzFX2g7eZxsG+i5sCd/m/UvVEmW73QbeCUd0da9+BeyJPWk
2cDH6rZT8VG/UCIZ/mQbUGnNLdl16ReaJPMt3gaemSjcTMz6hdaQt4+zgVO5
bSL9Nb9QMflzyX4buHtVfVrsyC/EJPVE2cDyBN5Mb8XfKJnUE2YD46ff3V9v
+xuJkB8H20Ds4Ws1H5f9RpvJ2wXYQG90afzmvb9RNXl8TxuYv2l5+/Lrv5ED
xccGDizn4vPwG92mypMNPHY7ZCLV+RuJU3xsIMdS3bhKeBiFU3xs4OVcmew2
/WFEdus4NRtImhHcwFw4jBwpPjawrlf8xOetw+g2xccGFMtnFj2PH/7HxwbK
MjZebXk5jNZRfKxh8QXNce+mYVRC8bGGD1vN+eLTRpAZxccaVBckb5bUG0EJ
FB9rWKoTvN9/wQgapfhYw8HxWM0v20bQSoqPNVz6POaLLo0gTPGxhrO3S+Rb
3o4gqnynW8P2iLFQl84RdJTiYw1sXqzHL7FR9I3iYw2DUkG5P+ijaCH59Xhr
ONNw7YN+wCh6RPGxBtnb9GVP9o8iKep5m7h/6Nz9e9JG0TaKjzXQwvsVrpaN
okqKjzUsmDASlR0dRRYUH2L/mRVe3zXG0CWKjzXMvd3Rp+Q+hkYoPtZQ+HZl
950dY2gpxccaRpbxLE4nj6Fsio813N4XX1eWP4bUKT7WUKnjWb15cAzFUnys
Ic57h8F6tT+og+JjDTkC06uz5/9BzhQfa4iwnKjdFPEH3aX4WEN6X5D5zpt/
/vEh1hszuppL/iBqu2ErKOrb2Htj7A/6SPGxgjhLKc8cvXGkR/GxghIBdREr
v3F0guJjBSe9L8uJHxxHfRQfK/iss2ev7bNxRC3Ps4JL+wrt8lrGEVVus62g
bdlB7wcz/yKqPKRbwcO3d3J67P+iaIqPFfxKsTh4POwvospXshW8m2l8PTbp
L3Kg+FiB/MQZ6aqSv+gmxccKvm5b0XRw4u//z3OxVmAXenHylOkEWkPxsYLw
x0L3plZPoHyKjxWMC+0R/XZ+AhlRfKzg49aRua55E+g0xccKWnp39SmNTKB+
io8VcPYLRoQYTiJfio8VDGqff6a1ahJlUXys4HujbuqSC5NIieJjBXpp4CmY
P4n2UAG1gowjQc+0/k6iVoqPFZzZKVr4ijGF2BQfK3i890Vi3voplErxsQLF
hA1zXa9P/eNjBQOgudKhegqFUHws4c/+fn1/EQFMHY9vCdoGlTGuWgKYktth
Cf2NNs+2Owrg4xQfSwhM1MypXyaAKRyllhC56vSdPTsF8P98LIFuujc04KIA
/p+PJZyb0Se6LV0Az6H4WMKVHx2H3pUK4B0UH0vg1S5r8OIL4BqKjyXEf/KX
VBSfhm0oPpZw7FOlkor+NHyV4mMJmrVVgktdp+EJqr5ZwoofAfnla6Zhqj1H
WcLFhD0Lzhyaht9RfCxBdn3Ajssp07AuxccSalf9dOzNnYap2wVYQtde9pOz
7dPwDyoAlsDNXZAbM00Qe1B8LKHNSDr6jaYgpsLLsoT8t+cquFxBTOUbwxL+
7ij6rBAiiCMpPpYQvQhttz0siOspPpZg5x/2Ku2OIKbar4wlOO+vuhWcL4ip
di5mCdfKhk03fhfE//++zQQn18rVSGI6/p8PE7Q7Q5mrTadjKt/4TPC+++bR
wkXTMdVuO5hQdPZDwdGI6fh//zDhzI0Tx2cmTsf/+4cJCdVi/Lbs6dib4sOE
HwzekEDbdJxJ8WHCsUyr65uFhLACxYcJG1Z28fUMhPBuig8TLhgvbDX2FMJN
VMCYIK61JXL/DiFM1et44v4O7k/VrwjhFIoPE8r2t50Sx0JYhPIPE1S/0Wfx
uoXwBooPsV+Urn+VhDAupvgwQcLo3qEic2FM1etgJsQIv76iu0wYn6X4MGFE
OOBy9wFhPETxYcIm4yN7xR8IY3+KDxO+RrPdLlYI49cUHyas6ImbODgujFUo
PkyoPxR0pUZHBO+n+DBhETdf9aynCP7fP0z4pJd97FG0COZQfJiwkOHQYHpb
BP9f35hQEOQhK18qgv/3DxPWvOqxDB4Twf/XNwvoYio6yejOwNT4wreAoNoK
M4NFM/75h/j8hopo6r4Z//xjAYFnBvMPPZiBeyg+FvAlZcnWgtoZ/+dbngWs
aXafDBcWxU8oPhbww6EkItZC9J9/LCAsr7FiKEj0n38sYGjbLsWSc6K4iuJj
ARG8Oy5iIIqtKT4WMMlavezhT1GcSPGxgNhlaYsz5orhP5R/LEDyxj47dW8x
vIw6sAU0LUsunIoVw1TBDbMAZmtu/voMMaxJ8bEAReMe5uIuMXyQ4mMBJzlK
0sXy4rib4mMBZ+cuXPHRTRy7U3wsQOHjIfn5+8TxY4qPBRhZgpN3ujiWovhY
QEPYtLqWbnEcQQXUAkQ2z2sdUpb45x8LwJYX/M96S/yfbzLEefPb7dKPSvyf
b2JEfDWszi7NkfjHh4gP76zP8V8S+P/5wBwWm/YedjCW/D/f+OZQ3O6lt2uN
JGZQfMyheuVLK1ayJE6k+JhDWIp21qEaSTxJ8TGHo08vpvrMnonXUnzMwfSI
uOA995n4E8XHHDZqHyk9dGQmNqf4mAP9hJD4F5iJr1F8zGHv6+OZpX9nYiHK
oObgly5d6mA7C2+k+JhDQfiNxRZRs3AFxcccXv1heD59PgvbU/4xB8uFhZnp
A7NwKsXHHOquOU33oUthcWq+NgeduVsz0rZK4S0UH3MwqFnyLuOpFK6k+JhD
A4yZ7+iXwkwqQc3h1lbDg78UZ+N4io85PE5kqojbzcZDFB9zOLP82prdy2dj
L4qPOXi8WrXKZd9s/IDiYw4tT2JEN92YjYWp+doc5juNB/fkzsYrKD7mcD60
avPHrtn4OcXHHNJNxA3+zpD+x8ccck8mXTxlJI19KT4MiD908tlOL2mcSvFh
gINc7d6cHdL4F1lQOxiQzd4/tjJRGvMoPgyYI3JYb2mOND5L8WHAwrXd0592
SOMmylAM8Ft1+/xq0TlYl+LDAOZATtlG0zk4jJqvGTCoZok++83BGeTrljQG
HO8SXXl+zxw8ShmUAUPOto8epczB9tR8zQBLp48PtYrm4BhqYGXA4sqny4cG
5uC3k6R/GOA1bThbXVkGT6MGGgaI11dHvODKYA/S0GEMOLDxlGnBJhl8h0pw
BqS9UPq+OEEGC5GvkwIYcOLNvtQgLIO3kK+nPBmguutV4LfvMriNbEjODNg0
UKjWIyuLV1IFgAGh2hmNoWxZ3GFLXjJARyr86powWbyN1ENjwMVMkWWNibJY
lPIPA57L7FAu/SCLH1ANmUHMZ1mN9kOy2J/iwwC1qbJkmqbcPz5EPE4SJcpL
DiOKDx0OlB/TCY+Rw4eo51M6MMt1v5c9lsO+1PMpHW6cuPrkQbMcNr1BbkiH
NxPdEdNmyWNpsmGV0uGEoah9laM8nqAaEh0UpKcJaW+TxwPyJB86LE3/XNJ7
Sx73Uwang7vEzkvMKnk8Sho4jQ5j6r8CR0QUsDjVEOiwmD/P2MpOAeu8JPnQ
YduO7aP9mxWwG1XQ6WCXueMDLUUBR8wg/UMH/GRBfEONAj5FNRg6tJ+hLdOU
VMSbl5B86JAQy5wjy1XEClSDoMPnQ9uzM6IVcRzZAALocC2x3X/iqSIu+ETy
oUMfOtA+9FURl/4i+dChZthn1SUNJXydajjE+dn+JV1LlbANl+RDB86140at
8Uo4iWqAdMif0bvnSKkSzj9D8qFD65GDObViyhhRDZkOR+Tc+qtdlHEM9X6H
DulZbNnYg8r/+NAhMTTUoAYr41SqwJpBt8l7s7oJZdx6kYy/GWRN96QdtVfB
91vIeJuBSo/Y7LY9KlhMn4yvGQh3DX/vzlbBf7eR8TSDo32yLy7/VcExr8n4
mcE58TXhvx1UceI0Ml5moGHTpT61XxW7upHxMQP7nQk5me9U8cFzZDzM4Gf+
Tg95ETW8qJY0mBkYG54s1XZXw2/USL1m0J9cxm4+o4afhpD6zICl7ZLKrVLD
dvfJBmQKWm96Rn2V1XHxT9LAphB6qMScGaSO62xIPabQfqPfReS+Og48TOox
hZtSAeZFA+p4dQWZ0KaQUCE4up81FzdrkXpMIedb/yXa0bm4PpLUQ+zvoyWV
Wz4Xzy8mC4oprDm2gK4npYGttUk9puB/Nu1Dl6UGvrmP1GMKLew781RXauAj
DaQeUxBKcs4qOaxB+I3UYwolN49IDz/SwNnXSD2mYOG1YWlitcY/PqbgncY/
/XxSA5evI/mYQO+9OU/n6Wti5c+kHhPQ8Wt46+ejiRtZZEE2AZH7vJcNezWx
+gOSjwlEp3ler0/TxHXK5IRoAse9xsMXVWrimWfIgmsC9rfczLlTmjh7OmlA
EziVZNv60EgLf9lDTowmEMEpjj4ToIXPDJOGNYGxs5OT349o4Sc7yAnUBDSP
V4aj51p4/hA5QZrAFwP3cokOLbw6knxhZALcyGC1itnauG+MfMFDXG9UXSzN
1saHo0kDG8OtQUlO51ZtnPqNTFBjMBstuB10Uxt7u5OGN4b23d4xp8q1iXnn
OaHHGD7svv05ZLoO9uggC4QxFI/kXv1qqYOvKJ4i9BjD9MGHTQqhOjiaTT6x
GUNgaNClX0k6uHkp+cRlDL0rO/L3levg8jXkBGsMyWWm4c9FdLFXEKnHGGKR
64UEe10c4EXqMYZThoZGOjt08U9TckI3hhyZetbqB7r/+BiD227fPNcOXfzo
HZlvRlC78kpeg7Ie/hpFFngjOIIe2Kv46eHHqmRBNoLVSceMRc/o4cnn5ERm
BJtGzC7eKtDD9fbkE4kRpJTd3vF1Og07vzxC6DGCvzqdRfVONGyrTb7xMIKY
kd4r0Xtp+GXsCkKPETDn5bW9f03D78rmEXqMQFZ23Y3sERpeNtuC0GMEiqsq
q1db6eMYrjqhxwg8dCUPP4vUx2brxAg9RnAndPaDxy/08YY9vwj/GIKpUdu8
JcP6+MTzVkKPIdj4TLtbaW2AvzoVE3oMgZ4/Jum22wAf1nhJ6DEEoROFe1/m
GODV/uQbG0PIv7rtt7qgId7VcpbQYwhbx/qi9s8zxBXZewk9hjB0x3la/WlD
HNobSugxhJU3wy8aVRtixx1LCD2G8PJbJH2nmhH28XAh9BjCcMyi6ux1Rvj2
HlKPIcwKETo09swIW06SEyRxnXDGlv7XCAtUk7/XGYKoXP/o6vnG//gQn3fq
5x5PMMae+8nf4wwAT9pceNBpjCt9yAJvAKEbNMI+mJvgpN1lhB4D6Jzb6ll/
0ASnDZNvbAzAVTfS7kulCe75+IzQYwCXojtM+bqmeFvPLUKPAbxTohn3RJti
8zXxhB4DaBHlmXeWmGJLxhFCjwFUuFhxqjTN8A6fnYQeA3jzWWAp2mmG+/ND
CT0GcPx+yq5bpWb40fkVhB4DkP92utxRho7vPiUnJgMI1sraeN+Jjts0eYQe
A7g63f34uTA6flNgSRheHz6t1Q+efZWOzxzWIwytDzO06XSXAjrBQ44wrD5w
WEGDpiN0bMYSJBJYHyKeZN/7pMfA45a9hB59eLbXyVdzCQN/cKkh9OjDzzv8
AYPjDHx2Yw6hRx90Dd8f/vqagRenphB69GGV2HuJZXwGVh46QujRh+s8/tED
c81x7eL1hB59aKlzHF7pa44Ty1wJPfqgWPhm6c9j5njxSh1Cjz74ywamW+aY
4//fX+tD9hvTCfqQOX7xsp7gQwOBt3oO7QYWeOPhdIIPDVwU54e7BllgtXXH
CD40OFx24UrgFQv8acVygg8N8tpFsswqLPDuDSaEHhrM8kr9+FyCibXiJoiJ
iAZLFDYV812YuAQVExMNDa7aLc9riGXiCLFEcsKCllcR6fveMvGc0GDCwDQw
v/DyQvUoE2c2GxINgQY7P2pv6LC0xH7rB4iJiwbI/zUjdYcl7hPOIiYmGkiy
o38qZ1jiI6+jiQlOD5YfCbzlOmCJj81iE4bXg43xtCEvhhUOOD+HmAj1QLDu
4LnV263wGKd/IT9PD+i+23dFZlrhjRr10qx0PfgmNPz4/IgVfmT8qSYuWQ+0
e2eaZrKsMVpXcq0uTg9+SbwZa4q1ximlNYG0KD1wDfozWzLfGvuv4etGBeuB
cW/pDs4sG9xIm0no0YOEp9Za+xbbYBMlW0KPHpy/x1TFN2ywn802ooHpwZy6
D0EzfthgtyMZRIPSA5pjz6C/pe0//+jBWENq2YMDtvjqvQAi33RB5cngiHCZ
LZ6KeUvkmy5UvqzatF7NDjMPGREFVRfkR92NysLssMOLO0QD0IX6Lf5WDjl2
WFHOqDEuWRcMVX+dSp/Fwjgl+2ZdnC5ICdDMjINY2GbVEmJC04VY5T7Vx5ks
fGjepFFUsC7s2OS2mClmj5NWPRvI89SFP4M2jbmr7PHx25uJiU0XBNPfPvR/
YY958lb7gmm6kHKnKv+npAMuyxLjpcvoAnyONTu31gEbHfkmKiCgCzvNczus
sAOOXfyo1JOvAwd8LOXllB3x0JTpxeQ6HSh5tXdyeZQjPnpg21J+ng64r718
TaLKEds1blNnpetA/5IjvdoWTlhqJr0zLlkHPp1z/ZUa74Sn5J+k1cXpwDep
xqdnfjvh2WM/NtGidCBpo+a5bcZszH3+hZgYdSCgH2mVrmLjiy63hvI8dcBE
6aNU23k2nv5MmdCjAzrdVkvufmDjC4M+u4NpOmDpJz2m8YdYP9PdIV2GWL/O
/7eXGecfHx0oUJm+0GItB/cWRbzz5GuDfoTyRNE1Dh7bfO9wcp02pGy9JqpQ
ycH636+68vO0wWzW0S0KEly8236hKCtdG8q8GkxLeFzcuv5tYVyyNtxlJrpZ
7uPirZt6TtTFacPutxj5vORi1Xn1C2hR2rDtq/cZnUEu/vLniGRUsDYcfbHg
1QMTHi47OlCS56kNr/Se2XeH8nDDD5XTMixt+GMXo1J1l4en04Q9gmnaEDT4
wm9nFw+7sx5LpstoQ9vCJd9KtZzxC5psydSUFmx3D65pCHLG3YGKpzz5WrDj
xVqp9FvOOG55okdynRYYBPQfWt/hjFMULs7m52lBrLkgc1LbBRskSFTbpWvB
NedrcyPXuWDNqsmrcclaEHUm27Xkvgu+ULU5uC5OC75Lhdyf3ueCd1wKMKJF
aRH16fw8FQtXDEr4d2SwFsx8M09TZpcrPrbqVm6epxakdhy26sGuGK2ZOiPD
0oI+rtux2zPm4XXG9SuDaVow0nBRxt57Ho59YWqaLqMFzx+sb8y8Mu8fHy3w
ychtmdk1D09KeFR68jUhaiBFbZ7ZfLy1Xu5ecp0meG6QSAzcMx8v2bAshp+n
CR/kxz2WFczHT14pL2ala8KMiXAnprwb3lG02OxEsiYIqWwL61vjhp8nzxKv
j9OES9t+Vx3PdMOrzblfaFGaMDAxbdd0YXe8//jA+6hgTRB8nxCwarE7nnNT
9fYHT014hZ/tuHLPHcvten9IlqUJ9F8+RZnj7viUzJe1ITRNWBG4d8UzrwU4
authtwwZTTAVMjE8lboA15y6bjpNQBMeta6xmP9nAY5t0J7tzdeAb2O95494
L8SB+dO/X6/TgKilF1Z3312Io30dX/fmaUDY5KKk9RML8duYylj7dA3o/WY8
X9LPA1u4vXc6mawBLYraIZUPPHBLxszh+jgNYJ1h9r6d5omzszNu60dpgKxb
0JeCAE9cGJIxf2ewBgS73fcceeqJJR9Kdn/w1AD5s5J682d44djzudGyLA1w
Vz4Zlr3KC+sqlE8PoWlA/w8drUVZXniKxTqaLqMB+wU23xaa4f3v/ehcWGnq
3ztg7o13fXTsSKqbC82TRVv6V3ljn2Lz57bpc0F1eylN4KQ3vjmraXtN3FwQ
Or5aUfOlN3Y7Z6e5I3gupLNj2L6d3niZtyeSYs2FOUmGNy9JLcKlngruj2Tm
gsXVNdY9rEU49WRC3ny+OkiyjEUWbViEu0QKTbrz1OFKzAHJgouL8FFIP3Ig
WR2+rlnj7p27CCe+8ipRi1KHjt4q/L13EZ7qS5n2xlMdUpQqwy4q++BPIQ91
F9PUQevbqkXe83ywuEKozeCUGrgvjd6sFuGDP/O7I87UqcH3+gDroJs+2LfQ
SN4oXQ3u1tjqHij2wdce2akWxKnBXi8V632/ietLc46tDVaDSOeJMH91X7zs
2PPF01lqcOpF60cxV1/cFKN28paMGmSnvHO+GuaL5fZ567D5qjBL8u4XkQu+
WPHgQq3WPFWIGIh75JXli4tOSx+JSVYFEd8tlyLqfbHjzRsL1aNUIZ3umxo5
7ov3vB6ORp6qEH7CpsZH1Q+H1cuLr6apwrJAdWNJez/8//9/U4XtGUJ3by3z
w1tMMpbdqlOB+Ngenky0H74eZKLMS1eBsqIK4aCLfvhoUrhjd5wKGJ1/03Pi
qR9mtsTkHwtWgdTKlN/nCv3wFT3/F4YsFbC/cFJ7R4cfzon8NaNURgWGSiIi
GX/8cFrxChzOV4bcQ6t6imf743n6ZxrlPihDZtb8I1w9f3zz5PEVb5KV4eNa
C16CnT/+8HsBd3WUMvSdU9fN8/DHN9bVnRLyUgY7G3GjstX+2K7FxP4BTRlu
LB/2y9rmj8+tWOjtLaAMtPGOlF2x/rj+gVL47zolaIyfdKg/7o8XXtjjmpiu
BJCy0yvhkD/unLP9s80JJaijedY+JtYnG0/Mqg1WAg3tg9Va3v74dKuq4A6W
Ety/KOP+S5PY36j8vqSsEnjtFbTU+uKHi2Yri6TyFYHb4HnpUZIf1jw7Im/7
QRH8n4xujnch4nc3tKk4WRGujE5l17T54nlLti1eEaUI6q/XxEZt8cXStySO
/PBUhI8/9bK39/lgocOsDVE0RbiZ5BpWHOjzr74R++P38bEfFmG23NKFx+oU
ICrgOuOCKpHv7109JNMVoGF9jYvAOm/MlCgUPBunAHKNtTcTeF74W09rmFSw
AtypyEnpvOGBi9eePHnaTgHmvFx1/kfbAvwhuniVmIwC0I+9CXsg4o75Oje/
HOyRhz5eOVNbej7mbRTT/vNeHq72pnz3E3DFWfNnyG5NkgftQ2Ynnap4eAFc
ed0eIQ8gtFOp8xQHK5SDjI+HPCz/Oqi/388RT+7eqwW68pCbtHn0foAtno1K
uo0m5eC60apbrnpM3DrpbJFcIweoe9ZnhcUmWDQluk3lqRy8vhugGXRfE59L
W9+bdkwOuFvXNaQqCeMwqTnLOIFyUDH6CpwWSDndrt+p981GDnK7J33cU3Sd
nESu+CRJy8F+I/6ooKy5k0FCZMvKH7KQuXDlumkZtk6RR2cWGb+XhcrQ7zbn
qtlOcg2BcmJJskAPujvz2ZSzk9S5rTAYIQt9J9cyApe4Oa2/Z1v83UMWor7r
pd5s8nDKuJqp+MlSFv7eH6jwCPZ2+g/4BtCJ
"]]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], CapForm["Butt"],
LineBox[CompressedData["
1:eJw12XdcTf8fB/D23pekoZL2vI17697bPXeUEZXKSHYlJCNUCFlFVshWJJGZ
Mgrx+bwliZIRClnRTtp7/M453379weM87j2fc16f5+f9+XzOucbBa/2XSUlI
SFSQ/1D/j9B/YnDVnfBrw4JaFK6xcbbkkBhab7eMV15Zi7J+ZPx82SeGrR9P
jDkaXYterT52cV63GL7uZ7yTja9F+BHvdHa7GLTeLvddebwWHSi6VFjWIgbd
y8eS8jNqEfPoC7N7jWLoUzx+dPB+LbqtexUtqRXDjeFVs22Ka5FciOfBD7/E
4LRb96vX11rkEn4hSf2bGA6fujAx8F8tcnfILdasFANwB6xnydQh/fuJ7K/v
xVC01raHr1uHPvWOr1r1WgxpTqw9Osw6FDYQlvvshRh89o4t/zm1Dn1ueqok
UyCGnffzJHWX1iHHvlgDn8diqFFQtJu8uQ5FmZxouZgrhridioHLjtahtHDV
7SPZYphm+DAu5lodulf2pyTshhimVI+7vPVpHcr21ausuCyGTa9Mizd+rkMn
/man+6eJ4VtFdf3itjq09Opl64qzYohU8pXnK9Yj7R1965edEIN7cLiJunE9
urfx5qahJDGwfzi7l7vWI24C4l3YL4YVO7Nm7Z9Zj67ds8de8WJ4ObVipfOK
eiRB/e0Qw2KX21vfxdUjwQr7EbRFDGZTWIeWnqpHy/8+ebw3SgzG2yPO/cmq
R5uSbrgGrSPzf/HLDCqqR+t9etezVonh9vza7Gff6lGAVcYq/TAxiKSsHhh2
1SMDk9sTVZaKQbFM/8kalQb0xnX8adkFYpDECGebNKDwVdUlCnPFYPdRHWo4
DejvIyU01l8MBzU0kKp/AwoyP7bGxlsMEyLxQ4uVDSgre9O3GVPFUN1tcJe1
owE1zkFKMWIxfLlofZ19qgFp6IZ0X+eLQWZ9/XnrrAa06z63qdpNDPumaKta
PW9AN//oO493EcMJqZh1XlUNaF+m3DtvBzLvJaWXBzsakN5w79Md1mLgW77T
blNqREvqO+TumImh4vireTETG9HCsJ4Lv4zF0FvTfdSQ04hUN0kfUjcQwwX9
ObjBrxGtN9Ap4+qIocS1/tfHlY3owByXkDCGGGI5t/p+72xE80zmz0hSE0OO
8WW5MWcbUdXuxMRcRTFEtLxRCLvTiMZsAt0qGTHcSrOV+PKqEUnSQGLY6Iqa
1/5uRBf1prpNHBABur+zzHywEfW8Ol0k6hbBYZ1NlyXHNiEptfbMpW0iqFly
MXLItgk9/RPwbXuzCJ4eHnLUm9KEXHxR2Nk6ERilH2wIWtKEFnkzPe5Vi0Du
nM+Jx5ubEO/HzajSbyLYsFnMEiQ3oTIZ5kB1pQhC3VeV1txsQmPRkw895SL4
XPt87q2iJqSpHCCl/EYEH6ICKk/+JK/X1Lpb/5UIZjUyfNL7m5DZklPzbJ6L
IMhD/uGbMc3k+Jq8mwPk/e22HW9o34zS12UPTMkXgVD89PDhac3oR83eJ7Nz
RfBIf8hNP7QZ9b4oLQ7JEYGfxi/d4u3NqEE7zmD9TRHITFjNPHamGT14fz5/
RyZ5fc+L27bca0YhA9aXktLJvHu3jex404xqj5h9OJ8qgle/JfMuNzajqcmH
fbJOi6Bjnl1GvexftEsqVAsli4DVKPVimvFfdPb7FcOywyI4fTzO8CXvLzpg
Pjf6e6IIxs7LuBUW+BfN/bZR+98eEdxmR0ZO3Ph3tH5EsMKhNnwwiWwvqddR
M1YE7mLps503/qJfBxbdnhgtArt1xcNKxX+RbhczyjmS/DzP5Qzx5y+yL1m/
Z3KECMJ1pq88JtGCJqgZfwtcLoK7yQprpQ1aUMMTXtyqYBFoW665fsytBR35
8jx8+0IRpFTG6gnmtCDN0McXjgaKgJvOLFDe0ILWBBlNuBwggt74pPNdSS3o
8pO2mgc+Ini3+0T20M0WlHfIoad0mghenBP3mrxqQVdeVfn98hDBl9dnolbU
taC1G7u7uggRKOuetiiR+Yc4HlseKHFFMOP+10qfif+QbUfoGkOWCJI/SPp0
E//Q1J2545yZIqiKUdr3dOE/dLBlzb2pNiKwvdCVkB37D/VyDnssNBfBTq9n
Xs/O/EMHwsYUR04kx8/mDeV9eeT5kZJEgoEI2LZyxrM+/UN282dfO6sjgrOh
sU7vO8nrT9KQv80QgcSRlbKPFFvR2lJm4DM1EeTeTijXH9+KSgMepVQoiiBC
c+yeoxatyP/RtQ9NMiIwvz9mnI5r638+EiL4czb+YPaUVvRx0pMJYwaEkF6w
/E/Q3FZUbvHLwaJbCKE2+RPGLW9F/coRLF6bEMwr47g10a1oWtlC+5nNQmh5
fp/zPKEVwdpcvdA6IeR2LdDPO9mKlrRGDcRUC2Hn8qifj660IrOZKWUHvgnB
R28k4W1uK9JOsjxxoVII+pr96r1FrcjuloHv3XKyvalhscwKMs/1TYNFZUIo
KBC/3FrXiioSOKlfXgrhzPZjfZ97WtEKUQizpVAI67b6q0xTaENG39ofSIIQ
vB7vlnyl04b2Jntxx+YLofx0seQiyzZknF6CLXKFcC/imYscpw21KERP5uUI
oZm9MbXAqw39ezHtje9NIWzr/+KaPL8NmfyYHBSSKYSwez3ymyLa0H6f1XXR
6UK4suyVUuS2NmSm/SR6f6oQhGoBwu2H21CXC0vh/GkhOGUdvXHhQhvqvlV5
LieZbM8zYdrH7DZkvT2D+fywEAw/OOgZFrSh5CtnXlYmCkEn6KjRtvI25GD+
IKR5jxAiKjLn/fvTNlo/QtCesbEoqrsNSTEjzzNihTD+QXeYhkI7cn2kTJhH
CyFKz56Lx7ej9HNvfnEihWARbSDeZd2O+B8fJ/hECMG5+On2ee7tSGN5uW3w
ciGc1tRv8fBtRww/RkVUsBBm+9sc9VjajrySt+5KXCiEFfvblwduaEe5tuoO
qYFCqHi4Zv2O+Hbkb1TyIztACOd+pmU/PtWOJq3KPlroI4SHw/smql5vR5Zq
2LNymhDsxpgXRz5uR8GKPQNNHkIYNIq92FjWjkoXBN4bIYRgbBqfFfOrHZn8
Ob+awRXC8eyXM3U729GE2AQzc5YQpgW8biiX60D5xuo/OEwhEKpHNmeM70CD
Fa6nfGzIvN81JQ7adKBfqdK+weZC+Ffkv20/0YFWblgrFz1RCFeL/Nsu+Heg
E4FbnyQaCOHSN80Fpcs6UIi31cZUHSH8VD7yRH1zB/rkt9kqhyGExX6vx4Yf
7EBNy1b+LFQTwoSsl6FfL3SgjMT+E5WKQjCaGH895G4HknxiM71ZhqyHWyO1
Ui86RutHCHW+broPv5Df9994jzEggFuKjh4JLR2o8V7iCvNuAdz70hAaLtWJ
PpoJ9LltAhguWLJ1mXYnCr566o1PswASCk7uj7HqRMluR3YF1wkg4POBpDR+
J1rxxdIluloAi+UFB376d6Lv+0PrEr8JIGvG3W3s5Z2o30twJrVSAPxrNWGX
YzvRQ90nXjnlAlA3qJhsdaQT6fZ/GSgsE8DEq3sNijI6kVHDmZuVLwUQ7dXT
uOlhJ3pZ17eguVAAKjJmt0VlnWhsd7+KBAig+gMj3OR3J7LP+fCYkS+ACPbZ
DP3eTiTKRRHmuQLQunKszl61C02XfajPzRHAZ6Mhx4UTu5D3+WelPjcFgDI/
J2Swu8j57/vW4EwBPOdY/Jb17kLcLEXb6HQBNH2un7IzuAtNMvX8lpgqAPt4
vfvam7qQQu2RQ6mnBXCcB1ZFh7rQ79Zm95xkAYyXqLiadKkL5XrOayk8TLb/
ZrH9hoddaOefj+crEwWw40YQWvemC3m+DvZt3iOA0OQXs/fVdI3WjwCW773S
9XCgC93deiubESuA/Xt7UmW1utFi8aql5tECKEl+5LPKohtJzXLT4kYKwPbm
P/kmfje6kDXumU8E2d9vT77cM7sbOQbIbQxeLgAfyexk14huhIWyptHBZH/z
uWFyu7uRx5YxnxIXCqA1wVXYcqYbwaDT3tRA8vhr5qTW7G7k/DLENSdAAGru
iRoqxd0o/celhkIfsr3rVTKiH91ITtB5tnKaAG6apEse6+5GwY2zZjR7CMDq
2me5QdUe9OD786ERQgDFnN1jdpj2IJ9j7rcZXLK/vNd/M3TvQZFb7iwxZwkg
dc6WMd9m9SCjU5O0uEwB1M8+9zAvogfNr09+5mNDek7/WHp7Tw8yXiMRFWwu
AEe2hc/zlB60wSLcLHoieTz+uHvvvR7kP+5dRaIBOV7adM5Nfd2DHnNcElN1
BNCJc8Nya3rQnWMnOTkMAdzeszpNONyDnA27mgrVBHCNcJ/aqN2LhD9nplYq
CuBXq+mibPte9PXjNZ9mGQHMO21enTy1d7R+yPHHEn04vrQXhT65EmzeTcDI
yyjnu1t60Y/fU577NBPAnFUg9S+5F63b8Ns8upqA8x/Miam3epFexOb9qZUE
zJh+pQEV9aLvrxX/FpYRwH7gLhXwsxflnj7u21xIwGK9ln0y/b3oaun4O4x8
Aoo25m0rZ/Sh2yvPjOHmEBBeeOYntu1Db9cyYoIzCZiudCLn5ZQ+pPhj7+fE
VALWTL7W2rq0DwXldXNzkgko2fQp1WVrHyroXUyOPwLCLuo/PHWyD4kuPSPH
G0Hu4GJF43L6kPrQpBDzaLI9258auSV9aMGMvc99IghYL2ANRNX2IeujjebR
wQTk922TnCvZj7aW+OxPDSTAeF6eyTz9fjR94G5zoQ8BlxdVL93K7kfnjXR9
mz0ImKI0kg/+/SiSuzOHwSVAcYGqo9maflQ8vYHBZRLQGKBaeDOR/L6ff3Sw
OQFNbcORsy73o+4ZjysTDcjvs6q5Bk/7UZm7OTeHQbZnlGcs/60fWUxKJr0I
SM/eZqLV14+kaB8CDOpchPyxA2jJu9WkDx8ePPux5QBzAPFOVxX6NPNh7eTY
t33eAyhl1gzShw9eaxVEieEDaKvck8TUSj7w+XvfuO0dQN9v2TUXlvFh9t2e
TcoZAwi8Lvo0F/Jhb9k8/jAMoEnfxuQw8vnwJemWodb3AaS0LJHBzSHb62nX
nzIwgNZVD0cFZ5Kfy1ixUnUG0dzZUZWJqXw4+MB/1RjWIHr6pJmTk8yHOVqr
H98MGETX9JalVibyQay12TIschBpr/0+MhLHhxkPou8IkgaRk0VgsHk0H4JN
VT35twYRM+9doU8EH5Zv+V22pGQQqetPJ334sCivz/dqwyB6PacwMTWQD9Oq
fIvHKAyhNcvdSR8+TGqoYV8xG0LN3rk+zR58aP+Wf36B5xDyVbInffhw59G7
QXboEDqakkn68CEkztzfdfcQui9jRPrwQcHmyfmF6UMoV3Sa9OFDChyrznw6
hM7O0SB9+GDmftVg3K8htESwj/ThQ+rFId8bEsOj9cMHvZZjm0ONhlHCiRjS
xx22TlxxViQYRv8k/pE+7vCKv+2O55JhxBKFkT7uoCJ+/3T1jmG0dB45/Va6
g9h+efGjtGEUPnkW6eMOK6R5RTZPh9EsxRLSxx124Jn5z34NI6N0IenjDvtD
LmfGSY2gEo0HpI877PnndmCJyQgKnG0XHZzpDutD1MLCPEZQ8doM0scdZuGJ
rkeXjSDtJbpk/biDpXSM5K+EETTZ7Ajp4w5NdsoFs6+OoFkFsmT9uEO66Mfm
fy9HUMeMWNLHHXaPvNHMbhpBL7+3kj7uEMZY+LBUTgJ/iyHzBLsDr8qn7OM4
CWyhU0X6uMOUoCdTOiwkcBb2I33cIf7QVVNTjgReveYF6eMOHVEaK1ZNl8Ar
JrmTPu5wktGlVrRAAqf8ukP6uENE2BxdlzUSWPmKBenjDlFrnPc/iJPA9yLJ
cjdwh2zrpEUzj0rg4x7k9MFwhwnnw04NpkvgOxPI6UjRHZ4+f+T85J4E/u/5
lMyTfoB1rEgCH6snp9tuHtxw/pwSWymBF1Y2kT48qIm9tHxzowQOfkMuR9U8
8N/UePLAoAS++LqC9OFBh2WW1R01SaxX7k368OD5kZaJf40k8Zsfz0gfHpTc
vBHHc5LEjzvcSB8eyG6vEaR5SuLfatmkDw/WyaSE6QRKYg+mGenDA3XBm9aM
cElcHZRC+vDgp0PcD89tkjjvgBbpw4PaTzccB5IkcdEzcrwl8kDfcXZjYbok
1pAeIeuHB/tEsXKX7kvieZ5knmge4Hsxi08WS+KQBDJPBA8WuGS8vvBVEjOL
yDzBPAgulPDDLZL4mQx5uUAelC491NApKYXHiMjb9+HBeVWvU4KxUth6O9kd
HjyoeMEKSreQwlIPyeWFy4OYIwGOujwpnNJO5mHyYPvyNMOrvlK434ps3pwH
DTMMJs4IkcLjg8nbNeDBE8ErN7kYKTx4iozP4EGvKDPs034pfLGU7E5FHpwJ
uHf18Xkp/F/98CBrfdvIgztS2MqRbK6bC/ppiyJKiqSwdgh5e81ccv0e+Nvx
RQoXHSPjVnPBxuzlHsd/UtjtKZmnkgtvthc57JWWxhEtZJ4yLlTWdLS1jZPG
Ibrk8lXIhanz/YrX20hjA0/ydvK5MOHH97uKQml8eg0ZL4cLQZEp93JnS+PK
k2SeTC5IaO1/tTlcGn9+QuZJ5YLC08wu/zhpnPKb/HoyF7Zu73IRHZfGJgrk
eEvkgr/XhgNTrknjcGtqv8OFI5OMu4ORNHbwIfNEc+HWx4UyJ8qlsU0kmSeC
C3pm+zy+10vjxcfJj4O58H1sWi5/WBq/yKN8uNCecTkolyGDl3+lfLgwv/y0
g6elDHYfoXy4oH1xs2sTXwZPMyHzcLkwSW3q+quzZPCBKeQhkwsJujLft4bL
YNkIyocL7kW3YlfskMF3qXI34IKnpuf0VSdl8Nn7lA8X0gZezoi/KYNzv1A+
XPCL5+3ILZAZrR8uBGel1AxXku2bUj4ceBTduHXRPxnsNZ3y4UDod9PJH2Vl
sTCS8uHAkhofYYi+LF59ivLhwO0Dy9YoOMnit08oHw74vVv5unCaLA7/Q55e
yIGpufMXnV4iiznKlA8HjnC4xrtjZLHAkfLhgM0iBe34w7J4+zzKhwP6xs94
5y/L4tYdlA8HFu1edaLssSxOuUr5cKBzj6SR9gdZHPuWvHwiB76bxldtbJLF
x3up+uGAblj3q0YpOQzU9B/NgQ+piT9idOVwzVTKhwP2phvU9B3l8Mg6yocD
LoN35lZMk8MaZygfDlRNnJZ/bakcHv+U8uGA9RkXt+TNclingfLhwITFm94l
H5XDappU93Igd6PmnhvX5HCfK+XDgbbPEn5fnsrhqiWUDwc+HZ7savRFDt+n
yt2AAwuTq922tcvheGr6YHAgse7D7DYleexNdacimfeAwcGtJvKjPhz4s/1x
1QSePL5PNdftBjIFOVMqZ8njpb6Ujxs8mzVUenW1PJaKoXzcwIZ9IeJIgjw+
e55q0A1cV54yS7ogjy2KKB83aGqs6c94II9v/aV83MDj8f6Gd+/kseVYyscN
BN/i28c2yePzPMrHDX56V4yNlFHAMqGUjxtYqcUF/DZQwMsOUD5uwJiw7UYE
WwHn36F83ODKtncGqn4KWIEab4luUGWz9XphuAL2pgLtcIMH1tv8kvco4APU
9B9Nfr/GpDrmvAJ+TeWJcAP5Imwd+UABa1B5gt2gunSmXdx7BTyLyhPoBpz+
Tw0XmxXwOar8fdxA2sd/0Wc5RVxNdYeHG8woLjhgaqyIbanlg+sGiist1idw
FfEm6pBJ5nPYrTk4WxE/p5o3d4N2g/KVCesUMYMqdwM30HXUiTU9oIhDqfgM
N8iP8Pf8fFkR36N93ODT653FF0FxdH5zg82zr8jEfVXEs2kfV9gnDX3ruhXx
der2ml1BpbIsM0ZTCUtRcatdQab8vVqyjRJeQHVfpSts6SyxezZFCT+gOMpc
YQXvkbxCiBIeS51e6Aql11PPLN2uhNdTt5PvCjeJ6D9vzijhcmr6ziHbGxDX
+99Xwi5UnkxXeF8ld7nxrRI+TXV/qivo1SDdU81KeJgab8mu8IURMS1QQRmH
UpdPdIUxK9WYdpOUcQn1c0mcKxT8ufxOR6CMnak80a4w9/fXmjELlHEqlSfC
FdyezrMw3KSM5aiPg10hbLvhGfZxZbyaulygK1Tp2rouylbGH6nb93GFjJO7
ZJNLlbE77eMKt9oMJT/VK+NL9PTkCko2stbmsipYifZxhTuejrsTjFVwJO1D
ns/PVOx0V8HUap1o4Ar12qFobZAK5tM+rrC+bMXFvmgVfIn2cYWpy+7fOZqs
MurjCtu+TmtnZ6vgMNqHDa0OZkuaS1VwKe3DhmvLvAazGlSwPe3DhuzNuUVx
cqr4BO3DBqnV4XiRiSrupX3YcIEIq50uUMULaR82HGq7xp2yUBVj2ocNz3a5
4JlbVDE9feewwbNDIXLFKVWcQPuwQVs8ye/wPVVcT/uwwW793sUF71TxDOrr
yWw4vsMxReafKr5J+7Bh8hpT+dkqalidft5mgwd3SdpdSzW8jvZhg5mn3+rx
U9RwOe3DhtiGsA1xoWrYifZhw3SLi3dqdqrhk7QP2b6khPWMC2q4h/Zhw6yo
3VV3HqvhebQPG/bvtn4x/osazqd92OBq09u4o0cNT6B92LBwbcOU+jHqeAft
w4aRGSPffB3VcTXtQ+Z77nYrz1cde9A+bMioOH3fcLU6vkL7sOHGHv2evfvV
R33YwC8tjGzNVMd0c90sYGUdNZ33XB0X0T4suGS1W6ugWh2b0T4seJ42I2Ws
hAbeT/uwYENfw/RXahq4hfZhwaIL43XiDDQwfXohC/Yc+yrhbKOB6ek2nwW1
7+3lGjgamJ4eclgQv0Tb4vw0DbyJ9mHBYm5SWECgBqanr1QWbAw5+1RhuQZ2
p31YUFzJdkNRGjiN9mHBnHPLX2/Yo4Hp57kdLDC8YbndMlkDh9I+LNiKm+Mr
L2rgF7QPeX6SoeGWbA1sTfuwYFCvYJoa1sCHaB8WGIR+kD3xWgO30j4ssF4x
J0CtSgMH0D4sMLOY6rilUQPn0j4sUMm4ll7Zq4HH0z4sqPq6JcNSXhPH0h3K
grNv8tmrx2riH7QPCybHRSy4ZKKJBbQPC740HtQqZWriDNqHBQu1DILqCM1R
HxaUd+k7dXlr4hDaxwXsThxM7Zqvienba3aBqNZVZ+pXamI6brULXJXPNyuL
0cT7aB8XKPqy2fNKvCamOcpc4O3Kq13rkjVHfcjP701m213UHPVxgWv5s5S+
Z2liLdrHBTZtf79mx2NNvIH2cQHHIRw69pUm/kT7uMBntkFzSoUmdqV9XCDc
rlFmXI0mPkv7uED9T7Pbu9s18RA9v7nATN/yxuoRTUwvz9Eu0KM32dBCVQsX
0D4uYNXw8e5kXS1sSvu4wO/cXVf55lqYvlygC1jHzxhSd9bCjXQHuIDELKc7
jwRa2Jv2cYFFJuwXfG8tTHcv1wWmdMzlpczT+m+8MV3gybMTmuXLtHAU7eMC
6Hjr5N+RWvgz7eMC08NWVJVu08L08stwgaWuQ++SErUwvZwruoCs8m1zmxNa
+L/ft52B/X3bt4tpWqM+ztCas7Kj9YbWf+Ot2RlcEtavHJ+nhenlttoZ5Oaf
JvQKtEbrxxlCHb5GdZdqjdaPM0yX46rcqNDCM2kfZ8BVeVJu1Vr4Hu1DHt/1
m5fWrIXH0T7OMO2Agsavbi28hfZxhkUhVWYDEgxcRXeYM0jwXqe2KDH+m6+T
ncF27NeN+WMYOJ32cYaaFtmbSycwsBxdP85g8dJb/MucgVfQPs6QNj2WbcJk
4BLah8xnMDdeg8P4b74OdgY9wS+bayIGTqJ9nMH4zni7v14M3EH7OIPkRonE
Kn8Gnk37OEN+/An3mCAGfkj7OINPXeX0J0sZWI/2cQZ0+tXdrBUMHEf7OIP8
2fCo6WsZo/XjDFZND44kRzGwkPYh7/fgfdm9sYzR+Y3Mu23JB9OdjNH6cYb7
Tx4Ork1gjM5vTiDyebp92QEGprcvzU5w1S4mSO4IY7R+nKBh0dck/+OM0fpx
Aukffyd4nWbgJtrHCfqysuT/nmP8N94KneBlmYEX9wIDZ9E+TrCez611TmeM
1o8TdA/JVX3OYIzWjxPMUd1pbZXJwB9oHyc4FHHtg+k1BmbTPk6QrrejovQ6
A5+mfZzgoK6ss+FNBu6n64c8f6Vro/4tBg6ib9gJNvUGWqSQx4j2cYKYB5f1
N5DHxrSPE/hfm/DiInn+LtrHCeRKnplb3GDgGtrHCU4ZnODLkdf3on3Izy8e
U+ZdYeBbtI8TzJz9+PBLMo867eMEGzlaxVnnGXgj3aFOEDXzeF7TGcZo/ZDf
PyVauOP46HhjOIGCusHDiMOj403RCVLyTEqy9/7fh7ze0TnJM3YwRvcHjuB3
7r6mYNPoeGt2hJhPgskHSH8m7eMIm0W9DnZhZP/QPo4w98fXdxYLGHiY9nEE
jVtNFrF+DLyM9nGEKzfMWaaTGfg17eMI474m9ZmR49eR9nGEEO6kDTtsGfgc
7eMIh0r/pDONGFiGLlBHOHb43T6OFgOH0z6OsHZn46Rz0gz8nvZxBKvL9jEB
neR8QdePIxT2pcWF/NHCGbSPIzCr/gniyrWwEr2/doR1114/CXqqhdfQPo6w
Yymnu+uWFi6nfcj7kWE1zjyjhZ3pAeoIY4/BmVW7tXAy7eMIp5S+yEyO0MId
tI8j/Fu9y/pngBb2pX0cgfH4oSqHo4Wv0z6OoNIVdyPAUAvL0vtrR/ik81HG
VloLL6B9yDzmD8cXkfP1XdrHESqNbBonvPj/+uMIwzJ20exMTRxA+zBB4QN6
op5Arle0DxP+HPoOmSGauJOaUKuZcNzxUNwIuX6JaR8maBe86tPW08RJtA8T
lvJO2bd0auAquqCYkHCx3SieXG9NaR8mbG2rev01QwNH0PtrJvBt5rDat2jg
O9TrlkwmvPNbFFTsq4F76QJlAje4y22RiQbm0ftrJjQ/Yl1f3qSOt9MbViYM
JqTNPXZIHT8epuqHCdctLLbybNWxJL2hYYJh5mCC/0s17E0VdAQT/BS962CJ
Gr5MD3AmLPIdn7q3QxXLUK+TAplgtXnp1Ss7VfEa6vWUDxPKE0wVJyir4p/U
guTBBNamZfhvkgpeSE8ATIj2Ni4Zq6GCq92oQyZslJtnc/KAMl5H5TFngvsl
ld9rpJSxAl0/TPhtwvt3YaMSvk4vyEwI3Fc307KafL6hfcj+equmoDz9/88/
TJAezBnjeVsBI9rHAb4ov4uuUFPAu+nnUwdYMbLKrmClPA6gn08doODTLq4s
yGG7C1SDDjBydOz5NE05rEktWGUOoMScNOf4Ilk8RC9IDvDyblbIzysyuE2b
8nGAWbr3i/Y0SuNWusAd4FkoO26npTTupQo40wHqjrkc+hQihZXoBcEB2jJu
t+4+I4kn5VE+DnDr7OVria8k8DR6QneAi/V26978HUEb5an6cYBpIUquPPdh
dJBeYBzgbOS8sLi4QbR6LuXjAK3fT+Wi7H40jl4gyDw3nlv0v+1FidQCEOgA
RyuqHzN/dqPi15SPA9QE/1u/7HsnKuukfBzAybvJ60RJOzpPLzgOgE9+8nia
2YpcRZSPA2TEBT99X9OMUugF0AFmHOnm6QXVoxeHKR+yfxetHJx/8zdC9IJM
9k9F1Ijlw29oO/1+xwGM1n06dPBj+ej7aweo76+fguc/Qxn0BGsPEq7Dz0/l
7+X/OE71vz0YPbdl+n0t4l/7TvW3PbyfK2javfQTX9GC6l97mGmuPT+v9Cd/
cB3Vn/bQF3pr6739tfztD6n+s4eJf5YFPQxv5p+WpPrLHmTeG/YHs9r4k6dR
/WMPef4GpqundvJ3HaH6wx6ObLS2i13Vw/eroArMHmzYXmMPXejnPzKg8trD
hLObv6T/GeLfDqHy2UNtWRV/UaoEwblGLUB2MNc4fqR5phRR8o8qYDtwxz63
/TRkiEpXKo8dRF/y9/n5XZZYsofKYwdbyo5UnX4sTyx+Tw1oO1AVKAbFXlMk
vk2k8thBS09+0d7LysTnKCqPHSzovjoRZasSU0uoCcUOznHfrp5Qok6wTag8
dpD7W2fWrH4NIm0blccOoLR2RZa2FhH/hcpjB5qf/aJSOQyi2o3KYwdlCkGb
jcPGEPnnqDx28Gn+yEbOmbHEfz520P5euKK+XJt4F0b52EJohHGAtbYOofuW
ymMLOpbnXaSXjCe+cqkJ2RbWKD5QX5ejS0y4TvnYwj2Vtb8ilfSJSl1qh2gL
PKdn1xVWGRCqh6kJlzzedm+Vc/kEIl+aKkBbEEUZH9tibETUxlI7RluIdGeH
m34zIg53UwVrCx6n9NDZFGMiawO1A7WF8l1lh74snkhM7aB2kLYgJzHz8x8z
E2JxFPXCyBYK1NLSHraZEC191Ase8nq30e9AmETs2UQVsA2srE0pHn/clMio
pwaoDWQ/tI4KWGNGzPSiCt4GKixWNcj6mhP7Uu+SeWxAx3m+KZNlQXhXUxOE
DbC/Dlh8NLEkzugcJPPYwPoJ3p1t46yITQLqic0G9g/57N2rZU18m0c9cdkA
bJKsPsGwId6FUjtYGyhLCpUx0LMlfJdSeWxgWLSpRd/Sjgj0pfLYgO0xXtoJ
d3vinx21Q7eBM6jyoNjGYdTHBs7vWnWr97EDcbOAGm/W4Hz8E7NxJpOoi6Ym
eGu42zFeV6eeSdzSpyZka3C46BK2a5cjMXyX2pFZw9MUS21LIyfiM496IrEG
v9ouS5WnToRHXjyZxxqKt529aL3MmXAzod54WAMRMm7bXhUXIm/HAjIP+fnJ
iMeGeS5EwZspZB5r8Nc5u7gzlEUEaTiReazhWd2FMFltNrFdNIHMYw1estvf
+b9iE/ZhimQea3iwzjmtaqcrsSK2k6wfK+BYPXufznMj9t/9QeaxgoSFG1PP
DrgRdUQJmccKbrGOOT/EHGKPUR6Zxwq239c/PbyPSyyeTb2xsQK7L4zi8Lk8
YvP3JDKPFaRnxBQOWbkT7/O3knms4PGYqYfypPnEyr8ryTxWcM4qfuLpX3yC
v2EumccK5tXa7blQSBD+3p5kHitouTTxc9gcAXEplspjBTvNQ+dovhYQLsPU
DtKK3L9+dfOdLCQkPlK/11nBavP9u40KhKM+VqCYscYpXiAifOKo3+MswXRD
4rRtT0VEuT81wVuC54kvzxU8xUTKljdkHkswUQq+al4iJjK7qTc2llD7zrDt
c4AH0VSUTeaxhLPNjDTDHx7EuqaLZB5LMAji3++N8CQcQ5PJPJZwUveCw7Ih
T8KFGU/msYQqW5bWsiOTiQ3+MWQeS9A5Lh3UazqFaH2xksxjCSxveQVDNIW4
eXQBmccSjOcJ9T8HTiWu3KZ2TJYg9SDnpFn3VOKnsZjMYwnZKwNj5E9OIx4V
u5AFbwFODxYkKrt5EYf3mJEFbQGH/9acKvjhRXqMJQvWArIUO9Nt9k8n7LlS
5AC2gBiVvdenuc4gBlz+knkswKj7fNb4xhnEc89PZB4LOFjEvZ1ywZtICn9C
5rGAy9sW3nwf6EPMyUgn81jADj2ZK/ljfQndjngyjwVw0uxT5n7yJSrmLCfz
WMBX2XVTArxnEt131MzaWRYweK3tvXfwTOJ/n5JsJA==
"]]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.009166666666666668],
AbsoluteThickness[1.6], CapForm["Butt"], LineBox[CompressedData["
1:eJwt2Xk4VN8bAHBEv6gQyVJklyjG7Ns9s1gTSirtNbRJixa0aSdaVNKiqKjI
t4WSVBxvWUpEoagQss5IK+353bnxRz3nGfec857P+77nzsNCttZ/qZqKioob
+Y/y/wHqRwqnt0StTOmS4xDdjTNV/0hBsDrjVptcjq+/vdhc9kMKz/Y+HD/r
vRw/WX3swpx+Kfg/qLj2+YMcF94TnMr6LIVSy0cL7n2W4wOlacWVvVKwu5Lt
dK1PjmlHH9nmyKWwJeCgVfl3Ob5hkoEXd0jhvvVs7ujfcjw0yO1gbYsU3hvr
he0fkGNmyLl4nUYpaDMKntgNUWChc+7jUfVSMNsQ6P55qAKPux3LflNNjuve
vevUUuCX340bVj2Vgs7iRWnDdBR42a9luUWPyPlGlu8N0FfgV4oHWuoPpXBl
zrxJyYYK7PJjq6lvvhQm5btKcsYq8CarxN4LuVLYzIwpOj1egc+HjIwayJLC
wRLLbB8rBc6pbCtf9p8UQkINhz+zVeAsv7H1dZfI/U1c+tx8ogInvs9K9T8v
he1/h6uLJinwkoxLDnVJUsjuHp42yVmBx+z8sX5pIjlWBF/vdiHn23g18k+8
FDapG9puZCowPxoLzsVJYSjDUuspW4Gv5DgVTtknhflboud+5SqwivJnpxS2
1kkN5XwFFq1wGsBbpCDzniu6LlTg5e8L8mM2SUHvZdkLEVLgyPj/OHPXSSEu
4ljdBZECr/f9vp61SgrlTjluz8UKPGPixVXjlkmh9u9k8yqJApta3bAcsUQK
l9rUlp+RKnAVx/iUxnwpEC1OJixXBQ5Z1Vo+bLYUzn+9zT1Hjt/f08IG/lJ4
bJZY8pIcz7U7tsbRRwr5i54WNJDj61mRjVM9pRB+Z6FlNjmWz8JaEVIp/LTx
+jKDHOuaBPVnElJw+++gcwm53u7bfEUrVwoubY+d1cnx1bZxDGOmFNJWJ0/R
Jfe3P33ocx9nKRzz0IrqJuMZ+/f7g50OUhiyXqc8nox3cdeXoTdtpfC55ypt
CKHAC5Z9O9diIYXgvNZsqUCBR0YOOaRjKoUZtVne03nkeZgaVfKNpFAiMhxw
4CjwgVnMoGX6Usj5Y1BRQ3rMsZo3NV5bCjbDr930pCtww57Y2FxNKYxZ2XAz
jvQcHQkmDepSiDG8WHGa9FalgMj8GaOuEk7mw4WxnlzLXxKQL/09dbydAn97
cqpU0i+BRo1DtxLJfFLT/py+5JMEfPtv01+R+fagbUZjVI8EROyIp91kPjL9
8LKkTgncfPxs5yMyXxf60FxzWiVwMfOhz3oynwVvr26qaJSAUeNUhlxbgSvV
ab9a6yWgtXgtw4msBwNcUPutRgJR9Im+Yg0FHjV8htrwKgmsm719l7kKuZ7i
455xTyTQVr6isuKnHNsuPjnHsUQCdUd6GO5kvYpWuO/hgQS8Lw+7fZCs79R1
Wb887kvg8+1xhce75fhte0zBzFwJ7Fq5v8j/nRx/f1TxOChbAv3g/bC0QY67
x+wwXX9VAtPyl93/+EKO86pT7u9Ml8CJea+uP6uU46BfDmnxqRKAlLSzyx7J
cccR29qUZAk821ey92ahHHsmHPa9fkoCZbpoec4dOd6tFqyHEyRwBem6ht6Q
46Smy+MrD0tgrR537OvLZL+xmx3eFCuBcbF3e/4ky/Hsxo1jPuyVQHba0by6
4/LB+pGAo+xB1PID5Hzx311GbZVAfLEnurZLjlsOLLxhGS6B+id2PzMi5Nik
j7aJESYBzU0Lb8xdLcdO5ev3uodKwLyoZ+FDmRybaVs0Bi6XwPjb1cOaZ5Px
Fgh2rJJJQN1b99qtqXJ85HVJSNQCCTzfe8lbKJbjUcH5544GSiBadqxtG1OO
18w1N7s0g5yv7WXEens5vlTwqT3PVwLnNTdomJnK8Z1Dzt8qvMj1a5Yd2qEr
x5efNExvcZXAHNFNnZND5Hjtxv6+PiSBI9NnHgzu78Y81y15WnwJMD+ZjXvd
1Y0nfQleM54lgQrNprru193Yc1euIYMmgVlnjhUmVHTjg71rcjwdJVBzSVBT
V9CNv/MOuy6wk4CbfYNe7vVufGDZ6MdhluR524RFTT5HPh+miqJNJTCQ9MtA
HN+NJ8+beSXJiMyP2K2v3keR61vr/u+GvgT2f/z4mLGmG6+toAUWaUvg7rN5
bQYLunHFjHtn6zQl0GSf73DUuxv737tSq1CXQN+vUecuc7v/+ahIQMVjATHL
rhu/sC4wG/1LDH+1UjTPj+7GNRNanCf0i+GDR63KXtVu/HN4KEvwSQwv/gxY
qfV2Ya/KBU7TesRw1dFig8nrLgxrc8cGd4ohopbdW1HShRd/3PQrolUMrD5p
onF2F7addrbyQKMYug67rVA524XHxNsnnqsXw4ELguW7orvw5GumfrdqxGA9
yf7Y2XVdeG1m5O/SSjFk0YZ3T5/bheuiecmvy8Qw+UbrqgvSLrxCEkTrLRbD
+Us3TA44dmHzxs95qiAGdYP1fdoGXTgmYQrf4L4Yxlh1phn/6cQWqeWFE3LF
ENNX/vRkWyfuHRbuLsgWw6KD5htiyzvxh0deVX5XxXCysy2hN7sTW711nxuU
LgbG/4ydH53sxHG+qzvDU8VAU+R76G/vxLZjCsLjksVwPOHZ6+olnbiPyRqW
ckoMs1QCujXcO3H/tfoz2QliiKJ5bLhq34kdoi7SSg6LYZhdZmTpiE6ccPl0
WX2sGPqat/2Y8aEDO9vlBfXsFYProsK+gOcdg/Ujhu8XwlaX3ezAarSwFP2t
YtC+krA4O6EDc+4NR3bhZDwbbapGbOzAqWeqWnhhYpCp2919M6MDEy/yo31D
xXAh8JSZGb0D6y6vmSRbLgZJ2OaBmlEdWH+6ft0mmRjcfZ/M+/OhHU9J2LY7
doEYrn2Ioyc9bce5k3SckwPFEDnzfnRmZjv2Ny9/mzVDDJd2zJs5OaYdW6/K
OlrsKwbmmlXnbILasb12oVu9lxgmWCiCjxDtWKb57ZfClYz/1OtLa4zbccX8
wJwBROZDLVcGX9qwVVvKan2+GM6EeQ5d9bQNm22NtrVjkecx0v3vjMtt+L6F
zlsejTyPKy5Ttka14d91nJO+jmKIk2rLm2e24ZbkIX4yOzE8aqhv3OvYhldu
WDs03JI8r43HbJarteHEwG0FsaZiMBvBfxBT9w4H+UzcmGwkBm5qdVbHf+/w
y+mbJ2bri2EKe87XPTveYcXSlc3F2mLwL688sMj/Hb4Y+zOxXlMMvgvpEZut
32HVAkfvHnUxiD9G5z7vax2sHzLeXWVeK0pb8UX/jTn6v0SgPuqXs/BEK5bn
xK6w6xdB/bmxodOWtuIXtqJx/E8iOD/J4dcFeiuWZZys8u0RwZJ79k001Vac
wD2yW9YpAj13QwOVyha84rU9M7xVBPjZl3MjklpwU1xwZ2yjCObMLYyavbQF
/5wiOp1cL4Le1s3ZzU4t+K5JwZTsGhFEhlhxMn40Y5Ofr38VV4rg28f7etcf
NmPz7tNX68tEEBouFX+Oa8ZlnT/m9xSL4PXPu0Ub/ZuxQf/PESogAl7U+CSm
cTN2yq7N178vgmlR67vG47dYkotD7XJFkPT91BDs8RZ7a9wdx88WgdOqm/vc
qpqwT0pRhe9VEdBe4jW5AU1k/2vaJksXwR4uxrr1jZh/XXNSeKoIxIlZmwLm
NGJrG7fG2GQRTO1OTNhV34CHdRw5lHxKBPeYa4xOzWzA7z72CLMTRBC9hat+
6tkbnOs2p7f4sAhu3Pk2a5fXG7yr7UVKfawIGO8zdAPgNXZ7KvPr2SuCMWN9
aLrM14P1I4IAcVve7fRX+Na2a1n6W0UgX7Qm3dXoFV4kXbXELlwEneGK3/nR
9VgtgKvHDxMBN3reXbMvdfjcdcMi31ARfDyEG1YuqMMuM4ZulC0XwfdDo5en
lLzEhWINm3CZCFZGLwjMd3iJXbeMfhm7QASOEaeziuJfYPhNj0kOFIH/4sdr
cz7VYkZZECd7hghqxfLEw9NrcerbtO5iXxHkjB2w9L9Rg4eKvibVe4ngw/uh
hgNaNVgmD5ja4yqC/Xmq6xODq3FeU8mfASSC7Vs/0A3yn2PfY8Ib+nwRFI7O
7TQc9RyHbbm52I4lgvkyvhE76Bk2P2mtx6eJYO7jv3HtwVV4XldCka+jCPIZ
6m8T/zzFFmtUNsnsRLBbM8Zxx5EKvGFCiG24pQi0PGI2XDAtx/6Gz+tiTUXQ
36Oe8/tiGc7nMWOTjURw4NfA+yO2j/HNYyd42foieLA+0mJhailmjO9TFGuT
+/Nf4xtsVILFzdOS6zVFUJHUsjFtfxF+8+KKb4+6CLK9q4+P/fJgsH5EYLtU
dL1iNuDggssyu34E8ytn7169ugC/fedR4tuD4ESa/Zlb4+/hdRve2YW3Ivjo
1X95VWkuHhu6OS65HsHcBwWXEpfcwk1PNd8XVyIYNlrFKaj1Bs49ddyvpxjB
ZY8t36PkGTijwvim/n0ER0zl6VFvLuAbK0+P5mcjMHI4t6U4JBE/W6sfIUtH
sHj3zBKfB1ux5tuYV7HJCFROWzvPboki5t7p52cnIDi4fJuQHX+CePh9EZl/
CMxcdodNeJJKSNKKyHxDkHF42sLnQZmEzh/rILtwBMPFFr+jR2QT86fGlPiG
kuuncbonfsshHI7K7cJlCM6vWRNe+ymP2FbuG5cciECQ+jBtz+98wvvXrZ5i
XwS655I4Zw8AkWJu4tfjisDTImjtj/MPiTD+rmx9PoLOOl74HFxMPPbu1ufT
EFx5aOGT/66USJnuHy6zQ1DbYvjVYlQZ0T81vz7WFIEl03RVnHs5USm042fr
I3iVT7vZt+cpMcE6gfRCcD1yZllQWRWhRvkg2MxwDQwZ/pxY/Hw16UNApns7
3ZpVTQhONRT79hAw6suhiLfBNcTZgKmkDwFnuYTV2ZO1xLahBbHJ9QQwTfpZ
cytfEE3XJvcUVxIwNPH2TWPNOgKmXPDtKSag/cq2E6896gnrxtHZ+vcJ6Aj0
bj0b94rQWhqrz88mQDPV4sTi56+Jda1/N8nSCZi2byDbZlwDMXvmpvrYZAKq
1NqZPSGNxIOCHl52AgGuJtUWOQVNxJWxS5PrYwlQX/buHqHVTIxZ2zQwsIOA
lgMtRhfvNBP0CYEyu3ACrpvMvb16eQtBu/O82DeUgBHXi0wGjFsJnXHepA+5
vruZV2BVK/F0VnFsciAB6a0rRZtj3hFrlgtJHwJa91xWkUnaiB6fXN8eVwLu
2dfG6qm0E35aTqQPAYzaz2/ioJ04ejad9CHD3qP27cmeDuK2ujnpQ4Aqe8ib
aq9OIldyivQhIODD15hUvS4iaZYu6UOOr9b94TZ1EYtF+0kfAl6t/k9w+mo3
8a9+CNjLWOcK2+VEdGIE6SOEoAEbgxvTFcQHlQ+kjxBKKyuuL53QQ7Aky0gf
IbSmBo9qU31PLJlDtt96IRzZ+l4wsek9EeIeQPoIoSFwOY1T0EsEaJaTPuTz
vOrekec+EOapYtJHCBm6J++9EH8kynXzSB8h8KOFsv23PxKBMyeHy9KFYBY1
vzdl4ifi8dqLpI8Q/L9/WWh84RMxZrEJWT/k/F+H5Hwz+ky42x4hfYRwecPB
99xjn4mAhxpk/QihcuOh4c0jvhBfpm4lfYTgN7a0eHLsF6Ks6SPpI4SFcX1V
If/7SjRGkPHIhPD2wdhJx2O+EhOMGkgfIXx4wGnI1OwjrhdOJ32EEBE3tfH6
oT5i9ZpHpI8Qto+d7Xxev59YYS0kfYSgsSnwRdSZfuJsy03SRwgjT06rmGLz
jRh+eQLpI4SEXchAPfsbkRNGlrupEM4wbLIyie/EcVeyfegLwTxLNZmo/E7c
NCPbkaYQXL7Wvilc9IP49/1UCJaq50Inf/lBHOsi222/ABgvF/nF7f9JLKhX
kD4CyN9guLdm/C9CVkVeR60CKHpVoqV19xdx4Wkd6SOAWcNWvZsU8JsYW+ND
+gggYGCoNvr0m6h6W0T6CKABn44THvlD5H/hkj4C6HG3mmNP+0u8084ifQSw
8WTaZrXav4QrzZb0EcDWLJOex5EDROvcs6SPAH55ugZiHRV054Ae6SMA9ZTw
d9rBKqi0iMy3WAF4zL5oOOuuCtIdMkDWjwCebHz6NUFHFc1xI+MJF0D4k+0a
35apoqBoMp5QATg5imuvFaoiWikZj0wAA6cNl+QZq6EidXK5QAFU66teHbNJ
DY2WkNv3FcC9039yHj9XQw5R5HG4CuCWw8htlU5DkNpd8nrhCwDKnFQnxA9B
Zz+T8dAEULdhqeuLD0PQz4nk9HYC6Le/7vZyujoylpHbNRWAS4+mhsNtdfT7
JBm+vgAi7kXurjHWQBcqyOPUFEDF8Z8FVTs00L/6EcDmrfF3xndqoIku5HT9
fOhdzV5b5DcUjQkit9fDh3Whn9vu3R2KSo+R4bbyYUgEGA21+R/iPiDjqedD
+qELWpeO/g+F9pLxVPIhMCvx3smB/6EgE/L6KuaD8duzE5rWDEOmbuR27vOh
y/hOQOTbYejUGjK8bD48XtxGLJuuiepPkPGk8wFuWXemF2uiVwVkPMl8uKMX
6SPkaqGz78hfT+DD0+1NYbY3tJDVMDLfYvnQ+nV2QJDtcBTioHzf4cOYyLav
X1KGI2dfMp5wPpRmiqcYGI9AjmFkPKF8WOk8yVs9cQRadJz8WMYHFc30b6A3
Ej26o/ThwwHGDT/vYyPR8jdKHz5o3XKbkaavjYQDSh8+bN8bolZ2Qht5WZHx
8PnQlmG6IH+sDjrgQQ5pfEDmi4K2p+ogjVClDx+8Np3UijbQRbeU5W5Knu8e
d27OXF2UdFvpw4eh+fnCsvO6KPe10ocPqaY/DUs6ddG/+uFDe8bfR+lOo9AB
G6UPD8IXPPEJixyFpngrfXiwg7/gisXDUUgcpvThwYDkzuu8EXpo9UmlDw++
b6hvYQXqoWcFSh8erKoEfOaiHgppIx8v5sEc/3VhnZ/0EG+40ocHDwY6fhiL
9JHIRenDg9SX1oH0eH0UNUfpw4O/L+0P0t/qo487lT48qFXpTzRxHo3OZih9
eGAdELupa9dotPUZuXwsD74+ezcxuXY0Ov5dWT88YERo5HImGCBQtv9wHkSY
enc3bzNA7Z5KHx5MTBp18n61ARpYp/ThwdL3gYWP7ccg3dNKHx6MNrSQDds9
Bhk/UPrwQGQYsmPLmzHIqFvpw4P293TD8SxDpD1Kebw8GHomyr7/qCH6wVH6
8OC82ZTcgV5D1LBY6cOD3MgTBXwfI3RbWe6mPPC8EoQyrxqhfcr2oc+DGVnZ
fO+RxshHeZyaPGg4tPOm2VrjQR8eWEqepVlXG6Pbyun6uZBecV5nAcsELfFT
+nDh+KTPfY/OmCC1CKUPF7SXFs9aqjYWJaUoJ+TC7/WGLsyQsWhCqdKHC8tn
K2LYNWPRtfdKHy7M0BMFhgrHIXsDpQ8XbqYZpNVkjEMpAqUPF6KHh65YbWCK
1IOVPlzo9pJmcPeYoqUHlD5cyFx4Rsb5bIru31T6cOGv18aTK2VmaJgy32K5
UDy80v1pjRnyUQa0k/w8LWNdkPt4dEDZ/sO5kLH6jfPse+PRU2U8oVy435Ly
vNvQHOkq45Fx4UF1Z1DoDHMUoIwnkAuKWE+/W/Hm6Iyy/H25YPW/Bwm4why1
Ko/DlQuxU6bTDmtZoEnK64PPBdWAH3aWXhYoUjmkceGU1d2ILfstUIlyejsu
TLt7xPzkYwukryx3Uy5YGuy0jNS0RMHK8PW5oMuO2W7qbYlyKB8umI+/TIs5
ZDnY37iw/mkDcfuZJZpJ+XDggdjhUvpoK5Sp3F4PByZsOxq8cI4VUlOG28qB
5G0621+lWKH5yuOr54BQeqnXqN0K5Sk5Kjnwrcr/7jhHa2SgfLyYAxWWRo1t
G6zReuV27nOgiN83JyzfGtUo23c2B6pN5E4PNWwQUxlPOgd+FvYvrPOzQaeU
x5/MAU+HsZ1ZSTborzLfEjiQMX/2Y98OGxSsXD6WA04B/6llu9iicuWfS3Zw
oGyU4Ym6HbaIoYwnnNzPaP/2uqe2KFkZTygH7Bv1ZzwaZ4eGKj+WcSAwZP7b
S6F2aLVyuUAO7Mt3iNtQYIdeKLfvy4G7NbtmOOtMQELKhwOvbyzkNyyZgNKo
9sSBkdMfiiNuT0BalA8H+HeuLlPVskdhlA8HlrWaZm5ZZI+Ut3WsKQeSqg1G
vLttjwjKhwOPY44f5I2ciNIoHw58UE1y2LV04qAPB+aJbbtz8US0jPJhQ7wb
t+SNkQOqoHzYkK9dU/hhgwNyonzY0H32S/3nKgeUSPmwQfdjkm67oyP6Tvmw
gRhWtqw0zhEtoHzYsL59+5sT3Y6okPJhQ0rM3TWzvCYhqn1ns+FJ71ZzjcxJ
KJryYcNfk5KPqcMnoy7Khw3WIxLfOq2ZjKYqfz2BDf4PFT3/PZ+MrlI+bNgu
LDMyZDkhHer7Nhsyt08KCjvjhNZRPmxYPL9hS7uKM6qhfNjgdUzjz2mGM6JT
Pmw4uViP83KFMzpB+bDB95GaY1KyM/pG+bAhuPRlfXu1M5pD+bChacFh4u4w
GrpP+bDhziH7BaMRDZlRPmz4PjOD8W0TDe2kfNhwIVerZMk1GmqlfNiQcWOa
dkA7DblSPmwYLd6iW2nqgi5TPmzoCIkpr5rlMujDBvGkSDTniAuiputnQUPM
1NCQJy6olPJhQd0Wdf8hGnRkS/mwgDP0/EcrER3FUT4s6LMf71mxlY56KR8W
mHTsCvx9h46ox4tZkMp7bJHzlY6odnufBUftPqd9oTEQ1R6yWdB8daDp3loG
iqR8WHDkycdqzesMRLWvZBZc3lmyo7mHgYSUDwtsqra3E45MdJ7yYYFarrG6
TSgTUd/ndrJAwjz95thVJgqmfFhQFLE5KO49Ez2ifFiwKYOdMNKJhRwoHxaI
HtWEjAtjoUOUDwtotT7y3Fss9JHyYYFb1aVRjf0sNIPyYUF03pvmwzw2yqV8
WNAe/2F2RRQbGVM+LJDNbAlPLGKjrdSBsmC4ZrZQPoyD3lI+5PlmLrz6xJeD
RJQPCyp48oesRA66SPmwoCVvxq7JDZxBHxZ42pzpzLbioiDKhwmZO6APVnER
tb0eJrAeF/03L4eLqHBbmdDy96Lm7j9ctJ/yYUKWVbAOw4OHKI5KJpxnqRaE
HeUN+jAhj71Nj9/AG/RhQr/tC50jdnykR/kwYZ76iNvrNvDRBsqHCc1V5mqN
hXz0kvJhQlys/rfaEQLEoXyYEEBrSwicK0BJlA8T3B8dq1+eIUB/qP7GhOne
40vUvgkQdT2Hk8+De4SFuxA9pHyY0GBfOiI/UYhsKB8m8GOS91W3CxG1XCC5
3/qKlmAWgeTUATBhqVmAxYYYAvlQPkwwCKS7/qknEHW8fHK/+0KmDHFA//KN
xoSa9B/0fdsR2kT5MKGpoFllzzOEXlE+TPjzLj7w7ygRoq5ffSYYBc2z/MEX
Ieo61yTjaahupC0ToX9/32ZAjF9/XMYR0aAPA57kl9gvuC/6l289DDCxFt/z
6xAh6rptZcD2fSsEO0eJB+uHAb3N/KxegXiwfhiwnHXf4MwKMZpG+TDg876O
0H3HxSiH8mHAgaqC29dAjAwpHwY46Is/6r8Xoy2UDwPqp60bl2csQQ3UgTHg
1H5vXpK75F+/TmDAsnvVXvc2SFAq5cMAQYeGt9EFCRpK1Q8Dxo9oF+ZUStAK
yoccm57/uee3BJVTPgwgtJbP2T5R+q9fyxiwpYY793ygFMVTPgx4FWn0pyda
ir5QPgyY+VNNEnRbimZSPgz4PvvHhCFtUnSX8mFAztFf2RV6rmgs5UPuN12z
sVDsinZQPgw4cdoqs2Gd62D9MODuci9jq/OuSEz5MODvqK0TE6pcB/sbAxae
ymt0HHAdrB8GqP1SpX+c7DbY3+hwhTt7YuNCN0S9vvTQISQgr+jLYbfB+qHD
NG+bAXqh22D90MHfLKUh+YMbUlA+dNj21HI+zdz9X74V0wEH3treO80dXad8
6GAHfuIXu9wH64cO/w35frn9pvtg/dBhltXV6+Pb3FEt5UMHk/GhgXsMPBCb
8qHD/76xL+p6eKBTlA8dtP7TOfYo0gP9pOqHDhz+F4uMTA80l9owHfzetNul
NnggTPnQQbdQHnFJ2xNZUD502N2hqndT5Il2Uz50uDrdof/Rek/UTvnQYb/K
cuvOi55oCuVDPv8l56xOnSe6RvnQYYq9wSKxphfSoXzoIEmLWbWN74U2UgdK
h6bFIx7Caq/B+qGDoyxNpn3ea/D9gA4u6VN9llZ7/cs3TTrInYbtLlGfMuhD
h42/X6g4sacMvh+4QOyI3LILK6f8y7ceF/BZnNFgenYKolE+LlD+7So3rXIK
OkX5uMDf6qJmmqo3+kv5uMDLTz3Py+jeaCnl4wJBARNGrlrmjZ5SPi6Q+XPT
MYPT3siF8nGBc20vlpSVe6MzlI8LiPQ8t0b/9UbqVIG6wPE9FU1TaVNRCOXj
Apc4QQfHBU9F1ZSPC8yljdjbd2IqElD14wJFqx+V1JVNRRcpHxdoYc5NvfF7
KtKi3q9dIP15bMhKJx+0hvJxASvxLDMNmQ+qoXxcwGNvYcHu4z6IQSWoC5if
KfFsLfVBCZSPC1zet6LQ6ocP+kL5uECdNMPCw8EX+VE+LnD/xd61Uxf4okzK
h5yP/zeDHu+LNKj3axfYuXF05W/wRfMpHxcI2/WoKf2zL7pF+biArszwDcPa
b9DHBbaPUS9Km+mHZlA+NIhIOXTia7Qfukj50MDi562Zdnl+6KuyobbSYL19
hIqg2w9JKR8acE+s8jYeOQ3FUz40OKUacnCfzTTUQBUUDUpfsopahdOQDeVD
gwqD6g/Os6YhweFRmyfk0uD3lU/VPrJp6P/H7rB7
"]]}}, {{}, {}}}, {{}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], DiskBox[{0, 0}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[10]], {{{-5.3257,
0.}}, {{-5.3257, 0.}}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[10]], {{{-15.9,
0.}}, {{-15.9, 0.}}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[10]], {{{-30.9,
0.}}, {{-30.9, 0.}}}]}}, {{}, {}}}}, InsetBox[
TemplateBox[{
GraphicsBox[{
Thickness[0.00893415527561869],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGCwBmIQ3RtcojLd3s5hs/mPQylZmg4+J9htZy+1c0iJvePG
vEPL4YZ0TaLRVDuHGTOBQFLbYcn9fXxzgm0ctjs0PTr+Q8vhDAjssXZYr/qk
ed5bbYctIHO0rB2eJC68ZuKv42BiDATJVnD+fxBYbwnnF6zpvp3xwMJhSntr
1OU72g4ga2ZaWsDtA7sn1BxCi2o59IHce9/MITUNCNo04HxdRfkvOdPU4PwN
enmLGW1UHEDOOjvLHOLOOUoOySB/nbBwUL72KJghRsnhhtAnx/Nt5g7V93/c
Ms5WcIgQ336RIc7c4UD3viaTx/IQ93iaO/REdPszCiD4b9pyu42k5eB8sD+D
ZRwOti0PPzXJ3EF+14J9qX7SDl933ur6G2rhUAM2X8rB7+LEmH+fzRwUQPJ5
4g7TJvBXme02g7jvjZiDxNQrnBlNZg4PXOMdZ00UgfPB9swUgvNlNorNZ1rA
6RCj4Pgx+Y25g32JY+3pOYwOPV6vWEw+WsL5HzYEZM8Kt4Hz7YHRNsPaDuLe
zbxwPtg/s8XgfLD79aQdePzXT0mtsHWIUY2QORcjB5GPtoHzwfF3wRLOB/vj
jwWcD/bfbAtIvMvLw/mw8Ibx9+TXvJ15VcFhIyje9lg4rBXS4UvXU3TwBsW7
qiUkPB4qOkSC4sfO0sF5QrNQGpeSwxdQ+LpC+VJKDqBkkRZm6VAJMt9aCZLO
6i0djMFAyeEzKDymW0Ls11aCpnMEv57laL9huhWcX7JV9PdpO2uI+44qQdLh
U2uIezYqQ9OVjcOpw05rM/epQOL7q42DLyiemdXgfEh4q8P5XuB0reHA46Za
yvTKxkFu+QsPvf0aDhpvefcZnLSB50f0/AkAMzmeWg==
"], {{
25.814099999999996`, 13.6141}, {26.89529999999999, 13.6141}, {
27.626599999999993`, 12.7234}, {27.626599999999993`, 11.3734}, {
27.626599999999993`, 10.339100000000002`}, {26.959400000000002`,
9.625}, {25.989099999999993`, 9.625}, {24.924999999999997`,
9.625}, {24.2094, 10.4516}, {24.2094, 11.674999999999999`}, {
24.2094, 12.898400000000002`}, {24.796899999999997`, 13.6141}, {
25.814099999999996`, 13.6141}}, {{26.5609, 6.478129999999999}, {
28.357799999999994`, 6.478129999999999}, {28.978099999999998`,
6.1125}, {28.978099999999998`, 5.07813}, {28.978099999999998`,
3.7125000000000004`}, {27.7219, 2.6953099999999997`}, {
26.053099999999997`, 2.6953099999999997`}, {24.670299999999994`,
2.6953099999999997`}, {23.7172, 3.5046899999999996`}, {23.7172,
4.6812499999999995`}, {23.7172, 5.3968799999999995`}, {
24.129699999999996`, 6.0484399999999985`}, {24.7656, 6.31875}, {
25.020299999999995`, 6.445309999999999}, {25.4656,
6.478129999999999}, {26.5609, 6.478129999999999}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIdIGYCYt+LE2P+Ods7PM/S/jZdVsthi/mPQym3EPz5
NjpXZtk5wPnFW0V/n3ZzcNDXWil84YkmnD9jAn+V2Wl1OF+4clLJ2SUKcP6O
YKuI/+6yDu6qpUyzHBwcvuz7uDX9moxDA8vRfsPv9g6tCuyqZ7bIOGzRy1vM
aGPvIALS34Lgv2nL7TaaLeXA479+SqqBg0OMaoTMuT1SDjelaxKNUh0czoCB
lIP5taO5JjMQ/PrfVgXnDuDm/47JPfpvlyPcfBgfZn+P1ysWk0BHuPvkHT8m
n/nq4JCaBgTPZBxmgsBHqH/EZOF8mP9h/E0gf8iowfngcGfWgNjn5Ohw/mrY
G/3Z0PBchuBXRKwwPfsYwU8H2cvn5JAQEqS+QFPTYU337QwGfScHA1B8qGg4
XMyPZz8XieBvANmb4+Tgc4LddvZXbQdvEB3q5MDC2SWfrKfjEFyiMv2/gZPD
k8SF10z8dRz218papPMg+Dtvdf1NPe8I54Pt73OEhp+2g33To+Mzkh0dzG32
Bk1j1Ib7b84i5Z1/nmvA+TD7wObdd4Cb93lDQPascgcHH1B4LNaGhC+vg0PA
LVDEajvA0ifMfPT0CgBoEj14
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1,
4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJeKK32pHne2VUuDk8SF14z8ddxuJwfz36u0RnO318r
a5G+xcmh9rdVwTkOTTj/TfFW0d/eKnB+wNvLH2cslHdIOHxZOzXT2WFnsFXE
/3ZJhxOaVpNO57vA+T1er1hMVrrC+XUgczvcHJwnNAulaSnA+WD736vA+TNm
AoGlpgOImnnQFe4+dPfrTljww7DNxUF86hXODCdth0SQexxd4XyHpkfHZ5x2
dcjM/9B6UkQDzn/gGu8466AynA92j5SCw0a9vMWMKa4O/0FgvjTEnv0ucD7Y
f9+d4Xyw+wqdHUoPb3OdeVcBzn8UIb79YoIqnP/3W+mDOYaaDibGQHDZGe4+
dPcDAL4pwwE=
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIAaxQYAJSjNCxZiR+AxobFxqkMWJYZNqPrXcQIl6
YtwAANeLAk0=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4vbl4aeMzng5sHB2ySfr6ThcyI9nP7fTy+FJ
4sJrJv46DstfeOj9D/Ry8Lk4MebfYm0H82tHc01eeDoE3JKuSTTSdthfK2uR
XuPpYG6zN2gaI4L/PEv723RZLYfjmlaTTh9H8ENKVKb/l/CC83u8XrGYKHo5
6GutFL7wRBPOnzGBv8rstDqcfwYE5ijB+TNB4KUiRJzFyyE1DQjYFB0ixLdf
ZLjm6VB9/8ctY28FB5bFk6wY53o6yO9asC/1nJxDZcQK07PRng7qn1Reznop
6zD5G1v8DB4EX+iT4/m0ox5wPtg/PR4OMaoRMufmyDlUgPRneziYGAPBZXmH
nbe6/qb6e0Dsy1ZwCAb5z8HDwX3N0eUMGYpwfvnhba4zzyrB+bDwLt4q+vu0
ngc8vNd0385gOO4OD++boGCOdYeHd+Lhy9qpH93g4Q3jw8JzCsg/Nu5wPjg8
+hB83QkLfhhOc4eHN4wPC28Y/46m7Jr/xUpwvvOEZqE0KwUHialXODMWuUPC
o0YO7l5w+D+TgYTvZ3eH9UI6fOn/pOD+BYcnp5QDKyg+tiL4rqqlTLMEPOF8
cHpL9ITE6xuo/hmeDiKVk0rOtsjA4x/mHhgfFj/gcJQHph9wApGFp7c3bbnd
RrOlHBJA4bUQmp7OSDnkcP5ckL4YwQfbfxDBTwf56x5uvsqT5nlns7zh5sP4
MPfuAKUPcW+HVgV21TNbZBzu7+ObY3zJy+HLvo9b06/JOMDyHzi9WMjC+cIg
/UsUHNDzJwDBuJoy
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIIaxWZDYzFDMAOUzoLFxqUEWJ8YcYswk1V5i9NLa
jwDSKwJB
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJzIGYC4oqIFaZnb/s5vGnL7TaaLeVwVNNq0ulwf4cz
YCDlcCE/nv1cJIK/v1bWIr0GwQ8pUZn+fwZu/hvefQYzhQLg5sP4IpWTSs62
yEDMv+jv0KrArnpmiwxEX4+/w5d9H7emX5NxmGujc2VWm7+D+5qjyxksZOF8
YZD+JQpwvgfIYcfV4Hz55S889Oq1HEq2iv4+Lebv8CRx4TUTfx0HlSfN884a
+cH5XzYEZM967gvng+3f4+ugqyj/JUdMx+HuPr45xpN8HX68fX3Aslnb4QNI
/Xcfh83mPw6lZGnC+SycXfLJejoON6RrEo2e+sDNE/nkeD6t1sfB5+LEmH+L
tR3smx4dnyHs4xBwC6RQ2+E4KLyXezuY2+wNmsaI4D/P0v42XVbLwcQYCD4j
+HtB4e/iA+dP+cYWP8PHx0Ffa6XwhSeacP6MCfxVZqfV4XxYeMH4O4KtIv67
Q8PTzQce3gmHL2unMvrA40Pe8WPymaXe8PiC8WHxaX7taK6JgY9DjGqEzLk9
Ug5rum9nMKT7wON/KTAa/i9E8FkWT7JivIvgb9DLW8wo4gvXn5oGBPN84ebD
+DD7VUHx5+QLd5/PCXbb2X8R7ofFB8x/MD7M/zC+GSi8E9Xh/OO7dvSyXdCA
+K/W1+HEYae1mXFakPT5E8G/D0oPTX5wPiz/zFmkvPPPcQ04PyP/Q+vJEDUH
9PwFAL4FlSs=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQLe4R8EficKDDFvMfh1K8tB0OX9ZOlewKdFir+qR5
Hq+Ow0wQyA10eJK48JqJv45DhPj2iwxeCP5b3n0GM/UQ/Pv7+OYYiwU6nDjs
tDZTTsdhw8OXUzf9CXAQ6fF6xbJF28EYBBYHOBwHydtpOXQDhU0yAxwSQoLU
F3hqOnzeEJA9yznAISX2jhvzDzU43/fixJh/zipw/vtF6xXO7lB0ALs/PsDh
738gsJd3eLF9PfPzCQEOrQrsqme2yDhcPZpr0rA5wCFCNULm3B0pB385sSzf
xwEO6p9UXs7ilHIQ/uR4Pk01EM6Xd/yYfMYSwQc52yQw0KHm/o9bxt5SEP+F
BTpUgPjdUhD/HA90cJ7QLJRmpQAJv0OBDm/acruNZks5PBaRPfn0c6BDDMj+
PVIO7cvDTxmxBDmcAQMph/21shbpAgi+ptWk0/USCD4oGs6qIfjSrx+ZSdkE
wc0D+8cZKr9GChI+4Qh+cInK9P85QXD3wPgilZNKzrbIQPxjFwQPL7B+6SCH
L/s+bk2/JgN3z45gq4j/7rJwvjBI/xIFVPfKGDnsvNX1N5U/yMG+MmKFqa2R
wxtQ+ngU6JAMjk9Dh/x49nOSBwMh9lw3hKSPgkCH60LAiFiG4OtrrRS+YGLo
sLWl5sLmlQg+KJr/70bwYekXbD4Hgg9Op30GDujpGwDb803L
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQLe4R8EficKDDGRDIUXGA8ZWvPQpmiFFyyI9nPyd5
MNDBeUKzUBqXkkNlxArTs5sDHcI5xdqN/RUddt7q+ps6PdAh4O3ljzMWyjvU
rNuWVJ8a6KD6SeXlrJWyDltbai5sNkXw25eHnzK6EwDnS79+ZCY1J8DBfc3R
5QwdinC+1Lw4zdMBqnD+nEXKO/8c13BY3X07g+FygIMMSP6ClsNb3n0GM/UC
4fxur1csJqEIvo3OlVnPagMd0tNAQMuhFuS+hYEOf96+PmC5WNNhwoIfhs+2
BTr8/Vb6YI6hJtz/MPtg/FSQ9jYEHxZeAJv9kKs=
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4uZAz7kN24Idum08d6V9UnSA8UPeXv44o1He
4erRXJOGzcEOM2aCgKxDgJxYlu/qYAf5XQv2pfJJO7QvDz9l9CDYYQ5I+qek
wxMR2ZNP2UMcdgZbRfxvl3Tg+LkgfbMZgg+W343gN4Hskwp1eNOW2230WxbO
d57QLJQmpQTn88cG3DcSV3YQ+eR4Pk0w1KET5N5Lyg6R4tsvMvwLccjM/9B6
skTF4dOGgOxZj0McHkUAJRxUHUAUw6EQB4mpVzgzFqk6aFpNOl2fEeJwBgR0
1BwK4tnPSYqGOLBwdsknr1NzAHvzZ7DD32+lD+YEqsP5cxYp7/xzXAPOP3HY
aW1mnJZDj9crFhPZEAdxkPlO2pDwiUbwd97q+ps6H03+cohDC6//+imqWnC+
x/5aWYvlGnD+q+Ktor9fqztURKwwPfsewQe7+0OIg//FiTH/Dms6KDh+TD7z
McTBHaS/Xcvhxfb1zM+/hDj8ePv6gGWztsOa7tsZDPtDHHQV5b/kiOk4pIHA
rBCHJ4kLr5n46zhsePhy6qYCBJ8TFF+/guH8dJD6TVB+vxacb2IMBJvV4XxY
eILpE8EOKbF33JglVB2+gOLjO1Q+R8VBwiPgj4RwiMOMCfxVZtwqDiElKtP/
e4Q4fFi0XuFsh7LDg318c4z7QhzCOcXajfmV4eml/PA215l7lSDhcz4EEv9C
CH4pSP6uApxfc//HLWNvOYcDwGBJnxMCSc8PpR3aQOk1BMG30bky6xkngg92
z5VgSHqUloPzhSsnlZxdogDno+cXGB8AZep5vw==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4h9s8TN85oY6TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw4QFPwyf7Qt1UP+k8nIWp5RDj9crFhPeMDjfTbWUaZYKgh9SojL9
v02Yw5u23G6jaCkHCY+APxLOYQ5nwEDK4YmI7MmnxWEONfd/3DLWlnPg+Lkg
fXNamMPf/0BgLw+x3zfMIUY1QuZcjJxDpPj2iwx2YQ4VIPXccg6cIPVaCP6a
7tsZDMwIPti8T6EOvRHd/owB8nA+f2zAfSNzRTgf5v8X29czPy8Jg/OPXNZO
lawLcxCfeoUzw0kbrv7Pt9IHcwQRfI/9tbIW7jpw/pT21qjLc3QdFBw/Jp/5
GupgarM3aNpBPQcbnSuznv0NdbgtXZNolGrgsLWl5sLmj6EOy1946P2faODw
DeTfm6EO+lorhS+EGDioPWmed3ZXqAMoOP7LGzgEyIll+c4OdWDh7JJPfqfv
4FXdrO8zL9Sh5tOGgOxfehD5+VD18Qj+i+Ktor+zdeH8gFsgB2g7MIBAQKiD
zwl229miWnD+ZvMfh1KyEOkBFh4AdaPuxA==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQYXwh0euMY7zmJUcJiw4Ifhs1PhDm/acruNZks5
BJeoTP/PE+FwBgww+ff38c0xlkLw/eXEsnzlEfz1D19O3WQR4RCjGiFzbo+U
Q826bUn1qRFw82F8kcpJJWdbZBzkHT8mn7GF8pfIOAh9cjyfphrh0KrArnpm
i4yDMIivGOHgvubocgYLWTjfeUKzUJqWApx/4WrYG/3fqnD+fxCYr+Xwhnef
wcxv4Q5PEhdeM/HXcXBTLWWa1YDgv9i+nvl5CILftjz8lJFOuIPPCXbb2V+1
HWaCAGu4Q82nDQHZVtoOIGrW+TCIvKkWnG+gtVL4goqGw5HL2qmSr8IcXhVv
Ff39Wt0hABQ+38Mc5ixS3vnnuYbDBlD48IQ7pKeBgJaD6pPmeWfFwuHuBdvn
iuB/Y4uf4bMUwQe790y4Q+At6ZrEIk0HWHyycHbJJ/epQezLDoeHB1j9gzCH
E7t29LIZqDqs6b6dwbA8DBL/G5Xh/PLD21xnvlWA81NBznsmA3HftTAH9U8q
L2dxSjlIeAT8kVAPh/PB8WWJ4HP+XJC+2SvcYQbIH5ZSDgqg+A0Md6i4/+OW
cbeUA3r6AwDoMygu
"], {{95.25, 8.670309999999999}, {
94.78909999999999, 8.018749999999999}, {93.7875,
7.4156299999999975`}, {93.1672, 7.4156299999999975`}, {
92.53129999999999, 7.4156299999999975`}, {91.975,
8.003129999999999}, {91.975, 8.687499999999998}, {91.975,
9.274999999999999}, {92.29379999999999, 9.831249999999999}, {
92.77030000000002, 10.132799999999998`}, {93.1672, 10.3719}, {
94.04219999999998, 10.593800000000002`}, {95.25,
10.768799999999999`}, {95.25, 8.670309999999999}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4sOXtVMlX0U4TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw/5TC123cUc6qH9SeTmLU8rBuTvn+e9IBP+IwoaijEIEP0+o+cCp
zkiHN2253UbRUg4yUSnW9/sjHc6AgZRDgkCE5ZYDkQ4193/cMtaWc3gTuEOu
dXOkw9//QGAv76BuyLFGZlakQ4xqhMy5GDmHTseEpxe6Ih0qQOq55RyKMya+
rSlH8LXbxW6e80fwi0Dy9pEOvRHd/owB8nA+f2zAfSNzRTgf5v8ae9O4XQeR
+CLr3B+einQQn3qFM8NJG67+z7fSB3MEEXyP/bWyFu46cP6U9taoy3N0HTaf
KNs33ynSwdRmb9C0g3oOy2YDQ8gr0uG2dE2iUaqBgxcPk3a7XaTD8hceev8n
GjisdX9YJaIW6aCvtVL4QoiBQxif7qa57JEOoOD4L2/gIP36kZnUiwgHFs4u
+eR3+g7iHgF/JF5HONR82hCQ/UsPIv8mAqI+HsF/UbxV9He2LpwfcAvkAG1I
PMyJcPA5wW47W1QLzt9s/uNQShYiPcDCAwBojvfP
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ7f6wSmRdf7TD3/9AYC/vcF7p9s+6pmiHA937mkwe
yzscUdhQlOEY7eC65uhyhgpZB5funOe/NaMdUtOA4JmMQ8uBUwtd/0XB+Rl7
SiZL7EHwy/fNl9JvjXJYI6TDl75PziFBIMJyS0aUQ/nhba4z3yo4+Jh3OiaE
Rjk4T2gWSvulCDHPL8phLUj9PSUH/ySgBp8oB11F+S8521QcXLZ9/nvlAYL/
5e+Vipdq0XD+8tlAFwdFO7Bwdsknn1NxABn/dEa0w5xFyjv/qKs6BOyQa309
M9phJhioOtSIrHN/OCva4dfb1wcsHyP4BlorhS+4qMH5Z0DgjaZDOJ/uprn+
0Q5PEhdeM/HXcWAJAwrcjYLznywFOmAHgm9vGrfLsyfKQR9k3hNthy0nyvbN
T4pyMLfZGzRNUdthjUxUijV/lMMfkP2LNR0EmoEB8DbSYcYE/iqz1epw/pT2
1qjLMSpwvvK1R8EMMUoO64syJr79E+kgXDmp5OwSBYcVHy/5JklAw/uenAMP
k3a7mGOUAyh6/9dLw+NjZ7BVxP92SYftwOCsuIjgHwc6T+o7gg/2t0y0g/on
lZezOKUcPEAGukU7yO9asC9VTxoSnonRDiFvL3+c8VDaYc775ce8y6MdWhXY
Vc9skXFgB3mwOtrhy76PW9PFZB3Q0xsA7agjQw==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQveLjJd8kh2iHX29fH7B8rOrwJnCHXCt3tIORMRBc
VnXw752eJ/Q5ymGL+Y9DKadUHTx4mLTbzyH47g+rRNbNR/DL982X0m+Ngutv
OXBqoatflMOFq2Fv9H8j+DWfNgRkV6k73AdZEBTlcPoMEOhoOITz6W6aGx/l
8ChCfPtFBk2H9UUZE9+WRDmkp4GAlkOCQITllgVRDuJTr3BmOGk7bP/890rF
RQQf5l4YX/+uClsjb7TDdoemR8dvaDnotIvdPCcf7TClvTXq8h9Nhwlva+xN
zaIdju3a0cv2QcMhIsX6vr9ttIPvxYkx/5g1HNDDBwBQm4mn
"]}]}, {
Thickness[0.00893415527561869]}, StripOnInput -> False]}, {
ImageSize -> {111.93531257783312`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {112., 23.}, PlotRange -> {{0., 111.93}, {0., 22.59}},
AspectRatio -> Automatic}],
GraphicsBox[{
Thickness[0.007054176072234764],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBWIQbd/06PiMbGsHXv/1U1IljBy+77zV9VfU2kH9Le8+
A0sjhxvSNYlGT60cboJoVyOH/DXdtzM2IPjh4tsvMugh+P3BJSrT51s6/AcD
Q4cvIPNcLR22mP84lDLL0IHLTbWUKcrCIQKkr8/Awe/ixJh/j80dPm8IyJ7F
buDwJHHhNZP15g4PQAoW6MH5cxYp7/zTrgPnB9wCWajtkAYC08wcfE6w2842
1YLzf719fcCyWROu/g+IvxjBF66cVHJ2iQKcvyPYKuK/u6yDiTEQLDZ3+LLv
49b0azIOdb+tCs5JmDu0KrCrntki4/AiS/vb9FgzBxGQ/hYE/01bbrfRbCmH
A7WyFulfzB3OgAEm/9Rhp7WZcRZwPjiY9iP4y1946P03tHSIUY2QObdHyuE5
yH35VnDzYXyY/eD4m20Jd1+31ysWE0FLuPvB8cJqCfcfjA/zP4wPCx99rZXC
F65Ywfl/vpU+mPPRysEfFN5B2nD1sPCH8VtACeipLpx/XeiT4/ljBpD4trJ0
qAWFo4UhxH+KVnA+OL30I/j1IPqGlUO0guPHZBlDB5UnzfPOWlnDzYOl18eg
cLiP4MPSLwAYsEa/
"], CompressedData["
1:eJxTTMoPSmViYGCQAWIQfaRtefgpJjsHXUX5LzliOg4R4tsvMtyzdXiSuPCa
ib+Ow9QJ/FVm2rYOG/TyFjPO0XZYcn8f35xgG4ft5j8OpWhpO5gYA0GytYPE
vDjN0x+04Pz1qk+a5/FqOXC4qZYy/ULwz4DAHBtU/hobB5Eer1csVzTh/AtX
w97o71aH84UrJ5WcXaIA5+8Itor47y4LsXeBjcOXfR+3pl+TcUhNAwIxG4dW
BXbVM1tkHKaD3B9t7SAC0t+C4L9py+02mi3lsPSFh97/jzYQc89g8hNi77gx
R9jC+U+ztL9N34ubv7dW1iI9xB5uPowPs1/9Le8+g5l2cPeVbBX9fZrPDu5+
WHzA/Afjw/yPHl8AwpXMQQ==
"], {{29.421899999999994`,
17.618800000000004`}, {28.945299999999992`,
17.618800000000004`}, {28.532799999999995`,
17.206299999999995`}, {28.532799999999995`,
16.729699999999998`}, {28.532799999999995`, 16.2688}, {
28.945299999999992`, 15.854700000000001`}, {29.4063,
15.854700000000001`}, {29.867199999999997`,
15.854700000000001`}, {30.296899999999994`, 16.2688}, {
30.296899999999994`, 16.729699999999998`}, {30.296899999999994`,
17.173399999999997`}, {29.867199999999997`,
17.618800000000004`}, {29.421899999999994`,
17.618800000000004`}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIdIGYC4gaWo/2G3+0dnmdpf5suq+VQvFX092k3Bzjf
/NrRXJMZCD6P//opqQscHPS1VgpfeKIJ58+YwF9ldlodzheunFRydokCnL8j
2Criv7usw/19fHOMZzk4fNn3cWv6NRmH29I1iUahDg6tCuyqZ7bIODxNXHjN
5L29gwhIfwuC/6Ytt9totpTD8hceev87HRxiVCNkzu2Rgrh3n4PDGTCQcriY
H89+7iOCLz71CmeGlCNO/pRvbPEzRJzg5sP4MPvVnzTPO7vKEe6+nbe6/qb6
OzqkpgHBMxkHYxDwdoT4R0wWzof5H8bfpJe3mFFGDc73vTgx5h+zhsNkkH1z
HB3OXw17oz8bGp4MTnC+8CfH82m2CP5/EEh3ckgICVJfoKnp4K5ayjSrw8nB
ABQfKhoO2Zw/F6RvRvC9T7Dbzj7q5OADor9qOzwBhed6JwcWzi75ZD0dhze8
+wxmdjlBxP11HCLEt19kSEPwg0tUpv/XQPDB9j+HhZ+2w01Q/O11dDC32Rs0
jVEb7r85i5R3/nmuAefD7AObZ+EIN6/H6xWLyUUHBx9QeCzWhoRvuoNDwC2Q
wdoOsPQJMx89vQIAbxouwQ==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4vk2OldmuTk7dNt47kr7pOgA44e8vfxxRqO8
g7tqKdMsB2eHGTNBQNbB/NrRXBMDZwf5XQv2pfJJOyx/4aH3f6azwxyQ9E9J
h4TDl7VTXzo77Ay2ivjfLumwpvt2BoO7C5yfCJIPdIXzF4Ds43NzeNOW2230
WxbOd57QLJQmpQTn88cG3DcSV3Y4UCtrkf7H1aET5N5Lyg4+J9htZ191dcjM
/9B6skTFoe63VcG5Ba4OjyLEt190UIXIx7o6SEy9wpmxSNXhDe8+g5mrXBzO
gICOmkNFxArTs8wuDiycXfLJ69Qg4mecHf5+K30wJ1Adzp+zSHnnn+MacP6J
w05rM+O0HDbq5S1mFHFxEAeZ76TtYAEKnwkIPo//+impEq6o8g2uDi28QAlV
LTjfYz/QY8s14PxXxVtFf79Wd+jxesVishPBNzEGgt2uDv4XJ8b8O6zpcFO6
JtFor6uDO0h/u5ZDDufPBemHXR1+vH19wLJZ2+HLhoDsWeGuDrqK8l9yxHQc
0kCAz9XhSeLCayb+Og5/YnKP/tvlAueD4+u8M5yfDlJvB+X3a8H5YHdsVofz
YeEJFs92dkiJvePGLKHqUA+KjxNQ+RwVhxOaVpNO/wempwn8VWbcKg4OTY+O
z8h2cfiwaL3C2Q5lB1C0MXxzcQjnFGs35leGp5fyw9tcZ+5VgoRPBTT+hRD8
UpD8XQU4v+b+j1vG3nKQeBdyhaTnh9IOK0DptdEFzhf55Hg+7a0znA92T7Mz
JD1Ky8H5wpWTSs4uUYDz0fMLjA8Afgd1CA==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4pASlen/Fdwdpk/grzLr1nSA8Y1BIFkBzr/v
Gu84S1DGoW15+CmjFHcH9U8qL2dxSjnU/bYqOMfgAed/2hCQPUsfwefxXz8l
NcHD4U1bbrdRtJTD5G9s8TNyPBzOgIGUg96EBT8Mz3k41Nz/cctYW86hMmKF
6dnNHg5//wOBvbxDMMj+Bg+HGNUImXMxcg7iU69wZiR5OFSA1HND1Vsj+Adq
ZS3S37jD+RUg+dPuDr0R3f6MAfJwPn9swH0jc0U4H+Z/82tHc00ueMD5b3j3
Gcx85AGx10kbrv7Pt9IHcwQRfI/9QIvddeD8Ke2tUZfn6Dose+Gh9/+iu4Op
zd6gaQf1HB7s45tj/Mjd4bZ0TaJRqoHDxfx49nMn3R2Wg9RNNICE9wx3B32t
lcIXQgwcNurlLWaMcXcABcd/eQMHlsWTrBhl3R1YOLvkk9/pO/yKyT36T8nd
oQYU8L/0IPKqUPXxCP6L4q2iv7N14fyAWyAHaDukgUCbm4PPCXbb2aJacP5m
8x+HUrIQ6QEWHgDA+u7p
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ3bo8/JRRjp/D3/9AYC/vcCE/nv1coJ/Dge59TSaP
5R2+bAjInnXe18F1zdHlDBWyDrW/rQrOLfB1SE0DgmcyDgmHL2uneiL4LIsn
WTEe9YHznyQuvGYS7uOwRkiHL32fnIPOhAU/DOV8HMoPb3Od+VbB4QPI/O/e
Ds4TmoXSfilCzHvp7bAWpP6eksMN6ZpEo6feDrqK8l9ytqlAzOXzhfPf8u4z
mDkLwb+7j2+O8SdfBxbOLvnkcyoOc210rsyq83OYs0h55x91VQcX1VKmWQ1+
DjPBQBWiv8nP4dfb1wcsHyP4BlorhS+4qMH5Z0DgjabDBr28xYxvfCH+8tdx
ML92NNeEA8EH+3+vD5wv8MnxfFqqj4M+yLwn2g5LX3jo/Rf0cTC32Rs0TVHb
wcQYCLK9Hf6A7F+s6QCKhv/q3g4zJvBXma1Wh/OntLdGXY5RgfOVrz0KZohR
cpgP8p+bt4Nw5aSSs0sUHHxOsNvOrvWGhPc9OYc13bczGM57Q/TVS8PjY2ew
VcT/dkmH45pWk06/R/D/xOQe/WflC+eDw7vN10H9k8rLWZxSkPRx09dBfteC
fal60g6uoPAU8HMIeXv544yH0g45nD8XpFv7ObQqsKue2SLj4ND06PgMZz+H
L/s+bk0Xk3VAT28A3pEhjg==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQ7XOC3Xb2WV+HX29fH7B8rOpQEbHC9Gyyr4ORMRBc
VnX4E5N79J+Rr8MW8x+HUk6pOlzIj2c/99IHzm9dHn7KqAfBf5K48JpJuA9c
f8Lhy9qpL70dLlwNe6P/G8Gv+bQhILtK3WHGTCD46O1w+gwQ6Gg4bNDLW8zI
4+PwKEJ8+0UGTYe5NjpXZpn5OKSngYCWg+6EBT8M+3wcxKde4cxw0nY4rmk1
6fR7BB/mXhT5dF+H7Q5Nj47f0HLYWytrkd7j6zClvTXq8h9Nhx6vVywmO30d
ju3a0cv2QcNhz62uv6nHfR18L06M+ces4YAePgAM2I4f
"]}],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZiR+AxksEk1hxj1lJhJLb2UuBMA
8t8CMw==
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJjIGYC4uASlen/WwIcZswEgkpVB+FPjufTRAMd/oPA
fi2H60dzTRqkAx22OzQ9Ov5Dy4Hj54L0zWqBEPWS2hB15gj+/X18c4zdMPnP
s7S/Tf+r7aD6pHne2U8BcP6Ghy+nbioJcNgAkshVc9h5q+tvqjpUXlbLQfr1
IzMpiQAHmXlxmqcvaDm82L6e+TlPgEPNpw0B2VbaDlO+scXPuOLv8CRx4TUT
fx0HV9VSplkv/BzeFG8V/b1a20EFbJ8fxP03tBx8TrDbzpb1d5izSHnnn+Na
EPc5+cP9u6b7dgZDvr8DC2eXfLKflkMOJ9DDzf4OG/TyFjPe0XSIyT36b5N1
gENG/ofWkyEqDjz+66ekevg7uK45upyhQtZh6QsPvf+W/g6paUDwTMbhA9CZ
s+T9HUQqJ5WcbZFxMDEGAm4EH+ZedP4ZMJCC6J/uD+fLO35MPrMU6t56aYfl
IPtW+juEvL38ccZBaQeJqVc4Mw4h7P8DcvAjqP41cg5bW2oubGYMcOi08dyV
pqQACU+OAAeQs4yTFSDhHRLgsPLby4ozDcoO4PRxIMChVYFd9cwWGYcI8e0X
GQ5B+VNkHMQ9Av5InA5w6I/o9mfcIO3gLyeW5Xs5wEF+14J9qXzSDrtB8Xk7
wOFNW2630Wwph8WTrBh9BQLh/kHn167bllQvieB/BvlfGTdf02rS6fqIQLj5
MD4sPMHusw+Eu79/wQ/DZ0ZQ+SMy8PS8I9gq4r+7LDy9g82zlnNAzx8ATHt7
EA==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYo6fC9I3MwU7JIQEqS/wVHeA8eWWv/DQ26/h
UBmxwvQse7DDetUnzfN4tRxebF/P/Fwg2CHglnRNopG2Q/vy8FNGL4IcfE6w
287+qu3grlrKNOtIkMOTxIXXTPx1HCYs+GH4bBaCf/iydqpkFoKfH89+TtIw
yEGkx+sVyxZtB+nXj8ykvgQ6yIPsr4fatybQYbtD06PjEpoOxiDQHuggC5K/
rwbnG4FoYRU4/4FrvOOsifIOj0VkTz59HuiwM9gq4n+7JMS9BUFwPtj+pQi+
8CfH82kfgxxiVCNkzu2Rcrh+NNek4XeQQ39Etz/jBmm4/2fMBIKdspDwYgt2
OAMCa+Qg5j0MctgBMi9d1kHbatLp+gNBDl/2fdyafk0G4p7ZCP6a7tsZDNoI
PticB4EO6WlAoKYI5+8A+T9CFc6Hxc/nDQHZs4SDHOYsUt75Z7kWxP/5CD7M
PhgfrP9MkIO+1krhCyxaDuIeAX8k7gdB/GOp6XB/H98c42dBGOkBxgcA3hr4
8w==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQnZ4GBJ+CHVg4u+ST9XQcvrPFz/B5GezwJHHhNRN/
HQfhT47n07YGO/hcnBjzb7G2g7bVpNP1DcEOAbekaxKNtB3e8O4zmOkV7GBu
szdoGiOC/zxL+9t0WS2H9uXhp4wKEPwX29czP5+B4IeUqEz/PyfYQV9rpfCF
J5pw/owJ/FVmp9XhfOHKSSVnlyjA+TuCrSL+u8s62OhcmfVsZrDDl30ft6Zf
k3HYeavrb2p5sEOrArvqmS0yDq6qpUyzPIIdRED6WxD8N2253UazpRy8q5v1
fdYFO5wBA0x+bO7Rf5uOI/gF8eznJB/i5k9Y8MPwmVsI3HwYH2a/zOtHZlIS
IXD31azbllT/FeF+WHzA/Afjw/yPHl8AAavKxw==
"], {{79.05630000000001,
17.618800000000004`}, {78.5797, 17.618800000000004`}, {78.1672,
17.206299999999995`}, {78.1672, 16.729699999999998`}, {78.1672,
16.2688}, {78.5797, 15.854700000000001`}, {79.04059999999998,
15.854700000000001`}, {79.5016, 15.854700000000001`}, {
79.93130000000001, 16.2688}, {79.93130000000001,
16.729699999999998`}, {79.93130000000001, 17.173399999999997`}, {
79.5016, 17.618800000000004`}, {79.05630000000001,
17.618800000000004`}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4h9s8TN89oY4TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw4QFPwyf3QtxUP+k8nIWp5RDj9crFhPdUDjfTbWUaZYLgh9SojL9
f0yow5u23G6jaCkHCY+APxLJoQ5nwEDK4YmI7Mmnk0Mdau7/uGWsLefA8XNB
+ua2UIe//4HAXh5if26oQ4xqhMy5GDmHSPHtFxniQh0qQOq55Rw4Qeq9EPw1
3bczGJQRfLB5QqEOvRHd/owB8nA+f2zAfSNzRTgf5v8X29czP5+C4B+5rJ0q
OS/UQXzqFc4MJ224+j/fSh/MEUTwPfbXylq468D5U9pboy7P0XVQcPyYfEY0
1MHUZm/QtIN6DjY6V2Y9kw11uC1dk2iUauCwtaXmwmbBUIflLzz0/k80cPgG
8u/PEAd9rZXCF0IMHNSeNM87eyvEARQc/+UNHALkxLJ8d4c4sHB2ySe/03fw
qm7W99kX4lDzaUNA9i89iPx+qPp4BP9F8VbR39m6cH7ALZADtB0YQKAgxMHn
BLvtbFEtOH+z+Y9DKVmI9AALDwCKk+oK
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQPWHBD8NnSeEOf/8Dgb28w9aWmgubQ8MdDnTvazJ5
LO/gplrKNEsk3MF1zdHlDBWyDj1er1hM/oY5pKYBwTMZh9p125LqLyL4AXJi
Wb79CP6BWlmL9IgwhzVCOnzp++QcnojInnxqHeZQfnib68y3Cg6uIPM1whyc
JzQLpf1ShJinGOawFqT+npLDzltdf1Plwxx0FeW/5GxTcWAAgS0I/pHL2qmS
vxB8G50rs56phjuwcHbJJ59TcZB5/chMKifcYc4i5Z1/1FUdCuLZz0nmhjvM
BANViP68cIdfb18fsHyM4BtorRS+4KIG558BgTeaDqpPmuedVQp3eJK48JqJ
v47Di+3rmZ9vCIPzwf7vRvCvHs01aYgPc9AHmfdE20HB8WPyGdMwB3ObvUHT
FLUdQMGU9ijU4Q/I/sWaEHsOhDrMmMBfZbZaHc6f0t4adTlGBc5XvvYomCFG
CeK/C6EOwpWTSs4uUXD4tCEge9brUEh435NzWDLJitFXJMwBFL3/66Xh8bEz
2Crif7ukw4aHL6duWoLge1U36/ucQvDB4f0hzEH9k8rLWZxSkPQhGe4gv2vB
vlQ9aUh4moY7hLy9/HHGQ2mHpkDPuQ1e4Q6tCuyqZ7bIOLzl3Wcw0y/c4cu+
j1vTxWQd0NMbAFoVG9Y=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/WlDQPYs4XCHX29fH7B8rOrA+XNB+uZ7YQ5GxkBw
WdXBq7pZ3+dYmMMW8x+HUk6pOmxtqbmweSGCP2HBD8NnRQj+gVpZi/QIhP7a
dduS6hXDHC5cDXuj/xvBrwFZXKXuMBMEVMMcTp8BAh0NB9UnzfPOGoU5PIoQ
336RQdNB5vUjMymPMIf0NBDQcngiInvyaXGYg/jUK5wZTtoOGx6+nLppCYIP
cy+K/IMwh+0OTY+O39ByWNN9O4Phc5jDlPbWqMt/NB2EPjmeT+MMdzi2a0cv
2wcNBy2rSafrBcIdfC9OjPnHrOGAHj4Ad4aOoQ==
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQ3Xzg1EJXs0iHLeY/DqV4aTt8Z4uf4fM3wmGt6pPm
ebw6DmdA4EGEw5PEhddM/HUcur1esZjsRfAVHD8mn1mI4At9cjyf1hnhcOKw
09pMOR2HxyKyJ5/mRziI9AA1btF2SAMBsQiH4yB5Oy2HA7WyFul3wh0SQoLU
F3hqOoCsPbst3CEl9o4b8w81ON/34sSYf84qcP77ResVzu5QdPCsbtb3uRTu
8Pc/ENjLO0i/fmQmxRLh0KrArnpmi4wDx88F6ZvVIhwiVCNkzt2RcmgK9Jzb
EBbhoP5J5eUsTikHV9VSplkzEPzgEpXp/9cg+PtB7jsS4VBz/8ctY28piP9O
RjhUgPjdUg73/Xun51lFOjhPaBZKs1JwiEyxvu9vGunwpi2322i2lMOJsn3z
pdIjHWJA9u+RcmiY6tydUx4JCdczUg53VNgapzYj+PuB0bGtG8F36c55/nsm
gj/n/fJj3usR5nnwMGm3b4PKr5FyaHdMeHrhFIJ/peKlmuEDhHtgfJHKSSVn
W2QcjihsKMrYGAkPL/4Iyy0n+iIdvuz7uDX9mgzcPTuCrSL+u8vC+cIg/UsU
UN0rY+SwGeThpkgH+8qIFaa2Rg7Pf6/8eCk00iEZHJ+GDvamcbs8TSIdPm8I
yJ513RCSPh5HOFwHBewyBF9fa6XwBRNDh/VFGRPfykTC+atlolKs9RF8WPoF
m8+B4EeIb7/I0GfggJ6+AYAoWoc=
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQ3Xzg1EJXs0iHMyCQo+IA4ytfexTMEKPkYG8at8vT
JNLBeUKzUBqXksPTC0q3f6pFOoRzirUb+ys6bD5Rtm8+V6RDwNvLH2cslHdY
//Dl1E03IhxUP6m8nLVS1uHF9vXMz1cg+Dtvdf1N9Ufw/eXEsnz5Ixzc1xxd
ztChCOdLzYvTPB2gCufPWaS8889xDYf7+/jmGLtFOMiA5C9oOSg4fkw+sxDB
318ra5F+AsHPj2c/J/kxwiE9DQS0HF6qGXKsEYl0+PP29QHLxZoO6kCujFak
w99vpQ/mGGrC/Q+zD8ZPBWlvQ/Bh4QUAE2yNbA==
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4hp707hdmtEO3Taeu9I+KTrA+CFvL3+c0Sjv
IN/6OnCHWrTDjJkgIOvgwcOk3S4X7SC/a8G+VD5pB/Y1MlEpwdEOc0DSPyUd
/Hun5wlVRzvsDLaK+N8u6RCwQ6719UoE/3jZvvlS+jFwPksYn+6m3hiHN225
3Ua/ZeF85wnNQmlSSnA+f2zAfSNxZYfvwY+Xzm6JcegEufeSssPb5ce8zQtj
HDLzP7SeLFFx4I+w3HIiLMbhUYT49osOqg6lIOtMYxwkpl7hzFik6rD/1ELX
bbejHc6AgI6aw3ag8wI7oh1YOLvkk9epQcRzoh3+fit9MCdQHc6fs0h555/j
GnD+icNOazPjtBxWfLzkmzQh2kEcZL6TNiR8ziH4W04APSwUgyrvFuPQwuu/
foqqFpzvsb9W1mK5Bpz/qnir6O/X6g6xuzx5mJIR/PKXaoYcKTEO/hcnxvw7
rOmwwHXb579AvjtIf7uWw5Ols48oZMQ4/Hj7+oBls7aDOCgAjWIcdBXlv+SI
6TgINB84tZA3xuFJ4sJrJv46DlOcu3OeP46G86+fA4ZwLoIPVq8K5fdrwfkm
xkCwWR3Oh4Un2H020Q4psXfcmCVUHdodE55eyILK56g4tACVu7YB09ME/ioz
bhUH/ySBCMs90Q4fFq1XONuh7HBEYUNRBmOMQzinWLsxvzI8vZQf3uY6c6+S
w3ml2z/rnKDxL4Tgl4Lk7yrA+TX3f9wy9pZzCAUmn7n8MZD0/FDaoX4q0MPH
o+H8FmDylqtF8K9UAD3gEQ1Jj9JycL5w5aSSs0sU4Hz0/ALjAwAplm+S
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4i9/r1S8FIt1mD6Bv8qsW9MBxjcGgWQFOP++
a7zjLEEZh57peULNFrEO6p9UXs7ilHLgj7DccqINwZ/wtsbedB6Cb3Pfv3f6
tliHN2253UbRUg4v1Aw51uyJdTgDBlIOundV2BrfxjrU3P9xy1hbzmG7XOvr
wAexDn//A4G9PMT+Y7EOMaoRMudi5BxC+HQ3zd0e61ABUs8t52BrGrfLcwmC
/z348dLZNQi+PUg+J9ahN6LbnzFAHs7njw24b2SuCOfD/O/Bw6Td/g7Bd39Y
JbLue6yD+NQrnBlO2nD1f76VPpgjiOB77K+VtXDXgfOntLdGXZ6j69Aw1bk7
Jz/WwdRmb9C0g3oOBRkT39aUxzrclq5JNEo1cBC9ee57cHasw/IXHnr/Jxo4
1Iisc38YFOugr7VS+EKIgYPC7Z91WSaxDqDg+C9v4LC+CGiASKwDC2eXfPI7
fQeZqBTr++LA8Pu0ISD7l56DaadjwlMJqPp4BP9F8VbR39m6cH7ALZADtB1m
zASCkzEOPifYbWeLasH5m81/HErJQqQHWHgAAKrM9zQ=
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQPWMmEHjGOzxwjXecxajgILLO/WGVS7zDm7bcbqPZ
Ug429/17p7fFO5wBA0z+hrnvlx+bjOCbdjomPJ2B4P9Z+fGS76Z4hxjVCJlz
e6Qcjpftmy91H2E+jC9SOankbIuMQ/1U5+6c7VD+EhmHJxeUbv+cF+/QqsCu
emaLjEPsLk8eptnxDu5rji5nsJCF850nNAulaSnA+Reuhr3R/60K5/8Hgfla
DlcqXqoZFsQ7PElceM3EX8dBnCWMT/dXHJzvwcOk3X4OwX/+G+iBpXEOPifY
bWd/1XZYIxOVYl0f51DzaUNAtpW2A9D33uaeUHlTLTjfQGul8AUVDYf9pxa6
bkuOc3hVvFX092t1SPgUxDnMWaS8889zDYeWA0AFbXEO6WkgoOWwAhhcSRPi
4O4F27cfwf/yF+gDOYR/wO51i3cIvCVdk1ik6QCLTxbOLvnkPjWH9UUZE98+
iYOHx3lgcNZFxTmc2LWjl81A1aE2a0/JZIU4SPxvVIbzyw9vc535VgHOTwU5
75kMxH0BcQ7qn1RezuKUckgQiLDcsgDBB4f3ZgTf1jRul+eROIi7LKUc2EEe
Oh3nUHH/xy3jbikH9PQHADE9MKY=
"], {{125.14999999999998`,
8.670309999999999}, {124.68899999999996`, 8.018749999999999}, {
123.68799999999997`, 7.4156299999999975`}, {123.06699999999996`,
7.4156299999999975`}, {122.43099999999998`,
7.4156299999999975`}, {121.87499999999999`, 8.003129999999999}, {
121.87499999999999`, 8.687499999999998}, {121.87499999999999`,
9.274999999999999}, {122.19400000000002`, 9.831249999999999}, {
122.67000000000002`, 10.132799999999998`}, {123.06699999999996`,
10.3719}, {123.942, 10.593800000000002`}, {125.14999999999998`,
10.768799999999999`}, {125.14999999999998`,
8.670309999999999}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYp1Nc98v10twmD6Bv8qsW9MBxjcGgWQFOP++
a7zjLEEZh591WXtK7BMc1D+pvJzFKeVgfd+/d3oagv975cdLvkUI/gWl2z/r
6hIc3rTldhtFSzksP+Zt3tmY4HAGDKQcTi903fZ5ZoJDzf0ft4y15Rz6D33V
iJmc4PD3PxDYy0Psb0twiFGNkDkXI+cQu8uTh6k+waECpJ5bzuGyb5JARCmC
r39Xha0xEU0+MsGhN6LbnzFAHs7njw24b2SuCOfD/B9uueVE2SwE//riAluu
+QkO4lOvcGY4acPV//lW+mCOIILvsb9W1sJdB86f0t4adXmOrsPnv1cqXkYl
OJja7A2adlDPIfs5MITiEhxuS9ckGqUaOOyfL6V/NyLBYfkLD73/Ew0cgLZd
X+yT4KCvtVL4QoiBw2GFDUUZtgkOoOD4L2/g0J0DNEA3wYGFs0s++Z2+g2PC
0wtK+sDw+7QhIPuXnsP578GPl+pD1ccj+C+Kt4r+ztaF8wNugRygDVHHnuDg
c4LddraoFpy/2fzHoZQsRHqAhQcAoNP+Vw==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQbct1fXFBY6LD3/9AYC/vwKjdLnazKtHhQPe+JpPH
8g6/V3685BuV6OC65uhyhgpZB+v7/r3T/RIdUtOA4JmMw+2fdVl7LBD889+D
Hy8VR/CvVLxUM/yT4LBGSIcvfZ+cw+mFrts+v01wKD+8zXXmWwUHe9O4XZ5P
EhycJzQLpf1ShJj3IMFhLUj9PSWHA6eAGu4nOOgqyn/J2abisLtksgSLViKc
D+SF8fki+DnPgS5OSnRg4eySTz6n4mACNJ6nLdFhziLlnX/UVR0Of9WI6Qfy
Z4KBqgPQ97Zc7YkOv96+PmD5GME30FopfMFFDc4/AwJvNB2OKGwoykhMdHiS
uPCaib+Ow2yQgAaC3w1ygCiCb7nlRNm+/wkO+iDznmg7fP4LDJFXCQ7mNnuD
pilqO7xffszb/GCCwx+Q/Ys1HZRBAbAhwWHGBP4qs9XqcP6U9taoyzEqcL7y
tUfBDDFKDsDYSRLYkeAgXDmp5OwSBYd8oeYDp45Cw/uenMN8Kf27KrcSHEDR
+79eGh4fO4OtIv63SzqAgjNMKRHOBzlPzRTBB+tzT3RQ/6TychanlMN+kIEx
iQ7yuxbsS9WThoRnVqJDyNvLH2c8lHZIn/i2xr400aFVgV31zBYZh7kgD5Yn
OnzZ93FrupisA3p6AwDBey0b
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQnS/UfOBUZKLDr7evD1g+VnXoP/RVI8Y+0cHIGAgu
qzo4Jjy9oGSc6LDF/MehlFOqDvvnS+nfVUDwbbmuLy7gRPCvVLxUM/yTANd/
+2dd1p4HCQ4Xroa90f+N4Nd82hCQXaXu0AGy4FGCw+kzQKCj4XBEYUNRxssE
h0cR4tsvMmg6fLzkmyTwJcEhPQ0EtBxOL3Td9hlon/jUK5wZTtoOJZMlWMKU
EHyYe2F8A441MlEOiQ7bHZoeHb+h5aB/V4Wt0TPRYUp7a9TlP5oOyQIRlltC
Eh2O7drRy/ZBw+G4t3mnY0Sig+/FiTH/mDUc0MMHAKzTip4=
"]}]}, {
Thickness[0.007054176072234764]}, StripOnInput -> False]}, {
ImageSize -> {141.75865504358654`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {142., 23.}, PlotRange -> {{0., 141.76}, {0., 22.59}},
AspectRatio -> Automatic}],
GraphicsBox[{
Thickness[0.0061330880098129405`],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4htCnxzPLzNz6Lbx3JX2SdEBxg95e/njjEZ5
B9UnzfPOzjJzmDETBGQduNxUS5mqzBzkdy3Yl8on7fAiS/vbdF9zhzkg6Z+S
DjEKjh+T35g77Ay2ivjfLunwaUNA9qzlFnA+WH6PFZx/HWSfmY3Dm7bcbqPf
snC+84RmoTQpJTifPzbgvpG4soP41CucGUI2Dp0g915SdtDXWil84Yi1Q2b+
h9aTJSoO0yfwV5lFWzs8ihDfftFBFSJ/xcpBAqRvkapDyVbR36fzLB3OgICO
mkO31ysWE0ULBxbOLvnkdWoOJsZAsNnc4e+30gdzAtXh/DmLlHf+Oa4B5584
7LQ2M07L4Q9InaMFxF1O2pDwsbKE87eY/ziU4mUF53OA5KWsHVp4/ddPUdWC
8z3218paLNeA818VAx36Wt1hg17eYsYeBP8/CPRbO/hfnBjz77Cmgw+Inmzt
4A7S367lkL+m+3bGAmuHH29fH7Bs1nao/21VcO6ElYOuovyXHDEdh/Q0IDCz
cniSuPCaib+OQ19wicr0fks4Hxxf283hfJDytGlmEH6/FpwPCQd1OB8Wngwg
8MHMISX2jhuzhKrDDFB8rDaHyOeoOGi85d1nIGkBEedWcZCeF6d5+oOFw4dF
6xXOdig7+Jxgt53NauUQzinWbsyvDE8v5Ye3uc7cqwQJHy5rSPwLIfilIPm7
CnB+zf0ft4y95RyOg+LJzgqSnh9KOzwHpVdZSzj/ADDY0r+Yw/kyIPcomEPS
o7QcnC9cOank7BIFOB89v8D4AK/SXwo=
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQvfNW19/U+44Of/8Dgb28A8viSVaMRx0dDnTvazJ5
LO+g+qR53lknRwfXNUeXM1TIOmzUy1vMKOLokJoGBM9kHCZ/Y4ufsccBzje/
djTXxALB19daKXxhir3DGiEdvvR9cg5H2paHn1Kydyg/vM115lsFB58T7Laz
r9o5OE9oFkr7peig/pZ3n8FOO4e1IPX3lBwk5sVpnt5g56CrKP8lZ5uKw0wQ
aHSA8+UdPyaf4XWE84U/OZ5PS3V0YOHskk8+p+JwMT+e/dxHR4c5i5R3/lFX
daiMWGF69rMjxJyZqhD9Xx0dfr19fcDyMYJvAHK3ixqcfwYE3mg6PE5ceM0k
3tHhCYj213HI5vy5IL3aAc4H+98Awe/xesVistEeEg5PtB22mP84lMJl72Bu
szdomqI2xNw9tg5/QPYv1oSEm5mtw4wJ/FVmq9Xh/CntrVGXY1TgfOVrj4IZ
YpQcltzfxzen2NZBuHJSydklCg5/vpU+mPPQFhLe9+Qc9tfKWqS32DmAovd/
vTQ8PnYGW0X8b5d0+B2Te/RfkgOcrz9hwQ/DdQg+OJh+Ojiof1J5OYtTCpI+
fB0d5Hct2JeqJ+1QAQrPZkeHkLeXP854KO0w30bnyqx1jg6tCuyqZ7bIOBRv
Ff19epujw5d9H7emi8k6oKc3AK+iITg=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQXf/bquCcg6PDr7evD1g+VnVY3X07g+G6g4ORMRBc
VnXQnbDgh+EyB4ct5j8OpZxSdWBZPMmKMRbBL9kq+vv0P3s4X19rpfCFKfZw
/epvefcZ7LRzuHA17I3+bwS/5tOGgOwqdYcZM4HgpJ3D6TNAoKPhcPyw09rM
f3YOjyLEt19k0HRYcn8f35xge4f0NBDQckg8fFk7ldHBQXzqFc4MJ22H3zG5
R/8lIfgw96LI33Jw2O7Q9Oj4DS2Hz0BrZ/13cJjS3hp1+Y+mw/5aWYt0HUeH
Y7t29LJ90HB4A3TeTCtHB9+LE2P+MWs4oIcPADoCjb0=
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4jXdtzMY4l0dEkKC1Bd4qjvA+HLLX3jo7ddw
6PF6xWKS6eqwXvVJ8zxeLYcczp8L0qtdHQJuSdckGmk7LAMq+6/p6uBzgt12
9ldtB5Cys49cHJ4kLrxm4q/jsPNW19/UfgRfwfFj8hldBL8yYoXp2d3ODiIg
i7ZoO1zOj2c/5+jsIA+yv17LIRtk32Ynh+0OTY+OS2g6/AeBdCcHWZD8fTU4
38gYCIRV4PwHrvGOsybKOyQcvqydqunssDPYKuJ/uyTEvZYucH4FyP7FCP6B
WlmLdBtXhxjVCJlze6QcXFVLmWYFuDr0R3T7M26Qhvt/xkwg2CkLCa90V4cz
ILBGDuIfaVeHHSDz0mUd3vDuM5h5y8Xhy76PW9OvyTgkgtwzEcH/vCEge9Z6
Zzgf5A1jaWeH9DQgUFOE83eA/B+hCufD4qf+t1XBuQZnhzmLlHf+Wa7lwAAC
Fi5wPsw+GN8EpP+zi4O+1krhCyxaDic0rSadFof6x1LTIUJ8+0UGNcz0AOMD
ALrR8W4=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1,
4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJeKP1lQ0D2rO/uDk8SF14z8ddxWGCjc2XWOTc4v8fr
FYsJo5tD7W+rgnMcmnD+m+Ktor+9VeD8gLeXP85YKO+gO2HBD8Ntbg47g60i
/rdLOkz5xhY/Y487nB8hvv0iwzcPON/nBLvt7KueDs4TmoXStBTgfLD971Xg
/BkzgcBS0yENBPg84e5Dd/+vmNyj/y65O4hPvcKZ4aTtoAdyT58HnM/jv35K
qoSnQ2b+h9aTIhpw/gPXeMdZB5XhfLB7pBQc6kD+3uDh8B8E5ks7bNDLW8zI
g+CD/efiDueD3bfPzaH08DbXmXcV4PxHII8nqML5f7+VPphjqOnAAAIKCPei
ux8AwwS4MQ==
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIIaxWZDYzFDMAOUzoLFxqUEWJ8YcYswk1V5i9NLa
jwDSKwJB
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJzIGYC4oqIFaZno30d3rTldhvNlnI4qmk16fR1X4cz
YCDlcCE/nv3cTQR/f62sRfofBD+kRGX6fwk/nPwb0jWJRkv94ObD+CKVk0rO
tshAzA/0c2hVYFc9s0UGoo/Hz+HLvo9b06/JOMy10bkyi83PwX3N0eUMFrJw
vjBI/xIFON8D5LDjanC+/PIXHnr1Wg4lW0V/n57m6/AkceE1E38dB5UnzfPO
bvKB879sCMielY7gg+238XHQVZT/kiOm43B3H98cYyEfhx9vXx+wbNZ2+ABS
X+7tsNn8x6GULE04n4WzSz5ZTwfiv1RvuHkinxzPp/31cvC5ODHm32JtB/um
R8dnTPZyCLgFUqjtcBwU3upeDuY2e4OmMSL4z7O0v02X1XIwMQaCYgQfHP5H
EPwp39jiZ5zxctDXWil84YkmnD9jAn+V2Wl1OB8WXjD+jmCriP/usg7zQeF1
zAse3gmHL2unNnrB40Pe8WPyGVUveHzB+LD4NL92NNdkg5dDjGqEzLk9Ug5r
um9nMDz3gsc/KBr+K3rD+SyLJ1kxxiL4G/TyFjNO8YbrT00DAjkfuPkwPsx+
dVD8HfKGu8/nBLvt7FpvuPth8QHzH4wP8z+MbwYK70R1OP/4rh29bBc0IP77
6+1w4rDT2sw4LUj6rPSB8++D0gOTL5wPyz9zFinv/HNcA87PyP/QejJEzQE9
fwEAKpeNkQ==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQveHhy6mb/gQ4bDH/cSjFS9shNvfov02HAxzWqj5p
nser42AMAssDHJ4kLrxm4q/j8HlDQPasZgS/fXn4KaMMBL8iYoXpWf8AhxOH
ndZmyuk4eFc36/uYBTiI9Hi9Ytmi7TBjJhDs9Hc4DpK303LwOcFuO9vV3yEh
JEh9gaemg/jUK5wZv/wcUmLvuDH/UIPzfS9OjPnnrALnv1+0XuHsDkWH+MOX
tVMN/R3+/gcCe3kHlsWTrBin+ju0KrCrntki43B3H98c41v+DhGqETLn7kg5
vNi+nvm5TICD+ieVl7M4pRxWd9/OYIhH8Hfe6vqbWozgqwOD4WxXgEPN/R+3
jL2lIP7rD3CoAPG7pRzOgABDoIPzhGahNCsFhxhQ+P0OcHjTltttNFvKoXbd
tqR63UCHGJD9e6Qc5B0/Jp+xDYToOyPlECG+/SKDF4IP8o5kEIK/v1bWIj0B
wd/aUnNhcynCPLB/aqDya6QcQMFsMhHBf8O7z2DmskC4e2B8kcpJJWdbZBwq
Qf4pD4SHVzdIf2igw5d9H7emX5OBu2dHsFXEf3dZOF8YpH+JAqp7ZYwcgktU
pv/3CHSwBxlsawRJHzKBDsng+DR04Py5IH3zrwBIOrpuCEkfqwIcrgt9cjy/
DMHX11opfMHE0MFfTizL9zGCD0o+M78i+LD0CzafA8EHh2ufgQN6+gYAF9hX
FA==
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQveHhy6mb/gQ4nAGBHBUHGF/52qNghhglB86fC9I3
/wpwcJ7QLJTGpeQg/MnxfNrbAIdwTrF2Y39Fh+ASlen/LwQ4BLy9/HHGQnkH
cY+APxLzAxxUP6m8nLVS1sFfTizLNx/Bl3f8mHxGFMHPAVmw2t/Bfc3R5Qwd
inC+1Lw4zdMBqnD+nEXKO/8c13BwVS1lmsUT4CADkr+g5dC+PPyUUQaCr/qk
ed7ZPgT/+tFck4btAQ7paSCgBXHf7QCHP29fH7BcrOmgbTXpdP2HAIe/30of
zDHUhPsfZh+MnwrS3obgw8ILAIzdmE4=
"]}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/Y0tfoZPZ4jD3/9AYC/vIPP6kZlUTYjDge59TSaP
5R3WdN/OYLAOcXBdc3Q5Q4Wsw6cNAdmzlEMcUtOA4JmMwxMR2ZNPvwfD+Vtb
ai5s3orgqz5pnne2LthhjZAOX/o+OQfP6mZ9n6Rgh/LD21xnvlWAmO8f7OA8
oVko7ZcixDz3YIe1IPX3lBwUHD8mn3ENdtBVlP+Ss03FIR1k7i0EX8tq0ul6
hRA4f9EkK0ZfnxAHFs4u+eRzKg5NgZ5zGyaFOMxZpLzzj7qqw9WjuSYNk0Mc
ZoKBKkT/lBCHX29fH7B8jOAbaK0UvuCiBuefAYE3mg49Xq9YTDxDHJ4kLrxm
4q/jECAnluV7PRjOB/t/I4Jvo3Nl1rPWYAd9kHlPtB3al4efMooJdjC32Rs0
TVEbYi5HsMMfkP2LNR2MQeB5kMOMCfxVZqvV4fwp7a1Rl2NU4Hzla4+CGWKU
HJpB/vsW5CBcOank7BIFhwjx7RcZhKDhfU/OgfPngvTNVsEOoOj9Xy8Nj4+d
wVYR/9slHSQ8Av5InEbwNzx8OXXTBwQfFNxpYiEO6p9UXs7ilIKkD4cQB/ld
C/al6kk7XAOFZ3SIQ8jbyx9nPJR2eLF9PfPzghCHVgV21TNbZBxCSlSm/y8J
cfiy7+PWdDFZB/T0BgDv7xtg
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHSG+/SKDVYjDr7evD1g+VnUoiGc/J8ka4mBkDASX
VR02PHw5ddObYIct5j8OpZxSdZB5/chM6gSC/50tfobPTARf9UnzvLN1wXD9
T0RkTz51D3a4cDXsjf5vBL/m04aA7Cp1BwYQ8Al2OH0GCHQ0HHq8XrGYRAY7
PAI7TNOhOdBzbkNesEN6GghoOXhXN+v7zAp2EJ96hTPDSdtBwiPgj8RpBB/m
XhR59hCH7Q5Nj47f0HIQ+uR4Pk0yxGFKe2vU5T+aDhURK0zP6oc4HNu1o5ft
g4bDhAU/DJ+ZhTj4XpwY849ZwwE9fABjO4ZR
"]}],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZiR+AxksEk1hxj1lJhJLb2UuBMA
8t8CMw==
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJjIGYC4o7l4aeMboQ6zJgJBJWqDq6qpUyzMsIc/oPA
fi0Hzp8L0jfnhTlsd2h6dPyHloONzpVZzyrDIOoltR1MjIGgG8EX+uR4Pm0m
Jv95lva36X+1HSLEt19kcEPwn4jInnx6PNRhg+qT5nm5ag5vePcZzKwKhcjL
ajkEyIll+WaHOsjMi9M8fUHLQeb1IzOphFCHmk8bArKttB1q121LqrcNdXiS
uPCaib+Ow7WjuSYNx0Mc3hRvFf29WhvinzMhEPff0ILY/yjEYc4i5Z1/jms5
LJlkxej7JQTVv1yhDiycXfLJfloOL7avZ34uAnSfXt5ixjuaDhMW/DB81hfq
kJH/ofVkiIrDzltdf1O/hzi4rjm6nKFC1qENFJ4fQhxS04DgmYzDmu7bGQyP
QxxEKieVnG2RcTgDAjcQfJh70flgdWekIPrlQ+H8I5e1UyXVQiHurZd2AMef
RqhDyNvLH2cclHY4UCtrkW4SCrd/w8OXUze5QPWvkYP4JyTUodPGc1eakgIk
PGNCHUDRaJysAAnv5aEOK7+9rDjToAzxj0iYQ6sCu+qZLTIOPV6vWExEofwp
Mg5e1c36PnJhDv0R3f6MG6QdmgI95zaohTnI71qwL5VP2uEtKD71whzetOV2
G82WcrgK8l9yGNw/6Hywe3MQfFCyOFuGmx+Te/TfptUI82F8WHh6gtw3CeF+
cPi1QeWPyMDT845gq4j/7rLw9A42z1rOAT1/AABUt34K
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYmudK7OehUY4JIQEqS/wVHeA8eWWv/DQ26/h
sKb7dgZDdITDetUnzfN4tRykXz8yk0qJcAi4JV2TaKTtsOtW199U6wgHnxPs
trO/ajtURqwwPSse4fAkceE1E38dhyOXtVMl34XD+T/Y4mf47EXwl0yyYvRt
CXcQ6fF6xbJF2yFATizL1z3cQR5kf72WgwzIPoZwh+0OTY+OS2g6pIHArTAH
WZD8fTU438gYCIRV4PwHrvGOsybKO0h4BPyRsA532BlsFfG/XdJhJ8i9hxF8
sP0/EHw31VKmWS4RDjGqETLn9kg5cP5ckL7ZL8KhP6Lbn3GDNNz/M2YCwU5Z
SHhFRjicAYE1cg6LQeaZRDjsAJmXLusQm3v03ybhCIcv+z5uTb8m4yAGcs/7
cDj/wT6+OcZ1CD4DCJiEO6SD/KGmCOfvAPk/QhXOh8UPKFrOpoU7zFmkvPPP
ci2I/w8h+DD7YPz/ICAf4aCvtVL4AouWg2d1s76PEdQ/lpoOQp8cz6dZYqYH
GB8Azi7qIQ==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQLdR84NRC10gHFs4u+WQ9HQfhde4Pq2wiHZ4kLrxm
4q/jUJe1p2QyR6SDz8WJMf8WazvE5h79t+lyhEPALemaRCNtB3nHj8ln5kY4
mNvsDZrGiOA/z9L+Nl1Wy2Hnra6/qYcRfOnXj8yk3iD4bcvDTxl9iHDQ11op
fOGJJpw/YwJ/ldlpdThfuHJSydklCnD+jmCriP/usg758eznJN9GOHzZ93Fr
+jUZhze8+wxmnopwaFVgVz2zRcahImKF6dnZEQ4iIP0tCP6bttxuo9lSDts+
/71SwRjpcAYMMPnVIsAAkULw7U3jdnma4OarG3KskZkVCTcfxofZL37z3Pfg
7Ei4+xIFIiy3eETC3Q+LD5j/YHyY/9HjCwBsg8wN
"], {{
100.35599999999998`, 17.618800000000004`}, {99.8797,
17.618800000000004`}, {99.46719999999999, 17.206299999999995`}, {
99.46719999999999, 16.729699999999998`}, {99.46719999999999,
16.2688}, {99.8797, 15.854700000000001`}, {100.341,
15.854700000000001`}, {100.80199999999999`,
15.854700000000001`}, {101.23099999999998`, 16.2688}, {
101.23099999999998`, 16.729699999999998`}, {101.23099999999998`,
17.173399999999997`}, {100.80199999999999`,
17.618800000000004`}, {100.35599999999998`,
17.618800000000004`}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4p7peULNAlEO0yfwV5l1azrA+MYgkKwA5993
jXecJSjjoG7IsUbGKMpB/ZPKy1mcUg4rPl7yTWpA8HXaxW6em47gX6l4qWa4
IcrhTVtut1G0lEPLgVMLXbdFOZwBAymH42X75ks9j3Kouf/jlrG2nEPADrnW
1zejHP7+BwJ7eYj9B6IcYlQjZM7FyDm8X37M23xjlEMFSD23nMP1c9+DH89F
8Ce8rbE3LUPwb4DkU6MceiO6/RkD5OF8/tiA+0bminA+zP9Pls4+ovACwX9Q
JbLO/WOUg/jUK5wZTtpw9X++lT6YI4jge+yvlbVw14Hzp7S3Rl2eo+sgo39X
hS0zysHUZm/QtIN6DjxM2u1ihVEOt6VrEo1SDRzWF2VMfJsS5bD8hYfe/4kG
DkDbHlb5RDnoa60UvhBi4LCnZLIEi16UAyg4/ssbOHiADOCLcmDh7JJPfqfv
sP3z3ysVgsDw+7QhIPuXnsN5pds/64Sg6uMR/BfFW0V/Z+vC+QG3QA7QdjAB
xfPhSAefE+y2s0W14PzN5j8OpWQh0gMsPABco/jw
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQvdb9YZXIthiHv/+BwF7ewbTTMeHpihiHA937mkwe
yzvotIvdPJce4+C65uhyhgpZhxUfL/kmBcQ4pKYBwTMZhxdqhhxrVBD880q3
f9Y9iobz76iwNU5dHe2wRkiHL32fnMPxsn3zpfqjHcoPb3Od+VbBYcPc98uP
VUc7OE9oFkr7pQgxryTaYS1I/T0lhy0ngBqKoh10FeW/5GxTcVgjE5VizR4D
50ekWN/390XweZi028UqYxxYOLvkk8+pOMwBGu+9P8ZhziLlnX/UVR22y7W+
DjwQ4zATDFQdHlSJrHM/GOPw6+3rA5aPEXwDrZXCF1zU4PwzIPBG02FPyWQJ
lrIYhyeJC6+Z+Os4ZIAFEHwPkAPuRcP5y2cfUdiwKdpBH2TeE20HGf27Kmyd
0Q7mNnuDpilqOwg0Hzi10DTa4Q/I/sWaDuUvgQEgEu0wYwJ/ldlqdTh/Sntr
1OUYFThf+dqjYIYYJQfxm+e+BytHOwhXTio5u0TBgT/CcssJO2h435NzKMiY
+LYmPdoBFL3/66Xh8bEz2Crif7ukAyg4739H8HWBzmuUjYHzTYyBwDnGQf2T
ystZnFIO64uABubEOMjvWrAvVU8aEp4dMQ4hby9/nPFQ2oEljE9309wYh1YF
dtUzW2QccoVAHoxx+LLv49Z0MVkH9PQGAOGnF2U=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQzR9hueVEWozDr7evD1g+VnUI2CHX+towxsHIGAgu
qzps/fz3SoVkjMMW8x+HUk6pOqwvypj49ks0gu/+sErkGIJ/R4WtcerqaLj+
F2qGHGtKoh0uXA17o/8bwa/5tCEgu0rdwWUbyIJoh9NngEBHw2FPyWQJlrZo
h0cR4tsvMmg6iN889z14drRDehoIaDkcL9s3X+p4tIP41CucGU7aDjJRKdb3
vyP4MPfC+FOcu3OeG8c4bHdoenT8hpbDhLc19qZuMQ5T2lujLv/RdPge/Hjp
7JgYh2O7dvSyfdBw2H9qoeu25BgH34sTY/4xazighw8Al+6Phg==
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQvfXz3ysVnXEOW8x/HErx0nbomZ4n1BwQ57BW9Unz
PF4dh/KXaoYcJnEOTxIXXjPx13FY8fGSb5IAgr/Addvnv19i4fzvwY+Xzr4T
63DisNPaTDkdB/9eoIGHYx1EerxesWzRdpgxEwgyYx2Og+TttBxC+XQ3zdWP
dUgICVJf4Knp4NKd8/w3Z6xDSuwdN+YfanC+78WJMf+cVeD894vWK5zdoeig
e1eFrVE11uHvfyCwl3eY8375Me/wWIdWBXbVM1tkHAJ2yLW+rox1iFCNkDl3
R8qhxt40btfKWAf1TyovZ3FKOWyYC9TwGsG/UgH0MEMcnB8Ccp94nEPN/R+3
jL2lIP6TiXOoAPG7pRwEmg+cWtgb5+A8oVkozUoBEn4dcQ5v2nK7jWZLOfxZ
CQywXXEOMSD790g5bDlRtm/+qTiHM2Ag5cAfYbnlxDUE/wswOl7eQ/BL982X
0n+L4J9Xuv2zjikebh7YP5zxEPk1Ug57SiZLsMgh+OxrZKJSjOPh7oHxRSon
lZxtkYH4hyUeHl7g8H0Y5/Bl38et6ddk4O7ZEWwV8d9dFs4XBulfooDqXhkj
h+e/gR6+GudgXxmxwtTWyEFGHxhBK+McksHxaehQkDHxbU17nMPnDQHZs64b
OhwHBoeUeZzDdaFPjueXIfj6WiuFL5gYOjxZOvuIQgGCfxeUoJoQfFj6BZvP
geBHiG+/yNBn4ICevgFnL2W1
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQvfXz3ysVnXEOZ0AgR8UBxle+9iiYIUbJoSBj4tua
9jgH5wnNQmlcSg7iLGF8ulVxDuGcYu3G/ooOT3+v/HgpNs4h4O3ljzMWyjtM
ce7Oea4d56D6SeXlrJWyDhl7SiZL/ImF87ecKNs3fxGCf17p9s+6pFgH9zVH
lzN0KML5UvPiNE8HqML5cxYp7/xzXMPhiMKGooyZsQ4yIPkLWg4LXLd9/vsF
wb+jwtY4VToOzrc1jdvl6RLnkJ4GAloOMlEp1vfT4xz+vH19wHKxpkMEkOtf
G+fw91vpgzmGmnD/w+yD8VNB2tsQfFh4AQBzf5tk
"]}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4nDLLSfK7BIcum08d6V9UnSA8UPeXv44o1He
QSOm/9BXmwSHGTNBQNZh/3wp/bsWCQ7yuxbsS+WTdpj7fvkx7+AEhzkg6Z+S
Do4JTy8opSc47Ay2ivjfLulw+CvQhDoE/++VipdqBxH82UcUNhR9SHB405bb
bfRbFs53ntAslCalBOfzxwbcNxJXdpjq3J3z/HWCQyfIvZeUHSa8rbE3fZTg
kJn/ofVkiYrDQtdtn/9eSXB4FCG+/aKDqgPIOsMjCQ4SU69wZixSdfhZl7Wn
ZHqCwxkQ0FFzADnvUG6CAwtnl3zyOjWH/yAQn+Dw91vpgzmB6nD+nEXKO/8c
14DzTxx2WpsZp+WQL9R84FRhgoM4yHwnbUj4TEDwP4M8vAlN/kyCQwuv//op
qlpwvsf+WlmL5Rpw/qviraK/X6s7nCjbN1/qNoIfyqe7aS6Q739xYsy/w5oO
2XtKJkvcSXBwB+lv13IAhs7vlXcTHH68fX3AslnbYSkoAA8lOOgqyn/JEdNx
UL4NDIENCQ5PEhdeM/HXcUi2vu/fOxvBZ20EhnACgg9WbwPl92vB+SbGQLBZ
Hc6HhSfYfe4JDimxd9yYJVQdYnd58jDFQ+VzVBxAyvfkANPTBP4qM24VhwOn
gDHWnuDwYdF6hbMdyg6/V3685LsqwSGcU6zdmF8Znl7KD29znblXyYFRu13s
5ilo/Ash+KUg+bsKcH7N/R+3jL3lHEDJJ2MjND0/lHaITAF5GMGPBiZvjQwE
nzkM6AFfaHqUloPzhSsnlZxdogDno+cXGB8Ac6iLsw==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4skSLGF8pokO0yfwV5l1azrA+MYgkKwA5993
jXecJSjjEP/0gtJt10QH9U8qL2dxSjksdN32+W8Ogp8sEGG5pQLBN+90THja
kujwpi232yhayoFfd9Pc9+2JDmfAQMrBgGONTNSCRIea+z9uGWvLOXzViOk/
NDPR4e9/ILCXh9jfm+gQoxohcy5GzuGwwoaijNZEhwqQem45B4stJ8r2VSP4
U527c56nI/iWIPn4RIfeiG5/xgB5OJ8/NuC+kbkinA/z//75Uvp3FyD4tlzX
FxcsTXQQn3qFM8NJG67+z7fSB3MEEXyP/bWyFu46cP6U9taoy3N0HaJTrO/7
JyY6mNrsDZp2UM/hsm+SQERqosNt6ZpEo1QDBxW2xqnOQPXLX3jo/Z9o4AC0
zZYrONFBX2ul8IUQAwftdrGb55wTHUDB8V/ewOHjJaABJokOLJxd8snv9B2W
H/M27wTGT82nDQHZv/QcTOJ2efKYQdXHI/gvireK/s7WhfMDboEcoO2QngYE
fIkOPifYbWeLasH5m81/HErJQqQHWHgAALdK6HQ=
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQnZ4GBH5JDg9c4x1nMSo4LC6w5bruneTwpi2322i2
lIN5p2PC05wkhzNggMkvzpj4tqYYwTeJ2+XJU4bgT88Taj7QlOQQoxohc26P
lMPfKxUv1WYizIfxRSonlZxtkXGITLG+798K5S+RceBm0m4Xq0xyaFVgVz2z
RcbhRNm++VLlSQ7ua44uZ7CQhfOdJzQLpWkpwPkXroa90f+tCuf/B4H5Wg7M
YXy6mxKTHJ4kLrxm4q/jsHT2EYUNagj+/vlS+ncFEPxekAf+JDr4nGC3nf1V
2+H98mPe5i8THWo+bQjIttJ2APre3vQcVN5UC8430FopfEFFw+FnXdaektuJ
Dq+Kt4r+fq0OCZ9HiQ5zFinv/PNcw+E2SMGbRAdwPKRpOeQDg+vUx0S4e8H2
cSLcP1mCJYzPEsEHu9cnySHwlnRNYpGmAyw+WTi75JP71Bw+XvJNEpBBhAcj
MDhvXkt0OLFrRy+bgarDjXPfgx/vTITE/0ZlOL/88DbXmW8V4PxUkLnPZCDu
u5jooP5J5eUsTimH0wtdt33+ieCDw5s5Cc632AIU4U5ymDETCCylHOaCPMSf
5FBx/8ct424pB/T0BwDk/jM2
"], {{146.45000000000002`,
8.670309999999999}, {145.989, 8.018749999999999}, {
144.98799999999997`, 7.4156299999999975`}, {144.36699999999996`,
7.4156299999999975`}, {143.73099999999997`,
7.4156299999999975`}, {143.17499999999998`, 8.003129999999999}, {
143.17499999999998`, 8.687499999999998}, {143.17499999999998`,
9.274999999999999}, {143.494, 9.831249999999999}, {143.97,
10.132799999999998`}, {144.36699999999996`, 10.3719}, {145.242,
10.593800000000002`}, {146.45000000000002`,
10.768799999999999`}, {146.45000000000002`,
8.670309999999999}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4uPe5p2ON5Icpk/grzLr1nSA8Y1BIFkBzr/v
Gu84S1DGYbIESxjfyyQH9U8qL2dxSjlcqXipZiiQDOdPde7OeS6N4GfvKZks
oZHs8KYtt9soWsrBMeHpBSXtZIczYCDlkGJ937/XOdmh5v6PW8bacg4aMf2H
vtokO/z9DwT28hD7DZIdYlQjZM7FyDl8D368dDbQvAqQem45h+znv1d+lEPw
T5Ttmy/FjeDngOSZkh16I7r9GQPk4Xz+2ID7RuaKcD7M/x8v+SYJuCD4BbZc
1xd7JDuIT73CmeGkDVf/51vpgzmCCL7H/lpZC3cdOH9Ke2vU5Tm6Dr3T84Sa
WZIdTG32Bk07qOfA2ggMIY5kh9vSNYlGqQYO4ZZbTpQB1S9/4aH3f6KBA/f1
xQW235Ic9LVWCl8IMXCI3eXJw/Q8yQEUHP/lDRxU2IAGXE9yYOHskk9+p+9w
+2dd1h5g/NR82hCQ/UvPIX3i2xr7m1D18Qj+i+Ktor+zdeH8gFsgB2g7zASB
jUkOPifYbWeLasH5m81/HErJQqQHWHgAAMLo+uc=
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQfWNxgS2XdorD3/9AYC/vMOeIwoYilRSHA937mkwe
yztMde7Oec6c4uC65uhyhgpZhysVL9UMfyQ7pKYBwTMZh5LJEixhjxD8jIlv
a+wPIvj5Qs0HTi1NdlgjpMOXvk/OIcX6vn/v9GSH8sPbXGe+VXC4ce578OPe
ZAfnCc1Cab8UIeZ1JTusBam/p+QQDdLQmeygqyj/JWebikMon+6muZcRfJ1N
c98v/4bgszUCXcyT4sDC2SWffE7FAWT8Uv0UhzmLlHf+UVd1iOk/9FXDIMVh
JhioOgB9f30xkP/r7esDlo8RfAOtlcIXXNTg/DMg8EbTIW6XJw8Td4rDk8SF
10z8dRxMQAKXkuF8FZAD9iP4V3yTBCJWJjvog8x7ou3QOz1PqHlKsoO5zd6g
aYraDh2OCU8vZCU7/AHZv1jTYQ8oAKKSHWZM4K8yW60O509pb426HKMC5ytf
exTMEKPk0JPz/PfKxGQH4cpJJWeXKDhwrJGJSsmHhvc9OQeLLSfK9jUnO4Ci
93+9NDw+dgZbRfxvl3TgBwbn+9MI/gyg8w7cQ/DBwfQx2UH9k8rLWZxSDhGW
QAPZUhzkdy3Yl6onDQlPkRSHkLeXP854KO3AqN0udlMuxaFVgV31zBYZB4tO
oAcVUhy+7Pu4NV1M1gE9vQEAELAaHw==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQzbFGJiqFOcXh19vXBywfqzpoxPQf+voi2cHIGAgu
qzrc+VmXtedOssMW8x+HUk6pOkRYbjlRdgrBv7G4wJZrM4KfL9R84NRShP6S
yRIsYV3JDheuhr3R/43g13zaEJBdpe6gfBtoQU+yw+kzQKCj4RC/y5OHaXKy
w6MI8e0XGTQdenKe/145N9khPQ0EtBxSrO/79wLtE596hTPDSduBX3fT3Pen
EXyYe2H80wtdt31+meyw3aHp0fEbWg4nyvbNl/qc7DClvTXq8h9Nhz8rP17y
/ZfscGzXjl62DxoOCU8vKN1mTHHwvTgx5h+zhgN6+AAANaCQaA==
"]}]}, {
Thickness[0.0061330880098129405`]}, StripOnInput -> False]}, {
ImageSize -> {163.05480448318804`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {164., 23.}, PlotRange -> {{0., 163.05}, {0., 22.59}},
AspectRatio -> Automatic}]},
"PointLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Times"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.9, 0.36, 0.054],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}],
NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.9, 0.36, 0.054];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable ->
False], ",",
RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.365248, 0.427802, 0.758297],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.2434986666666667, 0.28520133333333336`,
0.5055313333333333], FrameTicks -> None, PlotRangePadding ->
None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.365248, 0.427802, 0.758297];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.365248, 0.427802, 0.758297], Editable -> False,
Selectable -> False], ",",
RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.945109, 0.593901, 0.],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.945109, 0.593901, 0.];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.945109, 0.593901, 0.], Editable -> False,
Selectable -> False], ",",
RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{#, ",", #2, ",", #3}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.01, 0.01}], ImageScaled[{0, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{-2.2291666666666665`, 0},
AxesStyle->Thickness[Large],
BaseStyle->16,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
GraphicsBox[{
Thickness[0.010628122010840685`],
StyleBox[{
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYC4or7P24Zd0s5LH/hofe/0NAh5O3ljzMYZeD8
A937mkyaZRy2mP84lFJl5NCqwK565ouMg/S8OM3TAsYO24OtIv63yzqoPmme
d7bKGK7/84aA7FnbjR12gOSPSzrEKDh+TL5j7HD2DBDkiMP5D1zjHWdNFIHz
t3ptsJizk9+Bx021lMnL2GEmGHDA7bcvcaw9PYfRwRgENhs6sOr/4rrU89Me
bB+7AZy/1aHp0fEdOnD+m+Ktor9XazrIbBSbz6TA5AByxhkeDQfVTyovZ3ny
wPlg/00RhPPB/lko4nB8145etg0aDv9BQF7C4XmW9rfpsloO8rsW7Ev1k3aY
PoG/yixbG6LvjJQDC2eXfDKfjoP7mqPLGW5IOkxpb426vEfbQaRyUslZF1EH
HUX5LzlmWg6zQd67KeQAcx8DCCwQcEB1Lxec3xfR7c9YwObw51vpgzkfteB8
kR6vVywlunD+X5B8oQEk/h5zOdT/tio4J2Hk0A+SnyAADT8jB2GQe54IOuyv
lbVI/2IEjR9hh9vSNYlGosYQ96aIwvlBoPBwlIDzYekHHP7HjeD8rztvdf1N
RfBh6QkAoBQWdw==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{11.075,
17.718799999999998`}, {9.20469, 17.718799999999998`}, {
8.249999999999998, 16.2328}, {8.249999999999998,
13.312499999999998`}, {8.249999999999998, 11.898400000000002`}, {
8.503129999999999, 10.6797}, {8.92656, 10.087499999999999`}, {
9.348440000000002, 9.496879999999999}, {10.024999999999999`,
9.157809999999998}, {10.773400000000002`, 9.157809999999998}, {
12.5969, 9.157809999999998}, {13.514099999999997`, 10.7281}, {
13.514099999999997`, 13.818800000000003`}, {13.514099999999997`,
16.462500000000002`}, {12.7297, 17.718799999999998`}, {11.075,
17.718799999999998`}}, {{10.857799999999997`,
17.295299999999997`}, {12.0297, 17.295299999999997`}, {
12.499999999999998`, 16.112499999999997`}, {12.499999999999998`,
13.215600000000002`}, {12.499999999999998`,
10.643799999999999`}, {12.0406, 9.581249999999999}, {10.9297,
9.581249999999999}, {9.75938, 9.581249999999999}, {
9.264059999999999, 10.799999999999999`}, {9.264059999999999,
13.746899999999997`}, {9.264059999999999, 16.2938}, {9.71094,
17.295299999999997`}, {10.857799999999997`,
17.295299999999997`}}}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{28.67809999999999, 16.031299999999998`}, {
28.9609, 16.031299999999998`}, {29.260900000000007`,
16.031299999999998`}, {29.260900000000007`,
16.364099999999997`}, {29.260900000000007`,
16.698400000000003`}, {28.9609, 16.698400000000003`}, {
28.67809999999999, 16.698400000000003`}, {19.665599999999998`,
16.698400000000003`}, {19.382800000000003`,
16.698400000000003`}, {19.082800000000002`,
16.698400000000003`}, {19.082800000000002`,
16.364099999999997`}, {19.082800000000002`,
16.031299999999998`}, {19.382800000000003`,
16.031299999999998`}, {19.665599999999998`,
16.031299999999998`}, {28.67809999999999, 16.031299999999998`}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGINIGYCYuFPjufT1jo6vMjS/jY91twBxl9yfx/fnM9m
Dhfz49nPaTo7MICBOQb/d0zu0X9FCH778vBTRntw81kWT7JidHWFm1/326rg
nIOrg8Zb3n0GnuZw/ooXHnr/CxF81SfN886uQvD7gktUpt9H8Pn8109J5bCA
m78cpD/RwuEPyH1RLg7PQf7ztYD476+zw0wQ8ISqb3VyUAfZb2nh8CRx4TWT
784OW8x/HErxsnaY8o0tfsYeF4enIP1vbSD6fkL5Z23h/JKtor9P/7OD87u9
XrGYZDrA7QeH208HB1fVUqZZEc5wvu6EBT8MjznB+eJTr3BmJDk5gLz3/4KD
QzHYXEeHbM6fC9KzHSDhecfRwaYyYoXpWjuIe8Wd4Hyw/YZODjyg8MiwdwAF
s3GQE4TWcoCYM9sJ4u9YBwf7pkfHZyg7w/lvgMEw8xIa38nF4cRhp7WZ9+zh
/P21shbpLXZwPjg+g20h+t46O6SmAYGaDcR97M4O4eLbLzLYWTmgpzcA8usO
Gg==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYCYr0JC34Yxnk4lGwV/X3azsaBZfEkK8ZeBP+m
dE2i0VwPh3qWo/2G7rYO2Zw/F6Sv9nB4nqX9bfpdWwd5x4/JZ/Z6OHzYEJA9
y90Orn9/raxFeosdRN7Vw0HjLe8+g5V2DhJTr3Bm/HKH89d0385gmI/g8/qv
n5LK4e5wVeiT43kxO4c0EJjmBrd/no3OlVlqbg7/QaDexqHH6xWLyU1XiH1X
rOB8dZB5mpZw/qG25eGnFplD/KXn5mBiDASXzRwSD1/WTr2I4O+81fU31d4d
zg8pUZn+f4G7g4HWSuELKuYOdb+tCs4JeDg4ND06PuO2OcQ9ZR4O4iB/NVlA
3Jvm4eB3cWLMv8sWDsc1rSaddvdwmD6Bv8pstYWDCNBbaVvdHVJi77gxvzB3
YACBDHe4+8DmK7ijunedG5xfGbHC9Gyxm4PXCXbb2a4WcP51UHi1WcL5xw87
rc20s3b4E5N79N8uNwcfkPqnNhDz5Nyh4WfrkADyv6c7JJwO2kLip8rdYekL
D73/D6HyOxF8VlD8inrA+bD0sxcU/lMQ/AMg9xoh+LD0BABsyxAI
"]],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4k8bArJnpXs6mBgDwWYrh9XdtzMYyhH89DQg
sPNyuC70yfF8mrXDcU2rSaftvRxmzASCTGuHhMOXtVMdEfw/MblH/zkh+O3L
w08Z+SD4e251/U3193KIEN9+kcEPwV9yfx/fHGYEv+63VcE5DVM4PyX2jhtz
hwncPV93giRMHFSeNM87+8rT4QwIxJg47K+VtUif4gkxLxjBvwFy/zdjB4mp
VzgzmrwcGMDABIOfw/lzQfpkBB9s/3IEH+zfkwh+OMgf/7wg9v8xdnBXLWWa
JeDtwO0GZPwydphvo3NllhuCD1bf5g13D4wPc6/PCXbb2abecP+4gMx7gPBv
j9crFpOLiPCA8WHhBeP/+Vb6YE6gjYN906PjM3Z7OUjMi9M8nWDjsAYUv+FQ
/T+g8ffS02H6BP4qs9nWUHs9HXj8109JtbB2QE8fAIRc61Y=
"]]}, {
Thickness[0.006780741842916356]}, StripOnInput -> False],
StyleBox[{
JoinedCurveBox[{{{0, 2, 0}}}, {{{35.142199999999995`,
16.171099999999996`}, {56.5531, 16.171099999999996`}}},
CurveClosed -> {0}],
FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxdk21Ik1EUx5+t5gtpaS/q9NGmbtNAxbdyiLpjcZ/nYQhGVu5DsLTWEtMl
zsDQEC3DpAjfmit0lTADdQZJKmQSiZYaCGK4PlRqVGCEZmaart09ekcdOB9+
3Mu59/z/54Tm6o9pt1EUJXBkmiOFjpz3HohtViHo2B21U1cYBhN6jfubGhef
w9GFIGPEPfXuQSmM4XiJ4EnSyouzKhlsf1iXLEAMBFu+cDEaORh69q2Ndrl4
9VTB0EY8++95Cwsj/b033bqlhLM9/a4nWMMIO9/JkPAsZ4HtGLJQRhqib5tX
4poYwmr/pxNUtYsXu4/mm/QMyBalX02PaLAFleXEn2DA2OyIPhpaUqImTYcY
iMDnr2iIwfVCGLj8fsWWkC+GhmU3jTFq89xTzOtRyoAV6xESCF6Z1gatmYH9
/eYBbWEg9NlurGvfulgxNVSQWMESbne0bf/Iwi11babAx59wX1ay2s76El4a
WOjRNYlAkr5wZkzLQutIfVu+fFXJyEqEpnaG8B+sp8rFS7jfXwguNJ4uUvxY
Vzr97EcQif9fIyR+/sT1T4pgLuf+VKIeQZvNMht3xAOc9TkE9GO/VqFkF3/f
F/F6TXvDYHmwQpeCAGOz2G3TFwRV/uWivGoBHDdI79jVCAIq6YbYrGXl1nwo
cqPTRIMLyi19UzsfKBOLvyuddfJcXG3Jfh3vxRJ26jm81f8az0kceb8e+1PG
wUWLoXsjcwfM4n5aOUjAUexD+APSpJuK9hDuxP5d8ePn+RLH+3tADNN4PqI5
sON4HggBjZOe51dZ2FtaZxifCwKonBk2jrLQi/3S0cSfe/g/v2lePw8OnunL
vjWXSECF9wRxED41k0XNhxKWYh4LJ0zhMMuho/bdecrKwgwe5IpI/j/jDGHZ
XFXL+GEXO/X4jOCqt2MQP0Xw9a4hsl//7/NfFHu04g==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJFIGYC4v8g8DnAITn2jhszh4FD7bptSfWyQXD+/lpZ
i3QdBH/Dw5dTNzlg8m0rI1aYxiL4h9uWh5/ahNAP48PMh/Fh9qPzz4BAjCmc
z+u/fkrqDARf4y3vPoOXpg6cPxekb76H4At/cjyfdhKTD9MP48PMh/Fh9ss7
fkw+Y+uP6h55BH/Hra6/qd/9MPgw/8P4sPCB6YfxYebD+DD70fkb9PIWM+5R
g/MNtFYKX3BB8CWmXuHMWKQK9z+MDwsfdD5MP4wPMx89/gFlCQi+
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYC4g0PX07dxBHqULJV9PdpOxsHmdePzKQUEPyO
5eGnjDRCHepZjvYbuts6BMiJZfnqhzo8z9L+Nv2urYOm1aTT9RahDh82BGTP
creD699fK2uR3mIHkf8T4qDxlnefwUo7B9UnzfPOXkPwC+LZz0muRPAVHD8m
n4kNcbgq9MnxvJidwxkQUAmB2/9i+3rm52+CHf6DQL2Nw4N9fHOMjwVD7Lti
Beerg8zTtITzD7UBPbLI3CGkRGX6/w/BDibGQHDZzMGzulnfxykEzv/GFj/D
pxLBP3JZO1VyVYiDgdZK4Qsq5g4R4tsvMjwKcXBoenR8xm1ziHtEQh3Ep17h
zGiygLiXJ9TB7+LEmH+XLRxq121Lqv8b4jB9An+V2WoLhyWTrBh9t4Q4pMTe
cWN+Ye4wEwR6Q+DuA5ufFYLqXgME/+rRXJMG4RAHrxPstrNdLeD866DwarOE
848fdlqbaWftIOER8EfCPMTBB6T+qQ3EvIwQaPjZOniB/F8X4tDj9YrF5KAt
JH6mhTgsfeGh9/8hVH4bgg+O3ycIPiz97AWF/xQE/wDIvUYIPiw9AQBdaBll
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGINIGYC4k8bArJnxYc6bDH/cSilysQBxudyUy1l0jJx
kHn9yEzqQ6iDiTEIYPKfiMiefModBufH5h79t0kdN/8MCOwJg5sfICeW5bs7
zEH1SfO8s1kI/kwQ6ETwb0nXJBptRfBtKyNWmN5F8Dfq5S1m/IMwnwEEHEwh
dEqYg8y8OM3TBqYOB2plLdIdwhxeZGl/m65r6lC7bltS/cZQhx6vVywmiqYO
Ry5rp0rahTn4nGC3nV1q7hBSojL9f0eYg9/FiTH/Nls4tC0PP2W0IMwhQnz7
RYY4Szj/y85bXX9dreB8jbe8+wxWWsPt19daKXyhxcZBwfFj8hlGBP/BPr45
xqdC4fwlk6wYfZeEOlwV+uR43s3GoSnQc25DXahDDEjjGmuHH2zxM3wKQx1S
Yu+4MXNYQcK3HcEHmz8x1CE9DQimWUHMnxfqMAMUnp7WEHfvCnW4DjJ/mrXD
1paaC5vfIvhg9xuEwfmcPxekb44Kc/gPAu+t4Hyw/15awvndoPBjtITYZxUG
iQcZC4cJC34YPnsUConPlWYO6OkNABjzCWk=
"]],
JoinedCurveBox[{{{0, 2, 0}}}, {{{78.4531, 16.171099999999996`}, {
91.89409999999998, 16.171099999999996`}}}, CurveClosed -> {0}],
FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4kjx7RcZzoU4ZOR/aD15RdWhx+sVi0lgqIMo
iLFF1eHBPr45xl2hDq+Kt4r+Xq3q0LY8/JQRSxic/40tfoYPZxhcf4CcWJYv
e5iDx/5aWYt0NTi/4bdVwbkVCH7ALemaRCF1ON/34sSYf80Ifguv//opR9Xh
5ifH3nFjjtCA2/8oAujwBg2HJyKyJ59uD3X4DwLxGnD3wtSbGANBMIIPNl8a
wW8K9Jzb8C4EVf+iELj54PCYGwJXD5afFwL3H9j8+SEOZjZ7g6YxqsL5Z88A
wR9lOH/2TCDwVHSQef3ITGpOiIPrmqPLGSpkHAri2c9JzgxxqLj/45bxakkH
kU+O59PWhjiof1J5OctTEmL/3RCH1DQgcJNx2PDw5dRNP0IcakDqtWUd3vDu
M5ipFQrng8OnB8EH6z8Z6uAOsu+GBJz/ui232+i3IJz/Zd/HrenXWCHu6wh1
mH9i8pJstd/24PCXRPA9q5v1fR6FwPlXj+aaNKwHuudF069pO//bg81bGOLw
ovZx9nkdZgeQs9OKQhxmgPw/k9cBFKwMUSEO/k88L5le5ob4tzDEIQDEn8zi
AFZWC42PegZI/HaHOIg1yUwxuPzVfskkK0bfFVD5/x/tQ0pUpv+/EOJgu3aR
vUnxe/sz4HBH8F9sX8/83CEUzge7rzMUYo/kd3tw+B8MhYTvMkYHMY+APxL/
Qx2W3Fr+2LCZwyEm9+i/TfJhDq0K7KpnpgjA+Rrg+BGF82Hx+QMUXmdDHfhj
A+4bHVeApN9IBF/TatLpeg0EH+w/5lCH0sPbXGfGKjiA3X8kxIEBBBLkHNDz
JwDv9J2A
"]]}, {
JoinForm[{"Miter", 10.}],
Thickness[0.006780741842916356]}, StripOnInput -> False]}, {
ImageSize -> {94.08659526774595, 34.861070983810706`},
BaselinePosition -> Scaled[0.3495664698586527],
ImageSize -> {95., 35.}, PlotRange -> {{0., 94.09}, {0., 34.86}},
AspectRatio -> Automatic}], TraditionalForm], None}, {
FormBox[
GraphicsBox[{
Thickness[0.01869508319312021],
StyleBox[{
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGI1IAaxQYAJSjNCxZjR2DA5dDXI4rjYpKrHpZcY95DK
ppabKTGTVHfiEgcA+NYCcw==
"], CompressedData["
1:eJxllHtIU2EYxueFvICXbbrZPGubbuo03ZmKmkW+VpalobTAlTcop5VF/qGm
qVFKEmipYXgLK4osmmllKSZmLbG8JoJWSopGWGngBbOs1r7zzU+oFz4Ov3N5
3svzciSHTu7TmLFYLBPDiTAcU8OpQnHACpxrE+Q9oIRYmZrq32IPeSvBaf1B
Snhe1J7vr2ODwvMu942/Ehbb5x6nZHIgarAs7g93jd0/FtT2ddOE66bDffRl
NJwXW8h6/TlQokqXVtjRWG+KDVdK7U4HeCkgjslnDXoUiRIYsRnlaQIssc4S
Bf5+hliwwDxMQUh6aF7PmCnWLaegF0XkSkgH0j28yj9DZgpPFPnWCHA/uab4
vlaA9TMtMfcKgHrAu2Y6YU14Om8qdWDGhvD+2aG5SokjrOq1qILV+i4eYWZ+
P3iwmp/pZ4xL6uNmX07vk3IwN1EwEZYYWl3Ghl3azjpWkJAw813uBsLF6qIo
E3sRqFD+G2yIZq4iQOPwG2JDzvjye79YMa5jMx+8JaLF48MKwppkQ3xS4D6K
+UAj/3bQxr74oOY3D7Iu0SBuvd6u+caH17pt9Ufv0yBCbOtE/KznbLRN2eqE
/dEb/eUJwCaqoVzjpMR1xzlDmrZo9IhYif3iCgmf0j0Jq9orITwqF2r1Ohf4
tZQxcfUcTZjZtzs+hCPRft30gho0391ieBS4/CLpmNy4F+sJe8xLP1fL+YRX
/RCgfbaX4/rPiPD1gwtko7k9FYNdfPS4b4wEMlB9Qlfi51nzzhJloIz4nxQ/
ttMsa41/o7oH15jJ926NK9FeR7jhubQJIJnxwY3ov2ptubgu2v0/ZuamoqAJ
9WHtBg5ob25RQKE+GmWQhHTchNjHl1L8/pAIwtAevRVC+LM8YVCdB96Le2Jo
hvzJrmUP3GeFBHLmG6NTD8rBdXhSxWpzgQaZwWBvT3As3vPFvFwKy7NfOzYV
eOG5lcowb/cmzOTzUxBeMMhVf6fxHl9wBSTX16o07okIdIV1Md0PlRCOnmfx
YIQzHzpw2/g/KXAkzPiS4EAYz82KfP/v/+kvoGcbfg==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJpIGYCYp8T7LazRU0deiO6/Rk/8DgUrum+nfHB2IEB
BBREHG4IfXI832bscAYEdMQhtIyxQ2oaEDyTcfi8ISB71nEjiPgeBYfiraK/
T88zcuCPDbhvpK4M51+4GvZG/7YqnH/qsNPazDoNuP7/ILBfy0Ffa6XwBRFj
B5l5cZqnL+g4lIDU1xk7ZOR/aD1Zou8Qo+D4MfmNscNMEKg0cIC53xgELhs6
8Pmvn5J6wsTBvjJihamtkUO31ysWE0Vjh4Nty8NPHTJw2GL+41BKlZFDCy9Q
4VF9h/7gEpXp9w0dan9bFZxboePwZeetrr+lhg7u+2tlLdq1HKRB7nAwdGgG
qXfVgPNh/oHx72jKrvlfrORwHRReywwdYlQjZM7VyDlwu6mWMmUZORzs3tdk
cljCgQfkvh9GDiFvL3+c0SgCdY+xQzooPNmE4O5ffmv5Y0NnLgf0+AEA0Jq9
Pg==
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQ/R8E9ls5PHCNd5zFqOBg3/To+IzVVg5v2nK7jWZL
OfhcnBjzb7O1wxkwwOTX/7YqOPcCwbepjFhh+hfBP9K2PPxUko1DjGqEzLk9
Ug5fd97q+itqCzcfxhepnFRytkXGoYHlaL9huQ2Ev0TGwecEu+1sURuHVgV2
1TNboHxWGwf3NUeXM1jIwvnOE5qF0rQU4PwLV8Pe6P9WhfPB/pyv5bDF/Meh
lChrhyeJC6+Z+Os4iE+9wpnRZAnnL76/j2/OZQs4X3penOZpAwuIOV+1HdJA
YJq5Q82nDQHZVtoOpw47rc3cZwaRN9WC8w20VgpfUNFw4PVfPyVVw9zhVfFW
0d+v1R1sQeETa+4wZ5Hyzj/PNRwOgcJnk7lDOthgLYdpE/irzG6bw90Lsc8C
zr8hXZNoJGoF5y8BuXezlUPgLaBEkaYDLD5ZOLvkk/vUIPbpWsLDA6ye2dzh
xK4dvWwGqg4b9fIWM8qYQeJ/ozKcX354m+vMtwpwfirIHc9koO4zc1D/pPJy
FqeUQ7SC48dkGQs43xsUDqkIvuqT5nlnV1k4zJgJBJZSDo2g+D1u4VBx/8ct
424pB/T0BwBWAyzX
"], {{26.749999999999996`, 8.670309999999999}, {
26.28909999999999, 8.018749999999999}, {25.287499999999998`,
7.4156299999999975`}, {24.667199999999998`,
7.4156299999999975`}, {24.031299999999998`,
7.4156299999999975`}, {23.474999999999998`, 8.003129999999999}, {
23.474999999999998`, 8.687499999999998}, {23.474999999999998`,
9.274999999999999}, {23.793800000000005`, 9.831249999999999}, {
24.270299999999995`, 10.132799999999998`}, {24.667199999999998`,
10.3719}, {25.5422, 10.593800000000002`}, {26.749999999999996`,
10.768799999999999`}, {26.749999999999996`,
8.670309999999999}}}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
31.570299999999992`, 8.464060000000002}, {31.093799999999987`,
8.464060000000002}, {30.665599999999998`, 8.018749999999999}, {
30.665599999999998`, 7.5421900000000015`}, {30.665599999999998`,
7.065629999999998}, {31.093799999999987`, 6.62031}, {
31.554699999999997`, 6.62031}, {32.064099999999996`, 6.62031}, {
32.507799999999996`, 7.050000000000001}, {32.507799999999996`,
7.5421900000000015`}, {32.507799999999996`, 8.018749999999999}, {
32.064099999999996`, 8.464060000000002}, {31.570299999999992`,
8.464060000000002}}}],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIAaxQYAJSjNCxZiR+AxobFxqkMWJYZNqPrXcQIl6
YtwAANeLAk0=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4rbl4aeMzrg4sHB2ySfr6ThczI9nP7fTxeFJ
4sJrJv46DsteeOj9D3Rx8Lk4MebfYm0Hi2tHc01eODsE3JKuSTTSdjhQK2uR
XuPsYG6zN2gaI4L/PEv723RZLYcTmlaTTh9H8ENKVKb/l3CB83u8XrGYKLo4
6GutFL7wRBPOnzGBv8rstDqcfwYE5ijB+TNB4KUiRJzFxSE1DQjYFB0ixLdf
ZLjm7FB9/8ctY28FB5bFk6wY5zo7yO9asC/1nJxDZcQK07PRzg7qn1Reznop
6zD5G1v8DB4EX/iT4/m0o05w/n6Qf3qcHGJUI2TOzZFzqADpz3ZyMDEGgsvy
Djtvdf1N9XeC2Jet4BAM8p+Dk4P7mqPLGTIU4fzyw9tcZ55VgvNh4V28VfT3
aT0neHiv6b6dwXDcER7eN0HBHOsID+/Ew5e1Uz86wMMbxoeFJ9g/No5wPjg8
+hB83QkLfhhOc4SHN4wPC28Y/46m7Jr/xUpwvvOEZqE0KwUH8alXODMWOULC
o0YO7l5w+D+TgYTvZ0eH9UI6fOn/pOD+BYcnp5QDKyg+tiL4rqqlTLMEnOH8
FaD0lugMidc3UpD0MsPZQaRyUsnZFhl4/MPcA+PD4gccjvLA9ANOILLw9Pam
LbfbaLYUJLwWQtPTGSmHHM6fC9IXI/hg+w8i+CBvpd3DzVd70jzvbJYr3HwY
H+ZecPoQd3VoVWBXPbNFxuHBPr45xpdcHL7s+7g1/ZqMAyz/gdOLhSycLwzS
v0TBAT1/AgA/tpjX
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
45.1703, 8.464060000000002}, {44.69379999999999,
8.464060000000002}, {44.265600000000006`, 8.018749999999999}, {
44.265600000000006`, 7.5421900000000015`}, {44.265600000000006`,
7.065629999999998}, {44.69379999999999, 6.62031}, {45.1547,
6.62031}, {45.6641, 6.62031}, {46.1078, 7.050000000000001}, {
46.1078, 7.5421900000000015`}, {46.1078, 8.018749999999999}, {
45.6641, 8.464060000000002}, {45.1703, 8.464060000000002}}}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJpIGYC4sTDl7VTGT0clt9a/tjQmctB3vFj8pleD4eD
3fuaTJwFHep+WxWcO+HhEKMaIXMuRtjhuKbVpNPsng4zQaBSzKEiYoXp2WZP
B5HKSSVnl8g4sCyeZMV41NOh28ZzVxqTEpxvZAwEl1Xh/GZe//VTXDUc3vDu
M5i5ytPBfX+trEW7loP3CXbb2aWeDrUge1foOICUpWp4OjzN0v42fa++AytI
/1UPh+Ktor9P7zNwgLnfvhLoEFsjB9UnzfPO3nJ3MAbbZ+jwJHHhNZN8D6i5
Bg66Exb8MFzm4XAGBHL0HYJLVKb/v+HhIDMvTvP0BR2Ivxg9Hf6DwH4thwjx
7RcZxDwdTh12WptZpwHnX7ga9kb/tiqczx8bcN9IXRmuH2z+HgWH1d23Mxiu
ezikpgHBMxmH5S889P4vhNqvI+5wU7om0SjXw4EBBBRE4O7vjej2Z/zA44Ae
PwAWsLfc
"]]}, {
Thickness[0.01869508319312021]}, StripOnInput -> False]}, {
ImageSize -> {53.494963885429634`, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {54., 22.}, PlotRange -> {{0., 53.49}, {0., 21.12}},
AspectRatio -> Automatic}], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImageSize->500,
LabelStyle->{FontFamily -> "Times"},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{All, {-0.00135, 0.001}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {0, 0}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]],
Line[CompressedData["
1:eJwtmnc8VX8YxyVklWTP7Gu7l2te4w4UZWSUttFSGgppSTvtklLRkNIukoZ8
v49SZmTvTcslo4yE3znnl396nde93+/5fp7383me55ybZvBWn7WCAgICZ6YL
CJD/TlF/PJCaZ5Rgtr4AbZwd4T9tggcDj93neEQVoCetqW2FYzyQ6A2mxx0t
QEWbL9xaOsyD5UIRPzsvFyD8xj7x2SAPOob2ea18UIBOfrydV9rHg+vZsd6/
cwoQ43y+XuYPHsQv3zv4sKIAPVW+hwK/8ABVbrM88K0AiYS4nKpq54GGziql
yKkCZLnxxlmpZh68Wuh8/ZhCIXKgZxVI1/HgmId23it6IVJ9EWfdWMGD03rj
J0QXFKKaUaWmTZ94UFRbPBi1rhCtG1+X9T6fB/ZBCePTDxWi+p5ccaF3PGi8
Vz5N5WYhMh/bo+b5lgfJF/8E0XIKUaR2Qt+tLB7E6sxWNWgoRDc3zoyZesaD
IwFz6BojhSiztKt43UMePKJPuy4pW4SeeanU1d7hwa9HTWv76EUoofdZis9N
HgR9Sj32waMIBd27Y1R7lQe955dOv7CxCMnHjm1fm0Dc78+fOt9jRSgz4lH0
xFkebJ4RJyqRWoRYR5H9jRPE+lfTL7yEInQ/0wy7H+FB5MxNkUubi5AA+RfL
g4ciOKN/rAixN5hNod08mJ465bZPvhit7815eyySBzHdxqwp82IUffahzbJt
PFApdj0a5VWMtnuObrfaxIN6Pw+jzk3FyNcwdZPqOh68Ocg2dDlejNS0n2pJ
BhE8/DQOJaUWozIbpUThFTxoK+JbfoditHFTR7HoEh7Quu9wjZqLUe8bcSTn
Q8T/9oL7wWPFaBntwhZjDx4oibSEnpUrQU+eRTcvnM+DPMmVh9MZJejHYiS+
k8eDiy8LRgs8StBs5ZDhB448OCSimV8dWoIOvmD1dNjyIP2W+I1fR0rQoy5V
ppIlDxwYhnRuSgk6niZS7kHngd6L/bsRKkEqk6O5sUZE/EwkYkIbS1DgtyGR
DD0ezLxaYscbLUEr143caNckrsffP1sg9wnNjJ5+WkqNBxu8B1oPmn9C29UU
S1mKPNC66lfwzesTOrnYMmSdDA+s6npD923+hJZqL194dhYP0sRz8tgnP6Gm
Q3FxWWI8iGK8qzO//wnJRoNykxAPUhZO3PHN/4SmUYB4YLRii/Ht7k/olsp8
W61xLswOlAvTFCpFI0WJH7nDXPAOGFxTqlWKBGcNpgUNcOGns7DCA04pyu3y
bY7hc+GHrufBzMBSZOmF1l39ygXeeMnd3v2laJUHwzmzgwvDeQcO+98oRfat
jyJLmrkgfihMhY9KUakQY7yjjgs7LU9vSm8pRXIop2qkkljf1BlxZ7IUSUv4
CkqUcWHTzm3WBeplKLen/5BqEXF/EYvnSk5lSC/w8lLjD1woO2H07crqMiK/
XA/ZARdmTV9WMz+2DKVsezY+L5sL19xag3RvlaHW7mM5/llc2GzTtMX0XRka
zS8pCEnnQmyZ90RIZxn6Lr9fbfsjLmw8dl0kRPAzelVBVII0Ltjs8fYylPmM
QsaNbp9N4YIeD9XN0PmMvpzTq7qezAVm69eUceZnND/+jOeTRC6s8/r0WNj1
MzoouGYOiufC6/gtY7pLPqOrLXfnlp7hgvGj4iMrNnxGJ2lLolriuPAuscvn
/q7PaElzhPzPw1yIXvo6UPLk53/+IeLf5/b0SBKx39lRc+k9XHBbcslR7sln
1H5y1VOtKC6suXh9Vjb+jJR/MyKZ4Vy4eSd47s7yz8isePth1zAuTJ3o2ObW
+Rmpz9JsDljPhRhn9enmvz+j7zn2+zcFc0G9Qq6GPqMcnWv4sDFmJRfaLQq/
uyiVI+k1b2+cD+BCXqiNY7hROdqyTEP9ji8XinaEVGY4lKM7OQPdrzwJHovc
74t7l6OXp+kjJW5csBbqxdHB5ehuUdOidmfiPCcWKExElKOtEcO/fztxwah7
7dPLx8qRnfPuV+IsLhSMf+5xv1qOTIbWbJlrRcQ/S5Ou9LgczT+QpcBkcEFK
LmCvIJSjU31bMucbc+GNQsRnkcpyNGp3xnkljQuhKNJY70s5OrlOtiBciwsq
YivPBY4R68OnOR1V40LFiMHfF5IVyHS5//2rilw4faJpq55GBbLTmT3jqQwX
PHMjetItKtDWEkbA+1lE/icNbgmYV4FKfN8k1YpxoVZ58R+l5RXI5839qh4h
LqQ63Dg9vKXifz4CXIgQKtXvO1iBqnVy1GXHOTB/a0exwOUKVKnfTtcf5oBG
TFOU6cMK9EcizMp+gAOT9LcGO3EFcitdaebN50DrsQNdDZUVCLZmqaz5yoH3
B43Tln6rQIH9keM7OzjwWDMnfOhvBdLzTio92cyBq2ssnO9JVyL5swYJN+o4
cGrBWfVovUpk+ljN63klBw7WfBYIYVWirQ+i/34s5cA+4dEfG7wrUe1Ru+SG
Qg7srRNqjltbiTZwQxh9eRyI8Rqp+bC7Emk0D76aBhw4vLGsTvVcJToW786S
y+ZA5LT7TufvVCLNlGKsn8UBJv/GBt3sStQnGuVqn84BMMz0rf9ciX7mu5V5
PeKAUk63wOMvlUi71XVZSBoH2LeZ227+rUQnPDd/jUrhgFXzzVvP51QhPfmc
qBPJHBjfaJjwRb8K/ba0Er2eyIEzC8vdbZ2q0PDjumvp8RzoPZDw7qF/FTKK
SWV8OMMBFYmdfx3CqlD83SuFdXEcUPgWOfrzYBWi016F8A9zoE3xQlbulap/
/uHAruRiq+fPqpAgI/y6zB4OtERq7crLr0I2byScaFEckEm5tO93SxVKuVbW
bhfOAVktfWfX4SrkWP32qGcYB7p+15RkzaxGs9dXmgSv58AhtdsK83Srkcwi
mdrIYA70JZ7SGbGvRu7xew/GreSA/ob4oY9+1SjLRIqeHMAB85MvD2eFVSMf
jeLWZ74cEBEcq/1wuBrpbHp2Ps+TAw9LlvT+SqpGBrOwS50bB9R7KvN4L6pR
sNjIeI8zB1at3Lwq41M1KlkRkDnlxIFN2jpv2F+qkXbX9c0yLA4s+alRNjBZ
jdT3HNWjWXGAsePUxQKFGpStKdVqx+DA8JN14h/oNehvrc1lT2MO3E95Sv/q
VoPak6d7BdM44Oa5foZZSA0K3bFVJEqLA5Xpp88k7a1BCQF7c+LUOOD5Seuj
2aUaFOJhGJGsyIGsm3pPvj2tQTWLdhmmy3BAzPiKa35hDepZG9qWN4sDC7bu
PlvcWYNS4/4k1IlxYOfGouO/J2rQtBzjBXwhDlxUizN3Uaz95x8OXDuedeqN
eS1K9YnIlBlnw/mHPpf9PWrRj8y4DbRhNmw/utJHfkMtqtZjq7IG2MBTqs35
e7AWBd+7XObJZ8NECK4XvV6L4m3PHQz+yoZ76+Tv2r2uRRsaDCyjOthgr9mk
daGqFrWcWPM1rpkNED/bW6q/Fv1xZ19JrmMDHT03yZCoQ6+Vc9zTK9lw5uaH
7N20OqT8p2E8r5QNdXaufzbw6pDG9yuP6grZMPu05fe9q+tQ4dexFfw8NjAv
xx/P2lOH5Ib/SAoAG1yWBtbJJdYhs/SqtzLZbBA6PRBxPbMOcbNQGC2LDfr8
pD++5XVogfBrVVY6G15FBYda9dUhj+vvSzwfseGxMTfXRaKeqH8te4PT2CA9
y17woH49Yj0RM4lKYUOjsrdxj0s90tF1aY5LZsMs3xinAyH1SPTLudPJiWx4
mPWR5XygHnX28x3S49mQ7mKgybxRj7JclvblnWGDhsDdn9459ehAV/X1ujg2
jHbbp11trEcun4K9+IfZYDfSO0/6T/0//7Chy+J1eaZiA3q+9/EzmT1sGLt2
3fmIdQNazdsURItiQ4TZ9ZsHFzcgQT/bOaxwNqzoe9n9KLIB3Xii8N4zjA0P
6npkhBIakLmvSETwejaE9NkaHc9sQJgjrBsVzIZDZilGtlUNyHm3bE3cSiK+
STpyCr8aEPy1OJYcQMSPmftVU7YRMQtDbNJ92RA4svP2UmYjSmm9/T3Pk4jn
l/nzkV8jEmH/ulrnxobFAswar8hGFPzDbyHfmQ19LrYesy41olctHyamnNjQ
nxXweCyrEXlecHgqw2JDxW7tDfJ1jSh8d0YgzYoNkq8Nf24Ya0Qal3XmsBhs
uBm+hTug3ISWf4t/72nMhrjUvqCn9k1Ic4tAZDCNDZ8WPfS4vaoJ7dDfqBel
xYa1u1KFP8U2IR+F8to4NTYsV2mIM77dhN7aWcYlK7LhjvXChtwPTSjjwiW7
dBk2uJb+GT71rQkx5/7uyZvFBk5rd+tpiWbEafNOrhNjQ/zGmQl5ps2osfq+
J1+IDext4fIMn+Z//iGu+6XXVEY2ozU5d4Npw06Q9KNv38Mrzai1c94HT74T
eK4WXfM6pxlt29FJi+pwggDPVfIT7c1IJWzXieQ6J8h52X8xSqQFtXwS680r
dYLoa7hV16gFZSVe9OLnOcGpsaJhce8WdK9EKUMm2wmGy+c06Ea2oKehV2RZ
6U7wRudyXNTVFvR5q8zO4DQnqBpYIjyBW5BY67H6uGQncLP193jd3YKWvRxm
pcc7gcz4maCHEq3o3ehqIv+cgGktzK1ktCLu7fdEvjlBRu/LPnpAK5Ka0Amh
RTlB2S/7r4UxrWjFwmMfPMOcoFHL8OHtO63I6PwPWlSwE9Ts3G+HSlrR3mLP
E8kBTgBD9glKv1rRgvHn/DxP4v4L0psbZrah6xrKXnxnJzCkRy8u1GxD4awD
6TIsJzikP8Sss2xDBQu+y7AYTuDD1No1w534/iKfqGCaE1z2FdZesqoNDS98
Wxen5gR+R5PM87e3oVIHGitdxgmOl3xNW3KsDenrxBO8nICh9/WgaFIbEqT4
EPvFX31f/6wNBZZvJvg4wg8ZwY3FH9qQfWJTniffEf6kqUU1N7ShJL+FBB9H
iPXq/SrV34b2iuTEJdc5wl7xcBws3I5aHpvy80odob/u3t9q5XYE7rc8+XmO
UP/m4o1QejvSaZZNl8l2BLtnzHtqru1IfG2cDCvdEaRfH5cfXN6OtnVMRgan
OcLq6nM/voS3oyX+kXVxyY6gJ+yh8/dYO8rN4dulxxOfz895z7jeju6rrE2u
i3OEOTfaC45ltiP5rS1TU/sdgSX2xmKyqB1Z6AcE06Ic4Qu7fltieztivCzP
8wxzBAWBCv7S0XYkpbqA4OMIFa6paVypDvRpcV5ccoAjyMl53/LR60Bb1jsQ
fByhbWN1fZxDB+J7ZHnynR3Bcj5z0Te/DuQlbkbwcQSZx2EztoR1oPNJaQQf
R9h5Jeav8uEO9EJIg+DjCOtnbqT/vNaBsriJBB9HaBY1u/3jeQe6ung2wccR
Wk5+8ptZ0oEC2ccJPo6w9pKLy5Kujn/+cST4X44o+NuBjibsJPg4gDr3XUeg
XCf6KfCT4OMA7M6PZzVMO5EVdx3BxwH4Enf2zJjXiYKWEuW3zgE03q64KxfY
iTa6+hF8HKBpqFdqwa5O5CdWTPBxAM3nAa/SLnQijRQOwccB+saSbhg96kTF
s18RfBzAueDNh5oPnSjA3zQqOM0BtNUzDO+3dqKCrakEHwc4NX6wNGWsE8kH
KhP+cYCYQJP09zJdyFXvHMHHAX4vTK+QMO1Cfu+ECf84wCjMstgzvwsNLdxD
8HGANf2H1eRDulBhSz/BxwF0pHyb2/Z1oeadhJ5gBzBX27W9MbEL6Ss2EXwc
IF55pEk4sws9wYsIPg7AnfFJNbCsC23ekk/wIePxh/HjRxfaoONA8HGAc09i
VVNFulFSewbBxwEYoauaTmt1I4m7+gQfB9CSuRie5tiNMsMJu6s5QMgjzab+
Zd3oojNRPmQcYIg5Q3Xjzm6UoU6UIzEHqHvkzJC52P3v+dQB1GQbVPjPutGF
b0S5HbaHlI35jb8+daOVdT0EH3uIfCYZbtLTjYLLiHbUYQ+Xu+83Joh+Qbc+
1RJ87EFS/IaKqd4XpFLpQfCxhzI1Pn2Y9wWVtb4n+NhDp8Z5lb6gL+jtkC3B
xx7my5xplIv9gjpnPSP42MPkr45tm69/Qc4MPYKPPQh+PNv46+0X1LEsieBj
D4uPXlR51PgFvTw5h+BjDxOWA/T4P1/Qx/dEvsXZw2DVHZUHSl/R7OlThH/s
wTYko7Hf5ita6kLoibKH0FvXmsMCvqKQo4SeMHtQ8v5yWjv6K2J8JPQE24P3
1gt82cSv6L0QcbsAexCaujHGfvUVyXKJ43vaA2tq1ou0uq/EfEyEw9kehre2
qruNfUWCr4n2wrIH5iJpa13lbyhpkNDDsIehlNQJFusb+mNIbE+zB/O1V7af
XvENKQUTx1Wzh9+XfyYoxXxDfy8T8mXswZ6Vtr7txjd0q4QIpxhxfy/42p77
7Z9/7GFtpZ28etc3ZGhObDfMAkaB/NBFke9IPoQ4Hp8FMSZ+Ma4G39HHC4Tc
DhZ4Th96ab7wO7LNJfTUsSDFbejG0q3fUVgfoaeUBVEC/lbZF76jEGWifeWx
oISmuGdJ1nek5kIcJ5sFqdh+i2nDd5S4hZCXzoKp/HdS7MnvqO4SoSeNBW3s
B6tPaf1A9TmEnmQWOBgOrZSZ9wMldRJfj2eBxuFk8epNP5C2KJFvcSw46Hl/
bfm5H2ijETnvsCA0Tn6raNYPRPck9ESx4GvR8lkHGn8g43BCTxgLpO//NORO
60GrLxIfB7Pgh3ZF3gJaD8p/SfJhwWbW9KZkjx60vpHkw4LrPw9us4noQQ5T
JB8W7GUvOqhyrQe5aRN6WCyYYbpFet67HnRyHnHJYIHTq3q17O89SDiM5MMC
vdb4tJ3SfPSctLsaC16lJD3Za8tHV1+QfFjwS/CXeVEQH2U1kHxY0DV1hRl4
gv/PPyxIvHLmueNzPjqpS/Kxg/ay8qdrm/jIfQHJxw5qUkIMqoV7ESec5GMH
O+c4a5w260WbL5N87OC9+o6Lp5f2os85JB87eJvff6TmUC/a2EUsz7ODkJk5
v9Y/6UV2EiQfO8j6WdvGqe9FbHOSD3G9heO+RqgPxSwl+dhB8IkxeplZH+qP
JfkQ+3EFEg4u70NJ90g+dvDxsn9UzLE+tOczcfs4O9gTN1b17nkfujhK+scO
GhT4z7za+hCQ5T/KDh6/3v3FZOZP1D2f5GMHD7sHF62z+4mmtpF87KDjmt/Q
6PqfaPYVko8dzG+6UdSd8BMp5ZJ8iM/vVtUa5/1Eit9JPsT68UHl0sGfaJY0
GV478N08Udg1ux+N2ZB87OC7ZtSts/r9qCmQ5GMHV651xq9n96MXpN3VCH0N
LrfCAvrREbJ8yNgBryWp8Pq2fuRBhlPMDhzTvklOHu//x4f4vqXBphO3iPXk
dsO2cO74qi7em34U5EXysYXKm8ejDSv7keBOko8tWMSk0Rz5/ejqdXJDW7iv
kT0QIzyA9D+SfGzB7vj7Gr76AHrcS/Kxhe5MqDlmM4AM5Eg+tpB2N2PAy2cA
Xbcn+dhC7MorNJewASS0huRjC9H1EdHrjw6gtSdJPsTnyi5dWTcHUHYGyccW
7mmIb7LIHkCiZL7F2cKXnveSzdUDyIMUFGsL9nu3Fz7vH0AnyfIfZQsfz/uv
zJEYRJ9IPWG2cJr/6PCU3iCaTeoJtoUrp6KddnMHkR+pJ8AWesNfnTZZNYiu
kfb3tIW9SWFblXYPog4yHM62sEQyocvh0iAyIdsHyxbCcxm9VzMGUTR5ybCF
0mxuHL1sEH0gt6fZwo7x/FeTPYNIhrS7GrE+NnePsNgQWkPKlyH0uZtVOOsN
oUyKjy30L5V++5Y39K++2ULGk/W2m4OGkD/FxwYezDd3X7x/CD0gj8e3gQ5a
eN/O5CEkSMrtsIGlC3X0KrKH0AoyfHU2oJy1YGBNwxB6ReIotQHVtV+96GND
SI5cnmcDQUtHOEzFX2g7eZxsG+i5sCd/m/UvVEmW73QbeCUd0da9+BeyJPWk
2cDH6rZT8VG/UCIZ/mQbUGnNLdl16ReaJPMt3gaemSjcTMz6hdaQt4+zgVO5
bSL9Nb9QMflzyX4buHtVfVrsyC/EJPVE2cDyBN5Mb8XfKJnUE2YD46ff3V9v
+xuJkB8H20Ds4Ws1H5f9RpvJ2wXYQG90afzmvb9RNXl8TxuYv2l5+/Lrv5ED
xccGDizn4vPwG92mypMNPHY7ZCLV+RuJU3xsIMdS3bhKeBiFU3xs4OVcmew2
/WFEdus4NRtImhHcwFw4jBwpPjawrlf8xOetw+g2xccGFMtnFj2PH/7HxwbK
MjZebXk5jNZRfKxh8QXNce+mYVRC8bGGD1vN+eLTRpAZxccaVBckb5bUG0EJ
FB9rWKoTvN9/wQgapfhYw8HxWM0v20bQSoqPNVz6POaLLo0gTPGxhrO3S+Rb
3o4gqnynW8P2iLFQl84RdJTiYw1sXqzHL7FR9I3iYw2DUkG5P+ijaCH59Xhr
ONNw7YN+wCh6RPGxBtnb9GVP9o8iKep5m7h/6Nz9e9JG0TaKjzXQwvsVrpaN
okqKjzUsmDASlR0dRRYUH2L/mRVe3zXG0CWKjzXMvd3Rp+Q+hkYoPtZQ+HZl
950dY2gpxccaRpbxLE4nj6Fsio813N4XX1eWP4bUKT7WUKnjWb15cAzFUnys
Ic57h8F6tT+og+JjDTkC06uz5/9BzhQfa4iwnKjdFPEH3aX4WEN6X5D5zpt/
/vEh1hszuppL/iBqu2ErKOrb2Htj7A/6SPGxgjhLKc8cvXGkR/GxghIBdREr
v3F0guJjBSe9L8uJHxxHfRQfK/iss2ev7bNxRC3Ps4JL+wrt8lrGEVVus62g
bdlB7wcz/yKqPKRbwcO3d3J67P+iaIqPFfxKsTh4POwvospXshW8m2l8PTbp
L3Kg+FiB/MQZ6aqSv+gmxccKvm5b0XRw4u//z3OxVmAXenHylOkEWkPxsYLw
x0L3plZPoHyKjxWMC+0R/XZ+AhlRfKzg49aRua55E+g0xccKWnp39SmNTKB+
io8VcPYLRoQYTiJfio8VDGqff6a1ahJlUXys4HujbuqSC5NIieJjBXpp4CmY
P4n2UAG1gowjQc+0/k6iVoqPFZzZKVr4ijGF2BQfK3i890Vi3voplErxsQLF
hA1zXa9P/eNjBQOgudKhegqFUHws4c/+fn1/EQFMHY9vCdoGlTGuWgKYktth
Cf2NNs+2Owrg4xQfSwhM1MypXyaAKRyllhC56vSdPTsF8P98LIFuujc04KIA
/p+PJZyb0Se6LV0Az6H4WMKVHx2H3pUK4B0UH0vg1S5r8OIL4BqKjyXEf/KX
VBSfhm0oPpZw7FOlkor+NHyV4mMJmrVVgktdp+EJqr5ZwoofAfnla6Zhqj1H
WcLFhD0Lzhyaht9RfCxBdn3Ajssp07AuxccSalf9dOzNnYap2wVYQtde9pOz
7dPwDyoAlsDNXZAbM00Qe1B8LKHNSDr6jaYgpsLLsoT8t+cquFxBTOUbwxL+
7ij6rBAiiCMpPpYQvQhttz0siOspPpZg5x/2Ku2OIKbar4wlOO+vuhWcL4ip
di5mCdfKhk03fhfE//++zQQn18rVSGI6/p8PE7Q7Q5mrTadjKt/4TPC+++bR
wkXTMdVuO5hQdPZDwdGI6fh//zDhzI0Tx2cmTsf/+4cJCdVi/Lbs6dib4sOE
HwzekEDbdJxJ8WHCsUyr65uFhLACxYcJG1Z28fUMhPBuig8TLhgvbDX2FMJN
VMCYIK61JXL/DiFM1et44v4O7k/VrwjhFIoPE8r2t50Sx0JYhPIPE1S/0Wfx
uoXwBooPsV+Urn+VhDAupvgwQcLo3qEic2FM1etgJsQIv76iu0wYn6X4MGFE
OOBy9wFhPETxYcIm4yN7xR8IY3+KDxO+RrPdLlYI49cUHyas6ImbODgujFUo
PkyoPxR0pUZHBO+n+DBhETdf9aynCP7fP0z4pJd97FG0COZQfJiwkOHQYHpb
BP9f35hQEOQhK18qgv/3DxPWvOqxDB4Twf/XNwvoYio6yejOwNT4wreAoNoK
M4NFM/75h/j8hopo6r4Z//xjAYFnBvMPPZiBeyg+FvAlZcnWgtoZ/+dbngWs
aXafDBcWxU8oPhbww6EkItZC9J9/LCAsr7FiKEj0n38sYGjbLsWSc6K4iuJj
ARG8Oy5iIIqtKT4WMMlavezhT1GcSPGxgNhlaYsz5orhP5R/LEDyxj47dW8x
vIw6sAU0LUsunIoVw1TBDbMAZmtu/voMMaxJ8bEAReMe5uIuMXyQ4mMBJzlK
0sXy4rib4mMBZ+cuXPHRTRy7U3wsQOHjIfn5+8TxY4qPBRhZgpN3ujiWovhY
QEPYtLqWbnEcQQXUAkQ2z2sdUpb45x8LwJYX/M96S/yfbzLEefPb7dKPSvyf
b2JEfDWszi7NkfjHh4gP76zP8V8S+P/5wBwWm/YedjCW/D/f+OZQ3O6lt2uN
JGZQfMyheuVLK1ayJE6k+JhDWIp21qEaSTxJ8TGHo08vpvrMnonXUnzMwfSI
uOA995n4E8XHHDZqHyk9dGQmNqf4mAP9hJD4F5iJr1F8zGHv6+OZpX9nYiHK
oObgly5d6mA7C2+k+JhDQfiNxRZRs3AFxcccXv1heD59PgvbU/4xB8uFhZnp
A7NwKsXHHOquOU33oUthcWq+NgeduVsz0rZK4S0UH3MwqFnyLuOpFK6k+JhD
A4yZ7+iXwkwqQc3h1lbDg78UZ+N4io85PE5kqojbzcZDFB9zOLP82prdy2dj
L4qPOXi8WrXKZd9s/IDiYw4tT2JEN92YjYWp+doc5juNB/fkzsYrKD7mcD60
avPHrtn4OcXHHNJNxA3+zpD+x8ccck8mXTxlJI19KT4MiD908tlOL2mcSvFh
gINc7d6cHdL4F1lQOxiQzd4/tjJRGvMoPgyYI3JYb2mOND5L8WHAwrXd0592
SOMmylAM8Ft1+/xq0TlYl+LDAOZATtlG0zk4jJqvGTCoZok++83BGeTrljQG
HO8SXXl+zxw8ShmUAUPOto8epczB9tR8zQBLp48PtYrm4BhqYGXA4sqny4cG
5uC3k6R/GOA1bThbXVkGT6MGGgaI11dHvODKYA/S0GEMOLDxlGnBJhl8h0pw
BqS9UPq+OEEGC5GvkwIYcOLNvtQgLIO3kK+nPBmguutV4LfvMriNbEjODNg0
UKjWIyuLV1IFgAGh2hmNoWxZ3GFLXjJARyr86powWbyN1ENjwMVMkWWNibJY
lPIPA57L7FAu/SCLH1ANmUHMZ1mN9kOy2J/iwwC1qbJkmqbcPz5EPE4SJcpL
DiOKDx0OlB/TCY+Rw4eo51M6MMt1v5c9lsO+1PMpHW6cuPrkQbMcNr1BbkiH
NxPdEdNmyWNpsmGV0uGEoah9laM8nqAaEh0UpKcJaW+TxwPyJB86LE3/XNJ7
Sx73Uwang7vEzkvMKnk8Sho4jQ5j6r8CR0QUsDjVEOiwmD/P2MpOAeu8JPnQ
YduO7aP9mxWwG1XQ6WCXueMDLUUBR8wg/UMH/GRBfEONAj5FNRg6tJ+hLdOU
VMSbl5B86JAQy5wjy1XEClSDoMPnQ9uzM6IVcRzZAALocC2x3X/iqSIu+ETy
oUMfOtA+9FURl/4i+dChZthn1SUNJXydajjE+dn+JV1LlbANl+RDB86140at
8Uo4iWqAdMif0bvnSKkSzj9D8qFD65GDObViyhhRDZkOR+Tc+qtdlHEM9X6H
DulZbNnYg8r/+NAhMTTUoAYr41SqwJpBt8l7s7oJZdx6kYy/GWRN96QdtVfB
91vIeJuBSo/Y7LY9KlhMn4yvGQh3DX/vzlbBf7eR8TSDo32yLy7/VcExr8n4
mcE58TXhvx1UceI0Ml5moGHTpT61XxW7upHxMQP7nQk5me9U8cFzZDzM4Gf+
Tg95ETW8qJY0mBkYG54s1XZXw2/USL1m0J9cxm4+o4afhpD6zICl7ZLKrVLD
dvfJBmQKWm96Rn2V1XHxT9LAphB6qMScGaSO62xIPabQfqPfReS+Og48TOox
hZtSAeZFA+p4dQWZ0KaQUCE4up81FzdrkXpMIedb/yXa0bm4PpLUQ+zvoyWV
Wz4Xzy8mC4oprDm2gK4npYGttUk9puB/Nu1Dl6UGvrmP1GMKLew781RXauAj
DaQeUxBKcs4qOaxB+I3UYwolN49IDz/SwNnXSD2mYOG1YWlitcY/PqbgncY/
/XxSA5evI/mYQO+9OU/n6Wti5c+kHhPQ8Wt46+ejiRtZZEE2AZH7vJcNezWx
+gOSjwlEp3ler0/TxHXK5IRoAse9xsMXVWrimWfIgmsC9rfczLlTmjh7OmlA
EziVZNv60EgLf9lDTowmEMEpjj4ToIXPDJOGNYGxs5OT349o4Sc7yAnUBDSP
V4aj51p4/hA5QZrAFwP3cokOLbw6knxhZALcyGC1itnauG+MfMFDXG9UXSzN
1saHo0kDG8OtQUlO51ZtnPqNTFBjMBstuB10Uxt7u5OGN4b23d4xp8q1iXnn
OaHHGD7svv05ZLoO9uggC4QxFI/kXv1qqYOvKJ4i9BjD9MGHTQqhOjiaTT6x
GUNgaNClX0k6uHkp+cRlDL0rO/L3levg8jXkBGsMyWWm4c9FdLFXEKnHGGKR
64UEe10c4EXqMYZThoZGOjt08U9TckI3hhyZetbqB7r/+BiD227fPNcOXfzo
HZlvRlC78kpeg7Ie/hpFFngjOIIe2Kv46eHHqmRBNoLVSceMRc/o4cnn5ERm
BJtGzC7eKtDD9fbkE4kRpJTd3vF1Og07vzxC6DGCvzqdRfVONGyrTb7xMIKY
kd4r0Xtp+GXsCkKPETDn5bW9f03D78rmEXqMQFZ23Y3sERpeNtuC0GMEiqsq
q1db6eMYrjqhxwg8dCUPP4vUx2brxAg9RnAndPaDxy/08YY9vwj/GIKpUdu8
JcP6+MTzVkKPIdj4TLtbaW2AvzoVE3oMgZ4/Jum22wAf1nhJ6DEEoROFe1/m
GODV/uQbG0PIv7rtt7qgId7VcpbQYwhbx/qi9s8zxBXZewk9hjB0x3la/WlD
HNobSugxhJU3wy8aVRtixx1LCD2G8PJbJH2nmhH28XAh9BjCcMyi6ux1Rvj2
HlKPIcwKETo09swIW06SEyRxnXDGlv7XCAtUk7/XGYKoXP/o6vnG//gQn3fq
5x5PMMae+8nf4wwAT9pceNBpjCt9yAJvAKEbNMI+mJvgpN1lhB4D6Jzb6ll/
0ASnDZNvbAzAVTfS7kulCe75+IzQYwCXojtM+bqmeFvPLUKPAbxTohn3RJti
8zXxhB4DaBHlmXeWmGJLxhFCjwFUuFhxqjTN8A6fnYQeA3jzWWAp2mmG+/ND
CT0GcPx+yq5bpWb40fkVhB4DkP92utxRho7vPiUnJgMI1sraeN+Jjts0eYQe
A7g63f34uTA6flNgSRheHz6t1Q+efZWOzxzWIwytDzO06XSXAjrBQ44wrD5w
WEGDpiN0bMYSJBJYHyKeZN/7pMfA45a9hB59eLbXyVdzCQN/cKkh9OjDzzv8
AYPjDHx2Yw6hRx90Dd8f/vqagRenphB69GGV2HuJZXwGVh46QujRh+s8/tED
c81x7eL1hB59aKlzHF7pa44Ty1wJPfqgWPhm6c9j5njxSh1Cjz74ywamW+aY
4//fX+tD9hvTCfqQOX7xsp7gQwOBt3oO7QYWeOPhdIIPDVwU54e7BllgtXXH
CD40OFx24UrgFQv8acVygg8N8tpFsswqLPDuDSaEHhrM8kr9+FyCibXiJoiJ
iAZLFDYV812YuAQVExMNDa7aLc9riGXiCLFEcsKCllcR6fveMvGc0GDCwDQw
v/DyQvUoE2c2GxINgQY7P2pv6LC0xH7rB4iJiwbI/zUjdYcl7hPOIiYmGkiy
o38qZ1jiI6+jiQlOD5YfCbzlOmCJj81iE4bXg43xtCEvhhUOOD+HmAj1QLDu
4LnV263wGKd/IT9PD+i+23dFZlrhjRr10qx0PfgmNPz4/IgVfmT8qSYuWQ+0
e2eaZrKsMVpXcq0uTg9+SbwZa4q1ximlNYG0KD1wDfozWzLfGvuv4etGBeuB
cW/pDs4sG9xIm0no0YOEp9Za+xbbYBMlW0KPHpy/x1TFN2ywn802ooHpwZy6
D0EzfthgtyMZRIPSA5pjz6C/pe0//+jBWENq2YMDtvjqvQAi33RB5cngiHCZ
LZ6KeUvkmy5UvqzatF7NDjMPGREFVRfkR92NysLssMOLO0QD0IX6Lf5WDjl2
WFHOqDEuWRcMVX+dSp/Fwjgl+2ZdnC5ICdDMjINY2GbVEmJC04VY5T7Vx5ks
fGjepFFUsC7s2OS2mClmj5NWPRvI89SFP4M2jbmr7PHx25uJiU0XBNPfPvR/
YY958lb7gmm6kHKnKv+npAMuyxLjpcvoAnyONTu31gEbHfkmKiCgCzvNczus
sAOOXfyo1JOvAwd8LOXllB3x0JTpxeQ6HSh5tXdyeZQjPnpg21J+ng64r718
TaLKEds1blNnpetA/5IjvdoWTlhqJr0zLlkHPp1z/ZUa74Sn5J+k1cXpwDep
xqdnfjvh2WM/NtGidCBpo+a5bcZszH3+hZgYdSCgH2mVrmLjiy63hvI8dcBE
6aNU23k2nv5MmdCjAzrdVkvufmDjC4M+u4NpOmDpJz2m8YdYP9PdIV2GWL/O
/7eXGecfHx0oUJm+0GItB/cWRbzz5GuDfoTyRNE1Dh7bfO9wcp02pGy9JqpQ
ycH636+68vO0wWzW0S0KEly8236hKCtdG8q8GkxLeFzcuv5tYVyyNtxlJrpZ
7uPirZt6TtTFacPutxj5vORi1Xn1C2hR2rDtq/cZnUEu/vLniGRUsDYcfbHg
1QMTHi47OlCS56kNr/Se2XeH8nDDD5XTMixt+GMXo1J1l4en04Q9gmnaEDT4
wm9nFw+7sx5LpstoQ9vCJd9KtZzxC5psydSUFmx3D65pCHLG3YGKpzz5WrDj
xVqp9FvOOG55okdynRYYBPQfWt/hjFMULs7m52lBrLkgc1LbBRskSFTbpWvB
NedrcyPXuWDNqsmrcclaEHUm27Xkvgu+ULU5uC5OC75Lhdyf3ueCd1wKMKJF
aRH16fw8FQtXDEr4d2SwFsx8M09TZpcrPrbqVm6epxakdhy26sGuGK2ZOiPD
0oI+rtux2zPm4XXG9SuDaVow0nBRxt57Ho59YWqaLqMFzx+sb8y8Mu8fHy3w
ychtmdk1D09KeFR68jUhaiBFbZ7ZfLy1Xu5ecp0meG6QSAzcMx8v2bAshp+n
CR/kxz2WFczHT14pL2ala8KMiXAnprwb3lG02OxEsiYIqWwL61vjhp8nzxKv
j9OES9t+Vx3PdMOrzblfaFGaMDAxbdd0YXe8//jA+6hgTRB8nxCwarE7nnNT
9fYHT014hZ/tuHLPHcvten9IlqUJ9F8+RZnj7viUzJe1ITRNWBG4d8UzrwU4
authtwwZTTAVMjE8lboA15y6bjpNQBMeta6xmP9nAY5t0J7tzdeAb2O95494
L8SB+dO/X6/TgKilF1Z3312Io30dX/fmaUDY5KKk9RML8duYylj7dA3o/WY8
X9LPA1u4vXc6mawBLYraIZUPPHBLxszh+jgNYJ1h9r6d5omzszNu60dpgKxb
0JeCAE9cGJIxf2ewBgS73fcceeqJJR9Kdn/w1AD5s5J682d44djzudGyLA1w
Vz4Zlr3KC+sqlE8PoWlA/w8drUVZXniKxTqaLqMB+wU23xaa4f3v/ehcWGnq
3ztg7o13fXTsSKqbC82TRVv6V3ljn2Lz57bpc0F1eylN4KQ3vjmraXtN3FwQ
Or5aUfOlN3Y7Z6e5I3gupLNj2L6d3niZtyeSYs2FOUmGNy9JLcKlngruj2Tm
gsXVNdY9rEU49WRC3ny+OkiyjEUWbViEu0QKTbrz1OFKzAHJgouL8FFIP3Ig
WR2+rlnj7p27CCe+8ipRi1KHjt4q/L13EZ7qS5n2xlMdUpQqwy4q++BPIQ91
F9PUQevbqkXe83ywuEKozeCUGrgvjd6sFuGDP/O7I87UqcH3+gDroJs+2LfQ
SN4oXQ3u1tjqHij2wdce2akWxKnBXi8V632/ietLc46tDVaDSOeJMH91X7zs
2PPF01lqcOpF60cxV1/cFKN28paMGmSnvHO+GuaL5fZ567D5qjBL8u4XkQu+
WPHgQq3WPFWIGIh75JXli4tOSx+JSVYFEd8tlyLqfbHjzRsL1aNUIZ3umxo5
7ov3vB6ORp6qEH7CpsZH1Q+H1cuLr6apwrJAdWNJez/8//9/U4XtGUJ3by3z
w1tMMpbdqlOB+Ngenky0H74eZKLMS1eBsqIK4aCLfvhoUrhjd5wKGJ1/03Pi
qR9mtsTkHwtWgdTKlN/nCv3wFT3/F4YsFbC/cFJ7R4cfzon8NaNURgWGSiIi
GX/8cFrxChzOV4bcQ6t6imf743n6ZxrlPihDZtb8I1w9f3zz5PEVb5KV4eNa
C16CnT/+8HsBd3WUMvSdU9fN8/DHN9bVnRLyUgY7G3GjstX+2K7FxP4BTRlu
LB/2y9rmj8+tWOjtLaAMtPGOlF2x/rj+gVL47zolaIyfdKg/7o8XXtjjmpiu
BJCy0yvhkD/unLP9s80JJaijedY+JtYnG0/Mqg1WAg3tg9Va3v74dKuq4A6W
Ety/KOP+S5PY36j8vqSsEnjtFbTU+uKHi2Yri6TyFYHb4HnpUZIf1jw7Im/7
QRH8n4xujnch4nc3tKk4WRGujE5l17T54nlLti1eEaUI6q/XxEZt8cXStySO
/PBUhI8/9bK39/lgocOsDVE0RbiZ5BpWHOjzr74R++P38bEfFmG23NKFx+oU
ICrgOuOCKpHv7109JNMVoGF9jYvAOm/MlCgUPBunAHKNtTcTeF74W09rmFSw
AtypyEnpvOGBi9eePHnaTgHmvFx1/kfbAvwhuniVmIwC0I+9CXsg4o75Oje/
HOyRhz5eOVNbej7mbRTT/vNeHq72pnz3E3DFWfNnyG5NkgftQ2Ynnap4eAFc
ed0eIQ8gtFOp8xQHK5SDjI+HPCz/Oqi/388RT+7eqwW68pCbtHn0foAtno1K
uo0m5eC60apbrnpM3DrpbJFcIweoe9ZnhcUmWDQluk3lqRy8vhugGXRfE59L
W9+bdkwOuFvXNaQqCeMwqTnLOIFyUDH6CpwWSDndrt+p981GDnK7J33cU3Sd
nESu+CRJy8F+I/6ooKy5k0FCZMvKH7KQuXDlumkZtk6RR2cWGb+XhcrQ7zbn
qtlOcg2BcmJJskAPujvz2ZSzk9S5rTAYIQt9J9cyApe4Oa2/Z1v83UMWor7r
pd5s8nDKuJqp+MlSFv7eH6jwCPZ2+g/4BtCJ
"]]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]],
Line[CompressedData["
1:eJw12XdcTf8fB/D23pekoZL2vI17697bPXeUEZXKSHYlJCNUCFlFVshWJJGZ
Mgrx+bwliZIRClnRTtp7/M453379weM87j2fc16f5+f9+XzOucbBa/2XSUlI
SFSQ/1D/j9B/YnDVnfBrw4JaFK6xcbbkkBhab7eMV15Zi7J+ZPx82SeGrR9P
jDkaXYterT52cV63GL7uZ7yTja9F+BHvdHa7GLTeLvddebwWHSi6VFjWIgbd
y8eS8jNqEfPoC7N7jWLoUzx+dPB+LbqtexUtqRXDjeFVs22Ka5FciOfBD7/E
4LRb96vX11rkEn4hSf2bGA6fujAx8F8tcnfILdasFANwB6xnydQh/fuJ7K/v
xVC01raHr1uHPvWOr1r1WgxpTqw9Osw6FDYQlvvshRh89o4t/zm1Dn1ueqok
UyCGnffzJHWX1iHHvlgDn8diqFFQtJu8uQ5FmZxouZgrhridioHLjtahtHDV
7SPZYphm+DAu5lodulf2pyTshhimVI+7vPVpHcr21ausuCyGTa9Mizd+rkMn
/man+6eJ4VtFdf3itjq09Opl64qzYohU8pXnK9Yj7R1965edEIN7cLiJunE9
urfx5qahJDGwfzi7l7vWI24C4l3YL4YVO7Nm7Z9Zj67ds8de8WJ4ObVipfOK
eiRB/e0Qw2KX21vfxdUjwQr7EbRFDGZTWIeWnqpHy/8+ebw3SgzG2yPO/cmq
R5uSbrgGrSPzf/HLDCqqR+t9etezVonh9vza7Gff6lGAVcYq/TAxiKSsHhh2
1SMDk9sTVZaKQbFM/8kalQb0xnX8adkFYpDECGebNKDwVdUlCnPFYPdRHWo4
DejvIyU01l8MBzU0kKp/AwoyP7bGxlsMEyLxQ4uVDSgre9O3GVPFUN1tcJe1
owE1zkFKMWIxfLlofZ19qgFp6IZ0X+eLQWZ9/XnrrAa06z63qdpNDPumaKta
PW9AN//oO493EcMJqZh1XlUNaF+m3DtvBzLvJaWXBzsakN5w79Md1mLgW77T
blNqREvqO+TumImh4vireTETG9HCsJ4Lv4zF0FvTfdSQ04hUN0kfUjcQwwX9
ObjBrxGtN9Ap4+qIocS1/tfHlY3owByXkDCGGGI5t/p+72xE80zmz0hSE0OO
8WW5MWcbUdXuxMRcRTFEtLxRCLvTiMZsAt0qGTHcSrOV+PKqEUnSQGLY6Iqa
1/5uRBf1prpNHBABur+zzHywEfW8Ol0k6hbBYZ1NlyXHNiEptfbMpW0iqFly
MXLItgk9/RPwbXuzCJ4eHnLUm9KEXHxR2Nk6ERilH2wIWtKEFnkzPe5Vi0Du
nM+Jx5ubEO/HzajSbyLYsFnMEiQ3oTIZ5kB1pQhC3VeV1txsQmPRkw895SL4
XPt87q2iJqSpHCCl/EYEH6ICKk/+JK/X1Lpb/5UIZjUyfNL7m5DZklPzbJ6L
IMhD/uGbMc3k+Jq8mwPk/e22HW9o34zS12UPTMkXgVD89PDhac3oR83eJ7Nz
RfBIf8hNP7QZ9b4oLQ7JEYGfxi/d4u3NqEE7zmD9TRHITFjNPHamGT14fz5/
RyZ5fc+L27bca0YhA9aXktLJvHu3jex404xqj5h9OJ8qgle/JfMuNzajqcmH
fbJOi6Bjnl1GvexftEsqVAsli4DVKPVimvFfdPb7FcOywyI4fTzO8CXvLzpg
Pjf6e6IIxs7LuBUW+BfN/bZR+98eEdxmR0ZO3Ph3tH5EsMKhNnwwiWwvqddR
M1YE7mLps503/qJfBxbdnhgtArt1xcNKxX+RbhczyjmS/DzP5Qzx5y+yL1m/
Z3KECMJ1pq88JtGCJqgZfwtcLoK7yQprpQ1aUMMTXtyqYBFoW665fsytBR35
8jx8+0IRpFTG6gnmtCDN0McXjgaKgJvOLFDe0ILWBBlNuBwggt74pPNdSS3o
8pO2mgc+Ini3+0T20M0WlHfIoad0mghenBP3mrxqQVdeVfn98hDBl9dnolbU
taC1G7u7uggRKOuetiiR+Yc4HlseKHFFMOP+10qfif+QbUfoGkOWCJI/SPp0
E//Q1J2545yZIqiKUdr3dOE/dLBlzb2pNiKwvdCVkB37D/VyDnssNBfBTq9n
Xs/O/EMHwsYUR04kx8/mDeV9eeT5kZJEgoEI2LZyxrM+/UN282dfO6sjgrOh
sU7vO8nrT9KQv80QgcSRlbKPFFvR2lJm4DM1EeTeTijXH9+KSgMepVQoiiBC
c+yeoxatyP/RtQ9NMiIwvz9mnI5r638+EiL4czb+YPaUVvRx0pMJYwaEkF6w
/E/Q3FZUbvHLwaJbCKE2+RPGLW9F/coRLF6bEMwr47g10a1oWtlC+5nNQmh5
fp/zPKEVwdpcvdA6IeR2LdDPO9mKlrRGDcRUC2Hn8qifj660IrOZKWUHvgnB
R28k4W1uK9JOsjxxoVII+pr96r1FrcjuloHv3XKyvalhscwKMs/1TYNFZUIo
KBC/3FrXiioSOKlfXgrhzPZjfZ97WtEKUQizpVAI67b6q0xTaENG39ofSIIQ
vB7vlnyl04b2Jntxx+YLofx0seQiyzZknF6CLXKFcC/imYscpw21KERP5uUI
oZm9MbXAqw39ezHtje9NIWzr/+KaPL8NmfyYHBSSKYSwez3ymyLa0H6f1XXR
6UK4suyVUuS2NmSm/SR6f6oQhGoBwu2H21CXC0vh/GkhOGUdvXHhQhvqvlV5
LieZbM8zYdrH7DZkvT2D+fywEAw/OOgZFrSh5CtnXlYmCkEn6KjRtvI25GD+
IKR5jxAiKjLn/fvTNlo/QtCesbEoqrsNSTEjzzNihTD+QXeYhkI7cn2kTJhH
CyFKz56Lx7ej9HNvfnEihWARbSDeZd2O+B8fJ/hECMG5+On2ee7tSGN5uW3w
ciGc1tRv8fBtRww/RkVUsBBm+9sc9VjajrySt+5KXCiEFfvblwduaEe5tuoO
qYFCqHi4Zv2O+Hbkb1TyIztACOd+pmU/PtWOJq3KPlroI4SHw/smql5vR5Zq
2LNymhDsxpgXRz5uR8GKPQNNHkIYNIq92FjWjkoXBN4bIYRgbBqfFfOrHZn8
Ob+awRXC8eyXM3U729GE2AQzc5YQpgW8biiX60D5xuo/OEwhEKpHNmeM70CD
Fa6nfGzIvN81JQ7adKBfqdK+weZC+Ffkv20/0YFWblgrFz1RCFeL/Nsu+Heg
E4FbnyQaCOHSN80Fpcs6UIi31cZUHSH8VD7yRH1zB/rkt9kqhyGExX6vx4Yf
7EBNy1b+LFQTwoSsl6FfL3SgjMT+E5WKQjCaGH895G4HknxiM71ZhqyHWyO1
Ui86RutHCHW+broPv5Df9994jzEggFuKjh4JLR2o8V7iCvNuAdz70hAaLtWJ
PpoJ9LltAhguWLJ1mXYnCr566o1PswASCk7uj7HqRMluR3YF1wkg4POBpDR+
J1rxxdIluloAi+UFB376d6Lv+0PrEr8JIGvG3W3s5Z2o30twJrVSAPxrNWGX
YzvRQ90nXjnlAlA3qJhsdaQT6fZ/GSgsE8DEq3sNijI6kVHDmZuVLwUQ7dXT
uOlhJ3pZ17eguVAAKjJmt0VlnWhsd7+KBAig+gMj3OR3J7LP+fCYkS+ACPbZ
DP3eTiTKRRHmuQLQunKszl61C02XfajPzRHAZ6Mhx4UTu5D3+WelPjcFgDI/
J2Swu8j57/vW4EwBPOdY/Jb17kLcLEXb6HQBNH2un7IzuAtNMvX8lpgqAPt4
vfvam7qQQu2RQ6mnBXCcB1ZFh7rQ79Zm95xkAYyXqLiadKkL5XrOayk8TLb/
ZrH9hoddaOefj+crEwWw40YQWvemC3m+DvZt3iOA0OQXs/fVdI3WjwCW773S
9XCgC93deiubESuA/Xt7UmW1utFi8aql5tECKEl+5LPKohtJzXLT4kYKwPbm
P/kmfje6kDXumU8E2d9vT77cM7sbOQbIbQxeLgAfyexk14huhIWyptHBZH/z
uWFyu7uRx5YxnxIXCqA1wVXYcqYbwaDT3tRA8vhr5qTW7G7k/DLENSdAAGru
iRoqxd0o/celhkIfsr3rVTKiH91ITtB5tnKaAG6apEse6+5GwY2zZjR7CMDq
2me5QdUe9OD786ERQgDFnN1jdpj2IJ9j7rcZXLK/vNd/M3TvQZFb7iwxZwkg
dc6WMd9m9SCjU5O0uEwB1M8+9zAvogfNr09+5mNDek7/WHp7Tw8yXiMRFWwu
AEe2hc/zlB60wSLcLHoieTz+uHvvvR7kP+5dRaIBOV7adM5Nfd2DHnNcElN1
BNCJc8Nya3rQnWMnOTkMAdzeszpNONyDnA27mgrVBHCNcJ/aqN2LhD9nplYq
CuBXq+mibPte9PXjNZ9mGQHMO21enTy1d7R+yPHHEn04vrQXhT65EmzeTcDI
yyjnu1t60Y/fU577NBPAnFUg9S+5F63b8Ns8upqA8x/Miam3epFexOb9qZUE
zJh+pQEV9aLvrxX/FpYRwH7gLhXwsxflnj7u21xIwGK9ln0y/b3oaun4O4x8
Aoo25m0rZ/Sh2yvPjOHmEBBeeOYntu1Db9cyYoIzCZiudCLn5ZQ+pPhj7+fE
VALWTL7W2rq0DwXldXNzkgko2fQp1WVrHyroXUyOPwLCLuo/PHWyD4kuPSPH
G0Hu4GJF43L6kPrQpBDzaLI9258auSV9aMGMvc99IghYL2ANRNX2IeujjebR
wQTk922TnCvZj7aW+OxPDSTAeF6eyTz9fjR94G5zoQ8BlxdVL93K7kfnjXR9
mz0ImKI0kg/+/SiSuzOHwSVAcYGqo9maflQ8vYHBZRLQGKBaeDOR/L6ff3Sw
OQFNbcORsy73o+4ZjysTDcjvs6q5Bk/7UZm7OTeHQbZnlGcs/60fWUxKJr0I
SM/eZqLV14+kaB8CDOpchPyxA2jJu9WkDx8ePPux5QBzAPFOVxX6NPNh7eTY
t33eAyhl1gzShw9eaxVEieEDaKvck8TUSj7w+XvfuO0dQN9v2TUXlvFh9t2e
TcoZAwi8Lvo0F/Jhb9k8/jAMoEnfxuQw8vnwJemWodb3AaS0LJHBzSHb62nX
nzIwgNZVD0cFZ5Kfy1ixUnUG0dzZUZWJqXw4+MB/1RjWIHr6pJmTk8yHOVqr
H98MGETX9JalVibyQay12TIschBpr/0+MhLHhxkPou8IkgaRk0VgsHk0H4JN
VT35twYRM+9doU8EH5Zv+V22pGQQqetPJ334sCivz/dqwyB6PacwMTWQD9Oq
fIvHKAyhNcvdSR8+TGqoYV8xG0LN3rk+zR58aP+Wf36B5xDyVbInffhw59G7
QXboEDqakkn68CEkztzfdfcQui9jRPrwQcHmyfmF6UMoV3Sa9OFDChyrznw6
hM7O0SB9+GDmftVg3K8htESwj/ThQ+rFId8bEsOj9cMHvZZjm0ONhlHCiRjS
xx22TlxxViQYRv8k/pE+7vCKv+2O55JhxBKFkT7uoCJ+/3T1jmG0dB45/Va6
g9h+efGjtGEUPnkW6eMOK6R5RTZPh9EsxRLSxx124Jn5z34NI6N0IenjDvtD
LmfGSY2gEo0HpI877PnndmCJyQgKnG0XHZzpDutD1MLCPEZQ8doM0scdZuGJ
rkeXjSDtJbpk/biDpXSM5K+EETTZ7Ajp4w5NdsoFs6+OoFkFsmT9uEO66Mfm
fy9HUMeMWNLHHXaPvNHMbhpBL7+3kj7uEMZY+LBUTgJ/iyHzBLsDr8qn7OM4
CWyhU0X6uMOUoCdTOiwkcBb2I33cIf7QVVNTjgReveYF6eMOHVEaK1ZNl8Ar
JrmTPu5wktGlVrRAAqf8ukP6uENE2BxdlzUSWPmKBenjDlFrnPc/iJPA9yLJ
cjdwh2zrpEUzj0rg4x7k9MFwhwnnw04NpkvgOxPI6UjRHZ4+f+T85J4E/u/5
lMyTfoB1rEgCH6snp9tuHtxw/pwSWymBF1Y2kT48qIm9tHxzowQOfkMuR9U8
8N/UePLAoAS++LqC9OFBh2WW1R01SaxX7k368OD5kZaJf40k8Zsfz0gfHpTc
vBHHc5LEjzvcSB8eyG6vEaR5SuLfatmkDw/WyaSE6QRKYg+mGenDA3XBm9aM
cElcHZRC+vDgp0PcD89tkjjvgBbpw4PaTzccB5IkcdEzcrwl8kDfcXZjYbok
1pAeIeuHB/tEsXKX7kvieZ5knmge4Hsxi08WS+KQBDJPBA8WuGS8vvBVEjOL
yDzBPAgulPDDLZL4mQx5uUAelC491NApKYXHiMjb9+HBeVWvU4KxUth6O9kd
HjyoeMEKSreQwlIPyeWFy4OYIwGOujwpnNJO5mHyYPvyNMOrvlK434ps3pwH
DTMMJs4IkcLjg8nbNeDBE8ErN7kYKTx4iozP4EGvKDPs034pfLGU7E5FHpwJ
uHf18Xkp/F/98CBrfdvIgztS2MqRbK6bC/ppiyJKiqSwdgh5e81ccv0e+Nvx
RQoXHSPjVnPBxuzlHsd/UtjtKZmnkgtvthc57JWWxhEtZJ4yLlTWdLS1jZPG
Ibrk8lXIhanz/YrX20hjA0/ydvK5MOHH97uKQml8eg0ZL4cLQZEp93JnS+PK
k2SeTC5IaO1/tTlcGn9+QuZJ5YLC08wu/zhpnPKb/HoyF7Zu73IRHZfGJgrk
eEvkgr/XhgNTrknjcGtqv8OFI5OMu4ORNHbwIfNEc+HWx4UyJ8qlsU0kmSeC
C3pm+zy+10vjxcfJj4O58H1sWi5/WBq/yKN8uNCecTkolyGDl3+lfLgwv/y0
g6elDHYfoXy4oH1xs2sTXwZPMyHzcLkwSW3q+quzZPCBKeQhkwsJujLft4bL
YNkIyocL7kW3YlfskMF3qXI34IKnpuf0VSdl8Nn7lA8X0gZezoi/KYNzv1A+
XPCL5+3ILZAZrR8uBGel1AxXku2bUj4ceBTduHXRPxnsNZ3y4UDod9PJH2Vl
sTCS8uHAkhofYYi+LF59ivLhwO0Dy9YoOMnit08oHw74vVv5unCaLA7/Q55e
yIGpufMXnV4iiznKlA8HjnC4xrtjZLHAkfLhgM0iBe34w7J4+zzKhwP6xs94
5y/L4tYdlA8HFu1edaLssSxOuUr5cKBzj6SR9gdZHPuWvHwiB76bxldtbJLF
x3up+uGAblj3q0YpOQzU9B/NgQ+piT9idOVwzVTKhwP2phvU9B3l8Mg6yocD
LoN35lZMk8MaZygfDlRNnJZ/bakcHv+U8uGA9RkXt+TNclingfLhwITFm94l
H5XDappU93Igd6PmnhvX5HCfK+XDgbbPEn5fnsrhqiWUDwc+HZ7savRFDt+n
yt2AAwuTq922tcvheGr6YHAgse7D7DYleexNdacimfeAwcGtJvKjPhz4s/1x
1QSePL5PNdftBjIFOVMqZ8njpb6Ujxs8mzVUenW1PJaKoXzcwIZ9IeJIgjw+
e55q0A1cV54yS7ogjy2KKB83aGqs6c94II9v/aV83MDj8f6Gd+/kseVYyscN
BN/i28c2yePzPMrHDX56V4yNlFHAMqGUjxtYqcUF/DZQwMsOUD5uwJiw7UYE
WwHn36F83ODKtncGqn4KWIEab4luUGWz9XphuAL2pgLtcIMH1tv8kvco4APU
9B9Nfr/GpDrmvAJ+TeWJcAP5Imwd+UABa1B5gt2gunSmXdx7BTyLyhPoBpz+
Tw0XmxXwOar8fdxA2sd/0Wc5RVxNdYeHG8woLjhgaqyIbanlg+sGiist1idw
FfEm6pBJ5nPYrTk4WxE/p5o3d4N2g/KVCesUMYMqdwM30HXUiTU9oIhDqfgM
N8iP8Pf8fFkR36N93ODT653FF0FxdH5zg82zr8jEfVXEs2kfV9gnDX3ruhXx
der2ml1BpbIsM0ZTCUtRcatdQab8vVqyjRJeQHVfpSts6SyxezZFCT+gOMpc
YQXvkbxCiBIeS51e6Aql11PPLN2uhNdTt5PvCjeJ6D9vzijhcmr6ziHbGxDX
+99Xwi5UnkxXeF8ld7nxrRI+TXV/qivo1SDdU81KeJgab8mu8IURMS1QQRmH
UpdPdIUxK9WYdpOUcQn1c0mcKxT8ufxOR6CMnak80a4w9/fXmjELlHEqlSfC
FdyezrMw3KSM5aiPg10hbLvhGfZxZbyaulygK1Tp2rouylbGH6nb93GFjJO7
ZJNLlbE77eMKt9oMJT/VK+NL9PTkCko2stbmsipYifZxhTuejrsTjFVwJO1D
ns/PVOx0V8HUap1o4Ar12qFobZAK5tM+rrC+bMXFvmgVfIn2cYWpy+7fOZqs
MurjCtu+TmtnZ6vgMNqHDa0OZkuaS1VwKe3DhmvLvAazGlSwPe3DhuzNuUVx
cqr4BO3DBqnV4XiRiSrupX3YcIEIq50uUMULaR82HGq7xp2yUBVj2ocNz3a5
4JlbVDE9feewwbNDIXLFKVWcQPuwQVs8ye/wPVVcT/uwwW793sUF71TxDOrr
yWw4vsMxReafKr5J+7Bh8hpT+dkqalidft5mgwd3SdpdSzW8jvZhg5mn3+rx
U9RwOe3DhtiGsA1xoWrYifZhw3SLi3dqdqrhk7QP2b6khPWMC2q4h/Zhw6yo
3VV3HqvhebQPG/bvtn4x/osazqd92OBq09u4o0cNT6B92LBwbcOU+jHqeAft
w4aRGSPffB3VcTXtQ+Z77nYrz1cde9A+bMioOH3fcLU6vkL7sOHGHv2evfvV
R33YwC8tjGzNVMd0c90sYGUdNZ33XB0X0T4suGS1W6ugWh2b0T4seJ42I2Ws
hAbeT/uwYENfw/RXahq4hfZhwaIL43XiDDQwfXohC/Yc+yrhbKOB6ek2nwW1
7+3lGjgamJ4eclgQv0Tb4vw0DbyJ9mHBYm5SWECgBqanr1QWbAw5+1RhuQZ2
p31YUFzJdkNRGjiN9mHBnHPLX2/Yo4Hp57kdLDC8YbndMlkDh9I+LNiKm+Mr
L2rgF7QPeX6SoeGWbA1sTfuwYFCvYJoa1sCHaB8WGIR+kD3xWgO30j4ssF4x
J0CtSgMH0D4sMLOY6rilUQPn0j4sUMm4ll7Zq4HH0z4sqPq6JcNSXhPH0h3K
grNv8tmrx2riH7QPCybHRSy4ZKKJBbQPC740HtQqZWriDNqHBQu1DILqCM1R
HxaUd+k7dXlr4hDaxwXsThxM7Zqvienba3aBqNZVZ+pXamI6brULXJXPNyuL
0cT7aB8XKPqy2fNKvCamOcpc4O3Kq13rkjVHfcjP701m213UHPVxgWv5s5S+
Z2liLdrHBTZtf79mx2NNvIH2cQHHIRw69pUm/kT7uMBntkFzSoUmdqV9XCDc
rlFmXI0mPkv7uED9T7Pbu9s18RA9v7nATN/yxuoRTUwvz9Eu0KM32dBCVQsX
0D4uYNXw8e5kXS1sSvu4wO/cXVf55lqYvlygC1jHzxhSd9bCjXQHuIDELKc7
jwRa2Jv2cYFFJuwXfG8tTHcv1wWmdMzlpczT+m+8MV3gybMTmuXLtHAU7eMC
6Hjr5N+RWvgz7eMC08NWVJVu08L08stwgaWuQ++SErUwvZwruoCs8m1zmxNa
+L/ft52B/X3bt4tpWqM+ztCas7Kj9YbWf+Ot2RlcEtavHJ+nhenlttoZ5Oaf
JvQKtEbrxxlCHb5GdZdqjdaPM0yX46rcqNDCM2kfZ8BVeVJu1Vr4Hu1DHt/1
m5fWrIXH0T7OMO2Agsavbi28hfZxhkUhVWYDEgxcRXeYM0jwXqe2KDH+m6+T
ncF27NeN+WMYOJ32cYaaFtmbSycwsBxdP85g8dJb/MucgVfQPs6QNj2WbcJk
4BLah8xnMDdeg8P4b74OdgY9wS+bayIGTqJ9nMH4zni7v14M3EH7OIPkRonE
Kn8Gnk37OEN+/An3mCAGfkj7OINPXeX0J0sZWI/2cQZ0+tXdrBUMHEf7OIP8
2fCo6WsZo/XjDFZND44kRzGwkPYh7/fgfdm9sYzR+Y3Mu23JB9OdjNH6cYb7
Tx4Ork1gjM5vTiDyebp92QEGprcvzU5w1S4mSO4IY7R+nKBh0dck/+OM0fpx
Aukffyd4nWbgJtrHCfqysuT/nmP8N94KneBlmYEX9wIDZ9E+TrCez611TmeM
1o8TdA/JVX3OYIzWjxPMUd1pbZXJwB9oHyc4FHHtg+k1BmbTPk6QrrejovQ6
A5+mfZzgoK6ss+FNBu6n64c8f6Vro/4tBg6ib9gJNvUGWqSQx4j2cYKYB5f1
N5DHxrSPE/hfm/DiInn+LtrHCeRKnplb3GDgGtrHCU4ZnODLkdf3on3Izy8e
U+ZdYeBbtI8TzJz9+PBLMo867eMEGzlaxVnnGXgj3aFOEDXzeF7TGcZo/ZDf
PyVauOP46HhjOIGCusHDiMOj403RCVLyTEqy9/7fh7ze0TnJM3YwRvcHjuB3
7r6mYNPoeGt2hJhPgskHSH8m7eMIm0W9DnZhZP/QPo4w98fXdxYLGHiY9nEE
jVtNFrF+DLyM9nGEKzfMWaaTGfg17eMI474m9ZmR49eR9nGEEO6kDTtsGfgc
7eMIh0r/pDONGFiGLlBHOHb43T6OFgOH0z6OsHZn46Rz0gz8nvZxBKvL9jEB
neR8QdePIxT2pcWF/NHCGbSPIzCr/gniyrWwEr2/doR1114/CXqqhdfQPo6w
Yymnu+uWFi6nfcj7kWE1zjyjhZ3pAeoIY4/BmVW7tXAy7eMIp5S+yEyO0MId
tI8j/Fu9y/pngBb2pX0cgfH4oSqHo4Wv0z6OoNIVdyPAUAvL0vtrR/ik81HG
VloLL6B9yDzmD8cXkfP1XdrHESqNbBonvPj/+uMIwzJ20exMTRxA+zBB4QN6
op5Arle0DxP+HPoOmSGauJOaUKuZcNzxUNwIuX6JaR8maBe86tPW08RJtA8T
lvJO2bd0auAquqCYkHCx3SieXG9NaR8mbG2rev01QwNH0PtrJvBt5rDat2jg
O9TrlkwmvPNbFFTsq4F76QJlAje4y22RiQbm0ftrJjQ/Yl1f3qSOt9MbViYM
JqTNPXZIHT8epuqHCdctLLbybNWxJL2hYYJh5mCC/0s17E0VdAQT/BS962CJ
Gr5MD3AmLPIdn7q3QxXLUK+TAplgtXnp1Ss7VfEa6vWUDxPKE0wVJyir4p/U
guTBBNamZfhvkgpeSE8ATIj2Ni4Zq6GCq92oQyZslJtnc/KAMl5H5TFngvsl
ld9rpJSxAl0/TPhtwvt3YaMSvk4vyEwI3Fc307KafL6hfcj+equmoDz9/88/
TJAezBnjeVsBI9rHAb4ov4uuUFPAu+nnUwdYMbLKrmClPA6gn08doODTLq4s
yGG7C1SDDjBydOz5NE05rEktWGUOoMScNOf4Ilk8RC9IDvDyblbIzysyuE2b
8nGAWbr3i/Y0SuNWusAd4FkoO26npTTupQo40wHqjrkc+hQihZXoBcEB2jJu
t+4+I4kn5VE+DnDr7OVria8k8DR6QneAi/V26978HUEb5an6cYBpIUquPPdh
dJBeYBzgbOS8sLi4QbR6LuXjAK3fT+Wi7H40jl4gyDw3nlv0v+1FidQCEOgA
RyuqHzN/dqPi15SPA9QE/1u/7HsnKuukfBzAybvJ60RJOzpPLzgOgE9+8nia
2YpcRZSPA2TEBT99X9OMUugF0AFmHOnm6QXVoxeHKR+yfxetHJx/8zdC9IJM
9k9F1Ijlw29oO/1+xwGM1n06dPBj+ej7aweo76+fguc/Qxn0BGsPEq7Dz0/l
7+X/OE71vz0YPbdl+n0t4l/7TvW3PbyfK2javfQTX9GC6l97mGmuPT+v9Cd/
cB3Vn/bQF3pr6739tfztD6n+s4eJf5YFPQxv5p+WpPrLHmTeG/YHs9r4k6dR
/WMPef4GpqundvJ3HaH6wx6ObLS2i13Vw/eroArMHmzYXmMPXejnPzKg8trD
hLObv6T/GeLfDqHy2UNtWRV/UaoEwblGLUB2MNc4fqR5phRR8o8qYDtwxz63
/TRkiEpXKo8dRF/y9/n5XZZYsofKYwdbyo5UnX4sTyx+Tw1oO1AVKAbFXlMk
vk2k8thBS09+0d7LysTnKCqPHSzovjoRZasSU0uoCcUOznHfrp5Qok6wTag8
dpD7W2fWrH4NIm0blccOoLR2RZa2FhH/hcpjB5qf/aJSOQyi2o3KYwdlCkGb
jcPGEPnnqDx28Gn+yEbOmbHEfz520P5euKK+XJt4F0b52EJohHGAtbYOofuW
ymMLOpbnXaSXjCe+cqkJ2RbWKD5QX5ejS0y4TvnYwj2Vtb8ilfSJSl1qh2gL
PKdn1xVWGRCqh6kJlzzedm+Vc/kEIl+aKkBbEEUZH9tibETUxlI7RluIdGeH
m34zIg53UwVrCx6n9NDZFGMiawO1A7WF8l1lh74snkhM7aB2kLYgJzHz8x8z
E2JxFPXCyBYK1NLSHraZEC191Ase8nq30e9AmETs2UQVsA2srE0pHn/clMio
pwaoDWQ/tI4KWGNGzPSiCt4GKixWNcj6mhP7Uu+SeWxAx3m+KZNlQXhXUxOE
DbC/Dlh8NLEkzugcJPPYwPoJ3p1t46yITQLqic0G9g/57N2rZU18m0c9cdkA
bJKsPsGwId6FUjtYGyhLCpUx0LMlfJdSeWxgWLSpRd/Sjgj0pfLYgO0xXtoJ
d3vinx21Q7eBM6jyoNjGYdTHBs7vWnWr97EDcbOAGm/W4Hz8E7NxJpOoi6Ym
eGu42zFeV6eeSdzSpyZka3C46BK2a5cjMXyX2pFZw9MUS21LIyfiM496IrEG
v9ouS5WnToRHXjyZxxqKt529aL3MmXAzod54WAMRMm7bXhUXIm/HAjIP+fnJ
iMeGeS5EwZspZB5r8Nc5u7gzlEUEaTiReazhWd2FMFltNrFdNIHMYw1estvf
+b9iE/ZhimQea3iwzjmtaqcrsSK2k6wfK+BYPXufznMj9t/9QeaxgoSFG1PP
DrgRdUQJmccKbrGOOT/EHGKPUR6Zxwq239c/PbyPSyyeTb2xsQK7L4zi8Lk8
YvP3JDKPFaRnxBQOWbkT7/O3knms4PGYqYfypPnEyr8ryTxWcM4qfuLpX3yC
v2EumccK5tXa7blQSBD+3p5kHitouTTxc9gcAXEplspjBTvNQ+dovhYQLsPU
DtKK3L9+dfOdLCQkPlK/11nBavP9u40KhKM+VqCYscYpXiAifOKo3+MswXRD
4rRtT0VEuT81wVuC54kvzxU8xUTKljdkHkswUQq+al4iJjK7qTc2llD7zrDt
c4AH0VSUTeaxhLPNjDTDHx7EuqaLZB5LMAji3++N8CQcQ5PJPJZwUveCw7Ih
T8KFGU/msYQqW5bWsiOTiQ3+MWQeS9A5Lh3UazqFaH2xksxjCSxveQVDNIW4
eXQBmccSjOcJ9T8HTiWu3KZ2TJYg9SDnpFn3VOKnsZjMYwnZKwNj5E9OIx4V
u5AFbwFODxYkKrt5EYf3mJEFbQGH/9acKvjhRXqMJQvWArIUO9Nt9k8n7LlS
5AC2gBiVvdenuc4gBlz+knkswKj7fNb4xhnEc89PZB4LOFjEvZ1ywZtICn9C
5rGAy9sW3nwf6EPMyUgn81jADj2ZK/ljfQndjngyjwVw0uxT5n7yJSrmLCfz
WMBX2XVTArxnEt131MzaWRYweK3tvXfwTOJ/n5JsJA==
"]]}, {
Hue[0.1421359549995791, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]],
Line[CompressedData["
1:eJwt2Xk4VN8bAHBEv6gQyVJklyjG7Ns9s1gTSirtNbRJixa0aSdaVNKiqKjI
t4WSVBxvWUpEoagQss5IK+353bnxRz3nGfec857P+77nzsNCttZ/qZqKioob
+Y/y/wHqRwqnt0StTOmS4xDdjTNV/0hBsDrjVptcjq+/vdhc9kMKz/Y+HD/r
vRw/WX3swpx+Kfg/qLj2+YMcF94TnMr6LIVSy0cL7n2W4wOlacWVvVKwu5Lt
dK1PjmlHH9nmyKWwJeCgVfl3Ob5hkoEXd0jhvvVs7ujfcjw0yO1gbYsU3hvr
he0fkGNmyLl4nUYpaDMKntgNUWChc+7jUfVSMNsQ6P55qAKPux3LflNNjuve
vevUUuCX340bVj2Vgs7iRWnDdBR42a9luUWPyPlGlu8N0FfgV4oHWuoPpXBl
zrxJyYYK7PJjq6lvvhQm5btKcsYq8CarxN4LuVLYzIwpOj1egc+HjIwayJLC
wRLLbB8rBc6pbCtf9p8UQkINhz+zVeAsv7H1dZfI/U1c+tx8ogInvs9K9T8v
he1/h6uLJinwkoxLDnVJUsjuHp42yVmBx+z8sX5pIjlWBF/vdiHn23g18k+8
FDapG9puZCowPxoLzsVJYSjDUuspW4Gv5DgVTtknhflboud+5SqwivJnpxS2
1kkN5XwFFq1wGsBbpCDzniu6LlTg5e8L8mM2SUHvZdkLEVLgyPj/OHPXSSEu
4ljdBZECr/f9vp61SgrlTjluz8UKPGPixVXjlkmh9u9k8yqJApta3bAcsUQK
l9rUlp+RKnAVx/iUxnwpEC1OJixXBQ5Z1Vo+bLYUzn+9zT1Hjt/f08IG/lJ4
bJZY8pIcz7U7tsbRRwr5i54WNJDj61mRjVM9pRB+Z6FlNjmWz8JaEVIp/LTx
+jKDHOuaBPVnElJw+++gcwm53u7bfEUrVwoubY+d1cnx1bZxDGOmFNJWJ0/R
Jfe3P33ocx9nKRzz0IrqJuMZ+/f7g50OUhiyXqc8nox3cdeXoTdtpfC55ypt
CKHAC5Z9O9diIYXgvNZsqUCBR0YOOaRjKoUZtVne03nkeZgaVfKNpFAiMhxw
4CjwgVnMoGX6Usj5Y1BRQ3rMsZo3NV5bCjbDr930pCtww57Y2FxNKYxZ2XAz
jvQcHQkmDepSiDG8WHGa9FalgMj8GaOuEk7mw4WxnlzLXxKQL/09dbydAn97
cqpU0i+BRo1DtxLJfFLT/py+5JMEfPtv01+R+fagbUZjVI8EROyIp91kPjL9
8LKkTgncfPxs5yMyXxf60FxzWiVwMfOhz3oynwVvr26qaJSAUeNUhlxbgSvV
ab9a6yWgtXgtw4msBwNcUPutRgJR9Im+Yg0FHjV8htrwKgmsm719l7kKuZ7i
455xTyTQVr6isuKnHNsuPjnHsUQCdUd6GO5kvYpWuO/hgQS8Lw+7fZCs79R1
Wb887kvg8+1xhce75fhte0zBzFwJ7Fq5v8j/nRx/f1TxOChbAv3g/bC0QY67
x+wwXX9VAtPyl93/+EKO86pT7u9Ml8CJea+uP6uU46BfDmnxqRKAlLSzyx7J
cccR29qUZAk821ey92ahHHsmHPa9fkoCZbpoec4dOd6tFqyHEyRwBem6ht6Q
46Smy+MrD0tgrR537OvLZL+xmx3eFCuBcbF3e/4ky/Hsxo1jPuyVQHba0by6
4/LB+pGAo+xB1PID5Hzx311GbZVAfLEnurZLjlsOLLxhGS6B+id2PzMi5Nik
j7aJESYBzU0Lb8xdLcdO5ev3uodKwLyoZ+FDmRybaVs0Bi6XwPjb1cOaZ5Px
Fgh2rJJJQN1b99qtqXJ85HVJSNQCCTzfe8lbKJbjUcH5544GSiBadqxtG1OO
18w1N7s0g5yv7WXEens5vlTwqT3PVwLnNTdomJnK8Z1Dzt8qvMj1a5Yd2qEr
x5efNExvcZXAHNFNnZND5Hjtxv6+PiSBI9NnHgzu78Y81y15WnwJMD+ZjXvd
1Y0nfQleM54lgQrNprru193Yc1euIYMmgVlnjhUmVHTjg71rcjwdJVBzSVBT
V9CNv/MOuy6wk4CbfYNe7vVufGDZ6MdhluR524RFTT5HPh+miqJNJTCQ9MtA
HN+NJ8+beSXJiMyP2K2v3keR61vr/u+GvgT2f/z4mLGmG6+toAUWaUvg7rN5
bQYLunHFjHtn6zQl0GSf73DUuxv737tSq1CXQN+vUecuc7v/+ahIQMVjATHL
rhu/sC4wG/1LDH+1UjTPj+7GNRNanCf0i+GDR63KXtVu/HN4KEvwSQwv/gxY
qfV2Ya/KBU7TesRw1dFig8nrLgxrc8cGd4ohopbdW1HShRd/3PQrolUMrD5p
onF2F7addrbyQKMYug67rVA524XHxNsnnqsXw4ELguW7orvw5GumfrdqxGA9
yf7Y2XVdeG1m5O/SSjFk0YZ3T5/bheuiecmvy8Qw+UbrqgvSLrxCEkTrLRbD
+Us3TA44dmHzxs95qiAGdYP1fdoGXTgmYQrf4L4Yxlh1phn/6cQWqeWFE3LF
ENNX/vRkWyfuHRbuLsgWw6KD5htiyzvxh0deVX5XxXCysy2hN7sTW711nxuU
LgbG/4ydH53sxHG+qzvDU8VAU+R76G/vxLZjCsLjksVwPOHZ6+olnbiPyRqW
ckoMs1QCujXcO3H/tfoz2QliiKJ5bLhq34kdoi7SSg6LYZhdZmTpiE6ccPl0
WX2sGPqat/2Y8aEDO9vlBfXsFYProsK+gOcdg/Ujhu8XwlaX3ezAarSwFP2t
YtC+krA4O6EDc+4NR3bhZDwbbapGbOzAqWeqWnhhYpCp2919M6MDEy/yo31D
xXAh8JSZGb0D6y6vmSRbLgZJ2OaBmlEdWH+6ft0mmRjcfZ/M+/OhHU9J2LY7
doEYrn2Ioyc9bce5k3SckwPFEDnzfnRmZjv2Ny9/mzVDDJd2zJs5OaYdW6/K
OlrsKwbmmlXnbILasb12oVu9lxgmWCiCjxDtWKb57ZfClYz/1OtLa4zbccX8
wJwBROZDLVcGX9qwVVvKan2+GM6EeQ5d9bQNm22NtrVjkecx0v3vjMtt+L6F
zlsejTyPKy5Ttka14d91nJO+jmKIk2rLm2e24ZbkIX4yOzE8aqhv3OvYhldu
WDs03JI8r43HbJarteHEwG0FsaZiMBvBfxBT9w4H+UzcmGwkBm5qdVbHf+/w
y+mbJ2bri2EKe87XPTveYcXSlc3F2mLwL688sMj/Hb4Y+zOxXlMMvgvpEZut
32HVAkfvHnUxiD9G5z7vax2sHzLeXWVeK0pb8UX/jTn6v0SgPuqXs/BEK5bn
xK6w6xdB/bmxodOWtuIXtqJx/E8iOD/J4dcFeiuWZZys8u0RwZJ79k001Vac
wD2yW9YpAj13QwOVyha84rU9M7xVBPjZl3MjklpwU1xwZ2yjCObMLYyavbQF
/5wiOp1cL4Le1s3ZzU4t+K5JwZTsGhFEhlhxMn40Y5Ofr38VV4rg28f7etcf
NmPz7tNX68tEEBouFX+Oa8ZlnT/m9xSL4PXPu0Ub/ZuxQf/PESogAl7U+CSm
cTN2yq7N178vgmlR67vG47dYkotD7XJFkPT91BDs8RZ7a9wdx88WgdOqm/vc
qpqwT0pRhe9VEdBe4jW5AU1k/2vaJksXwR4uxrr1jZh/XXNSeKoIxIlZmwLm
NGJrG7fG2GQRTO1OTNhV34CHdRw5lHxKBPeYa4xOzWzA7z72CLMTRBC9hat+
6tkbnOs2p7f4sAhu3Pk2a5fXG7yr7UVKfawIGO8zdAPgNXZ7KvPr2SuCMWN9
aLrM14P1I4IAcVve7fRX+Na2a1n6W0UgX7Qm3dXoFV4kXbXELlwEneGK3/nR
9VgtgKvHDxMBN3reXbMvdfjcdcMi31ARfDyEG1YuqMMuM4ZulC0XwfdDo5en
lLzEhWINm3CZCFZGLwjMd3iJXbeMfhm7QASOEaeziuJfYPhNj0kOFIH/4sdr
cz7VYkZZECd7hghqxfLEw9NrcerbtO5iXxHkjB2w9L9Rg4eKvibVe4ngw/uh
hgNaNVgmD5ja4yqC/Xmq6xODq3FeU8mfASSC7Vs/0A3yn2PfY8Ib+nwRFI7O
7TQc9RyHbbm52I4lgvkyvhE76Bk2P2mtx6eJYO7jv3HtwVV4XldCka+jCPIZ
6m8T/zzFFmtUNsnsRLBbM8Zxx5EKvGFCiG24pQi0PGI2XDAtx/6Gz+tiTUXQ
36Oe8/tiGc7nMWOTjURw4NfA+yO2j/HNYyd42foieLA+0mJhailmjO9TFGuT
+/Nf4xtsVILFzdOS6zVFUJHUsjFtfxF+8+KKb4+6CLK9q4+P/fJgsH5EYLtU
dL1iNuDggssyu34E8ytn7169ugC/fedR4tuD4ESa/Zlb4+/hdRve2YW3Ivjo
1X95VWkuHhu6OS65HsHcBwWXEpfcwk1PNd8XVyIYNlrFKaj1Bs49ddyvpxjB
ZY8t36PkGTijwvim/n0ER0zl6VFvLuAbK0+P5mcjMHI4t6U4JBE/W6sfIUtH
sHj3zBKfB1ux5tuYV7HJCFROWzvPboki5t7p52cnIDi4fJuQHX+CePh9EZl/
CMxcdodNeJJKSNKKyHxDkHF42sLnQZmEzh/rILtwBMPFFr+jR2QT86fGlPiG
kuuncbonfsshHI7K7cJlCM6vWRNe+ymP2FbuG5cciECQ+jBtz+98wvvXrZ5i
XwS655I4Zw8AkWJu4tfjisDTImjtj/MPiTD+rmx9PoLOOl74HFxMPPbu1ufT
EFx5aOGT/66USJnuHy6zQ1DbYvjVYlQZ0T81vz7WFIEl03RVnHs5USm042fr
I3iVT7vZt+cpMcE6gfRCcD1yZllQWRWhRvkg2MxwDQwZ/pxY/Hw16UNApns7
3ZpVTQhONRT79hAw6suhiLfBNcTZgKmkDwFnuYTV2ZO1xLahBbHJ9QQwTfpZ
cytfEE3XJvcUVxIwNPH2TWPNOgKmXPDtKSag/cq2E6896gnrxtHZ+vcJ6Aj0
bj0b94rQWhqrz88mQDPV4sTi56+Jda1/N8nSCZi2byDbZlwDMXvmpvrYZAKq
1NqZPSGNxIOCHl52AgGuJtUWOQVNxJWxS5PrYwlQX/buHqHVTIxZ2zQwsIOA
lgMtRhfvNBP0CYEyu3ACrpvMvb16eQtBu/O82DeUgBHXi0wGjFsJnXHepA+5
vruZV2BVK/F0VnFsciAB6a0rRZtj3hFrlgtJHwJa91xWkUnaiB6fXN8eVwLu
2dfG6qm0E35aTqQPAYzaz2/ioJ04ejad9CHD3qP27cmeDuK2ujnpQ4Aqe8ib
aq9OIldyivQhIODD15hUvS4iaZYu6UOOr9b94TZ1EYtF+0kfAl6t/k9w+mo3
8a9+CNjLWOcK2+VEdGIE6SOEoAEbgxvTFcQHlQ+kjxBKKyuuL53QQ7Aky0gf
IbSmBo9qU31PLJlDtt96IRzZ+l4wsek9EeIeQPoIoSFwOY1T0EsEaJaTPuTz
vOrekec+EOapYtJHCBm6J++9EH8kynXzSB8h8KOFsv23PxKBMyeHy9KFYBY1
vzdl4ifi8dqLpI8Q/L9/WWh84RMxZrEJWT/k/F+H5Hwz+ky42x4hfYRwecPB
99xjn4mAhxpk/QihcuOh4c0jvhBfpm4lfYTgN7a0eHLsF6Ks6SPpI4SFcX1V
If/7SjRGkPHIhPD2wdhJx2O+EhOMGkgfIXx4wGnI1OwjrhdOJ32EEBE3tfH6
oT5i9ZpHpI8Qto+d7Xxev59YYS0kfYSgsSnwRdSZfuJsy03SRwgjT06rmGLz
jRh+eQLpI4SEXchAPfsbkRNGlrupEM4wbLIyie/EcVeyfegLwTxLNZmo/E7c
NCPbkaYQXL7Wvilc9IP49/1UCJaq50Inf/lBHOsi222/ABgvF/nF7f9JLKhX
kD4CyN9guLdm/C9CVkVeR60CKHpVoqV19xdx4Wkd6SOAWcNWvZsU8JsYW+ND
+gggYGCoNvr0m6h6W0T6CKABn44THvlD5H/hkj4C6HG3mmNP+0u8084ifQSw
8WTaZrXav4QrzZb0EcDWLJOex5EDROvcs6SPAH55ugZiHRV054Ae6SMA9ZTw
d9rBKqi0iMy3WAF4zL5oOOuuCtIdMkDWjwCebHz6NUFHFc1xI+MJF0D4k+0a
35apoqBoMp5QATg5imuvFaoiWikZj0wAA6cNl+QZq6EidXK5QAFU66teHbNJ
DY2WkNv3FcC9039yHj9XQw5R5HG4CuCWw8htlU5DkNpd8nrhCwDKnFQnxA9B
Zz+T8dAEULdhqeuLD0PQz4nk9HYC6Le/7vZyujoylpHbNRWAS4+mhsNtdfT7
JBm+vgAi7kXurjHWQBcqyOPUFEDF8Z8FVTs00L/6EcDmrfF3xndqoIku5HT9
fOhdzV5b5DcUjQkit9fDh3Whn9vu3R2KSo+R4bbyYUgEGA21+R/iPiDjqedD
+qELWpeO/g+F9pLxVPIhMCvx3smB/6EgE/L6KuaD8duzE5rWDEOmbuR27vOh
y/hOQOTbYejUGjK8bD48XtxGLJuuiepPkPGk8wFuWXemF2uiVwVkPMl8uKMX
6SPkaqGz78hfT+DD0+1NYbY3tJDVMDLfYvnQ+nV2QJDtcBTioHzf4cOYyLav
X1KGI2dfMp5wPpRmiqcYGI9AjmFkPKF8WOk8yVs9cQRadJz8WMYHFc30b6A3
Ej26o/ThwwHGDT/vYyPR8jdKHz5o3XKbkaavjYQDSh8+bN8bolZ2Qht5WZHx
8PnQlmG6IH+sDjrgQQ5pfEDmi4K2p+ogjVClDx+8Np3UijbQRbeU5W5Knu8e
d27OXF2UdFvpw4eh+fnCsvO6KPe10ocPqaY/DUs6ddG/+uFDe8bfR+lOo9AB
G6UPD8IXPPEJixyFpngrfXiwg7/gisXDUUgcpvThwYDkzuu8EXpo9UmlDw++
b6hvYQXqoWcFSh8erKoEfOaiHgppIx8v5sEc/3VhnZ/0EG+40ocHDwY6fhiL
9JHIRenDg9SX1oH0eH0UNUfpw4O/L+0P0t/qo487lT48qFXpTzRxHo3OZih9
eGAdELupa9dotPUZuXwsD74+ezcxuXY0Ov5dWT88YERo5HImGCBQtv9wHkSY
enc3bzNA7Z5KHx5MTBp18n61ARpYp/ThwdL3gYWP7ccg3dNKHx6MNrSQDds9
Bhk/UPrwQGQYsmPLmzHIqFvpw4P293TD8SxDpD1Kebw8GHomyr7/qCH6wVH6
8OC82ZTcgV5D1LBY6cOD3MgTBXwfI3RbWe6mPPC8EoQyrxqhfcr2oc+DGVnZ
fO+RxshHeZyaPGg4tPOm2VrjQR8eWEqepVlXG6Pbyun6uZBecV5nAcsELfFT
+nDh+KTPfY/OmCC1CKUPF7SXFs9aqjYWJaUoJ+TC7/WGLsyQsWhCqdKHC8tn
K2LYNWPRtfdKHy7M0BMFhgrHIXsDpQ8XbqYZpNVkjEMpAqUPF6KHh65YbWCK
1IOVPlzo9pJmcPeYoqUHlD5cyFx4Rsb5bIru31T6cOGv18aTK2VmaJgy32K5
UDy80v1pjRnyUQa0k/w8LWNdkPt4dEDZ/sO5kLH6jfPse+PRU2U8oVy435Ly
vNvQHOkq45Fx4UF1Z1DoDHMUoIwnkAuKWE+/W/Hm6Iyy/H25YPW/Bwm4why1
Ko/DlQuxU6bTDmtZoEnK64PPBdWAH3aWXhYoUjmkceGU1d2ILfstUIlyejsu
TLt7xPzkYwukryx3Uy5YGuy0jNS0RMHK8PW5oMuO2W7qbYlyKB8umI+/TIs5
ZDnY37iw/mkDcfuZJZpJ+XDggdjhUvpoK5Sp3F4PByZsOxq8cI4VUlOG28qB
5G0621+lWKH5yuOr54BQeqnXqN0K5Sk5Kjnwrcr/7jhHa2SgfLyYAxWWRo1t
G6zReuV27nOgiN83JyzfGtUo23c2B6pN5E4PNWwQUxlPOgd+FvYvrPOzQaeU
x5/MAU+HsZ1ZSTborzLfEjiQMX/2Y98OGxSsXD6WA04B/6llu9iicuWfS3Zw
oGyU4Ym6HbaIoYwnnNzPaP/2uqe2KFkZTygH7Bv1ZzwaZ4eGKj+WcSAwZP7b
S6F2aLVyuUAO7Mt3iNtQYIdeKLfvy4G7NbtmOOtMQELKhwOvbyzkNyyZgNKo
9sSBkdMfiiNuT0BalA8H+HeuLlPVskdhlA8HlrWaZm5ZZI+Ut3WsKQeSqg1G
vLttjwjKhwOPY44f5I2ciNIoHw58UE1y2LV04qAPB+aJbbtz8US0jPJhQ7wb
t+SNkQOqoHzYkK9dU/hhgwNyonzY0H32S/3nKgeUSPmwQfdjkm67oyP6Tvmw
gRhWtqw0zhEtoHzYsL59+5sT3Y6okPJhQ0rM3TWzvCYhqn1ns+FJ71ZzjcxJ
KJryYcNfk5KPqcMnoy7Khw3WIxLfOq2ZjKYqfz2BDf4PFT3/PZ+MrlI+bNgu
LDMyZDkhHer7Nhsyt08KCjvjhNZRPmxYPL9hS7uKM6qhfNjgdUzjz2mGM6JT
Pmw4uViP83KFMzpB+bDB95GaY1KyM/pG+bAhuPRlfXu1M5pD+bChacFh4u4w
GrpP+bDhziH7BaMRDZlRPmz4PjOD8W0TDe2kfNhwIVerZMk1GmqlfNiQcWOa
dkA7DblSPmwYLd6iW2nqgi5TPmzoCIkpr5rlMujDBvGkSDTniAuiputnQUPM
1NCQJy6olPJhQd0Wdf8hGnRkS/mwgDP0/EcrER3FUT4s6LMf71mxlY56KR8W
mHTsCvx9h46ox4tZkMp7bJHzlY6odnufBUftPqd9oTEQ1R6yWdB8daDp3loG
iqR8WHDkycdqzesMRLWvZBZc3lmyo7mHgYSUDwtsqra3E45MdJ7yYYFarrG6
TSgTUd/ndrJAwjz95thVJgqmfFhQFLE5KO49Ez2ifFiwKYOdMNKJhRwoHxaI
HtWEjAtjoUOUDwtotT7y3Fss9JHyYYFb1aVRjf0sNIPyYUF03pvmwzw2yqV8
WNAe/2F2RRQbGVM+LJDNbAlPLGKjrdSBsmC4ZrZQPoyD3lI+5PlmLrz6xJeD
RJQPCyp48oesRA66SPmwoCVvxq7JDZxBHxZ42pzpzLbioiDKhwmZO6APVnER
tb0eJrAeF/03L4eLqHBbmdDy96Lm7j9ctJ/yYUKWVbAOw4OHKI5KJpxnqRaE
HeUN+jAhj71Nj9/AG/RhQr/tC50jdnykR/kwYZ76iNvrNvDRBsqHCc1V5mqN
hXz0kvJhQlys/rfaEQLEoXyYEEBrSwicK0BJlA8T3B8dq1+eIUB/qP7GhOne
40vUvgkQdT2Hk8+De4SFuxA9pHyY0GBfOiI/UYhsKB8m8GOS91W3CxG1XCC5
3/qKlmAWgeTUATBhqVmAxYYYAvlQPkwwCKS7/qknEHW8fHK/+0KmDHFA//KN
xoSa9B/0fdsR2kT5MKGpoFllzzOEXlE+TPjzLj7w7ygRoq5ffSYYBc2z/MEX
Ieo61yTjaahupC0ToX9/32ZAjF9/XMYR0aAPA57kl9gvuC/6l289DDCxFt/z
6xAh6rptZcD2fSsEO0eJB+uHAb3N/KxegXiwfhiwnHXf4MwKMZpG+TDg876O
0H3HxSiH8mHAgaqC29dAjAwpHwY46Is/6r8Xoy2UDwPqp60bl2csQQ3UgTHg
1H5vXpK75F+/TmDAsnvVXvc2SFAq5cMAQYeGt9EFCRpK1Q8Dxo9oF+ZUStAK
yoccm57/uee3BJVTPgwgtJbP2T5R+q9fyxiwpYY793ygFMVTPgx4FWn0pyda
ir5QPgyY+VNNEnRbimZSPgz4PvvHhCFtUnSX8mFAztFf2RV6rmgs5UPuN12z
sVDsinZQPgw4cdoqs2Gd62D9MODuci9jq/OuSEz5MODvqK0TE6pcB/sbAxae
ymt0HHAdrB8GqP1SpX+c7DbY3+hwhTt7YuNCN0S9vvTQISQgr+jLYbfB+qHD
NG+bAXqh22D90MHfLKUh+YMbUlA+dNj21HI+zdz9X74V0wEH3treO80dXad8
6GAHfuIXu9wH64cO/w35frn9pvtg/dBhltXV6+Pb3FEt5UMHk/GhgXsMPBCb
8qHD/76xL+p6eKBTlA8dtP7TOfYo0gP9pOqHDhz+F4uMTA80l9owHfzetNul
NnggTPnQQbdQHnFJ2xNZUD502N2hqndT5Il2Uz50uDrdof/Rek/UTvnQYb/K
cuvOi55oCuVDPv8l56xOnSe6RvnQYYq9wSKxphfSoXzoIEmLWbWN74U2UgdK
h6bFIx7Caq/B+qGDoyxNpn3ea/D9gA4u6VN9llZ7/cs3TTrInYbtLlGfMuhD
h42/X6g4sacMvh+4QOyI3LILK6f8y7ceF/BZnNFgenYKolE+LlD+7So3rXIK
OkX5uMDf6qJmmqo3+kv5uMDLTz3Py+jeaCnl4wJBARNGrlrmjZ5SPi6Q+XPT
MYPT3siF8nGBc20vlpSVe6MzlI8LiPQ8t0b/9UbqVIG6wPE9FU1TaVNRCOXj
Apc4QQfHBU9F1ZSPC8yljdjbd2IqElD14wJFqx+V1JVNRRcpHxdoYc5NvfF7
KtKi3q9dIP15bMhKJx+0hvJxASvxLDMNmQ+qoXxcwGNvYcHu4z6IQSWoC5if
KfFsLfVBCZSPC1zet6LQ6ocP+kL5uECdNMPCw8EX+VE+LnD/xd61Uxf4okzK
h5yP/zeDHu+LNKj3axfYuXF05W/wRfMpHxcI2/WoKf2zL7pF+biArszwDcPa
b9DHBbaPUS9Km+mHZlA+NIhIOXTia7Qfukj50MDi562Zdnl+6KuyobbSYL19
hIqg2w9JKR8acE+s8jYeOQ3FUz40OKUacnCfzTTUQBUUDUpfsopahdOQDeVD
gwqD6g/Os6YhweFRmyfk0uD3lU/VPrJp6P/H7rB7
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]]}], {0., 0.}, Automatic,
Offset[10]], {{{-5.3257, 0.}}, {{-5.3257, 0.}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]]}], {0., 0.}, Automatic,
Offset[10]], {{{-15.9, 0.}}, {{-15.9, 0.}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]]}], {0., 0.}, Automatic,
Offset[10]], {{{-30.9, 0.}}, {{-30.9, 0.}}}]}}}, {{}, {}}}}, {
DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio ->
GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None},
AxesOrigin -> {-2.2291666666666665`, 0}, AxesStyle -> Thickness[Large],
BaseStyle -> 16, DisplayFunction :> Identity,
Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
Graphics[{
Thickness[0.010628122010840685`],
Style[{
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYC4or7P24Zd0s5LH/hofe/0NAh5O3ljzMYZeD8
A937mkyaZRy2mP84lFJl5NCqwK565ouMg/S8OM3TAsYO24OtIv63yzqoPmme
d7bKGK7/84aA7FnbjR12gOSPSzrEKDh+TL5j7HD2DBDkiMP5D1zjHWdNFIHz
t3ptsJizk9+Bx021lMnL2GEmGHDA7bcvcaw9PYfRwRgENhs6sOr/4rrU89Me
bB+7AZy/1aHp0fEdOnD+m+Ktor9XazrIbBSbz6TA5AByxhkeDQfVTyovZ3ny
wPlg/00RhPPB/lko4nB8145etg0aDv9BQF7C4XmW9rfpsloO8rsW7Ev1k3aY
PoG/yixbG6LvjJQDC2eXfDKfjoP7mqPLGW5IOkxpb426vEfbQaRyUslZF1EH
HUX5LzlmWg6zQd67KeQAcx8DCCwQcEB1Lxec3xfR7c9YwObw51vpgzkfteB8
kR6vVywlunD+X5B8oQEk/h5zOdT/tio4J2Hk0A+SnyAADT8jB2GQe54IOuyv
lbVI/2IEjR9hh9vSNYlGosYQ96aIwvlBoPBwlIDzYekHHP7HjeD8rztvdf1N
RfBh6QkAoBQWdw==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{11.075,
17.718799999999998`}, {9.20469, 17.718799999999998`}, {
8.249999999999998, 16.2328}, {8.249999999999998,
13.312499999999998`}, {8.249999999999998,
11.898400000000002`}, {8.503129999999999, 10.6797}, {8.92656,
10.087499999999999`}, {9.348440000000002, 9.496879999999999}, {
10.024999999999999`, 9.157809999999998}, {10.773400000000002`,
9.157809999999998}, {12.5969, 9.157809999999998}, {
13.514099999999997`, 10.7281}, {13.514099999999997`,
13.818800000000003`}, {13.514099999999997`,
16.462500000000002`}, {12.7297, 17.718799999999998`}, {11.075,
17.718799999999998`}}, {{10.857799999999997`,
17.295299999999997`}, {12.0297, 17.295299999999997`}, {
12.499999999999998`, 16.112499999999997`}, {
12.499999999999998`, 13.215600000000002`}, {
12.499999999999998`, 10.643799999999999`}, {12.0406,
9.581249999999999}, {10.9297, 9.581249999999999}, {9.75938,
9.581249999999999}, {9.264059999999999, 10.799999999999999`}, {
9.264059999999999, 13.746899999999997`}, {9.264059999999999,
16.2938}, {9.71094, 17.295299999999997`}, {10.857799999999997`,
17.295299999999997`}}}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{28.67809999999999, 16.031299999999998`}, {
28.9609, 16.031299999999998`}, {29.260900000000007`,
16.031299999999998`}, {29.260900000000007`,
16.364099999999997`}, {29.260900000000007`,
16.698400000000003`}, {28.9609, 16.698400000000003`}, {
28.67809999999999, 16.698400000000003`}, {19.665599999999998`,
16.698400000000003`}, {19.382800000000003`,
16.698400000000003`}, {19.082800000000002`,
16.698400000000003`}, {19.082800000000002`,
16.364099999999997`}, {19.082800000000002`,
16.031299999999998`}, {19.382800000000003`,
16.031299999999998`}, {19.665599999999998`,
16.031299999999998`}, {28.67809999999999,
16.031299999999998`}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGINIGYCYuFPjufT1jo6vMjS/jY91twBxl9yfx/fnM9m
Dhfz49nPaTo7MICBOQb/d0zu0X9FCH778vBTRntw81kWT7JidHWFm1/326rg
nIOrg8Zb3n0GnuZw/ooXHnr/CxF81SfN886uQvD7gktUpt9H8Pn8109J5bCA
m78cpD/RwuEPyH1RLg7PQf7ztYD476+zw0wQ8ISqb3VyUAfZb2nh8CRx4TWT
784OW8x/HErxsnaY8o0tfsYeF4enIP1vbSD6fkL5Z23h/JKtor9P/7OD87u9
XrGYZDrA7QeH208HB1fVUqZZEc5wvu6EBT8MjznB+eJTr3BmJDk5gLz3/4KD
QzHYXEeHbM6fC9KzHSDhecfRwaYyYoXpWjuIe8Wd4Hyw/YZODjyg8MiwdwAF
s3GQE4TWcoCYM9sJ4u9YBwf7pkfHZyg7w/lvgMEw8xIa38nF4cRhp7WZ9+zh
/P21shbpLXZwPjg+g20h+t46O6SmAYGaDcR97M4O4eLbLzLYWTmgpzcA8usO
Gg==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYCYr0JC34Yxnk4lGwV/X3azsaBZfEkK8ZeBP+m
dE2i0VwPh3qWo/2G7rYO2Zw/F6Sv9nB4nqX9bfpdWwd5x4/JZ/Z6OHzYEJA9
y90Orn9/raxFeosdRN7Vw0HjLe8+g5V2DhJTr3Bm/HKH89d0385gmI/g8/qv
n5LK4e5wVeiT43kxO4c0EJjmBrd/no3OlVlqbg7/QaDexqHH6xWLyU1XiH1X
rOB8dZB5mpZw/qG25eGnFplD/KXn5mBiDASXzRwSD1/WTr2I4O+81fU31d4d
zg8pUZn+f4G7g4HWSuELKuYOdb+tCs4JeDg4ND06PuO2OcQ9ZR4O4iB/NVlA
3Jvm4eB3cWLMv8sWDsc1rSaddvdwmD6Bv8pstYWDCNBbaVvdHVJi77gxvzB3
YACBDHe4+8DmK7ijunedG5xfGbHC9Gyxm4PXCXbb2a4WcP51UHi1WcL5xw87
rc20s3b4E5N79N8uNwcfkPqnNhDz5Nyh4WfrkADyv6c7JJwO2kLip8rdYekL
D73/D6HyOxF8VlD8inrA+bD0sxcU/lMQ/AMg9xoh+LD0BABsyxAI
"]],
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4k8bArJnpXs6mBgDwWYrh9XdtzMYyhH89DQg
sPNyuC70yfF8mrXDcU2rSaftvRxmzASCTGuHhMOXtVMdEfw/MblH/zkh+O3L
w08Z+SD4e251/U3193KIEN9+kcEPwV9yfx/fHGYEv+63VcE5DVM4PyX2jhtz
hwncPV93giRMHFSeNM87+8rT4QwIxJg47K+VtUif4gkxLxjBvwFy/zdjB4mp
VzgzmrwcGMDABIOfw/lzQfpkBB9s/3IEH+zfkwh+OMgf/7wg9v8xdnBXLWWa
JeDtwO0GZPwydphvo3NllhuCD1bf5g13D4wPc6/PCXbb2abecP+4gMx7gPBv
j9crFpOLiPCA8WHhBeP/+Vb6YE6gjYN906PjM3Z7OUjMi9M8nWDjsAYUv+FQ
/T+g8ffS02H6BP4qs9nWUHs9HXj8109JtbB2QE8fAIRc61Y=
"]]},
Thickness[0.006780741842916356]],
Style[{
JoinedCurve[{{{0, 2, 0}}}, {{{35.142199999999995`,
16.171099999999996`}, {56.5531, 16.171099999999996`}}},
CurveClosed -> {0}],
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxdk21Ik1EUx5+t5gtpaS/q9NGmbtNAxbdyiLpjcZ/nYQhGVu5DsLTWEtMl
zsDQEC3DpAjfmit0lTADdQZJKmQSiZYaCGK4PlRqVGCEZmaart09ekcdOB9+
3Mu59/z/54Tm6o9pt1EUJXBkmiOFjpz3HohtViHo2B21U1cYBhN6jfubGhef
w9GFIGPEPfXuQSmM4XiJ4EnSyouzKhlsf1iXLEAMBFu+cDEaORh69q2Ndrl4
9VTB0EY8++95Cwsj/b033bqlhLM9/a4nWMMIO9/JkPAsZ4HtGLJQRhqib5tX
4poYwmr/pxNUtYsXu4/mm/QMyBalX02PaLAFleXEn2DA2OyIPhpaUqImTYcY
iMDnr2iIwfVCGLj8fsWWkC+GhmU3jTFq89xTzOtRyoAV6xESCF6Z1gatmYH9
/eYBbWEg9NlurGvfulgxNVSQWMESbne0bf/Iwi11babAx59wX1ay2s76El4a
WOjRNYlAkr5wZkzLQutIfVu+fFXJyEqEpnaG8B+sp8rFS7jfXwguNJ4uUvxY
Vzr97EcQif9fIyR+/sT1T4pgLuf+VKIeQZvNMht3xAOc9TkE9GO/VqFkF3/f
F/F6TXvDYHmwQpeCAGOz2G3TFwRV/uWivGoBHDdI79jVCAIq6YbYrGXl1nwo
cqPTRIMLyi19UzsfKBOLvyuddfJcXG3Jfh3vxRJ26jm81f8az0kceb8e+1PG
wUWLoXsjcwfM4n5aOUjAUexD+APSpJuK9hDuxP5d8ePn+RLH+3tADNN4PqI5
sON4HggBjZOe51dZ2FtaZxifCwKonBk2jrLQi/3S0cSfe/g/v2lePw8OnunL
vjWXSECF9wRxED41k0XNhxKWYh4LJ0zhMMuho/bdecrKwgwe5IpI/j/jDGHZ
XFXL+GEXO/X4jOCqt2MQP0Xw9a4hsl//7/NfFHu04g==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJFIGYC4v8g8DnAITn2jhszh4FD7bptSfWyQXD+/lpZ
i3QdBH/Dw5dTNzlg8m0rI1aYxiL4h9uWh5/ahNAP48PMh/Fh9qPzz4BAjCmc
z+u/fkrqDARf4y3vPoOXpg6cPxekb76H4At/cjyfdhKTD9MP48PMh/Fh9ss7
fkw+Y+uP6h55BH/Hra6/qd/9MPgw/8P4sPCB6YfxYebD+DD70fkb9PIWM+5R
g/MNtFYKX3BB8CWmXuHMWKQK9z+MDwsfdD5MP4wPMx89/gFlCQi+
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ1IGYC4g0PX07dxBHqULJV9PdpOxsHmdePzKQUEPyO
5eGnjDRCHepZjvYbuts6BMiJZfnqhzo8z9L+Nv2urYOm1aTT9RahDh82BGTP
creD699fK2uR3mIHkf8T4qDxlnefwUo7B9UnzfPOXkPwC+LZz0muRPAVHD8m
n4kNcbgq9MnxvJidwxkQUAmB2/9i+3rm52+CHf6DQL2Nw4N9fHOMjwVD7Lti
Beerg8zTtITzD7UBPbLI3CGkRGX6/w/BDibGQHDZzMGzulnfxykEzv/GFj/D
pxLBP3JZO1VyVYiDgdZK4Qsq5g4R4tsvMjwKcXBoenR8xm1ziHtEQh3Ep17h
zGiygLiXJ9TB7+LEmH+XLRxq121Lqv8b4jB9An+V2WoLhyWTrBh9t4Q4pMTe
cWN+Ye4wEwR6Q+DuA5ufFYLqXgME/+rRXJMG4RAHrxPstrNdLeD866DwarOE
848fdlqbaWftIOER8EfCPMTBB6T+qQ3EvIwQaPjZOniB/F8X4tDj9YrF5KAt
JH6mhTgsfeGh9/8hVH4bgg+O3ycIPiz97AWF/xQE/wDIvUYIPiw9AQBdaBll
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGINIGYC4k8bArJnxYc6bDH/cSilysQBxudyUy1l0jJx
kHn9yEzqQ6iDiTEIYPKfiMiefModBufH5h79t0kdN/8MCOwJg5sfICeW5bs7
zEH1SfO8s1kI/kwQ6ETwb0nXJBptRfBtKyNWmN5F8Dfq5S1m/IMwnwEEHEwh
dEqYg8y8OM3TBqYOB2plLdIdwhxeZGl/m65r6lC7bltS/cZQhx6vVywmiqYO
Ry5rp0rahTn4nGC3nV1q7hBSojL9f0eYg9/FiTH/Nls4tC0PP2W0IMwhQnz7
RYY4Szj/y85bXX9dreB8jbe8+wxWWsPt19daKXyhxcZBwfFj8hlGBP/BPr45
xqdC4fwlk6wYfZeEOlwV+uR43s3GoSnQc25DXahDDEjjGmuHH2zxM3wKQx1S
Yu+4MXNYQcK3HcEHmz8x1CE9DQimWUHMnxfqMAMUnp7WEHfvCnW4DjJ/mrXD
1paaC5vfIvhg9xuEwfmcPxekb44Kc/gPAu+t4Hyw/15awvndoPBjtITYZxUG
iQcZC4cJC34YPnsUConPlWYO6OkNABjzCWk=
"]],
JoinedCurve[{{{0, 2, 0}}}, {{{78.4531, 16.171099999999996`}, {
91.89409999999998, 16.171099999999996`}}}, CurveClosed -> {0}],
FilledCurve[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4kjx7RcZzoU4ZOR/aD15RdWhx+sVi0lgqIMo
iLFF1eHBPr45xl2hDq+Kt4r+Xq3q0LY8/JQRSxic/40tfoYPZxhcf4CcWJYv
e5iDx/5aWYt0NTi/4bdVwbkVCH7ALemaRCF1ON/34sSYf80Ifguv//opR9Xh
5ifH3nFjjtCA2/8oAujwBg2HJyKyJ59uD3X4DwLxGnD3wtSbGANBMIIPNl8a
wW8K9Jzb8C4EVf+iELj54PCYGwJXD5afFwL3H9j8+SEOZjZ7g6YxqsL5Z88A
wR9lOH/2TCDwVHSQef3ITGpOiIPrmqPLGSpkHAri2c9JzgxxqLj/45bxakkH
kU+O59PWhjiof1J5OctTEmL/3RCH1DQgcJNx2PDw5dRNP0IcakDqtWUd3vDu
M5ipFQrng8OnB8EH6z8Z6uAOsu+GBJz/ui232+i3IJz/Zd/HrenXWCHu6wh1
mH9i8pJstd/24PCXRPA9q5v1fR6FwPlXj+aaNKwHuudF069pO//bg81bGOLw
ovZx9nkdZgeQs9OKQhxmgPw/k9cBFKwMUSEO/k88L5le5ob4tzDEIQDEn8zi
AFZWC42PegZI/HaHOIg1yUwxuPzVfskkK0bfFVD5/x/tQ0pUpv+/EOJgu3aR
vUnxe/sz4HBH8F9sX8/83CEUzge7rzMUYo/kd3tw+B8MhYTvMkYHMY+APxL/
Qx2W3Fr+2LCZwyEm9+i/TfJhDq0K7KpnpgjA+Rrg+BGF82Hx+QMUXmdDHfhj
A+4bHVeApN9IBF/TatLpeg0EH+w/5lCH0sPbXGfGKjiA3X8kxIEBBBLkHNDz
JwDv9J2A
"]]},
JoinForm[{"Miter", 10.}],
Thickness[0.006780741842916356]]}, {
ImageSize -> {94.08659526774595, 34.861070983810706`},
BaselinePosition -> Scaled[0.3495664698586527],
ImageSize -> {95., 35.}, PlotRange -> {{0., 94.09}, {0., 34.86}},
AspectRatio -> Automatic}], None}, {
Graphics[{
Thickness[0.01869508319312021],
Style[{
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI1IAaxQYAJSjNCxZjR2DA5dDXI4rjYpKrHpZcY95DK
ppabKTGTVHfiEgcA+NYCcw==
"], CompressedData["
1:eJxllHtIU2EYxueFvICXbbrZPGubbuo03ZmKmkW+VpalobTAlTcop5VF/qGm
qVFKEmipYXgLK4osmmllKSZmLbG8JoJWSopGWGngBbOs1r7zzU+oFz4Ov3N5
3svzciSHTu7TmLFYLBPDiTAcU8OpQnHACpxrE+Q9oIRYmZrq32IPeSvBaf1B
Snhe1J7vr2ODwvMu942/Ehbb5x6nZHIgarAs7g93jd0/FtT2ddOE66bDffRl
NJwXW8h6/TlQokqXVtjRWG+KDVdK7U4HeCkgjslnDXoUiRIYsRnlaQIssc4S
Bf5+hliwwDxMQUh6aF7PmCnWLaegF0XkSkgH0j28yj9DZgpPFPnWCHA/uab4
vlaA9TMtMfcKgHrAu2Y6YU14Om8qdWDGhvD+2aG5SokjrOq1qILV+i4eYWZ+
P3iwmp/pZ4xL6uNmX07vk3IwN1EwEZYYWl3Ghl3azjpWkJAw813uBsLF6qIo
E3sRqFD+G2yIZq4iQOPwG2JDzvjye79YMa5jMx+8JaLF48MKwppkQ3xS4D6K
+UAj/3bQxr74oOY3D7Iu0SBuvd6u+caH17pt9Ufv0yBCbOtE/KznbLRN2eqE
/dEb/eUJwCaqoVzjpMR1xzlDmrZo9IhYif3iCgmf0j0Jq9orITwqF2r1Ohf4
tZQxcfUcTZjZtzs+hCPRft30gho0391ieBS4/CLpmNy4F+sJe8xLP1fL+YRX
/RCgfbaX4/rPiPD1gwtko7k9FYNdfPS4b4wEMlB9Qlfi51nzzhJloIz4nxQ/
ttMsa41/o7oH15jJ926NK9FeR7jhubQJIJnxwY3ov2ptubgu2v0/ZuamoqAJ
9WHtBg5ob25RQKE+GmWQhHTchNjHl1L8/pAIwtAevRVC+LM8YVCdB96Le2Jo
hvzJrmUP3GeFBHLmG6NTD8rBdXhSxWpzgQaZwWBvT3As3vPFvFwKy7NfOzYV
eOG5lcowb/cmzOTzUxBeMMhVf6fxHl9wBSTX16o07okIdIV1Md0PlRCOnmfx
YIQzHzpw2/g/KXAkzPiS4EAYz82KfP/v/+kvoGcbfg==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJpIGYCYp8T7LazRU0deiO6/Rk/8DgUrum+nfHB2IEB
BBREHG4IfXI832bscAYEdMQhtIyxQ2oaEDyTcfi8ISB71nEjiPgeBYfiraK/
T88zcuCPDbhvpK4M51+4GvZG/7YqnH/qsNPazDoNuP7/ILBfy0Ffa6XwBRFj
B5l5cZqnL+g4lIDU1xk7ZOR/aD1Zou8Qo+D4MfmNscNMEKg0cIC53xgELhs6
8Pmvn5J6wsTBvjJihamtkUO31ysWE0Vjh4Nty8NPHTJw2GL+41BKlZFDCy9Q
4VF9h/7gEpXp9w0dan9bFZxboePwZeetrr+lhg7u+2tlLdq1HKRB7nAwdGgG
qXfVgPNh/oHx72jKrvlfrORwHRReywwdYlQjZM7VyDlwu6mWMmUZORzs3tdk
cljCgQfkvh9GDiFvL3+c0SgCdY+xQzooPNmE4O5ffmv5Y0NnLgf0+AEA0Jq9
Pg==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQ/R8E9ls5PHCNd5zFqOBg3/To+IzVVg5v2nK7jWZL
OfhcnBjzb7O1wxkwwOTX/7YqOPcCwbepjFhh+hfBP9K2PPxUko1DjGqEzLk9
Ug5fd97q+itqCzcfxhepnFRytkXGoYHlaL9huQ2Ev0TGwecEu+1sURuHVgV2
1TNboHxWGwf3NUeXM1jIwvnOE5qF0rQU4PwLV8Pe6P9WhfPB/pyv5bDF/Meh
lChrhyeJC6+Z+Os4iE+9wpnRZAnnL76/j2/OZQs4X3penOZpAwuIOV+1HdJA
YJq5Q82nDQHZVtoOpw47rc3cZwaRN9WC8w20VgpfUNFw4PVfPyVVw9zhVfFW
0d+v1R1sQeETa+4wZ5Hyzj/PNRwOgcJnk7lDOthgLYdpE/irzG6bw90Lsc8C
zr8hXZNoJGoF5y8BuXezlUPgLaBEkaYDLD5ZOLvkk/vUIPbpWsLDA6ye2dzh
xK4dvWwGqg4b9fIWM8qYQeJ/ozKcX354m+vMtwpwfirIHc9koO4zc1D/pPJy
FqeUQ7SC48dkGQs43xsUDqkIvuqT5nlnV1k4zJgJBJZSDo2g+D1u4VBx/8ct
424pB/T0BwBWAyzX
"], {{26.749999999999996`,
8.670309999999999}, {26.28909999999999, 8.018749999999999}, {
25.287499999999998`, 7.4156299999999975`}, {
24.667199999999998`, 7.4156299999999975`}, {
24.031299999999998`, 7.4156299999999975`}, {
23.474999999999998`, 8.003129999999999}, {23.474999999999998`,
8.687499999999998}, {23.474999999999998`, 9.274999999999999}, {
23.793800000000005`, 9.831249999999999}, {24.270299999999995`,
10.132799999999998`}, {24.667199999999998`, 10.3719}, {25.5422,
10.593800000000002`}, {26.749999999999996`,
10.768799999999999`}, {26.749999999999996`,
8.670309999999999}}}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
31.570299999999992`, 8.464060000000002}, {31.093799999999987`,
8.464060000000002}, {30.665599999999998`, 8.018749999999999}, {
30.665599999999998`, 7.5421900000000015`}, {30.665599999999998`,
7.065629999999998}, {31.093799999999987`, 6.62031}, {
31.554699999999997`, 6.62031}, {32.064099999999996`, 6.62031}, {
32.507799999999996`, 7.050000000000001}, {32.507799999999996`,
7.5421900000000015`}, {32.507799999999996`,
8.018749999999999}, {32.064099999999996`, 8.464060000000002}, {
31.570299999999992`, 8.464060000000002}}}],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIAaxQYAJSjNCxZiR+AxobFxqkMWJYZNqPrXcQIl6
YtwAANeLAk0=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4rbl4aeMzrg4sHB2ySfr6ThczI9nP7fTxeFJ
4sJrJv46DsteeOj9D3Rx8Lk4MebfYm0Hi2tHc01eODsE3JKuSTTSdjhQK2uR
XuPsYG6zN2gaI4L/PEv723RZLYcTmlaTTh9H8ENKVKb/l3CB83u8XrGYKLo4
6GutFL7wRBPOnzGBv8rstDqcfwYE5ijB+TNB4KUiRJzFxSE1DQjYFB0ixLdf
ZLjm7FB9/8ctY28FB5bFk6wY5zo7yO9asC/1nJxDZcQK07PRzg7qn1Reznop
6zD5G1v8DB4EX/iT4/m0o05w/n6Qf3qcHGJUI2TOzZFzqADpz3ZyMDEGgsvy
Djtvdf1N9XeC2Jet4BAM8p+Dk4P7mqPLGTIU4fzyw9tcZ55VgvNh4V28VfT3
aT0neHiv6b6dwXDcER7eN0HBHOsID+/Ew5e1Uz86wMMbxoeFJ9g/No5wPjg8
+hB83QkLfhhOc4SHN4wPC28Y/46m7Jr/xUpwvvOEZqE0KwUH8alXODMWOULC
o0YO7l5w+D+TgYTvZ0eH9UI6fOn/pOD+BYcnp5QDKyg+tiL4rqqlTLMEnOH8
FaD0lugMidc3UpD0MsPZQaRyUsnZFhl4/MPcA+PD4gccjvLA9ANOILLw9Pam
LbfbaLYUJLwWQtPTGSmHHM6fC9IXI/hg+w8i+CBvpd3DzVd70jzvbJYr3HwY
H+ZecPoQd3VoVWBXPbNFxuHBPr45xpdcHL7s+7g1/ZqMAyz/gdOLhSycLwzS
v0TBAT1/AgA/tpjX
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
45.1703, 8.464060000000002}, {44.69379999999999,
8.464060000000002}, {44.265600000000006`, 8.018749999999999}, {
44.265600000000006`, 7.5421900000000015`}, {44.265600000000006`,
7.065629999999998}, {44.69379999999999, 6.62031}, {45.1547,
6.62031}, {45.6641, 6.62031}, {46.1078, 7.050000000000001}, {
46.1078, 7.5421900000000015`}, {46.1078, 8.018749999999999}, {
45.6641, 8.464060000000002}, {45.1703, 8.464060000000002}}}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJpIGYC4sTDl7VTGT0clt9a/tjQmctB3vFj8pleD4eD
3fuaTJwFHep+WxWcO+HhEKMaIXMuRtjhuKbVpNPsng4zQaBSzKEiYoXp2WZP
B5HKSSVnl8g4sCyeZMV41NOh28ZzVxqTEpxvZAwEl1Xh/GZe//VTXDUc3vDu
M5i5ytPBfX+trEW7loP3CXbb2aWeDrUge1foOICUpWp4OjzN0v42fa++AytI
/1UPh+Ktor9P7zNwgLnfvhLoEFsjB9UnzfPO3nJ3MAbbZ+jwJHHhNZN8D6i5
Bg66Exb8MFzm4XAGBHL0HYJLVKb/v+HhIDMvTvP0BR2Ivxg9Hf6DwH4thwjx
7RcZxDwdTh12WptZpwHnX7ga9kb/tiqczx8bcN9IXRmuH2z+HgWH1d23Mxiu
ezikpgHBMxmH5S889P4vhNqvI+5wU7om0SjXw4EBBBRE4O7vjej2Z/zA44Ae
PwAWsLfc
"]]},
Thickness[0.01869508319312021]]}, {
ImageSize -> {53.494963885429634`, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {54., 22.}, PlotRange -> {{0., 53.49}, {0., 21.12}},
AspectRatio -> Automatic}], None}}, FrameStyle -> Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], ImageSize -> 500,
LabelStyle -> {FontFamily -> "Times"},
Method -> {
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}}, PlotRange -> {All, {-0.00135, 0.001}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],
Placed[
Unevaluated[
PointLegend[{
Directive[
PointSize[0.009166666666666668],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]],
Directive[
PointSize[0.009166666666666668],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]],
Directive[
PointSize[0.009166666666666668],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {
Graphics[{
Thickness[0.00893415527561869],
Style[{
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGCwBmIQ3RtcojLd3s5hs/mPQylZmg4+J9htZy+1c0iJvePG
vEPL4YZ0TaLRVDuHGTOBQFLbYcn9fXxzgm0ctjs0PTr+Q8vhDAjssXZYr/qk
ed5bbYctIHO0rB2eJC68ZuKv42BiDATJVnD+fxBYbwnnF6zpvp3xwMJhSntr
1OU72g4ga2ZaWsDtA7sn1BxCi2o59IHce9/MITUNCNo04HxdRfkvOdPU4PwN
enmLGW1UHEDOOjvLHOLOOUoOySB/nbBwUL72KJghRsnhhtAnx/Nt5g7V93/c
Ms5WcIgQ336RIc7c4UD3viaTx/IQ93iaO/REdPszCiD4b9pyu42k5eB8sD+D
ZRwOti0PPzXJ3EF+14J9qX7SDl933ur6G2rhUAM2X8rB7+LEmH+fzRwUQPJ5
4g7TJvBXme02g7jvjZiDxNQrnBlNZg4PXOMdZ00UgfPB9swUgvNlNorNZ1rA
6RCj4Pgx+Y25g32JY+3pOYwOPV6vWEw+WsL5HzYEZM8Kt4Hz7YHRNsPaDuLe
zbxwPtg/s8XgfLD79aQdePzXT0mtsHWIUY2QORcjB5GPtoHzwfF3wRLOB/vj
jwWcD/bfbAtIvMvLw/mw8Ibx9+TXvJ15VcFhIyje9lg4rBXS4UvXU3TwBsW7
qiUkPB4qOkSC4sfO0sF5QrNQGpeSwxdQ+LpC+VJKDqBkkRZm6VAJMt9aCZLO
6i0djMFAyeEzKDymW0Ls11aCpnMEv57laL9huhWcX7JV9PdpO2uI+44qQdLh
U2uIezYqQ9OVjcOpw05rM/epQOL7q42DLyiemdXgfEh4q8P5XuB0reHA46Za
yvTKxkFu+QsPvf0aDhpvefcZnLSB50f0/AkAMzmeWg==
"], {{
25.814099999999996`, 13.6141}, {26.89529999999999, 13.6141}, {
27.626599999999993`, 12.7234}, {27.626599999999993`, 11.3734}, {
27.626599999999993`, 10.339100000000002`}, {26.959400000000002`,
9.625}, {25.989099999999993`, 9.625}, {24.924999999999997`,
9.625}, {24.2094, 10.4516}, {24.2094, 11.674999999999999`}, {
24.2094, 12.898400000000002`}, {24.796899999999997`, 13.6141}, {
25.814099999999996`, 13.6141}}, {{26.5609, 6.478129999999999}, {
28.357799999999994`, 6.478129999999999}, {28.978099999999998`,
6.1125}, {28.978099999999998`, 5.07813}, {28.978099999999998`,
3.7125000000000004`}, {27.7219, 2.6953099999999997`}, {
26.053099999999997`, 2.6953099999999997`}, {24.670299999999994`,
2.6953099999999997`}, {23.7172, 3.5046899999999996`}, {23.7172,
4.6812499999999995`}, {23.7172, 5.3968799999999995`}, {
24.129699999999996`, 6.0484399999999985`}, {24.7656, 6.31875}, {
25.020299999999995`, 6.445309999999999}, {25.4656,
6.478129999999999}, {26.5609, 6.478129999999999}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0,
1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIdIGYCYt+LE2P+Ods7PM/S/jZdVsthi/mPQym3EPz5
NjpXZtk5wPnFW0V/n3ZzcNDXWil84YkmnD9jAn+V2Wl1OF+4clLJ2SUKcP6O
YKuI/+6yDu6qpUyzHBwcvuz7uDX9moxDA8vRfsPv9g6tCuyqZ7bIOGzRy1vM
aGPvIALS34Lgv2nL7TaaLeXA479+SqqBg0OMaoTMuT1SDjelaxKNUh0czoCB
lIP5taO5JjMQ/PrfVgXnDuDm/47JPfpvlyPcfBgfZn+P1ysWk0BHuPvkHT8m
n/nq4JCaBgTPZBxmgsBHqH/EZOF8mP9h/E0gf8iowfngcGfWgNjn5Ohw/mrY
G/3Z0PBchuBXRKwwPfsYwU8H2cvn5JAQEqS+QFPTYU337QwGfScHA1B8qGg4
XMyPZz8XieBvANmb4+Tgc4LddvZXbQdvEB3q5MDC2SWfrKfjEFyiMv2/gZPD
k8SF10z8dRz218papPMg+Dtvdf1NPe8I54Pt73OEhp+2g33To+Mzkh0dzG32
Bk1j1Ib7b84i5Z1/nmvA+TD7wObdd4Cb93lDQPascgcHH1B4LNaGhC+vg0PA
LVDEajvA0ifMfPT0CgBoEj14
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJeKK32pHne2VUuDk8SF14z8ddxuJwfz36u0RnO318r
a5G+xcmh9rdVwTkOTTj/TfFW0d/eKnB+wNvLH2cslHdIOHxZOzXT2WFnsFXE
/3ZJhxOaVpNO57vA+T1er1hMVrrC+XUgczvcHJwnNAulaSnA+WD736vA+TNm
AoGlpgOImnnQFe4+dPfrTljww7DNxUF86hXODCdth0SQexxd4XyHpkfHZ5x2
dcjM/9B6UkQDzn/gGu8466AynA92j5SCw0a9vMWMKa4O/0FgvjTEnv0ucD7Y
f9+d4Xyw+wqdHUoPb3OdeVcBzn8UIb79YoIqnP/3W+mDOYaaDibGQHDZGe4+
dPcDAL4pwwE=
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIAaxQYAJSjNCxZiR+AxobFxqkMWJYZNqPrXcQIl6
YtwAANeLAk0=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJrIGYC4vbl4aeMzng5sHB2ySfr6ThcyI9nP7fTy+FJ
4sJrJv46DstfeOj9D/Ry8Lk4MebfYm0H82tHc01eeDoE3JKuSTTSdthfK2uR
XuPpYG6zN2gaI4L/PEv723RZLYfjmlaTTh9H8ENKVKb/l/CC83u8XrGYKHo5
6GutFL7wRBPOnzGBv8rstDqcfwYE5ijB+TNB4KUiRJzFyyE1DQjYFB0ixLdf
ZLjm6VB9/8ctY28FB5bFk6wY53o6yO9asC/1nJxDZcQK07PRng7qn1Reznop
6zD5G1v8DB4EX+iT4/m0ox5wPtg/PR4OMaoRMufmyDlUgPRneziYGAPBZXmH
nbe6/qb6e0Dsy1ZwCAb5z8HDwX3N0eUMGYpwfvnhba4zzyrB+bDwLt4q+vu0
ngc8vNd0385gOO4OD++boGCOdYeHd+Lhy9qpH93g4Q3jw8JzCsg/Nu5wPjg8
+hB83QkLfhhOc4eHN4wPC28Y/46m7Jr/xUpwvvOEZqE0KwUHialXODMWuUPC
o0YO7l5w+D+TgYTvZ3eH9UI6fOn/pOD+BYcnp5QDKyg+tiL4rqqlTLMEPOF8
cHpL9ITE6xuo/hmeDiKVk0rOtsjA4x/mHhgfFj/gcJQHph9wApGFp7c3bbnd
RrOlHBJA4bUQmp7OSDnkcP5ckL4YwQfbfxDBTwf56x5uvsqT5nlns7zh5sP4
MPfuAKUPcW+HVgV21TNbZBzu7+ObY3zJy+HLvo9b06/JOMDyHzi9WMjC+cIg
/UsUHNDzJwDBuJoy
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIIaxWZDYzFDMAOUzoLFxqUEWJ8YcYswk1V5i9NLa
jwDSKwJB
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJzIGYC4oqIFaZnb/s5vGnL7TaaLeVwVNNq0ulwf4cz
YCDlcCE/nv1cJIK/v1bWIr0GwQ8pUZn+fwZu/hvefQYzhQLg5sP4IpWTSs62
yEDMv+jv0KrArnpmiwxEX4+/w5d9H7emX5NxmGujc2VWm7+D+5qjyxksZOF8
YZD+JQpwvgfIYcfV4Hz55S889Oq1HEq2iv4+Lebv8CRx4TUTfx0HlSfN884a
+cH5XzYEZM967gvng+3f4+ugqyj/JUdMx+HuPr45xpN8HX68fX3Aslnb4QNI
/Xcfh83mPw6lZGnC+SycXfLJejoON6RrEo2e+sDNE/nkeD6t1sfB5+LEmH+L
tR3smx4dnyHs4xBwC6RQ2+E4KLyXezuY2+wNmsaI4D/P0v42XVbLwcQYCD4j
+HtB4e/iA+dP+cYWP8PHx0Ffa6XwhSeacP6MCfxVZqfV4XxYeMH4O4KtIv67
Q8PTzQce3gmHL2unMvrA40Pe8WPymaXe8PiC8WHxaX7taK6JgY9DjGqEzLk9
Ug5rum9nMKT7wON/KTAa/i9E8FkWT7JivIvgb9DLW8wo4gvXn5oGBPN84ebD
+DD7VUHx5+QLd5/PCXbb2X8R7ofFB8x/MD7M/zC+GSi8E9Xh/OO7dvSyXdCA
+K/W1+HEYae1mXFakPT5E8G/D0oPTX5wPiz/zFmkvPPPcQ04PyP/Q+vJEDUH
9PwFAL4FlSs=
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQLe4R8EficKDDFvMfh1K8tB0OX9ZOlewKdFir+qR5
Hq+Ow0wQyA10eJK48JqJv45DhPj2iwxeCP5b3n0GM/UQ/Pv7+OYYiwU6nDjs
tDZTTsdhw8OXUzf9CXAQ6fF6xbJF28EYBBYHOBwHydtpOXQDhU0yAxwSQoLU
F3hqOnzeEJA9yznAISX2jhvzDzU43/fixJh/zipw/vtF6xXO7lB0ALs/PsDh
738gsJd3eLF9PfPzCQEOrQrsqme2yDhcPZpr0rA5wCFCNULm3B0pB385sSzf
xwEO6p9UXs7ilHIQ/uR4Pk01EM6Xd/yYfMYSwQc52yQw0KHm/o9bxt5SEP+F
BTpUgPjdUhD/HA90cJ7QLJRmpQAJv0OBDm/acruNZks5PBaRPfn0c6BDDMj+
PVIO7cvDTxmxBDmcAQMph/21shbpAgi+ptWk0/USCD4oGs6qIfjSrx+ZSdkE
wc0D+8cZKr9GChI+4Qh+cInK9P85QXD3wPgilZNKzrbIQPxjFwQPL7B+6SCH
L/s+bk2/JgN3z45gq4j/7rJwvjBI/xIFVPfKGDnsvNX1N5U/yMG+MmKFqa2R
wxtQ+ngU6JAMjk9Dh/x49nOSBwMh9lw3hKSPgkCH60LAiFiG4OtrrRS+YGLo
sLWl5sLmlQg+KJr/70bwYekXbD4Hgg9Op30GDujpGwDb803L
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQLe4R8EficKDDGRDIUXGA8ZWvPQpmiFFyyI9nPyd5
MNDBeUKzUBqXkkNlxArTs5sDHcI5xdqN/RUddt7q+ps6PdAh4O3ljzMWyjvU
rNuWVJ8a6KD6SeXlrJWyDltbai5sNkXw25eHnzK6EwDnS79+ZCY1J8DBfc3R
5QwdinC+1Lw4zdMBqnD+nEXKO/8c13BY3X07g+FygIMMSP6ClsNb3n0GM/UC
4fxur1csJqEIvo3OlVnPagMd0tNAQMuhFuS+hYEOf96+PmC5WNNhwoIfhs+2
BTr8/Vb6YI6hJtz/MPtg/FSQ9jYEHxZeAJv9kKs=
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4uZAz7kN24Idum08d6V9UnSA8UPeXv44o1He
4erRXJOGzcEOM2aCgKxDgJxYlu/qYAf5XQv2pfJJO7QvDz9l9CDYYQ5I+qek
wxMR2ZNP2UMcdgZbRfxvl3Tg+LkgfbMZgg+W343gN4Hskwp1eNOW2230WxbO
d57QLJQmpQTn88cG3DcSV3YQ+eR4Pk0w1KET5N5Lyg6R4tsvMvwLccjM/9B6
skTF4dOGgOxZj0McHkUAJRxUHUAUw6EQB4mpVzgzFqk6aFpNOl2fEeJwBgR0
1BwK4tnPSYqGOLBwdsknr1NzAHvzZ7DD32+lD+YEqsP5cxYp7/xzXAPOP3HY
aW1mnJZDj9crFhPZEAdxkPlO2pDwiUbwd97q+ps6H03+cohDC6//+imqWnC+
x/5aWYvlGnD+q+Ktor9fqztURKwwPfsewQe7+0OIg//FiTH/Dms6KDh+TD7z
McTBHaS/Xcvhxfb1zM+/hDj8ePv6gGWztsOa7tsZDPtDHHQV5b/kiOk4pIHA
rBCHJ4kLr5n46zhsePhy6qYCBJ8TFF+/guH8dJD6TVB+vxacb2IMBJvV4XxY
eILpE8EOKbF33JglVB2+gOLjO1Q+R8VBwiPgj4RwiMOMCfxVZtwqDiElKtP/
e4Q4fFi0XuFsh7LDg318c4z7QhzCOcXajfmV4eml/PA215l7lSDhcz4EEv9C
CH4pSP6uApxfc//HLWNvOYcDwGBJnxMCSc8PpR3aQOk1BMG30bky6xkngg92
z5VgSHqUloPzhSsnlZxdogDno+cXGB8AZep5vw==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4h9s8TN85oY6TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw4QFPwyf7Qt1UP+k8nIWp5RDj9crFhPeMDjfTbWUaZYKgh9SojL9
v02Yw5u23G6jaCkHCY+APxLOYQ5nwEDK4YmI7MmnxWEONfd/3DLWlnPg+Lkg
fXNamMPf/0BgLw+x3zfMIUY1QuZcjJxDpPj2iwx2YQ4VIPXccg6cIPVaCP6a
7tsZDMwIPti8T6EOvRHd/owB8nA+f2zAfSNzRTgf5v8X29czPy8Jg/OPXNZO
lawLcxCfeoUzw0kbrv7Pt9IHcwQRfI/9tbIW7jpw/pT21qjLc3QdFBw/Jp/5
GupgarM3aNpBPQcbnSuznv0NdbgtXZNolGrgsLWl5sLmj6EOy1946P2faODw
DeTfm6EO+lorhS+EGDioPWmed3ZXqAMoOP7LGzgEyIll+c4OdWDh7JJPfqfv
4FXdrO8zL9Sh5tOGgOxfehD5+VD18Qj+i+Ktor+zdeH8gFsgB2g7MIBAQKiD
zwl229miWnD+ZvMfh1KyEOkBFh4AdaPuxA==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQYXwh0euMY7zmJUcJiw4Ifhs1PhDm/acruNZks5
BJeoTP/PE+FwBgww+ff38c0xlkLw/eXEsnzlEfz1D19O3WQR4RCjGiFzbo+U
Q826bUn1qRFw82F8kcpJJWdbZBzkHT8mn7GF8pfIOAh9cjyfphrh0KrArnpm
i4yDMIivGOHgvubocgYLWTjfeUKzUJqWApx/4WrYG/3fqnD+fxCYr+Xwhnef
wcxv4Q5PEhdeM/HXcXBTLWWa1YDgv9i+nvl5CILftjz8lJFOuIPPCXbb2V+1
HWaCAGu4Q82nDQHZVtoOIGrW+TCIvKkWnG+gtVL4goqGw5HL2qmSr8IcXhVv
Ff39Wt0hABQ+38Mc5ixS3vnnuYbDBlD48IQ7pKeBgJaD6pPmeWfFwuHuBdvn
iuB/Y4uf4bMUwQe790y4Q+At6ZrEIk0HWHyycHbJJ/epQezLDoeHB1j9gzCH
E7t29LIZqDqs6b6dwbA8DBL/G5Xh/PLD21xnvlWA81NBznsmA3HftTAH9U8q
L2dxSjlIeAT8kVAPh/PB8WWJ4HP+XJC+2SvcYQbIH5ZSDgqg+A0Md6i4/+OW
cbeUA3r6AwDoMygu
"], {{95.25, 8.670309999999999}, {
94.78909999999999, 8.018749999999999}, {93.7875,
7.4156299999999975`}, {93.1672, 7.4156299999999975`}, {
92.53129999999999, 7.4156299999999975`}, {91.975,
8.003129999999999}, {91.975, 8.687499999999998}, {91.975,
9.274999999999999}, {92.29379999999999, 9.831249999999999}, {
92.77030000000002, 10.132799999999998`}, {93.1672, 10.3719}, {
94.04219999999998, 10.593800000000002`}, {95.25,
10.768799999999999`}, {95.25, 8.670309999999999}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4sOXtVMlX0U4TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw/5TC123cUc6qH9SeTmLU8rBuTvn+e9IBP+IwoaijEIEP0+o+cCp
zkiHN2253UbRUg4yUSnW9/sjHc6AgZRDgkCE5ZYDkQ4193/cMtaWc3gTuEOu
dXOkw9//QGAv76BuyLFGZlakQ4xqhMy5GDmHTseEpxe6Ih0qQOq55RyKMya+
rSlH8LXbxW6e80fwi0Dy9pEOvRHd/owB8nA+f2zAfSNzRTgf5v8ae9O4XQeR
+CLr3B+einQQn3qFM8NJG67+z7fSB3MEEXyP/bWyFu46cP6U9taoy3N0HTaf
KNs33ynSwdRmb9C0g3oOy2YDQ8gr0uG2dE2iUaqBgxcPk3a7XaTD8hceev8n
GjisdX9YJaIW6aCvtVL4QoiBQxif7qa57JEOoOD4L2/gIP36kZnUiwgHFs4u
+eR3+g7iHgF/JF5HONR82hCQ/UsPIv8mAqI+HsF/UbxV9He2LpwfcAvkAG1I
PMyJcPA5wW47W1QLzt9s/uNQShYiPcDCAwBojvfP
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ7f6wSmRdf7TD3/9AYC/vcF7p9s+6pmiHA937mkwe
yzscUdhQlOEY7eC65uhyhgpZB5funOe/NaMdUtOA4JmMQ8uBUwtd/0XB+Rl7
SiZL7EHwy/fNl9JvjXJYI6TDl75PziFBIMJyS0aUQ/nhba4z3yo4+Jh3OiaE
Rjk4T2gWSvulCDHPL8phLUj9PSUH/ySgBp8oB11F+S8521QcXLZ9/nvlAYL/
5e+Vipdq0XD+8tlAFwdFO7Bwdsknn1NxABn/dEa0w5xFyjv/qKs6BOyQa309
M9phJhioOtSIrHN/OCva4dfb1wcsHyP4BlorhS+4qMH5Z0DgjaZDOJ/uprn+
0Q5PEhdeM/HXcWAJAwrcjYLznywFOmAHgm9vGrfLsyfKQR9k3hNthy0nyvbN
T4pyMLfZGzRNUdthjUxUijV/lMMfkP2LNR0EmoEB8DbSYcYE/iqz1epw/pT2
1qjLMSpwvvK1R8EMMUoO64syJr79E+kgXDmp5OwSBYcVHy/5JklAw/uenAMP
k3a7mGOUAyh6/9dLw+NjZ7BVxP92SYftwOCsuIjgHwc6T+o7gg/2t0y0g/on
lZezOKUcPEAGukU7yO9asC9VTxoSnonRDiFvL3+c8VDaYc775ce8y6MdWhXY
Vc9skXFgB3mwOtrhy76PW9PFZB3Q0xsA7agjQw==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQveLjJd8kh2iHX29fH7B8rOrwJnCHXCt3tIORMRBc
VnXw752eJ/Q5ymGL+Y9DKadUHTx4mLTbzyH47g+rRNbNR/DL982X0m+Ngutv
OXBqoatflMOFq2Fv9H8j+DWfNgRkV6k73AdZEBTlcPoMEOhoOITz6W6aGx/l
8ChCfPtFBk2H9UUZE9+WRDmkp4GAlkOCQITllgVRDuJTr3BmOGk7bP/890rF
RQQf5l4YX/+uClsjb7TDdoemR8dvaDnotIvdPCcf7TClvTXq8h9Nhwlva+xN
zaIdju3a0cv2QcMhIsX6vr9ttIPvxYkx/5g1HNDDBwBQm4mn
"]}]},
Thickness[0.00893415527561869]]}, {
ImageSize -> {111.93531257783312`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {112., 23.}, PlotRange -> {{0., 111.93}, {0., 22.59}},
AspectRatio -> Automatic}],
Graphics[{
Thickness[0.007054176072234764],
Style[{
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBWIQbd/06PiMbGsHXv/1U1IljBy+77zV9VfU2kH9Le8+
A0sjhxvSNYlGT60cboJoVyOH/DXdtzM2IPjh4tsvMugh+P3BJSrT51s6/AcD
Q4cvIPNcLR22mP84lDLL0IHLTbWUKcrCIQKkr8/Awe/ixJh/j80dPm8IyJ7F
buDwJHHhNZP15g4PQAoW6MH5cxYp7/zTrgPnB9wCWajtkAYC08wcfE6w2842
1YLzf719fcCyWROu/g+IvxjBF66cVHJ2iQKcvyPYKuK/u6yDiTEQLDZ3+LLv
49b0azIOdb+tCs5JmDu0KrCrntki4/AiS/vb9FgzBxGQ/hYE/01bbrfRbCmH
A7WyFulfzB3OgAEm/9Rhp7WZcRZwPjiY9iP4y1946P03tHSIUY2QObdHyuE5
yH35VnDzYXyY/eD4m20Jd1+31ysWE0FLuPvB8cJqCfcfjA/zP4wPCx99rZXC
F65Ywfl/vpU+mPPRysEfFN5B2nD1sPCH8VtACeipLpx/XeiT4/ljBpD4trJ0
qAWFo4UhxH+KVnA+OL30I/j1IPqGlUO0guPHZBlDB5UnzfPOWlnDzYOl18eg
cLiP4MPSLwAYsEa/
"], CompressedData["
1:eJxTTMoPSmViYGCQAWIQfaRtefgpJjsHXUX5LzliOg4R4tsvMtyzdXiSuPCa
ib+Ow9QJ/FVm2rYOG/TyFjPO0XZYcn8f35xgG4ft5j8OpWhpO5gYA0GytYPE
vDjN0x+04Pz1qk+a5/FqOXC4qZYy/ULwz4DAHBtU/hobB5Eer1csVzTh/AtX
w97o71aH84UrJ5WcXaIA5+8Itor47y4LsXeBjcOXfR+3pl+TcUhNAwIxG4dW
BXbVM1tkHKaD3B9t7SAC0t+C4L9py+02mi3lsPSFh97/jzYQc89g8hNi77gx
R9jC+U+ztL9N34ubv7dW1iI9xB5uPowPs1/9Le8+g5l2cPeVbBX9fZrPDu5+
WHzA/Afjw/yPHl8AwpXMQQ==
"], {{29.421899999999994`,
17.618800000000004`}, {28.945299999999992`,
17.618800000000004`}, {28.532799999999995`,
17.206299999999995`}, {28.532799999999995`,
16.729699999999998`}, {28.532799999999995`, 16.2688}, {
28.945299999999992`, 15.854700000000001`}, {29.4063,
15.854700000000001`}, {29.867199999999997`,
15.854700000000001`}, {30.296899999999994`, 16.2688}, {
30.296899999999994`, 16.729699999999998`}, {30.296899999999994`,
17.173399999999997`}, {29.867199999999997`,
17.618800000000004`}, {29.421899999999994`,
17.618800000000004`}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0,
1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIdIGYC4gaWo/2G3+0dnmdpf5suq+VQvFX092k3Bzjf
/NrRXJMZCD6P//opqQscHPS1VgpfeKIJ58+YwF9ldlodzheunFRydokCnL8j
2Criv7usw/19fHOMZzk4fNn3cWv6NRmH29I1iUahDg6tCuyqZ7bIODxNXHjN
5L29gwhIfwuC/6Ytt9totpTD8hceev87HRxiVCNkzu2Rgrh3n4PDGTCQcriY
H89+7iOCLz71CmeGlCNO/pRvbPEzRJzg5sP4MPvVnzTPO7vKEe6+nbe6/qb6
OzqkpgHBMxkHYxDwdoT4R0wWzof5H8bfpJe3mFFGDc73vTgx5h+zhsNkkH1z
HB3OXw17oz8bGp4MTnC+8CfH82m2CP5/EEh3ckgICVJfoKnp4K5ayjSrw8nB
ABQfKhoO2Zw/F6RvRvC9T7Dbzj7q5OADor9qOzwBhed6JwcWzi75ZD0dhze8
+wxmdjlBxP11HCLEt19kSEPwg0tUpv/XQPDB9j+HhZ+2w01Q/O11dDC32Rs0
jVEb7r85i5R3/nmuAefD7AObZ+EIN6/H6xWLyUUHBx9QeCzWhoRvuoNDwC2Q
wdoOsPQJMx89vQIAbxouwQ==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4vk2OldmuTk7dNt47kr7pOgA44e8vfxxRqO8
g7tqKdMsB2eHGTNBQNbB/NrRXBMDZwf5XQv2pfJJOyx/4aH3f6azwxyQ9E9J
h4TDl7VTXzo77Ay2ivjfLumwpvt2BoO7C5yfCJIPdIXzF4Ds43NzeNOW2230
WxbOd57QLJQmpQTn88cG3DcSV3Y4UCtrkf7H1aET5N5Lyg4+J9htZ191dcjM
/9B6skTFoe63VcG5Ba4OjyLEt190UIXIx7o6SEy9wpmxSNXhDe8+g5mrXBzO
gICOmkNFxArTs8wuDiycXfLJ69Qg4mecHf5+K30wJ1Adzp+zSHnnn+MacP6J
w05rM+O0HDbq5S1mFHFxEAeZ76TtYAEKnwkIPo//+impEq6o8g2uDi28QAlV
LTjfYz/QY8s14PxXxVtFf79Wd+jxesVishPBNzEGgt2uDv4XJ8b8O6zpcFO6
JtFor6uDO0h/u5ZDDufPBemHXR1+vH19wLJZ2+HLhoDsWeGuDrqK8l9yxHQc
0kCAz9XhSeLCayb+Og5/YnKP/tvlAueD4+u8M5yfDlJvB+X3a8H5YHdsVofz
YeEJFs92dkiJvePGLKHqUA+KjxNQ+RwVhxOaVpNO/wempwn8VWbcKg4OTY+O
z8h2cfiwaL3C2Q5lB1C0MXxzcQjnFGs35leGp5fyw9tcZ+5VgoRPBTT+hRD8
UpD8XQU4v+b+j1vG3nKQeBdyhaTnh9IOK0DptdEFzhf55Hg+7a0znA92T7Mz
JD1Ky8H5wpWTSs4uUYDz0fMLjA8Afgd1CA==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4pASlen/Fdwdpk/grzLr1nSA8Y1BIFkBzr/v
Gu84S1DGoW15+CmjFHcH9U8qL2dxSjnU/bYqOMfgAed/2hCQPUsfwefxXz8l
NcHD4U1bbrdRtJTD5G9s8TNyPBzOgIGUg96EBT8Mz3k41Nz/cctYW86hMmKF
6dnNHg5//wOBvbxDMMj+Bg+HGNUImXMxcg7iU69wZiR5OFSA1HND1Vsj+Adq
ZS3S37jD+RUg+dPuDr0R3f6MAfJwPn9swH0jc0U4H+Z/82tHc00ueMD5b3j3
Gcx85AGx10kbrv7Pt9IHcwQRfI/9QIvddeD8Ke2tUZfn6Dose+Gh9/+iu4Op
zd6gaQf1HB7s45tj/Mjd4bZ0TaJRqoHDxfx49nMn3R2Wg9RNNICE9wx3B32t
lcIXQgwcNurlLWaMcXcABcd/eQMHlsWTrBhl3R1YOLvkk9/pO/yKyT36T8nd
oQYU8L/0IPKqUPXxCP6L4q2iv7N14fyAWyAHaDukgUCbm4PPCXbb2aJacP5m
8x+HUrIQ6QEWHgDA+u7p
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ3bo8/JRRjp/D3/9AYC/vcCE/nv1coJ/Dge59TSaP
5R2+bAjInnXe18F1zdHlDBWyDrW/rQrOLfB1SE0DgmcyDgmHL2uneiL4LIsn
WTEe9YHznyQuvGYS7uOwRkiHL32fnIPOhAU/DOV8HMoPb3Od+VbB4QPI/O/e
Ds4TmoXSfilCzHvp7bAWpP6eksMN6ZpEo6feDrqK8l9ytqlAzOXzhfPf8u4z
mDkLwb+7j2+O8SdfBxbOLvnkcyoOc210rsyq83OYs0h55x91VQcX1VKmWQ1+
DjPBQBWiv8nP4dfb1wcsHyP4BlorhS+4qMH5Z0DgjabDBr28xYxvfCH+8tdx
ML92NNeEA8EH+3+vD5wv8MnxfFqqj4M+yLwn2g5LX3jo/Rf0cTC32Rs0TVHb
wcQYCLK9Hf6A7F+s6QCKhv/q3g4zJvBXma1Wh/OntLdGXY5RgfOVrz0KZohR
cpgP8p+bt4Nw5aSSs0sUHHxOsNvOrvWGhPc9OYc13bczGM57Q/TVS8PjY2ew
VcT/dkmH45pWk06/R/D/xOQe/WflC+eDw7vN10H9k8rLWZxSkPRx09dBfteC
fal60g6uoPAU8HMIeXv544yH0g45nD8XpFv7ObQqsKue2SLj4ND06PgMZz+H
L/s+bk0Xk3VAT28A3pEhjg==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQ7XOC3Xb2WV+HX29fH7B8rOpQEbHC9Gyyr4ORMRBc
VnX4E5N79J+Rr8MW8x+HUk6pOlzIj2c/99IHzm9dHn7KqAfBf5K48JpJuA9c
f8Lhy9qpL70dLlwNe6P/G8Gv+bQhILtK3WHGTCD46O1w+gwQ6Gg4bNDLW8zI
4+PwKEJ8+0UGTYe5NjpXZpn5OKSngYCWg+6EBT8M+3wcxKde4cxw0nY4rmk1
6fR7BB/mXhT5dF+H7Q5Nj47f0HLYWytrkd7j6zClvTXq8h9Nhx6vVywmO30d
ju3a0cv2QcNhz62uv6nHfR18L06M+ces4YAePgAM2I4f
"]}],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZiR+AxksEk1hxj1lJhJLb2UuBMA
8t8CMw==
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJjIGYC4uASlen/WwIcZswEgkpVB+FPjufTRAMd/oPA
fi2H60dzTRqkAx22OzQ9Ov5Dy4Hj54L0zWqBEPWS2hB15gj+/X18c4zdMPnP
s7S/Tf+r7aD6pHne2U8BcP6Ghy+nbioJcNgAkshVc9h5q+tvqjpUXlbLQfr1
IzMpiQAHmXlxmqcvaDm82L6e+TlPgEPNpw0B2VbaDlO+scXPuOLv8CRx4TUT
fx0HV9VSplkv/BzeFG8V/b1a20EFbJ8fxP03tBx8TrDbzpb1d5izSHnnn+Na
EPc5+cP9u6b7dgZDvr8DC2eXfLKflkMOJ9DDzf4OG/TyFjPe0XSIyT36b5N1
gENG/ofWkyEqDjz+66ekevg7uK45upyhQtZh6QsPvf+W/g6paUDwTMbhA9CZ
s+T9HUQqJ5WcbZFxMDEGAm4EH+ZedP4ZMJCC6J/uD+fLO35MPrMU6t56aYfl
IPtW+juEvL38ccZBaQeJqVc4Mw4h7P8DcvAjqP41cg5bW2oubGYMcOi08dyV
pqQACU+OAAeQs4yTFSDhHRLgsPLby4ozDcoO4PRxIMChVYFd9cwWGYcI8e0X
GQ5B+VNkHMQ9Av5InA5w6I/o9mfcIO3gLyeW5Xs5wEF+14J9qXzSDrtB8Xk7
wOFNW2630Wwph8WTrBh9BQLh/kHn167bllQvieB/BvlfGTdf02rS6fqIQLj5
MD4sPMHusw+Eu79/wQ/DZ0ZQ+SMy8PS8I9gq4r+7LDy9g82zlnNAzx8ATHt7
EA==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYo6fC9I3MwU7JIQEqS/wVHeA8eWWv/DQ26/h
UBmxwvQse7DDetUnzfN4tRxebF/P/Fwg2CHglnRNopG2Q/vy8FNGL4IcfE6w
287+qu3grlrKNOtIkMOTxIXXTPx1HCYs+GH4bBaCf/iydqpkFoKfH89+TtIw
yEGkx+sVyxZtB+nXj8ykvgQ6yIPsr4fatybQYbtD06PjEpoOxiDQHuggC5K/
rwbnG4FoYRU4/4FrvOOsifIOj0VkTz59HuiwM9gq4n+7JMS9BUFwPtj+pQi+
8CfH82kfgxxiVCNkzu2Rcrh+NNek4XeQQ39Etz/jBmm4/2fMBIKdspDwYgt2
OAMCa+Qg5j0MctgBMi9d1kHbatLp+gNBDl/2fdyafk0G4p7ZCP6a7tsZDNoI
PticB4EO6WlAoKYI5+8A+T9CFc6Hxc/nDQHZs4SDHOYsUt75Z7kWxP/5CD7M
PhgfrP9MkIO+1krhCyxaDuIeAX8k7gdB/GOp6XB/H98c42dBGOkBxgcA3hr4
8w==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQnZ4GBJ+CHVg4u+ST9XQcvrPFz/B5GezwJHHhNRN/
HQfhT47n07YGO/hcnBjzb7G2g7bVpNP1DcEOAbekaxKNtB3e8O4zmOkV7GBu
szdoGiOC/zxL+9t0WS2H9uXhp4wKEPwX29czP5+B4IeUqEz/PyfYQV9rpfCF
J5pw/owJ/FVmp9XhfOHKSSVnlyjA+TuCrSL+u8s62OhcmfVsZrDDl30ft6Zf
k3HYeavrb2p5sEOrArvqmS0yDq6qpUyzPIIdRED6WxD8N2253UazpRy8q5v1
fdYFO5wBA0x+bO7Rf5uOI/gF8eznJB/i5k9Y8MPwmVsI3HwYH2a/zOtHZlIS
IXD31azbllT/FeF+WHzA/Afjw/yPHl8AAavKxw==
"], {{
79.05630000000001, 17.618800000000004`}, {78.5797,
17.618800000000004`}, {78.1672, 17.206299999999995`}, {78.1672,
16.729699999999998`}, {78.1672, 16.2688}, {78.5797,
15.854700000000001`}, {79.04059999999998,
15.854700000000001`}, {79.5016, 15.854700000000001`}, {
79.93130000000001, 16.2688}, {79.93130000000001,
16.729699999999998`}, {79.93130000000001,
17.173399999999997`}, {79.5016, 17.618800000000004`}, {
79.05630000000001, 17.618800000000004`}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4h9s8TN89oY4TJ/AX2XWrekA4xuDQLICnH/f
Nd5xlqCMw4QFPwyf3QtxUP+k8nIWp5RDj9crFhPdUDjfTbWUaZYLgh9SojL9
f0yow5u23G6jaCkHCY+APxLJoQ5nwEDK4YmI7Mmnk0Mdau7/uGWsLefA8XNB
+ua2UIe//4HAXh5if26oQ4xqhMy5GDmHSPHtFxniQh0qQOq55Rw4Qeq9EPw1
3bczGJQRfLB5QqEOvRHd/owB8nA+f2zAfSNzRTgf5v8X29czP5+C4B+5rJ0q
OS/UQXzqFc4MJ224+j/fSh/MEUTwPfbXylq468D5U9pboy7P0XVQcPyYfEY0
1MHUZm/QtIN6DjY6V2Y9kw11uC1dk2iUauCwtaXmwmbBUIflLzz0/k80cPgG
8u/PEAd9rZXCF0IMHNSeNM87eyvEARQc/+UNHALkxLJ8d4c4sHB2ySe/03fw
qm7W99kX4lDzaUNA9i89iPx+qPp4BP9F8VbR39m6cH7ALZADtB0YQKAgxMHn
BLvtbFEtOH+z+Y9DKVmI9AALDwCKk+oK
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQPWHBD8NnSeEOf/8Dgb28w9aWmgubQ8MdDnTvazJ5
LO/gplrKNEsk3MF1zdHlDBWyDj1er1hM/oY5pKYBwTMZh9p125LqLyL4AXJi
Wb79CP6BWlmL9IgwhzVCOnzp++QcnojInnxqHeZQfnib68y3Cg6uIPM1whyc
JzQLpf1ShJinGOawFqT+npLDzltdf1Plwxx0FeW/5GxTcWAAgS0I/pHL2qmS
vxB8G50rs56phjuwcHbJJ59TcZB5/chMKifcYc4i5Z1/1FUdCuLZz0nmhjvM
BANViP68cIdfb18fsHyM4BtorRS+4KIG558BgTeaDqpPmuedVQp3eJK48JqJ
v47Di+3rmZ9vCIPzwf7vRvCvHs01aYgPc9AHmfdE20HB8WPyGdMwB3ObvUHT
FLUdQMGU9ijU4Q/I/sWaEHsOhDrMmMBfZbZaHc6f0t4adTlGBc5XvvYomCFG
CeK/C6EOwpWTSs4uUXD4tCEge9brUEh435NzWDLJitFXJMwBFL3/66Xh8bEz
2Crif7ukw4aHL6duWoLge1U36/ucQvDB4f0hzEH9k8rLWZxSkPQhGe4gv2vB
vlQ9aUh4moY7hLy9/HHGQ2mHpkDPuQ1e4Q6tCuyqZ7bIOLzl3Wcw0y/c4cu+
j1vTxWQd0NMbAFoVG9Y=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/WlDQPYs4XCHX29fH7B8rOrA+XNB+uZ7YQ5GxkBw
WdXBq7pZ3+dYmMMW8x+HUk6pOmxtqbmweSGCP2HBD8NnRQj+gVpZi/QIhP7a
dduS6hXDHC5cDXuj/xvBrwFZXKXuMBMEVMMcTp8BAh0NB9UnzfPOGoU5PIoQ
336RQdNB5vUjMymPMIf0NBDQcngiInvyaXGYg/jUK5wZTtoOGx6+nLppCYIP
cy+K/IMwh+0OTY+O39ByWNN9O4Phc5jDlPbWqMt/NB2EPjmeT+MMdzi2a0cv
2wcNBy2rSafrBcIdfC9OjPnHrOGAHj4Ad4aOoQ==
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQ3Xzg1EJXs0iHLeY/DqV4aTt8Z4uf4fM3wmGt6pPm
ebw6DmdA4EGEw5PEhddM/HUcur1esZjsRfAVHD8mn1mI4At9cjyf1hnhcOKw
09pMOR2HxyKyJ5/mRziI9AA1btF2SAMBsQiH4yB5Oy2HA7WyFul3wh0SQoLU
F3hqOoCsPbst3CEl9o4b8w81ON/34sSYf84qcP77ResVzu5QdPCsbtb3uRTu
8Pc/ENjLO0i/fmQmxRLh0KrArnpmi4wDx88F6ZvVIhwiVCNkzt2RcmgK9Jzb
EBbhoP5J5eUsTikHV9VSplkzEPzgEpXp/9cg+PtB7jsS4VBz/8ctY28piP9O
RjhUgPjdUg73/Xun51lFOjhPaBZKs1JwiEyxvu9vGunwpi2322i2lMOJsn3z
pdIjHWJA9u+RcmiY6tydUx4JCdczUg53VNgapzYj+PuB0bGtG8F36c55/nsm
gj/n/fJj3usR5nnwMGm3b4PKr5FyaHdMeHrhFIJ/peKlmuEDhHtgfJHKSSVn
W2QcjihsKMrYGAkPL/4Iyy0n+iIdvuz7uDX9mgzcPTuCrSL+u8vC+cIg/UsU
UN0rY+SwGeThpkgH+8qIFaa2Rg7Pf6/8eCk00iEZHJ+GDvamcbs8TSIdPm8I
yJ513RCSPh5HOFwHBewyBF9fa6XwBRNDh/VFGRPfykTC+atlolKs9RF8WPoF
m8+B4EeIb7/I0GfggJ6+AYAoWoc=
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQ3Xzg1EJXs0iHMyCQo+IA4ytfexTMEKPkYG8at8vT
JNLBeUKzUBqXksPTC0q3f6pFOoRzirUb+ys6bD5Rtm8+V6RDwNvLH2cslHdY
//Dl1E03IhxUP6m8nLVS1uHF9vXMz1cg+Dtvdf1N9Ufw/eXEsnz5Ixzc1xxd
ztChCOdLzYvTPB2gCufPWaS8889xDYf7+/jmGLtFOMiA5C9oOSg4fkw+sxDB
318ra5F+AsHPj2c/J/kxwiE9DQS0HF6qGXKsEYl0+PP29QHLxZoO6kCujFak
w99vpQ/mGGrC/Q+zD8ZPBWlvQ/Bh4QUAE2yNbA==
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4hp707hdmtEO3Taeu9I+KTrA+CFvL3+c0Sjv
IN/6OnCHWrTDjJkgIOvgwcOk3S4X7SC/a8G+VD5pB/Y1MlEpwdEOc0DSPyUd
/Hun5wlVRzvsDLaK+N8u6RCwQ6719UoE/3jZvvlS+jFwPksYn+6m3hiHN225
3Ua/ZeF85wnNQmlSSnA+f2zAfSNxZYfvwY+Xzm6JcegEufeSssPb5ce8zQtj
HDLzP7SeLFFx4I+w3HIiLMbhUYT49osOqg6lIOtMYxwkpl7hzFik6rD/1ELX
bbejHc6AgI6aw3ag8wI7oh1YOLvkk9epQcRzoh3+fit9MCdQHc6fs0h555/j
GnD+icNOazPjtBxWfLzkmzQh2kEcZL6TNiR8ziH4W04APSwUgyrvFuPQwuu/
foqqFpzvsb9W1mK5Bpz/qnir6O/X6g6xuzx5mJIR/PKXaoYcKTEO/hcnxvw7
rOmwwHXb579AvjtIf7uWw5Ols48oZMQ4/Hj7+oBls7aDOCgAjWIcdBXlv+SI
6TgINB84tZA3xuFJ4sJrJv46DlOcu3OeP46G86+fA4ZwLoIPVq8K5fdrwfkm
xkCwWR3Oh4Un2H020Q4psXfcmCVUHdodE55eyILK56g4tACVu7YB09ME/ioz
bhUH/ySBCMs90Q4fFq1XONuh7HBEYUNRBmOMQzinWLsxvzI8vZQf3uY6c6+S
w3ml2z/rnKDxL4Tgl4Lk7yrA+TX3f9wy9pZzCAUmn7n8MZD0/FDaoX4q0MPH
o+H8FmDylqtF8K9UAD3gEQ1Jj9JycL5w5aSSs0sU4Hz0/ALjAwAplm+S
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4i9/r1S8FIt1mD6Bv8qsW9MBxjcGgWQFOP++
a7zjLEEZh57peULNFrEO6p9UXs7ilHLgj7DccqINwZ/wtsbedB6Cb3Pfv3f6
tliHN2253UbRUg4v1Aw51uyJdTgDBlIOundV2BrfxjrU3P9xy1hbzmG7XOvr
wAexDn//A4G9PMT+Y7EOMaoRMudi5BxC+HQ3zd0e61ABUs8t52BrGrfLcwmC
/z348dLZNQi+PUg+J9ahN6LbnzFAHs7njw24b2SuCOfD/O/Bw6Td/g7Bd39Y
JbLue6yD+NQrnBlO2nD1f76VPpgjiOB77K+VtXDXgfOntLdGXZ6j69Aw1bk7
Jz/WwdRmb9C0g3oOBRkT39aUxzrclq5JNEo1cBC9ee57cHasw/IXHnr/Jxo4
1Iisc38YFOugr7VS+EKIgYPC7Z91WSaxDqDg+C9v4LC+CGiASKwDC2eXfPI7
fQeZqBTr++LA8Pu0ISD7l56DaadjwlMJqPp4BP9F8VbR39m6cH7ALZADtB1m
zASCkzEOPifYbWeLasH5m81/HErJQqQHWHgAAKrM9zQ=
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQPWMmEHjGOzxwjXecxajgILLO/WGVS7zDm7bcbqPZ
Ug429/17p7fFO5wBA0z+hrnvlx+bjOCbdjomPJ2B4P9Z+fGS76Z4hxjVCJlz
e6Qcjpftmy91H2E+jC9SOankbIuMQ/1U5+6c7VD+EhmHJxeUbv+cF+/QqsCu
emaLjEPsLk8eptnxDu5rji5nsJCF850nNAulaSnA+Reuhr3R/60K5/8Hgfla
DlcqXqoZFsQ7PElceM3EX8dBnCWMT/dXHJzvwcOk3X4OwX/+G+iBpXEOPifY
bWd/1XZYIxOVYl0f51DzaUNAtpW2A9D33uaeUHlTLTjfQGul8AUVDYf9pxa6
bkuOc3hVvFX092t1SPgUxDnMWaS8889zDYeWA0AFbXEO6WkgoOWwAhhcSRPi
4O4F27cfwf/yF+gDOYR/wO51i3cIvCVdk1ik6QCLTxbOLvnkPjWH9UUZE98+
iYOHx3lgcNZFxTmc2LWjl81A1aE2a0/JZIU4SPxvVIbzyw9vc535VgHOTwU5
75kMxH0BcQ7qn1RezuKUckgQiLDcsgDBB4f3ZgTf1jRul+eROIi7LKUc2EEe
Oh3nUHH/xy3jbikH9PQHADE9MKY=
"], {{125.14999999999998`,
8.670309999999999}, {124.68899999999996`, 8.018749999999999}, {
123.68799999999997`, 7.4156299999999975`}, {123.06699999999996`,
7.4156299999999975`}, {122.43099999999998`,
7.4156299999999975`}, {121.87499999999999`,
8.003129999999999}, {121.87499999999999`, 8.687499999999998}, {
121.87499999999999`, 9.274999999999999}, {122.19400000000002`,
9.831249999999999}, {122.67000000000002`,
10.132799999999998`}, {123.06699999999996`, 10.3719}, {123.942,
10.593800000000002`}, {125.14999999999998`,
10.768799999999999`}, {125.14999999999998`,
8.670309999999999}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYp1Nc98v10twmD6Bv8qsW9MBxjcGgWQFOP++
a7zjLEEZh591WXtK7BMc1D+pvJzFKeVgfd+/d3oagv975cdLvkUI/gWl2z/r
6hIc3rTldhtFSzksP+Zt3tmY4HAGDKQcTi903fZ5ZoJDzf0ft4y15Rz6D33V
iJmc4PD3PxDYy0Psb0twiFGNkDkXI+cQu8uTh6k+waECpJ5bzuGyb5JARCmC
r39Xha0xEU0+MsGhN6LbnzFAHs7njw24b2SuCOfD/B9uueVE2SwE//riAluu
+QkO4lOvcGY4acPV//lW+mCOIILvsb9W1sJdB86f0t4adXmOrsPnv1cqXkYl
OJja7A2adlDPIfs5MITiEhxuS9ckGqUaOOyfL6V/NyLBYfkLD73/Ew0cgLZd
X+yT4KCvtVL4QoiBw2GFDUUZtgkOoOD4L2/g0J0DNEA3wYGFs0s++Z2+g2PC
0wtK+sDw+7QhIPuXnsP578GPl+pD1ccj+C+Kt4r+ztaF8wNugRygDVHHnuDg
c4LddraoFpy/2fzHoZQsRHqAhQcAoNP+Vw==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQbct1fXFBY6LD3/9AYC/vwKjdLnazKtHhQPe+JpPH
8g6/V3685BuV6OC65uhyhgpZB+v7/r3T/RIdUtOA4JmMw+2fdVl7LBD889+D
Hy8VR/CvVLxUM/yT4LBGSIcvfZ+cw+mFrts+v01wKD+8zXXmWwUHe9O4XZ5P
EhycJzQLpf1ShJj3IMFhLUj9PSWHA6eAGu4nOOgqyn/J2abisLtksgSLViKc
D+SF8fki+DnPgS5OSnRg4eySTz6n4mACNJ6nLdFhziLlnX/UVR0Of9WI6Qfy
Z4KBqgPQ97Zc7YkOv96+PmD5GME30FopfMFFDc4/AwJvNB2OKGwoykhMdHiS
uPCaib+Ow2yQgAaC3w1ygCiCb7nlRNm+/wkO+iDznmg7fP4LDJFXCQ7mNnuD
pilqO7xffszb/GCCwx+Q/Ys1HZRBAbAhwWHGBP4qs9XqcP6U9taoyzEqcL7y
tUfBDDFKDsDYSRLYkeAgXDmp5OwSBYd8oeYDp45Cw/uenMN8Kf27KrcSHEDR
+79eGh4fO4OtIv63SzqAgjNMKRHOBzlPzRTBB+tzT3RQ/6TychanlMN+kIEx
iQ7yuxbsS9WThoRnVqJDyNvLH2c8lHZIn/i2xr400aFVgV31zBYZh7kgD5Yn
OnzZ93FrupisA3p6AwDBey0b
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQnS/UfOBUZKLDr7evD1g+VnXoP/RVI8Y+0cHIGAgu
qzo4Jjy9oGSc6LDF/MehlFOqDvvnS+nfVUDwbbmuLy7gRPCvVLxUM/yTANd/
+2dd1p4HCQ4Xroa90f+N4Nd82hCQXaXu0AGy4FGCw+kzQKCj4XBEYUNRxssE
h0cR4tsvMmg6fLzkmyTwJcEhPQ0EtBxOL3Td9hlon/jUK5wZTtoOJZMlWMKU
EHyYe2F8A441MlEOiQ7bHZoeHb+h5aB/V4Wt0TPRYUp7a9TlP5oOyQIRlltC
Eh2O7drRy/ZBw+G4t3mnY0Sig+/FiTH/mDUc0MMHAKzTip4=
"]}]},
Thickness[0.007054176072234764]]}, {
ImageSize -> {141.75865504358654`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {142., 23.}, PlotRange -> {{0., 141.76}, {0., 22.59}},
AspectRatio -> Automatic}],
Graphics[{
Thickness[0.0061330880098129405`],
Style[{
FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGI7IGYC4jMg4PPDngEEAowdIPx/cP7B7n1NJo8ZHOwr
I1aY/jV2MAaBz4wOX3fe6vqbauKg/knl5SxODocniQuvmZw3gejn4YXzq+//
uGW8WhDOnzUTCCxFHByaHh2foY3g1/+2KjiXYQznS8+L0zzdYOTwHwTiBR0i
xbdfZNhn6JCeBgTPuOF8mY1i85kUEPyS5SUb/vFzOXR7vWIxOWgIcc8ZDof9
tbIW6UcMHexKHGtPx7A7fN4QkD3ruKGDCdhDbA5L7u/jm6MMNe8BG0S/IFR/
D5eD9wl229muUPkEHofb0jWJRqGGDjGqETLn/vDB+eBwaxCG8x+4xjvOuijq
0AMyb6MBnH98145eNgN9OH8GyN87dSD+vS/kcP5q2Bt9aW2HJbeWPzY8zAPn
+z/xvGQazAHnQ/zD4pASe8eNuULb4TrvbbHUMkaHFl7/9VNUdeDxuV71SfO8
tToOLeK1rJnHftuD9VvrOjz2e5nwV/6HfS0o/Dv0oOH7yX7qBP4qM289h5yp
CYUWn7/Z+98CeuiSDtR/P+xFQB76ou0w/8TkJdnLftofP+y0NnOfFjx9gOPb
Xwsevs+ztL9Nl9WC2s8J54P9u18AzgeHh6GoA9h8E21Iergp7gCzPxoU3jWS
DkdB4XdB16E/otufMUAKGm56cD44/hgN4Hxw/E01cHBbc3Q5Q4SkQyPL0X5D
cUOHN2253UazxSHpI8XQIQ0MxByiFRw/Js8xdNAApW9PUQd9rZXCF7YYwuMH
nD4vGDpEgdyzR8yhYE337YwJRg59IPsMJBxOg8JDzhjONwDpv4Lgg+PrhQkk
/cwRcTgFUj/PFBq+fHA+WP0Hdjj/y76PW9OnMUPSa7KpQyo4vv7ao+Q/pPwM
AGkkpqI=
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZjR2DA5dDXI4rjYxJhJiV5cakhl
k2omMe5HZgMAEs4CVw==
"], CompressedData["
1:eJxdk31IU1EYxjeVQioKLaw528bcx51su1enDlF6KhKlxBShUZaZn31YQkqY
E0nT0JVpaFiKlEUWmZpoipSGJopfZYaFSV8YSegfmohgZTv36hn0wvnjx33u
Oc953vcoTpyLTnIWiURi+9plX072dYtUkRKeNceYQXA4HhOtuROuQs5yUPqI
mcMQqY1qGHWP3N+YOCTzpUbkaFnsX3cHa6bya4YHWMp102GGlTIWlzdFNpbv
W9OzKL9ScHhMqkZF6eaLAT5G2ILDO5K7lVghFadAWH1vncisxELnXGvKohQi
UqwSW7NuZAy/kmJvab5b8k8FCuTrVUPlUsFftRwvbZ15pgQphglb5ZgpTLP5
VklQRPZ/qxB09RLhHJkSsSqLdOS5BM2Gs/fEUm/h+5AELq7FsoQGB7cj71uf
WUWZJTl4q+n/LYFL3YmnNHR/Ps8dDD0/asLTGu/LUH/+wS+ibyo01H+Tyh5c
hFq4330pnhI/v1VI5GP0osyfZ91J+arFFineIkMEydVZjZjZsbnKSzKab/bn
pQm/I3IkHJ0MdW7XQq+QLZwZN1Lu79nz5OQnI9rI/T5okV5v+5gKFgHEn5iB
xaNtVFTCIo7MgysDj4p3rqm17Kp/hvY7e77p4OkgRsh1hYWMND5OB9L2pO0c
Aon+q07YX86hhfi3+lC2kv87DJS7crzMKd4sQrIsD/3TWMr8HH3XO9il9zp3
QQcvftD0qCTz9FgDkx8pH8q8rVwdZT6fSQa+RDamQV9H+7V1TVrk83OqFfRd
2tV3oEEj6c8sI+T3TC3oS3XCnJSo6X3W+ED/+pCqCqPjO5mPYg4ppJ+hOsp8
7pUGyr/sMdz+wWJDqCrTqZjFVPzdcVMXh5nzrduW9+vRU1h3aKCZQy55l9Na
vHeb3/36AYc/i5lfqqNUyLDLBhs4Yd5rlVT///v+B7q0ssM=
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4htCnxzPLzNz6Lbx3JX2SdEBxg95e/njjEZ5
B9UnzfPOzjJzmDETBGQduNxUS5mqzBzkdy3Yl8on7fAiS/vbdF9zhzkg6Z+S
DjEKjh+T35g77Ay2ivjfLunwaUNA9qzlFnA+WH6PFZx/HWSfmY3Dm7bcbqPf
snC+84RmoTQpJTifPzbgvpG4soP41CucGUI2Dp0g915SdtDXWil84Yi1Q2b+
h9aTJSoO0yfwV5lFWzs8ihDfftFBFSJ/xcpBAqRvkapDyVbR36fzLB3OgICO
mkO31ysWE0ULBxbOLvnkdWoOJsZAsNnc4e+30gdzAtXh/DmLlHf+Oa4B5584
7LQ2M07L4Q9InaMFxF1O2pDwsbKE87eY/ziU4mUF53OA5KWsHVp4/ddPUdWC
8z3218paLNeA818VAx36Wt1hg17eYsYeBP8/CPRbO/hfnBjz77Cmgw+Inmzt
4A7S367lkL+m+3bGAmuHH29fH7Bs1nao/21VcO6ElYOuovyXHDEdh/Q0IDCz
cniSuPCaib+OQ19wicr0fks4Hxxf283hfJDytGlmEH6/FpwPCQd1OB8Wngwg
8MHMISX2jhuzhKrDDFB8rDaHyOeoOGi85d1nIGkBEedWcZCeF6d5+oOFw4dF
6xXOdig7+Jxgt53NauUQzinWbsyvDE8v5Ye3uc7cqwQJHy5rSPwLIfilIPm7
CnB+zf0ft4y95RyOg+LJzgqSnh9KOzwHpVdZSzj/ADDY0r+Yw/kyIPcomEPS
o7QcnC9cOank7BIFOB89v8D4AK/SXwo=
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQvfNW19/U+44Of/8Dgb28A8viSVaMRx0dDnTvazJ5
LO+g+qR53lknRwfXNUeXM1TIOmzUy1vMKOLokJoGBM9kHCZ/Y4ufsccBzje/
djTXxALB19daKXxhir3DGiEdvvR9cg5H2paHn1Kydyg/vM115lsFB58T7Laz
r9o5OE9oFkr7peig/pZ3n8FOO4e1IPX3lBwk5sVpnt5g56CrKP8lZ5uKw0wQ
aHSA8+UdPyaf4XWE84U/OZ5PS3V0YOHskk8+p+JwMT+e/dxHR4c5i5R3/lFX
daiMWGF69rMjxJyZqhD9Xx0dfr19fcDyMYJvAHK3ixqcfwYE3mg6PE5ceM0k
3tHhCYj213HI5vy5IL3aAc4H+98Awe/xesVistEeEg5PtB22mP84lMJl72Bu
szdomqI2xNw9tg5/QPYv1oSEm5mtw4wJ/FVmq9Xh/CntrVGXY1TgfOVrj4IZ
YpQcltzfxzen2NZBuHJSydklCg5/vpU+mPPQFhLe9+Qc9tfKWqS32DmAovd/
vTQ8PnYGW0X8b5d0+B2Te/RfkgOcrz9hwQ/DdQg+OJh+Ojiof1J5OYtTCpI+
fB0d5Hct2JeqJ+1QAQrPZkeHkLeXP854KO0w30bnyqx1jg6tCuyqZ7bIOBRv
Ff19epujw5d9H7emi8k6oKc3AK+iITg=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQXf/bquCcg6PDr7evD1g+VnVY3X07g+G6g4ORMRBc
VnXQnbDgh+EyB4ct5j8OpZxSdWBZPMmKMRbBL9kq+vv0P3s4X19rpfCFKfZw
/epvefcZ7LRzuHA17I3+bwS/5tOGgOwqdYcZM4HgpJ3D6TNAoKPhcPyw09rM
f3YOjyLEt19k0HRYcn8f35xge4f0NBDQckg8fFk7ldHBQXzqFc4MJ22H3zG5
R/8lIfgw96LI33Jw2O7Q9Oj4DS2Hz0BrZ/13cJjS3hp1+Y+mw/5aWYt0HUeH
Y7t29LJ90HB4A3TeTCtHB9+LE2P+MWs4oIcPADoCjb0=
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4jXdtzMY4l0dEkKC1Bd4qjvA+HLLX3jo7ddw
6PF6xWKS6eqwXvVJ8zxeLYcczp8L0qtdHQJuSdckGmk7LAMq+6/p6uBzgt12
9ldtB5Cys49cHJ4kLrxm4q/jsPNW19/UfgRfwfFj8hldBL8yYoXp2d3ODiIg
i7ZoO1zOj2c/5+jsIA+yv17LIRtk32Ynh+0OTY+OS2g6/AeBdCcHWZD8fTU4
38gYCIRV4PwHrvGOsybKOyQcvqydqunssDPYKuJ/uyTEvZYucH4FyP7FCP6B
WlmLdBtXhxjVCJlze6QcXFVLmWYFuDr0R3T7M26Qhvt/xkwg2CkLCa90V4cz
ILBGDuIfaVeHHSDz0mUd3vDuM5h5y8Xhy76PW9OvyTgkgtwzEcH/vCEge9Z6
Zzgf5A1jaWeH9DQgUFOE83eA/B+hCufD4qf+t1XBuQZnhzmLlHf+Wa7lwAAC
Fi5wPsw+GN8EpP+zi4O+1krhCyxaDic0rSadFof6x1LTIUJ8+0UGNcz0AOMD
ALrR8W4=
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJeKP1lQ0D2rO/uDk8SF14z8ddxWGCjc2XWOTc4v8fr
FYsJo5tD7W+rgnMcmnD+m+Ktor+9VeD8gLeXP85YKO+gO2HBD8Ntbg47g60i
/rdLOkz5xhY/Y487nB8hvv0iwzcPON/nBLvt7KueDs4TmoXStBTgfLD971Xg
/BkzgcBS0yENBPg84e5Dd/+vmNyj/y65O4hPvcKZ4aTtoAdyT58HnM/jv35K
qoSnQ2b+h9aTIhpw/gPXeMdZB5XhfLB7pBQc6kD+3uDh8B8E5ks7bNDLW8zI
g+CD/efiDueD3bfPzaH08DbXmXcV4PxHII8nqML5f7+VPphjqOnAAAIKCPei
ux8AwwS4MQ==
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIZIIaxWZDYzFDMAOUzoLFxqUEWJ8YcYswk1V5i9NLa
jwDSKwJB
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJzIGYC4oqIFaZno30d3rTldhvNlnI4qmk16fR1X4cz
YCDlcCE/nv3cTQR/f62sRfofBD+kRGX6fwk/nPwb0jWJRkv94ObD+CKVk0rO
tshAzA/0c2hVYFc9s0UGoo/Hz+HLvo9b06/JOMy10bkyi83PwX3N0eUMFrJw
vjBI/xIFON8D5LDjanC+/PIXHnr1Wg4lW0V/n57m6/AkceE1E38dB5UnzfPO
bvKB879sCMielY7gg+238XHQVZT/kiOm43B3H98cYyEfhx9vXx+wbNZ2+ABS
X+7tsNn8x6GULE04n4WzSz5ZTwfiv1RvuHkinxzPp/31cvC5ODHm32JtB/um
R8dnTPZyCLgFUqjtcBwU3upeDuY2e4OmMSL4z7O0v02X1XIwMQaCYgQfHP5H
EPwp39jiZ5zxctDXWil84YkmnD9jAn+V2Wl1OB8WXjD+jmCriP/usg7zQeF1
zAse3gmHL2unNnrB40Pe8WPyGVUveHzB+LD4NL92NNdkg5dDjGqEzLk9Ug5r
um9nMDz3gsc/KBr+K3rD+SyLJ1kxxiL4G/TyFjNO8YbrT00DAjkfuPkwPsx+
dVD8HfKGu8/nBLvt7FpvuPth8QHzH4wP8z+MbwYK70R1OP/4rh29bBc0IP77
6+1w4rDT2sw4LUj6rPSB8++D0gOTL5wPyz9zFinv/HNcA87PyP/QejJEzQE9
fwEAKpeNkQ==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQveHhy6mb/gQ4bDH/cSjFS9shNvfov02HAxzWqj5p
nser42AMAssDHJ4kLrxm4q/j8HlDQPasZgS/fXn4KaMMBL8iYoXpWf8AhxOH
ndZmyuk4eFc36/uYBTiI9Hi9Ytmi7TBjJhDs9Hc4DpK303LwOcFuO9vV3yEh
JEh9gaemg/jUK5wZv/wcUmLvuDH/UIPzfS9OjPnnrALnv1+0XuHsDkWH+MOX
tVMN/R3+/gcCe3kHlsWTrBin+ju0KrCrntki43B3H98c41v+DhGqETLn7kg5
vNi+nvm5TICD+ieVl7M4pRxWd9/OYIhH8Hfe6vqbWozgqwOD4WxXgEPN/R+3
jL2lIP7rD3CoAPG7pRzOgABDoIPzhGahNCsFhxhQ+P0OcHjTltttNFvKoXbd
tqR63UCHGJD9e6Qc5B0/Jp+xDYToOyPlECG+/SKDF4IP8o5kEIK/v1bWIj0B
wd/aUnNhcynCPLB/aqDya6QcQMFsMhHBf8O7z2DmskC4e2B8kcpJJWdbZBwq
Qf4pD4SHVzdIf2igw5d9H7emX5OBu2dHsFXEf3dZOF8YpH+JAqp7ZYwcgktU
pv/3CHSwBxlsawRJHzKBDsng+DR04Py5IH3zrwBIOrpuCEkfqwIcrgt9cjy/
DMHX11opfMHE0MFfTizL9zGCD0o+M78i+LD0CzafA8EHh2ufgQN6+gYAF9hX
FA==
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQveHhy6mb/gQ4nAGBHBUHGF/52qNghhglB86fC9I3
/wpwcJ7QLJTGpeQg/MnxfNrbAIdwTrF2Y39Fh+ASlen/LwQ4BLy9/HHGQnkH
cY+APxLzAxxUP6m8nLVS1sFfTizLNx/Bl3f8mHxGFMHPAVmw2t/Bfc3R5Qwd
inC+1Lw4zdMBqnD+nEXKO/8c13BwVS1lmsUT4CADkr+g5dC+PPyUUQaCr/qk
ed7ZPgT/+tFck4btAQ7paSCgBXHf7QCHP29fH7BcrOmgbTXpdP2HAIe/30of
zDHUhPsfZh+MnwrS3obgw8ILAIzdmE4=
"]}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/Y0tfoZPZ4jD3/9AYC/vIPP6kZlUTYjDge59TSaP
5R3WdN/OYLAOcXBdc3Q5Q4Wsw6cNAdmzlEMcUtOA4JmMwxMR2ZNPvwfD+Vtb
ai5s3orgqz5pnne2LthhjZAOX/o+OQfP6mZ9n6Rgh/LD21xnvlWAmO8f7OA8
oVko7ZcixDz3YIe1IPX3lBwUHD8mn3ENdtBVlP+Ss03FIR1k7i0EX8tq0ul6
hRA4f9EkK0ZfnxAHFs4u+eRzKg5NgZ5zGyaFOMxZpLzzj7qqw9WjuSYNk0Mc
ZoKBKkT/lBCHX29fH7B8jOAbaK0UvuCiBuefAYE3mg49Xq9YTDxDHJ4kLrxm
4q/jECAnluV7PRjOB/t/I4Jvo3Nl1rPWYAd9kHlPtB3al4efMooJdjC32Rs0
TVEbYi5HsMMfkP2LNR2MQeB5kMOMCfxVZqvV4fwp7a1Rl2NU4Hzla4+CGWKU
HJpB/vsW5CBcOank7BIFhwjx7RcZhKDhfU/OgfPngvTNVsEOoOj9Xy8Nj4+d
wVYR/9slHSQ8Av5InEbwNzx8OXXTBwQfFNxpYiEO6p9UXs7ilIKkD4cQB/ld
C/al6kk7XAOFZ3SIQ8jbyx9nPJR2eLF9PfPzghCHVgV21TNbZBxCSlSm/y8J
cfiy7+PWdDFZB/T0BgDv7xtg
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHSG+/SKDVYjDr7evD1g+VnUoiGc/J8ka4mBkDASX
VR02PHw5ddObYIct5j8OpZxSdZB5/chM6gSC/50tfobPTARf9UnzvLN1wXD9
T0RkTz51D3a4cDXsjf5vBL/m04aA7Cp1BwYQ8Al2OH0GCHQ0HHq8XrGYRAY7
PAI7TNOhOdBzbkNesEN6GghoOXhXN+v7zAp2EJ96hTPDSdtBwiPgj8RpBB/m
XhR59hCH7Q5Nj47f0HIQ+uR4Pk0yxGFKe2vU5T+aDhURK0zP6oc4HNu1o5ft
g4bDhAU/DJ+ZhTj4XpwY849ZwwE9fABjO4ZR
"]}],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGI5IAaxQYAJSjNCxZiR+AxksEk1hxj1lJhJLb2UuBMA
8t8CMw==
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJjIGYC4o7l4aeMboQ6zJgJBJWqDq6qpUyzMsIc/oPA
fi0Hzp8L0jfnhTlsd2h6dPyHloONzpVZzyrDIOoltR1MjIGgG8EX+uR4Pm0m
Jv95lva36X+1HSLEt19kcEPwn4jInnx6PNRhg+qT5nm5ag5vePcZzKwKhcjL
ajkEyIll+WaHOsjMi9M8fUHLQeb1IzOphFCHmk8bArKttB1q121LqrcNdXiS
uPCaib+Ow7WjuSYNx0Mc3hRvFf29WhvinzMhEPff0ILY/yjEYc4i5Z1/jms5
LJlkxej7JQTVv1yhDiycXfLJfloOL7avZ34uAnSfXt5ixjuaDhMW/DB81hfq
kJH/ofVkiIrDzltdf1O/hzi4rjm6nKFC1qENFJ4fQhxS04DgmYzDmu7bGQyP
QxxEKieVnG2RcTgDAjcQfJh70flgdWekIPrlQ+H8I5e1UyXVQiHurZd2AMef
RqhDyNvLH2cclHY4UCtrkW4SCrd/w8OXUze5QPWvkYP4JyTUodPGc1eakgIk
PGNCHUDRaJysAAnv5aEOK7+9rDjToAzxj0iYQ6sCu+qZLTIOPV6vWExEofwp
Mg5e1c36PnJhDv0R3f6MG6QdmgI95zaohTnI71qwL5VP2uEtKD71whzetOV2
G82WcrgK8l9yGNw/6Hywe3MQfFCyOFuGmx+Te/TfptUI82F8WHh6gtw3CeF+
cPi1QeWPyMDT845gq4j/7rLw9A42z1rOAT1/AABUt34K
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYCYmudK7OehUY4JIQEqS/wVHeA8eWWv/DQ26/h
sKb7dgZDdITDetUnzfN4tRykXz8yk0qJcAi4JV2TaKTtsOtW199U6wgHnxPs
trO/ajtURqwwPSse4fAkceE1E38dhyOXtVMl34XD+T/Y4mf47EXwl0yyYvRt
CXcQ6fF6xbJF2yFATizL1z3cQR5kf72WgwzIPoZwh+0OTY+OS2g6pIHArTAH
WZD8fTU438gYCIRV4PwHrvGOsybKO0h4BPyRsA532BlsFfG/XdJhJ8i9hxF8
sP0/EHw31VKmWS4RDjGqETLn9kg5cP5ckL7ZL8KhP6Lbn3GDNNz/M2YCwU5Z
SHhFRjicAYE1cg6LQeaZRDjsAJmXLusQm3v03ybhCIcv+z5uTb8m4yAGcs/7
cDj/wT6+OcZ1CD4DCJiEO6SD/KGmCOfvAPk/QhXOh8UPKFrOpoU7zFmkvPPP
ci2I/w8h+DD7YPz/ICAf4aCvtVL4AouWg2d1s76PEdQ/lpoOQp8cz6dZYqYH
GB8Azi7qIQ==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQLdR84NRC10gHFs4u+WQ9HQfhde4Pq2wiHZ4kLrxm
4q/jUJe1p2QyR6SDz8WJMf8WazvE5h79t+lyhEPALemaRCNtB3nHj8ln5kY4
mNvsDZrGiOA/z9L+Nl1Wy2Hnra6/qYcRfOnXj8yk3iD4bcvDTxl9iHDQ11op
fOGJJpw/YwJ/ldlpdThfuHJSydklCnD+jmCriP/usg758eznJN9GOHzZ93Fr
+jUZhze8+wxmnopwaFVgVz2zRcahImKF6dnZEQ4iIP0tCP6bttxuo9lSDts+
/71SwRjpcAYMMPnVIsAAkULw7U3jdnma4OarG3KskZkVCTcfxofZL37z3Pfg
7Ei4+xIFIiy3eETC3Q+LD5j/YHyY/9HjCwBsg8wN
"], {{
100.35599999999998`, 17.618800000000004`}, {99.8797,
17.618800000000004`}, {99.46719999999999,
17.206299999999995`}, {99.46719999999999,
16.729699999999998`}, {99.46719999999999, 16.2688}, {99.8797,
15.854700000000001`}, {100.341, 15.854700000000001`}, {
100.80199999999999`, 15.854700000000001`}, {101.23099999999998`,
16.2688}, {101.23099999999998`, 16.729699999999998`}, {
101.23099999999998`, 17.173399999999997`}, {100.80199999999999`,
17.618800000000004`}, {100.35599999999998`,
17.618800000000004`}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4p7peULNAlEO0yfwV5l1azrA+MYgkKwA5993
jXecJSjjoG7IsUbGKMpB/ZPKy1mcUg4rPl7yTWpA8HXaxW6em47gX6l4qWa4
IcrhTVtut1G0lEPLgVMLXbdFOZwBAymH42X75ks9j3Kouf/jlrG2nEPADrnW
1zejHP7+BwJ7eYj9B6IcYlQjZM7FyDm8X37M23xjlEMFSD23nMP1c9+DH89F
8Ce8rbE3LUPwb4DkU6MceiO6/RkD5OF8/tiA+0bminA+zP9Pls4+ovACwX9Q
JbLO/WOUg/jUK5wZTtpw9X++lT6YI4jge+yvlbVw14Hzp7S3Rl2eo+sgo39X
hS0zysHUZm/QtIN6DjxM2u1ihVEOt6VrEo1SDRzWF2VMfJsS5bD8hYfe/4kG
DkDbHlb5RDnoa60UvhBi4LCnZLIEi16UAyg4/ssbOHiADOCLcmDh7JJPfqfv
sP3z3ysVgsDw+7QhIPuXnsN5pds/64Sg6uMR/BfFW0V/Z+vC+QG3QA7QdjAB
xfPhSAefE+y2s0W14PzN5j8OpWQh0gMsPABco/jw
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQvdb9YZXIthiHv/+BwF7ewbTTMeHpihiHA937mkwe
yzvotIvdPJce4+C65uhyhgpZhxUfL/kmBcQ4pKYBwTMZhxdqhhxrVBD880q3
f9Y9iobz76iwNU5dHe2wRkiHL32fnMPxsn3zpfqjHcoPb3Od+VbBYcPc98uP
VUc7OE9oFkr7pQgxryTaYS1I/T0lhy0ngBqKoh10FeW/5GxTcVgjE5VizR4D
50ekWN/390XweZi028UqYxxYOLvkk8+pOMwBGu+9P8ZhziLlnX/UVR22y7W+
DjwQ4zATDFQdHlSJrHM/GOPw6+3rA5aPEXwDrZXCF1zU4PwzIPBG02FPyWQJ
lrIYhyeJC6+Z+Os4ZIAFEHwPkAPuRcP5y2cfUdiwKdpBH2TeE20HGf27Kmyd
0Q7mNnuDpilqOwg0Hzi10DTa4Q/I/sWaDuUvgQEgEu0wYwJ/ldlqdTh/Sntr
1OUYFThf+dqjYIYYJQfxm+e+BytHOwhXTio5u0TBgT/CcssJO2h435NzKMiY
+LYmPdoBFL3/66Xh8bEz2Crif7ukAyg4739H8HWBzmuUjYHzTYyBwDnGQf2T
ystZnFIO64uABubEOMjvWrAvVU8aEp4dMQ4hby9/nPFQ2oEljE9309wYh1YF
dtUzW2QccoVAHoxx+LLv49Z0MVkH9PQGAOGnF2U=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQzR9hueVEWozDr7evD1g+VnUI2CHX+towxsHIGAgu
qzps/fz3SoVkjMMW8x+HUk6pOqwvypj49ks0gu/+sErkGIJ/R4WtcerqaLj+
F2qGHGtKoh0uXA17o/8bwa/5tCEgu0rdwWUbyIJoh9NngEBHw2FPyWQJlrZo
h0cR4tsvMmg6iN889z14drRDehoIaDkcL9s3X+p4tIP41CucGU7aDjJRKdb3
vyP4MPfC+FOcu3OeG8c4bHdoenT8hpbDhLc19qZuMQ5T2lujLv/RdPge/Hjp
7JgYh2O7dvSyfdBw2H9qoeu25BgH34sTY/4xazighw8Al+6Phg==
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQB2IQvfXz3ysVnXEOW8x/HErx0nbomZ4n1BwQ57BW9Unz
PF4dh/KXaoYcJnEOTxIXXjPx13FY8fGSb5IAgr/Addvnv19i4fzvwY+Xzr4T
63DisNPaTDkdB/9eoIGHYx1EerxesWzRdpgxEwgyYx2Og+TttBxC+XQ3zdWP
dUgICVJf4Knp4NKd8/w3Z6xDSuwdN+YfanC+78WJMf+cVeD894vWK5zdoeig
e1eFrVE11uHvfyCwl3eY8375Me/wWIdWBXbVM1tkHAJ2yLW+rox1iFCNkDl3
R8qhxt40btfKWAf1TyovZ3FKOWyYC9TwGsG/UgH0MEMcnB8Ccp94nEPN/R+3
jL2lIP6TiXOoAPG7pRwEmg+cWtgb5+A8oVkozUoBEn4dcQ5v2nK7jWZLOfxZ
CQywXXEOMSD790g5bDlRtm/+qTiHM2Ag5cAfYbnlxDUE/wswOl7eQ/BL982X
0n+L4J9Xuv2zjikebh7YP5zxEPk1Ug57SiZLsMgh+OxrZKJSjOPh7oHxRSon
lZxtkYH4hyUeHl7g8H0Y5/Bl38et6ddk4O7ZEWwV8d9dFs4XBulfooDqXhkj
h+e/gR6+GudgXxmxwtTWyEFGHxhBK+McksHxaehQkDHxbU17nMPnDQHZs64b
OhwHBoeUeZzDdaFPjueXIfj6WiuFL5gYOjxZOvuIQgGCfxeUoJoQfFj6BZvP
geBHiG+/yNBn4ICevgFnL2W1
"], CompressedData["
1:eJxTTMoPSmViYGAQAWIQvfXz3ysVnXEOZ0AgR8UBxle+9iiYIUbJoSBj4tua
9jgH5wnNQmlcSg7iLGF8ulVxDuGcYu3G/ooOT3+v/HgpNs4h4O3ljzMWyjtM
ce7Oea4d56D6SeXlrJWyDhl7SiZL/ImF87ecKNs3fxGCf17p9s+6pFgH9zVH
lzN0KML5UvPiNE8HqML5cxYp7/xzXMPhiMKGooyZsQ4yIPkLWg4LXLd9/vsF
wb+jwtY4VToOzrc1jdvl6RLnkJ4GAloOMlEp1vfT4xz+vH19wHKxpkMEkOtf
G+fw91vpgzmGmnD/w+yD8VNB2tsQfFh4AQBzf5tk
"]}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJTIGYC4nDLLSfK7BIcum08d6V9UnSA8UPeXv44o1He
QSOm/9BXmwSHGTNBQNZh/3wp/bsWCQ7yuxbsS+WTdpj7fvkx7+AEhzkg6Z+S
Do4JTy8opSc47Ay2ivjfLulw+CvQhDoE/++VipdqBxH82UcUNhR9SHB405bb
bfRbFs53ntAslCalBOfzxwbcNxJXdpjq3J3z/HWCQyfIvZeUHSa8rbE3fZTg
kJn/ofVkiYrDQtdtn/9eSXB4FCG+/aKDqgPIOsMjCQ4SU69wZixSdfhZl7Wn
ZHqCwxkQ0FFzADnvUG6CAwtnl3zyOjWH/yAQn+Dw91vpgzmB6nD+nEXKO/8c
14DzTxx2WpsZp+WQL9R84FRhgoM4yHwnbUj4TEDwP4M8vAlN/kyCQwuv//op
qlpwvsf+WlmL5Rpw/qviraK/X6s7nCjbN1/qNoIfyqe7aS6Q739xYsy/w5oO
2XtKJkvcSXBwB+lv13IAhs7vlXcTHH68fX3AslnbYSkoAA8lOOgqyn/JEdNx
UL4NDIENCQ5PEhdeM/HXcUi2vu/fOxvBZ20EhnACgg9WbwPl92vB+SbGQLBZ
Hc6HhSfYfe4JDimxd9yYJVQdYnd58jDFQ+VzVBxAyvfkANPTBP4qM24VhwOn
gDHWnuDwYdF6hbMdyg6/V3685LsqwSGcU6zdmF8Znl7KD29znblXyYFRu13s
5ilo/Ash+KUg+bsKcH7N/R+3jL3lHEDJJ2MjND0/lHaITAF5GMGPBiZvjQwE
nzkM6AFfaHqUloPzhSsnlZxdogDno+cXGB8Ac6iLsw==
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4skSLGF8pokO0yfwV5l1azrA+MYgkKwA5993
jXecJSjjEP/0gtJt10QH9U8qL2dxSjksdN32+W8Ogp8sEGG5pQLBN+90THja
kujwpi232yhayoFfd9Pc9+2JDmfAQMrBgGONTNSCRIea+z9uGWvLOXzViOk/
NDPR4e9/ILCXh9jfm+gQoxohcy5GzuGwwoaijNZEhwqQem45B4stJ8r2VSP4
U527c56nI/iWIPn4RIfeiG5/xgB5OJ8/NuC+kbkinA/z//75Uvp3FyD4tlzX
FxcsTXQQn3qFM8NJG67+z7fSB3MEEXyP/bWyFu46cP6U9taoy3N0HaJTrO/7
JyY6mNrsDZp2UM/hsm+SQERqosNt6ZpEo1QDBxW2xqnOQPXLX3jo/Z9o4AC0
zZYrONFBX2ul8IUQAwftdrGb55wTHUDB8V/ewOHjJaABJokOLJxd8snv9B2W
H/M27wTGT82nDQHZv/QcTOJ2efKYQdXHI/gvireK/s7WhfMDboEcoO2QngYE
fIkOPifYbWeLasH5m81/HErJQqQHWHgAALdK6HQ=
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {
1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQnZ4GBH5JDg9c4x1nMSo4LC6w5bruneTwpi2322i2
lIN5p2PC05wkhzNggMkvzpj4tqYYwTeJ2+XJU4bgT88Taj7QlOQQoxohc26P
lMPfKxUv1WYizIfxRSonlZxtkXGITLG+798K5S+RceBm0m4Xq0xyaFVgVz2z
RcbhRNm++VLlSQ7ua44uZ7CQhfOdJzQLpWkpwPkXroa90f+tCuf/B4H5Wg7M
YXy6mxKTHJ4kLrxm4q/jsHT2EYUNagj+/vlS+ncFEPxekAf+JDr4nGC3nf1V
2+H98mPe5i8THWo+bQjIttJ2APre3vQcVN5UC8430FopfEFFw+FnXdaektuJ
Dq+Kt4r+fq0OCZ9HiQ5zFinv/PNcw+E2SMGbRAdwPKRpOeQDg+vUx0S4e8H2
cSLcP1mCJYzPEsEHu9cnySHwlnRNYpGmAyw+WTi75JP71Bw+XvJNEpBBhAcj
MDhvXkt0OLFrRy+bgarDjXPfgx/vTITE/0ZlOL/88DbXmW8V4PxUkLnPZCDu
u5jooP5J5eUsTimH0wtdt33+ieCDw5s5Cc632AIU4U5ymDETCCylHOaCPMSf
5FBx/8ct424pB/T0BwDk/jM2
"], {{146.45000000000002`,
8.670309999999999}, {145.989, 8.018749999999999}, {
144.98799999999997`, 7.4156299999999975`}, {144.36699999999996`,
7.4156299999999975`}, {143.73099999999997`,
7.4156299999999975`}, {143.17499999999998`,
8.003129999999999}, {143.17499999999998`, 8.687499999999998}, {
143.17499999999998`, 9.274999999999999}, {143.494,
9.831249999999999}, {143.97, 10.132799999999998`}, {
144.36699999999996`, 10.3719}, {145.242, 10.593800000000002`}, {
146.45000000000002`, 10.768799999999999`}, {146.45000000000002`,
8.670309999999999}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJlIGYC4uPe5p2ON5Icpk/grzLr1nSA8Y1BIFkBzr/v
Gu84S1DGYbIESxjfyyQH9U8qL2dxSjlcqXipZiiQDOdPde7OeS6N4GfvKZks
oZHs8KYtt9soWsrBMeHpBSXtZIczYCDlkGJ937/XOdmh5v6PW8bacg4aMf2H
vtokO/z9DwT28hD7DZIdYlQjZM7FyDl8D368dDbQvAqQem45h+znv1d+lEPw
T5Ttmy/FjeDngOSZkh16I7r9GQPk4Xz+2ID7RuaKcD7M/x8v+SYJuCD4BbZc
1xd7JDuIT73CmeGkDVf/51vpgzmCCL7H/lpZC3cdOH9Ke2vU5Tm6Dr3T84Sa
WZIdTG32Bk07qOfA2ggMIY5kh9vSNYlGqQYO4ZZbTpQB1S9/4aH3f6KBA/f1
xQW235Ic9LVWCl8IMXCI3eXJw/Q8yQEUHP/lDRxU2IAGXE9yYOHskk9+p+9w
+2dd1h5g/NR82hCQ/UvPIX3i2xr7m1D18Qj+i+Ktor+zdeH8gFsgB2g7zASB
jUkOPifYbWeLasH5m81/HErJQqQHWHgAAMLo+uc=
"]],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQfWNxgS2XdorD3/9AYC/vMOeIwoYilRSHA937mkwe
yztMde7Oec6c4uC65uhyhgpZhysVL9UMfyQ7pKYBwTMZh5LJEixhjxD8jIlv
a+wPIvj5Qs0HTi1NdlgjpMOXvk/OIcX6vn/v9GSH8sPbXGe+VXC4ce578OPe
ZAfnCc1Cab8UIeZ1JTusBam/p+QQDdLQmeygqyj/JWebikMon+6muZcRfJ1N
c98v/4bgszUCXcyT4sDC2SWffE7FAWT8Uv0UhzmLlHf+UVd1iOk/9FXDIMVh
JhioOgB9f30xkP/r7esDlo8RfAOtlcIXXNTg/DMg8EbTIW6XJw8Td4rDk8SF
10z8dRxMQAKXkuF8FZAD9iP4V3yTBCJWJjvog8x7ou3QOz1PqHlKsoO5zd6g
aYraDh2OCU8vZCU7/AHZv1jTYQ8oAKKSHWZM4K8yW60O509pb426HKMC5ytf
exTMEKPk0JPz/PfKxGQH4cpJJWeXKDhwrJGJSsmHhvc9OQeLLSfK9jUnO4Ci
93+9NDw+dgZbRfxvl3TgBwbn+9MI/gyg8w7cQ/DBwfQx2UH9k8rLWZxSDhGW
QAPZUhzkdy3Yl6onDQlPkRSHkLeXP854KO3AqN0udlMuxaFVgV31zBYZB4tO
oAcVUhy+7Pu4NV1M1gE9vQEAELAaHw==
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQzbFGJiqFOcXh19vXBywfqzpoxPQf+voi2cHIGAgu
qzrc+VmXtedOssMW8x+HUk6pOkRYbjlRdgrBv7G4wJZrM4KfL9R84NRShP6S
yRIsYV3JDheuhr3R/43g13zaEJBdpe6gfBtoQU+yw+kzQKCj4RC/y5OHaXKy
w6MI8e0XGTQdenKe/145N9khPQ0EtBxSrO/79wLtE596hTPDSduBX3fT3Pen
EXyYe2H80wtdt31+meyw3aHp0fEbWg4nyvbNl/qc7DClvTXq8h9Nhz8rP17y
/ZfscGzXjl62DxoOCU8vKN1mTHHwvTgx5h+zhgN6+AAANaCQaA==
"]}]},
Thickness[0.0061330880098129405`]]}, {
ImageSize -> {163.05480448318804`, 22.58844333748443},
BaselinePosition -> Scaled[0.29815266074630126`],
ImageSize -> {164., 23.}, PlotRange -> {{0., 163.05}, {0., 22.59}},
AspectRatio -> Automatic}]},
LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
False, Automatic}}, Joined -> {True, True, True},
LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], {
Left, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellChangeTimes->{{3.8194433229611483`*^9, 3.8194433376204233`*^9}, {
3.819448952806275*^9, 3.819449065328403*^9}, 3.819449479885154*^9, {
3.8194495790538*^9, 3.819449612025311*^9}, {3.819449650363661*^9,
3.819449666201268*^9}, 3.819449701649157*^9, {3.819449737681958*^9,
3.8194497593939047`*^9}, 3.819449831598805*^9, {3.819449868587122*^9,
3.81945004208081*^9}, {3.819450087283841*^9, 3.8194501011219177`*^9}, {
3.819450161688531*^9, 3.819450200201569*^9}},
CellLabel->
"Out[253]=",ExpressionUUID->"a8394bf7-c1fe-421f-ab00-3065601f65da"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Singlet P state", "Subsection",
CellChangeTimes->{{3.742903401180684*^9,
3.742903411063073*^9}},ExpressionUUID->"d406c2ba-4ab0-44d0-9b6f-\
c0c1db6c1acf"],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalPhi]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "=",
RowBox[{
RowBox[{
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}],
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "\t",
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"]}], "=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}], "\t",
SubscriptBox["c", "\[ScriptL]"]}]}], "=",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], "2"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
RowBox[{"Sin", "[", "\[Gamma]", "]"}],
RowBox[{"\[DifferentialD]", "\[Gamma]"}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.742897993868801*^9, 3.7428981067548847`*^9}, {
3.742898182660631*^9,
3.742898271183833*^9}},ExpressionUUID->"5964132e-935a-46a6-b153-\
12b5727d94a0"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{"2",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "=",
RowBox[{"2",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
FractionBox[
RowBox[{"4", "\[Pi]"}],
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=",
RowBox[{"-", "\[ScriptL]"}]}], "\[ScriptL]"],
RowBox[{
RowBox[{
SubsuperscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}], "*"], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}]}]}]}]}]}]}]], "Input",\
CellChangeTimes->{{3.742898286664424*^9,
3.7428983914044456`*^9}},ExpressionUUID->"9e3ef216-9ad2-4adb-b9e7-\
96392657d2b3"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}], "=",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}]}], ")"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t\t\t\t\t ",
RowBox[{"=",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "1"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "2"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
SubscriptBox["\[Delta]",
RowBox[{"\[ScriptL]", ",", "0"}]],
SubscriptBox["\[Delta]",
RowBox[{"m", ",", "0"}]]}]}]}]}]}], "Input",
CellChangeTimes->{3.742903519772635*^9},
EmphasizeSyntaxErrors->True,
CellLabel->"In[59]:=",ExpressionUUID->"fd5e482a-7176-4bda-b608-c9d284776293"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Simplify", "[",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "+",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}]}],
"]"}]}], "Input",
CellChangeTimes->{{3.742880368692409*^9, 3.7428804029481373`*^9}, {
3.742880525109131*^9, 3.7428805458700542`*^9}, {3.742898467130229*^9,
3.7428985242579517`*^9}, {3.7428992114127827`*^9, 3.742899287783554*^9}, {
3.7429000811947393`*^9, 3.742900096336309*^9}, {3.7429001529365797`*^9,
3.742900153845666*^9}, {3.7429004278822927`*^9, 3.742900428277691*^9}, {
3.742903418965905*^9, 3.7429034224918003`*^9}, {3.742903559452738*^9,
3.7429035641164207`*^9}},
CellLabel->
"In[112]:=",ExpressionUUID->"d44672a8-904c-49d5-a749-404599638355"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742880543408547*^9, 3.742880546332151*^9}, {
3.7428984748725023`*^9, 3.742898524985319*^9}, 3.742899228848856*^9, {
3.7428992728911753`*^9, 3.742899296001245*^9}, {3.742900084424329*^9,
3.74290010643225*^9}, 3.7429001543651667`*^9, 3.7429004286643667`*^9,
3.742903423093584*^9, {3.742903537210059*^9, 3.742903564703141*^9},
3.819444693584455*^9, 3.8194462226703672`*^9},
CellLabel->
"Out[112]=",ExpressionUUID->"1252dce1-bd9d-4c0b-a27a-4a9ea1fd0d90"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742880543408547*^9, 3.742880546332151*^9}, {
3.7428984748725023`*^9, 3.742898524985319*^9}, 3.742899228848856*^9, {
3.7428992728911753`*^9, 3.742899296001245*^9}, {3.742900084424329*^9,
3.74290010643225*^9}, 3.7429001543651667`*^9, 3.7429004286643667`*^9,
3.742903423093584*^9, {3.742903537210059*^9, 3.742903564703141*^9},
3.819444693584455*^9, 3.8194462227279787`*^9},
CellLabel->
"Out[113]=",ExpressionUUID->"77f79985-ba0c-4e4f-bf6b-e218325f8b1c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}], ")"}]}],
"+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}], ")"}]}],
"+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], "==",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}]}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.819446229984541*^9, 3.8194462800814953`*^9}},
CellLabel->
"In[116]:=",ExpressionUUID->"5f1d575c-4c3c-4bde-8f8f-240d45244a88"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.819446240084282*^9, 3.8194462809734297`*^9}},
CellLabel->
"Out[116]=",ExpressionUUID->"61d6448d-7998-43fb-b38e-205c44de9446"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}], ")"}]}],
"+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["5"], "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}], ")"}]}],
"+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], "==",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}]}], "//",
"FullSimplify"}]], "Input",ExpressionUUID->"d0f32758-1361-44ee-bb02-\
8950288c60b3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], "==",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}]}]}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.742903615997718*^9, 3.742903634439269*^9}, {
3.819446306819173*^9, 3.819446321359915*^9}},
CellLabel->
"In[117]:=",ExpressionUUID->"318015e8-2886-4487-be95-e7f69ff7a94c"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{3.819446322096216*^9},
CellLabel->
"Out[117]=",ExpressionUUID->"3c0943dd-d696-48fb-95bf-e076fa93c9b0"]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}], "9"],
SubscriptBox["c", "1"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"]}],
RowBox[{"15", " ",
SqrtBox["5"]}]],
SubscriptBox["c", "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
"2"]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t ",
RowBox[{"=",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}]}],
")"}]}]}]}]}], "Input",
CellChangeTimes->{3.742903435971887*^9,
3.74290368331061*^9},ExpressionUUID->"b4079bea-4a03-45f8-9706-9190d1a1a2fd"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "\[Pi]"}]], " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[Phi]", "1"]}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[Theta]", "1"]}]}]}]}], "\[Equal]", "2"}], ",",
SubscriptBox["c", "0"]}], "]"}], "//", "Expand"}]], "Input",
CellChangeTimes->{{3.819446339018919*^9, 3.819446363714183*^9}, {
3.819446590201914*^9, 3.819446591088716*^9}, {3.819447309899662*^9,
3.819447319139097*^9}},
CellLabel->
"In[166]:=",ExpressionUUID->"523e901d-07d6-4226-ab0a-a0f8b4022ef8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.819446364233666*^9, 3.8194465914559927`*^9,
3.819447319610235*^9, 3.8194476543197317`*^9, 3.819448144409718*^9},
CellLabel->
"Out[166]=",ExpressionUUID->"cdd496d7-6f57-4d4b-9410-784a9d2ec602"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], ",",
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}]}], "}"}], "/.",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}]}]], "Input",
CellChangeTimes->{{3.819447325708128*^9, 3.819447336599598*^9}},
CellLabel->
"In[156]:=",ExpressionUUID->"a2621bef-7c52-4cc5-b04b-4a41d784cd3d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"], "-",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ",",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}]}], "}"}]], "Output",
CellChangeTimes->{3.8194473369186583`*^9, 3.819447655705583*^9},
CellLabel->
"Out[156]=",ExpressionUUID->"47b658d6-e43b-40a5-bd62-147a938a1d86"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "/.",
RowBox[{
SubscriptBox["c", "2"], "\[Rule]",
RowBox[{
RowBox[{"-", "10"}], "+",
RowBox[{"5", " ",
SubscriptBox["c", "0"]}]}]}]}], "//", "Simplify"}]], "Input",
CellChangeTimes->{{3.8194468444392157`*^9, 3.819446857015703*^9}},
CellLabel->
"In[138]:=",ExpressionUUID->"ab059271-ba95-494b-97be-904cc891c23e"],
Cell[BoxData[
RowBox[{
FractionBox["2", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"3", " ",
SubscriptBox["c", "0"]}], "+",
SubscriptBox["c", "1"]}], ")"}]}]], "Output",
CellChangeTimes->{{3.819446845534431*^9, 3.819446857285016*^9}},
CellLabel->
"Out[138]=",ExpressionUUID->"8f57ea33-6026-4373-bdf2-c97365a6aff0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "0"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.819447580369944*^9, 3.819447646849441*^9}},
CellLabel->
"In[154]:=",ExpressionUUID->"1423d03d-0009-4a98-923c-6616c220bc62"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwt2Hk4VF/8B3BLZSiVrQgt2iSRFhJ6D99KUbZKiwilJGUrVKJFKkpIkiyV
EKEklCREIWlBoVRkj7nWmXtnRn7n93t+f32e1/PMPOeecz/nfc7MPGcPGxcx
ERERcVERkf+rr6Vq/6z2Wify/3VhT7HB7BuWOK9c0aNKKv+J9oGmqH2Y+9NK
pZHUDnlXOj/KA1cLxxpzSG3eGFyWEhWEm/bj6yNJbdgXtTgh6jpaEwZ1zEm1
cVdqjo1KwsSdsySsI5MQObQ3NybqMaJgFut37TEMKsykTHxKwM27VZZ5qASe
pyyccj0rwbvedKvErBJHn7uEi83/hKGyT4OlnI+o794smeZcj8HQBSPNUvUI
1eaK5O9uxO+FukYu5d/gtbTyZknKD7yOeexlnvsd/P1HsluO/YZli822Cs9f
cH5laxVxsA33n508YHCoFfsH60tKLrcjYLq5567Ff3B1eYFHakgnmoZvnZma
3w6xkgK94FPd6Gg+oSeypBMyGua1v2J7wdGcwrua3IVNSSbJA1F9GJs21/JP
XzdmUjUbgwo4GOCwj+zS7UXcu0JR8cMDEHseuOfS3r8wVDUen3tgEN9+3Fv5
YFsflv6e3n7m+BBG0vUT69n9sOiaW+brP4T07dfkp6zvhydn+V2PgCG02s19
ZWzaj2dCq71OwUNYM2Xtg7St/TBUiqxfHz0EeuKLcvs9/dhiI1Mx+dkQFpxd
Ot/Hpx/u5TKpt4eHcLtvYIz9oB9ZD2Vd87yHYVhWXOUgwkFww2tjcb9hMK1y
ZnvFOdgrdlTZ+vQwLp1wTdw5iQOpve9q+y4MI0dzZZnpFA4OTgtYveDmMG7O
shiQVuRgrm+H2I2CYXToKRboaHMQ/d/zBE/hMB4o6J9usOMg4Kd93dKQERiI
FZWfz+ZgxNQowSV0BPKJLKvuJxy456gcSgofQUjS5gLzXA7sgr/zZW+N4Kzz
P8UpzzlYq7FbjZ82AkonaoFPKQfMie1elVUjONnarNdcx4GvtPk0F+lRCJOu
rZjM44Djq9GUKDMKU4vMvqUMed7fksmNCqM4zDw7YybgwDa3UnfL7FFkSvXP
PzfOwerdGx1Wao9idm9LQL0EhZEHxlmi1qMo7PJgyylS8DJcY54YPQr19Gy5
AV0KIseig67HjmLRw5LIR2sohCcN5J6NH8X25/EaLmspZIilq+x/MIqtHNPM
L0YU2iqVOIufjcLa+kJfzHoK23cIInLqRpFRmLu53JqC7rHir+WyXOT56L3N
caNQnjRrcv4MLj5c+HpkuTsFm8++SJvFxf6x2UuyjlI4tkr74RU1Lny+Wvbe
9aSQxk86abGCi7R1OcFevhQUL51TabTmIlq/YWLBOQr8pPXOfyO4ODD2/v6X
GArreEZROje5WLV0VFo7lsI5C70yv9tcSGpSelduU2CNLVGbcJ8LW5Hhd7rx
FBT2TGtTyeWi8XBEg+89Csvlm50sGriI0bOPCn1EwedIXWR0Exf9brt/lWVS
yC+rKW1u4YIVkt1DZ1Ew8no971AnF39VJus6PKFgVvugNYjHhYa/5iPpPAou
lz2ccpR4+F53dWT8FYWHv1wjeao8JHTLSsu/ptCn61xqpMbDm/XJrQtLKHh3
bJ9XrcFD0ZfoYpMyCmdN1ra2GfAgbXV/g9NbCnHCCU7yDjz8kFzsr1NL4ZNn
nKPffR72a+0eVf1BQSNiuuB4KrHm6vHvxBceh9z0zuBhWWKKdGwLeR8c7+qj
T3nYpaOwRuoXhYQj5qsOlPGQaU6Vfm2l4HZQKGHdxoNmPJ00vYu8r4ve9y06
eehT6OjPJlZN6Tbc0stDQ/ILmHeT8f/Ue5kO8TBVd4RzpoeCnlPWdyMxGl25
qafe/6UwYa/DYw01GmF1CyAxQMHhdP1m9UU0eLWb3l0kLogza1+oQcNwVqWN
2CAZv0lXad4KGo5lL3xGiT/bTrsw04SGx8rYH2+Gyfx8L6oqbKQRm1EeuGKE
QvBNQYGsGY0LfTILkojX1Hf1SdvQ8Osa9vMepZBoXWI7wZlG2sa560V5FGhP
3UHRgzSU38T/20dsE5EZNn6YhpaHRFER8cSPsSV8LxqmzhHwpCm4b/HSGDxH
4z/uV9fXDIW3R7rKORdpyG/XWDuVT2FOmP2+vis05ukYT7Uj/lK1Oborkkac
W2oxh1jfVO1fyz0yfv0n/BNQWJVcffldCo0zNR6UgZCC1ri3XE46jcX5gXl+
xGoFb9SDc2g8Wv4zuIdYRc4992gejYjhxeFzxijM8JBft/MFDbsp9VnbiCcv
dtmmUUqjqGPj8nziSRekf8pV0Agtk7jRTizyK891rJLGs2Vzpsj8I/s/ZlLg
p080opaYGh8g5gxlswrraRSU2IyFEndb7LyR3EhDYTjj42PilkkPH/r+puHu
v6ZgmLjR2WqlYzuNaUWHa2THyXyL6Vebu2msC/jF0yaumXVv08o+Guf5t/TN
id/6bq5TGSDzuRkZeYC45Mug/aQRGp+rqsdPExdqxXVTPBrblpsERxI/CzXx
aRLQ+B7EnZ1C/Lizd6xsnMauq50f84kzTG5czhRnIGYqc+st8YNEA7kYCQZ7
i08crydO5P9JCJrMYNlsOdffxLG2V9UPT2MQ+rjbq5c46umqXBs5BtWNo5FD
xFenthgZzmRwQ3VtJU0c4naxcqEyg4+z8+THiM+9XbZt2hwGuXEH/caJA9S+
ttBqDArdLQb+176Bga5tixhkXnMP+kfs2bxo+L0Ggxi50gUCYjfdj2fytBjU
6mz5PUp8IMqPlbSCwfCaqU85xA6cOTcu6zKgYiTiOoh3mVWqeq9lMPh1TWwz
8bZUz4d26xh437uf+YHYQkxp5QYTBiuLNnwrJt7kUPpKayMDSM1XzCY2KTy8
SdGMQU+YgccdYsMZsnWiFgyqHCJ+hBDrehfa/7VmUPFKzdGTeHmtc3f9DgaT
REeYncQLQ3LH0uwZeCze7TmPeG6b3eVIJwY7tg5sESeetW6C3GkXBv9+1OAP
6Yep3O3qFkcZaIg6uCYQs2zGnup5MUgvm5HoRyyWnWI07wSDdlPVXktingvX
ZiSArLe+agWf9OdQaWJLy1kGRq+Ut38g7lM1dX0XzGDqSm8mgfh3w60zcVcZ
3HFZcUmfuGqD/kN2PAPa0fbxbrI//N8FagXdZXDd0zN3JrH65vJnrx6Q9eQ6
+dWR/RayxbJ0bRYD7Yqf69YTr9/m0ryqmMHLzx9rpMj+HKnPcPQpY9DZsepT
PtnfybYDnTlvGchvjr/hSCy25/Sw1kcGBW6he7JIHpQ4Rk5Z8puBsfBWz1KS
F55tX6MOtTPgbi3rr+CSPDigopTazaCme/5Te+LAQ2kL5w8yeOufcTqE5JHh
sVfrVMX4UNgZL/uK5FnB6R5PmQV8XEyw2VlMUTg4psWzVOdjkVGh8yriGUHH
z4Rr8tF7ulXrIYfC8fPjVyavJp8/ESN5pZ/CiisKyRM38jF25XmVNsnb7Bjj
BuYQH6yL2wJlOkl/KV6yW+POh+B4Vtz+DgrScTWtvp58LKn3889tJ/mWsJMz
7M9H9Z3r/lv+kHx9cFSCc4WP9k3Lr+7/TSEl57Z+2yM+np5sm7KomfSzwE6j
8TEfVccb7JybSP9smK1cm0u+/1G9IL6RQlHjfeGLl3xI6M67MfkbhbrxR68j
3/Px1zW39XMdBVGL4g3Gf/moFMa0i3ygYN/bZn1XQ4AlIkdbu8n5qLYqxSRG
S4CDn1d+7SwieXTm0MqrKwQY+6zU1PaSzF+mT95/rQBP9C9INrygELZm9Jul
mQBn10bOuE/O2xchEg7jhwUQvNUY+EnOa4X5mm4O6QKYhimptJPzPyIqzDY9
SwBtY3WpK+R+ICX212QkRwAv3/GcpbdIXramK4cWCuA4213bLZr0Y+LiD3nv
BXhexWp/H07Ow1nzl0tzBGDN1TRXu0CeR3YW9+UKIVTVbnxSJvcb6tzJtkl6
QkjR0Uv9Xcl6DTbWWhsIYSje8N+XgxQcP91K6/pPiPa9VzKD9lPYEq6wW26H
EEdz5ji/3kthvpRMkZufEPFTPE9+sSD5Kso6r1QkhF51uOEmHZLXWbcdrEqE
YF6mBrhoU5Dcs9TgUrkQOhVtUWeXUWA/tRgZqRHCqmGryZMlpB+cbx781CLE
btu0J6PzyHq9UTO/NC7EasV7PYqyZD9cNJIfNRnDrBU73pYOcJDH8kn9VDWG
a/vYJ1LSOOgMONdf/GEMXySj1fencKA4eH1V1ucx+HYcEJuTTO6/TZllV5rG
0LZXSiMykYP1GZ0/TXrGIFKCrftucvDFfM/MPNY/1MRcE0s+T343hBtfvm36
D89bbNWryP1ZU2G6m3PFP6ygygtjWRxQ4Vz5lV/HsbZiWYW9QT/mX7qk7eEm
wq7Vtjr42b4PbXu+N5t0ibAnjucr7z/8F5s66pi8Y6Lsw5Sv8TOTXvh7u7jO
6Bdl1+SdOa6v0AOL/DtmM3zF2CMiosn1T7vAEboFiHPF2BdMjxjus+zEvW/n
nh3zEWfv2GjZs66lHXxXI8eTAnG2zr65bZqr/0B1LNLO69QEdvAduvvdzVZ0
moZVsyZMZHdYduZbnv2FN4tqMDtsInuC7qkPpWXf4cZKnTBPchK7xf1PQOSS
RhTcXWD0JnISW1G5o9pJvR61BoYVNjIS7JQi+9jjtp9Au93Z5hguwd5TP6eH
N60KlVZJO6RnsNgROT4qD5+WwFnfMC0tmsX+zOvi/0zNweH+D6M/Ylhs1TDf
sH2OOfC8t2+97G0WO0NmZtVPpRwESV5oDUhgse8XSzk1XX2C+KYqZZtUFvs3
bbsqqCMbX0/ujBAWsNgHq7Wq0wMyYFbofdL6O4ttOGuZSGT6PVgfm1AZ0sJi
71w3om+jcg+71GJmFP1isWOfChfKXr+LQ6Evche1s9iNKkVBKj2JCN4jwhH0
sdiurwKtBgPjUMy/5pz6j8Wu2Gh1FBmRqMiek/NdRJIdH2bNvn89AjXOOePT
xSXZzNnYuxK94fheXR9/WkKS3ca+yw8JCgUdp/zNaroku6Bb6sOxjHMYt8ha
GCIryU7skR/c3BuISeI4/lJekq3/Q7Y/N+gU5I84yyxSkmQ3bIvXPJ/hBeU5
I/vslMl47q1raoPcoFZ3MTtCVZItavJILibDCRqXZo5VzJFkTxUWL32RYQ0d
g3RzwTxJtrbOtf/7f+B/AAObe4U=
"]]},
Annotation[#, "Charting`Private`Tag$6490849#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->
NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0.,
0.9999999707682925}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.819447591278878*^9, 3.819447647286221*^9}},
CellLabel->
"Out[154]=",ExpressionUUID->"a9257c0c-b5e1-4c1f-b935-f11312fc5f0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox["2", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SubscriptBox["c", "0"]}], "+",
SubscriptBox["c", "1"]}], ")"}]}], "\[Equal]", "2"}], ",",
SubscriptBox["c", "0"]}], "]"}], "//", "Expand"}]], "Input",
CellChangeTimes->{{3.8194463704912663`*^9, 3.819446378817926*^9}, {
3.819446594262562*^9, 3.81944659977628*^9}},
CellLabel->
"In[132]:=",ExpressionUUID->"7d937c46-315c-4127-85c4-712b14bc01aa"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{
3.819446373556425*^9, 3.819446457246375*^9, {3.819446596071899*^9,
3.819446600165804*^9}},
CellLabel->
"Out[132]=",ExpressionUUID->"cd9d35dd-d570-4a5a-8d26-67dfbe5a07bb"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["2", "3"],
SubscriptBox["c", "1"]}], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "/.",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}]}]], "Input",
CellChangeTimes->{{3.819446938558178*^9, 3.8194469387544727`*^9}},
CellLabel->
"In[139]:=",ExpressionUUID->"a2ac8ff2-1cae-41e1-a20b-4fbb997dec08"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], "/.",
RowBox[{
SubscriptBox["c", "0"], "\[Rule]",
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}]}]}]], "Input",
CellChangeTimes->{{3.819446972587152*^9, 3.819446972587624*^9}},
CellLabel->
"In[140]:=",ExpressionUUID->"2f20c949-180a-497c-b460-fc41151522d8"],
Cell[BoxData[
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}]], "Output",
CellChangeTimes->{3.8194469736722193`*^9},
CellLabel->
"Out[140]=",ExpressionUUID->"0b25d327-e92b-4494-a4e0-91dc831b2739"]
}, Open ]],
Cell[BoxData[
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}]], "Input",ExpressionUUID->"939751eb-557e-4570-\
ac5e-0177a1ac50cf"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "1"]}]}]}], "=",
RowBox[{
RowBox[{"2", "\t", "\[Implies]", "\t",
SubscriptBox["c", "0"]}], "=",
RowBox[{
RowBox[{
RowBox[{"1", "-",
FractionBox[
SubscriptBox["c", "1"], "3"]}], "\t", "\[Implies]", "\t",
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}]}], "=",
RowBox[{
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]", "2"]}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox[
SubscriptBox["c", "1"], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.74290046592192*^9, 3.742900508615451*^9}, {
3.7429008186008587`*^9, 3.742900822411848*^9}, {3.742901066474793*^9,
3.7429010697015457`*^9}, {3.7429037586511917`*^9, 3.742903804969626*^9},
3.819446463588112*^9, 3.819446602336863*^9, {3.819446946046637*^9,
3.8194469837946663`*^9}},ExpressionUUID->"7f39c9ab-32fa-41ee-a84c-\
0db48d3fd4ca"],
Cell[BoxData[
RowBox[{
RowBox[{"2", "-",
SubscriptBox["c", "0"], "+",
RowBox[{
FractionBox["1", "5"],
SubscriptBox["c", "2"]}]}], "=",
RowBox[{"0", "\t", "\[Implies]", "\t",
RowBox[{
SubscriptBox["c", "2"], "\[Equal]",
RowBox[{
RowBox[{"5",
SubscriptBox["c", "0"]}], "-", "10"}]}]}]}]], "Input",
CellChangeTimes->{{3.74290109712473*^9,
3.742901159497686*^9}},ExpressionUUID->"59da42ed-948c-40cc-9a75-\
afe1a8b88822"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n_"], "[", "u_", "]"}], "=",
SuperscriptBox["u",
RowBox[{"n", "-", "1"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "10"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"H", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["u", "2"],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[DoublePrime]"], "[", "u",
"]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"5", "u"}],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-",
FractionBox["1", "u"]}], ")"}], " ",
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[Prime]"], "[", "u", "]"}]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["1", "u"], "+",
FractionBox["1",
SuperscriptBox["R", "2"]]}], ")"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}]}]}], ")"}], "u",
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"S", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}], "u",
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.742918604620111*^9, 3.7429186131351423`*^9},
3.742918719955948*^9, {3.74291885295679*^9, 3.742918854648775*^9},
3.742922362967875*^9, 3.742980439148241*^9, 3.742980540306929*^9, {
3.742994989188118*^9, 3.742995016518692*^9}, {3.742995150772037*^9,
3.7429951513978567`*^9}, 3.7429952985264072`*^9, {3.74299538074587*^9,
3.7429953808123302`*^9}, {3.742996132486848*^9, 3.7429961349036427`*^9},
3.7429963078815823`*^9, {3.742996660743409*^9, 3.742996660843338*^9}, {
3.742996945034573*^9, 3.742996945161457*^9}, 3.7430081967857656`*^9,
3.743009059579871*^9, 3.743009234820531*^9, 3.743009382026333*^9, {
3.7430094920285807`*^9, 3.74300951455619*^9}, 3.74300961041049*^9,
3.743009666438663*^9, {3.7430098539824047`*^9, 3.743009854170718*^9},
3.743009922023739*^9, 3.743011705512869*^9, 3.743221089107052*^9, {
3.819390722822253*^9, 3.819390722929696*^9}, {3.8194447299518957`*^9,
3.8194447300307302`*^9}, {3.8194454195469217`*^9, 3.81944544596133*^9},
3.8194458115917053`*^9, 3.819445858103506*^9, 3.819445888951119*^9,
3.8194490992227716`*^9, {3.8194608763035583`*^9, 3.81946087644112*^9}, {
3.819460920551358*^9, 3.819460920613429*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"fb90afa3-6319-4401-96d5-c434cb0ab8fe"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "10"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"tab", "=",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "R", "]"}], ",", "200"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{
RowBox[{"S", "[", "R", "]"}], ",", "200"}], "]"}]}], "}"}],
"]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[",
RowBox[{"2", " ", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "50"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<R: \>\"", ",",
RowBox[{"N", "[", "R", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Rho]: \>\"", ",", "\[Rho]"}], "]"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"+",
RowBox[{
FractionBox["2", "3"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}]}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}]}], "]"}]}], "}"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{
RowBox[{"-", "1"}], "/", "10"}], ",",
RowBox[{"1", "/", "10"}], ",",
RowBox[{"1", "/", "100"}]}], "}"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"tab", ",",
RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}, {3.742995040906142*^9, 3.7429950736953487`*^9}, {
3.742995103988391*^9, 3.742995134262944*^9}, {3.742995247787807*^9,
3.742995324266892*^9}, {3.742995360656518*^9, 3.742995384384591*^9}, {
3.7429954237133417`*^9, 3.742995433990855*^9}, {3.74299547198099*^9,
3.742995484920415*^9}, {3.742995760731353*^9, 3.7429957673259373`*^9}, {
3.742995847653798*^9, 3.7429958543557777`*^9}, {3.7429960931764708`*^9,
3.742996100192951*^9}, {3.742996300021468*^9, 3.742996312749928*^9}, {
3.742996623983343*^9, 3.742996683485918*^9}, {3.742996763260223*^9,
3.7429967667513227`*^9}, {3.742996823435986*^9, 3.742996947881322*^9}, {
3.7429969858904467`*^9, 3.7429969890918093`*^9}, {3.742997154797719*^9,
3.742997179630937*^9}, {3.742997221183319*^9, 3.7429972234251423`*^9}, {
3.742997256190982*^9, 3.742997295285985*^9}, {3.742997325738884*^9,
3.7429973513749123`*^9}, {3.74299738735357*^9, 3.7429974112679663`*^9}, {
3.742997461552939*^9, 3.7429974669219646`*^9}, {3.743008210683326*^9,
3.743008225538146*^9}, 3.743009057265111*^9, {3.743009239073036*^9,
3.7430092656499767`*^9}, {3.743009361125576*^9, 3.743009373039097*^9}, {
3.7430094955856752`*^9, 3.7430095437002373`*^9}, {3.7430096137618933`*^9,
3.743009669733102*^9}, {3.743009863885*^9, 3.7430099872406483`*^9}, {
3.743010046219955*^9, 3.743010048241816*^9}, {3.7430103170795507`*^9,
3.743010344854659*^9}, {3.743011088494897*^9, 3.7430111264389553`*^9}, {
3.7430111611489353`*^9, 3.743011161959427*^9}, {3.743011716328226*^9,
3.7430117899482517`*^9}, 3.743221076129325*^9, {3.8193907581118402`*^9,
3.8193907617791357`*^9}, {3.8193907925481987`*^9, 3.819390804206044*^9}, {
3.819390849865067*^9, 3.819390936727295*^9}, {3.819391001811208*^9,
3.8193910257883453`*^9}, {3.819391085700403*^9, 3.819391087526915*^9}, {
3.8193914241938553`*^9, 3.819391470682129*^9}, {3.819391627347579*^9,
3.8193917104671087`*^9}, {3.819391752709236*^9, 3.8193917589749203`*^9},
3.8194447427358437`*^9, {3.81944477511159*^9, 3.819444799254642*^9}, {
3.819445423554438*^9, 3.8194454485467577`*^9}, {3.8194455041540318`*^9,
3.8194455101392508`*^9}, 3.819445596217606*^9, {3.8194456567851753`*^9,
3.819445656839918*^9}, {3.819445746264432*^9, 3.819445757912693*^9}, {
3.819445813352127*^9, 3.819445825887064*^9}, 3.8194458612711887`*^9,
3.8194458919673147`*^9, {3.819445967319127*^9, 3.819445968614059*^9}, {
3.819449084439749*^9, 3.819449109599296*^9}, {3.8194607735707207`*^9,
3.81946092478191*^9}},
CellLabel->"In[36]:=",ExpressionUUID->"54cba639-78de-41b7-b09f-3fb5cc912380"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.1`"}], ",",
"2.622415842725466443893251577820650672377872973670922710865906670241171`\
49.11468284888112*^-8"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.09`"}], ",",
"6.06190502636507879507515175559796184193854731377204564126308188112786`\
49.11479240919177*^-9"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.08`"}], ",",
"1.17447601234699468445510136405307647387550934513333852666869845718458`\
49.114893364196135*^-9"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.07`"}], ",",
"1.4024940395158898924654784294178614485161184767019759036195479717372`\
49.114985727315386*^-10"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.06`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.05`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.04`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.03`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.02`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.01`"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.`", ",",
RowBox[{"2", " ",
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ".",
"f"}], ")"}], "2"], " ",
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "50"}]}], "]"}]}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"0.01`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.02`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.03`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.04`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.05`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.06`", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.07`", ",",
"1.6928021246676030316508937283990323565974600157978072741088239637394`\
49.11539060031272*^-10"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.08`", ",",
"1.45179154699787609350247306840718344570117853855922030674948684050816`\
49.11535747274172*^-9"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.09`", ",",
"7.66818146325018157049352655502915988683421514732471670517861640201907`\
49.115316304666756*^-9"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.1`", ",",
"3.404552155169235778275158707980233029929030601029727595659420596653119`\
49.115267147067*^-8"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.819391014749713*^9, {3.819391071671455*^9, 3.819391093328039*^9}, {
3.81939143621446*^9, 3.819391475405188*^9}, 3.819391636446169*^9, {
3.8193916949654408`*^9, 3.819391720160043*^9}, 3.8193917634000683`*^9, {
3.8194447707974577`*^9, 3.819444802118456*^9}, 3.819445429630782*^9, {
3.81944548901746*^9, 3.819445510028133*^9}, 3.8194455422005568`*^9,
3.819445630309391*^9, 3.819445726083826*^9, {3.81944581458074*^9,
3.8194458335917597`*^9}, 3.819445882243606*^9, 3.8194459359917192`*^9,
3.819446005097937*^9, {3.819449087924513*^9, 3.81944911372517*^9}, {
3.8194607891681128`*^9, 3.819460928218804*^9}},
CellLabel->"Out[36]=",ExpressionUUID->"30a67b2f-36de-472b-9923-bea976f44530"],
Cell[BoxData[
GraphicsBox[{{}, {{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
LineBox[{{-0.09450984191040196, 1.5154762565912697`*^-8}, {-0.09,
6.061905026365079*^-9}, {-0.08, 1.1744760123469948`*^-9}, {-0.07,
1.40249403951589*^-10}, {-0.06, 0.}, {-0.05, 0.}, {-0.04, 0.}, {-0.03,
0.}, {-0.02, 0.}, {-0.01, 0.}}],
LineBox[{{0.01, 0.}, {0.02, 0.}, {0.03, 0.}, {0.04, 0.}, {0.05, 0.}, {
0.06, 0.}, {0.07, 1.6928021246676031`*^-10}, {0.08,
1.451791546997876*^-9}, {0.09, 7.668181463250181*^-9}, {
0.09283826234091849, 1.5154762565912697`*^-8}}]}},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6]}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{-0.1, 0.1}, {0, 1.5154762565912697`*^-8}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.02],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.819391014749713*^9, {3.819391071671455*^9, 3.819391093328039*^9}, {
3.81939143621446*^9, 3.819391475405188*^9}, 3.819391636446169*^9, {
3.8193916949654408`*^9, 3.819391720160043*^9}, 3.8193917634000683`*^9, {
3.8194447707974577`*^9, 3.819444802118456*^9}, 3.819445429630782*^9, {
3.81944548901746*^9, 3.819445510028133*^9}, 3.8194455422005568`*^9,
3.819445630309391*^9, 3.819445726083826*^9, {3.81944581458074*^9,
3.8194458335917597`*^9}, 3.819445882243606*^9, 3.8194459359917192`*^9,
3.819446005097937*^9, {3.819449087924513*^9, 3.81944911372517*^9}, {
3.8194607891681128`*^9, 3.819460913162878*^9}, 3.819460945531849*^9},
CellLabel->"Out[37]=",ExpressionUUID->"a2999cb1-22fd-4cbd-9bc7-6a54cac3c4ea"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Triplet ",
Cell[BoxData[
FormBox[
SuperscriptBox["p", "2"], TraditionalForm]],ExpressionUUID->
"57d5e92b-0647-42c8-93a1-b798006a46c1"]
}], "Subsection",
CellChangeTimes->{{3.742921809427841*^9,
3.742921815126781*^9}},ExpressionUUID->"c3267724-2a1e-46ae-a70a-\
24dbe2bc9597"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "2"], "]"}],
RowBox[{"Cos", "[",
RowBox[{
SubscriptBox["\[Phi]", "1"], "-",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"], ")"}], "2"],
SuperscriptBox[
RowBox[{"(", " ",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}], "2"]}]}], "//",
"FullSimplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["\[Pi]"]}]]}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"5", " ", "\[Pi]"}]]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "96"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"160", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "-",
RowBox[{"80", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
SqrtBox[
FractionBox["3",
RowBox[{"10", " ", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}], ",",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
SqrtBox[
FractionBox["3",
RowBox[{"10", " ", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "}"}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "2"], "]"}],
RowBox[{"Cos", "[",
RowBox[{
SubscriptBox["\[Phi]", "1"], "-",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
FractionBox[
RowBox[{"8", "\[Pi]"}], "9"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{" ",
SqrtBox["5"]}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["9", "45"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox["9", "15"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "//",
"FullSimplify"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.742921541073929*^9, 3.7429217915991783`*^9}, {
3.743221206846005*^9, 3.7432213027031612`*^9}, {3.743223071879881*^9,
3.7432230721557083`*^9}, {3.743223122804291*^9, 3.743223160854814*^9}, {
3.743229983868244*^9, 3.743229987103587*^9}, 3.743230196503038*^9, {
3.743230229246484*^9, 3.743230392876593*^9}, {3.74323042341105*^9,
3.743230423574142*^9}, {3.74323046932085*^9, 3.74323050342354*^9}, {
3.743230609148362*^9, 3.743230658741049*^9}, {3.743232501718238*^9,
3.743232502023597*^9}, {3.7432396332522507`*^9, 3.743239693010103*^9}, {
3.743239813190792*^9, 3.743239835225259*^9}, {3.743239957601283*^9,
3.743239964073461*^9}},ExpressionUUID->"093b63ec-d5d7-429c-a6ae-\
daee424561d5"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742921693566469*^9, 3.7429217919516277`*^9},
3.743221130252604*^9, {3.743221239571553*^9, 3.743221251731104*^9}, {
3.743221289458893*^9, 3.7432213035428667`*^9}, 3.743223072588331*^9,
3.7432231612608023`*^9, 3.743223192566586*^9, 3.743229987526679*^9,
3.743230199018121*^9, {3.743230249889526*^9, 3.743230269081333*^9},
3.743230332948771*^9, 3.74323039351552*^9, 3.743230425246151*^9,
3.7432304703532124`*^9, 3.743230503952559*^9, 3.743230609797349*^9,
3.743230659345324*^9, 3.743232503176585*^9, 3.743239662879141*^9,
3.7432396964774113`*^9, 3.7432398357846203`*^9, {3.743239959398622*^9,
3.743239964638369*^9}},ExpressionUUID->"c8bc8a1a-7edb-4bf3-8401-\
c89b58f107f2"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742921693566469*^9, 3.7429217919516277`*^9},
3.743221130252604*^9, {3.743221239571553*^9, 3.743221251731104*^9}, {
3.743221289458893*^9, 3.7432213035428667`*^9}, 3.743223072588331*^9,
3.7432231612608023`*^9, 3.743223192566586*^9, 3.743229987526679*^9,
3.743230199018121*^9, {3.743230249889526*^9, 3.743230269081333*^9},
3.743230332948771*^9, 3.74323039351552*^9, 3.743230425246151*^9,
3.7432304703532124`*^9, 3.743230503952559*^9, 3.743230609797349*^9,
3.743230659345324*^9, 3.743232503176585*^9, 3.743239662879141*^9,
3.7432396964774113`*^9, 3.7432398357846203`*^9, {3.743239959398622*^9,
3.743239964660324*^9}},ExpressionUUID->"f48a9ecf-9fbe-47d9-ae87-\
f8b5af6c5e0b"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742921693566469*^9, 3.7429217919516277`*^9},
3.743221130252604*^9, {3.743221239571553*^9, 3.743221251731104*^9}, {
3.743221289458893*^9, 3.7432213035428667`*^9}, 3.743223072588331*^9,
3.7432231612608023`*^9, 3.743223192566586*^9, 3.743229987526679*^9,
3.743230199018121*^9, {3.743230249889526*^9, 3.743230269081333*^9},
3.743230332948771*^9, 3.74323039351552*^9, 3.743230425246151*^9,
3.7432304703532124`*^9, 3.743230503952559*^9, 3.743230609797349*^9,
3.743230659345324*^9, 3.743232503176585*^9, 3.743239662879141*^9,
3.7432396964774113`*^9, 3.7432398357846203`*^9, {3.743239959398622*^9,
3.743239964668839*^9}},ExpressionUUID->"ec1755b9-8f51-47c9-9a0f-\
1629807636d1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]], "Output",
CellChangeTimes->{{3.742921693566469*^9, 3.7429217919516277`*^9},
3.743221130252604*^9, {3.743221239571553*^9, 3.743221251731104*^9}, {
3.743221289458893*^9, 3.7432213035428667`*^9}, 3.743223072588331*^9,
3.7432231612608023`*^9, 3.743223192566586*^9, 3.743229987526679*^9,
3.743230199018121*^9, {3.743230249889526*^9, 3.743230269081333*^9},
3.743230332948771*^9, 3.74323039351552*^9, 3.743230425246151*^9,
3.7432304703532124`*^9, 3.743230503952559*^9, 3.743230609797349*^9,
3.743230659345324*^9, 3.743232503176585*^9, 3.743239662879141*^9,
3.7432396964774113`*^9, 3.7432398357846203`*^9, {3.743239959398622*^9,
3.7432399646776123`*^9}},ExpressionUUID->"de84db82-7bcd-4321-be05-\
acdd32c5a02c"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.742921693566469*^9, 3.7429217919516277`*^9},
3.743221130252604*^9, {3.743221239571553*^9, 3.743221251731104*^9}, {
3.743221289458893*^9, 3.7432213035428667`*^9}, 3.743223072588331*^9,
3.7432231612608023`*^9, 3.743223192566586*^9, 3.743229987526679*^9,
3.743230199018121*^9, {3.743230249889526*^9, 3.743230269081333*^9},
3.743230332948771*^9, 3.74323039351552*^9, 3.743230425246151*^9,
3.7432304703532124`*^9, 3.743230503952559*^9, 3.743230609797349*^9,
3.743230659345324*^9, 3.743232503176585*^9, 3.743239662879141*^9,
3.7432396964774113`*^9, 3.7432398357846203`*^9, {3.743239959398622*^9,
3.743239964686699*^9}},ExpressionUUID->"e6a683e2-6c11-4e7d-802c-\
2b921896631b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", "\[Pi]"}], "9"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "-",
RowBox[{
FractionBox["1",
RowBox[{" ",
SqrtBox["5"]}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["c", "0"],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
SubscriptBox["c", "2"], "5"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["9", "45"],
FractionBox[
SubscriptBox["c", "2"], "5"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["9", "15"],
FractionBox[
SubscriptBox["c", "2"], "5"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "+",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}]}], ")"}]}],
"\[Equal]",
RowBox[{
FractionBox[
RowBox[{"8", "\[Pi]"}], "9"], " ",
RowBox[{"(", " ",
RowBox[{
RowBox[{
FractionBox["3", "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
FractionBox[
SubscriptBox["c", "2"], "15"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "-", " ",
RowBox[{
FractionBox["1", "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["9", "45"],
FractionBox[
SubscriptBox["c", "2"], "5"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["9", "15"],
FractionBox[
SubscriptBox["c", "2"], "5"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "+",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}]}],
")"}]}]}], "//", "Simplify"}]], "Input",
CellChangeTimes->{{3.7432309244892607`*^9, 3.7432310360686903`*^9}, {
3.743231109097535*^9, 3.743231258697278*^9}, {3.743231364454309*^9,
3.743231409370471*^9}, {3.743231900965172*^9, 3.743231986117247*^9}, {
3.7432324923575897`*^9, 3.743232492703197*^9}, {3.74323512483928*^9,
3.743235190355508*^9}, {3.74323981050996*^9, 3.743239811158902*^9}, {
3.7432398596065817`*^9, 3.743240075487534*^9}, {3.743240106386077*^9,
3.743240217956325*^9}, {3.7432406734447002`*^9,
3.743240698438498*^9}},ExpressionUUID->"5ce35750-7da9-4ff5-b83f-\
0ae5f5377437"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.743240691995799*^9,
3.74324069870498*^9}},ExpressionUUID->"7fb01024-0558-4c4e-bc04-\
f537ce36e159"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["\[InvisiblePrefixScriptBase]", "3"],
SuperscriptBox["D", "o"]}],
TraditionalForm]],ExpressionUUID->"428b48f7-9cd0-4f69-b100-8c3380ba5a83"]], \
"Subsection",
CellChangeTimes->{{3.743235924912355*^9,
3.743235950104946*^9}},ExpressionUUID->"59690161-1c60-4593-a2e7-\
c717480798c8"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "-",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "2"], "]"}],
RowBox[{"Cos", "[",
RowBox[{
SubscriptBox["\[Phi]", "1"], "-",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"4", " ", "\[Pi]"}], "3"], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "-",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(", " ",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}], "2"]}]}], "//",
"FullSimplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["\[Pi]"]}]]}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"5", " ", "\[Pi]"}]]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1", "96"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"160", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "-",
RowBox[{"80", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
SqrtBox[
FractionBox["3",
RowBox[{"10", " ", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}], ",",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "1"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
SqrtBox[
FractionBox["3",
RowBox[{"10", " ", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "}"}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "-",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "2"], "]"}],
RowBox[{"Cos", "[",
RowBox[{
SubscriptBox["\[Phi]", "1"], "-",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], ")"}], "2"], "\[Equal]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["8", "9"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "-",
FractionBox[
RowBox[{"8", " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}],
RowBox[{"9", " ",
SqrtBox["5"]}]], "-",
FractionBox[
RowBox[{"8", " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}],
RowBox[{"9", " ",
SqrtBox["5"]}]], "+",
RowBox[{
FractionBox["8", "45"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox["8", "15"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox["8", "15"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}]}]}], "//",
"FullSimplify"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.742921541073929*^9, 3.7429217915991783`*^9}, {
3.743221206846005*^9, 3.7432213027031612`*^9}, {3.743223071879881*^9,
3.7432230721557083`*^9}, {3.743223122804291*^9, 3.743223160854814*^9}, {
3.743229983868244*^9, 3.743229987103587*^9}, 3.743230196503038*^9, {
3.743230229246484*^9, 3.743230392876593*^9}, {3.74323042341105*^9,
3.743230423574142*^9}, {3.74323046932085*^9, 3.74323050342354*^9}, {
3.743230609148362*^9, 3.743230658741049*^9}, {3.743232501718238*^9,
3.743232502023597*^9}, {3.743235961240123*^9, 3.743236001680119*^9}, {
3.7432360560871887`*^9,
3.743236072427079*^9}},ExpressionUUID->"83dd638d-a3d9-4eac-9812-\
c6a4cf31efb2"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.743235997619177*^9, 3.7432360158032103`*^9}, {
3.7432360571012383`*^9,
3.74323607285853*^9}},ExpressionUUID->"b4e381d7-4a23-4e07-981a-\
8f2086d6ecb0"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.743235997619177*^9, 3.7432360158032103`*^9}, {
3.7432360571012383`*^9,
3.743236072869734*^9}},ExpressionUUID->"c0f052e7-e375-40fb-9cda-\
e30d1e386bf6"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.743235997619177*^9, 3.7432360158032103`*^9}, {
3.7432360571012383`*^9,
3.743236072878709*^9}},ExpressionUUID->"0bae4c27-c7b9-457a-8a0b-\
94924bb3d300"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]], "Output",
CellChangeTimes->{{3.743235997619177*^9, 3.7432360158032103`*^9}, {
3.7432360571012383`*^9,
3.7432360728882093`*^9}},ExpressionUUID->"c64341aa-bf6d-4dfd-8f07-\
5440230a7974"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.743235997619177*^9, 3.7432360158032103`*^9}, {
3.7432360571012383`*^9,
3.743236072897498*^9}},ExpressionUUID->"55d747c3-742f-4a1c-84a2-\
fde40e88cc5e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["8", "9"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "-",
FractionBox[
RowBox[{"8", " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}],
RowBox[{"9", " ",
SqrtBox["5"]}]], "-",
FractionBox[
RowBox[{"8", " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"9", " ",
SqrtBox["5"]}]], "+",
RowBox[{
FractionBox["8", "45"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
RowBox[{
FractionBox["8", "15"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}], "+",
RowBox[{
FractionBox["8", "15"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "==",
RowBox[{
RowBox[{
FractionBox["64", "27"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], "2"]}], "-",
RowBox[{
FractionBox["64", "27"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"],
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"27", " ",
SqrtBox["5"]}]], "-",
RowBox[{
FractionBox["64", "135"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"27", " ",
SqrtBox["5"]}]], "-",
RowBox[{
FractionBox["64", "135"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "-",
RowBox[{
FractionBox["64", "135"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"135", " ",
SqrtBox["5"]}]], "-",
RowBox[{
FractionBox["64", "135"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], "2"]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], "2"]}],
RowBox[{"135", " ",
SqrtBox["5"]}]], "+",
RowBox[{
FractionBox["64", "45"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}], "-",
RowBox[{
FractionBox["64", "45"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}],
RowBox[{"45", " ",
SqrtBox["5"]}]], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}],
RowBox[{"45", " ",
SqrtBox["5"]}]], "+",
RowBox[{
FractionBox["64", "45"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "-",
RowBox[{
FractionBox["64", "45"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"45", " ",
SqrtBox["5"]}]], "+",
FractionBox[
RowBox[{"64", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",",
RowBox[{"-", "2"}]}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "2"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}],
RowBox[{"45", " ",
SqrtBox["5"]}]]}]}], "//", "FullSimplify"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.743236087870112*^9,
3.743236258450646*^9}},ExpressionUUID->"e4ec2f88-e321-4297-8368-\
7cf33b0e5d5e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}]}], ")"}]}], "-",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}]}], ")"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{"(",
RowBox[{"5", "+",
RowBox[{"4", " ",
SqrtBox["5"], " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}]}], "-",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"5", " ", "\[Pi]"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], "+",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Pi]", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "1"], "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], "+",
RowBox[{
SqrtBox["5"], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}]}], ")"}]}]}],
"\[Equal]", "0"}]], "Output",
CellChangeTimes->{3.743236150702338*^9,
3.743242100431136*^9},ExpressionUUID->"468a3fca-bc22-4dbe-ba2e-\
d09f5efde874"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Triplet D state", "Subsection",
CellChangeTimes->{{3.742903401180684*^9, 3.742903403606084*^9}, {
3.742918347228277*^9, 3.742918347362217*^9},
3.7429860324223146`*^9},ExpressionUUID->"eac4bda2-189e-42f0-81dc-\
51e5ebbd2f4a"],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalPhi]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "=",
RowBox[{
RowBox[{
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}],
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "\t",
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"]}], "=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}], "\t",
SubscriptBox["c", "\[ScriptL]"]}]}], "=",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}], "2"],
RowBox[{
SubsuperscriptBox["\[Integral]", "0", "\[Pi]"],
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
RowBox[{"Sin", "[", "\[Gamma]", "]"}],
RowBox[{"\[DifferentialD]", "\[Gamma]"}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.742897993868801*^9, 3.7428981067548847`*^9}, {
3.742898182660631*^9,
3.742898271183833*^9}},ExpressionUUID->"17b135d5-7e41-4643-b4bb-\
f3eea5ce1e51"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Rho]", "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{"2",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "2"],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "=",
RowBox[{"8", "\[Pi]",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}], "\[Infinity]"],
RowBox[{
FractionBox[
SubscriptBox["c", "\[ScriptL]"],
RowBox[{
RowBox[{"2", "\[ScriptL]"}], "+", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=",
RowBox[{"-", "\[ScriptL]"}]}], "\[ScriptL]"],
RowBox[{
RowBox[{
SubsuperscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}], "*"], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}]}]}]}]}]}]}]], "Input",\
CellChangeTimes->{{3.742898286664424*^9, 3.7428983914044456`*^9}, {
3.7429901583001747`*^9,
3.7429901628375263`*^9}},ExpressionUUID->"14802bea-9955-4893-8c9c-\
a17bac458ece"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}], "=",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"\[ScriptL]", ",", "m"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"4", "\[Pi]"}]],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "-",
RowBox[{"2", " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}]}], "+",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "2"], "]"}], "2"]}], ")"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t\t\t\t\t ",
RowBox[{"=",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"4", "\[Pi]"}]],
SubscriptBox["c", "0"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"5", " ", "\[Pi]"}]], " ",
FractionBox[
SubscriptBox["c", "2"], "5"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], ")"}]}], "+",
" ",
RowBox[{"4", "\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"4", " ", "\[Pi]"}]]],
SubscriptBox["c", "0"]}], "+",
RowBox[{
FractionBox["1", "7"], " ",
SqrtBox[
FractionBox["5", "\[Pi]"]], " ",
FractionBox[
SubscriptBox["c", "2"], "5"]}], "+",
RowBox[{
FractionBox[
RowBox[{"3", " "}],
RowBox[{"7", " ",
SqrtBox["\[Pi]"]}]],
FractionBox[
SubscriptBox["c", "4"], "9"]}]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}],
"2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t\t\t\t\t ",
RowBox[{"=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
SubscriptBox["c", "0"]}], "+",
RowBox[{
FractionBox["18", "7"], " ",
SqrtBox[
FractionBox["\[Pi]", "5"]], " ",
SubscriptBox["c", "2"]}], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox["\[Pi]"], " ",
SubscriptBox["c", "4"]}], "21"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "-",
RowBox[{"2", " ",
SqrtBox[
FractionBox["\[Pi]", "5"]], " ",
SubscriptBox["c", "2"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}], "+",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "2"]}]}]}]}]}], "Input",
CellChangeTimes->{{3.742898559305214*^9, 3.7428985732593737`*^9}, {
3.7428986183390417`*^9, 3.742898668556341*^9}, {3.742898891156012*^9,
3.7428989301880617`*^9}, {3.7428993174640627`*^9, 3.742899416229143*^9}, {
3.7428994864779387`*^9, 3.742899491064481*^9}, 3.7429886359329147`*^9,
3.7429900484723463`*^9, {3.742990166278675*^9, 3.742990237918317*^9}, {
3.7429902717689734`*^9, 3.742990293829607*^9}, {3.74299036171*^9,
3.742990367572699*^9}},ExpressionUUID->"d3a6ec1b-6a01-430d-947f-\
8f0e2ffa4abc"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Simplify", "[",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}], "2"]}], ")"}], "2"], "\[Equal]",
" ",
RowBox[{
FractionBox[
RowBox[{"16", "\[Pi]"}], "45"],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "-",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], ")"}], "2"]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
FractionBox[
SqrtBox["5"], "2"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"4", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "\[Equal]",
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{"(",
FractionBox[
RowBox[{"3", " "}],
RowBox[{"16", " ",
SqrtBox["\[Pi]"]}]], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"12", "\[Pi]", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "-",
RowBox[{"30", " ",
FractionBox[
RowBox[{"4", "\[Pi]"}], "3"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["35", "9"],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"16", " ", "\[Pi]"}], "5"],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{"8",
SqrtBox[
FractionBox["\[Pi]", "5"]],
SqrtBox[
RowBox[{"4", "\[Pi]"}]],
FractionBox[
SqrtBox["5"], "2"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], ")"}]}], "+",
RowBox[{"4", "\[Pi]", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}]}]}],
")"}]}]}], "//", "Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"4", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"5", " ", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"4", " ", "\[Pi]"}]]],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox["1", "7"], " ",
SqrtBox[
FractionBox["5", "\[Pi]"]], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "+",
RowBox[{
FractionBox[
RowBox[{"3", " "}],
RowBox[{"7", " ",
SqrtBox["\[Pi]"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"4", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}]}], "//",
"Simplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}], "2"]}], ")"}], "2"], "\[Equal]",
RowBox[{
FractionBox[
RowBox[{"32", " ", "\[Pi]"}], "45"],
RowBox[{"(", " ",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox[
SqrtBox["5"], "7"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}]}], "-", " ",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+",
RowBox[{
FractionBox["3", "7"],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"4", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}], "+", " ",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"4", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",",
SubscriptBox["\[Phi]", "2"]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "//",
"Simplify"}]}], "Input",
CellChangeTimes->{{3.742880368692409*^9, 3.7428804029481373`*^9}, {
3.742880525109131*^9, 3.7428805458700542`*^9}, {3.742898467130229*^9,
3.7428985242579517`*^9}, {3.7428992114127827`*^9, 3.742899287783554*^9}, {
3.7429000811947393`*^9, 3.742900096336309*^9}, {3.7429001529365797`*^9,
3.742900153845666*^9}, {3.7429004278822927`*^9, 3.742900428277691*^9}, {
3.74298603971874*^9, 3.7429860419785643`*^9}, 3.742986079185611*^9,
3.7429861263095503`*^9, {3.7429861707391243`*^9, 3.742986176886547*^9}, {
3.742988127917576*^9, 3.7429881333292313`*^9}, {3.7429884518630743`*^9,
3.742988466927435*^9}, {3.742988614273793*^9, 3.742988621922674*^9}, {
3.742988949793998*^9, 3.7429889765908937`*^9}, {3.742989035521098*^9,
3.742989036038781*^9}, {3.742989066504467*^9, 3.742989077787426*^9}, {
3.742989120733507*^9, 3.742989125869351*^9}, {3.742989158533863*^9,
3.742989165084914*^9}, {3.7429892546397333`*^9, 3.742989256945628*^9}, {
3.74298965374714*^9, 3.742989684099773*^9}, 3.742989723248888*^9,
3.742989769652746*^9, 3.742990034250306*^9, {3.742990088379957*^9,
3.742990101236594*^9}, {3.74299030724561*^9, 3.742990327161159*^9}, {
3.7429907017821703`*^9, 3.74299072239389*^9}, {3.7429908205311613`*^9,
3.7429908668042183`*^9}, {3.742990911350947*^9, 3.7429909369698267`*^9}, {
3.742990986407577*^9, 3.742991149240193*^9}, {3.742991181429986*^9,
3.7429911879128942`*^9}, {3.742991228402446*^9, 3.742991283398488*^9}, {
3.7429913939451714`*^9, 3.742991452973744*^9}, {3.743012976931136*^9,
3.743012981788251*^9}, {3.743014002358323*^9, 3.743014005210388*^9}, {
3.743014104919067*^9, 3.743014159696444*^9}, {3.74301459429853*^9,
3.743014634843196*^9}, {3.743015160912546*^9, 3.743015175544134*^9}, {
3.7430158664921703`*^9, 3.7430158941204767`*^9}, {3.743242363536222*^9,
3.743242389796681*^9}},ExpressionUUID->"9bfbd342-26ab-4960-b0c1-\
6d30bc401946"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.743242390346169*^9},ExpressionUUID->"bad42b6b-febc-423c-b781-\
8e8f634645b2"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.743242390358519*^9},ExpressionUUID->"08268186-e6a0-4d08-92db-\
7368a97e5b15"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.7432423903674*^9},ExpressionUUID->"14e5cd70-74bd-402b-9647-758b00e98438"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.7432423903763742`*^9},ExpressionUUID->"a1021d01-c1ea-43ff-815d-\
85bf1860cda5"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.743242390470005*^9},ExpressionUUID->"a6228c72-c3ab-4a4b-a7dd-\
114c74203722"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.742990035044002*^9, {3.742990089298437*^9, 3.742990101821583*^9}, {
3.74299031120933*^9, 3.742990327878141*^9}, {3.74299070268925*^9,
3.7429907228016376`*^9}, {3.74299084137978*^9, 3.742990867547271*^9}, {
3.742990919780897*^9, 3.742990937796235*^9}, {3.742990999884145*^9,
3.742991032479315*^9}, {3.742991086930072*^9, 3.742991150291108*^9},
3.742991188683301*^9, {3.7429912342502527`*^9, 3.742991284798403*^9}, {
3.742991402090814*^9, 3.742991453961009*^9}, 3.743012984577449*^9, {
3.743014110712698*^9, 3.743014160015524*^9}, {3.7430146058709993`*^9,
3.7430146353393784`*^9}, {3.743015162920779*^9, 3.743015175881279*^9}, {
3.743015887754745*^9, 3.743015894566107*^9},
3.743242390489365*^9},ExpressionUUID->"449b7df1-0d75-4d67-925c-\
350cdef9600b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{"32", " ", "\[Pi]"}], "45"],
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["c", "0"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox[
SqrtBox["5"], "7"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}], "-",
RowBox[{
FractionBox[
SubscriptBox["c", "2"], "5"], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["3", "7"],
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "+",
FractionBox[
SubscriptBox["c", "4"], "9"]}], " ", ")"}],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], " ",
RowBox[{
SubscriptBox["Y",
RowBox[{"4", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}], ")"}]}], "==",
RowBox[{
FractionBox[
RowBox[{"16", " ", "\[Pi]"}], "45"],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
FractionBox[
SubscriptBox["c", "2"], "7"], "-",
FractionBox[
RowBox[{"2", " ",
SubscriptBox["c", "4"]}], "63"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
FractionBox["1", "7"],
RowBox[{"(",
RowBox[{
SubscriptBox["c", "2"], "-",
FractionBox[
RowBox[{"5", " ",
SubscriptBox["c", "4"]}], "9"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
FractionBox[
RowBox[{"2", " ",
SubscriptBox["c", "2"]}], "5"], "+",
FractionBox[
SubscriptBox["c", "4"], "9"]}], ")"}], " ",
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "2"]}]}], ")"}]}]}], "//",
"Simplify"}]], "Input",
CellChangeTimes->{{3.743242411599864*^9, 3.743242542176011*^9}, {
3.7432426464259987`*^9,
3.743242663769794*^9}},ExpressionUUID->"f27d4a85-2a37-4803-a443-\
435791839d08"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.7432425122523003`*^9, 3.743242543096746*^9, {3.7432426562822657`*^9,
3.7432426685230703`*^9}},ExpressionUUID->"2dc3a301-69c8-4267-acd1-\
185a7e3220d5"]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n_"], "[", "u_", "]"}], "=",
SuperscriptBox["u",
RowBox[{"n", "-", "1"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "10"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"H", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["u", "2"],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-", "1"}], ")"}],
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[DoublePrime]"], "[", "u",
"]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"7", "u"}],
RowBox[{"4",
SuperscriptBox["R", "2"]}]], "-",
FractionBox["3", "u"]}], ")"}], " ",
RowBox[{
SubsuperscriptBox["\[Psi]", "j", "\[Prime]"], "[", "u", "]"}]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["1", "u"], "+",
FractionBox["3",
SuperscriptBox["R", "2"]]}], ")"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}]}]}], ")"}], "u",
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"S", "[", "R_", "]"}], "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubsuperscriptBox["\[Integral]", "0",
RowBox[{"2", "R"}]],
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "i"], "[", "u", "]"}],
RowBox[{
SubscriptBox["\[Psi]", "j"], "[", "u", "]"}], "u",
RowBox[{"\[DifferentialD]", "u"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "M"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "M"}], "}"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.742918604620111*^9, 3.7429186131351423`*^9},
3.742918719955948*^9, {3.74291885295679*^9, 3.742918854648775*^9},
3.742922362967875*^9, 3.742980439148241*^9, 3.742980540306929*^9, {
3.742994989188118*^9, 3.742995016518692*^9}, {3.742995150772037*^9,
3.7429951513978567`*^9}, 3.7429952985264072`*^9, {3.74299538074587*^9,
3.7429953808123302`*^9}, {3.742996132486848*^9, 3.7429961349036427`*^9},
3.7429963078815823`*^9, {3.742996660743409*^9, 3.742996660843338*^9}, {
3.742996945034573*^9, 3.742996945161457*^9}, 3.7430081967857656`*^9,
3.743009059579871*^9, 3.743009234820531*^9, 3.743009382026333*^9, {
3.7430094920285807`*^9, 3.74300951455619*^9}, 3.74300961041049*^9,
3.743009666438663*^9, {3.7430098539824047`*^9, 3.743009854170718*^9},
3.743009922023739*^9, 3.743011705512869*^9, {3.743012282155789*^9,
3.74301230752779*^9}, 3.819448341004202*^9, 3.8194484732834682`*^9},
CellLabel->"In[38]:=",ExpressionUUID->"17d3180a-586b-41af-a83f-6e20a124c592"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "10"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"tab", "=",
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"\[Epsilon]", ",", "c"}], "}"}], "=",
RowBox[{"SortEigensystem", "[",
RowBox[{"Eigensystem", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"H", "[", "R", "]"}], ",", "100"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{
RowBox[{"S", "[", "R", "]"}], ",", "100"}], "]"}]}], "}"}],
"]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"f", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
SubscriptBox["\[Psi]", "n"], "[",
RowBox[{"2", " ", "R", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "M"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"\[ScriptL]", "+",
FractionBox["1", "2"]}], ")"}],
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["P", "\[ScriptL]"], "[",
RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}], ")"}], "2"],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "15"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",", "4"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"\[Rho]", "=",
RowBox[{"Normalize", "[", "\[Rho]", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Chop", "[",
RowBox[{"{",
RowBox[{
RowBox[{"N", "[", "R", "]"}], ",",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["5", "9"], " ",
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "5",
"\[RightDoubleBracket]"}]}]}], ",",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{
FractionBox["2", "5"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}]}], "+",
RowBox[{
FractionBox["1", "9"],
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1",
"\[RightDoubleBracket]"}]}]}]}], "}"}], "]"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"tab", "\[LeftDoubleBracket]",
RowBox[{";;", ",",
RowBox[{"{",
RowBox[{"1", ",", "2"}], "}"}]}], "\[RightDoubleBracket]"}], ",",
RowBox[{"tab", "\[LeftDoubleBracket]",
RowBox[{";;", ",",
RowBox[{"{",
RowBox[{"1", ",", "3"}], "}"}]}], "\[RightDoubleBracket]"}]}], "}"}],
",",
RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
CellChangeTimes->{
3.7169719668102694`*^9, 3.725887849338797*^9, {3.725887899762218*^9,
3.725887922914515*^9}, {3.725887992098515*^9, 3.725888054354484*^9}, {
3.725888190363358*^9, 3.725888220466589*^9}, {3.725888405954722*^9,
3.7258884143609447`*^9}, {3.725888474666101*^9, 3.725888479977105*^9}, {
3.725888867994993*^9, 3.725888870697344*^9}, {3.7258889297858877`*^9,
3.725888934808717*^9}, {3.725888967938243*^9, 3.725889013634396*^9}, {
3.725889098059265*^9, 3.725889127921206*^9}, {3.725948058954719*^9,
3.7259480590574303`*^9}, 3.72594816605788*^9, {3.7259484228037577`*^9,
3.7259484452333307`*^9}, {3.7428020644337606`*^9,
3.7428020663834143`*^9}, {3.74280212730392*^9, 3.74280222326132*^9},
3.742813402384555*^9, {3.7428134755684967`*^9, 3.742813490200959*^9},
3.742814183560895*^9, {3.742819919975389*^9, 3.742819921001403*^9}, {
3.7428199815500298`*^9, 3.742819983199623*^9}, {3.742877775652999*^9,
3.7428779074014883`*^9}, {3.7428779855771227`*^9, 3.742878008161315*^9}, {
3.7428782383972187`*^9, 3.742878269832116*^9}, {3.742878722461308*^9,
3.7428787571128817`*^9}, {3.742878822183488*^9, 3.742878822578849*^9}, {
3.7428788828839493`*^9, 3.7428788901191797`*^9}, {3.74287901611771*^9,
3.742879142617798*^9}, {3.742879199059029*^9, 3.7428791995390997`*^9},
3.742901214891993*^9, {3.74290164400101*^9, 3.742901906207686*^9}, {
3.742901977623595*^9, 3.742902002095676*^9}, {3.742902032247851*^9,
3.742902129781516*^9}, {3.742902162525971*^9, 3.74290222166597*^9}, {
3.742902276796481*^9, 3.742902287956953*^9}, {3.74290235927039*^9,
3.7429024146277122`*^9}, {3.7429024507177353`*^9,
3.7429025388586197`*^9}, {3.742903006310214*^9, 3.7429030105077744`*^9}, {
3.742903134891645*^9, 3.742903234602419*^9}, {3.742903317285879*^9,
3.7429033173754187`*^9}, {3.742903361602311*^9, 3.74290336281636*^9}, {
3.742905076823636*^9, 3.7429050778905582`*^9}, {3.742918166486006*^9,
3.742918220012596*^9}, {3.742918311916502*^9, 3.742918313196629*^9}, {
3.7429183606868353`*^9, 3.742918373040654*^9}, 3.742918421383092*^9, {
3.742918494233326*^9, 3.742918623848249*^9}, {3.74291880637696*^9,
3.7429188584054213`*^9}, {3.742918994743949*^9, 3.742919000933652*^9}, {
3.742919057477284*^9, 3.7429190853953876`*^9}, {3.742919151618346*^9,
3.742919208160902*^9}, {3.742920743629745*^9, 3.742920743849949*^9},
3.742922144965681*^9, {3.742922177083435*^9, 3.742922183503256*^9},
3.742922225061594*^9, 3.742922262893311*^9, {3.742922314745081*^9,
3.7429223742620287`*^9}, {3.74292246647335*^9, 3.742922597303072*^9}, {
3.742922649922433*^9, 3.7429226518828707`*^9}, {3.742923296115052*^9,
3.742923318322493*^9}, {3.742980141599243*^9, 3.74298028080587*^9}, {
3.742980310806139*^9, 3.7429803255358543`*^9}, {3.742980357754479*^9,
3.742980398957408*^9}, {3.7429804420837727`*^9, 3.7429804467641287`*^9}, {
3.742980541432966*^9, 3.742980548122097*^9}, {3.742980578285955*^9,
3.742980578400919*^9}, {3.7429806326930037`*^9, 3.742980650442853*^9}, {
3.742980694195736*^9, 3.742980749099784*^9}, {3.742981142831009*^9,
3.742981146671338*^9}, {3.742995040906142*^9, 3.7429950736953487`*^9}, {
3.742995103988391*^9, 3.742995134262944*^9}, {3.742995247787807*^9,
3.742995324266892*^9}, {3.742995360656518*^9, 3.742995384384591*^9}, {
3.7429954237133417`*^9, 3.742995433990855*^9}, {3.74299547198099*^9,
3.742995484920415*^9}, {3.742995760731353*^9, 3.7429957673259373`*^9}, {
3.742995847653798*^9, 3.7429958543557777`*^9}, {3.7429960931764708`*^9,
3.742996100192951*^9}, {3.742996300021468*^9, 3.742996312749928*^9}, {
3.742996623983343*^9, 3.742996683485918*^9}, {3.742996763260223*^9,
3.7429967667513227`*^9}, {3.742996823435986*^9, 3.742996947881322*^9}, {
3.7429969858904467`*^9, 3.7429969890918093`*^9}, {3.742997154797719*^9,
3.742997179630937*^9}, {3.742997221183319*^9, 3.7429972234251423`*^9}, {
3.742997256190982*^9, 3.742997295285985*^9}, {3.742997325738884*^9,
3.7429973513749123`*^9}, {3.74299738735357*^9, 3.7429974112679663`*^9}, {
3.742997461552939*^9, 3.7429974669219646`*^9}, {3.743008210683326*^9,
3.743008225538146*^9}, 3.743009057265111*^9, {3.743009239073036*^9,
3.7430092656499767`*^9}, {3.743009361125576*^9, 3.743009373039097*^9}, {
3.7430094955856752`*^9, 3.7430095437002373`*^9}, {3.7430096137618933`*^9,
3.743009669733102*^9}, {3.743009863885*^9, 3.7430099872406483`*^9}, {
3.743010046219955*^9, 3.743010048241816*^9}, {3.7430103170795507`*^9,
3.743010344854659*^9}, {3.743011088494897*^9, 3.7430111264389553`*^9}, {
3.7430111611489353`*^9, 3.743011161959427*^9}, {3.743011716328226*^9,
3.7430117899482517`*^9}, {3.743011834479101*^9, 3.743011843089284*^9}, {
3.743012369035474*^9, 3.7430124950847063`*^9}, {3.7430153810128*^9,
3.7430155810205812`*^9}, {3.7430156217096233`*^9,
3.7430156592999067`*^9}, {3.743016498555264*^9, 3.743016521049993*^9}, {
3.743016567918239*^9, 3.743016589484662*^9}, {3.743017337660697*^9,
3.7430173705891113`*^9}, {3.743017472981872*^9, 3.7430174949264183`*^9}, {
3.743049426352824*^9, 3.743049462340137*^9}, {3.743049515767*^9,
3.743049532564899*^9}, {3.7430495813737097`*^9, 3.743049625292449*^9}, {
3.743049662050229*^9, 3.743049691793056*^9}, 3.743049918773452*^9, {
3.743050058713081*^9, 3.743050090033937*^9}, {3.743050142594883*^9,
3.74305016311656*^9}, {3.7430502085142813`*^9, 3.7430502178348913`*^9},
3.74305026397199*^9, {3.743050578043778*^9, 3.743050605922763*^9}, {
3.819448286225428*^9, 3.81944833030002*^9}, 3.8194493548537903`*^9, {
3.819461124517785*^9, 3.819461125384673*^9}, 3.819461243348475*^9},
CellLabel->"In[42]:=",ExpressionUUID->"e8a12bd0-24b7-41d6-8141-13207367f442"],
Cell[BoxData[
GraphicsBox[{{}, {{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQEmB156ihVovVxmD+EbHyhne33ujNtKKN/oQL3v
4l5GtjVQvuEBwzyT1VI266F8gwPefdy+LE0boXy9A79mHD/HcmAzlK9zwGZe
5tXHudugfK0DFvdcVmYu3wnlaxyw2eHV1d2/F8pXOzC5RP57k8ZBKF/lQHiG
eFUy3xEoX+lAwU7HN14Tj0P5CgdOv2Zsytx3GsqXOVDLLqb8x+EClC9xYLL+
zVe79l+C8kUOfL+tfiD27RUoX+BARfCurHKGa1A+x4H3/nfP5x+ByTMcOFnW
v+XJ1vNQ/of9N781M9y13QeTRwMf7Df8WsbtprpmP1TA4eBygVUfuNdC+RwO
hu27X9RWzoPyBRzqf11p7rZtgbnPoT6M6dCZptUw9zt0zt1+0/fXDpj/HPR4
Lj6VuQ4LHwWHyIzZDWsvHoOFjwNX09Wbqsmw8FBxuP010GNJN8z9ag4+d12W
8a24CAt/h7k3b6XfiL4Mix8HXo6GIrmnMP/rOPxvWXHsnDssfPQcbq6SerC0
/Tos/h0aNPu7JVbcgKUPh+/Oe/R81tyEpR8HruDJV8Sm34KlL4fmhw9NmbNv
Q/kmDo84nGaHad2xBwCXwsCN
"]]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEmBz79vvD3+6qN+yF84wPzr3H2fl8M4xsdWFnK
4eo6C8Y3PPAsYO2rXT0wvsEBXrnMglmVML7eAUfjR/cM4mB8nQPhX/1ETc1g
fK0DywQjdiz/tQHK1ziQbeYTvH8+jK92wPHv1sUfBGB8lQMW1jcuWwatg/KV
DnCuqpkx03U1lK9wQGXxufP1H5ZC+TIHHOI1vHZOmgHlSxwocZe4dTu9zR7C
FzmwJmHDa7/8zVC+wIHtxxJu77h0AsrnOPC9Wle/xvkmlM9w4ITSMeeGr0+h
/A/77Y/xvymye28PAPRxbP0=
"]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7FM2yLbE1Hy0hwo4FH6IOBJh8QHK53CQ2zRP
VGbWWyhfwOHTVE3btT9eQfkiDh99pq2OXP4CypdwyNnOrcy4+BmUL+MgY554
o/HhEyhfwaHNkdU4IuIxlK/k8Pa427egfw+hfBWHE/lZepdOP4Dy1RyKy7z+
W5feh/I1HJba7twR0H0Xytdy4JrSdHbJxdtQvo6DluwJyXLHW1C+noOs5Ct+
06s3oHwDh41XrnTZdlyH8g0d8les498Ydg3KN3JQmrqwycf2KpRv7HDUrfe5
t+UVKN/E4SZjT2Cwx2V7ANcnWZY=
"]]}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]}, {}, {}, {}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.011000000000000001`], AbsoluteThickness[1.6]}, {}, {}, {}}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImageSize->{821.2421875, Automatic},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{-20., 20.}, {-0.06901502558410735, 1.092861667707461}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.7430123811424637`*^9, 3.743012408192389*^9}, {
3.7430124387563047`*^9, 3.743012508045164*^9}, {3.7430154219485817`*^9,
3.743015452598775*^9}, {3.743015490869273*^9, 3.743015590126574*^9}, {
3.743015634807576*^9, 3.743015676803303*^9}, 3.743016540493622*^9, {
3.743016579584977*^9, 3.74301659848284*^9}, 3.743017504154944*^9, {
3.743049470930752*^9, 3.7430494941500807`*^9}, {3.743049533404334*^9,
3.743049546355226*^9}, {3.743049615424395*^9, 3.743049644042947*^9},
3.743049688622527*^9, 3.743049735290845*^9, {3.743050075077178*^9,
3.743050118654882*^9}, {3.74305015232526*^9, 3.743050173216238*^9},
3.743050228261497*^9, 3.743050274432351*^9, {3.7430505492426453`*^9,
3.7430505625451717`*^9}, {3.7430505977198277`*^9, 3.743050624288727*^9},
3.819448332544907*^9, 3.819448474023838*^9, 3.8194485230467*^9,
3.819449404013495*^9, 3.819461183333342*^9, 3.819461295735427*^9},
CellLabel->"Out[43]=",ExpressionUUID->"6cf12868-5980-4ee9-9f5e-473067fd4e9d"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1280, 755},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 13, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"8b8f66d5-74ef-4f00-a943-e92faec4ee0a"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 157, 3, 98, "Title",ExpressionUUID->"f14a9b83-4155-4933-b4bd-86482283a3f0"],
Cell[740, 27, 574, 12, 68, "Input",ExpressionUUID->"f63df8ff-a805-43cf-b25e-970437446449",
InitializationCell->True],
Cell[1317, 41, 593, 16, 46, "Input",ExpressionUUID->"06b69520-f042-4fc6-9314-22d2e79542d6",
InitializationCell->True],
Cell[1913, 59, 549, 16, 46, "Input",ExpressionUUID->"a8c11cd4-a9a5-4079-8595-5294b1fb94c7",
InitializationCell->True],
Cell[2465, 77, 484, 12, 49, "Input",ExpressionUUID->"e29c6d12-164d-461c-b102-761d687a35f0",
InitializationCell->True],
Cell[2952, 91, 470, 11, 49, "Input",ExpressionUUID->"74769596-3e6e-4ca2-8edd-d3dad7f9f8d1",
InitializationCell->True],
Cell[3425, 104, 439, 10, 49, "Input",ExpressionUUID->"1fff622e-e162-45b8-93d8-03e2f95f6a4a",
InitializationCell->True],
Cell[3867, 116, 2202, 63, 69, "Input",ExpressionUUID->"7fc2e2a8-1267-4aa2-acf5-d2d12a58563c",
InitializationCell->True],
Cell[6072, 181, 296, 8, 49, "Input",ExpressionUUID->"76897437-158e-48b2-bca0-c92679d71862",
InitializationCell->True],
Cell[6371, 191, 246, 6, 49, "Input",ExpressionUUID->"751041e2-0753-48c1-aa6c-9f69333e4db7",
InitializationCell->True],
Cell[6620, 199, 879, 25, 49, "Input",ExpressionUUID->"f13406bf-d041-4fbb-823f-f514d04fe27c",
InitializationCell->True],
Cell[7502, 226, 315, 7, 46, "Input",ExpressionUUID->"183ae429-a997-4f0d-baef-2a20bbc5c8ff",
InitializationCell->True],
Cell[7820, 235, 1716, 51, 77, "Input",ExpressionUUID->"2fd619d6-5e78-47b6-adfc-2c3a75428669",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[9573, 291, 226, 4, 72, "Title",ExpressionUUID->"c626dffe-68a4-4be1-b83c-a98638c384be"],
Cell[CellGroupData[{
Cell[9824, 299, 161, 3, 67, "Section",ExpressionUUID->"e0a5c645-2143-460d-a4e6-085c89e142f8"],
Cell[CellGroupData[{
Cell[10010, 306, 3716, 104, 118, "Input",ExpressionUUID->"18ee6744-3e3b-4677-9588-1803214665ac"],
Cell[13729, 412, 3605, 105, 98, "Output",ExpressionUUID->"cbca8ed1-5d8f-4e61-8033-cf95096b7059"]
}, Open ]],
Cell[CellGroupData[{
Cell[17371, 522, 3842, 109, 125, "Input",ExpressionUUID->"ea189845-c47e-4753-ae12-0c29bb7fe966"],
Cell[21216, 633, 2907, 81, 119, "Output",ExpressionUUID->"92d6db72-9f08-4355-8160-14f066aceceb"]
}, Open ]],
Cell[CellGroupData[{
Cell[24160, 719, 2154, 64, 63, "Input",ExpressionUUID->"c2d3be71-50b2-4d02-bc7c-fa8422bb9511"],
Cell[26317, 785, 943, 29, 56, "Output",ExpressionUUID->"3a86ae5d-84b5-4de4-bf01-e2f7182357aa"]
}, Open ]],
Cell[CellGroupData[{
Cell[27297, 819, 2113, 62, 63, "Input",ExpressionUUID->"6d246081-7c23-4031-b117-f6e9dbc0e0a0"],
Cell[29413, 883, 981, 24, 65, "Output",ExpressionUUID->"3f1ab4cb-673d-4ce6-aaea-91d682381bce"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30443, 913, 192, 3, 53, "Section",ExpressionUUID->"f857da23-6512-4a44-801c-0238416ec25a"],
Cell[30638, 918, 582, 11, 35, "Text",ExpressionUUID->"2556e3c0-3c07-46c8-a4f0-e0d5f873e557"],
Cell[31223, 931, 468, 14, 46, "Input",ExpressionUUID->"52f037c3-c011-4459-9ec6-6f496c768a58"],
Cell[31694, 947, 1494, 39, 67, "Input",ExpressionUUID->"e939f164-90ed-4275-8c20-a3c9b35f02a0"],
Cell[33191, 988, 1322, 35, 67, "Input",ExpressionUUID->"abec2db9-74cd-44ab-8e15-ec3c2d9acd58"],
Cell[34516, 1025, 1045, 31, 67, "Input",ExpressionUUID->"6245dfde-4373-46ac-8f56-97c43c57cefd"]
}, Closed]],
Cell[CellGroupData[{
Cell[35598, 1061, 697, 10, 53, "Section",ExpressionUUID->"d36161d9-7065-4d0c-9aa3-9e184ff60f78"],
Cell[CellGroupData[{
Cell[36320, 1075, 509, 8, 54, "Subsection",ExpressionUUID->"caba0f41-e4c2-48bd-b7f9-f49d444689e8"],
Cell[36832, 1085, 1902, 45, 53, "Input",ExpressionUUID->"19db6ad5-bc03-487e-a573-966ce5a1e931"],
Cell[CellGroupData[{
Cell[38759, 1134, 1804, 46, 53, "Input",ExpressionUUID->"6cb4dcc6-ee3c-42a3-83e3-235f526f9182"],
Cell[40566, 1182, 280, 5, 34, "Output",ExpressionUUID->"7a5608ac-da7f-4146-9663-314f8a925eb7"]
}, Open ]],
Cell[40861, 1190, 2101, 56, 49, "Input",ExpressionUUID->"4538602f-e656-4a1f-8b53-fef84aa71ecb"],
Cell[42965, 1248, 6017, 123, 282, "Input",ExpressionUUID->"1fc2dedb-8f1a-403e-a7e1-c8dbd76bc9e5"]
}, Closed]],
Cell[CellGroupData[{
Cell[49019, 1376, 490, 7, 38, "Subsection",ExpressionUUID->"bdb8d3b4-c988-408c-865f-6a4aaefec0cc"],
Cell[CellGroupData[{
Cell[49534, 1387, 9360, 179, 332, "Input",ExpressionUUID->"fd4d7d77-fd44-443b-a877-600297ee2a20"],
Cell[58897, 1568, 1753, 31, 196, "Print",ExpressionUUID->"eddb80e0-8314-4b81-a073-134184dae11a"],
Cell[60653, 1601, 711, 14, 37, "Output",ExpressionUUID->"77e73b0a-4204-439b-880c-363ddd8df3f0"],
Cell[61367, 1617, 1780, 45, 242, "Output",ExpressionUUID->"e954db0b-9de5-4b95-884f-97be0d9ee069"]
}, Open ]],
Cell[63162, 1665, 248, 5, 30, "Input",ExpressionUUID->"2a334965-e048-4730-b8d2-934066eee580"],
Cell[63413, 1672, 370, 12, 48, "Input",ExpressionUUID->"7e0bdb5b-809c-478e-a3d8-bbaf3faf9a2a"],
Cell[63786, 1686, 670, 19, 45, "Input",ExpressionUUID->"efa3f2c4-c56a-4f0d-a231-57f12b695850"],
Cell[64459, 1707, 419, 12, 54, "Input",ExpressionUUID->"6d2eae8e-6c4d-48f2-a1b2-4de4ecc2600b"],
Cell[64881, 1721, 499, 14, 48, "Input",ExpressionUUID->"ae82bc8b-92a9-43b2-ac92-6cd163b82739"],
Cell[65383, 1737, 1953, 45, 98, "Input",ExpressionUUID->"87275d0e-03a0-4d3c-9d6f-87d7d86f1997"],
Cell[CellGroupData[{
Cell[67361, 1786, 3013, 81, 63, "Input",ExpressionUUID->"3a93abe4-2ad3-486e-8c6e-7fdc2391862f"],
Cell[70377, 1869, 1192, 22, 34, "Output",ExpressionUUID->"3f0af36f-5a14-4009-9228-7f92279f21fd"]
}, Open ]],
Cell[CellGroupData[{
Cell[71606, 1896, 8927, 172, 325, "Input",ExpressionUUID->"d1b1610f-85af-4346-ac50-e489107603e8"],
Cell[80536, 2070, 2691, 64, 56, "Output",ExpressionUUID->"d46330e7-34f6-4fd6-87c7-9d62e37f39f0"],
Cell[83230, 2136, 2830, 58, 240, "Output",ExpressionUUID->"a1eff725-6cd6-4766-9c48-e4596ad8fcd8"]
}, Open ]],
Cell[CellGroupData[{
Cell[86097, 2199, 2391, 67, 205, "Input",ExpressionUUID->"312998b8-f34f-4d8f-ada8-529ce8e4fc92"],
Cell[88491, 2268, 1880, 62, 77, "Output",ExpressionUUID->"732834ed-bb17-43bb-807d-6b18ef0060a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[90408, 2335, 6643, 173, 162, "Input",ExpressionUUID->"2016af84-5098-4a00-a783-f0d93f8c9ba3"],
Cell[97054, 2510, 1495, 25, 60, "Output",ExpressionUUID->"bd9eb2f7-582b-4a68-9544-172d9b5d206c"],
Cell[98552, 2537, 815, 13, 34, "Output",ExpressionUUID->"202780ab-b52d-489c-a92e-1b0fd0915e99"]
}, Open ]],
Cell[CellGroupData[{
Cell[99404, 2555, 1857, 44, 140, "Input",ExpressionUUID->"30e5f6ef-f847-4642-bbeb-30c280b77e0b"],
Cell[101264, 2601, 767, 15, 60, "Output",ExpressionUUID->"5e69b9d6-c0fe-4adf-b5a6-d354021c664b"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[102080, 2622, 212, 4, 38, "Subsection",ExpressionUUID->"c866a966-62d2-4aaa-be30-188e454b7735"],
Cell[102295, 2628, 1505, 42, 54, "Input",ExpressionUUID->"5f15e614-bd85-47be-b20b-e346fe08a2c7"],
Cell[103803, 2672, 1820, 52, 56, "Input",ExpressionUUID->"95762630-81b3-4910-890e-f8cbb4b3594c"],
Cell[105626, 2726, 4914, 151, 102, "Input",ExpressionUUID->"d65bd25c-ca2f-407d-9b79-7092dc14020a"],
Cell[CellGroupData[{
Cell[110565, 2881, 3637, 118, 99, "Input",ExpressionUUID->"86c4c204-12d5-4cc4-91f3-4ef38f2f1176"],
Cell[114205, 3001, 403, 6, 34, "Output",ExpressionUUID->"a2be3453-5dee-4d23-b728-7cbc223eac21"],
Cell[114611, 3009, 405, 6, 34, "Output",ExpressionUUID->"f9680827-b5a0-43a4-8fce-6d063ed22fc4"]
}, Open ]],
Cell[115031, 3018, 2969, 102, 101, "Input",ExpressionUUID->"ffcbeb9c-6e95-4df6-bb5b-328b41b21992"],
Cell[CellGroupData[{
Cell[118025, 3124, 2044, 57, 48, "Input",ExpressionUUID->"61ee86cb-074d-4ac7-9f61-c1c6b64052ea"],
Cell[120072, 3183, 453, 12, 49, "Output",ExpressionUUID->"c480bc7f-ce40-4eee-b55d-3f73c76d3e72"]
}, Open ]],
Cell[CellGroupData[{
Cell[120562, 3200, 819, 26, 48, "Input",ExpressionUUID->"b6e55c8f-0333-4b09-aed9-bd0241fab7b8"],
Cell[121384, 3228, 552, 16, 49, "Output",ExpressionUUID->"dacdb030-75e3-4580-b198-bc005365a6e5"]
}, Open ]],
Cell[121951, 3247, 1773, 53, 51, "Input",ExpressionUUID->"db51f6a7-4690-40c2-af32-a6f7eab9b126"],
Cell[123727, 3302, 468, 15, 48, "Input",ExpressionUUID->"67e833cb-794e-46bf-aaaa-f7fedec74084"],
Cell[CellGroupData[{
Cell[124220, 3321, 385, 12, 48, "Input",ExpressionUUID->"3ade0751-2e40-483d-aa9f-7c6decd096ba"],
Cell[124608, 3335, 303, 9, 34, "Output",ExpressionUUID->"e43011ca-1485-4c14-8ef5-e3e5c2853e54"]
}, Open ]],
Cell[CellGroupData[{
Cell[124948, 3349, 607, 20, 48, "Input",ExpressionUUID->"1f77c8a4-02f2-4a43-9353-2c6dc0e607c1"],
Cell[125558, 3371, 305, 9, 34, "Output",ExpressionUUID->"8b84c089-d48f-4520-a0df-2c902ca82399"]
}, Open ]],
Cell[125878, 3383, 4864, 127, 182, "Input",ExpressionUUID->"fc6fe6fa-c5e9-41cb-966e-1e14dcc26ff6"],
Cell[130745, 3512, 10398, 188, 282, "Input",ExpressionUUID->"a06ef68f-50cc-4e7f-bfb8-5863cadce9e2"],
Cell[CellGroupData[{
Cell[141168, 3704, 3545, 82, 199, "Input",ExpressionUUID->"6619aa61-41df-4561-afa2-5b697e931325"],
Cell[144716, 3788, 273958, 4808, 318, "Output",ExpressionUUID->"a8394bf7-c1fe-421f-ab00-3065601f65da"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[418723, 8602, 163, 3, 38, "Subsection",ExpressionUUID->"d406c2ba-4ab0-44d0-9b6f-c0c1db6c1acf"],
Cell[418889, 8607, 1505, 42, 54, "Input",ExpressionUUID->"5964132e-935a-46a6-b153-12b5727d94a0"],
Cell[420397, 8651, 1820, 52, 56, "Input",ExpressionUUID->"9e3ef216-9ad2-4adb-b9e7-96392657d2b3"],
Cell[422220, 8705, 4736, 148, 102, "Input",ExpressionUUID->"fd5e482a-7176-4bda-b608-c9d284776293"],
Cell[CellGroupData[{
Cell[426981, 8857, 3766, 120, 99, "Input",ExpressionUUID->"d44672a8-904c-49d5-a749-404599638355"],
Cell[430750, 8979, 525, 8, 34, "Output",ExpressionUUID->"1252dce1-bd9d-4c0b-a27a-4a9ea1fd0d90"],
Cell[431278, 8989, 525, 8, 34, "Output",ExpressionUUID->"77f79985-ba0c-4e4f-bf6b-e218325f8b1c"]
}, Open ]],
Cell[CellGroupData[{
Cell[431840, 9002, 5197, 176, 154, "Input",ExpressionUUID->"5f1d575c-4c3c-4bde-8f8f-240d45244a88"],
Cell[437040, 9180, 182, 3, 34, "Output",ExpressionUUID->"61d6448d-7998-43fb-b38e-205c44de9446"]
}, Open ]],
Cell[437237, 9186, 5103, 174, 154, "Input",ExpressionUUID->"d0f32758-1361-44ee-bb02-8950288c60b3"],
Cell[CellGroupData[{
Cell[442365, 9364, 3554, 119, 101, "Input",ExpressionUUID->"318015e8-2886-4487-be95-e7f69ff7a94c"],
Cell[445922, 9485, 156, 3, 34, "Output",ExpressionUUID->"3c0943dd-d696-48fb-95bf-e076fa93c9b0"]
}, Open ]],
Cell[446093, 9491, 3033, 103, 101, "Input",ExpressionUUID->"b4079bea-4a03-45f8-9706-9190d1a1a2fd"],
Cell[CellGroupData[{
Cell[449151, 9598, 1956, 55, 48, "Input",ExpressionUUID->"523e901d-07d6-4226-ab0a-a0f8b4022ef8"],
Cell[451110, 9655, 422, 11, 49, "Output",ExpressionUUID->"cdd496d7-6f57-4d4b-9410-784a9d2ec602"]
}, Open ]],
Cell[CellGroupData[{
Cell[451569, 9671, 696, 24, 48, "Input",ExpressionUUID->"a2621bef-7c52-4cc5-b04b-4a41d784cd3d"],
Cell[452268, 9697, 482, 15, 49, "Output",ExpressionUUID->"47b658d6-e43b-40a5-bd62-147a938a1d86"]
}, Open ]],
Cell[CellGroupData[{
Cell[452787, 9717, 581, 19, 48, "Input",ExpressionUUID->"ab059271-ba95-494b-97be-904cc891c23e"],
Cell[453371, 9738, 371, 11, 51, "Output",ExpressionUUID->"8f57ea33-6026-4373-bdf2-c97365a6aff0"]
}, Open ]],
Cell[CellGroupData[{
Cell[453779, 9754, 452, 12, 30, "Input",ExpressionUUID->"1423d03d-0009-4a98-923c-6616c220bc62"],
Cell[454234, 9768, 7116, 137, 239, "Output",ExpressionUUID->"a9257c0c-b5e1-4c1f-b935-f11312fc5f0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[461387, 9910, 558, 16, 48, "Input",ExpressionUUID->"7d937c46-315c-4127-85c4-712b14bc01aa"],
Cell[461948, 9928, 402, 12, 49, "Output",ExpressionUUID->"cd9d35dd-d570-4a5a-8d26-67dfbe5a07bb"]
}, Open ]],
Cell[462365, 9943, 513, 17, 48, "Input",ExpressionUUID->"a2ac8ff2-1cae-41e1-a20b-4fbb997dec08"],
Cell[CellGroupData[{
Cell[462903, 9964, 448, 14, 46, "Input",ExpressionUUID->"2f20c949-180a-497c-b460-fc41151522d8"],
Cell[463354, 9980, 275, 8, 49, "Output",ExpressionUUID->"0b25d327-e92b-4494-a4e0-91dc831b2739"]
}, Open ]],
Cell[463644, 9991, 191, 6, 48, "Input",ExpressionUUID->"939751eb-557e-4570-ac5e-0177a1ac50cf"],
Cell[463838, 9999, 1875, 54, 51, "Input",ExpressionUUID->"7f39c9ab-32fa-41ee-a84c-0db48d3fd4ca"],
Cell[465716, 10055, 468, 15, 48, "Input",ExpressionUUID->"59da42ed-948c-40cc-9a75-afe1a8b88822"],
Cell[466187, 10072, 3895, 95, 172, "Input",ExpressionUUID->"fb90afa3-6319-4401-96d5-c434cb0ab8fe"],
Cell[CellGroupData[{
Cell[470107, 10171, 9359, 177, 304, "Input",ExpressionUUID->"54cba639-78de-41b7-b09f-3fb5cc912380"],
Cell[479469, 10350, 3768, 103, 152, "Output",ExpressionUUID->"30a67b2f-36de-472b-9923-bea976f44530"],
Cell[483240, 10455, 2760, 58, 248, "Output",ExpressionUUID->"a2999cb1-22fd-4cbd-9bc7-6a54cac3c4ea"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[486049, 10519, 304, 9, 54, "Subsection",ExpressionUUID->"c3267724-2a1e-46ae-a70a-24dbe2bc9597"],
Cell[CellGroupData[{
Cell[486378, 10532, 9486, 298, 329, "Input",ExpressionUUID->"093b63ec-d5d7-429c-a6ae-daee424561d5"],
Cell[495867, 10832, 759, 11, 34, "Output",ExpressionUUID->"c8bc8a1a-7edb-4bf3-8401-c89b58f107f2"],
Cell[496629, 10845, 759, 11, 34, "Output",ExpressionUUID->"f48a9ecf-9fbe-47d9-ae87-f8b5af6c5e0b"],
Cell[497391, 10858, 759, 11, 34, "Output",ExpressionUUID->"ec1755b9-8f51-47c9-9a0f-1629807636d1"],
Cell[498153, 10871, 809, 13, 34, "Output",ExpressionUUID->"de84db82-7bcd-4321-be05-acdd32c5a02c"],
Cell[498965, 10886, 759, 11, 34, "Output",ExpressionUUID->"e6a683e2-6c11-4e7d-802c-2b921896631b"]
}, Open ]],
Cell[CellGroupData[{
Cell[499761, 10902, 5317, 162, 97, "Input",ExpressionUUID->"5ce35750-7da9-4ff5-b83f-0ae5f5377437"],
Cell[505081, 11066, 156, 3, 34, "Output",ExpressionUUID->"7fb01024-0558-4c4e-bc04-f537ce36e159"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[505286, 11075, 357, 9, 38, "Subsection",ExpressionUUID->"59690161-1c60-4593-a2e7-c717480798c8"],
Cell[CellGroupData[{
Cell[505668, 11088, 12034, 380, 331, "Input",ExpressionUUID->"83dd638d-a3d9-4eac-9812-c6a4cf31efb2"],
Cell[517705, 11470, 209, 4, 34, "Output",ExpressionUUID->"b4e381d7-4a23-4e07-981a-8f2086d6ecb0"],
Cell[517917, 11476, 210, 4, 34, "Output",ExpressionUUID->"c0f052e7-e375-40fb-9cda-e30d1e386bf6"],
Cell[518130, 11482, 210, 4, 34, "Output",ExpressionUUID->"0bae4c27-c7b9-457a-8a0b-94924bb3d300"],
Cell[518343, 11488, 260, 6, 34, "Output",ExpressionUUID->"c64341aa-bf6d-4dfd-8f07-5440230a7974"],
Cell[518606, 11496, 210, 4, 34, "Output",ExpressionUUID->"55d747c3-742f-4a1c-84a2-fde40e88cc5e"]
}, Open ]],
Cell[CellGroupData[{
Cell[518853, 11505, 15052, 468, 347, "Input",ExpressionUUID->"e4ec2f88-e321-4297-8368-7cf33b0e5d5e"],
Cell[533908, 11975, 3774, 117, 61, "Output",ExpressionUUID->"468a3fca-bc22-4dbe-ba2e-d09f5efde874"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[537731, 12098, 238, 4, 38, "Subsection",ExpressionUUID->"eac4bda2-189e-42f0-81dc-51e5ebbd2f4a"],
Cell[537972, 12104, 1505, 42, 54, "Input",ExpressionUUID->"17b135d5-7e41-4643-b4bb-f3eea5ce1e51"],
Cell[539480, 12148, 1851, 52, 56, "Input",ExpressionUUID->"14802bea-9955-4893-8c9c-a17bac458ece"],
Cell[541334, 12202, 5028, 155, 151, "Input",ExpressionUUID->"d3a6ec1b-6a01-430d-947f-8f0e2ffa4abc"],
Cell[CellGroupData[{
Cell[546387, 12361, 12016, 360, 415, "Input",ExpressionUUID->"9bfbd342-26ab-4960-b0c1-6d30bc401946"],
Cell[558406, 12723, 842, 13, 34, "Output",ExpressionUUID->"bad42b6b-febc-423c-b781-8e8f634645b2"],
Cell[559251, 12738, 842, 13, 34, "Output",ExpressionUUID->"08268186-e6a0-4d08-92db-7368a97e5b15"],
Cell[560096, 12753, 838, 12, 34, "Output",ExpressionUUID->"14e5cd70-74bd-402b-9647-758b00e98438"],
Cell[560937, 12767, 844, 13, 34, "Output",ExpressionUUID->"a1021d01-c1ea-43ff-815d-85bf1860cda5"],
Cell[561784, 12782, 842, 13, 34, "Output",ExpressionUUID->"a6228c72-c3ab-4a4b-a7dd-114c74203722"],
Cell[562629, 12797, 842, 13, 34, "Output",ExpressionUUID->"449b7df1-0d75-4d67-925c-350cdef9600b"]
}, Open ]],
Cell[CellGroupData[{
Cell[563508, 12815, 3780, 122, 98, "Input",ExpressionUUID->"f27d4a85-2a37-4803-a443-435791839d08"],
Cell[567291, 12939, 211, 4, 34, "Output",ExpressionUUID->"2dc3a301-69c8-4267-acd1-185a7e3220d5"]
}, Open ]],
Cell[567517, 12946, 3620, 91, 172, "Input",ExpressionUUID->"17d3180a-586b-41af-a83f-6e20a124c592"],
Cell[CellGroupData[{
Cell[571162, 13041, 9840, 189, 283, "Input",ExpressionUUID->"e8a12bd0-24b7-41d6-8141-13207367f442"],
Cell[581005, 13232, 4442, 90, 525, "Output",ExpressionUUID->"6cf12868-5980-4ee9-9f5e-473067fd4e9d"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink