Skip to content

Instantly share code, notes, and snippets.

@MJSteil

MJSteil/LindblomTOV.nb

Last active August 12, 2023 15:04
Show Gist options
  • Save MJSteil/17000adfbe683684904ba70839313fa1 to your computer and use it in GitHub Desktop.
Save MJSteil/17000adfbe683684904ba70839313fa1 to your computer and use it in GitHub Desktop.
Download ZIP
Mathematica TOV eqs. in Lindblom's form solver see https://physics.stackexchange.com/a/775767/120730
Raw
LindblomTOV.nb
Notebook[{
Cell[BoxData[
TemplateBox[{"\[FilledSmallSquare] ", "\"\\\\\[FilledSmallSquare] \"",
RowBox[{"2023", "-", "08", "-",
RowBox[{"12",
RowBox[{"T17", ":", "03"}]}]}],
RowBox[{"v1", " ", ".10"}], "M. J. Steil", "TU Darmstadt"},
"RowWithSeparators"]], "NotebookHeader",
FontFamily->"Source Sans Pro",
FontSize->14,
FontWeight->"Normal",
FontSlant->"Plain",
CellTags->"NB`Header",ExpressionUUID->"83e0f5f1-1f3f-40d9-abbf-3ca6b0e7af32"],
Cell[CellGroupData[{
Cell["TOV eqs. in Lindblom\[CloseCurlyQuote]s form and polytropic EoS", \
"Title",ExpressionUUID->"c62703da-2baf-46d4-9087-88ef95c43060"],
Cell[TextData[{
"Martin Jakob ",
Cell[BoxData[
FormBox["Steil", TraditionalForm]],ExpressionUUID->
"f4784444-cd55-4d3e-b499-6e74edc3d30f"]
}], "Author",ExpressionUUID->"0ea66777-a543-434e-9eaa-14eaa568b91f"],
Cell[TextData[{
"see for more details [M. J. Steil, ",
ButtonBox["Structure of slowly rotating magnetized neutron stars in a \
perturbative approach",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://theorie.ikp.physik.tu-darmstadt.de/nhq/downloads/thesis/\
master.steil.pdf"], None},
ButtonNote->
"https://theorie.ikp.physik.tu-darmstadt.de/nhq/downloads/thesis/master.\
steil.pdf"],
", Masters Thesis, TU Darmstadt, 2017]\nand \
https://physics.stackexchange.com/a/775767/120730"
}], "Abstract",ExpressionUUID->"7e561066-c7df-494b-8ea0-77b980c802bb"],
Cell[CellGroupData[{
Cell["Initialization", \
"InitializationSection",ExpressionUUID->"83ee48aa-d448-4d5d-b51a-\
8f84c22939ec"],
Cell[BoxData[{
RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SetDirectory", "[",
RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"$DistributedContexts", "=",
RowBox[{"{", "}"}]}], ";"}], "\n", "\n",
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Disable", " ", "Notebookhistory"}], ",", " ",
RowBox[{"[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/",
"questions"}], "/", "11258"}], "/", "are"}], "-", "there", "-",
"suitable", "-", "versioning", "-", "systems", "-", "for", "-",
"mathematica", "-", "notebooks"}]}], "]"}]}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{"EvaluationNotebook", "[", "]"}], ",",
RowBox[{"PrivateNotebookOptions", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<FileOutlineCache\>\"", "\[Rule]", "False"}], "}"}]}], ",",
RowBox[{"System`TrackCellChangeTimes", "\[Rule]", "False"}]}], "]"}],
"\n", "\n",
RowBox[{"(*", " ",
RowBox[{
"Display", " ", "the", " ", "Timing", " ", "of", " ", "an", " ",
"Evaluation", " ", "in", " ", "a", " ", "Notebook", " ",
RowBox[{"Window", " ", "[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"reference", ".", "wolfram", ".", "com"}], "/", "language"}],
"/", "howto"}], "/",
RowBox[{
"DisplayTheTimingOfAnEvaluationInANotebookWindow", ".", "html"}]}]}],
"]"}]}], " ", "*)"}]}], "\n",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{"EvaluationNotebook", "[", "]"}], ",",
RowBox[{"EvaluationCompletionAction", "\[Rule]",
RowBox[{"{", "\"\<ShowTiming\>\"", "}"}]}]}], "]"}]}], "Code",
InitializationCell->True,
CellLabel->"In[17]:=",ExpressionUUID->"dc4b6ff5-3f40-43e2-9d15-522f116dd991"],
Cell[BoxData[{
RowBox[{
RowBox[{"c0", "=", "299792458"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"G", "=",
RowBox[{"6.67408", "*",
RowBox[{"10", "^",
RowBox[{"-", "11"}]}]}]}], ";"}], " "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"qe", "=",
RowBox[{"1.6021766208", "*",
RowBox[{"10", "^",
RowBox[{"-", "19"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"hbar", "=",
RowBox[{"1.054571817", "*",
RowBox[{"10", "^",
RowBox[{"-", "34"}]}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"hbarcMeVfm", "=",
RowBox[{"hbar", "*",
RowBox[{
RowBox[{"c0", "/", "qe"}], "/",
RowBox[{"(",
RowBox[{
SuperscriptBox["10", "6"], "*",
SuperscriptBox["10",
RowBox[{"-", "15"}]]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"cMeVkm", "=",
RowBox[{"G", "*",
RowBox[{"qe", "/",
RowBox[{"c0", "^", "4"}]}], "*",
RowBox[{"10", "^", "3"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"cfm3km3", "=",
RowBox[{"1.", "*",
SuperscriptBox["10",
RowBox[{"18", "*", "3"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cMeVfm3km2", "=",
RowBox[{"G", "*",
RowBox[{"qe", "/",
RowBox[{"c0", "^", "4"}]}], "*",
RowBox[{"10", "^", "57"}]}]}], ";"}], " ",
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"MS", "=",
RowBox[{"1.9884", "*",
RowBox[{"10", "^", "30"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"MSkm", "=",
RowBox[{"MS", "*",
RowBox[{"G", "/",
RowBox[{"c0", "^", "2"}]}], "*",
RowBox[{"10", "^",
RowBox[{"-", "3"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"MSsymbol", "=",
RowBox[{"Subscript", "[",
RowBox[{"\"\<M\>\"", ",", "\"\<\[PermutationProduct]\>\""}], "]"}]}],
";"}]}], "Code",
InitializationCell->True,
CellLabel->"In[22]:=",ExpressionUUID->"e03d72a0-396f-47b4-834a-7b1f54c8bbbb"]
}, Open ]],
Cell[CellGroupData[{
Cell["EoS and explicit implementation of EoSPolyL", \
"Chapter",ExpressionUUID->"be12ad6b-bdcf-4339-afac-53c098216f81"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"ClearAll", "[", "EoS", "]"}], ";"}], "\n", "\n",
RowBox[{"(*",
RowBox[{"*", " ", "Getter"}], " ", "**)"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"EoS", "[", "asoc_", "]"}], "[", "key_", "]"}], ":=",
RowBox[{
RowBox[{"asoc", "[", "key", "]"}], " ", "/;", " ",
RowBox[{"MemberQ", "[",
RowBox[{
RowBox[{"Keys", "[", "asoc", "]"}], ",", " ", "key"}], "]"}]}]}], "\n",
RowBox[{"(*",
RowBox[{"*", " ", "StandardForm"}], " ", "**)"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{"MakeBoxes", "[",
RowBox[{
RowBox[{"EoS", "[", "asoc_Association", "]"}], ",", "StandardForm"}],
"]"}], "/;", "BoxForm`UseIcons"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "name", "}"}], ",", "\n", "\t",
RowBox[{"(*", " ",
RowBox[{"[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/",
"a"}], "/", "99914"}]}], "]"}], " ", "*)"}], "\n", "\t",
RowBox[{"(*", " ",
RowBox[{"[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/",
"a"}], "/", "79891"}]}], "]"}], " ", "*)"}], "\n", "\t",
RowBox[{
RowBox[{"name", "=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", "=",
RowBox[{"asoc", "[", "\"\<name\>\"", "]"}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MissingQ", "[", "a", "]"}], ",", "None", ",", "a"}],
"]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t",
RowBox[{"BoxForm`ArrangeSummaryBox", "[",
RowBox[{"EoS", ",", "\n", "\t\t",
RowBox[{"EoS", "[", "asoc", "]"}], ",", "\n", "\t\t", "None", ",",
"\n", "\t\t",
RowBox[{"{",
RowBox[{
RowBox[{"{", "name", "}"}], ",",
RowBox[{"{",
RowBox[{"Skeleton", "@",
RowBox[{"Length", "[", "asoc", "]"}]}], "}"}]}], "}"}], ",", "\n",
"\t\t",
RowBox[{"{",
RowBox[{"KeyDrop", "[",
RowBox[{"asoc", ",", "\"\<name\>\""}], "]"}], "}"}], ",", "\n",
"\t\t", "StandardForm", ",", "\n", "\t\t",
RowBox[{"\"\<Interpretable\>\"", "\[Rule]", "True"}]}], "\n", "\t",
"]"}]}]}], "\n", "]"}]}]}], "Code",
CellLabel->"In[33]:=",ExpressionUUID->"8ed6002c-fc08-4a21-a105-1a5368fce9e1"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"mBL", "=",
RowBox[{"1.66", "*",
RowBox[{"10", "^",
RowBox[{"-", "27"}]}], "*",
RowBox[{
RowBox[{
RowBox[{"c0", "^", "2"}], "/", "qe"}], "/",
RowBox[{"10", "^", "6"}]}], " ", "*", "cMeVkm"}]}], " ", ";"}],
RowBox[{"(*",
RowBox[{
RowBox[{"1.66*^-27", " ", "kg"}], " ", "=", " ",
RowBox[{
RowBox[{"931.19", " ", "MeV"}], " ", "=", " ",
RowBox[{
TagBox[
InterpretationBox[
StyleBox[
RowBox[{"\<\"1.2327\"\>", "\[Times]",
SuperscriptBox["10", "\<\"-57\"\>"]}],
ShowStringCharacters->False],
1.2327019706936509`*^-57,
AutoDelete->True],
ScientificForm], " ", "km"}]}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"nNucL", "=",
RowBox[{"0.1", "*", "cfm3km3"}]}], ";"}],
RowBox[{"(*", " ",
RowBox[{
RowBox[{"0.1", " ",
SuperscriptBox["fm",
RowBox[{"-", "3"}]]}], " ", "=", " ",
RowBox[{
TagBox[
InterpretationBox[
StyleBox[
RowBox[{"\<\"1.\"\>", "\[Times]",
SuperscriptBox["10", "\<\"53\"\>"]}],
ShowStringCharacters->False],
1.0000000000000002`*^53,
AutoDelete->True],
ScientificForm], " ",
SuperscriptBox["km",
RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\n"}], "\n",
RowBox[{
RowBox[{"EoSPolyL", "[",
RowBox[{"\[Kappa]_", ",", "\[Gamma]_", ",",
RowBox[{"m_", ":", "mBL"}], ",",
RowBox[{"n0_", ":", "nNucL"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[Rho]ofh", ",", "pofh", ",", "nofh", ",", "k"}], "}"}], ",",
"\[IndentingNewLine]", "\t",
RowBox[{
RowBox[{"k", "=",
RowBox[{"\[Kappa]", "*", "m", "*",
RowBox[{"n0", "^",
RowBox[{"(",
RowBox[{"1", "-", "\[Gamma]"}], ")"}]}]}]}], ";",
"\[IndentingNewLine]", "\t",
RowBox[{
RowBox[{"nofh", "[",
RowBox[{"h_", "?", "NumericQ"}], "]"}], ":=",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["m", "k"],
FractionBox[
RowBox[{"(",
RowBox[{"\[Gamma]", "-", "1"}], ")"}], "\[Gamma]"],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[ExponentialE]", "h"]}], ")"}]}], ")"}],
FractionBox["1",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}]]]}], ";", "\n", "\t",
RowBox[{
RowBox[{"pofh", "[",
RowBox[{"h_", "?", "NumericQ"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"n", "=",
RowBox[{"nofh", "[", "h", "]"}]}], "}"}], ",",
RowBox[{"k", " ",
SuperscriptBox["n", "\[Gamma]"]}]}], "]"}]}], ";", "\n", "\t",
RowBox[{
RowBox[{"\[Rho]ofh", "[",
RowBox[{"h_", "?", "NumericQ"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"n", "=",
RowBox[{"nofh", "[", "h", "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"m", "*", "n"}], "+",
FractionBox[
RowBox[{"k", " ",
SuperscriptBox["n", "\[Gamma]"]}],
RowBox[{"\[Gamma]", "-", "1"}]]}]}], "]"}]}], ";",
"\[IndentingNewLine]", "\t",
RowBox[{"EoS", "[",
RowBox[{"<|", "\n", "\t\t",
RowBox[{
RowBox[{"\"\<name\>\"", "->",
RowBox[{"\"\<PolyEos(\>\"", "<>",
RowBox[{"ToString", "[", "\[Kappa]", "]"}], "<>", "\"\<|\>\"", "<>",
RowBox[{"ToString", "[", "\[Gamma]", "]"}], "<>", "\"\<)\>\""}]}],
",", "\n", "\t\t",
RowBox[{"\"\<k\>\"", "->", "k"}], ",",
RowBox[{"\"\<\[Gamma]\>\"", "->", "\[Gamma]"}], ",", "\n", "\t\t",
RowBox[{"\"\<\[Rho]ofh\>\"", "->", "\[Rho]ofh"}], ",",
RowBox[{"\"\<pofh\>\"", "->", "pofh"}], ",",
RowBox[{"\"\<nofh\>\"", "->", "nofh"}]}], "\n", "\t", "|>"}],
"]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Code",
CellLabel->"In[36]:=",ExpressionUUID->"821364c7-c4d6-4252-b23b-da11ad17cfe2"]
}, Open ]],
Cell[CellGroupData[{
Cell["TOVsolver for TOV eqs. in Lindblom\[CloseCurlyQuote]s form", \
"Chapter",ExpressionUUID->"732d2d71-8477-4157-b668-f524b6a302ce"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"ClearAll", "[", "TOVSolver`solution", "]"}], ";"}], "\n", "\n",
RowBox[{"(*",
RowBox[{"*", " ", "Getter"}], " ", "**)"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"TOVSolver`solution", "[", "asoc_", "]"}], "[", "key_", "]"}], ":=",
RowBox[{
RowBox[{"asoc", "[", "key", "]"}], " ", "/;", " ",
RowBox[{"MemberQ", "[",
RowBox[{
RowBox[{"Keys", "[", "asoc", "]"}], ",", " ", "key"}], "]"}]}]}], "\n",
"\n",
RowBox[{"(*",
RowBox[{"*", " ", "StandardForm"}], " ", "**)"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{"MakeBoxes", "[",
RowBox[{
RowBox[{"TOVSolver`solution", "[", "asoc_Association", "]"}], ",",
"StandardForm"}], "]"}], "/;", "BoxForm`UseIcons"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"eos", ",", "Pc", ",", "MR", ",", "I", ",", "\[Lambda]", ",", "Q"}],
"}"}], ",", "\n", "\t",
RowBox[{"(*", " ",
RowBox[{"[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/",
"a"}], "/", "99914"}]}], "]"}], " ", "*)"}], "\n", "\t",
RowBox[{"(*", " ",
RowBox[{"[",
RowBox[{
RowBox[{"https", ":"}], "//",
RowBox[{
RowBox[{
RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/",
"a"}], "/", "79891"}]}], "]"}], " ", "*)"}], "\n", "\t",
RowBox[{
RowBox[{"eos", "=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", "=",
RowBox[{
RowBox[{"asoc", "[", "\"\<eos\>\"", "]"}], "[", "\"\<name\>\"",
"]"}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MissingQ", "[", "a", "]"}], ",", "Nothing", ",",
RowBox[{"{",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"a", ",", "\"\< EoS\>\""}], "}"}], "]"}], "}"}]}],
"]"}]}], "]"}]}], ";", "\n", "\t",
RowBox[{"Pc", "=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", "=",
RowBox[{"asoc", "[", "\"\<pc\>\"", "]"}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MissingQ", "[", "a", "]"}], ",", "Nothing", ",",
RowBox[{"{",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"\"\<p(r=0)=\>\"", ",",
RowBox[{"a", "/", "cMeVfm3km2"}], ",",
"\"\< MeV\[ThinSpace]\!\(\*SuperscriptBox[\(fm\), \
\(-3\)]\)\>\""}], "}"}], "]"}], "}"}]}], "]"}]}], "]"}]}], ";", "\n", "\t",
RowBox[{"MR", "=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"M", "=",
RowBox[{"asoc", "[", "\"\<M\>\"", "]"}]}], ",",
RowBox[{"R", "=",
RowBox[{"asoc", "[", "\"\<R\>\"", "]"}]}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"MissingQ", "[", "M", "]"}], "||",
RowBox[{"MissingQ", "[", "R", "]"}]}], ",", "Nothing", ",",
RowBox[{"{",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"\"\<M\[ThinSpace]=\[ThinSpace]\>\"", ",",
RowBox[{"M", "/", "MSkm"}], ",", "\"\<\[ThinSpace]\>\"", ",",
"MSsymbol", ",", "\"\< R\[ThinSpace]=\[ThinSpace]\>\"", ",",
"R", ",", "\"\<\[ThinSpace]km\>\""}], "}"}], "]"}], "}"}]}],
"]"}]}], "]"}]}], ";", "\n", "\t",
RowBox[{"BoxForm`ArrangeSummaryBox", "[",
RowBox[{"NSNDSolver`solution", ",", "\n", "\t\t",
RowBox[{"NSNDSolver`solution", "[", "asoc", "]"}], ",", "\n", "\t\t",
"None", ",", "\n", "\t\t",
RowBox[{"{",
RowBox[{"eos", ",", "Pc", ",", "MR", ",",
RowBox[{"{",
RowBox[{"Skeleton", "@",
RowBox[{"Length", "[", "asoc", "]"}]}], "}"}]}], "}"}], ",", "\n",
"\t\t",
RowBox[{"{", "asoc", "}"}], ",", "\n", "\t\t", "StandardForm", ",",
"\n", "\t\t",
RowBox[{"\"\<Interpretable\>\"", "\[Rule]", "True"}]}], "\n", "\t",
"]"}]}]}], "\n", "]"}], "/;",
RowBox[{"asoc", "=!=",
RowBox[{"<|", "|>"}]}]}]}]}], "Code",
CellLabel->"In[39]:=",ExpressionUUID->"a54b3b97-94ed-4a58-9ff1-6b941a653ebb"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Options", "[", "TOVSolver", "]"}], "=",
RowBox[{"{", "\n", "\t",
RowBox[{
RowBox[{"\"\<\[CapitalDelta]hRealative\>\"", "->",
RowBox[{"1.", "*",
SuperscriptBox["10",
RowBox[{"-", "4"}]]}]}], ",", " ",
RowBox[{"(*", " ",
RowBox[{"First", " ", "step", " ", "in", " ", "h"}], " ", "*)"}], "\t",
"\n", "\t",
RowBox[{"(*",
RowBox[{"NDSolve", " ", "Params"}], "*)"}], "\n", "\t",
RowBox[{"AccuracyGoal", "\[Rule]", "12"}], ",", "\n", "\t",
RowBox[{"PrecisionGoal", "\[Rule]", "12"}], ",", "\n", "\t",
RowBox[{"MaxSteps", "->",
SuperscriptBox["10", "6"]}]}], "\n", "}"}]}], ";"}], "\n",
RowBox[{
RowBox[{"TOVSolver", "[",
RowBox[{"hc_", ",", "eos_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"eqs", ",", "p", ",", "pc", ",", "\[Rho]", ",", "\[Rho]c", ",", "r2",
",", "z", ",", "h", ",", "\[CapitalDelta]h", ",", "sol"}], "}"}], ",",
"\n", "\t",
RowBox[{
RowBox[{"p", "=",
RowBox[{"eos", "[", "\"\<pofh\>\"", "]"}]}], ";", "\n", "\t",
RowBox[{"pc", "=",
RowBox[{"p", "[", "hc", "]"}]}], ";", "\n", "\t",
RowBox[{"\[Rho]", "=",
RowBox[{"eos", "[", "\"\<\[Rho]ofh\>\"", "]"}]}], ";", "\n", "\t",
RowBox[{"\[Rho]c", "=",
RowBox[{"\[Rho]", "[", "hc", "]"}]}], ";", "\n", "\t",
RowBox[{"\[CapitalDelta]h", "=",
RowBox[{
RowBox[{"OptionValue", "[",
RowBox[{"TOVSolver", ",", "\"\<\[CapitalDelta]hRealative\>\""}],
"]"}], "*", "hc"}]}], ";", "\n", "\t",
RowBox[{"eqs", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"r2", "'"}], "[", "h", "]"}], "==",
RowBox[{"-",
FractionBox[
RowBox[{"2", "*",
RowBox[{"r2", "[", "h", "]"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"z", "[", "h", "]"}]}]}], ")"}]}],
RowBox[{
RowBox[{"4", "*", "\[Pi]", "*",
RowBox[{"r2", "[", "h", "]"}], "*",
RowBox[{"p", "[", "h", "]"}]}], "+",
RowBox[{"z", "[", "h", "]"}]}]]}]}], ",",
RowBox[{
RowBox[{
RowBox[{"z", "'"}], "[", "h", "]"}], "==",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "*", "\[Pi]", "*",
RowBox[{"\[Rho]", "[", "h", "]"}]}], "-",
FractionBox[
RowBox[{"z", "[", "h", "]"}],
RowBox[{"2", "*",
RowBox[{"r2", "[", "h", "]"}]}]]}], ")"}], "*",
RowBox[{
RowBox[{"r2", "'"}], "[", "h", "]"}]}]}], ",",
RowBox[{
RowBox[{"r2", "[",
RowBox[{"hc", "-", "\[CapitalDelta]h"}], "]"}], "==",
RowBox[{
FractionBox["3",
RowBox[{"2", "*", "\[Pi]", "*",
RowBox[{"(",
RowBox[{
RowBox[{"3", "*", "pc"}], "+", "\[Rho]c"}], ")"}]}]], "*",
"\[CapitalDelta]h"}]}], ",",
RowBox[{
RowBox[{"z", "[",
RowBox[{"hc", "-", "\[CapitalDelta]h"}], "]"}], "==",
RowBox[{
FractionBox[
RowBox[{"2", "*", "\[Rho]c"}],
RowBox[{
RowBox[{"3", "*", "pc"}], "+", "\[Rho]c"}]], "*",
"\[CapitalDelta]h"}]}]}], "}"}]}], ";", "\n", "\t", "\n", "\t",
RowBox[{"sol", "=",
RowBox[{"First", "@",
RowBox[{"NDSolve", "[",
RowBox[{"eqs", ",",
RowBox[{"{",
RowBox[{"r2", ",", "z"}], "}"}], ",",
RowBox[{"{",
RowBox[{"h", ",",
RowBox[{"hc", "-", "\[CapitalDelta]h"}], ",", "0"}], "}"}], ",",
"\n", "\t\t",
RowBox[{"AccuracyGoal", "\[Rule]",
RowBox[{"OptionValue", "[",
RowBox[{"TOVSolver", ",", "AccuracyGoal"}], "]"}]}], ",", "\n",
"\t\t",
RowBox[{"PrecisionGoal", "\[Rule]",
RowBox[{"OptionValue", "[",
RowBox[{"TOVSolver", ",", "PrecisionGoal"}], "]"}]}], ",", "\n",
"\t\t",
RowBox[{"MaxSteps", "\[Rule]",
RowBox[{"OptionValue", "[",
RowBox[{"TOVSolver", ",", "MaxSteps"}], "]"}]}]}], "\n", "\t",
"]"}]}]}], ";", "\n", "\t",
RowBox[{
RowBox[{"{",
RowBox[{"r2", ",", "z"}], "}"}], "=",
RowBox[{
RowBox[{"{",
RowBox[{"r2", ",", "z"}], "}"}], "/.", "sol"}]}], ";", "\n", "\t",
"\n", "\t",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"ri", ",", "zi", ",", "hi", ",", "pi", ",", "\[Rho]i", ",", "mi"}],
"}"}], ",", "\n", "\t\t",
RowBox[{
RowBox[{"hi", "=",
RowBox[{
RowBox[{"{", "hc", "}"}], "~", "Join", "~",
RowBox[{"Reverse", "@",
RowBox[{
RowBox[{"r2", "[", "\"\<Coordinates\>\"", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", "\t\t",
RowBox[{"pi", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"p", "[", "#", "]"}], "&"}], ",", "hi"}], "]"}]}], ";",
"\n", "\t\t",
RowBox[{"\[Rho]i", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"\[Rho]", "[", "#", "]"}], "&"}], ",", "hi"}], "]"}]}],
";", "\n", "\t\t",
RowBox[{"ri", "=",
RowBox[{
RowBox[{"{", "0", "}"}], "~", "Join", "~",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[", "#", "]"}], "&"}], ",",
RowBox[{"Reverse", "@",
RowBox[{"r2", "[", "\"\<ValuesOnGrid\>\"", "]"}]}]}], "]"}]}]}],
";", "\n", "\t\t",
RowBox[{"zi", "=",
RowBox[{
RowBox[{"{", "0", "}"}], "~", "Join", "~",
RowBox[{"Reverse", "[",
RowBox[{"z", "[", "\"\<ValuesOnGrid\>\"", "]"}], "]"}]}]}], ";",
"\n", "\t\t",
RowBox[{"mi", "=",
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{
RowBox[{"#1", "*", "#2"}], "&"}], ",",
RowBox[{"{",
RowBox[{"ri", ",", "zi"}], "}"}]}], "]"}]}], ";", "\n", "\t\t",
RowBox[{"TOVSolver`solution", "[",
RowBox[{"<|", "\n", "\t\t\t",
RowBox[{
RowBox[{"\"\<eos\>\"", "->", "eos"}], ",", "\n", "\t\t\t",
RowBox[{"\"\<hc\>\"", "->", "hc"}], ",",
RowBox[{"\"\<pc\>\"", "->", "pc"}], ",",
RowBox[{"\"\<\[Rho]c\>\"", "->", "\[Rho]c"}], ",",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Values", " ", "on", " ", "the", " ", "core", " ", "at", " ",
"r"}], "=", "0"}], " ", "*)"}], "\n", "\t\t\t",
RowBox[{"\"\<Z\>\"", "->",
RowBox[{"Last", "@", "zi"}]}], ",",
RowBox[{"\"\<R\>\"", "->",
RowBox[{"Last", "@", "ri"}]}], ",",
RowBox[{"\"\<M\>\"", "->",
RowBox[{"Last", "[", "mi", "]"}]}]}],
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Values", " ", "on", " ", "the", " ", "stellar", " ", "surface",
" ", "at", " ", "r"}], "=", "R"}], " ", "*)"}], "\n", "\t\t\t",
RowBox[{"(*", " ", "Gradients", " ", "*)"}], "\n", "\t\t\t",
RowBox[{"(*",
RowBox[{
RowBox[{"\"\<hofr\>\"", "->",
RowBox[{"Interpolation", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{"ri", ",", "hi"}], "}"}], "]"}], ",",
RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ",",
"\n", "\t\t\t",
RowBox[{"\"\<pofr\>\"", "->",
RowBox[{"Interpolation", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{"ri", ",", "pi"}], "}"}], "]"}], ",",
RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ",",
"\n", "\t\t\t",
RowBox[{"\"\<\[Rho]ofr\>\"", "->",
RowBox[{"Interpolation", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{"ri", ",", "\[Rho]i"}], "}"}], "]"}], ",",
RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ",",
"\n", "\t\t\t",
RowBox[{"\"\<mofr\>\"", "->",
RowBox[{"Interpolation", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{"ri", ",", "mi"}], "}"}], "]"}], ",",
RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}]}],
"*)"}], "\n", "\t\t", "|>"}], "]"}]}]}], "\n", "\t", "]"}]}]}],
"\n", "]"}]}]}], "Code",
CellLabel->"In[42]:=",ExpressionUUID->"69f3075b-b54a-42f0-932a-dccb6464c5b3"]
}, Open ]],
Cell[CellGroupData[{
Cell["Mass-Radius curves for polytropes", \
"Chapter",ExpressionUUID->"a3f79a29-99ae-448c-affd-cb218baf6872"],
Cell[BoxData[{
RowBox[{
RowBox[{"testEos", "=",
RowBox[{
RowBox[{
RowBox[{"EoSPolyL", "[",
RowBox[{"0.05", ",",
RowBox[{"N", "@", "#"}]}], "]"}], "&"}], "/@",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"8", "/", "6"}], "+",
RowBox[{"i", "/", "6"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"dat", "=",
RowBox[{"ParallelTable", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Quiet", "@",
RowBox[{"TOVSolver", "[",
RowBox[{
RowBox[{"10", "^", "i"}], ",", "e"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"-", "5"}], ",", "1", ",",
RowBox[{"1", "/", "40"}]}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"e", ",", "testEos"}], "}"}], ",",
RowBox[{"DistributedContexts", "\[Rule]", "All"}], ",",
RowBox[{"Method", "\[Rule]", "\"\<FinestGrained\>\""}]}], "]"}]}],
";"}]}], "Input",
CellLabel->"In[44]:=",ExpressionUUID->"54ccc6e5-1604-4fa9-8f5e-8a039a8a6c40"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"ci", "=",
RowBox[{
RowBox[{"ColorData", "[",
RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ";;", "5"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"li", "=",
RowBox[{"{",
RowBox[{
"\"\<PolyEos(0.05|4/3.)\>\"", ",", "\"\<PolyEos(0.05|3/2.)\>\"", ",",
"\"\<PolyEos(0.05|5/3.)\>\"", ",", "\"\<PolyEos(0.05|11/6.)\>\"", ",",
"\"\<PolyEos(0.05|2.)\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mri", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{"d", "\[Function]",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[", "\"\<R\>\"", "]"}], ",",
RowBox[{
RowBox[{"#", "[", "\"\<M\>\"", "]"}], "/", "MSkm"}], ",",
RowBox[{
RowBox[{"#", "[", "\"\<\[Rho]c\>\"", "]"}], "/", "cMeVfm3km2"}]}],
"}"}], "&"}], ",", "d"}], "]"}]}], ",", "dat"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Mmaxi", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Last", "@",
RowBox[{"SortBy", "[",
RowBox[{"#", ",",
RowBox[{"x", "\[Function]",
RowBox[{"x", "[",
RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], "&"}], ",", "%"}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mriSplit", "=",
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"d", "=",
RowBox[{"First", "@",
RowBox[{"FirstPosition", "[",
RowBox[{"#1", ",", "#2"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"1", ";;", "d"}], "]"}], "]"}], ",",
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"d", ";;"}], "]"}], "]"}]}], "}"}]}], "]"}], "&"}], ",",
RowBox[{"{",
RowBox[{"mri", ",", "Mmaxi"}], "}"}]}], "]"}]}], ";"}]}], "Input",
CellLabel->
"In[126]:=",ExpressionUUID->"ec5a1712-c12a-4499-a23f-992479382ff4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"1.5673247687829745`*^6", ",", "3.106106450299119`", ",",
"1.1640158349325225`*^-11"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"31.792112045883545`", ",", "1.571943520550506`", ",",
"202.37558705480637`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"18.81444674733016`", ",", "1.7051476319785681`", ",",
"584.6196557029693`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"15.966125939800532`", ",", "1.959267697454513`", ",",
"780.5271884072267`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"15.27980124920563`", ",", "2.2329938489590595`", ",",
"803.0336478461703`"}], "}"}]}], "}"}]], "Output",
CellLabel->"Out[129]=",ExpressionUUID->"915743fb-ac7a-43d2-a7ea-49280b3a768d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{
RowBox[{"ListLogLinearPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"1", ",", "All", ",",
RowBox[{"{",
RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"2", ",", "All", ",",
RowBox[{"{",
RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"#3", ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "#3"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{", "#4", "}"}], ",",
RowBox[{"{",
RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"5", ",",
SuperscriptBox["10", "5"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "3.3"}], "}"}]}], "}"}]}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<R\[MediumSpace](km)\>\"", ",",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"\"\<M/\>\"", ",", "MSsymbol"}], "}"}], "]"}]}],
"}"}]}]}], "]"}], ",",
RowBox[{"ListLogLinearPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"#2", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"#2", "[",
RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "#3"}]}], "]"}]}], "}"}], "]"}],
"&"}], ",",
RowBox[{"{",
RowBox[{"mriSplit", ",", "Mmaxi", ",", "ci", ",", "li"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[", "%", "]"}]}], "Input",
CellLabel->
"In[131]:=",ExpressionUUID->"a20b90e8-1c61-4447-8b72-4943e4327aee"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[{{14.264880754990122`, 3.106106450299119}, {
14.264880754990122`, 3.106106450299119}}]},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV13k4VG0UAHDrzM1uxjL2sc0wyFaqT3WPSsm+V7JkSyESESFR+oi0WLKH
SqikhRakIkvJFr6SJWuiGWQpYr63P+5zn99zznvPc+9z3nPvVfQItPXm4uDg
mEXH33Mwv0lw3gVN2BdY7mj5CYONT71NVX01wX9O/rQZcur5Bupdc00g7twc
YoIc6Om8qKetCcFNXrgx8gtz+XfPRDWh0n/mkxGyTPFaHsxrgL3lL9iOLCA/
E9TYowE9/QFB/yAfOT+60/KZBrxUohwxQKZOvRfrztaA14IXFPWQhx0yRw9G
a4DcRtksLeT+dVseDR/SgGe67FY15J+MrJijOzUgwVb+mTIysbvEfEZVA24p
MfbJI+tQ7CXDMJSfeaWIguzzPG5o9TsDcP/oTBLyFQ+lO+daGfCosU1fALma
Tgngf8CAo+Myx3iRj/Oa6129yoBnh/Pxtf8waDYvmqecZIBb+65bi8gGxZxP
8vcxoA7LyWAiC1vsDab9wwCxknfC48g3Ep2078kyQLj5OqEfWaSOPKnPVods
onNIF3LdKZsbz7+qQxf3vHUz8r11THujenVYn9t4rRZ5PO4Voem2OpyPrNF/
hOzVWPDEMkEdaJma9GLkhyvu7t1+6jApM+SZhSzR07nO2VIddsdzDSYht5Fe
3x/WUYccXCE5GrkgfdnqKFkdPNuFPQKR/SR3/WAtqIHz4KK1G/LtEY/40P/U
IK3cwNwS2bdTUmb1uRpYLboZb0WmEahlcblqQBxR11JHvp+zwYAvRg164jx/
iiEfPsNXfdlDDQih3+LZvRhQttlulTRWgxbD5O5vyBtTqipz6WrgdkDyfTuy
uelXhgqfGijX0RyrkOe5g66XTtNBNkPFNedvfJ6TrdNGB+coldYzyFO7NV2r
KuiwaUj1ojuy6KvIJ9tS6ZDybWu0EbJCzRme+lA6vHZNuqiALDjx2NT0AB38
h8npKz0Y/LqdcaHdkA7ST4PPdCPrdWQ9d5Sng+IzL/o95HfNaiNfOOhQ/6Ha
LxY5dksRh+cIDUKu7FFzQA509SBNNtAgv7zcQBW5//xjycA7NPglsy9grhuD
ouh+4YVEGsR029ysRp4RlViOOEYDoh1XWRzyoZjEbg5rdD2iiu0eZMOjLgXx
ejSwF+09TER2IdxwFhCnQXlu+8M3HzFo9d9PuLqkCoNfP/05jXx3c1Su5GdV
uC68F9NBVrRaoOZWq0IHNpQ62IXBDqmMFKV8VfhqneGaiEw9Qv9WfFYVHOK9
5HSQKYn71bW8VMGA/edceycG8ZLNNg93q4KTaeYuP+S7S1yHNqmrgti9MgIH
cuT6cNtqflUwJKccv9SBgdHVRLoRUwWWCi4pSSB7Vp3qb2hXgWSR8cr0dgzy
6QEnTB+pwItM+dfCyPHi4aMf0lSgPtilM6YN9U9xgq7dKRUYbuQOnPyA+tEu
ZF+vkwowrcooe5Ej1ybsDm5TgYyglT35rRg8MghRGVRQgdF/V45NvUfzIzH2
rQeXCng2M35qIh+O2LdpfFQZ+N46bvJ8hwFdVzDkaKMyaIXXXU5uQc+/5Gr4
dIkyRPI2mJU1o/0sUborMEkZwiJtSl80YSA0OtwxG6AMz505RmoaMehoy5IL
sVGGQ35d1Iq3GPzTvKK8qK8MAZ2XY1MbUH9wzA2FSSjDVc8TUj71GIyAjvXv
X0owqEGepL9B/ZCndiyiTwn87azGu19hoC6wTn+lRgkMF3wWA+swaOB7kXP6
hhLUxsYz52sxkIv47+ZKrBJspWFXPWvQfAi/b3zaWwm+ss2uPn+BgX/DxvDl
PUpQLbIt+dczDBr1hbaEM5RAs9hFQPYp2t+nw6OXBJTgDTU+TrkSg5zQAztO
shTBoJJsLfgYA9I75ai5DkWIGx6o7K1A9UeGaYGPFaHwdcVITDkGnSOam6bS
FUGXJ2yCcA8DTlX5W4fDFWHxZWelTykG7tq2Pl8PKgK796ZaQTGa7079wQe3
K0Kjrcv8g5tof5YZ132kKkKN2d4HqQUYZH+MMLLgRvWsPrftzcOgZnPbVP0Y
FTbPPihozcLgDjfroWETFfry3ljIZWAwufO/hIpSKnTNQdfGaxjUSnV60JKp
8I9bMEEsBQPtbZ7aWYFUEDl1+dLjRDRv+0yGBGypcHmjxwg5Hs3PPn/v6A1U
MJPuM11/FgOpyr57TAkqjLCv97BPY8BMCbF6MacAod92uZ8LxYCQdjImvUoB
wpqnLlYdxyDcTLUxIFIB9IUVX6T6YsDQ6f+900gBrt7VFpP0wqBds31anKAA
6fmCEVtcMEjk+Rk02iIPtQv7ExcdMLA9OLq/PEUe7JYoWSaWGNyc6wsItZcH
snfzQ/XdGKxuToreIiUP3jo1l65twyBCQsD6V78czBjWp53ZgN4P4013HhbK
QdE6yudxBgYWz/3MjvjIwbO9pWKvqRi80W5comjKQbbJm4J1Ehh8KWjwrZ+R
BdqGlKgnfBgUdx1w9X0iC58t70DNGhHELx5P4IuQhUuEJlnKHBGalb/l39wu
C7OLrp+qR4kwIJZgu5lbFpLZYe0FPUTQ7uOxamiUgcTVwqnqRiIQFJZxsyQZ
UHSQKOB+SoSV7ez3zdYyYEEXmfUtJoJs5eMsEJeBjVPRnhNpROALGjQt/yQN
L6tmeI/FEWH7aGqkeJ40OLbs9mUFEqH4iPf7Ex7S0CKkc8v9IBFctG9+fEuT
hox/f1hUGhNBz6lKS3RKCuiW+6MH1xPBo/RMgE25FEgrNHd9kCDCbdVezQvB
UrAUMXr85CoB1ASU1io2ScHtu5wc9cMECO0RPtWxQgEHI/eq0rcECLL21x17
SQG9kSUXqRICeJepvpmOo4CWa6sNO4EAKvkRzRN7KMAgDaaYHSUAvd1nrJuf
Aiq9/LXTuwmwZ+f22so2Sdj/o2FjhxIBantyuBOvSUJ5jwFp4g8vcHDfDrTa
Jwk23Wdx2W5eWNHMaSbISELZ4fYk1zIUvz3xrXxAAvQ56+uyz/ACxT7/qWmh
BMTJ81a8suEFQsMVw15vCSCHcjrXKvLCEw+eKw7qEnB+rxchhsUDRS605YZp
cWjRuHxw4TkPOGW6Dqk9EAdzHtkrgud44OnCjS/RweIwXhd96akpDyj39L1s
MhCHWNlzkhNCPDBEaMkhLouB62P2cmI7NwRGbujaWiMGlTnkXRkp3GCQQJfz
jRGD+NJzxznMuSF2UjTvyk4xCAwpuFPNyw3jjMj5JwQxcNg/tfKmmgt+s89a
fm4mw1H3knyRIC5I8Xt2liuZDCWeZTr5SlyQfWaNpm9NBnpk5mJAByd4RM0/
DyKTISVUXj02ihNkxij19T0koNSaGAzQOGF9qTtbP4sEK8bZWFIrB0ysNaU2
uZCg7vgD8+tBHOBrauqQrEiCigq7J2QyB3i9M+NJGROFpLSBcJoXG2cfHLr/
pUQUZE8FNB7KXcMfXeol/xsgClGchzpInau4DR5Nva0vCg6D+Eos1yqusfNd
vNVvESgLefyNU/sP3igpGVzwUgQ0Oz40f9+3gvNbGB2tjRcBx0rb60VRy7go
v7ddm6UI2AtK78698RuPM/Bp46GIQHghs9/u1S+88NfDTN0GYXDilciyHFrC
E0KnVApchOHaaZNFhbVFnM2aTF37LQSro85vvWUWca/HJ2NI2UJgryt/qHnz
As4WsCW3GwnB8MDBH2zHefyMReFnN5Yg9LAKsXehP/E2DRpL65YgXLRY7vh9
fQ6/GLnnzR8vQZBX7W7xrZ3FC9NdfNd0BCHaRPKb0LcZnGY6SljiF4QnH1VS
mRIzuN9RZWv/3wKQMmaU7nmdiaOvXPbEqgCcmyIlOpF+4BHiUbkOCoKQfPal
3kzeFO54Mj3tgrcgbDHp46bu+I4vVTKF5j4Lgot9X5I25yRe4j3nditZCBxX
HzskjUzgv67t5/a7LAzaGsMhnvPjuOOBsCd5USJQt2UhN994HDdon7rzI1gU
nlI7F3wXxvBpnzSugXIS7Jh5dDPZYBwnjvNZ8ZHFQN5tUUrCdgJ3nJzbZ7hV
HHq2rrLjwibxmhciG+CNOGTwnfCLt5zGux1eU3bcF4fr4Qo2SyIsvEuqaWzA
WBzOdj499DV7Bj89qaWeXCcGu7Zy8f+2nsXpHzkq+zeLAW06pHOkfBbH9JiP
Yp+TwdFjE+t24yxuoiq5OGNKhsbutbfzxbO4+zXmBfhBApIg58tCt1lciSnc
WFNEgsylp9v//TODywxYNR07ToLxWiI8ujiD+yZTM1fsSaC7Xo4zR2oG/zX3
VYdmS4JlBs1mvxcLD8m1U7x7mARh9UShl3VMXCEhKn00mQSHjDzW9joxcTr6
a+muJYHWiY/Kx/9h4sui2XzWqP5DTLS7z5mJh2+NL5oSJAM5oTds+C4TbxJz
FfkuTYaKaaOU+3wsvE75p5WMBBkkBPYec9vHwrU6TujkEcgwRjD0Do1h4eSX
ClOz8ySQ9dt1cDWOhSsb+VR0TJBg+7h4mdUxFr7Fjb/kzDAJJujlxn8sWHiR
/yDLZZQEl2pyBKY2ovxjpLHRSRIQWkpMdLVYuGJh+I8vTBK0inTn/NFl4TJu
7ldaZkhQ3Vip8N0Qxf+opU2ySDAV1stRu4OFM/VGzVRQ/ovtjDsXd7Lwz9kx
1Qx0f8br25zeAwvvyJ23tUQWJrfdPbmdhXtKc/J/RDbqobzfjFzVpZYmgNYr
xeT8IOMsfNNr55YZFP/kHZKVhHx8WnR/JzJtxKPVG1n6wQHDv+sLNdVv6SFf
FWJrDCBHNnCJbELuKzm/4a+7tvEZ7kZ+W7vpYh+yZNhS6i5kM2bo0F+/z70j
Y4S8jZ186Mtfr9J1diD/D/5Omcs=
"]]}}, {{}, {}}}, {{},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{14.264880754990122`, 3.106106450299119}, {
14.264880754990122`,
3.106106450299119}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVlHk4FAobxele1QxZxpgZM8yMa0/lK2Xtel+iS2VJl0ohVCLZU5LiU/e6
slSyJCokuzsIJckeIWRfIkv2Pduk+Pr+OM95zvOc89/vOVJ2rmbnNvHw8GT+
1P995sPbV2elpHB385hHktwDOHO4hZxKksIi1m2XA28eQM1wqMvkL1K4g5gs
b3giEtToPdW7lth4Z1TnattKJNw5lSzpMcLGqqbDysS4KCCVt3nkd7BRlitE
I+pHQ+TsserVGja+0DXn5S5EQ4LCZtr+IjbmqY5WriXHgLZKs8PNDDbyO9qb
qFs/hHSTmPzyODbechZMbWPEgmrZft7NYWx85HKKu9YXC/ZKjw8Z3mRjwOWW
mNaURxBtFHsvxI2NusdBONg7DkbeC7Q32rLxs/4uOYPD8eAs3UgVPcbGNR7n
US25x0CLemlhocdG09PKnIgtT8BrMf7+w31sLCge33dz9gm43zha1yvHxkGr
2Bqq61MIrUjkYdPYWF+87dnk+FM4aW69x57ARht9zR3mFxKANvmo9MgSCzcl
+kq5TiTAfwXdyC0dLHSeE+Y3d0sEa963NieLWBhlMrxf+lsi7IrZktgfx8J/
a+0+Lf+dBMLrpd3nbrLwmaHX5LT4MxgQtCRM2bKwJmlST57zDMzdNXZ66LHQ
Sex2ZvmhZICdxfqrcixUH+tv+jyeDK7iqmY3CCxkun8ySwp9Dn99mjv66xQT
fbYk1+9QTYF33O16wR+YGFH4qfPpUApwE6kKwjlMNHv2TlwmKhUiMj99j4xg
oiJxEHuN0sCoM7qM4c1EUtcflDliOoQGmV1OOMHE0UlCwN8N6VCxVYAqr8VE
6bt9YXWRGRBpkJucKclEztnz10fsM+Fjkhx7Dw8T6cdPlfyingUxgXtvFw5K
ovOEHMGUlA2CXdEt+6sksUaq1JK7kA29TC6hPEUSjxEjf1Hu/heo9lNyfwRL
YozjcIfwWQ4kzM0q1DtLYo7h1ZcBfRwYN7woeNREEnVcvg8Fns6BuO6strbd
kihLiO/Y3ZcDi7bT1y3JkrhYfeLjc/tc8PPV29S/LIFnDzl2r0/lgusjjr19
lwSWfjtTbnEtD4LVSE9GX0ugUp2Fcj3/C/APU8i9+FgCey164v0SXkDXvfDY
WX8J3Jc15BCslQ9BLaXmnvYSeJ7IfU/qzofnQkIDy/oSeJ0iNKPmVwCOWUka
1xQk0OdC/ChDthAKUm+c/kGUQD+2TOVAcyEop7sf9J9mYO0tYkhW4EsYjJFc
3NTEwId1/oeeab4CrJq3vZ3LwFQkkaeWX4HDSdmQLZEM/Dt2TCDzZRH4eRW6
/HOFgUGR8m4C/q9hzNOZj9+Sgax+QrSqUTFwuZWHQ/YzkLv52vqf7DdQ4bGx
fxuLgd/3lJlEcN9Ada1oaygvA3GfhgOzqwSU19L4BYfpSPFxtZR5+xZqDJl9
odV0VJOIxQnzUqhKc9fflkbHL6FBb/5tLAUy01Qr5A4d5xMPxa0dKQOhbt5X
RBc6xper+I82lIGcl1NhkCkd6eXGxaFm5bBW+6vyZhU6btcMtyD0lENnUxs1
UIyO/Ge8+b0dKiDxwiXHjRVxXItpOjq3UgFWMl10325xzBzpt4oMqYSVhKe/
LReLo6OGhWygbBVEx5R4uz0Rx/LsGrvO8ipw2n1fYCJAHL1CyDEvzlaD9oG+
Truz4nhpaytJnf8d6DgVNXYfFMfKqvszgQXvYFN+0PBRRfGf/N6kFp2vAc+q
eUINvzj2MnWMfzBqIcSzaffvMzRc2lWn4N5eC7KRSkY5TTS8Hd0nphn1HuCW
0hGZPBpqFaZb+52qA+X1zcyoSBo+53yQt5Wrh1dlXM7mqzQco6l4CqzUw/bw
PQuXLWk4pcdmpzQ0gPar6oah/TT05tOcOpn+AXK5CbtMWTQkatp7Goc2gnKQ
63oRLw3XFEuijms1gQzclZUZpmKpV2zhsbwmaEhfD75TTUXtf7Jzc3Y1Q3kf
kudTqdhvPEMIymqGfjWT5D/vUFE9VTV1WvkjuFQFsAsuUfFbw9V+bv5HEPF1
Oy9mSsVQd55zldACf5YOmHvsoWIsn4XxuYYWWNuZUVdPpmJx65zAknUrqO6I
SpRZoaCA9xbHkMVW8LPRzfPpouD5pTFfvbA2cAvga617TUFK8R9pqjvaoU7n
fSf9MQVTvcqir39oB6nw6fvn/SkYITQo/5/LHfBFUbw5246CHV9eO11kd8KJ
Ugmbr3oUVLd4FGXQ1Al8WlV8e+Up+Ei949vArS6Y0coJdiNQcGbt0/xR7W7w
rpfmpE6KYYVTV3Pu926wFG3d29sghkcanHuYpT3gr/+mhcgRQ93xA/KcoF4I
/fjlwN77YmjpNxnub/EJCmKU1E94ieGTpaZHaYp90Ld7q423hRheVKHb/3wK
uDR2zC5MXQxD1cI8HT/3w70ffKNP6GJ4TpRxkmb3GSx150PSv5OxeT0krrP9
MxB7/Way+sj4WO/UQ3/jAXhhZ/s0rZSMOUfIXfTaASAYmOyOTyTj6Z16B3IO
DoLLtgzFoFtkdJP5wWf0bhB0Lu/ldzpPxtyiVd/lQ0PAM5JlqmtARlaumXB+
8xDEkv66JLz9576Yww4/NQxC/d4NLfxkvBij3fvP2DCM5ci03pkWxePTMey0
q1+gmvdVr1qjKLYvNR6b5R+BLxs+Gh0cUWS5J2pZJY5AnZW1iuN9UfQeEfw4
rzUK0waPCdOeokhWt6Okd47Cl3WctzUXxR6xlB7/q2PwXCWF/E5VFK9sOEe4
MMYhfEMsgkETRfuVITHHsnE4Fq/hb80lYcFEzjl7pwkYcEgbCusmoQKj2c2I
Mgku0W4vM16TUKRrT6No1SQ0WN2Zyosj4fLAgu8T7ylIG3E689yPhMxdxNC2
7dOwXfPaSIA1CcuCDEejBqah+kOSrj6QMO1uxuzb2Blor+xQnGWR8LaJi4aC
xSwQ5OJ1bvCQkCibLt5MmAOOYSJr/rMIZkg3XfBznIMrPqcMD5aJoKm0Utz3
2jkIHElUuZ4ggt/POu9WVpqH3+NddO8FiKCFtLjDQsg8hGbeqwm0FUG5l89F
2LPzMPggeIuZjggOulxzDzu6AA4Vzsrf2CJISZwgCr9YgJrDw9bXeESwdS9f
gCflK3wdM0tq6hfGxxKLHoFXv0KmPYn7rUQYD3ZXWm3u/grSAv2HV+KF8bbK
gcASzUU4QfS6UnH9Z7+M3uEYuwhjvx03sDoljOOeuQtlq4tAU5m4Xq4hjMQM
VdJ18yXY4V9aPUcVxvWpPQxDzhIMGdyNqZsUwhK6W3bb1mU44B9vrp0ihCfp
SgffWy+DgNXM/F47Ibwhr2pfl7MMBdaGEekSQmgztFrjw7sCSx1j1rHtghhO
iHrvYbQCA4MvAjbCBdG4TTPDNHLlJ1+9Gm0Ggng3+INwRufPnCcxSOEVRI2T
r0Ko1FXIN+5bf/tyG7JK3mlsN10FG5qPUb3rNrR5nebmHbgKtcmDbWpy29D8
DTkinLMKqu7KG+s9Auj3oX2a0LEK8g2GKcx7AkgUm+T4Lq+CoI+19gN9Adx4
tvWHnyAXFLVjRqy4/GiR1/xrNpMLmk4fY65l8mNldQlky3HhfxWM94U=
"]]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVzXs01AkUB/Chmd9vmHZPCBuDRhtFdjqRdj3m3g6RR14dbCkHJQqRHrPN
0jaLJLY2UUotyRZ5FEezy9JOu8hjzynCVtNw8pjRbxjkMaxof/1xzz2f8/2e
e3lRiUHR2gwGw4OeT9vpSHeBqJKDza2PodpqAd4IjfypcA5uXq2usKYdIZRv
rV7FwegvxKad3AUwj3cdaXuii7EfHmQF6S6AeuzgHUGyLr78oT35R/U8LMeY
1Rpa6mLi0BEb2/Z5cI/2LQ/p0sEgk5sbbW7Mw9Ng07crz+pgXA0/MC5yHrbc
/Unt8ZUOQv3nxpT5PPiEn3U0fsPGAcbam7XdGjh+QFyYl8XGwRyfO4MpGqiy
4fvKHNm4ti4z+r6ZBljArf9smMS0AY1g16M5sInoawi+TOJvbtItlu5zEJr4
9P2IgMRd2W/c8zpmQaL99YnFMQLT+ksqLL1mYZEnbxkoJHDAolAeIZ2BjrLt
ASofAo+sV6fNbZ6BY5WKwPNLLFQtJ4UXFU5D+kZ/oWMNC5069m6y1ZqGlBUj
TpdiWOgddK0uNeo9VBToOfrwWFj2/LDBJekUyDK8f945wMSsplpxPHcKRCKR
JLeEiUXF4/3fCCfhkvL6ybh4Jh7PNGqPLZ0Ac538mGAB3ZdzNhzdr4bVVT0u
FiZMzLTM2ZfGHYe4rgvX1FpMVKa71RAjKiA1c2LP+RVo2vMn2dtAQTp/KlCX
Qd+/6b7zu5J3cPjM+vEwLhOTOZ7k4dujIH/mnBEVwMTR4qv6hx4r4d2a5tna
X5gYulsSI9NSwotsWTKwWbi1Z9nD8ZQCpLL/7Msv0DYILvrLWgGnPf++DuYE
Vtu9DhSsU8AOmVkHVUfgRbecNdrJCjhVW3eS60Li4LErZXkGSrDbllF+tYTE
EKZCv0bz6Z/3LVk/iSUF6259vzwKohW5sdFTJIrVWQo9LQo0fN8rw29JtDKx
F5nIKeBzU3gzDSQ24qhnWIoKequcx00zSZz0ck2P7FNBzB9x7Rf8SXRYyVaE
q1UQlO+q32lK4p6k3Fcdz1TQuv8f88YpAjP3nmnbkK2CsZEzzQm9BGr+tbnr
Z68Cm9PJ9dI2AoPlz2MZMgqWXvebjHUQ6GHIS83OpWA6ILzG6yWBT47v/t0h
mgKrNvcPExSBeG0oti+E7ldxYvZ9ILC3/UunF1EUtA9lT5eTJM6yBZKmVAom
DQmBNYdEXo5hWf91Chr22A0fZJN4IGxYt7KSgsqXpROvtEm8cdE2cXctBY+O
LuQtLREYluk3UVdFwUdmaELLIoFuh3of+P1KwUCgMWc9/e8yEcLUL6IgxzY1
4yHdPyRq3Zt0iwIXy8mxoWUCvWJd71nQ+bnz60ItPxIorZ5q9rpNQZeIZ9BC
5wVNRjyLEgpOdPqfSKBteF9S3ETnKXoJfpG0+QEKyWbaO+pWCVNod0YlOujT
ri4l7LJpb5od7t5Ge4NRfsU52mq9+kZf2g/vOYeJaSuF3z7YQft/tTIM3A==
"]]}}, {{}, {}}}, {{},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{3.459218210145335, 1.571943520550506}, {3.459218210145335,
1.571943520550506}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVjmc8FQwfQAvZ4y73mpXxSKVCKKv/X0ZkJFREVkhRZPRkhFRGkcxSkVIk
pXEzGkSyiWRcJCuysq9xkfd5P5zf+XiOlLOXhSvbunXr8v/j/64yW8VWVxoO
HDerCb5rBz1zC6Eix2iYYpvvFdV9Asqokx9sDWlYoO1k3LLTARowfy5dnYYr
tDOZYQccgcdBbFv/Nhqe/6H82nbNEQ47j9n+I0FDrVJPDstPTpAyORXtLkBD
t6X1uz5HOsPNnBl67l8qUvb8bOC2OQn1O+kdE5NUrMs2fnt9twsIBkyzlPqo
+IwRIv6K5gr7Jk7T/JupOHHgScvgBjfYb9+ys6icir81Ci+l/XWD+9wDuPyW
ihy3CwtM2dzB2UDfdF8WFYWaKq19iKeBJP3E8vJtKn6l+9FjFM6Aw+Vsyy9R
VHxD3lolY+UB7dJjJlyBVBwXt4j+EuUJ4nd44aAHFR1Odsiw1Z0FceadrbF2
VCz9Yad1QdwLNm6Q5W8ypeJ8yuYHjtreID6qNEQCKup3xR2umPOG2WidwiOK
VDz+kPcxvj0P2jJ1IXekqLhHhPZzR7APzHZra3WRqPiParbxuIkvTKevm5Tk
oOI0y8OjR84PqiV9UhyZwhju/0TSi9cfWgMHlTKHhFG1R+Y716I/6CU/KR1s
F0bydWqF2NQFyM6c1pGvEUZNsxy5jbP/Qtn86tsz74WxUDDiROz6AGAenhZ5
kSuMv9YL6oyIB0Kk/LDn5H1hTH7jaFK0Pwikfk+8VLopjL1jKSMRF4JBwnVD
n2+oMK6t7n/9u/ASHCwRW8v3Fsakhqwnvlyh8MCfwLPoJIylYr90B5XDYCmB
vqpuKYxUQ6m4mpEwKPMq6wrSE8bNJzeUFj+9DKRnAw+LVf/7U0/Ml/AOh/rJ
PLM1OWHMjEo7qI9XIHY1sxdFhPF3bWnEXdGrYFuy7Wg4jzDa7ttYfWXlKowV
JL0oZ1Fwr5XDrOfINbh4QnSQY5yCaqYauZW9EeCq08LS76ZgoKxCGOdAJKh2
V45HfKWg3uPardlTUZAf2lRU9YmCT+yNy+V5r0NfzRs77tcUHOZpWSYo3oDx
FcE2w0cUvNQZ4TTmHAPVEvbS0YkULFDpvmuUGQvJvsx9NVcp6Ch/+Xn59E3g
kmDbynOBggccJjYFb7kF1onXug1PUXApW9mvsvsWmBdY2URZU9DAqVeTdj8e
Lh8lp1YZUTBlE9+jaucE2Hl+dyqnJgXbaXple5UTgXt+8oi+AgWN2Xxqa3iT
wOWaSd0VSQrWJWTv7R9PgsICQWaZIAVvZN1ljjOSoTb849e1NTLGGl1MtGlM
gcjiO5ba02RUK7EIuN90G0zY00MC+8kYIK8hvqv7DpibBx4s/E5G10ApxVvM
VJgWjXk9+4WMzB0TQ7pi96D2WPeLXQVklKhMkWsxvg9bv4ure2ST8bBNbGXT
9TQwXUkyybpDRpvZb22N7emw/apKX280GRusKoYLRDOgMT9gUiyIjGzn1Jbk
GjPg2W0vLytPMnbIvtwbG/MQLp3NtY49QUb1J6Lu+y0ewc5gvUcVZmQkcZNI
mZszYRNf9f5VIKOy3658ocVM0P1XVVFFiYzGrSLj44zHEGO36HBGmoxdtbTE
zPInYLLGqHxAJqOeQOpyRlEWUBqZ1i0cZLTVTiUfK8oGWuFHHu55Eu4T33Nb
q/wpZMZ31mn8JqFxzlftho4cKLHeE+/JIOGr3KPT0SvPQM7618G0GhKuN9Ne
Xtz+HHrahEbq35PQ7rOCZpb7C2h/yjq+nEvCrqIJZxl6HhALxm7Kp5GwIqGQ
wMH5CljVEj5WN0nIcOdSWXr3CuSUX0yFhJJw87zCoXL/17CcEs/M9iYhh4nL
ZKH6G7CSvnym0YmEIT1kSUVOOoDB0B6mBQllYkp8orroEJZRqSeqR8KDGpX6
Uu/fwtXVNxc0VUl4pxDL7B/lw6mK3Ne2cv/1lxa5cpIK4A2VyAigkfDc+lBL
z/hCUFq5VpvMTcJjfzhFRFOLwH+h7dTLJSIetguVkX3+DiSDemMqR4m4vSi2
hLPuPZD1zlO6uoio+nS+ft/8Byg7u719vJ6I7T33psx2FsOClnvucjERnyrG
ZJX4lsCGBKIr10simhn5uIlVfYLVsNBWoQwi8j3k7Q9IKoVnP4/UUeKJeLHt
y+cpkzLYXGdDooYTcXQhpx8EPkMcGvmSfYnorCvFXtT6GVSG8uj8LkT0t7PP
fp5VDlKh9OT1R4ho2LpRwi/sCwx7/mmf1ieiZ8+68FMnK+C17Q7VbjUiHqAV
NPcfqoRvxYYu5VuI6DVCH9QzqAKb3h7aYxEiJjcwz08aVIMlXfpvCA8RG/5N
5D9gUQN2uxNKLVkErCjKlKW710K0Ygm79BgBaekiy2nX62Akdc1tpIuArUfv
JvsV1cMc566rOfUE1LFVysuaaYBhHbtJp2ICmo9xp2WpN0KkSYAaKY+ApS7B
aXMGTWBnztn3Lp2ABg9v9s4sNMGJl2Ve1nEE5M2QauB99Q1iOsHuTygBd+58
Jhbo1QwloSkiF70JqGIh5hKq9h0KSLOCi44EFBkT2HB8QwtEa+x+6HmYgAp+
tjNGP1rg45CffKsOAclNpTfiPrTCj4ScOUVlArI6Mk57ZLaBs6yUSag0ATvO
HZLcmNQOoZLcHp9IBHyjTp/9HcsAU5vJ8Ck2Aja8ZT3mju+ApeVYP5khIaw0
fcf+Ka0T5NReHNOrFEJ1yWNphm+7YCnSqV4nSwhVjHMs+lp+wM9u/TbRCCHM
PNo+8HmtGyToeva1rkJ4yf6Pj6xqD7RmnFI6rC+EjOwg1n2NXjATerSWKyuE
7w5KfxXt7YXzHSnHGexCeIQ1fnvjjT648uno2+/9gigy4pRbotkPrJiN9vfK
BPGVnudp3pl+cCglRipkCCLYsrcJ5g3AlRamxtUQQeQK99vS6vUL3k2OOj6w
E8T7GmNGznsGIUdf+X2ghiC+3N9sX8AxBKd7xnpJIoLocjdQsb59CNoXJwxc
mAJIm6rNuPPqN+wqeqji0SyA/I8DhHjjhqFt23CVzEsBlGm2LeDyHYH4SJnZ
6BsCuFfDjf283Si4nzQPTj0lgDYvLEYljMfgirXGiqmuAN6Islbq2DcOOt6/
uh9tFMDpZo+S03v+gMMSt33iEj/KjNR1R6pMgPrpzutiLfx4PPVjTJ/qJAww
lnR35/Hj+Fqpc4zkFIz9ytNgRPKj591G976HU0A44jvD7sSPs2sN3+hbpmFD
bFPZK3V+HJBoTy/Nm4a9Ro+/M4j8mK41l1isNgPN5gz5CyN8GFv2Z8X60wzc
ikm9G17KhyrTdSHqhrOQcEmkeyGFDzui/s6vNs1CoP1KeKMnH76W1jinbTMH
weQL69n386EPf6V4ZO8cMC4q5N+g8mF0p1q4sxsTOIBz2HmUF30Yto8PjTIh
ZNdY++ViXvyk4HykymMeasxzS/rieHHc/eQzzdF5oEeSu4KceLHNOS9KxHUB
VMNPBRkp82LXYK/Nl64F+MblxqPHxovpQ5SBDNNF0InhEHH9xoOdxld0+N8v
grGAhG/WAx7cPTzO77x5Cbx/GSixneXBk7sDHqyELkGw+e5qH3Ue/KBbEabG
WILhpG8ysxw8mK7Jw/SQZ8Hg08LSkEZudKR15qx4seBe8vZaYio3Xq5JuGSa
xwLN/RFaOU7cOP1y/kRtPwu2rwvl193Kjfc9tdSG+Zehs1LX6uckFyqGqA7J
KSyDcZxdZFA+Fz6d2qFJxmX4sSkmTyKQC22VZfoNDZfhf8rAMtk=
"]]},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0WtMUwcUB/Du3ttWyCY6RSSACFhTBIxYaOgGnmMKAxkhY6tEthGDo7Yr
GkDlJYUmKwgDVB6zTBodIBuIgmsdCI7xGiBhMh6OhxElY7ARLOUC5dHCZHcf
Tk5++Z+TnOS4nIn/WEqwWKwApv7vE84F9Y6XufjZUbepkJANUP4mqOsO4OJh
dX3opcANqM5eLlKyuHjTuTpR4rMBnk5TphOdHCwJ+ulqi90G9HiPSUVqDv7+
VU3hDaMF2m0DjVFiDiacrFVONlngBaGubSU4+MuiRa1PtkDPH9dUqg42Ovns
XwS+BV432S83q9g4ba8dGe43g9VDoVdxABt50lbVoMwMOvc0T58NCtNgqrVp
dR3aInuEI00Ucl+5mXnp66AdSC1pSKZwX4XOrX9lDe5E7b7l6kuhOsiqLkO2
Bpat3vfSTCRy4gYSXIZWgep2eMZvIFH8eelIi4CxT25vYwqJ7uta//jCFSjs
Xi7o9CfRcyHDfHHWBPx9gnBrNokegkd2BwJM0H574mDCEIEy3HvCfH0ZtA5J
RVuVBK6qYi4VTy1BScN0ztJlArUD7emPhUvw3fisa8OnBNYetV5LvLYIPwgU
+TNiAp3O/KvbfE0DT/ehIsyPwMzJzfLlCBrGyh9nPxERqMLx0sYrCyCW06uO
oQTGjKZAWo4R7ot6z9UqCPQlcsIu1M/D0LFHf01rCRyftn5nF3se9EKld+0E
gXlCfWzuDQMkvfxkW547iVZ79MPnvzRA50tXO7mSxF9TC/yO5RggJSs1kugn
MfPvrq5KowEM2r3dFe9SiMJu581v5qH/qkmk+IBCou8uvyzWCM8H3zTvlFL4
hcaGH4ELEFVWZebFU+iVFC0/yKZhf5zkjr2cwuIWzZbiJA25lvSxeQmF4h+L
MzzyaLgYFC7d8z6FqZG9NVaVjCW2p9qcKTTd3O0YXE6D5qPEryVcCv3kfR7n
82lY51f+7LJC4mLVk5CBOBpe6W0b1uZIbNdlD20PpSHymapsZpbEqC6hrNqL
hvunAx8I50nkxf7ToXGg4UHM0+w55v99ASkaqS0NR5pnXOo2SUw9V1TBtadh
1Lfme8tbFB7yj46ec6EhKZ2z+SdJobHGcmX1EA1LjY0KDuPScMedt4/QsOM4
y7LIotBGqY+lvWkQT3qW8bZI5Jq7kgOZPKy3asfZNySmr1k6XjD30MO0TsP4
cMXxt8960iDbVbnuyMy3TT3PFDMWmSV3LzCW3YvKHWT8MEsQnsJ4e0S+IZDZ
Xzot33aK8T0192kk44LpLCqIsWi0le/LOCHjW5tgxtq50GBnxv8BTt/KwA==
"]]}}, {{}, {}}}, {{},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{2.934625018740901, 1.7051476319785681`}, {
2.934625018740901,
1.7051476319785681`}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVjmk4lQsbhZXCnt79OkkiTYYQImOGnoeiDEXGRBKVIZI0l5QiQ/sQxzyE
hISQQpxkCG0lRHF2kimZiRTafH0/1rV+3Ou+rrXJ2dvi+HIeHp7nf/L/PsDG
69OEIH7PVj6Sz9WGkkTSgKAI4hYq90vBZV0Qcizmk+UVREEJjRM/aAA5j37X
7uKSuFJHtmWPHUIrzzN/x58kTu7Xn2vW0APTxRz1S1Mk8hbUCW7brA/j59KG
okZInNBsE+NduwsOBh+Oyx8gcdrEvmB23W4oa0jRf91NYnhf3YkKRQMQ09/8
ra+TxAjFGHPSzBBE8lKCF9+TGNrnHFh6bQ+I3m2QWNtEYlePWUrgi73gp2NW
ptJAol7aVVNLpjE0v/y0d381iTbUmiGBMyYwniTc6lZBolJ278aEQVM4pZhs
dfMZic8+rGDx++yH1GeU5uQCEk3GVQof85uDg8f3XaU5JMLWyPXdPeZQWtX3
uDWDxBQFi+Gs+gMwGHx81VgKida1e3qyyiygJ+ynF388iWy1uB2BpZaQc/2v
yk1RJD5Ne/ljvNYKqDHSfDqsP37OgHtytzXklSfq29wmMaPoaIEFxRamLFp8
T98gkX/ZhApH/yC4iK+LD71CIre4VZNg2cHngvrCjHMkis3e8G36dgimCoT+
feFN4obbrxKotg5go6bxvMOdxAMEXexFx2GI+Hko+7sLifORAU+mTh0Bwish
iO5IYnV0xBpHlhNUHFxpJX2QRE0PdmTaqaOwqjqRiRYkRs/f6O+yd4b1q81L
7UxJvFuy7v1Taxc4f5R3n68hiZ/r17xpczgG865Bb+4gibVdepYTPsdhAxGn
lqlFIl/FmWs10SegraEvqFKVxL7N4xfXvnYF46PLKjsUSTwtuZVSS3eHczfP
fJqSIdFomd3mtKMeYDyX3kWVILEqfuvlhIaT0P7660sJcRKbPF1kMvW9IOjb
+Vs6a0iUZrqa1TefglctvtLWgiRuFWUe49c6DV4C3RleNBLbuE/G3wr7gJtb
KjdwJYmc9e3B+5d8gMuectBZYqL/7fnzMjNnoNdQzMNzmolDz4SceWd9YdlE
qXjSIBNNeEY54SvPgU9jwJlGDhOn44lXtyXOQ4ldm/P8OyYqOzxvzje/ANI/
K77J1DLROc+d8Z51ESIMprg2pX/2rxdOvOVcAsZsdeKtXCZqNV7QD9C+AmZj
G8sLU5k4GFpE7c27Ck5PWFaf/2GiaejaL0Mq1yBPWNSJGsLEqt0XNTOa/OGm
nHO7mh8TOUHTdf9UXocHlOuPnHyY6GrsF21+/wYEL/F1hh5nYlFG9ujGqAAY
8pm3LLZjoqz/hPPD8JvgpssW7NrHxD0G2VIx8bcghLuLf6U+E4NXXfZIKgwE
G9YdGXl1JpLbJ8cudwRBaPQqdws5Ju4YKfOZJ4Ih2o1VfmE9Exl8B1TGrUPg
0Ns+waS/mNhBjwhUzQ+FKCn5w5V8TBxI32lfInIHpi1jWT3zBIpmbej1jGFB
TbRb5PIJAn+/cdh8UCYcTLzH7Db3ERhaKdlS6xoBvhL2LfiRQLG34swIw7sQ
xG7tP9xIoF/ctnuSypFQu8zI/1Ilga5YL7NJJgpU9niHRj0hcN+/Anfl5f+B
hKi88UdZBD5y2uIyqxsNms9XRFUnEmhYG6yl4RgD2f0/HT6GE3iLYbqzkBUL
Ea8ClIZvEmgrT/lH6W0cWJZ9n5i/QGBeWO5wmHgCsOs+XqF4EjjmfWg4wz8R
asuGilY7Edgs0N/qNpMEhfLDPhusCIy+6LO85WoKdPKEREnvJfCb2+m6KXoq
kMt0J+V0CEye+j5h9zUVqJNqjvJKBPocv5qr3JgGDziShXKSBH71614kK9Lh
W5DEcykRAutNb0TGlt0HzeTQPeJ0AqcFstd61WZAqjlbUpCHQB3tDY/0uh5A
WPNO0WUzDOyO5ko1rcgCH/eF0dFBBla4Oie0aWfDQ69sxzYOA4kPUY833nwI
Tf46CiXvGOjno7gmmJMDkzXdf0XXMNChTPnXsEEuvDNKfuVVwkDNWnRTrcmD
3mfbfuIjBmbqmvQdsnoM5xQqrYh7DCzPandW8isAPq/0oPZIBrIs54/J2ReC
la6QUkwQAw2HpAwe7i4CkZGRcbPLDGzZJh6gp/UEMkqM7JefYuBWy4Twv3WK
YZeyEX/eUQba3IsSUTF9CjbPH1wzs2bgXG6pQaf7M+i77Gw4tJeBolsv8KjE
lIBjqeOnSzoMPPk+V2O+pRRipHlLeJQYGPBjldSU+HNoKqze7SfBQLeJ7RG9
l8uhkb9oZFyYgXG9/5LpQxWwo5+gWFP//AsmzegnX4DJy5rJfC4dDT5Op/Ly
vAS6Qe/owiQdfwi/UK1qewnbeMR0tfvpKBncFqBdXAUfZ6SEPT/ScYuSlORM
SjUYuKqmsdh05KRHVvpE14DtEcOFlH/pGLldXxzjasF7RajqvQI6jvw+pDKZ
9QqUGrLMWPfpqJzZuU3kVR2Yp9L03GLouO+I0hXLyXqI75MaVwyhY+bGt8X6
cq/hSHeq/JcrdEyyoWeH+bIhIyS86vIpOjomtGp0vmmEly53nbhOdGxJi9Tn
qL8F47GpnBOWdNyzuvecYVET/P24VPGpAR15144xhjc0w+j9x8cHNegoLNUx
snGyGSR+uxcvyNKx02QmS4bdAn4j6u6TYnRk7JkbcMlvhTdGjPIaBh0tzz3s
Uk9+D3utfRt8l2h4u1VLiD+2DRIdbWMWJ2lYMryGqp3UDmdT+wjnXhrKpedy
duR9gC8OxjxJ72m4zimxzYP9EYbzbojl1NJQWWR0SnWmA3KPM6ZDntIwqfqH
7aLcf2CqkTmnmUlDCfVPhVu9OaC4NHO9OIaG81oKNzZUfQILbY3SuSAaiib7
2ezY9Bk8VkzlrLxAwyvchF9t4d2gPh4N7Sdo+FtsoTQj6As8cVFQP25Dw/iB
yOUzpj3QuWXlliIDGjps/xDIFe2FT9bON0pVaXjsyCeH3slemHDXCT0rQcOK
hQN9L5r6IKZyhX2vIA1HA04tPizuB1Phs1+4S1SsT1WwLk4fgNkD/p3VY1Sk
hq++Phj3FfTiDT/Ic6h4unRAyiB2EE5eUtPQaKBipDZVsC75G+RLasl3FVMx
meOlYZc7BHL/SRavTaOicrpsWW/1MDwZVkkavEPFHwGFH7R6RsBmb7O/3kUq
SjR59sjzj8HI84CGTS5UvB/hLn1edRzKi7XyA/ZR0TU8pavWbQKUWTUajhpU
bAy5GMY5MAm8hzO18zdSkXGposPz+yQseBw+6kmh4ujkvsfvo6fgcMfU5sgp
Clq2G3FqtL+Ddj39nUgnBbO/8W8f7PsOJ9mBYXOVFPS7StfoYk1D0d5rBxUy
Kah7U+m91o4ZyG4UEsoLoyCP68ym0IEZCDavuuZzmoJUvdyDxpE/4Np5B/S1
omBclTF7YucsLNZRxnM0KCgiuJ/ZPzwLDbfbSEFRChpFqJkFRf+E9YuWCikL
Ahi75Pp0685fEL9z9xvjTwJoldZEbuz/BTVfdtxiVghg6TlWWmbQHNydC1wx
kCCA9i2daxYk5yEm0W1T7UUBbDv/ssbixTzcai7peWAtgJd0Wma7DiyAgYfo
3zeVBfCwn13s688LEK3LrLahC6CJe1cPHvsNGX9PXFv7lR8PxZ619e75DaMR
6np1L/jRI2GgNcCaC/fi7EQOxvzhnV2VeZVc6ODGVLE9+XHTna+eshsWwVZ3
e52oPj8qDoR4a/ouglBsUbKBMD/G51n+JVu+CB+y2tqMhvhQk72u2nZ2EeL6
hbS2lPPhmFDCaWXJJVB4xSG7w/hwh5ppj9ruJYgpSjY9a8+Hq9LTPsxZL4H0
29D2EVk+PNTKXi1rtwT/AxCQS+w=
"]]},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBkQNu/CFib1JlAgAAADgAAAACAAAAJs2K1espBkBa0soVKVn/P0lRv9hM
9wVADDX0N4hN/z9HT1smocMFQKOIL0L2Mv8/BxhroPWOBUDaurT+bQn/P41g
J75aWQVAxIQwFAfR/j8Tz8Qn5SIFQDKmqdr2if4/ahsbcK7rBECb0xzzkDT+
P1al9vHVswRAg46Zo0fR/T8oUJDYgXsEQLVlJAesYP0/DxNZW+BCBEBqPk0c
buP8P+r1qjYpCgRANUdYx1xa/D9ilb5rn9EDQHTwz99lxvs/bxCZUpOZA0BY
NzBolij7P2dU5wdlYgNARYPsFxuC+j93+Ro9hywDQA7CWGNB1Pk/XncoaoL4
AkCCfH9AeSD5P0cBAlH4xgJAe0Ze7ldo+D8pKLunp5gCQM6IIxicrfc/TIYO
jm9uAkByXjS8M/L2P5R9xyFSSQJAo4IuS0Q49j8N3o8BdSoCQLexj2o1gvU/
nmr9wR0TAkDl7t+SvtL0P+bt0jOnBAJASBgqF/cs9D8JW5HragACQAFtZaZm
lPM/MvZVKZkHAkB6PiwnEQ3zP5jGn0j5GgJAKmxb93Kb8j9HrNrckDoCQGrd
VmNZRPI/HCX/cDtlAkD1h1x/eAzyP4BisrhSmAJAmifpXpz38T8eIB9un88C
QOecs49rB/I/TqicIc0FA0B8z2jN9znyP4of60RpNQNAWPowjr6I8j+Zs+BF
G1oDQGV0NOTj6PI/pPKbzYxxA0CAYLuD/UzzPwjKjA2newNAhdu/Fd+n8z8+
cJeLM3oDQBNnep1G7/M/qRSEvDFwA0A96yynfh30P1BInFMrYQNAZAbIjLYx
9D/N67LVplADQBmgiMhXL/Q/mIXJOrdBA0Dk+SF4xhz0P+ZDXZ+eNgNAcn9K
Y+IB9D+GvuQLhDADQGYVg1155vM/qZQeYU4vA0BSH/4nztDzP5CvJ/XBMQNA
QDppA2rE8z8C5TRo8jUDQMnJeNCPwfM/u0wOaPE5A0DCsIzlpMXzPzUKiJ51
PANAPZdXIpHM8z/e/8nULD0DQDEJm4uP0vM/z+s7sZg8A0Bfm41gldXzPzfA
21uWOwNASzuXCqzV8z+Aieb72ToDQP4dORg61PM/YvC9qKM6A0AL9OdXz9Lz
P0WXSEDKOgNAzOclJTrS8z/CmeWzADsDQEXmtEVf0vM/buAZaBg7A0Diuv/J
ttLzP6vXiOcSOwNAdCVt4eDS8z/R6pwR
"]]}}, {{}, {}}}, {{},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{2.7704693491920294`, 1.959267697454513}, {
2.7704693491920294`,
1.959267697454513}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwV1nk8VVsbB3DzObtXqUu6ChE3lYxJIZ51UcbciEyZDjJGKKEkJJSQmWTK
kDJnynQyTznGOg2GiBTKUDJkeJc/9md/vv/svdazfvt5tiDFVc+WiYGBoRZf
W3fFlLWx6X4CjVOnrvXbHYSFJ9eubjmBhRJSUC0CVCnK5hS2RweDe57QYfge
aR645TcduvEbaUdggpmJYculn7o8vsochbvDg1e/Yfd4M+W9+iQG/rzeo1+x
bWS2Sy5kSQAt2fj0lnXr4yo2GiRhoHsldRJ7kq+LdqpeCu4Pd819wfa0eM12
nyYNF1PQiS27tF+ndU0fA5HqUvcJbMsvrLxLPMfBMyswYxxbfG1TjmQiCzH9
a82fsUVGzdO255+A/kc2g2PYNGOfD4e55MDOYnF8FPvZh3SfsEh5qKIPDn/C
lv+LgddL6BTsoJ9qH8FuYu31UKYpwluhw0+GsR3+5LkbRAFICz1zGsJeKQ9W
SKhEwGteJjiI/VGT1iZT/i9wMcg0fcD2Px3qQm9QhtaeVd332IpCpEXrERVY
0aK307EDfPXTOtlPg5zq1SNvsV//I722XfsMhF/wdB/ANj7tVCqXogbW3bZp
fdhxsr7el1k0YHtVWUkP9mN94Z/v/DSh60FHDg37gQZTfe0ubahbHfJ9jR1s
pXLvSvVZ2OZ08FgH9uZIAZ/Jrf9AmvK0uRU7YgeH7lr+OSgVNDrWjD28WOo8
90wXVDvZfBqwy6RWq0bK9YAqbxtPxWYbUlXO7zsPZ8vXQ2qwQ0Vzr2ls6sNI
/L/aL7FZH3ZulihegMUv9sNl2NR0u8SlcEOgHQs/VYLNzNs6I/PLCAJfJVsX
bDlZ+26iiwnQmXTPPcNW5z7Rb7tpCoSd7GYWdrSjvsT3HDOw4XvinI5txHOZ
Kd7BAv5UVcQkYx96eXppNsMSfJ0NPeKx3bIGgsVSrSBE8SBLFPbzEYkc42cU
yHCJVA7DNhfntb7QbA0yDrmH72L/FL0gwDlvA//81Cn1w+ZntLF+IH4JVEqY
hry29h9an9l7yw7S4/88dtvKz95CqbUxe4h+yz7vgG1P7uORv+gIyzI13VbY
Y9qfjnRMO4HrnNAxY2xZndTV9ajLYHt2mfPcVp76PRgUzrvCKwFvxzPYH7zv
jazHXQEfPU/xU9hc1H4/+yg3sIxVN5TCjtGgRBQnu8OSfO3Hf7BjRY3KX5Z7
gLXq3hIebP3AxR6X0atwIOyvHnbstWrv0td8nnDpe8WRzT58vsK6m0PO10Fl
u0/5HPZNWf7Fmm4v0L8mYDeK/VfTRbsYNR+QOlEk0YutVUt+nvbmBtDF3Zhe
YSvmOyZL3vCFtTBaTz42m5JWcbacH3TYO9xPwu7u9tmuGHobCvR+CN7FFnxD
WnsU6A9l9N2BV7DpVt+1GsICIJMWnWy89b7uArvwrEDgr2Ez/Re7TbO6aJp2
B377fMsVwR7IcFHsJ+5Cjp+fBzu2p1FAurZhMOw50pw220ugir6b9S6VIXDH
woSnF/uzRnKxpfg9cHd3bSzCbl0ZSjOpug9+i4WB4dicKU97ss0eAOnSUUVH
7KTRqsQMnggoCJXtVcGeBBfqyPVI2Bii7N+HfYNDXKThykO4najLOtdDIMqw
0GE1ryhAR1LNG7CvD1ioa0REQ8StZpYobIsa/fDC8hjwdFihmWOb8TUquMzG
gr7ptqhD2AHjDwKC5ePhmqmSwGw3zmM7XZ09MQE4I45qlGCTjpcs8rIngdyN
6Pdu2CpL1WpTMY9AqUTqkRj2/m8k2XKZx/BCJV5/gkagF0+iPw7MpIAVy++2
BGygdJdfsEgD3r8XKtSw2w2TUoYM0iHquuPQfBfu59vYKa0mGcB6UXU+Dvu+
e7H5pMsTcHUWy5HF9p1ayuSNzgSvO5YFPa8JdPq3faReWxb43KAU22C31Eza
+nPkgBlRZ7DQieulx7xc4PAUcsOrFLyxF39r6c7Sc0EhkmNjuYNAJYppNram
z0FdK1rKDfvc4NlGlcU8OGw0YTPajvNtPWLUlV0Ad4S4BTSwqw8c4n5+sgic
JlXHc9oIpOMkynlAtBhsvymJrrcSqHxS7EewaAmEUrns1LG7gzsLM+RfQLJY
HmNoC4EQx8dgZeNScNXUuljXTKB7pwVOKoeUAXsOX/dkE4HusMz5BbeVg9pS
6VMW7I1x2RDmfZVQtHJbjKsR71dO/b8Xt18C0kHxuxsIZNL0gjNttQreKl7m
ItcTSFL1Qu1IaA0Yq6S1TlEJxD2YoRIrUQecFjMtNXUE6vfdtXN+hgpxasf2
+dYSSG9nRX7C6CvY/siNeqSGQHdbdZR739eDHo0pramKQJVBjwu7RxqgvXIw
UeMlgaY399eo/2oErh0N3pUVBKrvNspZ3tMM4OT8h6OcQPGBbPBEqwVecOa3
6ZQSaJfzyjRnZCs4Bd7x8ighUJ32gTK+L21AokuG3yzC+Tmoe+KRTgc8n5D2
si8gEK//fIRLRyfIzGhEHM/D9eCaOulv0oX76aXdY7l43oTH9zdu0sBk4aGM
cw6BgtoM5+LMeuBTUt96byaByFL6xcNnemGwftNuVwauxyoho3CqDxBbtM6h
VHw+J+MUpZT6wT7P9QpXMu4Xt3pX1M4OwFOeJy79CQTaVtgeTXZ8AxFD/J2U
WAIl7hKtWY95C1YilyepDwnkYz227wWNDgGrFOavD3B+46SLS/e8h0sDjQrv
QnF/bnDYHX7lAzAeWg55EESgX502ue3vPwJ3WHktiz+uJ/969uz5IQj8kR0k
fxPPg22pu4NGhqHn4l4b0et4XkvynwtS+gRik/Ul/W4EykwPzPLlHoXmNas0
CWfcL2/kBU4sjcLl6AoJhUsEMtC8GrUwNgYhhvKyCxYEcn5n+t8b+mcokuIw
PWeM58PooGDl23EoWubh1tXD6610N6sbmQDBk1yFs5oE+urjIcX88wtQNXtP
iajg5/VbBifs/Aq+fdmZC/L4+zkQ1RN08hsIf15L1JbG/xtyAU0tjlNwppg/
ReIwgWqv1u3SzJmGrEERhrj9BOJjDWOe+z4DzunaQ9678fnMpewPVfoBEr6m
gm+2EYiIVaUOJMxCX1pEcPomGe00kBmAW3NgkFz16N1PMjI+0GLwUGYeTFh7
qj0myUjSWTFbYHYedom38Th/IKNPvzmUMvMXoFiKv67qNRlNFeeWtbj+BCub
yHtGdWQUINCndPD4L8h5Ga6oVEhGfRW90vrrv8AwW9jTJpWMRkeiXw60LgKP
r39lYzgZFd1PCeeP+Q0Jhbwe+r5k1ESJ/ppktQRheSEsHE5kFJfMEZIlsQyz
LRv104ZkdHA5eCFsfRko69kbYyp4vUcth6I6VqA2tYjzuzgZ1Z4Q6ZqJXQW2
JBUHJh4yKrslNtNk/gdgxej2PiYyMuyg71UQXgM233vrklMkdH6CT+HSxBrY
v5suVeglobsqfhUG6etgyMlcIVNBQnJqF1U5DTeg/tWq+e5kEtp32ex9Jusm
sJ6XotD9SCikZWB4R94mxG+TH71KISEGokv1uTADytNu8PmqQkKJ89cllF0Y
0GcuQUsxYRJi27B3Ol/CgK65BzoDMwlF+ujec5xjQD5FXkr7RtnQwfqpgb8P
MaKdvm/062rZEMfz/Xm/jRiRGVVLQiSRDdXdp37ODGBEf7M/9DDwYENN6h92
0jIZERG0tkdTmw29k/zeLEJlRA6xvTEkYTYUxp1Y4dHLiCqOJvFFrbIinndC
zbc/MiJbRePx2W5WJBr3v1HRIUb0f5aXfGA=
"]]},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVzn9Q03UYB/DvPp/NDFyOIzmiBLIBow2uIo5DpedRW7WIHxIHDBisIQ4o
JU4TbrrO2ADlxJ0n4NHAC9L0shMoFjGDqDAToyQccKUmtM4AhZK2D0zm+vrH
c8+97nmeez9P68ozignHcfF8PezFSWrnwi8ilDf7T8lvCNB+sLck+pQI62zi
Ce24ACXktENVKcIPWsPmQy4JMLjz2ruFKhGu3bdGX9wpQPnxjLADISIsMQ1M
5lkEqI8PEn45K8S5Ta27n9UL8IxlT5LMLkQ2tix+LEGAayLrLi0eEmL2XlVZ
po9Dx96ieswWYszl5oD8QQ5jn99nfSlCiHGJkcZGA4ffXHD2RS1SzDCaX3w/
lsOYbVXiLd9SNDV2y7L6fCBP3BVzw0JRJ+9tMfr7oNQbXVFQSFHdeUf7R+YD
GN0SbU58jmJt17/X157wwqKDyJYIxdCWetvPYysQZ5x0bZokeCh+ZcRfvAIz
OusPg10EDYN+f999+T5wspMRBQ0EU9OvJfxu9MBfJs/wqnKCrYqdxGxfBs2s
s3Yoi2D/cuW9ee8SlGrNr5xXEqwQ/+esSV6Cu+oGP8dmgr1eaWj4GQa3n9wt
lyYRPNFU2UTXMTjWrSIvvErQW7NjdLTFDfDn9qOCPILD0jZPykY3DJkuft1f
SfBiwuE3nB4X5P6UdtZkJSgMUE/cvOmCKlW7RPM9wd/WlX6RctsF+QZNTf0c
wZCtruCpADdYqhuGwiUUw4aDpuNz3KDWB/lGYihuziy0Sbvc8LhgcPzAVopR
WllispiBpsXt+TCF4rR8l29nEYNG5bJwJY3fvyJWnzvLoK3YlL0/mWL//juz
6RMM4q4q7tfx9+nhzUuSeQbbKxRmWwJFrSht4LMFBpbAioVcPs/1RO7nv04x
gKsdfRhBce7RpsyuKwwGfhwNKgqnqHDkKd/uYeC3KpUbD6VYPhMotrUzWP/V
6k+uh1F85k3ranszg7fKGs5t3EARu/co7McZHGkLcX8qpXh+xu+UiZ8HZsWK
UyMpHplmGpuVwUHdjsJbvB+ppveUHzH4p3uk+vRD31I8sHYweF3X2rOed0HU
O0e/4z0j2Rbcw//3Xk9HyWU+v4rqNxzjrXEYPh7j75+y1IraeecYRPnlvCfz
IOcC79fKlCdreP8PKvBzrQ==
"]]}}, {{}, {}}}, {{},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{2.726531776402839, 2.2329938489590595`}, {
2.726531776402839, 2.2329938489590595`}}]}, {{}, {}}}}}, InsetBox[
TagBox[GridBox[{
{
FormBox[
TemplateBox[{"\"PolyEos(0.05|4/3.)\""},
"PointLegend",
DisplayFunction->(StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.368417, 0.506779, 0.709798]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.368417, 0.506779, 0.709798]], {}}},
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 -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.368417, 0.506779, 0.709798]|>,
"RGBColorSwatchTemplate"]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.368417, 0.506779, 0.709798]|>,
"RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
TraditionalForm]},
{
FormBox[
TemplateBox[{"\"PolyEos(0.05|3/2.)\""},
"PointLegend",
DisplayFunction->(StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.880722, 0.611041, 0.142051]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.880722, 0.611041, 0.142051]], {}}},
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 -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.880722, 0.611041, 0.142051]|>,
"RGBColorSwatchTemplate"]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.880722, 0.611041, 0.142051]|>,
"RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
TraditionalForm]},
{
FormBox[
TemplateBox[{"\"PolyEos(0.05|5/3.)\""},
"PointLegend",
DisplayFunction->(StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.560181, 0.691569, 0.194885]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.560181, 0.691569, 0.194885]], {}}},
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 -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.560181, 0.691569, 0.194885]|>,
"RGBColorSwatchTemplate"]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.560181, 0.691569, 0.194885]|>,
"RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
TraditionalForm]},
{
FormBox[
TemplateBox[{"\"PolyEos(0.05|11/6.)\""},
"PointLegend",
DisplayFunction->(StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.922526, 0.385626, 0.209179]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.922526, 0.385626, 0.209179]], {}}},
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 -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.922526, 0.385626, 0.209179]|>,
"RGBColorSwatchTemplate"]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.922526, 0.385626, 0.209179]|>,
"RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
TraditionalForm]},
{
FormBox[
TemplateBox[{"\"PolyEos(0.05|2.)\""},
"PointLegend",
DisplayFunction->(StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.528488, 0.470624, 0.701351]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0.528488, 0.470624, 0.701351]], {}}},
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 -> "Arial"}, Background -> Automatic, StripOnInput ->
False]& ),
Editable->True,
InterpretationFunction:>(RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.528488, 0.470624, 0.701351]|>,
"RGBColorSwatchTemplate"]}], "]"}], ",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}],
",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",",
RowBox[{"Dashing", "[",
RowBox[{"{",
RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",",
TemplateBox[<|
"color" -> RGBColor[0.528488, 0.470624, 0.701351]|>,
"RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",",
RowBox[{"{", #, "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}], ",",
RowBox[{"{",
RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
TraditionalForm]}
},
AutoDelete->False,
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}}],
"Grid"], Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{1.6094379124341038`, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TemplateBox[{"\"M/\"",
SubscriptBox["\"M\"", "\"\[PermutationProduct]\""]}, "RowDefault"],
TraditionalForm], None}, {
FormBox["\"R\[MediumSpace](km)\"", TraditionalForm], None}},
FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision ->
15.954589770191003`, RotateLabel -> 0],
Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
Automatic, Automatic}, {{{2.302585092994046,
FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
FormBox["100", TraditionalForm], {0.01, 0.}}, {6.907755278982137,
FormBox["1000", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
FormBox[
TemplateBox[{"10", "4"}, "Superscript", SyntaxForm ->
SuperscriptBox], TraditionalForm], {0.01, 0.}}, {
11.512925464970229`,
FormBox[
TemplateBox[{"10", "5"}, "Superscript", SyntaxForm ->
SuperscriptBox], TraditionalForm], {0.01, 0.}}, {0.,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
0.6931471805599453,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.0986122886681098`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.3862943611198906`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.6094379124341003`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.791759469228055,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.9459101490553132`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.0794415416798357`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.1972245773362196`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.995732273553991,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.4011973816621555`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.6888794541139363`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.912023005428146,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.0943445622221,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.248495242049359,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.382026634673881,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.499809670330265,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.298317366548036,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.703782474656201,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.991464547107982,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.214608098422191,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.396929655216146,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.551080335043404,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.684611727667927,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.802394763324311,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
7.600902459542082,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.006367567650246,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.294049640102028,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.517193191416238,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.699514748210191,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.85366542803745,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.987196820661973,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.104979856318357,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.903487552536127,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.308952660644293`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.596634733096073`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.819778284410283`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.002099841204238`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.156250521031495`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.289781913656018`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.407564949312402`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.206072645530174`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.611537753638338`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.89921982609012,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.122363377404328`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.304684934198283`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.458835614025542`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.592367006650065`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.710150042306449`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{
2.302585092994046,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
4.605170185988092,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
6.907755278982137,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
9.210340371976184,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
11.512925464970229`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0.,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
0.6931471805599453,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.0986122886681098`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.3862943611198906`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.6094379124341003`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.791759469228055,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
1.9459101490553132`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.0794415416798357`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.1972245773362196`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.995732273553991,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.4011973816621555`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.6888794541139363`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
3.912023005428146,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.0943445622221,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.248495242049359,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.382026634673881,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.499809670330265,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.298317366548036,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.703782474656201,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
5.991464547107982,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.214608098422191,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.396929655216146,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.551080335043404,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.684611727667927,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.802394763324311,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
7.600902459542082,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.006367567650246,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.294049640102028,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.517193191416238,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.699514748210191,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.85366542803745,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
8.987196820661973,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.104979856318357,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.903487552536127,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.308952660644293`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.596634733096073`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
10.819778284410283`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.002099841204238`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.156250521031495`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.289781913656018`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
11.407564949312402`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.206072645530174`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.611537753638338`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
12.89921982609012,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.122363377404328`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.304684934198283`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.458835614025542`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.592367006650065`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.710150042306449`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}],
GridLines->FrontEndValueCache[{
Charting`ScaledTickValues[{Log, Exp}], Automatic}, {{{2.302585092994046,
Directive[]}, {4.605170185988092,
Directive[]}, {6.907755278982137,
Directive[]}, {9.210340371976184,
Directive[]}, {11.512925464970229`,
Directive[]}}, Automatic}],
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{1.6094379124341003`, 11.512925464970229`}, {0., 3.3}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision ->
15.954589770191003`, RotateLabel -> 0], Automatic}],
InterpretTemplate[Legended[
Graphics[{{{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.368417, 0.506779, 0.709798]],
Line[{{14.264880754990122`, 3.106106450299119}, {
14.264880754990122`, 3.106106450299119}}]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.368417, 0.506779, 0.709798]],
Line[CompressedData["
1:eJwV13k4VG0UAHDrzM1uxjL2sc0wyFaqT3WPSsm+V7JkSyESESFR+oi0WLKH
SqikhRakIkvJFr6SJWuiGWQpYr63P+5zn99zznvPc+9z3nPvVfQItPXm4uDg
mEXH33Mwv0lw3gVN2BdY7mj5CYONT71NVX01wX9O/rQZcur5Bupdc00g7twc
YoIc6Om8qKetCcFNXrgx8gtz+XfPRDWh0n/mkxGyTPFaHsxrgL3lL9iOLCA/
E9TYowE9/QFB/yAfOT+60/KZBrxUohwxQKZOvRfrztaA14IXFPWQhx0yRw9G
a4DcRtksLeT+dVseDR/SgGe67FY15J+MrJijOzUgwVb+mTIysbvEfEZVA24p
MfbJI+tQ7CXDMJSfeaWIguzzPG5o9TsDcP/oTBLyFQ+lO+daGfCosU1fALma
Tgngf8CAo+Myx3iRj/Oa6129yoBnh/Pxtf8waDYvmqecZIBb+65bi8gGxZxP
8vcxoA7LyWAiC1vsDab9wwCxknfC48g3Ep2078kyQLj5OqEfWaSOPKnPVods
onNIF3LdKZsbz7+qQxf3vHUz8r11THujenVYn9t4rRZ5PO4Voem2OpyPrNF/
hOzVWPDEMkEdaJma9GLkhyvu7t1+6jApM+SZhSzR07nO2VIddsdzDSYht5Fe
3x/WUYccXCE5GrkgfdnqKFkdPNuFPQKR/SR3/WAtqIHz4KK1G/LtEY/40P/U
IK3cwNwS2bdTUmb1uRpYLboZb0WmEahlcblqQBxR11JHvp+zwYAvRg164jx/
iiEfPsNXfdlDDQih3+LZvRhQttlulTRWgxbD5O5vyBtTqipz6WrgdkDyfTuy
uelXhgqfGijX0RyrkOe5g66XTtNBNkPFNedvfJ6TrdNGB+coldYzyFO7NV2r
KuiwaUj1ojuy6KvIJ9tS6ZDybWu0EbJCzRme+lA6vHZNuqiALDjx2NT0AB38
h8npKz0Y/LqdcaHdkA7ST4PPdCPrdWQ9d5Sng+IzL/o95HfNaiNfOOhQ/6Ha
LxY5dksRh+cIDUKu7FFzQA509SBNNtAgv7zcQBW5//xjycA7NPglsy9grhuD
ouh+4YVEGsR029ysRp4RlViOOEYDoh1XWRzyoZjEbg5rdD2iiu0eZMOjLgXx
ejSwF+09TER2IdxwFhCnQXlu+8M3HzFo9d9PuLqkCoNfP/05jXx3c1Su5GdV
uC68F9NBVrRaoOZWq0IHNpQ62IXBDqmMFKV8VfhqneGaiEw9Qv9WfFYVHOK9
5HSQKYn71bW8VMGA/edceycG8ZLNNg93q4KTaeYuP+S7S1yHNqmrgti9MgIH
cuT6cNtqflUwJKccv9SBgdHVRLoRUwWWCi4pSSB7Vp3qb2hXgWSR8cr0dgzy
6QEnTB+pwItM+dfCyPHi4aMf0lSgPtilM6YN9U9xgq7dKRUYbuQOnPyA+tEu
ZF+vkwowrcooe5Ej1ybsDm5TgYyglT35rRg8MghRGVRQgdF/V45NvUfzIzH2
rQeXCng2M35qIh+O2LdpfFQZ+N46bvJ8hwFdVzDkaKMyaIXXXU5uQc+/5Gr4
dIkyRPI2mJU1o/0sUborMEkZwiJtSl80YSA0OtwxG6AMz505RmoaMehoy5IL
sVGGQ35d1Iq3GPzTvKK8qK8MAZ2XY1MbUH9wzA2FSSjDVc8TUj71GIyAjvXv
X0owqEGepL9B/ZCndiyiTwn87azGu19hoC6wTn+lRgkMF3wWA+swaOB7kXP6
hhLUxsYz52sxkIv47+ZKrBJspWFXPWvQfAi/b3zaWwm+ss2uPn+BgX/DxvDl
PUpQLbIt+dczDBr1hbaEM5RAs9hFQPYp2t+nw6OXBJTgDTU+TrkSg5zQAztO
shTBoJJsLfgYA9I75ai5DkWIGx6o7K1A9UeGaYGPFaHwdcVITDkGnSOam6bS
FUGXJ2yCcA8DTlX5W4fDFWHxZWelTykG7tq2Pl8PKgK796ZaQTGa7079wQe3
K0Kjrcv8g5tof5YZ132kKkKN2d4HqQUYZH+MMLLgRvWsPrftzcOgZnPbVP0Y
FTbPPihozcLgDjfroWETFfry3ljIZWAwufO/hIpSKnTNQdfGaxjUSnV60JKp
8I9bMEEsBQPtbZ7aWYFUEDl1+dLjRDRv+0yGBGypcHmjxwg5Hs3PPn/v6A1U
MJPuM11/FgOpyr57TAkqjLCv97BPY8BMCbF6MacAod92uZ8LxYCQdjImvUoB
wpqnLlYdxyDcTLUxIFIB9IUVX6T6YsDQ6f+900gBrt7VFpP0wqBds31anKAA
6fmCEVtcMEjk+Rk02iIPtQv7ExcdMLA9OLq/PEUe7JYoWSaWGNyc6wsItZcH
snfzQ/XdGKxuToreIiUP3jo1l65twyBCQsD6V78czBjWp53ZgN4P4013HhbK
QdE6yudxBgYWz/3MjvjIwbO9pWKvqRi80W5comjKQbbJm4J1Ehh8KWjwrZ+R
BdqGlKgnfBgUdx1w9X0iC58t70DNGhHELx5P4IuQhUuEJlnKHBGalb/l39wu
C7OLrp+qR4kwIJZgu5lbFpLZYe0FPUTQ7uOxamiUgcTVwqnqRiIQFJZxsyQZ
UHSQKOB+SoSV7ez3zdYyYEEXmfUtJoJs5eMsEJeBjVPRnhNpROALGjQt/yQN
L6tmeI/FEWH7aGqkeJ40OLbs9mUFEqH4iPf7Ex7S0CKkc8v9IBFctG9+fEuT
hox/f1hUGhNBz6lKS3RKCuiW+6MH1xPBo/RMgE25FEgrNHd9kCDCbdVezQvB
UrAUMXr85CoB1ASU1io2ScHtu5wc9cMECO0RPtWxQgEHI/eq0rcECLL21x17
SQG9kSUXqRICeJepvpmOo4CWa6sNO4EAKvkRzRN7KMAgDaaYHSUAvd1nrJuf
Aiq9/LXTuwmwZ+f22so2Sdj/o2FjhxIBantyuBOvSUJ5jwFp4g8vcHDfDrTa
Jwk23Wdx2W5eWNHMaSbISELZ4fYk1zIUvz3xrXxAAvQ56+uyz/ACxT7/qWmh
BMTJ81a8suEFQsMVw15vCSCHcjrXKvLCEw+eKw7qEnB+rxchhsUDRS605YZp
cWjRuHxw4TkPOGW6Dqk9EAdzHtkrgud44OnCjS/RweIwXhd96akpDyj39L1s
MhCHWNlzkhNCPDBEaMkhLouB62P2cmI7NwRGbujaWiMGlTnkXRkp3GCQQJfz
jRGD+NJzxznMuSF2UjTvyk4xCAwpuFPNyw3jjMj5JwQxcNg/tfKmmgt+s89a
fm4mw1H3knyRIC5I8Xt2liuZDCWeZTr5SlyQfWaNpm9NBnpk5mJAByd4RM0/
DyKTISVUXj02ihNkxij19T0koNSaGAzQOGF9qTtbP4sEK8bZWFIrB0ysNaU2
uZCg7vgD8+tBHOBrauqQrEiCigq7J2QyB3i9M+NJGROFpLSBcJoXG2cfHLr/
pUQUZE8FNB7KXcMfXeol/xsgClGchzpInau4DR5Nva0vCg6D+Eos1yqusfNd
vNVvESgLefyNU/sP3igpGVzwUgQ0Oz40f9+3gvNbGB2tjRcBx0rb60VRy7go
v7ddm6UI2AtK78698RuPM/Bp46GIQHghs9/u1S+88NfDTN0GYXDilciyHFrC
E0KnVApchOHaaZNFhbVFnM2aTF37LQSro85vvWUWca/HJ2NI2UJgryt/qHnz
As4WsCW3GwnB8MDBH2zHefyMReFnN5Yg9LAKsXehP/E2DRpL65YgXLRY7vh9
fQ6/GLnnzR8vQZBX7W7xrZ3FC9NdfNd0BCHaRPKb0LcZnGY6SljiF4QnH1VS
mRIzuN9RZWv/3wKQMmaU7nmdiaOvXPbEqgCcmyIlOpF+4BHiUbkOCoKQfPal
3kzeFO54Mj3tgrcgbDHp46bu+I4vVTKF5j4Lgot9X5I25yRe4j3nditZCBxX
HzskjUzgv67t5/a7LAzaGsMhnvPjuOOBsCd5USJQt2UhN994HDdon7rzI1gU
nlI7F3wXxvBpnzSugXIS7Jh5dDPZYBwnjvNZ8ZHFQN5tUUrCdgJ3nJzbZ7hV
HHq2rrLjwibxmhciG+CNOGTwnfCLt5zGux1eU3bcF4fr4Qo2SyIsvEuqaWzA
WBzOdj499DV7Bj89qaWeXCcGu7Zy8f+2nsXpHzkq+zeLAW06pHOkfBbH9JiP
Yp+TwdFjE+t24yxuoiq5OGNKhsbutbfzxbO4+zXmBfhBApIg58tCt1lciSnc
WFNEgsylp9v//TODywxYNR07ToLxWiI8ujiD+yZTM1fsSaC7Xo4zR2oG/zX3
VYdmS4JlBs1mvxcLD8m1U7x7mARh9UShl3VMXCEhKn00mQSHjDzW9joxcTr6
a+muJYHWiY/Kx/9h4sui2XzWqP5DTLS7z5mJh2+NL5oSJAM5oTds+C4TbxJz
FfkuTYaKaaOU+3wsvE75p5WMBBkkBPYec9vHwrU6TujkEcgwRjD0Do1h4eSX
ClOz8ySQ9dt1cDWOhSsb+VR0TJBg+7h4mdUxFr7Fjb/kzDAJJujlxn8sWHiR
/yDLZZQEl2pyBKY2ovxjpLHRSRIQWkpMdLVYuGJh+I8vTBK0inTn/NFl4TJu
7ldaZkhQ3Vip8N0Qxf+opU2ySDAV1stRu4OFM/VGzVRQ/ovtjDsXd7Lwz9kx
1Qx0f8br25zeAwvvyJ23tUQWJrfdPbmdhXtKc/J/RDbqobzfjFzVpZYmgNYr
xeT8IOMsfNNr55YZFP/kHZKVhHx8WnR/JzJtxKPVG1n6wQHDv+sLNdVv6SFf
FWJrDCBHNnCJbELuKzm/4a+7tvEZ7kZ+W7vpYh+yZNhS6i5kM2bo0F+/z70j
Y4S8jZ186Mtfr9J1diD/D/5Omcs=
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[0.368417, 0.506779, 0.709798]],
Point[{{14.264880754990122`, 3.106106450299119}, {
14.264880754990122`,
3.106106450299119}}]}}}, {{}, {}}}}, {{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.880722, 0.611041, 0.142051]],
Line[CompressedData["
1:eJwVlHk4FAobxele1QxZxpgZM8yMa0/lK2Xtel+iS2VJl0ohVCLZU5LiU/e6
slSyJCokuzsIJckeIWRfIkv2Pduk+Pr+OM95zvOc89/vOVJ2rmbnNvHw8GT+
1P995sPbV2elpHB385hHktwDOHO4hZxKksIi1m2XA28eQM1wqMvkL1K4g5gs
b3giEtToPdW7lth4Z1TnattKJNw5lSzpMcLGqqbDysS4KCCVt3nkd7BRlitE
I+pHQ+TsserVGja+0DXn5S5EQ4LCZtr+IjbmqY5WriXHgLZKs8PNDDbyO9qb
qFs/hHSTmPzyODbechZMbWPEgmrZft7NYWx85HKKu9YXC/ZKjw8Z3mRjwOWW
mNaURxBtFHsvxI2NusdBONg7DkbeC7Q32rLxs/4uOYPD8eAs3UgVPcbGNR7n
US25x0CLemlhocdG09PKnIgtT8BrMf7+w31sLCge33dz9gm43zha1yvHxkGr
2Bqq61MIrUjkYdPYWF+87dnk+FM4aW69x57ARht9zR3mFxKANvmo9MgSCzcl
+kq5TiTAfwXdyC0dLHSeE+Y3d0sEa963NieLWBhlMrxf+lsi7IrZktgfx8J/
a+0+Lf+dBMLrpd3nbrLwmaHX5LT4MxgQtCRM2bKwJmlST57zDMzdNXZ66LHQ
Sex2ZvmhZICdxfqrcixUH+tv+jyeDK7iqmY3CCxkun8ySwp9Dn99mjv66xQT
fbYk1+9QTYF33O16wR+YGFH4qfPpUApwE6kKwjlMNHv2TlwmKhUiMj99j4xg
oiJxEHuN0sCoM7qM4c1EUtcflDliOoQGmV1OOMHE0UlCwN8N6VCxVYAqr8VE
6bt9YXWRGRBpkJucKclEztnz10fsM+Fjkhx7Dw8T6cdPlfyingUxgXtvFw5K
ovOEHMGUlA2CXdEt+6sksUaq1JK7kA29TC6hPEUSjxEjf1Hu/heo9lNyfwRL
YozjcIfwWQ4kzM0q1DtLYo7h1ZcBfRwYN7woeNREEnVcvg8Fns6BuO6strbd
kihLiO/Y3ZcDi7bT1y3JkrhYfeLjc/tc8PPV29S/LIFnDzl2r0/lgusjjr19
lwSWfjtTbnEtD4LVSE9GX0ugUp2Fcj3/C/APU8i9+FgCey164v0SXkDXvfDY
WX8J3Jc15BCslQ9BLaXmnvYSeJ7IfU/qzofnQkIDy/oSeJ0iNKPmVwCOWUka
1xQk0OdC/ChDthAKUm+c/kGUQD+2TOVAcyEop7sf9J9mYO0tYkhW4EsYjJFc
3NTEwId1/oeeab4CrJq3vZ3LwFQkkaeWX4HDSdmQLZEM/Dt2TCDzZRH4eRW6
/HOFgUGR8m4C/q9hzNOZj9+Sgax+QrSqUTFwuZWHQ/YzkLv52vqf7DdQ4bGx
fxuLgd/3lJlEcN9Ada1oaygvA3GfhgOzqwSU19L4BYfpSPFxtZR5+xZqDJl9
odV0VJOIxQnzUqhKc9fflkbHL6FBb/5tLAUy01Qr5A4d5xMPxa0dKQOhbt5X
RBc6xper+I82lIGcl1NhkCkd6eXGxaFm5bBW+6vyZhU6btcMtyD0lENnUxs1
UIyO/Ge8+b0dKiDxwiXHjRVxXItpOjq3UgFWMl10325xzBzpt4oMqYSVhKe/
LReLo6OGhWygbBVEx5R4uz0Rx/LsGrvO8ipw2n1fYCJAHL1CyDEvzlaD9oG+
Truz4nhpaytJnf8d6DgVNXYfFMfKqvszgQXvYFN+0PBRRfGf/N6kFp2vAc+q
eUINvzj2MnWMfzBqIcSzaffvMzRc2lWn4N5eC7KRSkY5TTS8Hd0nphn1HuCW
0hGZPBpqFaZb+52qA+X1zcyoSBo+53yQt5Wrh1dlXM7mqzQco6l4CqzUw/bw
PQuXLWk4pcdmpzQ0gPar6oah/TT05tOcOpn+AXK5CbtMWTQkatp7Goc2gnKQ
63oRLw3XFEuijms1gQzclZUZpmKpV2zhsbwmaEhfD75TTUXtf7Jzc3Y1Q3kf
kudTqdhvPEMIymqGfjWT5D/vUFE9VTV1WvkjuFQFsAsuUfFbw9V+bv5HEPF1
Oy9mSsVQd55zldACf5YOmHvsoWIsn4XxuYYWWNuZUVdPpmJx65zAknUrqO6I
SpRZoaCA9xbHkMVW8LPRzfPpouD5pTFfvbA2cAvga617TUFK8R9pqjvaoU7n
fSf9MQVTvcqir39oB6nw6fvn/SkYITQo/5/LHfBFUbw5246CHV9eO11kd8KJ
Ugmbr3oUVLd4FGXQ1Al8WlV8e+Up+Ei949vArS6Y0coJdiNQcGbt0/xR7W7w
rpfmpE6KYYVTV3Pu926wFG3d29sghkcanHuYpT3gr/+mhcgRQ93xA/KcoF4I
/fjlwN77YmjpNxnub/EJCmKU1E94ieGTpaZHaYp90Ld7q423hRheVKHb/3wK
uDR2zC5MXQxD1cI8HT/3w70ffKNP6GJ4TpRxkmb3GSx150PSv5OxeT0krrP9
MxB7/Way+sj4WO/UQ3/jAXhhZ/s0rZSMOUfIXfTaASAYmOyOTyTj6Z16B3IO
DoLLtgzFoFtkdJP5wWf0bhB0Lu/ldzpPxtyiVd/lQ0PAM5JlqmtARlaumXB+
8xDEkv66JLz9576Yww4/NQxC/d4NLfxkvBij3fvP2DCM5ci03pkWxePTMey0
q1+gmvdVr1qjKLYvNR6b5R+BLxs+Gh0cUWS5J2pZJY5AnZW1iuN9UfQeEfw4
rzUK0waPCdOeokhWt6Okd47Cl3WctzUXxR6xlB7/q2PwXCWF/E5VFK9sOEe4
MMYhfEMsgkETRfuVITHHsnE4Fq/hb80lYcFEzjl7pwkYcEgbCusmoQKj2c2I
Mgku0W4vM16TUKRrT6No1SQ0WN2Zyosj4fLAgu8T7ylIG3E689yPhMxdxNC2
7dOwXfPaSIA1CcuCDEejBqah+kOSrj6QMO1uxuzb2Blor+xQnGWR8LaJi4aC
xSwQ5OJ1bvCQkCibLt5MmAOOYSJr/rMIZkg3XfBznIMrPqcMD5aJoKm0Utz3
2jkIHElUuZ4ggt/POu9WVpqH3+NddO8FiKCFtLjDQsg8hGbeqwm0FUG5l89F
2LPzMPggeIuZjggOulxzDzu6AA4Vzsrf2CJISZwgCr9YgJrDw9bXeESwdS9f
gCflK3wdM0tq6hfGxxKLHoFXv0KmPYn7rUQYD3ZXWm3u/grSAv2HV+KF8bbK
gcASzUU4QfS6UnH9Z7+M3uEYuwhjvx03sDoljOOeuQtlq4tAU5m4Xq4hjMQM
VdJ18yXY4V9aPUcVxvWpPQxDzhIMGdyNqZsUwhK6W3bb1mU44B9vrp0ihCfp
SgffWy+DgNXM/F47Ibwhr2pfl7MMBdaGEekSQmgztFrjw7sCSx1j1rHtghhO
iHrvYbQCA4MvAjbCBdG4TTPDNHLlJ1+9Gm0Ggng3+INwRufPnCcxSOEVRI2T
r0Ko1FXIN+5bf/tyG7JK3mlsN10FG5qPUb3rNrR5nebmHbgKtcmDbWpy29D8
DTkinLMKqu7KG+s9Auj3oX2a0LEK8g2GKcx7AkgUm+T4Lq+CoI+19gN9Adx4
tvWHnyAXFLVjRqy4/GiR1/xrNpMLmk4fY65l8mNldQlky3HhfxWM94U=
"]]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.880722, 0.611041, 0.142051]],
Line[CompressedData["
1:eJwVzXs01AkUB/Chmd9vmHZPCBuDRhtFdjqRdj3m3g6RR14dbCkHJQqRHrPN
0jaLJLY2UUotyRZ5FEezy9JOu8hjzynCVtNw8pjRbxjkMaxof/1xzz2f8/2e
e3lRiUHR2gwGw4OeT9vpSHeBqJKDza2PodpqAd4IjfypcA5uXq2usKYdIZRv
rV7FwegvxKad3AUwj3cdaXuii7EfHmQF6S6AeuzgHUGyLr78oT35R/U8LMeY
1Rpa6mLi0BEb2/Z5cI/2LQ/p0sEgk5sbbW7Mw9Ng07crz+pgXA0/MC5yHrbc
/Unt8ZUOQv3nxpT5PPiEn3U0fsPGAcbam7XdGjh+QFyYl8XGwRyfO4MpGqiy
4fvKHNm4ti4z+r6ZBljArf9smMS0AY1g16M5sInoawi+TOJvbtItlu5zEJr4
9P2IgMRd2W/c8zpmQaL99YnFMQLT+ksqLL1mYZEnbxkoJHDAolAeIZ2BjrLt
ASofAo+sV6fNbZ6BY5WKwPNLLFQtJ4UXFU5D+kZ/oWMNC5069m6y1ZqGlBUj
TpdiWOgddK0uNeo9VBToOfrwWFj2/LDBJekUyDK8f945wMSsplpxPHcKRCKR
JLeEiUXF4/3fCCfhkvL6ybh4Jh7PNGqPLZ0Ac538mGAB3ZdzNhzdr4bVVT0u
FiZMzLTM2ZfGHYe4rgvX1FpMVKa71RAjKiA1c2LP+RVo2vMn2dtAQTp/KlCX
Qd+/6b7zu5J3cPjM+vEwLhOTOZ7k4dujIH/mnBEVwMTR4qv6hx4r4d2a5tna
X5gYulsSI9NSwotsWTKwWbi1Z9nD8ZQCpLL/7Msv0DYILvrLWgGnPf++DuYE
Vtu9DhSsU8AOmVkHVUfgRbecNdrJCjhVW3eS60Li4LErZXkGSrDbllF+tYTE
EKZCv0bz6Z/3LVk/iSUF6259vzwKohW5sdFTJIrVWQo9LQo0fN8rw29JtDKx
F5nIKeBzU3gzDSQ24qhnWIoKequcx00zSZz0ck2P7FNBzB9x7Rf8SXRYyVaE
q1UQlO+q32lK4p6k3Fcdz1TQuv8f88YpAjP3nmnbkK2CsZEzzQm9BGr+tbnr
Z68Cm9PJ9dI2AoPlz2MZMgqWXvebjHUQ6GHIS83OpWA6ILzG6yWBT47v/t0h
mgKrNvcPExSBeG0oti+E7ldxYvZ9ILC3/UunF1EUtA9lT5eTJM6yBZKmVAom
DQmBNYdEXo5hWf91Chr22A0fZJN4IGxYt7KSgsqXpROvtEm8cdE2cXctBY+O
LuQtLREYluk3UVdFwUdmaELLIoFuh3of+P1KwUCgMWc9/e8yEcLUL6IgxzY1
4yHdPyRq3Zt0iwIXy8mxoWUCvWJd71nQ+bnz60ItPxIorZ5q9rpNQZeIZ9BC
5wVNRjyLEgpOdPqfSKBteF9S3ETnKXoJfpG0+QEKyWbaO+pWCVNod0YlOujT
ri4l7LJpb5od7t5Ge4NRfsU52mq9+kZf2g/vOYeJaSuF3z7YQft/tTIM3A==
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[0.880722, 0.611041, 0.142051]],
Point[{{3.459218210145335, 1.571943520550506}, {3.459218210145335,
1.571943520550506}}]}}}, {{}, {}}}}, {{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.560181, 0.691569, 0.194885]],
Line[CompressedData["
1:eJwVjmc8FQwfQAvZ4y73mpXxSKVCKKv/X0ZkJFREVkhRZPRkhFRGkcxSkVIk
pXEzGkSyiWRcJCuysq9xkfd5P5zf+XiOlLOXhSvbunXr8v/j/64yW8VWVxoO
HDerCb5rBz1zC6Eix2iYYpvvFdV9Asqokx9sDWlYoO1k3LLTARowfy5dnYYr
tDOZYQccgcdBbFv/Nhqe/6H82nbNEQ47j9n+I0FDrVJPDstPTpAyORXtLkBD
t6X1uz5HOsPNnBl67l8qUvb8bOC2OQn1O+kdE5NUrMs2fnt9twsIBkyzlPqo
+IwRIv6K5gr7Jk7T/JupOHHgScvgBjfYb9+ys6icir81Ci+l/XWD+9wDuPyW
ihy3CwtM2dzB2UDfdF8WFYWaKq19iKeBJP3E8vJtKn6l+9FjFM6Aw+Vsyy9R
VHxD3lolY+UB7dJjJlyBVBwXt4j+EuUJ4nd44aAHFR1Odsiw1Z0FceadrbF2
VCz9Yad1QdwLNm6Q5W8ypeJ8yuYHjtreID6qNEQCKup3xR2umPOG2WidwiOK
VDz+kPcxvj0P2jJ1IXekqLhHhPZzR7APzHZra3WRqPiParbxuIkvTKevm5Tk
oOI0y8OjR84PqiV9UhyZwhju/0TSi9cfWgMHlTKHhFG1R+Y716I/6CU/KR1s
F0bydWqF2NQFyM6c1pGvEUZNsxy5jbP/Qtn86tsz74WxUDDiROz6AGAenhZ5
kSuMv9YL6oyIB0Kk/LDn5H1hTH7jaFK0Pwikfk+8VLopjL1jKSMRF4JBwnVD
n2+oMK6t7n/9u/ASHCwRW8v3Fsakhqwnvlyh8MCfwLPoJIylYr90B5XDYCmB
vqpuKYxUQ6m4mpEwKPMq6wrSE8bNJzeUFj+9DKRnAw+LVf/7U0/Ml/AOh/rJ
PLM1OWHMjEo7qI9XIHY1sxdFhPF3bWnEXdGrYFuy7Wg4jzDa7ttYfWXlKowV
JL0oZ1Fwr5XDrOfINbh4QnSQY5yCaqYauZW9EeCq08LS76ZgoKxCGOdAJKh2
V45HfKWg3uPardlTUZAf2lRU9YmCT+yNy+V5r0NfzRs77tcUHOZpWSYo3oDx
FcE2w0cUvNQZ4TTmHAPVEvbS0YkULFDpvmuUGQvJvsx9NVcp6Ch/+Xn59E3g
kmDbynOBggccJjYFb7kF1onXug1PUXApW9mvsvsWmBdY2URZU9DAqVeTdj8e
Lh8lp1YZUTBlE9+jaucE2Hl+dyqnJgXbaXple5UTgXt+8oi+AgWN2Xxqa3iT
wOWaSd0VSQrWJWTv7R9PgsICQWaZIAVvZN1ljjOSoTb849e1NTLGGl1MtGlM
gcjiO5ba02RUK7EIuN90G0zY00MC+8kYIK8hvqv7DpibBx4s/E5G10ApxVvM
VJgWjXk9+4WMzB0TQ7pi96D2WPeLXQVklKhMkWsxvg9bv4ure2ST8bBNbGXT
9TQwXUkyybpDRpvZb22N7emw/apKX280GRusKoYLRDOgMT9gUiyIjGzn1Jbk
GjPg2W0vLytPMnbIvtwbG/MQLp3NtY49QUb1J6Lu+y0ewc5gvUcVZmQkcZNI
mZszYRNf9f5VIKOy3658ocVM0P1XVVFFiYzGrSLj44zHEGO36HBGmoxdtbTE
zPInYLLGqHxAJqOeQOpyRlEWUBqZ1i0cZLTVTiUfK8oGWuFHHu55Eu4T33Nb
q/wpZMZ31mn8JqFxzlftho4cKLHeE+/JIOGr3KPT0SvPQM7618G0GhKuN9Ne
Xtz+HHrahEbq35PQ7rOCZpb7C2h/yjq+nEvCrqIJZxl6HhALxm7Kp5GwIqGQ
wMH5CljVEj5WN0nIcOdSWXr3CuSUX0yFhJJw87zCoXL/17CcEs/M9iYhh4nL
ZKH6G7CSvnym0YmEIT1kSUVOOoDB0B6mBQllYkp8orroEJZRqSeqR8KDGpX6
Uu/fwtXVNxc0VUl4pxDL7B/lw6mK3Ne2cv/1lxa5cpIK4A2VyAigkfDc+lBL
z/hCUFq5VpvMTcJjfzhFRFOLwH+h7dTLJSIetguVkX3+DiSDemMqR4m4vSi2
hLPuPZD1zlO6uoio+nS+ft/8Byg7u719vJ6I7T33psx2FsOClnvucjERnyrG
ZJX4lsCGBKIr10simhn5uIlVfYLVsNBWoQwi8j3k7Q9IKoVnP4/UUeKJeLHt
y+cpkzLYXGdDooYTcXQhpx8EPkMcGvmSfYnorCvFXtT6GVSG8uj8LkT0t7PP
fp5VDlKh9OT1R4ho2LpRwi/sCwx7/mmf1ieiZ8+68FMnK+C17Q7VbjUiHqAV
NPcfqoRvxYYu5VuI6DVCH9QzqAKb3h7aYxEiJjcwz08aVIMlXfpvCA8RG/5N
5D9gUQN2uxNKLVkErCjKlKW710K0Ygm79BgBaekiy2nX62Akdc1tpIuArUfv
JvsV1cMc566rOfUE1LFVysuaaYBhHbtJp2ICmo9xp2WpN0KkSYAaKY+ApS7B
aXMGTWBnztn3Lp2ABg9v9s4sNMGJl2Ve1nEE5M2QauB99Q1iOsHuTygBd+58
Jhbo1QwloSkiF70JqGIh5hKq9h0KSLOCi44EFBkT2HB8QwtEa+x+6HmYgAp+
tjNGP1rg45CffKsOAclNpTfiPrTCj4ScOUVlArI6Mk57ZLaBs6yUSag0ATvO
HZLcmNQOoZLcHp9IBHyjTp/9HcsAU5vJ8Ck2Aja8ZT3mju+ApeVYP5khIaw0
fcf+Ka0T5NReHNOrFEJ1yWNphm+7YCnSqV4nSwhVjHMs+lp+wM9u/TbRCCHM
PNo+8HmtGyToeva1rkJ4yf6Pj6xqD7RmnFI6rC+EjOwg1n2NXjATerSWKyuE
7w5KfxXt7YXzHSnHGexCeIQ1fnvjjT648uno2+/9gigy4pRbotkPrJiN9vfK
BPGVnudp3pl+cCglRipkCCLYsrcJ5g3AlRamxtUQQeQK99vS6vUL3k2OOj6w
E8T7GmNGznsGIUdf+X2ghiC+3N9sX8AxBKd7xnpJIoLocjdQsb59CNoXJwxc
mAJIm6rNuPPqN+wqeqji0SyA/I8DhHjjhqFt23CVzEsBlGm2LeDyHYH4SJnZ
6BsCuFfDjf283Si4nzQPTj0lgDYvLEYljMfgirXGiqmuAN6Islbq2DcOOt6/
uh9tFMDpZo+S03v+gMMSt33iEj/KjNR1R6pMgPrpzutiLfx4PPVjTJ/qJAww
lnR35/Hj+Fqpc4zkFIz9ytNgRPKj591G976HU0A44jvD7sSPs2sN3+hbpmFD
bFPZK3V+HJBoTy/Nm4a9Ro+/M4j8mK41l1isNgPN5gz5CyN8GFv2Z8X60wzc
ikm9G17KhyrTdSHqhrOQcEmkeyGFDzui/s6vNs1CoP1KeKMnH76W1jinbTMH
weQL69n386EPf6V4ZO8cMC4q5N+g8mF0p1q4sxsTOIBz2HmUF30Yto8PjTIh
ZNdY++ViXvyk4HykymMeasxzS/rieHHc/eQzzdF5oEeSu4KceLHNOS9KxHUB
VMNPBRkp82LXYK/Nl64F+MblxqPHxovpQ5SBDNNF0InhEHH9xoOdxld0+N8v
grGAhG/WAx7cPTzO77x5Cbx/GSixneXBk7sDHqyELkGw+e5qH3Ue/KBbEabG
WILhpG8ysxw8mK7Jw/SQZ8Hg08LSkEZudKR15qx4seBe8vZaYio3Xq5JuGSa
xwLN/RFaOU7cOP1y/kRtPwu2rwvl193Kjfc9tdSG+Zehs1LX6uckFyqGqA7J
KSyDcZxdZFA+Fz6d2qFJxmX4sSkmTyKQC22VZfoNDZfhf8rAMtk=
"]]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.560181, 0.691569, 0.194885]],
Line[CompressedData["
1:eJwV0WtMUwcUB/Du3ttWyCY6RSSACFhTBIxYaOgGnmMKAxkhY6tEthGDo7Yr
GkDlJYUmKwgDVB6zTBodIBuIgmsdCI7xGiBhMh6OhxElY7ARLOUC5dHCZHcf
Tk5++Z+TnOS4nIn/WEqwWKwApv7vE84F9Y6XufjZUbepkJANUP4mqOsO4OJh
dX3opcANqM5eLlKyuHjTuTpR4rMBnk5TphOdHCwJ+ulqi90G9HiPSUVqDv7+
VU3hDaMF2m0DjVFiDiacrFVONlngBaGubSU4+MuiRa1PtkDPH9dUqg42Ovns
XwS+BV432S83q9g4ba8dGe43g9VDoVdxABt50lbVoMwMOvc0T58NCtNgqrVp
dR3aInuEI00Ucl+5mXnp66AdSC1pSKZwX4XOrX9lDe5E7b7l6kuhOsiqLkO2
Bpat3vfSTCRy4gYSXIZWgep2eMZvIFH8eelIi4CxT25vYwqJ7uta//jCFSjs
Xi7o9CfRcyHDfHHWBPx9gnBrNokegkd2BwJM0H574mDCEIEy3HvCfH0ZtA5J
RVuVBK6qYi4VTy1BScN0ztJlArUD7emPhUvw3fisa8OnBNYetV5LvLYIPwgU
+TNiAp3O/KvbfE0DT/ehIsyPwMzJzfLlCBrGyh9nPxERqMLx0sYrCyCW06uO
oQTGjKZAWo4R7ot6z9UqCPQlcsIu1M/D0LFHf01rCRyftn5nF3se9EKld+0E
gXlCfWzuDQMkvfxkW547iVZ79MPnvzRA50tXO7mSxF9TC/yO5RggJSs1kugn
MfPvrq5KowEM2r3dFe9SiMJu581v5qH/qkmk+IBCou8uvyzWCM8H3zTvlFL4
hcaGH4ELEFVWZebFU+iVFC0/yKZhf5zkjr2cwuIWzZbiJA25lvSxeQmF4h+L
MzzyaLgYFC7d8z6FqZG9NVaVjCW2p9qcKTTd3O0YXE6D5qPEryVcCv3kfR7n
82lY51f+7LJC4mLVk5CBOBpe6W0b1uZIbNdlD20PpSHymapsZpbEqC6hrNqL
hvunAx8I50nkxf7ToXGg4UHM0+w55v99ASkaqS0NR5pnXOo2SUw9V1TBtadh
1Lfme8tbFB7yj46ec6EhKZ2z+SdJobHGcmX1EA1LjY0KDuPScMedt4/QsOM4
y7LIotBGqY+lvWkQT3qW8bZI5Jq7kgOZPKy3asfZNySmr1k6XjD30MO0TsP4
cMXxt8960iDbVbnuyMy3TT3PFDMWmSV3LzCW3YvKHWT8MEsQnsJ4e0S+IZDZ
Xzot33aK8T0192kk44LpLCqIsWi0le/LOCHjW5tgxtq50GBnxv8BTt/KwA==
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[0.560181, 0.691569, 0.194885]],
Point[{{2.934625018740901, 1.7051476319785681`}, {
2.934625018740901,
1.7051476319785681`}}]}}}, {{}, {}}}}, {{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.922526, 0.385626, 0.209179]],
Line[CompressedData["
1:eJwVjmk4lQsbhZXCnt79OkkiTYYQImOGnoeiDEXGRBKVIZI0l5QiQ/sQxzyE
hISQQpxkCG0lRHF2kimZiRTafH0/1rV+3Ou+rrXJ2dvi+HIeHp7nf/L/PsDG
69OEIH7PVj6Sz9WGkkTSgKAI4hYq90vBZV0Qcizmk+UVREEJjRM/aAA5j37X
7uKSuFJHtmWPHUIrzzN/x58kTu7Xn2vW0APTxRz1S1Mk8hbUCW7brA/j59KG
okZInNBsE+NduwsOBh+Oyx8gcdrEvmB23W4oa0jRf91NYnhf3YkKRQMQ09/8
ra+TxAjFGHPSzBBE8lKCF9+TGNrnHFh6bQ+I3m2QWNtEYlePWUrgi73gp2NW
ptJAol7aVVNLpjE0v/y0d381iTbUmiGBMyYwniTc6lZBolJ278aEQVM4pZhs
dfMZic8+rGDx++yH1GeU5uQCEk3GVQof85uDg8f3XaU5JMLWyPXdPeZQWtX3
uDWDxBQFi+Gs+gMwGHx81VgKida1e3qyyiygJ+ynF388iWy1uB2BpZaQc/2v
yk1RJD5Ne/ljvNYKqDHSfDqsP37OgHtytzXklSfq29wmMaPoaIEFxRamLFp8
T98gkX/ZhApH/yC4iK+LD71CIre4VZNg2cHngvrCjHMkis3e8G36dgimCoT+
feFN4obbrxKotg5go6bxvMOdxAMEXexFx2GI+Hko+7sLifORAU+mTh0Bwish
iO5IYnV0xBpHlhNUHFxpJX2QRE0PdmTaqaOwqjqRiRYkRs/f6O+yd4b1q81L
7UxJvFuy7v1Taxc4f5R3n68hiZ/r17xpczgG865Bb+4gibVdepYTPsdhAxGn
lqlFIl/FmWs10SegraEvqFKVxL7N4xfXvnYF46PLKjsUSTwtuZVSS3eHczfP
fJqSIdFomd3mtKMeYDyX3kWVILEqfuvlhIaT0P7660sJcRKbPF1kMvW9IOjb
+Vs6a0iUZrqa1TefglctvtLWgiRuFWUe49c6DV4C3RleNBLbuE/G3wr7gJtb
KjdwJYmc9e3B+5d8gMuectBZYqL/7fnzMjNnoNdQzMNzmolDz4SceWd9YdlE
qXjSIBNNeEY54SvPgU9jwJlGDhOn44lXtyXOQ4ldm/P8OyYqOzxvzje/ANI/
K77J1DLROc+d8Z51ESIMprg2pX/2rxdOvOVcAsZsdeKtXCZqNV7QD9C+AmZj
G8sLU5k4GFpE7c27Ck5PWFaf/2GiaejaL0Mq1yBPWNSJGsLEqt0XNTOa/OGm
nHO7mh8TOUHTdf9UXocHlOuPnHyY6GrsF21+/wYEL/F1hh5nYlFG9ujGqAAY
8pm3LLZjoqz/hPPD8JvgpssW7NrHxD0G2VIx8bcghLuLf6U+E4NXXfZIKgwE
G9YdGXl1JpLbJ8cudwRBaPQqdws5Ju4YKfOZJ4Ih2o1VfmE9Exl8B1TGrUPg
0Ns+waS/mNhBjwhUzQ+FKCn5w5V8TBxI32lfInIHpi1jWT3zBIpmbej1jGFB
TbRb5PIJAn+/cdh8UCYcTLzH7Db3ERhaKdlS6xoBvhL2LfiRQLG34swIw7sQ
xG7tP9xIoF/ctnuSypFQu8zI/1Ilga5YL7NJJgpU9niHRj0hcN+/Anfl5f+B
hKi88UdZBD5y2uIyqxsNms9XRFUnEmhYG6yl4RgD2f0/HT6GE3iLYbqzkBUL
Ea8ClIZvEmgrT/lH6W0cWJZ9n5i/QGBeWO5wmHgCsOs+XqF4EjjmfWg4wz8R
asuGilY7Edgs0N/qNpMEhfLDPhusCIy+6LO85WoKdPKEREnvJfCb2+m6KXoq
kMt0J+V0CEye+j5h9zUVqJNqjvJKBPocv5qr3JgGDziShXKSBH71614kK9Lh
W5DEcykRAutNb0TGlt0HzeTQPeJ0AqcFstd61WZAqjlbUpCHQB3tDY/0uh5A
WPNO0WUzDOyO5ko1rcgCH/eF0dFBBla4Oie0aWfDQ69sxzYOA4kPUY833nwI
Tf46CiXvGOjno7gmmJMDkzXdf0XXMNChTPnXsEEuvDNKfuVVwkDNWnRTrcmD
3mfbfuIjBmbqmvQdsnoM5xQqrYh7DCzPandW8isAPq/0oPZIBrIs54/J2ReC
la6QUkwQAw2HpAwe7i4CkZGRcbPLDGzZJh6gp/UEMkqM7JefYuBWy4Twv3WK
YZeyEX/eUQba3IsSUTF9CjbPH1wzs2bgXG6pQaf7M+i77Gw4tJeBolsv8KjE
lIBjqeOnSzoMPPk+V2O+pRRipHlLeJQYGPBjldSU+HNoKqze7SfBQLeJ7RG9
l8uhkb9oZFyYgXG9/5LpQxWwo5+gWFP//AsmzegnX4DJy5rJfC4dDT5Op/Ly
vAS6Qe/owiQdfwi/UK1qewnbeMR0tfvpKBncFqBdXAUfZ6SEPT/ScYuSlORM
SjUYuKqmsdh05KRHVvpE14DtEcOFlH/pGLldXxzjasF7RajqvQI6jvw+pDKZ
9QqUGrLMWPfpqJzZuU3kVR2Yp9L03GLouO+I0hXLyXqI75MaVwyhY+bGt8X6
cq/hSHeq/JcrdEyyoWeH+bIhIyS86vIpOjomtGp0vmmEly53nbhOdGxJi9Tn
qL8F47GpnBOWdNyzuvecYVET/P24VPGpAR15144xhjc0w+j9x8cHNegoLNUx
snGyGSR+uxcvyNKx02QmS4bdAn4j6u6TYnRk7JkbcMlvhTdGjPIaBh0tzz3s
Uk9+D3utfRt8l2h4u1VLiD+2DRIdbWMWJ2lYMryGqp3UDmdT+wjnXhrKpedy
duR9gC8OxjxJ72m4zimxzYP9EYbzbojl1NJQWWR0SnWmA3KPM6ZDntIwqfqH
7aLcf2CqkTmnmUlDCfVPhVu9OaC4NHO9OIaG81oKNzZUfQILbY3SuSAaiib7
2ezY9Bk8VkzlrLxAwyvchF9t4d2gPh4N7Sdo+FtsoTQj6As8cVFQP25Dw/iB
yOUzpj3QuWXlliIDGjps/xDIFe2FT9bON0pVaXjsyCeH3slemHDXCT0rQcOK
hQN9L5r6IKZyhX2vIA1HA04tPizuB1Phs1+4S1SsT1WwLk4fgNkD/p3VY1Sk
hq++Phj3FfTiDT/Ic6h4unRAyiB2EE5eUtPQaKBipDZVsC75G+RLasl3FVMx
meOlYZc7BHL/SRavTaOicrpsWW/1MDwZVkkavEPFHwGFH7R6RsBmb7O/3kUq
SjR59sjzj8HI84CGTS5UvB/hLn1edRzKi7XyA/ZR0TU8pavWbQKUWTUajhpU
bAy5GMY5MAm8hzO18zdSkXGposPz+yQseBw+6kmh4ujkvsfvo6fgcMfU5sgp
Clq2G3FqtL+Ddj39nUgnBbO/8W8f7PsOJ9mBYXOVFPS7StfoYk1D0d5rBxUy
Kah7U+m91o4ZyG4UEsoLoyCP68ym0IEZCDavuuZzmoJUvdyDxpE/4Np5B/S1
omBclTF7YucsLNZRxnM0KCgiuJ/ZPzwLDbfbSEFRChpFqJkFRf+E9YuWCikL
Ahi75Pp0685fEL9z9xvjTwJoldZEbuz/BTVfdtxiVghg6TlWWmbQHNydC1wx
kCCA9i2daxYk5yEm0W1T7UUBbDv/ssbixTzcai7peWAtgJd0Wma7DiyAgYfo
3zeVBfCwn13s688LEK3LrLahC6CJe1cPHvsNGX9PXFv7lR8PxZ619e75DaMR
6np1L/jRI2GgNcCaC/fi7EQOxvzhnV2VeZVc6ODGVLE9+XHTna+eshsWwVZ3
e52oPj8qDoR4a/ouglBsUbKBMD/G51n+JVu+CB+y2tqMhvhQk72u2nZ2EeL6
hbS2lPPhmFDCaWXJJVB4xSG7w/hwh5ppj9ruJYgpSjY9a8+Hq9LTPsxZL4H0
29D2EVk+PNTKXi1rtwT/AxCQS+w=
"]]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.922526, 0.385626, 0.209179]],
Line[CompressedData["
1:eJwBkQNu/CFib1JlAgAAADgAAAACAAAAJs2K1espBkBa0soVKVn/P0lRv9hM
9wVADDX0N4hN/z9HT1smocMFQKOIL0L2Mv8/BxhroPWOBUDaurT+bQn/P41g
J75aWQVAxIQwFAfR/j8Tz8Qn5SIFQDKmqdr2if4/ahsbcK7rBECb0xzzkDT+
P1al9vHVswRAg46Zo0fR/T8oUJDYgXsEQLVlJAesYP0/DxNZW+BCBEBqPk0c
buP8P+r1qjYpCgRANUdYx1xa/D9ilb5rn9EDQHTwz99lxvs/bxCZUpOZA0BY
NzBolij7P2dU5wdlYgNARYPsFxuC+j93+Ro9hywDQA7CWGNB1Pk/XncoaoL4
AkCCfH9AeSD5P0cBAlH4xgJAe0Ze7ldo+D8pKLunp5gCQM6IIxicrfc/TIYO
jm9uAkByXjS8M/L2P5R9xyFSSQJAo4IuS0Q49j8N3o8BdSoCQLexj2o1gvU/
nmr9wR0TAkDl7t+SvtL0P+bt0jOnBAJASBgqF/cs9D8JW5HragACQAFtZaZm
lPM/MvZVKZkHAkB6PiwnEQ3zP5jGn0j5GgJAKmxb93Kb8j9HrNrckDoCQGrd
VmNZRPI/HCX/cDtlAkD1h1x/eAzyP4BisrhSmAJAmifpXpz38T8eIB9un88C
QOecs49rB/I/TqicIc0FA0B8z2jN9znyP4of60RpNQNAWPowjr6I8j+Zs+BF
G1oDQGV0NOTj6PI/pPKbzYxxA0CAYLuD/UzzPwjKjA2newNAhdu/Fd+n8z8+
cJeLM3oDQBNnep1G7/M/qRSEvDFwA0A96yynfh30P1BInFMrYQNAZAbIjLYx
9D/N67LVplADQBmgiMhXL/Q/mIXJOrdBA0Dk+SF4xhz0P+ZDXZ+eNgNAcn9K
Y+IB9D+GvuQLhDADQGYVg1155vM/qZQeYU4vA0BSH/4nztDzP5CvJ/XBMQNA
QDppA2rE8z8C5TRo8jUDQMnJeNCPwfM/u0wOaPE5A0DCsIzlpMXzPzUKiJ51
PANAPZdXIpHM8z/e/8nULD0DQDEJm4uP0vM/z+s7sZg8A0Bfm41gldXzPzfA
21uWOwNASzuXCqzV8z+Aieb72ToDQP4dORg61PM/YvC9qKM6A0AL9OdXz9Lz
P0WXSEDKOgNAzOclJTrS8z/CmeWzADsDQEXmtEVf0vM/buAZaBg7A0Diuv/J
ttLzP6vXiOcSOwNAdCVt4eDS8z/R6pwR
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[0.922526, 0.385626, 0.209179]],
Point[{{2.7704693491920294`, 1.959267697454513}, {
2.7704693491920294`,
1.959267697454513}}]}}}, {{}, {}}}}, {{{}, {{{}, {}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.528488, 0.470624, 0.701351]],
Line[CompressedData["
1:eJwV1nk8VVsbB3DzObtXqUu6ChE3lYxJIZ51UcbciEyZDjJGKKEkJJSQmWTK
kDJnynQyTznGOg2GiBTKUDJkeJc/9md/vv/svdazfvt5tiDFVc+WiYGBoRZf
W3fFlLWx6X4CjVOnrvXbHYSFJ9eubjmBhRJSUC0CVCnK5hS2RweDe57QYfge
aR645TcduvEbaUdggpmJYculn7o8vsochbvDg1e/Yfd4M+W9+iQG/rzeo1+x
bWS2Sy5kSQAt2fj0lnXr4yo2GiRhoHsldRJ7kq+LdqpeCu4Pd819wfa0eM12
nyYNF1PQiS27tF+ndU0fA5HqUvcJbMsvrLxLPMfBMyswYxxbfG1TjmQiCzH9
a82fsUVGzdO255+A/kc2g2PYNGOfD4e55MDOYnF8FPvZh3SfsEh5qKIPDn/C
lv+LgddL6BTsoJ9qH8FuYu31UKYpwluhw0+GsR3+5LkbRAFICz1zGsJeKQ9W
SKhEwGteJjiI/VGT1iZT/i9wMcg0fcD2Px3qQm9QhtaeVd332IpCpEXrERVY
0aK307EDfPXTOtlPg5zq1SNvsV//I722XfsMhF/wdB/ANj7tVCqXogbW3bZp
fdhxsr7el1k0YHtVWUkP9mN94Z/v/DSh60FHDg37gQZTfe0ubahbHfJ9jR1s
pXLvSvVZ2OZ08FgH9uZIAZ/Jrf9AmvK0uRU7YgeH7lr+OSgVNDrWjD28WOo8
90wXVDvZfBqwy6RWq0bK9YAqbxtPxWYbUlXO7zsPZ8vXQ2qwQ0Vzr2ls6sNI
/L/aL7FZH3ZulihegMUv9sNl2NR0u8SlcEOgHQs/VYLNzNs6I/PLCAJfJVsX
bDlZ+26iiwnQmXTPPcNW5z7Rb7tpCoSd7GYWdrSjvsT3HDOw4XvinI5txHOZ
Kd7BAv5UVcQkYx96eXppNsMSfJ0NPeKx3bIGgsVSrSBE8SBLFPbzEYkc42cU
yHCJVA7DNhfntb7QbA0yDrmH72L/FL0gwDlvA//81Cn1w+ZntLF+IH4JVEqY
hry29h9an9l7yw7S4/88dtvKz95CqbUxe4h+yz7vgG1P7uORv+gIyzI13VbY
Y9qfjnRMO4HrnNAxY2xZndTV9ajLYHt2mfPcVp76PRgUzrvCKwFvxzPYH7zv
jazHXQEfPU/xU9hc1H4/+yg3sIxVN5TCjtGgRBQnu8OSfO3Hf7BjRY3KX5Z7
gLXq3hIebP3AxR6X0atwIOyvHnbstWrv0td8nnDpe8WRzT58vsK6m0PO10Fl
u0/5HPZNWf7Fmm4v0L8mYDeK/VfTRbsYNR+QOlEk0YutVUt+nvbmBtDF3Zhe
YSvmOyZL3vCFtTBaTz42m5JWcbacH3TYO9xPwu7u9tmuGHobCvR+CN7FFnxD
WnsU6A9l9N2BV7DpVt+1GsICIJMWnWy89b7uArvwrEDgr2Ez/Re7TbO6aJp2
B377fMsVwR7IcFHsJ+5Cjp+fBzu2p1FAurZhMOw50pw220ugir6b9S6VIXDH
woSnF/uzRnKxpfg9cHd3bSzCbl0ZSjOpug9+i4WB4dicKU97ss0eAOnSUUVH
7KTRqsQMnggoCJXtVcGeBBfqyPVI2Bii7N+HfYNDXKThykO4najLOtdDIMqw
0GE1ryhAR1LNG7CvD1ioa0REQ8StZpYobIsa/fDC8hjwdFihmWOb8TUquMzG
gr7ptqhD2AHjDwKC5ePhmqmSwGw3zmM7XZ09MQE4I45qlGCTjpcs8rIngdyN
6Pdu2CpL1WpTMY9AqUTqkRj2/m8k2XKZx/BCJV5/gkagF0+iPw7MpIAVy++2
BGygdJdfsEgD3r8XKtSw2w2TUoYM0iHquuPQfBfu59vYKa0mGcB6UXU+Dvu+
e7H5pMsTcHUWy5HF9p1ayuSNzgSvO5YFPa8JdPq3faReWxb43KAU22C31Eza
+nPkgBlRZ7DQieulx7xc4PAUcsOrFLyxF39r6c7Sc0EhkmNjuYNAJYppNram
z0FdK1rKDfvc4NlGlcU8OGw0YTPajvNtPWLUlV0Ad4S4BTSwqw8c4n5+sgic
JlXHc9oIpOMkynlAtBhsvymJrrcSqHxS7EewaAmEUrns1LG7gzsLM+RfQLJY
HmNoC4EQx8dgZeNScNXUuljXTKB7pwVOKoeUAXsOX/dkE4HusMz5BbeVg9pS
6VMW7I1x2RDmfZVQtHJbjKsR71dO/b8Xt18C0kHxuxsIZNL0gjNttQreKl7m
ItcTSFL1Qu1IaA0Yq6S1TlEJxD2YoRIrUQecFjMtNXUE6vfdtXN+hgpxasf2
+dYSSG9nRX7C6CvY/siNeqSGQHdbdZR739eDHo0pramKQJVBjwu7RxqgvXIw
UeMlgaY399eo/2oErh0N3pUVBKrvNspZ3tMM4OT8h6OcQPGBbPBEqwVecOa3
6ZQSaJfzyjRnZCs4Bd7x8ighUJ32gTK+L21AokuG3yzC+Tmoe+KRTgc8n5D2
si8gEK//fIRLRyfIzGhEHM/D9eCaOulv0oX76aXdY7l43oTH9zdu0sBk4aGM
cw6BgtoM5+LMeuBTUt96byaByFL6xcNnemGwftNuVwauxyoho3CqDxBbtM6h
VHw+J+MUpZT6wT7P9QpXMu4Xt3pX1M4OwFOeJy79CQTaVtgeTXZ8AxFD/J2U
WAIl7hKtWY95C1YilyepDwnkYz227wWNDgGrFOavD3B+46SLS/e8h0sDjQrv
QnF/bnDYHX7lAzAeWg55EESgX502ue3vPwJ3WHktiz+uJ/969uz5IQj8kR0k
fxPPg22pu4NGhqHn4l4b0et4XkvynwtS+gRik/Ul/W4EykwPzPLlHoXmNas0
CWfcL2/kBU4sjcLl6AoJhUsEMtC8GrUwNgYhhvKyCxYEcn5n+t8b+mcokuIw
PWeM58PooGDl23EoWubh1tXD6610N6sbmQDBk1yFs5oE+urjIcX88wtQNXtP
iajg5/VbBifs/Aq+fdmZC/L4+zkQ1RN08hsIf15L1JbG/xtyAU0tjlNwppg/
ReIwgWqv1u3SzJmGrEERhrj9BOJjDWOe+z4DzunaQ9678fnMpewPVfoBEr6m
gm+2EYiIVaUOJMxCX1pEcPomGe00kBmAW3NgkFz16N1PMjI+0GLwUGYeTFh7
qj0myUjSWTFbYHYedom38Th/IKNPvzmUMvMXoFiKv67qNRlNFeeWtbj+BCub
yHtGdWQUINCndPD4L8h5Ga6oVEhGfRW90vrrv8AwW9jTJpWMRkeiXw60LgKP
r39lYzgZFd1PCeeP+Q0Jhbwe+r5k1ESJ/ppktQRheSEsHE5kFJfMEZIlsQyz
LRv104ZkdHA5eCFsfRko69kbYyp4vUcth6I6VqA2tYjzuzgZ1Z4Q6ZqJXQW2
JBUHJh4yKrslNtNk/gdgxej2PiYyMuyg71UQXgM233vrklMkdH6CT+HSxBrY
v5suVeglobsqfhUG6etgyMlcIVNBQnJqF1U5DTeg/tWq+e5kEtp32ex9Jusm
sJ6XotD9SCikZWB4R94mxG+TH71KISEGokv1uTADytNu8PmqQkKJ89cllF0Y
0GcuQUsxYRJi27B3Ol/CgK65BzoDMwlF+ujec5xjQD5FXkr7RtnQwfqpgb8P
MaKdvm/062rZEMfz/Xm/jRiRGVVLQiSRDdXdp37ODGBEf7M/9DDwYENN6h92
0jIZERG0tkdTmw29k/zeLEJlRA6xvTEkYTYUxp1Y4dHLiCqOJvFFrbIinndC
zbc/MiJbRePx2W5WJBr3v1HRIUb0f5aXfGA=
"]]}, {
Hue[0.9060679774997897, 0.6, 0.6],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.528488, 0.470624, 0.701351]],
Line[CompressedData["
1:eJwVzn9Q03UYB/DvPp/NDFyOIzmiBLIBow2uIo5DpedRW7WIHxIHDBisIQ4o
JU4TbrrO2ADlxJ0n4NHAC9L0shMoFjGDqDAToyQccKUmtM4AhZK2D0zm+vrH
c8+97nmeez9P68ozignHcfF8PezFSWrnwi8ilDf7T8lvCNB+sLck+pQI62zi
Ce24ACXktENVKcIPWsPmQy4JMLjz2ruFKhGu3bdGX9wpQPnxjLADISIsMQ1M
5lkEqI8PEn45K8S5Ta27n9UL8IxlT5LMLkQ2tix+LEGAayLrLi0eEmL2XlVZ
po9Dx96ieswWYszl5oD8QQ5jn99nfSlCiHGJkcZGA4ffXHD2RS1SzDCaX3w/
lsOYbVXiLd9SNDV2y7L6fCBP3BVzw0JRJ+9tMfr7oNQbXVFQSFHdeUf7R+YD
GN0SbU58jmJt17/X157wwqKDyJYIxdCWetvPYysQZ5x0bZokeCh+ZcRfvAIz
OusPg10EDYN+f999+T5wspMRBQ0EU9OvJfxu9MBfJs/wqnKCrYqdxGxfBs2s
s3Yoi2D/cuW9ee8SlGrNr5xXEqwQ/+esSV6Cu+oGP8dmgr1eaWj4GQa3n9wt
lyYRPNFU2UTXMTjWrSIvvErQW7NjdLTFDfDn9qOCPILD0jZPykY3DJkuft1f
SfBiwuE3nB4X5P6UdtZkJSgMUE/cvOmCKlW7RPM9wd/WlX6RctsF+QZNTf0c
wZCtruCpADdYqhuGwiUUw4aDpuNz3KDWB/lGYihuziy0Sbvc8LhgcPzAVopR
WllispiBpsXt+TCF4rR8l29nEYNG5bJwJY3fvyJWnzvLoK3YlL0/mWL//juz
6RMM4q4q7tfx9+nhzUuSeQbbKxRmWwJFrSht4LMFBpbAioVcPs/1RO7nv04x
gKsdfRhBce7RpsyuKwwGfhwNKgqnqHDkKd/uYeC3KpUbD6VYPhMotrUzWP/V
6k+uh1F85k3ranszg7fKGs5t3EARu/co7McZHGkLcX8qpXh+xu+UiZ8HZsWK
UyMpHplmGpuVwUHdjsJbvB+ppveUHzH4p3uk+vRD31I8sHYweF3X2rOed0HU
O0e/4z0j2Rbcw//3Xk9HyWU+v4rqNxzjrXEYPh7j75+y1IraeecYRPnlvCfz
IOcC79fKlCdreP8PKvBzrQ==
"]]}}}, {{}, {}}}, {{}, {{{
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[0.528488, 0.470624, 0.701351]],
Point[{{2.726531776402839, 2.2329938489590595`}, {
2.726531776402839, 2.2329938489590595`}}]}}}, {{}, {}}}}}, {
DisplayFunction -> Identity, GridLines -> {
Charting`ScaledTickValues[{Log, Exp}], Automatic}, DisplayFunction ->
Identity, DisplayFunction -> Identity, DisplayFunction -> Identity,
DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1),
Axes -> {True, True}, AxesLabel -> {None, None},
AxesOrigin -> {1.6094379124341038`, 0}, DisplayFunction :> Identity,
Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
Row[{"M/",
Subscript["M", "\[PermutationProduct]"]}], None}, {
"R\[MediumSpace](km)", None}}, FrameTicks -> {{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice",
WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0],
Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {
Charting`ScaledTickValues[{Log, Exp}], Automatic}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]],
Method -> {
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange -> {{1.6094379124341003`, 11.512925464970229`}, {0., 3.3}},
PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision ->
15.954589770191003`, RotateLabel -> 0], Automatic}}],
Placed[
Unevaluated[
Unevaluated[
Unevaluated[
Unevaluated[
Unevaluated[
PointLegend[{
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
RGBColor[0.528488, 0.470624, 0.701351]],
Directive[
PointSize[0.009166666666666668],
AbsoluteThickness[1.6],
Dashing[{Small, Small}],
RGBColor[0.528488, 0.470624, 0.701351]]}, {"PolyEos(0.05|2.)"},
LegendMarkers -> {{False, Automatic}, {False, Automatic}},
Joined -> {True, True}, LabelStyle -> {}, LegendLayout ->
"Column"]]]]]], {Right, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellLabel->"Out[132]=",ExpressionUUID->"caaff8f6-6ebf-45e2-a254-9c9858943a95"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{
RowBox[{"ListLogLinearPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"1", ",", "All", ",",
RowBox[{"{",
RowBox[{"3", ",", "2"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"#1", "[",
RowBox[{"[",
RowBox[{"2", ",", "All", ",",
RowBox[{"{",
RowBox[{"3", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"#3", ",",
RowBox[{"{",
RowBox[{"Dashed", ",", "#3"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
SuperscriptBox["10",
RowBox[{"-", "11"}]], ",",
SuperscriptBox["10", "10"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "3.3"}], "}"}]}], "}"}]}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(c\)]\)\[MediumSpace](MeV\
\[ThinSpace]\!\(\*SuperscriptBox[\(fm\), \(-3\)]\))\>\"", ",",
RowBox[{"Row", "[",
RowBox[{"{",
RowBox[{"\"\<M/\>\"", ",", "MSsymbol"}], "}"}], "]"}]}],
"}"}]}]}], "]"}], ",",
RowBox[{"ListLogLinearPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"#2", "[",
RowBox[{"[", "3", "]"}], "]"}], ",",
RowBox[{"#2", "[",
RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "#3"}]}], "]"}]}], "}"}], "]"}],
"&"}], ",",
RowBox[{"{",
RowBox[{"mriSplit", ",", "Mmaxi", ",", "ci", ",", "li"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{"Show", "[", "%", "]"}]}], "Input",
CellLabel->
"In[146]:=",ExpressionUUID->"98cc18ba-47d0-4544-9023-83e59fd449dd"],
Cell[BoxData[
GraphicsBox[{{{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.009166666666666668], AbsoluteThickness[1.6],
LineBox[{{-25.176560069823868`,
3.106106450299119}, {-25.176560069823868`, 3.106106450299119}}]},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], Dashing[{Small, Small}],
LineBox[CompressedData["
1:eJwV1Xk0VV8bB3DjvUclUwnJ3DVkuGai9qNUJIpMZSzNRMlQSYQ0mBqUeVYS
kpJShh2ViDKX+pVQKNxLpsjw7vePs876rL32Pns9+/vsI7vfx+YgFwcHxxh5
/v82Lzy+RFvNEDv4FNtbdVFwUSHUfJ7DEHv9kQqyIL5+FF2qazfA9M0GfmbE
Bzcn1F6/Z4BPvT2AthCLpvkuOJ0zwGVeo10mxOdPPNdn7DLAtlZ/YSOxo7eD
z6i8Ae786n1yPfEDrHHn+bQ+rpYTO6JH3PBTqSvinT6u4b8kq0VM281YujND
H6/RlUxWIz7L5jMSP6WPyzUXm5SI57lLj/Rt1cdXbKTK5YlnH3DFF0no4zty
Kg5SxC5WrRWBLD1cnnQ9R4w4cn6u16RGDyOv80nCxMpn99KW3dbDj+s+aC8j
fuaNGZ1H9fDR/tXHeYkbX3KaZm4g8w9loIVPFNzuYbkcE9LDbs2md6aIDeXt
/HR+6mJMpSawiCf0FiMXnuniFfnvBPqJm21Lb72N1sUC9Ym0r8Q1Zwwyb7jr
4hS6s18bce/KHXeddXRxG/fErnri418K8hiULlZPq7tZRdzmLpg7+kUHXzxX
qf34/+Ny6inPi3UwI0lVMY84mfEkOiJcB/9a/d0jmZgWsuu0lYMO3hrJ1R1N
3BR210VsnQ5ORdIx54mXzDgY9y5oY49mgf0+xFiVY0VhqzZ27p7a5UZsvEPn
h/9dbXyrWG+HFbHkvvBCdFYb75xy22JMfP6WvxeflTam9ymrKRMj2Wj5Nllt
3BnuMb6COP0GtKROamFawGDk4kcKbmbx+B+q18INRjEdg8Qrg02WM9O0sNue
VY3NxEl+DqkzJ7SwPGbYPyXWc0mTqjXVwpIJCq6pxFM09/hoMS3sHKzQFEKs
nNczZzesifW/r43aR+zF2OMgjTVx3KDxeRPioctj2YM3NXGNa3SUNHHG+vpv
JYc1sVevyO1/nRQIbhvjCzLSxBLPToV0ECfGesmbCmhi2fIDikXEB36rq/D3
MfGr9xWeYcQvHCTXdJYxsd/1bUp2xEe5qX/pV5k4o7hYby2xo/HjmsOuTPx3
tYP3nw7yvYBGX6YWE4d2WOdWECfIsPhmeJmYvpurIJy4+8d6/vDHGtiPrmCz
jbjowo33Ik4a2Fbo4yE68XHZ67a5XBq4OK35UW07ye++Ryk699Vxd0/XXBDx
g0zjzFfW6jhRwJxiEltmbXC1nVHDLdT3+O42Ug/LSy19mWq4Z1eC61Vifkbh
pK+ZGraLPLCGSbw79N9rzlFVrLc4F9HcSvIbFLzhWoIq3rs9ydST2Psry14K
qeIVRQU0DmLHaxXLCvvXYSORuBOxLRQcHlpwNIxdh6ezYuVEiYVz/HTf6K7D
MYL9ZbebKfh0JTjF5qsKfpEkVSNAfOz7iohvESr41SmX1tAPFPx3/N3AUVUV
3FvH7fPrPQWlki+rJtqUMWtngZg58VeXdI6QIGWccPLftowmCto5Y3IpeWX8
4/K/40ONFByqZmZdb1DCHvUq46rEaUYZw+K+SnjJG3t9j3ekXhkO57LElbDa
GXwtpoGC4TzDLUovFfE53tcWBfUUhGmcM3pwRBEHnrO+/+ItBatVc2y0BRXx
c2eOvso60h9C/sFPnzKwu2ebTMkbCqTj2EXr3RjYu/VaWPxr0k8FRh0VNAa+
4eErfvgVyadUVt+GB2tx9zqRX4q1pP/+nn5babcWe+3e2d/xkoI93tK+xvMK
2Gjy8JQPpuB174+m8lwFXBUWyZqoosBkYr5Od4cCNmZQNzwqKRDP97V4OC6P
exYtbjx/QYF5/LJNyinyuEJwQ8zfcnK+A5vjMzfJY9U8l2WSz0h+vNcpi/6W
w7UykeHyZRTc2+HUf+W6HNYrE9nFX0rOL/Rz8T8DORze+63sYwkFDyn6Ec/v
sji7pqQvtJj0U/Y59qdLsliTJ3CAVkSBNvesgqmGLJ6qbi07fJ8C1lnTn4Wd
MnjxY65SVh4FHj18S0XOy+A6G5eJh7lkvQrsHbBWBldamD+MzyL358yypqIk
aRy+8/MH83QKAg9PRx0ZlMIGYw+zmpJJP9gaV0jqS+Ev6bWWaxIoEHA2ma2/
uAa3/YE23ZsURE+E/ufTLonXu52irYij4IwUc5xfXhILnr4WW3qVgl8Pv9Xl
nFyNr+nu7xOJpOBCr9BXJpbAFhJftqtfoOB31aei0uUSuG8xsXMxiILn8nuL
1F3EccCg6b6IAJKX705b0wvEcGD9UNTTExSkxtd85ppdhbUFZF/EH6NgoZWv
1slsFb5RqLFi1QEKRkRKLe/dFsW3M/jPGrpQ0DJeUjXwYyWumnS8OmVH8mCM
rcS1V+Ld02LJZlbkPpasUDG+sAKLHKx/pLyV7H9m2HfnBxF8kFkZe3MDma+3
eb3NGhE8avTqVogOyT9EXdzsKYxz+MQ+96tQkCkbv12uXAiXm99fUSNDAUeX
mc8ITQinmNVm8YmS/13Oi7c5toKYoRMX/GQJyXu2qc5lUwH82eoeVC7Qweng
RcXkbn4cS3srKfaHDhN2qTlnzy7DY1OuXRU/6PApxr6MsXIpjlkMbM7qpEPx
aUdIKebDV+ezhyrq6HCauf9PuzmFZe1Es7if0aEm68j25j4atlQUHDuWRwf+
+6HXrgTzYt2h8x4Dt8g4JLXNifLg6qejvMfD6TB1mrN/7UMubN+w9Rjbhw4W
s2V7OMw5ccNy5p19TnQQzf7zd3ntYnXC5RHLsi10YLsb53mNz1UrWjme71an
wy/OLRoC8rPVEtL1be9F6TAeMeA6ZD1dPX32xwn/eRr0LHTZT4ZMVN8t5OR4
1UsDKSeeUJmisWo7k31P77+hgdKsNUf1o5Fqrb5pF/F8Ghj9uOtkxjdYreba
ZL14hQa36Zz0apfeahXh7jiLozSwV3m7jebeVa3wcWnV8FYa+L1ZiH63+K7a
ceS1boscDZQjqg7d7cytLu7UEx6Y4wWX3shLY+kvkXXHBSTZwQt+n5NKdqN2
VHCoOdq1gBe4OsufCD3pRtqcr3BKCC/cD+Lpj0z8icKleEteWvOCRI+dafue
ISQSwOlcJcsLdwUbJG3iRtFF8wO0UDYP9KQNJd0+NY4a1l1zmnzOAwNJVSHt
e6bQDh7J6/wRPKC5aXeIyqYZ1I/Pxz7bzgM/e0GrXHUOhUlGrBpYzgMaIw7r
c8QXkWvp4uzVZm5woF6VRPJwQlmqiGlCHDeMPxI+EBfMBZH3I05w7OCGlgdf
gzj+coOPX9a9Cl5uaOTfJTh6ihfsHIf+1VZwwbYUlO4/RoOj+/IzBE9ywbFX
S2Xuk77J9yhgZshxwYKPnuK9MT5QPJc05d3CCY/+dk1H+S2FuAAp5bBgTvhy
Ue7uqZllIFZlpveNwQkD1hO6IaHL4d+WFCq6iQMkuQNcB3kEAZ94uCPxJAek
yPhvftMgCCUlu5+IiHBA7Pvi9OHrQhB969sZxoFF9Px2PXVirzBInvauc09b
QBG6Qv6HFEQgmNO9Rbh1HuEzi+YDbBGw60b/wrjm0Qb15KCllSugwK90kFNj
DtXY9+WNRK0E1Zb39b8d/iG5k6G6951Fwb7MJjEneBaBcL2fm8YqsOWX2JqW
OYPeyJ6oVeMRgzPZrK+7X/5FSQqLj/S/iMFeXtFkq+/TyOasm1Z2qTjcDDKb
kl6YQp1Kj57HX5OA+R/Obw6unkJbm16EGPqsBltNKfd6g0kUF6GRW7lLEnq/
OY0s2k8gLlFlX2vdNdDJzqbeBYwjPwfVRKU1UhBlOdsyk/gHXU7l9TxLSYPU
2o6GY1Vj6M38sGrYtDScN1s1uHxwFB1VVilC/jLwpF0hniU6ii7/PLTweVQG
4n6a3PZIZKGISBT21FsWIoaEr+4VHkG5Fpa2cyxZiLlQrTWaPoTibIsPt52U
A0OzL9wym36jzwIC1Uen5cDF9ku0BucvdEaZdY8dIg/286V20X0D6HtgBEfS
UgXQWNfr5zHRj/wn/U+lJSsANpxMy9jSj0735TcaqK2FZzKtk8cmfyLDomjT
gtq1sGn0cW6MXj9SZPF+NHRlgJTblLiozQDy4vTMUJ9nQKfx/GJ44C90JLN0
fVemIiQs8fWMtBpGzmpGzDhzJUg8I209LchGT9QN9xVOK8GF1mfuPSmjqJXL
KuRmgTKYGnMtndk1hv57qH31wUEVYAz7tfYVj6Hk9BZbH8Y6sN+vz75bN4aM
fBuEdrHWQV3HwpuJvDHEzXNroK1SFYT5Oauz3caQradU9KVbapA0/Wzj5TlS
z+1fBzgD1KG/ig6Po0YR75Q8/uGmAZrqazhTxUdRzWuNUpYyE2ZVGNaOB9jI
8WV/hU0+EwJf0ZdXYxbKY0S8vaCuCe4m+xfM97KQ3cBOqr9cE9R82+VPrGeh
AMu+8VELLXhECXV8cWahwOezRat/aoHIlY+BvYUspPxO4djARW0oGTaJe7CE
jfjGC1q/quuA6DLz424ObBTrIeN9/bsO/KQZHQwIZaPGdm6e9BRdkPQ0dZoP
ZyM3ox0c+e56sLF/ZcHO42xEV37ZsY+pDwOKxVvmLNnIEme7hS01gNjK1GVD
umzEzo/d/OGPAdAa8s001dgoeYZpJzZgCE2CHalzmmQ927F5g1/roaKuTPq3
ERulXz1SIDZrBEOBHzmqNrFR5ouRbQUSG+DFRpV7UZvZ6E7rdzxmsRG2qH/Y
2whsFDd8Mn02FoGAyIdC/41sFBNk5HjSF8CkU6zRgLhHt/TXMUUTkAtNHRFB
bJQwOjZAHzCBroN+ydHEgQYrC1glm4DRt7/pIPFYzpKo95c3Q7aq8h0t4kmZ
yDPuXqZw7jWXoD5xtNaB/MMuW6BtwxKjrcSn7yRseuS8FVYFTsebEl+79URW
wnMbNKbdW21CfE5vW/bFK2bQOK/I3ET8P72Y+2k=
"]]}}, {{}, {}}}, {{},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{-25.176560069823868`,
3.106106450299119}, {-25.176560069823868`,
3.106106450299119}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwV0vc/1X0fwHGUdcieR3FkHSshI7q8v6KuEIkckTSsSCLjIpQuDYmIjIyG
TbKFwvkYmZGTvclemceO+7p/eD2e/8BL9OZdEzs6Ghqa7P/6v23UoWYNO3mk
SJm+lyz5Glbjdt3OycijLyJPXHQqXkNpiRgfaVEOyeFSpfQuR4GWlWqpTZEc
ejGl7d25EQVruryX3Xzk0Lc2AwVcQjR4OrylPtCSQxJb7AK4MzFAlMgNDzkg
h4pOm9FurcTAYwNR6bgGWVSoOlW7kxoL+OCWyvRQWcTiaHNB3foNpCc+v1hs
IoseO7NldArFAe8ScbSaXxbFu1zZ2hmKA4uHfnfaBmTQI8/22I70eIgUNlkf
/CCDTpsDR7BXAjDte/jO2cugkTPHJM8ZJIL2XvbupqwM2qFxntKUfAt4/0of
hmVpZGylkBfJ+A4WKpxWuD9Lo8/lMyoPF99B86qLvaivNPp1Na6B/+57cPjw
uPMYJo2+lx9KmZt5DxPl1+EUvTS6dkZDzuzWB7DXLUrWayIiuiRf0buzHyDw
iCydeRgROS9xsJi5JkHlNWdL20tEFH1h/JTYdhIMDAtmuwkSUW7jzcH1Z8kQ
M/lj/cGQFErR85hbEEyB+SxxjZBkKdSQPKcrlZcCNwwyPN/ckkJOvE+yq/VT
gVZ/PCNNXgqpTw+3jcykwtVey/bCFUkk7DZokhyaBldEnq2hEknkw5j6XU41
Ha4dGmBp9ZNEkSWDPe/H0qHDpVagX1sSmaTUC4pHZ4A9QxJ+mkESSeN+YQOG
mTDr2cJBbZZAXL1/8y3hsoBdLWqb9pUEmppjfvSsJQtM3f/qZiNJILHwoZfN
UR/h5f5eqpCQBMqztfebtMkGX3ZGe+KIOMKbX6k8oP4JwlS8+FRSxZHzrCSz
MVcOvBm49lnbSRw1iCLLrZUcOGvXqGukII5McVEHFPpyocc8E1muiaFYx/Fu
Dts8OPJ0kuhQJoby9bxLHw3lwQkGcz/3B2JI22V3LNAqH9aMyGUPdcSQBHNi
t+JQPrjJU4ZfMImhtbrLP9NsCiAuUWYhpuUostV37NubL4CuxEsjyRFHEdq+
Xk26XwgdM1UlueZHkWwzSeE7SxEQK1rcvh4+igZI/Yn+H4rA3fELa/2oKFL5
NOYQrFkMRo25T3+miSJ73FYTV18xTNeVDQ7eFkV+fOy/1fw/w3ZSHfvMcVHk
cytxSkiiBAYVU/FrVALyJ4jXjlJKgAF/YHfvCwE1PsaFfAoshf6vTvnMAQT0
pjlAP0WjDASEtdV5zhBQBsbFM79eBlIdNaHCOAJ6FjfNml36BUTpD1lffCuC
gqKkXFkDvkLh0oiiHVEEiQwzx6galoMWr0e4d4Ew2mK4v3eJUAHk6PZ7L04J
o12lqguRWxUQLJBMSaw7gjCVkw7CvZXAFceXmmt8BPH53LUUJ5PBpm5uHPUd
RmqH47BZMwTjWzeDKLaH0URoUEXuDwTG1WpPR38LoeUk/YSd81WwzfumY8lb
CCVWKwdMtVRB+jTBcZ9OCOGrjcpDTaph/Vaz+qFQPJLRCCMx91eDYsiCGp4f
j1iue7F4OdSAppaspeQHQbQT23ZxaaMG8pqcIxRlBVH25PDVqJBaONjQ/lOz
WAA5niRJBEp8g4BzuaxnQABV5zTc7Kn+BjXX7x43bORHHiE8sUW2dZA7EyN/
yZQf3WHq4FJnqQeyd8GKxSAfqv0W8Tvwcz1IvIA71g58//37kP+LfQMEN6Q9
v7HMiwaEtY3+CDWCJklS2caXF1GPNRPduhrhkUKVqQ09L3oSM8SrEd0E4bfl
Om6E8SDNkixr/yvNYO36Nd5akAel5bVK3ZD8DhZz+uEWydxoWkDZnXXjOzRH
yUSbyHOjeV0CIb2lBXjj6cP1SriQF73GvEVWKzi+b7TW0uZCOA0bd6PQH+Bi
EDJ6vJkT7UhXRptrtkHw8btUghknQh5xJaaFbUAj9q8n2zAH0nqeU5B/jAJc
2ckaW7c40LDRb+agTxRIcSCrVk+wI/UM1YwFhZ+wpBHb/WKLDW23eA9vFf8E
sbd120aH2FCoG41dLbQD53bpXyyih1AcPcnIrqUdakQOqKMTrKi8Y4mVat0B
ntz0vnfOsSBWL0bHkLUO0A8MecVlhUP21Glf3Zed0BPmup9zlxnxlf+dqSrX
BQHRUtqnA5lQhkdVjF9rFwglkZqboxlRJPsvqeOe3eDBbYkzyGJA3RNfnW4T
eqBOtv4GuYIeqZPio8+19cDX5QlZIuUgilfv3h593Atu3GJlj8cPoN87g8sX
tfpA44TPhY4NOlTj1Esp2O2Dp/IUaT4WOnS+xblfGPVDdvblf/SEadHpGR2p
vKABCI5ptbyjSIMs/efCAkiDsK/5vJ32+R75HbUtPlN6CLBXWeYMubvk28p4
G126YdiNjlee7Ngmh6q9dHccGQYqijr5bnuTbMctZCFwcwR8q8PwCoQNMmUv
JKGnawRe39ayjTxDJb/VvfImwGgUFB+tP2h0WiXnn+fpxTeOwm7gnY+tYctk
K3ldnfyzv2Dkew4N5rhIdhX/Q29Y/wvMVit+eBTMkQu+bPqu64+B582Fkyo7
U2SRAhOOYsoYlMfsGd/XGSdblecRwq6Mg5VhYPmpFyPk27FaA8+nx0GtYMx+
JqWXbL4QS8j0noB5rYxZZaWf5C7qD9NFlklorJFhDfP7RhZxS9K8mjQJxp/a
3ELPZZG9Jtl+LmtOAZ41kJv+cx7wqN/ky+qZgmcioqasBvXQz5veH+A9Da5h
63zcIu3wz75zpIvQDCR8ee0NcX1gszHG61g1A8M1LzkjWEbh82y+nY3TLOxm
6BUvNI0DUYjiasg3B0UdkwnYi2ng7FX6wf1tDgq0K6PenJ+H9dEV33de8zBa
elz6MeMSCB/DhXbKLECV+I1yo5llqArSm4oeXYBEwQ+Xi5tXITP84yI57jdY
l1ldqcqhwpMLLieJpEW4NFhT6BexATiJLEEK8xJMKI7MLXttwUextlv+jksw
z6ijJGe1A8Zisgm7jUvw1yMzW7XTf2DX1llRQXYZyiNIggTpfSCJCTqshCxD
5jvmbp8gGkyyNI2TsLgMmsqFxBE/WuyXy323lxdXwOlcfVCTGx3GlzSL4yha
gTOZJ6iYwwGs4wT9I3e+VegJNZk1uHoQe3t47V6g9yqwdP1xWjOlx8721V5l
6FuFMnddZl0DBuyJsk5gpcYaLOZlLurqMGJvq/DdjnFr0DjBNkd7igmbcS9Y
qdpcAzOioedTFWYM91GVy8+MCucjQ9GQAg7bm1cS0sujgsOUSw2/LAtWiXfN
6WRaB/IrprMgxYpZ4GXPNlmvA/2/A4s24oewB1KqNs3561BDbiJFHWXDro1t
NvjQbsARUyH2cVF2LIw5uume4QZsulkOHefkwIw6NT4aR21Ap/L3CI4IDiw8
uJXjY88GSB8bOhrPzYmdtCgL4effhEQlJaX+KE5MpLL+pIzxJqhcCuYdEODC
rn3NdPUK3AST56LDmQlcmFkFT2RY3ibkdFBvXxTlxvxbuxaYuzeBWU7g3kga
N4bjncvzXd+EGQGBcDt5Hmw/hemPP9sW0O8kXV0q4sFIhZSDOcJbYDPp6v/q
L16stq4SciS34H/Vb0t8
"]]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], Dashing[{Small, Small}],
LineBox[CompressedData["
1:eJwVzH0w1AkcBnCidOq6i9bLtqxd1GJFrTbU+n5DtF0ctuTlMt6WFdPq/fJy
OC635XpxyfusXREpbfJynMXddBV1oVBdrC7adb8dGxXW1Ljb++OZZz7zzDy0
WGEIf5menp6fLv93nDI18xKHhHfvdUHjhkVg8cplEfdJ6LpO07BR58LtGeqo
EDPkW+Ssf0hZhJFhdkqTwgwFn26JQowXYfD5508PpZjj86zeo99rtMCgN+4Q
fzRH4cQhR6deLZy+WRwlKLDAEHKFg2OZFko+e1LzytoSk2+7BCfHaGGTghJm
d8cSoX2NOWGthSPFA23BXDKO69lUND1ZgGKi1lH0NxlfF3xV/TpjASou1MZN
p69Hm+Z8/nWrBah1P3Kx2oKCueMLXgEt81CSzD77tI2CbT49W+i+8zASecm4
LtwKA86N+l7umwOOTflk4JIV5iqkDXTuHIz+mOm9WGON49TyseieDyDyH1a9
DKLiIXtN7rzrB1C+Y512+ZeK6qXUKHH5e/gkF8WXhNmgZ18E00n/PTgn+RVd
vGODe0KKmzNj38EaWMuv/pKGdQNJphd6ZoH/6uSZeSENRfKmnBTKLMhLd6Q3
DdJQXDWt8Dg1A/UH7/ctY9PxWL5Zr+DqWyDpU3aYVdJRNLaKcfigBjjsy6ZU
I1vMpxd8k0uZBtL7qH2847aoyvO5veKNGvrPji2fnrTF9UPdRsMdBNhrpzIc
w+1QXOG7+1vpP5A9bVgfOGiHR1f5GyVJpqDoYjZfEmCPU1VXTBK6VPCgI+ux
8LE9HuC1Jr7UV4GhZKJ09b4NuHVoyY99UgknwoyODyh0Nt0v/n2jErKYvtFk
4UZsdP4r2MtWCbxEllXQcgae9ymwXHZUCWkm1woUEga+PvJz3WVTFXxcHU71
3OWAoYZKk9sLKojXP+A7/tYBpSW2lelLUyD18xgNkTpijkakXKtPwCDbQ0Y/
6IQbyKw08hgBM3kw/caGiZ045R+ZoYYzDINqjoaJM1xOXsyIGsbL9voP/+GM
bqtXKqM0avDYk8iJq9uE4amFL/r61WAplsfUX3HB/IjvHjDOqeHPV/cedex2
xYVnjrWBLDXIWgJYg49ccf/YgEDvJQGWpNjuVWGb0Y9EyzxXSMAHSRvrDbEZ
fzvG+8WNT8AEN/vs+A9bEIsnBCOhBJw2j/XPc2DhcK+d59NYAvZPUR7Fj7Bw
bqVXqzyTgD5ShYz8kxvSCkh1ilICNhvkUXcHbsW4yEnjGzcIkA1J3UvIbCw7
7yTkNRFwoeljWvc7NkbmB75tvkmA+VK0e8azbeiTMHwrsIaAE8mydcW97nhp
RaihiVj3f/XXwoleD0xIuxeRWklAUXaLDF94IlfAuUbV7bMzkqJS7XbsaZy9
y5UQYLGnP0jJ4GCJ3IxGlRKQeP5FAzPZC0nXW6vkuj0+nf1FTg+gS5Cy1VVn
v67DnQZFiA9jhW4mOjM9mN5p+3Yic27yyTaduU7tO/2p3qhZ2965V+fHXwt4
5vPeqDoVdmuXzv8B7BYMpg==
"]]}}, {{}, {}}}, {{},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{5.310125312820307, 1.571943520550506}, {5.310125312820307,
1.571943520550506}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwVxXc81fv/AHDzGNnrHPsYt9zMhMxeH5LoGIWG7FWUKKWukVAkIzIqsuqY
Kcku5byRHcmIk73JIVtG+v5+fzwfTykXH0t3Bjo6uvL/8///djgwG6cjgyYu
mLcEpdpBeDqSvsAtg57YlvtEDtnD1Jc6W9kJaVSh50zqUXKE4reCiYsV0mgX
f5kccsIJ0hYzm6uipNH1QdV3tn+dIJrOaDfMQRrpIi8mK4oztHfMK5qpSqOL
W/TKdQ9c4N4NX3s8ThoJHBluZ7VxBUOeD1FjVCnUlkcqizrsBg5eWeWFb6TQ
q/5g0WK8O1Reph/2C5VCiydyeqaYL0LRWgUjdkYKzWhX3knfuwgPPJ7tZ/9X
CjE9rawwY/AA8p8Ao55dIuLubDzvy+sJ9rqHXDM6iaij9GZpjMJluDMYFeSR
TUQl/P82yVhfgW7WMwmq/xERTdTy4edIL/DMs8neJRGRoytVhqHtKlilO5Y0
ShIRGrTTvSXqA8Mk6/+kZiTRxhNippPeNdgMWgkrfySJjg/EnW5YuwYuibz3
TTQk0YUX7NlY2XVIjJAKHBqSQEcI+GHFIF9gbH546Xq4BPpHPY9EM70B2W35
xsyKEmh5+8qVkf03QVK9WzylRxyF+eWI+7D7AUu91bRCkDhSH5HpZvntB553
Lr9AMuKIP0qoQWTpFhxKJ5lbt4khHfOC/RKrtyFzQpI24yuGKrki7GPp/WGh
kyEgUEQMTdJz6c+JBkBHIcMmV50oSi5xMq0yCIQ/4pIuLz1F0ej8k7mIW0HA
RWfyQZ1XFP39Y/BupvIOXPjktNdcJYKS2nNzbrDchSlmDUU7JxGERCaPTamG
QKBaxPFfLCJIyFgqrmUuBOqbdo6HvRVGRFdm9Ck/FG59UVAUPCeMdLQSy8Wu
hYHAn5StvD0CIkemnzyO3QO2s28KtHMJaKYVRaQK34ePjVU67WYEZHtUovne
7n1wbll747iOR5rWjqtec+HwoCZ4bzkNjzTMtAsbRyPA3P+c/H1DPAqQVQjB
TTyAsDhnVSGaEDLMbv03bykS/IIcefMThVCOA6lejj0KrD8sN2jpCKFZtp4d
HpVoEC9LMmsbF0R3fkQ4z7vEAEdtRo5dlCCqUBtKNSHHwtwPvbaFQ4LISS70
df3yI1gS86sOpgqgE46LkkEH4iHVXuQGd6gA2spTvdk4FA90F7sXM+UEkJHz
qA4+7TFcw/PLq3TyoyeS+142uyTARJyQLLrNj/rwhrWaqonA2zLWayHJj0gM
vq0t7EnQrK2rO9LIh9oS8jTHaUlgee2Npbc3H4rOTV2n9SfDLs5f4I8gH4o1
+S/R5usT+NSUGhT9iRdp1Fj6p3U+hUzHunBhd17kL6ctqjz0DOQHzQ/mcfAi
9wAplfj1FCjuMXFTK+NB64qL08dEnkOcj4tirS0PEmt8sr+HlAbfN2eCzRh5
0Gmb2MbOqHSYvBxJLjnDjWxWv33/2pcBJuU/dVuyuVC7dcNshXAWaHtwfxhe
5UQM3hpb+79mAWexOPuqASeiyr7VjI15AW/xeqK4BA6klSPsYWD5EjK1In7g
x/YhPlY+PjKRDDO9K4flVPYh1ZvK5dy/yRBfaMp35C47IvUSaLT+bGgLFXU0
7GBDA634RHJ9DtgxJzCcEmdDhpwpO1lVuRAR7z9h48WKbPVS+M9V5YFsudiM
czULOip65KlufT58vquyfImdBZEKOvTaqQWgdvXjxBUbHCouPLv8cPcVUGfo
Mq/mMyN6c72d3/KvgYzZ0V/dZEJ2dQo6uR5voJlHacbTiAkNVC26yJQWgeRI
1UG3ZEbUkFDJw4QrBg4cQ7btJAPq92BR23pfDLbpb+VOHWZAxA0Fi3q/dxDg
PRmtH0aPmEzdflVqlcDqO+EM5W90KHiEX1wFVwp8iRsKIkQ6JBNT4xs5UApO
ESdxDMN7lJPajcelPpRB4cLJzqbAP5RnlVitw8tymAnVxMKFdykNW79ZCpIq
wH1Mv0+rcpviTX/XyutxJbD94eSest6inFvAEYRTqqDZ3MQmYmWTctrurozs
6/cQYKogKR6/QZGviq3BtX0A3mfbKF9xnaKev/Hl6EY1OF4KSJZrW6X0jTxf
Mlf6BAOtrnPPPVYo+SoxuTU3asCX1LRHj1ummJv4XhRposDs8++EMqNflH0v
2Mf9kxAEXYcAo1Aa5b/vn+uWTGvhYAyXw/vqOcrPzYJx4KyDUy8Kp9g3piku
x6QYq3rroFsIJ6SlMknxs3PIe51bD3vJY736l8coxr0SYjdDPoMJH2//ceMh
itcIXdgl1wbgsW/YLq3uo5zAV3SNWzSCtfugYItSF8VnrnTK0KgJ3pPda/4a
tFCS29ev/zJqBsUy6q+TFh8p7bcTOU5YtoB0M+5Tte0zSkMVWbbUoxWUTReK
FWWKAZ9B2EmPaoOgkjsdCcr10Hs2Nflm1RdoCDCPiTLvAH3bQ0W5K+0wmDQQ
blTZA6fmWdNztb7CRna1YO+JH4DcgtLXjDpBc/aew1b/CBi9eDS6stkJDF87
ZB3Kx4E9S6qdvfgbXKy5lp0YPAVKSq9EAny6AFO4rCxtPAtqliJudzW6waC5
hJ+bbx4I85zMF5h74GrR8yXHwQVQuGm7YjLYAz+Dh+1jrZaAvxNFx1X3ArWO
MCH9fhm2qVmeV8jfYbqDb2xVYhWo3hbiEkl90HHUcZIxfA1KtEpXZ2L7gbqi
XHx2fh3ay7azWR9T4aV4of7S6U1oNHvPSEn/AQd7/bp7qn6Dlvi5dOOyAYio
uD3GStwGNVKB5VjPIATaDyg8frAD5LN9E3V/h4DYYIF8f+3CHYcFX1n1EQib
e7RWcm4P+vMCt9O0R2HijJLfOfQX3p+U7hAeHYXbViPSpUl02Jlt2lOJ6DHI
f5c54WtCjxHmnAtrdMZhKmjDwXuPHis29PJkXxkH97hK+YJSBgxsGb9zFU1A
j1Ql4YAnI8YSdvNAr88kaL4jqdAkmLA07XkTlyNT4LHO/nG3hwl7a9DlUME0
DYfEG43to5kxt9QAlS990/CF2vKKzwCH4Zdas54Vz0Ag8RKD9BYO48j252aP
m4WIXy0ovpgFk+myrWC5MQf7vsm8cfNgxTS1LzJet/sJNuYqP8lENszmjeVP
MdI8vNwnsmtNZcOiI88foh6lQW1XU0dwAju23HWlxvPIAoBPykc5032YzFzb
0AO1RXhKS0u+gOPALqR8jBlT/wXqIcfzxGo5MNpf5BIjvgSumkWfbwdxYl6p
Xz3GXiyBkscNCz9NLmz1b/u30gPLQI+U9CXXubAJsb4MVLQMmlxk9ZASbixD
dy3xk8YK1E91fTityYPF1i7snqeswEHa5dDWpzyY2nJbsJbxKrgKE7qKN3kw
auTexp/OVSi63eq/7zwv9k5a21vPZg30DstVjFXxYr4cjaIPRtcgUd5RT0eE
D3v4QyPM5eI6JNjHGRGD+DDffttsi5/rsEgYSEgZ5sMoCi5nmq5sQIKU/O1i
fX6M5uH6SufnBrQfqJj2zuHHvrsURRLcN6HIwy54hE0AG5gatfk8sAkjHXPx
nD4CWMa0wESW2W+ITLJUY+4VwH6Q7ulzfPgN/qp0p7p1BLHDszQOF+IWjNsY
vQ4nC2Kuh/0zd+9uwW67MKM8hxBWfawhRKN/C+pV/+Hr9hPCMnTY1q/IbYOn
+YWiR6NCmBP+R8Guzzb4fCFSfUzxWGhLwh2zom2wMjHqe/gejy2/3bBvHd+G
RtJ3k+UDBCzNS1djlmMHcjoYTT4+JWAqwerT+xV2oFD4dCgDmzCWv6Sow4/t
wKfuf6yGAoUxW1WZcWPjHfgfZcl+TQ==
"]]},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], Dashing[{Small, Small}],
LineBox[CompressedData["
1:eJwB4QMe/CFib1JlAgAAAD0AAAACAAAAvdMlU917GUBbMiPiSEj7P4tvBvVn
8BlALoOuSnRE+z8BQqOYv2YaQJkfp3FUNPs/t6f4kgPfGkCTRbSNvBf7P5OD
vIdVWRtAzoKokJXu+j9W+FeY2dUbQHBVqnzfuPo/nmWulrZUHEC98fqDsnb6
P7s+9DsW1hxAHTQg8T8o+j8/FdljJVodQOQZm9XSzfk/OPVHTBThHUAlZb5/
0Gf5PwS4/9kWax5AeT/ivrj2+D8y/EHiZPgeQAfeI/kle/g/GrnSeTqJH0Ae
obEjzfX3Pw3VvSTsDiBAg0UJrX1n9z/h6R70QVsgQAZrz3Ah0fY/jP+nHcSp
IEBDXJfVvDP2P06O/e2a+iBAKfibPG+Q9T9YjqrB8U0hQCzvfflz6PQ/NBPk
PfejIUArM7cXJD30P6LTH4zd/CFAZ0AYSfmP8z9XoF+Y2lgiQPZ/YXSS4vI/
uBsJUii4IkCbz8B7ujbyP14dF+8EGyNAqjIK93GO8T8N/2kxs4EjQB1i/bH8
6/A/+Ln2rXrsI0B+3/yg81HwP3J2kxWoWyRAf0DYl7aG7z+9PyR/jc8kQGHW
dz95h+4/Nxf1soJIJUA1AodMcq7tP4yBIHflxiVA2OQKDRMF7T90N/vcGUsm
QIo2smSIlew/lIKej4rVJkAJFrLSbWnsP5iy0SOpZidAw3iMOD6H7D9cqr1p
7v4nQH7mxMSi7uw/dnEAwdqeKEBANsUf/JTtP3jW3W/2RilAAsqpKJpk7j+6
AGn+0fcpQGOWDyhRQO8/eR2VlgayKkAtdV1oJgXwP1sCHmo2ditAkryW/2pV
8D/5iysfDUUsQEOwkn0rivA/2jl1REAfLUB4VsioCaLwPymxg82PBS5A9JkU
HEeg8D/56IKXxvguQDhoyitti/A/GWTz9rr5L0DxpMdIz2vwP/2WOqenhDBA
wLGF0Q5K8D+gjHZXORQxQFnENmenLfA/cqO0wBCsMUAlZOfBlhvwP+Wjth2z
TDJAyj13lmUV8D9EAFUPrfYyQHhskaEHGfA/7tLGApOqM0AqPF1d6iHwP/YT
Pp8BaTRA7qj6hvYq8D8GGOc7njI1QJdOHBGeMPA/1UZuXxcINkAPfLJk8DHw
PzOuKkol6jZAB/nEdkQw8D8Eue6Litk3QHv3+sHbLfA/c59NphTXOEAuoUEM
ZizwP5QO5Luc4zlAv+LZfkMs8D+nuu9MCAA7QGerWYjQLPA/KGlHAUotPEAO
UYvsRC3wP7FJnX9ibD1Aq4MHzFYt8D8SjOZRYb4+QDnWvig1LfA/2HVn6zIS
QECb6kpHHy3wP0xIz0o=
"]]}}, {{}, {}}}, {{},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{6.370961474593909, 1.7051476319785681`}, {6.370961474593909,
1.7051476319785681`}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwVlfk71GsfgAfVMFnGMgYlCUUIkTU+D6dSUUiSpY3K0iKkxVLHmpRIYSKF
lCWydlLk+5DQKBlESM5YsmQZDNm95/3hvu5/4L6uW97F69AZXhKJ9O4//m8F
/p80iUgZPJmldeLVkhHcG9TPsDeVwVsoS/8W+BuDDC9bI3leGosq6J2dXgtg
sCOv9GexNF69U4Vl7oCgI8DHZNMFacw5aDbXqGcKHlt4K89slsZ8BTWiGpvM
YPGGGsrulsLj+i3r+KT/AubG92UjDCk8ZeFUMLN+FxRwgrQ1D0nhmN6as+Xb
dkNCt06m71opHLstwZpqtQfUn2dIvqmm46hel/DSG+ZgmHw3eD6IjrvYVk/C
K/ZCICtzwFiPjk3TAi1tRfZDQU7e3mCOJD5C+TDE72MBRivWGdXZklgzq2dj
0oAllPXCPNlVEv/Tuiqa7H0QjEUV91usl8QWY9qF+WRrmH2X9uDeNxoG1bgN
3WxrsJuxb2Xdo+En6oeGM2ttQC+rW5S2l4btqs3ZmW8PgYba591HeWiYuYNh
EF5qC6Fj2d7J7yTw6zQ8PVZ9GATfLj/86SuBn+T0e6R024GUzL58eXUJnFF0
quCQgD0ELK8Qp3+JYzLPuHan2VGw4Y2ryXwqjpdKmvSFox3AwuFM1fBRcbxu
Jti3YdARXsm1FamLiWO5Wx+TKPbOMOxtmHipXgzbCAuuq/h+DPRyvl8sDhPD
83EhxRMXT0Dj0Lj+jLEYroqPpR+PPglRtGKu/h9RrO/JjEu7eAqi8/emBRSI
4vj54L4uJxdYSmcaV3iI4vtv1je/tnMFrfFdn0gKovhnLf1zi/NpsD/22uyv
H1Rc3WVqO+59BgTUKNnh8VS8ptznxof4s0BNkF+oPUjFvZvGrkl/coPXN+v0
KPxUfElRVaBa0APa3H3LGCEieB+Pw6a0U57Q4WbQtn5aGFc+UvVPqjsHG1QF
cKqbMG4476r8wuwCtOZ2+Sh2COHNIm5WtY0XwWskdCTTUgiryoicJhtegiVf
hooqIYhblorHvkh6AyUgbPMrLUHcueFb5MEVb7hf4d+tmbEW37w1f0WZ6wNk
88vWxZJr8dA/Ei58M76QOqLmt+M2BVuQRjpjVvvB+wG5fW8WBPDUI+GPtxSu
wNPx0Fr9iwJYy/ld4yvrq7B+ac/vt//yY5c8D6Hm6GvQoEPJN7Tlx1OfFs5+
6bwOdE1ZobKPZGxYf9UsxCgAnihdXzHUJ+OBqCJKT14gcNeW33yXswZbRkn/
O6R9A5R6Nt0ykF2DK3dd089ouAnTs6HCpTGrcWfEVM1D4m+w2rRPWJd3NXbb
HxRv/SwYKMPuN4ovr8JFGVkjGx+EgB/3xBHNAT6scnPcJTsmFA6XqUTnOvBh
891ZSgmPwiCxT19a+TMvjhT393xcGA6OQl6cdBNeTN3OGfX/HgHGhyX4ZQt5
sMHvt97zwpHgp9JwOEGBBwutsdEes7sNVSXxTOEEEv4uGBuu8yoKaJF5zhH8
JNyfbuL0RuouQIP6wtz0MiGTKddzPiEaOBcETfo7lojFz86bjirHQNePPNcG
YpGIIhRZ1W6x4Ka9ZPE6Y4FY90VWJHbPfdDPW255dHueCGJoPFXUioOEmKKO
gItzhBuqVZZXfgCjWTO6TrazxIH3/PfV1B5C37czlXr6f4iXJ7e4zhjHw1je
DitR2RliT3Wkod7xBBCiiRUP8EwTYUKWJoXRiWCfPlP+7tcUYa8m8FDzCwNy
GlYbRtVPEnl3cofvyCbBlefHuHYFE8Sol+Nwxs1kqGYPFcnGc4hG/r4md+5j
kHh11qdqaoyIv+bNywp8ApyvR++h9yPEoPulmgnBVNhJntZ6HTFMpExMjjv8
SgWvqGtf5KwHCe8zgbla9WlQGcCouyn9i/gV1L1MLU+HzLmV4JaeXqLWMjgu
8e0zWP+45qBsLpuY4s+SvlCdAZE276eKhn8SO43kXpp2PQedBW4ENaiD6I5f
UmpYlQlZ/E3YRqSVKHdzSWoxyoIQ3sbJy2ksQrj1Qf7G0Gx46VuYzTnLJIK8
t9EjO3PgdGoguSSqknB+qzU7vDsX7vdfWz7hXEjoVyN3nQ95sNXCr+WblT28
MLbodTycD7pFYSM36EVQlvnNRTOoAMw8f8vrDFVCtO386a1OheA1fbyUt5YJ
e4aUdmfvKgJX41V7GU0sYGnIhpgaFoP9iEUW27QVVG2TYu7tLAGz7NGAk4Ud
cOTpAylty9cgdMhnnC7fDXO5pbvbPf6BcOjOD69jg4zqVZJ2whuQOBew7Smp
D8415+rNs0qBcK870qH/C0KmxZUmZN/Bs6hPygbeg+A+vj22x78MTvCs+vA+
exgYPe+p6UPlAP2HTnv2jMCeSKqV4LkKOJHRdsF03TjsbptK5SNhkN4VVrQp
hwPTkhU6lS0YyE/H/ctrJkAxsiXEqKQS+koe+nv1TsIWTSVF7pMqqH95Q8uY
xIXO9DjCO/4DnAvO0d0iOw1x281kEaMavHg8DDQMZ+D3oqM2J/MjVLi08trb
/wGtF+0aUh9rYH7B/Wrq5Vk4cEIzwJZTC6EBDIZQ3By82PilxGzrJ7ir+zQi
NX8eHh8RzLrjy4QkE/sQpy8LcDypSa/9cz3cX9IZR78XgZUWZ9ap+wV09p2y
sxVYBnNaj9+eogY4OcF1jd+yAnzSo0LDco3QtfRybpUCCUkqff+9kdMIpIu9
fI5FJNRuwc1UZrLgOZ3kWW/Kg4TM5/pdXzVBGUv4pyOLB9n6ZXfppjSDr+8B
NcopXnSryVCCnNgC9T9qdnZyeNGbYTrF6PE3aN8uQGv8mw9tTc/tNMhrhVT6
bPswdRVafzK5xZPZBj4fylnqaauQltTIhA73O7AprWeStVajx1XT9stbO8Aw
fL+SbtVqpKD7o1DVqxPuaq7UkGzXoHlD9WC5yh9wdeMOteXeNUgmJeiIgfxP
eDet6arlR0YBS0mzLTHdcJsmkpOyhh8trlsozYj4F8Sbar33MPjRo/44Xq4l
G57/OXtKY6sAct7eGr4k0wPk6/4OzuUC6PSJH849nB5INSu/yjpIQeULNr0V
Db0wFbsg84BNQSMhF5ezS/pgc9j+geeX16LaVHW7kvR+eCzsxxTmF0SUGNrf
A4xf8JVZQ2pOFkSXSvuVdicOwEiFksyshhCKM6KI1qQMQj4jciW0WgildF7Q
c8gdgtiAr7OBDsJIK13lbU/VMFjJkouHxoTRdEhhqyH7NzxgbDBnhYkghYbz
bDXyKOyNuZuaIkRFz2I9Nl/RGYMM3NNMd6Ait5gnXdXu49BmFBrSmUFF9bev
3em04cCpcie9UQ4VCV0v/35+kgOjsbJ1NsaiaIRzIL85fgJUX5x0FI4SRbbf
9nV+MJqEMIWtHsptoihrkLx94L/Oz6/tZj5XFENBgYJ6XdFTELIu981dHzFk
HKrZbGjAhfbVFxp7sRgiuXHlo/q54EndsLlIRBxRTHOP7o+bBsXtfaYrx8UR
o3I/c9xkBgYHS9WbX4kjKdGDIn3DM1D7V12Q7oo42he7wyoi/g98not13G4t
gRJX3F6rmsyCQW/bncY0CXQ4rYG6sW8W4pnBYeu4EqjULzrtRcQcNB9099pg
TkNOrHb6guI8cK4j4/4kGmq5gj8cqpgHctXL4sBxGrq+kzXTZbMAKmfvBU3u
kkTHghwSP/1cgIQbdTvtkiWRhUcXG51ehMVM75SSSUnkmHjZ3ou9CAnDbz3l
LejIM6m/KcRuCc4dj3+el0FHju1dRB6xBBJUp5TzK3Qkf/fXeRW5ZUiuC6H4
Okmhbf23vfR9l6H7ToFqW6kUepRnK6ZStgwV36G/gC6N9Jnrq+xnluEPO7RX
+po0GpVIuqSluALV/71JvUMaGeywZO/YtQKUqxEqFBMZJJ6e1jpntwKiA6eo
X5/JIMcmJk3FYQX+B17wq08=
"]]},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], Dashing[{Small, Small}],
LineBox[CompressedData["
1:eJwBkQNu/CFib1JlAgAAADgAAAACAAAAEedhEM+jGkBa0soVKVn/P/v9R9We
CxtADDX0N4hN/z/OptZ8nnUbQKOIL0L2Mv8/7XL15vXhG0DaurT+bQn/P2yg
pwrQUBxAxIQwFAfR/j91bIA2W8IcQDKmqdr2if4/bafxVck2HUCb0xzzkDT+
PwNypTtQrh1Ag46Zo0fR/T+vQArxKSkeQLVlJAesYP0/Kl0rC5WnHkBqPk0c
buP8PxDH3wTVKR9ANUdYx1xa/D9IU0WeMrAfQHTwz99lxvs/NRWzIH4dIEBY
NzBolij7P0y65TVDZSBARYPsFxuC+j+AzlAOlq8gQA7CWGNB1Pk/bwd5o6f8
IECCfH9AeSD5P4SNqqOsTCFAe0Ze7ldo+D/udy+u3Z8hQM6IIxicrfc/F4F3
kHf2IUByXjS8M/L2P3m2uoO7UCJAo4IuS0Q49j923pxq764iQLexj2o1gvU/
52RbDl4RI0Dl7t+SvtL0PzQPHltXeCNASBgqF/cs9D/SeR2bMOQjQAFtZaZm
lPM/Rcl6sERVJEB6PiwnEQ3zP4pV2k30yyRAKmxb93Kb8j/vQBYupkglQGrd
VmNZRPI/cu6qS8fLJUD1h1x/eAzyP2s50RjLVSZAmifpXpz38T8sW4q5K+cm
QOecs49rB/I/qmAnQWqAJ0B8z2jN9znyPxw8CfUOIihAWPowjr6I8j9S5W6W
qcwoQGV0NOTj6PI/Hd4etdGAKUCAYLuD/UzzP5yzjgwnPypAhdu/Fd+n8z+f
V+DsUQgrQBNnep1G7/M/jSaqsAPdK0A96yynfh30P3FgD0D3vSxAZAbIjLYx
9D8TA0Oh8astQBmgiMhXL/Q/pB02lsKnLkDk+SF4xhz0P0pw+kZFsi9Acn9K
Y+IB9D+2hyl8MGYwQGYVg1155vM/hU0E54T7MEBSH/4nztDzP3Xfa8ygmTFA
QDppA2rE8z9MexVYDEEyQMnJeNCPwfM/jNUZbFfyMkDCsIzlpMXzP/XCqBoa
rjNAPZdXIpHM8z8YZP0m9XQ0QDEJm4uP0vM/NlM+jpJHNUBfm41gldXzP0Cq
9himJjZASzuXCqzV8z/N8sf17RI3QP4dORg61PM/tJffXTMNOEAL9OdXz9Lz
P4/5okNLFjlAzOclJTrS8z/GVPILFy86QEXmtEVf0vM/ViVZUoVYO0Diuv/J
ttLzP7YihbiSkzxAdCVt4eDS8z9I5qZi
"]]}}, {{}, {}}}, {{},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{6.659969573951245, 1.959267697454513}, {6.659969573951245,
1.959267697454513}}]}, {{}, {}}}}, {{{}, {{}, {},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwVk/c/1fsfwM8he5xzkBkqablGJRzi9c64KJKMEBkpqySKnEL2KJQV1ZVc
IyHJyIjPR2Tm6ISQzEhW9sz43u8Pz8fz8fwDnnscrp+7zEQgEKr+4//mzJJ0
KCjmw0ewiVvtTvuBN+cZscqXD0/e4RDxuvIAGD2tTm3W4MO9mgmeeVKHYOax
PbWbmQ/vbDZ+vJV2GNa57BijjRS8eLDV65fiX7Cs/ujKQjQF/+zLlIcPygKd
1rJKMKHgjoo8CvOZ8rCTPBTOK0zBjWuS3m19UIDSynT+XX1kfEy8lX6i5gjo
fO57eiidjHvbfmK9Tz8Kfa3Wu5WdyLh7kw+9dfIYXDs5lqb9Fxm3+8mya0Xk
OOT+CVTNGCbhchvbVDYrJWhRMTuMXSXhB4YupvHkK8NqcA352zIvTrekfTsk
QAWxHuXpxXu8+KtvL2gPHqpCQMwejMTFi6vyEXbdljoBnTb9oYcTefA6FoaX
Jl0dPLk+Ih1JHtzlT56nWRzAZOKeGdscbnytNFwtuQxBrY7SQ9oxbrz3FL1R
sfQkhBtTpRKruPBAnUj3rg+aIGZull2gy4WrS7EtXRrQAgOjl2LNDE48yM80
rYVbB1RHNQNGLnDin6SPbvAY/A2bGgcYW6McuKWOWzE1VRecGXpkEQ8OPEnJ
z/faDn1YUrivdmydHf/HdN9Cd8Ap8A7GjQ1D2PFofaaaKooBiPfmGDvxsuPh
9lpRHpWGEF2+SA1MZsO3B16LW/kbgfSmKsfTvWx4LC/JeCP/LGT+IlQX57Hi
/UvFV2dfGYNdVbE5XYkVLzmyXjFQeg6yvfIYYzgLztqnrZn/xQQC5KRliadZ
8EiZnFv626ZAn0dOop07cJZHLdtv1c2ht5nF/5jtDhx74ZSyEnMe9PwvXDcY
Z8aZdzVMKS5aQCCVk3rZ679+ZhCW4m4FhrfLuv02mXA9QeX2y9sXQFJg/HRS
OBMe72oqP51tA3Wya7GvKUy4hcg1pscutuBYK55e/5SIHyzXWZlJtwPuEPuA
fmkifiOzI1z2uT34GaXvWy4g4LkD8tmWrxyg/lZMDI8qAb8ot+uS+cdLYPZJ
y0s/YhtbkDHfzT/nCLdO/a3t82wLkyA6XoqWuwLEJBSR8WYTK4msyWD4O8F1
1KXEqNvA6KIFRzaGnYHSI6+72f0Hc2b/IqJq7Qoe9eMFB6fXsWGDwcPNk27w
gUfQyYS4jimdeb6+GXcNuvvlHPx2rmF17V4ENZProEgmJWUdWsW++UYNbCZ5
wMtDv5bp6iuYANYe4Bx3AzxcVG4vGy9jCfoOsYXPPMH6Mc4tfmUJS5SxKC0v
9YKbx29nadIWMdPgpc/uQzehZSxQySlmAduo9C3+JO4NHfUS+VHp81jsPuPt
vqs+YLuVtpZXOofdVZJYet92G8JoNpz05lmMr87aKUGXBsPqqim9VTPY6Sr2
3LTOOxBIE7EU/jmNqee7PlO44wc/Uy0On+Odwlg1ThdmUQMgc8V3MEJpAmtr
o/GoR96DxiJrg/cXf2F7Otk2ngYHQkKIwImpsJ9Yl/306Q8PgkDSF6MJF4xg
fG2vnWIyg0Ei2+Iz6hrGGk9Vvpmkh8DBuQji5e1BrCPdXb2dIwxGrv9K5TDq
x7wtgl4YnA8H433sM/D8G/buy90a97IIKJG+eOXqzFfsh/6zQju5KFDM8b0e
A+1Yw1pfmlXFfXC0F+k+JdmG8ae+/JxlEw0DLs3O9lgD9mSoIiVdJBaUhapk
bW1xbAzcsQGfh2DvdtAmdKsQu0OSO/DB4xEEmA41Zc5GYg79Uod0b8fB2syf
clmWbPDpsNXTj40HpyTLkXtaFWD73jSmoDQB7GUdIsyD6sBGvFbNfSYRBFyV
s0k/WiBoJDooXPUxcBP155ZfMCC3qUuPOyUZDCyWSn3PdQLb8bdLu7ifwJ5V
QSMKcw9orVTqTiQ8hdyK70vVRd9BcpxNqVTxH+gUktg8eXQQiv6N7+2YSgXW
4vCBN5zDAA5tpea2aeCstrf/rx8/oOn8k9Q+sxewBCS8tHIURji5HRqs0mH3
CR0Lo4QxuO9ZeHHM/V9QZtUOW7k6Dn4TKxm74jNAl9Kh9EZnEnSWnR+ea8wE
dsRwpElMQ/37scuBpGwgtRNFz6/8hrFzzKuvXV6CisTmOynnWVhaPm0805UD
ghbhelmmc/BWPc3x8oVcUHiW8/3YyXk4+92wVmspDyqTOsVaZRdA4NKARWvW
a0iKvvnOU3QRKvceFMxVeQPJywFu0mxLcMZNhn+vTCEYnJPaHl1YgtIx2d/h
Mm//+91Jp2RwGdrCWwrSVYtgmjwhntC6AojUG65pWQypr57eCq5YhSid3Sqa
ESVgeyVWNyR7DUJ2zAaEN5bCjTdf/nmcsA5bI0oRzGJl0D9tElcd+Ad0qHpG
RffKwXP8q9G6+wZY1RXxp61XQKP8Kp+B9SYoaJtXDUS+h0odJFOivwWC39O1
EuWr4ViR7oaS8ja0+1HIc1MY5AR6B7jwEdA58rv85CEcgkfP2OtEElBYwxlN
Rk8NOG5arsgTiKgs9J+CtoEPsNt2cc9hHyKa3JZ8r7dYC3YHZuiKv4mops0i
e1XoIxiK2a+fvcyEHgezwr+n68GqKaQg4DsTolxdm+R/2AC+oRkcH0yYUbXB
3hLxn40QIL3zuEgLM9Lab6z89EwzFPogjzDNHWhX4Fyse3ML+NBwbq6KHShE
YEIl0KoV8m8+8Hh5hAV9inncXrtNh8MSVCG7HBYU2nh+NsnmM/BLGsYf28OK
2I+YFvb/zYAW3dzYfSmsSGGdQ1HtxBeAVX6GIoUNlaokqR/RaAezM5jylUg2
pO7PWNM17IBOOqWmgsiOOAua4tldO4Fw8VqkIo0dpVBk3m8mfAX9oN30znl2
RLs0LFZE7wJJivdMmhsHako6Wlgs1ANScWOeySMcaOGDy84Yj2/whHGTBbPh
RIstjjlNPb0QYyTlL9TFicokNrNmTPqg0f3lYMZZLnSQ8/nO0IF+qA0+aefa
zIVcFCTOhmoMgpt0lYObNjfKeBGc6Sc4BKIu5cG51dxo405e8OjKELQSxZLl
qDzI7NTNuPnhYbj7qKZwtYgHXe2+YNTZ9QPmuv2keOV5kcTQ9z1lX0fgds+Z
UK9XvKipzNOmemAUjNwny2T3k9AvmtcR5oWfcMc29ffJdBIya7cLTyb/gqRK
9U4rEhmN7Y37HKoyDlE2644NhmSkSg2qq3edgB/1k3UuD8io6mY15VT2JGSJ
2Pyt00JG4iwPmGenp4Dfb87DhpOCQmdTJSM1fsPdeEvWUn0K4kjUxjqSZ6DR
4iyrSSQFkc0UO8B/FlK8R9+qNFGQ5d56s0eKc6CfL5boxsGHFK6qZ+2emYPo
uOHAWX0+NLhM0sjInwfDZK/nn6L40ERhTkn99QU4yifmxvKJDwXt/qKx//gi
NDZ4Y2k8/OjLO8ZR081F8I9R7M0w4kdDA/HlHQ1LsOVm7Swcx4/e3E+NkUhY
htqBoyFMnfyoziH+1xP7FciQq2lwFRZASc9IEZnyq2A4wmdsaS2A9q+Gzz/Y
XIUuKrX1a5oAsvzLri+ueQ2UC/YHT40KoCrlA61TieswP+5tmyGzE5X4y07V
XfwDrd0qRA7Pneh8c5eo2r4NuK7Y3iBdvhOZjIqrXRndAM1y8WFWoiAK0wp4
Z/ZiEwbGWy6W6wsiqq61Nv/5LVBp1tM4HS+IxK7Z9GSwbMPMF+mwlj5BFFHf
0c+btw2fz2uanzokhAgcrdq5+wioD2vf7r4lhFLmfOQ13Qlo7BhNIqpWCLFu
ObuZvCWgCw0Pi27wCaOHNOMo19n/OmpSK9NBGO2vmegQPkhEvJbUVbViYUTK
lcxbtiAi/WBN/AybCKq+j/3ICCKinhvId/WCCKrT+0amZxDRXYFoIfO3Iqhb
YfrjAYyIKucn2sM4RdEDwZR3XgwiClvOts5zFEUi3VIf7/US0Yp0H+ckLopk
kriGZPqI6H/bdamf
"]]},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.009166666666666668], AbsoluteThickness[1.6], Dashing[{Small, Small}],
LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAA9yXdCuvAGkArlgvhK90BQKArDBxq
HxtAh7UN12DWAUBOWljwU4AbQIGcH+4axwFAZVaTTdbjG0APdgxnZa8BQOg4
TaciShxAaIO+2FuPAUDKTQxsbrMcQOs7nG4qZwFA6vDAV/MfHUD30/kNDjcB
QEj+dcvvjx1AV3RJalT/AEBoWCUqpwMeQC3JlhFcwABA2ex5OmJ7HkAzOSZ9
lHoAQNJVJY1v9x5AUn2ENH4uAEC5IUfnI3gfQIOUsShWuf8/+883sNr9H0Bi
K7eZfQv/Px2r7TB7RCBAWa/sYN9U/j+0fzh98IwgQIaw8dwPl/0/JBlWN4bY
IEAemYq1ztP8P97eX415JyFAiDX8zQsN/D8/rHgYDHohQHrACujtRPs/dcgl
EoTQIUBOUNQ32336P502EIcsKyJAnCxmAoS6+T8CkaaGVYoiQL35d/Lu/fg/
1HxKT1TuIkBxDfTkhUv4P8fc/HaDVyNAt/0kHiCn9z/+xdgQQ8YjQJeVd5UD
Ffc//8gb0Pg6JED9hWTR0Zn2P/079CkQtiRAyiSd+k069j/zi8p3+jclQMU3
iUzk+vU/iSItHC/BJUAEEVnX3t71P1Rx4awrUiZA2hVps03n9T9EktIkdOsm
QBpC9RjhEfY/UVabIJONJ0AfyhbiNVj2P0bnNygaOShAPFRftSSw9j+RTwII
ou4oQCdgKDlLDfc/yA+FOsuuKUDiK23/ZmP3P8i29mM+eipAPMsNWauo9z/Y
Wm7frFErQL177OpQ1/c/krwqXdE1LEBQIJb4EO73PxWIs5BwJy1AYAVPvqzv
9z+SST/tWScuQPUZWrLS4fc/udKqbmg2L0DrCZVUsMv3P2f3t7bBKjBALNVb
RWu09z+AAzC+z8IwQG/pEw21ofc/+K2xp99jMUAjU5sIupb3P9hbhVV6DjJA
QLFzLLqT9z/jG6auMMMyQK7pCqSDlvc/MQEeIJyCM0CM4vddtZv3P26t9iNf
TTRAB4ID8kWg9z/SIHLOJSQ1QAfgLP6bovc//BtPYqYHNkBeJ2yOwqL3Py1J
4Oyh+DZAdbSiaMmh9z+qQLrq5Pc3QF3VeqPToPc/D2y29UcGOUBYegVcb6D3
P6kLA32wJDpASGpFnoWg9z/UwYl8
"]]}}, {{}, {}}}, {{},
{RGBColor[0.528488, 0.470624, 0.701351], PointSize[
0.012833333333333334`], AbsoluteThickness[1.6],
PointBox[{{6.688396615741559, 2.2329938489590595`}, {6.688396615741559,
2.2329938489590595`}}]}, {{}, {}}}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-25.328436022934447`, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TemplateBox[{"\"M/\"",
SubscriptBox["\"M\"", "\"\[PermutationProduct]\""]}, "RowDefault"],
TraditionalForm], None}, {
FormBox[
"\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(c\\)]\\)\[MediumSpace](MeV\
\[ThinSpace]\\!\\(\\*SuperscriptBox[\\(fm\\), \\(-3\\)]\\))\"",
TraditionalForm], None}},
FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision ->
15.954589770191003`, RotateLabel -> 0],
Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
Automatic, Automatic}, {{{-23.025850929940457`,
FormBox[
TemplateBox[{"10",
RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
TraditionalForm], {0.01, 0.}}, {-11.512925464970229`,
FormBox[
TemplateBox[{"10",
RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
TraditionalForm], {0.01, 0.}}, {0.,
FormBox["1", TraditionalForm], {0.01, 0.}}, {11.512925464970229`,
FormBox[
TemplateBox[{"10", "5"}, "Superscript", SyntaxForm ->
SuperscriptBox], TraditionalForm], {0.01, 0.}}, {
23.025850929940457`,
FormBox[
TemplateBox[{"10", "10"}, "Superscript", SyntaxForm ->
SuperscriptBox], TraditionalForm], {0.01,
0.}}, {-27.631021115928547`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-25.328436022934504`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-20.72326583694641,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-18.420680743952367`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-9.210340371976182,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-6.907755278982137,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-2.3025850929940455`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.302585092994046,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.605170185988092,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.210340371976184,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
16.11809565095832,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
20.72326583694641,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
23.7189981105004,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.124463218608568`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.412145291060348`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.635288842374557`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.81761039916851,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.97176107899577,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.10529247162029,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.223075507276675`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.328436022934504`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}}, {{-23.025850929940457`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01,
0.}}, {-11.512925464970229`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0.,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
11.512925464970229`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {
23.025850929940457`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01,
0.}}, {-27.631021115928547`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-25.328436022934504`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-20.72326583694641,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-18.420680743952367`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-9.210340371976182,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-6.907755278982137,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-2.3025850929940455`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
2.302585092994046,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
4.605170185988092,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
9.210340371976184,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
13.815510557964274`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
16.11809565095832,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
20.72326583694641,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
23.7189981105004,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.124463218608568`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.412145291060348`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.635288842374557`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.81761039916851,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
24.97176107899577,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.10529247162029,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.223075507276675`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
25.328436022934504`,
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}],
GridLines->FrontEndValueCache[{
Charting`ScaledTickValues[{Log, Exp}],
Automatic}, {{{-23.025850929940457`,
Directive[]}, {-11.512925464970229`,
Directive[]}, {0.,
Directive[]}, {11.512925464970229`,
Directive[]}, {23.025850929940457`,
Directive[]}}, Automatic}],
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{-25.328436022934504`, 23.025850929940457`}, {0., 3.3}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{
Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision ->
15.954589770191003`, RotateLabel -> 0], Automatic}]], "Output",
CellLabel->"Out[147]=",ExpressionUUID->"1a33c73c-38bb-4607-af3a-0517c8bd79e4"]
}, Open ]]
}, Open ]]
}, Open ]]
},
PrintingStyleEnvironment->"Printout",
EvaluationCompletionAction->{"ShowTiming"},
PrintAction->"PrintToNotebook",
NotebookEventActions:>{"WindowClose" :> If[
MemberQ[NB`UUIDs,
ReplaceAll["ExpressionUUID",
NotebookInformation[]]], If[NB`DumpSaveQ === True,
NB`DumpSave[]]; If[NB`DeleteGeneratedCellsQ === True, FrontEndExecute[{
FrontEndToken["DeleteGeneratedCells"]}]; Null];
If[NB`NotebookSave === True, NotebookSave[]; Null]; Null]},
WindowSize->{1428., 740.25},
WindowMargins->{{-1440, Automatic}, {Automatic, 0}},
DockedCells->{},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{32000, 32000},
PageHeaders->{{
Cell[
TextData[{
StyleBox[
CounterBox["Page"], "PageNumber"],
StyleBox["/", "PageNumber"],
StyleBox[
CounterBox["LastPage", CounterFunction :> Identity], "PageNumber"]}],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
None}, {
Cell[
TextData[{
StyleBox[
CounterBox["Page"], "PageNumber"],
StyleBox["/", "PageNumber"],
StyleBox[
CounterBox["LastPage", CounterFunction :> Identity], "PageNumber"]}],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
None}},
PageFooters->{{
Cell[
TextData[
StyleBox["D:\\Desktop\\field_space_20210316.nb", "FooterText"]],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
Cell[
TextData[
StyleBox[
"2021-03-16T20:23:26 | v3.81 | M. J. Steil | \
msteil@theorie.ikp.physik.tu-darmstadt.de | TU Darmstadt", "FooterText"]],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}]}, {
Cell[
TextData[
StyleBox["D:\\Desktop\\field_space_20210316.nb", "FooterText"]],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
Cell[
TextData[
StyleBox[
"2021-03-16T20:23:26 | v3.81 | M. J. Steil | \
msteil@theorie.ikp.physik.tu-darmstadt.de | TU Darmstadt", "FooterText"]],
"Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}]}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->True,
"FirstPageFace"->Right,
"FirstPageFooter"->True,
"FirstPageHeader"->True,
"Magnification"->1,
"PageSize"->{595.32, 841.92},
"PaperOrientation"->"Portrait",
"PaperSize"->{595.32, 841.92},
"PrintingMargins"->{{28.3465, 28.3465}, {50, 50}}},
PrivateNotebookOptions->{"FileOutlineCache"->False},
ShowGroupOpener->False,
TaggingRules-><|"TryRealOnly" -> False|>,
TrackCellChangeTimes->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->Notebook[{
Cell[
StyleData[StyleDefinitions -> "Default.nb"]],
Cell[
CellGroupData[{
Cell["Style Environment Names", "Section"],
Cell[
StyleData[All, "WorkingDark"], CellInsertionPointCell ->
FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"],
MenuSortingValue -> 1101],
Cell[
StyleData[All, "Printout"], PageWidth :> PaperWidth,
CellHorizontalScrolling -> True,
CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}},
ShowAutoStyles -> False, ShowAutoSpellCheck -> False, ShowSyntaxStyles ->
False, AutoStyleOptions -> {"HighlightMisspelledWords" -> False},
ScriptMinSize -> 5, MenuSortingValue -> 1500,
PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification ->
0.5]}, Open]],
Cell[
CellGroupData[{
Cell[
"Notebook Style", "Section",
CellChangeTimes -> {3.8070389616379795`*^9}],
Cell[
CellGroupData[{
Cell[
StyleData["Notebook"], PrintingStyleEnvironment -> "Printout",
PrintAction -> "PrintToNotebook", PrintingCopies -> 1,
PageHeaders -> {{
Cell[
TextData[{
StyleBox[
CounterBox["Page"], "PageNumber"],
StyleBox["/", "PageNumber"],
StyleBox[
CounterBox["LastPage", CounterFunction :> Identity],
"PageNumber"]}], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
None}, {
Cell[
TextData[{
StyleBox[
CounterBox["Page"], "PageNumber"],
StyleBox["/", "PageNumber"],
StyleBox[
CounterBox["LastPage", CounterFunction :> Identity],
"PageNumber"]}], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
None}}, PageFooters -> {{
Cell[
TextData[
StyleBox[
NotebookFileName[], "FooterText"]], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
Cell[
TextData[
StyleBox[header, "FooterText"]], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}]}, {
Cell[
TextData[
StyleBox[
NotebookFileName[], "FooterText"]], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
Cell[
TextData[
StyleBox[header, "FooterText"]], "Header",
CellMargins -> {{0, Inherited}, {Inherited, Inherited}}]}},
PageHeaderLines -> {False, False},
PrintingOptions -> {
"FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageFooter" ->
True, "FirstPageHeader" -> True, "PageSize" -> {595.32, 841.92},
"PaperOrientation" -> "Portrait", "PaperSize" -> {595.32, 841.92},
"PrintingMargins" -> {{28.3465, 28.3465}, {50, 50}}},
ShowSyntaxStyles -> True],
Cell[
StyleData[
"Notebook", "WorkingDark", StyleDefinitions ->
StyleData["Notebook"]],
AutoStyleOptions -> {
"CommentStyle" -> {
FontColor -> RGBColor[0.596078, 0.462745, 0.666667],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False},
"FunctionLocalVariableStyle" -> {
FontColor -> RGBColor[0.8, 0.470588, 0.196078]},
"GraphicsCompatibilityProblemStyle" -> {
FontColor -> RGBColor[1, 0, 0]},
"LocalScopeConflictStyle" -> {FontColor -> RGBColor[1, 0, 0]},
"LocalVariableStyle" -> {
FontColor -> RGBColor[0.733333, 0.709804, 0.160784]},
"MissingArgumentStyle" -> {FontColor -> RGBColor[1, 0, 0]},
"MisspelledWordStyle" -> {FontColor -> RGBColor[1, 0, 0]},
"NoKernelPresentStyle" -> {FontColor -> RGBColor[1, 0, 0]},
"PatternVariableStyle" -> {
FontColor -> RGBColor[0.8, 0.470588, 0.196078], FontSlant ->
"Italic"},
"StringStyle" -> {
FontColor -> RGBColor[0.415686, 0.529412, 0.34902],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False},
"UndefinedSymbolStyle" -> {
FontColor -> RGBColor[0.407843, 0.592157, 0.733333]},
"UnknownOptionStyle" -> {FontColor -> RGBColor[1, 0, 0]},
"UnwantedAssignmentStyle" -> {FontColor -> RGBColor[1, 0, 0]}},
CodeAssistOptions -> {
"AutoConvertEnable" -> False,
"HeadHighlightStyle" -> {
Background -> RGBColor[0.276471, 0.380392, 0.25098], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471], FontWeight -> Bold},
"MatchHighlightStyle" -> {
Background -> RGBColor[0.276471, 0.380392, 0.25098], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471], FontWeight -> Bold}},
TranslationOptions -> {"Language" -> None}, FontColor ->
RGBColor[0.662745, 0.717647, 0.776471], Background ->
RGBColor[0.168627, 0.168627, 0.168627]],
Cell[
StyleData[
"Hyperlink", "WorkingDark", StyleDefinitions -> StyleData["Link"]],
CellChangeTimes -> {{3.808730972161214*^9, 3.808730982545971*^9}},
LineColor -> RGBColor[0.596078, 0.462745, 0.666667], FrontFaceColor ->
RGBColor[0.596078, 0.462745, 0.666667], BackFaceColor ->
RGBColor[0.596078, 0.462745, 0.666667], GraphicsColor ->
RGBColor[0.596078, 0.462745, 0.666667], FontColor ->
RGBColor[0.596078, 0.462745, 0.666667]],
Cell[
StyleData[
"HyperlinkActive", "WorkingDark", StyleDefinitions ->
StyleData["HyperlinkActive"]],
CellChangeTimes -> {{3.808730972165733*^9, 3.808730982545971*^9}},
FontColor -> RGBColor[0.8, 0.470588, 0.196078]]}, Open]],
Cell[
CellGroupData[{
Cell[
StyleData["CellExpression"]],
Cell[
StyleData[
"CellExpression", "WorkingDark", StyleDefinitions ->
StyleData["CellExpression"]], CellFrame -> 0.5, CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471], Background ->
RGBColor[0.168627, 0.168627, 0.168627]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["NotebookHeader"], CellFrame -> {{0, 0}, {0.5, 0.5}},
CellMargins -> {{5, 0}, {5, 5}},
CellGroupingRules -> {"SectionGrouping", 40},
CellFrameMargins -> {{0, 10}, {5, 5}}, CellFrameColor ->
GrayLevel[0], TextAlignment -> Right, FontFamily ->
"Source Sans Pro", FontSize -> 16, FontWeight -> "Normal",
FontSlant -> "Plain", FontColor -> GrayLevel[0.5], Background ->
GrayLevel[0.85]],
Cell[
StyleData[
"NotebookHeader", "WorkingDark", StyleDefinitions ->
StyleData["NotebookHeader"]], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471], Background ->
RGBColor[
0.25176470588235295`, 0.25176470588235295`,
0.25176470588235295`]]}, Closed]],
Cell[
CellGroupData[{
Cell["InitializationSecion and -Cell", "Subsection"],
Cell[
CellGroupData[{
Cell[
StyleData["InitializationSection"],
CellFrame -> {{3, 0}, {0, 0}},
CellMargins -> {{27, Inherited}, {10, 15}},
CellGroupingRules -> {"SectionGrouping", 30},
LineSpacing -> {1, 4}, FontFamily -> "Source Sans Pro", FontSize ->
24, FontColor ->
RGBColor[
0.7612268253604944, 0.29576562142366675`, 0.08555733577477684]],
Cell[
StyleData[
"InitializationSection", "WorkingDark", StyleDefinitions ->
StyleData["InitializationSection"]], CellFrameColor ->
RGBColor[
0.33137254901960783`, 0.3588235294117647, 0.38823529411764707`],
FontColor ->
RGBColor[
0.3843137254901961, 0.592156862745098, 0.3333333333333333]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["InitializationCell"], ShowCellTags -> True,
Background -> GrayLevel[0.92]],
Cell[
StyleData["InitializationCell", "WorkingDark"], Background ->
RGBColor[0.251765, 0.251765, 0.251765]]}, Closed]]}, Open]],
Cell[
CellGroupData[{
Cell["Author, Affiliation and Abstract", "Subsection"],
Cell[
StyleData["Author"], CellMargins -> {{80, 100}, {2, 6}}],
Cell[
CellGroupData[{
Cell[
StyleData["Affiliation"], CellMargins -> {{80, 100}, {8, 2}}],
Cell[
StyleData[
"Affiliation", "WorkingDark", StyleDefinitions ->
StyleData["Affiliation"]], FontColor ->
RGBColor[0.596078, 0.462745, 0.666667]]}, Closed]],
Cell[
StyleData["Abstract"], CellMargins -> {{80, 100}, {6, 6}}, FontSize ->
15, FontSlant -> "Plain"]}, Closed]]}, Open]],
Cell[
CellGroupData[{
Cell["Styles for Title and Section Cells", "Section"],
Cell[
CellGroupData[{
Cell[
StyleData["Title"], CellFrame -> {{0, 0}, {4, 4}}, CellFrameColor ->
GrayLevel[0]],
Cell[
StyleData[
"Title", "WorkingDark", StyleDefinitions -> StyleData["Title"]],
CellFrameColor -> RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.384314, 0.592157, 0.333333]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Chapter"], CellFrame -> {{0, 0}, {3, 3}},
CellGroupingRules -> {"SectionGrouping", 20}, TextAlignment -> Left,
TextJustification -> 1, LineSpacing -> {1, 3},
CounterAssignments -> {{"DisplayFormulaNumbered", 0}}, FontColor ->
RGBColor[
0.7612268253604944, 0.29576562142366675`, 0.08555733577477684]],
Cell[
StyleData[
"Chapter", "WorkingDark", StyleDefinitions -> StyleData["Chapter"]],
CellFrameColor -> RGBColor[0.331373, 0.358824, 0.388235],
FontColor -> RGBColor[0.384314, 0.592157, 0.333333]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Section"], CellFrame -> {{0, 0}, {0.5, 0.5}},
CellGroupingRules -> {"SectionGrouping", 30}, CellFrameColor ->
GrayLevel[0.5]],
Cell[
StyleData[
"Section", "WorkingDark", StyleDefinitions -> StyleData["Section"]],
CellFrameColor ->
RGBColor[
0.33137254901960783`, 0.3588235294117647, 0.38823529411764707`],
FontColor -> RGBColor[0.384314, 0.592157, 0.333333]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subsection"], CellFrame -> {{3, 0}, {0, 0.5}},
CellFrameColor -> GrayLevel[0.5]],
Cell[
StyleData[
"Subsection", "WorkingDark", StyleDefinitions ->
StyleData["Subsection"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.384314, 0.592157, 0.333333]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subsubsection"], CellFrame -> {{3, 0}, {0, 0}},
CellFrameColor -> GrayLevel[0.5]],
Cell[
StyleData[
"Subsubsection", "WorkingDark", StyleDefinitions ->
StyleData["Subsubsection"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.384314, 0.592157, 0.333333]]}, Closed]],
Cell[
CellGroupData[{
Cell[
"NonEvaluating ", "Subsection",
CellChangeTimes -> {{3.8070354431248274`*^9,
3.8070354578354144`*^9}}],
Cell[
CellGroupData[{
Cell[
StyleData[
"NonEvaluatingChapter", StyleDefinitions ->
StyleData["Chapter"]], CellFrame -> {{0, 0}, {3, 3}},
PrivateCellOptions -> {
"CellGroupBaseStyle" -> {Evaluatable -> False}},
CellGroupingRules -> {"SectionGrouping", 20}, TextAlignment ->
Left, TextJustification -> 1, LineSpacing -> {1, 3},
MenuSortingValue -> 10000, FontSlant -> "Italic", FontColor ->
GrayLevel[0.5]],
Cell[
StyleData[
"NonEvaluatingChapter", "WorkingDark", StyleDefinitions ->
StyleData["NonEvaluatingChapter"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.331373, 0.358824, 0.388235]]}, Open]],
Cell[
CellGroupData[{
Cell[
StyleData[
"NonEvaluatingSection", StyleDefinitions ->
StyleData["Section"]],
PrivateCellOptions -> {
"CellGroupBaseStyle" -> {Evaluatable -> False}},
MenuSortingValue -> 10000, FontSlant -> "Italic", FontColor ->
GrayLevel[0.5]],
Cell[
StyleData[
"NonEvaluatingSection", "WorkingDark", StyleDefinitions ->
StyleData["NonEvaluatingSection"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.331373, 0.358824, 0.388235]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"NonEvaluatingSubsection", StyleDefinitions ->
StyleData["Subsection"]],
PrivateCellOptions -> {
"CellGroupBaseStyle" -> {Evaluatable -> False}},
MenuSortingValue -> 10000, FontSlant -> "Italic", FontColor ->
GrayLevel[0.5]],
Cell[
StyleData[
"NonEvaluatingSubsection", "WorkingDark", StyleDefinitions ->
StyleData["NonEvaluatingSubsection"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.331373, 0.358824, 0.388235]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"NonEvaluatingSubsubsection", StyleDefinitions ->
StyleData["Subsubsection"]],
PrivateCellOptions -> {
"CellGroupBaseStyle" -> {Evaluatable -> False}},
AllowGroupClose -> Automatic, MenuSortingValue -> 10000,
FontSlant -> "Italic", FontColor -> GrayLevel[0.5]],
Cell[
StyleData[
"NonEvaluatingSubsubsection", "WorkingDark", StyleDefinitions ->
StyleData["NonEvaluatingSubsubsection"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235], FontColor ->
RGBColor[0.331373, 0.358824, 0.388235]]}, Closed]]}, Open]]},
Open]],
Cell[
CellGroupData[{
Cell["Styles for Input and Output Cells", "Section"],
Cell[
StyleData["Input"], LinebreakAdjustments -> {0.85, 2, 1, 0, 0}],
Cell[
StyleData[
"NonEvaluatingInput", StyleDefinitions -> StyleData["Input"]],
Evaluatable -> False,
AutoStyleOptions -> {
"CommentStyle" -> {
FontColor -> GrayLevel[0.5], ShowAutoStyles -> False,
ShowSyntaxStyles -> False, AutoNumberFormatting -> False},
"EmphasizedSyntaxErrorStyle" -> {FontColor -> GrayLevel[0.5]},
"FunctionLocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalScopeConflictStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"PatternVariableStyle" -> {
FontColor -> GrayLevel[0.5], FontSlant -> Italic},
"StringStyle" -> {FontColor -> GrayLevel[0.5]},
"SymbolShadowingStyle" -> {FontColor -> GrayLevel[0.5]},
"UndefinedSymbolStyle" -> {FontColor -> GrayLevel[0.5]}},
MenuSortingValue -> 1500, FontColor -> GrayLevel[0.5]],
Cell[
CellGroupData[{
Cell["Code", "Subsection"],
Cell[
CellGroupData[{
Cell[
StyleData["Code"], CellFrame -> {{0.5, 0}, {0, 0}},
CellMargins -> {{66, 10}, {5, 5}}, InitializationCell -> False,
CellFrameMargins -> {{8, 0}, {5, 5}}],
Cell[
StyleData[
"Code", "WorkingDark", StyleDefinitions -> StyleData["Code"]],
CellFrameColor -> RGBColor[0.331373, 0.358824, 0.388235]]},
Open]],
Cell[
StyleData[
"NonEvaluatingCode", StyleDefinitions -> StyleData["Code"]],
Evaluatable -> False, InitializationCell -> False, CellFrameColor ->
GrayLevel[0.5],
AutoStyleOptions -> {
"CommentStyle" -> {
FontColor -> GrayLevel[0.5], ShowAutoStyles -> False,
ShowSyntaxStyles -> False, AutoNumberFormatting -> False},
"EmphasizedSyntaxErrorStyle" -> {FontColor -> GrayLevel[0.5]},
"FunctionLocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalScopeConflictStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"PatternVariableStyle" -> {
FontColor -> GrayLevel[0.5], FontSlant -> Italic},
"StringStyle" -> {FontColor -> GrayLevel[0.5]},
"SymbolShadowingStyle" -> {FontColor -> GrayLevel[0.5]},
"UndefinedSymbolStyle" -> {FontColor -> GrayLevel[0.5]}},
LanguageCategory -> "Formula", MenuSortingValue -> 1450, FontColor ->
GrayLevel[0.5]]}, Open]],
Cell[
CellGroupData[{
Cell["CodePackage ", "Subsection"],
Cell[
CellGroupData[{
Cell[
StyleData["CodePackage", StyleDefinitions -> StyleData["Code"]],
CellFrame -> {{3, 0}, {0, 0}}, MenuSortingValue -> 1451],
Cell[
StyleData[
"CodePackage", "WorkingDark", StyleDefinitions ->
StyleData["CodePackage"]], CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235]]}, Open]],
Cell[
StyleData[
"NonEvaluatingCodePackage", StyleDefinitions ->
StyleData["CodePackage"]], Evaluatable -> False,
InitializationCell -> False, CellFrameColor -> GrayLevel[0.5],
AutoStyleOptions -> {
"CommentStyle" -> {
FontColor -> GrayLevel[0.5], ShowAutoStyles -> False,
ShowSyntaxStyles -> False, AutoNumberFormatting -> False},
"EmphasizedSyntaxErrorStyle" -> {FontColor -> GrayLevel[0.5]},
"FunctionLocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalScopeConflictStyle" -> {FontColor -> GrayLevel[0.5]},
"LocalVariableStyle" -> {FontColor -> GrayLevel[0.5]},
"PatternVariableStyle" -> {
FontColor -> GrayLevel[0.5], FontSlant -> Italic},
"StringStyle" -> {FontColor -> GrayLevel[0.5]},
"SymbolShadowingStyle" -> {FontColor -> GrayLevel[0.5]},
"UndefinedSymbolStyle" -> {FontColor -> GrayLevel[0.5]}},
LanguageCategory -> "Formula", MenuSortingValue -> 1451, FontColor ->
GrayLevel[0.5]]}, Open]],
Cell[
CellGroupData[{
Cell[
"Iconized object ", "Subsection",
CellChangeTimes -> {{3.8070354431248274`*^9,
3.8070354578354144`*^9}, {3.811809860450386*^9,
3.8118098640067024`*^9}}],
Cell[
StyleData[
"IconizedFrame", "WorkingDark", StyleDefinitions ->
StyleData["IconizedFrame"]],
TemplateBoxOptions -> {
DisplayFunction -> (
FrameBox[#, BaselinePosition -> Baseline,
FrameMargins -> {{0, 0}, {2, 1}}, FrameStyle ->
RGBColor[0.5, 0.5, 0.5], Background ->
RGBColor[0.35, 0.35, 0.35], RoundingRadius -> 4,
DefaultBaseStyle -> {
"DialogStyle", FontFamily -> "Roboto", FontSize -> 11}]& ),
Tooltip -> None}],
Cell[
StyleData[
"IconizedItem", "WorkingDark", StyleDefinitions ->
StyleData["IconizedItem"]], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471],
TagBoxOptions -> {Selectable -> True}],
Cell[
StyleData[
"IconizedLabel", "WorkingDark", StyleDefinitions ->
StyleData["IconizedLabel"]], FontColor ->
RGBColor[0.596078, 0.462745, 0.666667]],
Cell[
StyleData[
"IconizedCustomName", "WorkingDark", StyleDefinitions ->
StyleData["IconizedCustomName"]], FontColor ->
RGBColor[0.662745, 0.717647, 0.776471]],
Cell[
StyleData[
"IconizedDefaultName", "WorkingDark", StyleDefinitions ->
StyleData["IconizedDefaultName"]],
TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[
FEPrivate`Switch[#, "ListIcon",
FEPrivate`FrontEndResource["FEBitmaps", "IconizeListIcon"],
"AssociationIcon",
FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeAssociationIcon"], "StringIcon",
FEPrivate`FrontEndResource["FEBitmaps", "IconizeStringIcon"],
"SequenceIcon",
FEPrivate`FrontEndResource["FEBitmaps", "IconizeSequenceIcon"],
Blank[], #],
BaseStyle -> {
FontColor -> RGBColor[0.662745, 0.717647, 0.776471], FontSize ->
12, PrivateFontOptions -> {
"OperatorSubstitution" -> False}}]& )}]}, Open]]}, Open]],
Cell[
CellGroupData[{
Cell[
"Styles for Formulas", "Section",
CellChangeTimes -> {3.8070355288234005`*^9}],
Cell[
CellGroupData[{
Cell[
StyleData["DisplayFormula"], CellFrame -> {{0.5, 3}, {3, 0.5}},
CellMargins -> {{66, 31}, {Inherited, Inherited}}],
Cell[
StyleData[
"DisplayFormula", "WorkingDark", StyleDefinitions ->
StyleData["DisplayFormula"]],
CellMargins -> {{66, 68}, {Inherited, Inherited}}, CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235],
AutoStyleOptions -> {
"StringStyle" -> {
FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False}}, FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
Background ->
RGBColor[
0.16862745098039217`, 0.16862745098039217`,
0.16862745098039217`]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"DisplayFormulaPrinted", StyleDefinitions ->
StyleData["DisplayFormula"]],
CellFrame -> {{0.5, 1.5}, {1.5, 0.5}}, CellDingbat ->
Cell["\[RightGuillemet] ", FontSize -> Inherited + 3]],
Cell[
StyleData[
"DisplayFormulaPrinted", "WorkingDark", StyleDefinitions ->
StyleData["DisplayFormula"]],
CellMargins -> {{66, 65}, {Inherited, Inherited}}, CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235],
AutoStyleOptions -> {
"StringStyle" -> {
FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False}}, FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
Background ->
RGBColor[
0.16862745098039217`, 0.16862745098039217`,
0.16862745098039217`]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["DisplayFormulaNumbered"],
CellFrame -> {{0.5, 3}, {3, 0.5}}, CellFrameLabels -> {{None,
Cell[
TextData[{"(",
CounterBox["Chapter"], ".",
CounterBox["DisplayFormulaNumbered"], ")"}],
"DisplayFormulaEquationNumber"]}, {None, None}}],
Cell[
StyleData[
"DisplayFormulaNumbered", "WorkingDark", StyleDefinitions ->
StyleData["DisplayFormulaNumbered"]],
CellMargins -> {{66, 40}, {Inherited, Inherited}}, CellFrameColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
AutoStyleOptions -> {
"StringStyle" -> {
FontColor -> RGBColor[0.415686, 0.529412, 0.34902],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False}}, FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
Background ->
RGBColor[
0.16862745098039217`, 0.16862745098039217`,
0.16862745098039217`]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"DisplayFormulaNumberedPrinted", StyleDefinitions ->
StyleData["DisplayFormulaNumbered"]],
CellFrame -> {{0.5, 1.5}, {1.5, 0.5}}, CellDingbat ->
Cell["\[RightGuillemet] ", FontSize -> Inherited + 3]],
Cell[
StyleData[
"DisplayFormulaNumberedPrinted", "WorkingDark", StyleDefinitions ->
StyleData["DisplayFormulaNumbered"]],
CellMargins -> {{66, 40}, {Inherited, Inherited}}, CellFrameColor ->
RGBColor[0.331373, 0.358824, 0.388235],
AutoStyleOptions -> {
"StringStyle" -> {
FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
ShowAutoStyles -> False, ShowSyntaxStyles -> False,
AutoNumberFormatting -> False}}, FontColor ->
RGBColor[
0.6627450980392157, 0.7176470588235294, 0.7764705882352941],
Background ->
RGBColor[
0.16862745098039217`, 0.16862745098039217`,
0.16862745098039217`]]}, Closed]]}, Open]],
Cell[
CellGroupData[{
Cell["Styles for Printed Runningheads and Footers", "Section"],
Cell[
StyleData["PageNumber"], MenuSortingValue -> None, FontFamily ->
"Arial", FontSize -> 6, FontSlant -> Plain],
Cell[
StyleData["FooterText"], MenuSortingValue -> None, FontFamily ->
"Arial", FontSize -> 4, FontSlant -> Plain]}, Open]]}, Visible ->
False, FrontEndVersion ->
"13.0 for Microsoft Windows (64-bit) (February 4, 2022)", StyleDefinitions ->
"PrivateStylesheetFormatting.nb"],
ExpressionUUID->"260c2c86-d550-4e38-8be5-26d4622e8a43"
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment