loos/TrUEGs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
b56e90cacf
TrUEGs/TrUEGs.nb

17125 lines
730 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[ 746947, 17116]
NotebookOptionsPosition[ 725566, 16776]
NotebookOutlinePosition[ 725959, 16792]
CellTagsIndexPosition[ 725916, 16789]
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,siunitx}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
3.733131339213026*^9, 3.733131352923026*^9}, {3.8307412261178923`*^9,
3.8307412292891083`*^9}},
CellLabel->
"In[110]:=",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[{
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"]}], "]"}]}]}]], "Input",ExpressionUUID->\
"c4a884e6-15b7-471a-9826-860d9af553cf"],
Cell[BoxData[{
RowBox[{
RowBox[{
SubscriptBox["\[Rho]", "\[CapitalLambda]"], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{"2",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"\[CapitalLambda]", "[",
RowBox[{
SubscriptBox["\[CapitalOmega]", "1"], ",",
SubscriptBox["\[CapitalOmega]", "2"]}], "]"}], "2"],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t",
RowBox[{"=",
RowBox[{"2",
RowBox[{"\[Integral]",
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[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]",
"2"]}]}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t",
RowBox[{"=",
RowBox[{"2",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}],
RowBox[{"3", " ",
SqrtBox["5"]}]],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]",
RowBox[{"3", "/", "2"}]]}],
RowBox[{"3", " ",
SqrtBox["5"]}]]}], "+",
RowBox[{
FractionBox[
RowBox[{"8", " ", "\[Pi]"}], "3"],
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}],
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Pi]",
RowBox[{"3", "/", "2"}]]}], "3"]}]}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"\t",
RowBox[{"=",
RowBox[{
FractionBox[
RowBox[{"512", " ",
SuperscriptBox["\[Pi]",
RowBox[{"5", "/", "2"}]]}], "9"],
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",",
SubscriptBox["\[Phi]", "1"]}], "]"}]}]}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.825573468131763*^9, 3.825573483409993*^9}, {
3.8255735297534857`*^9, 3.825573547708323*^9}, {3.8255736418172197`*^9,
3.825573733995967*^9}},ExpressionUUID->"ee948f7b-d70d-4f37-b367-\
09ca445c478b"],
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[Rho]", "\[Psi]"], "[",
SubscriptBox["\[CapitalOmega]", "1"], "]"}], "=",
RowBox[{
RowBox[{"2",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "\[Gamma]", "]"}], "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"], "]"}],
RowBox[{"\[DifferentialD]",
SubscriptBox["\[CapitalOmega]", "2"]}]}]}]}]}]}]}]}]}]}]], "Input",\
CellChangeTimes->{
3.8255734696027603`*^9, {3.825573792746961*^9,
3.8255737998234253`*^9}},ExpressionUUID->"141f30e2-0cbb-4f96-a17a-\
38662c6cc740"],
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", "=", "5"}], ",",
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, {
3.8195576801631603`*^9, 3.8195576803225803`*^9}, 3.819557945453573*^9},
CellLabel->
"In[153]:=",ExpressionUUID->"fc6fe6fa-c5e9-41cb-966e-1e14dcc26ff6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "5"}], "}"}], ",", "\[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[{"n", "[", "\[Theta]_", "]"}], "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
FractionBox[
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "0"}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
"-",
RowBox[{"2",
FractionBox[
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}], "3"]}], "+",
FractionBox[
RowBox[{
"\[Rho]", "\[LeftDoubleBracket]", "3",
"\[RightDoubleBracket]"}], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "0"}], "]"}], "2"]}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{"4", "\[Pi]", " ",
RowBox[{"n", "[", "\[Theta]", "]"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}],
"]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",", "0"}], "]"}], "-",
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",", "0"}], "]"}]}], ")"}],
"2"],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "1"], "]"}],
RowBox[{"Sin", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[Theta]", "1"], ",", "0", ",", "\[Pi]"}], "}"}],
",",
RowBox[{"{",
RowBox[{
SubscriptBox["\[Theta]", "2"], ",", "0", ",", "\[Pi]"}], "}"}]}],
"]"}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "0"}], "]"}], "+",
RowBox[{
FractionBox["1", "5"],
RowBox[{
SubscriptBox["Y",
RowBox[{"2", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "0"}], "]"}]}]}], ")"}], ",",
RowBox[{"(",
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "0"}], "]"}], ")"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}],
"]"}], ";", "\[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", ",", "\[IndentingNewLine]",
RowBox[{"-", "5.4"}], ",",
RowBox[{"-", "5.4"}], ",", "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}, {3.819528590495921*^9,
3.819528593077222*^9}, {3.819557684697259*^9, 3.819557684824532*^9}, {
3.819557757600494*^9, 3.819557827756126*^9}, {3.8195579201973867`*^9,
3.819557947680461*^9}, {3.819557998562777*^9, 3.819558054993888*^9}, {
3.819558966239147*^9, 3.8195589818925543`*^9}, {3.825567110363276*^9,
3.825567111200262*^9}, {3.825567162919621*^9, 3.825567271541833*^9}, {
3.825567303042*^9, 3.825567359790016*^9}, {3.825567522151163*^9,
3.8255676220698223`*^9}, {3.825567660465777*^9, 3.825567661591798*^9}, {
3.82557148531474*^9, 3.8255717236852407`*^9}, {3.8255717707448053`*^9,
3.825571826151437*^9}, {3.8255719551560507`*^9, 3.825572021842815*^9}, {
3.825572061279435*^9, 3.8255720790918293`*^9}, {3.825572111175202*^9,
3.825572270831332*^9}, {3.8255723051679153`*^9, 3.8255723083511963`*^9}, {
3.8255723889006977`*^9, 3.825572526841219*^9}, {3.825573072160391*^9,
3.825573100758876*^9}, {3.825573909551299*^9, 3.8255739375791807`*^9}},
CellLabel->
"In[155]:=",ExpressionUUID->"a06ef68f-50cc-4e7f-bfb8-5863cadce9e2"],
Cell[CellGroupData[{
Cell[BoxData["0.`"], "Print",
CellChangeTimes->{
3.8255672096922817`*^9, {3.825567329431567*^9, 3.825567360544487*^9}, {
3.825567529947542*^9, 3.825567535706521*^9}, {3.825567571012645*^9,
3.8255676226274357`*^9}, 3.8255676621501913`*^9, {3.825571483354911*^9,
3.82557148656466*^9}, {3.825571527257399*^9, 3.825571623797057*^9}, {
3.825571668169786*^9, 3.825571724944263*^9}, {3.8255718168030024`*^9,
3.825571826640697*^9}, {3.825571972720669*^9, 3.825572022262472*^9}, {
3.825572071708784*^9, 3.8255722713061132`*^9}, {3.825572306100123*^9,
3.825572308773279*^9}, {3.825572411777607*^9, 3.825572429967472*^9}, {
3.825572460371621*^9, 3.82557252728852*^9}, {3.825573081360861*^9,
3.825573101175577*^9}, {3.825573920939762*^9, 3.825573938285533*^9},
3.830742539932773*^9},
CellLabel->
"During evaluation of \
In[155]:=",ExpressionUUID->"5130f48f-f8c3-47ec-ba36-e818d9baf5f9"],
Cell[BoxData["0.6366197721494714`"], "Print",
CellChangeTimes->{
3.8255672096922817`*^9, {3.825567329431567*^9, 3.825567360544487*^9}, {
3.825567529947542*^9, 3.825567535706521*^9}, {3.825567571012645*^9,
3.8255676226274357`*^9}, 3.8255676621501913`*^9, {3.825571483354911*^9,
3.82557148656466*^9}, {3.825571527257399*^9, 3.825571623797057*^9}, {
3.825571668169786*^9, 3.825571724944263*^9}, {3.8255718168030024`*^9,
3.825571826640697*^9}, {3.825571972720669*^9, 3.825572022262472*^9}, {
3.825572071708784*^9, 3.8255722713061132`*^9}, {3.825572306100123*^9,
3.825572308773279*^9}, {3.825572411777607*^9, 3.825572429967472*^9}, {
3.825572460371621*^9, 3.82557252728852*^9}, {3.825573081360861*^9,
3.825573101175577*^9}, {3.825573920939762*^9, 3.825573938285533*^9},
3.830742539995569*^9},
CellLabel->
"During evaluation of \
In[155]:=",ExpressionUUID->"eae4f0fe-60ff-4935-b530-68c55531752f"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJw12Xk8VN/7AHBbZpQta/Yo5aOSELI9N9n1FQqfhKQsqWxJZSmVrZTsSpZK
1kK2rJWE0J1pLMkdkZSlLNnNDPI7nz9+f83r/Zp75znLc849z1x5N19bdw42
NrZodja2/z45326k/tjvb3DWRSSuYysdFH+90ZVNOgKGYec625FZL/eeIRJP
gvJw2KMPyGVL8HlziSd8FTs8+R55RMSL8SrRF76xfXn/BvmuRBtfSf1FSPwu
p1CDnKfklM1Wchmk7ZVIL5EbtWZUjz4OgRCHuYA8ZLpJRFNu4nUI1Al3f/Rf
PGVe5dCmG/C0tGcwDjlarTcgt/4WeLyfGwxHFtF5XE+tjITFgQF3f+QnB725
GMXRYPX+4UVXZBVzjf/J598GzSRlshVyvfXfFIvHsWDUnrxNB/nzycSdmYn3
gV+e5w/ff/1RV9H+0RIPX7hksxfl6HBZK+nr5aYE+Nkl39uPzAXOik/qk8Al
R4DIQe4wbGrfX5MMLGNSbiRygslOn47KFFAT5mG4I8tazb6aL04D8kkLdQXk
nzb2J2KKHsCbE+lSf2Xp8Nyufl06/yFg10Vj+5C1nSPNTB4/guKd5esxyLbn
JegPErNBLOYR1idDB15teJtq+hg43v97ugB5ptZ/8/eWxxBklcx3GfnV696q
S01PYEftK4YA8qGWx3+z6nPANU1gl6o0HXaYdlv/OvAMUuO2xS5I0WFj+4Yc
9ZpnoDIud7EamYZ7m7ZV5gJ3Gl+/NrJzj0b8bHE+DL+6yKssSQfM3nNYd3cB
DAlfLx6WoMP2vocaUUUFgLfO9z5E/t3/t08yvxCS/F3fcyJf/tEmb/T4Odwr
/h9XqzganzmnitTEUrBdILS4ROlwTzRdr5HvJUjHTjtnitChqyxSbr/tSxD4
IIZrIJ/47TQi2/8SeK0lb7gI08HnxCb/uckyiBKxtcncTIdkfa+Yh4KV4KJg
lN/GRweCOHqO364Sfux+7myCLBsEVrceVsL9I+DSxEuH/BIxkQsKVTB4Msqg
ahMd6uRasjGNV6Cc9el6FA8dvrErVI851MAGy3GlL1yof1l86U4ZNaDDPpJ8
ANlLhxnaOVQDqcG5/0vnpMNcAM2w/mwtfPVRyrPnQPnx8xo1LqQOxh9ZM+rW
CVBu7R/Zn90AHxKSLNVYBOi2WGw0vNgIslFpkgNTBAj25H3SSmqEU5bVSeLI
P4c5UvZUNEJ5qmKa9SQBcWz1chLzjcCZXqn/5jcBw7q79s8EvIOUoq0CMWME
xJRvcs0KaIK5jIiZz0ME9GbjVSz/ZhhzEN/l1EXA8xKlkJmEZgiXU7Pz6iQg
/HUENlrWDKm0m4IXaQT806/3sXO2GTLm6nQjqASEihUPFfi3wE7z/51L6SBg
2717mxz8WyFwztnjYhMBfsFWpyr82sBv8ddDuTICLHz0CsjxbVA68kWc6yW6
3k35j3NpGzj+q6c/VoLaY84dRp5ugyNqwdcLXxCgL/HmgfO5dnB6a/dLpoCA
jTV7aCSPDrhrw7rfmkVA7iIvOJ3AgbVVTVEiloALNe5xHNtoYMr7ybHnJIHW
s81Wdg0amMe6dxm7EDBD6JWvG9HgREz2xyonAgJXhHtXPWjAWfnOKOE4AcEG
TTLLRTRQcFF10TxKQFSzbPGEWidwSOYkHjAh4DHty8cewy7AywRh5y4CesbN
efLdemD8udVY3Uwf3Nm7xPbqeB9IWws5aV7qA/9dbSmNuV9hUyG9caX/C7BO
nysZ8BkCAaWDh+9pfAG31/bW8R7D8CuEXP4+thdOz/Y0Nsb8BC8PWOHs+Ax3
Vat986JGQXVqsyiJ/zNwNFZrRQSPA8VMlzRr0wOblS2p3x78hp3suNzPiG4w
yzbMmUmchP7H/VvrPnSB+B/c5Hr1NLjWPvK5zNYF6R/q2DnPzsAIxdhf0KQT
9GQOrm89MwtXTi2WWuXQYNeQ4M+wwDkIH86J/cBOg+ICIa+qgHmYyB/SEl+m
QsTntwc5L89Djez4jb45KjhxXJCyCZkHrR6vSxnTVNjo9IE6eWse6I4NzrtH
qeAhELp/e8o8eCtS7M5/psLWoBGOpOp5WB0SmrtQSYXkQzWZfqvzsGzRrRge
SIXQQefuXVEL8P2t3p6taxRYMNXPdL+zADdrA67mMilwvkzaMztuAeg5Qhl7
lihwIqKfJZS2ADKePl4mfyigo3xcgZW/AFRWiHb6dwowLx3zb2tfgGabiDsf
WykQxGcp4M63CLFhTX4nkigwHaRMZG1eBFHXYkf9eAp4DPHk9Ikuwj9bz2kr
3KOAfUWb5mHZRRD/9LlrIYoC+4+buKjvXYSU1suPXgej9j07WMxuswh/OaoO
DLpRwF9P2zIreREucF0/f2o/Bdh8kq/ff7AI6voTvl1qFIjLnqkIz1iEZwnd
UiaqFCjiKJQ+/WwRjCITfPfvosBwm8T0zspFeLhzSlxDngLH7Fbiy7oXIUvG
Yb6MjwKaPm96m4WWIGrb8cmKcRyasyU3vRJbgpqFNMWQURxsO4MgX3IJhmO+
Shj/xMFHY2/BbYUlqJfN2P/9Gw75rOyrVmpL8ILWbabzBYct0Tek+2yWQDJ3
0tavFa2jbCO3ifgl6Hjw48qfPBwMlvUT96UswdS/jxpGn+Fww0qr6fLDJZD7
9tbs+1McyGv/KHA9XQIxuUy9oSwcRB0FhqUrluDlxpSnG9JwUBWhn7L6vASH
77f/mI7G4eK57oRkYgncFkNmJaNweNWEv6MPLIFflLu1RQQO+v5v5T1Hl8Cs
5g9nRTgOFtRn368vL0H7rh3WL67i4B7je6pMYhlSWLsmDc7jUPDNK2FZZhk0
srzMH3vjMKnp9k5fYRlw38p1rrM4BIwck+9QXgZhQ6urfe44hBvqfB/WXYYL
yYrF+SdxSF/lOiXisgzu90Wvjh3FgeaX7nr5Kbo/XiLsjwEOyvGCK4F5y/Cy
wWFjpz4Ot0qjUgKKlmH1Y/+9Kj0cNKcDOi6Uo/jsn65E6+CQec5S40zTMij4
/h6x0sTB22OVZDO8DO9cqfbnVdB8RQY8tRpdhq0HBj3D9uAgkzuud/j3MrSw
Dl1M2I3i/+jxN51bhsP2K1eblHHQOlXcr8/BAKGX9v8z24kDl5NLqbICAxIy
dXR/bMXBJaTHXGkHA+a23d+0Hbk63eKnojIDNk7GEp5yKD6hKSGvxoCYbm1f
hgwOnfYCt8QNGfD9sHWUvhTqX1CkjKgJA86f/mqWKolDRMpKtZAFA4ZvBmyc
k8BBu2dsks+WAdfSTsaWb8Ehy6bRnsuNARK+UTEOYjgw/DRn2T0YEOxUZtom
ivIv/kXs+lkG/HXbQtJD3vDpQSPLnwGMZMXo3SI4nD/srzx7gwGJRYP39wnh
0HpurHk6kgE/ahKO1W3GQS7W+eTkbQZE7rglaYLc1W6ePJbAAG2B5CIPQRwO
mCr8HXjCgOJGr8GP/Dho5HTEfMhlwO9n26J9kFXWA4TLChmg6bIqLIKsUP1e
KaKMAXcVnemefDhIC5+vuFDFANppfhExZDFfEQOHWjQ+X/aqfeDFYdNO96PK
7xjAtZ1fWg2Z+xbfoHALA1yfTY9NbMKB7VuV11obA+wLox4UIC+kcl+j0Rjw
el66QBl5eq6EXNfDgAyHA6SZjTiMWzkk5fQxYCLU3LIGeYC7oCBoCLXn+dWb
Nsh9btbqrj8ZUG5efkkBuesN47X5OBr/LgGrJR4ccMknZuqTDPDpzdhEQW4N
Mu+WnmHAabXTJXnIjV2zztwLDLgjfF7zFnKdSvr4n2UGeC6+zXFDrrxjeJFY
YYD6U48lI+TS0d9rTesMGFLzVFFGLjJMinnByQRBgTZLIeRnWbrCqSQmSE3F
Wa2R0XyzfmRe38QEUlej5gTyA/u7SmcFmHB3sxvXV+TEco0KW2F0v1VQ9Sfk
u/wD+nriTMi7wmbdihzlHdmmKIW+7+SgvkW+0brnqIAcExpGru1rQA5V6B1g
KDChOelScD1y0LVrXsM7mDDJPVbwGtmPvmP+ozITCmq7GpqQvTU/hVWpMGHL
Ja1XHchnEi+Ts9WYwGkjnPIZ2WVaLilGkwk/Kk4f/4H8r0WbTIAOEwZtFTkX
kI/m+RWcMGBC675jiSTUXysOCXVjQybI5kxwyyKbubx7rWLCBEmzUVctZMO6
s2ZbLJiQJWjw+CiynphQN7sVE4x0J5sDkDUD6pwnbJhgb/eLmoysSnUb77Fj
Al1nz5taZMWoirV8ZxT/lPthXjS/W4dPxCScYgJ5xHjiALKkAZdwiDsTVl8Z
+3oj8y8dU7K6wITe3YE7epDJtmvlWv5MCIq5fZwP5RdHSa6+/CUmHH8a62+O
vOy+ZLsQygSFH1LWHchz77IGBsKZoKEdKyaA8ndSxtTrQwQTRvML39kjD31O
C0u/i5xa0jKN3G58oADLYMI1dcrNg2i9XPlwTeX6YyZQRK1O5CIrmTdXvn7G
BLOjH9N5BdB8Hj7yTqeYCf0vjK1GkI2OutM13jAhkPh06y1arws9Ra4Xm5DN
aPEGaH3n2M+MlrUyoby9nfMdModjyLzKJyaEq4pI0YRR/rom8P4zhObXsHWj
ONpP/IZ7Ez1/oniFdofKkOXOSEvkjTPB4mnmkJU4Dtc88xW3zTJh+sczs2S0
H+n5vDaQ4WAB7Xhwuynaz6pDfvlt3s4CDaMLbjbyOHisqSwfUWLBwEzOJ3kF
tN6vB4bF7WbByC/HrEXkwJvrtzftZ4GYg+PJ/O04qN0Wzdlggn5vccBLXQmH
ktSDn5meLHDqo7lO7UX5tSX6hPZ5FhT/w902r4oDXzr+PciPBeKT9++u7UP7
W6bD9PwVFqg9CtwtpYH212cXSNO3WZAWseXtNW0ccsseHhh+zgLreyd/jR5E
+bxyQrmvlAVxPEfa+A6h/DGWlaJWsKDq4Wi8lhEODX1PV2vrWTBq9msgyQSH
7vXnbxM+suDVfpGTvpY4sFu9MT44wYJKtzN1ZXY4OP8etnmsvAI3X79NPIWe
jwoauYapKiuwJh+2aeQC2o/CPNXvqq3AuzNup8/5ov5vnhS5orMC3yQVS8MD
cIjVXvxyxGIFBtnGn1Ou4FAbRXJZP7sCuU0rwzOR6Pm+bbe3S+EKpCW4eh5H
z//4xFj7wuIVmDZq03VF54ONHBOGC2UrQJrlc/VG5we274VSd+pW4OJYX0pM
EcrHrJ2Uqo8rsGfkbe5kOXoeSm5T5ZteAV6qGdW2GbVHSHKpXm0VWnyP4Ym/
cPhz4+owt9YqRDX1enBMovGa7aPa6K7C9i1pepemcXClpeWPHVqFhbm/qWfm
cTgcJ3pc2G4VQgMvzp9dw2Hbxs0N3pdXgcS/o4BfiAJd7OSbEg2r8CCBp65O
H53/ih+6WDeugvmnBO5bGAV4HHfpRjevguqh5X+tDlEAK7daWMBX4fCsAe+0
GQVK3FI8aAOr4H+tN9XmGAVi3ytYRq+vwpqS0J2CcxR0jtMXWTRcA+vGpN3x
GRSoIl/Mo7WvwdM7CZ2iJCqMht6YekNZg4z08yedNlJhy+x9jeLONTB72u6c
y4fOv8SLptvEGtz99rXAQIQKRkWjg4a/1kBDmt8tTp4KXZaO4lXkv1AROfT8
iR4VZuIOxjw0/QtPbi/2JaDz825RQW+3lr9gG6Ca5jVBhT9xSyLqvesgGy+1
4/4GGmyLjt7r682GbS9a7wvJoMGwYz/dcIwNK/P2ZG/Q7wSzkW5mlQ87VqGa
+ucjoxOuBLh7iU2xY0KxHwsGS7vA6tUjC7EgDkxC3EzSPrQbple9QzmXODAf
Qek7Tfo98OTLjUqfi5xYfgrn7DtWD7C89F2vrnBi9+1a81+//wwyawkn/IO5
sBpr9pDwK70wahrbQebagD2fCh0p2PcF3u/AQTZ2A7ajg/tpAPEFvMl5XPI8
3BhdrbXnm0cfVD/erv8+gRvbtVLnoz3VB9vXjULeJXFjjepReRv+9EG8s3vt
2xRu7BRhX9iJ6jEvybz9DQ+5sd6vwO+x0AeSyTtVqp5wY44vW8zCV/ogNFpZ
Lr+MG3O4YSwbzEOAoY8qe2wnN7Zuq2MWvp0Aqq5ei+1mEkb33Bv51p6AOzWX
VkyESVgkZlqp8S8BpvtL9+mKkrCedNsnBah+bFRRyNomQcJ2KnyvuIvqywp5
8uWFrSSsMVC3zNiNgAekHqVUVRJWGd7VGHyBgNPd5+4SR0iY+tjY8PRNArZa
5zZRbEjYawNHZd0IAr7ig4x3R0lYd52BYlQkAfatNu5FDiRsMlJBY0sMAWa1
WgYhJ0kYK76lePc9VO9mc85I+5Kw3NNsFLE0Ahjej466xpEw/pOzpVOFBNwP
ziFdjydh53r/9VJ6TsCOO8/rMxNRPEfnuFOo3rYrrN/Wn0rCfHcMyn9C9Xj5
WP+8XTYJs+7WdU6rIOD8Gelky5ck7KB5M72/gYAh58wezS4Stj/erkKNSsDl
C7kxdj0kLMwqPkznEwH8YcV6gb0kzMnL5DlGQ/V8xutnZXQSJpT4d69ZFwHp
9IHA3T9I2B674t5DvQQcc5AVVVggYXWjS45TAwS0WWfb8YmRMROLNx6kSQK8
m0fekLaQsVejfus4Mp/2biUOSTJGqFf/kzBFgK1cLWtJhoz9sgE10T8E9E91
ZQ8pkjHZ4yL8vHMETN/h/l2xn4wJG5e0VS4TEP/38NESLTJ2TP3HmdMMAtQD
khoKDpCxJdve+4JMAq4c33o/U5+M2W+xSvBgEcChpKMRbUzGumUZ+uxrBIi2
XLjmaEfGKJocUrPsdKjRrhw75kDGHH9viI/hoIPjC5b1keNkLCzzcIIsJx2y
kqK3GTmTMfYsQW0TLjoouT1p2+NOxvz2RglFcNNBb71HiP0SGUt5NfG1diMd
BgOkQleCyJi/YuUGnU10uDF6amTxChlbsMiuqUFupUxX/w4lYyUKbg1lvHQ4
kkF27okgY1qjh7UT+engdkAvPz+ZjH21DB7nFaLD2SnK4tdUMnbTubT+BrLf
k5NGQg/J2O7sjroF5Os8t76HZqL+CyrpfRamQwbRLmWbh8Y7FDcNF6VDzr0T
3tEFZCxmKTRoFLno4FRNQxEZezmwkWYhRofaQkH7naVkrHiPMSe/OB16rzrE
r1aTsRflfz2ubaHDwJ5fg/vqyNjk3VO/PiP//B68x7OBjCnQGlJ2SdBh3jyr
o7ORjD0rXTjXiSwoOcKV346uXy/bRJKigzg16OjXj2RM9Yx0/xFk2Zvkp5up
ZKx99XV3KvKe37sgtIuMlX+2xuSk6WBRF3DVpp+MtfYGc0nK0MHGh6staoCM
cTx1lTqG/K9CqljDNzT+lkOOd5E979RW7PhJxjI0zx5dRvYxsORwGiVj5wdt
eJVl6RA099U6YZyMFagmTTkiRziyTa9MkrFkyk+lauRY/kS9fX/ImO1q381h
5MSmbbEes2QsNXOKi1eODk+UTZU6F8lY2h6TG8eRCwb7grgZZIx+LSAkDPll
oneLLouM1ZHiM7OR37DuueX9JWO0ikvHB5FbSuTK+tl4sPAa5XkWMu5Wti7I
yYO9qS6qFN1Khx6xQ1YmG3gwwTtTmSrI/R09GSEkHoxImygxRh6+5jHxkocH
CyYyxxyRf6sxDoxu4sF0vqyZ+iDPjt6OkeLnwewLN9CuIzPSpb5YC/JgHIzS
6/eR162KFaOEeLAzK8v2mcjcnBBYL8KDZYQQdoXIfNW0phkxHqyZZh1a8d//
7efcNu+Q4MEmhx076pGl5BZOnpDiwRSUF6EJWaE7siRehgfzL5EZaEVWjhZf
a5HjwQZI3U/+e3+wT7fQckWeB/v/9wv/B3OE2a4=
"]]},
Annotation[#, "Charting`Private`Tag$6586061#1"]& ],
TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQzbyf69xj00K73NlOAdd5L9kH5UjemjFpvj2MP/FT
zOZpk9bD+dZHvbicig/A+QVVfombC07A+bk7UvuYlC/A+VdeeHIuT7oC53fp
f2PYFnkDzi/UPjH1wNI7cP6v5Ox1d/MewPlJe8MCJqQ9gvOTP145cKDjCZzf
Y7A9f1nbMzif6cB285aqF3C+oJb3ufszXsH5HvOdFn+Y9AbOF39/xq1++zs4
f9bxXYzMmR/gfBtZx/8KKR/hfO0HAk9qSz7B+WtXCGVsLfoM59fci72s3fYF
4T8bC+95U74i/DffJen1hG9w/oWCWQnli77D+ZbuSv/uLvwB5590tVzhMOcn
nL9040zLR6t/wfmiyjpZcSt/w/mXGDmaJPf8gfO3chQvu3DyL5yvIyqQlXT0
H5z/vu+biPG1/3C+cnu7fn4WgwOM/yjq9i2n5wi+x9PLP7fmMcL5FUWpGWJv
EXy/bbO9xMqY4Px3f7JqmL8h+AuvN27JK2aG839l2CZU/kbwZf9OjC6sYoHz
n7l3n+JgYYXzD6udsZfrRvCzOJaxKHKywfnbF6jYHp6I4J+ztjkaJMgO5//I
mh2c0IfgnwiYH8orxgHnJ1naLF8+BcH32lVUGXgbwTe0Xun9W5ETzgcAGZV9
hQ==
"]]},
Annotation[#, "Charting`Private`Tag$6586061#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.21901648978669475`},
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.21901648978669475`, 0.40825141787488534`}}, {{
0, 3.141592653589793}, {0.21901648978669475`, 0.40825141787488534`}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Print",
CellChangeTimes->{
3.8255672096922817`*^9, {3.825567329431567*^9, 3.825567360544487*^9}, {
3.825567529947542*^9, 3.825567535706521*^9}, {3.825567571012645*^9,
3.8255676226274357`*^9}, 3.8255676621501913`*^9, {3.825571483354911*^9,
3.82557148656466*^9}, {3.825571527257399*^9, 3.825571623797057*^9}, {
3.825571668169786*^9, 3.825571724944263*^9}, {3.8255718168030024`*^9,
3.825571826640697*^9}, {3.825571972720669*^9, 3.825572022262472*^9}, {
3.825572071708784*^9, 3.8255722713061132`*^9}, {3.825572306100123*^9,
3.825572308773279*^9}, {3.825572411777607*^9, 3.825572429967472*^9}, {
3.825572460371621*^9, 3.82557252728852*^9}, {3.825573081360861*^9,
3.825573101175577*^9}, {3.825573920939762*^9, 3.825573938285533*^9},
3.830742540082362*^9},
CellLabel->
"During evaluation of \
In[155]:=",ExpressionUUID->"3e3dcdca-0747-4edb-9af7-eaf67d14584a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ".",
"f"}]], "Input",
CellLabel->"In[19]:=",ExpressionUUID->"1f97a01c-9972-4922-bceb-32c17a62dd77"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "1.`100."}], "-",
RowBox[{
"0.6660896595288369837750595633814123143644527999298307832026914869308821862\
45827286981907799313178903210290074453607`100.", " ",
RowBox[{"Sin", "[",
FractionBox["\[Theta]", "2"], "]"}]}], "+",
RowBox[{
"0.1543019681579606815169353767709585338433194042746124159263784027280382150\
081074927027021490868382888283122389272635`100.", " ",
SuperscriptBox[
RowBox[{"Sin", "[",
FractionBox["\[Theta]", "2"], "]"}], "2"]}], "-",
RowBox[{
"0.0609437978689942788140198108196572164327823535140529733524034957007686231\
53585618017326574353455327405494235393306`100.", " ",
SuperscriptBox[
RowBox[{"Sin", "[",
FractionBox["\[Theta]", "2"], "]"}], "3"]}], "+",
RowBox[{
"0.0148466816826512856612160305412564672437907002971798279794449940508434954\
922640856502501938014606571747890614151183`100.", " ",
SuperscriptBox[
RowBox[{"Sin", "[",
FractionBox["\[Theta]", "2"], "]"}], "4"]}]}]], "Output",
CellChangeTimes->{3.8255671306013823`*^9},
CellLabel->"Out[19]=",ExpressionUUID->"09dd10ea-6b66-4aae-8729-61fe9daa8cfe"]
}, Open ]],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{
3.825567130724227*^9},ExpressionUUID->"57afc89b-9ca1-4df9-834b-\
218a004d45c4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "-",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"], "//",
"TrigFactor"}]], "Input",
CellChangeTimes->{{3.819558842678885*^9, 3.8195588744575863`*^9}},
CellLabel->
"In[141]:=",ExpressionUUID->"2438edc6-221c-4b60-bf8b-3d70d6ff12bb"],
Cell[BoxData[
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"Sin", "[",
RowBox[{
FractionBox[
SubscriptBox["\[Theta]", "1"], "2"], "-",
FractionBox[
SubscriptBox["\[Theta]", "2"], "2"]}], "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[",
RowBox[{
FractionBox[
SubscriptBox["\[Theta]", "1"], "2"], "+",
FractionBox[
SubscriptBox["\[Theta]", "2"], "2"]}], "]"}], "2"]}]], "Output",
CellChangeTimes->{{3.819558859086911*^9, 3.819558874912162*^9}},
CellLabel->
"Out[141]=",ExpressionUUID->"c9bd8e93-a480-4036-a458-76653945c9c3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ".",
"f"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"ImageSize", "\[Rule]", "Large"}], ",",
RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
CellChangeTimes->{{3.819557700391287*^9, 3.819557725339135*^9}, {
3.819557836763838*^9, 3.819557940197953*^9}, {3.8195579704366198`*^9,
3.8195579833058367`*^9}, {3.819558035796234*^9, 3.819558036951989*^9}, {
3.819558068208893*^9, 3.81955813981747*^9}, {3.819558837202861*^9,
3.819558837640895*^9}, {3.819558885770865*^9, 3.819558936658802*^9}},
CellLabel->
"In[149]:=",ExpressionUUID->"75603725-0506-477c-b0bd-726fd243172d"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1nc8lH8cAPCzz48GGZVESLKbKLqnkpFCCqlE9h4lshVRKckOIe65s/cs
+l5ClJAtszKikL3z+9xfXu/XZ36/z3N39pk561kyEgiEUwwEAv0vE/qv6ecx
11M/9CtrNjen0f7xdyf3RuqQxM7fuGs/O41W8+UseiJMSKaDPgl9w9NohMdm
uTTCmaQoqXymuWEafVMLqsYj/EmJMTHNC5HTqMMk4sCriOckzV/FcWoHp5Ge
w65vcRHJJF3rwmt/DKfQi9kbRTEReSS83ExlvuYPOll7/r8zd2gk085rysIp
48jFS/tWkUs96TeL4jZVwhhyLLcMYxRtIT1xDGiVLhxG7b802alm7aTk6NZV
5Xs/0BO5RUKpUTcpZfWk/9GUIeQqVR9Nw/tI1F6hiqHSfrRqbp/b7zRE8old
F7RN/4bMqgx0w61+kC68DBtRFe1G5jPtNNqjYVL5qwnpZxUd6Kl8mTMleJSU
nePLV1bZhhhpZQpBXr9IjQRHjwqGVsQlqdU0GDdBerzdbqTKsAVpJJ9J+xvx
h6TXobNrcPIL4p9uVPMvmyK1PTvBInLuM4r/+IaByfYviWeeO1Fyth4pC57e
FLaYIa2wYuGJm3VIamj7sK/bLKlWMcG4jr8W5aRz25TcniNVbJlUdPD+gHwG
jNukgudJX6hOD6VH3iNXZUWtpKgFkt7pJe2DXjS0mqxq9jt8kZRSUHb3Ycg7
1OISb+qRukRKEfFMjRKsRErqIv/6Xy+TKqvy0yo43qCGc0rpWOIKaZi5x45F
phzhBS+VfmStkqJqTQrtdUsRr6i03c2MNRLhQPlwbkUxamUgPthVuU5KCdAf
9JMoQiXEO5SWhg3S8l0FM9XaAiTNu93OrPYfKWD9iP/5hHw0HbbIc6Rzk5T/
yzIqazEXiYaEyDnbETDTMVmV9j056Me13m9nxgiY8K1q8YKHWUhjpG2lxIkB
a3kwbinMnol8pcK881wYMGyVV5XInIkKXTU20m8zYKZn5a3m/mUggX+VhER3
8NrI7bb5DDTFR2F74MeADQmpxb4ZykBRGvd4tcMYMOF+Lj2xigw0lLXn0GgO
xNX35Zg4ZKB7ty1t+CYZsBRGjVfn+tLRI60p6xPTDBhh90H1hK50FCvmYX1z
BvIHiMHzremotPORFWUB9pnnf1fQkI7mTmRbHP8H898mLxqUpSMnpjlTg22M
mGkQ4b5WZDoyjwowijnEiAlPPH/VfjEdaZcmnOdzh3hkrJXIFyqymTPb5L0H
nqIpRzVQUaC8ZDGvFyMW8G1qklhHReWZ5YK8fowY7YZY/+o7KhJJ7vi7Ixj6
Bbl/JRRQ0WLItliuGHBTolhUNBUlGQX+5CxlxLDPT1ZbTKloat3Oh2mREUvp
Dwy02qQgo6taB1eWGLEhM0bW6HUKqimS6pxagfnr/Mx1KxT00u6P3LcNiNt8
dJKbpyDVbsef+SxMWMD0rSGhcQpKKHI5f5OXCRM+ynnOvY2CNOzcd1YcZcII
XM2hMxkUVFRrUJt7HPI7+B0dqRS0d5/CbbIixDW8qL/JFDTXtfT5uTLE9WRE
p5MpKOmcp7+VKvQbpPJzx1DQvLDP6I4rkJ8utFn3gIJed90vdrrDhJmig9tG
jClotFZ+MOwuxOOssz2vU5B08SB7ngfUx8v93G5EQaXhKibT3pCPZ/KrX6Gg
Rs0VdpcgJiwlx9Ct9TwFLb91MXGNZsKGbMUrzRUpSDvF5D+3Mqh/q+RhxUtB
UWFbj0VVwH4meX5aOyiox6fKpPgtuC5r5jAXBVkYCZTMIyYM+2DPw76Fgjy5
u0zu1kM821yslZmCyEHaJe49sJ9wqETnPI5WbVRMPddgn9RdzxI6cXT+rSR2
dwPmy3jsmmjHUcKWncKumxAXH4s70YYj5cLZQRsmZozwUcnhezOO/NaoJlc5
mOH9PXdWrQFHTGHcJgoCEF+iUO0rccRZNGa8cIIZG8o2+LOHjKMbLB0qM8qQ
L1f5hJqKoxzDasHJU8wYlrq4cOQ1jrTXE/uHzzBjpiHCsnpJOAo/p2fcfp4Z
C2iuZiLH4Yinu/JG0TWox7gUE5/hSHDjxXVXL6jXTjPvvIcjjR8XK2J9oH54
jebrgSO3j+z87/yg3tFm6wF3HH16cb/1v0DY74/1Hf87OHIXd9Ukh4KlnU6q
O+GoRUdXoSsR8lXPOB+ywNGD1K07VBDs/3RnveUl2Dfkk4v5e4hfE1DQ0MVR
t0Nw0+MPzBjtZqGltA6OZBX+Pe78yIylsESvrVzAUe/nSYJLC/j4xmCGBo6O
LjROpX6H/W+an7iO4WhUPfQTkZkFG/orW7YijyMzLVPh/awsmHClhS0vuF/7
mPtpIgtGUOxLPCyHo3b9wX1enCxYgOvsfVcZHFWbH/H8zQP5yR6CDJI4euXf
e6BpP+T3BJlaieLoSpnUw0h16B+YeJXED+d7Q+jN02TBMA4B/0d8ONJ61yHf
qAWuslht5cXRmVr/PmZd6L+zf9yeB0fybW1H3K+yYLT+/4JzuOB5Tnv/uGoL
/pJx34kTRx/EG0l7QyF/NIp9gBHen7DB83zPID6WXnoV3LIwq7/1OfQfL7Vq
Z8DRQM0uh38RsM+c8+cmAo6WzazjBuJh3za5x83/yEg6mXEmKRNskTWyuUpG
hax86zHZUJ/td/oJWMnpINvzXOgfKPmcF6ymoivoXwj9jjStya6Q0a3eV5om
byAeTV13WCKjGH6lVKFPsB/z+3yeeTLa438hh78R+hOfZeXMkVHaqEn5tibI
tzANUQfnlwQ3bX5lwUwfzvf7zpLR58vtq4M9LFjKWv34/F8yIoQ7X04Zh3m8
G1EcU2RkR6Qw72NnxQjJGjvaf0E+46NnZzlYMeGVdBQAlt6w5bPawophA4e0
ZcHTMzISWVysWIpfNufTMTJy6y3ROrabFQs4PPX70igZ+ebWRmhKQdyNtpt1
mIwG0qkCDjLQP69Lj/aTjLC0x+QwOejPyWvkDWaMu1jadoQVG4rg/Tz3g4yC
73f0GCtDPLZTZOo7GYVfGRG+fZEVo7VEhLMNkdGM9seMKB1W+D16urNpkIz0
NDMOl12CeRLY9Wgw7ylH1XV92Ceag1McHH9gwTr4JsSl/q7oDJAReZU5L94Z
fKn5X00fGbEsjCpUucK8xrvkGLDVdD1t8A54J9usDfjg8NNWsXvQT/FiwDZw
7heexdwA2OfcGU2LXjIqSxFT+fAC4vOdz6S+kZHYpqr3+0g4zxap5+zgcGPL
ChQNzti141cPGdnsphyrfAn13hLJFPDuqAOyJa/hfsO7cw+Cg2fVHYrSIC7W
kMUBntW1ySzAYZ+D4mJT3fB8tmSI52bAfVLiAovBPiGSQtQCOE9x2rAa+NfI
eWO8COI6imRpsL6qfUJaCcxHMt3cYFmGbP6UCsh/h14OdZHRoJfM9pfvYX9T
kv198BkneYbQr1C/6B3S1QnnbdQlPW6j92veXwMWkHL1DekAf+yULADPjxWs
BPZAv6pMy6dg/NaRWZ/vsO8H0RB1MDftsrz3Tzgf59ezCmC/vW5OniPgzgjT
A2CD3uKJu+NQL7etjAgm6h//6TQD9YWS75s74P0qMtjnOAf7ZZVZV4O/c3mY
2C/AeTYHrEvAb5rKeq3hnzvT2U+uiWBxme5dVmv092HZMxwcEbpsaLEBngzv
DgLbayi1mzKwYUNLfdFO4G6KEbcJExtmSt2YNQersnjpGrOwYbS3FmlG4D3V
bxqN2NmwgNix1XPgppPKtXpcbPB553QWAT8pv7umtoMNS8Hq7u0Gqx/LO3SS
F/qrJzZyg2myIkmiuyCuQtNhBvtmXW/nF4B56Sm+G+1kdEIi+j9OQTZMGK+e
XQQX7SN6zAtDfupi3gTYJel0zi8R6FeRvDgMlhbw/tknBo4ovz8IpvBM6dRK
gHc5mXWAzV4cCK6QBN+nlLaAhbbeqsyRhvOIBV9oBMextUvEyEP/f/dO1ID1
g7aYPDkM85OlX9DA3Azq0X5H4bwX68WrwE2+AZ9vH2fDsIpXqxXg0NUKBmtF
6Ld/k6MMrOExp3D9BMxzJl0rBjPPSzvpKEOco3C4APzexYp89hTcF2tWZh7Y
bzL5mwIG+Yz+WTn089v1bJc+A/eBBY5mgZdGudWFVSEeueV6JrjY/IIvjxrs
4+hGzKDfx9DDIqIGuGPrFBUsY4zG1zXBzkc56J7oWRaa0YL57iomFPr9GBw2
GLkIrnkwjoPN2+yf9ujAeRqMM+gW1sWrv1wCv5BIoruvcWD5/WVwrcpHul9q
7pQr1Yf7oi6L0vsZ1F2yzDSE/fhKiujmPhuakGQE53vRfJc+vxnVfI24Dj6I
26aDnyr/YwsxhvuNjgyj769RoXDK2wT23b/yk34+luOubs63oF/dUdtscHVh
Zqa5OezLQhHMpd+X3PCQoSXcD3sOIR98MluQ/4I15MdmchWClyUML2K2EOcn
6NLvvxgPDzxqD/WPt70tBcsmM/3d4wzzHMZ4Kun3I6AizuUK59lwZ0Rgapz7
DZY7sO8H7d3V9PuIGK+fdId6Zoe6enD/VtHN7/dgXoqvEf39iQ+9cazTC+Zl
O/PQ368dD5tfv/ODfgpRm13gFgb27sIA6NcbK9tHP7/fma3UB1B/fG/gEJj1
XonX82Cw3o34cfr+dgmXTcOgXtTMlf55eO6VxuYfDvve7JZnon+en2S9fRUB
+YYrfOxg/Yy3or0x8Hx0jK7wggvHeuf0k2FeVqS/HNjBYk+UVj7Ye27VFszk
JqZhVwj1dg4truD4QOn1R8VQz+L83hPckKpsUVcO8Qc2c4/p877fOHr6PZyf
Wh2UBR4yftV+vBX2E6lpnAV7OOKP9Nuhf8Ei5zp4q2+Oslsn9FPzuskC318q
iVXkgm+Q/5r1yE5w/Ld+N+mf9PfF+sUp8BXDvbwi82CH6eRn4HrdZP0tfEQs
YPjL7kPw/WtXM/KObScRo12SrDgB3qIoLcG4m4hhS+cMVcF6QhWri4JEbKhG
9IUhuHeyNXloPxFL0Qn46wueesI6UXQMHHOD+AnMW+vod00f+nEY7DSG7/9y
xeKxK4Yw76TGkiX4Wvaqro4R9FdO/+QETooMEVU1hv7GnhcDwBJmr+tlLKG+
avNNKlh5s52b4S7kz3AtDIMHbgv4rLkTMYJ7x9If8P3RWyML92B+uc/EPLju
y1TZhA/YzCmJGX7PdBKJxu1BRExYoEVJFGympEylRoFbXxKNwbaTXxb6YiDf
nqPcAuzy2kSV+yXEtbK0HcD+7IHffV6BhbXkvcGJPQ0CehSYbydSFQtOe3bd
LiQd6o/zJiWBM09Plldmwv75m+Y4uCJju8GBPKjfLH1VCO70NAxfLwP/bXn/
GdwvMz5w6A2c70P8h6/g4e9eMtaVEB91Te8Cz2kmffpKA7+03f0TvH33CDO1
ASyT/XIZzN/kfrnvM9xvLEvuBnjvA2IqVxMRM3VsSmOE/wdkJqRIPq3QX2rx
MCf4/Jvbnpd6Ib+p65sg+JITc31wP+zLObCwD3xVJIavchD6P2Kc2Q+2flJR
JD4M/Vx5QmTATqe0GG+MQv36232HwO6zfbovfsF9MCwmHAUHXSNMrf2Bfr9T
ZU+CQ7dGKB+ahvywHrVT4Ihq0VCrGbCY5KnT4NeS6hJfF+D5D+Q0qIHTB7rd
WZdhvlmusSY4P8Ku9uQq7B9p3qIFfrf6zIzyD+o3Ii/pgmtzhQp6CewY4fio
iR640axgczsTO4btTbhwBdzOd1ZbjYUdC1B6zW8A7v3UnujNBvnYL5oh+Ief
1e98dnr+LQ0j8MThZaVRDogvbeRcA8+MPn4ksJUdSxEsnLkOXo4X6NLdDvG9
t3cYgze1c/YHc0P/8iM7boJZmUhub3nYMeGByb90bylrqf7Lx44NvYnLNgHz
2Jtxie+CeZkyaqZgAaF5k+sC7PB7RK2iW6TtYW64IDtGO8uw4xZYMoR/o1YI
5uUpqtF96GSG1to+6FesZUj3/4aG4XE=
"]]},
Annotation[#, "Charting`Private`Tag$23099#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,
ImageSize->Large,
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.819557696534634*^9, 3.8195577259468946`*^9}, {
3.819557760697797*^9, 3.819558002173208*^9}, {3.81955803262062*^9,
3.81955814052495*^9}, 3.819558839069467*^9, {3.8195588926642313`*^9,
3.819558937141407*^9}},
CellLabel->
"Out[149]=",ExpressionUUID->"dde512e3-daf4-47ad-a682-cc46fac9e729"]
}, Open ]],
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/a_0\>\"", ",",
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}, {3.83074155439583*^9,
3.830741560871292*^9}, {3.8307418252306633`*^9,
3.830741830583344*^9}},ExpressionUUID->"6619aa61-41df-4561-afa2-\
5b697e931325"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{{}, {}, {{}, {}}}, {{}, {{
{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.}}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm[
"Butt"]}, {}, {}, {}, {}, {}, {}, {}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], CapForm[
"Butt"]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}}, 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)], #}},
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[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}],
",",
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[{"{",
RowBox[{#, ",", #2, ",", #3}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{", "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->{0, 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["$Failed", 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[{{{}, {}, {{}, {}}}, {{}, {{{
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.}}}]}}, {{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6]]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[
1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}}, {
DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio ->
GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None},
AxesOrigin -> {0, 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}, {$Failed, 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.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
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}},
Joined -> {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}, 3.830741568815795*^9},
CellLabel->
"Out[112]=",ExpressionUUID->"9d744fe8-28f2-4d69-9f69-3b1ca48103fd"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"\[Psi]c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
".", "f"}]], "Input",
CellChangeTimes->{{3.8255671403095007`*^9,
3.8255671407645397`*^9}},ExpressionUUID->"b5b12c32-af87-4895-806f-\
bf157bb129aa"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"0", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
RowBox[{"2",
FractionBox[
SubscriptBox["c", "1"], "3"]}], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}],
SuperscriptBox[
RowBox[{
SubscriptBox["Y",
RowBox[{"1", ",", "0"}]], "[",
RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "2"]}]}]], "Input",
CellChangeTimes->{{3.82556704003997*^9, 3.825567086674712*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"cc05efbd-961f-46db-b61a-58c996905985"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
SubscriptBox["c", "0"], "-",
FractionBox[
SubscriptBox["c", "2"], "5"]}],
RowBox[{"4", " ", "\[Pi]"}]], "+",
FractionBox[
RowBox[{"3", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["c", "0"], "-",
FractionBox[
RowBox[{"2", " ",
SubscriptBox["c", "1"]}], "3"], "+",
FractionBox[
SubscriptBox["c", "2"], "5"]}], ")"}]}],
RowBox[{"4", " ", "\[Pi]"}]]}]], "Output",
CellChangeTimes->{3.825567086983945*^9},
CellLabel->"Out[16]=",ExpressionUUID->"8fa408ca-cd50-43f5-b8e3-e8f3a0b3e9c1"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalGamma]", "[",
RowBox[{"1", ",", "2"}], "]"}], "=",
RowBox[{
RowBox[{
RowBox[{"\[Rho]", "[", "1", "]"}],
RowBox[{"\[Rho]", "[", "2", "]"}]}], "+",
RowBox[{
SubscriptBox["\[CapitalGamma]", "xc"], "[",
RowBox[{"1", ",", "2"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.8255726886967688`*^9,
3.825572727248165*^9}},ExpressionUUID->"98d3c666-fed4-4e94-8773-\
702f80e147f2"],
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["\[Rho]", "hole"], "[",
RowBox[{"1", ",", "2"}], "]"}], "=",
FractionBox[
RowBox[{"\[CapitalGamma]", "[",
RowBox[{"1", ",", "2"}], "]"}],
RowBox[{"\[Rho]", "[", "1", "]"}]]}]], "Input",
CellChangeTimes->{{3.825572744179343*^9,
3.825572776821579*^9}},ExpressionUUID->"7760399b-0d77-4553-9ef6-\
998865cceadc"]
}, Open ]],
Cell[CellGroupData[{
Cell["Triplet P state at the HF level", "Subsection",
CellChangeTimes->{{3.826883274965623*^9,
3.826883280731924*^9}},ExpressionUUID->"77b56f7c-700c-4596-b77a-\
642cfae1f22b"],
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "5"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"H", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
FractionBox[
SubscriptBox["\[Delta]",
RowBox[{"\[Mu]", ",", "\[Nu]"}]],
SuperscriptBox["R", "2"]],
FractionBox[
RowBox[{"\[Mu]",
RowBox[{"(",
RowBox[{"\[Mu]", "+", "1"}], ")"}]}], "2"]}], ",",
RowBox[{"{",
RowBox[{"\[Mu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Nu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"ERI", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
FractionBox["1", "R"],
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[Mu]"}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[Nu]"}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[Lambda]"}], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "\[Sigma]"}], "+", "1"}], ")"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"L", "=",
RowBox[{"Max", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"\[Mu]", "-", "\[Nu]"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"\[Lambda]", "-", "\[Sigma]"}], "]"}]}], "]"}]}],
RowBox[{"Min", "[",
RowBox[{
RowBox[{"\[Mu]", "+", "\[Nu]"}], ",",
RowBox[{"\[Lambda]", "+", "\[Sigma]"}]}], "]"}]],
RowBox[{
SuperscriptBox[
RowBox[{"J3", "[",
RowBox[{"\[Mu]", ",", "\[Nu]", ",", "L"}], "]"}], "2"],
SuperscriptBox[
RowBox[{"J3", "[",
RowBox[{"\[Lambda]", ",", "\[Sigma]", ",", "L"}], "]"}],
"2"]}]}]}], ",",
RowBox[{"{",
RowBox[{"\[Mu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Nu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Lambda]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Sigma]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"P", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["c", "\[Mu]"],
SubscriptBox["c", "\[Nu]"]}], "+",
RowBox[{
SubscriptBox["d", "\[Mu]"],
SubscriptBox["d", "\[Nu]"]}]}], ",",
RowBox[{"{",
RowBox[{"\[Mu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Nu]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"EHF", "=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Mu]", "=", "1"}], "M"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Nu]", "=", "1"}], "M"],
RowBox[{
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{"\[Mu]", ",", "\[Nu]"}], "\[RightDoubleBracket]"}], " ",
RowBox[{"H", "\[LeftDoubleBracket]",
RowBox[{"\[Mu]", ",", "\[Nu]"}], "\[RightDoubleBracket]"}]}]}]}],
"+",
RowBox[{
FractionBox["1", "2"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Mu]", "=", "1"}], "M"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Nu]", "=", "1"}], "M"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Lambda]", "=", "1"}], "M"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[Sigma]", "=", "1"}], "M"],
RowBox[{
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{"\[Mu]", ",", "\[Nu]"}], "\[RightDoubleBracket]"}],
RowBox[{"(",
RowBox[{
RowBox[{"ERI", "\[LeftDoubleBracket]",
RowBox[{
"\[Mu]", ",", "\[Nu]", ",", "\[Lambda]", ",", "\[Sigma]"}],
"\[RightDoubleBracket]"}], "-",
RowBox[{"ERI", "\[LeftDoubleBracket]",
RowBox[{
"\[Mu]", ",", "\[Sigma]", ",", "\[Lambda]", ",", "\[Nu]"}],
"\[RightDoubleBracket]"}]}], ")"}],
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{"\[Lambda]", ",", "\[Sigma]"}],
"\[RightDoubleBracket]"}]}]}]}]}]}]}]}]}], ";"}]}],
"\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.830473225525598*^9, 3.830473266650823*^9}, {
3.830473467880327*^9, 3.830473526937747*^9}, {3.830473567469343*^9,
3.8304737943835783`*^9}, {3.8304738507796183`*^9, 3.830473865402197*^9}, {
3.830474375921876*^9, 3.830474423491139*^9}, 3.830735504071245*^9, {
3.830735548008272*^9, 3.830735555839553*^9}, 3.830736428075189*^9,
3.8307365554896917`*^9, {3.830736622565399*^9, 3.830736632714836*^9}, {
3.830736684566133*^9, 3.830736684613557*^9}, {3.830736827507369*^9,
3.830736827619969*^9}, 3.83073685845255*^9},
CellLabel->
"In[123]:=",ExpressionUUID->"0096765c-1955-4233-8b61-c68add30afd7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "5"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"t1", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{
RowBox[{
SuperscriptBox["R", "2"],
RowBox[{"(",
RowBox[{
FractionBox["1",
SuperscriptBox["R", "2"]], "+",
FractionBox["2",
RowBox[{"3", "R"}]]}], ")"}]}], "//", "Chop"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"R", ",", "0.5", ",", "5", ",", "0.5"}], "}"}]}], "]"}]}],
";", "\[IndentingNewLine]",
RowBox[{"t2", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{
RowBox[{
SuperscriptBox["R", "2"],
RowBox[{
RowBox[{"FindMinimum", "[",
RowBox[{
RowBox[{"{",
RowBox[{"EHF", ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["c", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["d", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
SubscriptBox["d", "\[ScriptL]"]}]}], "\[Equal]", "0"}]}],
"}"}], ",",
RowBox[{"Sequence", "[",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["c", "\[ScriptL]"], ",",
SubscriptBox["d", "\[ScriptL]"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}],
",",
RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}],
"\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "//",
"Chop"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"R", ",", "0.5", ",", "5", ",", "0.5"}], "}"}]}], "]"}]}],
";", "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"t1", ",", "t2"}], "}"}], "]"}]}]}], "\[IndentingNewLine]",
"]"}]], "Input",
CellChangeTimes->{{3.830647960800611*^9, 3.830647984368167*^9}, {
3.830648066133828*^9, 3.830648116961814*^9}, {3.830735245706052*^9,
3.830735290795759*^9}, {3.830735326842476*^9, 3.8307353568877077`*^9}, {
3.830735487419773*^9, 3.8307354898285303`*^9}, {3.830735534745571*^9,
3.830735562582773*^9}, {3.830736430381339*^9, 3.83073643051947*^9}, {
3.830736557810408*^9, 3.830736580382964*^9}, {3.83074198769138*^9,
3.83074198801427*^9}},
CellLabel->
"In[126]:=",ExpressionUUID->"b5718ede-6400-4124-b4a6-2186a8843623"],
Cell[BoxData[
GraphicsBox[{{}, {{
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{0.5, 1.3333333333333333`}, {1., 1.6666666666666665`}, {1.5,
2.}, {2., 2.333333333333333}, {2.5, 2.6666666666666665`}, {3., 3.}, {
3.5, 3.333333333333333}, {4., 3.6666666666666665`}, {4.5, 4.}, {5.,
4.333333333333334}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{0.5, 1.3321627506682057`}, {1., 1.662040362356781}, {1.5,
1.9897228095268746`}, {2., 2.3152998525246113`}, {2.5,
2.638860700178723}, {3., 2.96049497994671}, {3.5,
3.2802894335048958`}, {4., 3.5983285495217125`}, {4.5,
3.91469383988601}, {5., 4.229463906569754}}]}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6]}, {}, {}, {}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6]},
{RGBColor[0.880722, 0.611041, 0.142051], 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, 5.}, {0, 4.333333333333334}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.02],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.830735586848072*^9, 3.8307364447136497`*^9, {3.830736582842355*^9,
3.8307365838820467`*^9}, 3.830741989468062*^9},
CellLabel->
"Out[126]=",ExpressionUUID->"86990887-6b9b-4c25-928a-8a2d9a47fc30"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "3"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Integrate", "\[IndentingNewLine]", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "1"]], "[", "\[Theta]", "]"}],
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "+", "1"}], ",",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "+", "1"}]}],
"\[RightDoubleBracket]"}],
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "2"]], "[", "\[Theta]", "]"}], "2",
"\[Pi]", " ",
RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "/.",
RowBox[{
RowBox[{"FindMinimum", "[",
RowBox[{
RowBox[{"{",
RowBox[{"EHF", ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["c", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["d", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
SubscriptBox["d", "\[ScriptL]"]}]}], "\[Equal]", "0"}]}],
"}"}], ",",
RowBox[{"Sequence", "[",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["c", "\[ScriptL]"], ",",
SubscriptBox["d", "\[ScriptL]"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}],
",",
RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}],
"\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "//",
"Chop"}], "]"}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",", "1"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.83073459034871*^9, 3.830734623615212*^9},
3.830735213633275*^9, {3.8307355774386806`*^9, 3.8307356308105373`*^9},
3.830735667895907*^9, 3.8307364645708838`*^9, {3.830736562947638*^9,
3.830736578184195*^9}},
CellLabel->"In[71]:=",ExpressionUUID->"e6212f5c-f61a-44bd-9741-ee94d91faa85"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"2.0000004831758984`", ",", "2.000000000140928`", ",",
"2.0000000000015334`"}], "}"}]], "Output",
CellChangeTimes->{{3.830734611081441*^9, 3.83073462512887*^9},
3.83073521502177*^9, {3.83073561338946*^9, 3.8307356427160892`*^9},
3.830736102369392*^9, {3.830736461355761*^9, 3.830736465819791*^9},
3.8307365865744553`*^9},
CellLabel->"Out[71]=",ExpressionUUID->"9dd3881f-824b-4e31-8bf6-7abeadcfec2e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "5"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "1"]], "[", "\[Theta]", "]"}],
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "+", "1"}], ",",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "+", "1"}]}],
"\[RightDoubleBracket]"}],
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "2"]], "[", "\[Theta]", "]"}], "2",
"\[Pi]", " ",
RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "/.",
RowBox[{
RowBox[{"NMinimize", "[",
RowBox[{
RowBox[{"{",
RowBox[{"EHF", ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["c", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["d", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
SubscriptBox["d", "\[ScriptL]"]}]}], "\[Equal]", "0"}]}],
"}"}], ",",
RowBox[{"Sequence", "[",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["c", "\[ScriptL]"], ",",
SubscriptBox["d", "\[ScriptL]"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}],
",",
RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}],
"\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "//",
"Chop"}], "]"}], ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"-", "10"}], ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.830473979645761*^9, 3.8304741285754957`*^9}, {
3.830474184490314*^9, 3.830474250565394*^9}, {3.830474964907248*^9,
3.83047497775926*^9}, {3.830475092729837*^9, 3.830475092989079*^9}, {
3.830647806409987*^9, 3.830647863050076*^9}, {3.830647924689271*^9,
3.8306479408892937`*^9}, {3.830734334994896*^9, 3.830734384620667*^9}, {
3.830734426509309*^9, 3.830734445275111*^9}, {3.830734477943736*^9,
3.830734499964684*^9}, {3.83073453133243*^9, 3.830734531450156*^9}, {
3.830734669552342*^9, 3.8307347330418987`*^9}, {3.830734784237891*^9,
3.830734787692189*^9}, {3.83073564655136*^9, 3.830735683307749*^9}, {
3.830735922031253*^9, 3.830735924268929*^9}, {3.830736054508175*^9,
3.8307360613608418`*^9}, {3.830736467744708*^9, 3.830736490036508*^9}, {
3.830736566411104*^9, 3.8307365665213213`*^9}, {3.830736600130419*^9,
3.830736601805414*^9}, 3.830736640645602*^9, {3.830736689957271*^9,
3.8307366899958887`*^9}, {3.83073686333617*^9, 3.8307369979494867`*^9}, {
3.83073703709055*^9, 3.830737037311466*^9}, {3.8307396998582363`*^9,
3.830739703621557*^9}, {3.8307400683106327`*^9, 3.830740070085244*^9}, {
3.830740453538498*^9, 3.830740464794182*^9}},
CellLabel->
"In[115]:=",ExpressionUUID->"b2ce964b-b1a4-4e17-b745-0e349e4a0a11"],
Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{{3.8307370310660143`*^9, 3.830737041883093*^9},
3.830739705899571*^9, 3.830740072472069*^9, 3.830740465312282*^9,
3.830740537631157*^9, 3.830741894590104*^9},
CellLabel->
"Out[115]=",ExpressionUUID->"b0ff418f-98de-4bad-842e-e06fcdb95ae7"]
}, Open ]],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{
3.8307418899456472`*^9},ExpressionUUID->"d55ebddf-dd3a-4100-b7d6-\
bf59fb20a73f"],
Cell[BoxData[{
RowBox[{"\[Rho]", "=",
RowBox[{
UnderscriptBox["\[Sum]", "\[Mu]\[Nu]"],
RowBox[{
SubscriptBox["\[Phi]", "\[Mu]"],
SubscriptBox["P", "\[Mu]\[Nu]"],
SubscriptBox["\[Phi]", "\[Nu]"]}]}]}], "\[IndentingNewLine]",
RowBox[{"=",
RowBox[{
RowBox[{
SubscriptBox["P", "00"],
SubsuperscriptBox["Y", "0", "2"]}], "+",
RowBox[{
SubscriptBox["P", "11"],
SubsuperscriptBox["Y", "1", "2"]}], "+",
RowBox[{
SubscriptBox["P", "22"],
SubsuperscriptBox["Y", "2", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "01"], "+",
SubscriptBox["P", "10"]}], ")"}],
SubscriptBox["Y", "0"],
SubscriptBox["Y", "1"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "02"], "+",
SubscriptBox["P", "20"]}], ")"}],
SubscriptBox["Y", "0"],
SubscriptBox["Y", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "12"], "+",
SubscriptBox["P", "21"]}], ")"}],
SubscriptBox["Y", "1"],
SubscriptBox["Y", "2"]}]}]}], "\[IndentingNewLine]",
RowBox[{"=",
RowBox[{
RowBox[{
SubscriptBox["P", "00"],
SubsuperscriptBox["Y", "0", "2"]}], "+",
RowBox[{
SubscriptBox["P", "11"],
SubsuperscriptBox["Y", "1", "2"]}], "+",
RowBox[{
SubscriptBox["P", "22"],
SubsuperscriptBox["Y", "2", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "01"], "+",
SubscriptBox["P", "10"]}], ")"}],
SubscriptBox["Y", "0"],
SubscriptBox["Y", "1"]}], "-",
RowBox[{
FractionBox[
SqrtBox["5"], "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["P", "02"], "+",
SubscriptBox["P", "20"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
SubscriptBox["Y", "0"], "2"], "-",
SuperscriptBox[
SubscriptBox["Y", "1"], "2"]}], ")"}]}], "-",
RowBox[{"2",
SqrtBox["5"], "\[Pi]",
RowBox[{"(",
RowBox[{
SubscriptBox["P", "12"], "+",
SubscriptBox["P", "21"]}], ")"}],
SubscriptBox["Y", "1"],
SubscriptBox["Y", "0"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
SubscriptBox["Y", "0"], "2"], "-",
SuperscriptBox[
SubscriptBox["Y", "1"], "2"]}], ")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "00"], "-",
RowBox[{
FractionBox[
SqrtBox["5"], "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["P", "02"], "+",
SubscriptBox["P", "20"]}], ")"}]}]}], ")"}],
SubsuperscriptBox["Y", "0", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "11"], "+",
RowBox[{
FractionBox[
SqrtBox["5"], "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["P", "02"], "+",
SubscriptBox["P", "20"]}], ")"}]}]}], " ", ")"}],
SubsuperscriptBox["Y", "1", "2"]}], "+",
RowBox[{
SubscriptBox["P", "22"],
SubsuperscriptBox["Y", "2", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["P", "01"], "+",
SubscriptBox["P", "10"]}], ")"}],
SubscriptBox["Y", "0"],
SubscriptBox["Y", "1"]}], "-",
RowBox[{"2",
SqrtBox["5"], "\[Pi]",
RowBox[{"(",
RowBox[{
SubscriptBox["P", "12"], "+",
SubscriptBox["P", "21"]}], ")"}],
SubscriptBox["Y", "1"],
SubscriptBox["Y", "0"],
RowBox[{"(",
RowBox[{
SuperscriptBox[
SubscriptBox["Y", "0"], "2"], "-",
SuperscriptBox[
SubscriptBox["Y", "1"], "2"]}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.830474886698345*^9, 3.830474909278191*^9}, {
3.830474993211896*^9, 3.830475054281109*^9}, {3.8306487631162853`*^9,
3.8306488009431458`*^9}, {3.830648963104704*^9, 3.830649003248741*^9}, {
3.83065014611966*^9, 3.8306501515648203`*^9}, {3.8306502382792673`*^9,
3.830650281786264*^9}},ExpressionUUID->"20962513-a6c6-46ea-aebc-\
973a60c3f95f"],
Cell[BoxData[
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"M", "=", "5"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"tabHF", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "1"]], "[", "\[Theta]", "]"}],
RowBox[{"P", "\[LeftDoubleBracket]",
RowBox[{
RowBox[{
SubscriptBox["\[ScriptL]", "1"], "+", "1"}], ",",
RowBox[{
SubscriptBox["\[ScriptL]", "2"], "+", "1"}]}],
"\[RightDoubleBracket]"}],
RowBox[{
SubscriptBox["Y",
SubscriptBox["\[ScriptL]", "2"]], "[", "\[Theta]", "]"}], "2",
"\[Pi]", " ",
RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "/.",
RowBox[{
RowBox[{"FindMinimum", "[",
RowBox[{
RowBox[{"{",
RowBox[{"EHF", ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["c", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
SubsuperscriptBox["d", "\[ScriptL]", "2"]}], "\[Equal]",
"1"}], ",",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"\[ScriptL]", "=", "0"}],
RowBox[{"M", "-", "1"}]],
RowBox[{
SubscriptBox["c", "\[ScriptL]"],
SubscriptBox["d", "\[ScriptL]"]}]}], "\[Equal]", "0"}]}],
"}"}], ",",
RowBox[{"Sequence", "[",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SubscriptBox["c", "\[ScriptL]"], ",",
SubscriptBox["d", "\[ScriptL]"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0", ",",
RowBox[{"M", "-", "1"}]}], "}"}]}], "]"}], "]"}], "]"}],
",",
RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}],
"\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "//",
"Chop"}], ",",
RowBox[{"{",
RowBox[{"R", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "8"}], ",",
RowBox[{"-", "7"}], ",",
RowBox[{"-", "6"}]}], "}"}]}], "}"}]}], "]"}]}], ";"}]}],
"\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.8307410481576357`*^9, 3.8307410734529753`*^9}, {
3.830741150283545*^9, 3.830741187675805*^9}, {3.830741932329652*^9,
3.830741935369385*^9}, {3.8307420158647823`*^9, 3.830742032583829*^9}, {
3.8307424050983667`*^9, 3.830742408854731*^9}},
CellLabel->
"In[147]:=",ExpressionUUID->"d3a32aba-35d9-4b11-8965-8489f6e162bc"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Plot", "[",
RowBox[{"tabHF", ",",
RowBox[{"{",
RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"ImageSize", "\[Rule]", "400"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"All", ",", "All"}], "}"}]}], ",",
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[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Automatic", ",", "None"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], ",", "None"}],
"}"}]}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"MaTeX", "[",
RowBox[{"\"\<\\\\theta\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{"\"\<\\\\rho^\\\\text{HF}(\\\\theta)\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"MaTeX", "[",
RowBox[{"\"\<R = \\\\SI{-8.0}{\\\\bohr}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{"\"\<R = \\\\SI{-7.0}{\\\\bohr}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}], ",",
RowBox[{"MaTeX", "[",
RowBox[{"\"\<R = \\\\SI{-6.0}{\\\\bohr}\>\"", ",",
RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Center", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{
3.830650204873693*^9, {3.83074105076658*^9, 3.830741065739704*^9}, {
3.830741163748386*^9, 3.830741217656344*^9}, {3.8307420451716013`*^9,
3.830742126065907*^9}, {3.8307421994522667`*^9, 3.830742354825471*^9}, {
3.830742399708128*^9, 3.83074246778266*^9}},
CellLabel->
"In[152]:=",ExpressionUUID->"0d9be6fe-c20c-4b13-b4c3-a4f6c73c3a1d"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.9, 0.36, 0.054], Thickness[Large], Opacity[1.], CapForm[
"Butt"], LineBox[CompressedData["
1:eJwV13k8VF8UAHBmDEObvSSJkORXSkjovBSFIpSSQrJHdrIkIkuL7CFLkbUQ
spRIi5I22VPCGDPjJS2Ylfyuv+bz/czn89659557zjsKTj5WLgQ+Pr7j/Hx8
S7/EZyIfx7X89pi/21Fbbh2+R3myVW99mgWE0Q8oqIvZAvfhNucvqQ5g+pdn
9FvUAyYk3dkNqT7w4PNDxTbRUBgyjn1RnHoJzDGGnoNoIvQ5pG7KS70Jj1KP
xy9blQ1WXjJDWakF8GChqr9PuBxS/p6qy0ytBkO9MO/1c02g124qYhjQBvW7
Q0wUi96Cb5j5mTrfDugKKk1pudMN3k0uSYSNXbBDJ2BrFGUAehkmwqVOvdB4
PWJP5L9vcHUbk6/BdhBmcbWrymmjEBZisoXmOQiEKY+c8Nuj4PEs95h0xCC0
8J/59a5oFA5a7KsIzh+ES7/3u9s9GgUhn2RrnfFBELUayNXqG4XYKrWSJq8v
ELBw89SA1BhE/udg1nxpCMJeK73tSR0Dvy0dGW3F30B5SOz+SDgFqC7UqDsN
30DJSoxy/zIFbO7weUW9+QbHnBw7/RMpsFtK1xCb/Ab3Mycf/c6kAGGxfPqZ
+jBcfZW4rrKGAqnd1w48qxuG/NCk25tpFKgNteC0PP8O96pXuxqYjQP37Lmq
4fOjoHO0otVAkAqOYjMXngaPAtO5utVlGRXaW8P23Y4chZqjWjcTRamQLHN1
8EQSWved2vJXa6mw6VMZobdyFLZuDpsnb6PC0d00m86pUSj69Xz0nQ0VqkTP
LDZ4joEG09bCpIgKTi02R5JdKXC1vc0mX2MCdjSsEZfxoUAkM9deWWsCCNVD
PXdDKJDCe6tQpjsBhXfsj9clUKDS2It2x3ACKDGu9v0VFCj2iHnmcHQCnEyD
vdb9ooDbcPg5qRDkgYyEspBx8Ok43x78eALO/ulta0uggmrUeEv7Dho4hiUf
b0qmQq2Cqf4abRqcIh6ars6iwqBFXr2bLg1spF7KFpRR4eLKlqIFoMFB3Zrg
ix1UsDD60EQ6TIOt0TfUd5MnYPWj83KJrjRgixpn1cVPAO+/3hifWzS4rtHo
UxJHg+X/nK0t/tCgc8cALSiJBq3bA9QZMzQga7FOG2XSwOzez7ZIJg1idXUO
UYtp0LizW7mYR4Nww0ZVxXYa3NMZVBwg0cHzaONYHpEOHxmzhG4ZOhy40Gid
EUUHt8/pM5oYHQhtjTqxYQx4kmVI2RxPh4oV4iULlxlwemThvl8iHazsvCRD
rjGAtiAV0niNDkXMDX88chnQzr9vnUEyHfb/d7XCopUB3wa9pzWy6RCXc0pO
ljAJI80uIi0VdBAJ4ifWJk7CLuUHIaHv6SCmZvZxJAuH+zJjrSuXoecKFYh1
3MGB21W57d1yFMfE36MPy3AISuXzjlvJAOe7OV+jmnAgOe8/yhFjQNManKEw
iMM39g7Bz2sYYC+USHRe/QMklvOFmqgw4AH19S5Gxg/4MXbT0BNjwMECw6Lf
qVMgWbTe+4UfA1b/em98qXEakjX2h6t3MyDnzRN+osdvaOzOu/dYZRL05fYu
bnD+A+I/1KckfSZhy6go9WLgX7hIqOz0b5yEyjJx93r/GZj9NPSXMzsJsX3P
9hJDZmDaIiqWOTcJpwjespbhM5DdG5f5lzkJIqfefJyKmYEvpUq7J9mT4Loq
QkspYwa+PrkW2DU/CRuCJwhpjTOgEcSyixPAIX1fU57v/AykvGOK3ZDAIeL7
6Z4tcbMg4yosO70Nh9kDBnkuV2dh4w2RKy81cPCqWedWkDQLpIW7tlnbcbCL
/coVvzULKn4UDNPEYbearSK3dBYm5bt4Cdo4cIKO+nW8nYUhq8xXC/o4BK8w
W+WyYg40Fx0r/UxwmA5W+5IvNgeJVdVZmqY4uI4KFw1KzcFc/dqxWWSbug7t
Q+vnwHx9bnzQIRy0bI3tNbfNwYD2Q3kfCxTfvb2V/JZzoF78RH7fMRz89HeZ
5afPwdNQ3yvnHHHgO59+6WbWHETbqjYuP4NDUsHvuqjcOUhwHrSoRK4glK87
e28O0uK/PppywoHSITO96dEcfGhJ3e/sgsPRY7zkmp45WJTJ2KntiYP2+db+
V+JMsG77qHE2AIdXBWuXNUgzYZfRSOlvZKvPwVC6lgn+b5UjLgbicH7ntrJE
RSb0pavrZQThUMotCDXfwQQtN+llLSE4rImPXjdoyYRTefTan+EoLwv2O/1I
ZsK+PdVan2Nw2MMySN2egZ438pBhHYtDtLnOi5BsJrwOWNXdh0xe2KwoUMiE
4ynZxgNXcJA6uYqyro4J66XmKrvicdCQHDpj3seEYafhbXnXcAg415OS/oUJ
PWJ/FSWu49Dw4v3zoWEmrDHyPZCAbOD3TMGNxoTLEREbfW/gYPrx3tglFoo/
p15e+yYOLgk+Z2pkWFB/wWQyJxWHshH3FJYcC2S0GrqIaThMaTs9N1BkQb+9
2MQ5ZP+JowqdaizY5XwlTTcdhyjD3WMUPRYcNlTge5eBQ868wBlJexbQ1ZtH
2tE97fLNcQwpZMHfZ5qia/NxUEsW5QWWsOCt9ticE3JMdVyGfwULzpVKy91H
1p727/SuZcEe38BtugU45J0z2+n8ggWBdTcdDqF77uk6L2RJYcFHpf3vzAvR
eV3xLzSnseCMG6vhGrJcMUP/EM4CScKnsTfIXeO9fgf+smB+zZlZgyIcdM5U
fjUgsKEh54ywwj0cBE7ZV6spskFX6EX/i2Ic7MN7TVRV2GCCexXPIDfmmFKV
1djAB0Y1G0vQ+79oyyjsYENm/qqoaOTPNqtiVhuyodJAjqVZitYXfEVOypgN
P+8bPrBHjs3gNYqbsiGo8GVeAvKuXvrUCis27IoO0RpCzrdssxFwYgOTJKsV
iOoW21f7D78rG6glNzqzkK2SH1xb9GBD/s/i20+RSZ+y2rh+bJD9Evibvxzd
30N+an+i2fBvxMkpBvn1Ofqr6StsELTs776LLH/ttMNUIhuUnh+LfIbc/dYk
nZ7CBn6dnXFsZN0Div+G77KhMb78+JkKHHYWdSa8KWZDunKSSijy1kV/iZpy
NlT5V+skIys2vlSNrWHDYYGgDU+R10l41XnXs+FGOx+7C1naR3LP8cdsyN6W
JTaBvGyTi7Xaczb0R7eILLuPg2DMiu8S7Www2qmNr0PmG6l3X+hA61FKXrYV
eTZTMLKriw3V355LmCNP/60iP+llw93WeO4pZIb58bSiQTb4ii7beA55WLCs
LHiUDXMv1XSvIA86HdF0pLKBdLNJJQW5u5XdYsJgw8Nc2rFc5Pdr7x7UnGLD
VEXV6xLk18EmPet+s2F8TCT0IXJb95/TgrPIPXNej5GfbM1h/GKx4dJFz8Ln
yI+uGgZ84bEh0shZ5i1yNQ1feLHIhsn5758/IVcYpiU8IHJgxUj/uz7ke/l6
EplCHLieclDoK3I+dzzv0jIOYErbY0eQs2yuq3qs4oCPWJLhOHJq7c46KwkO
3DI4bUhDvr5y2EB/NQfyWLkxDOQ4zysdyrIcqGGbCeLI0a//s14lzwFPZ4/O
JUco9g+zFTlQ2jH7acnBkZHuFBUOFMtNSy/Zd0hl5p0aBwReHytYep6n9qeL
9Vs5UJuk7rH0PufUEHLBDg4wqwICl+Kxn5ZPS9DmgG+H+vOleE+Ydsj57+aA
ON3WYmk91iW+ZXZ7OLAhemF9P7I5QUbTyJADGiFrNbqQD9o/b9lqjP6XfHR5
ab8Mn3gcXGPKAZkVH6VfIOtLi/fwm3MgPtpramm/tf2fnP5hyQExXhqxBlnj
oxOj9xgHCrxNTpUiK8fVLZSe5oDThsDupfPdQLFLSDnDgSN2c7+Wzn/tHgGJ
cBcOVMSuswhFXsk8qmruzYFzm0K7TyOTrRZqdfw4YDfVwlzKL0JVsYFCEAea
td+cAmSWC9NqNoID/VGm03LIf5/nDw9HcWBIdkBmOfKU3AH3N7Ec6PY/HM9B
+T3ad+tiznW0P6sVVLuR3xrplmG5HDCrLrgchnzhTeTWS3c4cO94c40jsqrJ
q0ct9zjgEpzMb4wcd8ji+e5KDhxKrSSuRN5v7TK0s5UDHnFtaWnofs72VjgG
vODAYZWaTn/kIpvftJrXHOj5x1S0RCacDJ/Z+okDFNJXnWXIbY4pyzePcsC+
P3luqZ74UvpT3agciHlQp3sYWd55nUwJgwPvO34UKCFHupUqb/zDgcY0wZ4u
VI/0z7fskSNwQWvrn/71yI3hk75iSly4/++1Twqqh64LW1kWqlyQxycpdsjS
lwIvJqlzIWflyjBl5MDLi4nLtLiQHsqQbED1dUeiVBHJmAvchUm+D6j+VmXu
7eO4cUHm0Mrez3dRfq2Jt9vlxYXw9Wuzk5BX5LwfC/blwljFnVhTZK+849Mz
F7iQffrTp2eo/qvd8xaaTuRCk8F9vTuoPxTXZOtS7nOhrOZ76q48lM88O7XB
ai4smLKxn7kof4zWy36s40KFwN6dd5GfDhbOP27mgnfAsh+CyD2L95+lvOOC
faZZ/tscHPjNW432/uBCq9qCoTrqX6dxiuUdNR5kKqT2uaH+qLiz2DBzKw/4
SsmxJGTGRTfN6zt4oPnqzcXCFLR+sSnJC7t5EKY0bz2UjMO1XXMDFqY80HY8
kbIX9dvHcUL2ix486NAdj55G/Vtqo7qnfTkPFL0+f3uJ+n9y6jWb8koe/Ge3
xWgvsgjhh+FsDQ94lkqUFvT9wDdWLnv1CQ/cJPc3P7qM8jF/04f6dzxQeZgw
kxWF+uHajRorpnlQcevfG70IFI/4WmbzjnmQDdUI+umPw6/oUIqgzjyU6MWu
s0L2/DP40VJvHmp73xAb/HBw7LpVSt83D6MphWnhvjgcSpKylTg2Dx4bbF4u
eOOwUUTsqWfIPJh9sn783R3VV37yZZmn85BECmuXskf1ujLb/kjbPJTrG/q5
nsZB+OQWvfhX8xAYvMO34RQOWK357Oz7edhVs97jqB3KB6cM167hecDZ+lYJ
J9B+vVQ0i1+chze/WSe7rNB9uGIgOWe4AHWvI2WpxjjUkwNKut4ugNi2lKDt
/+GgLiXq6dT+DzyrjewPsCbhVxJTUrN/EcJmzg8b1k/Cxvj4bT6efNjde5L8
GX6TQDn5dciQzofpyvYTv2yehIMTPZz68/xYUZumglgfAy74u7hL/+THXip2
eUtcZECC2bTb7l/8mLG+eeLFcAbcUgpxs//Dj9mMrG2ihTKgoT/BtWSOH1O4
vM+kIZgBM7sfOGv/48dyVB8vN/VlwHnijKPNKgJWmN9RYniWAWfTo2wztxMw
3aqrYl4HGWDecNtUOpiAbRoV8tZexQD3GadFqQsErPmCNit4BQNiNNQeSYUR
MDfVqIMNaN5pqmiSk4okYA/9VutuJzNAsaDvt0QcAatMf79+DT8DmPGrboll
ErDLnJe2ZX/pkG8bM768gYB9/hgh3d5Lh+l5zwgik4DRmtb8vphOB9sTZps5
LAI2+IJgcy6VDq/qtvRPcwhY3z9VseNoPsv2nNo2tEDAXhrnRW6+jua1Qe/x
hyQi5kPgcR7H0OF2na+pvRQREwpPvx7vT4eDnsFrHu8kYhPMyvJ2czrcHYh+
dD6AiHGptNHD/HSgtWuMJAURsQo96RPx/2ig/mhEuDqEiEl/36XeiubPhmQD
h1/hRGz/yM/vG9F8+t6EI+wbS8Q8EqalP+Fo3m32dfDLIGJnJZwlC3toYH7H
QSSwkYjp7AnYrFREA667gWMoj4hZf9I4ObGLBqbNaljQAhGjrhAJydaiwe0V
azb4LRKxuyG5GaZoHtev/TviThTAbnLsPhRtoUEkr9ThxDIBjOlxdHj7ehoQ
k8QddGQFsPqnKzWeENBcXUc/PbdbANN3m9X0eDsBcgspdn5hAljDHr+2qkMT
cJBy+PGtCAEsyveguvbBCQh8I7y6NVIA8641sHy8bwI6U6K7RWIEMBfpnse1
uycgWMXP5N41AUzVVrfST3UCuiyO6AzkCmCiYxIOcsQJuFy4UsLgmQDGGfjq
JF1PBdqBa51kARLmt66gZ1KECk5mjhuUBUmYi6+5ihOJCsPmWsF7ySTM+LNr
Sd/iOPQeG1EIW07CVGgqylWz4/DirGboD0kSxmCNflH6Pg55l75u+qhMwjoP
VYhvejgORxu3XEk7QMLMab4knyPj8FLlPay/RsIUJZRX3o6mgGnSiKn0DRKW
dMl3wTCcAl1zf4+tvEnC7DLtD9ECKfD9lYzXv1QStlbWQ0DenQJsJ7es7zkk
bAWN9vSEOQXUCwh/8itImHVO+okpGQpkrtYtlO8kYbWrJffeqBwDT3KJgIKw
INZPnw+8+noUGu8oGbxMEcRExs+N75cfho96+u1WYkJYYGG3QP7pQWB73rZ2
TBLCbtamD6Rs6YGOIwXHVkiTsV2ZN1ycxTvBSVe/tDSdjPnotEa+GG8Gj58f
5r5lkrFsHUstx6Bm8L3rsF88m4wp7VH88EuwGS4Jx4xF5JGxzgfESxObn0Du
l7eyViVk7IvecsHtPk3QH3o8eb6RjBVvulwfynoEpk/8Qy2/kjHzt8zvzXwP
wPK8QEfcMLIdhWeicB9OKGZKPx0hY1vkysideyvA7erjOhUqGfNezvfs7uUy
iD3JN82bImPpv1ZiT4nF0Mq94VTyj4y9487XkMi50F4lX/OVTxi7PXXe4v2B
HHjvVLMoShTGnr0uN74SnwVfO3tzw4WEsXTFAepnwQxg58gOHBEVxkRdTMq/
C1+HRfNK5ThxYWyfUYn7q4QEECRCYLOkMFYZHOCeJ3QFJM85ianICGN33lwY
dxSJAFn5WQc7WWFsu6ccfBMKAsWeK1XJcsJYg8W4bbaIF6jFr15olxfGlK3I
xgMip2C7XrkZT0EYe6ib8sDVMnzP/6lVx2w=
"]]},
Annotation[#, "Charting`Private`Tag$6583489#1"]& ],
TagBox[
{RGBColor[0.365248, 0.427802, 0.758297], Thickness[Large], Opacity[1.],
CapForm["Butt"], LineBox[CompressedData["
1:eJwd2Xk4VN8bAPBZKCoVIRJKKSEhspTeSyohshOlJCRlSULWKES2kJ2Qrehr
L2VJFFIpO8k+cyf7PmP9Hb+/5vk8c8+ds77nfZ/Zb2Gve5NEIBBmiQTCxie5
asuPIVnH01PCyt5diQ9PC9MqTwo81wblP/8qtPRNYOm/Y5Zdkeaw5UluGof+
LRjhtKGXRtrDjtvt3kN6btB9zr/mVaQ3dNzriA/QC4I288jDSZFhkMl63FZN
Nw507Xi7YyNTYPcMR5vlxRyImDEriol8C8o3Ln+YUXgPJ+vUt6jcq4bIB85n
H001gIO71vUih3pQdNkvJNv/G+68uxlKOtAM9+sLGUnQCa34BdYsi1bgaVFf
N/DthafHFgilJp2geK6T2kftB/cHF8Qotp0gsaPpdPBUP9yqSjTg9uiEXuOo
XklGP6hpn8l1Se4E9+9K07ZbBmCzfbie3FAnmAXfsokXHwD/fNHMd3Zd8FK+
8wbFfgC8jpprfPDuhs8VabzSMwPgKFYfXf3qD3j4CRzIHBmE4ZvDPqmlf6BX
8JFmzdggGKYS7Hy+/oFz1ctMXbODoMiloILR/sAtwY+HFohDQFrPmagS7wVp
c8nzk/xDEPk7+HxVUS/cGO3p6NUfgkI3bUbFp7+Q9uv+TFHlECzduJ3fe7cf
0rJudIY+GoZr7LOuH136YQy48LmAYairdD+T4NUPLTl7Ag2fDUM479NO49B+
6J3c5b0tdhgO/8wmteb1w/nsMaczecOgr0gxbBzrh7KHN7/9bR+G/J3X10tt
B0Bni5xv+6ER4KzEG6KdBsDnxP6cArERcLvtEOXsPgCMz4bRgZIjoPrF+4j0
0wHI6iv8dERxBHoeJuvl5QzAfdKmRIWLI8BC7clKxwdA6Z3IWLjTCFhUGF4K
txqE6fYpslj5CEiX8nDw2g8CPa6xpa9yBEhvu1tePhiE17mCU2GfRyAt9apR
UeAgBPBc5RlsGoFBP6ur7bmDECTx/K5WH3qfuovd3slBUG9runeBTAGLjujA
7Adonm4HGPScp4B0s5G6lM8QiNo316xpUIDUwLutPHAIBLR0fvFfokBaeVLY
t7ghqCIx9WoZU2Aw6VXMxIchUGOrXvGwQe+zLMmQIQxDTEvBj62BFLgx3Vpd
HTgMpB13AjbXUuCae7jRu/BheCF37oT1VwqYkTUn3qJ5Vm6as/zcSAFDrs98
Kdlo3u+rajj+ooCaQoGLZ/0w0OYmPdP/UkDC95m4IssI+I/Yht2gU4C+81xs
UcAIuDMr771xhApzccRjr8NGIDtC8IaROBWmhSrq0l6MAI+ioYvaMSr8k5GZ
jcgagYzGe1v3y1LRvhbScvg6AjlyHDJvMCrUpK6Rj26mAB+rQ6K4ERVCJMvs
M59Q4AHpSjnFlwqN0h2U+6EU4NGL1bLzpwKL7OKVszEU2P7IkXfyCRX8FeQ0
h19R4BiZx2wsmAoPVcpEhOooQPQcaa2LpoKtftlAEpkK/Pv0IhayqXDetUwv
2ocKv752spl/R+3dOxotA6ng9EioO+wn6o/HorJMOBVatMyEK39R4bSvnGRL
ChWCkiOUd7VT4cTTsm3sVVRoS3j0M+UvFQ4mltWFrFLh5a+m46qTVCBVl8n5
u+PwM7E9smE7DrlsHJmrj3Ao61vI7NiJg66pHeeDYBwuB73gG+LAIX1h3/St
RByCAyykZrhxUD36NFe7Eod8q31m0wI4PIk34+cj0eCU5CcOFwkcttwnkguD
aODsyTz+WgOHwhpTR7FIGrwrstG/fRG9d2dpX0Y8DfKjrZxEtHF4/dr244vX
NPhyO+1Pgi4OmoMt9z2/06C0/m+htQkOodqZuBr7P+ACUna0FQ7soho/+mL/
wctTOi5m3jhQNqew16f+A7rLnH6lDw7lIzP6/2X/A/YGXg8BNC7Ll/E9Pu/+
gWZy0+sufxze8fzD93f+A7XnH7+efIrD1c1BZMvdo3Bhbeur/6JweDP8RR6P
HoWClKGLttk4+Nbs8WhOGoXasB8LsTk4ikd3q969GoV8HD/4JRcHghn3uaCS
UYjaPLp7bx4Oei039UTbRsGzPiq4tACHpU9Md+04xyDUKUY+qxwHtRSV9KnI
MSg1+t3t9w2HgPrm3kcJY5DAL6aU2ITDl+mrPFwZY2DAn3Og6DsOZ1UfPlMo
GYM7zvaP//zEQYVW9OBRxxgEJxxv52/F4dRxYU3OvePgkJPtYvYHB8mvm+fl
Xo0D1YU1qWMUB/up6GONeePQb8R3u3YMrRvvQVuz0nEYo9xZeTuOw1E7rM/n
6zjYJ8g4+E3iIMru1tBAGwdvN5effLM4HDT9l2QqMQE/B6rWdy3hsHuy6Zx3
2QQQCy4aSWymQWxE1XVa1QTI7nmqM4vMI1PooVc/AQYVhdplLMhuLwoPd03A
kz2tV05tocEesoVA89IEqDorjyqy0UBg9+L8vtOT8OOrCOfWXTQ4BPtf1dRO
wo0bv58SBWiQObCrWvz7JOjs2vYjB/mQ/6aemLZJaOkTVNERpMHhhtGdtymT
YBW78ilpHw2ijphWsjJNgcYledWjB2gQUyQsWig8BRVjzraHRWgQ/7WcSL41
BTdfVr8Ml6LBVP9/bpN2U3DQtTxttzQNzi9lTvc4TEGDgevOZOQ58ecDxa5T
sHK4UjbnOA20Im9/sgqcgsim5Kp3sjQgXdnr25g1Bduv7QitUKDB7RlPQiRl
Cq5YdVTfUKZBzVZnV69/U5B2TG2uC5lH2HbKdgL9fu/efG0VtO+NDPvPLEzB
VEF7mcIZGuyrkKieZ56G/vJncixnadAa0OdtIjwNrcVm/mFq6JzxK6/vs5wG
v4pXyxraNFAza3WysJkGI1MGXwWyfoI1Jd1uGgow1i9HL6H+8IZ+P3R/Go7b
m5az6aDxc/UkiD+ZhmesNvL1ujSgs92Xl8+eBguNe6IihjQoXst21B6bhlNR
xqmxZjQQ69857Ok8Az9Z2/Wv2KDxU/fVuLjOAEedKut/yA4Tkqn2HjOw64Pu
A9It1H7lktl1/xmo9C72zUQ+xRvRqho1A5/qFE1GbWmgqctet7UYPe/DetXm
Dg3satkz42ZnICTOY1TKiQZ52Rw2JU6z4JL1mJvjIQ3826qUyQ9mQSpXm98U
2Yx0h0/n4Sxcazswko68xezrjzG/WfD/9OudjAcNrHZ4yB6MnoUC/JaLniea
T5cR0vOyWfjyS97tsTfaH2feJTmszEJO7uWxj3408Ph7pUXsyRzYPZn65RuM
1vu8UtLNp3MwMy5+7QOyXcFe65TQOfhzKKR8DtnUv2eJ48UcHFZfbLEKoYGi
qInQUtYcOIicS1B7RgPGfX3H+oY5eMgcH0gKo4ELm8aOm2zzYNV0WfISioMT
LqJdyezzIDvhYOaHbNXPmt7JNQ/TI2yGpciGRfUnNAXm4Uj4dAHfcxrImpy7
evzYPPi6DW0bRp7LUM4j6swDy4EE3dvRNHA8Ja+RHDUPCtdDRPRjaUC4G+Ud
FjsPT98cYPVCDk2ZKvJJnIejUxMVWci5pJy9NzLmQT+JJ2MJebCed+Jw8Tyw
zzpZJMeh/WOwHF7QMg8VRqkZvShOn7hb2V7LsQCabWwHTibRoDZlz9ZS7gXY
MmjmZ46s+8sFsvYsQB2HaZkf8l2ZY9lBQgswwHsx/hty1lKKm5b0AhxNN9Mw
SUb7P8B3b6fOAnQZhunbpdBgKUXVYjR8AfKiRn87vKTB6UWlSKnoBXjp0ykV
ieyrJVfzIG4BGrUyTYuQWVaPCDGlLUBC+ccd88hcl3cM7i1aAKuYD/T7aTSQ
5Oy+rtW2AHqae+rupNPg3u2WiKiuBThTb/g9GLm0pulTd+8CJI80p+QgKzlW
7bemLADNTj99GFn9R8aA9+ICKO+8f8A4gwY3A+2vF/AuAt/A6prMKxpk99lE
LPIvAqVUOlMbeeyExScloUWQervGbYvsNKK/v1F0ERxLpQ2SkX1UFAcGTy6C
BteoClMmOn8rTNc5ry7C3x+F3XXIzQ7x1x6kLULrgGSpYDYNRMN3LjtnLsJA
RLWENLLf2yfRTrmL0BP4y0UV+cSEU+OdwkWQlbp83wY56baGjGXNIviHKYnl
I9tarWzWGVwEzW/SzpI5aL0eO6VpURZhmBE0AMj8r/BTmv8Woe/SHL82cvNQ
q+P5mUUIWsHJd5Dlruf1KJHoQHNL98tEZjK7+lZUiA5vfvBf3JlLg6sPWy+I
HKLDxMvv2XuRy+LVh4VF6cB9RbpFBNm26wTvfmk6fLZljsKQfxnu8NutQofe
/Sp1d5BFXR7zc52jg8M0S4wrsn/0chmHOh0WDc1k/ZDlW6ljbLp0OCMW0/cC
OVmn2pDJgg47L3QMVCLTHU5ME63ooBbmd6geWTf8TfD6LTqQmeIUfiEz/4yt
XnKkQ6jaZOMgsp2mo+i0Lx3mXf/Ekf+fZ1BrJx7Tof6vpc5WZMHgK+ZjQXRo
lpbv4ED+3XAhihqB+sdTeHE/ssJ5obXel3QIL4sdOYksk94Y+PUVHTZtT55S
RpZYd9pVkEMHvUt1384jC5V9FvEvoMNzC/sZXeS9u+yK7pTQ4Zv6uJIxMrc9
52mj93Rw1fYzuYK89TDKFz7RQe7TBMEaeZMf299ddXTwG60KuY1M6CuxWa2n
Q9ebVNweeS5mk1dzMxqPXtBOV+SJmXyW8lY6pCY9+/MQGdcyep7eSYcT5+Jd
vZF7N2Vnu/Sj9bD4su8JcqfFpePXhulQODgoHrQx3kp6xQWcDs+6iKwhyE17
XqodH6PDYZJQSejGfLlcaNk7RQcPcRWpCOTq39NXNs3RoULpuudz5HKJeHxy
kQ7mkl5x0cjFT1XudS3TYR9n7OONvO4t5d9qzTodGGz5ynHIuSrPA9+QGQDG
Vd/jkTOST+6K2cyAWJVvRxKRk5eGkry3MmBd6pdBEnKsYYjIrR0M+J3arJOM
HFkoU6S7iwGNAg38Kcgh23uVTu1mAJNO+fsNP7F9XC/MhzyTLpyK7PvlqN4O
QQa8/fX4+oY9hNp76UIMMGgzv7NhFy8vm8FDDHizKHVhww7dh2a/iTKgQ21l
buN9tid+epZIMODyRKXDhi0jH7CkSDPgyAH3jxv9uToh+DzwBAOey0l0bvTX
WL2e30mRAfoRPZ83xqOX6ZBtepoBvq8feScga5F4j59VYUAU98GtG+NXu/qp
QuIcA0xdq61ikVXKb6nxqDOAOcQ4Mgb5FDdHC1ELjUdo/FkU8gmn8iujOgw4
vM/bJBJZ8ocF3mrAABffHfNhyMJPilazrjBAoPZY4lPkfYOmgRHXGfCRuSYr
AHnPaaZdD28ygO22kZ8/8vYFfRGtOwzYph6R64nMortaKOfIAP7v8gtuyKT8
V0r77zMg4gmN3QV58eaC7pwHAwJi7ry/gzzzKbm314cBl5JVz95CHuM/b/PV
nwGLp8VfWiL3t73wjA9hQHGkbMNl5IazCtlYIgPmiPbdqsiuX70kvFMZ4HU+
4sZpZJELtcUVGQyQ9DMvlttYT03tT4p5DLj4hS3vCLKq3s1umUoGTC3xLG/Z
OA+tudfu1TBgOZdYQ0JON5yiFHzZWM/iS0vo/JMuP5yV+InWuy6kDkeuvhax
7Ug/Aw6+9WH7jOww2B5pPcyAIqLSrvfIgpZ7eTNxBvRZ0/rzkb2ss4QPTDMg
cP/h1jjkU3crTvOTlqDid9OejXhW9pDmwH5wCT641x9lRbZalVjUFlmCtheH
S5ZR/OT2dvYMFV+CruVWpglk50frQVtll+C1s+zqL2TpIK505nNLcE38h+4L
5PwY5TaG9RJM3nz7YjfyVZ4AU3m7JajsP5e1CZktvmnAxWEJfm1K855H8d4u
yWhi1nUJNj/6/PT3xv2RcWfzRNAS7I+J3foU+VVBnMLg6yUodpmunMhC+3nZ
VLTz7RJs/dD9sQdZ8qwA34+iJRQX9wXXI3/sTFt5/2EJgjP/xr5Ebll/XRXx
bQnq8EU3HWSiVuVZ5dElMM6+YJKN7q8r/wZ1UkWX4bLg48/S6L4TknmlEiOx
DFHfV3p4kXFP6+Mh0stw7dX3OgKyM/sYp6viMjj8TWD7ge7XYPn5Dm31ZeDH
ft+1Qn7/ZPPV9VvLcFYL9wpF9zHXAXHbqzmovcqzHR/RfR8eGWyYk7cMBX0z
P+KRt5BGVeYKkJuqjd2QCQM5fE/Ll8GjtOKbLPJY8uHvJd+WIbtZR/JNKroP
9xyQZJtYhg769ZVQlH84c+xZ+CC9AtzzMv3iKF+Z9HUb3CS3Ah69zWtMyLbT
nT90Tq6AJdcM/ieRBteaX2RRz6zAr7MDgiHImqFcJrsMVuBBhwwvnkCDA1vY
P9o+WIGIJjWIQfnTbyLLI96PK1Bqccnz2wsUr/Pirl6qXoFH+yemkpBZL4ud
DKhdAcPaQGkHZKxQa26uaQWuCZQLciLnW0RbNfeugFbGoTSTGDRfn4U0AtZX
wJZT6nxPFDoPj5U451VW4UzPEeb3ETQoYbmX2dywCif27pv585QGFA/f8crv
q6CNT73NROaZDpPJ+7UKPjLRmAOyR9ebmqCuVTjpztNNQlbNpfxVoa3Cs+dy
Y8Kojv+tcXl3Ccsa/Bzm87wRgOqlUOXAuPNrED83WfUB5c/iXDttLerWYE6t
aqAb5eO73n5486phDdTqbqxEIi+pWU/i39eg9L5TlzpyvUels337GuwrGe16
747i6bCdtwd1DbKuT45HuaF8pqghKoZ1HXQ5i8XhAYpPun5VjRfXgWmIetQC
1QeToQucx9vXoZclMr7ZGq3vlEDN0W70vVERwRP5n+55e5G/6yD+s1fgCPIw
d2wDP2Ud9Gp++/pY0aA7WcGLZWEdov3edIjdpIGFUeXsxBYC9qai7razBQ0u
WhOv1IoSMA3HcY1GVP9oxkYXfRInYAcbav/ZIas3HNlSJUHAqOncMjuQ1cR0
y95LE7BPrgq1uqYofk+msb9VJGDJRQVNbSYon3mg+iVOnYDJV3Vu+4bqqwMB
AcfsbQlYvndbwF1Unzm1y3hZ2BGwlJJzjzcjVwsPNhncJWAV/2oFU1E9d7X2
lO0pJwKmo/7iSLMWyh+JMxms7gSM9/oBH7GLNODwMNuTEUTATL9PFfy4gOKd
oxRzVzYBC52qfV+D6kud6r96TbkELCOuR1gLOXVHSFrVGwIWPuW8Z6MePZ1P
gcz/CBjuYBA/jtHAfTTB/d47NF6+F/07AcX3m5um2OoJWAdT3gCcRPXC5Z5u
FSoBq7FmXFRE9fA2JaOsazQCFqJ8cTkH1cuygi33vEYJ2NgZyzUe5MChxm3l
kwTs4z0X4rwkDY7ZlZ+WohOwpeLNfzIk0P7zjEsTZCViN6OPDA8eQec91ch2
RZSIFYedmvqJ6vvTj1pO7DlKxPrT/ThFkG0stcnyx4jYp9t7bLwFULwSOZ94
7zgRm6uZeSHGj9az4MSPfyeJ2N/UrfNue9D5qeGS7tIkYivNXc7jnGi9RloY
JXdR+2nR18KsNPAUC3341oGI3Zv8qnSXhQaFjmqr2U5E7NdegdmSzTTgW/tI
SHQhYlSJ6WqVTej8cmdufuRFxM4c/1SnQ0b1pJorl1YoESvg+KOnuopD/+u9
UpQ8ImbJtfOE0xQOXDPthX1vidhSbHFM4iQO6vIRMl0FRCzjoNxk3QQORbXM
8k0lRMwgiO8R1zgOT3onThdWELELBxc2ZdNwEN/xSdPrOxG77PdPNW4QB1en
mzbc40SsfH5oU1oLDoEaE9aKk0TsZLmF+/PfOLw4+MD66jQRU7qk6uX3C4fS
9kCrzHkiJsy9LGH+E4dZxTeWJ9aIWE2N8RLTNxzukmevGe4gYS9Fwm+w1OBw
I8rHJEaKhIkMBzj25ePgdIfVpPw4CaPjoS3JeTg8Ohdp/FeWhFHk8n3M3uCQ
Sk83OqRIwr7Wbi/6nYPDX7OvBqUqJOxAQb9cbgYOxsLbddv1SJi3N/87cjwO
WqUJ6twuJEzhAj+u7YeDzazFOpcrCSM2quuN++LgJylazOVOwt7Z/1kL9MHh
Xe47fi4vEqb3jbTjgycOQiltU7uekLA+rrkuVlccFgJ2vGCPIWG2X/k1Ltnh
kGziN7StlISFcnINOOqh9jHqsdvekbDrRz5ebNHBoaWF/eK2chJmFShVJn0J
Bxat1NKtlSRsYeLrg1FNNF6ViqAtX0jYK6mjTqrncDgntniMpZ2E1YyXm0XK
4zCxYutBXiBhsrbWpqF8OJgYaxxhLJKwY/Pd4cW8ONQWibVPMEiYgdDOyM7d
OMTZjh3rXiVhPNlsk7ycOKh23hn6j5mMjQdrtftuwyGhyEH9KhcZUxtWtR9e
oYKarQvPexkyZv2zWmekhwpFdYZ1+SfIWFNs74fqLioI7JdzypAnYys3e3Pj
Oqgw27H4LewUGTtD8d2u2kKF5LNu3laqZCwqXzjPvZEKc/s8KLv0yRhvUZDm
nXdUeNnhW3z3HhkbsO4+YBxJBUqdZF/ofTLGMtuzKzeMCuLFfaxvH5AxK6HY
GnoIFUrDlcwnH5Kxz3f9L4UEUKHpAoPVwR/53VJPsAcV6B8czB2jyRhPlbDg
v5tU0Eo13+JcRsba796r2n6CClGh22Wj3pOxPX+mWmekqdDlUWFe/IGMzbRw
a7Qco4KlCV/JXBUZmxNIuRh0hApuHB3m9+vJWC2fv0nDXipk+GuVuHSRsaXB
1pUYEhWWbJSuuS2TMRu5yS363yig/kEUu79KxsS+lPUuf6VAAhvPPsd1Mpb9
tE0utZYCpwpn+mzITJimb6Xr3woKeC1nmRtvZcL+ZImNSf5HAXIoh7kcHxNm
bDIeKRZFgW1F1CvzikyYwJJKm7UJBcyY25SmTzFh224S+BMNKJBnVMM/fpoJ
40gnpDfpUEBrJbF3WIUJO9w7ck1InQLhZ3WvtKozYbM7z1ulKlKAs/OjWdFl
JuxA6oXXw3sowL8aYerozoS5/4la8+ocAbXBi+9feDBhpPchM90tI+D8lXV3
pRcTxlovJi79cwQaI3x/b/Fjwn6ept78XTcCLoccL2QEM2EZ8n65XYUj0Kx9
Sa4jkQmbYDqoQAwZgUdp23cpVTFhpcUwmaY4ApTzwY0sTMxYmm2pf17gMFho
XNsnvIkZszlLtRx6NAy9WrIuyizMWFhOggin5zC0GvTtd9/GjAmLGehZOQ5D
zY3jbqOczFjkRQmm7ybDkOTdc/iHMDN2bOG5dtqRYdAvE3v8/Dwz9tby0MHr
dUPw+VATCAQzYwpSZgn9Y4OgHtqnzv2MGVvPDuhVogxC8/yMwfYwZmyWy/x6
TN8g/K3ltVuLZMY2xeqIKfweBLqFdezfePT7cpUlZ8sGQTyFNJ2cy4wJ5QTw
ufsMQsxuhTTBRtR/E5tozR2DYMuSybSfdRMmwKF5KkBgAMpSDyp9jtiEPQxz
sjZ/1Qs/Tp6q02XfjNU4MPy/VHUC3TZB71roZizoY2rSOfsWqL+UYsDGzYLJ
82c/DrjRCBYKp7KyolgwnxSjO8+Of4Rb49/n/8SwYO9r+nq6Pn8Ah5fmqhxx
LJicHIPEq/8BvFn9BjySWLBenUFNB+dySOxq4NPNRM9/fhgRWPwO2t2MwlfK
WLBjr68cDJUuAfVyJzedHhZsSGXRpU7rDejcZap/0suCpVwNU+m2ew3GQjHc
H/tYsLfBm7oGnuaC9dP3RYeGWTC3el6eb1+ywf8yYWJ5DPU3/VwF++lXULn0
zCJzjQXLF/eOTDJIhLp8wYIeAivGwnLK4kl4PDRZFKzvJLNiOwxuXbf4Fgs9
ja2JDzezYpKJJUaLWDTQ4/k6Lu1kxepYcrguG4XAulae8BMOVox2PNU1tCkQ
NpHB+QMnK6Zw7/dQqfJj4LxtwX6IlxU7rGSh22bkAXyCc+amfKi9zrneGeX7
INTyOD+cnxU7K2iqsc3YDkQDdq/WCbKi/Stqpm5sBlInczSW97NiOeZ+dzb+
H/8fMvC9BQ==
"]]},
Annotation[#, "Charting`Private`Tag$6583489#2"]& ],
TagBox[
{RGBColor[0.945109, 0.593901, 0.], Thickness[Large], Opacity[1.],
CapForm["Butt"], LineBox[CompressedData["
1:eJwV2Hc8lV0cAPA77ERmAxUZhWjY4XeSBpWWUSEjEklGKKHySlZCtozslMou
SmhYpUmE7Ou55rXvJXmPf/h8P+fe5z7nPOf5jSNpe+WkPYVEIl3Ef1b+U9/y
NPeruukyj/IJGvP66srQq/ZsfHAMxE5G+kdVnIGFF8p27dFWYG0x9d64whEG
hS8yy6KvwOmqvyqyFdfh94HA2uzom9BI8ZBsfhUCLVbRcinR96FbpXMu9WUi
nHRe/zshOg30p2SfLRY/hqgpi+K46OewkLxNJvjRK9jzwZBHz6MafPxMHNqt
G8HVx8im2LUesh5rDepr/IDLL+0jKFu+ArUhw3ykog1+EgbcubY/YaxlE2+B
7B8IVZ4jlZ1pg8NFQkMcx3rBx9tAgebUBoXjgjSe073g+PahiahvG1iFtUpy
2/TCoWP78r1S26BASfnIjHsvcF6JPKXe3wYWH7qM78T1QuAz+ZyXzu3AzX8u
PKqzF/y3Wx2uvPkbkvbqGhrZ9YGbQn1sdXYnqCLO4gO2/TBgP3ArvawTLrNr
9RY59oNpOsn5Vl0nJBfed13v1g9aIpp6iN4JnXu6i1tu9gNl+fH4W8UuYC+K
b+VJ6Yfo72EH3xZ3gfDwDppDaz8UXT/GelPzB/7LsvrK0B+AhfOXnnW59MC+
rt4CB4FBsBaYvvbaqweS/iRZc68dhA9VPvuS/Xvg2HcR8xzxQYhcH9p2OqIH
lCRtFb7LDYLclzzKz4IeuHrd1HRSZxCMtWimjaM9kF/P/GDkOAjP1tgslzn1
ws5/3/giXg+CcBXREIvXZag9vCepZhCuX3KNuerTC+YyGpsyPw6C/seb23aF
9gLdP4PI/joIHTdSTxU87oVoPaFvVwcGgWuoIzeT6IWalqltmqtoYPvG9Hjk
hT5IMFyaszehwa6ydYLrr/TBY+W3bfvO0oDy/PePR959kJ9Buy9uRYOM9HNm
xcF9EFF+KajqIg36/rtwrjW/D1Sq2D+/v4GvZ+jlLD7RB82//SI607F/xQbn
effDN0fu7weH8PW/mhnuvNUPEUvDboEj+PoN63krgvvh+imS4usJfP2KlPtN
if1grTg/L87E10/Jjhuv7IcEtm7lLK4hsLUrzVIhDcDDVV6KTVuH4Pzkz+rq
4AHQ107cEm4/BNY+kWYvIwdgpGfzt6mLQ2BBPTL+PGEAUgR5/Uych8BU5J1Y
Wt4AJLH2tfF5DMEhzUIvv/oBSLZcbDlxawiUbt9T1OLC69Z4pHpD0hAw1xxI
KL47CBntHqJ1jUMwk0hWfnJ/ECRcXqUVfh6CSak3HzLiB+HPiOSlhK9DMKyi
Mh2VOwhreIW+nW0dgq7TUkaudYPAcyJXtLh3CGrT/1G3c9IgkafoavH8EITv
KL+SE0SDZs77FKokAY27ftE8I2igke5denkLAVyq85b742hw9am4cIsMAYGa
6kcGsmkQFivZlShPwA298q1SH2ignNzSvribACfj8t4U6hB4PtCw3HKAgIPX
yk/F4nmViKgn8l/E3/f51WgXjOehGz0i5ERAre/8XpXIISANBCqJOBOge1t9
x4+0IbhU3xXB50qAWmg5r8DbIXjPs2Wu05sA6YflH8KXhsAmLmb/cBABlOpy
9UAfAjje6ki2ZhCQv1owZymAANdWcnB6FgEnzZ2FvcMI+J2ZmeOQQ0Dm3OZJ
x4cEdGx9KDr6mAD97aH5x6oI4JsV429+QUBQkoWEGIUOX7oyvjDfEKBElIXF
8NCB8UyZHPmWgFZVgYXVQnRwlJsVla4hQO7bh1aSNB2E8zUW9N4TUM+pHEnb
T4fgLfOj5o0E8HiSqUUhdHhv1T36t4WAolpzN4VoOtydW3p6/hcBZ9eUdWcl
0cGlxMGvro2AJ0+cXsc/ocOgidDZoA4CjvT98PT7TIfcySvHensIiDiWQxwS
GIaUje/v8Y0QICB/uLk7YRjkJhbNziwRQONME6hPH4bvDx87mvwjoGJwyvhF
3jB4nZLXOLZMgN2jpI5bL4dBfMxIWJtMh5frhgnJtmG4VvCEfZGNDuc4Q6h2
a0eA9Y/0nJ+XDrsHOw8c2TQCO7uTIglsrnc7QlXkRmBazPnE29V0KPJvW8Ou
PgJeOhrXL/DTgX1ObmOO6QgMl448TBakw9OBjxpE7Ahc91Xhy1xHh9u1G3y/
puBxteO9Z9fTcTx0efsyewS2z54vXbOBDiQL0QMhpSOQfbLpopcYHU79sD8l
3zICqPCXmvxGOizUsLk4C4+Ct6EjqG7BzyntdKGx+Cic0mzY0Iyd5fd0Rlt6
FErV5NfZ4+dipGl8Y7XKKPjVi96+J0OHRy8yg5+dGgWZotv69XJ0OJSml8mI
HoXXIbtNhxTwc6n/2hWQPAoZ+fIJlxXp8HHy3DqRrFGobI5tnsTer3/jnmbp
KOzdMSQ1s50OevRi74Bfo/Alc/WLHmU8P0G9IuGeUQg/qd9puoMO1Xu+juYQ
o2B4iE+gCRsiRm2aWKNg3GmcWrCTDtq7ZY4Ii49BjqjaPfPddLhhURyUIz0G
u7oT9tViV9zZW6OxfQysy6xF5VTooNlmqWapOwZRY4wNI9hqfnGbc6zHoOlx
0ICFGh08c6TNNRzHoPnjvdoS7JIvRbGNbmMw/efGVx51/DylvvBMBODv15Xe
KcTeUcc5q549BmOFswl0DTpcYcQqNxaMwZrv0Zq7NenwbL20k0XZGMS2HJC4
gb3dGXXfqhuDr0Xu5exadJAXuN7QQB+D0LU81zn24PdCi5PNYmoMfn6Ov6qH
nXc+Vnd8YQzWmq376IstV1ZYLMg7DhwhB66OYkubD6eYK42DQLyF7kttOpwP
vNY2pjYOey/flx/CzijgELoF45B8ZM9NYR06SJK2BGcdHwcTL7lLTtjW2wpr
1c6Mw+JfJscD7PSTsFRvMw6j1AvCFdgbs83dx9zHYXlC5h5Vlw6WzfSnN2+M
g6PA8l8Z7Ifz3kMCgeNgKn9r6AD2BsMYC7XYcagI8FYNxD7jIRVfnzIOdvSL
KenYCQ9ffDubMw5vYpjBldhrJz4duFmO77+kfXp0ZTzqrQ397Th81r8nQAU6
rFMp8j1VPw7dgQoNa7ETWrPi33wdB7mYRnGFlfHr8UVy7eNgoH+TT2dlXCz0
c1TvOGxbZ5l+FHt9lS+xSB+Hq/u8flpgJ1lfoV6YGgfZ/I6nTtgbqLYbvy6M
w+aehwreK+PZxppa1Al4urX+ZAC22KGDxlmrJmCdl5N0OPbDYc0rfMITAI73
M2Kwxe8phl4TnwCFE3u/JK+MK2/K7pOegOfyIU8fYUt8F6g+sn0CZtJctHOw
U6+ydZSpTsA2Luatx9gb187PbtadACEHed8nK+Ov6GvCDkzAW2fuHU+xN1l0
KswaTYC4Z3zqynj6v+YDVmYT8ORuS8PK9zc/qrFpsJqALWbvileun76vxHf3
xQmQ3Gt1LgNbkpYTn+I6AZ1Hc5oeYmcEJxZxXp+AeuWYpVhsKYXwz263J8Bs
35a5eyvjn/2JjpAJeBFxpDwQe4urG/VA9ASY13Du88HOErTb+CJpAlapHE52
wZYuNdXckDkBJ4hVtTYr42YGxoFPJuBssM6rU9gyC3uujBdPQOWF7wH62LIg
mV37fgKs3YgYKeycXqFqxc8TkB96sJd/ZTyQoyOuZQKGKz9w/sX7Qa5hZM0l
Gl4v90/DX7HzLv1RaBmfgLyNW5+8wt7K9+0AzE/A550GRx9hx2wzr+JmY0A/
m4fuZeyfPj+bdLkYsF1SP+oEtvCno+0evAyIs7j0WQU71gXNdAkzoIFXl5uJ
93tcsYx8kQwDmpJV37lht7KlqQ9tY4DLFUrsUWxR03X7xZUYoDzObrUVO57J
Yx2kxoAOH87+3/h9S9BhxJ49yACRnxx/dmO3RThm3j/MAIZ/VhYn9rqevhfv
jzEguYzi/hu/v4kBLU1Kpxkg/E9hqx92Ul0FmerIgBIHYZVyHB8YPS+uTzgz
wPYwGxGEfXAhZ7LDlQHn/Z2+mGDPKD7oLbnGgG/1B3UncXwxir5UcyGYAdIm
ze82YlMsxW835uL1WJ7KMcHx6rSXIKvsCQPOmYdrrcd+fp/LLfM5A6TUu9Z2
4nhnUTtj7VvOAJ1/AqVW2GVyn5FSHQM8nwSlnVOlw6UpP1I0jQEfYnSstHF8
rV119Zr/MANQwajS7C48PxknhtM4Azal37cswP5oZtqzb44BruWdnWLYm98o
Vc+yTwJfTvjdSRzPf97tvnlGZhI8XKoe31LC8Vxi7/Jmu0lQcqj4qrYN5xeL
n+62F/HnAdm2bqWDcbIDLdN5Eqre/bbzxL60PuKzrOckbD+/710hzkdJIh3J
ikGT8G6XEZ+0LB2Yqz01NPImQVZMU5ohheP5vzy3Y6OToDrdjHaI00GhZ82A
39UpiL+wxi8Z5+OCPMGLpe7TMDAQp27CIMD3j+UPhaAZuGP9MezbVwJmDuqk
2IfOwLT0udKz2M6F4g5pETPwS5cuPPCFAPPAjgXB+Bk4H+V2bb6ZAC35M1IL
uTPAcNTv3/yZAJansVt9wwz4vmJr8W8gwGv1YX771bPgkn/vwqVaAty0NQ6n
xszCYmBFgmwpASSXmJv3E2ahPLohob4E1y9pjOJbD2fhxr9bNCfsfMpj8fNZ
s7C30c75RTEBffXrx+VKZkG/bL8iFBFgbLIYWfhjFuzF+z9deo7rQZeq1veC
czBib7JAzSfgfdqGVWWic2DelG/5AtdzJ795Qe6GObjDc2+9JbaLinJeiNQc
UPfuflieR0DuQtp1o11zoPUypMU1l4B1d2+Lt52Yg9tAOzuD68WFNH3bkcg5
kOjoebI3Hdej8zrRO2Pn4N/InuzpNAJuG6nXeifOwStdLYEcbK6lbVJsGXNw
bdcFPV5skbP8feLFc1CaCYJ/UgjYIfzbxqhlDlaTxJ7GJxPgcelHVEz7HOx0
CJ85jl1W+6nmd9ccTD1wLeHB1nF7K+lAmwPauhfJN5MIMGzO6r05Pwcu5bX8
VxIJsA++YlO4fh62ryM32sUTkNd9MWpeYh5S1dnzZbBH1WxrdKTm4Wp6MftQ
HAHug8aSjfLzsH6aa+cl7Ft6Wr19e+bBVcfg3PVYApL+stkIn5uH3Q/6DhQ8
IOCra5K1d8Y8XGvS+XY1kgD5yDWLV3OwWQtFh7D/ex4U654/DynnbDkksNXG
3RsvF81Dfk4Npe4+ASmXDqvY1c7DH5M8k83YThf+cp7om4d/P6ZvE/fw87rj
nmFEm4cgiI14hy2RTWgfGcb378DiS8P+2v/T7eDUPJzlCrhkhq1uU9ChQ2HC
c/66uM/hBLBZnHsuL8UESfuLzV9wXX/uxk+DrbJMuCPmLV2EXZ5kOCAjzwQf
xcWJGGyndrX1kruYoHi4dsgc+5sp/39r9Zigvf2LxUQonp/XHQmRA0zYJsNn
04IdGLtYLmjIBHl1r45KbI2fQ6OrTzJBXVF4dyh26olqUzZbJkScKL6iiM10
VZskX2DCy4+OcqLYJyOfhi07MiHXZMCEhM3+JaF6wY0JqlOX1raG4PftiJv8
5G0m7OdJVrqL/fHS0PvxO0yQ6TNMvYq9KczSajSECZf09t6xxf7eYBAzFMUE
uag9rwBb86DUv65HTMj+SKtYDiZAJbMxuC6bCX36pcqT2ErL7kKFj5kQdSt8
bT+2VPm7rYGFTJi1uYXqscWFnIsvlzLBubrwdiW26BVhXbNXTPhzVETtOfYq
OVxv1zCh814CMx6b47/Vf4Q+MKFOsZHjHjapu/TiUj0TvH+cCA7Anonj8P/6
lQlemv8NumCPTz3jqvjJBP4N2jX22ISR2YPMNiZs2O+4xhK7iyMvz6uHCUpD
WtxHsdtsj++2HmDCg9KRov3Y36uYbwwIJoj5bfuqi/1pw6NDu0eZkBTKstbA
/uhl8EOcwYSSb9b2u7Crv09acswwgXvsfJcidoVSEjExzwThjZwNctgloXoe
7YtMMD9qtHUL9nPa8FLtMhOMeHQWN2Ln6z0Ifkplwdmw1r1i2Fmpe4TiOFnA
KpD4uxY7daE/5eYqFqTMCcuLYCeYhm915GdBQ2RVkyB2dJFK8UkhFiwbifeu
wQ7n69LRXsuClnxlJ37sIKc79TJiLBh5z7rAh3374/ZT/JtYMGN349dqbF+p
1i6mFAtesEoqV+zl73+xT5YFEwk5Qiufd/0tO90kz4Ko5WPdK3ZS++JXqsSC
4KgXG1d+zy7amyttFwt+nqn7JoB9bnzTg2A1Fo5/D5hC2KcN6yXctVhQ+Vfg
gSj2qRzXPHNdFsTt0Hu0HtuIsn73fj0WHDwquUUC+9C5mjdKB1jA8+jpOkls
vQrHQ+sMWSAk2XtbBltbVPAH2YgFsY6V5+Sx1dwrLEdOsKDpjfpzZewdzbbE
TxMWtHOe9FDFlgkqXsq1ZEH3RSNTPezNfebBUTYs+BIn62mAvUGXTeiGPQtu
EsGcJ7D55oy3Gl1mQe7xn0E22Fwnl4rU3VgwVvLCwwmb8ixbR9KTBQFtSz88
sOft507O+OL72fJ5/C72VE1qV9ct/Hya4XE09qjEwYt1gSx4gth+pWD3tMT7
JYWz4EOeVXgpdsN+zTz0kAXWBmcsh7Gv1fkr3UxngZxI1xgLe6vB+5I3WSw4
7lDJzoPfv6Ajx2q0CvD6Jx9pUsDWP2X/W6WKBVaTXE89sWd+5lt71LLgKRUT
O9OUQSv8iD8/LvsxBZty9sa00hcW6BefWazDrraO4t3WwwLZM/dKpHC8cO1r
jXYYYMHrhU9FWtib7MTX5xAsMA3UUz+F7e+QK7NlkgX8bJ7f72Bru7zRlaAs
QD2v3bFJ7PIbdFcB6QV4Xr39aC+OdxeWlOaPbV2ASa2dmWQcP0VvXvWLUFyA
47z1flLYVwOWQ1apLoBltmq1PfauEJFM9gMLsE0p1WsK+1nc3haWwwLuXx3D
pSPw/lp311zDeQG0cw3Ej2KvTvrU6+W6APvTk5S8sJ1TzManry2ADzHd3oAt
n3WZczxkAV7Ubz/ojfNBdmGiZt+TBZASsjQbxvnDadFcvu35Avy5dqR8bRTe
P/s3ijUXL4CyS3DQfuzXbRl/X1UuwGLhUfcM7B/LT95GNS2AX+8nH5toAshG
Vfv3jixAg8wBxRmcvyyH+06kyy+CP21VrxPOh1Iq2XpxSovgs3lTezY24eew
O3zXIizWzWr1Yl8VGBW+prUIkc6b95xJICBMY/bXMcNFmIt9KWeE8+2rIM5z
y46LwOBgBRzG+Vlki6LTuceL4MsvUhyN831kdJjp44JFiCI/uNWDzUMZ0Zsp
XAR9wfoaJVw/kHofi4VWLMLOJzypn7BHU+U+lzYtgtzGkpLVGTgfbtiyY/X4
InTxxvBl4/rjquCGucpdf+H2K/spGVzffCdzBax//RfnlSbVs2U4vhYknjte
/RcWyvcKVmNzn1XYc/f9X/gvV3G/bDkBqMhoZubTX9g17/90GvuZbeyFr11/
4UJ4tUf0Kzy/d1KH7y7/hd06ld7dr/H+vaMjPKu3BN9NE+uK3xFQyuWR87Vh
Ccba6lJlvxOgKLLGyfbDPzgqb3hwZpyAiYg54d2ty5CkbWtjyUeHUcbG2u2/
l2Ep8qRaM/bwyYNXtv5ZBvEmkRZdfjoMiCY0SNCWIdBF2XnTGjr8TtX055pb
BrKlymCXAB1szaqmx3lI6ILzgy3HROhw1IFs+V6ehFaRFnMXxehwJCG2uEaR
hF76ba89j+tdw4ZtPG+VSOjgVtU7TdiHFE6Wv9pFQve2nCcnSdBBbyJD4LkW
NtO8eNcmOmh4639MNCQhjqP3qCdx/bzl7l3lK04kZLPawwjh+tu9VcXf1pmE
Xu2vu5uIXS3T98nEhYQkYjsMprDPvdd20nYnoUKz/PMZuJ5PIk9lcfvg67V7
fP4rTwdBX4sNWSEkVG4h75G4nQ42TdyO8WEkJPXb/ekw9osN5eWh90jo7cFM
8z24PzB6JWDiFkVCh3gGRDuwQ+c+3tdNJKForbo/QrifoLjtZG/PI6G8zok0
R9xvnKj+c+pTPgnpXrPLKsRO5w/PePuUhNDsBA8LW/cZDXJekFAaQ4V1B/cz
PiPJPh4vSejcjkdqCSp0mLLnYKyuJ6FGpohQCu6H9pYW65IbSagqfH/qb+xI
Npt7M00k1P2kymst7qeUMivlO76QULq3Os99bKceV/u8XyRUw3gR66lBh76z
Hb/1hkho8+ww3ybcv/HqmOVa00lo/NX0P2Ns1U0/PPxHSOgLs4YSih3c38hb
MUFCmZvCdCexlZ0rdHcy8fyZd41LcL942kht1bEFEpKW93/Rhx2wo+iX818S
wrtJYA3uN1tnHrvmkcjoUYFClwO2r19ixiZuMnrLYXl+Fe5fc6xEruisIiOn
oqdlO7G/7I3aY76ajA6/jSKZYUtxhPyMEyCjm9ZprqnYRwi2RyVCZFSvxPGg
Gtuz8dbl7yJkdOK7f1Yvdn3ENQ6+DWRU0iR4bzPur6dcZ74riJPR83021rrY
Yqdc0ww2kpFNi5yYObbL2osad6TIaOfRqxC1cv7D6mfLlCajeSSVnY9d22H1
rVqWjAScEoZrsUXSzZz+ypORNdq4moGtG/BDbcN2Mto3YkhjAzpctDtG1VAm
I5G66/HrsKMPNH0x2Ym/3126ceW86PXWgw89dpMRdHH5aGPTeN5djFIlo2ae
G7lHsPnHdFWfq5ORxnGhbHNsjS8V5M+aZBSg+svVEdu2UK15eA8ZufY1cnlh
hz8oSuLSJaOvGyedbmOXeio5yCIyKj55ODYM+49Z/m59PTz/oPY7K+dFXFqy
JFt9Mtpml6S1ch6zSzzj080DZJSsGla4cl5j/k8iMeUQGXXQcolc7MCeRPtK
QzK6xD7StXL+86xWZFf7ETL6VH30/jPstqyof3NGZPR5uG7hOTb57uom4RNk
9G3+2MYX2PKOIfG7TpHR3uXf8yufNz7MbnfchIx+VFrcWTlf8t9+e4eLGRn1
hdW9z8PO41/6G3aGjP648ZZkYn+fvNbw2JyMUoTFTqRgL/6Yia2zJKN3b3sT
V86PpMtcbQetyGi73dHwlfMxo4RRJaotGR1NMJBdOT+75nNxcbMdGeUkVNuv
rFeGxUCd7gUyUjyUfGhlPT/pWsdYXMTrtaPm01ns2c2d1j5OZHT1v3UMQ+xD
gz9YpS74fjzGVslh+ylE3HjuSkapqbvPC2MXuR1aynMno2o5iVuklfO6f69J
D73ISL+SQW3B++O4vndA7DUyCnQ77/AGOzB0J9t9HzJK+hMakoU9LprDGeBP
Rmck/lGuYG+xtA65cYuMcsMaTU9in87csMozgIzah4/YrpwX1Sjf57sYREYz
zxwTZ/B+jzl0TcQogoxufA0ytcduiNgVfzAS79+j99R0sf/9HF23N5qMNHXE
q0WwHWxsxFXi8PPteFxfjd9HLR/DLRtS8fwntvlxYF+pZssWSicjk6rN3j/x
+5zF8VZ2dQYZ0Y7t5n2EvfrBbnlSDhldbrMlqWH3PBHfSSsgo4Nry7uMcHwQ
mWot6n5ORjoO5/wEsA01olTaC8noerLX4++adCh+z67xqZSMqFzRacexg7rG
dYve4PnLOH3RwvGpcsvj6idvycjQPyZ1EscvhuN5vewavN+bDo7kYJ+Z+7U/
4QNeH+d3s7zYivw1R/w/49/v3Zn0URXHb5Mbzd5fcHwI+LzZDTsuWfW42zcy
qjJuFtmAvSyXf8quhYzylC32OeD4+h09OGvYhfev6z+vcRyPr7nbXxQdI6Oy
j2sjnynj+Hd43EFrgoyW5AIyVbHjpb0dzk2S0RRxvqICx/+y1uALObNkdOd6
CFGF88W01lM7tX9kxBD8t/xMAccX6rS1KT8FhR2rHVCQw/un84a1jwAFFXVV
kqJl8ftbymadKkRBBrdj52dl6PDEQdSKtpaCSnySL5VL04Fo0rT02kxB3qOx
0ptx/jsfc+tM3E4Kmg5pfxCE86f7Ze4zFbspaJXTLdkGnG8DDkSf/qNKQWvy
jJ24sdOZmWayWhR0X2FmIWA9jgcWdSZlehQkJ9Ize0YU7y8ZvpOtpyjIV6Z6
KQbne6OyZENRLwoqiAy6qUjC8WzadlnkGgV99906sHOZgP92yJeI+FBQ1YbQ
BZV/BLzMfykh4k9BIa2xu1X+4notrYUhFERBheqT8aJMAubu8scLxFHQtzPz
OxwnCFjzofWwQAIFeY7dzTyE6xEFSipJIImCzE5UZcqMEWDtq+i0JhVbiE2/
bZiARlcDHf4cfH/T299vouF+7sx//bxlFBQDpu9UO/Hvxxkm8L6koOfPPP+N
/sb15Q+Bo7wVFJSYkJ3xqB33H0bpZauqKCjLgCpB/UWAu96bEJ6PFHSBXTMx
5xsBBxTmlblaKcghMCz/8kdcn/118qXOUdCTvQ9YIwUEnDl9eBtrnoI4ZZRX
GT/F9V6xQus4i4Kqdc+efoXru0SnUeXfSxQ0kxnz8EYursfaLve/YKciVW/B
+39wvZhc7Gp4ToSK7PaWKIvj+vaQk9e6VypU1Mwhv3DBk4DiD6YfnqlRUfpG
6T3uHgRslFR3z9KgotFHp9x83AiY/jXfdF+bij5fCyu5fRnPf//1mxf0qShW
aPr0JXvcr2z2pQkZU5GBQZ/SY2MCHv26XeLiQUUF7XUf3u4ggPZhR3eEJxUt
xd7fv0sJ14Ml3dzPvanIT/Tln3QFAsoidawmblCR5kHZk+6yuF83YHG7BlLR
uo1ejEExApiVrlZusVR0/T1b9moO3G+mW/FcLaei3pl9tMO/hiAmgk815hUV
HQrhMtD+OQTtvm+sSiqpiDPAzWXrtyGwOyNWOvOWiib+i52bbhyC64K/rDzr
qagoSbrIrGoIsgKNSr3aqUjt8KrQY1lDsHBRx/r6IhX5azxPGnceAsNKeeS5
REWWCiy+SMchSF69brPbMhWlnZAI3X5hCLSLprovUtnQfq/OcAurIfBfzLU6
vYoNZRR8Dws9MQTUCEErdTE2JGkY/kJadQh4i4csZ7XYEE9Ce88+Fg0s2Ft0
JrXZ0N2gHxa2szQoMKuVGNNlQ8XBto98J2lg9Pdh14AeG9LZ1OqbRadB5P6T
lj8N2RCf6F2DmnYaCLe9tig+y4aqHg9mbH9FA4mlKHM3HzZkPRcx/f4qDQ71
HX0V78uGzubkSy1cocHVOu61Vf5s6FPPOnH5SzRojLr9nec/NvRwb4K9jw0N
vGTdDLLC2FCC4YX1nUdp8PXYcfVfD9lQ+B4dyJChQUAGn5DOWzwfz2MTCt8G
gXYwrJGLjR1xBLyT+r52EGwPW2+W4WBH1uUFAvUCg9BlpOq1l4sddbSIRr1c
NQg/TbolfXjZ0eZ3t7RDlgeg9vzu6yPC7MiYc4c0nTYAKTc75Jpl2JHOh/1q
GSUDYFyucOfBQXbk4KG/YerwALyT/QQbw9gRe+7hyt+O/WAY0W0oeo8dad6Y
PDpm2w9fZ6dM+O6zo+DkJwsL5v3w5/1653/R7MgH+T7iNOoHpq1Dwp8kdpS1
LLGJtrMfFNMok6n57Kj1ms2rcmYfxK3VzNjUyI7U00J4CwL6wIkrh02SmwNl
Kg0oE3d7oTxdWuddFAfacfjcAeqRP9C8R/vDSQFOxN+2ZFKv2w5Mp+RT1hGc
SHnjt6DKxh9QfzzNZLUoF9rfxdKRaW0EW03t3NwYLiR8O9WXlvsaHMc+z3bG
cSGdYHeNU2qvwfWRlb5gIheC349Mi99Xwk3u/3p9U7jQgszxAKPeCnjY3iB2
MocL2az9IjS3/hW0XjeL/FvOhXTL2FXUQkrBsML9+okOLjTe5KFeWfMUTriw
1Qd1cSGhx7U7d3Y+gdNScaKvu7nQ5STdrKS5fHAIfVUsO8CFbl49f89A4TEE
niWNL45yIe3tyyVSMdlQtXDPNucfFzKXMTqmWf8QPjzbVNhB4kYaQwzWzGIS
fLItXF5D5UadPOp+WcqJ0NH48+ENTm7Ue9zOsC8uFphJYr+Or+FGnwhB0+6G
cFg2KpAJEuRGEZv2htfsCAEOKlytFOZGq3uHLybE3wHhS7YCsuu50XUP3S0m
jb4gtmnGylyMG/WEXlP/Hu8JUj/uPIuU4EZOHr8kwxqdQf7u2qUPm7hR9F7d
8oZGC9i55/HhRUlu9EaWcf08r6/u/0GIvL8=
"]]},
Annotation[#, "Charting`Private`Tag$6583489#3"]& ]}, {}}, InsetBox[
TemplateBox[{
GraphicsBox[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
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}, {1, 3, 3}}, {{1, 4, 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}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQ3bY8/JSRjafD8yztb9NjNRzqflsVnHvh4fDr7esD
lofVHXQnLPhheMzDISEkSH1BprpDwuHL2qkzPRzklr/w0Nuv5gDW7wOV71R1
yOb8uSBd2cPhwtWwN/rSKnD+HU3ZNf+LleD8GNUImXMxchD9ZzwcdgZbRfxv
l3S4v49vjvEmTzj/Pe8+g5m7vOD89DQgmObt8MA13nEWowKc323juSvtkzKc
/wLkn1o1hx8xuUf/eXk7bNLLW8x4R93BxBgIkr0g/mvWdNhfK2uRLuPtcB7k
3mptB5FPjufTYr0dZObFaZ6+oAPnz5gJBDv14HzVJ83zzu4ycGBZPMmK8ayX
w3UhoMQyQ4j8V084H2SdMTOCD/ZfkIfD32+lD+YUGsD5L4q3iv7u1oXz/4Dc
l6zt0O31isWk08NhPchCXS0H9PgCAH3mxeU=
"], {{52.31409999999999,
11.3891}, {53.31559999999999, 10.9438}, {53.918800000000005`,
10.165599999999998`}, {53.918800000000005`, 9.306249999999999}, {
53.918800000000005`, 7.971879999999999}, {52.91720000000001,
6.921880000000001}, {51.62970000000001, 6.921880000000001}, {
50.27969999999999, 6.921880000000001}, {49.4047,
7.876560000000001}, {49.4047, 9.35469}, {49.4047, 10.5141}, {
49.86559999999999, 11.2453}, {51.042199999999994`,
11.960899999999999`}, {52.31409999999999, 11.3891}}, {{
51.34379999999999, 13.423399999999999`}, {50.34379999999999,
13.915599999999998`}, {49.8344, 14.5516}, {49.8344,
15.346899999999998`}, {49.8344, 16.395300000000002`}, {50.5969,
17.110899999999997`}, {51.72659999999999, 17.110899999999997`}, {
52.885899999999985`, 17.110899999999997`}, {53.64840000000001,
16.3469}, {53.64840000000001, 15.187499999999998`}, {
53.64840000000001, 14.281299999999996`}, {53.25159999999999,
13.660899999999996`}, {52.218800000000016`, 12.9938}, {
51.34379999999999, 13.423399999999999`}}}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999, 15.774999999999999`}, {
62.18439999999998, 17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurveBox[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999, 10.732799999999997`}, {
78.44999999999999, 7.812499999999997}, {78.44999999999999,
6.398439999999999}, {78.7031, 5.179690000000001}, {79.1266,
4.5874999999999995`}, {79.54840000000002, 3.9968799999999995`}, {
80.225, 3.65781}, {80.9734, 3.65781}, {82.7969, 3.65781}, {
83.71409999999999, 5.22813}, {83.71409999999999, 8.31875}, {
83.71409999999999, 10.962499999999999`}, {82.9297,
12.218799999999998`}, {81.27499999999999,
12.218799999999998`}}, {{81.0578, 11.7953}, {82.2297, 11.7953}, {
82.69999999999999, 10.612499999999997`}, {82.69999999999999,
7.715629999999997}, {82.69999999999999, 5.143750000000001}, {
82.24059999999999, 4.08125}, {81.12970000000001, 4.08125}, {
79.95940000000002, 4.08125}, {79.46409999999999,
5.300000000000001}, {79.46409999999999, 8.246879999999999}, {
79.46409999999999, 10.7938}, {79.91090000000001, 11.7953}, {
81.0578, 11.7953}}}]}, {
Thickness[0.011672697560406212`]}, StripOnInput -> False]}, {
ImageSize -> {85.66971855541718, 21.12078704856787}, BaselinePosition ->
Scaled[0.31887090512778543`], ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}],
GraphicsBox[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1,
0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIVIGYCYh7/9VNSIzwc+iO6/RkLpB3e8O4zmJnl4fCm
LbfbaLaUw7IXHnr/d3o4nAEDTL7FtaO5JicQ/DQQuIabL+/4MfmMqifcfGMQ
qPZ0EK6cVHL2iILDmu7bGQz3PR2MQOLCKg43pGsSjVK9HPwuToz591jdYcZM
ILjp7RCtADRIxxDOvy70yfH8MkOI+X+9HNJB9k4zdJhvo3Nl1jYvB/GpVzgz
Jhk6XMiPZz8niODfBJlf6wnng4ybKekJ19+2PPyUUYgH3Pz/IGDvAVcfIb79
IoMbMPyCS1Sm8xvg5LNwdsknn9OH8zPyP7SeLMHkw8w/umtHL9sEHQeWxZOs
GGsRfHB4dXs4JMTecWOO0HPI5vy5IH22h0MyiK9h4HAR5L+VHg71v60KznkY
ODxJXHjNhN0Tzgf7S80bzgeH71UvBx1F+S8533Qh7pnm5XDisNPaTDkdqDov
h/WqT5rn6Wo5oKcXAG1w+hI=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999, 15.774999999999999`}, {
62.18439999999998, 17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurveBox[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999, 10.732799999999997`}, {
78.44999999999999, 7.812499999999997}, {78.44999999999999,
6.398439999999999}, {78.7031, 5.179690000000001}, {79.1266,
4.5874999999999995`}, {79.54840000000002, 3.9968799999999995`}, {
80.225, 3.65781}, {80.9734, 3.65781}, {82.7969, 3.65781}, {
83.71409999999999, 5.22813}, {83.71409999999999, 8.31875}, {
83.71409999999999, 10.962499999999999`}, {82.9297,
12.218799999999998`}, {81.27499999999999,
12.218799999999998`}}, {{81.0578, 11.7953}, {82.2297, 11.7953}, {
82.69999999999999, 10.612499999999997`}, {82.69999999999999,
7.715629999999997}, {82.69999999999999, 5.143750000000001}, {
82.24059999999999, 4.08125}, {81.12970000000001, 4.08125}, {
79.95940000000002, 4.08125}, {79.46409999999999,
5.300000000000001}, {79.46409999999999, 8.246879999999999}, {
79.46409999999999, 10.7938}, {79.91090000000001, 11.7953}, {
81.0578, 11.7953}}}]}, {
Thickness[0.011672697560406212`]}, StripOnInput -> False]}, {
ImageSize -> {85.66971855541718, 21.12078704856787}, BaselinePosition ->
Scaled[0.31887090512778543`], ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}],
GraphicsBox[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
FilledCurveBox[{{{0, 2, 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}}, {{1,
4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBmIQfQYETLwd/nwrfTAn0dAh4fBl7dSXXg7XhT45nl9m
6KA/YcEPQzUvh/21shbpKoYOKk+a55295OlgDAKXDRx+x+Qe/Zfl6fAfBOQN
IPpnejhs0ctbzFij6/BpQ0D2LHUPh/NXw97oz9aE8x9FiG+/6KAK5z9wjXec
xajgcH8f3xzjUx4OO4OtIv63Szq4q5YyzbrgCef3eL1iMbnpBefPt9G5Mmue
t8NMEOBUgPOntLdGXY5RgfN9L06M+cesATFfyNshPQ0EtBzEp17hzLDygvPB
4XHFE84/rmk16fR0T4h5fzQhfHlPh1OHndZm1mlA/Mvp6eB9gt12tqmGw5PE
hddM2D0dToPM0dFwCC5Rmf7/g4fDq+Ktor9fqzs4ND06PkPaE2LPGl2I+455
OtyWrkk0SjVwgMWH9Lw4zdMOhg7o8QMAV+zH2w==
"], {{51.85309999999998,
12.2469}, {53.0609, 12.2469}, {53.87190000000001, 11.1984}, {
53.87190000000001, 9.625}, {53.87190000000001,
7.971879999999999}, {53.0609, 6.906249999999999}, {
51.837500000000006`, 6.906249999999999}, {50.4859,
6.906249999999999}, {49.7547, 8.067189999999998}, {49.7547,
10.1969}, {49.7547, 10.7531}, {49.818799999999996`, 11.0547}, {
49.993799999999986`, 11.325}, {50.34379999999999, 11.8656}, {
51.09059999999999, 12.2469}, {51.85309999999998, 12.2469}}}],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999, 15.774999999999999`}, {
62.18439999999998, 17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurveBox[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999, 10.732799999999997`}, {
78.44999999999999, 7.812499999999997}, {78.44999999999999,
6.398439999999999}, {78.7031, 5.179690000000001}, {79.1266,
4.5874999999999995`}, {79.54840000000002, 3.9968799999999995`}, {
80.225, 3.65781}, {80.9734, 3.65781}, {82.7969, 3.65781}, {
83.71409999999999, 5.22813}, {83.71409999999999, 8.31875}, {
83.71409999999999, 10.962499999999999`}, {82.9297,
12.218799999999998`}, {81.27499999999999,
12.218799999999998`}}, {{81.0578, 11.7953}, {82.2297, 11.7953}, {
82.69999999999999, 10.612499999999997`}, {82.69999999999999,
7.715629999999997}, {82.69999999999999, 5.143750000000001}, {
82.24059999999999, 4.08125}, {81.12970000000001, 4.08125}, {
79.95940000000002, 4.08125}, {79.46409999999999,
5.300000000000001}, {79.46409999999999, 8.246879999999999}, {
79.46409999999999, 10.7938}, {79.91090000000001, 11.7953}, {
81.0578, 11.7953}}}]}, {
Thickness[0.011672697560406212`]}, StripOnInput -> False]}, {
ImageSize -> {85.66971855541718, 21.12078704856787}, BaselinePosition ->
Scaled[0.31887090512778543`], ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}]},
"LineLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {}}}, 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],
Opacity[1.],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {}}}, 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],
Opacity[1.],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {}}}, 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[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
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[{"Thickness", "[", "Large", "]"}]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
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[{"Thickness", "[", "Large", "]"}]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
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[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
",",
RowBox[{"{",
RowBox[{#, ",", #2, ",", #3}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.5, 0.01}], ImageScaled[{0.5, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
AxesStyle->Thickness[Large],
BaseStyle->16,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
GraphicsBox[{
Thickness[0.020279862096937742`],
StyleBox[{
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}, {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}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGBQB2IQ/bL2cfb5NawOM2YCwU5ZBxA1M5LDQX7Xgn2pftIO
L0Dyb3gg8pJSDsKVk0rOLhGE8w9272syYRZF5R+WcOiP6PZn3CANoSdIO9Tc
/3HL2FvOIeDt5Y8zFso7pKYBAZuiw1ohHb50O0WHFl7/9VOWqsD5r4q3iv5+
rQ7n1/+2Kjj3QsuhF2RegLzDVoemR8d36MDthfFjVCNkzsWIw/khYPtEHI4f
dlqbaafj0K7ArnrmiqDDFvMfh1K8tB2+7Pu4NT2M3+FJ4sJrJv1aDuqfVF7O
OsntcP5q2Bv92ZoOdiWOtadlOB10FeW/5JRpOJgYgwC7w6+3rw9YHlZ3gIVf
SuwdN+Yfag48jnxeMzJZHDLzP7SeNFFz2O61wWKOJaNDBogfogLx97N/9nc0
Zdf8T1ZymA52/x8Iv1jBwXOr//Hktu/2YH9ZAv0F0l/5xf4/CMQLOGyQ3qZ7
KuejfbN4LWtmG7ND7YumX9Msv0Lk65kg4THzN1z+Ou9tsVQzBoi7NFkcWkDi
x5gh/JUsDktuLX9s2MwMj3dw/CUzO/SAwtmAF84/AKKVBeF8cLhNE4WbB47f
bCm4uaqgcFwp64CevgDtShRM
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQvVZIhy99nrjDj7evD1g2azv8B4H50nD+jmCriP/L
ZR2eZ2l/my6rBef//Vb6YE6hOpw/pb016nKMikN/RLc/4wZph/LD21xn/lVw
ONi9r8nksYRDjGqEzLk5cg5rQPbtE4foc5d18FhzdDmDhJiDSOWkkrMtMg59
IP0GInA+2H1xAnD+GRDo4XFgAIEEeTjfGAyU4Pwt5j8OpZxShfhnP1B/j9cr
li2aEPPuCTtsd2h6dPyHlsMD13jHWRtFHPxvSdckBmnD3QPzP3r4AAA4W4hl
"]}],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIdIIaxWaBsBiifAY3NCJVnRmMTo54YcXraNZjdRk+7
cIkDALmJAos=
"], CompressedData["
1:eJxdlFtIFHEUxnfTMCiRLtCD2YXdkdkZ2p0Zd2SLpLO9JF2o1EosAgtdKigf
DDFatuziWzez1ZQFK9pCwnrKHqIkumBsKpERvUj4IFQPGQjh1jbH7TtL/eH/
8GNmzne+c5k1B49XNeS5XC63c3c7d55zI43OGTeoJDlV6Y+tJfDp/BeXzLhO
H5ZMh0deGnSucMfAtQadorPrm96GDAqWOadapxhzZYAmapc/GqMcb34aLQm1
a6RMnk2k6v6+36FJvK5uPhr9eLDz6I2IKVzEMgusf5+3WPI9y7j8ZRIfDP25
z7otyS9+uehk+UJL8n/oP3bLnTbFHxj+wdT2+VWXHhS+WN3sja+yJd4iDhey
RS89c2KiN2xLPqXse0uOp9lH0qZ9q8PfD22zaPj5pvuHE7b4BaMe4IrW2rt2
yhAeupDcO9xmZPX6bKk34oOhj34hP9Qf+aPf8AeGf/DH4lP11nyLtr4uqOjp
NIjLlXFbxG2I1Bg0Wd83HsyY1Mn16Q8IB7R7S0fzNeGem57H6QKfcIZPTJV4
28eu7P+dp4oeGPmAke/Pb1+erfOo4mclB9roE7+9rBfRpB5g1Mvg/G6rUt+O
9vN171bkePT9nq+BT6XCXI7GO4rwL9ZZrEg/lrVebU7VeCQ+GPpTR/SZeNQr
+WXnR5H8B9nooCL+wPAPxryCMc+Ih3mHHvYB+WBfwNin8g1Pqq4PeWXfEA/7
iHqAUS/wCD+fVeV71BvxwdBHv5Af+on80W/4A8M/uDhxwPemyczuZ79KZ/j9
FpMG+AdU6BPGPIIxr+C5fu4yhLFvYOwD9P7/f/4Bv/1HKA==
"]],
FilledCurveBox[CompressedData["
1:eJxTTMoPymNmYGBgBGIVIIaxWZDYzFDMAOUz4GEjqydGLy71uPSSqp5Ut1Fi
JjHitLALAM7SAnU=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJvIGYC4hUvPPT+M5o59AeXqEy3N3Tg9V8/JTXCzMH7
BLvtbFdDh1vSNYlGW80c6n9bFZzzMHQoWNN9O8PBHM4Hy6tawPk8IP0VFnDz
/oPAeguHJff38c1RNnSoA6k7YeGQngYE1wwg9t2wgKiTN4CYZ2oJ59s3PTo+
Q9sSbh4ufiPL0X7DcgQfbO4KTD7M/OdZ2t+m3zWC2w/jw9x3BgRsjBy8QOFw
1MKh2+sVi4mikUO0guPH5D0WDjdB5rAawf0HFn+D8L//xYkx/y4bOiwHha+i
hcMW8x+HUk4ZOnzdeavrb6g5nO8HVmcG58+YwF9llm0Gcc9ZQwdY/MDMg/Ft
KyNWmPKaOpRsFf19Os7M4VDb8vBTSqYOoGBNm2bm4ANyt6opxB8+5nB+D8gf
DxH8CPHtFxn6LBxMjIFAGMp/B3XvLxOH5Ng7bswWlg4pIPqFicOfb6UP5jhC
w/MGgv8XRE9E8PlB8ieMIf5Yi8kH+6PRxMEG5I+9lhB3i5k6PElceM3kvqXD
qcNOazPnmTp82hCQPcvd0uFAraxF+hJTB9UnzfPOvrKAiC83hYRnKoI/DRR+
0uZw9eDwbTaDm/cFpE4cwYeEuymcLzMvTvN0AW4+WP0qY7h9ML4ayF1e0Piw
g4UDNPzPmEDShYWpQwwondwxcegDpV95BN8BnE5N4HxZUMKp14XzG0Dpe7o2
3LwWcARow+0Dx1+wNtw9D0AR6YDgu+8HBki7FsQ/CVD1k7Xg5s2YCQJaDi9A
8ZNrCuefBPmbzwxVvtYMrh8cvsbmcPNhfJj9YH/ON4O7D5xOBM3g7oelZ5j/
YHyY/9HLJwCHCBrk
"]],
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}, {1, 3, 3}, {1, 3,
3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGYCYtbFk6wYTR0c7Eoca0/PYXWA8ZfcWv7YkJkN
ztf4pPJyliebQ/1vq4JzAg4OZ0Cgh8MhRsHxYzKPnUPV/R+3jFeLOPhenBjz
r9nW4b5rvOOshQpwfs2nDQHZu1Th/PQ0IGjTdviy81bXX1U7B/W3vPsMVho4
dHu9YjGRdHA4fdhpbeY+I7j9f7+VPpjzEcHndlMtZfqF4F8X+uR4ns0YzjfQ
Wil8QcXYYX+trEW6DlS/obHDZ6AzZskj+OJTr3BmcCH4+iB9U+wc+oNLVKbz
G0HcNdMW4u7H+g69IPH9Ng4zZgKBpQ7E/z02Dh4gi9o14HyYf2F8cHgoKjvY
Nz06PmO3jYOJMQjIQfy/1BYafmJQvh1E/jMP3H2Q8GeBux/Gh/kPxof5vy+i
259xA4IPi18Ab5zNTA==
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 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}, {1,
3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGAAYWEgZgLi+TY6V2bFOTv8BwNDhzXdtzMY2BF87xPstrPX
OjmoPmmed3aVIUTc38lh8f19fHM+G0DEZzk6mBiDgL7DlG9s8TNEHB3S00BA
C87fAFLYqwLnrxXS4Uv/JwcxP9TRYcZMIJCUcnBXLWWaxeAE5++vlbVIz0Hw
3/DuM5j5ysnBAGRdsYzDA6AzjL2cHTptPHelKSlAzL/iDLH/mRJEfZCLg4HW
SuELKhpw/p9vpQ/mfNSB808edlqbuc7AQeiT4/k0Vhe4/9HD5/OGgOxZ650c
/C5OjPn3WN3hYn48+zlLZzgfHB5Fzg4zJvBXmZ1WdxABmTfV2WGL+Y9DKV3q
EP9lODtk5H9oPRmi4iAMkpd1dnBfc3Q5Q4UixL93nBwC3l7+OGOhvIN906Pj
MzYDw/+TystZK2UdJoP8V+PkIFI5qeRsiwzEPfYIPjg8jzrC+U8SF14zWe/o
IAzib1GA86e0t0ZdrlGB88HhW6nqAI7GzY4OL7K0v02vVYO4b6+jg8TUK5wZ
TeoOFteO5pq8cIT77zFIvzwiPNDDB+x+bWeIu1INHSoiVpieXY3gM4DADmeH
5Ng7bswSBnD+cVB82OnA+eevhr3Rj9Z22KiXt5hxizPE3flacPOmg9zTrQlJ
h83ODgG3pGsSgzQh6l2cIf6z1HSQd/yYfGavE5yfzflzQboxgs/jv35K6g9H
uP5KkPmXHeHm1/+2KjjH4eQwFcT31oWmcycHW5DCWAO4/8H+4TB02ACy/4wT
JP25GELSxy8nuP/RwwcAG2iLCg==
"]],
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}, {1, 3, 3}, {1, 3,
3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGYC4kv58eznHN0daj5tCMjepeoA44v2eL1iCdFw
kJh6hTNDy91hg17eYsYYHQfWxZOsGLe6OfwHAX4Dh1vSNYlGpm4O0QqOH5Nl
jBxA1JlaV4e/30ofzDE0duD1Xz8lNQPBd2h6dHxGNIJvYgwEwa4OBWu6b2co
IPjXhT45nmdD8LndVEuZfhnB+WD9H40g5lW7OhhorRS+sMTIYco3tvgZPm4O
xVtFf5/+Z+CgO2HBD8Njbg4y8+I0T2/QgfNh/oXx3dccXc7AoeDwJHHhNZNy
N4cv+z5uTQ8TcSgBmZPn6nCwe1+TyWN2uP0an1RezvJkg/OX3Fr+2JAZwbcr
caw9PYcVzi9cXrLh33kWuP8h+lng4QPjw8IPxvc5wW4729bNYcZMIIjkdcjh
/LkgfbebwwGQe5TFHSyuHc010XCHuLdMDh5/a4R0+NLfKTmgxy8Aw1PP3w==
"]]}, {
Thickness[0.020279862096937742`]}, StripOnInput -> False]}, {
ImageSize -> {49.30489663760896, 22.770191780821918`},
BaselinePosition -> Scaled[0.29577284846851404`],
ImageSize -> {50., 23.},
PlotRange -> {{0., 49.309999999999995`}, {0., 22.77}}, AspectRatio ->
Automatic}], TraditionalForm], None}, {
FormBox[
GraphicsBox[{
Thickness[0.10050251256281406`],
StyleBox[{
FilledCurveBox[{{{1, 4, 3}, {1, 3, 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}, {1,
3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGAAYWEgZgLiVgV21TNfJBz+g4Ghg8eao8sZLMTg/LNngCBH
2EH1SfO8s6sMIeL1Ag6L7+/jm/PZwOFl7ePs82tYHUyMQUDfwf+J5yXTyb/s
09NAQAvO3wAyoFcFzl8rpMOX/k/OYSYIRDI6zADRklIO6p9UXs7i5IHzD3bv
azJJFoTz20DuDRF1MABZVyzj8NA13nFWoIRDp43nrjQlBQeRykklZ5fIOIDt
f6bk4DyhWSjNS8HBQGul8AUVDTj/z7fSB3M+6sD5Jw87rc1cZ+BQc//HLWNt
Obj/0cMnRjVC5lyNsIPfxYkx/x6rOyjsWrAv9Zw4nP9l38et6dMkHWZM4K8y
O63uUAEyb7WUwxbzH4dSutQdhEHuc5F0yMj/0HoyRAVi32sxB3dQuFcoQvz7
WMQh4O3ljzMWykPsmwMMf1C4rJSF6H8iCPFni4zDVq8NFnN+8sP5kPDkgPPB
8fKZDaJviwKcP6W9NepyjQqcDw7fSlVoPLI7vMjS/ja9Vg3in2vsDhJTr3Bm
NKk7LLm1/LFhMxfcfxD9vHD/o4cPmB8j7uB9gt12dqqhw3pQvMdJw/ngYN0v
7ZAce8eNWcIAzj8Oig87HTj//NWwN/rR2hD+fGmHJ4kLr5nka8HNmw5yT7cm
PJ0E3JKuSQzShKiXl4CIW2pC4uudMJx/nfe2WKoZP5zfIl7LmtnGDdcfDXK/
DSfcfFB2ONPD4zAVxPfWdQAHl7Ggg21lxArTWAO4/8H+4TB0YACBBBFI+nMx
hIanKNz/6OEDACxYkYw=
"]]}, {
Thickness[0.10050251256281406`]}, StripOnInput -> False]}, {
ImageSize -> {9.946699875466999, 21.12078704856787}, BaselinePosition ->
Scaled[0.31887090512778543`], ImageSize -> {10., 22.},
PlotRange -> {{0., 9.950000000000001}, {0., 21.12}}, AspectRatio ->
Automatic}], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, {}}, {{{0,
FormBox["0", TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}, {}}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->400,
LabelStyle->{FontFamily -> "Times"},
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{{{}, {},
Annotation[{
Directive[
Opacity[1.],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
Line[CompressedData["
1:eJwV13k8VF8UAHBmDEObvSSJkORXSkjovBSFIpSSQrJHdrIkIkuL7CFLkbUQ
spRIi5I22VPCGDPjJS2Ylfyuv+bz/czn89659557zjsKTj5WLgQ+Pr7j/Hx8
S7/EZyIfx7X89pi/21Fbbh2+R3myVW99mgWE0Q8oqIvZAvfhNucvqQ5g+pdn
9FvUAyYk3dkNqT7w4PNDxTbRUBgyjn1RnHoJzDGGnoNoIvQ5pG7KS70Jj1KP
xy9blQ1WXjJDWakF8GChqr9PuBxS/p6qy0ytBkO9MO/1c02g124qYhjQBvW7
Q0wUi96Cb5j5mTrfDugKKk1pudMN3k0uSYSNXbBDJ2BrFGUAehkmwqVOvdB4
PWJP5L9vcHUbk6/BdhBmcbWrymmjEBZisoXmOQiEKY+c8Nuj4PEs95h0xCC0
8J/59a5oFA5a7KsIzh+ES7/3u9s9GgUhn2RrnfFBELUayNXqG4XYKrWSJq8v
ELBw89SA1BhE/udg1nxpCMJeK73tSR0Dvy0dGW3F30B5SOz+SDgFqC7UqDsN
30DJSoxy/zIFbO7weUW9+QbHnBw7/RMpsFtK1xCb/Ab3Mycf/c6kAGGxfPqZ
+jBcfZW4rrKGAqnd1w48qxuG/NCk25tpFKgNteC0PP8O96pXuxqYjQP37Lmq
4fOjoHO0otVAkAqOYjMXngaPAtO5utVlGRXaW8P23Y4chZqjWjcTRamQLHN1
8EQSWved2vJXa6mw6VMZobdyFLZuDpsnb6PC0d00m86pUSj69Xz0nQ0VqkTP
LDZ4joEG09bCpIgKTi02R5JdKXC1vc0mX2MCdjSsEZfxoUAkM9deWWsCCNVD
PXdDKJDCe6tQpjsBhXfsj9clUKDS2It2x3ACKDGu9v0VFCj2iHnmcHQCnEyD
vdb9ooDbcPg5qRDkgYyEspBx8Ok43x78eALO/ulta0uggmrUeEv7Dho4hiUf
b0qmQq2Cqf4abRqcIh6ars6iwqBFXr2bLg1spF7KFpRR4eLKlqIFoMFB3Zrg
ix1UsDD60EQ6TIOt0TfUd5MnYPWj83KJrjRgixpn1cVPAO+/3hifWzS4rtHo
UxJHg+X/nK0t/tCgc8cALSiJBq3bA9QZMzQga7FOG2XSwOzez7ZIJg1idXUO
UYtp0LizW7mYR4Nww0ZVxXYa3NMZVBwg0cHzaONYHpEOHxmzhG4ZOhy40Gid
EUUHt8/pM5oYHQhtjTqxYQx4kmVI2RxPh4oV4iULlxlwemThvl8iHazsvCRD
rjGAtiAV0niNDkXMDX88chnQzr9vnUEyHfb/d7XCopUB3wa9pzWy6RCXc0pO
ljAJI80uIi0VdBAJ4ifWJk7CLuUHIaHv6SCmZvZxJAuH+zJjrSuXoecKFYh1
3MGB21W57d1yFMfE36MPy3AISuXzjlvJAOe7OV+jmnAgOe8/yhFjQNManKEw
iMM39g7Bz2sYYC+USHRe/QMklvOFmqgw4AH19S5Gxg/4MXbT0BNjwMECw6Lf
qVMgWbTe+4UfA1b/em98qXEakjX2h6t3MyDnzRN+osdvaOzOu/dYZRL05fYu
bnD+A+I/1KckfSZhy6go9WLgX7hIqOz0b5yEyjJx93r/GZj9NPSXMzsJsX3P
9hJDZmDaIiqWOTcJpwjespbhM5DdG5f5lzkJIqfefJyKmYEvpUq7J9mT4Loq
QkspYwa+PrkW2DU/CRuCJwhpjTOgEcSyixPAIX1fU57v/AykvGOK3ZDAIeL7
6Z4tcbMg4yosO70Nh9kDBnkuV2dh4w2RKy81cPCqWedWkDQLpIW7tlnbcbCL
/coVvzULKn4UDNPEYbearSK3dBYm5bt4Cdo4cIKO+nW8nYUhq8xXC/o4BK8w
W+WyYg40Fx0r/UxwmA5W+5IvNgeJVdVZmqY4uI4KFw1KzcFc/dqxWWSbug7t
Q+vnwHx9bnzQIRy0bI3tNbfNwYD2Q3kfCxTfvb2V/JZzoF78RH7fMRz89HeZ
5afPwdNQ3yvnHHHgO59+6WbWHETbqjYuP4NDUsHvuqjcOUhwHrSoRK4glK87
e28O0uK/PppywoHSITO96dEcfGhJ3e/sgsPRY7zkmp45WJTJ2KntiYP2+db+
V+JMsG77qHE2AIdXBWuXNUgzYZfRSOlvZKvPwVC6lgn+b5UjLgbicH7ntrJE
RSb0pavrZQThUMotCDXfwQQtN+llLSE4rImPXjdoyYRTefTan+EoLwv2O/1I
ZsK+PdVan2Nw2MMySN2egZ438pBhHYtDtLnOi5BsJrwOWNXdh0xe2KwoUMiE
4ynZxgNXcJA6uYqyro4J66XmKrvicdCQHDpj3seEYafhbXnXcAg415OS/oUJ
PWJ/FSWu49Dw4v3zoWEmrDHyPZCAbOD3TMGNxoTLEREbfW/gYPrx3tglFoo/
p15e+yYOLgk+Z2pkWFB/wWQyJxWHshH3FJYcC2S0GrqIaThMaTs9N1BkQb+9
2MQ5ZP+JowqdaizY5XwlTTcdhyjD3WMUPRYcNlTge5eBQ868wBlJexbQ1ZtH
2tE97fLNcQwpZMHfZ5qia/NxUEsW5QWWsOCt9ticE3JMdVyGfwULzpVKy91H
1p727/SuZcEe38BtugU45J0z2+n8ggWBdTcdDqF77uk6L2RJYcFHpf3vzAvR
eV3xLzSnseCMG6vhGrJcMUP/EM4CScKnsTfIXeO9fgf+smB+zZlZgyIcdM5U
fjUgsKEh54ywwj0cBE7ZV6spskFX6EX/i2Ic7MN7TVRV2GCCexXPIDfmmFKV
1djAB0Y1G0vQ+79oyyjsYENm/qqoaOTPNqtiVhuyodJAjqVZitYXfEVOypgN
P+8bPrBHjs3gNYqbsiGo8GVeAvKuXvrUCis27IoO0RpCzrdssxFwYgOTJKsV
iOoW21f7D78rG6glNzqzkK2SH1xb9GBD/s/i20+RSZ+y2rh+bJD9Evibvxzd
30N+an+i2fBvxMkpBvn1Ofqr6StsELTs776LLH/ttMNUIhuUnh+LfIbc/dYk
nZ7CBn6dnXFsZN0Div+G77KhMb78+JkKHHYWdSa8KWZDunKSSijy1kV/iZpy
NlT5V+skIys2vlSNrWHDYYGgDU+R10l41XnXs+FGOx+7C1naR3LP8cdsyN6W
JTaBvGyTi7Xaczb0R7eILLuPg2DMiu8S7Www2qmNr0PmG6l3X+hA61FKXrYV
eTZTMLKriw3V355LmCNP/60iP+llw93WeO4pZIb58bSiQTb4ii7beA55WLCs
LHiUDXMv1XSvIA86HdF0pLKBdLNJJQW5u5XdYsJgw8Nc2rFc5Pdr7x7UnGLD
VEXV6xLk18EmPet+s2F8TCT0IXJb95/TgrPIPXNej5GfbM1h/GKx4dJFz8Ln
yI+uGgZ84bEh0shZ5i1yNQ1feLHIhsn5758/IVcYpiU8IHJgxUj/uz7ke/l6
EplCHLieclDoK3I+dzzv0jIOYErbY0eQs2yuq3qs4oCPWJLhOHJq7c46KwkO
3DI4bUhDvr5y2EB/NQfyWLkxDOQ4zysdyrIcqGGbCeLI0a//s14lzwFPZ4/O
JUco9g+zFTlQ2jH7acnBkZHuFBUOFMtNSy/Zd0hl5p0aBwReHytYep6n9qeL
9Vs5UJuk7rH0PufUEHLBDg4wqwICl+Kxn5ZPS9DmgG+H+vOleE+Ydsj57+aA
ON3WYmk91iW+ZXZ7OLAhemF9P7I5QUbTyJADGiFrNbqQD9o/b9lqjP6XfHR5
ab8Mn3gcXGPKAZkVH6VfIOtLi/fwm3MgPtpramm/tf2fnP5hyQExXhqxBlnj
oxOj9xgHCrxNTpUiK8fVLZSe5oDThsDupfPdQLFLSDnDgSN2c7+Wzn/tHgGJ
cBcOVMSuswhFXsk8qmruzYFzm0K7TyOTrRZqdfw4YDfVwlzKL0JVsYFCEAea
td+cAmSWC9NqNoID/VGm03LIf5/nDw9HcWBIdkBmOfKU3AH3N7Ec6PY/HM9B
+T3ad+tiznW0P6sVVLuR3xrplmG5HDCrLrgchnzhTeTWS3c4cO94c40jsqrJ
q0ct9zjgEpzMb4wcd8ji+e5KDhxKrSSuRN5v7TK0s5UDHnFtaWnofs72VjgG
vODAYZWaTn/kIpvftJrXHOj5x1S0RCacDJ/Z+okDFNJXnWXIbY4pyzePcsC+
P3luqZ74UvpT3agciHlQp3sYWd55nUwJgwPvO34UKCFHupUqb/zDgcY0wZ4u
VI/0z7fskSNwQWvrn/71yI3hk75iSly4/++1Twqqh64LW1kWqlyQxycpdsjS
lwIvJqlzIWflyjBl5MDLi4nLtLiQHsqQbED1dUeiVBHJmAvchUm+D6j+VmXu
7eO4cUHm0Mrez3dRfq2Jt9vlxYXw9Wuzk5BX5LwfC/blwljFnVhTZK+849Mz
F7iQffrTp2eo/qvd8xaaTuRCk8F9vTuoPxTXZOtS7nOhrOZ76q48lM88O7XB
ai4smLKxn7kof4zWy36s40KFwN6dd5GfDhbOP27mgnfAsh+CyD2L95+lvOOC
faZZ/tscHPjNW432/uBCq9qCoTrqX6dxiuUdNR5kKqT2uaH+qLiz2DBzKw/4
SsmxJGTGRTfN6zt4oPnqzcXCFLR+sSnJC7t5EKY0bz2UjMO1XXMDFqY80HY8
kbIX9dvHcUL2ix486NAdj55G/Vtqo7qnfTkPFL0+f3uJ+n9y6jWb8koe/Ge3
xWgvsgjhh+FsDQ94lkqUFvT9wDdWLnv1CQ/cJPc3P7qM8jF/04f6dzxQeZgw
kxWF+uHajRorpnlQcevfG70IFI/4WmbzjnmQDdUI+umPw6/oUIqgzjyU6MWu
s0L2/DP40VJvHmp73xAb/HBw7LpVSt83D6MphWnhvjgcSpKylTg2Dx4bbF4u
eOOwUUTsqWfIPJh9sn783R3VV37yZZmn85BECmuXskf1ujLb/kjbPJTrG/q5
nsZB+OQWvfhX8xAYvMO34RQOWK357Oz7edhVs97jqB3KB6cM167hecDZ+lYJ
J9B+vVQ0i1+chze/WSe7rNB9uGIgOWe4AHWvI2WpxjjUkwNKut4ugNi2lKDt
/+GgLiXq6dT+DzyrjewPsCbhVxJTUrN/EcJmzg8b1k/Cxvj4bT6efNjde5L8
GX6TQDn5dciQzofpyvYTv2yehIMTPZz68/xYUZumglgfAy74u7hL/+THXip2
eUtcZECC2bTb7l/8mLG+eeLFcAbcUgpxs//Dj9mMrG2ihTKgoT/BtWSOH1O4
vM+kIZgBM7sfOGv/48dyVB8vN/VlwHnijKPNKgJWmN9RYniWAWfTo2wztxMw
3aqrYl4HGWDecNtUOpiAbRoV8tZexQD3GadFqQsErPmCNit4BQNiNNQeSYUR
MDfVqIMNaN5pqmiSk4okYA/9VutuJzNAsaDvt0QcAatMf79+DT8DmPGrboll
ErDLnJe2ZX/pkG8bM768gYB9/hgh3d5Lh+l5zwgik4DRmtb8vphOB9sTZps5
LAI2+IJgcy6VDq/qtvRPcwhY3z9VseNoPsv2nNo2tEDAXhrnRW6+jua1Qe/x
hyQi5kPgcR7H0OF2na+pvRQREwpPvx7vT4eDnsFrHu8kYhPMyvJ2czrcHYh+
dD6AiHGptNHD/HSgtWuMJAURsQo96RPx/2ig/mhEuDqEiEl/36XeiubPhmQD
h1/hRGz/yM/vG9F8+t6EI+wbS8Q8EqalP+Fo3m32dfDLIGJnJZwlC3toYH7H
QSSwkYjp7AnYrFREA667gWMoj4hZf9I4ObGLBqbNaljQAhGjrhAJydaiwe0V
azb4LRKxuyG5GaZoHtev/TviThTAbnLsPhRtoUEkr9ThxDIBjOlxdHj7ehoQ
k8QddGQFsPqnKzWeENBcXUc/PbdbANN3m9X0eDsBcgspdn5hAljDHr+2qkMT
cJBy+PGtCAEsyveguvbBCQh8I7y6NVIA8641sHy8bwI6U6K7RWIEMBfpnse1
uycgWMXP5N41AUzVVrfST3UCuiyO6AzkCmCiYxIOcsQJuFy4UsLgmQDGGfjq
JF1PBdqBa51kARLmt66gZ1KECk5mjhuUBUmYi6+5ihOJCsPmWsF7ySTM+LNr
Sd/iOPQeG1EIW07CVGgqylWz4/DirGboD0kSxmCNflH6Pg55l75u+qhMwjoP
VYhvejgORxu3XEk7QMLMab4knyPj8FLlPay/RsIUJZRX3o6mgGnSiKn0DRKW
dMl3wTCcAl1zf4+tvEnC7DLtD9ECKfD9lYzXv1QStlbWQ0DenQJsJ7es7zkk
bAWN9vSEOQXUCwh/8itImHVO+okpGQpkrtYtlO8kYbWrJffeqBwDT3KJgIKw
INZPnw+8+noUGu8oGbxMEcRExs+N75cfho96+u1WYkJYYGG3QP7pQWB73rZ2
TBLCbtamD6Rs6YGOIwXHVkiTsV2ZN1ycxTvBSVe/tDSdjPnotEa+GG8Gj58f
5r5lkrFsHUstx6Bm8L3rsF88m4wp7VH88EuwGS4Jx4xF5JGxzgfESxObn0Du
l7eyViVk7IvecsHtPk3QH3o8eb6RjBVvulwfynoEpk/8Qy2/kjHzt8zvzXwP
wPK8QEfcMLIdhWeicB9OKGZKPx0hY1vkysideyvA7erjOhUqGfNezvfs7uUy
iD3JN82bImPpv1ZiT4nF0Mq94VTyj4y9487XkMi50F4lX/OVTxi7PXXe4v2B
HHjvVLMoShTGnr0uN74SnwVfO3tzw4WEsXTFAepnwQxg58gOHBEVxkRdTMq/
C1+HRfNK5ThxYWyfUYn7q4QEECRCYLOkMFYZHOCeJ3QFJM85ianICGN33lwY
dxSJAFn5WQc7WWFsu6ccfBMKAsWeK1XJcsJYg8W4bbaIF6jFr15olxfGlK3I
xgMip2C7XrkZT0EYe6ib8sDVMnzP/6lVx2w=
"]]},
"Charting`Private`Tag$6583489#1"],
Annotation[{
Directive[
Opacity[1.],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
Line[CompressedData["
1:eJwd2Xk4VN8bAPBZKCoVIRJKKSEhspTeSyohshOlJCRlSULWKES2kJ2Qrehr
L2VJFFIpO8k+cyf7PmP9Hb+/5vk8c8+ds77nfZ/Zb2Gve5NEIBBmiQTCxie5
asuPIVnH01PCyt5diQ9PC9MqTwo81wblP/8qtPRNYOm/Y5Zdkeaw5UluGof+
LRjhtKGXRtrDjtvt3kN6btB9zr/mVaQ3dNzriA/QC4I288jDSZFhkMl63FZN
Nw507Xi7YyNTYPcMR5vlxRyImDEriol8C8o3Ln+YUXgPJ+vUt6jcq4bIB85n
H001gIO71vUih3pQdNkvJNv/G+68uxlKOtAM9+sLGUnQCa34BdYsi1bgaVFf
N/DthafHFgilJp2geK6T2kftB/cHF8Qotp0gsaPpdPBUP9yqSjTg9uiEXuOo
XklGP6hpn8l1Se4E9+9K07ZbBmCzfbie3FAnmAXfsokXHwD/fNHMd3Zd8FK+
8wbFfgC8jpprfPDuhs8VabzSMwPgKFYfXf3qD3j4CRzIHBmE4ZvDPqmlf6BX
8JFmzdggGKYS7Hy+/oFz1ctMXbODoMiloILR/sAtwY+HFohDQFrPmagS7wVp
c8nzk/xDEPk7+HxVUS/cGO3p6NUfgkI3bUbFp7+Q9uv+TFHlECzduJ3fe7cf
0rJudIY+GoZr7LOuH136YQy48LmAYairdD+T4NUPLTl7Ag2fDUM479NO49B+
6J3c5b0tdhgO/8wmteb1w/nsMaczecOgr0gxbBzrh7KHN7/9bR+G/J3X10tt
B0Bni5xv+6ER4KzEG6KdBsDnxP6cArERcLvtEOXsPgCMz4bRgZIjoPrF+4j0
0wHI6iv8dERxBHoeJuvl5QzAfdKmRIWLI8BC7clKxwdA6Z3IWLjTCFhUGF4K
txqE6fYpslj5CEiX8nDw2g8CPa6xpa9yBEhvu1tePhiE17mCU2GfRyAt9apR
UeAgBPBc5RlsGoFBP6ur7bmDECTx/K5WH3qfuovd3slBUG9runeBTAGLjujA
7Adonm4HGPScp4B0s5G6lM8QiNo316xpUIDUwLutPHAIBLR0fvFfokBaeVLY
t7ghqCIx9WoZU2Aw6VXMxIchUGOrXvGwQe+zLMmQIQxDTEvBj62BFLgx3Vpd
HTgMpB13AjbXUuCae7jRu/BheCF37oT1VwqYkTUn3qJ5Vm6as/zcSAFDrs98
Kdlo3u+rajj+ooCaQoGLZ/0w0OYmPdP/UkDC95m4IssI+I/Yht2gU4C+81xs
UcAIuDMr771xhApzccRjr8NGIDtC8IaROBWmhSrq0l6MAI+ioYvaMSr8k5GZ
jcgagYzGe1v3y1LRvhbScvg6AjlyHDJvMCrUpK6Rj26mAB+rQ6K4ERVCJMvs
M59Q4AHpSjnFlwqN0h2U+6EU4NGL1bLzpwKL7OKVszEU2P7IkXfyCRX8FeQ0
h19R4BiZx2wsmAoPVcpEhOooQPQcaa2LpoKtftlAEpkK/Pv0IhayqXDetUwv
2ocKv752spl/R+3dOxotA6ng9EioO+wn6o/HorJMOBVatMyEK39R4bSvnGRL
ChWCkiOUd7VT4cTTsm3sVVRoS3j0M+UvFQ4mltWFrFLh5a+m46qTVCBVl8n5
u+PwM7E9smE7DrlsHJmrj3Ao61vI7NiJg66pHeeDYBwuB73gG+LAIX1h3/St
RByCAyykZrhxUD36NFe7Eod8q31m0wI4PIk34+cj0eCU5CcOFwkcttwnkguD
aODsyTz+WgOHwhpTR7FIGrwrstG/fRG9d2dpX0Y8DfKjrZxEtHF4/dr244vX
NPhyO+1Pgi4OmoMt9z2/06C0/m+htQkOodqZuBr7P+ACUna0FQ7soho/+mL/
wctTOi5m3jhQNqew16f+A7rLnH6lDw7lIzP6/2X/A/YGXg8BNC7Ll/E9Pu/+
gWZy0+sufxze8fzD93f+A7XnH7+efIrD1c1BZMvdo3Bhbeur/6JweDP8RR6P
HoWClKGLttk4+Nbs8WhOGoXasB8LsTk4ikd3q969GoV8HD/4JRcHghn3uaCS
UYjaPLp7bx4Oei039UTbRsGzPiq4tACHpU9Md+04xyDUKUY+qxwHtRSV9KnI
MSg1+t3t9w2HgPrm3kcJY5DAL6aU2ITDl+mrPFwZY2DAn3Og6DsOZ1UfPlMo
GYM7zvaP//zEQYVW9OBRxxgEJxxv52/F4dRxYU3OvePgkJPtYvYHB8mvm+fl
Xo0D1YU1qWMUB/up6GONeePQb8R3u3YMrRvvQVuz0nEYo9xZeTuOw1E7rM/n
6zjYJ8g4+E3iIMru1tBAGwdvN5effLM4HDT9l2QqMQE/B6rWdy3hsHuy6Zx3
2QQQCy4aSWymQWxE1XVa1QTI7nmqM4vMI1PooVc/AQYVhdplLMhuLwoPd03A
kz2tV05tocEesoVA89IEqDorjyqy0UBg9+L8vtOT8OOrCOfWXTQ4BPtf1dRO
wo0bv58SBWiQObCrWvz7JOjs2vYjB/mQ/6aemLZJaOkTVNERpMHhhtGdtymT
YBW78ilpHw2ijphWsjJNgcYledWjB2gQUyQsWig8BRVjzraHRWgQ/7WcSL41
BTdfVr8Ml6LBVP9/bpN2U3DQtTxttzQNzi9lTvc4TEGDgevOZOQ58ecDxa5T
sHK4UjbnOA20Im9/sgqcgsim5Kp3sjQgXdnr25g1Bduv7QitUKDB7RlPQiRl
Cq5YdVTfUKZBzVZnV69/U5B2TG2uC5lH2HbKdgL9fu/efG0VtO+NDPvPLEzB
VEF7mcIZGuyrkKieZ56G/vJncixnadAa0OdtIjwNrcVm/mFq6JzxK6/vs5wG
v4pXyxraNFAza3WysJkGI1MGXwWyfoI1Jd1uGgow1i9HL6H+8IZ+P3R/Go7b
m5az6aDxc/UkiD+ZhmesNvL1ujSgs92Xl8+eBguNe6IihjQoXst21B6bhlNR
xqmxZjQQ69857Ok8Az9Z2/Wv2KDxU/fVuLjOAEedKut/yA4Tkqn2HjOw64Pu
A9It1H7lktl1/xmo9C72zUQ+xRvRqho1A5/qFE1GbWmgqctet7UYPe/DetXm
Dg3satkz42ZnICTOY1TKiQZ52Rw2JU6z4JL1mJvjIQ3826qUyQ9mQSpXm98U
2Yx0h0/n4Sxcazswko68xezrjzG/WfD/9OudjAcNrHZ4yB6MnoUC/JaLniea
T5cR0vOyWfjyS97tsTfaH2feJTmszEJO7uWxj3408Ph7pUXsyRzYPZn65RuM
1vu8UtLNp3MwMy5+7QOyXcFe65TQOfhzKKR8DtnUv2eJ48UcHFZfbLEKoYGi
qInQUtYcOIicS1B7RgPGfX3H+oY5eMgcH0gKo4ELm8aOm2zzYNV0WfISioMT
LqJdyezzIDvhYOaHbNXPmt7JNQ/TI2yGpciGRfUnNAXm4Uj4dAHfcxrImpy7
evzYPPi6DW0bRp7LUM4j6swDy4EE3dvRNHA8Ja+RHDUPCtdDRPRjaUC4G+Ud
FjsPT98cYPVCDk2ZKvJJnIejUxMVWci5pJy9NzLmQT+JJ2MJebCed+Jw8Tyw
zzpZJMeh/WOwHF7QMg8VRqkZvShOn7hb2V7LsQCabWwHTibRoDZlz9ZS7gXY
MmjmZ46s+8sFsvYsQB2HaZkf8l2ZY9lBQgswwHsx/hty1lKKm5b0AhxNN9Mw
SUb7P8B3b6fOAnQZhunbpdBgKUXVYjR8AfKiRn87vKTB6UWlSKnoBXjp0ykV
ieyrJVfzIG4BGrUyTYuQWVaPCDGlLUBC+ccd88hcl3cM7i1aAKuYD/T7aTSQ
5Oy+rtW2AHqae+rupNPg3u2WiKiuBThTb/g9GLm0pulTd+8CJI80p+QgKzlW
7bemLADNTj99GFn9R8aA9+ICKO+8f8A4gwY3A+2vF/AuAt/A6prMKxpk99lE
LPIvAqVUOlMbeeyExScloUWQervGbYvsNKK/v1F0ERxLpQ2SkX1UFAcGTy6C
BteoClMmOn8rTNc5ry7C3x+F3XXIzQ7x1x6kLULrgGSpYDYNRMN3LjtnLsJA
RLWENLLf2yfRTrmL0BP4y0UV+cSEU+OdwkWQlbp83wY56baGjGXNIviHKYnl
I9tarWzWGVwEzW/SzpI5aL0eO6VpURZhmBE0AMj8r/BTmv8Woe/SHL82cvNQ
q+P5mUUIWsHJd5Dlruf1KJHoQHNL98tEZjK7+lZUiA5vfvBf3JlLg6sPWy+I
HKLDxMvv2XuRy+LVh4VF6cB9RbpFBNm26wTvfmk6fLZljsKQfxnu8NutQofe
/Sp1d5BFXR7zc52jg8M0S4wrsn/0chmHOh0WDc1k/ZDlW6ljbLp0OCMW0/cC
OVmn2pDJgg47L3QMVCLTHU5ME63ooBbmd6geWTf8TfD6LTqQmeIUfiEz/4yt
XnKkQ6jaZOMgsp2mo+i0Lx3mXf/Ekf+fZ1BrJx7Tof6vpc5WZMHgK+ZjQXRo
lpbv4ED+3XAhihqB+sdTeHE/ssJ5obXel3QIL4sdOYksk94Y+PUVHTZtT55S
RpZYd9pVkEMHvUt1384jC5V9FvEvoMNzC/sZXeS9u+yK7pTQ4Zv6uJIxMrc9
52mj93Rw1fYzuYK89TDKFz7RQe7TBMEaeZMf299ddXTwG60KuY1M6CuxWa2n
Q9ebVNweeS5mk1dzMxqPXtBOV+SJmXyW8lY6pCY9+/MQGdcyep7eSYcT5+Jd
vZF7N2Vnu/Sj9bD4su8JcqfFpePXhulQODgoHrQx3kp6xQWcDs+6iKwhyE17
XqodH6PDYZJQSejGfLlcaNk7RQcPcRWpCOTq39NXNs3RoULpuudz5HKJeHxy
kQ7mkl5x0cjFT1XudS3TYR9n7OONvO4t5d9qzTodGGz5ynHIuSrPA9+QGQDG
Vd/jkTOST+6K2cyAWJVvRxKRk5eGkry3MmBd6pdBEnKsYYjIrR0M+J3arJOM
HFkoU6S7iwGNAg38Kcgh23uVTu1mAJNO+fsNP7F9XC/MhzyTLpyK7PvlqN4O
QQa8/fX4+oY9hNp76UIMMGgzv7NhFy8vm8FDDHizKHVhww7dh2a/iTKgQ21l
buN9tid+epZIMODyRKXDhi0jH7CkSDPgyAH3jxv9uToh+DzwBAOey0l0bvTX
WL2e30mRAfoRPZ83xqOX6ZBtepoBvq8feScga5F4j59VYUAU98GtG+NXu/qp
QuIcA0xdq61ikVXKb6nxqDOAOcQ4Mgb5FDdHC1ELjUdo/FkU8gmn8iujOgw4
vM/bJBJZ8ocF3mrAABffHfNhyMJPilazrjBAoPZY4lPkfYOmgRHXGfCRuSYr
AHnPaaZdD28ygO22kZ8/8vYFfRGtOwzYph6R64nMortaKOfIAP7v8gtuyKT8
V0r77zMg4gmN3QV58eaC7pwHAwJi7ry/gzzzKbm314cBl5JVz95CHuM/b/PV
nwGLp8VfWiL3t73wjA9hQHGkbMNl5IazCtlYIgPmiPbdqsiuX70kvFMZ4HU+
4sZpZJELtcUVGQyQ9DMvlttYT03tT4p5DLj4hS3vCLKq3s1umUoGTC3xLG/Z
OA+tudfu1TBgOZdYQ0JON5yiFHzZWM/iS0vo/JMuP5yV+InWuy6kDkeuvhax
7Ug/Aw6+9WH7jOww2B5pPcyAIqLSrvfIgpZ7eTNxBvRZ0/rzkb2ss4QPTDMg
cP/h1jjkU3crTvOTlqDid9OejXhW9pDmwH5wCT641x9lRbZalVjUFlmCtheH
S5ZR/OT2dvYMFV+CruVWpglk50frQVtll+C1s+zqL2TpIK505nNLcE38h+4L
5PwY5TaG9RJM3nz7YjfyVZ4AU3m7JajsP5e1CZktvmnAxWEJfm1K855H8d4u
yWhi1nUJNj/6/PT3xv2RcWfzRNAS7I+J3foU+VVBnMLg6yUodpmunMhC+3nZ
VLTz7RJs/dD9sQdZ8qwA34+iJRQX9wXXI3/sTFt5/2EJgjP/xr5Ebll/XRXx
bQnq8EU3HWSiVuVZ5dElMM6+YJKN7q8r/wZ1UkWX4bLg48/S6L4TknmlEiOx
DFHfV3p4kXFP6+Mh0stw7dX3OgKyM/sYp6viMjj8TWD7ge7XYPn5Dm31ZeDH
ft+1Qn7/ZPPV9VvLcFYL9wpF9zHXAXHbqzmovcqzHR/RfR8eGWyYk7cMBX0z
P+KRt5BGVeYKkJuqjd2QCQM5fE/Ll8GjtOKbLPJY8uHvJd+WIbtZR/JNKroP
9xyQZJtYhg769ZVQlH84c+xZ+CC9AtzzMv3iKF+Z9HUb3CS3Ah69zWtMyLbT
nT90Tq6AJdcM/ieRBteaX2RRz6zAr7MDgiHImqFcJrsMVuBBhwwvnkCDA1vY
P9o+WIGIJjWIQfnTbyLLI96PK1Bqccnz2wsUr/Pirl6qXoFH+yemkpBZL4ud
DKhdAcPaQGkHZKxQa26uaQWuCZQLciLnW0RbNfeugFbGoTSTGDRfn4U0AtZX
wJZT6nxPFDoPj5U451VW4UzPEeb3ETQoYbmX2dywCif27pv585QGFA/f8crv
q6CNT73NROaZDpPJ+7UKPjLRmAOyR9ebmqCuVTjpztNNQlbNpfxVoa3Cs+dy
Y8Kojv+tcXl3Ccsa/Bzm87wRgOqlUOXAuPNrED83WfUB5c/iXDttLerWYE6t
aqAb5eO73n5486phDdTqbqxEIi+pWU/i39eg9L5TlzpyvUels337GuwrGe16
747i6bCdtwd1DbKuT45HuaF8pqghKoZ1HXQ5i8XhAYpPun5VjRfXgWmIetQC
1QeToQucx9vXoZclMr7ZGq3vlEDN0W70vVERwRP5n+55e5G/6yD+s1fgCPIw
d2wDP2Ud9Gp++/pY0aA7WcGLZWEdov3edIjdpIGFUeXsxBYC9qai7razBQ0u
WhOv1IoSMA3HcY1GVP9oxkYXfRInYAcbav/ZIas3HNlSJUHAqOncMjuQ1cR0
y95LE7BPrgq1uqYofk+msb9VJGDJRQVNbSYon3mg+iVOnYDJV3Vu+4bqqwMB
AcfsbQlYvndbwF1Unzm1y3hZ2BGwlJJzjzcjVwsPNhncJWAV/2oFU1E9d7X2
lO0pJwKmo/7iSLMWyh+JMxms7gSM9/oBH7GLNODwMNuTEUTATL9PFfy4gOKd
oxRzVzYBC52qfV+D6kud6r96TbkELCOuR1gLOXVHSFrVGwIWPuW8Z6MePZ1P
gcz/CBjuYBA/jtHAfTTB/d47NF6+F/07AcX3m5um2OoJWAdT3gCcRPXC5Z5u
FSoBq7FmXFRE9fA2JaOsazQCFqJ8cTkH1cuygi33vEYJ2NgZyzUe5MChxm3l
kwTs4z0X4rwkDY7ZlZ+WohOwpeLNfzIk0P7zjEsTZCViN6OPDA8eQec91ch2
RZSIFYedmvqJ6vvTj1pO7DlKxPrT/ThFkG0stcnyx4jYp9t7bLwFULwSOZ94
7zgRm6uZeSHGj9az4MSPfyeJ2N/UrfNue9D5qeGS7tIkYivNXc7jnGi9RloY
JXdR+2nR18KsNPAUC3341oGI3Zv8qnSXhQaFjmqr2U5E7NdegdmSzTTgW/tI
SHQhYlSJ6WqVTej8cmdufuRFxM4c/1SnQ0b1pJorl1YoESvg+KOnuopD/+u9
UpQ8ImbJtfOE0xQOXDPthX1vidhSbHFM4iQO6vIRMl0FRCzjoNxk3QQORbXM
8k0lRMwgiO8R1zgOT3onThdWELELBxc2ZdNwEN/xSdPrOxG77PdPNW4QB1en
mzbc40SsfH5oU1oLDoEaE9aKk0TsZLmF+/PfOLw4+MD66jQRU7qk6uX3C4fS
9kCrzHkiJsy9LGH+E4dZxTeWJ9aIWE2N8RLTNxzukmevGe4gYS9Fwm+w1OBw
I8rHJEaKhIkMBzj25ePgdIfVpPw4CaPjoS3JeTg8Ohdp/FeWhFHk8n3M3uCQ
Sk83OqRIwr7Wbi/6nYPDX7OvBqUqJOxAQb9cbgYOxsLbddv1SJi3N/87cjwO
WqUJ6twuJEzhAj+u7YeDzazFOpcrCSM2quuN++LgJylazOVOwt7Z/1kL9MHh
Xe47fi4vEqb3jbTjgycOQiltU7uekLA+rrkuVlccFgJ2vGCPIWG2X/k1Ltnh
kGziN7StlISFcnINOOqh9jHqsdvekbDrRz5ebNHBoaWF/eK2chJmFShVJn0J
Bxat1NKtlSRsYeLrg1FNNF6ViqAtX0jYK6mjTqrncDgntniMpZ2E1YyXm0XK
4zCxYutBXiBhsrbWpqF8OJgYaxxhLJKwY/Pd4cW8ONQWibVPMEiYgdDOyM7d
OMTZjh3rXiVhPNlsk7ycOKh23hn6j5mMjQdrtftuwyGhyEH9KhcZUxtWtR9e
oYKarQvPexkyZv2zWmekhwpFdYZ1+SfIWFNs74fqLioI7JdzypAnYys3e3Pj
Oqgw27H4LewUGTtD8d2u2kKF5LNu3laqZCwqXzjPvZEKc/s8KLv0yRhvUZDm
nXdUeNnhW3z3HhkbsO4+YBxJBUqdZF/ofTLGMtuzKzeMCuLFfaxvH5AxK6HY
GnoIFUrDlcwnH5Kxz3f9L4UEUKHpAoPVwR/53VJPsAcV6B8czB2jyRhPlbDg
v5tU0Eo13+JcRsba796r2n6CClGh22Wj3pOxPX+mWmekqdDlUWFe/IGMzbRw
a7Qco4KlCV/JXBUZmxNIuRh0hApuHB3m9+vJWC2fv0nDXipk+GuVuHSRsaXB
1pUYEhWWbJSuuS2TMRu5yS363yig/kEUu79KxsS+lPUuf6VAAhvPPsd1Mpb9
tE0utZYCpwpn+mzITJimb6Xr3woKeC1nmRtvZcL+ZImNSf5HAXIoh7kcHxNm
bDIeKRZFgW1F1CvzikyYwJJKm7UJBcyY25SmTzFh224S+BMNKJBnVMM/fpoJ
40gnpDfpUEBrJbF3WIUJO9w7ck1InQLhZ3WvtKozYbM7z1ulKlKAs/OjWdFl
JuxA6oXXw3sowL8aYerozoS5/4la8+ocAbXBi+9feDBhpPchM90tI+D8lXV3
pRcTxlovJi79cwQaI3x/b/Fjwn6ept78XTcCLoccL2QEM2EZ8n65XYUj0Kx9
Sa4jkQmbYDqoQAwZgUdp23cpVTFhpcUwmaY4ApTzwY0sTMxYmm2pf17gMFho
XNsnvIkZszlLtRx6NAy9WrIuyizMWFhOggin5zC0GvTtd9/GjAmLGehZOQ5D
zY3jbqOczFjkRQmm7ybDkOTdc/iHMDN2bOG5dtqRYdAvE3v8/Dwz9tby0MHr
dUPw+VATCAQzYwpSZgn9Y4OgHtqnzv2MGVvPDuhVogxC8/yMwfYwZmyWy/x6
TN8g/K3ltVuLZMY2xeqIKfweBLqFdezfePT7cpUlZ8sGQTyFNJ2cy4wJ5QTw
ufsMQsxuhTTBRtR/E5tozR2DYMuSybSfdRMmwKF5KkBgAMpSDyp9jtiEPQxz
sjZ/1Qs/Tp6q02XfjNU4MPy/VHUC3TZB71roZizoY2rSOfsWqL+UYsDGzYLJ
82c/DrjRCBYKp7KyolgwnxSjO8+Of4Rb49/n/8SwYO9r+nq6Pn8Ah5fmqhxx
LJicHIPEq/8BvFn9BjySWLBenUFNB+dySOxq4NPNRM9/fhgRWPwO2t2MwlfK
WLBjr68cDJUuAfVyJzedHhZsSGXRpU7rDejcZap/0suCpVwNU+m2ew3GQjHc
H/tYsLfBm7oGnuaC9dP3RYeGWTC3el6eb1+ywf8yYWJ5DPU3/VwF++lXULn0
zCJzjQXLF/eOTDJIhLp8wYIeAivGwnLK4kl4PDRZFKzvJLNiOwxuXbf4Fgs9
ja2JDzezYpKJJUaLWDTQ4/k6Lu1kxepYcrguG4XAulae8BMOVox2PNU1tCkQ
NpHB+QMnK6Zw7/dQqfJj4LxtwX6IlxU7rGSh22bkAXyCc+amfKi9zrneGeX7
INTyOD+cnxU7K2iqsc3YDkQDdq/WCbKi/Stqpm5sBlInczSW97NiOeZ+dzb+
H/8fMvC9BQ==
"]]}, "Charting`Private`Tag$6583489#2"],
Annotation[{
Directive[
Opacity[1.],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
Line[CompressedData["
1:eJwV2Hc8lV0cAPA77ERmAxUZhWjY4XeSBpWWUSEjEklGKKHySlZCtozslMou
SmhYpUmE7Ou55rXvJXmPf/h8P+fe5z7nPOf5jSNpe+WkPYVEIl3Ef1b+U9/y
NPeruukyj/IJGvP66srQq/ZsfHAMxE5G+kdVnIGFF8p27dFWYG0x9d64whEG
hS8yy6KvwOmqvyqyFdfh94HA2uzom9BI8ZBsfhUCLVbRcinR96FbpXMu9WUi
nHRe/zshOg30p2SfLRY/hqgpi+K46OewkLxNJvjRK9jzwZBHz6MafPxMHNqt
G8HVx8im2LUesh5rDepr/IDLL+0jKFu+ArUhw3ykog1+EgbcubY/YaxlE2+B
7B8IVZ4jlZ1pg8NFQkMcx3rBx9tAgebUBoXjgjSe073g+PahiahvG1iFtUpy
2/TCoWP78r1S26BASfnIjHsvcF6JPKXe3wYWH7qM78T1QuAz+ZyXzu3AzX8u
PKqzF/y3Wx2uvPkbkvbqGhrZ9YGbQn1sdXYnqCLO4gO2/TBgP3ArvawTLrNr
9RY59oNpOsn5Vl0nJBfed13v1g9aIpp6iN4JnXu6i1tu9gNl+fH4W8UuYC+K
b+VJ6Yfo72EH3xZ3gfDwDppDaz8UXT/GelPzB/7LsvrK0B+AhfOXnnW59MC+
rt4CB4FBsBaYvvbaqweS/iRZc68dhA9VPvuS/Xvg2HcR8xzxQYhcH9p2OqIH
lCRtFb7LDYLclzzKz4IeuHrd1HRSZxCMtWimjaM9kF/P/GDkOAjP1tgslzn1
ws5/3/giXg+CcBXREIvXZag9vCepZhCuX3KNuerTC+YyGpsyPw6C/seb23aF
9gLdP4PI/joIHTdSTxU87oVoPaFvVwcGgWuoIzeT6IWalqltmqtoYPvG9Hjk
hT5IMFyaszehwa6ydYLrr/TBY+W3bfvO0oDy/PePR959kJ9Buy9uRYOM9HNm
xcF9EFF+KajqIg36/rtwrjW/D1Sq2D+/v4GvZ+jlLD7RB82//SI607F/xQbn
effDN0fu7weH8PW/mhnuvNUPEUvDboEj+PoN63krgvvh+imS4usJfP2KlPtN
if1grTg/L87E10/Jjhuv7IcEtm7lLK4hsLUrzVIhDcDDVV6KTVuH4Pzkz+rq
4AHQ107cEm4/BNY+kWYvIwdgpGfzt6mLQ2BBPTL+PGEAUgR5/Uych8BU5J1Y
Wt4AJLH2tfF5DMEhzUIvv/oBSLZcbDlxawiUbt9T1OLC69Z4pHpD0hAw1xxI
KL47CBntHqJ1jUMwk0hWfnJ/ECRcXqUVfh6CSak3HzLiB+HPiOSlhK9DMKyi
Mh2VOwhreIW+nW0dgq7TUkaudYPAcyJXtLh3CGrT/1G3c9IgkafoavH8EITv
KL+SE0SDZs77FKokAY27ftE8I2igke5denkLAVyq85b742hw9am4cIsMAYGa
6kcGsmkQFivZlShPwA298q1SH2ignNzSvribACfj8t4U6hB4PtCw3HKAgIPX
yk/F4nmViKgn8l/E3/f51WgXjOehGz0i5ERAre/8XpXIISANBCqJOBOge1t9
x4+0IbhU3xXB50qAWmg5r8DbIXjPs2Wu05sA6YflH8KXhsAmLmb/cBABlOpy
9UAfAjje6ki2ZhCQv1owZymAANdWcnB6FgEnzZ2FvcMI+J2ZmeOQQ0Dm3OZJ
x4cEdGx9KDr6mAD97aH5x6oI4JsV429+QUBQkoWEGIUOX7oyvjDfEKBElIXF
8NCB8UyZHPmWgFZVgYXVQnRwlJsVla4hQO7bh1aSNB2E8zUW9N4TUM+pHEnb
T4fgLfOj5o0E8HiSqUUhdHhv1T36t4WAolpzN4VoOtydW3p6/hcBZ9eUdWcl
0cGlxMGvro2AJ0+cXsc/ocOgidDZoA4CjvT98PT7TIfcySvHensIiDiWQxwS
GIaUje/v8Y0QICB/uLk7YRjkJhbNziwRQONME6hPH4bvDx87mvwjoGJwyvhF
3jB4nZLXOLZMgN2jpI5bL4dBfMxIWJtMh5frhgnJtmG4VvCEfZGNDuc4Q6h2
a0eA9Y/0nJ+XDrsHOw8c2TQCO7uTIglsrnc7QlXkRmBazPnE29V0KPJvW8Ou
PgJeOhrXL/DTgX1ObmOO6QgMl448TBakw9OBjxpE7Ahc91Xhy1xHh9u1G3y/
puBxteO9Z9fTcTx0efsyewS2z54vXbOBDiQL0QMhpSOQfbLpopcYHU79sD8l
3zICqPCXmvxGOizUsLk4C4+Ct6EjqG7BzyntdKGx+Cic0mzY0Iyd5fd0Rlt6
FErV5NfZ4+dipGl8Y7XKKPjVi96+J0OHRy8yg5+dGgWZotv69XJ0OJSml8mI
HoXXIbtNhxTwc6n/2hWQPAoZ+fIJlxXp8HHy3DqRrFGobI5tnsTer3/jnmbp
KOzdMSQ1s50OevRi74Bfo/Alc/WLHmU8P0G9IuGeUQg/qd9puoMO1Xu+juYQ
o2B4iE+gCRsiRm2aWKNg3GmcWrCTDtq7ZY4Ii49BjqjaPfPddLhhURyUIz0G
u7oT9tViV9zZW6OxfQysy6xF5VTooNlmqWapOwZRY4wNI9hqfnGbc6zHoOlx
0ICFGh08c6TNNRzHoPnjvdoS7JIvRbGNbmMw/efGVx51/DylvvBMBODv15Xe
KcTeUcc5q549BmOFswl0DTpcYcQqNxaMwZrv0Zq7NenwbL20k0XZGMS2HJC4
gb3dGXXfqhuDr0Xu5exadJAXuN7QQB+D0LU81zn24PdCi5PNYmoMfn6Ov6qH
nXc+Vnd8YQzWmq376IstV1ZYLMg7DhwhB66OYkubD6eYK42DQLyF7kttOpwP
vNY2pjYOey/flx/CzijgELoF45B8ZM9NYR06SJK2BGcdHwcTL7lLTtjW2wpr
1c6Mw+JfJscD7PSTsFRvMw6j1AvCFdgbs83dx9zHYXlC5h5Vlw6WzfSnN2+M
g6PA8l8Z7Ifz3kMCgeNgKn9r6AD2BsMYC7XYcagI8FYNxD7jIRVfnzIOdvSL
KenYCQ9ffDubMw5vYpjBldhrJz4duFmO77+kfXp0ZTzqrQ397Th81r8nQAU6
rFMp8j1VPw7dgQoNa7ETWrPi33wdB7mYRnGFlfHr8UVy7eNgoH+TT2dlXCz0
c1TvOGxbZ5l+FHt9lS+xSB+Hq/u8flpgJ1lfoV6YGgfZ/I6nTtgbqLYbvy6M
w+aehwreK+PZxppa1Al4urX+ZAC22KGDxlmrJmCdl5N0OPbDYc0rfMITAI73
M2Kwxe8phl4TnwCFE3u/JK+MK2/K7pOegOfyIU8fYUt8F6g+sn0CZtJctHOw
U6+ydZSpTsA2Luatx9gb187PbtadACEHed8nK+Ov6GvCDkzAW2fuHU+xN1l0
KswaTYC4Z3zqynj6v+YDVmYT8ORuS8PK9zc/qrFpsJqALWbvileun76vxHf3
xQmQ3Gt1LgNbkpYTn+I6AZ1Hc5oeYmcEJxZxXp+AeuWYpVhsKYXwz263J8Bs
35a5eyvjn/2JjpAJeBFxpDwQe4urG/VA9ASY13Du88HOErTb+CJpAlapHE52
wZYuNdXckDkBJ4hVtTYr42YGxoFPJuBssM6rU9gyC3uujBdPQOWF7wH62LIg
mV37fgKs3YgYKeycXqFqxc8TkB96sJd/ZTyQoyOuZQKGKz9w/sX7Qa5hZM0l
Gl4v90/DX7HzLv1RaBmfgLyNW5+8wt7K9+0AzE/A550GRx9hx2wzr+JmY0A/
m4fuZeyfPj+bdLkYsF1SP+oEtvCno+0evAyIs7j0WQU71gXNdAkzoIFXl5uJ
93tcsYx8kQwDmpJV37lht7KlqQ9tY4DLFUrsUWxR03X7xZUYoDzObrUVO57J
Yx2kxoAOH87+3/h9S9BhxJ49yACRnxx/dmO3RThm3j/MAIZ/VhYn9rqevhfv
jzEguYzi/hu/v4kBLU1Kpxkg/E9hqx92Ul0FmerIgBIHYZVyHB8YPS+uTzgz
wPYwGxGEfXAhZ7LDlQHn/Z2+mGDPKD7oLbnGgG/1B3UncXwxir5UcyGYAdIm
ze82YlMsxW835uL1WJ7KMcHx6rSXIKvsCQPOmYdrrcd+fp/LLfM5A6TUu9Z2
4nhnUTtj7VvOAJ1/AqVW2GVyn5FSHQM8nwSlnVOlw6UpP1I0jQEfYnSstHF8
rV119Zr/MANQwajS7C48PxknhtM4Azal37cswP5oZtqzb44BruWdnWLYm98o
Vc+yTwJfTvjdSRzPf97tvnlGZhI8XKoe31LC8Vxi7/Jmu0lQcqj4qrYN5xeL
n+62F/HnAdm2bqWDcbIDLdN5Eqre/bbzxL60PuKzrOckbD+/710hzkdJIh3J
ikGT8G6XEZ+0LB2Yqz01NPImQVZMU5ohheP5vzy3Y6OToDrdjHaI00GhZ82A
39UpiL+wxi8Z5+OCPMGLpe7TMDAQp27CIMD3j+UPhaAZuGP9MezbVwJmDuqk
2IfOwLT0udKz2M6F4g5pETPwS5cuPPCFAPPAjgXB+Bk4H+V2bb6ZAC35M1IL
uTPAcNTv3/yZAJansVt9wwz4vmJr8W8gwGv1YX771bPgkn/vwqVaAty0NQ6n
xszCYmBFgmwpASSXmJv3E2ahPLohob4E1y9pjOJbD2fhxr9bNCfsfMpj8fNZ
s7C30c75RTEBffXrx+VKZkG/bL8iFBFgbLIYWfhjFuzF+z9deo7rQZeq1veC
czBib7JAzSfgfdqGVWWic2DelG/5AtdzJ795Qe6GObjDc2+9JbaLinJeiNQc
UPfuflieR0DuQtp1o11zoPUypMU1l4B1d2+Lt52Yg9tAOzuD68WFNH3bkcg5
kOjoebI3Hdej8zrRO2Pn4N/InuzpNAJuG6nXeifOwStdLYEcbK6lbVJsGXNw
bdcFPV5skbP8feLFc1CaCYJ/UgjYIfzbxqhlDlaTxJ7GJxPgcelHVEz7HOx0
CJ85jl1W+6nmd9ccTD1wLeHB1nF7K+lAmwPauhfJN5MIMGzO6r05Pwcu5bX8
VxIJsA++YlO4fh62ryM32sUTkNd9MWpeYh5S1dnzZbBH1WxrdKTm4Wp6MftQ
HAHug8aSjfLzsH6aa+cl7Ft6Wr19e+bBVcfg3PVYApL+stkIn5uH3Q/6DhQ8
IOCra5K1d8Y8XGvS+XY1kgD5yDWLV3OwWQtFh7D/ex4U654/DynnbDkksNXG
3RsvF81Dfk4Npe4+ASmXDqvY1c7DH5M8k83YThf+cp7om4d/P6ZvE/fw87rj
nmFEm4cgiI14hy2RTWgfGcb378DiS8P+2v/T7eDUPJzlCrhkhq1uU9ChQ2HC
c/66uM/hBLBZnHsuL8UESfuLzV9wXX/uxk+DrbJMuCPmLV2EXZ5kOCAjzwQf
xcWJGGyndrX1kruYoHi4dsgc+5sp/39r9Zigvf2LxUQonp/XHQmRA0zYJsNn
04IdGLtYLmjIBHl1r45KbI2fQ6OrTzJBXVF4dyh26olqUzZbJkScKL6iiM10
VZskX2DCy4+OcqLYJyOfhi07MiHXZMCEhM3+JaF6wY0JqlOX1raG4PftiJv8
5G0m7OdJVrqL/fHS0PvxO0yQ6TNMvYq9KczSajSECZf09t6xxf7eYBAzFMUE
uag9rwBb86DUv65HTMj+SKtYDiZAJbMxuC6bCX36pcqT2ErL7kKFj5kQdSt8
bT+2VPm7rYGFTJi1uYXqscWFnIsvlzLBubrwdiW26BVhXbNXTPhzVETtOfYq
OVxv1zCh814CMx6b47/Vf4Q+MKFOsZHjHjapu/TiUj0TvH+cCA7Anonj8P/6
lQlemv8NumCPTz3jqvjJBP4N2jX22ISR2YPMNiZs2O+4xhK7iyMvz6uHCUpD
WtxHsdtsj++2HmDCg9KRov3Y36uYbwwIJoj5bfuqi/1pw6NDu0eZkBTKstbA
/uhl8EOcwYSSb9b2u7Crv09acswwgXvsfJcidoVSEjExzwThjZwNctgloXoe
7YtMMD9qtHUL9nPa8FLtMhOMeHQWN2Ln6z0Ifkplwdmw1r1i2Fmpe4TiOFnA
KpD4uxY7daE/5eYqFqTMCcuLYCeYhm915GdBQ2RVkyB2dJFK8UkhFiwbifeu
wQ7n69LRXsuClnxlJ37sIKc79TJiLBh5z7rAh3374/ZT/JtYMGN349dqbF+p
1i6mFAtesEoqV+zl73+xT5YFEwk5Qiufd/0tO90kz4Ko5WPdK3ZS++JXqsSC
4KgXG1d+zy7amyttFwt+nqn7JoB9bnzTg2A1Fo5/D5hC2KcN6yXctVhQ+Vfg
gSj2qRzXPHNdFsTt0Hu0HtuIsn73fj0WHDwquUUC+9C5mjdKB1jA8+jpOkls
vQrHQ+sMWSAk2XtbBltbVPAH2YgFsY6V5+Sx1dwrLEdOsKDpjfpzZewdzbbE
TxMWtHOe9FDFlgkqXsq1ZEH3RSNTPezNfebBUTYs+BIn62mAvUGXTeiGPQtu
EsGcJ7D55oy3Gl1mQe7xn0E22Fwnl4rU3VgwVvLCwwmb8ixbR9KTBQFtSz88
sOft507O+OL72fJ5/C72VE1qV9ct/Hya4XE09qjEwYt1gSx4gth+pWD3tMT7
JYWz4EOeVXgpdsN+zTz0kAXWBmcsh7Gv1fkr3UxngZxI1xgLe6vB+5I3WSw4
7lDJzoPfv6Ajx2q0CvD6Jx9pUsDWP2X/W6WKBVaTXE89sWd+5lt71LLgKRUT
O9OUQSv8iD8/LvsxBZty9sa00hcW6BefWazDrraO4t3WwwLZM/dKpHC8cO1r
jXYYYMHrhU9FWtib7MTX5xAsMA3UUz+F7e+QK7NlkgX8bJ7f72Bru7zRlaAs
QD2v3bFJ7PIbdFcB6QV4Xr39aC+OdxeWlOaPbV2ASa2dmWQcP0VvXvWLUFyA
47z1flLYVwOWQ1apLoBltmq1PfauEJFM9gMLsE0p1WsK+1nc3haWwwLuXx3D
pSPw/lp311zDeQG0cw3Ej2KvTvrU6+W6APvTk5S8sJ1TzManry2ADzHd3oAt
n3WZczxkAV7Ubz/ojfNBdmGiZt+TBZASsjQbxvnDadFcvu35Avy5dqR8bRTe
P/s3ijUXL4CyS3DQfuzXbRl/X1UuwGLhUfcM7B/LT95GNS2AX+8nH5toAshG
Vfv3jixAg8wBxRmcvyyH+06kyy+CP21VrxPOh1Iq2XpxSovgs3lTezY24eew
O3zXIizWzWr1Yl8VGBW+prUIkc6b95xJICBMY/bXMcNFmIt9KWeE8+2rIM5z
y46LwOBgBRzG+Vlki6LTuceL4MsvUhyN831kdJjp44JFiCI/uNWDzUMZ0Zsp
XAR9wfoaJVw/kHofi4VWLMLOJzypn7BHU+U+lzYtgtzGkpLVGTgfbtiyY/X4
InTxxvBl4/rjquCGucpdf+H2K/spGVzffCdzBax//RfnlSbVs2U4vhYknjte
/RcWyvcKVmNzn1XYc/f9X/gvV3G/bDkBqMhoZubTX9g17/90GvuZbeyFr11/
4UJ4tUf0Kzy/d1KH7y7/hd06ld7dr/H+vaMjPKu3BN9NE+uK3xFQyuWR87Vh
Ccba6lJlvxOgKLLGyfbDPzgqb3hwZpyAiYg54d2ty5CkbWtjyUeHUcbG2u2/
l2Ep8qRaM/bwyYNXtv5ZBvEmkRZdfjoMiCY0SNCWIdBF2XnTGjr8TtX055pb
BrKlymCXAB1szaqmx3lI6ILzgy3HROhw1IFs+V6ehFaRFnMXxehwJCG2uEaR
hF76ba89j+tdw4ZtPG+VSOjgVtU7TdiHFE6Wv9pFQve2nCcnSdBBbyJD4LkW
NtO8eNcmOmh4639MNCQhjqP3qCdx/bzl7l3lK04kZLPawwjh+tu9VcXf1pmE
Xu2vu5uIXS3T98nEhYQkYjsMprDPvdd20nYnoUKz/PMZuJ5PIk9lcfvg67V7
fP4rTwdBX4sNWSEkVG4h75G4nQ42TdyO8WEkJPXb/ekw9osN5eWh90jo7cFM
8z24PzB6JWDiFkVCh3gGRDuwQ+c+3tdNJKForbo/QrifoLjtZG/PI6G8zok0
R9xvnKj+c+pTPgnpXrPLKsRO5w/PePuUhNDsBA8LW/cZDXJekFAaQ4V1B/cz
PiPJPh4vSejcjkdqCSp0mLLnYKyuJ6FGpohQCu6H9pYW65IbSagqfH/qb+xI
Npt7M00k1P2kymst7qeUMivlO76QULq3Os99bKceV/u8XyRUw3gR66lBh76z
Hb/1hkho8+ww3ybcv/HqmOVa00lo/NX0P2Ns1U0/PPxHSOgLs4YSih3c38hb
MUFCmZvCdCexlZ0rdHcy8fyZd41LcL942kht1bEFEpKW93/Rhx2wo+iX818S
wrtJYA3uN1tnHrvmkcjoUYFClwO2r19ixiZuMnrLYXl+Fe5fc6xEruisIiOn
oqdlO7G/7I3aY76ajA6/jSKZYUtxhPyMEyCjm9ZprqnYRwi2RyVCZFSvxPGg
Gtuz8dbl7yJkdOK7f1Yvdn3ENQ6+DWRU0iR4bzPur6dcZ74riJPR83021rrY
Yqdc0ww2kpFNi5yYObbL2osad6TIaOfRqxC1cv7D6mfLlCajeSSVnY9d22H1
rVqWjAScEoZrsUXSzZz+ypORNdq4moGtG/BDbcN2Mto3YkhjAzpctDtG1VAm
I5G66/HrsKMPNH0x2Ym/3126ceW86PXWgw89dpMRdHH5aGPTeN5djFIlo2ae
G7lHsPnHdFWfq5ORxnGhbHNsjS8V5M+aZBSg+svVEdu2UK15eA8ZufY1cnlh
hz8oSuLSJaOvGyedbmOXeio5yCIyKj55ODYM+49Z/m59PTz/oPY7K+dFXFqy
JFt9Mtpml6S1ch6zSzzj080DZJSsGla4cl5j/k8iMeUQGXXQcolc7MCeRPtK
QzK6xD7StXL+86xWZFf7ETL6VH30/jPstqyof3NGZPR5uG7hOTb57uom4RNk
9G3+2MYX2PKOIfG7TpHR3uXf8yufNz7MbnfchIx+VFrcWTlf8t9+e4eLGRn1
hdW9z8PO41/6G3aGjP648ZZkYn+fvNbw2JyMUoTFTqRgL/6Yia2zJKN3b3sT
V86PpMtcbQetyGi73dHwlfMxo4RRJaotGR1NMJBdOT+75nNxcbMdGeUkVNuv
rFeGxUCd7gUyUjyUfGhlPT/pWsdYXMTrtaPm01ns2c2d1j5OZHT1v3UMQ+xD
gz9YpS74fjzGVslh+ylE3HjuSkapqbvPC2MXuR1aynMno2o5iVuklfO6f69J
D73ISL+SQW3B++O4vndA7DUyCnQ77/AGOzB0J9t9HzJK+hMakoU9LprDGeBP
Rmck/lGuYG+xtA65cYuMcsMaTU9in87csMozgIzah4/YrpwX1Sjf57sYREYz
zxwTZ/B+jzl0TcQogoxufA0ytcduiNgVfzAS79+j99R0sf/9HF23N5qMNHXE
q0WwHWxsxFXi8PPteFxfjd9HLR/DLRtS8fwntvlxYF+pZssWSicjk6rN3j/x
+5zF8VZ2dQYZ0Y7t5n2EvfrBbnlSDhldbrMlqWH3PBHfSSsgo4Nry7uMcHwQ
mWot6n5ORjoO5/wEsA01olTaC8noerLX4++adCh+z67xqZSMqFzRacexg7rG
dYve4PnLOH3RwvGpcsvj6idvycjQPyZ1EscvhuN5vewavN+bDo7kYJ+Z+7U/
4QNeH+d3s7zYivw1R/w/49/v3Zn0URXHb5Mbzd5fcHwI+LzZDTsuWfW42zcy
qjJuFtmAvSyXf8quhYzylC32OeD4+h09OGvYhfev6z+vcRyPr7nbXxQdI6Oy
j2sjnynj+Hd43EFrgoyW5AIyVbHjpb0dzk2S0RRxvqICx/+y1uALObNkdOd6
CFGF88W01lM7tX9kxBD8t/xMAccX6rS1KT8FhR2rHVCQw/un84a1jwAFFXVV
kqJl8ftbymadKkRBBrdj52dl6PDEQdSKtpaCSnySL5VL04Fo0rT02kxB3qOx
0ptx/jsfc+tM3E4Kmg5pfxCE86f7Ze4zFbspaJXTLdkGnG8DDkSf/qNKQWvy
jJ24sdOZmWayWhR0X2FmIWA9jgcWdSZlehQkJ9Ize0YU7y8ZvpOtpyjIV6Z6
KQbne6OyZENRLwoqiAy6qUjC8WzadlnkGgV99906sHOZgP92yJeI+FBQ1YbQ
BZV/BLzMfykh4k9BIa2xu1X+4notrYUhFERBheqT8aJMAubu8scLxFHQtzPz
OxwnCFjzofWwQAIFeY7dzTyE6xEFSipJIImCzE5UZcqMEWDtq+i0JhVbiE2/
bZiARlcDHf4cfH/T299vouF+7sx//bxlFBQDpu9UO/Hvxxkm8L6koOfPPP+N
/sb15Q+Bo7wVFJSYkJ3xqB33H0bpZauqKCjLgCpB/UWAu96bEJ6PFHSBXTMx
5xsBBxTmlblaKcghMCz/8kdcn/118qXOUdCTvQ9YIwUEnDl9eBtrnoI4ZZRX
GT/F9V6xQus4i4Kqdc+efoXru0SnUeXfSxQ0kxnz8EYursfaLve/YKciVW/B
+39wvZhc7Gp4ToSK7PaWKIvj+vaQk9e6VypU1Mwhv3DBk4DiD6YfnqlRUfpG
6T3uHgRslFR3z9KgotFHp9x83AiY/jXfdF+bij5fCyu5fRnPf//1mxf0qShW
aPr0JXvcr2z2pQkZU5GBQZ/SY2MCHv26XeLiQUUF7XUf3u4ggPZhR3eEJxUt
xd7fv0sJ14Ml3dzPvanIT/Tln3QFAsoidawmblCR5kHZk+6yuF83YHG7BlLR
uo1ejEExApiVrlZusVR0/T1b9moO3G+mW/FcLaei3pl9tMO/hiAmgk815hUV
HQrhMtD+OQTtvm+sSiqpiDPAzWXrtyGwOyNWOvOWiib+i52bbhyC64K/rDzr
qagoSbrIrGoIsgKNSr3aqUjt8KrQY1lDsHBRx/r6IhX5azxPGnceAsNKeeS5
REWWCiy+SMchSF69brPbMhWlnZAI3X5hCLSLprovUtnQfq/OcAurIfBfzLU6
vYoNZRR8Dws9MQTUCEErdTE2JGkY/kJadQh4i4csZ7XYEE9Ce88+Fg0s2Ft0
JrXZ0N2gHxa2szQoMKuVGNNlQ8XBto98J2lg9Pdh14AeG9LZ1OqbRadB5P6T
lj8N2RCf6F2DmnYaCLe9tig+y4aqHg9mbH9FA4mlKHM3HzZkPRcx/f4qDQ71
HX0V78uGzubkSy1cocHVOu61Vf5s6FPPOnH5SzRojLr9nec/NvRwb4K9jw0N
vGTdDLLC2FCC4YX1nUdp8PXYcfVfD9lQ+B4dyJChQUAGn5DOWzwfz2MTCt8G
gXYwrJGLjR1xBLyT+r52EGwPW2+W4WBH1uUFAvUCg9BlpOq1l4sddbSIRr1c
NQg/TbolfXjZ0eZ3t7RDlgeg9vzu6yPC7MiYc4c0nTYAKTc75Jpl2JHOh/1q
GSUDYFyucOfBQXbk4KG/YerwALyT/QQbw9gRe+7hyt+O/WAY0W0oeo8dad6Y
PDpm2w9fZ6dM+O6zo+DkJwsL5v3w5/1653/R7MgH+T7iNOoHpq1Dwp8kdpS1
LLGJtrMfFNMok6n57Kj1ms2rcmYfxK3VzNjUyI7U00J4CwL6wIkrh02SmwNl
Kg0oE3d7oTxdWuddFAfacfjcAeqRP9C8R/vDSQFOxN+2ZFKv2w5Mp+RT1hGc
SHnjt6DKxh9QfzzNZLUoF9rfxdKRaW0EW03t3NwYLiR8O9WXlvsaHMc+z3bG
cSGdYHeNU2qvwfWRlb5gIheC349Mi99Xwk3u/3p9U7jQgszxAKPeCnjY3iB2
MocL2az9IjS3/hW0XjeL/FvOhXTL2FXUQkrBsML9+okOLjTe5KFeWfMUTriw
1Qd1cSGhx7U7d3Y+gdNScaKvu7nQ5STdrKS5fHAIfVUsO8CFbl49f89A4TEE
niWNL45yIe3tyyVSMdlQtXDPNucfFzKXMTqmWf8QPjzbVNhB4kYaQwzWzGIS
fLItXF5D5UadPOp+WcqJ0NH48+ENTm7Ue9zOsC8uFphJYr+Or+FGnwhB0+6G
cFg2KpAJEuRGEZv2htfsCAEOKlytFOZGq3uHLybE3wHhS7YCsuu50XUP3S0m
jb4gtmnGylyMG/WEXlP/Hu8JUj/uPIuU4EZOHr8kwxqdQf7u2qUPm7hR9F7d
8oZGC9i55/HhRUlu9EaWcf08r6/u/0GIvL8=
"]]},
"Charting`Private`Tag$6583489#3"]}}, {}}, {
DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
AxesOrigin -> {0, 0},
FrameTicks -> {{Automatic, {}}, {{0, Rational[1, 2] Pi, Pi}, {}}},
GridLines -> {Automatic, Automatic}, DisplayFunction -> Identity,
PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All,
DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1),
Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
AxesStyle -> Thickness[Large], BaseStyle -> 16, DisplayFunction :>
Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
Graphics[{
Thickness[0.020279862096937742`],
Style[{
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}, {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}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGBQB2IQ/bL2cfb5NawOM2YCwU5ZBxA1M5LDQX7Xgn2pftIO
L0Dyb3gg8pJSDsKVk0rOLhGE8w9272syYRZF5R+WcOiP6PZn3CANoSdIO9Tc
/3HL2FvOIeDt5Y8zFso7pKYBAZuiw1ohHb50O0WHFl7/9VOWqsD5r4q3iv5+
rQ7n1/+2Kjj3QsuhF2RegLzDVoemR8d36MDthfFjVCNkzsWIw/khYPtEHI4f
dlqbaafj0K7ArnrmiqDDFvMfh1K8tB2+7Pu4NT2M3+FJ4sJrJv1aDuqfVF7O
OsntcP5q2Bv92ZoOdiWOtadlOB10FeW/5JRpOJgYgwC7w6+3rw9YHlZ3gIVf
SuwdN+Yfag48jnxeMzJZHDLzP7SeNFFz2O61wWKOJaNDBogfogLx97N/9nc0
Zdf8T1ZymA52/x8Iv1jBwXOr//Hktu/2YH9ZAv0F0l/5xf4/CMQLOGyQ3qZ7
KuejfbN4LWtmG7ND7YumX9Msv0Lk65kg4THzN1z+Ou9tsVQzBoi7NFkcWkDi
x5gh/JUsDktuLX9s2MwMj3dw/CUzO/SAwtmAF84/AKKVBeF8cLhNE4WbB47f
bCm4uaqgcFwp64CevgDtShRM
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQvVZIhy99nrjDj7evD1g2azv8B4H50nD+jmCriP/L
ZR2eZ2l/my6rBef//Vb6YE6hOpw/pb016nKMikN/RLc/4wZph/LD21xn/lVw
ONi9r8nksYRDjGqEzLk5cg5rQPbtE4foc5d18FhzdDmDhJiDSOWkkrMtMg59
IP0GInA+2H1xAnD+GRDo4XFgAIEEeTjfGAyU4Pwt5j8OpZxShfhnP1B/j9cr
li2aEPPuCTtsd2h6dPyHlsMD13jHWRtFHPxvSdckBmnD3QPzP3r4AAA4W4hl
"]}],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIdIIaxWaBsBiifAY3NCJVnRmMTo54YcXraNZjdRk+7
cIkDALmJAos=
"], CompressedData["
1:eJxdlFtIFHEUxnfTMCiRLtCD2YXdkdkZ2p0Zd2SLpLO9JF2o1EosAgtdKigf
DDFatuziWzez1ZQFK9pCwnrKHqIkumBsKpERvUj4IFQPGQjh1jbH7TtL/eH/
8GNmzne+c5k1B49XNeS5XC63c3c7d55zI43OGTeoJDlV6Y+tJfDp/BeXzLhO
H5ZMh0deGnSucMfAtQadorPrm96GDAqWOadapxhzZYAmapc/GqMcb34aLQm1
a6RMnk2k6v6+36FJvK5uPhr9eLDz6I2IKVzEMgusf5+3WPI9y7j8ZRIfDP25
z7otyS9+uehk+UJL8n/oP3bLnTbFHxj+wdT2+VWXHhS+WN3sja+yJd4iDhey
RS89c2KiN2xLPqXse0uOp9lH0qZ9q8PfD22zaPj5pvuHE7b4BaMe4IrW2rt2
yhAeupDcO9xmZPX6bKk34oOhj34hP9Qf+aPf8AeGf/DH4lP11nyLtr4uqOjp
NIjLlXFbxG2I1Bg0Wd83HsyY1Mn16Q8IB7R7S0fzNeGem57H6QKfcIZPTJV4
28eu7P+dp4oeGPmAke/Pb1+erfOo4mclB9roE7+9rBfRpB5g1Mvg/G6rUt+O
9vN171bkePT9nq+BT6XCXI7GO4rwL9ZZrEg/lrVebU7VeCQ+GPpTR/SZeNQr
+WXnR5H8B9nooCL+wPAPxryCMc+Ih3mHHvYB+WBfwNin8g1Pqq4PeWXfEA/7
iHqAUS/wCD+fVeV71BvxwdBHv5Af+on80W/4A8M/uDhxwPemyczuZ79KZ/j9
FpMG+AdU6BPGPIIxr+C5fu4yhLFvYOwD9P7/f/4Bv/1HKA==
"]],
FilledCurve[CompressedData["
1:eJxTTMoPymNmYGBgBGIVIIaxWZDYzFDMAOUz4GEjqydGLy71uPSSqp5Ut1Fi
JjHitLALAM7SAnU=
"], CompressedData["
1:eJxTTMoPSmVmYGBgBGJvIGYC4hUvPPT+M5o59AeXqEy3N3Tg9V8/JTXCzMH7
BLvtbFdDh1vSNYlGW80c6n9bFZzzMHQoWNN9O8PBHM4Hy6tawPk8IP0VFnDz
/oPAeguHJff38c1RNnSoA6k7YeGQngYE1wwg9t2wgKiTN4CYZ2oJ59s3PTo+
Q9sSbh4ufiPL0X7DcgQfbO4KTD7M/OdZ2t+m3zWC2w/jw9x3BgRsjBy8QOFw
1MKh2+sVi4mikUO0guPH5D0WDjdB5rAawf0HFn+D8L//xYkx/y4bOiwHha+i
hcMW8x+HUk4ZOnzdeavrb6g5nO8HVmcG58+YwF9llm0Gcc9ZQwdY/MDMg/Ft
KyNWmPKaOpRsFf19Os7M4VDb8vBTSqYOoGBNm2bm4ANyt6opxB8+5nB+D8gf
DxH8CPHtFxn6LBxMjIFAGMp/B3XvLxOH5Ng7bswWlg4pIPqFicOfb6UP5jhC
w/MGgv8XRE9E8PlB8ieMIf5Yi8kH+6PRxMEG5I+9lhB3i5k6PElceM3kvqXD
qcNOazPnmTp82hCQPcvd0uFAraxF+hJTB9UnzfPOvrKAiC83hYRnKoI/DRR+
0uZw9eDwbTaDm/cFpE4cwYeEuymcLzMvTvN0AW4+WP0qY7h9ML4ayF1e0Piw
g4UDNPzPmEDShYWpQwwondwxcegDpV95BN8BnE5N4HxZUMKp14XzG0Dpe7o2
3LwWcARow+0Dx1+wNtw9D0AR6YDgu+8HBki7FsQ/CVD1k7Xg5s2YCQJaDi9A
8ZNrCuefBPmbzwxVvtYMrh8cvsbmcPNhfJj9YH/ON4O7D5xOBM3g7oelZ5j/
YHyY/9HLJwCHCBrk
"]],
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}, {1, 3, 3}, {1, 3,
3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGYCYtbFk6wYTR0c7Eoca0/PYXWA8ZfcWv7YkJkN
ztf4pPJyliebQ/1vq4JzAg4OZ0Cgh8MhRsHxYzKPnUPV/R+3jFeLOPhenBjz
r9nW4b5rvOOshQpwfs2nDQHZu1Th/PQ0IGjTdviy81bXX1U7B/W3vPsMVho4
dHu9YjGRdHA4fdhpbeY+I7j9f7+VPpjzEcHndlMtZfqF4F8X+uR4ns0YzjfQ
Wil8QcXYYX+trEW6DlS/obHDZ6AzZskj+OJTr3BmcCH4+iB9U+wc+oNLVKbz
G0HcNdMW4u7H+g69IPH9Ng4zZgKBpQ7E/z02Dh4gi9o14HyYf2F8cHgoKjvY
Nz06PmO3jYOJMQjIQfy/1BYafmJQvh1E/jMP3H2Q8GeBux/Gh/kPxof5vy+i
259xA4IPi18Ab5zNTA==
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 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}, {1,
3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGAAYWEgZgLi+TY6V2bFOTv8BwNDhzXdtzMY2BF87xPstrPX
OjmoPmmed3aVIUTc38lh8f19fHM+G0DEZzk6mBiDgL7DlG9s8TNEHB3S00BA
C87fAFLYqwLnrxXS4Uv/JwcxP9TRYcZMIJCUcnBXLWWaxeAE5++vlbVIz0Hw
3/DuM5j5ysnBAGRdsYzDA6AzjL2cHTptPHelKSlAzL/iDLH/mRJEfZCLg4HW
SuELKhpw/p9vpQ/mfNSB808edlqbuc7AQeiT4/k0Vhe4/9HD5/OGgOxZ650c
/C5OjPn3WN3hYn48+zlLZzgfHB5Fzg4zJvBXmZ1WdxABmTfV2WGL+Y9DKV3q
EP9lODtk5H9oPRmi4iAMkpd1dnBfc3Q5Q4UixL93nBwC3l7+OGOhvIN906Pj
MzYDw/+TystZK2UdJoP8V+PkIFI5qeRsiwzEPfYIPjg8jzrC+U8SF14zWe/o
IAzib1GA86e0t0ZdrlGB88HhW6nqAI7GzY4OL7K0v02vVYO4b6+jg8TUK5wZ
TeoOFteO5pq8cIT77zFIvzwiPNDDB+x+bWeIu1INHSoiVpieXY3gM4DADmeH
5Ng7bswSBnD+cVB82OnA+eevhr3Rj9Z22KiXt5hxizPE3flacPOmg9zTrQlJ
h83ODgG3pGsSgzQh6l2cIf6z1HSQd/yYfGavE5yfzflzQboxgs/jv35K6g9H
uP5KkPmXHeHm1/+2KjjH4eQwFcT31oWmcycHW5DCWAO4/8H+4TB02ACy/4wT
JP25GELSxy8nuP/RwwcAG2iLCg==
"]],
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}, {1, 3, 3}, {1, 3,
3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJ5IGYC4kv58eznHN0daj5tCMjepeoA44v2eL1iCdFw
kJh6hTNDy91hg17eYsYYHQfWxZOsGLe6OfwHAX4Dh1vSNYlGpm4O0QqOH5Nl
jBxA1JlaV4e/30ofzDE0duD1Xz8lNQPBd2h6dHxGNIJvYgwEwa4OBWu6b2co
IPjXhT45nmdD8LndVEuZfhnB+WD9H40g5lW7OhhorRS+sMTIYco3tvgZPm4O
xVtFf5/+Z+CgO2HBD8Njbg4y8+I0T2/QgfNh/oXx3dccXc7AoeDwJHHhNZNy
N4cv+z5uTQ8TcSgBmZPn6nCwe1+TyWN2uP0an1RezvJkg/OX3Fr+2JAZwbcr
caw9PYcVzi9cXrLh33kWuP8h+lng4QPjw8IPxvc5wW4729bNYcZMIIjkdcjh
/LkgfbebwwGQe5TFHSyuHc010XCHuLdMDh5/a4R0+NLfKTmgxy8Aw1PP3w==
"]]},
Thickness[0.020279862096937742`]]}, {
ImageSize -> {49.30489663760896, 22.770191780821918`},
BaselinePosition -> Scaled[0.29577284846851404`],
ImageSize -> {50., 23.},
PlotRange -> {{0., 49.309999999999995`}, {0., 22.77}}, AspectRatio ->
Automatic}], None}, {
Graphics[{
Thickness[0.10050251256281406`],
Style[{
FilledCurve[{{{1, 4, 3}, {1, 3, 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}, {1,
3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGAAYWEgZgLiVgV21TNfJBz+g4Ghg8eao8sZLMTg/LNngCBH
2EH1SfO8s6sMIeL1Ag6L7+/jm/PZwOFl7ePs82tYHUyMQUDfwf+J5yXTyb/s
09NAQAvO3wAyoFcFzl8rpMOX/k/OYSYIRDI6zADRklIO6p9UXs7i5IHzD3bv
azJJFoTz20DuDRF1MABZVyzj8NA13nFWoIRDp43nrjQlBQeRykklZ5fIOIDt
f6bk4DyhWSjNS8HBQGul8AUVDTj/z7fSB3M+6sD5Jw87rc1cZ+BQc//HLWNt
Obj/0cMnRjVC5lyNsIPfxYkx/x6rOyjsWrAv9Zw4nP9l38et6dMkHWZM4K8y
O63uUAEyb7WUwxbzH4dSutQdhEHuc5F0yMj/0HoyRAVi32sxB3dQuFcoQvz7
WMQh4O3ljzMWykPsmwMMf1C4rJSF6H8iCPFni4zDVq8NFnN+8sP5kPDkgPPB
8fKZDaJviwKcP6W9NepyjQqcDw7fSlVoPLI7vMjS/ja9Vg3in2vsDhJTr3Bm
NKk7LLm1/LFhMxfcfxD9vHD/o4cPmB8j7uB9gt12dqqhw3pQvMdJw/ngYN0v
7ZAce8eNWcIAzj8Oig87HTj//NWwN/rR2hD+fGmHJ4kLr5nka8HNmw5yT7cm
PJ0E3JKuSQzShKiXl4CIW2pC4uudMJx/nfe2WKoZP5zfIl7LmtnGDdcfDXK/
DSfcfFB2ONPD4zAVxPfWdQAHl7Ggg21lxArTWAO4/8H+4TB0YACBBBFI+nMx
hIanKNz/6OEDACxYkYw=
"]]},
Thickness[0.10050251256281406`]]}, {
ImageSize -> {9.946699875466999, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {10., 22.},
PlotRange -> {{0., 9.950000000000001}, {0., 21.12}}, AspectRatio ->
Automatic}], None}}, FrameStyle -> Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks -> {{Automatic, None}, {{0, Rational[1, 2] Pi, Pi}, None}},
GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], ImageSize -> 400,
LabelStyle -> {FontFamily -> "Times"},
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 -> {All, All}, PlotRangeClipping ->
True, PlotRangePadding -> {{Automatic, Automatic}, {
Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],
Placed[
Unevaluated[
LineLegend[{
Directive[
Opacity[1.],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
Directive[
Opacity[1.],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
Directive[
Opacity[1.],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}, {
Graphics[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
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}, {1, 3, 3}}, {{1, 4, 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}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQAWIQ3bY8/JSRjafD8yztb9NjNRzqflsVnHvh4fDr7esD
lofVHXQnLPhheMzDISEkSH1BprpDwuHL2qkzPRzklr/w0Nuv5gDW7wOV71R1
yOb8uSBd2cPhwtWwN/rSKnD+HU3ZNf+LleD8GNUImXMxchD9ZzwcdgZbRfxv
l3S4v49vjvEmTzj/Pe8+g5m7vOD89DQgmObt8MA13nEWowKc323juSvtkzKc
/wLkn1o1hx8xuUf/eXk7bNLLW8x4R93BxBgIkr0g/mvWdNhfK2uRLuPtcB7k
3mptB5FPjufTYr0dZObFaZ6+oAPnz5gJBDv14HzVJ83zzu4ycGBZPMmK8ayX
w3UhoMQyQ4j8V084H2SdMTOCD/ZfkIfD32+lD+YUGsD5L4q3iv7u1oXz/4Dc
l6zt0O31isWk08NhPchCXS0H9PgCAH3mxeU=
"], {{52.31409999999999,
11.3891}, {53.31559999999999, 10.9438}, {53.918800000000005`,
10.165599999999998`}, {53.918800000000005`,
9.306249999999999}, {53.918800000000005`, 7.971879999999999}, {
52.91720000000001, 6.921880000000001}, {51.62970000000001,
6.921880000000001}, {50.27969999999999, 6.921880000000001}, {
49.4047, 7.876560000000001}, {49.4047, 9.35469}, {49.4047,
10.5141}, {49.86559999999999, 11.2453}, {51.042199999999994`,
11.960899999999999`}, {52.31409999999999, 11.3891}}, {{
51.34379999999999, 13.423399999999999`}, {50.34379999999999,
13.915599999999998`}, {49.8344, 14.5516}, {49.8344,
15.346899999999998`}, {49.8344, 16.395300000000002`}, {50.5969,
17.110899999999997`}, {51.72659999999999,
17.110899999999997`}, {52.885899999999985`,
17.110899999999997`}, {53.64840000000001, 16.3469}, {
53.64840000000001, 15.187499999999998`}, {53.64840000000001,
14.281299999999996`}, {53.25159999999999,
13.660899999999996`}, {52.218800000000016`, 12.9938}, {
51.34379999999999, 13.423399999999999`}}}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999,
15.774999999999999`}, {62.18439999999998,
17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurve[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999,
10.732799999999997`}, {78.44999999999999, 7.812499999999997}, {
78.44999999999999, 6.398439999999999}, {78.7031,
5.179690000000001}, {79.1266, 4.5874999999999995`}, {
79.54840000000002, 3.9968799999999995`}, {80.225, 3.65781}, {
80.9734, 3.65781}, {82.7969, 3.65781}, {83.71409999999999,
5.22813}, {83.71409999999999, 8.31875}, {83.71409999999999,
10.962499999999999`}, {82.9297, 12.218799999999998`}, {
81.27499999999999, 12.218799999999998`}}, {{81.0578, 11.7953}, {
82.2297, 11.7953}, {82.69999999999999, 10.612499999999997`}, {
82.69999999999999, 7.715629999999997}, {82.69999999999999,
5.143750000000001}, {82.24059999999999, 4.08125}, {
81.12970000000001, 4.08125}, {79.95940000000002, 4.08125}, {
79.46409999999999, 5.300000000000001}, {79.46409999999999,
8.246879999999999}, {79.46409999999999, 10.7938}, {
79.91090000000001, 11.7953}, {81.0578, 11.7953}}}]},
Thickness[0.011672697560406212`]]}, {
ImageSize -> {85.66971855541718, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}],
Graphics[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
FilledCurve[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0,
1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIVIGYCYh7/9VNSIzwc+iO6/RkLpB3e8O4zmJnl4fCm
LbfbaLaUw7IXHnr/d3o4nAEDTL7FtaO5JicQ/DQQuIabL+/4MfmMqifcfGMQ
qPZ0EK6cVHL2iILDmu7bGQz3PR2MQOLCKg43pGsSjVK9HPwuToz591jdYcZM
ILjp7RCtADRIxxDOvy70yfH8MkOI+X+9HNJB9k4zdJhvo3Nl1jYvB/GpVzgz
Jhk6XMiPZz8niODfBJlf6wnng4ybKekJ19+2PPyUUYgH3Pz/IGDvAVcfIb79
IoMbMPyCS1Sm8xvg5LNwdsknn9OH8zPyP7SeLMHkw8w/umtHL9sEHQeWxZOs
GGsRfHB4dXs4JMTecWOO0HPI5vy5IH22h0MyiK9h4HAR5L+VHg71v60KznkY
ODxJXHjNhN0Tzgf7S80bzgeH71UvBx1F+S8533Qh7pnm5XDisNPaTDkdqDov
h/WqT5rn6Wo5oKcXAG1w+hI=
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999,
15.774999999999999`}, {62.18439999999998,
17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurve[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999,
10.732799999999997`}, {78.44999999999999, 7.812499999999997}, {
78.44999999999999, 6.398439999999999}, {78.7031,
5.179690000000001}, {79.1266, 4.5874999999999995`}, {
79.54840000000002, 3.9968799999999995`}, {80.225, 3.65781}, {
80.9734, 3.65781}, {82.7969, 3.65781}, {83.71409999999999,
5.22813}, {83.71409999999999, 8.31875}, {83.71409999999999,
10.962499999999999`}, {82.9297, 12.218799999999998`}, {
81.27499999999999, 12.218799999999998`}}, {{81.0578, 11.7953}, {
82.2297, 11.7953}, {82.69999999999999, 10.612499999999997`}, {
82.69999999999999, 7.715629999999997}, {82.69999999999999,
5.143750000000001}, {82.24059999999999, 4.08125}, {
81.12970000000001, 4.08125}, {79.95940000000002, 4.08125}, {
79.46409999999999, 5.300000000000001}, {79.46409999999999,
8.246879999999999}, {79.46409999999999, 10.7938}, {
79.91090000000001, 11.7953}, {81.0578, 11.7953}}}]},
Thickness[0.011672697560406212`]]}, {
ImageSize -> {85.66971855541718, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}],
Graphics[{
Thickness[0.011672697560406212`],
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}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1,
3, 3}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgAmJ+KP3nW+mDOYU2DtMn8FeZeWs4gPkbEfwjbcvDTzHZ
YvC9T7Dbzv6K4D+IEN9+cYEmXD+M/3Xnra6/pQi+Y9Oj4zOqjeD8/yBgj+CX
bBX9ffqdIQYfZh+MD3MPTD8Kv94I1T9I/oO5R7hyUsnZK4pw98L4MP+g88M5
xdqN65Xg/JkgoKkM14/CL0TwYe5B4dsj+DD/oPNh9sH4MPfA9MP4sPCE8dH9
BwCivPAD
"]],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3,
3}, {0, 1, 0}}}, {{{45.6781, 10.531300000000002`}, {
45.96090000000001, 10.531300000000002`}, {46.2609,
10.531300000000002`}, {46.2609, 10.8641}, {46.2609, 11.1984}, {
45.96090000000001, 11.1984}, {45.6781, 11.1984}, {
36.665600000000005`, 11.1984}, {36.382799999999996`, 11.1984}, {
36.08279999999999, 11.1984}, {36.08279999999999, 10.8641}, {
36.08279999999999, 10.531300000000002`}, {36.382799999999996`,
10.531300000000002`}, {36.665600000000005`,
10.531300000000002`}, {45.6781, 10.531300000000002`}}}],
FilledCurve[{{{0, 2, 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}}, {{1,
4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBmIQfQYETLwd/nwrfTAn0dAh4fBl7dSXXg7XhT45nl9m
6KA/YcEPQzUvh/21shbpKoYOKk+a55295OlgDAKXDRx+x+Qe/Zfl6fAfBOQN
IPpnejhs0ctbzFij6/BpQ0D2LHUPh/NXw97oz9aE8x9FiG+/6KAK5z9wjXec
xajgcH8f3xzjUx4OO4OtIv63Szq4q5YyzbrgCef3eL1iMbnpBefPt9G5Mmue
t8NMEOBUgPOntLdGXY5RgfN9L06M+cesATFfyNshPQ0EtBzEp17hzLDygvPB
4XHFE84/rmk16fR0T4h5fzQhfHlPh1OHndZm1mlA/Mvp6eB9gt12tqmGw5PE
hddM2D0dToPM0dFwCC5Rmf7/g4fDq+Ktor9fqzs4ND06PkPaE2LPGl2I+455
OtyWrkk0SjVwgMWH9Lw4zdMOhg7o8QMAV+zH2w==
"], {{
51.85309999999998, 12.2469}, {53.0609, 12.2469}, {
53.87190000000001, 11.1984}, {53.87190000000001, 9.625}, {
53.87190000000001, 7.971879999999999}, {53.0609,
6.906249999999999}, {51.837500000000006`, 6.906249999999999}, {
50.4859, 6.906249999999999}, {49.7547, 8.067189999999998}, {
49.7547, 10.1969}, {49.7547, 10.7531}, {49.818799999999996`,
11.0547}, {49.993799999999986`, 11.325}, {50.34379999999999,
11.8656}, {51.09059999999999, 12.2469}, {51.85309999999998,
12.2469}}}],
FilledCurve[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
57.7703, 8.464060000000002}, {57.293800000000005`,
8.464060000000002}, {56.8656, 8.018749999999999}, {56.8656,
7.5421900000000015`}, {56.8656, 7.065629999999998}, {
57.293800000000005`, 6.62031}, {57.754699999999985`, 6.62031}, {
58.264099999999985`, 6.62031}, {58.7078, 7.050000000000001}, {
58.7078, 7.5421900000000015`}, {58.7078, 8.018749999999999}, {
58.264099999999985`, 8.464060000000002}, {57.7703,
8.464060000000002}}}],
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}}}, {{{
63.97970000000001, 17.6516}, {61.517199999999995`, 17.6516}, {
60.26089999999999, 15.695299999999998`}, {60.26089999999999,
11.850000000000001`}, {60.26089999999999, 9.990630000000001}, {
60.59529999999999, 8.384379999999998}, {61.1516,
7.606249999999999}, {61.7078, 6.82656}, {62.596899999999984`,
6.38281}, {63.58279999999999, 6.38281}, {65.98279999999998,
6.38281}, {67.1906, 8.44844}, {67.1906, 12.517199999999997`}, {
67.1906, 15.998399999999998`}, {66.1578, 17.6516}, {
63.97970000000001, 17.6516}}, {{63.69379999999999,
17.095299999999998`}, {65.2359, 17.095299999999998`}, {
65.85629999999999, 15.537500000000001`}, {65.85629999999999,
11.7219}, {65.85629999999999, 8.337499999999997}, {
65.25159999999998, 6.939060000000001}, {63.78909999999999,
6.939060000000001}, {62.2484, 6.939060000000001}, {
61.59529999999999, 8.543750000000001}, {61.59529999999999,
12.421899999999999`}, {61.59529999999999,
15.774999999999999`}, {62.18439999999998,
17.095299999999998`}, {63.69379999999999,
17.095299999999998`}}}],
FilledCurve[{{{0, 2, 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}, {0, 1, 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}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAGIQLfP6kZmUT7CD+/5aWYt0HQcbnSuznjkGO8jMi9M8
vUHHASysEOxw4rDT2kw5HQeOnwvSN38LckiJvePGPEPHQfiT4/m0p0EOWx2a
Hh3foeNgDdJ/EsEHy69F8PPj2c9JzgxyOLprRy/bBB2HmSBQG+SQmgYEajoO
b3n3Gcy0C3LYbv7jUIqWtkNwicr0/zJBDj4n2G1nm2o5fN4QkD2LOcjBA+Sw
5RoOqk+a5529FuhgZAwEl1Ud/OXEsny3Bzp023juSmNSgvN7Irr9GQXk4fz9
3fuaTJxlHJoDPec2HAt0mAFyh6QUxP03Efz25eGnjD4g+BMW/DB8Jhbk8B8E
6qUdatdtS6q3DXJQ/aTyctZKWYfFk6wYfTOCIP7iVHB4LCJ78ml/kIP7mqPL
GSoUIfqPBUHc90gZEj4rgxweuMY7ztoo7/CdLX6Gz9IghxjVCJlzc+Qg7l0c
5OAK1i8L5xuA/FssA+fL71qwL5VPGhJfa4Ig7rWUcojJPfpv024EX9wj4I/E
ZQT/DAj8CXIIeXv544yH0hD/BgQ7OE9oFkqTUnAoAMWXZ7CDcOWkkrNHFBzW
dN/OYHAOdlC+9iiYYY6CwxOQ/+yh/B4Fh4qIFaZnrYMdqu//uGWcrQBxn3Qw
JLzk5SE0dzDE3h45uP0wPjh+PyP44PB9GwTXD+ODw4tRAc4Hu1cLwQeHr5MC
JH7fBUHcE63ggJ7eAXc5VfM=
"], CompressedData["
1:eJxTTMoPSmViYGAQBmIQHZt79N+m70EOTxIXXjPp13L4zhY/w+dhkENK7B03
Zgl1h0jx7RcZzgU5/P1W+mBOoarD7ltdf1NXBzm4TGgWSjul7CD8yfF8WmGQ
w1ohHb50OUWHnSB54yCHMyDQI+eg+qR53lkhBP8N7z6DmWwIvrbVpNP1DEEO
DCCQIA/nK197FMzQowDnC1dOKjk7RckhuERl+n8ZqH4fNQd31VKmWQ5BDskg
997QgMhHBDk0sBztN5yu5bC/VtYivSDIYbv5j0MpWtoOPV6vWEwWIviuIP07
EPwJC34YPjsV5JAQEqS+gFPbAT18AL0WhiM=
"]}],
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}}}, {{{
81.27499999999999, 12.218799999999998`}, {79.40469999999999,
12.218799999999998`}, {78.44999999999999,
10.732799999999997`}, {78.44999999999999, 7.812499999999997}, {
78.44999999999999, 6.398439999999999}, {78.7031,
5.179690000000001}, {79.1266, 4.5874999999999995`}, {
79.54840000000002, 3.9968799999999995`}, {80.225, 3.65781}, {
80.9734, 3.65781}, {82.7969, 3.65781}, {83.71409999999999,
5.22813}, {83.71409999999999, 8.31875}, {83.71409999999999,
10.962499999999999`}, {82.9297, 12.218799999999998`}, {
81.27499999999999, 12.218799999999998`}}, {{81.0578, 11.7953}, {
82.2297, 11.7953}, {82.69999999999999, 10.612499999999997`}, {
82.69999999999999, 7.715629999999997}, {82.69999999999999,
5.143750000000001}, {82.24059999999999, 4.08125}, {
81.12970000000001, 4.08125}, {79.95940000000002, 4.08125}, {
79.46409999999999, 5.300000000000001}, {79.46409999999999,
8.246879999999999}, {79.46409999999999, 10.7938}, {
79.91090000000001, 11.7953}, {81.0578, 11.7953}}}]},
Thickness[0.011672697560406212`]]}, {
ImageSize -> {85.66971855541718, 21.12078704856787},
BaselinePosition -> Scaled[0.31887090512778543`],
ImageSize -> {86., 22.},
PlotRange -> {{0., 85.66999999999999}, {0., 21.12}}, AspectRatio ->
Automatic}]}, LegendMarkers -> None,
LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], {
Center, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{{3.830741181448613*^9, 3.830741206945387*^9},
3.8307419038028193`*^9, {3.830742026981884*^9, 3.830742065379548*^9}, {
3.830742110095232*^9, 3.830742119211772*^9}, {3.830742208915197*^9,
3.830742259424131*^9}, {3.830742295643413*^9, 3.830742305084087*^9}, {
3.830742344511018*^9, 3.830742359786695*^9}, {3.830742410825529*^9,
3.830742468137369*^9},
3.830742591677536*^9},ExpressionUUID->"c0746594-48e5-4310-b7c3-\
59e7ccc0000f"]
}, Open ]],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{
3.8307422330267467`*^9},ExpressionUUID->"d453d858-8a7b-4124-abfb-\
9e6f74a501dc"],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{
3.830741197492989*^9},ExpressionUUID->"eead3199-3345-46f2-a4c0-\
2fec2d348b90"]
}, Open ]],
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, 3.819523154980489*^9},
EmphasizeSyntaxErrors->
True,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}, {3.8195280712399893`*^9, 3.819528073279229*^9}},
CellLabel->
"In[108]:=",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, 3.819522892066416*^9,
3.819523152348187*^9, 3.819528073972172*^9, 3.819529116161902*^9},
CellLabel->
"Out[108]=",ExpressionUUID->"f95cdf80-034d-490c-9052-1ab0cd6440d3"],
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, 3.819522892066416*^9,
3.819523152348187*^9, 3.819528073972172*^9, 3.819529116234906*^9},
CellLabel->
"Out[109]=",ExpressionUUID->"1b714e96-da79-4d94-a1ba-aad82b46c1b7"]
}, Open ]],
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"]}]}], ")"}]}]}], "//",
"Simplify"}]], "Input",ExpressionUUID->"47e6ea8d-fe96-432b-bc8f-\
37af178f58c4"],
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"]}]}], ")"}]}]}], "//",
"Simplify"}]], "Input",
CellChangeTimes->{{3.819529156879609*^9, 3.819529202570097*^9}},
CellLabel->
"In[116]:=",ExpressionUUID->"41ad596d-10ce-4e99-baba-2ce47459342c"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.81952919827662*^9, 3.819529203008608*^9}},
CellLabel->
"Out[116]=",ExpressionUUID->"564d55f1-fbb5-4701-bf39-19b29e089fa9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
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[{
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"]}]}]}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.81952842298248*^9, 3.819528452134273*^9}},
CellLabel->"In[62]:=",ExpressionUUID->"0539ebc8-55d1-4e61-8059-2b873a109fd0"],
Cell[BoxData[
RowBox[{
RowBox[{"15", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "+",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"]}], "\[Equal]",
RowBox[{"4", " ", "\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"25", " ",
SubscriptBox["c", "0"]}], "+",
RowBox[{"10", " ",
SubscriptBox["c", "1"]}], "+",
SubscriptBox["c", "2"], "+",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"2", " ",
SubscriptBox["\[Theta]", "1"]}], "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"15", " ",
SubscriptBox["c", "0"]}], "+",
RowBox[{"10", " ",
SubscriptBox["c", "1"]}], "+",
RowBox[{"3", " ",
SubscriptBox["c", "2"]}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{{3.819528427637335*^9, 3.819528452956792*^9}},
CellLabel->"Out[62]=",ExpressionUUID->"eb2da5a6-57c0-4846-bf3e-a339f3051de0"]
}, 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[{"(",
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"]}]}]}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.819523269050538*^9, 3.819523327877223*^9}, {
3.819523473638289*^9, 3.819523504696064*^9}, {3.819523550056871*^9,
3.819523649461877*^9}, {3.819523699741858*^9, 3.819523740945754*^9}, {
3.819523847347278*^9, 3.819523884985684*^9}, {3.819523947770347*^9,
3.819523980605163*^9}, {3.8195280859844933`*^9, 3.819528126180491*^9},
3.819528247868373*^9},
CellLabel->"In[60]:=",ExpressionUUID->"ba29c20b-dea9-41b8-b3d4-fc57943bb3a3"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{
3.819523329494213*^9, 3.819523506333411*^9, 3.819523552413641*^9, {
3.819523599257063*^9, 3.819523649903213*^9}, 3.819523701307633*^9,
3.819523745307156*^9, {3.8195238636967583`*^9, 3.819523885690692*^9}, {
3.819523974036787*^9, 3.819523981326833*^9}, {3.8195280894877987`*^9,
3.819528127532626*^9}, 3.819528248659236*^9},
CellLabel->"Out[60]=",ExpressionUUID->"a45ecd9f-4177-4783-8c1c-5a81ef2ad1df"]
}, 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[16]:=",ExpressionUUID->"5f1d575c-4c3c-4bde-8f8f-240d45244a88"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.819446240084282*^9, 3.8194462809734297`*^9},
3.8195228922632103`*^9},
CellLabel->"Out[16]=",ExpressionUUID->"1f981ff0-2415-481e-9272-8f05a9125627"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"8", " ", "\[Pi]",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "+",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "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.8195229398158827`*^9, 3.81952300278867*^9},
CellLabel->"In[19]:=",ExpressionUUID->"d0f32758-1361-44ee-bb02-8950288c60b3"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"25", " ",
SubscriptBox["c", "0"]}], "+",
RowBox[{"20", " ",
SuperscriptBox[
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "2"], " ",
SubscriptBox["c", "1"]}], "+",
SubscriptBox["c", "2"], "+",
RowBox[{"3", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ",
SubscriptBox["\[Theta]", "1"]}], "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SubscriptBox["c", "0"]}], "+",
SubscriptBox["c", "2"]}], ")"}]}]}], "\[Equal]",
RowBox[{"30", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "1"], "]"}], "+",
RowBox[{"Cos", "[",
SubscriptBox["\[Theta]", "2"], "]"}]}], ")"}], "2"]}]}]], "Output",
CellChangeTimes->{3.819522942340241*^9, 3.81952300387868*^9},
CellLabel->"Out[19]=",ExpressionUUID->"55173617-34ac-4fdc-9406-99bf575c07a4"]
}, Open ]],
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.819524042605442*^9, 3.819524078491332*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"c1307343-2cfb-4e0b-83cc-02e91fb1c0ed"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.819524053790895*^9, 3.819524078957933*^9}},
CellLabel->"Out[53]=",ExpressionUUID->"3b48e172-c35e-4179-ad01-d64d2ba564df"]
}, Open ]],
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[{
RowBox[{"M", "=", "10"}], ",",
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, {
3.81952870547421*^9, 3.819528716305327*^9}},
CellLabel->"In[82]:=",ExpressionUUID->"47cbd7eb-4244-4a5a-b725-eb6c2ae63c11"],
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[{"-", "20"}], "+",
RowBox[{"1", "/", "10"}]}], ",",
RowBox[{
RowBox[{"-", "5"}], "+",
RowBox[{"10", "/", "10"}]}], ",", "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.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}, {3.8195288573268127`*^9, 3.819528972919237*^9}},
CellLabel->
"In[106]:=",ExpressionUUID->"54cba639-78de-41b7-b09f-3fb5cc912380"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "19.9`"}], ",",
"0.0193165223712549558801207961467713363061784278202738157030514070075899\
7056432`49.75270130032005"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "18.9`"}], ",",
"0.0213093039987504169089508190847709275084333078336448517542534567918590\
0867429`49.75826130792854"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "17.9`"}], ",",
"0.0237208069059177255259757424204885161533706351206221876899879470335901\
1626155`49.76471534090756"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "16.9`"}], ",",
"0.0266595597505443968925008327809039910269487898920431662242882150979899\
390815`49.772256425802446"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "15.9`"}], ",",
"0.0302724563442335630034576417891223014362763988117905567051279645054823\
5760075`49.78113230960456"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "14.9`"}], ",",
"0.0347621321515244352671696877908848895523571488612491064938951838285668\
2431894`49.791662490578894"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "13.9`"}], ",",
"0.0404135461833283730998441106714793740619741858633252928153070169741450\
8468716`49.80426010632854"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "12.9`"}], ",",
"0.0476349191520763600144971123716230901489678570754188268475542007203830\
0295209`49.81945796451975"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "11.9`"}], ",",
"0.0570201666204428000960724844971322870662825275592928477947138478030155\
7187635`49.83793299554744"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "10.9`"}], ",",
"0.0694393943366061446072338935462256580105606649763729234083155906214026\
1967124`49.86050966471025"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "9.9`"}], ",",
"0.0861497309645649111324270283719182404172138103305646308871134500224728\
5871357`49.88809192573045"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "8.9`"}], ",",
"0.1088549841304922757531415338524922819858863046235745101837957894411110\
0188416`49.921422854934626"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "7.9`"}], ",",
"0.1394437057767699930738633739938731955808149153069395056512717230882002\
623614`49.96054383509902"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "6.9`"}], ",",
"0.1787029747216908511253518000621616782231610702671098403202819988717117\
7935592`50."}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5.9`"}], ",",
"0.2228989928237469462516190730688585583195060448990782256843471047329576\
678213`50."}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "4.9`"}], ",",
"0.2581878699584209666485276561405826530410099655689331349408684956846323\
9843563`50."}], "}"}]}], "}"}]], "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}, 3.819528723378552*^9, {
3.819528860989966*^9, 3.819528976120275*^9}},
CellLabel->
"Out[106]=",ExpressionUUID->"278ca01a-9bd3-4962-aa4f-fe7918d70fe0"],
Cell[BoxData[
GraphicsBox[{{}, {{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
LineBox[{{-19.9, 0.019316522371254956`}, {-18.9,
0.021309303998750417`}, {-17.9, 0.023720806905917727`}, {-16.9,
0.026659559750544397`}, {-15.9, 0.03027245634423356}, {-14.9,
0.03476213215152443}, {-13.9, 0.040413546183328375`}, {-12.9,
0.04763491915207636}, {-11.9, 0.0570201666204428}, {-10.9,
0.06943939433660615}, {-9.9, 0.08614973096456491}, {-8.9,
0.10885498413049227`}, {-7.9, 0.13944370577676998`}, {-6.9,
0.17870297472169086`}, {-5.9, 0.22289899282374695`}, {-4.9,
0.25818786995842097`}}]}},
{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->{-4.587500000000001, 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->{{-19.9, -4.9}, {0, 0.25818786995842097`}},
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.819460928218804*^9}, 3.819528723378552*^9, {
3.819528860989966*^9, 3.819528976162653*^9}},
CellLabel->
"Out[107]=",ExpressionUUID->"44916109-9e4c-44de-8ffc-11faec7bc38d"]
}, Open ]]
}, Closed]],
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 ]]
}, Closed]]
}, 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, 640, 14, 68, "Input",ExpressionUUID->"f63df8ff-a805-43cf-b25e-970437446449",
InitializationCell->True],
Cell[1383, 43, 593, 16, 46, "Input",ExpressionUUID->"06b69520-f042-4fc6-9314-22d2e79542d6",
InitializationCell->True],
Cell[1979, 61, 549, 16, 46, "Input",ExpressionUUID->"a8c11cd4-a9a5-4079-8595-5294b1fb94c7",
InitializationCell->True],
Cell[2531, 79, 484, 12, 49, "Input",ExpressionUUID->"e29c6d12-164d-461c-b102-761d687a35f0",
InitializationCell->True],
Cell[3018, 93, 470, 11, 49, "Input",ExpressionUUID->"74769596-3e6e-4ca2-8edd-d3dad7f9f8d1",
InitializationCell->True],
Cell[3491, 106, 439, 10, 49, "Input",ExpressionUUID->"1fff622e-e162-45b8-93d8-03e2f95f6a4a",
InitializationCell->True],
Cell[3933, 118, 2202, 63, 99, "Input",ExpressionUUID->"7fc2e2a8-1267-4aa2-acf5-d2d12a58563c",
InitializationCell->True],
Cell[6138, 183, 296, 8, 49, "Input",ExpressionUUID->"76897437-158e-48b2-bca0-c92679d71862",
InitializationCell->True],
Cell[6437, 193, 246, 6, 49, "Input",ExpressionUUID->"751041e2-0753-48c1-aa6c-9f69333e4db7",
InitializationCell->True],
Cell[6686, 201, 879, 25, 49, "Input",ExpressionUUID->"f13406bf-d041-4fbb-823f-f514d04fe27c",
InitializationCell->True],
Cell[7568, 228, 315, 7, 46, "Input",ExpressionUUID->"183ae429-a997-4f0d-baef-2a20bbc5c8ff",
InitializationCell->True],
Cell[7886, 237, 1716, 51, 77, "Input",ExpressionUUID->"2fd619d6-5e78-47b6-adfc-2c3a75428669",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[9639, 293, 226, 4, 72, "Title",ExpressionUUID->"c626dffe-68a4-4be1-b83c-a98638c384be"],
Cell[CellGroupData[{
Cell[9890, 301, 161, 3, 67, "Section",ExpressionUUID->"e0a5c645-2143-460d-a4e6-085c89e142f8"],
Cell[CellGroupData[{
Cell[10076, 308, 3716, 104, 118, "Input",ExpressionUUID->"18ee6744-3e3b-4677-9588-1803214665ac"],
Cell[13795, 414, 3605, 105, 98, "Output",ExpressionUUID->"cbca8ed1-5d8f-4e61-8033-cf95096b7059"]
}, Open ]],
Cell[CellGroupData[{
Cell[17437, 524, 3842, 109, 125, "Input",ExpressionUUID->"ea189845-c47e-4753-ae12-0c29bb7fe966"],
Cell[21282, 635, 2907, 81, 119, "Output",ExpressionUUID->"92d6db72-9f08-4355-8160-14f066aceceb"]
}, Open ]],
Cell[CellGroupData[{
Cell[24226, 721, 2154, 64, 63, "Input",ExpressionUUID->"c2d3be71-50b2-4d02-bc7c-fa8422bb9511"],
Cell[26383, 787, 943, 29, 56, "Output",ExpressionUUID->"3a86ae5d-84b5-4de4-bf01-e2f7182357aa"]
}, Open ]],
Cell[CellGroupData[{
Cell[27363, 821, 2113, 62, 63, "Input",ExpressionUUID->"6d246081-7c23-4031-b117-f6e9dbc0e0a0"],
Cell[29479, 885, 981, 24, 65, "Output",ExpressionUUID->"3f1ab4cb-673d-4ce6-aaea-91d682381bce"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30509, 915, 192, 3, 53, "Section",ExpressionUUID->"f857da23-6512-4a44-801c-0238416ec25a"],
Cell[30704, 920, 582, 11, 35, "Text",ExpressionUUID->"2556e3c0-3c07-46c8-a4f0-e0d5f873e557"],
Cell[31289, 933, 468, 14, 46, "Input",ExpressionUUID->"52f037c3-c011-4459-9ec6-6f496c768a58"],
Cell[31760, 949, 1494, 39, 67, "Input",ExpressionUUID->"e939f164-90ed-4275-8c20-a3c9b35f02a0"],
Cell[33257, 990, 1322, 35, 67, "Input",ExpressionUUID->"abec2db9-74cd-44ab-8e15-ec3c2d9acd58"],
Cell[34582, 1027, 1045, 31, 67, "Input",ExpressionUUID->"6245dfde-4373-46ac-8f56-97c43c57cefd"]
}, Closed]],
Cell[CellGroupData[{
Cell[35664, 1063, 697, 10, 53, "Section",ExpressionUUID->"d36161d9-7065-4d0c-9aa3-9e184ff60f78"],
Cell[CellGroupData[{
Cell[36386, 1077, 509, 8, 54, "Subsection",ExpressionUUID->"caba0f41-e4c2-48bd-b7f9-f49d444689e8"],
Cell[36898, 1087, 1902, 45, 53, "Input",ExpressionUUID->"19db6ad5-bc03-487e-a573-966ce5a1e931"],
Cell[CellGroupData[{
Cell[38825, 1136, 1804, 46, 53, "Input",ExpressionUUID->"6cb4dcc6-ee3c-42a3-83e3-235f526f9182"],
Cell[40632, 1184, 280, 5, 34, "Output",ExpressionUUID->"7a5608ac-da7f-4146-9663-314f8a925eb7"]
}, Open ]],
Cell[40927, 1192, 2101, 56, 49, "Input",ExpressionUUID->"4538602f-e656-4a1f-8b53-fef84aa71ecb"],
Cell[43031, 1250, 6017, 123, 282, "Input",ExpressionUUID->"1fc2dedb-8f1a-403e-a7e1-c8dbd76bc9e5"]
}, Closed]],
Cell[CellGroupData[{
Cell[49085, 1378, 490, 7, 38, "Subsection",ExpressionUUID->"bdb8d3b4-c988-408c-865f-6a4aaefec0cc"],
Cell[CellGroupData[{
Cell[49600, 1389, 9360, 179, 332, "Input",ExpressionUUID->"fd4d7d77-fd44-443b-a877-600297ee2a20"],
Cell[58963, 1570, 1753, 31, 196, "Print",ExpressionUUID->"eddb80e0-8314-4b81-a073-134184dae11a"],
Cell[60719, 1603, 711, 14, 37, "Output",ExpressionUUID->"77e73b0a-4204-439b-880c-363ddd8df3f0"],
Cell[61433, 1619, 1780, 45, 242, "Output",ExpressionUUID->"e954db0b-9de5-4b95-884f-97be0d9ee069"]
}, Open ]],
Cell[63228, 1667, 248, 5, 30, "Input",ExpressionUUID->"2a334965-e048-4730-b8d2-934066eee580"],
Cell[63479, 1674, 370, 12, 48, "Input",ExpressionUUID->"7e0bdb5b-809c-478e-a3d8-bbaf3faf9a2a"],
Cell[63852, 1688, 670, 19, 45, "Input",ExpressionUUID->"efa3f2c4-c56a-4f0d-a231-57f12b695850"],
Cell[64525, 1709, 419, 12, 54, "Input",ExpressionUUID->"6d2eae8e-6c4d-48f2-a1b2-4de4ecc2600b"],
Cell[64947, 1723, 499, 14, 48, "Input",ExpressionUUID->"ae82bc8b-92a9-43b2-ac92-6cd163b82739"],
Cell[65449, 1739, 1953, 45, 98, "Input",ExpressionUUID->"87275d0e-03a0-4d3c-9d6f-87d7d86f1997"],
Cell[CellGroupData[{
Cell[67427, 1788, 3013, 81, 63, "Input",ExpressionUUID->"3a93abe4-2ad3-486e-8c6e-7fdc2391862f"],
Cell[70443, 1871, 1192, 22, 34, "Output",ExpressionUUID->"3f0af36f-5a14-4009-9228-7f92279f21fd"]
}, Open ]],
Cell[CellGroupData[{
Cell[71672, 1898, 8927, 172, 325, "Input",ExpressionUUID->"d1b1610f-85af-4346-ac50-e489107603e8"],
Cell[80602, 2072, 2691, 64, 56, "Output",ExpressionUUID->"d46330e7-34f6-4fd6-87c7-9d62e37f39f0"],
Cell[83296, 2138, 2830, 58, 240, "Output",ExpressionUUID->"a1eff725-6cd6-4766-9c48-e4596ad8fcd8"]
}, Open ]],
Cell[CellGroupData[{
Cell[86163, 2201, 2391, 67, 205, "Input",ExpressionUUID->"312998b8-f34f-4d8f-ada8-529ce8e4fc92"],
Cell[88557, 2270, 1880, 62, 77, "Output",ExpressionUUID->"732834ed-bb17-43bb-807d-6b18ef0060a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[90474, 2337, 6643, 173, 162, "Input",ExpressionUUID->"2016af84-5098-4a00-a783-f0d93f8c9ba3"],
Cell[97120, 2512, 1495, 25, 60, "Output",ExpressionUUID->"bd9eb2f7-582b-4a68-9544-172d9b5d206c"],
Cell[98618, 2539, 815, 13, 34, "Output",ExpressionUUID->"202780ab-b52d-489c-a92e-1b0fd0915e99"]
}, Open ]],
Cell[CellGroupData[{
Cell[99470, 2557, 1857, 44, 140, "Input",ExpressionUUID->"30e5f6ef-f847-4642-bbeb-30c280b77e0b"],
Cell[101330, 2603, 767, 15, 60, "Output",ExpressionUUID->"5e69b9d6-c0fe-4adf-b5a6-d354021c664b"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[102146, 2624, 212, 4, 38, "Subsection",ExpressionUUID->"c866a966-62d2-4aaa-be30-188e454b7735"],
Cell[102361, 2630, 1830, 66, 53, "Input",ExpressionUUID->"c4a884e6-15b7-471a-9826-860d9af553cf"],
Cell[104194, 2698, 4796, 151, 190, "Input",ExpressionUUID->"ee948f7b-d70d-4f37-b367-09ca445c478b"],
Cell[108993, 2851, 1464, 44, 56, "Input",ExpressionUUID->"141f30e2-0cbb-4f96-a17a-38662c6cc740"],
Cell[110460, 2897, 1505, 42, 54, "Input",ExpressionUUID->"5f15e614-bd85-47be-b20b-e346fe08a2c7"],
Cell[111968, 2941, 1820, 52, 56, "Input",ExpressionUUID->"95762630-81b3-4910-890e-f8cbb4b3594c"],
Cell[113791, 2995, 4914, 151, 102, "Input",ExpressionUUID->"d65bd25c-ca2f-407d-9b79-7092dc14020a"],
Cell[CellGroupData[{
Cell[118730, 3150, 3637, 118, 99, "Input",ExpressionUUID->"86c4c204-12d5-4cc4-91f3-4ef38f2f1176"],
Cell[122370, 3270, 403, 6, 34, "Output",ExpressionUUID->"a2be3453-5dee-4d23-b728-7cbc223eac21"],
Cell[122776, 3278, 405, 6, 34, "Output",ExpressionUUID->"f9680827-b5a0-43a4-8fce-6d063ed22fc4"]
}, Open ]],
Cell[123196, 3287, 2969, 102, 101, "Input",ExpressionUUID->"ffcbeb9c-6e95-4df6-bb5b-328b41b21992"],
Cell[CellGroupData[{
Cell[126190, 3393, 2044, 57, 48, "Input",ExpressionUUID->"61ee86cb-074d-4ac7-9f61-c1c6b64052ea"],
Cell[128237, 3452, 453, 12, 49, "Output",ExpressionUUID->"c480bc7f-ce40-4eee-b55d-3f73c76d3e72"]
}, Open ]],
Cell[CellGroupData[{
Cell[128727, 3469, 819, 26, 48, "Input",ExpressionUUID->"b6e55c8f-0333-4b09-aed9-bd0241fab7b8"],
Cell[129549, 3497, 552, 16, 49, "Output",ExpressionUUID->"dacdb030-75e3-4580-b198-bc005365a6e5"]
}, Open ]],
Cell[130116, 3516, 1773, 53, 51, "Input",ExpressionUUID->"db51f6a7-4690-40c2-af32-a6f7eab9b126"],
Cell[131892, 3571, 468, 15, 48, "Input",ExpressionUUID->"67e833cb-794e-46bf-aaaa-f7fedec74084"],
Cell[CellGroupData[{
Cell[132385, 3590, 385, 12, 48, "Input",ExpressionUUID->"3ade0751-2e40-483d-aa9f-7c6decd096ba"],
Cell[132773, 3604, 303, 9, 34, "Output",ExpressionUUID->"e43011ca-1485-4c14-8ef5-e3e5c2853e54"]
}, Open ]],
Cell[CellGroupData[{
Cell[133113, 3618, 607, 20, 48, "Input",ExpressionUUID->"1f77c8a4-02f2-4a43-9353-2c6dc0e607c1"],
Cell[133723, 3640, 305, 9, 34, "Output",ExpressionUUID->"8b84c089-d48f-4520-a0df-2c902ca82399"]
}, Open ]],
Cell[134043, 3652, 4939, 128, 182, "Input",ExpressionUUID->"fc6fe6fa-c5e9-41cb-966e-1e14dcc26ff6"],
Cell[CellGroupData[{
Cell[139007, 3784, 14912, 296, 388, "Input",ExpressionUUID->"a06ef68f-50cc-4e7f-bfb8-5863cadce9e2"],
Cell[CellGroupData[{
Cell[153944, 4084, 916, 15, 24, "Print",ExpressionUUID->"5130f48f-f8c3-47ec-ba36-e818d9baf5f9"],
Cell[154863, 4101, 932, 15, 24, "Print",ExpressionUUID->"eae4f0fe-60ff-4935-b530-68c55531752f"],
Cell[155798, 4118, 11423, 209, 227, "Print",ExpressionUUID->"3e3dcdca-0747-4edb-9af7-eaf67d14584a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[167270, 4333, 198, 4, 30, "Input",ExpressionUUID->"1f97a01c-9972-4922-bceb-32c17a62dd77"],
Cell[167471, 4339, 1146, 27, 181, "Output",ExpressionUUID->"09dd10ea-6b66-4aae-8729-61fe9daa8cfe"]
}, Open ]],
Cell[168632, 4369, 147, 3, 52, "Input",ExpressionUUID->"57afc89b-9ca1-4df9-834b-218a004d45c4"],
Cell[CellGroupData[{
Cell[168804, 4376, 418, 12, 30, "Input",ExpressionUUID->"2438edc6-221c-4b60-bf8b-3d70d6ff12bb"],
Cell[169225, 4390, 597, 18, 48, "Output",ExpressionUUID->"c9bd8e93-a480-4036-a458-76653945c9c3"]
}, Open ]],
Cell[CellGroupData[{
Cell[169859, 4413, 875, 18, 30, "Input",ExpressionUUID->"75603725-0506-477c-b0bd-726fd243172d"],
Cell[170737, 4433, 8010, 152, 367, "Output",ExpressionUUID->"dde512e3-daf4-47ad-a682-cc46fac9e729"]
}, Open ]],
Cell[CellGroupData[{
Cell[178784, 4590, 3604, 83, 220, "Input",ExpressionUUID->"6619aa61-41df-4561-afa2-5b697e931325"],
Cell[182391, 4675, 167588, 3011, 310, "Output",ExpressionUUID->"9d744fe8-28f2-4d69-9f69-3b1ca48103fd"]
}, Open ]],
Cell[349994, 7689, 255, 6, 30, "Input",ExpressionUUID->"b5b12c32-af87-4895-806f-bf157bb129aa"],
Cell[CellGroupData[{
Cell[350274, 7699, 850, 28, 46, "Input",ExpressionUUID->"cc05efbd-961f-46db-b61a-58c996905985"],
Cell[351127, 7729, 685, 22, 59, "Output",ExpressionUUID->"8fa408ca-cd50-43f5-b8e3-e8f3a0b3e9c1"]
}, Open ]],
Cell[351827, 7754, 448, 13, 30, "Input",ExpressionUUID->"98d3c666-fed4-4e94-8773-702f80e147f2"],
Cell[352278, 7769, 383, 11, 49, "Input",ExpressionUUID->"7760399b-0d77-4553-9ef6-998865cceadc"]
}, Open ]],
Cell[CellGroupData[{
Cell[352698, 7785, 179, 3, 54, "Subsection",ExpressionUUID->"77b56f7c-700c-4596-b77a-642cfae1f22b"],
Cell[352880, 7790, 5584, 149, 243, "Input",ExpressionUUID->"0096765c-1955-4233-8b61-c68add30afd7"],
Cell[CellGroupData[{
Cell[358489, 7943, 3535, 89, 227, "Input",ExpressionUUID->"b5718ede-6400-4124-b4a6-2186a8843623"],
Cell[362027, 8034, 2508, 57, 251, "Output",ExpressionUUID->"86990887-6b9b-4c25-928a-8a2d9a47fc30"]
}, Open ]],
Cell[CellGroupData[{
Cell[364572, 8096, 3733, 92, 284, "Input",ExpressionUUID->"e6212f5c-f61a-44bd-9741-ee94d91faa85"],
Cell[368308, 8190, 459, 9, 34, "Output",ExpressionUUID->"9dd3881f-824b-4e31-8bf6-7abeadcfec2e"]
}, Open ]],
Cell[CellGroupData[{
Cell[368804, 8204, 4812, 107, 306, "Input",ExpressionUUID->"b2ce964b-b1a4-4e17-b745-0e349e4a0a11"],
Cell[373619, 8313, 304, 5, 34, "Output",ExpressionUUID->"b0ff418f-98de-4bad-842e-e06fcdb95ae7"]
}, Open ]],
Cell[373938, 8321, 149, 3, 52, "Input",ExpressionUUID->"d55ebddf-dd3a-4100-b7d6-bf59fb20a73f"],
Cell[374090, 8326, 4071, 140, 164, "Input",ExpressionUUID->"20962513-a6c6-46ea-aebc-973a60c3f95f"],
Cell[378164, 8468, 3749, 94, 271, "Input",ExpressionUUID->"d3a32aba-35d9-4b11-8965-8489f6e162bc"],
Cell[CellGroupData[{
Cell[381938, 8566, 2674, 64, 157, "Input",ExpressionUUID->"0d9be6fe-c20c-4b13-b4c3-a4f6c73c3a1d"],
Cell[384615, 8632, 150290, 2634, 284, "Output",ExpressionUUID->"c0746594-48e5-4310-b7c3-59e7ccc0000f"]
}, Open ]],
Cell[534920, 11269, 149, 3, 52, "Input",ExpressionUUID->"d453d858-8a7b-4124-abfb-9e6f74a501dc"],
Cell[535072, 11274, 147, 3, 52, "Input",ExpressionUUID->"eead3199-3345-46f2-a4c0-2fec2d348b90"]
}, Open ]],
Cell[CellGroupData[{
Cell[535256, 11282, 163, 3, 54, "Subsection",ExpressionUUID->"d406c2ba-4ab0-44d0-9b6f-c0c1db6c1acf"],
Cell[535422, 11287, 1505, 42, 54, "Input",ExpressionUUID->"5964132e-935a-46a6-b153-12b5727d94a0"],
Cell[536930, 11331, 1820, 52, 56, "Input",ExpressionUUID->"9e3ef216-9ad2-4adb-b9e7-96392657d2b3"],
Cell[538753, 11385, 4737, 148, 102, "Input",ExpressionUUID->"fd5e482a-7176-4bda-b608-c9d284776293"],
Cell[CellGroupData[{
Cell[543515, 11537, 3814, 120, 99, "Input",ExpressionUUID->"d44672a8-904c-49d5-a749-404599638355"],
Cell[547332, 11659, 617, 9, 34, "Output",ExpressionUUID->"f95cdf80-034d-490c-9052-1ab0cd6440d3"],
Cell[547952, 11670, 617, 9, 34, "Output",ExpressionUUID->"1b714e96-da79-4d94-a1ba-aad82b46c1b7"]
}, Open ]],
Cell[548584, 11682, 3409, 116, 101, "Input",ExpressionUUID->"47e6ea8d-fe96-432b-bc8f-37af178f58c4"],
Cell[CellGroupData[{
Cell[552018, 11802, 3501, 118, 101, "Input",ExpressionUUID->"41ad596d-10ce-4e99-baba-2ce47459342c"],
Cell[555522, 11922, 179, 3, 34, "Output",ExpressionUUID->"564d55f1-fbb5-4701-bf39-19b29e089fa9"]
}, Open ]],
Cell[CellGroupData[{
Cell[555738, 11930, 4888, 165, 151, "Input",ExpressionUUID->"0539ebc8-55d1-4e61-8059-2b873a109fd0"],
Cell[560629, 12097, 1039, 31, 34, "Output",ExpressionUUID->"eb2da5a6-57c0-4846-bf3e-a339f3051de0"]
}, Open ]],
Cell[CellGroupData[{
Cell[561705, 12133, 6113, 200, 164, "Input",ExpressionUUID->"ba29c20b-dea9-41b8-b3d4-fc57943bb3a3"],
Cell[567821, 12335, 469, 7, 34, "Output",ExpressionUUID->"a45ecd9f-4177-4783-8c1c-5a81ef2ad1df"]
}, Open ]],
Cell[CellGroupData[{
Cell[568327, 12347, 5193, 175, 154, "Input",ExpressionUUID->"5f1d575c-4c3c-4bde-8f8f-240d45244a88"],
Cell[573523, 12524, 206, 3, 34, "Output",ExpressionUUID->"1f981ff0-2415-481e-9272-8f05a9125627"]
}, Open ]],
Cell[CellGroupData[{
Cell[573766, 12532, 2662, 88, 101, "Input",ExpressionUUID->"d0f32758-1361-44ee-bb02-8950288c60b3"],
Cell[576431, 12622, 957, 29, 34, "Output",ExpressionUUID->"55173617-34ac-4fdc-9406-99bf575c07a4"]
}, Open ]],
Cell[CellGroupData[{
Cell[577425, 12656, 3501, 117, 101, "Input",ExpressionUUID->"c1307343-2cfb-4e0b-83cc-02e91fb1c0ed"],
Cell[580929, 12775, 176, 2, 34, "Output",ExpressionUUID->"3b48e172-c35e-4179-ad01-d64d2ba564df"]
}, Open ]],
Cell[CellGroupData[{
Cell[581142, 12782, 3554, 119, 101, "Input",ExpressionUUID->"318015e8-2886-4487-be95-e7f69ff7a94c"],
Cell[584699, 12903, 156, 3, 34, "Output",ExpressionUUID->"3c0943dd-d696-48fb-95bf-e076fa93c9b0"]
}, Open ]],
Cell[584870, 12909, 3033, 103, 101, "Input",ExpressionUUID->"b4079bea-4a03-45f8-9706-9190d1a1a2fd"],
Cell[CellGroupData[{
Cell[587928, 13016, 1956, 55, 48, "Input",ExpressionUUID->"523e901d-07d6-4226-ab0a-a0f8b4022ef8"],
Cell[589887, 13073, 422, 11, 49, "Output",ExpressionUUID->"cdd496d7-6f57-4d4b-9410-784a9d2ec602"]
}, Open ]],
Cell[CellGroupData[{
Cell[590346, 13089, 696, 24, 48, "Input",ExpressionUUID->"a2621bef-7c52-4cc5-b04b-4a41d784cd3d"],
Cell[591045, 13115, 482, 15, 49, "Output",ExpressionUUID->"47b658d6-e43b-40a5-bd62-147a938a1d86"]
}, Open ]],
Cell[CellGroupData[{
Cell[591564, 13135, 581, 19, 48, "Input",ExpressionUUID->"ab059271-ba95-494b-97be-904cc891c23e"],
Cell[592148, 13156, 371, 11, 51, "Output",ExpressionUUID->"8f57ea33-6026-4373-bdf2-c97365a6aff0"]
}, Open ]],
Cell[CellGroupData[{
Cell[592556, 13172, 452, 12, 30, "Input",ExpressionUUID->"1423d03d-0009-4a98-923c-6616c220bc62"],
Cell[593011, 13186, 7116, 137, 239, "Output",ExpressionUUID->"a9257c0c-b5e1-4c1f-b935-f11312fc5f0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[600164, 13328, 558, 16, 48, "Input",ExpressionUUID->"7d937c46-315c-4127-85c4-712b14bc01aa"],
Cell[600725, 13346, 402, 12, 49, "Output",ExpressionUUID->"cd9d35dd-d570-4a5a-8d26-67dfbe5a07bb"]
}, Open ]],
Cell[601142, 13361, 513, 17, 48, "Input",ExpressionUUID->"a2ac8ff2-1cae-41e1-a20b-4fbb997dec08"],
Cell[CellGroupData[{
Cell[601680, 13382, 448, 14, 46, "Input",ExpressionUUID->"2f20c949-180a-497c-b460-fc41151522d8"],
Cell[602131, 13398, 275, 8, 49, "Output",ExpressionUUID->"0b25d327-e92b-4494-a4e0-91dc831b2739"]
}, Open ]],
Cell[602421, 13409, 191, 6, 48, "Input",ExpressionUUID->"939751eb-557e-4570-ac5e-0177a1ac50cf"],
Cell[602615, 13417, 1875, 54, 51, "Input",ExpressionUUID->"7f39c9ab-32fa-41ee-a84c-0db48d3fd4ca"],
Cell[604493, 13473, 468, 15, 48, "Input",ExpressionUUID->"59da42ed-948c-40cc-9a75-afe1a8b88822"],
Cell[604964, 13490, 4909, 127, 182, "Input",ExpressionUUID->"47cbd7eb-4244-4a5a-b725-eb6c2ae63c11"],
Cell[CellGroupData[{
Cell[609898, 13621, 9467, 180, 304, "Input",ExpressionUUID->"54cba639-78de-41b7-b09f-3fb5cc912380"],
Cell[619368, 13803, 3821, 95, 182, "Output",ExpressionUUID->"278ca01a-9bd3-4962-aa4f-fe7918d70fe0"],
Cell[623192, 13900, 2875, 61, 249, "Output",ExpressionUUID->"44916109-9e4c-44de-8ffc-11faec7bc38d"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[626116, 13967, 304, 9, 38, "Subsection",ExpressionUUID->"c3267724-2a1e-46ae-a70a-24dbe2bc9597"],
Cell[CellGroupData[{
Cell[626445, 13980, 9486, 298, 329, "Input",ExpressionUUID->"093b63ec-d5d7-429c-a6ae-daee424561d5"],
Cell[635934, 14280, 759, 11, 34, "Output",ExpressionUUID->"c8bc8a1a-7edb-4bf3-8401-c89b58f107f2"],
Cell[636696, 14293, 759, 11, 34, "Output",ExpressionUUID->"f48a9ecf-9fbe-47d9-ae87-f8b5af6c5e0b"],
Cell[637458, 14306, 759, 11, 34, "Output",ExpressionUUID->"ec1755b9-8f51-47c9-9a0f-1629807636d1"],
Cell[638220, 14319, 809, 13, 34, "Output",ExpressionUUID->"de84db82-7bcd-4321-be05-acdd32c5a02c"],
Cell[639032, 14334, 759, 11, 34, "Output",ExpressionUUID->"e6a683e2-6c11-4e7d-802c-2b921896631b"]
}, Open ]],
Cell[CellGroupData[{
Cell[639828, 14350, 5317, 162, 97, "Input",ExpressionUUID->"5ce35750-7da9-4ff5-b83f-0ae5f5377437"],
Cell[645148, 14514, 156, 3, 34, "Output",ExpressionUUID->"7fb01024-0558-4c4e-bc04-f537ce36e159"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[645353, 14523, 357, 9, 38, "Subsection",ExpressionUUID->"59690161-1c60-4593-a2e7-c717480798c8"],
Cell[CellGroupData[{
Cell[645735, 14536, 12034, 380, 331, "Input",ExpressionUUID->"83dd638d-a3d9-4eac-9812-c6a4cf31efb2"],
Cell[657772, 14918, 209, 4, 34, "Output",ExpressionUUID->"b4e381d7-4a23-4e07-981a-8f2086d6ecb0"],
Cell[657984, 14924, 210, 4, 34, "Output",ExpressionUUID->"c0f052e7-e375-40fb-9cda-e30d1e386bf6"],
Cell[658197, 14930, 210, 4, 34, "Output",ExpressionUUID->"0bae4c27-c7b9-457a-8a0b-94924bb3d300"],
Cell[658410, 14936, 260, 6, 34, "Output",ExpressionUUID->"c64341aa-bf6d-4dfd-8f07-5440230a7974"],
Cell[658673, 14944, 210, 4, 34, "Output",ExpressionUUID->"55d747c3-742f-4a1c-84a2-fde40e88cc5e"]
}, Open ]],
Cell[CellGroupData[{
Cell[658920, 14953, 15052, 468, 347, "Input",ExpressionUUID->"e4ec2f88-e321-4297-8368-7cf33b0e5d5e"],
Cell[673975, 15423, 3774, 117, 61, "Output",ExpressionUUID->"468a3fca-bc22-4dbe-ba2e-d09f5efde874"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[677798, 15546, 238, 4, 38, "Subsection",ExpressionUUID->"eac4bda2-189e-42f0-81dc-51e5ebbd2f4a"],
Cell[678039, 15552, 1505, 42, 54, "Input",ExpressionUUID->"17b135d5-7e41-4643-b4bb-f3eea5ce1e51"],
Cell[679547, 15596, 1851, 52, 56, "Input",ExpressionUUID->"14802bea-9955-4893-8c9c-a17bac458ece"],
Cell[681401, 15650, 5028, 155, 151, "Input",ExpressionUUID->"d3a6ec1b-6a01-430d-947f-8f0e2ffa4abc"],
Cell[CellGroupData[{
Cell[686454, 15809, 12016, 360, 415, "Input",ExpressionUUID->"9bfbd342-26ab-4960-b0c1-6d30bc401946"],
Cell[698473, 16171, 842, 13, 34, "Output",ExpressionUUID->"bad42b6b-febc-423c-b781-8e8f634645b2"],
Cell[699318, 16186, 842, 13, 34, "Output",ExpressionUUID->"08268186-e6a0-4d08-92db-7368a97e5b15"],
Cell[700163, 16201, 838, 12, 34, "Output",ExpressionUUID->"14e5cd70-74bd-402b-9647-758b00e98438"],
Cell[701004, 16215, 844, 13, 34, "Output",ExpressionUUID->"a1021d01-c1ea-43ff-815d-85bf1860cda5"],
Cell[701851, 16230, 842, 13, 34, "Output",ExpressionUUID->"a6228c72-c3ab-4a4b-a7dd-114c74203722"],
Cell[702696, 16245, 842, 13, 34, "Output",ExpressionUUID->"449b7df1-0d75-4d67-925c-350cdef9600b"]
}, Open ]],
Cell[CellGroupData[{
Cell[703575, 16263, 3780, 122, 98, "Input",ExpressionUUID->"f27d4a85-2a37-4803-a443-435791839d08"],
Cell[707358, 16387, 211, 4, 34, "Output",ExpressionUUID->"2dc3a301-69c8-4267-acd1-185a7e3220d5"]
}, Open ]],
Cell[707584, 16394, 3620, 91, 172, "Input",ExpressionUUID->"17d3180a-586b-41af-a83f-6e20a124c592"],
Cell[CellGroupData[{
Cell[711229, 16489, 9840, 189, 283, "Input",ExpressionUUID->"e8a12bd0-24b7-41d6-8141-13207367f442"],
Cell[721072, 16680, 4442, 90, 525, "Output",ExpressionUUID->"6cf12868-5980-4ee9-9f5e-473067fd4e9d"]
}, Open ]]
}, Closed]]
}, Open ]]
}, Open ]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink