diff options
Diffstat (limited to 'IsingScalingFunctionExamples.nb')
| -rw-r--r-- | IsingScalingFunctionExamples.nb | 10814 |
1 files changed, 10814 insertions, 0 deletions
diff --git a/IsingScalingFunctionExamples.nb b/IsingScalingFunctionExamples.nb new file mode 100644 index 0000000..c522108 --- /dev/null +++ b/IsingScalingFunctionExamples.nb @@ -0,0 +1,10814 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 554332, 10806] +NotebookOptionsPosition[ 548041, 10697] +NotebookOutlinePosition[ 548438, 10713] +CellTagsIndexPosition[ 548395, 10710] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"SetDirectory", "[", + RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input", + CellChangeTimes->{{3.857727143976652*^9, 3.857727184451297*^9}, { + 3.872827316271285*^9, 3.8728273233104467`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"cb2d1f0e-8921-4d60-a098-a74598dfa8f6"], + +Cell[BoxData[ + RowBox[{"<<", "IsingScalingFunction`"}]], "Input", + CellChangeTimes->{{3.857727185315662*^9, 3.857727193227276*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], + +Cell[CellGroupData[{ + +Cell["Checking Convergence", "Section", + CellChangeTimes->{{3.88717558687833*^9, + 3.8871755894618473`*^9}},ExpressionUUID->"c6615333-57fa-470a-9d07-\ +45b7998853ef"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"expansionData", "=", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "10", "]"}]}], + ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "10", "]"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DScriptMCasD\[Xi]List", "[", + RowBox[{"10", ",", "\[Theta]0Cas"}], "]"}], + RowBox[{"Table", "[", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"m", "-", "1"}], ")"}], "!"}], + RowBox[{"m", "!"}]], ",", + RowBox[{"{", + RowBox[{"m", ",", "1", ",", "11"}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8886448431935587`*^9, 3.8886448702334423`*^9}, { + 3.893236672936851*^9, 3.893236714190187*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"80831edd-bcaa-4fc0-b1cf-e561a87ed645"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"lowExpansion", "=", + RowBox[{"ListLogPlot", "[", + RowBox[{ + RowBox[{"Abs", "@", + RowBox[{"Prepend", "[", + RowBox[{ + RowBox[{"N", "@", "expansionData"}], ",", + RowBox[{"Rest", "@", "Gls"}]}], "]"}]}], ",", "\[IndentingNewLine]", + RowBox[{"PlotLegends", "->", + RowBox[{"{", + RowBox[{ + "\"\<True value\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\) acc. \ +(\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 2)\>\"", ",", " ", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-7\)]\) acc. \ +(\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 6)\>\"", ",", " ", + "\"\<Casselle \ +\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ +\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "m", ",", + "\"\<\!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \"-\"], \ +RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)(0)\>\""}], + "}"}]}], ",", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"ImageSize", "->", "300"}], ",", + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "14"}], ",", + RowBox[{"FontFamily", "->", "Times"}]}], "}"}]}]}], + "\[IndentingNewLine]", "]"}]}]], "Input", + CellChangeTimes->{{3.857749647216098*^9, 3.8577496994157143`*^9}, { + 3.857749922049673*^9, 3.85774992576917*^9}, {3.8577499613439693`*^9, + 3.857749992122797*^9}, 3.85775012053415*^9, {3.857750706878583*^9, + 3.857750707403603*^9}, {3.857751644877963*^9, 3.857751657226074*^9}, { + 3.8577517214782124`*^9, 3.857751736522636*^9}, {3.857752278605008*^9, + 3.857752279401206*^9}, {3.857752310485083*^9, 3.857752324517762*^9}, { + 3.857752360898025*^9, 3.857752363157537*^9}, {3.857753041193503*^9, + 3.85775304373606*^9}, {3.857753117795965*^9, 3.8577531179827213`*^9}, { + 3.85775377848352*^9, 3.8577537891272383`*^9}, {3.8577539046194077`*^9, + 3.857753911831979*^9}, {3.8577541823791513`*^9, 3.857754190311756*^9}, { + 3.85775442603514*^9, 3.857754438089511*^9}, {3.857755022546867*^9, + 3.857755042653729*^9}, {3.857790310738358*^9, 3.857790311353793*^9}, { + 3.857792220388947*^9, 3.857792221589129*^9}, {3.887175734000527*^9, + 3.887175745176688*^9}, {3.887175776777956*^9, 3.887175890987341*^9}, { + 3.887175927630155*^9, 3.887175941140204*^9}, {3.887175972652753*^9, + 3.887175999053248*^9}, {3.8871760552145844`*^9, 3.887176082574828*^9}, { + 3.8871762157611847`*^9, 3.8871762198011923`*^9}, {3.887177053185808*^9, + 3.887177056768643*^9}, {3.887177274797546*^9, 3.887177275893218*^9}, { + 3.887182861536953*^9, 3.887182887361492*^9}, {3.888644779680475*^9, + 3.888644805864798*^9}, {3.888645052645789*^9, 3.888645082429496*^9}, { + 3.8886469041838827`*^9, 3.888646906527582*^9}, {3.888651934772694*^9, + 3.888651946156498*^9}, {3.8886519793259983`*^9, 3.888651979938348*^9}, { + 3.888652017390772*^9, 3.888652019678075*^9}, {3.8886521205763397`*^9, + 3.8886521472005053`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{3., -3.2476887336074802`}, {3., -3.247688656415082}}], + LineBox[{{3., -3.247688656415082}, {3., -3.2476885792226895`}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{4., -2.682936452811683}, {4., -2.6829364235557143`}}], + + LineBox[{{4., -2.6829364235557143`}, { + 4., -2.6829363942997464`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{5., -1.6934518408101742`}, {5., -1.6934517864279734`}}], + + LineBox[{{5., -1.6934517864279734`}, { + 5., -1.6934517320457758`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{6., -0.41677183895602404`}, {6., -0.4167716872504016}}], + LineBox[{{6., -0.4167716872504016}, {6., -0.4167715355448022}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{7., 1.077614026885801}, {7., 1.077615048105556}}], + LineBox[{{7., 1.077615048105556}, {7., 1.0776160693242682`}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{8., 2.747270914255491}, {8., 2.7479117345273405`}}], + LineBox[{{8., 2.7479117345273405`}, {8., 2.7485521444115397`}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{9., 4.572130331909891}, {9., 4.572233685741827}}], + LineBox[{{9., 4.572233685741827}, {9., 4.572337028892852}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{10., 6.519147287940395}, {10., 6.520621127558696}}], + LineBox[{{10., 6.520621127558696}, {10., 6.522092798170153}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{11., 8.58110651715989}, {11., 8.582980931954241}}], + LineBox[{{11., 8.582980931954241}, {11., 8.584851839890053}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{12., 10.747207591575448`}, {12., 10.749355820113736`}}], + + LineBox[{{12., 10.749355820113736`}, {12., + 10.751499443656988`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{13., 13.005829561148378`}, {13., 13.008074231002201`}}], + + LineBox[{{13., 13.008074231002201`}, {13., + 13.010313873595706`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{14., 15.35237777756354}, {14., 15.354526006101828`}}], + + LineBox[{{14., 15.354526006101828`}, {14., + 15.35666962964508}}]}}}}, {{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -3.2476885792226895`}, + Offset[{3, 0}, {3., -3.2476885792226895`}]}, {{ + 3., -3.2476885792226895`}, + Offset[{-3, 0}, {3., -3.2476885792226895`}]}, {{ + 3., -3.2476887336074802`}, + Offset[{3, 0}, {3., -3.2476887336074802`}]}, {{ + 3., -3.2476887336074802`}, + Offset[{-3, 0}, {3., -3.2476887336074802`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -2.6829363942997464`}, + Offset[{3, 0}, {4., -2.6829363942997464`}]}, {{ + 4., -2.6829363942997464`}, + Offset[{-3, 0}, {4., -2.6829363942997464`}]}, {{ + 4., -2.682936452811683}, + Offset[{3, 0}, {4., -2.682936452811683}]}, {{ + 4., -2.682936452811683}, + Offset[{-3, 0}, {4., -2.682936452811683}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -1.6934517320457758`}, + Offset[{3, 0}, {5., -1.6934517320457758`}]}, {{ + 5., -1.6934517320457758`}, + Offset[{-3, 0}, {5., -1.6934517320457758`}]}, {{ + 5., -1.6934518408101742`}, + Offset[{3, 0}, {5., -1.6934518408101742`}]}, {{ + 5., -1.6934518408101742`}, + Offset[{-3, 0}, {5., -1.6934518408101742`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -0.4167715355448022}, + Offset[{3, 0}, {6., -0.4167715355448022}]}, {{ + 6., -0.4167715355448022}, + Offset[{-3, 0}, {6., -0.4167715355448022}]}, {{ + 6., -0.41677183895602404`}, + Offset[{3, 0}, {6., -0.41677183895602404`}]}, {{ + 6., -0.41677183895602404`}, + Offset[{-3, 0}, {6., -0.41677183895602404`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., 1.0776160693242682`}, + Offset[{3, 0}, {7., 1.0776160693242682`}]}, {{7., + 1.0776160693242682`}, + Offset[{-3, 0}, {7., 1.0776160693242682`}]}, {{7., + 1.077614026885801}, + Offset[{3, 0}, {7., 1.077614026885801}]}, {{7., + 1.077614026885801}, + Offset[{-3, 0}, {7., 1.077614026885801}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{8., 2.7485521444115397`}, + Offset[{3, 0}, {8., 2.7485521444115397`}]}, {{8., + 2.7485521444115397`}, + Offset[{-3, 0}, {8., 2.7485521444115397`}]}, {{8., + 2.747270914255491}, + Offset[{3, 0}, {8., 2.747270914255491}]}, {{8., + 2.747270914255491}, + Offset[{-3, 0}, {8., 2.747270914255491}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{9., 4.572337028892852}, + Offset[{3, 0}, {9., 4.572337028892852}]}, {{9., + 4.572337028892852}, + Offset[{-3, 0}, {9., 4.572337028892852}]}, {{9., + 4.572130331909891}, + Offset[{3, 0}, {9., 4.572130331909891}]}, {{9., + 4.572130331909891}, + Offset[{-3, 0}, {9., 4.572130331909891}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{10., 6.522092798170153}, + Offset[{3, 0}, {10., 6.522092798170153}]}, {{10., + 6.522092798170153}, + Offset[{-3, 0}, {10., 6.522092798170153}]}, {{10., + 6.519147287940395}, + Offset[{3, 0}, {10., 6.519147287940395}]}, {{10., + 6.519147287940395}, + Offset[{-3, 0}, {10., 6.519147287940395}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{11., 8.584851839890053}, + Offset[{3, 0}, {11., 8.584851839890053}]}, {{11., + 8.584851839890053}, + Offset[{-3, 0}, {11., 8.584851839890053}]}, {{11., + 8.58110651715989}, + Offset[{3, 0}, {11., 8.58110651715989}]}, {{11., + 8.58110651715989}, + Offset[{-3, 0}, {11., 8.58110651715989}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{12., 10.751499443656988`}, + Offset[{3, 0}, {12., 10.751499443656988`}]}, {{12., + 10.751499443656988`}, + Offset[{-3, 0}, {12., 10.751499443656988`}]}, {{12., + 10.747207591575448`}, + Offset[{3, 0}, {12., 10.747207591575448`}]}, {{12., + 10.747207591575448`}, + Offset[{-3, 0}, {12., 10.747207591575448`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{13., 13.010313873595706`}, + Offset[{3, 0}, {13., 13.010313873595706`}]}, {{13., + 13.010313873595706`}, + Offset[{-3, 0}, {13., 13.010313873595706`}]}, {{13., + 13.005829561148378`}, + Offset[{3, 0}, {13., 13.005829561148378`}]}, {{13., + 13.005829561148378`}, + Offset[{-3, 0}, {13., 13.005829561148378`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{14., 15.35666962964508}, + Offset[{3, 0}, {14., 15.35666962964508}]}, {{14., + 15.35666962964508}, + Offset[{-3, 0}, {14., 15.35666962964508}]}, {{14., + 15.35237777756354}, + Offset[{3, 0}, {14., 15.35237777756354}]}, {{14., + 15.35237777756354}, + Offset[{-3, 0}, {14., 15.35237777756354}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}}}}, {{{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[{{1., 0.3058939805973386}, {2., -3.016888706538089}, { + 3., -3.247688656415082}, {4., -2.6829364235557143`}, { + 5., -1.6934517864279734`}, {6., -0.4167716872504016}, {7., + 1.077615048105556}, {8., 2.7479117345273405`}, {9., + 4.572233685741827}, {10., 6.520621127558696}, {11., + 8.582980931954241}, {12., 10.749355820113736`}, {13., + 13.008074231002201`}, {14., 15.354526006101828`}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[{{1., 0.30589398059712153`}, {2., -3.0168887065353793`}, { + 3., -3.215068310215657}, {4., -2.5725384548275394`}, { + 5., -1.4892648280226084`}, {6., -0.13860489379333457`}, {7., + 1.3936280651899522`}, {8., 3.0682292980253587`}, {9., + 4.868772070631323}, {10., 6.787701993282296}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[{{1., 0.3058939805973111}, {2., -3.016888706529401}, { + 3., -3.2476886917736394`}, {4., -2.6829364131573383`}, { + 5., -1.6934517950284986`}, {6., -0.4167716527892342}, {7., + 1.077920988068182}, {8., 2.751072257647312}, {9., + 4.580918298498121}, {10., 6.559514124245457}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + PointBox[{{1., 0.30713407270311166`}, {2., -3.067110308065294}, { + 3., -3.4304577212393763`}, {4., -3.0879090822971853`}, { + 5., -2.4123077494594973`}, {6., -1.5399609645024661`}, { + 7., -0.5375360276296015}, {8., 0.5571798344870343}, {9., + 1.7206870273901242`}, {10., 2.937388810483148}, {11., + 4.196416462160851}}]}}}, {{}, {}}}, { + DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> + Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["m", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalF]\\\", \\\ +\"-\\\"], RowBox[{\\\"(\\\", StyleBox[\\\"m\\\",FontSlant->\\\"Italic\\\"], \ +\\\")\\\"}]]\\)(0)\"", HoldForm], TraditionalForm]}, + AxesOrigin -> {0., -4.900657053954936}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], ImageSize -> 300, LabelStyle -> { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, + Method -> { + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[ + 0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> + Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> + True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& )}}, + PlotRange -> {{0., 14.}, {-4.900657053954936, 15.35666962964508}}, + PlotRangeClipping -> True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0]}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"True value\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\) acc. \ +(\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = 2)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-7\\)]\\) acc. \ +(\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = 6)\"", + "\"Casselle \\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\ +\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ +\"al\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\ +\\\"Italic\\\"]\\)\""}, "PointLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #2}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #3}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #4}}, + 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], { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"PointLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False", ",", "False"}], + "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "14"}], ",", + RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{ + 3.85775236362393*^9, {3.857753041693356*^9, 3.857753064352551*^9}, { + 3.857753109883153*^9, 3.8577531212700233`*^9}, {3.857753778726769*^9, + 3.857753797688981*^9}, {3.85775390996132*^9, 3.8577539129626293`*^9}, { + 3.857753956594308*^9, 3.857753978345298*^9}, {3.857754182953856*^9, + 3.857754191065139*^9}, {3.857754422623551*^9, 3.857754438672948*^9}, { + 3.8577550257279997`*^9, 3.857755045295697*^9}, 3.8577563069226103`*^9, + 3.857790311770729*^9, 3.857790676280467*^9, 3.857791263968403*^9, + 3.857792222287586*^9, 3.858849787156363*^9, 3.87050364829076*^9, + 3.8871757582795773`*^9, 3.887175832439167*^9, 3.887175881031187*^9, + 3.8871759132706127`*^9, {3.887177050408825*^9, 3.887177079176489*^9}, + 3.8871778469623938`*^9, 3.887182910688779*^9, 3.8886448295691757`*^9, { + 3.888646811017542*^9, 3.888646814560216*^9}, 3.888646910080586*^9, + 3.8886519498592653`*^9, 3.888651983555497*^9, 3.88865202351644*^9, { + 3.8886521263516397`*^9, 3.888652150779788*^9}, 3.893236723869225*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7e2943f8-381c-42b0-8f9b-5bee0ef91468"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListLogPlot", "[", + RowBox[{ + RowBox[{"Abs", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Rest", "@", "\[CapitalPhi]s"}], ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptF0D\[Eta]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptF0D\[Eta]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], + ",", "\[IndentingNewLine]", + RowBox[{"PlotLegends", "->", + RowBox[{"{", + RowBox[{ + "\"\<Numerics\>\"", ",", + "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 2)\>\"", ",", + " ", "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = \ +6)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "m", ",", + "\"\<\!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \"0\"], \ +RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], + "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.887176095335842*^9, 3.887176195096656*^9}, { + 3.887177268477648*^9, 3.887177312454509*^9}, {3.88717809517518*^9, + 3.887178096950481*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{2., -2.199250858729474}, {2., -2.1992508587114377`}}], + LineBox[{{2., -2.1992508587114377`}, {2., -2.199250858693401}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{3., -4.108835370883289}, {3., -4.108835369665774}}], + LineBox[{{3., -4.108835369665774}, {3., -4.108835368448258}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{4., -8.23957016697712}, {4., -8.239569788186014}}], + LineBox[{{4., -8.239569788186014}, {4., -8.23956940939505}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{5., -7.57318515764723}, {5., -7.573184963114589}}], + LineBox[{{5., -7.573184963114589}, {5., -7.573184768581987}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{6., -8.473827235511466}, {6., -8.473822447718424}}], + LineBox[{{6., -8.473822447718424}, {6., -8.473817659948304}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{7., -10.012900713523315`}, {7., -10.012878401308493`}}], + + LineBox[{{7., -10.012878401308493`}, { + 7., -10.012856089591494`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{8., -14.970693198120777`}, {8., -14.967523623359499`}}], + LineBox[{{8., -14.967523623359499`}, {8., -14.96436406306913}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{9., -12.356895535264757`}, {9., -12.354572653848617`}}], + + LineBox[{{9., -12.354572653848617`}, { + 9., -12.352255155708255`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{10., -13.13241371325783}, {10., -13.127375919227873`}}], + + LineBox[{{10., -13.127375919227873`}, { + 10., -13.122363377404328`}}]}}}}, {{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -2.199250858693401}, + Offset[{3, 0}, {2., -2.199250858693401}]}, {{ + 2., -2.199250858693401}, + Offset[{-3, 0}, {2., -2.199250858693401}]}, {{ + 2., -2.199250858729474}, + Offset[{3, 0}, {2., -2.199250858729474}]}, {{ + 2., -2.199250858729474}, + Offset[{-3, 0}, {2., -2.199250858729474}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -4.108835368448258}, + Offset[{3, 0}, {3., -4.108835368448258}]}, {{ + 3., -4.108835368448258}, + Offset[{-3, 0}, {3., -4.108835368448258}]}, {{ + 3., -4.108835370883289}, + Offset[{3, 0}, {3., -4.108835370883289}]}, {{ + 3., -4.108835370883289}, + Offset[{-3, 0}, {3., -4.108835370883289}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.23956940939505}, + Offset[{3, 0}, {4., -8.23956940939505}]}, {{ + 4., -8.23956940939505}, + Offset[{-3, 0}, {4., -8.23956940939505}]}, {{ + 4., -8.23957016697712}, + Offset[{3, 0}, {4., -8.23957016697712}]}, {{ + 4., -8.23957016697712}, + Offset[{-3, 0}, {4., -8.23957016697712}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -7.573184768581987}, + Offset[{3, 0}, {5., -7.573184768581987}]}, {{ + 5., -7.573184768581987}, + Offset[{-3, 0}, {5., -7.573184768581987}]}, {{ + 5., -7.57318515764723}, + Offset[{3, 0}, {5., -7.57318515764723}]}, {{ + 5., -7.57318515764723}, + Offset[{-3, 0}, {5., -7.57318515764723}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -8.473817659948304}, + Offset[{3, 0}, {6., -8.473817659948304}]}, {{ + 6., -8.473817659948304}, + Offset[{-3, 0}, {6., -8.473817659948304}]}, {{ + 6., -8.473827235511466}, + Offset[{3, 0}, {6., -8.473827235511466}]}, {{ + 6., -8.473827235511466}, + Offset[{-3, 0}, {6., -8.473827235511466}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -10.012856089591494`}, + Offset[{3, 0}, {7., -10.012856089591494`}]}, {{ + 7., -10.012856089591494`}, + Offset[{-3, 0}, {7., -10.012856089591494`}]}, {{ + 7., -10.012900713523315`}, + Offset[{3, 0}, {7., -10.012900713523315`}]}, {{ + 7., -10.012900713523315`}, + Offset[{-3, 0}, {7., -10.012900713523315`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{8., -14.96436406306913}, + Offset[{3, 0}, {8., -14.96436406306913}]}, {{ + 8., -14.96436406306913}, + Offset[{-3, 0}, {8., -14.96436406306913}]}, {{ + 8., -14.970693198120777`}, + Offset[{3, 0}, {8., -14.970693198120777`}]}, {{ + 8., -14.970693198120777`}, + Offset[{-3, 0}, {8., -14.970693198120777`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{9., -12.352255155708255`}, + Offset[{3, 0}, {9., -12.352255155708255`}]}, {{ + 9., -12.352255155708255`}, + Offset[{-3, 0}, {9., -12.352255155708255`}]}, {{ + 9., -12.356895535264757`}, + Offset[{3, 0}, {9., -12.356895535264757`}]}, {{ + 9., -12.356895535264757`}, + Offset[{-3, 0}, {9., -12.356895535264757`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{10., -13.122363377404328`}, + Offset[{3, 0}, {10., -13.122363377404328`}]}, {{ + 10., -13.122363377404328`}, + Offset[{-3, 0}, {10., -13.122363377404328`}]}, {{ + 10., -13.13241371325783}, + Offset[{3, 0}, {10., -13.13241371325783}]}, {{ + 10., -13.13241371325783}, + Offset[{-3, 0}, {10., -13.13241371325783}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}}}}, {{{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[{{1., -1.1431595731895612`}, {2., -2.1992508587114377`}, { + 3., -4.108835369665774}, {4., -8.239569788186014}, { + 5., -7.573184963114589}, {6., -8.473822447718424}, { + 7., -10.012878401308493`}, {8., -14.967523623359499`}, { + 9., -12.354572653848617`}, {10., -13.127375919227873`}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[{{1., -1.142336471413771}, {2., -2.1989962191985897`}, { + 3., -4.103810189060422}, {4., -8.065760593479503}, { + 5., -7.572071121129541}, {6., -8.412217606083276}, { + 7., -9.901326241951773}, {8., -14.355261061061876`}, { + 9., -12.066885002703703`}, {10., -12.97499027628151}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[{{1., -1.1431591915024921`}, {2., -2.199250198756966}, { + 3., -4.108834678398851}, {4., -8.239399371579477}, { + 5., -7.5732366791273495`}, {6., -8.47382080668392}, { + 7., -10.01266927712387}, {8., -14.940294452135808`}, { + 9., -12.353924318358052`}, { + 10., -13.127410732077774`}}]}}}, {{}, {}}}, { + DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> + Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["m", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalF]\\\", \\\ +\"0\\\"], RowBox[{\\\"(\\\", StyleBox[\\\"m\\\",FontSlant->\\\"Italic\\\"], \ +\\\")\\\"}]]\\)\"", HoldForm], TraditionalForm]}, + AxesOrigin -> {0., -16.052840588323026`}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], + Method -> { + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[ + 0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> + Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> + True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& )}}, + PlotRange -> {{0., 10.}, {-16.052840588323026`, -1.142336471413771}}, + PlotRangeClipping -> True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0]}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"Numerics\"", + "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ +2)\"", "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ +6)\""}, "PointLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, + GridBoxAlignment -> { + "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, + AutoDelete -> False, + GridBoxDividers -> { + "Columns" -> {{False}}, "Rows" -> {{False}}}, + GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, + GridBoxSpacings -> { + "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, + GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], + "Grid"], Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> + False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"PointLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", "}"}]}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{3.8871762120034847`*^9, 3.8871773104168453`*^9, + 3.88717753344375*^9, 3.887178350360724*^9, 3.893236946450159*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"22fc8cc4-070f-4958-a56e-3747a3946f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListLogPlot", "[", + RowBox[{ + RowBox[{"Abs", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Rest", "@", "Ghs"}], ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", + RowBox[{"10", ",", "0"}], "]"}]}], ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", + RowBox[{"10", ",", "0"}], "]"}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DScriptMCasD\[Xi]List", "[", + RowBox[{"9", ",", "0"}], "]"}], + RowBox[{"Table", "[", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"m", "-", "1"}], ")"}], "!"}], + RowBox[{"m", "!"}]], ",", + RowBox[{"{", + RowBox[{"m", ",", "1", ",", "10"}], "}"}]}], "]"}]}]}], + "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", + RowBox[{"PlotLegends", "->", + RowBox[{"{", + RowBox[{ + "\"\<Numerics\>\"", ",", + "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 2)\>\"", ",", + " ", "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = \ +6)\>\"", ",", " ", + "\"\<Casselle \ +\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ +\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "m", ",", + "\"\<\!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \"+\"], \ +RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], + "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.857749647216098*^9, 3.8577496994157143`*^9}, { + 3.857749922049673*^9, 3.85774992576917*^9}, {3.8577499613439693`*^9, + 3.857749992122797*^9}, 3.85775012053415*^9, {3.857750706878583*^9, + 3.857750707403603*^9}, {3.857751644877963*^9, 3.857751657226074*^9}, { + 3.8577517214782124`*^9, 3.857751736522636*^9}, {3.857752278605008*^9, + 3.857752279401206*^9}, {3.857752310485083*^9, 3.857752324517762*^9}, { + 3.857752360898025*^9, 3.857752363157537*^9}, {3.857753041193503*^9, + 3.85775304373606*^9}, {3.857753117795965*^9, 3.8577531179827213`*^9}, { + 3.85775377848352*^9, 3.8577537891272383`*^9}, {3.8577539046194077`*^9, + 3.857753911831979*^9}, {3.8577541823791513`*^9, 3.857754190311756*^9}, { + 3.85775442603514*^9, 3.857754438089511*^9}, {3.857755022546867*^9, + 3.857755042653729*^9}, {3.857790310738358*^9, 3.857790311353793*^9}, { + 3.857792220388947*^9, 3.857792221589129*^9}, {3.887175734000527*^9, + 3.887175745176688*^9}, {3.887175776777956*^9, 3.887175890987341*^9}, { + 3.887175927630155*^9, 3.887175941140204*^9}, {3.887175972652753*^9, + 3.887175999053248*^9}, {3.8871760552145844`*^9, 3.887176082574828*^9}, { + 3.8871762157611847`*^9, 3.8871762198011923`*^9}, {3.887177053185808*^9, + 3.887177056768643*^9}, {3.887177274797546*^9, 3.887177275893218*^9}, { + 3.8871780781341352`*^9, 3.8871780927035418`*^9}, 3.8871829559006443`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], + +Cell[BoxData[ + TemplateBox[{ + "N", "meprec", + "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ +\\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"11429856398034503\\\", RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \\\"8\\\"]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\ +\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\ +\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ +\\\"[\\\", RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\ +\", \\\"\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"\[Pi]\\\"}], RowBox[{\\\"107668955486287134775550584515499446643328\ +\\\", \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}]}]]}], \\\"]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"4\\\ +\"}]], \\\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\ +\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ +RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ +RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 10, 3, + 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947358164*^9}, + CellLabel-> + "During evaluation of \ +In[10]:=",ExpressionUUID->"0a6c061e-9d22-469f-9a77-bdafbf23ad0b"], + +Cell[BoxData[ + TemplateBox[{ + "N", "meprec", + "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ +\\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"11429856398034503\\\", RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \\\"8\\\"]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\ +\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\ +\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ +\\\"[\\\", RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\ +\", \\\"\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"\[Pi]\\\"}], RowBox[{\\\"107668955486287134775550584515499446643328\ +\\\", \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}]}]]}], \\\"]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"4\\\ +\"}]], \\\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\ +\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ +RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ +RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 10, 4, + 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.8932369473905067`*^9}, + CellLabel-> + "During evaluation of \ +In[10]:=",ExpressionUUID->"373d98dd-b1a2-4d6f-95ae-eed0eb8466ed"], + +Cell[BoxData[ + TemplateBox[{ + "N", "meprec", + "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ +\\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"\ +46681463692889041973700532620906696296885587180818594561\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"Times\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"13\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[Pi]\\\ +\", \\\"2\\\"]}]]}], \\\")\\\"}]}], \ +\\\"383435814415399100830298627422256492275580379991986176\\\"]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"1995291215029551557786949\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[\\\"Glaisher\ +\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\"+\\\", RowBox[{\\\"12\\\", \\\" \\\", RowBox[{\\\ +\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \ +\\\")\\\"}]}]}], \\\")\\\"}]}], \\\"104122350499534957937152\\\"]}]\\).\"", 2, + 10, 5, 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947398655*^9}, + CellLabel-> + "During evaluation of \ +In[10]:=",ExpressionUUID->"dd61bf6b-294b-4bed-aba1-2e9c5e3c51b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"N\\\", \\\"::\\\", \ +\\\"meprec\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \ +calculation.\"", 2, 10, 6, 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947406246*^9}, + CellLabel-> + "During evaluation of \ +In[10]:=",ExpressionUUID->"e21c2683-2071-4eaf-8b43-f1a927c53e45"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{4., 2.1203089445691155`}, {4., 2.1203089451690884`}}], + LineBox[{{4., 2.1203089451690884`}, {4., 2.120308945769061}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{6., 4.555653733134874}, {6., 4.555653838211157}}], + LineBox[{{6., 4.555653838211157}, {6., 4.555653943287428}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{8., 7.284539665889405}, {8., 7.28456024759707}}], + LineBox[{{8., 7.28456024759707}, {8., 7.284580828881137}}]}}, { + Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{10., 10.161573447047902`}, {10., 10.161650696951378`}}], + + LineBox[{{10., 10.161650696951378`}, {10., + 10.161727940887767`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{12., 13.124361380067}, {12., 13.126355398673866`}}], + + LineBox[{{12., 13.126355398673866`}, {12., + 13.128345449081875`}}]}}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], {}, { + LineBox[{{14., 16.147654453199863`}, {14., 16.1573163641116}}], + + LineBox[{{14., 16.1573163641116}, {14., + 16.166885815127753`}}]}}}}, {{{Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., 2.120308945769061}, + Offset[{3, 0}, {4., 2.120308945769061}]}, {{4., + 2.120308945769061}, + Offset[{-3, 0}, {4., 2.120308945769061}]}, {{4., + 2.1203089445691155`}, + Offset[{3, 0}, {4., 2.1203089445691155`}]}, {{4., + 2.1203089445691155`}, + Offset[{-3, 0}, {4., 2.1203089445691155`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., 4.555653943287428}, + Offset[{3, 0}, {6., 4.555653943287428}]}, {{6., + 4.555653943287428}, + Offset[{-3, 0}, {6., 4.555653943287428}]}, {{6., + 4.555653733134874}, + Offset[{3, 0}, {6., 4.555653733134874}]}, {{6., + 4.555653733134874}, + Offset[{-3, 0}, {6., 4.555653733134874}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{8., 7.284580828881137}, + Offset[{3, 0}, {8., 7.284580828881137}]}, {{8., + 7.284580828881137}, + Offset[{-3, 0}, {8., 7.284580828881137}]}, {{8., + 7.284539665889405}, + Offset[{3, 0}, {8., 7.284539665889405}]}, {{8., + 7.284539665889405}, + Offset[{-3, 0}, {8., 7.284539665889405}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{10., 10.161727940887767`}, + Offset[{3, 0}, {10., 10.161727940887767`}]}, {{10., + 10.161727940887767`}, + Offset[{-3, 0}, {10., 10.161727940887767`}]}, {{10., + 10.161573447047902`}, + Offset[{3, 0}, {10., 10.161573447047902`}]}, {{10., + 10.161573447047902`}, + Offset[{-3, 0}, {10., 10.161573447047902`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{12., 13.128345449081875`}, + Offset[{3, 0}, {12., 13.128345449081875`}]}, {{12., + 13.128345449081875`}, + Offset[{-3, 0}, {12., 13.128345449081875`}]}, {{12., + 13.124361380067}, + Offset[{3, 0}, {12., 13.124361380067}]}, {{12., 13.124361380067}, + Offset[{-3, 0}, {12., 13.124361380067}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, {Antialiasing -> False, + Directive[ + RGBColor[0.368417, 0.506779, 0.709798]], + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{14., 16.166885815127753`}, + Offset[{3, 0}, {14., 16.166885815127753`}]}, {{14., + 16.166885815127753`}, + Offset[{-3, 0}, {14., 16.166885815127753`}]}, {{14., + 16.147654453199863`}, + Offset[{3, 0}, {14., 16.147654453199863`}]}, {{14., + 16.147654453199863`}, + Offset[{-3, 0}, {14., 16.147654453199863`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}}}}, {{{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[{{2., 0.6126028894906074}, {4., 2.1203089451690884`}, {6., + 4.555653838211157}, {8., 7.28456024759707}, {10., + 10.161650696951378`}, {12., 13.126355398673866`}, {14., + 16.1573163641116}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[{{2., 0.6126028894906093}, {4., 2.125551226398849}, {6., + 4.569765668638038}, {8., 7.309210808612832}, {10., + 10.196845411019185`}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[{{2., 0.6126028894906148}, {4., 2.1203089451602413`}, {6., + 4.555653877221086}, {8., 7.284512472617333}, {10., + 10.160831450583395`}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + PointBox[{{2., 0.6126028894906075}, {4., 2.1203076183853526`}, {6., + 4.555652330600042}, {8., 7.284510465974837}, {10., + 10.161378578451433`}}]}}}, {{}, {}}}, { + DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> + Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["m", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalF]\\\", \\\ +\"+\\\"], RowBox[{\\\"(\\\", StyleBox[\\\"m\\\",FontSlant->\\\"Italic\\\"], \ +\\\")\\\"}]]\\)\"", HoldForm], TraditionalForm]}, + AxesOrigin -> {0., -0.6046080204606854}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], + Method -> { + "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[ + 0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[1.6]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> + Scaled[0.05], "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> + True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& )}}, + PlotRange -> {{0., 14.}, {-0.6046080204606854, 16.166885815127753`}}, + PlotRangeClipping -> True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0]}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"Numerics\"", + "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ +2)\"", "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ +6)\"", "\"Casselle \\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\ +\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ +\"al\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\ +\\\"Italic\\\"]\\)\""}, "PointLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + GraphicsBox[{{}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + PointBox[ + NCache[{ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}]}, { + Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, + ImageSize -> {10, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + 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], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"PointLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], + ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}], ",", + RowBox[{"{", + RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False", ",", "False"}], + "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", "}"}]}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{ + 3.85775236362393*^9, {3.857753041693356*^9, 3.857753064352551*^9}, { + 3.857753109883153*^9, 3.8577531212700233`*^9}, {3.857753778726769*^9, + 3.857753797688981*^9}, {3.85775390996132*^9, 3.8577539129626293`*^9}, { + 3.857753956594308*^9, 3.857753978345298*^9}, {3.857754182953856*^9, + 3.857754191065139*^9}, {3.857754422623551*^9, 3.857754438672948*^9}, { + 3.8577550257279997`*^9, 3.857755045295697*^9}, 3.8577563069226103`*^9, + 3.857790311770729*^9, 3.857790676280467*^9, 3.857791263968403*^9, + 3.857792222287586*^9, 3.858849787156363*^9, 3.87050364829076*^9, + 3.8871757582795773`*^9, 3.887175832439167*^9, 3.887175881031187*^9, + 3.8871759132706127`*^9, {3.887177050408825*^9, 3.887177079176489*^9}, + 3.8871778469623938`*^9, 3.88717835171142*^9, 3.887182957347884*^9, + 3.893236947863029*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ff6a7053-cfa6-438c-814c-b29d04a9cf5a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"freeEnergyData", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"ut", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"uh", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], + ",", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<gs\>\"", "]"}]}], + "]"}], "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], + RowBox[{ + RowBox[{"-", "8"}], "/", "15"}]]}], ",", + RowBox[{"Re", "@", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptF0D\[Eta]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "n", "]"}], "]"}]}], ")"}], "[", + RowBox[{"0", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"n", ",", "2", ",", "6"}], "}"}], ",", + RowBox[{"Evaluate", "@", + RowBox[{"N", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"\[Gamma]", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]], ",", + RowBox[{"1", "-", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "}"}], ",", "40"}], "]"}]}]}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8763698032393303`*^9, 3.876369884026998*^9}, { + 3.876369997688293*^9, 3.876370007596018*^9}, {3.876370093855591*^9, + 3.876370097827559*^9}, {3.876370373799559*^9, 3.87637037853475*^9}, { + 3.876370465791544*^9, 3.876370497109497*^9}, {3.8763705296866293`*^9, + 3.8763705300592623`*^9}, {3.87637087516536*^9, 3.876370917886569*^9}, { + 3.8871830446215487`*^9, 3.8871830462680683`*^9}, {3.888652445838126*^9, + 3.888652445910111*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"freeEnergyDataInterpolation", "=", + RowBox[{"Interpolation", "/@", "freeEnergyData"}]}], ";"}]], "Input", + CellChangeTimes->{{3.876369897948588*^9, 3.876369916907255*^9}, { + 3.876370456614004*^9, 3.87637045960681*^9}, {3.8763707444350023`*^9, + 3.876370747760907*^9}, {3.8871830509234037`*^9, 3.887183054611264*^9}, { + 3.88718324727179*^9, 3.887183248687171*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"pCovergence", "=", + RowBox[{"LogPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{"#", "[", "x", "]"}], "-", + RowBox[{ + RowBox[{"Last", "[", "freeEnergyDataInterpolation", "]"}], "[", + "x", "]"}]}], "]"}], ")"}], "&"}], "/@", + RowBox[{"Most", "[", "freeEnergyDataInterpolation", "]"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"h\",FontSlant->\"\ +Italic\"], RowBox[{RowBox[{RowBox[{\"-\", \"1\"}], \"/\", \"\[Beta]\"}], \" \ +\", \"\[Delta]\"}]]\)\>\"", ",", + "\"\<| \[CapitalDelta]\[ScriptCapitalF] |\>\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "14"}], ",", + RowBox[{"FontFamily", "->", "Times"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "->", "300"}], ",", + RowBox[{"AspectRatio", "->", "1"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.876369918582409*^9, 3.876369955823151*^9}, { + 3.8763704278400583`*^9, 3.876370441157851*^9}, {3.876370738463645*^9, + 3.876370807838629*^9}, {3.876371122391995*^9, 3.876371134526176*^9}, { + 3.8763711865989513`*^9, 3.8763713519982843`*^9}, {3.8763718721351347`*^9, + 3.876371879486059*^9}, {3.8871830602203217`*^9, 3.8871830720200863`*^9}, { + 3.887183263600458*^9, 3.887183269024135*^9}, {3.8886524322381153`*^9, + 3.888652436725748*^9}, {3.888652836485338*^9, 3.888652845517272*^9}, { + 3.88866054306837*^9, 3.8886605513076878`*^9}, {3.888660587340844*^9, + 3.8886606095808287`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt13k0Vfv7B/BDSJTC4WTa+zgcw066KUNFtkoZUhENt0Shay6SqTShkEyh +DNdwSaYQZSo+z6VcpZIMRaHIMRzzkCl892+t3x977fVa+5/P3p/neX+eLX/u +goUDL41G66Wu/7vbFUaNrawwgOXbTKysIYC+KK206zcD6O699YcFCXi1/9Fp +7zkGJN79vDlNgAClroo3w+MM4Nutr0OuImBobW9G+w8GmGLpbgG/VeGis+aJ +kloGxPOpbxseVYVr7A44f4cBn7wvdSQ2q0JikkLMexEGtAwmau1IVoXU7pAL +5mskYeDswfoEpipIfjx6WFVCAoKb6RZR2SpQf+TovgY2HTJuSvw0U1cBI1W2 +lwJLHIRGV0YNM5VhZ8HprMYtYtDQPh7ExJRhIey8uIaqKLioGx4vva0EM7OZ +cWeUN0Bn8COPRi4bXrFitle7icD7HIcH/1qxYRf/9ZJN9mvBtbMkjXyiCLGk +trZBgBBs8oknmcKKYJd8om8oVRAslZ6PIEcFaHyMreFJFICznxxSX5SyAFtb +tBWV8sGeSElUL8oCISancTCXF5L7zVG3vTy4WgY/zM6mQSR3bv/u/5iQvly5 +jUinQarsWwWx10xoyx7/kJdAg5k34ev7a5hALp3iLwyjQe7FbdKx1UygZ2l4 +Pnelgbe1msricyZUzXab1vxBA599YSHLmUyQ1bq8XOaxgjroQ659gUywre1u +wGKWUKUnNnfXkAkH9OYcOm8uoe1REq/u7GWCetkGWrLHEjK1gX3BBkz4nWuw +Xcp8Cb37p98lWI8JD2MyksU3LKGsUr07iZpM+Hj2LzfBiN9oQV4nWUqJCQa0 +MZHJ0EXU983X1FeQCSr+q3OK/BZRdEelRYEAEzZM43svOC2i+rkeYw4fE7r6 +j/gMGy2iJv8ekdM8TPBvLO7mrF5EM22kUfU0DsUp3kVfgxdQs0vKZGg7Diy9 +ZfPXN+cR/7hQqmYWDh9F9dQSPOfRePODoycycLjGuSLgZjeP8IvRNdfScOiI +nK+kG84jy4327W2JONzvmVawF5xHZVd/qD2LxIEvhDvDGzmH0jS1Pdj+OHA+ +fUkgk2dR2uvaNxPmOMQ+ZnjR780iu601SlGHcdhz9dihgYBZNMCrF6hhhkMK +u4U3ymYWHWQTewKNcDju2+jSzZpFso+8hK30caiXq9O7lvMLnUozPfliMw45 +jiU/XpTOIOb95eMp63BoOZeKm2bNoC1vTNkPhXGgWd+17oibQYdcrn2PX4PD +MXO79jmvGbQisVE5gx8H3p3iTZrbZtBQzi752SUM/hS+BIWF02hUtlQ8YgyD +YH6b5d2p06gpMMvr8wgGRSsmuh8ippFzwMUO9jAGAtOs8mG3aXRH73RF0wAG +xd8+FaqqTSPNLUk/HXowECrQSM3InkIx22Q6brRhoJmNdWo8nELRTwWEZFox +sP1HSKbmzhRyH2s8VNmMQWl8T/z381PoTaSgtGATBueux0TIsafQgeuct98b +MLjnd+1dPn0KZfS8ep7xFoPyS85CunxTaGt5X6XLGwxEHPfc/rN3EnlzZSWF +/8Og8shkwIP0STR4jIndqcGgz6TrhVI09byPZ9DzXww2GL6df35jEmkofGiy +AwzO7/jncovNJBqO8Fm2rMZAjGXhJopNorTpmgavSgz0ZHfnpa2bRByj7nuh +FRg4ShKDW5Ym0K3g1gsZ5RhUC/E6HPo2gXq9Xt/nlGLgPPX09N3ECVTa5W6d +W4JBgtbErr/CJpD70YG/ucUY1Pv9IbPXfwKt3oE3bqXMphW2L5ycQENcx1Xv +izCw3Dta3mY8gRbn9QRYlG/d3vyweMcEMl1lNX+lEIPva/OPOUtNoKd/hRbu +LqDe/whXc/+aCfQ4XNvz8RNqvfcJCdb8ONqua6woQTlRKqe5/cs4cna/bLWS +h4GVUtYR44fjSGZdQY9ILgZBTn1b2CHjyLTTlpGaQ+1nvuJ6Ht9xxLKN09lO +ecO2jPflx8fRxGDqbrdsDPS9e/JjD4wjF63LLFHK7hXy4Re1x1HS27fjFY8x +aNBPM1FhjKMWnmcm0pQXbnWr8q0eR1I3GK1NWRiYh+uJwcgYKudJOhBBuUDs +5Uef92Mo8M2D9MOU1ybsjNzyZAzxGZztkaDshFeY9YePoTlewzU/HmFQ90h7 +barrGEr9FibxlLKiWunbYwfHkF+bl8BtyjeLt4eKqI2hlq36X20od+mUHKgT +HkPqfsz7uynroq0C17ijSO6a8WYW5QTDoleaDaMo9lRfthDlXw3qgSO5o6gt +WIp/LpPaD4snBo/CRlFdLb/BEOWnXzbRrJ1HkYbeq1M/KIvY5FbTTajnfk6W +nZRd+1QC3qmOokYPPqKL8luXx7uC1owi9o2Ur72UlSfZC7sGR1DRlV2Oo5SD +fDPLp+pHkERx+4clyj3LLJ+87BHUOughIkathwxO17QLGUFefrPsTZT/FmZO +SzuOIA/tE3RjygvRKcWfDoygL5FXv7hQPrFRziNMeQQZBh7wuE+5NCVpy57V +I8izIL4TURZnS4/Oc4bRO+M9shOUL+Y9zH9aN4zkDOTUlKnv/WErw8Upaxjx +ys8In6O8qTxOVf72MCK2xFSmUw7ZTR/44jCMNrmVaXEo7zUVdTBiD6MfGuEx +AdR+pzVFKtD4h1F/5OMLHykvHxfpKfvJRbLvWRIqVL2U2wvbKGdyUdiTzyV9 +lCW5oXLdgVwU3X8015Sqt0segt/i7bjoneZzu1LK6tf4TwoocBHTxUsqkapX +6cqPDwb4uCi/ltYoRNUz/6+ktrecIdT91THzOuVvbhqWkblDKEl0JOdyPgZh +1jaHN2oMoZdhHb9jqH7xTiAiFsSHULKpV4Qi1U9nW2fefZsZRD/xBs1Kyjpm +4SbpFYOIY3IKJqj+69etMCQMBpHU2eGUaKqfP/kGBa1VGERpP9zL9z6j+v/Z +4dpRvkF0Ji372zzleDUOWVI/gGSMr+p7UnmwT1ZcV/fIAAoYCzC8T+VH2qKr +xiGbfvQxPm85lsqfcG0djz8M+lHYxNX1d6h88rm0qkhMoR8tXHIWC6Dy6xA3 +YfNnDgdZ7ucZ8HqFwVJHnYqtOweFG+/NuF9P5XclE/cM6EMWK9rtd6n83P+L +a21p04cG6sP1X37CYKtGWbKWQR+qndxxdZzKW8FcM+lFvj4kFWzoYU/lc2mC +v0RQ+E90iy4n6f+Vqg+/FuH4pF60zfZx+p8cDOZW5kXH/HvRdfDz4PRT/XQb +32j0Zy86e6Yr1XsQg+xYZ8WFjb2ozVxJJJM6H3YX0fTOxPegE+A4oDFF9W+/ +mrtS9A9EcAP2YzzU+ZonlO62rhsp1R1J2MjEwbjC6gn+rguFpy8KbWLhQP8v +raIprAtJGl8MNFCkzrserU+agl0otnP5qr8Kdd5J2a1a5u1EnS/kSNmtOBAh +Lxwi5jqQ0WqOk+xeHD7buxKFvW3Iwk5rat4Jh+rOI9qlWW3oNJEzdsoVh6xj +mvuqnNrQ3KkLUv+64+BltGzdMNaKhlPjhmIv4bBBLSq6f7EF1erY7TwXQK1v +qmQOpzcjZZq4YXQ0DpdXzd6TD/2ANDZ/8VN/iYOPPxHxJq4arasS0exfy4RD +o+NthVlVSP33XLSLCBOUzpXh8WUvqdmtjzWxngmtxvuenmuvRMOFsV9XxJiw +TepMy6JsGXLmWR+0SYqaZy4oaJ42KkT9fOcjK9nUfJSPdVtanEf24jduFegz +ITdSh8z8o0o/4Wba6CNvJkQ43WyzvfVZv2XU+KzFPBPWTR/clW/eq2+tn3RR +LkAevnvVbfcO4uq3HTZsfEPNj6MVZjU+9RP6RoXRCegRC7LupNvah87oq7tu +VvilrgDsX3nivknz+vWq3r7ToABdxXjVLsclfdcmr4wLhopg9eB7CDeKRk6s +U/ORrFWElEfhVQfjeUlZibqgo/vZwHfKbYTfj48MpBFiHS/Y8ME257FFkABZ +96AmaEhTCZ6vk7aedRUkY1ulxHkzlEApUX5g9UEhskh7gCdiDTVfewct5R1d +S7LcazZKeikDd0FGJFtHhIwWNdSyalaGtL/utMgobCALX5dmGmipQJTBu3Ap +tij539/aVab3VUDkQt6eWgkxki7fkVbAUYHqfeVVpdLipLaRmm28niosudlo +HROhk6tKLOlxd1WBZ/WnhE1LdNIuK1fmRKsqaBl51pjQJMkYyRSrOBYBC9/y +ByQmJUmzuyVFLEcC9rnWR5n9kiQ/HHI303ci4N5ir07wgiTJKfYeOeNMAFNa +JnSal0EmPEvRynYl4MDxUNVmcQb5uWb1gqMHAbFNDs5RmgwyK+4rRr9CgHod +NizkxyATJbS8e+4R4Gu1M3ZPAINs1hrWnYkg4N+fVrr+NxnkZrpItXAUAZar +7oUPhjLI52ZiIftiCLhCLqrVJzLIkxfXeA3HE1Bf+dkt+CWDNGccLYtJI0DM +ZEqiChjktOnpnSnpBJxuF6mefsUgY7rwsfx/CBibNRSxf88gZQ85DbRmEiCp ++axgTxeDNEkuHz2bQ4Dtq8Zj/j0Msv6u9UJ0LgE5R7nLTzkMcn1jTGddHgG6 +nqzD8mMMMsQ/ZpV+AQG3eXbPnphikNoHl8ZvFhLwMepkatQsgxRzifOoLyJA +mnn5QP0ig2T6tayIFhPw//+H5MzXksQtJQT8D5MIPME= + "]]}, Annotation[#, "Charting`Private`Tag$3858825#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt13k0Vd37APDbDYncyHANIfuijLkkMh5FvIYMRUrSKymiDEkUpVSihLeU +oTS9QqWkVJL99CYJoRIpGct0M917zeG3v2v9/jjrrM/aZ52z93Oe59lrq/ge +dNtDp9FoQ+T63333w5Th+XkmOJ/4/uH7hBZIzcirm/5hQmJskpfOuBZUbPx3 +x+FJJmyptL0Wy9cC9bYX73+PMEH5WEDSilEtGFjSfbulkwnrM7cH/z2gBSGB +hp7Fb5hQazL1trlVC2LVvoH/WSaYLRWTTH+tBZlZrLQPDCbY7x9b6JGoBTnt +CQddF8uAs8qiHNGlWiDTsNlZQ1oazj+5Led3RROqXDZb16hJwYWAn1JXFTXB +TkPtEAtJwiLHXj32JQ0wKdyRW796GaT7WuytZmjAdKK/pL6GBIwfe/At4Mgq +GJu4c3nnSnGAnArplraVUIHS1pQHM4D2JT7wgP1KMBU8XqzltwS2q33d6nhH +HS5RRkZWMSJwTdLRR0tQHXZne/4ayBEGG7fgx2/91aD+rtLiBZlCQA/VN3pZ +qgpKSx6xcYkAnDWuWp2qqAoiK3rq+wvoMFTo6H3iGAtas4VrOm7RQbZQ6Z1q +NAseyGlVNmfSobv3u1l1JAtcJEPK3ibSgdUaukU2nAXpQtN5NwPpoHmj9sDr +ABagQbGT2zTpIBiQp/nXVhaYlhqueZ+/ACoj/D6bG7AgaMvpq3l5NIj8xvhl +NIzg5lypgeZNGvRca/HfPIigKW+k7l4GDb731TmGcBBQs16CDxNp4C2e71jY +i0AqVz/saRANKt9pu5h2IHg10e7wnx4NjitxhbI+Ili+NmLuWeg8vjJ8SC/2 +KYIziR1rXvrO44er7RreFyMYaXPYX755Hh+Ii1/KfIyg4iz6WmE4j+9+Swgv +KUQQ3FJf9HFqDhff+yiwOA9B+THNPZy4OayKnnfNZSLY9aa9RiltFie5fJc0 +OYnA1nxyz4+4Weyuumoy+wQC3WfitOzQWbxrcLMw/TiCPwVWa+RcZ/HRQwJP +Px1FcDXtdrak+Cwu+nHmWHIEgoa/9wYLJ//B3Q53bocGIHj2/fiidzF/8Npb +fNvJvQiuu1+9eTr4Dy4RZJvE+SMI+uv9F7rTHxyTmyueuRuBMFvLYlb0D5aO +vFDe643AijbM4J6bwdfXRbfx3RCsil6U/yhqBu95ydp80xWBOF95w8GAGRxs +eszQxQVBW69L5G+7GeziVGf/1AlBdP3j9p5FM3hT1O7f2XYIHl8//Oj76WnM +mRP+t9sCATKfc30bN4XntD5Ie+mQ+UuYa2eETWGHmuuNAdoIYnuOCgXvnsJf +zmR0RGsh+HZxqlTKZgqLhXX+vK2B4J8uPstPeArrx81jCXUEAgmcMfrFSazx +x+y1tzL53g7Nhqbjk3iFN+9HqhKJNzugoCBkEi906d5WpYig7FvPTje3Sfxm +3YVws+UIInS63t2UnsTiVdr2VnIIej59zaCyJzB/XYFXuSSCS3eZh6QuTGDH +RulOWeL1xzw29cVM4JiltY0Ry0h81RrpKT4TeIPJQREjCQRbj9Tvb0cT+KKw ++dsmBgIhJ8bGYskJzL4Dn62Jn6g4rTgrMIFN1/Z7PBUj8aypbtTtGcdmFnLl +15YgqFKsNI/NH8eO9nWs8yIIDnMFZN0yx/HepgCOGLHquw1ctaRxvCDOUCdt +MYITIa9zPwSNY5FzP1VuCSMwflO2VFFvHA+FZHe0C5H1XJnpH1kxjukt1YkR +xJeCTCoqJMYxsu4qFiMekX5+JIg3hlc96I+3EUSQv6+482XJGA6yOaj3eSGC +Rt8cZYdcMj5zojKCmOad5P3t8hgWebTNWYHYw3V3y+ShMRwwfMb0IB1BnIMz +M8FvDHcf685RJL5vY+rO3DKGrUZkpuoWIKCbSH40NBjDhZ3tSSbEOmvmGW/R +GNZK9Kzk0xB46nIctywbw5phByaKiAvRm6qwUT52ui9oaUjcsvyhEL2Tj1P9 +bDxm5lVAgJllndrAx5HKOXsqiLeLhsPDh3xc9nUg2If4tKDPnEUOHyecPbyX +Tfxo3t6sLpmPbyc7bxci/j61Nto7lo9TvJ5tbJtTASE+ev47mI+bXg5ovyBm +DzHGj3rzseOEitgV4h190waiTnysXZ7SG0l8tqsnNNOMj/vW+Zd5ET9u/fRQ +Q5uPoxd/SFpP/KOpfPC5Ah/zzTju2sTCHwu07ET5WNWzS16O2KAmPaB5mocd +dtV/Eybe+fbkXf8BHt75sfryzKwKnMMHfo218LBOQZ/DKPGTF9tZp9/z8BJf +49l+4vbijX9LvSDPT1Tk/yIWKdTPuZ3Hw8mcS64/iQ3zlH7oX+VhzY0F/P+N +77olovDfWR7efpH+zwBxUva4p2skDy/uT9fmEpekd6V3+PMwbdrr9R/izpS6 +xoMePPxgxspVhMxvSVLpsnkbHvZ4uaZVntjodK5LsiEPh19X8NUl9j2elqyo +Rt5/o6XLmvhCVGztfSkeFtjmtHMn8fPwQBEzAR5WmHdpjCbuDvawq+Fx8arQ +UutMYsa+9We2d3OxjbbXwzLidb66Ff2fuDjtb5pUF7HfDnl61H9cnNweFiZC +/l+pCzfmyk0uNv7ng4If8S/7tpfqqVxcPMj2v0wsblM99fQEF/fyvfLfE/uv +uxXR6MPFTiHVsqYkn1INkot3O3PxdUaA9RHiMp3oUa4FFwtmxO19TrwMuQVL +KHExXMtNsyL5ar7c4t4NMS4WyedkJBLvk9HsXz07is26Fa40EZeL0Pdsah3F +z0LiQiNJ/gfyinYkZY5i6YPuGa2kXjLWjpruTRzFwtwXUaYCpN6j9BQ2RI/i +AVu+3jViNdrDlulto3jkZ41KAKnHjiX3PQLlRrFX6+5ZtAgBw4VjuHHxKLYf +GYy/Smz+j6Y0mhrBFRNFbeKk/jPl8j+3fB3Bz6LchURIf3BXz3X56+oITqi1 +llQSRRAf8Gu1WsIIzmoelSsgfnxfdemCIyPYWWrboDHpP+IGtz883zqCpwe3 +TOwk/anG8ob9KuYIdsk0PVm7lNT34zXnGNrDmPPoZam2NOn/xsW2laLD+IG0 +gPYvYjPMForlDOGxU6d23JBBMF6je2qwYAirJW6dUJIl+8+vVTG1GkPYvW5q +0kyB1LusYmjiykG8sSrTdkYFQcn1rNXrFw3izemVBu0IgaSa/NBUz298azat +7i0LQR2buT8g9zcOb40XzVJDsMFBYo+d2m/8PSnq5B6yP+jGCm4TYnHw27KY +bVFsBPKlDVf6BDg4WvJNYIQ+AsHxrKbqngHsMd4B4QYIWoP1t1wsGMA4PcIo +0hBBorePs6z+ALYq+EsvYx2CXrMXNppW/Vja2sLbbj2CGzNB+pt8erEqZ+CJ +gzuC80bGoXpWvfjfIieTZA8EkeELHy1j9eLMwaH2T1sRbOJk6DT39ODjfZNn +fLcjmP1WuWrXgR78tMNIJcsHwfbSFcphMb9w1YMvgSGBZL1RjaLpWd14i+s1 +01txCCbnpySGo7txSqCNhO0pEu8zyrJ227vxZN1hw6F4BHmXAlWnZbtxi8NR +3w0JCCwe0cx3pndhfd9xxcUXEQT0ah9QT+3EaVqFybRrZH+9J3IzWKwdq382 +fJdWiqDZL0jzYXcTtuz3+fpjhuTvDxejktwmHF4fbt49iyDXw9D6VUATXrFe +y3JgHsEhuznvmuEv+M4m/2WzC1kgrp2S2jvTiH9YGX0wXMKCv3jFk8pSn3F1 +63Vz7nIWRCycuKByrg7P2XZtPW/JgshozeT3l8txydqg8JEEFhRcNKbu6L2y +lPbSTkhVV4XkgLimXSebLZuky3WEO1VBjO9oet+12/LLu2MaR66qQcehyjWH +4zmWZ0Ls39X6qcPQC6f/IqtGLSvZkh81V6+E3LM3d/mdG7O8FO61oWdgJaiN +35M8kjVl2Vjkq+lavAraHiu/Mt03a5l2ra1MIVAD3K90JHBSaJTrSjHhCFlN +uP7v+VeO6XTqtd/j9nv1miDgFTwoGCVAGb455VZ+SAvqduXfdYsXopK6DV7o +q2jDUzF574kgYaquvyROt0wb1DNV+hY5ilCZ/HuWlzfpwPTh+Nl7m5dQFQZ9 +0r69OsCZVmDkGTMo45yRx5dCdOHG3rONCixx6uCmTfF35nUhxar2vJyaBDVd +FSZadGY1MA7eW/9Gehnl7YZ7GDQ9KLd+/qpEXpIy7PfcddJSD2aDfdZ6MKSo +jNmWwMIjerBg0acMrVkpyk1I7PtAoR6stQv7z54mQ+3sXragrVcPplvv90lz +ZShRz6glcgpssA6qSnEal6G2rT3f8I74wky38elpGWq59XBS9XI2NCXOd5TN +yVA+ep4/mhXZsEJe4RyfzqSe1zIym5XYEJi/lq29iEnRjwtlVyiz4YmxW8tu +USb1oCGTmbqCDXPvguOyljKplwJJbxxV2GC79ZzGZ0kmxRTwtpghvvRxT2CK +IZNS9Lz8z9AqNuhWKv0WiWJSTfv0Ti43YsMRd5NL62OYVOxJuirbmA2vf7qb +Rccxqc7leX1q69ggcij0Z9FpJvU2yZA3R7xl4YXz/eeYVFwD2/6NCRuOUjPa +VZlM6lDv7VSWBRuqSpuDT5cxKYlJVoqyDRuW2fOkXwGTuuN045vCRjbsaGGU +8yuY1BWXLZ9otmzI3afpr/2eSQWV7F9QTzw8YcPw+8CkDH90ZsTZsUHG8Enh ++jYm5WnUsFPIkQ27Kuo9oruYlHxtdfgCJzbkb+bMFfUwKYa4SswvYm6X0N3+ +AbJe66jNRZvYYBaGnFWGmRQH/xvv7syGMwssJjx5TCrD0fZjG3FDyraclAkm +ldD89WKKCxvkV0TYVs0wqf0d/Tk1rmz4//Ms5ZYxlt3pxob/AxlbfUM= + "]]}, Annotation[#, "Charting`Private`Tag$3858825#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2Hk4Vd/XAPBLptD9ynRKyZThXDIfY3IQSRlDo8hQUUIklEohJEkqQ0mT +TKUoU8NeRVKpkCEVQuZ5nsJvv8/z/nWfz3POvnfvs9de66wr5epj58HOYDCY +bAzG/3265cUPLy0RMNAkcPHzaQqE58Xk9P8RkHaMxdQ5RUG52cN9gTMERCYf +KmwPpkCupeTjwAgBqkxPy/lACvr4O+43tREgE8s03udHga8XtaugjABZdZX0 +cQ8Kzsj+hIMXCTjre3X5khUFKakyCV+YBEiK+6z3kaTgTmuUj+1yUVCevzgS +VawJotU7rEkRERhuSfR8sEMTKm12bP4sKwwtmi+fdAxogDkpGyAjLQQXe62/ +dgdpgN6TfRnfVAShKLmapcmjAXMxB4XUyZXw0G0hkyNaHSanH1zfLy8ATn9W +6I9wqUO5dILmG28mcJ48lTwTpQb6nGcLFN35oTTOsfvavCok0traRqG88Jnj +8v7b/qrgdmtXZ98dHsh4yGgRaVSBb4/WLWdL4QKBkRdJ3I+VYR3/UzVUyAFs +YnNTOskbgFey61tvNjv4CgsHJwUpwVH7iKTMTAbEvn90dclPEe4ulmqw7jLg +vmkVm+sxRWjIHPmak8yAoLZcvQovRaAX9nLmxTDgQuULgUQ3RRDOUD/+4igD +SudMr5s6KMLr6dZt71QZoPpDR49dVxHWap1YLPJbQsUR9c/H2RTBpaz187qE +BWR8yi7SJIUFWwxmPJrDFlCI9Aqh3hssUC4SYNzyW0Dvef/6X73Ggn/ZRpqr +bRdQSljl675YFiQl3L8lJLCADnqy3qOzLKg+cMibJ+4fkt1Hq0x5sMCIMcwc +i55HeY1chpmaLFAI4c56GjyPjGV3Nz9WY4HAhISJj+c8qkduWYXKLGjptjk5 +YD6PLBvG6moUWBDyLb+1i3semWa7v1UWZ0F+WuDTXxFzKOLorHgEFwukDRZt +34fNokBF3dDnv0ioXmmglHx8Fl3RW7nOpomEM12nuLzdZpFCQFH5UAMJP6/M +lgqbzqK7TCaLqiXhWvuEjDvPLFpuHnq+q5IEjqj+SfYrM0jty5NPvwtJ6Kr9 +kUzfmkb5PuVDUtdJSHxEBAhfnkb8q3u0pK6RYHza0aondBpVd4Tmy1wlIU22 +jj3eeRrFmKWbq18mYWfQtyOt0tNoxMdTIDCChErxCoMzWVOIW5Z3ISmQhKzD +BW0vCydRYalzu91eEupc70hsy5hEghnn4pJ2k8BwuuT08/okUlkxuK59JwmO +tm5NMwGTqO7c9+Fz9iSw6wnVUBqTKHt/wcFBSxL28PlDXt4EMjNp1j9vREIE +p/PipjsT6Jjv9rNcNAlPlyw2fo2bQEzP+adxm0jgmpAuHvCeQFoO8Cdbn4T8 +37V5pNIE6vPcflpQiwTeJ+p37meOowlOhY40RRKozHXN6knjSEpun6oriwSX +e7xr3l0cR8ueVPuQJAmFN9pv/Dk4jmzR4/dlciS4nk2IE5cdRweDXL7IS5Nw +OfhMVa7wOLJP6crllSKh2N+LdyPHOCJvnz0zKkEC87Bx5J6OMfT5i8f0J3ES +Sm3GQm/eHUMHnmjpP15NQqdFy0u5q2OoWTw7I28VCQKmn2ZfnBtDDz4lsRcS +JBzUvXeiznkMbTHMj/kqQoKgtJ33ynVjyGNGpVZZkASv8Wf7LqWMIscJn9Yc +PhKStUb1D8WMou1W+tdGePH+BKuuMQkZRc+ZEvy62LKMvKa53aPIROyTRT0P +CX/4cx29Vo+irSrNvXpceL42/ZTZ8lEUxfn6+W1OEgyusUSkZ0dQzT9vQw7s +lNVZ35t+jKAP5VZXfy8jwUEuw2Zr0gj6Mi+7spSNhHDPThXZqBE0Wd9croed +n7v+P7agEVS9cUENMfD6NO5/Kd45gk7d7NL8vqQAhoHtuYlbRpC6Y1ulK/ax +EqlYX+0RNGF8X3BqUQE+G6ZbKBAjyELmSZk89tz5VpKDewRdleckKxYUwDbW +QBAGh5EItyF9GJs/We+KyuNh1Glkca7onwJ4SpRYdscOo+u7eB65Y1c81Oa/ +c3QYNb8/f0oEOyxfM5qpNIzOSe8mz88rQItOwZYKvmE0sXCOsQl7I1LjOtM/ +hCK5Fs8tzClAsunTcurzELKKz8kC7KnPyhcGs4dQxxHX4IvY9naPjR7GDKGn +N6eGbLGf/VBkOHkNoZ2ndZZLYjOds98IWwyhkx0TFaOzCnC0UyG0ihxCdccm +5T5gfzrySD98+RDyMVuUT8eWH5Od0+8dREPCNZWnscODHhSPVw6ivilFHifs +9kXpkzmZg8i658NfGpuOuEu5RQ2iRYN9TgrYt/kkJ8QOD6K7fKm+QthzV9Py +a7cMol1JGuLs2LtWifvFyA8ij081ByZmFKAwLVXFmHsQWdmKG/RhC8mKDc12 +DSBxwdLHHdi+OUm5zyoG0GSjRf4f7K9qxBHPjAG0dOzI1jZsxeLrpFTkAIr5 +VejXiR21Sbjnh8cA2hZSTg5id5UnZMSbDiC9+3K+M9gm21Z6mMsOoHMN3ibc +eD7pNVdkGJwDKNRJ/t5q7MWdzPaiv/3IZPB3jAr23pbYdJ/yflRQIfTPHLvY +nc9Z/kE/kvljPeGBLdofLd56oR/dXxQ4Hont78fz+4ZbP6pMqfPPxq6ejkyx +MulHUdOCMzXYymc4d3PJ9CM+5uaFf9hipdU3ezj6UZdDo5kC3i/OqdSGT119 +KFL7aIoj9m9vdfsr2X1IsOPMnlfYlVkLCX6xfaj7++HyceyCzsqaHcf6kN20 +koYyjp8YJ2frVep9yKqUUywXOzCZFTcn1Id6twdcGcY+UD9Z9XuyF/WZ+XNo +4XjUsYy1uFvSi86eR92fsbs3lpiyjHpRbkyA9xoc/7VB4eH8Mr3oo4N9SSD2 +m+fWZUMcvejhu6rZOuwbSl10QWUP6o/tsEvB52nzWqGNG2160C+jXwbm+Dyq +7moJWafegwY9C7leYq9JzCphCPcgl6kXxarsJIzx0drvG7vR9Ujz2vX4fKfP +H1W3cu5GhjF2+Sr4/Mdq6/ipGnWjA87zKSXYJ/2XPRWU6Ub3GjtdzHD+sOpP +3tDY1YX0vnqdOcxNwsLPCgWXY13o9KtD9V+Xk9AjmnDI2KYL3XxrG+qD81Gd +nVPGevUudDhdbUoQ56/cT+MyvZOd6Fdpgr0rP87/pZISx0M7kbTS25vS/5Fg +NtXvZO/ciWT4rFObsNXUi25pGXUinTOKbtcESODJthSb5+hEJzwP6f6H82Nh +cohIeOxf1BaTWyuP86dQcB3fjdQOlGZz2+LXGhJmlmZXDod0IGLBmL1mLQkt +kRKrzPd0IN3O6F8fcb7OTPRaP7eqA1Vf9ukrx/l801OGwf4b7ahMO9TgjwwJ +nt1Kx+SutiFtG/Q9Swmv/5hdwFnfNiRVGHavegMJmpMnQ35Yt6HJMdJ3TpmE +RfayyBhmG8qR3bnkqIbr77rdd4Yu/UEmL9fnaeD6dCaH9673ilZEZ9UeCMb1 +bWuJw2OJqhbU99Va+Buuf8If0ktqYlrQ5lcc9+RNcL1t16qleFpQlQ2fWZsp +fp6r3ZYtsjcjk6l9foHbSGBFvfSIm/mJ+vcX7pbD9bbR/Sgrr6MBEc8fhsf6 +kvCm2Ua7MKMBSaq/L1h7nIQMR2rza88GVHTtn2SePwkB5otOn4frUW6uxZOf +uL4LKMVf7Z6vQ7O6li7bQ/H8xgtmJIS/I8b+wbCkGBJOLJu+LBX9Ff0Ug7KK +DBwfIay4j9ffIH9tlq9wJ34+QyMNeRmvkUM0pbemmwQ51yKJG0WvkMz1By9l +ekmo37r5mWtTKfr3cL5Zd5AEjdX76+bXFiFeLbbjIZN4f3xkqH3meeiAXIz7 +Nvy+VJ27rtXe7iAyNlm/IEmyIPuKDv1A9bVhARwIMfJnQZxnWIPL+UbDm9bv +ru2TVYQVE9v1c207DLWdBq27finCn4AKzcDwfkPt/E11Xx4rwVCJ5buTlaOG +JTd3ible2AAZF++6uEdPGjZWjX6ZslQG2akcoaDUWUNnv52OkSwVaMmXeK1/ +eMGw/5PkMtNpFXC4+SeqP55B25YcEHu/XxXSHsa+3n6DnR5+Fql+tFIVOPZ6 +D3IGc9CCdrclGhTU4KtL1iO7cC5aTUc8uDRODV6sEHOaPspDF/JeW2ncrwZy +KVI93Nt56UMSjF3HTdRhLjB8IWcHP61rqDtplK4O/XNrmJk6TPrzEFeY7oQ6 +pB+6WLdGRoB+q+FX4LBdA+KNqmJXy66kFVs/klzpGsD0yTEuExGkN3KpxyX2 +a8CbzcWvC8WEaP69Hzi36GvCgrezliNTmN5EX2ah85rAxl2brLggTFt/TgO9 +Ck3QMj/+zoIhSmuO5TRP81Mw9zu3R2RMlG5pdt3Ltp2CzUcr4y2nROmVe5hq +my0puDzfoRMxJ0oXmDx4MWBLQUPM0p9Xi6L0na3hb9rsKJAUWxM9wU7QHWUS +cQk2FHhlaakpcRN0Q1HZ6p/WFDzXsWty48NeVaKqbE/B4gfvsNT/CFpw1QfF +U7sp2LIzmvwuRND+P2zUDRwpSKzx8IqnCDqzxjjhhzMFLS5hgpW6BD1nSRiJ +ulMgP3KrdMmAoF+7fbe85IL7tbPFrtrGBP2t8u8/2/0UlDLreH3MCPo0dZJ/ +4AAFHGnD+RkWBP1yzw6OXwcpsNrAt7fFiqB3m3Je+HqIgqRXcstEdxD0mvXy +rp/w97dtM86x3EnQNeDqEIT7P9Yvpx0RewlaL9Kg9gK+P8AreP6VM0Hv9/xQ +VO1FwZvZxPsTbgSd7vtK19ObAp7op9uUDhN01Cv7u0JHKLBbVTXudpSgW294 +qjZ5UpD6qDs11ZegCwNzlh7j63+1lm3+HkDQKWVzSv7HKVCuWDfAG0zQ4X2T +C0x/CoIc9BKNQwn6l+uG9GvHKHj712FjSBhBq8ht8prA5g3w+/ssgqB5fOZM +nuHx9ssux/ZGE7Sspu6J9JMUpCVkakrFEbRH6oZWTdzv9kiV/96VgNd77Kfq +TAAF6s9aw+NvELR55bos8RMUnKLnlSpTCHrTpqB9b/D95d9E65fSCNq5aji8 +DPfTTGf1UO37BN3X7x669gwFu4YsZX0eEXT+vEb8nRAK7oV6fsnIwfHQLst+ +PIiCAf6IEy15BK1cUPL+HR5P3UoXF31O0J6n6zWiz+P+WvHVe8tivH86O3Tv +XqCgsrTRO+IVQS+WjZ5+EUqBoMW4yGsg6Kvf9oQX4d/b18R8M1FO0Eo6plcq +wijIOMw6qPSRoFe9de/Sj6RgeNqU6f6FoPnN6o+sj6JA5+KBwtQagm5xz4rM +iaDgvGjo/u/1BP2qgn1FcDgFVQ+TuPh+EvQU2xa2XmxR6vkT4xaCXr3x/L+Z +aApcyr85hrQT9MbiSqfReAqydvQvPusiaJHtlx7mX6JgrJ3rUW8fQf/+2fQo +6yIFG49LW0sNE3SiUif3Dzw+km3T9K5xgo4slJptvUJBdfzuO/HTBG0qZdnG +eZMCMckTWyrnCXpteOPyMHz9///PoJc3DDQeiKPgf1Ddh4M= + "]]}, Annotation[#, "Charting`Private`Tag$3858825#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmXk0ld/3x5Hpo0h4nouSkOFe83gfU06izIWSBiUqQ6T6lEqlKIUKTSr6 +GFIyFEpJprOTSikapEhpMs/XTPie31q/v+56rXPO3vvs8977nGddJZ8Qtx0C +fHx8Mfx8fP/365uf0D87y4JZF2O+TC1jkJmSVzP/ywIh5eaYDZrGULXy9ubQ +cRY06lql/2Abg9r3J696BlgwdPSLjby6MXTN+53R+JMFdSrzM7cpGcOeQGPP +wmdkXCTn5nzaGMJVm2DnGRbAPNMpjVkjSEpWufhWggVLVMx7K98ZQWpLdIjr +PzQovU8OWRlgBPQ799VsigK0nLfhj6ARVK9xt6lRlYGZ2FJRnGIIdmzV/SrK +0nB9bcqHBE1DMMvbnFmnKwUmi5pf1pYawGTsTmkD9gL4z+eyS6+lAYyM3bqy +RV0SlH8tU4oo14cq5YtGFcES4O2x1StmuT6YCx0v1Nw+D+b3+ipPFenBZcTl +Lj8mBiqNS56cMtAD3xuerV2ponBu1jayy0sX6u4s/oc/SRiWJF7e3Yl0YPG8 +An1cJAj7OyJ4Gy21QWxJW11njgB0V/fnqxtpQfMN0ZofNwUgYbW01io9Lbgn +p/nic5IA7Ile4++vpQVrpPeUPY8VAFkxWZ2CpVqQKDyZlR4oAFT8Cod1lBYo +94pHbuAIQLwGO3N8VBPMS4yNXmXzA3z9ZVZaqglBa6OuZWXxQRHvxb5eR01I +nykx5KTzgYmERd07O01oyBqozb3OB9kl2sFFtpqApjcJ5cfywVDI7UPRVpog +k2mw71EQH1B35i+0M9SE8rEWx0o9PsigWke4CzVhkcmBmcd7Z7HSrgOyvT0c +OB37w6jUZxZfs3ozqNDFgYHvjrsq3GfxJoUIX9d2DlSdUf5SZTyLww9fkIef +HAhurLv/fmIGF1/8tKS8gQMVRzk7uiNm8IfNYfXcpxzwftZSs/jiNP5R0JG1 +/BoHVlmO7/gWMY0vHVtge+UKB3QeS/Ld2DuNW9rFXXoucuBvznIjOddpfML2 +9oNb5zlw7WLGDWnJadzcskne6iQH3m3zCxaN+4u/XakcWxTCgeV8/RK8mCls +32Cen2DPAY0wkeyCw1N4pdzdw+tXcUByWHFFSMAU1gwXF1O25cD39jUHe+ym +8Lhc7OlKxIGwugctbSJT+GtFvYE+w4EHKaEFX6MmsXyjQuBLdQ4oW864Po+Y +wArFR8rb/iH+F1hqXd83gddgq6V2ohwIbzsiHOw7ge+7H5S8J8yBpviJEhnb +CTzHRPh4xBwOXPo1rLJddAKnreR9XTvNBsHo7hGB+HG8dtEEzhxkw4PNnHcN +x8fxiwBppeUDbPDWD8jJ2TOOI4POLGrpY0NZU9sWN7dxnPRXqF21hw0HtH+9 +TKfG8QUN087vbWxo+/DlOroxhrfzpUbPNrPh8h3WfpnzY9jB5p54/Vc2WB/1 +cOk4NoYDrs+1vNvEhhTVeoGErWP4IiOS4veFDesP1e1qUR7DX//tDRerZ4Ow +s8TKQukxvEXtv6C/H9jwUMl5yRnBMZwW80CM954NkjWv63XaRvHo60cbO+rY +UK3wwjI8exS/E7qzif8NG0J5grJuSaNYpU/ju2QNG5a+XMFTPTuKZ6abqaWv +2XBiz9PMt0GjWHfHr8x11WxgnpXNV9AbxdpzAze3VrEh27/wZ2nRCC4IKwh6 +XMGGep9URcfMEdzz9uXxoXI28Hmd9Wq6MoKfdikNGxL2cPVtHN8/gjMOn+Ov +LGWDgJn0e2PDEXyPbfhQ6gkbtI1mJZ4rj+Di5piGvcVs8NTpdlorNYJ3+Tls ++vSYDXnKz6r3DQ7jIrkF57KL2LBx7r+Qnz+Mu1IzY04/ZEOU0NaZZanDuKPa +s0KUcMGsg0Vt3DAun/y2Nr6Q5GtYubgneBijd4mZ2Q/YoN8nMXrEaxg3nHDf +Zkl4c8ek4VznYZxqMXL0031y3s0f8tlawzi88/4nKcLfGip6ixcOY/2RJVLF +BWwQfZ+jaTd3GLc5LMzbRtiwJjHg8+QQzrW3yJ5PeMvzyDs7u4bwuLbMnMp8 +NsTg3a0jjUO4q1av9BDhh082qkS9GsI3K6j3hoTF8gxSM7KG8EJffZnHeWww +zlr8zeDaED7o5YaOE/a+Kbaw8swQLrOVrHYkfPbGqKfrwSG8behdziLCRYm/ +En/sHMLS1FD74D02/EyorQ/xGMLbDWvDawjPO1siNWs7hBWMH+3OJsyNylwT +ZzyEw57zis4S9jl+MU5BdQhTaW899hE+fzj8zV2ZIfxL/aSzF+HifwPFLASH +8KlKpyQnwr+DPexqhng4R2CLBSIs4W99euNvHg4S+mnAEDb10anq/MDDHn3T +R40Ib98sL3C4kodDy+vljAnHewgj0Qc8PAXHRc0Il6zhHbuazsODwVJ2Kwi3 +OnwvVbvAw25bkj6vISxp+3ri0QkeNs9eUuRD2NyqiGu7h4e9uzJ/HSK80/Tm +gfqtPMzOYW++RPiCYVyh72oe/hSdqvSAcJl22CBvGQ/H+o3rfyLcrr5TN1KH +h91DFM/9JSyl7Ba8YDEPZyhP6GiQfFouWpabJs7D/YI75DwJ+9OcTt3pQbzb +28LhHOFLkrQ67hnETgbuUEW4Qkxgh0vzIC6wOxjGT86zU7Dv5reaQaz+Z+9B +a8Iys40/gkoH8YptQkVnCAcO3d98NmkQR0l08BYTvVw3GTT3ix3E3idrd4YQ +rj6st3BF2CBOzRUZeEZYlS+/cXLDILZSWW95mOhx7Yq+4gb7QXwnq36mkXDk +ae1rD0wH8f6bIe+WET3/mHfXI1BuEHPLrqfIEP1LrOk2XvnPIH4ssfNaFGHL +SxxKeWIAS919d2OScJJc9sfGLwN49YUqPEDqZ51a5hr7awPYVUfPVpzU36mA +Vl3V6AFsNCKyK4Xwg7tL5/MfGsDBO67GG5J6lTTMeFu8fgCvKrheG0DqucYq +zUGDNYBX2q8aEypjw2RkC1tQZADL2iq0FRF2PWcpBb39OMQy78Uu0h/mXTeL +173Xj6+91PX4SfpJxAOjGAmtftzprBI+9ZQN35nCVS/m9uPUkk2vayrZYIH1 +hcO7+/Cf0VWTqc/YMFqjc7I3pw+78Q9Muz9nQ1CrxrE37D5898pZ7y7Svzxl +FfbGqvdimzm57bXvSL2kJOtai/Ti4u7Yc82kX0qryvdNtPXgJn/H0V7ST2v1 +WbsCMnvw2wZzyUWf2LDCccEOO9UeHL5jztLbjWzQCRfaIKzSjX9rbuf5/2aD +fMm7qx2C3bhOUbUk+Q8bhEaTG163deE6MfW771vZ0BxssDY+pwvfeVgssqqD +DbFeW1fLGnRh59V6get7iR4tnthylnfiouhgK/FxNqRNBRm4bG3HmjcX9eD5 +HDjHZfbqLW/HTxQcvdYu4MDBf+cUSKm0Y4HoH6XdUhxw6b6u/bmtDTeZuJiq +0ByYbnqh4b27DWvWK04/XMSBjSVLFPcda8UwK9q6jcMB6cP1cxOTf+Ml7ke6 +PpD7d3x2YkF/2G9sxOlp6CL38/fTirJ2G3/jgnKVdiEnDmRdDlw6KfsbX51Z +5m+7hgPLCvgstyT+wumO4Tc7PTkQ0K61W+3CTyxtZp5WFUju21yx9GDxFuxz +pHLifgIHPm8P4uT/bsDVEd0jH/+Q98e3NdyizAbc02Omt4e8VzI9jG3KAxqw +W2roRQnyntlvN+NV0/8Jf81SeeHaT94HWgkX2qfqsXb6UN7gBAfshwrHFWU+ +YrtHCXevzNeEA3PGzivF1OKtz5YXbLXQhINhnLhXVyrwilO6a2OSNSEnnkG3 +9MqtSvXja0/4a0FcQESDd+RnK02l07J/N2mD+LCT+V3X31aLzCS2dDjpwI/9 +L4xCT3VbLd77WnjHJl3oe+JcebB60KpEK2P7jJEeZJ5J994eM2K1I+2kVluh +HqiO5kofSp6wQrVNc4Qs9eH7A8Vyc/9pq8ur/TZkl+rDuqs/orsT+NDzbac2 +9hgbQMrtc+VOiQLoDYi+/fvYAAQ3BfcKHRZEsr3Hay/rGEKtd/Ydt1PC6POt +bbfacw3hkbi811iQKPrE8O94qWAEaklKHSJOYsj1RygVHGsEk6GnpnPd56GH +p2X5O/8aQffkQoksRgIdl1V7mbTdGNL8ztQvVJFEcXHI/fN7Y0hY/uacnOoC +lMK8dlQ1MwGJkFzrZ5QUOpnbYBN+1QQqbIrLi+SlkdZoa9uSaROYDt5q4iEh +g6Y7WtdWe3KBX+TDdc1pGdS7QHj36YdcEI7eTzP8FIpYdtSng7DYP6xLNkIU +EtyxuEkrjwvzY5/Md/2HQs5dVXETj7kgM3fzOS9xCmlZmTHvK7ggd25GNHAB +WR/o6eGcz4XF4ulRoRSFNh69KR9XzAWVuBUCJ+Uo9F9l6i/vF1zQmN8WHq9A +oUCPV53LS7mgnRA9laxEodbzB9+pFXHBYIHmoSxVClH3C+vvv+aCycW3ww/Z +FFp18+7Ej+dcMJfes/epNoVq9q2ZYEi86LJU31t9CmmrNJcsqeGCDfUosMmY +QiZKNuyBt1ywT1zf3mZKIc1lhbrHnnLBhTXpO2RJISONqbsXXnLB/dqNH7PL +KRRbv8ht7QcueMpZec1bSaF5Gqa7eG+44JX0s1HWgUJzx1P5v1VxwWfhKQ9V +Fwo9zVa4tYXM97uh9lHfjUILI/TNBT9xIUjh1eplHhTaZuPnv+EjF/ak7Hrj +sJFC7fS1VJFaLhxQlLBfv4VCQX/3PtnwhQthaQXPfX0otGG6yUKuhQvhSu7W +e3ZS6MYp2uVSHRdO3hypOBpI5l+g79s2cCFa5Zp5zG4KpYrU7afauHD+llnx +lX0UUpPe45X5gwsXVb8Z3QylkLD1LzkVsv5q5vH7eWEUkr968Gk1mX9DXVmn +NJxC07cVn0b2cSE9qyrnZSSF+FbjCZvPXMhk+6nXn6bQ29XKf+uIvZycf279 +iCX7eZwu9GiUC/mad5f0xlFIOq7ua0w7Fx7edflv4iKF1qYveLacxFesPSgn +fJVC+lZ9vv+NcaE871KiVDKFVurHi9XyuFCpayKtmEoh65htkVs6uPCy4Eu8 +ZgaFjIcWHNDs58Ib/SPzmDsUij5+xPUy8ff+gUKMTS6FNuelPjEl3GAIQq75 +FBoayfGSGuTC14c+kV6FFIoZDFWfJfzDWGg24DHRS1RseuhfLvwpunMktJRC +T17euvyKn4FOrsN4JKaQZNpGvxjiv6+4Z3/8MwplBu8WNpzgAs80fjD5JYm/ +pJFXIcbAWIn+7qwaCoW3tFlpCTDw17y+62Ed0VuPeopGL6mn8lC/px8ppDwl +XflOlAHhZXJ/3n4m+ZGc4/mRZmAuLvVu+kqhn2nLou+Nc0ESbfnW1kKhxlq7 +4P4pLlBP+TYO/abQ+53O/SlLGJC3zmiYbadQ/KX6x2clGFj8zNZ9Xg+F+M/9 +Tgol+VSx6aiTHSD+lka/WyTNgMbzWCfVYQr1bT/i+kueAa2V2q/0xylU9ihx +75Q4A/ov62yX/aWQwegkfXKG1JPdvkoHPhqdD1lqPyjHQIzB3P4FgjQ6k/Os +Zc1CBpoX3VrYKEKjddceH58m8euKWNqlzaXRjpHuozxiL3Lw036/+TRy4YiH +9ZLxT193p+tI0+hIjqKllxKJ54VI7QhNo6+ZAvPYagwcKUibLJMn602TVfLI ++tokU/VTi2kUUPPvazWyXinqg7ujMo3UMprFsjgM7A/ZdUJKjUbnjuRbjzEM +vNwgeK+RTcbLlHrXS5L82PzXmKZNo8jleWa7WAwE65gI++vTaFu8RWKOCQMg +W2ega0wjVw0Nq1YzBmTm+G8dZWik/uIYz4H48+vlO1duQSPktrnakeSr5PP1 +4lOIRiGesbbXbRiQqDRodbShkWKj2uPj5gxsu1uzQNqORlJFuuFJigw8TNy+ +rMmRRnnPU08sXcyASMR0YPpqGmnlJq2psWNg467Eq/7uNFooWfd3ypKBe+t0 +q3TX0yj10LbLGloM8KHqgdGNNPLWbNqkp8yAO2ebQsUWGlVa71FwWc5Apsyk +fZQPjXbOBh0eJzwxczHUaSeNaoRx2w0Sj1OnZoZ0II3wDv8NbnoMpH6sqmsK +plGj89x9b0wZ4JV7/U3fSyMrdofi+5UM2GaNagQcoBFHzpYd4syQ7/34dXqH +aSRT1rP6M7HXfVQjcuwojfrEc2rnGDCwzO9pXsUJGs2x5JPMd2TgguvGr1Gn +aLRfeZPEc28G/pgPiThH02jw56jIEMmXXqtHScBVGj0bP3DDaTUDJ+v62/SS +yf7T/VbIqzDQ8CRaejyFRtWWL2RVXRlg31JC+CaNrq8PPXwsjIGjcSVBpzNp +dNlysEJmIwN1h9yvO+fQaEGc19Bjcp7Kvj3PZfJoRJ2un7lN7Ic6R/G+3qfR +VbdJ/fr9DLziLlbMeEQj3z1qkfO3M7BI+bFj4BMaaXivbjrlxMCeeWsO6ZfT +KJ2lrr7FgYFnox23xoFG+YXdDk67GKB/RrzHVWQ/G5DgFcIBNfIzp6uJHkaU +kk19GSh7VMhxeUMjL32v/tdrGZif5rSeekejPUfH0qK9GPCJbT3Z/JFGSdvb +y+t2M/Bof3hBxmeiL9a3jIZDDIhuZX0L/Eojybpf6c77GNhkX/CPQQuNWhTs +jpeS/OYZ2ptM/KKR8e5PRVJBDPAv/uUDbTQyenYsPSqWgbWiR+LPdNFILERu +QOoMA3d40mUufUSfncOBC6wZmGy+20HxaNTQYb1zuw8DNkHVCc6jNDp78Vxi +bhID56d+M1GTNKKp3ZIHib2G2NkfZTM0Gi495vTXnoEl8gtjhgVY6MGq0KM3 +QhgIzDbR1xJhoT2rH086FhK9M26NvnNZ6L1/TPfHUwzMvAyOSJ7PQjzGL7DK +nYFV62PYH6VZaPWM5GzYSQYS2m69F5NlIcZ2yxf7DAaaDsBh60UsdKAvIds4 +moGlQs1KYUtYqMZi/ZmmnQzsvjz26v5SFto3nt/5MYGBYhXpfZ0aLDRln6eo +TuLnL9SRV9JmoRcdb27cvcyAg7VDpac+C/0++WUil/i7/H5HYIIxC/m8umAx +eISB794RUtWmLGRdmSh69ioD6gM3SmYtWchr35zW+TlED8eLfbjWLGS+Z6FX +5G1S/xL1YiErWWjc7ZagODl/wZT+B5kOLDT0/XrLceLfRXvupu8uLFT2bxnH +oprUT5naHNqdhfg2evCfvcnAT0frXOf1LGSz6I/TPaIHzlcv96hNLHTo0YnF +t9JJPws8PFW2lYXywncHPOtjoGLicsawLwtNJzd8YIh/0ZgCRy1/FnJI1fGD +DQy4yb4Z8g1ioVg4dF48l4HkO+3JyXtYqGGX0PrwblJ/JnNsPu4n9u4HDoTc +Y0DnxeIescMsZJp2bvbRXgYOrTO7bH2MhV5PF44dfsjA0z/rLMIiWGj91WEq +o4kBsf17/9yPIvmtsFh6oIToa875c50xLLRETu/nuwsMpFzMMlKKYyF7ya1O +/MUMdChVNXteZKGk81fWHnrNgMH9llMJiSxk52ko+JXwETSlVZ3EQuJlr/4t +Jfaq6uhPsykspHQt23+c2JPYanCMm0H0sVO698oTBjz7nFVD7hB9mUnyfJsZ +uHks4G1mLgt1bPvPU6CXgZ55UQe+57NQVcSotNpZBoxvpCnQD0m8C5VrzmYy +EK5Z9ty5mIXYOLoji+SjuuRzcFQZC8mamX0P0zAFKYchqhxYaPTZbx87or/N +jRIVw1UstMqMr3A70VemP2en1iuy/tCOEL9hBvrHbCW2v2WhlLgR23wjU2DO +bCtKfs9C35QO8V3C5L6jj235+ImFnjQ+YgkdZODN7WvCc5tYKEoqOD+IR/qH +8cM86+8s1E3f7LPXMQXvqjqPsF8s9JO3WSz0GwPZ7t0z99tY6Ez9wcwuol/e +L+E7nV0sdPkNvq70mwGLfcqrlfpZKLLmdkmVvCmc5l825jnEQu1/e/hMxhl4 +l7AhNWGMhXI8Ew/KE/3JLzmwqnqKhV4J7xXXfcnA////gEAjZdXpCQb+B2Kp +/2E= + "]]}, Annotation[#, "Charting`Private`Tag$3858825#4"]& ]}}, {}}, { + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, DisplayFunction -> Identity, DisplayFunction -> Identity, + Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0]}, + AxesOrigin -> {0, -25.205799457979587`}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "ClippingRange" -> {{{-5.999999755102041, + 5.999999755102041}, {-25.205799457979644`, -7.661000555932736}}, \ +{{-5.999999755102041, + 5.999999755102041}, {-25.205799457979644`, -7.661000555932736}}}}, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ +StyleBox[\\\" \ +\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*SuperscriptBox[StyleBox[\\\"h\\\",\ +FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ +\\\"/\\\", \\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], + TraditionalForm], + FormBox[ + TagBox["\"| \[CapitalDelta]\[ScriptCapitalF] |\"", HoldForm], + TraditionalForm]}, AxesOrigin -> {0, -25.205799457979644`}, + CoordinatesToolOptions -> {"DisplayFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& )}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], ImageSize -> 300, LabelStyle -> { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, PlotRange -> {{-6, + 6}, {-25.205799457979644`, -7.661000555932736}}, PlotRangeClipping -> + True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{"2", "3", "4", "5"}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, + Background -> Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "14"}], ",", + RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.8763699506493063`*^9, 3.8763699619208803`*^9}, + 3.876370068782353*^9, {3.87637043091245*^9, 3.87637044257585*^9}, { + 3.876370721301976*^9, 3.876370808099616*^9}, {3.876371116142165*^9, + 3.8763711352371187`*^9}, {3.87637122695619*^9, 3.8763712464846573`*^9}, { + 3.87637134045012*^9, 3.8763713522979193`*^9}, 3.876371879846971*^9, + 3.884692135165325*^9, {3.887183224363449*^9, 3.887183269387279*^9}, + 3.888652370069249*^9, 3.888652437166812*^9, 3.888652624199464*^9, + 3.888652845863263*^9, 3.888660610541423*^9, 3.893237180256803*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fd2b4eb1-d3d0-47e3-9856-c74924a73143"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"magnetizationData", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"ut", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], + SuperscriptBox[ + RowBox[{ + RowBox[{"uh", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], + ",", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<gs\>\"", "]"}]}], + "]"}], "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], + RowBox[{ + RowBox[{"-", "8"}], "/", "15"}]]}], ",", + RowBox[{"Re", "@", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptF0D\[Eta]List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "n", "]"}], "]"}]}], ")"}], "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "n", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"n", ",", "2", ",", "6"}], "}"}], ",", + RowBox[{"Evaluate", "@", + RowBox[{"N", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"\[Gamma]", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]], ",", + RowBox[{"1", "-", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "}"}], ",", "30"}], "]"}]}]}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8763698032393303`*^9, 3.876369884026998*^9}, { + 3.876369997688293*^9, 3.876370007596018*^9}, {3.876370093855591*^9, + 3.876370097827559*^9}, {3.876370373799559*^9, 3.87637037853475*^9}, { + 3.876370465791544*^9, 3.876370497109497*^9}, {3.8763705296866293`*^9, + 3.8763705300592623`*^9}, {3.87637087516536*^9, 3.876370917886569*^9}, { + 3.87637139299862*^9, 3.8763714209705677`*^9}, {3.887183678121203*^9, + 3.887183686457292*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"magnetizationDataInterpolation", "=", + RowBox[{"Interpolation", "/@", "magnetizationData"}]}], ";"}]], "Input", + CellChangeTimes->{{3.876369897948588*^9, 3.876369916907255*^9}, { + 3.876370456614004*^9, 3.87637045960681*^9}, {3.8763707444350023`*^9, + 3.876370747760907*^9}, {3.8763714277972183`*^9, 3.876371431900972*^9}, { + 3.887183690448813*^9, 3.887183699080945*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"LogPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{"#", "[", "x", "]"}], "-", + RowBox[{ + RowBox[{"Last", "[", "magnetizationDataInterpolation", "]"}], "[", + "x", "]"}]}], "]"}], ")"}], "&"}], "/@", + RowBox[{"Most", "[", "magnetizationDataInterpolation", "]"}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"h\",FontSlant->\"\ +Italic\"], RowBox[{RowBox[{RowBox[{\"-\", \"1\"}], \"/\", \"\[Beta]\"}], \" \ +\", \"\[Delta]\"}]]\)\>\"", ",", + "\"\<| \!\(\*SubscriptBox[\(\[ScriptCapitalF]\), \ +\(0\)]\)\!\(\*SuperscriptBox[\"'\", StyleBox[RowBox[{\"[\", \"n\", \ +\"]\"}],FontSlant->\"Italic\"]]\) - \!\(\*SubscriptBox[\(\[ScriptCapitalF]\), \ +\(0\)]\)\!\(\*SuperscriptBox[\('\), \([6]\)]\) |\>\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "12"}]}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.876369918582409*^9, 3.876369955823151*^9}, { + 3.8763704278400583`*^9, 3.876370441157851*^9}, {3.876370738463645*^9, + 3.876370807838629*^9}, {3.876371122391995*^9, 3.876371134526176*^9}, { + 3.8763711865989513`*^9, 3.8763713519982843`*^9}, {3.87637143608066*^9, + 3.876371440221603*^9}, {3.887183707042214*^9, 3.88718373222613*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2Xc81f8XB3CzJNkhFZ97r33TMCvq3lBRVlFpoNKgkCRKWkKEjBANo5CV +kbKScxAZZSVSRsiWvefv8308fn/dx/Px4T4+j8/nnNf7HChnrxw+z8bCwpLP +ysLy36dVWuDw8rIoun/ip1hqK6DwvLiMxoIovlBfLL2wRwE/74s75Twjiq/S +t9PtGQoo05pbPjgiis/rsgg3DQXs5+l83dQuipqT5+pDlBXQ4ZKqWWaxKG4/ +Ps7IpSngHelfeOGhKCoW3G38xq6Az57Tgr/xiuL92/v7qcXyGNXmfeXQKhE8 +a91xnV1ZHkVqTIzk167Fxo9aRpffyGGZsYlOpbQw2ijzZiesk0NdeWknGlUI +V1+N8d7uKos7U0/FV28RxAgln16OPzI49+iCkJK8AGoU8p3iU5bByenYUAtZ +fgwZP3vt5QNp/EwNVimw48XWy+9u3v4thRqcdzPp53gw/NGZGmeKFIYw1dX3 +3ObGBLOYhg2ONLR6YdbVH8WFnOX1Xwy+ULH6jcQq1mcrMH9Fo36JEBUleNK3 +QRYH7j0g9XvUhYL2f+WaA1I5sIo3/LfjdQoW5Md4nY7nQEPeAcNJRwqa2z35 +zRrGgVsKop4t2VHwRZWzp851Dry+YpcE7RwF1wXtaipX5sAvq2+9zjKmoLBI +5b36dHa08rnWL0Gn4LkhbXpcAjvqbPV+Xi9Hwfel+T+uR7Pj1NUJBT8ZCpq4 +pCqIBrLjuodW4yxUCgb/DKo/foUd5096BLGuoyDfczO5NkV2DJUd1j27koLc +RHd1XxIbGhvrluV3Edj8gqvyzys2vCEhQ4FOAt+uo5c2PmPDjOfZUNxOoLGQ +Q37JIzaUosy0fG8hMGzFXELMJTZ8vZKLn7+BQOq/Ne7HFdiwaV15x3wpgRp5 +qirliayY24QrIYlAHnWzLRjDig8XvygLJhLYmumqkB3BiopN45ut3xDo/haI +OB9WDD2jE7chlsCyaL01921YMaqiUjjhJYGmD827t8uzolizsYJBEIG2pp7h +CQksaJNXi2OuBMYs5SkrxLBgXNoPU7hJYEPCSFVyBAvuPzb39/ENApmLJznT +HrFgL+xcre5MoHC8kuMHWxZ8cLVjIPkqgZ+m2w4WbWVBHOseo9sQOBaztkdb +ngW1kpXOKVgTKKt/0L2EwoJXDwaKb7pIYFB0Vk6ZIAu+7wm22XGewMpg8YOR +fcsA7jGibmcI3KB2fSn76jKc2hfHGn+CQK9Hf1Q+nl2Gl5Y03t/HCRxpPXi5 +wGQZfGzE0oRIf35I/flZdRniqvYUBxwj0K6pOqN2dgken9UvyzQl8KeiRm99 +/xJ0vVrBs4K0lnu8xM/fS+AWgrynTAgUod/2bf20BI/OiV0UOkxggZvC+YH7 +SxBlELCUZkSgXG3o8yHHJVB9qfWDIB0szVo3arUEX4RTnoYaEnihqnH3zN4l +CIhIn3pkQGANVfv6vNoSXKAMRq4mvdMlNXlJdgmkJSUPBOoTyEd4inFyL8Ea +/42FcQcJdHUaMeSaX4Rgj+ZwNdJ/y056rh5chDOnXH0rDxCYc1VpTKBqEfg5 +3zWxkqaWvpRbC4swWPx0z2s9Av3EV1mKpS+CRdBEsy7p08VtlRLBi5BsSf8S +rUvg/l0z51vuL0J0tFOxPunN2fwsL64ugkfK4erF/QSu3Sb/7MSZRVByYh/P +JL2QtEdl3aFFaH7ZoHaFdKfUiapG5iKY9iq+3kK6ItLROmzrIrhcuc2c3Edg +hpgv2xFiEXYI6Isi6fDg1y+E+Mn7K1LeGkj6Lk++Wt3yApR3tT85T/qCV31N +4PAC+H4QPcgkbcDy75JR2wLAsyQLgrSKKycnb/UCfAzwaOQkvX5iY9TXggUo +CYgtGNlLIJu92g7f1AW4Ny2xsZ10X4/hd73IBVj4t3GhgXTNmYt2XI8XIPZX ++7k60tm/7678cnsBlKoKT38nHXkkPMbTbgGeLtJnm0h7Vqdr6JgvQMPWePVu +0rZ65T/YDBage3eV9Axpk+L2K4WaC7AccOIbH3k/O3fNrbq3aQEOPRXfrkia +ki0Yu3vDAuw3mb5iTJprG3334uoFeNs+fucm6eEk7Z8f5+fBcUHxSgLpBqlT +jq4D8zDl13qghfSnSCeeHb/noWjXiQ1i5PONFfOPn66YBzsBwSEz0r7Bccys +vHmwmn9SEUXakafgl1PSPJi6+eYPkt7DMsw75jMPvxsJngjy/cq5rkxMv0le +35N2d4Y0/4Sk9hWbeXiYH6piQdZHa4+xy6DuPARPpwdokvVUcsZGIHn7PFwL +aNH/QDrl9/1kG7l5WH/B5KbKf/VZ/a6te+U8lPMGGu0j6/eMXuXNuOk5eEyz +F2girVvcKXSuZw50EkocHcl6F8kW1m0vnYNrbrl7c8n+eBfpnP7bcw4MzSKD +ww8RGCEWcODZ9Tlos5b5cIbst3vBb/6anZ+DPwa0tm1kPxp6/RRr0JkD68Hq +ez1kv/bb7bxfwz4HUi7iPolmBNb2HF4fMD4L06DolEL2f86Zyx8MOmfBfLPf +r6z/8uLIi76KolkwK5U81nGK7JddS4dK7s/CC32PqlAyX2oEdm2KcJwly80o +G88SeKf71go7q1ngySVCx6wI/BUwmye8dxYM5VKsL18g8EnHBO0c1yw0Hnqw +KvMymR/ZykvqszNQorRZWdSOzCNfx5+r+2dgX+jZcnd7AvVVR/wyK2fA937W +LQcyHzm8BybZAmaA/cua8jcu5PM4pVDTcHcG0hiHZPTIvD29zSYpyWEG6rMb +Xf7L4/xf3RaHD8+An+GGPeZ3CLyu2PElZu0MbJirvRfqSWB33c8I5otp2Gt0 +3/1VKIEhb0SdhP2nYXzthhtfn5L353bUsPf2NNilt2csR5D1Ll3PFmg5Da8h +0dQ9ksBjN6ovt1GngdO0QWaePD9WGPDuyxSahpZjytyO5HnznmJAPOSYhjUJ +vRzjKWT9VFbUb+6egj18Ve+F3pHny8bSXXcSp+Dpr7ZD3/MJdB7jEDv8bArO +lWsxIoFAqS/aY9K+U/A6+NhupyLy/ToUxn+znYKt1gkLe8oI3F6cz7dx6xQY +mW10tq4nMNE6s/1j1iQ0lusf5BgmsP5slOTB+EkojKFuaxsjkMXc1/xX6CT8 +dLdRqJgi8Oghq6YZp0mIplRY1i6RebBTqFZVeRI27GF/kMJHQUWVZd4S6iR4 +vpCP4xOmoNnmAX1TwUko99pC8xSjYCq1uMxxdAI63tl5JFAoeGL1NUxLm4BR +J6GsXyoU9OS0XNodNQGZAY73fu2gYPryAc2qxxMg6dbxdHg3BVdMUHMG7SYg +fHrNxZN6FHzXXJcmv2kCdnfYuu2zJOeDVKWo1wnj0Bdewt8RQEHVBIkWpfBx +6E3s4nUKo+DpV9zrix6Ow8VnMT5SLymYFdYR9ucCef0l96a/SRQ8ezf48Ubp +cXh041nR1BcK+t+88zVFeBwoiZxrQqspmHPtErcmxzhIDyobH2+kIK+1lteJ +zjFI2uJsbdZDwTzjsdtPY8ZA7bvspOkqKnYdaP0oEzQGt0Vmi/YJUpF/b8Xs +h3tjQAufeGGznooXdry6Xm85Bl7RXQF6m6koSD1sJyAxBgn7tl1MOkrFXRt2 +J0evGYPFIZg+eYaK1iIKfVsWR4FhpTJvZEvFAm6284bNo6CdWD7H/YCKl8Yz +Tvk+GwXO09l3FN5TMUJtVOPio1EIzJjaxFtIxbKbW9dru47C6KkX1oZVVJRm +SWuaOz4KHVvqD8/0UdFUeyinQW8UUnd6TtnOUNHdSzH83Y5ROO1xj266koZ/ +eFKOXlo3CgY6yB0mQ0Ne4wHVfatGIXefmA6LOg13PVFYS50dAZ/KoRML+2n4 +bF3i96afIzDmzfhcd5mGR2TijfXCR6B2r9WTE/k09LDp2iLtPQKZLFaBGXU0 +fJcixcd6YwRMVhxYEuynIb/y6285x0bgvvlzisUGKWQ4d6SE7B8BgYw1773U +pdA+l+LnoD4CWuXt+jtMpbCSEX1ATnQEWqrN9ZeDpXDOvU2eY+UI2JWcvev3 +QQoP+e0SxH/DwFfwe+zFLylMFcyvcfk2DApp8UEhbNLIE7EzYMvbYTA+Lp0y +oiiNNpK5Bj1+wzDAqX7mkLk0lsap80TZDsPfhr8/HgZJo9SmrIqj+sMQvTjv +kVIpjfffqfjwbhoGtcWpLu01Mti6PXN/6ephKGP1pd4xk0FN2LbizsAQxNYY +rU5Nl8GIvemfVSuH4KXjsuiu9bI4Vbn5wb+kIVBVSzToipFF08Nv98Q9GgKh +lzGKrMflMOMnncX80hCs7NjR5XVDHnktkwqEDwzBDlYON0OdTWjbJXf7q/wQ +GG/XsORrUMCKy280PFYNwa6Hc52X2eVRdkx6TqPvH3AUhfOGCMmhx43YnPGy +fyA7rKO18qosdixRXZIT/kHGn+eV45MyyPSMUbXy/gczeb7be4Jl8OVqYkLc ++h8E37eVW8Uk95egyHd1+//BoGJ8cM2MNJqJbbz6SPYflFCXzc/kSWNW5PMt +Wiv/wRaLPoEad2kUkhYfmu0eBBZv35wiY2l0SA5PySgdhIuK9/w1adJYtU30 +sk38IEif8NO6OyuF9JxQeYrXIJj3vJudrpNC793CvT/PDwIXV9mcUpoUah8U +OK8rPQjvbcM7/e2lMLo2gMbCOQivctZ10g5J4dIx3o7svwPAJvDI9oyqFOac +W20pGzsAXXb2axXYpFBkwGdj24MBWO2RWH6FrLdrV7maw6wG4GK7MkvNdxpu +vsN5fAVtABauxdq7J9JQPK/maS/HADis1hGZD6Mh59Tzhoruftg/0RUk5UnD +Zjsl04CkfvC3uSt00oqGZYmLwVf9+mHb0UduJiY0zOwqqzWx7weHUim179o0 +fGRuaSSm1A9ioz2iemQ/OUcoPJ4T6ofqAOVt28RoeObH5NfmyT5I2XvvqAc3 +Dbcb+B2Iye0DxlrfiCMjVOzRzN2rsKcPtNqZlyWRinU3PDx4aH1gv8E8tZHs +/4L3RsVDHH0wVMLP+zORimGbupmZZb2Q1Bw0GRtCRZ0NQpqaxr3AOffCW8qO +ilvNWl0llHoh4djD7bVWVFwfkpjLItwL6j+y+N6doOLYaqZ6SWMP2P9QqOLS +o2L0vK2SoWUPKDSzbmmWpaKf+varW/f0QOGH0IE5SSq6XGNPF6T1wIgn37E9 +YlQ0HIhQbOzuBh6/7AtMMh8Xf5XKnbbvhrhStazeQQr2igRf1DLuBse/e4qk +uylYf9g8XkqpG+zV0je5t1EwpWKc1jfZBVFmO8pD68jzI4+QdLzdBW6HDAoE +8yi4b2rA3NSyCwZtdgurvqfgNqXsF2p7uqD8/O1Jh1QKciUZiM9zdEHIKrYp +pddk/ke4rvXw+wtfd+TY1fhTUOhm/eqw552Q0J3XyXGRgjPLswLDrp2wafCE +GvUsBVu9JMV0T3TC+oGvFabmFEwIuSQ1J9YJboVTy9MmFNydzrLLIqwDWi0U +j9C1KCilLqOdfb0DdOqDTXp2UXBVwUE9/iMdIBb73PUDeb7VV4YdKRLqANlD +DcNe2yho07PJXiaoHSo8zQsnyfPR0P6w012HdhgrcNDYKUFBlUkX159G7cDl +5eDyWJyCS2zFXo9420H937TCeSEKhkgcjxry/QP73udGfuak4J1k7hi7NW1w ++1r14rp/BOrlHnkr+bUVtHOxaXc/uU9+ic6tfdQK/MEWKx16yHmgQ61OlasV +gvvsEqfI/bl+nRX7ElsLvGyNuBPYSGCUbCpfemEzLJz7eUToB4GXVGfXn73X +DKoifRoxdQQuGweolC7+huhD8rEt3whU8P54/vHMLxBZSJH48ZnAydAVjszs +X8CjuCI6hZxP8PWhO2PXfwH7KiXaYyTwCPSEHR1vghNd8MGenG/uTQmVSQz9 +BFZfjZZX7wlsPGerkNbZAITXyacQT+6LLcbqWfEN8MIuoVYnjsD4o6o6n2wa +QGL96WO1rwl00l0yrxz+AazuOQvL0eQ8tSkwqGe+HqyHTpZkPCdwOtYpcqig +HgIj+K9ceUbO5xuPJ0/er4e3f7h/K5PzWwoftYSdqx72qF7Iqwkjn9945oyk +8Hewvfe41yyYwK224ZyyjXWw3sdh4gC534t1uQluflYHSaxzetqB5LzYsHeT +JlEHb72mI/Y9JtA9r9HSbFMtRNa8Nw57RKCNcr6t5XANDL4+R8/1IdA4Jfrm +hXc1cL+w6m+7N4ESkTZPnLbXAIdrX6HOQ3IeZZ/2p/hUwfqvtrWGHgTqTMKb +LXxV4JvToh/1gEDBHu/CXaHfQCnPb/+kO4GpFeKTx2O+whW5v/4Z9wl0y+/k +tZb9CnpXfYpFSR9ITZFzflsJz7jO6z+4R95v0O5TwbkVoHdcW/HSXXIefbDS +OZpRAUICFg5d5Dzsfr0mILWkHOQ/tzSfJy15/GxxRW0ZiOS/WeV8m8ChA/SW +n8fKwGgDXxYn6XzNianuli/A4yh87pkbgWaElwJ7fyl8+uceWXeLQBlBIx0B +h1J4eXxO1Jn0BLuYheRUCVyRpdtJkC6a/OOi6FYC2fs6QyrJ+TyoJzFIg60E +Wll5vG6TPt3kmKzn/Rlu3EhUVyG9uVKj5BjvZyiQ/BU9TM73FanfZq6JF4Nl +4LCzE+nw6DBB9+giaPQPrNtF+kKw5aZAmSLgVtcsXk1axUNuX2RKIdzy9Ge2 +3iCQ3XnUMkWpEIqW1bQ+kK69mHczLwfhjR4bBpKOOv7gSdluBI386gwH0r/C +wk+89QGQWAjlO0LaxVXhcXloARwLPVO7i7Th0EhDWvwn6HsSqE0nLXM2WzIs +Ox/Wscq3bSC99OO2tVvZR2jb2PtCkPQPPZ2Ms0158Fss8joP6ZRP3HO6/blA +fat4lpu0x7ZarS3zOdD/0ffkf9dPxT31XcuTAzbr4cR/v6+8zqJ+fkM2EPv/ +mP33/dz+Uhs7FLPg/pKYkQLpDpaB82W7P8DbFbFqmqTznDJSU43eQ+7yV67D +pIN6XaZDTmfCwd/DBZdJW5/azbx19R1ID9w47PPf36dqOHzOuGdApu7f/CTS +YjqVtfufpENI26fpatKtV2iqp3TTYGwoemGGtP+x9FK5S2+hYla9RJp83pqM +XWaTvslw8azmwaOkB2Qq+grfJsIWE2fvR6Sf8R679bj6Dew7ku9cRFpvqpPn +5Ggc9JqM8y2RnmlxiJQVigXqWl7DXeT7P/r2USEejQZ+i+XoUtLcClvixUdf +gB0uJ/KT9WQ9q1ueqRIBL83VmRakaeFufN0fg4Aht3WRnazPmhSJNtPDF+Dk +hr3iN8n65ThzkPDWNmREckb/ayWduPmVC0+eI+NjhwZFl6z/liabtBhDb0aV ++csnUmS/uKQZHBwUe87oH9Ll5yT7S/yPspzJj0hGXc1zY0/SFlz+bC26MYyL +B9Z/4SL7k2XHtTZtzjjGqgULrXVk/+o8Y0QI3ElhZEmc6bYk983Qd+9W7j2V +yhgrVNefJX2tS1BDc2M6o9YqB0O9CPy86Jl4ZT6DwdBPKmok8+HCZluvhuwP +DCK5N/4umS9JAduZsVs/MWpL8kdPkHnE8Tkqf6VKAePGuJCqCplXljMrdlxW +B8YW5ZmP/GSePUrvF1sXhQz50tw7358QuHtdrsCfuCLG949PtO6S+218/xF2 ++8xShkfkrNrlKAK/e/gUSqp+YYDfvKYzma8skp/u1mZ9YaywVFTxiCHwhInU +gkpeGeMrx+eOBDKP+fLHJuaxgvEgkP2jcAKBN/wDun2qqhjXoyV1HDMIjJMt +jtUwrmZsM+qVSyL33brCqbP/aqsZqxQ4PvzNJFBkPvVKwqUahgtnccaZLAId +togMrravZWjbw2fXjwRKh//9W+f0nXFyJiNGupTAxzb3G067NzL+dTiu0moh +0LuS9cPfgkZGzIfY+pRWMs8U3Z9Yzzcy0jtD7q37Q76/UXdjB6efjPy4EfuZ +DjJfbnpU3L3QxHj8ZZvp114Ct/k8LIg88JsRtVu2qHyCPB8T/OObBdsYPS81 +J1byUnDNhL5GyqFORhNzcwvbXgry/1KycnHsZKReSsqc3kdBYRTz1XrSyQie +m2QZ0qWguN/fXz/rOxkn7ghMtupTUE7KzZXT7C8jLOjjdK0pBbVMk3MtLLoY +0fNWa+fOUdD5/artApd7GIa6g41MLwr+cSpVcfYYYHxqblkr9ZWCQ7kGRS5l +owy97h8z7RZUjH8Yc/qczyRj54bgppAhct+bSha68XyWsfFWoIq9Pw1b30l+ +0rBeZAhlzKpkUqTwyNM/3gOBLEzpKzf378yQwsg4v0/6YWzMRYvSBy/1pJHj +pN0/zpscTAkD07ft38l5/XTim8MeK5g9uQJF7Odl8MMacfNpWy5mWtafgd89 +MijzjNK7Up+bmfIp7fx7K1mcc/ZYTDbhYcq2cYhQu2RxYG49b8J2Xmb8xcNr +rpL7TfTFh/XrafzM2uZS1891chi456vfOmkBpsFUdNyhveS+cyVZq3itIHOY +I7naIEUeC3RyPmWJCzFDHDdfGRNVwEU7S7WjvMJMbyUPqYYbCsi6si6CvijM +NHjVdPBNvQKq6ToWHWARYdI+u38YUaHjXHNK79oxEeYh71K3r7501LEtCzSY +EmHeexCszPCno/9853bPORHm/j+dpzIf05EQX+8zwSbKvGCUERAdRMf9x3zk +vwuJMkvoIjlBT+kYUnv+UqCqKNNbU8XL4zUdN5dKDHLfFGVeyvkiyvORjjeO +7AzRuk3+/IWZluv5dCz8e0TT9b4o89bOUZf2T3Q0Zff36/MRZbLMurkWIB1v +Mec3lT0TZQYLWkc9KaVjWV6jnWe+KPOkUgbjQh0dBQ+Mr/2EoswU5RsWFd/p +eKqJt2DisyhTea3cqq0/6Dg8vZf33DdRZgPvWz7Wn3QUUX2fqtUqyvwVEKuK +LXQ8/bn6qGuHKDM+MOSJWhsdE00GljK6RZmW/FNn0/7QUdORakQZFmVGDEfo +JHTS0Yt197TZuCiz/9w1ulwXHWsCj0cFTosyhbsLfyd201GcuL6/bF6Ueb30 +KZ9iLx3///86JvPVKu6IPjr+D05eNpg= + "]]}, Annotation[#, "Charting`Private`Tag$4159201#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2Xk01N//B/AZO0X2QQvNe8YylhAqwhSKtEgl+pClKEVJpBRR2StLUqhs +hRBKJcJ9FUlZkiT7vivr2Lfv/Z3z+8t5nOPc98x93/t6vZ5nNjtcNHdkI5FI +WWQS6f/+nsqJGFtdpcBQ1CvFw+pKILooJauzRIGMlT2OJ1SVoGzPC+srcxSI +qCMfPqWiBLLtBd/+jlPAJuqMhwdDCYbX9qQ0dVEg3EfC+wFVCdzOaVrmlVIg +dy6svkxYCXzpzeAURAHy9Koaa1IR4uKJqGoBCmzM66q+9UYREjqCLx7mFQfr +M6NW01RFEK89ckhBTAwaBL/Ocj5mQIXZEcNKuiicseMzElzDAGMFugdBFYFv +SZaHPrgogHa2deqPLcKg+S0+pO6XPCyEOomoKwjBL68nxBt5eZieff7wpJwg +DCmq0lOuy0EZNUqjxFUAdELfvb/WIAs6nDfzFE+vhVdkz+u1MrIQzdy2bZcP +H+x+t8d9vRcdTj2x7BtO4AH+Myo1pHoa/EjbxEuO44IsSh7pphIN7P4B2SOK +C4Lsm9sZDBpMqp9a6A/lAsMGzbI/cjQQLUkbqbrOBWNcja80CBpY1qvWPLbh +AofveXqLkjToJhk8UN3MBS8eZ14q5qbBjNWZjXbpnBC52/2NXC8BQQm84r8S +OcEgZnHnfBcBEn2ZAntiOeEhZYNMVQcBOm7jq4qhnEC6YLbo2UKAX+C17tnz +nNDt+eJocx0BfHlhaeFbOGGfa4zk4CcCNq3NVUPvOaDOppqsnETAhV751vBs +DpCMeJPEkUBASVFSoF0qB7i9dzNpf0KAjeuDFnIMB9h/Dvj06DEBT2quBBh6 +csDBTyNVRAQBkpG6Td+2ckDnxlrl5zcJEBWv9KvPZYfWff88newIOD1qoPgi +nR2efj77J+gkAW/Li357JrLD2ZR3DZnWBBzxymZQIthBOsC/dNGSgKjGyHqr +i+ww1N07+PEwAeviLeU7lNmBQWsX/2yAv49M/4+hDDYQ8Hf35GcQ0PqEp7Iz +mQ3K1XV2RcsT8EpSsfxPHBuUCdTt3iRHgJmIW9GXUDaQOXR9VYdGQAzXQnrS +OTZIY13gTdhEAPUf/y0rBhvMru37wyNKAMtZ1ceMygYbfioOfhEm4Eu/+dW9 +UmxQX2X2IFCIgLOdjy5o8rGBfiD5t/A6ArJ/bf5PaJgMEsmqZcf58Pso1NT4 +9pIMLhJOLrFkAtZus9wCSWTYPip+9gGJgPY8b0Z+LBkukMMuRq5S4dYrJPMi +hAy6p6tQ7DIVKhJN+P2dyfBtwUqndZ4KcRtdeK7ak0Ek1Onc7BwVzsfdZ79o +RYb2w03d4tgC0b/mrU3IUPhj8IfDDBWOBtn0b1cgQ24bm++WKSrIcvh1bdlM +Bllz+RbXSSrM+iW3ykqSwVHbvDR3Aq/vPVAnyksGs8rvFobjVHCZ5a1ZQybD +53JzkYdjVND1UPrGNk8C5TvmPsOjVOh0vYTGB0nwk7JwI+UfFd4MPygc6CSB +tvhlGjf27TPv37U3kkDTmuvpxb/4+faLmVUVJGCsztMPjeD1jwY8Tk8ngZO+ +eLzJEBWSVgq3MpJI8O1i653WQSo0pI/XZMaS4NXASMdlbObyf5w5oSRgvc/m +zR2ggmdaZKLqbRLkKbgPHsXOOPxV5811EvhtSLRc6aeCaKq6+zsXEuwepwvY +YpuYneXf5kiC7enU0+LYvgtP0z/YkECHp96lro8Kec9/GWhbkCDKo1j1Afbg +Qd6OjwdJEOJz5YMl9sZ5PW/dvST4LJO5lsA2T/EQQ/okUN+9QWuylwrBBzJy +mdtJMLYpUbccu3i2w/SzKglyoqlKCdiTSWIDBgp4//Re8Plgy+03vfVlMwlK +/mN222Jbz/ht3CtFAvtmatFe7MjE9x8qhEkgxPkgSQO7fN/fI/vWkGDuxmi8 +LPYia/NYJTt+nnTm243Ydno5ovFzq8jO6Pi0JHZllJTps6FVxMeIO7MeW2sg +wD+peRWFh2qIUbETdSbyn1euoqJlEo8KNl+E9Wha0SoaOMky0cf26P1Ky3y1 +ilIebuo7ht2+fet/2c9WUXVpRs8lbON7zyJfh6+iPEbnoQfYb7p4K976rSJO +e6pGIfYGLc+V/Eur6PXYRFw/dmBop8ZHh1XEte3ffQm8f+PtpudLjqyiZ7dq +pcywT2zNT/pkuIqCubxM7mGXBVEbyzRXEbdDC70WW6X1nkCFLH4eIfFRAr+/ +x6rzhpUU7NtnRc9guzb9eP1zfgWdn2pkiuHz0KisM1g/vILKFyQUPbF330rd +1NiygnLVs7lbsMUVfcLai1fQN/+krx/w+fK7OfipK3sFHTffVaqKz+PwryNz +vQkriM3/Y1c2dskNhuOI/wqSULhQUDxMBfmfD+NH3VeQQSpx9yA+z1F0ct3E +qRWUbpHztg/bqeaP3pzRCmo/JrZTDt+HWqqB56LWCqK4lb37ia3tlZ25IreC +rqpOF97C92mdTIAEJ98KOsV5K2EO3zdvj/GDPIvLSO8kI74Y38feiv8C1vxd +RjfoYydC8H39cEl9UqhmGd3JfmCvie+3XWlH5aaoZfQl44p6F77/e3XnHNv8 +l1Hb0JasqVm8f/mCpCeX8P/bc2UL4HqylLFLQ/LwMkpaOfXs5CLez6iUJyKC +y+g5VSH6LK5PN9cWadWtLqHUqarsT7h+OQXW10aMLaHXmZ/ZaewEaHhzcgr8 +WELTXduLObgIqLU/48pzfwkFjIgq7lhLQH7LTe6vPkuI4a9T185PwLNjj5MC +XJeQM7nA7z6uly4m336zHVhCvdOPTq0VIYBHTVFvec0Sco/bcDFAioBdpDGB +yZBFpJ/fJRSsSIC8N/fL3GuLaFE6L7hVmQBBlrTBRedFJFOwZZ2uKq6nA2Ze +f40X0bjIrgGqJgHeP9509HMvIh2+UZ1AfQLsTSqvvZhdQFmuvsn6uwkwLu0R +OT2wgBL9fzpzGREgni9q3FW+gPqa9/wp2kfAm2dXclsCFlDetGxsnQUBsRLh +++I8F9BO53nnJSvcX6PSei0dF5Ds3RhNTRsCDgY2SjQYLqDu+F/P608RMOyq +7V/LvoA0lKyjf17C/UV35fAX/3mUb/zdahX3y1ohXaVY93mU3CsjNxZNgG// +dS7XU/MoQSO8bwz31+bw+UJRo3kk7BTjQMf9+UE3izjNM49WTdM3Or8hYHf+ +1pVt83NI+/Y9+tB7AsbD3BvXDM8h0d7mghsfCdivOX43r3IOce/ftqazjACO +4JFptvA59DflZHpyI/5+1ozahptzaMIryuJ7GwF2as4ZGW5zyLG4dZqnh4Ci +5v6T5uZzaCtPK3f1PwI8lbu/JonNoXmXkqibHDTor2uMZT6ZRZ+lLUKkttEg +Oo3iIXpvFgWmaarO69Jg9w2Lg4M+s+j51r74eUMaPKPXs0XYzqItZQNPTh2h +wfGrP853UGdRx3ur6flLNOA6ILAnT2QW/VUQV+HwpsHbzQdkgjhm0Q3dPTt3 +3KKBYOX3epX+GVThbRSh8IAGFRvLdX1fzqDTNaX5h/JpcGWSQ8I8bgY9s7tU +1Qo0oH01mKSHzSAujvW+yd9p4Of2KbXaZQYtavz80NlOg+2lRes2qs4g7Skb +RTc+OvQ/Whwal5lBtVIJZF5xOkS7aJeVCc2gnNfxQ+Ob6TAu9uGqy9Q0cko+ +bl6sTYeXZ/O6Pr6fRmCgvKfcjQ71DgnSpqnTSPi13rMIPzqQbMJsmh9OI601 +wo0DEXSwOHyqac5jGh1/8FT6VB4d/E0PUYJPT6MPKUutT77QIctI5xjl6DQS +fBGhGN5IBzZtkZ+aW6eR+5QzeyNJFpQ1VgW+UKeRmd9DLzNxWbBUGdl/VHga +2fhwLX1RkoVsammF+wQLTX07Hs5jIwtNG3K42LpYyJyZzrnOSxY4KPGGkbUs +FKnmMBUYJQsn1lyGnBwWunc5NNi7RhYCOG1X9BJYaK/x9VmHMVnIXd23s+Y+ +Cy0MjYnGC8tBy7yWt40vC8VPPbH13i4HXCzqh7+uLCSXFODpai8HaqMCM9dt +WEh7lst7+Z4cWA8ubF1zgIXkja/wtpTIQVB3/6W4nSw0mZm/MsqSgzetdTkK +Siyk1aa91VNNHtoaSv59WM9CMfaXzBWuyAPPzwxF4zUsFBXCVhTzRR62VsY4 +/1mYQn6L6pFvCAU4+eVWmtPwFDpBsqmnP1KAEHShb7ppCpn9yvl5S4kBbwtO +EAHfppDMbRkLS5IidOTtsRctmEJXPLw37HJTAr5s9YSU9Cm0WTcpa1VFDTTT +N7WpP8brdX1D87pKYJfMt/5z0BRa5Q6W2jHAgLAnM5aHvaaQ0e/0i2XrGfA+ +pjum02kK5TkW1D4KVYCuiJr6ixZT6HL3Ff50SQVYG1YovGqE13vpeGBHsTxs +C0g1u685hR55aLmvXJAHh5tR9zfSp1CXuYapqqI83LvmW5UlOoV85Z4vW4/J +wYfL5/h2ckwhW6qtcmOBHPS4WhhXTk2i1LbckoshciBwdnfgiZ5J9Fan7+gu +GznY4aBSNlQ3iVC/TF2ihhyctpZiu/Z5Ev34fc+YZ50cFJpN+jxKmkQl845x +JyploW9f+0fZyEmk9Uo6/GWWLAgafZ9/54fXo3goQLgsOO1I9qy3nUTvEldq +g0/IQuTW+3mnDk2i86Un7Ed3yUKRsvfEpN4k2ttiz+vHkAVhqrmr0KZJpH4y +6/enFTrobtDLTOSfRCEmLYN7hulwVpwxtGV5Aune155ObKBDCR+b48HWCZRW +LJ4e85oO56ZeW4fFTSCkH8RSuUiHWK0JnTOhE4gdDX3dYUeHimuq6w28J9DZ +iffqRYfpQCflNC1YTaD9UcXT/Fp06FybZXFOcgK9ndD9ZcpOBwGzEc09vBNo +6c66e56zNNB9wBCjzo+jr+H1D0dHaBAn+fJXU+M4oqzj/gq/aXBMNtXM5PE4 +WpK4axCZRYM7zn1b6MHjyMZ0TL4jmQZvsmjryFfHkfpI/rBjLK5HW1OqPxwf +R+JbnL6LBdGgUj9xnzxlHIltjEiuPE0D/zcaIQJKY2jjU/H1+vI0PD/l7S1f +M4bmuWOlLTbTYCdS4/IdGUWqL7cS4VI471Wq3P6XMYoEdmeGneKngUufvE+V +wigK1EQffFkEfD+fpnOHdxT5vAjXuz9KgNwkfUFn6B/ybDtwpWCQgO4Vqldm ++j/0uuvhWTtczy0lNl4KlfuHJNc3ZnZ8JeD9s/gtu7n/obu5Mj0fPxMgQpca +ne//izoELXRzigmoUaOcd079i+7etLzclEeAgamQozH9L9LRe3RtC+4/Kr6c +VlzECGqLmdEIxflOqrD20SDHCOKf1Ts9dJ0Azpn4hu/9w0jQK8T7+FWcx1zV +j4ZnDKNjV5XdbHH/C7WxPSShPoxUmDMOEqcJuBLLuL8gMoyEOIOSBnE+tP89 +XdU6PYSUGKNi5bifbj9wd19SwRDKyLDqSjtOwMDOAiPGriEUwLq0hm0/AXVX +79xZSwyh/QP35rRMcF59e6h0lGMIpbd9KfTag/OdUj8zr2IQrXkdsXnDLgIM +N4js3Gk2iBx1HW3/ahGQuOiiftB2AJ0NDL18F+fBu9u2X1LdNYCOlzLJF6gE +eF1mzxUmBpCDT4GplQzu7yOxyn/6+1Ee0yR9/wYClpvL5e0u9CM2+YePUnBe +HBSPOrPbrB9FKs9uqsV5sd7cJpWm3o/ePTr/gBPnxazvU8TQdB9aZzreG4rn +oROFMtLuPn3odKhd1hKen/bMjNgcte1DaUs86y9wEqCmnv9Ea1cf2pPvUTaA +5y2ejANSixx9yJ1o8pzC89n7WG+xO3d70X5VfcY5PL8l/zY66nShF5Etvhms +X6DCPSGhB8ZmvYh91G35F86Hp0PSBPlFe1G/bRWvNZ4PRa7Vr4mJ70EnrzxJ +KcPz5NzqvNCYdw9iheROxuJ5sz1QWsL4RA968rjykReeR9Ojz9EWJHpQ6N5D +0aZ4fr2/PoJxZK4bBT9LLduF893l5HeqWX+6URVX+5I+nn/1ckm6J2O6EV+g +jvZRPD/Ttska5Ht2IxgslzqH523eElMTwWPdKDBsviAIz+P1lTHHPot0I9ux +naNNeN53HlC6IBvZhUia180bu6lw8IK5x023LmRn7b+Pga0x7eXdeKgLPeYv +vH67iworbKWBoQJdqPpKqqlpJ56XQwbv9vzrRBK1zZUFHVT4JijwYGd1J4Kj +TOMt2NGbrBJGwzrRRP/8gko7nrdf+L7Ye74TzS77iBa0UcFW6Xlm4r5OlL0U +MW6CbZj37fW8QidSvWrs39VKBYb2WL45byfK2Dj84Sb2plsKN47/7EAZPcMh +NOyhcI9g3ogOVD31r/9HCxXePkXRHw92oIvRpZ/9sX0z+ZJc+TtQtMNZQW1s +k4Jjr6Sr2tE1U47SuWacX78mFvwMbUfbY4aqi7Hb60e+3DZpR3pENC0E+2W3 +Vp0mTzsC//TCE9ge4/7tA+VtKGRp8rY6tt5K1XBsQBtqXnHyEMTmXSsxa2rY +hsx3bfJjNeH9ljzFvsLWhlq+H49vx06Qy16X+6kVSbp4FdZgn9OcX+/g14qq +JjjqyrA1DAzlRfVbUfy1zAbAXjUL1yhfbkE+iduLP2N/P9nMvFrUggTm472/ +Y0e70A8wrregGL1+9kZsW283q9YdLainxfjgCDYj+KPj/blmJLdD7BAH/nzT +D7ncmfnNyIi7aJGKDSmHfSc9m1HVhyqTvdihr5+EPtdoRk2c0yqXsI+hgRiL +qSY0Lk9KSsSWqVZP4XnThOzvNDz8jT3c7JNT6NaEzs/eYBfE+/tusOKjy5Ym +lHRCtPMQtt+MSMWm0UY0Kda0+SG2KYdtfW1WI0pxo6IObHHhjM5b5xuR8UGH +7C34fWYpM+f7B/8gRzcBmw5sL50wzti0P+hofDuvPj4fu00ahEyd/qANyi49 +Kdh/Trswcnoa0Fxh9NwNfL5K2sy2vU9tQGwhyUZD2KkWmobFzg3Inqdrxgqf +Rw/jFZvKsd/IO+G5szE+v4JKEZEDi/UoTKqp2hKf99nnHs9GS+pRanLAtQHs +9o1WmdP+9YjxwsPcuwd/vnXUL+w89WjyVdWlLJy3Taby5qRFf6HDOTde40QE +qi6POeX+1KHZlCGhCWyJvhvCKnF1yMzI0+U5vo/9DUZKO2Xq0PYNJ2fFcb69 +VfjH1lLpJ/qlGPCRge+7J/vsvc0hNSg83L2dm4XvwzRK27KuBq1Q4qRY2MID +wZ90H1YjnQcHWD3TVMj+LjVtlVSFwhhl52pw/uyP1LOOKviOFh0YP6pxvbKU +CWSwD5cjDumz45c4CJAVPmQo5FaOgp7+inqI6x+LXeKk9MwXZBQ961eE62Pk +wMtIHbYvaPHxNmVRXtwPs6vnLkuVorgOiV3DuJ56eTPuf3tYgn5HyR5QlsD1 +enS8ISe1GFF9XxfdkMTrO+RLx+QXIc7Ls4I/cL78bWL42qGpEFlPex6/sZGA +rZIn6xc35KNY2uTIHK7/7RcJTWvjHKTOteHLFRWc17I2dRw1d0KzCXwr5/bi +PGVvKhNscFA/zEMrdh3uPy9Vkr3WFrrrO5meTX6P82Nbk3NO0sFg/TnkPLHm +IP58OQdM/0rE6xvwI9qvo7gfxenHCvlm6X+aucr104GAjPDtzOeqxfrrnr8p +9/DD65clFHFrlOj7Pd5aHXqLANs5rh3ntyF9O1aQdsod3E9zhyUkE0D/NBA6 +LcEE6EkWCHW++Kwf3BV88UwkAanDx9gv5JXrH6O0hv9LJuDqvfD+kJoa/SSR +fdOP8Txw39m/we7WH3369kCNInEa8LP262Qd7tH/lR66jfSRBp0e5RpX7ozo +95Z+sJb3pcNowYHPXhUT+tLktqWtxrKQGpRkdzpkWn+T+JSOPa8c0GcyRa7G +z+u/MI/670irHLS/kS7WObusn9t48+PmRHk49qgzeCSCxDQwfmTkaKMAz17c +Ld4fw8Z0FBzi8JNlAMd/rv84r3EwlQxrtP9rY0CN3cs08ztczAxX/o+NTxXh +Hb+UzawLD/N7CNl/0lQJZOM2D3Lv52OmPs35s3tCCRau3FnOPLKWmdN4KyHm +mTKMLKwXSN8uwHzZm/n2t7YKJJ4Jql9PCDLrpNdVH2pXgYhdVXcl6ULMgw0u +R9df2wICFzN3l4oJM8U3r24zY1OFEsMPxe+lRJgqJbbpTqaqsOxqq2UhIMpU +FI11tLmnCmTuuljFZVHmffOPvWxVqqBl7P55H0mcWVGW0/abXw0WWrMGxSbF +mb62eYSBiRoYulREHJgRZzJqE25o7VODe4s92wMWxJnLO/Ie7jVVAxmp9SEs +NgqT5Da40+WAGuw9HqLwS4TCZFENGq0Pq0H0T8dzEZoU5icX5ZQrVmqgUr7p +L981ClPPXbL8tbMaXD2mHb3bh8L0ybZ2KD+nBp96j+309qcw3YcsYn6cV4Oj +7PfuDoVQmJ3SgWnlrmpwnbmoVBFHYXr8J9MGl9SgovCPa0ARXv+Vsmr5NTUQ +3jclVgwUJh+57k2ttxpYNwmUsMoozMIgakPddTUYmzUSOF1NYe5b/ltb5KMG +4ppvs3e3U5hCDc9USvzVwK7sh4V3N4X5jfk07OstNXh5ZGTldT+Fqc2/klRx +Ww12ulMPbR6jMA3PDGllBqhBIFlv1nKKwuyq25wXFqgGtRFWCRGzFGbx2rXu +3kFqICXjubdikcJ8WyvNHhesBv//exXzxWjFwawQNfgfSt7a1g== + "]]}, Annotation[#, "Charting`Private`Tag$4159201#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2XlUjP/3APBW0kbrSCpF8TzTriGKmZIlpUKUJdGC0q6FiEqRiErShvJR +KqGFFi33UpJCi7RYivY97dP+e77n/P6a8zrznDPP+/2+977vPSNv43rAnouD +gyObk4Pjf5+2r8KHFxdpyBHxyNJFnIHis6uUdOZoWHyi9tNXUQaW7Uo+7s2m +4dF6DoM9IgxUain4NPCPht27MgkFYQb2Cbb/1/yXhqylu9O7lzLQzZFhmVNK +wzd8TYNHZ7XwiuIPPH2DhpoiPcuk2rQwLn5t5BdhGn7XFFvW81ILH7eGuO5f +Jok2EQrGH3S1ULLmoCkhIYGXBKbJNV83YoXZQYMqRXGUSPb1ema1EfcQip5r +FcRQZUMCcrRq4taXx1Oq1UQx2bV31MxOE2dCT4tpEiI4sXGT/LkfGjgx9fT+ +ifUrcC6Gv2qdiQaWKURqlTgLo7HTz1Gdj+qow3s1h24niOfKfgRu0lDHKNbm +zXp+/LioG60ev1MNbRMsO/se8+EXu6wLXiqqWP1Mdhln3BKM1E+1C+BSQVnB +TA3I5cHGRx99Itl0dOnY8OvuSx4c9It+oztOx5KipOsnU3jQICImq2eYjlbO +935yRvNgbPv78Z3ddEz46h1s4MWD7R/GVkk20FEqYlvzp408mGB6+d6K13QU +l6zyr8/kRmkpj8Tb7nTkX9NV3ZvOhVwBGSrJYyT+SuCr+vOEC3U5bXvHhkl8 +IUUvb4zjwsZ9el47B0g0E3Mr+hDKhReM/4iMdJAYvWQmNcmRC70dswcdG0hU +GBQKPEJy4b2s9PzBAhJ13jK0PqVx4umE853m10gU3GyphkmcuK5eoWmpP4kt +Ob5kXiwnFvBn7yq5TGLgC1iTfJMTy7/sfsnwJrEi0VAowIET361N2W3qQKL5 +DasubYITN9fdzdM0I9HJPDgmNZUD57amMjvWkJi08HYjmcSB4p8/PNaXJbEh +9d/X57EceMNiz8un0iSy5o/xvgrlQHaJQP95SRLFUzQ93jhx4P7GQU+mIInF +U61G79Wp56+229xlEziaJNG9g+BAmnfjavokgeuNjQI/yHOg3+qXzZVjBEYk +5uZXiHKgZuF7d8lhAqsiVxk96l2Emv+mX7d0Erh6k9dCnvsiyP92stWuJ/B6 +6B+tQptF+D2CbZJ1BP5rMTpXcnARzlQcKJmuJrDshkJTGWMRWvduS/pcRaBz +c3VW7fQCWMVO5D8rJZDaI/v+gAXoH3h9RPs1gRtq78cPeSyA4BEDK+tsAiMV +OetGbBegPFJi9a1MAk9/bdzO3rkANPf1Hf8yCFy+JnglL/8CCITPGU0mE3iy +tLVKNnIeTFOnuYZiCNy9jW3/O2Ae+Lusb+s/IFA1bwVHgvs8yBux5B7eJ3Au +XU9Lav88+D84c80uksCYyP8SxFbMQ2FABWPbbQKvChZtqlucA1EWffZ9KPX7 +1+trwofngCdDb7npTQK1fHl5havn4FM4udv3OoE1p844892ZA4cs21GZAALz +fl5d+tFvDj5bBhONVwl8dCgmKdh5DsLFpdnRVwh0Mvz0nWvfHNjOrQsgLxPI +p0HfPi8wBwqntux74kPgcPqOpsLZWQCtOcMIbwIb1h338O2fBcN3/PQbXgQ+ +XRmWMlU5C74C39/dOE+gHsew8OjNWeDRkrH67Urtp+/StMyLs7CSOzuah/KK +cbkdrg6zcDtpx5KNLgS2dJv5DOyZBb+Ub1nJTgR+OOUg8lx7FuReGHL3nSMw +42fAc4cNs5DFk/GGQdm3Oru1a+ks1LZrObQ7EHjKsOpi8tQMeD6M899JeU9p +u5hd9wxkbXFVfHWWQLVtcy8UGmdghlvcdg1lyTzxPX/LZyDhKP/O2DMEzqur +tD3OnYGcusEGKcod6Tsvn0iZAcbqC+uenCYw+5F35s/gGbjYwKFQaU9g7Mq7 +e+O8ZuA3KdDnQNk/8lmHpf0MFN5oeihC+YwgXqEdmgHH/Wj4zo5Ak+tNKxsM +ZuBa/taZC5QZHCPZUVozkJ7SWahNebXvsn0H182A7zP/eA7K3OPy3SLiM7BC +dDi5xpbAPuetATXcM2BZptOTSrm2+4D03bFpsPwS5XqTcv6pc2/2tU9DzOAB +Qw/Kj39eMxX8Ng3b5cYCbSlfP5TQW/l+Gs6ekCOtKDtXv752M3saXvimGVtT +Njf8IrPnyTSUsO6yHSjrlHbmLYmcBhuOGR0/ygrbFvZ/CJgGvg6WYizlGpFt +yrEe02Ct8E2wkPKVrktLnG2nQeJ89v0OysqFb/+wzKch+j67SoJaz4+702/F +d05DvE9XoQnlEDvt+z2MaSjc3OZ+l/KmLT6uRUrTcPXNpZlGyh1CuYbhtGkg +5h1sNlD7ea9tfK0d3zSkPrmT609ZP2/jwuZpNjDGJ7n/Uv53y6NJoI8Nx7J/ +WBhS5/XoZFZ26w823JJOhALKxox/t3Oq2GB/4sceTep8Z5apnblRxIYd74w5 +cyintjjrHXvBBgmz/kkdKj54QvonuO6yYV2jV91pKp6yj5M1DVfZ4LN813c+ +Ryq/NRzS093YwGmy3DSHctGPrhMHDrCBvf95uzwVv46vFLco7WDDJwdpmS7K +K4PsxGY2smGN/3v+HGcCvVTaPiZJsMHVP1j/DJUP67jkn3gtYYNFpdILEzcC +6xqsLxtOTcHu5cJCTHeqXvj/Vh9pmgJV7/v/tlL51VXXFMtKmAIFlYsaSVR+ +Rj2jeYqHTcFEsata3QVqfy4fNunxm4L59sksQV9qPxTrucKtp6D5zbbIR1R+ +W1yoPteqMAVHPpaNbA4kcMk+4V05YlNQK7DGIO8aga/l9625wTMFfl4OwAqm +8rWqsl61axJMVY1DPUIIrJAp33YlbRJalA/NHbxLoPcoz8oDcZPQ32gluz6C +Ws/HHaOKtybBSUhsA+89Kj/c3qV8cZoEfZl1x9qiCdQuLVouoz4JhQnSOuse +E5h2NudvYe4E1Ep/L2zNIrDe5rGcUcoEcPmY0VOoesxhdcvqx/0J+KN0L+NS +HoGH99s2sz0nwLlP64l5MYFcW8VqGRsnIHvHeG3pJwJVtBaFPyhMgLpEFZPv +C4GWqv3G5qIT4OhfYGVVQ+BLhdIKj5Fx+HJ07f2tjQQeFTiPr16Nw9YIs/cf +qfslmNd6YfvjcTgucsI7ppfAzMW9ul/vjENX34k/lwap/RpXyB9wHof2PQWL +lyao+PhV94pQHoc3l9nijktI5H+p+fi/1DE4UmA8b6RMIiNV9rdmzBh48t8J +cNMg8eQTfun3N8agZWRl5otNJOZGt0X/OT0GbM3t/J56JNpcjbwjozgGhMsY +Mi1JDLt45XOG+BiccBEO0T5BYv55R35dnjHoZt0KMLEjUfis/vWj7aPgpOb3 +od6NxLdmo34PkkZhfkeIhfUtEjv3thQqRYxC27o4o8ORJK7YWTn9xn8Uine5 +FbvFknh6yxOveutR0MtZMS2WSqKowgFnEdlReDZolqTxkcRtq7c/TxQahR5h +h+U21SSelSR71eZH4N7uezRoJLGEn8ve5NcIhGQ8zePpJdFxLOv4rbgREAo7 +qNkvRMfYTSM6Z0JHoKcIZq/Q6FhxUV16h+8I2J/9IWskT0dFjlfNM0dG4IZ7 +5rL7DDr+Ecw47Cg1Aty/LuVsPEVHYbN+xq5lI9Dk41DzxYmO2+6REgrT/0Dd +gi/lzQU6xkmlfWtu+gfWXeEr/CLoeEgpxcww5h+YViiXnPpIxyCHTjXFkH9w +OLNcqvU7HbMz1i3nvPAPUuwyN9V00HHFxv++5Fv8g883/ZwJHmVkerdlRO3+ +B56X2kWSxJXRpUD+ttvmf7B1c8bb54rKWMVM3LuB9g/izeyznhgq40xgK8Gz +9B883XZMNuW4Mu6/vU0UB4ehs0Vg/Tk3ZRSM3XpX7cUwfOg70X4hThkd5Ar2 +dd8ehpxgGcWuTGUsT94s+NhpGIzZ5S0nKpQxIFvrprDyMHDUhEX+nFHGFu2c +3eUCw9Be6GEpK6mCuqCx5Er/EDBrvfgGNFUwdmdmGaNqCNRyJZef36+Ck1Wq +1wbTh8A32vVZn7sKmh94oZccOgQuUZa696NUMKuJzmHlOAQMuerk0gIVFLZO +LxHfOwRbojLTm/+qoFPnBr/PxBCMsPnOmQupYuW5ZzpBy4agMl+x9JuuKq4f +VZzR6R2EQaeQixvcVTHowtP8sYpB4De56Of4XBXbFhR8nqcOQuFsrqvMoCqy +gpMYtiGDoPts/Wo3bTV8KLBmfNXZQWCnSf3LDlfDmYhH2XW7B2H/+mef986q +oeVKGffQ9YNwzz+peoyljrmP4tX0lw6CedhrPbsEdRRTXDU03TUAGolmM2/p +Guj2PCYjq3wAjlsb6dHuaOJXDdo5h5QBkBONObKnRQPp+fcJ+esDIGiX2ZM4 +po4h28V7muwHwLZMeNjjkjp2lUWmhO8cgGFu77UypDruMBKx36M4AO4+QT3K +zWqYWHt3LQfvAEwuellqe6vhgoVwW15HP/ywLH94ea0aHmu5neha1g9JVhpC +zr9UMd9OwHr90364djDtAf2RKkr235RpvdYP3+JbHladVsXz7ny/om37wePC +IfdRLVWsmboeZ7KjH+LDXnx7slQVVa/wHlmyth9YLL61si0quOptzYMenn5I +kS/4bvRWBXkn4xsqu/rgl86Da90xKvjLWdP8bnof7G7WM9E/roIVafOR7rf7 +4OCxG0vCWCqY01lRe9ClD7JKygsslFQw1MradKVmH4T9Vi37MaGM3rHknRmx +PnhlKnHpcKsynvo+8fnXRC+E796l0vhJGbX33d6bVNAL3pq2F6OSlLFbt2An +qdcLj2348rSOKmPdhaAgwbXU9ydeJ7KpfCh5bVo6xNMLlx+ePGC8VRmjlbtY +ORU98N2jvs5/tTIarBbT1TXrAQXB/1iHu+iobtniK6vZA3Mquj8/NdNROiqt +gEO8B+aH/3LHfqHjqABr84fGbuB6bpOtnUvHxFknTRPrbkjNN60Qv0XH25u1 +3dX1uuFbZ07AtD8dfc5zZ4qu7QbvQWtBWR86mvTHqjR2dcFDHEhebUfH+R/l +G066dMHK4/5m2Sw69khGntE36wLBgQ2lh7XpWH/AKmWdZhc4bIoIJdXpmFE5 +trZ3ohP+Dn3+dWQNHY++XSPn4dcJCTytOzK56Lhrst/K3LoTCrQdnZ7Nkqih +mZewSa8T7Lqem5aOk8iXvm/VLE8nPOKRX23fTdX7WF+JoNsdEGo7orrpK4li +F+sFouPbQSGwd8AyiUT24rTIsG87uFwRFyiPp+a563Ir9xxth0IXu7em0SSm +Rjmum1nZDrmOlrRcqr5vz+TYdiK6DTKMIwyKfUhct1lpR55XG6TTDTTmPUhc +VmJkuOJQGxxcXNFp7kJifVX0ofdibSD6dvGJoT2JDt3KLkoRfyFxWN5Dx5xE +E5cDnlfd/oJ+1HpXZWoe1Jrw8W0y/QtuPqaJGsYkLnCVXg8V/gsX9oWv8jEg +MUr2yOOhW3+AVyrDp4NB4pXn/EnOQq0gk/Egm3M1iYYFh17IfW6B8S2egsJS +1Hz4MbGgNrQFrrrI5xDUvJjWtqmOwdcCYRlXJsJWUO8nZcu9wPUbXjTyCfJQ +9+nj9S+XZ777BQdipv2CuKn7hTEtbeP/C5pyev1FOUlcNLurVT7/E+ydi70O +zxFIhhTa32H/gDweP46L1Dw5cX+JByvvB1iw0xpOjhCI/+2/Mur1A8pC+b+Z +U/PlIeiOPjzWDDbatxJO9lP9yqRYhexQE1w5+nIzdweBRjzW9TUZTeBnUzy/ +u42aH0TT/wSeawKftUVFD/5Q84kKa7qrpxE+tw8+tPhNYKOdE/mqvQF0FsWs +D1H9Rclvs825KQ1QfCnjB28DgSmHGQbFDg0Q0e4mANT86rlnwapq+DvYHkhR +NaLm12Pv2hzrsr9D0futYzK1VD+39aNPs9d3kN2wXeR/8+wK5fCI7tl6UC43 +4aqg+pupp56PhkrqoYvMTC/8TM1TMkeeTwTUA6+NvEUeNe9mLFf4wM1XD5am +rY7lVH9kOJbDlhP/BlY+Fy30yglUd4rhXd9YB2z0n/L4QPWrnZdFVePq4JLJ +Tc6MMqrfbNiprLumDmZ9nAW1qHn5iym5ZUd7LZSnnOsLfE/1ixXCu/am1ILQ +yoyBpncEBr5ttLZUrgUNeVI6Dgl02FjkZD1cA9ZXXijxUjbLSLx4OrsGHiVP +ivsAgbKPHO55ateAxheZY64lBPKrJrCmJquBS0Q9aoLq75rk7I/y+lUDxwEP +j0DKXtxTYfI3v8KIhWP7qyICDSbgmdryr3BJX+aIGWXR7pB32+5/gWebJrZM +FRL4p2n/TyPpL5DbNe7zlPLLylUTR5I+w82i/byWlC8XtQufXf8ZXue61YtQ +3vsyY4P3iypY0djTWPuW2o9EL/2gjVWwxyuQK4ZyV8T245EFleB5W3O3HeXX +15Z6JzIrwWerdOwmyoFeNXdffvgEld23+oUpm52JTSsy+gTJyhyagwUEyh2x +Ka2srYCJvXInaykP7aX/brKogC71fIdCykW645Ndvz/CsFmZ/nPKoarFKyZs +P8LBFXatiZQt11wnufvKQdLv78YEykqipgYibuUwZJ+u9ZDyOPfKE3KTH6Bq +/6GG/yi/n/jjo3L5AwwPJghlUo7oTovQ4foAWf3W1e8on2z2eG4YUgZbOxJX +NFNWrdL5YCFcBkafgsonKM8V8bTaR5XC1n3mXTRqPZUvv7DPryoFqbwL9kzK +MYnRooGJ76FS4PIWJ8qnI62Vw5XeQ7LuMstHlLWCNux6lPEOjrf15X6nzO09 +Yp2h+Q7u1wsYi1L7XXvm7cW3+Qg/JT2FzCk/PnLtXsV2hDub9o7EUfbxJe98 +ul8CWnrnpjdT52sy9K/hVUoxfO54sO82ZSWbPLnovCJ4m+3r1En5u6FBlk3z +W5hmnutOpuIlo5h/Zk9fAbzL3q4pRMVXkEatvtpsPvyYMVO8SHmj1In62dV5 +0PmpuO0EFY/8Yetk2lRywXB9fEIT5TaOfvuK7W/gjE7e78NU/Eb0+ExFncwB +xYvPvp+k4r3FdS3j+J5XkB/TgGlUfoRZZJZvcHwBIV+CmnZR+aPL3GY5ces5 +xJ8P2NJDOU7Y4tKd6meglNhTsJnKv8MvQt/h4UQwJKX7+Kj8rMmQbTU/cBo8 +r10edqbyneeU0ZqQHSZMha0xxsbU/JKm+sRH8K0HM24lb7AqVR9+Nzu8SjIJ +YbZsD3NZoOqHz6t9RgMr45lVCn7eVVS9MYhjxopcyWB2/VGQkmgl8H529tKd +x18yw/TH96tS9et8p6iOrkwm86Se1lKjvwSWzQenuc5mMavFl9XeaafOU9Xp +ekPeG2bEbPFeZg+B6Xe1WU/Vi5kSb5JZzFHq/coeFy3VKmGGooZxOlVvrdlL +tpzbDMyAap4VUtR8FJrZt1LqMTJ9pRqecbIJ3C5VIPIn+T1T2eehy8I8VQ/7 +DnG75JQzT3L3aiXxk3gh7G7Xza9fmfvGF//aKZGYvL70qY5ZNdN5VqhPZwOJ +de8mbQZrKZ89MytBkig5+9I11bGGuVGgTOmbColuapIDAi61TGGOYGl36j5S +jOnoqPP8xkxYV3p+804S7zgENJwMbGQK2G7QqD5NYkgV55uOkkZmqJjEluaz +JAaqBN47O9vILJ+2ce50JNFnJNDMzbOJmS5/zYTHlZrfLgZVXj3dzDx9qiz+ +GHXfaty8UfJo70/mhV1n8p1DqPsrNSzll2grs6yDL1wgg0ShcWOdjP3tTJaV +kdkDNol/PMu1vIP6mTzH1wrwZdNxqGDfe5+KEabHjZuSL32VMeVG0km7mxNM +zSC7ADeqf1OcfC52IX6aaVNqUJQso4ot2XLFOmfnmZaf5W5sGFbFQw/+hPSH +c7CS4z8sChar4aPk28XG0VyswLQ6ofB96shzzHmQ9yIPCyIGC/7mqOPXk2nP +DgQtYY3/Nt3UtkYD3witsppy4mNZr/VWuhmkgUpx8j1LjflZdoWcS/k6NHDG +O2j++UFB1r+nZnu5DTWxf0ZaOFVbmFUXZTUITzUx8cyNeum1K1i0e25H7Hg3 +Yrje59tSiiIswwyH+CunNqKw63P9UglR1umlJQ9HX2/EEoP84txVYiw+rtst +g4JaOO9svemwsDjrJNeGe8HHtZBzaV0sfV6cFfzfhpP6qVq4aY/H+70ckqy4 +zoFD/GwtnPmV0SMxKskqe1f5QZbFQAOnivB9k5Ks3+HD02f1GBg2264dPCPJ +ynnHIZu6g4ENoYt/ihYkWdev/Ln9y4CBa1ZJ3xznorHWq75sWbeTgbstbhLf +xGgsNwurnAt7GRhVa+8YzqCxJNy9Ljw0Z6BquewA/0Ua68nZooG6swy8cGhr +lL4fjRV7fbWeL+V3HYd0fQNorPDvhw/7OzCQ39O9IyuYxvrkKCR96RwDzbnD +bvfepLFskoqeVDoz8FFkqpb8HRrrUHWqopkLA3vky35ZRtJY6lstjP5S1sxq +DQqPprGW5Iusa3Bl4CXWrHJFHI01zH2mb5M7AyveNjoHF9FY1sK8uf6+DBTd +OyZRjDRWSFq+Us4lBh5vFi4ZL6OxOt49YV7yY2DKWfK08ica65z2zf5nVxk4 +PLVT2O4Ltf7zZ+9KBzBQ+8ap3PhaGitireuJA5QDJf1OfPtOY1UGTb1qp/w5 +OWaJwA8aq3nHtZz+QAZKMl6/1G+hsfiD0wYNghl4sqz6sG8bjRVwrDVnbQgD +0w72L2R10VgewgNaUTcYONq25FlvH411J/Cg1iHKuh4KpvLDNJZK76vAX9Tz +1zm3T1mO0VjnX51uv3SLgTXhRx6HT1Hvnzulf/oOA1et8dpdMUtjOZi/aNQI +Y+D//x/Gerq6f/lHyv8HHOr1Jw== + "]]}, Annotation[#, "Charting`Private`Tag$4159201#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmXk0Vd//xpHMyXxQyRznXvN0hRyhDJGU0qikMitR8YkQKioSomSoyJRC +RcJ+l4qigYQo86xkni+//V3r95f1WsvZd9+9n/dznmddGWcf+xNsLCws1aws +LP/7e/xp7L+VFQL+9Oyr0nuvDSKLkooGSwQM6z9SfFmlDe+2ZR46N0dAyON0 +U9m32qDY/urjnzEC5uXfsfIhbRjm63n4s4sA3yjZqdpSbTjtruNYXEVArvhG +e/t8bQhWaIWTVwhI7D5SRN7Whrv35OI+8xPQtmj8V/eoNqR1XPXZxS0G5zZy +/ykY1QKxb7t3KouKghkqUkYhWlBjt9usVkEEWE5RUdKCWmChrOAnJysMuyLk +96fd1oTNBYeyvqoJAd+sAN1SUhMWok4KayoLgk9HrP7WOA2Ynn2UcGSTAPxV +IWKcuDTgnWycdqUXPzh1dOkcDlcHg9WXimkufPBoKF+a2asG8ZSenkkQD/js +sA+50qAKx1Mc+4bTuGBok5bpWLUKfH0sxc16lwOeyCRLcxfSQYrvmQZ6yQ6P +xWsSe4AG3r1Kv2IK2GETt2SmQAUNKsszIo9mscOn08xN1CsaHPa63caaiNl9 +Ni2rkAYpX85FmPmzg/OP8pFbD2ggccvo50ctdrC1dEzrD6eBiFhtSOOzVVCe +77T3qTUNXEZNaZnZq+CVV+AVHQsaPP9Q/sM/fRUIni7rrDSjwe7zBSQRuwou +qxHybUY0iGu51bjfBz+f+uvuZnUarL3nqNShsgrkb22puStKAx7p/q9DuWxg +1cf+bU0PCb9SuGo7H7BBxqriFOFOEp5I0D4032UDnuVE4w2/SbATPl3+PooN +IlVk5AybSUjkWMjOcGcD04Fh6ZxaEmT/rgnbT7LBt+oNIttekDDlph5kJ8sG +VVXR4deLSHjfb39huyQbNLvXGzQ/JcG18463Dg8baK+xTwnIJaHgu8xBwWFW +GPrkMj2RRoJBmY72xxxWqPYuzauMJoFPz1ENMlgh9kG7oM01EtqLA8mSZFZo +2b9LvzOShLAnSDrzGisEuPL/EQkjoSbdck2oGyugwF3vSi+QsOfK4X6GMiuU +jcuHjJ8kQZE9pEtNhhUispp+fHUhYTbkwS9FCVY4qZ/qW+xMwt3AgQYRbla4 +Y571KOoICZ1eZ9DYIAtwcyn3BuwlwXNPRFJ2Ngu8aSA+H99OQsZymRaZwQI+ +Jvt9XpmT0JQ99iUvmQWKuM4piZiRQDEPrn4axQJyQn+WWygSRLI0fV94ssAx +M50NGZtJsLRzXaN3ggXO+vntldYnIXjhfnbpYRZQitUfeKRHwqAtd8drWxb4 +2YDUK7VJqJjtsH6rzgI6BTF2mmokTGSIDpgqs4A8x23N3yokbNphHfZehgXs +H7k9u0En4Vb6y9IaIRZofzfyYEWZhNo4SevUoRUUSDc4oqRAgu5ARGhG6wpq +cAiQYJUnId1gvORR7Qqa2DpX2iFLgl9vtXzekxVUX2X+qUCahPW6/sslZ1YQ +y5i1ScJ6EiKjOrVfO6+gf9f1lVPXkTDWbu1RuRuv9z166xNJEt5dkW15p7OC +5s9c1GgXJ0H11w3+GsUVNCDsso4Fc5L6vFktsYKQj4mTEkGC18+vhfXzyygs +xUPquigJLSoGg43Dy+hHUkVBtQgJW8OypFralpHyBr4qbsxitKDo9opl5GJV ++SBDiISQS4NvugqWkfjL8cuzgiQMf98915u2jNZmvxXZg7nyInliJHQZHdNg +85URIEGpPuHeqO8yKuBc7xC3loQ4BdaG8ePLqPABKcqDeSnAk2t6zzJS2lhX +cZWfhJNfmrfMmS+j339fH+DH/E3W1H9RdxlFMVpn764hYfP5grzlTcvId0Im +QxXzWukI8dU8y8jSqczCg4+EQL8xW65FJgrIzHMSwdxbczCC9w8TcUatFL/j +JcF2Q/Vr/t9MdMjXyf4i5tIzmhOCX5jI8/Dt7QaYZT/cVxJFTJRteSWdFfN1 +SW4n8WdMZDe4y/0rDwkz3n4J6zKYSJOpXvQI89GqjlqpOCZayxsaEYp5u9Hc +id+hTNTUpj1zHLNqiQBLyhkm2rvBx3UnZlEN5bsHjjHR+muDf00xL+WaaEvs +YqLRuYQkE8w98ge+NFNMNN2fE2iB+VOqr2uiOhOdMLuT5Yi5UDyazUGaiWwd ++NV8MSfFPUwRFmAiL8bqTQmYL/GV6zasLKF6r+cZbzCfjGz8FvtvCUmX3y2a +xWzD8td9Z8cSGrsR7KWHv5924OrV/F+X0Pdjvv0hmNdNbUirq1xCu7K/aTRi +ZvPW1Y8uWELFVaYuGvg8hwZsv1umLqFQm6q4JMzfjp3y4rq5hEKyUhq48X2U +tF3irA5aQuN/fPQjMKc6JGVEeC0hX36t3zz4PiO+PjMwO7yEHq3RbryL2dPy +4w82myVkKLZBRwfrYXdVl88bwyV0o3pWrBXzZqMF7hD6EjrIoN+6hvXEpUHb +wuRdQtnW+gVcWI//ck1bXi8uotDKztAWzE3yh3wDRxYR4XR5Z7EwCY/Eb2TN +flpEudJ8xlFY79FxmdTLskXE6a6fEClGgi9fZatf7iJy6FmwuYnnw4TlH//E +tUV0Y1TEASSwfgM5c54FLCJ547S2YTxvAlMbTX3cFlERQdORwfPZPmB3/o/F +IloTnNJcKIX9+JibYB5jETnu2HCYD89zfltonpvSItr1pkP1rAzW59eijn7O +RfS6QVzvJPaDY5a1AZmzC6j6uNLTCewXFlU9wi4DC0hR8MVM9CY8fyUiFl0f +FlBcgMSlPpKEotRzz9oiFtAaByEPhiYJyeIxVnf9F1Aj2mOnhv0rJO5xr+OJ +BeR0RFZNWxfrPbJFvMlsAQ09LA12xX447LU59NuqBfRCJUk2xJSE+gH7dTGT +84g+/y1qBPtr6TGPFzY98yhcc439SQvsPw4pQ5/eziOT9e3vo2zwfBgt73of +Oo9egBtHgiO+f0EjerLvPJr5faDK9iD21/7/OLyOz6Nz5qsPE9jfW2Pmy0TM +59H838+jP46TcLt7Ss6Fax4t7nDdxX8a+02J1rLe/Byqvry20Ows9rdo3xbe +4Tl0JjT6QfQ5EnbojF0vrp1DHbJKWjuCSGC/OjLNFjOHZpytN6fh91fRIfJb +06U5dPkE7DgWg+dRwy039/QcojWQwrq3SShv7T9ibz+HrmomT4vfI8Ffpbs6 +Q3QOZWhs0/qcR0J/Q0sylTKL3u0t27a1noT4x4SfyI1ZlLkgaHqgCe/v4l7b +waBZxJZhZhjdhvWs0MgW6zSLxPyvU5v7Sdh34atHh+wsSvgaGfRriQQOG/5t +xcKzaIs2v2odG84TMjbSV9hn0f2TOo9/ctFAoPZTo2r/DApzsmq2w3mhZsMH +o+CcGWTnoWDwQY0G5ybYxe3vzqDogf41Zbo0kK82nVCInkFTiUzHBpw/Qk6/ +yfrsOYO4D/md99tBA0ZV+doN6jNIJHR3ZqoHDfrvLA6NSc8gZDmIfpylQbzn +5nfvBGfQtnhzfoOLNBgTLb3gOTmNZs8N+CbeoEGOa3HX65fTSM/qdQkU0aDR +OW2jddY0Cr0d+Nwb5y2Ww9GHWxOmkVNZMXKpocHeXcd/zvlNo/vN3rk6HTQI +td5JXHWZRpu+X/UlRmiQb27gQOyZRpwHNRV3ztKAbbNwvY7WNHqT5KxbL0AH +Fe0V/vey06is2KBLXooOjqojO/YITaPaew2bumh0KJCtqvEdn0L3Ptyqy7Wg +wwHes/D06RSq7G20Mr9Kh4jVTstb0qbQ0Q5129RkOjxbsTL8cnMKpfv8+5KW +RweOKdnSP15TyN+0ftuXejpojPLP/Hd4CtH5E5lEPx0ODS5o8dpMId0eDw2z +RToU/Wp4qkyfQkpn5aTjlVTgd1Pl39J1U8h5KIlngFIBrvpcmgXvFGoTcJv9 +74AKaNUmujUvTCLzyIVLfv4qcOR92OOTw5OIs1K5d/aWClxD3n3TPyeRj+D4 +Me1nKvD81QG5iI+T6M2xkvmj31SAp0Az7WH2JPr2TMA6g1AFnWyp35pJk+jx +r/FKV2NVOPqAZ93bK5PIQ28pIc5dFaJTZhx3nZ9EMawnSyqSVeFlYndi58lJ +xEvaRL/6rApdsV8affZOohy9gIV7nGrAF10mtGI+iaJ/Hw/vs1ADvYgsu5s6 +kyjrs3oruq0Gzpfibm5QmET23voXfUfU4EZAcF2+yCTSsc+7nU2qQ+lZdx5D +9knUGqwlfNZLHXq89lrUTk4g2RIll9U16sDvujXyQM8E2niE5eF+Bw3Qd1Z9 +N9QwgZ7w5bhm5mqCyyFJtoC3E+hyvuBVf1FNiNnLQXEVTaAKyejXUgoaUGY3 +EXQnYwKNbikMDshThz6r9teKtyZQUCQHj/d+dRAw/zT/ImQCHc++8vXcOtwn +jF/qmZ+eQBKbCp33f1fDOfKBf6PTBAp99eOgbIga3NK6WXx85wRq3ZHNVsBQ +g3KVwPGJLfj/mwe/iy2owsCmk2phqhMoppf1u8dbVRCStfcSlJpAAytFd3bG +qoLR+i156WsmUO/9EokqZ1VwFSOH1JjjiOPJQBCHvircFhDbhP6Mo68VNp8j +hFShkofthO2vcRQron+5blQFhthHH/yuHUd1Dzk3B31WAZGVn52er8eRdMuL +v9YFKuA+WXgo+u44SnL42m2P9ZKsO25wKmociZbyn844qAI1AerrTAPHUbHb +/BkjUxVQYHn6c2H/OFrqmwkdEFWBPaajpU2W46j0+cvhKhYVCItUSSrSH0fW +vdFG1/7QoZMvf6+7xDjyGzjCfe0DHfjtRnS2cY8j7vZ7FzOf08HoNikqOz+G +gm7GmXk/pMNdiZzvP1vG0LaA3PMtYXRwUMyys0waQxIu4TQBPG/hbn1qClfH +UGx7cGXkZjwf+fJrWS+MoX9BOc6nVOggoPXwc+m+MbS2mjVzlwgdao3TrZSI +McSIud5o1U+DhbAOZXbOMZT80NEqpo0Gu64bCcHff6iiot5kfT0N+JI3x6g9 ++YeCo6UmVmF/CS3SvsZP/4c8zjzve3OHBu2M4u0feP+hfVkD3iwxNDBEGhzB +I6Nof/esvF8kDWZqVS//zR1FQp5BfZP+NPDsUwqqUx5FDLPq65v20eCTx2OD +cO5RVPAf7VrXThpsmlBYMBj6i3h3PLv2Dve77mXZ83nZf9GI+4HfLAY0cBTf +cCZq01/kHnWgVFuGBi9T76lt5fyLptYJ24qvo4GwguTofP8fxNnDCuuxX3/R +IDzcsv4g4XPKE+HcNDC1FjxhofAHtb7gD6yYxHkvePV+DrkRdL9p4Z7RZxIk +y77dGWQfQXaZRvcUP5KweuZe06f+YcTj+zBG7j3uh16ae2Jyh5GlEdW/r4KE +qMNOO8U1h1HavPzn9AISziWTNxeEh5FmLnRtxO+rYz+m635NDyHJZk7bZ49J +YNhct8p4NYR4ZU7wsWeQMGCIW5LJEBpUSMz2iSeh4UJ4OJ/cELp8VXLyzC2c +z5/vrBplH0JxbFPhl2/ivknvp4prBpFYu/ed71dJMFsvbGhoN4g86hbPywST +oO7YHiilOYgi49dP3PkP58P4nFcsIoNo6T3Bsz4A9yNeSu998wBqlrbZt8MP +95tFT01bpwGkwKpwycID52c9xhl1kwGUn9E4q+hGwvmzq54JyQ0g4/TUQsFT +OJ+MJKs09/ejRL/SHbw4HzBbPygd9e5HXNTgmmicJwbF4k5ttetHxRk9/tX7 +SWi0P5wlr9mPTM4+WeLH+SP/06Tc0HQfcj3c0VO5h4QDZdIbfYP60LP05ZxU +WxK2zYwc3uPUh66slMSr4/yioVmSomvShyRVTHLqrHGezLWRXGTvQ0Gjfp2y +lrhf94nv/93fizhZvtX9wv2zQ6b3DqrpRWMT+86lbyPhZXKgaPj1XiRyrD7Z +DPfPBz/M95z07kXv73t0yeM8dUNQ8LaFXS8yee0fyr+VBJdrjwXWiPSi6GpF +D6YxCcIBjbyJ93pQsKvOke2GJMytzAv+C+xBYfdtNx4xwHkycqO4xYEeZNK6 +iuMSzmvZ8e7yC+I9iD3odGs7g4Sb62LJ3XPdaNsz7/gNmM8+eKGe39yNHE/d +5DuJ++yWZyxGRxK7UY5XaaMwzn/yeoqmJf7d6HFz7NQFHRK4K60tBRy60V4V +Jd8BnBdHzc7sdNPuRn/entJ1wtxYm+jwVrgbrTmSQXZqkfDKvvzguskutDYw +guGOOfVn1zG/hi40f0vKionzZ/hRTtfPhV3IV/SnZTJmtwG6t+KtLpTH9Jfd +gtnW297v0ukuVHdXGI1o4L4xfT6wZWcX2q24nvcBZomL90M01LrQXPieiaOY +l9mqIqP4u5Bc99ejSph7rw1e7/nbifLbxrbOqZPwUYD/tuHnTlS/83jEN8wF +d7SSE/I70XfXTaKFmOOl9qeNRneiVUMBHcmYAzODM7d7dKLnMX/qozA70R/l +pVvh9ZJsWi9jNiv+WDiv3ImSiKL+cMzk5n8l9tydiN3Yv+8GZqkw5Yv76jtQ +nJbq+1TMQzF+V7ljO5DIo1d+JZif30fxr207kPxJlZ5mzMF5PBleazqQ9tLv +lRXMlq8cnmysa0duSUfK1PD3EalOf1Uf1Y5Ytp5jO4W5vXHk/WXLdrRhF60m +E3NOt26DDlc7MskvXfzfefmNhbYPfPiN4pxibujj89yyXDecHPEbmSjv9b6J +uVHi+Kpltt9o9MTBTht8P2mbCtY+e/MLvQnp3V2K2V1nfp1zyC80E7zYqozv +d8UuRvsDsw2NNV0elsF6+HSklbpQ3oYSTrzbm4053lPBhvyvDXlPK6fqYP2Q +V1+fuDnXiuz/m7nigvU1ncDhS5W0oonUqLUcWH/wcFfwhH8rsv3w0LAAswMa +SNw7+RNVPIjcLYT1GzIjXCM12oL8ZRIElYxIsGZ3avyW34JY0guPMTGLCeV2 +hnm0oIsKFydbtuB5VqHm+webkcTRvvwHFAnNLp7k054m5Ov5TusSnrfK33Z6 +L7OaUIKN+euzuK9k7dUxq3BrQgV/tFy98Hz6WSwfrv33AynkKK09jfuLAD32 +1sBiI/q9+X5a4Q58H5PFcxtFviOf0SOhUnuxv3kmrd7U3IDOGjHdj+0jQbzv +opDq3QbEXnBjJhv7S3+TOd1QugE5yZn9MMd+FFbW7ORIr0eSzJXOF0dxn1g1 +e0Pm2hd0fyc54OqJ9TSNHqut/YJeWiZGTniRIDRw9Y1Rwme00dFmb4gP1usn +yen9GXVI7oqRZ7YvXv/WlkNxrz4hRl9puTL2U0fpSHLV8AdU2CzoMxKJ/TKQ +vPkxoRK9Vyy6bpKJ52l0rOlpVgWKFC/VMcD+r+hcsjGxpBx9+iSpwcgh4Yel +WaHzzzJ0QCKM1/AJCVoSRxoX15cg1dPONe4vsN585HQOWTxFDv/FWx79gPtb +vlTHHvuTqPRotO71YRJyYxjUI/UKYxupWVd2/H5kf5dWzqldaRyTtiAzgvuH +0xyHvoceMi74KpnQSNEg6tmwuEQaGIfrTSQ93UaDLRKvBDsz3xpfnOJ/GGFP +g6xhh1XexR+MDeK9dQvcaXDhRkz/tS9fjIvaTA2aUmhw0y206WhYs/FILjpS +xkmHNVM7DPJ39RiDXHfx+m6cb/w+aJ8LHzGmMzo/PO9WgdFXNm/P14wbK9lG +vjkzogpZVzKOulybNpbcNRw0N6gGCjN5whfuzRtvSfwWlXBJHdqLNlYYuDKN +nSNSLtxl1QCHO51XR2JZqAvHq5bNQzQgNfN6xY5ENsrgnCvPWi5NYD/o9Xd1 +ADvlHPov5XG4Jnw5mvPYPpyD+pb9oI2dWwterJE8POvJRQ07EqfqQ7VA8a7M +IOcOHur5XFn8hWktWDgXzszbzUdV86ZPvvDRhpGFdfzZDH7KbJmjpKJdG9JP +XWlcJydACeVattfs1oFYk7rrEgqClHp9g7RvlQ7w++RtrRIVomgX2Za8lXSh +0qy04qWkMNXzvPPl7du6wPRy0t3LL0Idzuy7lDKlC6ycDck0pgi1mFl3iMte +D3QtfN9asYhR3vZhX4+90IOFX/mDohNiVGFdVJAhLwPMPGtibWbEqOp8ssaZ +YMCNxR5GxIIYNbfI6fRMlAFNUSud5ctilPvNmoqz3AyQllx3bYqNoDRaHr1u +EWKAe46uBp2ToJ6Gm99+Ks2A5wz7n8d5CUq1YNzlpgQDlqu9Qu+tJahPOqJS +3gIM2L7vmvJ3YYLKq17NU7GOAbH9j+p5xAlqxx+u1TOyDGj1h4Ct6wmq6L6x +oexGBsiv/iUTKE1QFo+GfM7g9bzjZz8WyhPUhb5ea0qOAaVywr5DSgRlJeWl +a6LIANZiVUkZFYJatXjmvC9mq61Wbx01CCre8VagnTwD4utPuMfqENRJp55/ +f/Hz7UdDhWr0CerXf9WhT0gGbBpLKVsxIijvT6cfHlNjwOlLpc56Wwlq1rLj ++ifMZfyNPD7b8H6WPW4IKjCAPfVfUZYVQZ09sTpfQZ0Btiq8B9ttCSqSeaLi +sT4DksoVV4ntJqhsaduHitoM6LLemmezj6DuPDF6lY/3R7Yd3h1xkKD4ffm+ +ntJlgJ97wGK5E0EdmqZ9+WnGgMr5+IdTxwlqYJIz/wZej+vaM2u6Kz4fX1bX +w3i/9uJ1k8c9CWq72GikuBED7j0euHfvNEGx3doX4WvJgF7dVWbf/QjKc+dU +JivFANUPUn94AghqqnxZIwfv54LD5vitQQTVxBM58caUAW96HQwDQwlq2D8A +3lozgMfvTG9hBEHVys+5O2xnwJ5VN64PXSOoE/WWsefwev9Ri/Sau/i84lwK +/rNhwLuvYj9WUgmK2bz5kus2BvA7aQbpPSSoy2cMd+bvZIDjqI2Cz2OCGoUN +Dwz3MeBBkNvnrDyCal/wOm95kAF/+CL8258SVMKlxatJeP86KekbxJ4T1PlO +r4t5dgwIppW/tyklqPdFDcY1RxhQU9bsFVFOUPkzJ/ZYujFAyGpStAIIapu/ +1NzN3Qw49JO/cuodQTnJsRxKxM9nuZIn6R8JSu+laKrGCQb8mzXnd/lMUC9v +6xgKnGYA48qxl/fqCapySlFXAq8fJhZ05PsPgjJhdvPQ8f7rMpM4eFsJSrko +vK8Of56YzvOCre0EFaWro7XdjwFH333dG9hNUK5X91kluDIgZ/fIcmE/QRU+ +3eHTdoABE90cj4eGsX6LmF6rPBlg6Cu7U+YfQfnk8H387xwDIlm3zDpOEhSL +1br1Kr4M+Ba7Py12lqD8rxxKD3FngKS0//aaRXy/qZWlwR4M+P/fF6k1sEVS +AD//f6I0RVc= + "]]}, Annotation[#, "Charting`Private`Tag$4159201#4"]& ]}}, {}}, { + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, DisplayFunction -> Identity, DisplayFunction -> Identity, + Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0]}, + AxesOrigin -> {0, -24.4628263145363}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "ClippingRange" -> {{{-5.999999755102041, + 5.999999755102041}, {-24.462826314536354`, -8.136370804376675}}, \ +{{-5.999999755102041, + 5.999999755102041}, {-24.462826314536354`, -8.136370804376675}}}}, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ +StyleBox[\\\" \ +\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*SuperscriptBox[StyleBox[\\\"h\\\",\ +FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ +\\\"/\\\", \\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], + TraditionalForm], + FormBox[ + TagBox[ + "\"| \\!\\(\\*SubscriptBox[\\(\[ScriptCapitalF]\\), \\(0\\)]\\)\\!\\(\ +\\*SuperscriptBox[\\\"'\\\", StyleBox[RowBox[{\\\"[\\\", \\\"n\\\", \ +\\\"]\\\"}],FontSlant->\\\"Italic\\\"]]\\) - \\!\\(\\*SubscriptBox[\\(\ +\[ScriptCapitalF]\\), \\(0\\)]\\)\\!\\(\\*SuperscriptBox[\\('\\), \ +\\([6]\\)]\\) |\"", HoldForm], TraditionalForm]}, + AxesOrigin -> {0, -24.462826314536354`}, + CoordinatesToolOptions -> {"DisplayFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& )}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> { + GrayLevel[0], FontSize -> 12}, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, PlotRange -> {{-6, + 6}, {-24.462826314536354`, -8.136370804376675}}, PlotRangeClipping -> + True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{"2", "3", "4", "5"}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontSize -> 12, FontFamily -> "Arial"}, + Background -> Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.038000000000000006`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.038000000000000006`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.038000000000000006`] -> + Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.038000000000000006`] -> + Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontSize -> 12, FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.8763699506493063`*^9, 3.8763699619208803`*^9}, + 3.876370068782353*^9, {3.87637043091245*^9, 3.87637044257585*^9}, { + 3.876370721301976*^9, 3.876370808099616*^9}, {3.876371116142165*^9, + 3.8763711352371187`*^9}, {3.87637122695619*^9, 3.8763712464846573`*^9}, { + 3.87637134045012*^9, 3.8763713522979193`*^9}, 3.8763718090898647`*^9, + 3.887183948573832*^9, 3.893237432392331*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e027c86a-5f73-49af-9682-15a84fa4ac67"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["Plotting as functions of scaling invariants", "Section", + CellChangeTimes->{{3.887175601990197*^9, 3.887175605174004*^9}, { + 3.887175638310907*^9, 3.887175648462943*^9}, {3.893240667249942*^9, + 3.893240669191936*^9}},ExpressionUUID->"af69f70f-b3b9-4794-8398-\ +01134650a149"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"\[Eta]2", "=", + RowBox[{"\[Eta]", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Xi]2", "=", + RowBox[{"\[Xi]", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DScriptF0D\[Eta]2", "=", + RowBox[{"DScriptF0D\[Eta]", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DufDuh2", "=", + RowBox[{"DufDuh", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Eta]6", "=", + RowBox[{"\[Eta]", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Xi]6", "=", + RowBox[{"\[Xi]", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DScriptF0D\[Eta]6", "=", + RowBox[{"DScriptF0D\[Eta]", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DufDuh6", "=", + RowBox[{"DufDuh", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}]}], "Input", + CellChangeTimes->{{3.887184974652775*^9, 3.8871849902010813`*^9}, { + 3.8871853260317287`*^9, 3.887185348663872*^9}, {3.887185471338563*^9, + 3.887185487738577*^9}, {3.8932376555040216`*^9, 3.893237683200816*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]2", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"DScriptF0D\[Eta]2", "[", + RowBox[{"0", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]6", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"DScriptF0D\[Eta]6", "[", + RowBox[{"0", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ",", + + RowBox[{"{", + RowBox[{"\[Gamma]", ",", "0", ",", "0.999"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{"\[Eta]", ",", + RowBox[{ + SubscriptBox["\[ScriptCapitalF]", "0"], "[", "\[Eta]", "]"}]}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "6"}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.876369742606814*^9, 3.876369749518669*^9}, { + 3.88717511572079*^9, 3.887175133863171*^9}, {3.88718492600924*^9, + 3.887184941792713*^9}, {3.8871849972905684`*^9, 3.88718515068447*^9}, { + 3.8871852002698402`*^9, 3.887185200333082*^9}, {3.8871852346862307`*^9, + 3.887185259919454*^9}, {3.8871853538970222`*^9, 3.887185366488626*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], + LineBox[CompressedData[" +1:eJwVlnc81d8fx+2tjOwtZctexTkhKyJCviolQiKjkhClhZKVPRpSMoqshs4n +UYokREb2uNbljs+1+d3fX+fxPH+9x+v1fr/lvC46+TAxMDAIMjIw/P/l7Uoi +iyjcxPoSxerV/7AcdOq6byV+6iT2myvPpz2kGg7PtKlW2B7D7E77cfQwPoUW +3xYvxBx3xNLUzI+YG2ZAif7r1AwuO0zo/ECbYMxD6CbEuUNh0hobPNbAdVrk +HrT/V1eTnWGJOZxLCuFwi4OvyWbHddstsEFg6F/HGwtJKVZRgqfNsXaLFm9B +x0jYBwX0BLXNsINXxhbzy8KhaLiqQoLOQUw2JbSitOsSnDoo7bGpD7C3Bxip +lWXBsMMzTZttxgT72VtREmASBFv/e3raEjuAsbKYRLbkB8A730f57b8aY702 +0VyyIb7QM7I6VW/eCBsVDUmkfvaBya2xrSQFI+y1k0S/p5U3PNMhr6PRbIDp +Rt2VfdR+Bsp6ttubpehhpfdYFCUDTsCqd3O8LuJ62JP+EonnzB5Q9bNsUuQr +XSxiLMWx6r07PPUxICPgnw42K1sWHHrFDbrXtU82xWhjQvurzFMGnaGx3n3t +Em1t7KdBy2qupDNs6iHX8M5oYSYdoetK/k6wXkMy9binFubWyDThtvsoXAiK +IJhc0MR0E//e6WU7Ai8GhoivtaljMnyVzzgHrKBk+5ZfdIQ6ZuSQIFxuYgXf +CbMOpCqpY67zf02cX1jCguA8ZsoDNayhK859/sEh+M3+bnlYqCp2KYfTh7nA +HFZ+ZSxlfqiMmW7ckYlLhFAw8NSTrGPKWNVqLO2qFoQl/DYexRLKmJHHkxNX +agAs12pQXyxXwhhtlcKXLpjCtEczuu9GFTHhZ2+N/KUOwNKoh5z+UXsxqZ4k +FRNHQzh52nl3gJUCFumcouc1pw3D2u9JaigrYEZ4f0x/sTY8C4+XBXMrYO8H +Tv1ZO6sNC4OCps793o155eyaWR3TgrOUdAbktRtrLHnIH0vWhNPW0slvsuSx +i12+hOJcDRjw13841EwOc1Bzvj9+WRnWVjI9faQphx14Lx7bpKsMl7Mel85L +y2ELb1rff6IqQemGzBKdDVls5U277ES4EtQfDbXjfieLjakN9x5MUIRtm3/+ +7d4vi9WO/dfr3r8HrrtdesdXL41pfNHNl+HYDb9aiNUKEySwKzH8R8f6pOAv +sM0+1i2B/XjSZJH9XAp2Njv5dn6WwMZ18i5PhUjBHKdnl2TzJLDf1lVLRjxS +8HREvZWPkwTWdIrw/paVJNzubJzXaRbHuBRfKrb2iEOZfu0Zu89iGLpf265z +WBSePep/fo5JFFM/d9+VdmAXPH/qAOd+XAQrvi7rUye9C4oGGRk9nhbBCNO+ +C4hhF0xMV/J/1SaCyQ07PH3WLAhHlHZu1mWKYKBcni3PSRCaU3GBBC0RLF9r +IC35qgB08ZBJ/xQqjJlIScUZLfLBrg6d2iF5IYyNfYilrJUHapM8GNWVBbEX +54SzW0iskPCo1DHjOj9msU8y6ugwA1w1ddqVpc6HcUjx2jjkrAEJ4ZtMKvY7 +MHuxk7dexOMgOxaPnfbmwbQ9+j64GJDAFNt6RHMvF1a27VZ+eHYO+EcGNTlE +c2ITtm5Z0hlTwFGoqeaRKgfmenviHl45CsKPPdIO4GXH8g3eiwcmDoDPjXrt +U0usmI77jyNtMt1AJ3THOJnIgs0WWsoP+7WC5ik5qsYOFqx7VCgVL8VAhp96 +8jclZuzvBrPU0/CXoCIwLXzzJBMmG7fxemZvJlK0JZen3GfErEucOg/9qkN3 +54wuvfrGgHVMzNryyDShhomrOQHCDFht26tzOUdbUXiAWQVH/Raqjvyjaen+ +G1UQu5XqvTeRWmwun9/jbrQulFV9W3oD2VS1Pqmq6UWFyyq5OxrX0CeVN3CN +2I++RO/45Ba7ioaHIucO9P1DMqcmiqr3rKB9w9FJ6VdGUMLK5nL9bxoq6PS9 +JkkaRXURc/wuaThyiXv7t8ZuHCnbSTON6FNRTn2jY/7nCRRdMJA6ME9GQXVF +DekSU0i65vCm+DMSuilr0WIaNI06G/eH8uouoTQORZv+IQLqRzFHlosW0M/A +ZRZfo1lUM+iZ8/ruLLLY36/3vWYObbL9rReJnEZ21kY1qjILKM+9h/+K8wTi +X0/34o4novFMsYCu0hHEmC0sIrRjCfkWc0RyLfch80IhzLhjCVUUGw6ma/xG +dyw5t31fkdDX4qHKvysN6D+VaZ60eDI66ZEzpDlaDFwi6qu1vCiI6HzwbqL3 +S8BFIPgQfSjIaEiNDyeUgJCC7oJSfwr6e/92zTq1DHgfLC5SDKEgrlzuAJYH +lWB3cSBhTywFnc467zDUVgfm/W5fNy6goLubiirOno0gq46D+KGfgkoC5oaz +VTqAyMuIc1+OUZHZ0WnukjMdYNBc76fLcSr6PtjpMZXVAewUvc0IHlR0tLyh +YZ79N/CWy7DjPUtFFy3mRbQJv8EOJ7f7biFUdEqM5yWxsguQtbknZx5Qkfq3 +2vGRC73AS8yqcO4rFZ14KzR+4VUvuBpcvnb1BxXBVNNSHUIvePg0b5K1nYpC +urSvhXn/BYTxo8ek/1ARyede4XfPPrCT+wbNepyKMmv2Hz7oNQCKDiviMdtU +xD9USDbJGQapHaeIZgY4KvSEkT+GhoGzSNTCM2McuUc33+rgHwHJjgbZzKY4 +MoosDBBxGwHzz51+fbLA0cXP9ziCx0cAZ5p21m4nHDUf/1mUyzwGwsb9qXkX +cOTw1P+nh9IYsLQ8XzV+EUeMQyufLO3HACn74DmlMBwR497kFGSOgfv4/NXS +CBxltml2n9EYB2HhrB8z7tDZhNc4y3sCqFYbmlALceRduxxjeH8CjGycdBB8 +hiP9vaCWq3oCcN/85ravGEcHH3uuWLJMggLe8q2TZTi6IOp6Qv3FJIjySwpL +q8fR92PUeLXlKRDnfYBwuANHKYE1V9Xkp0F3LClQswtHR+wfuvraTwPKvvEY +vh4c7RWMCEoumgbNRuT+xgG6T8p07jW6EEC42ZjtwhSOKvfzGJo3zQDWO1i5 +yQaOqmx3ThxangEvSuJ4WLZxNDLLnZSrMgtIDMZNjYw0xEq7I2yROgv0GIND +ldhpdJ23lr30mQPkCT1CEj8N8bvbDJzJnQMipAQ9gV00dFlAhTn89xxIKIqQ +vi9MQ2UMgXvem84D2RPzX70kaKjmvarLN6kF4FvfpJyuQENntTJb4lwXAG90 +mXDzXhpyY9woKn64AJJbxcJnlWjI4k63wx5mIpAYSjjOr05D42lKPLdMiEBb +dENfYB8N7b2WxetwlQhq/7wwZ9OiIfkVOz7NRSKw43G991WXhq5mypraqC6C +x2ePcKXq09CIfj7XH99FYNECjzgY0tCxvT/1D48tAqdoodT8/TTkYOB+S5Jv +CRwKqmxWN6Ghonz+fY77lkA0+135ClMa0ojyDw4JWgLXHwjkRx+kod8vZ6ZO +Jy2Bluecf1rN6Pm4GQ0nVyyBOJXY8xwWNLRYFOfK9GsJ1Lx9O6p9iIZmqXEO +tYtLAPaLfrC1pKHNtxWd5XwkwG5vGOZgRUNXEj2IM1okoBOYcBNa09CRXaTa +AGcSiPA8elLKhob0xQWsdC+TQGpMSNgknRdj2pBFJgnkyVprZtnSkELPd+uC +dyTw8Xbsmu5hevz1N/jMBklAdWNK5wOddVmC7LS2ScBqy8hIxY6GNNehUaA8 +GaRbrp65Qee6QCmJ5UNkMF2nzYDROWWjw6TDnwwObNmdnqQz10M+fPUBGTz9 +8atlic68QnV5l6vI4Fe88rVROme+Zsu26CUDpUuhFbV0Fjwx7+q3QQbRXWrZ +F+ksBC3txuQoYK87ky83nf2q1VbeWlFAocd1k3h6fGKapuNDgRQQ29lkTKDn +o6dPLPROp4Dc0UOXFekcfr73h+UHCnj6NXD9ED3/Mgof990xCkikOHaZ0esV +73xXQJGLCgrkjq1J0uu5b+R4gZI2FQju7vDuote/kks//MF/VCBlULnpTe8P +S1FziFscFWAF/MUd9P6RjvJevFdGBZXqv3SF6P395Wulr8iAg8vzbKoKdD08 +tGOjfFLEAcOghLcgXS9cAdGwzgEHE285jAfpevJ6F5bU8RgHl6oIOjQdGjq3 +J1wN/44Dzm27NQu6PoWiWDJvUHAwNpv6xE+DhlT7fR71WdGAYRfxlDJd78y+ +9moloTSQamnR8IXuD0/FrgxCPg2QQiiJ6nJ0PVR4xyOcBuZNdKP8xWjIbHkN +4y1dBoTsibsudH/COfbg3L5lIP7q8mNTJhr6cE13uJRjBZAWzApn6H7XEpT/ +7um3ApyYe8yiSTja53NtkCN7BQRlDFScmcNRvHvVGPixAspINQ+2J3CUOPRk +9qzGKqhfSQOneul8RNHI7cwqaFhr3C1On0eaxjzCk+mrwOIkyrndQp9n4vUa +Q5urwP2ftulp+vyaSOxkLOtdA2+03Z530Pf2o/iL+/t2rgP/T0elauNxdDZr +/BKyXgdVF7r+acXgSKpAKK/l4zpQDkrqGfTDEW3Q56xTxQZoSXrImqiPo7E9 +O51b5zdAj7iXcoUSjjRYyhcV1DZB9w3bCXNxHM01zCeklG8CcluEeOU6FV0/ +5GnL8HELqOxJWSPU0vfbI70j6kzboELx8eDKMyr69EB18KLNNnj+u7bAKpmK +dGyt97oMbINP4ozON85R0TtR8eVvdxhgp69gkT8HFd0y4PUtrWCAHTmDSuFE +CnKJb/ts0ssAay1vm13poiAddrLybRVGmCVf+Fkkh4IcHG6XWfYzwuux5zS8 +RSko3cta7g0vEzQTkZ4xXCKj3HYzY10zJlj/bF+EwlcyMhUabaivYIJKRhH+ +vwPISE+p0XtHJjMsTbKSYssloWuXiB1F3cyw6g53icxpErKhXDP+LMgC26q1 +pvTkSWipqNOuM4MF8pXadqfmLaEAy+ATt6pYYe2T7NLz34iItdj2ZtgWK4wS +m3Ab3kVEgbeDSzLt2OB/Xq0ThscXUNg1QXvaIhv8hJfq5DbMob8lipKhh9hh +S/R+A9q/WWQc+4S1OJ8dfhWRM+hZmkHJk6qLPa4c8ErgjYXWmWmk2NZXoVbP +AWWJF3dc+DmFXP3nv8xLcsIM0Y/uBQWTyPDSYnUCiRPyqYpl6zCPI82hlLH4 +dm5omGqQ8c+gD3FgDjK+TjzwquPdOU/fP+jMTNwPgUEeyFH6Y1vyMP2+pOjo +VjHtgB31wyuvJTDUTQllr3u8A2JDuTxJLcXIz8YTvbHcCWM7o+peRRYDwWiG +6/WufDBZMlT6xIVfYEByAaPV8cHYexCvEekFKc6EjRlpfiirMnOoXncYuKyM +1p5jEIAKjpOEafYZcCnla9D5KAEY62SPrsQTQepTsrk8oyAUz0+/l+VGBiX/ +0guMlXdBC9WtHs6KVdDh6CIT9GsXrH5sJFclsgVeB/acFrslBN/46N6cSWaE +L0hzLtdthKEhW/wiTzgLPLEZFe0jLwJDI5ZX1rrYYVhV8Iq1gChUwc21lJu4 +oc7WmcYUKTFY/Pz4ixZ9Pmh74ErIRIEElK3tvPLBVxh2jbfcuLNXCn7yExge +zxWH2dGs0b1EafjHdOvR8TkZ+Cy5Jxi/LQs7+CW2rp3bDXfKfW8Y/SkH7zz/ +eYbIoAS/9SS49ND/GTKCB7QuaMBIc868xqt74JaTWaw3SQfWt+xNaLdXgk07 +SY8lru+HVttf3OEtNUhw4VcKu28B/wctisaw + "]]}, Annotation[#, "Charting`Private`Tag$4160507#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], + LineBox[CompressedData[" +1:eJwV13c4lt8bAHB7Zovs1yZ7l9Q59kwh3xQlI1pWKSqySyQaopBKRpGokJHz +kJCkrOw9sl/eZWT8nt9fz/W5nnE99zn3fe5zpD0DHM8y0NHRnaOno/v/tbSh +6U3Z+VuY+Ffhta5rmzDknbsSNcsFY9l8dKf0bSHMv+R++QyDA1boWuEvbZMO ++3o03+n62mLdoQXN2jNJsCDRJ9gtyhK7nJc7qaEcB/f7JxXrDJthZYunbBqU +I2F3vGOnBtEEaxEZ1POcvw6HRwk9WYHG2Mizt/3E8KsQZLw9VH4QYjQLv28d +ppdh8VTfAamoQ1jOxwq7168CoPCKhfTZP0bY+9NcLz+0XYSWccaT9nsNsfO5 +R/SWDH2gW9OGjRv/fkyTWFj3S84bcswodGSI7MPMSOKYi6cnfH559WFokD52 +Sr+eV1XVHVoKlmznVelho+oS4PGcG6wTLgnKEtDDtP4Jk3OIJ2ECi9/DLws6 +mNkxkdamF8ehs0+ZD6OgNrakGHw1qN0R3o9OMXQo0cJy+p88dRtzgKVA4WOS +oxamjcRfVzE7QBfPxdbcPE3shcC/djLTERhRVqXCxaiBnSj96hdkYAONu1Vm +vkapYxdPhwk/M7CGN+El3hMs6liK+au1cCsryKqDQq5IqWF7rW7vRD2xgPRM +Gt867qhgDQbKDyPqTeFd4gV10w0l7FuKfmnpUQAZcxl/mHxSwiY6eQbfRRyC +tgdS2S4EKmFaXUIExs8H4b/kQPmvS4pYg1yh+zkTI0gXS/3GQa+IBRbPsrqU +7IddEiT3VxflsWD7I9Wvs/RgQdqTo68N5bGHqYUvXBX0YM60Gss4hzwWdPNi +0dWPuvCnT+D7oWI5jMfykeRinw4k5wUmPGGUw75/eyR+3lEbUn5znx3qkcGu +eH2UycrSgLmU+MnOMhnsOENIBDe/BhQTjx4PeSyD7VNxt3mcoA5ZKFPbpU4y +mEJmP7f2HTVIb340z71PGvt0yd8h+q0KLLuVN/J7i4AV6nKrvw1XgtFKTOGB +kwRsK42+01BWCWpLhjPe/EHAyFNxGlstitBg/rTLt2cEjHOs2rWFoAgHh45X +Tx4kYAb36QMzJuShxZOAs4lKUtivSKv7TJWysCbMpqB6Vhy7NVZVKeFMgE5X +U659/iGOLR1kGQR7CfCDlHn/rmJxjC89pVSMjgAzHnS0l10Rx3KVum2HXKXg +0ciiqUEGcWzhmaisiKwkzGJStzXREMOO+QmKNs+JwbHJRFPCZxHMdG0n/Y/u +Hnir+yWr6UlhbJpnaU9PGz8UjI3yF7IRxiSrqiyuF/FDeC2tl81QGGv2jlG7 +lcAPB0oilK1FhbHMEs62N5b8UGe1xURtUAi7zMj37VQjH7wYzJyne1YIY4t0 +5Njq5IU9tKw4gYTdWHBnwqj6EW54MoH5kBGfILZY3dbKt84GtwRX/7xlFsSw +vpoPh9rZYLBsZojKhgB2I59X6/sbNti425XPc0IAc9PS21pxZYMnKn6lZpcL +YEGvC9SDGlihqSQlUO+MAHazhHpROZcFsrLONpfX8mP8Ke+d7zxngjr0Xsdn +XvJh6dH5ChVm9JB0IdxiZpoHM//ht3sjaB0c0s9n1d7Fha15l75hKSCBQp+E +yaJGDmxbW53j3et5ILny7o3iFhvWfP103cfSSTD03PZq7lFWzND3sO+myxBI +Ya0Ie77MjDXPlUS5i3cBf0hqOVLFhJm4yh8c6WkG/S4R553iGbGjjM/zYic/ +gY3MF+ztUQxYpMC89mpsHDr8p1Tc+To9NhqbFz4bVolKPfOi2W/TYUe5C/cc +/9OIoh7tVe06tYMcfzj5MF//hfYnRH8fyt5CkWTnz+aCXeiMbxRQ49lExMju +h0UjPehsSfoV0wsbyMWZR76rbgDV9TlVafWsoReCTUE0jxEkUZzzuvTsKqoY +fCaWdnQMJe+uZM/voyL6tnP664wTyJ3jImH7PAWxBCbWMCRPoilTjc2H9GRE +eBjY1sI+jUS83hgGh64gxgFf4eNZf9Ef5sKTT5iX0Zq9g3QV7yySTaCz7etb +QB23zvQZZM+hwJqkh/2vZ5FJReNinewCSv3NXvXmwTQqzr7o2XhvEZWb8Hxu +kpxAj2lmlDQBIprZcyppX8IIeqVmmyEBl5F0m28fKupFmrlhDD9Jy+hpFNoX +3PkbVfE9TvP/tIJs/cTDpkXr0QeBgV1Hz5GQR6abfYkBQKxup+Vslcno6PDe +wij5ejDsVl5Y2UdGQS8M9zs3dQBJv++GVpEUhBkv2p4ld4Dmc7qbLDEUxMOy +anZHqhNYV78jN8RRUBk/UZU+tBOcOJ8XfiiRgrzuiL5rU+4CbycGWhSfUJB1 +QOz1kZRuoJ4hmd9eSEHCyZZKzn69IKs6KTT4DwXtn2JnbsjoBbfPaB8Q6qOg +vTdPsVu29IKLj5nJ5QMUxD8u0nNXsQ+kspL2UUcpyHGXfinTRB8QD/s74D1P +QcGhC2xjpwaAow12ipuOitaWorSbvIbB+qSqTqgSFWWl+rVlPBgGYMfJ6/te +KuIUU7WMRcNgc7HCQ0SNinaVB4g+EBsBy9ueqEyLinpTE9wyu0bAHxffzyOG +VJRqd1rGPHcUZFi7edDsqIhlNfmYkuw4YL21cEUskIrcSt9neR0YB7y7r5kb +X6aiu95GYm+dxsHTosP3zgZTEe8bllGX2HFwnsvQ700oFRU8TWs5ND0Ovuwe +kJaMoqL69yFK+kUT4E/RTf/PD6gIDK1FKxhPAZUs1cG0Uvx/V6KjWU5NAea8 +ypnij1TUnx8URA2dAjxWcs+/llGRmWb3GbrSKaB6/9HSVCUV3SRPe7ZKT4OI +Va0Urnoq0rXu1Ldj+QtUsZCdiXYqytjqtpKV/QtKvKfYOzupqFH2nxcHxF12 +zgt14/E+padjv/EXWOCjm4znvUH136HvS39BfjX1Jc8YFZ2WH+a6ODADhqws +uWOJVCSf8Dzfdn0GSF07xW++QkUzkotRB4VnAXNZ5BYDGY//bLSNs9MsyO2v +vnSVRkUOknpXjrfOAhrLyJTOFhVVvpDr+lw3B8yRBuLloKFw4Y/eFaNzYFE3 +pS6Tk4aME5WSm3fmgDHi1ZbnoqGSPwZcsofmAWNippEKLw35C2ToV1fPg1zm +e1ycQjS0M/6IPalqAez2u8rCL01D/93j7VXuXwC5idLdJ2VoqObXRZb+9QXg +80ipMFuWhp7TaU0E718EYesbVhIKNESZP22dVrkIyK1ZVn/30tCh93vq2/sW +gRZjwREeVRriohLdCRuLQKpXTEBHjYYY+3oCNwyXAMGVscBPA/+ed0HV6y9L +oNqndOWdDg0lvtVRjxleAlPtKQ0fdGno5SWbtGs7S0DzQhvDRz0aOuPaXpZp +TAQGpKUnuQY01JG0SZhtJAK9lNQlhwM09FDI3ujyDBGU2hIXNY1oqF7u92M2 +5mXQJrlAx3mQht4PyVxrVlgGQKhDp+QQDd0/fi/r54VloJ/XGfvFmIau2Vmw +zt9cBl0iqX1XTGhokqOsTSBpGQjEz4zLmdLQ0yH+j3feL4Pced+xa2Y0FJt3 +fakDWwY1Vk5fhM1piEEtrkG5Yxl8y7MX+4g7bbb81gZlGYwfj1Hus6Ch4i6j +6GCWFeBT64e8LGmoO1TRfUN4BYiGfn81g9v6p86U8oEVsMLzSWzMioacbPOK +O+1WgIhHb+oxaxryLZd6ePf0CsjlSFeox11yXmpWJHoFXFW45ZRoQ0NN0ivh +lEcr4OVJ3s5p3PUWHgEDuSuAFiaoaWRLQ8fcfdraKlbAdNmIayJu0Ctc1PZ9 +BXi+zLbswj1zvFhkYAB/v/3EpJAdDbXyxypRFlfAuaPzMk64dwi750ToSIAs +wUaJx13etRNgx08CfsWGVp9xb/IxtybKkUD22QmeMdze+Wy8vfokIM277wDj +YTz+fD57LWsS2D5pWiWJe77BJj3NlQS8rSfDdHAfL2Kg5/QnAaWCn5eNced4 +FT1LjCQBvoi4RCvcxvkjISKPSMA+0rv8//5rfaLwUy4J9F9NHf//87t5l9nE +K0ggym9IQQ/318AA6eRmEvDxVN0ng3tJw4eJu58E3IrOs7HjnrWIrEufJ4EW +GZe7s/j/MqveOaexRQJJ71KLvuJWFfNk7+AmA7muZ15puHXchT5FEsiA07Yq +2xu3RmZT6AFtMmiOIDiq4LYV/ezLYEYGzrKdF+fx8dzDb/2g25kMPn0oGXqN +23l9g7nMlwyWtwLSj+Nu+u3358V1MnB8l32PETf9FQ+Bp4lkYPAt920BPn8M +k2U/s7LIIF4RjVvgdljN2W6tI4P+XHsPf3z+5e1epq12kgG7w6U7q3i+yN1s +IqlPk8Eb1/nb13FbszfpNXBQgEhaxC9fPL9m/uM3lpGggNbXw7ROPB+lOS46 +J2lQwK8PWp/24e7ILBhLOEYBkfGOhfN4fh9M3nNLwpcClhc26vbjdmgouvTl +OgU0e9gqReL1wD7wN0E+mwIMPRIzqHj99BS5DqfPUQDjAUvhKLy+KP45Eulb +FPDzhVF+Ml5/J5c0rXJ5qSAmkWclFa/POPnk4ll9KmBtuO911xBfn0wdqOKx +VOBn+TWFXZ+Gtva/q09KowI1k6kvnfh6ALjdJLkKqSB0+it9Kr5e/NA90W3Q +QQUhdRMhm5o0NOFBlwmkaaBUK7/CTYWGVqXXdBX1aOCHONAfUqYhU+puDklr +GsiuLBY5pkRDhU8Evu4PooEhwvlSOXk8P7/UkFTqaWBHYCrOXpKGXNjC6Xh9 +V4FQ3PfZYm4aYsuNlqsKXwXVE1Qf1114flPaV0MerwJn6kzFBjsNlTUza2rU +rwLmWmYLPma8/kN4HiZLrgG/n1y8zzao6EtiRl+/3ho4yOKr0reK75NWGUYN +D6+BsCj3ZXYqFRENjlbsD1sDn5LY+gDeLxLPeMXqD6yB4Ij6srVxKtqkbH9S +IeP3Y+g/YCNUVPTA/Ls+5zoYGpTlvj5IRcPN9PrJB9bBSfN1/Sq8P/nFhp89 +nLUO+KyFPK43UVHkS8NkmbMboOo8e1tdPhWNSRhVx9/aAETKXdYbOVQUsOh1 +ijV9A+ib/c6Sysb750pyhf2PDRBjXcqm/YSKPnLyfePQ+QfAq4RGvxgq+rXr +77QH6ybgER3+wXWSikworqFnZTZBv9L2XOQxKkoK34yLPbgJmmOrC4fsqUhk +5u7s7uBNIDFkwOxkSkUbnudrEsc3wWvzzHh5FTx+T+ogpWELCBaV0e2lURDt +hRFhZGQLfGLw67pPpKDcLaXgyY0tkIZ6xAdnKMhCdFjUWGsblNw6sK6O73/M +a0vFrbK3Qan3T6XiWgryn3mfVhO5A7Tl7Y634/uzCNl0gaCsHdAozbI/I5SC +ZDXDhcyqdkDRdEWbVSAFEQfDXltQdoDu3+Law+4UFNYgcHxclw6KTfuwUg9Q +UFVn6zP/d3QwSu95qi+RjKqnTHa11tDBx249DcZTZPTt9/V2w1Y6WG47V7ze +T0YFrIMzdvN0kDs7n56+kYz4VnzdLffSQ5mNeB+PZ2S0tb18u6KQHt4xNUmg +NyKjlgudDe+/MMAgn4+VIu4kpLwqYqz2iwGekLY9xXiUhIIb0DtslAE6CmLe +1ZCEvB29ZfcyMcL7n96sP5ImIUWHWh0uO0b42st9d9foCuJV7fptOsoIwx7Y +kReOraCbS8UP9pMZIQtnzyFfkxVU9Lu7zoqFCWoPuJBzNFbQ1RPDFz6pMsFa +j9sED/YV1CTjv9B0gwnGn+kMaK9cRoJHxPaIiTNDVn0h1Y9cyyi+a1ywSZMZ +im7dZW5aJCIf3se9KebMsLY/duEeIqLDzRlLtwKY4dlmLU3gQUTc1BaVtgZm +qPb2XcZG5hK6xjRbHHOVBX6ts2a5T17A+yN73NwKK/R/Nmh9jG0WDUeuU2W5 +2GB/yxuOmeoZFHzqgW6yEht8CCHN3n8GWTKJlGy5s8Hnt7kVIn/9RXE1OV6H +8XPfpOWlkJ/R02gjl7nDpZYdhj4mn76TP4H+IwoHMA6xQ7YcZqcL5hNInauj +av4fO3y2z622fGwc2Tm8Hg415IB/wuTvXNw9jv7FyA8+r+KAx5zBqvO5UfSq +wRzSmjih0tEW4Rn8KJGfsoeeOMcJWzdPczuc60XVuov1ety7YI3zZwVH7x7k +dmVY9YPzLgjFd1lW2Xcjd3P+0wkzu+BRrie/red+I24HbI4oyQ1H/2wRje/V +IMeXd75K+vHCSBh2WcarHey7+oDOM4YXlpRrjhrydQKaUbXI6FNeSLjy2+NW +Uxe4shyj+6CJF8Zr1HCeONwLSuvNaNPyfBCLGqqMaBgBciKyvDeJfNAsxHpI +2G4G3L3h+HSbnR8+3qcu3nF5FmgHjCp0yPHDAvEFrtrsOaBwrHInwBW31U2W +kV2LgLG72/lzKz9sDiTIN4uvgO3yD0H76wSgxdXcf7Usq0BpXK0qZ0wATj4l +1Wr0roJQUuOHCAZBGF8pLplevAZiU36WpZkLQp+e0UTqhQ0QzFkS8axdEDbq +6Fe0K2wDhyctT4YYhSA1V9m/5RIjrP3ovTqtKgRj2aOUpdjxvCTS52T8JwSN +bfr9at8wwW/+hvGiRUKw3MHsRNwaM9xXgyYYzwhDUd49+/4/7/rzPAd2lvdA +EieQ8nzJA1lGH7NS1ESgWww29cCNF6YJz1pZXhKBXoUfG58u8sLx27nFcFEE +ugg7R+oS+OHWiWdpWgxicJFnKsTmtyAMenRYp9lWDPZE5cVtJ+2Gx8yNMk3T +xOD55iexaU5CMOJa2TDUFYeUr+HPT68Jw4mqvgy+uxJw8bCDyY8KMdgYoOsT +MykBX73jH9j5Kg6Nvaa9y0wkodhORy7/kAR0udpYQWSVgpbScXSfxQmQwTiy +HJwiQFqztdmHQRmoElIs6JROgN1tgSdgriz8UHahMb6bAO1Pu0XrXZeDtf/J +K/79TxraW5M/q1sqQMayqhiWGzKw3kZHaylzL0zZUvb/1CIDg3/4eXSPqUBV ++iNFzFKy0LqFphN1UA2Ol9+3r+2UhSx8/yZ8pDXhtxhQ2K4rB4WmhTl51jWh +eoYU08QzOVhvN8PdN6YFL/1Sd+4NkYc2q5RRRaIOfO497P6bKA9vhToEfdij +B21lyCYUfwV4R47eNfmUPtzDlT87EKcIjf50D/dY7YdF4oeDunT2wm3XfAOF +VxDKSf4Ie8SgAm3+PfJWIxvD61UMA0kTKrCPUFkTGGQKS9Xqv1jOqMHzMU90 +bCQsodFp6allAQ24fDE7wdTHGv5q9HYR0tKEjg9fuFfstoP79hxSrKjXgkXH +3s97P3CAl45IKrh+1oaX5MOUPIlOsFWSb2L4jw40q63oa5j+D0ZqNIuu7tWD +JjemWNLLT0JvP12LnCZ9yM3KhWoa3KEfX8Ht7pZ9MNzPj2h2xgtyGzrZyPoe +gFrtpstjoefgfxujhMiNQ/BGlUJOlXEgpG+ckkYKJjDmRuIt0fMh8H+wBV26 + + "]]}, Annotation[#, "Charting`Private`Tag$4160507#2"]& ]}}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["\[Eta]", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + RowBox[{ + SubscriptBox["\[ScriptCapitalF]", "0"], "(", "\[Eta]", ")"}], + HoldForm], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> + Identity, FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "ScalingFunctions" -> None}, + PlotRange -> {{-9.122028587832348, + 5.702485161797756}, {-1.3938681721411004`, 4.730885255577823}}, + PlotRangeClipping -> True, PlotRangePadding -> { + Scaled[0.02], + Scaled[0.02]}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{"2", "6"}, "LineLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{ + 3.887174570806945*^9, {3.8871751231427803`*^9, 3.8871751344236307`*^9}, { + 3.887184932693384*^9, 3.887184942173463*^9}, 3.887185280438054*^9, + 3.887185367237939*^9, 3.8932376045625467`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9917cd53-ba22-4159-9239-28c8a5b2c68a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]2", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"DScriptF0D\[Eta]2", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]6", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"DScriptF0D\[Eta]6", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ",", + + RowBox[{"{", + RowBox[{"\[Gamma]", ",", "0", ",", "0.999"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{"\[Eta]", ",", + RowBox[{ + RowBox[{ + SubscriptBox["\[ScriptCapitalF]", "0"], "'"}], "[", "\[Eta]", "]"}]}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "6"}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.87595272795855*^9, 3.8759527743037024`*^9}, { + 3.875953429388359*^9, 3.875953486484068*^9}, {3.875953717122241*^9, + 3.875953824002554*^9}, {3.887174580406206*^9, 3.887174580749688*^9}, { + 3.887174986510387*^9, 3.88717510283072*^9}, {3.887184947721171*^9, + 3.887184948225855*^9}, {3.887185289392242*^9, 3.8871852985195312`*^9}, { + 3.887185371553924*^9, 3.887185377032762*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], + LineBox[CompressedData[" +1:eJwV0Hk8FOgfwPExRY6MhhyVlFhGIhlXbJ6n6WAtEVFWGNHB0OmVWgZJKis3 +uaJTiaaLaKPnm0Q6NNK60jDuo8YRQ4P2t78/Pq/3/x/tfUdc91MpFErof/1f +xabECXXdGMid8dZzazwLrk0Jdst9vOEKt9TY6soe6Bx6Z8hz2AVTw2Eo7Koz +bK0bDY7a4wI3atf7TXraw4r2yMlMeUdwjfPKHGduhd2qcjTdPnv4lCsuE53c +DE5fysuyM7dDoqeRyO2nLYyn2EWosLdAfqGeT8yNjdCGlc1VTFkwOSrvT55Y +gkaYoW48czOw8csplqYF9G/W8pq3QPCXJXVEM50JcfVCulOtNUzfVBrn65iA +b3hpqvnXjXASuypw5owh+W3023HdjUBf75Pz5oMR+PHXMI1fWYLrEFVb9MIQ +Vvs2OLFSzMFRdJSXG8sAz/KGvpooUwi9MLo5abUuWJsnmBaZmsIdkbOsV6kO +1DRPlCkObYBbSQVNx5x0oMJYM3WP7wbwT4xdNnppDXw7fHpwU7AJrAuwcjND +2nAk5NhyyTsjuLhHOL+GrQUPa6WKFyQZgMWDa55PGzRAJcTnWtYuA1DN+1CV +d1YDiui/eRWuMIDpdb5hidYacG9DldHoPQbc5XR1beGpQ1rGkNlToT7EmdXn +vr2rBsURSXKBEXoQ4a79fO3wUuhju+lw7HRBur+wAZjKwGkN7DzO0gbX2sdf +PG0VoXbrsidqgytAfLv/+KdGafDfGRg0QtWA9aToiEapFDTxmU8Ea1Qht2WX +RHRznpiOe0kZGajAwjPGtbldP8hgRrFLZiQdtjmFMnzaxOSHrevSLKMlcCxm +bHVJ6iRZoRZDXetEA57IyoAjnCDZ0VPRAwGLIag1MO7TvnHSLzN7+lWLPGis +FJ4MthkjgeGHa5y5clDuuJm55ZKIuKjWlGUYyoLf0dCvUfVfSdiuDFOO4iLI +eqQ3IM0eIS+qzRv6x6TB77dikz2Kw4R5nNYzIVoI19MD3ejfBsmrfu1JY9pC +yF4bdHWGMkgyDxkl1zEWgFncteS3WgOEF5IWNu9NBVvrgku+/v1E32HiXkqC +FNyf/GOlLK+PnB/ZGHq3jgIhngZBSbQ+UtV7KoejRoGSu7S82vO9JIzD4slW +/CTDfMqGMGov4Yk+MSoC5olg0+8fVZN7yKxqVuk5rTlSuTHlRp1+DymYXptL +q5aQlVzmC6jqJi+5tOe7o3+QBPy3rQa7m6zy6b1Z+ssM4R0SmXf+FJL4mfnp +ikYxCTP1b/W4LiTlp0fo7mlTRFImWH7ASUgMHLWoXRaT5HRrmnfIeBfh5n9O +/fx1gjzLrZsJzukiWmW/zy+/MU6ENPvvb1hd5GO1zXFFszGi/q7pxGLSSdpJ +1I7pm9/I8Jt0yUOJgJR1+ObcPz9M2NPcqmBVAZmXaa1QDx8gqWJpFYbhF5Ln +2Uw/6dZLRlvzbRYZdZCey8s4TcVdxOGwbaSsuJ0cLJQNl59uI5vs1U/dudNG +eIVWHenGjST12PvnrymtpLZQ8LB1popkJsxnKMo3E2+vHIGJsBBJFPrGbtc1 +kSLOSGf2Wj5SuPzAZdd1PqELCiY25XSiik1DbKZzPXlos9hqS80Q0kh7m3RW +rZJ8OGhnoU+ZQs46mF8iLEJJjjLfn+tPIQsLh7xD8cVInsPF5c5TqLvvQjTd +6h7a9/REIv/qFBqNLUzdvvMBMmzfn9FmJ0YbmkssYj4/RqxpCSgWT6Puvf/E +FoQ/Q71/fZQqaZEgObnHT2+V1qKMi0ds2pRmUYpzSBbbow75Z/WEEvtZpNyo +NJQhqUMr81XzXlfOIpOJGeZDh3ok7tjv78qbQ80tj5IyFN6hyG2+DpTKn8g7 +iMEWLGlEzs7nSra3S2Ha7Vfb2++3ovR99toPFKl49cBFkcfONpTbwLI2Y1Fx +Al/IEojbkK2qsKqCR8WnZtM8nu34jMwZ1QG0ywuwb2Xhv/KWAsTZfnRv7CNp +3FRzqE43uRtJFzrEnPgpjT9ULZ8Q0npQyLmjRZcdZfAfbF+fjpQedOJPFSfx +qAy2co0OjrzVi5L7DEebPWTxxPuP910UBpCJIKX7YoMCPqiTfZzJ+IZkwXnV +QdfF2Gf3E4tFaiLkN3T2jXLHYtwyFRVAlEYR7zvT7BGVhtu2tWueyhhDKlxK +ZIXHEhzBWHSGpfwdfdb8BuLyJdjVb1/4lTffUYrb4NyQFh0rvagON0yaRO4z +wicHKMq4yG4uIpolRkVf0vOtDZbiHS6lyf4XJIjv4r7q8Iel+EAKgl9bZ9H9 +kGb2slhVLPxqv+O9/TzaOx/B3b9GHRvxE6MSd1Kww68nj/Xmr8BL/cxttHX+ ++9Lz+kyc3ko8F6+iY/OPDM7mSnNbRFr4VrZpwVizLFbSrq8SvtfGs3I39CsR +Ddc1x7s3H9DBhkus/S0X0XH4Frm86lO/YN+BHePrE1VwxWu9+AYnBnZn6VtO +a6pju39feuLYdThIFHB78LIm/h+D2LN3 + "]]}, Annotation[#, "Charting`Private`Tag$4160616#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], + LineBox[CompressedData[" +1:eJwVxXk81OkfAPAxjsG2mYlyD3IkFjlWSL4PU1RabLJF2XJHjiaKIhpCtCps +pCTlLBJpqEk9H/exiAhTznEksSYUEe3v98f79VZxDzrgRSaRSMz/+f9ldY0P +2L6RsK9604Kj3kUIfXRM88udw5AkOpPB5ztCgf+x08fJv0NO3glr/at7gdu7 +7ZGRjy1cJ3lWxuUyoPCKd8hRlg1MiVmsHrRGYBqYVGI4uAtsS763HZE3h7eX +D3TpzVqB6JH0O7enTIC4/dCiYieCP/wz+hh/G0HJOHeHEssCQhOCtYOEDUH6 +s7WKV485XFc5Nuj0XB9sYi3H7LTMwIoTeDbKRQ+yTi+mhDGNITj+bPfO1q1g +I1W6ls/5FRy8/9QfAU2oli5l3pH8FZR2qQXtbt8CiSIBKS+nDUFhJaV+nYYG +OHmzvQWlDGDjSo7S2QRViGJztH8W1AMXoccMW5IyWL7Vnqxl6cJ+77ZzoQeU +IBz5U51FdGEpRLlptJgOFEMcGqykA02ttOS3YYogIKRX/yZeG+qoGj/l/SkP +CbN+uoxlTchfl9feKiED3Ypzx+6fVIfwI+6NsTcloTA9zSHXTB22c3ldh45K +Qs6EjghPXB2iTfknOlUkoc371OOBEjUY1cM+wWUbYD7/VGKaoBqM3TweVj5C +g4WO9V4DvZuhTWSbLj5PBXZk/lDHqjKkLUIZ3F0HVRH7Cl98VIBu5Z7Lr6ZE +IPLtPQrDRRpExlKUMUUAXBKFLcxpUpC8YBecemMFGwp4HJq8R4NMeVqTnMwi +nvO7YD05IQGOiYq9lvoL2MK4gGKw7mcIt2HmNo1+xkXeiWPFDeLwUCSve48e +H9M/P3qwZVUUVsUjb3kOzeCBLNszeQ4U8Cqnli6Vf8LXKZURWXxhUJV40iC3 +fgoHorkWe44QTCe4n+lkT+J3h6N8HS8LgkPXtZKqiA94OTNbrJNFBgdGqIF/ +7AT+radMwemcAITVj19buzuOy9zzo8XiSKBn7/tobGAMs1K1ful2/YHfzMTH +U4gxbJoY3TxwdxWPzOJvC3mj+LgPi9CR+I5dg93bPdVHsVfpzWCG3zL2bHJa +1czn4WquI0e/dwkXb3JvCTLgYcWSnNwyr0XcVrJX0bl1BF/b+FysgPsFi9tB +ULvbCD4mflJ5zXcBv9p7tOkgaQSPM/S+pwjM45avsz2r2cNY1uOBWUjYZ6xg +Hl8objKMe4SLXNKE+bhfvyV2Y/4QVk0k2XK50ziVK6oAMIhPVSWlvMv9iNPL +m/tVOgfwjQ4xzoPkCczbxrw5M9yPK6wknjXSRzHzU8F4bv17PCnjmmSSOIR3 +tL3ZL5TzDqu0+3BxcR++71N4z+0EF2ewsElIVwe27TueVTfVi20DFCIm5Gqw +b22NpoZzD3bLPGpXup3ANX+Zq9B9u7HDoFYRS72G8PswsCh78A1mZpuZOjW+ +IVjJz7aM81/jpX9ZBo0eg4QPu2hFdrYZEwNL0RqW44SE5kBGrmUt/sFLFUvi +TBPSAc4y9fNP8Ye9zkVP8+aIrbX3hzTr3YjDohdIVJ9FYuZFqUYthUPMun/p +X6hbJWJZj9Y1Wb0mWvy66h6/JCOacfaV55HviZJusdipzxR06fzkw3zXCeLA +vfhaegAVVRWcT842nydMziST3GOoqPSf8jvN3vPEV/MXssMZVFSWQE4JTp4n +gvkxRsmNVJT9l+eeg5PzRFnNrq8T6jT0Q8nqVGrmAqEmq0oNn6UhYvvhjiyV +r8RaxROmabUkSl3hd3ZXfiM0eTqcnBFJ9O8lz8DypW9E2FzDkyiyFIoOk3a4 +YbZMXLrexk7fLYVm9CdjL1QvEyE/lUbd6pRCQu1NkwX9K8TvaS1pA4Kb0PH5 +vlM37NcI408SO37wZVDO4/CeNTMyEhn+m7KgI4u+3SEPWkaQUbr0xz02/rLI +dXOcsRYmI15cXgmakUWZHhsi9fcJolXnW+n6ZHlUZUhm7w4VQqMc7m1agiLa +FLly5SyDghqCjLxjxhRR2+CGebmHFGTpMeHJtqIjM+d+Nz0pUXT4TEPlLEUJ +SapLkAPnRRHZ8mIF4aqMLguVC6SOiSNBNidG5PxmVJphfe9IrwS6vro18GnL +ZqTJpIcP2VLRLwL2xcJKqkjHrurku1Iq4lVctXvVpYpOP1BJaE2kIf/Xuk59 +oeqom3rUbn2SJCpW+I3ZbaiFUg0tUOxVWaRG/ycilayN2NU2SDhTDp3jkN8n +jWojwbg8fKFWHpXp1Ly0mdRBPGmjwpDTdGQiY7GlskYfRfV1XPOkqiJ/e7rG +kWcGyNE1b7+QrxpqpdNGB3sM0TSTd4hE0kCeAUbWOY3GaGfmlNfiLi0UQCuM +e9tigprv778iyNBB680c96n67EC6JRtctDO3oT+Wh5UvLlugW2EFRa7uhkig +YVwFa1ghfm1xTOj97eg/eLmEcg== + "]]}, Annotation[#, "Charting`Private`Tag$4160616#2"]& ]}}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["\[Eta]", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + RowBox[{ + SuperscriptBox[ + SubscriptBox["\[ScriptCapitalF]", "0"], "\[Prime]", + MultilineFunction -> None], "(", "\[Eta]", ")"}], HoldForm], + TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "ScalingFunctions" -> None}, + PlotRange -> {{-8.985689911395795, + 5.4752540344034974`}, {-2.2687538849550464`, 0.8696374890668941}}, + PlotRangeClipping -> True, PlotRangePadding -> { + Scaled[0.02], + Scaled[0.02]}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{"2", "6"}, "LineLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.875952731520175*^9, 3.87595277495057*^9}, { + 3.875953449526909*^9, 3.87595348700035*^9}, {3.875953781918692*^9, + 3.8759538242573233`*^9}, 3.875956884814212*^9, 3.884691471720155*^9, { + 3.887174577531348*^9, 3.887174584665642*^9}, {3.887175035431831*^9, + 3.8871750787266607`*^9}, 3.887184948578662*^9, {3.887185295337936*^9, + 3.887185299115622*^9}, 3.887185377502866*^9, 3.893237607053919*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"9950232b-1eb6-4bf2-a1cb-424ab941d88b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]2", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"-", + RowBox[{"DScriptF0D\[Eta]2", "[", + RowBox[{"2", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Eta]6", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{"-", + RowBox[{"DScriptF0D\[Eta]6", "[", + RowBox[{"2", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], + "\[IndentingNewLine]", ",", + RowBox[{"{", + RowBox[{"\[Gamma]", ",", "0", ",", "0.999"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{"\[Eta]", ",", + RowBox[{"-", + RowBox[{ + RowBox[{ + SubscriptBox["\[ScriptCapitalF]", "0"], "''"}], "[", "\[Eta]", + "]"}]}]}], "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "6"}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.875953835258749*^9, 3.8759538464750853`*^9}, { + 3.887174587589929*^9, 3.887174689823798*^9}, {3.887174745816722*^9, + 3.887174892235113*^9}, {3.887174930671193*^9, 3.8871749732205553`*^9}, { + 3.887175095902635*^9, 3.887175104950508*^9}, {3.8871849509534283`*^9, + 3.8871849518418016`*^9}, {3.887185308184392*^9, 3.8871853124795923`*^9}, { + 3.8871853818416777`*^9, 3.887185394801072*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB3AjipCZvUo2lUgo9xrhV0RGlMyMpIQUZSSphKzISCpKMu+9 +mYX3ITPrmtmjjGzusvmd71/n8Xycx7nnfD73/X6/PpLOd81dGejo6G7T09H9 +d2XvjiHxS4UhFF+3qQDmSTDvjjYUsrdDHHHHmnpnx2BstlWh8IIl4jjL5ti/ +fxT0G5dvP7YxQ9bt5XmnFodBeDCE8obVGGmdsxv+fWwYrPlYOKSmjJBPhv/i +cyOHwGSkrCT1jQGiwvDMeezgEBSRdG1U2/UR7JMpndwPg7AabxjE46iH2DDf +nPulNwgDWG41HhVdZNCvzWB0dQAE/BWkIk/pIK28ZiaJOQMwrSNmu3Mag6iG +MVZUyQ0A0eG1CvPsOWRJ8mUUG6kfWq5lOhogZ5GQP1jJwOp+eN48wWXSoIn4 +sjzARjv1g0NgcYLaggZSp09Hs1Hvh7iW0JZVKQ0kp/M+fcyhfnAiHjmlXK+O +BIzFXDvR8BskHNpNdOPVEMs2RE3R8DcQKubZrYTUkFqr4cfl8r9BoUYiJjBX +FYk5fuOY06HfYF/p+cZz5BTCLf2u4dtQH1wta5+qe6yCbNdENj0P6QNNtWiV +ryoqSGmudSarRx/U9ZFK2GdPInHsr61OWvZBubJIgo3DSXQFgTK6in2w6PXw +37nbJxCi7r6hpD+9cPeOj9BmqxJSXOmSPeTcCyLtuzeDHyohfibvKm5Y9kLF +YaahBFklJFq/Rl/NoBcyvNMZya8UEUdmzuNf5Xuh0eRFwT1fBUQR56IYTesB +fAN9HmOsHLJ0j6zuntIDPHfsP6ZYyiEhabNjEdE98JXrf7bZwnLIlcfPxIdC +e6DgZJXScoEs0r9zm/3grR54nTSrWjEhg2h+KDb01u6BvKBYFo8gaYT1fokX +ZqkbphwtjnoaSiFdI/XK2Te64V57hIiynBRy+klS5E/bbriBtcn3PiiFiHRm +ilEtuuG9l9e0W+dRxNFUS+a1fjfMkRPpwPkoYnZ8dV+RdDfMGInF4VKOICLq +yvbcS13g2e8x5qsriYT/WUu59aILSvEMmUknJJHW+BGR1iddsJbyIW9BTBIZ +Ny9lVQ/qArGq5K+ntiUQ5S/uUbI+XXB6wtf4YIUEEjlvKfnAtgtad3pHjmpJ +IJZ+teIZJ7tgy9qvgrNcDFlYD9u+8rcTpCrlQm5kiCF+TWrLOaOd0FS9XUEK +F0O82ZTq6AY7wZGva6HWXAyR6lioqyF2QsS29heuVVHktn0W04vqTnC3DjYi +qIsiXRwFZRxvO6FBX7D08D9hhNXnxdMs607owOzt/9MjjPjOrGp9tuiErnpz +964aYSRdGanKNe2ENPMsP4l0YWRh2WUVMUTf97Dc0NVcGJH6Tl4QONMJe121 +C6fqhRDNzPIrXoKdID6oMmtcI4hon5iQvTtKhBuXPW7NMwggrS6yedLeRLhl +f5ZFi8qPNKV0ZMXdJoKAl4bGhxl+ZFOmZHL7JhGiEmU9clv5kZxxWZlhJyKM +yx7aKUvmR/xCb7KWWBBBj0LljjzJjwTpcrq0qBPBylY8sdr3MOLtH5ruRk+E +buKp0tEjfEg14zBnm0oHzOwZm4wI8iG3a78yTCt2gHJpudE0Jx/ibaV6mF6m +A/Lfswjz7/EiUunjseeEO+BGuPDe6hAvQrzWatLB2AHPKyN3ApN5EVZoFTLv +bYdI9YanLny8yG6/wLXyh+2gsmpLryTHg7Qe98jDNrZBpTxtPV+SB2FmyZO8 +VNMGok63vqkK8SAiVjtcdj/aYLHFV8P2IA8iy7Jp8bioDVjCPdkZl7iRCG05 +pt7kNiCGydgSirmRcdtav9qbbSDldpWsYciNHNBhbI8/2Ab/kvLM3oRwIQfs +bGYeWrbCrjPL08YALmR9fdlz/lIr5N1Qy97x5UJGbVSa7f7XCj1Oth8D3LmQ +a9kG+89rt4Jr1UxGjhkXIvb5oauobCu0XHd9MXeUCwkK0bGibLWAj7GvS2Mb +JxLwvFvs5KcW2NA2501R4kRumliczqT9AuHDYQzyJhyIy5EYkdDyZkgNpYbO +uLAhhcMXWfjdmmCaeeth/W9WRMXf70fY8UbwCPSqMw1mQdis9h4K7WsAM766 +kiSFA4hU+7Gnr+vrwN8yScWTfT8i/cFd2CjrJ9TUqrVPrzAhfTjQCvWphVO+ +HH9JS/sQScV5qVbTGqiflqQoc+xD7vq0S1w1RuDNTaW4RllGxPJqhg42tBoK +77z237FjQHx97lqPZ1eCzAVSQXw0PXLlZC+3V8N3eDGv4ZfbSIfoVmr+4uau +gKrJgDTPw3TIcbrYxrD0MvD31C08UL4LVh11piNKpVC41CNb7rIDPaed+Le3 +i2GLL6X4mdg2LLk+vqxP+wa83Z4rLILb0O6i90aC9A18JcOfx/Bsw7amzqu9 +xW9QoJ4CKQe2QQrfllA/9Q2WORat8aQtmHa7zODb+w3SB9NLSQ1bYDNhl2Vc +8g1CtPWGCXe3IKzQ2JnV/xu8X5N/y1G7CWeRgHcEhm+weGdWjaFqEz4QOwQC +9ghwnsuQiVa2CbvvO9Yw2wQ4J+KCHS3YhAv5xhN9VAIIFdaL4lM3YTG2yVVy +lgDuvZePOPpsQoprrJkckQDLdOrV4xKbwPVFIYzpAwGOWderDQpvwsusykL+ +dwS4Yynf1314ExYw5bqKaQQoa6aPa2TbBJsu24/XEwmA580bwa1vAFlC9+xg +BAHmYqViI4kb0CDpuWfkS4CfwRzV1qEb4Mp504NqQIAwJqL03KMNSGL97SWi +T4CD3zvxQfc3wPfJrwsGOgSoXa5UzLy1AQbMhc8ztQigW2DwdclyA/4ddeUK +PkEAB7t+q1dyG1Aa3fryuxABzQdNvdGudfDWUS6xXsUDF+nKIb+2dXhjvlE5 +sISH/kPUJZamdbiBu5Zhv4CHspWRabWqdfj+W3XJewYPhJXg/Jgv65ATElVX +NoIHvEiHjF7QOjDr6Nu1/8KDuP3kp+Jj62AssYmIf8FDXkSznqvEOpx6SOXd +/xkPgYbnZ/iE18F+xUJ+NRMPCvFYTX/OdfD7ei+1LQMPdmeZ9mlurUGWbmPk +lzd48An/XAfENWhoCK0fe44H9Tt3ZpoC16BGX3zVyQMP05CAefhgDUYdrkR+ +dMdDZLp2jJzPGlzl8Z7+64oH/6Ou7JFua1B0zmfG2xkPVf0Rzy9cXgPLj/ns ++bZ4SDUcoGuWXgNMWRYp+xL6/PrOWnknDeoE7loWncbD8GXNP7WtNEhZfhvo +oIaHbI7fZa2NNChajWXlVsXD8s8fR8eraOj+jDqEnMTD+BUqmSmXBg/6ov/d +U8TD6AdOKZMwGtxOfXa/6wgeDn93SrEKpsHM7p7QV0k8sD1WJdkF0ODwdpBs +mAQeTktPWXp50aAzOzJQSwz9vX7B1lfXaMD3Vo+hRRAPmbttyo0qNGgpcUy0 +48KDmk1re5sSDX7NY35c48TDw4Lrl3pkaVCpZ3Th2iE8RBOL58bF0O+/MvTB +kR3d/4vNr9ZZafBpWf1EJAsemHnuyUn+pUKlwVq/GQP6fSxJScdGqVA8z/vU +jx4P0HV+SG6ACj/i7ial0eEhRpm4erKDCqVBo6TFXRwk6M5isT+oYIHg4/Bb +OCh7OM9l9ZoKO5U+NvlUHEylFlDnXlHh9I9+wxkKDt6Z7fscGkGF27Stg8dQ +Xwp86JIXTIWjmfe5v5JwgOwgNrvuVLgkLCPQvYyDU+tuUQnOVODodyqQQu21 +gH8mbUcF3IwF/8MlHKxePNthYk6FWJVrHvKLOMhO1clJPUuFMOFOpqI5HDhy +HWdVVKfCg7gcLD9qo46m49UnqaCwX9ksbBYHrmT6uglpKvQLn1t0/IeDRfkI +BmkuKnzyx4hjp3GQr9R3r/QgFcr3ru1VT+Gg+Uj7JwNmKgwY8BdjUZshZXpu +WxSg2d16azyJA+vGi+6ZUxRo79dxev4HB9UP6hpPjFPg/R/5aWHUhOTBv9WD +FLiylIUpnsCBTXOv8WAHBSKqz3ovjuNA/kdJivsvCvwEa8MY1NrjshmUOgo4 +nN0gnfzPWZXd7N8p0PW5vvHJGA5u1/QxpBVToP7B/IoS6hZu/9ljRRTgiX61 +NDyK7reD1tDZTxTQHdJy10Mt4mM91ZhBAWKO7p/NERyYTsx+Mk+lAPbP95Ml +qCfYHHXdYyhge41iooL6/S1N8dUICgz+LRKiDuPguGdA0aOnFDC72/njO2qr +WNZ/0QEU8G7UDLyEmq7fIpbvHvr+jKBUEdQH2edn3t2hgEaUQPTiEA4WvOZz +C5zR9dwxX0pG3a5hxKtmR4GEU3N2PqhjFQcVK60pcOxbx0cT1AmpQhRdcwqs +1e1VKKKu/xDm0WxMAaWz/tkcqO2PR0WbGlKAbVrFnTyIg5i9/Ou9OhQoijy+ +PYhaNMVx4NpZCiguerjWo5YzFmMYP00BXMtoJgH1dfdkpdqTFJjStijIQj1c +Tn/okyIF/E8MKCejNri59PmZDAVGlu/IvELNf39p1e0I+v82cyQ/Q21VmkAy +FKXA8QMVwaGobw96fpEVoMBTksdQMOpZN1ZOFh4KjLeJ4f4zpnxXYZYdrZfh +nq3HqGPpBzabDlCA3ulldThqD2O5oBxGCiykaKxHoU4KeFz0YpcM1rV/cpJQ +d2t5JrptkMFcMIz4EXWGZJD8eQoZKP28d3GoSZE6PkeXyTCgmRJeg5qn8MJN ++jkyKAewcPWiNnkjfWhskgwCza6886jxR11cK8fIUOKaG8OI7uc/1oRbqYNk +cHjW81gM9XiPttiDXjLkO0zMaKHOGl1/bE4kg4Zie4Mtararl2KVW8hQeyRF +JAR1hFHbRdYGMvQFnp3NRM1REfIL+UGGWQ2WGTLqSufWqLelZFjiURSQQOvD +rOvh+n08Gdw1xZD/6kfdUbZL7gsZpl1c/b6hFtDU02bMJIP4bHHoLOpws1WL +4XQyMP5oYjyC1uff3DOPXiWQ4aODilca6utqcy9dX5HBrS7MahD1aISDzrkI +MiS+jf4mgtZ/PXvd5/lgMuhM1XTnoH6dWqSu70GGjic3P42i/ZNc+yNA0IUM +/AyaOipov9m3/7VbsidD71CRZQRqLLWIO9mSDPH2IWNaaP/yWBoJTmLIIHvI +MRxB+1uwRt+rVJMMx3LZ+2T+4qCqMudGhBoZ9AsuZsSjbnBvVlJQIEOd092E +2+i8uHrJTOX2YTJMnuBl+W/eBGcMJQwtkCDw37iSHTqvEo2yV2tmSOC4NcI1 +i9o512zxyx8SvHhBsPCfR/s3+n6Fbz8JNiiDK2kL6Dxhv5jCWEcC+viNuF10 +PpZsdbBwvyVBRhmXuzo6b3N3JvdWk0jgs1EvM4v6jemzqM44EgT80zB4h85r +U/0op9jnJFB1vJ7OtobW/5fkLSZfEpT63C3Yv4mDy06XQkaNSJB1hN/5LpoH +tJiGxDI9ElD1ru8aoHmRdvGcRpw2CcydrNYl0DwJEtOSx6qi60l3ZhpmxEP6 +7a2MNHESLP2deuq1Hw9emUNuGrRV8IjJ52ZC80qs5OKOUNYq3H/dHrgujgfp +/+ma33u3Cq/Kj5aqonkZSLvA0ZK8ChN5DRX30DwVcKGUB0SvQhsPveimFJr3 +CtoNrfdXQSk+3UJWHg+yuXyK1karcKk5NJwVze9u27RbKwsrcEhpjHfaGA8H +nF9bqc6swBX2gdBANP9dlKbi/SdW4JFSVSmPGR5+kaq3tnpXIIHfOdTYAg/t +MS6h29UroJC/ETV2FQ/yTRX5Q3Er8CCgPSoKPX901Wr5squuQLzvzXtb4XjY +DBg+mKG8Anc/faQ0oecX3+zddSW5FXh1wm8yJQIPivWGLRfFVuACPzcnNhoP +Fmk22o8PrEA1nV9K3ms8sDBPfnhZsQxnzgQGrKHnpdLlbK1olmVoH0/rcf6J +h0F4fGnt0yIoOxtlRB0kgKB6NFKfsghuUa/15DgIIGxTcTohehEi3uY0N3MS +wIA2InPMbxGqCUUBPIcJML2vZ0ZFbxGYRWpcmyUIsGVrq7QwvgA5Z76kwmkC +eLQyrzQKLUD22M9bfS4EKBl2SCt6MQcu1sfky5oJsMPcX84fOANmea8Fwz6j +5/OrfVwPLCbBbMgwIO5zMfxNFvTszhsH5iNWfS/nSsA9+0Ag69oAtH7kX+k1 +KoPC7DPDicqdwPlskmq6XQ4N2aP4/vUq+ECru4TMfAc727TRExPZmAmLY4Sv +1Er46jk/lipPxGgbeu6aRgNwjb4nnUsbwwhdvBS0q1YDeC22M3p1s5hh72ph +zEotEC4cmjy/NovBWIVX4ddrYXzuYMxb+TnM9fIUQWX6n8BEe35YP2EOc2TD +wk2f+yfQp7bk57jOY2ZYR0/Mqf6Eku8KVo2iixhOge9UlaCfoBzk4e3jtYL5 +rNThmcxTB505s9OOMSsYXc0PuYGidXDDWmMsrnAFo28GLXdk6mCO8tS0dBm9 +Xz3lGqRVB6eFuA1V769iJsQN6Y1c6oA1lpO68YqEefsjU7quvA463A1Py9BR +MVc/n74y5VUPscbM5GoZKqZBJNpf4lE9sHoGY8tMqRjkSt81r2f14FxxL4b4 +gYoheAk/0UuvB4VB16QBQxqmWtTcduhXPeiubSLseWuYN09X4vYrNsBkVBd9 +/u9NzKfKdRcaXSMkvbyrNXBoC1P08jjXmUONcCPlrx8YbWGe8T15miraCKIZ +fOlNlVuY7x5xytWajWhuud4wL9zGNLH1dn940Agh5x0u0FXuYqoFx/K9qI1g +avos32CQHkvAbz/6ztcMic5Gkjh2Buw+bFnlqkIzvG3X1VTVZcAy2t/CPdJt +Bm2+iaryQgbsk5k5cpR3M6jJ1rpwJDNi501oTFvEZvA08L4eTmDCUn4bb7Jk +/wKm7Ath93aZsBdfenybqP0Fd555f002ZsaKj57ZMBz/Bfce8ZjQlpmxFwp+ +i/eLtEDclMJy35UDWIGl7Ov171rgxGj8n5ftB7EPGFUeJDa0wgHEVNzdnA0b +yuP+/sxKKzjNPv3FPcyG3T7z9C+XcBsUkk+pEhg4sF0maqt4vzbgCaYLKb/C +iU0/4+OF1WyHIZFFhFbGic1PPZct6t0O8Rb/tmfFuLBB57uL2HLawWp9otSN +jhvbnsme1i3WAV9HEjM05Xix0wmRWSf5iUA0sxL36uDFStZ/14s5R4SiO32O +guF82Isil+f53IhwfSco2PUIP/aja7F9bTUR7hG81424BbD7Iz4OpC4T4dSu +U228qCBW6P24F6tUJ1w4+8BnMkMYuzT4/suJtE7o/tv05Lm0KDYzU/9I4kgn +pAYzBf9eEsPeLr+Zzi3bBVlxfd7UZxLYYf/WdrvALjgk2Vw10SaJPdF3puX3 +QBc09kVa9bkdxV4ykm2lN+yGQD2W9NqAY9ji6Tvx5k3dUN4kHdluIost/MhX +zOjeA4Z7P69iwxWxjvhPSKJqL/wfXweqsg== + "]]}, Annotation[#, "Charting`Private`Tag$4160705#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB3B7z+xCZvYIRRHHiNCQBopkloyIQl+7CFFIJCqSFdU9F2XV ++5DsuPbWkFLJ5Q7jon7n99d5PB/ncc7j/Vmvz1ve87KjDwsTE1MUMxPT/59o +a3tFrV8MVud62Cbk3iyEv3BXpT9yxiLslI3bWD9BWYD7lfMsxzGl+3yf2+Wn +YXxU94XBBXusgEPj3wDnFJTf9g1zjbfBVj54ZLw3m4R9Qekv9WessG0e1IB7 +zyZgONlxUIdsgYm/fdTSqjwBM5/lRh8Fm2NVsmKJtxvGwSz/uenrAwiWod4Y +VOY2Di/nxo13xptiTVUnL9XyjoPEsrW8z4gJdvKsXJBPyxjYJJp/O6q+H3NW +q1+MsxwD13aGneu2fdhY5vexdt4x4JnfNZAvZYTpsV75pjU2Co+vrGZFhOzF +Dv1e5Nb8bxRsRAl/Sxv2YNmjm8cWHUahWYIQ8khkD9Zram4nqTYKqRyBWW8X +9LGea3/zn34agVO+tb6sonpYVTRx2Pf8CNxJyNh/nLAbs7JvL561HAHUbFd1 +uuNurIrrl0aU6gg4e/7pKSnVxVoMI19W0YYhtrZBg59VBzPQ3DGnnzsM5sMa +8+/jtTHHnqR9xfHD8B8SIOTCoY0dVo1qqwkYBk59CA/dqYWNvAn2y7MaBmY2 +nQ8DtzSwozcjDNMZQ5BCvqRtyVDFjsb6aNAjh4C1hLXbokYVmzDaX3POfwjs +je9zXQpWxTw/+4kJuw3Bxt1g5feLKhipIPGjlfkQMN2kf+BhVsEwG6OlJ3xD +MCRDcX/qr4yVxlQmHXkxCOW5OQ7P9itjkkZTtpZFg1D8XYvjK48ytqB1+vfF ++4Pw0Tf41fRLJUzBJDPkQMwgUEuDU3NYlbBz6qA/e3wQaCQBn+lRBcyucmxJ +iGkQamNKP5G25LBnO1DvqpABSFBliw7+JoeJLv0SuuU3AHqy0az/dcthFy81 +Wlz1GADD3+ecPzyUwyiL85dTjw/A1LRT47cDcljPvIVFmt4AWOdc9rmtuhNr +CCQFPVzth6You/LGn9KYw/FDGx9u98OJqxnX6rqlMYVioR9Dif1A3Hlwgu+l +NCZQoFGxENsP+ZkD/bWh0ljw1H3JvWH94BBXNTfFIo1xyEZWabr1wyM2bXsL +nR2Y3J21C7d1++HLt9uWcnVS2EkL+qD1FAnY9k0dTn4qhfE4VdgajJJA5ND6 +qkK6FBbESJNQGSDBE44z8n88pbABbE+gdAcJst1NlTAhKYz0x+yPZQ0JJMJ1 +LDvCJDGWHa5wLZ0EMcNFnJZnJLAHAm3Nfy1IIHozPkjcTgJ71zOJppuSALmW +O8a1XwJLDQxY3rmfBJOEWDXb7RIYh4ONwdHdJNBf7bLQmhLHrikLl5F2ksA/ +jL3UwEccm3r95UInow9GVx4liqSKYXdS0sMlr/bB+eI92xWjxTDZu5+cvwf0 +geaDoTWbYDGsjppVW+fdByyWkeWk02LYQDZP1aWTfXD1nmvGqJIYxhBkUmIx +6IMoRyONtFZRrKE4OplG7YUzqeymJsKiWEzJAiHvWi9sia6OPGcXxQZehDCM +gnohTLEgXIMhgrFpiy5P+vRCm9hZYc9ZEcyxlFaveaoXXN703X/yWgRb6kjP +WNPvBUtZWvCe8yLYTOCnGF3KR+Dk/Nnx+t02rOqBb+uX4I+gz+zlNF8kjLE9 +87d+frUHKCyEjxYPhbErgZ6514J6YHlq+1JJljBmkhyQaHWhB6R62OiJN4Qx +IRs59TnnHljqPKZR6SOMPdsK0ttn0gPqoRbGURrCWE/bho0aaw8YZT1vJTUJ +YWOl+lyiWd1AuRRtPf9dEAu6Gd+dVN0FVgpfP0lNCGInI3/fEarqAt1NHV/n +j4JYW4BqTP6zLii7UjG1US2IBXTnjtXc74IUz8vU8XhBLIE9xo4e3gW/qbZ3 +Pu0UxJ5+nympNOmCpkxVgXhvAUzaV2Jitq0TTPeWcerx8WPJri/9rGY6YHhV +//UeFn5sJDvUT3e0AzQXyh+Yr/Fh1xpSD8mQOkBZ5GV7yDc+7MFLw+L15g7o +DfOJ0HvLhyVn7mxuKukAGbJiu3owH7apOOoeENgB2goHf5VP8mIJ/2pmL2+1 +Q6Vv6reqNh7M1DpqmFOuHWSXX1SobHFhuh+cUhPTPsD0Y/urJQ6cGCH+RELj +9/eQwfkm6vESO/aXNYjFOagFghBK17EGNqw75HGXvVAzTDjH+p1IZsW8y/e+ +kHUBYBQUcvfHs2BMZj8u7aY2wZERVPpUJDPm6nXxc0Z2A6CepQncSUxYFv/N +mIXYOoi/p6455PYPGHHiZac7X8O+1ITO6Sdb8MOStdBKuxb+KhuOxuZtQYHo +5/EPqrVwpDR8QOHeFpxLutdsp1gLcz62d/yTtiBf6PhDd8lakCNwsnEFbsHI +ZuvlWpZaUOE/rhuwfwtkvrk8Eh6rgQ/Oz+YnhzdBDFLCbyfWwPkL8WZagpsw +q09ujPldDWF7HhDjuDaBw5n+Jfl7Nfg5ObMMM2/CcFyNQ+6XavAYVTeIo21A +VZorZ/NoNVzkymr/PL4BDrY7B2xaq4E2/f1r57MNSLY9VqTwuBrOj3IQ9xhv +ADX+kCzvqWpwfFi79dRgA/69eUB65FANRu213MLaG9C2oNFicLgayiPM3Mly +G3A3pMnjsmU1XNcrma/h2ADMoD1ZQq8a3CZz3ngOMIDh57hLX6gafAgPQi0v +MeB9dTsju48ISUGaXnNeDLjjHcbc3E2Eizz3KbfcGPCk2F10uZ0IOcTJP70O ++Pedp93cMCL8rdpm7m3IAJtPl4J9UdyGi2glGwNuPw4w3Z9NhKNx0enlT9bB +N1YvfM6VCJshHexueevw46iKQZYL7uaDHNvurYOqbzjZ4jQRLGbWCqKT8Pcz +tu6EY0QwqTXmPxu4DqL6seKNFkQYsmc7o228DnxqHeF31YjQPH6iYffoGjjm +5WbqMlAoSBn7db5/Ddqp9OK0VRTkDINjMrrXoJhuq7BAQ8FvX1HPEqyB+C4Z +j1oyCpTITHpt+RowzvtMBs+h4MWV/Pf49TV4aCDhcbsfhRfSvjIfZdag4Ijj +ffsqFLZFcxdxSq6BScrJw6LPUai77n7NYtsaLFWweXwuQyFjmUW0nmMNwrIy +ixKKUYi8cJTvOXkV0qgWV8gPUXAvJF5/2LwKdmvm836pKMi8LH6G+qzCucSI +rhl/FIrIj+si3VdhL+Pe899+KAgvkiUtXFbh15tLgZsXUOCZoDcOHl4Frm3w +QM0bBcXJo5EM/VUYnFQMI7qioGNcb3aKZRVmtAZeRB9F4cItlm75zRUQYaoK +6DiMj8fL/MEifQXYUTKrhD0KCSP8K8k/V2DeQ6webFAI1fpThZFWIFwmSMPM +HAXlSxURxk9WYODQv3y6AQrGv5JGePNWYKNQJytaH4XK90oBU1kr4FSnfppb +D4VbeVImMUkr4H+9z0pTB4VPBUZurYH4/9LmK56o4fNfYytxxmQFeJyVN4x3 +oiBufrtEa+8KKKkXRzHJovD2R7QHs+4KqBRwNHdIoyARuOpeobgCmqZNd723 +o3BiqsNng2cFgsWSdneKoXBXrJ67bJwOfwt//zrIjwL5++zA3CAdbokd3unE +h4/nplWjUi8dgjO9Mv15UchSK/nxtIUOgiKBmo+5USj7MVFYWEmHcy6jWuoc +KKwffn7qcwkd9h+ZMTvFjsKeyhfKcoV02MfOevsGG75efxzECrPpkKZ0uusn +CwqGPNuUi6LpwHTyz9TUPwJoa6WUfAmnwzrxRZk87uqrhgcUrtDBizhf6veX +AEahJoRiXzpYGVxHWLcIcIPClFt2jA63G2r6XBkE+Jdp+37elg6/c2lajesE +8JPuZ1G3okPvK5YmadxfdzytrzLC63+n6/NzlQA/40LXiPJ0UNJxnyynE+BY +0wSBtoMOcy8LyuRw906kRewVp0OUK/VxPo0ATt/H9Bt46MBhf5cvn0qAa9cP +Hm6h0gDpJQ/AMgGelhiFsC3S4M66zw8H3PTIpCLreRrMGxkpzC0RIJTPWKF7 +igaNihlcErjzrWxzhj7QIDHL41bhIgHa3jtySWA0WJDif2eHe3NHV7xLAw1k +lB3E1/7g45nmS5l5SYP6C0Zqrrjly6bF5Cto8EWj8us23Ck8KuVexTR4lO7Q +2LNAgIBp7cn5XBo47fzYbot7Gxf1ukYWDZa4Qhh8uL0tjGWD0miwzPrFdvA3 +Ad7fTG0lJNEgXutGbQHuxX6vQGocDb6mvDXxwz2x105y7380uMy2MmOEO6IL +a424io8/OCufF7c7j7/cXz8ajJHTPRp+EYDJb0+FmzcNHhB+iufiPv3j6e63 +52jQ+vfqh2u4U/8dqJd2wevfVRTggntNP9Ms6gRe//lxXjPc6wIqrZNHaFDd +m/ZUBTemkGptfIgGUbFquiK41bkPtj20oAFboEwNM+4Mr68WDBMa+EePaFF/ +EuDxxEKjiyEN/iW0FPzArS5L1q3fTYMUk2NMn3CzzIUWSWrS4PmpX07juN8t +sPNH7MLn35e5eAR30bpO6KgcDQRWmL/83+dGogb37qDB7WsuwhO4106Ea+WI +0eCA7VX9z7gzbZ/H0QVpYPS2xfon7v3ZhT0neWjQI/jKjo57QHxOqIaNBqUB +ZaZseL0D9SxHRP5RQXdRUkEct4L/zbgr61ToexRMU8e9JEN/3k+lgnrYjloL +3Eldn7p1F6lg4JLk5YZbMqjv6915KjQqyf67jvsxzzHy4lcqBDw+disfd0Xp +z6Uj01TYGXNr4x1u3SPqP6pGqcAWoHd2Dncgf0E/7wAVOJnflgjg61fF6Hx1 +qYcKTO33JvbjVtE0i+9sw+sxUlz///p/bEo6qNpMhfKWUab/74/tkfXP5mqp +EJns0cmF76eh3w2mVgQqDJ8STLHEnWLf2Pn0ORXWzt3Tice9HjdHcH9ChSBi +rzY7vl8Xa5T53uVRoUrhXJI97p+Zmaels6mgsyOsJRv3rLTUm7FkKpz2nZ3T +wc9D3377nr03qDB1XbQnHrfRl+He7Ggq2BX8lz2CO7Ze/qHDFSr84MrvTCYT +wCqi16T9LBUO7Z6rEcTPY+/Lf6+UTlPhbll6QQTuVv9ZvgQHfH4lOj2+4fZM +IMebHKRCTk5pQiuFAHVnTx0maFPBb6Oevww//ymbp5j41ajw4EJd/y48HzK1 +vB76KVJh0+5ZUAVupr2kGAVJKghKLOu+WSHAnKXOZhYzFY5Hi7XT1ghgE299 +KGyDAvv6HVUf4HnUMP1fyCk6BeRf/5g2xfPL4uSCs8RPCpD+yFrmbBBAnJHl +n0eiwGr00ucAPP8Eue0yIrsoMPlPgqSO5yNX8tV0l1YKrLUX8y/gfvNkSECq +jgLK3IvBEcwoVF1wk8l5QgE9i6vv6/D8PXrEkx6WR4HzIj+EMvF8LsnULTpx +jwKESx2lAXh+R6sOhgjdooA+06dyLS4ULC4Ofb8VRIEzKXHLI3j+X/zYURB4 +gAJp87V/Pojg9/eqsb+tIQVErJsuDoii4KItzaa8mwKqU9ZyX/H7xcqsO2tS +iQJt83/MeSVREHh7VcSajwKFyeX7b+L3U8Gyu6zQ5DJ0aLCeFdqFgpRXxf6w +iGXoebMpn2aMwp/m0Bb0yjLUPTr+Zc4EheooHV5ywDKIxEa5WZiiYJ2aNn3R +YxnchH+nsOL3rZTZyQgXu2V4dv3I01JrFG5yPZHSll4GfT0nu8uOKMh6QXER +LMFFYyNLjgAU9j2lO4/UL4GbhkLo60AUupKTgadmCTLLXhz2u4zCdGXP4yvl +SxAkZc0YuYLCbi22B6aZS9DO36U9EInCq9M5HO2eSyD5rjHcJhmFEfbKMzns +S/C3hOihhvczC8FZgkl/ybCg3cnsUoFCYG727ZllMiz+2lN1uxLvn651zKaN +kSH8qogM4xXeb71bXpopIUNmBtllow6FIOvzbk4IGRSmRfPudKPg6ObgmxG2 +CE7jswwKBe9fUpnsx8cXQPmnhnaqHREKD12X1vq4APe3XGYvHiGCNjdrWyy2 +AEdlM1zsHIjg0M1TIF+2AAmxnklieL/Y8eKsjlPYAuTMdvX2eBChXXKwJ1lg +AW4VZtx8F0mEAkZu3qb5b3AwRaYqKokQ3JSeNfHsJ4wHHsr7T6Ia7pO4Gyoy +v8POv2dcd2xWw2sLwbp22VkwUPnFyNteC/OSbulGqZ/gi+H9bJdDr0G+98I4 +VI3hORhf0HnnDeTFg1HYIAmojXUFFOF6sA+Ujvq+vQV4bn3M0M5rAI8C16ME +QzMQnecWjPdoAocZ9cp45RYz36Yroctq7yCkcP++U+0DZqZkjwPHWDFYW4zX +a/eaMetesb4oLNEMZtNrCbvM58zs+EMMBdRb4N/Xe9zpDQtm7D++aY35vYcf +ti6VNSUUM6Kn0zXa21Zw5opmErqwauap0YsdkmwDsid9ita6ZXap1t+loL4d +ui4Ntr56y4Jc3spPvnCtE9RWpcy1+lgQ7Zb0+eboTghrhRfYZxbkTKm+tHxi +J3g7eiuqs7Ei3wyDFBbvdYLK8Xf6/IdZEau1bZXv0U4Q0hwiWX5mRei54Tw+ +i50gemyH5A5pduTgQqpkl38XvBziTvy1zIlU6Tg4forshpm4dboiPxdS/jbm +aNqNbghzyzS4q8qF6L/XIlukd4MNmxRhy50LMZHRTfxY2A2JTcVeR/q5kBs+ +PH/OdHQDo4R9wPkdN/LJvz/gslQPPG09iKy08yKvdgjJnG/tgbIMSWbyL15k +Js3wbVRfDzQa/GnZI8CHjLuW7y2b6AHX0BlN4ik+pKdU8eKu5R5wP7jtXOo8 +H+J6xWl8QPYjCBzHfpFlBZAhWmKVYPRHcCy69V42UAh5lmmfh1r3gtHVTCbP +G0LI9svbWIVO9MKKSaPU5zwhZGkx3iDevRdCl24YZLYLIRZhm9yPInoBbbFa ++a4sjGze1M5vqewFJSlFof/IwghP7Agvn3gf/H1NDNnXLIJUuZopIVt9oPpV +q6H4iwjSff6Y1wkOEkRQ2oixLKKIyvDMU3EBEtzM+Fibe1AU0YsIUe2VIUEY +LyH2Yb8osonYhfCYkuB4TlfONKs4cqtwgcydQIK9vwWN/y1JIi7sUlZBO/qB +43M2J01LClGM5erWUemHXImfh2wCpJCqPjXb7fr98DWp5CXyRwrB2NmPX7bv +hy2Xh7m7WXYghJWa3eYx/TDbMJ4vnCKDvDUNM2db7Ie2ywa+N77JIFtbb2wk +t/rB3Ou7d62FLPJ0xggL5RsA56ttb8icO5HrMqkc/JoDwGIe99rMTQ5JelRw +SPXyALDWNtzguK6AEOuSZWe5BiFjSy2opksBwWS5S8/LDoIm87Eq9p2KCIV9 +mBFhMAhfX985+m5QEVHi/aVZ5DkIAX3ap8bClRFCGzendMcgPPaecSeRlZHe +aCeLutlBsFegWtCCdiEPFzhr3JiGQJK/7OdkogqymGFIlTkwBFXSR0KG9NWR +gfd05+L2IVCS7Y66x6KBeLJJmhIWhyCygWUyfVYDwRLPpsxLDAOq1fLWZl4L +YVo5cGk1ZBhMzsnPLYnoIBej1Wviioehr83bWXy3LvL8eVx88dgwGEmaqrxp +2Y20zHGE6DiMQMAx2V1n6/SQiBLzYOvsEeiRFZ6dGdFHDhO/zEZ8GoE4nY7t +q+p7kODSqVsR+qPgHWhgXdy+F2HzPhJSljUKgcLlScNdRkjSMdmZJKYxENh/ +wk7xgjFiN41mpieMwWnGZ7k4hinybdRkG11+HJjb5uRhlwXyTDL2RfvyOPwP +XQ72hQ== + "]]}, Annotation[#, "Charting`Private`Tag$4160705#2"]& ]}}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["\[Eta]", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + RowBox[{"-", + RowBox[{ + SuperscriptBox[ + SubscriptBox["\[ScriptCapitalF]", "0"], "\[Prime]\[Prime]", + MultilineFunction -> None], "(", "\[Eta]", ")"}]}], HoldForm], + TraditionalForm]}, AxesOrigin -> {0, -0.4306807289133189}, + DisplayFunction :> Identity, FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "ScalingFunctions" -> None}, + PlotRange -> {{-8.955815089046379, + 5.4573291409938625`}, {-0.4306807289133189, -0.06583390760243146}}, + PlotRangeClipping -> True, PlotRangePadding -> { + Scaled[0.02], + Scaled[0.02]}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{"2", "6"}, "LineLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{ + 3.887174806703617*^9, 3.887174840687421*^9, {3.887174885053684*^9, + 3.887174892708169*^9}, {3.8871749475866947`*^9, 3.887174977753584*^9}, + 3.887184952567544*^9, {3.8871853867115717`*^9, 3.8871853957260027`*^9}, + 3.893237607785204*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"4fd8761c-1544-4b9d-b5b4-9faa986a6608"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Xi]2", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{ + RowBox[{"-", + RowBox[{ + RowBox[{"DufDuh2", "[", "1", "]"}], "[", + RowBox[{"3", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"ut", "[", + RowBox[{"3", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "]"}], + RowBox[{ + RowBox[{"-", "1"}], "/", "8"}]]}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Xi]6", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{ + RowBox[{"-", + RowBox[{ + RowBox[{"DufDuh6", "[", "1", "]"}], "[", + RowBox[{"3", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"ut", "[", + RowBox[{"3", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "]"}], + RowBox[{ + RowBox[{"-", "1"}], "/", "8"}]]}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"\[Xi]", "[", + RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", + RowBox[{"\[Gamma]", " ", "\[Theta]0Cas"}], "]"}], ",", + RowBox[{ + RowBox[{"DScriptMCasD\[Xi]List", "[", + RowBox[{"0", ",", + RowBox[{"\[Gamma]", " ", "\[Theta]0Cas"}]}], "]"}], "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", + "}"}]}], ",", + RowBox[{"{", + RowBox[{"\[Gamma]", ",", "0", ",", "0.999"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "3.3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1.6"}], "}"}]}], "}"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"PlotPoints", "->", "50"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*StyleBox[\"h\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"|\",FontSlant->\"Italic\"]\)\!\(\*\ +StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*\ +SuperscriptBox[StyleBox[\"|\",FontSlant->\"Italic\"], RowBox[{RowBox[{\"-\", \ +\"\[Beta]\"}], \" \", \"\[Delta]\"}]]\)\>\"", ",", + "\"\<\!\(\*StyleBox[\"M\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)|\!\(\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\ +\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"|\",\ +FontSlant->\"Italic\"], RowBox[{\"-\", \"\[Beta]\"}]]\)\>\""}], "}"}]}], ",", + + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "14"}]}], "}"}]}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "2", ",", "6", ",", + "\"\<Caselle \ +\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ +\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.875952981547227*^9, 3.875953205695381*^9}, { + 3.875953297097693*^9, 3.875953297193099*^9}, {3.875957011270492*^9, + 3.875957047134419*^9}, {3.875957125424335*^9, 3.875957151767858*^9}, { + 3.8759571836897497`*^9, 3.87595718748908*^9}, {3.875957237810454*^9, + 3.8759572647954397`*^9}, {3.8759573310521803`*^9, 3.875957359900523*^9}, { + 3.876209125582448*^9, 3.876209130718493*^9}, {3.876209246657913*^9, + 3.876209255553268*^9}, {3.884690546688959*^9, 3.884690577225401*^9}, { + 3.8846907201244907`*^9, 3.884690753852927*^9}, {3.884690875959548*^9, + 3.884690937551785*^9}, {3.88717520576867*^9, 3.8871752589375753`*^9}, { + 3.887175361564186*^9, 3.8871753678913107`*^9}, {3.88717542408533*^9, + 3.887175425325357*^9}, {3.887185406738522*^9, 3.887185422722349*^9}, { + 3.8871854939327173`*^9, 3.8871854996999493`*^9}, {3.887186514007268*^9, + 3.887186516174284*^9}, 3.893237649954227*^9, {3.8932376911772757`*^9, + 3.8932377173060226`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], + LineBox[CompressedData[" +1:eJxdlnk0FVzXwK8pZB5SkjEkMkTIQ/aJVHhKxmRIZCjKEJIImWeSylAhlSYZ +HuWaQsbkypWpaFBEiju6E5f3fv9+Z62zzvrttfc6e5199qDsE+Lgx43BYIic +/X/n/18CgUqibFNlCBCYqlHEAWhGTMSzTfdCvNT5VEWcHfye+u/whulBiDtZ +8V0B5wVGwbt9NpnZw9vPSdY7cCEgvGQ+rGLmDZN71JYkcPFgEZCeXWgWBhId +CtcWBvMgy4PQ6m5+HZqsjo5aDJZBo+ceG1tMAXClbFh/yKuF6WeSAwx8CfR6 +yAg/uoOFrR5TQfjeCihSEZovM+mA80jxNRQ+BlN1i/+Gorvh1qySf9fO51AT +5/lZIrgfdCs9J0S21QKXx83xyfpBYFHuli4/qIchCZma8yHDYDejYRQr9QoO +DRoclfMagb3DGB3iUCOEdYWJ9kaOgs+Tw1ZCEc3gYz/kJO0/DqNeh85OqrWB +5R5P20nrSUiQt2mekO0A+bM2PumOn+FuwfsPGUWd0OXoP2RpPA0nktRcR451 +wa7tG8626CtsWrXFG27pAbZ9ejUofAdfkZTyhsle2FCdCR8SnAGXmK47W2f7 +4XOlZ/AY/w+IzhBckyYNQAHwvKum/IDtP9/1arvioFtvBPGTf8L5SIl7bYsf +IGN9f3jr4iwolIypm1nhQU632WTLyBx4EETSPcZHwM77ZOXVwV+AvWVLVLg8 +Ch/SNnr2vp6Hf91EklZNx0HGVr+5vHQBfEq30in+k3BZXyfN69ZvaL1zb9ft +hs9gfFX49Lv4RXjeKH2DVfgFtpU9+iWd8AfOb6KTtS99B7xNf9tc3F8ovmks +9vLQD7CnG4hHhi4B/6uHyzEPZ8HiZdWQeOwyFDx7FW77chY+9pqf4UtYBmHn +kBoV7Cykn230ZCUtQ2K2fcjCew67St2fy1qGt4dlpEYos/Cmm4U6S5dBh867 +R91qDh4r6kTmtHD0m316ZZbnIC7P+kvs6jI0KzkoR7vPc94jKv1jLAE8GO8l +bQPmoXzhrf1IAgGU45Jld4XPQ7RPfwU+mQD7PRaK2Znz0GOuN4nPJsDlbWV4 +tZZ5sAjGV0/eJQBm/4m2YPkFmLh2KBrTRoCLpbymhxYXILBet7iVTQC36Ijy +008WYbM6uzkZEWHyMKX6AnYR9i1VXe22IIKICBzN6l8EFuNgBa8VEeReraWx +FhaBR1teLdWaCMJ6ZpiHmn+gfy1ROteBCP96e301qfsDYxbP1up8idA6J/F9 +3+BfsDu++/yxDCLsVbxZbYcIkPxNAEv8SIQIkas/ME4EOCg581JtnAjuH6SK ++wIIMErrl3ef5NzfOiV9O48AWIU5v75pIsj8ebfN9DsBQgIPvXw0RwRnheTA +Hxw/ZbOxxdF0IjjQel6EkYjgcfzXaKIcCfCaTxN614iQZGD0o0+eBN6fTqRq +CJAguJAZLaJEAofhpARpRRJEWHvZlqiSYHLk3MvcYySI2xWd1qzNkW8aTFOq +JkGKSi5tCyJB5YGrGoFRZDjszh12wI8EGcPxN2pTyDCsyk7pCyBBMtcHy82F +ZJA8d++kQyAJ6myxcoxaMkglPt8XGEIC35fz+M4/ZM7/8SU9iCYBzbUqSM+P +AnI0hrNJLgl+sXwtnp6jgujWOG0uLAmqO7cvP42mglBj/fjDZhK4KhIvdmVS +4X7n8GnrNhJcefil5WA1FbIcborfeksC/+mii2EUKvQv6u8wxpGA4hbPxiWv +QM3Anj+Pf5Cg9aexgGobDeI74u+bi5JhC/8ptXUOi4bfn3PnsHl+aklgJw1u +siuz8BwWtHRWdhymwecAq0m8OBm22xc9vP+TBsz3VUw/KTLsKN07nbWZDs1r +Woz8bWQg72eN95yiQ/+/YvxkFTJUKH2PJLLpgLnemDljTAa1+BAfIS8m2Oed +vRfvQ4aE9DNTNpeZsEXvpqu+Hxmu4MQ7anKYMChwYtevADJEnWpR/9PKhAPD +D/nsL5Lh9KOIbfryLNBGOJLBFTI82jGUbD/HArsWDEU3lwyzE43epbfX4FG3 +V7lwCxnKe2TeNNSvQTSXZOd4Gxk+XHp1Z31oDTBcgUoPOjhxqMdWqAmw4WZp +/gOzXjKwc+XjhmLZQOX5ZzEBT4babzsJqyHrUGB7AR1dIENqxuqHEYRBvZLS +Td9lKLCYJy0S5IBBXU6bK8dlKWDBDq1W9cUg/2pV8aEdFFDWjbrOTsMgw1Nl +1zpVKKBU9+m+HR6Dvl+Z/tOsQ4HK64Fm7wO50M5OHTfWYQqEgjhhWys3En/Q +RnhzhaPfHLOnYJQbGXVaW+vGUkA85La95RI3irXMG6uIp4D62bu7TyjyoJuZ +BndyUimgkn60SCOVB1UnzRsnFFLgVS9OM8mLF70x2vZtrJYCruElt8ZjeNGJ +zOUrQQ0U8DV43RJcxIueFnbl8mApkK9+Zil0hBdppWRZmLZT4ER9bOOENR/i +rqh3e4ejgKxUPpf0kU1oNKIH4/eHAp/0TpponduEWlyIY6oEClzFveErytiE +mnmfxc2TKcBVO2kZhduEPJNWfSJZFIg0e0MMOcWP9vpnqjYIUsH3r1NOTJIA +OhqUYdylQQXDAi48n5YQyun9GnXqPBW2K7e35rkIobOff1BNLlLhwvwF/4JE +IXTxS2aDfBjH/kLRScFpIfRqSl+WcIUKKfMusZRCYWSxW9W2OZ0KT8MF0tKV +RFHfvVRgPqHC81tHWvOdRJF2Sk+OBCdvOk4HEA0yRFH+a+ly7ToqlGS4JTpT +RZHwfmXDsCYq+IdcvWk3Iobive6p7Rqgwk78uWL8hDja7fi8weUvFfa/Vnvu +TBdHP6Xc+2uIVMiv2iwNWyWQQWEZElmhgqWK+1ZrVwkUZWGcPcamQsLAi3PB +3yTQjlzz8btiK1DWqW/bzyOFrAW4uCT2rcDZmlDHmVdbUOU1sSZiwgrc6Z/C +3lrcgs5qJFu6p67ArZhQc1UlGeT0e+9WXNYKdEloXP+ZI4PqvN8we2+vwKX2 +JwJxEVtRYm+Ht0z1CgiK3TA/Ei6LPs4cEDGdWoHuOlLoYawsiq8kearPrEC6 +aO/3xHVZdGrcsXb7/ArsNtCL/5i7HaWfip5WoKyA/7JG49t2ObSl3lCwWIgG +jdZJuGNBCmjAGTMXYU4D+rO/47H9Cqj0YaAClxUNNhU7Hc7ZpYgOhO9rLbKl +Qaqeznz6H0XkncD9ZdGVBpvfX+u36FVC5sVRTMUIGmCpW7O12EooGDtTKBxD +gwLaeqqFoTKS6D6psimRBlWRG/cVnyqjn4wnJKV8GlB2JPE/K1dBQs/tu1df +0IBmaLdZ5ocKGph5be3SQINH5bL6PGo7EUv+QWV7Cw2eZvs/L6jZiQTLK2bb +Bzh1rIuHG/NJFX3MNgqJ+83xv1xVYjlzFxpcbRcw0aRD06nr2Mbfu5C8Qq/7 +NX06WGXPf1qz0UDDhs/WRv+hQ4uGF9Nly25ExKVi223p4Hz0vvu2QU1kF/wA +mxtMB3qFNzP5oBbSu9HGHx1Fh4MPLhYcadZC0v91yF5NoEOViBTL5fUeFD+e +l/K2gA5BQecL2qZ10PPbWn4xWDpEBdXilkN1UcFGdInmWzrYVk1lTfPqIcWa +Cb6V93SY3u4pRnmoh8xKKrZ9/UaHPVZErnA+feTa/AUrLciAxTufqwT99NHv +wv9466QY8KUfpzvbp49SmjA+wQoM6ChtL+ArMkD5o/sH7PYxwGQ79QDB3xCp +YN4V9Xlz+EJ1Y/acIWoedktKvciAZqMiPuY5I/TXMjwwOJoBjkZmN6zijdFj +pciVthsMsFozefqXZIIYx/sjE7oZoBoYn69e9g+6K11x4TmeAZJKDZ96HU3R +LyNq8OZvDFhwMcfzjJkhsoN5QBCLAYnlp6PXVRBqvWbRtmTAhM5SsQnf+wh1 +hqlrLVkwYcUv8eiw4kFU+Y9Gk54DE6oKJB6dMbJAGfZHfHPDmNDAKHK7NGiB +jimoU6uvM6GJX3PAN9AS1Y5q5u0oYIKEeF2YVcch1NE+fpfyHxO0hZrSkqOt +UOFq4pxPDxOQkUCs9YHDaN9dnyWdCSZcSshmDM4fQVmXF04vrXL60sXoUNKc +LXKbbPFLtmFBzmDO/ezVf5El/3rpsicLlLzPhb1QOY4uZXDG/zAWYHEKBr+c +T6CVORs9RgkLPJ4RX78SsEdNekYPHGpZIKxbbbzUZ4+Ci6cI+3tZoBjl/D0l +1BGZkIifeyksqD5p2Nbj4YSGMuLH4oRW4eVb7w1jd2dk5BWV9nPnKlC1dEUH +b59EgQX/zE65rAL9SXt1w6QrUtE8aZEatgpqLdMSV4zcUNFIN31zzipMRMjp +FDp6Iied0fgvvatQxYOzPy3nhRYxl4X/nVsFSXF1mnj6GRRjNj84zrsGkdOe +8iJ3vZEIjdxXoLYGEZJaXfY4H2Tw8+vZO0fWQPSAk4+5ki+aKXPrXg9cg/PV +/S9FSvxQhLKe6a+8NUhLYxpM7TiPxvOfzLd9XQOtTu/Mj0ZByNaoXGid02fx +GLGm6JKL6AN31YKXIRvkEqm6Ulqh6GOaeaqcLxvO/Uq4SmkLQyUDa/iwW2wQ +vaDNdLsRjkJGmLdfvmPDi1kDPdmGSBRR78KvxbUOWsdtuLNMrqAfEcUi9mbr +YH+l71GAaQyqNhdvKItZB6b2mN+l6TikTY6SqWtfh+qrCrXHH19Hmg9Gcy0E +N2CFyNB7F5CMZsWU9dGpDdBy5K2r+ZmGan/j3cZqN+DZgdV0m7PZ6P1fSuFb +AQwn7z6clt9zA13nF+N/Yo5Bu8oKx+wP3EIrbuZ9UTEYlJwkfKibuxSV5LLl +5DsxSN6dxIgcqkD5PIt+gZJcqM2Y8iL18RMk2TN3+W04F9LYjb5et6lHFy4v +csf95UKZ2Z+d6ozfoHH07cWxTG7UQZf9prZjCL2uiJR2COJBLSIH37u0/0KX +Q8e/Zf3mRQanv6rr5xLQ4ZndMXxn+ND/AI4HVkY= + "]], + LineBox[CompressedData[" +1:eJwVj3k0lYsaxrddZMhWpkKReRNRZg7va0chVA5CXYkkkp2ciogGYylkFx2R +kg5xVBIdhYrM0iAU0VEuShK+79uD4bp/POtZv7V+61nrUfVnuwXSaTRa+mL+ +343qNhkfDv7EhO3aai7+wjhW6V0zq9OAydIVojcn6ajO3LgwmlSJmZHyVJkF +HY1Swlv7v5SiWpvMD+GHQigfrHQhm3kbN7KNI5iOQkiTTfDZ3JaLM1Gimzyn +aGg6cXW//fRV/Hrx2gFaMQ0z+D71sjaXMcCmIv9BMA1XufbnyP5zEdk5jGzl +TTQ8fYQnUVGejHl3+o+X0Wg45iJR8bMvHvNfndGPKFqAo32jHx/0ncGVab8E +jbsWoPI4U3FwIhbNbFpWLGMswI6H1fiMEY2fUwL+Xd86D1khDKv9gycw6KjY +04AL86DVF8scNz+G9mWNmsI756FzgCiweHsUlSr/yJSXX/RPDqxufXUEWScT +96kPzgE98qVGuHEYBtgKyz0smYPmxgJrdDqEgyF9wvui5+BgBjER1HQQQ9te +bO11mYMBxZPrM64dQM0HPZdfq83B6Vcze9VEAvDSmE2R+7tZ2OPzknp3YR+m +vqzaHFM2Cz13/2ANW/mh9bXeSe8Ls9CrLGobss4Xz5JXXrcEL7JwdWTIsj1o +12GxvtRxFooivMz2a/jgd5mKd191Z6FbtE15xxEv9LTKveMjOQsNsy63rGI9 +sP6o/3zhewGkOiWXzJi64yMTowX3JwIY1xJRbJb4HUn/ldnTNwXwstqdkzu3 +A92NfHobwgXgu9c5I01uB6qW2nl+8hFAieWM5uNYVxRrnOm8byeAgf6RL1rn +tqHiKr+svYoCeG495Sa7wQmTQku9mSICKD42Hd086YCbOOY9iVN8kFtXwVN8 +tAXvnU7RGmnnw41tN375iW/GcSxjnU7iQ73kfE0ki4UhHd+yrU/wwSFHzNs1 +0RYLH003+wXxIb/OVuxvfUTZmAhOkwMfoso2RLmqACZvcLZbYsmHKg2T/qgZ +azRRDBjnrOfDmo50dlGHFcpl5j0pleKDj84j+aROS1zJVr2jR+cDL5Ht4Dpg +gccLCkXJGR4Y3J22slAxR6cThxJ8+niw86zl6RRFE0wvC5LSLuHBbc/29eps +Y1R6znQuu8GD2vKuseA2I2Q8zegP5fAg5qA9aXFtE9b5hHxOjuWBv3pRsGGc +Iaqo6JtLefBAcqzQ+jcRQ0zLMjVU38aDV4SPOkvDABfeBpr52/Jgxn+I+Bam +j0r7Y87t2cCD4ZKlTXb7dXE8595WNXEefC+sixqp1cH08Fp/IToPujumIrVV +dFAL7iXM87iwM7fF8dxPbRzdOszd/o0LbceNv59q0UQyQy/9t3YuRCdq7q93 +0sT3xNGH3AYuXDc3ujrXqYHlvUN3Omq40C55ubN0WB1PPJ1vqrvHhYAJob0/ +LNSwNrmZXcnhgoiYtX1dtyoSHWphupe4oOydyGAfV8WobC2bh0lc6F/DquDX +rMPlTj05QtFciLuolynVrYy3p6XmEvy5UG/glrfcQxGXMAOl+425cMpBIt/s +vQKe25H/mG3AhRTHXU05XgrY9ljoirQuF9yL1Zi3D67GEC/hD/EqXNBtnQmi +lchjuXSyq6wEFypcFMpN78jgVoYH8+5XCmLOv83cuV0GCyPNPsp8piA2ZlOb +L18a4x4+UUzpo8BlyYFqeU9pPFvZeuHKWwrYn36XT1RbiYHTvfYbn1NwbNKz +1EqcgWnp32e351Nw/jS9LylDEpf1pvgevU7B/K7UTjMlSdwutSUiN5uCv4tv +tcabLEfru3EWkhkUBErkyVnGi+ODI+bT289SsO7XGo97scvwWciKFscDFHCS +Owe6NJfhezFpYsyfgi/hpwqvvBLB0YvZahl7KVhxzPLNCw0RXNs7oDXjRcFl +Gmekc2gpKueOHRJ3pkBH/1e04NBSDNsT5j2/hYLVJj8i8vPoyPJv+BJoREGp +361LCbvpaBjqbBtqSEHx9Q/9yQp0dBE97xupT0HZh4vVb7KFsGrQOfOmNgVd +LNE3rQU0pE72ypiuWWRTj7+TO+ZgPIdf4y1CwY+wQe37S7mgYcR21h0goZDd +VH2ulIK2z4w72X0ksKbYcv94UFBztfu5xAcSnMzzVuiXkvBxbaY4rYsE45/R +K+IOElCeK3lCpZUEleGrdyMUpuGaiiLDoIqEkdQPf3qHT8C7Y+55dhwSbn2k +4/UlE9AesuG18WUSwvp19/pn/QBGutphZjoJauE8lm/9OFg/aW1USCXBp+U1 +10/vOxgl75bViCfh9oic7T7rURC79Nrx9R8k2Jybrc0x+wLerqYZHl4kiCt7 +nQyYGQLPP9NuPPckoahY2GHqwRBYl2T918CDhIq4zfe9DYZgWXDAchk3EhSS +azLoRv/CM/Mwi+ltJGg9O3x/pnIAHMyOu6/Cxf/CJRI6rF7I9c66+VaHhCg3 +8SMyX3uAoxpWc4pJQtquR+VziT1Q1ePI0dUmgbM2I76hsxvMol8FpmiQUP2p +eN3z0PfQVUH+tluFhAL7usKON28h5dZ5gbMcCQGnrFdEhbQD96Ojsjt9cd/q +VHP0uzYocdg1yhAiITlH2oxp0wbik3igbYEAkeHca0GrW+GLUBHbcY6AcDsl +w5HBJigL2uflzSVAr6Sr8kBlPdi5Jl55OUFAIxk9nvbiMejZOvz1Tz8BY1JP +p1THqyBfZOjm7T4CcmVc9UZXVcFhpZ3j6R8JcExMrCWOPQLLhajAw70EmEZf +v+6zrRwgC3NMuggopSq2pJQUgYpQwX1aOwFJa/QKmPAXMD7d9V1oJeAFe7dL +SHchGBTOGy60EOAySdCKpQrAK+GnGb2ZgEPp/9ncsysHWHGT8XINBDQ9SJQb +rcwGW7utEmvrCRiPr1bKWnMVQn825mu+IMBtwUFwRpAOHEb5hMUzAhwaVM0N +xlLBPrjrpn0dAc1JNMHcSBJwqFRvt9pFPyfUfdv0WUgMMJbxqyFgyUBa5bBc +DGx+qtoe9pSA/wG+jFnf + "]]}, Annotation[#, "Charting`Private`Tag$4175432#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], + LineBox[CompressedData[" +1:eJxdVXc4Fvz7NXrMbLJHMovMyHrvT2ZpWqFsopfMl4ykVHorpYxesiIricgK +GVFWiwhJVmY8PHsYz/Pz/fd3X9e57r/OH+e+r3POXp9Q+wtsLCws1B38b/// +qQoIHlNlqMK4h9m5EUVrKFIzHFNjGIJNKYb8XfEsEDk8RzUYNiBmquo1rOgP +2mq7h00ZzhAtWr/7i+JleKmV0xPPCADxJL/2OsXb4Kh7vSieGQ0/Kp+lnlb8 +DwYKB7Hx7Hdg99UE+xaFUnA5KveiWuIJcJhelq3kbARN3MjcjeZnYFPC8txA +5B20HbRtI80+B+GS4tyzV7vB3yw1v6DxFVBSLyhGnP4E26Pn/cT31UJMCLdb +2OgA+O1/EuA10AD2onP9Oo1DsKDbdqw9vRnkSqpNfiWMQLkolvs/1Aao9fiB +K7t/wOpJjM200TuI+nC5L/XDT5BRky87dqoLqglLp+WtJiGoKWSZM+4DOAXX +veg6Ow3Jgb8b6lh7IepAOMHh6Qy4sK69yXvYD3Gp7JD5aRZ+nt4v+SvjM1hR +r9wo5puDyuMvnmCCByD2NcakxGIebnzujjov+w2yHVTT07wW4PstlqZe9WG4 +ahIcmZ+6CBf+fKn7bD8CuCkBKeOKJZg3G82YZY5BHEcq3+cfy3DnuIzeTb4J +KA59YfoX6wrc322/cs9nCtZn7s6EiK7CA/Wf7/UjpuC6NpVXUnIVGqM3J5YT +p2AOT7bokl2FDD/PjajCKcjW0p0UV10FD3MhG/GZKVAcTuh+Z7QKnOn5pZY6 +04C7dbBNwnMVTtytZ7FsnIa5BBuJkfJVyFz4sL57dAbcPIW2SwALKc8/Zk5N +zYDrorAcpyUW8mtPdL5ZmoGkYxk+F49iISc6vyVhYwY6BvOdD9hhYZtrkPec +3CwoRuRtvfbBgjI+qMwxYBaaH2bd7UvCQpVcje4jxizcK6HH7fmEBciv59+0 +mINT4fJ6Nq5rUKO8HBZzag7OvTc9kO++BmJ2l9QZLnPwlHzPk+y9Bo5xZe8V +Q+bAizsxoThwDfrNpJsHs+bgsdr5Z5j4NdBTNr71dX0OfPHHFofy1+ACvy8x +o3geJAx9y4rm1kB04Na1oQOLcIbRvvPideCJnTw+arQIJptOcuSodZDJU7i0 +ZLMIiwRjvfa4dfgznE/Q9VsE5u+PxY631mFM9KFKUN4iRJ/Z33Ircx1iny8I +xwovQe95L5eN1nXokZZ+8YRzGU68czhZgMHBul1T/KLiCjgifYVaBxzc0WUv +q9dbgepI4+sMJxwUqP64lWG5Aq/UVFVsXXCQe+NEyy3/FchpNLGadcPBaCKm +TadiBQJW5H6K+ePAtayeY9hwFQIwZa33YnDgE/SCQPDAwt+CJ/Sr8nCQ1KmR +wx2Bhc9fTMXZC3DwlOs/R/2du6/yHDzp8gwH7b5v/umuwIJ75fda9jIcODEi +uqbpWChvq47xqMZBsw4ugjt7Dbo4BK2VunBwmm+oYs/KOlxYvnaYtIQDwcLF +iz6sOOBcprv/u4KDq5fr+234cBCoNEyRWsOBFwMzaaaMgyYhmyQLIg6uZdzi +GN/RqeZYrpq9jYPWtxl6y004SImLlvQQxsOVPfKHVVLw4L+anGtliofnvwWf +bubgoUrY6tbSX3h4WoH/PVuOh3NuipTkI3hIa/s7efEDHhQnA64MW+PhX7P2 +7U8MPIzF6ytessOD4HGNKZVIAvQoeD1u8MdD8u5OinQIEaJkfKmtqXh4KeJf +oZJAhMJP4UIBGXjoULHSsUkhgp0yqV8wEw8p7nmu/VVEELadk/fPxcMfQdlv +v3BE8DtaGyhRhoe1At9Ir1gShCa32ee+xYNFSM9h5TwydLROaast4cGSK+Gk +ZTUZdJY4BBb/4EEzyev8tS4yTJ5kfVmKxUObaLut7R8y3P7Rp6JGxEOqhT/B +yIgCkdG3/9Lf0fHBwux4wwQFTIKaieGiBIhYOKJDMaHB44WGD8lHCGBdZKN1 +w44GFvnMCj1LAqgTduE0A2hQ2PnRdcKaAGkYpc75NBqstpwS1D5BgF9jaryT +KzTww3JzzZwlQEdSxtODxXTAKywpBF7a4XNUnfHT3gRZt/yze7MIYKBvybhs +uwnmGTLhc9kEqNmL1ar124T3LrTY53kEwIZ+Si9/sgmvKg676RUR4NvHn91Z +mC0wy42561hFAMt22bej81swqwfvP7wnQPFcT+PnfgZoBerphxAIMBNjGJ2G +ZcCV1jeRj8gEcJJ+GZklyITNCVbOOhoBRG6n/Ah0ZkKu1HN1JoMA5m+Csk2X +mODyp6+khJcIqpPa+3OSWdDYfPnVQ8pEiC8JKBAcY0UiUyK/w12JkKMQcN1q +jRXxttRvd7oRIUIy7djzXWxI7WFos5gXEdR5rSroOmxI/2y3coc/EQxca4rG +U9hQa3fHHvVIIggmDE2L2LMjjouRAqceEiHdbX7yKxsGiWzVeG52E0ErM5a5 +IYtBK4034m37idCkIu7nZYRByiQT35zPRPA0ia2dCMMgGR7THPNhIij0xIm+ +mt3ha9EFy2aI8C+XtYP3Nw7E8zKd5+MWEWbJ5XNDi1wIDPBdWfqknZwfmh7k +5UaJs1SK6mESjJ5eXlPW5kYzrclBTSYkUFiXejscy43EuVgP/DYnweNn/P8G +C/GgSCG7RHu7Hf45IbkCe15U9SuptDiEtNPrKHhShR8JP6LcMK4ggVnr4MBh +Z370hMV+nPMVCcJ0ViVE7vCjk1U126OvSVAu5VB9aoUf+W2adFxvJgETuTqL +vxFAaet5k6Q+EshIpwu4NQii1fuFAsHLJPjzpFObZUgQfWox2BOIJYHT8Ft5 +8rogwu8LPxOIJ8E7Jue5kf1CKJf5OD6SToJSvLdFdrEQunmEnFjNTYavW5K6 +HuXCqPwZy64v+8ngbCwXVPNRGAW/TfzOqkUGT92B85fWhFHvuVkXIz0y5AaU +aSscEkFMWlJWrQkZ6sw3zGt6RFAldpz2/QQZroV3v1JhF0OPZl6nj4eSgZzS +JWv4WxxFYt1PaTbt+NDchHuXtASSXzx5zb6NDNwammqlDhLoiCdX+dUdnwqc +0Ki40iOBFj2YmgufyfCUYLVnrUkSKfGssrD9JoOyJb00/Is0MmuikKL4KfDQ +yZ1vSUwGRTzjrWUXpYAYVX77rocM+ubFXpklSYGRs5o1QUQZ1JaR/HpMiQKM +SwmGYRpyyNXAqKrWhAJXIh3LLMMV0OTdONvVQArws/ypP1iggOy/Wbyjh+3k +wFHnQMJXBRTfLqgkGE2Brdb45zK6e1HseWNNl5sU6GkJa3vKqoiuzCSuu+RS +IOTBYSfloX1IUkes0HSAAiWTLBFFwkoo0OvVkeURCozbbu8NclBCoS4iioW/ +KGAcJe64NaaEkthMnfRWKBAjd/eDKVkZpbhHFy9wUAEXNCljEK+GpHF3yuoR +FfZcHrf0/6qGqGpS/JU2VAixaGjyUFJHReoyijWnqDCnOdwzOaSOyM6FKtNu +VHDaGK+ssz2AArC0xqlYKoh847dtrTyALIblsswTqeCpb63GLaKBDvJZ42vv +UEGhcY9C3ZwGOuoTIdiVSYXS9lfEm6UHkbwwLji7gQrNkd18X2W1kFnfoeiY +NioQ/pS4Y7K0UIDoxv6AbipEmD5O/2SrjW4GRn+NHqHCw83Ofh03HdR577lh +KJUKjTNRqo8m9JD+4v59XGY0+POFQ+WngT7qnqDISlvT4Mzw1+o36fqoI9R9 +wfI0DRwEv35OdzqEsG0xY5PeNGA7LxOB3zJAF/W/kY3v0MD9pbI3LsQQrYmr +0IR3cjfcYXQuZs4Q/ZDL2c+RSwOJr5mGXeOHUeOB4CpUTQPmLvM6Nroxun5s +0EtynAa8i5DEed8EDewTwf2ao0GX99RxfiVTNIHVCelap8HN3kV/MT8zhO8s +ziVh6MCpzSR+EENookv2Erc+HTz/CRzniEboZabz8hrQIZOoa0P8iZBhdSf/ +9nE6RGpeZGbUHEHyYVLUTD86tEhYl2ukWSD7gKr8lUw6rDwLmzqjaImeBEvz +nSulA3aiaECsyRL5jK+yYerp8PBk/bfDW1aI/bYYSWKIDmKsgyJ3y63Rb6k7 +wbdn6WAeo3/My9MGxQvdCzEi0AGF5SqxLh5FI0cF/OOEN4DawG0i3XwM2d34 +vMS3bwOK5Al7vLJskcRrNSGC3gb0USUZHbEnEM8hVoumsxugMXAtjevyGWTW +KH+ovGADrH2bS9Wl7BDrusykSt0GzEQ+K0zstUPbhapY0d4N8Jxci4y0cUDD +5ItXnfEbcKRA1l1ByhFZ0ARTGzk2Yd6X2aix6YjG+LzMn8psQqjpaibb2lnk +GvWteO9Oz+WUt/7hYXdBD7DY/o/em/CiccCFqeGKJiNb/5OJ24T69JG+d73n +kejNZ7FjL//Xk2f8FsAd+Sl5f3fp2YRc4v1XHSMeyIjGkf5idhP2SWXJPjDy +Rh0+0xY06S24OCj+goB8UAKHZqqw8RZUctEx+d6+KJv067SJ6xYUlecVEvP9 +UPY/HuNJsVsw5dXBidu6gFSjrMs4c7bgo5e71rHrAaguifhkrHULOP1SKrMO +/o1EvYt8RGa34HpYF91KLRg90rdiN9fahgrMnYOJSaHI316096rLNpSdXvOR +lwxHYhFcDXU3t+HZf1t2xfkRSDF2112Jmm0IMBbYddstEmUhxs3Z6W3wfd9q +6OFxGdmZf8c4iTCgfzjDm/g6Bhn8uPug9SgDZg01GhyDryCpsXuO0YkMUHbV +ehNemoCMFC82rLUy4OeR5rhGSESXGZENJQwGRF0YXEhNu4m4LqlLG1sygYGN +m28JvI2+H+79HvyQCQOj/mnrxLtIYB4/pDvDBHMpGb784BR07m+RXR6yLGh/ +4wEBD+k05JPPdPp4igURC2L9vfCPkdaxqKtLSSxI7Qzt5T3tHPRLsIQh/Z4F +bcZ4p/A5FKKCAvcET15WdGJx4H7ifCm6mdv0MseDFSU5D2ar9b9CPD6bl106 +WVFR8T2bvspG1N6ZcF73Lza03+XCI8mKLlSv9Ho1YJoNsR/VquzrG0IsPHKe +yb3s6EyqguaXvDVUeP+0j+NZDPLq9RSEp1T0pMVgk5OKQf8Hv++MCg== + "]], + LineBox[CompressedData[" +1:eJwV1nk41AsXB/AxtqIkRiZL1lwqSciSnINsuTLShkJCKWvpVVFETZcspVDS +kOVeZc8WkVDhcgtRoXSzpBKhd36zGu+8f5znPJ/n+zznnD+Phl/YngAyiUTK +Fdb/+6zhpau5N1jYeK1v71mOOC784sf3qfyDh60cIw2CRDHkB8fDaP8zDNSM +wq5yMrqd/lb7nVyLtwf4f/mtJ6P3tB810L8MnXPn5ewbRDBfMKjT0F6El3z5 +ZWm+Iuj68L5VQXceijXXPrujIIJ3ZcwaHj7NRlUpUe9PAyQ0iv99MLw/AwN8 +FXylckgo304/NaebjsETTJnzQSTc0dOZIqhPxQf0vM8kSxI6MRpnKfuTsDhY +bLRZjoTJewwcDN/R0TKu4PHy4SUoVby1JkXkMm5mON9m3FqCiMNSdY2ll9C/ +ZkbHf+8SHHuxkHM2KhYvhiiZl1GXwDdJueDB1hjkDS1OTP8rgEeqmgXuJ89h +kAU/6mGpAMTkKWGBy6Pwsf3DXfRoAUQkzlE8uJH4Mm1obKOLAA5siemvNjiN +e9c9Et2rIQCOYi1vm2U4Rht2S0HvInRoBN9oFw/Fb7FtDxgPFyHPLmRY4f1J +fFX+tLWevgiHzGcPp04GYXC01b1A/0VwLDogK6VzHO0S3uRcs12ErVezmlrT +A5HR3syQ0l6EF+fEvSV0ArB4zcZLf4svwo8eikZbmR8empUR1PTwoXb07bKK +7COYlXeA+7iKDxbpMzDE8EWHtRLylVl8eB2gqcZ9cRjTmr+mWgbywab3iXzB +jkMY7Lf5Xv1uPgjKlN2W+j2xd92dwTlTPryyKnY55nwQUxejd0Wu4MNbB9KV +DL0D2J6081UJiweM2VxegfJ+DF2I+hw9zoMKZUe7EOO92LTBJr6jiQdXavb8 +/WS1G6pLj+XsO8ODMa8tQ7RAGkZXRitk+vOAU1VUlJXoig6S1xlWe3mg7Hxd +V9LcBa3TlS7UGfMgqkztwKSzExL1l+4Mcrjwx4pPj0zDHbGkpjr/6zQXZCdN +fGJzHTCgz3jcfpQLnhUeb5RV7FFCRVF3uJ0L9gbWSS0xtvjE0MtAMZ0L1trp +ifu/26BFwdH15+hcOCqwq7f0tsGLA2tKVkdzoddNOinlgDU63L9+/ZM/Fyi7 +BbmHVwG6xRFK7RZcyORPU37tsEIlbr1T2RYu/HCJkbkXuQNvx9Tpt+lw4WYr +LSKNvR0j5Nx2HZPnwontNzfM0szRcrnLt9hZDoTQVsf/qjVD+cuukXmTHNht +8nXVUXUzfKYzv3P8Awdys+IDL4uZIudVmkVPNwc2vj/BKhY1wfnnbT2UEg78 +PrDjh2etIZpWsco+h3Igh25yMNHDEIe7VFp6jnFgcsJT5iTJEM/u+bz5tS8H +RpofqY3u24Lx2xz0qO7C/Tcbn7eYb0Z1moxXmRkHvOV06fryG5CfNBtMl+SA +XWEUO+GeHvrWRGY+EuHAztKhqXcb9LC7YmXuTx4bbIOkz8jt1sWEANmVd+fY +kBxxmmdTo4PO0z0yFcNskLc6mMSc0cKMarWAtCo25BiW/udklhbmU9SNrUrZ +UJN0MZtro4WdHoU/eX+yQdJgdYh6niamfyxSLchhwwq/MdH+cA0sPMl3ufMH +GybbOsU7WtZh2uqDLfN+bGi7yVaiOa7DsTixj6e82XCkY6TuxBtVzP8c7Lnk +wQa9pZ4MqXkVrOgMaDZ3Y4OzVkmTnKMythw74mWAbMjuMRgmH6Ti8CazRq4a +G0olpXv1yFRcM5S+b50KG3psQy5wyhQRE1eN7qKyQSauWeG4lCIqVv5m8lSW +DYYOT12PDyqggci3TCkyG7alUK2VS+XRwStlQf0LC9JrP3q+05PFEsFdzq1q +FuxccSVairMKnRkfNg5UskA+ws2vPXcVbna9EkMtZ8GaVm1Nw3kZPFykD5XF +LKCvJ1LsClbim07bViUGC6ifi53WgjQm913W7k0U5rTkbMetkqjtw0wN8mfB +u+RI/l22BI7MVuw09mNB+OifyypbJLA27GMR2ZcFvs5UiZU0CWR3xdg/9GJB +6YftVTbnxNGtRFxa250Fa0P0Y+SmRVGr3cC90YYFTt31m7osRNAuv/+dpTYL +Qm1/bG+UFcFMMe0Ze00W6Iu0fzKcImFd2AvzveosOLRxWK80g4Tjz7I9z6qw +oCMqWVd7fgmUwyKmJynC3Ku3YbR4Eb4H266jSbCgPnuZhWMVB7I3PO42miZg +2/SztOdRHLC6Pdac9Y2A+mbm+wkrDvTsPq8qmCKA8s+WQcnXbCh8GynbP0HA +udKEmiyCBQ+DwswzRwkYlnhZLnKEAJPNY/7X+gmYGY8/8injF0gbi5tKNREQ +H69vXRfyC9oOVuk2NBLg28R5tGD3C/QKL0wHNRBw+0isZhZrAZYor9/21hHQ +m2Ome9JnAb6cL/lSXUWAO3Ug1BTn4Whm5tqevwhYb8AoIl+cBZx78NYgg4CQ +hm7/EtGvwLkf/GNrJAE3KV60j0NT8IfRJgPaaQLKc2PK/Sqn4IZuX1ToKQIi +bj2O8PeeAo/ZMkp5OAEVSkFh+k+/wPizG3vMQ4TzVh4y1U2ehLyYxqyLgQR8 +by0ffHVoHPxOi+Q1ehCgLqIkpuTzCTrIhqnVNsL7cc/ZCJ1PsIqeHMuxJmB5 +fHG/8ewoGBUqO6HQP+P/NeBdHIXYEJ5PLxBQbeQ8c6LoIyRM0qK5lgQEBY+1 +ksU/QNR6Nf8zpgQod6//LFg2BPobZnYJNhGQOKMh6OC+gQjmCFdbiQDpvJU7 +js53wcS2ba06i0zw43WN/K76EjLbdxVb/pcJcz2J/kN+z2BO5wblyxcmVNEo +IpUqj2CfqC6TPMCEtzWTzcMpeTB5lckyfsmE3xIUjCRs82DXmatHBS+YMLDU +sFZ/PhekEjcv6xS61mT32o4uBvz06eN5CR28oMWwvJwDfAUZOv05E5ab9v2t +r3obBsWC/zvZxoSxd28rtCvSgAUjdT0tTLD43prIrEoFz8qw9zlCk5O2hSvU +pcC0585NIUJnUms6LdquwUjwRJCM0PeSvm+c+nYVVP6lm7o/ZYK5x6Fo/TNx +0LfWdX6yiQm3tkjd16LGwnl+rVqD0MYZUnE0xwuQf9/1QrLQPAWN7V0V54R/ +gs8LI6F9XyrS32efApNlHxIuP2HCfafIZP+RcNCobdXxELr6qrFZpGUovHY6 +ztIXWnzKZaHk5QlQPZ/PJAvdVB4zHLTvGIzo22q8b2TCejlS2l9fj8JYnOr5 +MqHvBbEfe8f5QnqbGClBaLX0fKqcuSeEqi2vPCh04d0DaXjeHfJ/Y/O9hf4f +PjPanQ== + "]]}, Annotation[#, "Charting`Private`Tag$4175432#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], + LineBox[CompressedData[" +1:eJxdVWk0FfzXRVxDRcicZKqoVIRS7B8NlDJ7CpVHCEWkMiQJCRUyJdIkFSrx +CClJEjIkFBqIhEzXnV1TXv+v71nrrLP2l70/7L32UT7ia+POx8PD0ze//7v/ +f0a3pZRdKpKBVOFloZkuXTzLFFKJLlqFa84PZGa6dmLLnm/vYor0oa64xG6m +yx5lg6rmCUWmWG3xaudslzsq2oI8c4v2Y/3r44t4u8/gzFRRj/hzDxhpeq5a +0h2FoJuKtKLiQNA3C6Tt7U6F6uxd/ZTyGGSo2ud11j/ECZdbQpJeSTjHSR58 +MV4A+k/IFTvfQFHDy8pc5xKsdUk8umzwNgzvpC6uNS3Hz/Dih1kxWQifdWj5 +MFCJZwVHSgRHH0AmYeu6GwPvcPVzYr+fRS5WXEnICfhWA63acoGNl55A+avP +zSe3PmC726VviQsL0Hlr1HnznUbk12oM2VYWws2fuTDYrxkqFnZRXwKLoK2Z ++NREoQX5yw27l7kWY/jhIXPb261YdJwt17qtFNrM434+wp/B6+FVtdm6DHHF +EUyn1C+wtc9+l3TyFZZa/Yh5vKwDSuEKGmsiX4MTfNR6w9VOBBQ7xBf8eAOT +txT7AcVv2OHVvylU6i3y1XP4F974jmsf5Bw3e1TBZ/p75l3dLnzRKU6JrX0H +naMCJzjN3djV654YqP4efyJXzIRq9KD3QEF70qsaHNcX+9A+2wOvsJ57L2zr +8Obrbvfyml4M3t844LGgHtTylcHe8b9wTkd2TIC3ESQrm3X6WB/cw6J+G4l8 +RCPliZDD1t8obdytssfwE4K4QvfkVPpxLkBVRyClBbNWhlqZwgPgcXHu15xu +Rfq5XP+UgQHYVB572l78GdbPCr3O/RjEGe+cq76J7WhKC7/cVPcHzpJqA61P +O7HiyOCCT6VDSMheolbs+h1hqnIijdXDSJPTcb3v141lyqHGIfUjeM04ELY5 +rBsCG13LFzSPYCLE7/i3uG4Maa5XjmsbQXFSz+SOx924+CDkcdaPEcRKveor +GejGtIJWZyd1BHP0jROK//7Ed2lL+EuOolTXxqpSqwcBCmO/Dh8ahf5+P+m8 +7b3wfhzCsWSNgiT4LNm+txcXjNfsqeOOwjnCWvS3XS8e/OZmGM+OwmRH/3aj +o704K2Olr08ZQ2/Wky672F4UWnb4a8mO4ceMibVUSy8O1G56sW/bGNaf9TTf +5vELEf56n+yjxmDtV+C/vbAPfsk7uVXyVBw/UJm8pLwPCbcyVh9TouJJdjj7 +T00fDkWmxUqoUaGeFlX16kcfSp//7T26jooh/YrzI0K/IeAruWg5oeL3Dqme +SNffUE1WNa11p0LAXbhM9X8+2Ve8WfwfFU+/5Z87r9WP1ffN9nWVUKGlOCgy +aNCPinXO2vmvqLAxtPnda9sPj/fRQnbvqQiwM1ENv9SPvnPXRQo65/WN0reH +UPsxZf0zI2+OCkXrez5S9QOIZtRTnluMQ1z4qmDi1wEcZf2IVLQbx+U8/6YV +QwNQ7HNpjHEYRwIjISRUaBBG2ZQ6N7dxUAxnG9abDUKXYputfXYcQo6GzMyG +QQTTPrSsejiOaFOJova+P0hJe9gWPTeOrH2KZWs5f9BwKiAyjY+GViP5l5lC +Q0g/kbzKW4AGt5MesQ3rhsCv65oiu5AGzAVeOhY8nyv3abXz0jQ0r2mx7ZUa +hvxXY8vQdTR8Wb2K4+c+gvGc1HL7gzSUVnQt5T87Ar4KVpa8Mw1brkmynseP +IH9NfnqPCw3yW6RYfi9GoJcc+drXgwZ3nxoVh8WjKJ+I47/pT4PZHGVE/fUo +LPWtalfG0mAneHf2hd68r3a8xxRLaQhgR/+Mt6Si+p/PKoIvabggELroqicV +7bt7FRjlNJzUuFM6m0GFnuipLw1VNPgW6N+r4x3HT9k31+M/0jBTvpvftmMc +An5iPTYDNKTP1F9Ma6WhfIVdXZ80HUUh9wXV+mjIv9Kss1WeDjsLsdZmJg2/ +U9jOKYp0GJnNpV+SosOr9qLAXjU68iXvVZ11pEMzVKD900Y6eLV3rvs0TIeO +/82VOvvo+M5Xe0FiNRMue6NH/KLo4NkhqmduyER89nkfSiwd7GDFwQIbJqRC +GLK3r9IhMGt2XOA8E3715dNtyXTUn4l/86udCbN7y50ds+hQNKgMZSWykCbf +q/3lDR2uHqrJG7Q5+FfRf13WDB1WkR/r3u3jgH+LmOApHgaqeCWUbnhx4PZ+ +OGIXPwNhielPBbM4kKRJB7AXMhB9qLFQQXoCXKfS7lMKDLy5G7eFtpALy7+9 +iRMGDHT166oJruXiucc/y9lGDMgb/lX13ctFU8TBR2wTBtycTgvrx3PhsVCl +bm4PA5yYIp06qUm4cwW4m50Y2NyYKSGhN4VkByf6jnMMUD0rlrc6TSE4adW/ +Zy4w8NHfMYsbPgWlSM0tuRcZ0NBmOIU1T0Hj2VEzhTgGbnf9PHXPdxpaNi6l +GrcZkHktz3r3fgZOIvGiE5UMPAsPEfnbMYeCjT8fJAszoXM3ydZGgIdwSyLz +6IuZ2JPu8pi2nIc8CVn8zFaCCWXN40GStjzkqk1It6oCE6yIQhnpNzyEnbty +jL2WiaApR9beR7yEUmnC9bJmIm5FUAjnPS8ZrplsXvQPE79ib6fx9fMSiysX +bZ87MnFlpvvJbjU+cj+mI17cjQmfmOqg2kd8ZB326VECmWiLE+veXb2AtE4p +0vpuMfH6xpVtIsMLiI/Xx+yOLCa6Q16oWi7hJ2IdlJ5Pj5gIX+bL9TvMT4Qa +Xqz+XMjEBLUuwIVXgISvCalTqmHCqUBiQ4YbhcjpJjl8G5/X+2PixZdCIWEx +4y5abCY+3EOJcjWF3Cr/sCh2iokCU0WH1JWCRCzXPNNGgIVmL27Oe5YgeX5S +jrtZgQVjuU1dji+FSfAvz0dHzVjwT9VPOj8jTBr/iF58YsHC12VhvO0QIYOD +AaPTdizkDGwSIvUiZNFsJrXUhYUKg5K+cepCsqS6pCYnhAWXv28CcUGU3O3e +I5ZYyIKJDTV17qsomf0QIhrxgoVrKW2MG7piZPap9uawNyxQU8sEExhixLfV +oON2Ewumn1OVr1ctITNl/ygFD7Nwc/3Z/WvjJYjCV4ODTSvZMHbWOPyySYJo +WzxouKnFxpmrj1AvKknSHfONzuqxkeToX3I/VZLs2CPt6rmLDfET/hsaSpcS +VXXNWAkPNvp9fh9m8EsRHdGGES9fNqZjrPsk7aTI25wJVlsgG/d2OnxN4EqR +Xk/mud4YNko1bAzuH5Qhy0Uo6WOP2XCO4slvfiVDihbDtv/5PPaYsbqvKEse +utwRZr5mQyUod+zxkCwRdzU4YPOJDZMlyn8vPpQnZWmn+rQ4bJiHF9xc07ac ++AXtzfm1iwNzCAdePaJEqk22O9ZZcRC97X2rD0eJaK91//bBkQPfWeEuXF9B ++lA8p+LLwSWKnL70qDLxvPzsmEk6B7KZT60HzFRIJBllyGdz4O608ed4jgpp +dis5LfWMgy3Mt542p1TJ+i0ikqffc6BwV+D7ET11gsHOh0wmB22dch2zhepE +den6/Ik5znyfFtHctVeSvzituHLRBD6ZROx7arKKxFVcsxVUnwDvwJmv2bka +xCTn1kE+hwnknZKVUbDTJNSqkMsXjk6Akue9R5yyhuTdsBbTPT0BYZFf3s4R +a4nYgPhls2sTuFzy7x3GyHoS5x34waZhArLxYRfb/DaQPYn6ueXfJsDeqqwy +SN9AZq2rL50YnkBrQFpkjJA2UTbLii0W4SLtqpOB7B1tEkBZ89ZKgQs94czy +QUMd0rqwWpnM95SuELnVdX0TuTK29ZGGJRet9pI1wTa6pDKaP3KNCxeOkkpR +O+X0yIlNLXPXTnFhY5QRYtyoT8TmhE3S07k4axpmJD+0ldDrnV9oj3ChYVq/ +X0zJkBSaH6nq45nEfwmzP72PG5EouTKVVTKTWNn4wuJIDiGHMrY/ido5iSaL +3Ta3A41J5wpTzn+HJjHVdGllxn4TYm8cypsWMInOpf16xdY7yBm7c6sK8+b5 +lPZ/i/bbSWrES/p4aiaRHF334HbuLjI1Njhq8GsSFBth9UM8ZuTI8eFQ37lJ +OLSoGZUF7SbLVHRiChSnAJ4SKUcZc1K9Q5UpbjgFZsXSnoreveT6kPxg7qEp +fFI7LHDnshXZIvonpC9rCjvNX3ZseGtNHqdlP+WrnYKs6ZGeJEVbcqB8aGfF +6BRi6M2hlg/tiOH9W6u2LZ0GmzHT4uv6D7ELn0l8ZDgNnh7ptOHDB4jpIeN1 +2l7TqF9aF2rwwJHofx93kkqbhkh4ovK6XYdIy2TTQHLtNJTOLtLmW/MveRhn +rTIzNY3RKP5FsRMuJCF1RVnexhkEMk/GUeTdyJ/L9xxFvWdwOIKt+i73KCkY +9M57kjeDJLXDy1NqvAj/xpiZ1dQZREjf2M/K9CEpMVUl+/RnYfFXLt1C7yS5 +z0x5Jhc9i66D+o/f7z5N0j7ibVv3LNQf+5TesAoid1c7Oq6eT7Uc9QeltTyU +FLr/atn/9C+eS5VtjXwYQUR3ZJtFaMwhPSy9XUQzhthM7urSLJuDf+W53vT9 +18h/5oXGqRt5SJ1G+w/xoDQiInf4wr70+T/iqb6vwDuLbAjxW3FTkZc0/bda +3LKqgMQz3a0zWnnJNYm/q3Vdq0nr7uCpJaN85JKpfZaYdwe5IG2fIcnHT/4P +ohvibg== + "]], + LineBox[CompressedData[" +1:eJwVkHk41Psex8foaoo2e7bIUkN6JjWZiM+3HKayjlu2Ials6Roq4yhqKluy +RIe599JF6rR4GBdDIbJk63BslRnFsUQkW+Y3G+O6f7yf91+v5/163gbnGe6B +eBwOx1jP/3umSs3zrOUndHdg0/D5v21AD4qiCPRDlSiEsYFzeScefVgLrNZp +fILqbhPda93lUIua1+V9fv9CFcuWJvhWHNoySRv1M8lE+Zx65WlvHDpopeWZ +1J6Mekvc9j/G41BDWMBFn5Y7KCRxlX3z6hrUEH5h5YTHoUjqYYsGTAZby+rU +B7nRqK5Z0XHtngyGFGbr9eKvIpJ3I6+bKAO55FCOkncEyrlce6mmfxUsbTm3 +9nSGIc1Pxld+JqzCJefEp1eng1GZad0dbVgFewcKfaHzImKv0OQMZSsQf0SB +NWJ7HqX0u7kebFoBFtvqg7/hOTQ/cBRXkLICmgojuMoGX9SnbZ762WMF9MOe +91u0eKNr462CayYr0MwPlnVRPFEJqz6cIJbC+dz+R8mEM4ha/NzPvlsKoV98 +pqpv0BCribTIuSWFjVfGqiwJbuhRYWxNOF0K5edeMkdZzohVc04Fo0ghfume +U6q1I+qY/7mgpymFY88uxRWQTyJGyICsVSSBV+zmD+QgKjqTrDP5J18CAh6p +YeqdPQox8qjSq5fA0Bv1K5OS40j1YMkNUrIEKCd05fNaj6FJnIjdGS4BIt/l +5GwJQvrWbGcvDwlcM3D13Jpog9rvaPO275XABzM2KeSTNTI/PuOmryyBYofp +UWtHK7RcQjg9uyIGlZ+ZH6NTLZGXxiOnjAExHDp6ZH+q1WFUuI/7vrpBDDHZ +ZBsleTIqzWra/KBYDObW1SVLgxYIfzUAR0wQw/Rd3bTF0QNIPWyb9eAVMVww +ra1grpCQxCpUXTVADH89+bijqGE/mmNy7quBGPLaNlhPOZqj10sfz3TvF4NG +uLvUfcEMyfsEbZLoieHem6FgbgwROYr1jLJxYsigkvLYAcbrvoX23u0iOLl5 +ZsKFZYRCkncUGNeK4Guv9OTDYkM06d2ZfbxUBOq1C4eOGO1GT0uJ1QHZIjhA +zH4RrbwL0XDOSpNBIgh9UgbzP3TRw7gCpSm6CESaAV//+0kHERiutw1pIiDd +CvNM79NCu7/dfe5wdJ3f8M44wk0DRR4LuoZXEwE3hzoam6yOnO6u9b5UFIG/ +BUeAOtRQ9puxVyy8CFZd/k7HX1BFgSZNeZwFIZx+a1db+n0HiljY5IV1CyFq +oNSG6bcDKfXcMphqFcLy7XHx4MB2hHPqGJDWC0ElPqSi6Pdt6Lq3ztY0jhDI +fyxOuG1XQmXcrmhylhBoLT9mroMiIpE15s3uC2EoMvGFGXMzOtBDD4R4IRgx +d1c2iQgoUbiHUcMUgm3UdxrllAJKV5DAnK8Q+nJV1b0m5dBaiAelw1wI+WnP +LI9EySFV/RStor1CYLN6xs5ulENvjQcvpBuu79X1XJQdwiHZg0vd7J1CUFiW +42wOXAVl88DVywpCKD6XI2/wiwgK7Nofj4xh8CxLSugqF8KJ1F35xcMYnJZu +eW5hLASKSd+deD4G36TyA2WqGLQFv9L17cOg76Vf2UXtZRiT/VaX14SBTMF9 +kVa+AFOZ2imUpxhoOGyqjHZbgAScq0ptIQaSjEpc8+g8oPDbSdT/YHAjr6op +LmIOzPS358SxMcDhj5n+Vf8d/kmYtfVJwcBn0mMtbeMU/Mh05ldHYiCyJcvm +bk5CU1lUWns4BjX7QmiHxV/BR7FeYzQMA7XqNnkzbAKSzjDtiEEYGI0xj1Zs +G4dRCUFZhY7B6KmtameDRuC0QfLaYQcMMoi/mWbeH4bqpYh4hh0GTJ0gbib3 +C5gN181yEAb+lv3UGI3PkOGuKaRaY5Di8l4nfRsPOpm6a70kDGIDqbD7dT/Y +hfBmLHUxyP1R9XpUtx8Y7pA+poUBnrpL2pXQB4Oa/LSHmhgsUN1Nhs/2wmyj +gyth/UfGv19MFAd3w81CXqmVIgYUh4BII24rGHSU55dLBJDW6sZf6n8HvJgY +jRqRAIg3S7iawhawfq/X0YoJwCYl22njqWZozJrOnV8SQFkSj/V511twqFKk +x30XQNOirU3sYiXI5++ZiP0igH+0xI7ZPK0AFTPywd4hAfB+5YVq+ZfDjKHi +CJEvAOetho/tOjig37ZX99tHAWjQxm23BP8O+/oU5nJ6BOApDG0IIz4BFzL/ +s9KfAuCLxqV6WCEU1Tl0JXYJgC2jZvnSc0H2a1JyYqcAGIUFjfYkNqhDuq1S +hwBMb1D8rTQfQtCbzD+y2wRgydfdWW6cDjHk1L2GrQLg0q/HJEAirPo+OlHZ +IoD/AZPoZSQ= + "]]}, + Annotation[#, "Charting`Private`Tag$4175432#3"]& ], {}}}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, + PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> + Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"h\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ +StyleBox[\\\" \ +\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"|\\\",FontSlant->\\\"\ +Italic\\\"]\\)\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\ +\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*SuperscriptBox[\ +StyleBox[\\\"|\\\",FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{\\\"-\\\", \ +\\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], + TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"M\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ +StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)|\\!\\(\\*StyleBox[\\\" \ +\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"\ +Italic\\\"]\\)\\!\\(\\*SuperscriptBox[StyleBox[\\\"|\\\",FontSlant->\\\"\ +Italic\\\"], RowBox[{\\\"-\\\", \\\"\[Beta]\\\"}]]\\)\"", HoldForm], + TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> { + GrayLevel[0], FontSize -> 14}, + Method -> { + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "ScalingFunctions" -> None}, PlotRange -> {{0, 3.3}, {0, 1.6}}, + PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, + Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "2", "6", + "\"Caselle \ +\\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ +\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"al\\\",FontSlant->\ +\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\\\"Italic\\\"]\\)\"\ +"}, "LineLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, + Background -> Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #3}}, + GridBoxAlignment -> { + "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, + AutoDelete -> False, + GridBoxDividers -> { + "Columns" -> {{False}}, "Rows" -> {{False}}}, + GridBoxItemSize -> { + "Columns" -> {{All}}, "Rows" -> {{All}}}, + GridBoxSpacings -> { + "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, + GridBoxAlignment -> { + "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> + False, GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], + "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.893237708747595*^9, 3.893237717793868*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"f0d6a512-a16b-45e4-a62c-27480dbdbe2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"Evaluate", "@", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Xi]2", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{ + RowBox[{"-", + RowBox[{ + RowBox[{"DufDuh2", "[", "2", "]"}], "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"ut", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "]"}], + RowBox[{"7", "/", "4"}]]}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Xi]6", "[", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], + "]"}], ",", + RowBox[{ + RowBox[{"-", + RowBox[{ + RowBox[{"DufDuh6", "[", "2", "]"}], "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}]}], + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"ut", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", + "]"}]}]}], "]"}], "]"}], + RowBox[{"7", "/", "4"}]]}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"\[Xi]", "[", + RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", + RowBox[{"\[Gamma]", " ", "\[Theta]0Cas"}], "]"}], ",", + RowBox[{ + RowBox[{"DScriptMCasD\[Xi]List", "[", + RowBox[{"1", ",", + RowBox[{"\[Gamma]", " ", "\[Theta]0Cas"}]}], "]"}], "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", + "}"}]}], ",", + RowBox[{"{", + RowBox[{"\[Gamma]", ",", "0", ",", "0.999"}], "}"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "3.3"}], "}"}], ",", "Automatic"}], "}"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"WorkingPrecision", "->", "20"}], ",", + RowBox[{"PlotPoints", "->", "50"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*StyleBox[\"h\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"|\",FontSlant->\"Italic\"]\)\!\(\*\ +StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*\ +SuperscriptBox[StyleBox[\"|\",FontSlant->\"Italic\"], RowBox[{RowBox[{\"-\", \ +\"\[Beta]\"}], \" \", \"\[Delta]\"}]]\)\>\"", ",", + "\"\<\[Chi] | \ +\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[\(|\), \(\ +\[Gamma]\)]\)\>\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "14"}]}], "}"}]}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "2", ",", "6", ",", + "\"\<Caselle \ +\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ +\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ +\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.875952981547227*^9, 3.875953315769273*^9}, { + 3.875957061887289*^9, 3.875957104302837*^9}, {3.875957134472674*^9, + 3.8759571357521*^9}, {3.8759571703214827`*^9, 3.875957176129848*^9}, { + 3.875957284251436*^9, 3.875957289963092*^9}, {3.875957366732642*^9, + 3.875957382812718*^9}, {3.8762091878796577`*^9, 3.876209192631675*^9}, { + 3.8871754989267273`*^9, 3.887175499101399*^9}, 3.8871842906781693`*^9, { + 3.887186114918988*^9, 3.887186135551132*^9}, {3.887186188946741*^9, + 3.8871862078981543`*^9}, {3.887186291595374*^9, 3.887186300211134*^9}, { + 3.887186502030856*^9, 3.887186541775611*^9}, {3.887186589650141*^9, + 3.887186636184795*^9}, {3.893237725683463*^9, 3.8932377363942547`*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], + +Cell[BoxData[ + TemplateBox[{ + "ParametricPlot", "precw", + "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \ +\\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\ +\"0.2950910232179487`\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\"-\\\", RowBox[{\ +\\\"0.07674909089922159`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \ +\\\"3\\\"]}], \\\"-\\\", RowBox[{\\\"0.017576083976367313`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"5\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.0069902635549525935`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"7\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.003957033741436551`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\ +\\\", \\\"9\\\"]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ +\\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ +\", \\\"2\\\"]}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \ +\\\"8\\\"}]]], \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\ +\"}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.29442726651162515`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ +\\\"[\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \ +RowBox[{\\\"17\\\", \\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", \ +FractionBox[\\\"1.007010684856479`\\\", \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\"]\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]]]}], RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"4.055395711271589`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\ +\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\ +\"(\\\", RowBox[{RowBox[{\\\"Times\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", \ +FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\ +\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ +FractionBox[RowBox[{\\\"1.849387959639662`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"Times\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]}]]}]}], \\\"}\\\"}]\ +\\)) is less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", + 2, 48, 12, 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.88718611635929*^9, 3.887186135777404*^9}, { + 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, + 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.887186644812742*^9}, + 3.8932376097362757`*^9, {3.893237730015683*^9, 3.893237736870389*^9}}, + CellLabel-> + "During evaluation of \ +In[48]:=",ExpressionUUID->"50c6b3be-692b-4bb3-b631-dd6ed0112f44"], + +Cell[BoxData[ + TemplateBox[{ + "ParametricPlot", "precw", + "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"4.055395711271589`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"1.`\\\ +\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\ +\", RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\ +\[Gamma]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2950910232179487`\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \ +\\\"-\\\", RowBox[{\\\"0.07674909089922159`\\\", \\\" \\\", SuperscriptBox[\\\ +\"\[Gamma]\\\", \\\"3\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.017576083976367313`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\ +\\\", \\\"5\\\"]}], \\\"-\\\", RowBox[{\\\"0.0069902635549525935`\\\", \\\" \ +\\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\"7\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.003957033741436551`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\ +\\\", \\\"9\\\"]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ +\\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"]\\\"}], RowBox[{\\\"31\\\", \ +\\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"(\\\", \ +RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", SuperscriptBox[\ +\\\"\[Gamma]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.27286889266851116`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"-\\\", RowBox[{\\\"0.21290826693346554`\\\", \\\" \\\", SuperscriptBox[\\\ +\"\[Gamma]\\\", \\\"2\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.08126249520877327`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"4\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.04524698238633043`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"6\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.03293140750785288`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"8\\\"]}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ +FractionBox[RowBox[{\\\"1.849387959639662`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.2950910232179487`\\\", \\\ +\" \\\", \\\"\[Gamma]\\\"}], \\\"-\\\", RowBox[{\\\"0.07674909089922159`\\\", \ +\\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\"3\\\"]}], \\\"-\\\", RowBox[{\ +\\\"0.017576083976367313`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\ +\"5\\\"]}], \\\"-\\\", RowBox[{\\\"0.0069902635549525935`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"7\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.003957033741436551`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\ +\\\", \\\"9\\\"]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ +\\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \ +\\\"/\\\", \\\"8\\\"}]]]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ +\", \\\"2\\\"]}]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ +\", \\\"2\\\"]}]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}]}], \\\"}\\\"}]\\)) is \ +less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 48, + 13, 31977068536072594118, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.88718611635929*^9, 3.887186135777404*^9}, { + 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, + 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.887186644812742*^9}, + 3.8932376097362757`*^9, {3.893237730015683*^9, 3.89323773779261*^9}}, + CellLabel-> + "During evaluation of \ +In[48]:=",ExpressionUUID->"1390bb82-7e0c-4a82-8be7-3aa0578e2c3d"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], + LineBox[CompressedData[" +1:eJw113c8l9/7B3CbeL8zM5JNyV4ZGdcxC8nehMieoYQkJCshK2RFklHIB1lJ +RlkZ2ZvsGVmh3/v7x+/+5zyef5z73I/rfj3OuQ7HbQ+9OwR4eHgN+Hh4/xv/ +/zGrS5vGhmMRmTP72RNZDqC+o7+PwZnfZ+jRiawoPIh6KEuOc8E4xuJkRAZM +SplKiHFeHqtQ+yerCEdveW/8e4JFF9p6vuBFq4JQYRHjPs6GrJLmhKPqoC6R +R7OOczFR83XSyzeB7SLd1RmcJd0v3yaR0wVM2UlsP87dvDaEUbb6sGxpS/0V +Z3Wx+3lnow2BBnO9qRxn6aujNonlxmC3XZqZhfMY96Ex86gpyKSlF0bhfJtK ++fVrfAtwWqae9f7f+80uWQtevgXXGemvm+OMXVf4wSlnA9/fjWZw46zA7Ci0 +on0bfEXzo0lwFshTCCq3tYWxCeq3C2FY1Nb6k18t+g5s5S075eA8M0L6hjrL +HpSTbSgDcZ6C7xqT5Q6QbJY0a4BzrOqvGwGjTsD3WYsGH2d9prJWzQ1nsFud +cR8IxSKnkp3XLASuEH2ic5iP8yxqbWq57A7N2bMpyjgrO0TEJMp5gb/W6LFj +CBZ91w1mDW31gpN69W+COAdHs6ff1bkLLu6zzVuPscjcsd/TwM4bpLjqlb1w +ple2MuSO8YWVVicPi2AsYvi7S8hMfw+EWu6W0uB8t5dvkCb7Hhitk11oe4RF +FLF7+CQf70PEuXOhfDjL56Qq/B17ANw0GiFjD7FI7kp17987/sClaywVivOQ +7MOmk01/QAIuzJdxfjgT1E9MFAiX+5Y9PQKxSBHLGXlJIAgqHPj1F/yxKMpi +s85c4THcrmMhfngfi4KGSMOkIh+Dsn1548k9LPLhfWRON/AYnu1cMQ3EGWPW +rNXrFAIi3/0ve/ti0dlOhUaTpFBoqhZQuuaNmx9S15+z9gRGacAj0h2LCMX3 +muOkwkEP7V1ccsMi6tA47OOQcKgkTG5UwXmTWbTxDuNT8O1iSdx3waLoUZkL +SCUCqNK1upWdsKi8SLhRLiMK5N4UvL1ni0Ues23OyotRcL/lWXDFbSxaPMbW +aIpFA92TDtkNGyxiJCfUsWmPhoH0QwtLaywalYel7N0YGI1bvclpiUV/+yra +fbWeA/OTU8ZrRlhUZSmgoYmXAPK1uhknarj85+R0uHMlQMGn7FIynEdyppRf +qCUAFcvRBrUqrn5KauxTMQlAGBp+xKqMRW4+tfUhTC9gikBMiQtw9U7vE/8r +lgimrDoNA5JY1MdQbN5gnwytMxw949xYlCv8y5YoKhkIHBwIS7mwSMqhM0uz +JBkSEoRcH3Li8m+r82liJxm+EV0ap2fHIq3V5fdUj1Pgbj+9nAQzLk9Y0hsV +6anQy1IjzESNRRPvaL4f9KZBybFR0rO/GMSuT0hetZsGk1cJZgWOMOh9GFXJ +PYZ0EBYNCfx+gEGROiNcRxbp8FDiXzreHgbhNWeT0iylA2PUXrTJFgYZ/2xT +eXqaAXafGZyq5jHItWUmMlEgC0xua22LdWIQvcWYS29rDmBtyXZEkjHoVDUj +fWYkB8ZzQsYVEjGIY2R69vdaDjAqhY1rJGBQ+bWhOkbaXDhIauSwjMUgLEPV +Zy+rXBA8Se10Dsegu0v4zGYHuTCjyInPfw+DJKQF6zH8efACT2JO0QCDnBDb +f5D4BsjvKb+ZJcegpHl2+2auIrhIO5c34U6BhF9bDmEZP8DeYaKofxE5+ruT +kb6RWw7Ma6dYq/4zSGeGVzKQthIigzqdbPbIkOgPPKGt7iqoMKUsldolRTZv +1VQpfD4Bh7dflPEuCeq3UrEd5qmHZ8l2MsfrxOgRi8anIabPYETe58HTRoQy +Ejp6IlObIPzmI+fTYkKkE8pj0qfVDAZ6HXYy9wgQ6V/N3ivnWqAECNV7lfCR +HfZJ9sfhVtC/1VeqxY2HjAOaUxjm24G0nrqLfPoE/CLPHNNtf4eLVmwcVIV/ +gWHuW6ugSRc4l+m/XdI+BBdf6lf1Kz0Q1b2klEazDxfSfl6UU+0FI16q9izs +H7DYxEZYDPZB8HSMId/Ob6hO0txivTcAtn0i6uy027BM86poMHAAZoUvVe9Q +bMO6pIJKfOgA8BAJxrcTbYOGwstzlPEDoBZdGnJvbwvU0uGuYPEAKFS4us6N +bMEY7+9fe7MDEK5wkI2fswX3DULLO/R+gtGlwfe6Iltwwwwb+ld2EG4xr/3J +frMB4zQq+Gwqg1CIX9owkrIBQ35G0Wo3BmHhwkMS+sgNUFKX/5FjMQika+3n +XrpsQIAWq3/kw0GI4UtS+SayAQ71F5TYPw8CdY69a1/tOiiUt+GHXR8CDb6P +pDEDa3A7nWF/x34Y5OwHiGupVkEk9p9YqscwWIgvuLUQrkLMXlEr8hsGg3Db +f317K7BHZEaYFTkM2zPU2fvjK/CDnOpKXPEwuM1KztoXrsCYzs3M6zu4+Vr5 +VRNKK9CAlnz5w0bgy5fZIyG/ZahNeXUp+eMohN/ZbPZcW4SiWos1xcZRSPVs +uq48tQhyV98e7HwbhRjKjDSmvkVw3Vb75zw1CsFzSW96qxbhSumsUz75GHTL +5jh4hC5CGJ3Cns7tMVD7h9dpw7wIWhLbj0vpx4EiNnqZ6+YCPDOhZRDmHAd1 +kxsvPBUXICz5fP1/guPAMMxO0ySxAM13mYzHVMYBmzHy3I15AdRfPgr19x6H +MlLJ+N2lX0BY0D5F3zcOpvKDg5/CfkFxFV38UeIEOD9qzr/cOA+p+5bLIjkT +4F0obs1XMQ8Clk077iUT4HPBq1eoYB5YtCjlCVonQH66Z1jp+Txw6dy9H74/ +Ad+brYNSrOaBaZTUFGMxCZVilPI7ePOw7KFnrMY/BXk5mwK+anMQsZ5oECI9 +BR62Vr/Xrs7BuC2caVOdgoVKRy9H4Tm4Va9f52w9BZ2+gRnOjHPgQ/dV5ULy +FKRuHBSkr8yCv7LOVgr+NCgIkrz68HwWnEj2fwvenYZt+5jLb8ZnQNVdx3Te +bxp+mAYW6/fN4M4ZYqqsR9Pg2B/vRtQ+A8Ic0Y84nk3DvhfHO4+KGThQjp4y +ezsNHfecMW5RM6Cc+PXB66lpyHBl9iKUmQGTtxeOi3RnwODar5DM1GlI+KDE +/MdkBkimEusrYqfBzkiCVdl6Bq7b6V3pDJsGKY/IuXV3nINqx0i8cOu6jx0G +xczAv+LnBK/VpyHAJmv0Be47zvxo0lvfm4KXL6QoS1VmIZFXNu9c8yTE7vjU +qWvNwg/8BIxP6SS81+PeXzWcBXuHZczoy0lgmOIXV3GYhdPh2IE6z0nYc3yd +oRI1C4NI3G+CdRJWuwepY3pnIbCytzcqcAJcz6ZvuN+Zg4JUjjcv5Mfhj4vg +xKr7HDT1LgbMXx4Hhy5eW0+/OXAIT5uSw+XsjDqNWVz0HMSHXdMm2hwD086Z +fYHyOaAvZ21Zzx6DJpkG1Rncf7VuWy/nIxkD0sq8jYC8eXARDyxWHxyBhHeV +3pql89BlymHz/esInDX0eM9ZPQ9r5FezdCtG4HGMrsdSxzxYDMr85x03Ak1q +9LR9O7gccQWqkGiOgOA+kcBF1V/QjrGNsGsahpBPt1vpN37B6/LVJoKKIUh+ ++Xtq8+AX1AoRjurnDoF2a8xWL+EC3HSnci+KH4IaEzGuMqYF+FMgSebuOQT3 +u1zIJlQXYPl53T4SGoI4apLp3SycmeTNWIoGoYZdj+OB+SLwPK5pKS78CRYH +HTSaDovARkvjjNtLgS0ojOmS9yLwGry4mhD1EyQtll6eRC3Cx1b6W3EuP+Ee +Y1YvT+0iRPJK5wwK/gQ8aZ16d5YlaHrEXhBVMQAu6USyKitLIFouT/esuR8O +zEXUvfeX4FgoFTV97Iex0gXRUqJleEEfEPE3vx9yqTn7rrEtw0BmoWNIRD+E +77CexRgug/05MB/R6gfRUfr+hS/L4DmbH1M00gdmD3yyb71dAZbQlIsTf3ph +SG2nxLV6BZ5+yOXJXegFDBauR7evQNybc8h9qBeYKo+fHi2tgN6rS1+Za3qB +QkQOL49vFRza4nY6AntB08ZqUqZsFYJdw5WCiXuh+hf1tETnGqyaJ7CLX/gB +L2MplCIn18DhMSn5KPYHqNqzNW5vrcETAtVVyn89cIFPMebfuXXQuk+avd3S +AxHaZFgam3UYj57ctTDoAZ+aWDuRv+sgoDU33OvdDYJsL0q00SZgP/1r563v +BF+s/yyewSb0FYfX4ud1gnkP7cs2h034cXOhfCGqE87UjdElP98EAbnYdwMm +nUC5+o1RdnoT1A8Pk9CfDtBnDXOeVdoCjJ4Nm7FIB2jvtRR7bW8BpR7xrs/7 +b9DDVxjcerwF0ifMDR0p38B6RCecl2wbHj6mtRIK/gbaP0KD6di24T+pdjYG +3W8w0udYGqu1DSIjl7zv7bSDD0nnU/aSbRjV9GVwudoOufL+vM73f8Nu+7ct +jt5WiPzxKP7Dk9+goz7xkbamFULwe5TJE38DtUYpH21OK5RrVjMffPgNWV7D +XLJerWBXutjbtPobuNPv0AvTtMIfkwIXkTs7QEa8r5lv1AIbfC179T47EJ51 +T8ULWsD7cMHIJmwHbuB/69HgbYHarv1rK693wJyNPeXi0Vfwc781d2Z+B0il +WcuDM7/C/JGdUqHjLkglVNjVLzdDcdP5jcIHu6B/Pjvbpr8ZDNm23JqjdiFx ++rIObX0z+OVN1CqW7ELXWUSQFdcMd8ZT3bx2dmHp3ssAY+lm+G326KQr7A+E +dr+g0Iz6AtVzUmTc9XsQMuY7JSTdBLSkpjynOL+esBTUl2oCmbjwNOemPTi9 +t2AxLd4ExMqGHPo/9sC9jI53nLsJmHRT8zLn9mDPPnU3kRrndNHxaPJ9wLgt +0Fxe/Qzr0keDLab7oIZtkxrL/AxZ7NO+Wyf7sB98oe4O2WdQNysnI6I9AIeK +FeKk1UZYF4pnl+Y9ACp1CUff1kbYmJfCI9Q/AHeqb6/8AxthMI8pgf/dATRd +feWdvNwAPI88blNYHeL6PQwedXs9PIywHtO4dwgZ/7JM1PLqwbOL6vP7Z4dg +OTiolxCMs2ntxdW6Q6BeeMjmLlMPJvk+jGIsR8DccPhZorgOMi90h+n+OgLD +r1HWf5NqYW6oyiY9+RjUNh9SmvjXQFoLfcPH8mMQuUwygGdWA+13K1NOu4+B +07r/oEGmBgbKq3N4yE7AITjZOOCwGg5jWYK6A09Ajeo24+6Daiib4tr863EK +xPx4bHNBVZCn3hRo8vwUUq14YqatquBX8su69dJT8By14N9BVRBU0Z7xdeMU +Gp6k7BoTVkEJj5a2hNc/kEGRt9ki/4MnkX97+hAe+u7oLvY6tRK3T9JhXfTw +EKGKp+tv/0pQPPEs4bbDQ6++mxYZWVYCi/D9xydP8ZCzebPALc5KYC0bydTu +xUOOA0ZbjiUfIeexs1yHMz76fipK49JWAa/IKGreBOGjcdIP2meKKkD2pHG4 +MAEfSStK2NfFVkCnA9tX3lp8pPQuitbGqAKyRb4fnDtLgNKInLjzFsrBE6g2 +GesIEMZKrPMsRTmwfgoQSBggQP1pTJj362VA5pGsq7xOgD4XmOc4/CgDHtuM +yzpshCiqtqmBI7kM2COup/KGE6LjBnunGs4yqGzt4gu1IkKRHF8LvdEHMPFO +SxoMIEJDm1k1KdwfwEr8v1r3VCL0ntR2tZ/sAzy7aL3u2UeEEn2MdC6/fg9a +5YFVQ+rEyOr1K2v39lKgpo3Dp7tGghTwc/P+MpfAoIixDL8jCYoLO+BSXSyG +u10NxKmRJOjwWWJ4Q3kxHL8fVr7fRYKYcvwmkUYxuMs1bHmYkqKQwQLp0IAi +sF4zeBYQSoY0ps++P1wohEtL1KfR78iQQx1vvUJlIax92g8n6yNDMoolhhWh +hUBXSP3oBucZVHG4RcXPUQgmeYWiIu1n0Hv3m2wGt96CWAJ+LzE/BRo3nhSL +mHkDNByNdc+NKFBQbWHUdOUbcF90tU8IoUBrZQkkt6PegLFrqvGZcQr032ql ++bT4GwhYNArcwd3bfoRu0n6PyIeuhNe//L5iEJ8EM4/LrXyY7Yv9Eb6LQTFy +0vJXJPIhUkStVwV3b6bvNvNRmc6DbG+ypxHsZ1FJ3FTmzat5kJl0rS7O4Cwq +pNh9KkWdB9W3HLbEI88iXfPzlupLryEt0izEcPcs0uBYbFhMfg23PPxfaPdR +InmnjjOUe7nA0ev4sneICuUfkvER1+WA5H88RYb7VOgJ/7hrQFIOxBSQ0wED +NZob/OZ23iMHFDnNGdRNqFGmL0l2H2cOBHwvdnSfokbicldC+WOyoSzX10eX +gAZd1KjxXrTPBgm8AM1CHhrUu/+ZslMxG0bmBncb3WjQt2jyMNatLEhpEtNs +J6RFial4H446M4FrfuduHB8t4h9pHzkOy4SfHyiOp3Rp0b4LRk5HPhN4faKS +2HJp0dreWMZK6SvwaUoGN3U6RLhG5L+elAHm7z31ZyrPoYneFfPL3mkQ3T5W +nbRyDnX/qGF5y5cGzwM8FbjZ6RHPjae04bMv4RM17+O5Z/QoIm040Ur/Jdg3 +viUL8mFAEpkRXREyqaBwpqAg6QMD0j7lx+LvpuDqbUZXsc6AmE2DHwyXpoAV +dbMdowsjOhl6PpzHkwLHZ+MVrnkzIXM68sYKhmRoLNv2VKtmQoYdfl48P5Mg ++GzrdMgpEyqY4DTeS0gCVnGRR/2x59GrnqXmSsokMNzgrfrSyIx0MJEORdhE +sNgSk3hJeQGxCHrv0Xe/gOQjWtFd6wtI/lt990zsC/hYV3TJhowFuRinuiRR +v4A36qFdWi6s6JWt3pAPcwJsv1sbDGxnRWc7NUTGJuNhK9VA7dklNmRt6XeU +nRsPXiJCixGrbOgjDeexBn884HU8bFdqZUdJ3uX+TIpxULzLEMN/wo6I5YU4 +Aknj4OneabjSFQ50VNmwHJjxHN76/stkK+RAdx4cx32tiYU/F0JJ32Vzoma7 +CRftkxjYu6JNTj/LiUwZqsqo42IgP5tJjJCHC31p0D14wRUDr2PsixLec6GV +NNmV4RvR0B3dzam9z4UONJfb02ejwFhWgbEJcSMnLxZKtgdR0N1MSIA3wo04 +1/OVHN5GQv4j+LZ6iQeJ5yc4CyhGAobhTMt3Px6UfR55lI9GgLbk54wC9ovI +fKQoFp8qAjazuak3oi6hFE2vifeh4bhz6nF11fIl9IW0zEiZOxxkYxZHjjV4 +UdMZiZb4lidQz2t1aHTuMoozfMxsTf4ErL4kuL0KuowEX3XpTZeEgViNheOX +lcvIKdKN9YJeGMD1THPGTj5EIWvB2pYRCr9ybA7DFPnRzf2IIknlUBDOdUu4 +9okftev1B91eCYEkLO2R0X8CqJTAomrzaggYuzgl1I8LoZgrEQe/5oPBx+VD +14anMJLQkZGUjw+GmwVj0eNEIihxlsZSTyEYRs5bUu7kiaD2q64F7lceAcPB +sv7YgQhyLvKXo0wMAtGsA5YgbVEkVXIUK7j7EJhVt/C9icUQ5XmrwF/VgTCU +Mlpw5o4Y4hEX5g1mCYT+9i7h+TYxFH33QUVaaABUpTcmEKeKo2cbzyt0Dfzh +nJDM71xiCbQ20WW82fAA16/+Sxe9L4G6N3KvUvI/AIHzu/Kb9lfQhC6p+jCp +H9C5llTF/LqCyHj5WkP87kOhZCrxoaMkcqXS5ilfuQcSknLxqo+k0AZNpHVu +vy8oiXL3f6SRRpeUkj7aafjCROtUBXWxNJrxnx0t/eIDiscyhWvbMkiavbJ9 +osobsM6P4i5mXUUXZd+If5XwBjz2jyOt+rLIrJ+q+krFXRg2Uugl/CmHeul6 +kus/ekHhfrtCeq48Uuc93/pTyguoq/Fl4x4ooNkQ5ZrAOk9wyL714JQTIZ40 +ueY/iR5QkU45ZJeJ0E1yH/W3Be6wcSfk+g82RTRgJR4XXO8GhDOqjIUFimjo +pkNX8KArvEygzreWVEIf1tmuF/12gfiDVLO7nUpI7DkyJaBxgURSvu92zsrI +bV/GNULCGY4py7xUP6sg3qLlN/yhjiBIUfM07IEqItS+e+bmeweglCQLVJdX +QzT3lH8VTtrDjlDAvCPmGkpj46RUorYHx+CYg87Fa+gzXoc307U78JYUXff7 +cR0Z8lAziQfbQZOH91hEmzri06BiS6izBVq3B57bvzTRs7lRE0G4DYadzzJj +/t5AuckuDj3xNnBs7ehVzHkTpRQmtxkuWsP8YrP5qIU2kjafDGgGa4jrYhVf +MNRBY9cPlaQkrUD43dZ/lWS66JVlzNyX35awJFQitd6mi2QOdJ6KVFrAYOZy +ZGOiHlKmiTn/9KE5rm81nH7iqY+aeBw6ujTNoNT4Sn2LhQEiv/ARi2E3hWdf +bP5JmRsiy08EWepHxuASQqze62aEQjqoomNHjaCPX/hsZ7Ixqn+ZJTL32RCa +3zaWfBw2QRbDn9R0Sgzg+NM4tZ+kGerbDZqdzNIHK8vV+74V5kjmr/vD1FQ9 +yPFhFkrUt0QJP12Pw1N0QYewS/cWsxWS/u5U9TFDB5YpL+5RRVgj76+9hKY6 +2qA0bsmCzbBB44uzjjveWuBOw9+s23UbOcjyu+vkacK2nMFtBXY7RJ3mfj5y +Rh1IStpLsWl3UMWnhy1V/NeBm9MyikLRAQlW40sehKiB8tND8bELTsjNSLbZ +YVEFyj7bRPVLuqC2NtcAHlNl+IRHWfMgzQ0xa/Vo6w0rwtHjXWFafk/kSCh4 +jfoOAtGFYP+dei9UVXfiSflPHqZcBA/N4nGdV38aa622LLjNi4swffRFDkuc +0gF10jCmpUEQLeOHav8dLRSpSgK/X1u+g2wAUh4lb/qwKg5Tgj/v3B0PQkQh +0eN/SkUB/Fk/3HzzGOm+YFaeZROG+q0DkW8OYWjFQn7kGis/uOgRlb2fe4qa +8C/JXTW7BKdyfyM0bGOQ9n+igfsDXPD2Zc8tFoF4dBptPjf/nB3aMxN/6son +oWWB3fsiTMzwKhSj8pUgHV2ljVT99vIchJltH/h256BblMI9I/lUoCW5Uxz+ +5i1qmjB6fhxGBthLaPKxRjnaDGn6SbCGB3ciRw3KpBoQeyOWsJ/jjwLdLtMU +z4VuNPl6c6zn4oJCJIlih1HjAsJkHK0fBPYomBtMXhSL3USy7TzmciJtCv8H +wEf1Nw== + "]], + LineBox[CompressedData[" +1:eJwVlmc8FXwfh41DmYm4rcKRzCIjIn7/Dkpk3giVlU10IllH5qFkl5mdTeVk +RRGqg0LcOmVESEf2lv30vPh+rjfXq+vVV8Tey8SRjoaG5uvf/Z/d0hqJAy4L +6CX71Js2abJGbb3lmx3JdyjJnp+n+vOCBp/46f2pqFr0j5JqNd5kWyPwPr5z +eKICCbhxOCTkY8DUTSAmTeIpYrDeK6HrYoXRI5FWmh+z0BE6VdI8Kxc8mk9x +0F5JQV05qwrFGrxQumXVdkQjCT0QYdhuXj8KGgbDmUdexSLv1vGGcF4ssOM3 +WapJ0UjRMd941kcMKvRZqheGItC2Tb/6Hrsk5A9NDVYNhaIAxMSlOykDPXcl ++Efng9FsyA81XKAc7L9sQG/ZA5Gb0zDz21x5EHFnV3MYvYum7nLfeTSuCLFD +wRKzKneQrBtWFyFlUB5dKzjbdxvNikkETC2cBdrAEd7O7lvoRUNJ5Jnmc0Dv +9/44XtETUR9K15ZUAkx+KFBHuu6oiD1gxf76echJXJt3Jrsg/yIsjn0FBziB +AOnEdCeUlso3mJuqBeT8o5/0SQ5Ik2hoNKV7AYK7V22wjDcQU9HOXDWrDuCt +3m/8F2OHfrDO3RwYvgR7ZT64STVb9PtFZ6tUox6Qjh087yZsjYynRn7eK9aH +YYYGP7cD11D0FFdRVZ4h9HhbKDsct0KOj7K0u/qNQJbp4zGjWxYoy/CXacyo +MZRf3vPRnDRHTl2N72iXTGBkRz9fLdgMDacQMMJMptCqG12+esYUqbb+xlLE +zWDkBCN/O8u/KIT3VNsRfXMITU90S9o0RlbXWbi6/K7AWoPpo6xdI/Qnbapl +scwCbGwuJ8ZzGyEO81d/8BOWMK+6KlYfbIDW2bJNNLFX4dTjEAJ++TIieEtS +rjhfg/1h6sSJcD3UpaaykE+6DgwayyZHTumim9F6rrwYGyDdWQlsX9RB7mwy +SpSTtqB47ZwHX8dFhET3a0uHbeGmcPUmf80FVMCSIBwaZwe7KLiY56U20pf7 +tWeuaQ/ms5ytES1a6KluI/2JbXso0MtZsmXWRFopw6sZ3g4wzrb3xg+HQ+68 +1Nkzio4QlslkaUA8j2i9doXqNxzBcT62b6sfISRgNMrX5ASVzeeZKk8iFO80 +mnolyhlan53yNxACBI9Mej3+dYHx40rD/qvqSDN+TMYM6wpGXQleJV1qSDd7 +TSeu3Q08JGt4onpUUeOhoVZKjjvIR3npGIycRffZh3vG/D3g/kkqwm6qoC3M +cFi5+U04V7aidlZIBXW8oqeXO+MJGF9y7YChMnJkYY5x5/WC/tfGExYPzqCY +NKKL1a4XGIaphtznV0JcOm6DedRb8M78k7SolyLaO90TI2CNhy5S/2/Xjwro +F/XKEPULHvxctNfPpssjQnZKPr7jNviGxnKsMckjMUPDfmltbzBJCfRvDjmN +krob/5Fv9QZH0RJXuXtyqOrwoVTBtz7A/rtQ/RyjHDr2Pe/9LroDtOtWorjj +ssgld3T6eNsd+OfG+Nq0599gL7214aMvXLBTMh7JlUHYCJZcWeO74C5j3ls2 +KI1iw0PUbL/dhZlyDFnLQQoxbgg0B037wVxhsz+1SRL5Zlt9wnr4w0bXsp+4 +kCTqIig5DM37g3FWx6XwBXE0+IHIELIRAAssmGxJG3E0MWxP60YIBBua/b7Q +/06gYzYED3tMECz4Ks4QOsTQjaarWQHcBIgkijm06YohtTiz22k5BEhTUUjZ +7TmOBM5T+t9KBcMXtqSeiklRNEMeijypdQ+C5mlt5s5i0WJ7auKzlhBgZ1LX +bqaIoBKRvZlB5lAQsiSye/mKILtzppvRpqEwJ4ir3nojjHCDF+65/A6F1wkt +C/mOwgiblXc8XTEMTKQ6SloOCaPLmOuUSyFhkBUrk3yIcgwFS7uSJfnCYe6Q +ZPFBlWOoZVxDw8IpHLjJ8gc1s4+idYY7cgzV4aApvK/601cQqTEKYQaMIqBb +1iSb1YwfBclJ8FknREKmDkuu8hc+VKz1gdN3LBIiLl0hZ1rwoQy58DwmBSLg +S7EST114EfkXXiT/KxGgc9WZppwHtUzPWMefiIbmdmZ3ZRwP4iegyoDAaCig +qyJND3Ej6WXLlZHP0RDS8EfDj4cbHSq0kjlMuA+d+nykM0VcCLc8tcg19ACi +H/QlGxtyIatM18dNCjGQECT/0XqLE2XdaKeMPowBM3qnBh5zTqRy9wJ3JHoI +Yd//5SFiDyPnZvEtk8pYELRMP/1qgANtKL/aKGOKg1usmxi/JA4kb/re565T +HHg/6E6/eZADDdphFj1E4sFn0bxCjZkdmT3ZSrUzSIDYELqhqEQ2xEAmyboR +EoDZ4mGPsgAbspX7MFhakQCVpfmdEUqsyImxj6abJRGCWLK5VSOYkaavXmPR +p0S4IR7YfuAoM8KiMT7H3USYLi+vbK9jQoS1whbLU0kwWZ9ctLJ8EE0Z0cZP +JiSB+pKg2fPgA6iZU6sowiIZkqJ7RvrFDiCfmYnPyw+SYR1PKHzczYiUfokk +p7xJBpY7qr2txxlROOPow2DRR5BG84jaM45BTHqnZbuXHoHkyaXAbXcMqrfP +eWap8xi2Gzl3X5vRo02LS4n7nCnApTTnnZtNh4okxFWupaXAc9v8uMirdIjo +qMIl0J0CZU8GhqP56JCt1KIbOyYVagdiG3rTaNH1zefmSbdSoQ93sLezgAbl +KXDlsV1Og7MaPOV7LjToM+O1H57habAz931VVJYG3SJR5DGNaTBmVapoHbQP +ZymjE51S6UA9Y1YZ3bULMxc19MmsGWCxeK5/z3EXpqdctsjaGbDolHbwEM0u +1B/95LoTnAEG1Xym31V2IE9M0pNmOQNeWLaaWL3eAnPbNTWfwUxY8RwVf4H5 +AxLO9dUMNVlQ7UVuCK/YgMfy2Ac261mgs+zF/cpsA3Z3VqhrytlgqpLNcbJi +HRKEchW/NWaD0kIgxz2XNWh2HNm6/SEHaKmSD5/yr0FlB2fQN0wuqFNOTm10 +rcJv8bqmxydyoWN8XfKwyiqEzY1xu7vlgtRkSpk33wr0tUhcDF3JBW4uiR2P +/mXoptDncPLkwZ5Pz1XXhGXg6Txj2KqSB4RioqgFyzIsC2h1BAXnwWWjwrFY +1iVgfKZeYc2SD0sPBzIs8fMwKqNVOCRVAOmDdOgJ/TywmB9QNjMsAP9hKRv7 +1DnYTX4bN+ddACfxmzjrtlkw+2T/KuBNAVzt+PzHVmYG8E3digdNnsJiHecr +5s5p8JpulfG/+xSK0aVpBtdpoAw16TBlPQWjoRDMYNlvYMqIOR419RQqqdzn +7dSnoDRxhnU7pBDYVu0ouz+p4PnTqM2puBAUti0ftMRSwemyIP9yVyFMULKF +ysd/gbrdr0VngSKwlji9G5k+CSetla366ooAwneaMpUnoLPH83X1ejGwHrMI +uLE6Dvp5TwY8BUugsJRBZ7lqHOp7tGq0cSXQeE/zhaXsOKi4R9HpxpWAcPSb +RDqFMZiN1ox9Ll4Ksm9vvlitHQH/2DwOBtsyoCIt15kLI9Bd+HUsJaoMxOWs +EoW+fYfZAk7hi8/LYM5F7cepvWEoP7HvSL9fBnzSt/R8LIYAMnp653PKAcdQ +ziKJ+wYIFxxbRa2AABPmW1w/v4JiqOVhtcOVkHWlhrRL/ArPTpxxmVSthOSj +iRHveigwqeB3MSuuEt5+LxVu8fgCId3POHKUn8ET7ebCrt4+YLsQFcmb8Bys +Bb6Lnw/rA35szmFy43M4mO69FKHQB/vViv+lU59DXk/G/u20XiCuEgkUoReQ +a/CblO/+GW7/2Sps93sBNwjqHP5un0CljE7z0qkq8FcjtAf+9xHWr/vq0elU +QXImp7KExkdwCHaa7Lergr2fWenOvJ1QnbDVQ37819cSkKOOkoGQrzQ3s1cF +Hli7iiwzMtgZiP/04yMB+ZXxfN+nD2BUT5stokgCjmnR8cLm98B0qzyF7EqC +0+X9tU61bWD7ubDOk0KC6A7/7RjlNsjMutw/vkSC/uUkNeaGVqBfVXa8w/YS +HmQbi9O0tcDYfoPrhtZLaNvxwte0N8PpL9waATUv4d164Gx8az0QPoRvjjyp +hpVDr5dFZuvgyO3DWM+GasjlMpCZ+qcOTqgvnhP9Vg2GRGLT2p0akLrBUk57 +pAZkA588sdIjgWOoHF9ebA1ELxk29UVWAf5LszO+ogb2NejLdFtf/P1t89Me +H2tgZyl7Ahf2DJytM1OnmGqhdaP6wv3yEhAV2ZFiul8LGYIyBRJQDKEbl9Mu +ldZCpddVfTdKIQjWEDcbO2rh38U1mtJDBbDjJ0hUZamDpwnXNb9eyQTTPjHN +1wl1UFxF5J6qTQOhq+cel5LqQDiyQSBVMAWKc+496+2vA8F9ne3Q7QS4J13l +8ZWvHlTeiajI/n4IVllRn+rO1UN+FM32LjUKxP2r3L7Z1ENspoep3koYTOYm +kFXD6yF4JL52kjsI4nFjt38U1cP/APE0WKs= + "]]}, Annotation[#, "Charting`Private`Tag$4175642#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], + LineBox[CompressedData[" +1:eJw113c4F973AHAjK96S7J2VpBChwrnZO1tGoowiPvbOLpRkVfaMjBRl75Gs +7L333kRWbz/fP373n/u8nnue+8e9557z3MuP/9M0x8PBwWnDxcH53/z/I6Qy +bgrzCoO+WtoMXcFeAc/GERayM6fziA7xYEWhLyF+mPDMNIXz08nYe8DmNkmB +fYlBu4SPBvmw8rBFkPNz+8wz8ja/K/6pwpANzt70mX+aeqZkYjXAUn05tePM +9yXtR+yw2nCl6XlbyZkFeMj6xLF68M4s2j7xzJ5vUft5rAHgCVtH+/xvfxt8 +wtF/D6Gy7J+Q8ZmTRbgmB7xNoGtHX/32md/tEMTXYU2BWufdMsWZezyTB/K8 +nwBD59fTuUAMKu1aL4jHmgF9c2tk0Zlz+eObvLCW0H1DUUDlzPk5f+7ZeT+D +r42DdyjP7Dv/d9QcawVZ1yvq+wIwqH12f0MPawN/N5aU7p95bWP7s7b3f1Ai +ZK1MdOYveUo4vD52IML2vaXCH4N2Nm2Cr5/aw9AGBjGcmZxZKlCwxgFCPS3E +fvphEMmvzQuiPo4weY70m9WZ8yOnaeRPnYDkZSdtni8G6dz0Tfc6dYWoiMpR +Ih8MSjHyngircYP7VNOt770xaJXO9Wq6jzt8jMm8zXbm6nuO/D2nHnBtb+QD +7wsMEqVxqVTG8Ybg3Uwdak8MuvqeU8yu1hvy7gTJB3lgUKU+lcxHXx9wp64o +33M/i2dwynTx9YVRX0ruZjcMKujetB/H8YdQj0BaaRcMyp4J7j4y8Yd912OG +WGcMeqb1ooy+zh8UmvpTV50waCktUcrILwCk2gbvvHLEIPvEEYY93Jeg5mGQ +FmGHQd2p3ete+MHAY/MoDNcKg8YxnFUd1sGQlnO1lewZBvEVN2+z9wVDbc+5 +3UtPMWi/mqew51MIqGUPYmgsMGhFT7NKXe4N2KnUOy+bnt1vS/JcZ0gYuBkW +BbQ/wCDe8JQxlZ0wyMAQdnzUw6AQppGJ3wbvwCh2B2Osi0GvNbKpV6nDgUuN +0H5CC4PIjogDiBbDYeyibv9XNQwSd6a0igiJhPrx4cwwaQxqqVHLWKmKBEfa +4w90Uhi0+TGxVHYnEoIXhIKSEAb9uSjrhWsYBSSXO6ySJDAoLieRJJwvGhjI +xbVsRTFo7qSgHdP1HvBx57Tu82LQAwWWnHy6WKC/9V87IwaDpkcnVHsUY+G5 +kVSUAikGnXTIs+57xAI7bfCuPQkGbedrGsmMx0LLu4BX5QQYRHdJoPQ4NQ7e +hAqQcWDJ0KiAQe3wtQTov+OjpLlBhuZyB/3s7yVDHEmBO/9vMvRg+p3UtEMy +nPswz73dQob4fspWan1KBr+YoZBvTWSI/4TDJQU/BQrCy53YG8gQ7h+Kh0kW +KVC8e3AwVUaGCvXm9yb4UmFTrCuqLpMMXd8amPMvT4N6YkpaOm8y9NKaL3S9 +Jw06BZtLfDzJ0KLo9i/91TSY8SRVm3MjQ+FZyqciTOngXKj96JMjGVLZ2C4+ +550OKaxrgjjPyJCG9z+2zXufAOvj6n9FiwxNCchvk7dlwEmDn6k4Fxmqu6FU +/WcmCzr210eqa0lR8LsD4e1/WZDD7G7BWUWKtFhCr23RZYMaXWLhqzJSRADb +6Xtq2eBTxJ187zspurPeQslacbZu0TASnk6K/CK0nDaicmCAYtfww0tSJKs9 +3Rsl/wXS0p9IKsqTInOJiKSUkm8gWz+R9q3uPMIOGprRcvwAIxWb3cMcEmTO +G2tp0lUMGe/l1QkfEKO5m9WKNVHl8GdR+U3HOiHKoVon+YCqgWb9CWdZMAFa +UyWQn7pdB/TBBrpkB/iIkYf1s6JaA/g/T6/s8cRDz8tsl4k8GiGuHV+sixAX +hVjNFhfiNoMfjU2l7wYW9HA3ShPftYJLulGNOu0JjN7npR+PbocoHyqCZ6yH +kKecE0tg0wVXRV8sfHuwD1vnDEkcHLsgynyiJFFtH8qn5PCn3btA7DVj2VuZ +fWjfYkn89aoLpJjj1JwE9oEtRDMhP6ULvP57MW5IvA8dhletcPu74EHOiuz7 +0j1Qe4qfmQ7dMOdXPVXMsAf+7b+cDZl7IDqFvmJifhd08LwkqLh6QDzbaCd8 +dBd6bdfiu/h6gJJOaFe2exeq2HJ4tMV7QP9FpnZp5S780FvtfWXYA0uPC3Kr +o3Yh0HwMkxjXA/IcImqaUrugzqAYlcbYCxfWWyXiUnegPxCnrPlqH5yfTFTs +fLoNrbNPdVYF+8Awe8dr7NE2ONnmt1680wcJJwGwprsNB02XVayU+sCCssPx +kuw2eHEz4CpZ94Hfr5U038vboCx7sP0rrw/MCQstB0a2QPTkTmj7rX4g/0pT +Z39/C8xXOgrbNQeAkH3pxrrvBqALHC2NRgMQro+7vGW7AfjZ+ZYNFgMQy+D4 ++8hoA9QupOl1egzAp+FNisu3N+Buh1wEb/oA0MGvuJLtdbDyu72z82cAcon6 +sWRm69C2Kjq1lTAIG9e7zhmqrgHtvq39p8+DwDSbE8gpvgZaDztuG38fBNJa +F5E/vGtAMaUTNNc0CD2+dgKZxGvAuiJWLr47CCY6ln7aP1fhihW2gk15CBJ5 +SPNGxFdhTmIweuZ0CBYalV3f3lwBDfJzNEKkw6C/d2/xGfsKHB+d6rymGQb1 +i33qKpQrsC9IyKd6fRhqG1woOHaWYbTabJ7TcBg0vImA7vsytLuQq7OXDgNJ +Zr7kZaFlONf8vCnQdQTub7xL/XJ7Cfoq9TjLA0aAmooNK8+7BJEX85j+vjvz +hy9qywxL0H5s9y8oawTuPk1rlThZhMWgR5qEIyOQvEDIfaNmERbIWHG9JEeh +iUiUm09uEUKUmYQCMGNAyKgzGfdgAaTq0NAg/Riwk0dEbSotwCrn32Mh7jEo +Obj7XFFiAV4Ju43iwRhs99uEkLEvAB7tvYZjuzFwF9572rU6D4bXZD6YDIzB +I28iSzXfeVCKFee59nkc0lX8/djy5oCgIpHAu3Ac8vCxWLqUOeD3aNQZrhsH +FZMPUTRRc/B3zOm/7LFx6McVwbnsPgdk4Sv2+ZQTUEX1bdhBdg4GW/3YTX0n +4EFCNsv5yVkIJdNcff14EnbJm1XxaWbhzdXRn8IOk1BD+vlbJPEslLgejy37 +TULhhYDDK8czEGX26Mg5dRIed0pKmU3NgKHURXna6Ulg5J6J5MidAaKopEwZ +wSmYnr//qvLeDKiEFOHIlEwBufHuNU3HabjpTOE6XDMFDVOkZIkW0/CZtfOJ +c/MUvN+LKl/Xn4YN0r2q2uEpWO3w8UlB0+D5X55s5skURBvYhCuTT8P2kZHq +D+lp+ME6RlySMwUxC42bZIPTwMuws1HWOQlvs9o+Tk5OQ58JQYZu2SQk/lCp +L12ahtC/+fL/0iYhwTWpwvtoGi44+qo8dZmEE+JuUgOWGVgMDr5SxDwJnNvW +n7UtZ+D97egKHtsJyGMpuBmOnYHc9Ohpa5pxwLZHbN3737ngehBI446DekQV +3/HFWTBQk5jmWBuDOOpXUoFcsyCe5FWGVz8GzV8+DG2rzIK7jVelsO0YZKiH ++0glzgJmjP7V0+ZRkEoqIj+WngPl7NRavMAR+M61bOemNgc6mpLF9nZneanx +/Cr2wRyMzij/XjYaAR2Pzz/ZbecgULdVc+/WCPyWYCzvjpmDccP4GPelYRDi +uhPYuTkHL+24fW7dHwYz8ie70Z/moVOAR8WWYwhE5w+VBfPn4VCfZf4fxRA4 +JZhrDVbMA9ujCPMP2EFoYlFNQr3zIFiZRD0zPAgLxI7OIXgL4EZIeDobPgiZ +Dkdb2McLMJiiaRCOMwjUXYE+vdcWAb8j45r3Qj+QuE8oD95eBO6Ck+Gvvf3A +lMj2fEl+EfrkEiuXa/thvS9p56bZIjQV4VB7x/fDENU7buvERcA9Ielg0+gH +96wFSnfKJeAXfyGuUt0HvxgZc2KJlsHg9fXaqym9UDfPHmhLuwzxiY5CCWG9 +UN40paB1ZRku73e+oXvRCynfCjdV5JdhE7ds+oZBL8Sc71XAD16Gp4w5o91U +vcDlj7WJIFuBnWKK7o03PbClUea1yL4Kff6R6w5+3RByE/9zkdAq0Eb48gg7 +dEPyleHAaJlVcM50Kv/3uBuS/FUqAi1WwTWFZDRbphsG/QiqBXNXIdriQp85 +cTcYfC4i7BM9q3ty9e1WEV1gZp2zs2O8DlFFCRzCWp3wqp4vnsRhHfBeClz/ +KdIJCcQftIVfrsOnXd2HZgydUP+k1PFX7jowzyuw9U93gB7WoWHqcB0K2TnL +XO07oFpwy4EkbgPyxZ+4VUW1w31Mby7N6iYImwVxXZ9rA4rUxaePcbdAjyV3 +wr+pDV64FLXKY7ZA1qRqYyWnDUywBBMSXFsgr1b0b9u+DXyjAwlHdLZAUp9a +YhSnDaoqo4WWy7agYCzCnpq9FQKNYpULfm2Bh0IfQRhhK6gKFOmH9G5Brzk2 +hm61BTLWTVufrW+ByyVsxpPCFsi/jK5tnvUtKRbV2i75FvCiYRXjDtuGmdVw +djyHZsiapUg+jt+Gv4SBF2L0miEld3t2Jnsb1rLp00GiGaKrn71ZbNwGtQ3q +rAbiZgiRqPn3G7sN1n1fw5JSmoBSmW+S22kHWkVIDuN6f53Vr/p9RttduJ9l +/iFIrhHyLlnkcnvvQs9qXnfpjUao55YVlA/bBf7IUfMjmkYIf5io3/p1FxRz +8AK/Lv6ENQrmnvGtXfAQUyQYCfkJ6ylPnEzc/4DW56DXt7sbAMgdl8Ze/wEZ +nqJpm/IG8BXRwXdI+APRyYqS39Mb4CIf0e5CzR/Q6O/YsXJpgNdeQuK4xHvw +36B1STxTA8jYNolxJe5BYtMo2751PcgSe6vK5O9B2UrKQx7derj+0sTQp2EP ++P+EqFih+rM6XaOktLIHtJm4fMzU9RAhbbFz+/Y+qL8TMJGsqYN6aQnl4rF9 +uNdISmVFUwd2C/cE9+8eAFbYdiEwpQbk0+X5/TUOILTGo9zGswZ4d85tXbc8 +gNWpT9V2ujUQScBZPx95ALoX/95qJKuB6SEe0onVA4g4L/c306Ma6l9GJ9/4 +dAhJhkdecoZVoM70WGqw4hDe4eA+7xCtglQ+cZZPvYcQk85CaEdVBes9q2W5 ++EdgofyCAaejEiQHUiU9zY9gLPnSmKZUJVwl/KpuJnAMy8fKwRX8FSAmLIN1 +UToGfpNZhRFMxVm+rPP/MDuGpiBfAcq1clj773dUduxZfM+aVntWOfS2jf6K +ITiBpI58AjuOclCoYa4cnD+B6OGfy4+YyyBjrqmkvRULKcxX4vI5SmDCTdQ1 +ch0LKueGs5TxSuAB4xenGIpTmGEpoMOfLgbqV2HDVnqnUBJSuPMrqRikSq3j +xJdOISw61i6VsRi4JwR449/gICOjnaQYhiKoVaSWvJmMgxS+O+38OSoEEK4d +3/yOg/4dBuHbjBbCcOXBs6kRHHTy++et/IRCsB7IyU3jw0VCZi3VfmyF4JFh +mUIxhIusm4feKFz/AbFslr6yG7go1CXjyPDCD7Cnj1TMOoeH2JqiXr7e/g5X +SWVzDwXxkKpFa5NY8Xe4o1+QPhKGh3K9RuaH0Hcg8+6duqSJjx6mOPawGBaA +vtbE0DNrfFSiekVvUrIAYpxeHu0H4iMv6q0H5ewF0FBVY1BWio/Yn+t9qVnJ +B7/SWZ9t9nPIk1LAh9ArHyKN5ic68QiQlRF70IHcNxD46H56xEyA9lBikgL1 +N6jipjUzuU2Ajn5ndDXOfgXTu+4/xuwI0JClqay831fgbPKg+jZDgAJog8vM +qvMgiFhOy7SHEF0OLWQ8QV8g83G4cPA2IeLmTAqgofwCZbU9IXsURMjd5QbZ +w9lc0M3XJfmsToSIumzv2b7KBS+jEnvvXiLEcfl7aHJHDkzuZc/1LhIjy4hO +MQHLbFif7p3qJiVBT33CXQjuZsPY/eUNLgESlKG/PklwIRvYNxkq+9xJUHP9 ++kFQSRZEpZEH2Vw8j14VGCW+O58F2wYXWVI0SRHN/U+hyaWZ0OiqzB3udfbP +yjhwYXuXCaXnxF6vZJKi2WaRxDbzM5PySs+dkKIdYZXHKZcyITo8FpfmKxmq +FOO7KWWfAdKZyGaCmxy5zMvSGgh/gjtV3V1ieuRoUAvP/y75J7ASXKO7FEyO +DMM+pskspUMeg1a+2io5+v2RrLM9IR1Okb4ebekFJM1VZlBOlA7H9WW4mWsX +0CRrzuHgTBo0Z0rSzFBQoJ8F0TNM1WngTt1dPypHgX48mjBick4DZsaoC0bF +FEiX3cx7ay4VlmLrBXB6KZBCG/WBXF0qaPdVsu5tUqDsHXeNn4mp0HBKZDDA +exEVqhTaCumlQua2qXTcp4tobmR5drotBdpO6G8aZ1Oi96ns+UtuyaB7h8W6 +oI0S0bJOPDIXSQaTm12Gzzcoke2SoMCNP0mQYPlZgO3WJdRNv/k73S4JiqSO +pAqaLqEBEL3JZJMIIbXVMY7rl9Axb8Plv3yJUHCt7taXS1SouJXqKfN6Aji1 +6KgFm1Kh0seq75VtE8DT/tc3bnxqtK4UXHHNKR7MlDq+9PNRIxx+uRxjkXiI +mrEQJNOjRm7jOLxjB3GQOjlkTJ9HjWqXWjyKveMgzQNH5OgRDWrvxZTPv42F +vbAGZtFZWuQllZRHX/4RJqXukpxjpEO5LE82L3h9BGK+6zyZWnTofd64mJHk +R8Co8OV6NtEhbJjo8/2GD5C0I0uzUUaPKp19GG/0vofgD9o3Fg7o0byksGn3 +x/cQkJ6KPyLGgJzNz/9sMXoPKZ2hpa0VDMif659N2WI0sMscZtp3MKKj8Emh +CNxoCNN5iFmiZkJCIj+kRpqjgPYv678QYyYUpRr1xjU8CkZ0rxdY7zKh4ThV +o69sUXD63FvUjo8Fuap37ZPIRkJt92tHUm8WRPJXqWebPBIymX4xknezIMaC +DbLrwxGAb6+A99yTFUn/GxZOtI0ANyftzzL2bOitlI21aWI4UOCsFN1IYUNB +XuaG08/CQUJBz2qnkw2tT3wa+iESDrjVXllMNy+jnujOqylp76Ctwq46GZcd +mRssZzRShcG3PX2uQ1F2NOhH1b/0/S1U1FWPGP3HjpD9ftg3jbfQsK7q+Wia +HTnb6k5zR4SCw1sxHa5eDhQ+WN1SQvsGMiZwHNIpOZF6lzP1TvlrmFD6d9la +ixPtp0k4dBi/BnFnWu2TIU70fVo7+3lWCHixhDSK73EhXyIzvjvSwTBS587P +hLjRl+ESJt/VIPibwPojJpQb7QSZVllEB4HLPrjG8V5Bnq62ltRLr2DDeoJJ +xIsHjTmuje9+eAkXXUZkLDp50DnjBP1axZfwVLq4zJjzKlJePkmi/RcIo9f7 +miZ6r6InBxrnLcwDz/rb3Wb/G7xIcBxn14ghECRj5zavvOFFv9yHeCc6A0Dn +aCSvUOkacuSYu+gjHgAXesiVqvKuoS+bl4KSdv3hkbAcD8klPlSXbjkon+sP +rCU0bIVzfOhXI3+cKJM/JNV82w3IvIHC/F8UB5/zgyqnX5hOZn5kmXSe4k+N +L+yvZDwkiOFHS57sDkuevmAj/j7qt5IAqhEonBxc8YHb7VMXP4QKIIX39mV7 +5j7QP9ddeb5LAGUnKC1zznjD6+P6VkEjQXT5K0tC8fgLuKq2t4+fIXjWn1Rb +6R6+gD/ctHu1m4KIpvh8xptxL5Cg2Lkt/eYmCqa3bEib9oTv085XwseEEK3X +YVLkvjssdxByj4oIo2TpWU4Xb3fQ7evML40SRmn8byWfEbmDBkVne5TOLURf +zlT+gskNnHtnxprLbyFZGqaFpCxXoLvnGn/KLoISr7Ld6bzlCviGTA7bJyIo +co/o1EjLBdS/cJlu2YoiUnklufJZZ3DSGpxzmxNFphyPH3M7OwNF50fRhhEx +NPWVaog33gkICKQK8Q7voKCgAZ3ZXQc4vwgviULvIu3BjL6iUAcYNp1UJucU +Rxxpbf0fuB3ArXnRgtpMAokVURoGPrQHIsfLHTFkkmfvI3wm/MgOdu6Vj3FW +SCLK8ru7uTF2QCZwuttIjVDs17Rkxvz/wMjRaoTQFSGuDaEn2Tu2EL57U353 +FKHxvtlwbVFb8Ln+9DS64B5ao+Ivx296DlUlDG1F7FJIbpyZlJjyOXiLVuTo +x0gh420ee95H1lBMJ5fNFymNMP7RFq2nz2A3zW5SnV0GnWe3pJuWeQajY+ld +1GUyaJyAntol9CmUELOTLOrKotiGnl8hA5YQoVrUI3Yii1DZg1QmDku4hNt9 +KSRbDqk9fcrO72ABim7CiiaP5NE8IWNPXYM5qNglcOIuKiAHpwtUVrZmQF5C +cpexXBEp36TZ8G16AsGsOzQmMUqI+9/tIAaOJyA+nhKS4q+MbPQOUkX9HkPL +X3psrbsKOrU6xQxPm4Kap3NlhbcqwlDWZ53KmEKJMNuL9Eg1JPmY2vhLjgkI +dvlEEruooz+T96+IHRuD3pPyzKsMGqhzScyxvv8hTDqlpfo1ayDm2wJhpkVG +UKmp8HvbTxPF20vt0cYZgvXEhpOTvBZi34tTXgowgJspzA/ZGLRR7V8vo34H +fRh6clrCd6yNeBYfM89YPIDHL2b79lZ1UDyeQv5FEz1QEF/7iLehi2T82Cws +jXUhJrtq5Tz+A5Qo8rJuwVQH3pR0PTjl00cFUjHuUVba8IjXn5bS1gCx8l59 +Ye+mBeVRAy11zYbI6z3rfuAbTRAwUjdbgIdo6lBYtSddA7J2Q7/VDhijvXzC +G8Z16kB2TfPlKwUTpPeHhtaw+T6QMMQwv71tighZdxTf0KnBu27anB30GLWz +atA8cFSBF8SHBEmmT9DmJrVq+5AStGcnpu4mmaHQjADPvwqK0GFSS7R1Yo56 +xxcPZxvkIcvkIb+iryUijvxznKIoB7NPwvJibjxDi06YdIkRGUipDI6JILdG +hA+HKVudpcHGruFQlscGNY27BesxScECQfANv5f/Ia/TQaeDdgSv7m88ZqW3 +R4X4erf8qAHiP5xofEpyQAkFH01fZ4gD3Z0L514ZOaEo2Y+X7qjcAYGfVaLG +xi5oP702oI5EDKr7ok13v7shqpV/SzoTt4BDjK9Y28YTrWks7gu0CoGIPn+p +faY3ctp46RjRLgiEUuUeJeCHHBsD+l27+WHVvHshIjIA7ekrXfgrygfqGx7z +FVav0JNbXBJynTwwN2gRubkbgtzYOjaZYriAhYEJk2QThjbuY6flo9ihufja +BWPGSGQSXKxmEMAKn1LcLUy236MMe3aNdAUGINc4+PJaIB5pNYydq3Ojho9u +pmEYrVRU1cfqYkVzESYXu0L95jORETHKz1Y8D1V63XE8rd8Q74u/GjX38YEr +47V8S14JmvlHw2UTcSTpoWceTp/bgA6YKsrI/bckCRT481paelGvq7TumyvT +kuqRbNc7EjdQluLNp5WjTZIbvx9RQPJflCKtmcbVVSP5f5rnpPU= + "]], + LineBox[CompressedData[" +1:eJwVkGc4FX4Dhm1SUqGMVCKhhDKSeH5ISMMIGclBMhJCUnYph1BGJDkiMju2 +kz0qCSVSomgpMgop2/t/P93Xc93X8+UWs3M3Ps3CxMS0lpmJ6f/8IBVynXbr +H1k1zeHHWl+nEfl3IfT1xnay1FRw1u3edw3b8VmLPWb15GxB+7YciymNLO/h +sp8sZcSk+5ZYg9Sihs2InaCjQwF5890iSMGQDfpL3ZKPmzLJA3OXXfe7ueGS +d18jozWN+H506+RcvRYWvHsf59YmkzaFvk9iqwUQF3q426MzgfS8d9RidxJC +ZNO187+lYoklC7/AguAmdLY+j1qqiCar6Dd1jsWIISa1cpzfLIKIPBJtpqhJ +gNlETlfh3TWiKlBXXsm7HU83xK+PYr5KGPtYsrxXyiD0JHd5ZX4ICX97HdWy +suh8Mply0TeIdCamvfm+Tx6+ESIZObv9SepihpLfhAJaRbdmmLj6EU/GuY+o +3ANhPn53xxW+RC5vD/VnvBJkqL/5Lea8CeXQ01DZEBWkyvt3lsh5keWEc1sb +AlVR3fmonCvVk6yO7LenRKnhoGDZvPJ+D8ITHR7Rnq+OOrGzt5rYz5Gr4vmd +zR+AQR23XoEeV2J/0ul2xGpNLO8dPxk96Eyu2MwH1yprwSLTfA23pBNRm4oM ++uaoDdPridUNsY6Es8rF60vqAfT5sdtwSJ4mp8UUFWn9Ouh9qWO7qs+e5J0J +D2CR1MVUG79YY4EdMT9f0v/HWw+V/W+56MkUshTOnH+qVR/HY8fwPtWWvGKi +TuyUNoDk07urKO6nyI8E1TO60Yex2XHr5rmnJ4mu8wrH5LkjEOuo4stQtyZn +QkX71547hu2PRIyWOy1JrdGQ5BFvQ2wyjbUTvWJBnB/WWa9RMoIoso+cMThB +BjKYjfVnjbBajyksQdqcNH8eZP1Vb4y4cdp8hogZuTJFsmciTXA31m76+WZT +MpiWkHvS8jgyRPR03BSPk5x+mxyBnaZIUfz8eNsJE8I3d8NLkNkMcRSLqwVU +Y1IlqsBh894MiaXGL6rWGpGr7KPGsXEn8MlK/r2hoyEpE+Ls8/SxwERRZmYi +9RjJeLHY5GNpCW3+Fq+eE0fJZqs3Xbe1rEAMbkpxqh4hvyroU+2y1jBZiO39 +LnWYbGV22MW/8SRcqjkVzLcbEKk4Ibodjw2oBZvNBw30SXHX/pbFmVO4uGqg +WMVDj9hINj1M9bPFn29Kp4JouqSUPc9PacYWFLpFl8jGg0Qw+VVb1SwFK96N +7NrhpEPCqepymf526N937FB69QFioPubMstkj21ymhF1/tpkvOmB/1seBxyS +iKWa/dQijavV5XPiHOC7pFOx30aLCHfo3mkXPo3nRisjosw1idhadxFmWUfY +9T/QMflAiHFw77qVDEe8jA4wFXUkRHnDy8vWB85A+OgS7SQviI7ymupWWyd4 +LozwT6lrkN36u0u//XbCzBH/1fe81cn6ibWn1EKdEdVg6Bkzo0boYk8oSdku +8Oy56CGoo0aO+b0USFZ3RZG43Q7lpH1kr0KWYkeXK1zU4mTGDVWJ/67msg5W +NwQarg2dKttLymdzc27fcwNFaYjXfsteMpSHHeF7z6EoMdTxKpsKqVovqDHo +6Q6a4ubB+gBlspqeqifJ5YESr+UI/3klsvvU80sj5h4Q6HH5l82qRDZwUSwk +Zz3AtuaPWXWUIvlyv2ThziFP0BvSyuNEFMnr4wfX303xxAqrq+1jmnuI99hQ +mabWeRx/oz5qWaZA6OEVnuzxXqBdUzpBtVAgPUeag1qGvdD7zXK1K5MCCX8W +fJyPeONLTfHmflN5cohf74HiuDdeT3lR1dnkyYWanCPcB30gqi7h2uMsR1xD +9YTtUn1Aiat8Uqe6i2zMqo2JN7yAI8L+Fv8eyhL2N/cuuOVewN1oJ4qUsCwp +6KhYeMLmi6WfdbWDK3aSjbJTF0YrfWG6TuqaLJ8McQs8dZFd1g8HHvjOXLkn +TQYT59OqIvyglv/+xzsZabJx0ah8eMgPR51X+qw7KkXYpxXdcrMuIc7Ta16r +VJJEDC23PtzujzUvzPvGTCTJwOgJXk6qP/JWLDV9nd5G5hvzJ9/99IcFi3nk +GbKNuC9YRLfSA8CmcSJiekyc/M7QFBrUCEKsQv4F10Rxcr7epN0gPwjFEYHJ +c1ri5DX9QowgTzCY5da6bUnbSnSpp/49vhyMdXZfWDs9xIjm8C6fT1YhuCpa +QY5LixH9u0zxIfEhOO82FOv7dQvRNBx2sWkPgY6Fc5O79RYSp5t2tQWheNf4 +nL25bhMpmUp0sdh+BYy4GWFDvU3ktUaBbhvlCtyb+8pdukTJ2VXCvr4pV6C0 +3JbAPbGR0PYEbvdZdxV7xfOq1+mJkAq+M24szGGwOvfjE/kqTAzOm/nuVP9v +h3kY+QcLk0yhmjuRfmF4vkJC/mu9ECnewp/4YzIMyW1yvSwnBAkNFbSVQ9eQ +x7myQ5pFkDSkvYzv2nYdHdpuAbMFG8iAg/jNdvvr2BBcI+DEvYE4aFNEzD5d +h4pu7TGnboH/+q6Qp/eF47RRfhgjUoBs9xhdWhCmYu/Skbf22gJkD/vQoJ8l +FUbhAo655fwkYNOWmOX3VKhGCWqK5PORAnqiu3xfBH5JXHdxPMtHLM3SNo6J +RMLysgxbhywfqSHZ/G+tI2Gja4RvJevIo8924TsGIiFOVdxi37aWZDkbr+wb +vIH4so+W76TXEGz9bssyH42Dq8Iuc8/ykh93NB9+UI0Bt6eRXRONlwhahU31 +XIzBlgaJrQoTqwn1qW2S8r8YJG37G6WTwUP4OWyC6i7dBIdSlEanMQ8pR92u +ouSbYJF/Y0xl5SG1XKkDxZU3UXXUgN/WaRXhfjbUPDh3EyKfs/WFsJL80dfV +5/C/haxeF2fKP24S1rc12TvlFnazWa/NLeQmSY2mfyaqb8Hl5JCOjCQ3WTtq +bCC0dAt1Xp47nTeuIJ2l8qobQmJxxfBGst5uTrJEOypXTo1D9w3vhbszHKT0 +3cctnHlx8OrP4iqs4yCHRTR1TrfFwdRAkIPHkIOcZhwt0+ONR+4HtSItP3bC +trJzS05CPMTdZP3XjbCSgl1jcxUPEuDK8yt0RTUr2ZNykv/VswT0Z5kxxUex +ktNU95yJoQTE9ITNWuxmJdYRDz6ckL2NtE+GdJdQFrIqPj08v/w2DrZW7GzZ +x0zClZitjFsT4aY9qla5hpm0dBlNL/5OxE7mpgGFH0yESSdfsmx9Eix39Ern +JzCRp3NnOnTsktDoe0NKYmIZ0YJLb0Znk2Bn1fG4P3sR2wd5qpR3JENgMOJj +sf0iKibDDkYZJSMyuCfYfPMi1t0TCx7zTcabyC9R7HcWkL+4OvzFk2QUm1zm +piXMQyCw6fGUzV00JHPt0yuaRYTWiivD8SlQGamPeeI7i2OHPR3bq1JQWzPd +801jFgO3teQef0kBf7t8N+erGYjw8rNmy99DSP6V0sS//yC69WLFQNs99HA8 +e8RM+QvtPwGvaRw0dDi+WyiX/4s5qRuUaVkaZo43/x5n+guN+cYdRqY0LBmn +5g6kT2P98ENOkQc0jHjl7Y4f/YP7zrzUuS1pGP4aShlImMImjVgVs7o0BITK +apa7TeHVeOORjs402FbPFk/qTKFe/kHG4e9puEsJ2pr4bxLch19+MuC5j9cp +e6VcT03CTz/D3t7qPowE35xTIROQNhtsHv13HzuWzj98KzoBm47x22Er0+F3 +iG/6+fxv7BiW+bN5czqOyCg9T2f8xnYKZZfFwXSoFpFJXuXfEFXdffFDfDqk +5FIzWQLHUZbXqCK6OwMBEol7G7TGkZWbMdeik4H0zII5Lq5xPD0nkelrkYHe +92eKZOPHEGLQHt4dnIFXmTaFacWjoMid9Up+lYE+uUNCgxwjCBhQ3k/cHsD5 +catDHusQXIZmXzGyM5HIb2X48f0PpLVytW+sykQ+zf+RXeEP3Llx9kZweyYu +xjM8HWz+8ww3Jd3JTJQKO7vL1n6HarKnU4daFjx4rFWkbgyiNspLuu1lFgYb +HnW/tP6K+eFKadU/D0G7dOwK0/6v6DJiYgrnyMae+W3n3UW+wvYWT123YDZ8 +G/g6WPq+oIh57qObejbYbi6s+W39BZovWsdirmVDnk971M31M+p3dfcnCOZA +lFmYTfjUAAxNlW4EquUihRhf9JQcQHxtR8a2Y7ngCs3uVBzvxzTLr5gXdrkY +Df0kNx/YDzI7/pwnIhdFewzGXDI/4tKI3t+LPblwPvulgYX9AxzL+4Q+eOdB +qHXb5yWu99C8PD6cmZePk3mbU9d+6MGb1Q4Kc7X5WKXlNuFN78HPjlAfg858 +yGrpUmXMe3At52Hvt5l89EsUyGrkvoPlfarLpE4Beg/L9Jy3eYu8pKO6XgMF +iBwTW2qe68LZ6yMxX3jp0HhsLyzwvgv6JyMDqGJ03FY6SE+s6ELVtYfbZffQ +IUlqUtV8urD0J5PmYkZH11blo1OTnTB3YX1Qk0IHxn16X/x7DaIns9GWvxAX +L5dRb0p0oCs9cicPrRC8j8bCOrk6oLIweSz7YSFuFjALBvS+QsZ3+xjNwkLU +hfyalXR7hfXF5ZbnGgrBz2mywej2S4hcGBkr/FoI1q+3S/3/tQFBKg4924vA +mcajbj/Rgm5n798Zj4rAv8fWYt+TFqiomiy/KS+C3qUnrUaJLejfJMHBVlcE +yfdLf6DRgp3GjtNWr4rg6nbImifmOUwDbeSmfhVhW+O3EN79zTAYHK6tkS+G +T3PrdXHfZ9ie/Mvr7IlipIUYe1+seQpLZtfUtwHFEMobI9P1T6D7jkP0cWEx +Ko/VhPLefYLlplyDLEYxck9xNJ/0eQLGXfEDt+r/+5c6L8fLPEF61aEo245i +aDlO/XJIbELlYIfVt1/FMPM0m9W61IiasIQXQbtKMNZGdXhvV4+25WHDxZwS +HEu8dk+c1ONbg4m5bnEJ3tz9+JwmWo/Z1iMJ0ZUl0I4U17QorsN6tsPF/K0l +sBFw1NyUWQuFzxT95ZESyIzxLpxKqYZi94/Kw7KluJPunRDdzsCS6MqkuoJS +FBryMxduLMY5uhejKbMMu/fzGrD81+XrxOXMjvwybOuUJtENRdjdrf+9t6QM +Ttfaeo3OFGE53sz2R0MZCnY1VQWWFeKCyZmtnz6WIVD5RaEh4xEiAjsOGAqU +Y8ufNYaa93PQmL8YIhlajq7SwZreqDQ8W+z1ijSpgNgVgT0c2mkQrE3uybSs +wNvlx0KyEzRcDdlQU02pQJbSUaHmllSMyiiyfnKvgPukeOr+qynoN/rosxBZ +AW6V1y9kRZMQoH8h4kZTBT69e0uXoMdAv1Q8lEOeAa2fDdTpomgY88QwFyoz +ME9V9hAoj8JO/qdTpuoMJAmWPt/XGImv5z3kEg8xEBvxc8eP4evgWjqwMO7A +wEEL68uyPsFoO9xRNpXEQLo8931xwSAY8bRpO9AYWJPAHWyoFwCNTwPkdSYD +iwJiai10P/hy3b+eVsxA2LMN13qSz8OlRlybv42BcH3vGw59HnCWPqfj1MnA +3+uKe733n8MG3bQyRg8DXo/8e51Nz2Av34GBo4MMrF/HFPNwyB7RmoFJ8SMM +BDvPMGyCbTG7SaHu7QQDnrHpgutULbFZSsdEYIaBybvmMeSSCXyoD44bLjHw +P7qJ+yc= + "]]}, Annotation[#, "Charting`Private`Tag$4175642#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], + LineBox[CompressedData[" +1:eJw11mc4F+7XAHB7f1NkZa+sZFSUdW6rkpFVRCEjVPYmOyuZUfYWIT/Ze+9S +RvYmW3bI6vn+XzznzX19rvPqPudc5zrsxjaaZng4ODjRuDg4/3v/P1RqE2Yw +gRi0JhVTFVhCB5XHs/b/c1ESCUdQCQ8QNFTwUWB9uEc3kd0uAoo0TIRkWEvc +G2sJLhGHRDpKQmKs7QsCXr1Mk4ZbK5F8+Fh7qPAn57bLgl5Fuv1ZAAYtjjbG +MdYpwL0q2ZlDrKuXOJUjSu6AsbCd/Q7Wake23/Hz7gGJhTDfGtZ/S9uk3NJU +4UuZN8E81jsbrCMuyuow7WpIMIb1UZFXekm7BnAw9vL2Yq15JZx4S1YLaM73 +27Vhvev/hE6wThvMBs2mq7CuH3C1+FSiA2RHCrxpWNt+mG9ZvvoI/gZG4Udj +bdCvfMqbpweuYI/vj3VwupZMQdoT2D7ZsTXGOoOE2miT0RC2vWOm1LFW7iTu +jlc2gkj+HlsZrBU/+5RMtz8FlafE+HRYG42RR/q/NoaJGjJ8PKwpiocoeeVM +YHcsl2f9NQb9eKVK7VBnClftq6bqsHY6Kpm5UGoOksH3CHSwHtQSDq+xs4Aj +eTk+SayvaV+jfiZkCfEzk/YsWNf+26mry3sO6aREjnP+2P+aWai6plsB+XPZ +q0ZY8/nxWvMZWkPMDW9XaazHoD5hnMkGSn1fLjFgTe3YHceuYgux/I+v9fph +0DxeJFFkhx3Ujzb4i2L9J3GK3eqyPYR4fdolwbrQXWHyXoA9HLWrB0/5YhDl +rpUsibwD6FDPsAZhfT/l16XQekdw8pEg+e6DQa6JzFslZS7wdLy9QdQbg25S +mGrFMblCFn3Et30vDCKLbCry9HeF0uc/hquwVq52e66s4QYWnm0rUljfGdtU +2113h5SKxWMxTwwSuMgQ4MrlBa4z3BNH7hh0XajB2zrUC1a/0fUXYn23xq7C +bMcLmEdr259izRfbuKHT6A1P/goXtLph583k5l/uQh9IOrtp4eWKredHplOJ +e36w1Fec2+SEQXNO0VONnn7AfXMp1AzrrDkunztf/MAzj86aBOvCQFIKHXp/ +UPvpI6TsiEEfuBp8vRf94YkAQU6rPXY+G6tqD/wCIHrRwyrIBoM4TtPEY2qD +Qf2vjY+KBQZFcHdLdq8Hw7nuvsgRcwwaDUQcuMwhsM7V3GSCtXnCWZKdZwig +V6YBLs8wiF1RwP2JzBugpFWJiTHFoIY9Wh3jxlCIKCkYzDLCoH+kLk1X2sKB +eZzsAosuBllFC77w+xMOoUmFMuE6GFT3sP3qKHcEPGTIDjt9iEGdfYlkbwIj +QDgsO2L0AbbfdosZJ5yRwJtdxhWkhUFlXrc/BS1EAhhBfKUaBtk8TSahtowG +csXgaUcFbD8Fo2yGfaJBb9gg+5s8Brnl4bolxUXDx0jq95xYG+P/58zbGQ1X +OMQOv8tiEGti0vW7PO/gQdDNRkbAoGJWNuechXeg50j/LOwWBl3l39xcNY6F +OySOcn2CGLQ9DQxlhnFgJ7V/eZIag3y/T3oXucXBxLEt028q7D6Kj1woeBcH +74JrGU4uYJB3cmJxbkccRCX+FaA7j0GXbrHbFwjFA0WMS5EsBQaJuGt4LfyL +h38K5xQtCDBI54lUJHd6Ijx82XJ8vEuBBJ5GPWNaSoGHN2VaUS8FoqRq/pD6 +LwWsZi4q8vygQAn/VSxw0qfCc+/VLYrvFOj29n/jQkqpwGTb0TX4lQIJXqW6 +9yA/FZIPanyfdFCgSYJI3zXxNCDsvU+rWE+BKMhx5aZO0kDD+ZaoUz4FmvEt ++5gRnAGFcpd0HvtToKIi43Li9Wzgy+LEl2enQGE/oxZs1T4Bd1dBuVYxObra +UUsoElgAIqvCSswy5EjeNHAsirwIDNMWBZKLyVBhB9+KVuMXICRYPcfJRYY4 +1LQDBl1KYMOJe8YyjBQVskhPMZmUwbrCOivxFAmiePGHoV+qAhp8q1GXEAnC +M7dsvqlRBdnHp2x4FsRI80FWS7RdDWTFeF4KjSdC7L6MfAL+dbAk8THyRS8h +cil7FF400QBnLfWzRb8JkILlwnVPmia49eWbRz0VAYrqYtC7ad4M+e8Pic1Y +8NHQtbKYkI4WyKn0lZHixUMKs2ZRLtxtQGiuxzMljYtmdIuGomva4Xq2+as4 +SRz0wnsmvVKrE/6l3nt7EH4GS5kii+b43cB56U1SbMEJvLpG/5sQ9xsENxhm +CacegYl3wC8Zsu/w8lXO7HHpIZR/U+K4J90LwWlSkbxZ++DhzHmNMKYP9Lb6 +pHfS9wDnqeEC/3E/RL0rEsPv2gGNxuefh8p+wj0tD4udvi3ILJDvba39CYXW +1/4r7t6CvTyvqvKWn8BsfSfPoWULyIPb1rP7foIlZ3fDQekWYDA84sW/f4LW +i6uuJHFbwFlpaxVweRCsrSRTVAy2oN9Ka1AocRC4bjv4dAxtgvPL3Lc2UUOQ +8ZyVZpxyA+QDH+YrxA+BZD3vASHeBnw38DVkScfm22LcRfd+Q1/WUPx00RAY +6O1bRo78hk191/743iGwVAwnNUr/DbekjxW3zw9Dr2+P7P1rv8FLKOhMJXYY +visN3XXSXQdDaq7F/s8jQLnBHsKcuwoMtqFz1RUjcNg//DU2fhXw1Tq6PjWN +wNQVc9Xzoaswd3PYJWlwBO5ttFFRWK9C6FTi1aHTEVAMd/jOcn0VCpy7KDPu +jwLNoaVSceMK2L/kcho6HIWXwQqaiePLkDpR1ZyPPwZMJDI3DHqWIY4snTzk +3Bg0886/5mxYBlr9g1J9rjGQK9m2KctYhqitYxtj9TFwemeTvG+5DDxPrcnO +Po0BNWVL3ObhEoRnnecqMxkH0/nBK+30S+DKsFvTaz0OpSzUXJ3kS5BPWWK2 +5zYOhd5dht/OFqFHcJ9aO3IcTE50P43/WgTP1Z45p7pxUGUi+0jzZRFKL4aW +KDNMgFe3oNqh0iKIm5aEBQ5PgL0GT7qP5wLcvHHRo2J+Apgyq+x6bBcgWCq1 +cXtzArg/ZhYwmS7AOxUVXz+SSXjmDM+a7y2A21kyPa3EJERIT5MK0C/Av9OY +EcrUSXguLM9sX/ILPjBcM8m0nQIVZptv02vzUL+j633TewpGNZ/X2k3Nw4GH +7YuxsClYwyMsIuqbh5Lomb8K+VPwRlM091b5PLymqZkvX5yCVjsu4lafecDZ +ETlgNpoGkssOgy9o56HihqZ649UZ6D53YEGlMAdjmGdXVsVmwNXppJlYfA5I +cDXzGWEGTl4kaODwz4GX7oX62PszsCPTRnVMOQeJRvb2S7YzILI7fZ9uYhYC +x85ukpfNwJXwBsy64yyI69jS5snPAtVV26cXPs2AbITVeXmVWaCVZlO9nTwD +hn4a535pz8LnNmkhr6gZkFNYkJd5Ngs/Bb+O77vNwHRGwaR2yCwcGLj+JVee +gYkTOQ2avllwnbze8nZ8GoTdLZSlzOdgBfedK+mLKYjv0en5bTsHN911f9zQ +noI5a8ftXPc5IN0dNLGQnoKOkEU9qfA52CZkVp+hnAIRhyOt0bI5GE6YfsVY +Ngk1I+Kqf4nmgftxg2ETziRo2BbZy3+Zh5zLHTSTSePwXLfx3fnaeRjc/S9E +IWgc8rJ8/yy3zwPVWwflYrtx4P0Q0FwzMQ/FhbzNabfHYU283muN5Bc0SaY1 +dG2NwYICzYy/yS8g/9ZPo3Z7DPDMSKs4ORaA/NwKRmR/BArHCl95XV0AjrGy +pWezIyDEvES2JLEAciH+jzO/jYCGtOavWa0FoNT/ziacOQIu2nKcvoELYHR9 +TidefQS4ZeLlPTYWIGbEKqWgYBg4NNKtaLoXwZeNNGjJcggukr4ljhpdhKx7 +akqK2kMQmmffw7ayCCWSTVfyZYYgfCfCw5NkCcbtU0wiqIeARPr0q9DdJQjp +lVuuqhsEMj3p3aSvS7ASf4sogXoQAu5QlQzNLwN88DFPahuAdFXmqiv7y+Bq +7aZL8GUAemUuVSeRrIADrd13x6QBMLUzD/kquAICfAsPbBwGAP65BD53W4Fg +wxz+r+wD0C/QpzVLswr8rFF5bD79MMrLs29rtgbDNV9JHsn3QWn95EUC9zVo +lbey5hLpg5uR1Hul4WvgPWb24YClDxhu0ezZVq6B+9Uc6bKjXjC1aud4hFkH +ojV/zvDiXlD4R7TGXbcOD95df1/J2QurtB1xpQPrIBD35hkuVS9sOpEamK2u +w2yBF6cmTi+M+O8ZXaX/DUmlYuO01T9g0Xxq6JnTbxAy0KetEfwB2sRpp5Vi +G2CzkfKUgP47OP8Jmg6/vwHO3VoE7//0gB+hJ8Vbiw2YEns4ID7QA/Z8qRWn +CRuQSsVEXhDeAy+LxNM7cTdBULzSQYeoB05qlQi0hjehyuRjTf3hV4g76X79 +oX8L9DG3J3dXuqDEI5OYa34LxBVfZc60d4G2GmX/j90tWDqfKTib2QWyd//F +B9Jsw/K9+lxmgy7Ip05vdtfbBroV9YPXA52AK6oo2Lu6DeUYlnmq5g7IGESF +r063wUfV8iKkdcDFlyz+aud3QKGFy9nbqwN8rdamTMR2oDhNYlFKsgMKUx5X +Pn29A0KkOjfzy9phFK/Dh4p3F6h8FrP0C9sAX+GcmLL0Lsy+d6b+HtYGe27M +S0Wau/C32ZDtgVUbEJzefUHotQuyylvC6VfaoNspvGFuaBdakzU2RQpagUOi +0XMvag/E+h7/lfyvBX6YiCD5vD1YtpaOPI5ogSc80r2dzXsg6n/pRq9tCySW +swh47O3B0JfD1krRFngIU9ej9P7AYQZhS1BFMxibc74TFt0Hid0JK862JlD3 +/97ZoroPrNf8M5pzmqAFl4o1znIfCFP/RTi/aQKfqPjPxBn7cLW2vIhJvQkC +nnz7wkh7AOmbKp3GE43QkhZ2a4v8EP7RPsyq3G6AXws3uIivHMIta77YmKoG +YJI+47RROYQiid8DCb4NYKHvSCoefgiGPiwOl6ka4E9wybVOmr9w5GzTKHmj +HsS/JVFRiR1BfazjxnP/WlixqGfp1z+CY1JSnR3VWuix18s49D0Co+a1zSz6 +WuAW3dH3/nEEuTRX1kMLayBzctoh3eYYdm7JZBpPVIPVnUdzzXHHoOxczqGY +Ww322WO3dJuPoS7uxW0tx2rg4U4jWqQ9gbrPbGU7FNVAVXdpr6XtBO5qfv4K +qAq85drvVO+cYO+ILhJfTBV84RzSvM52CkcsokYbY5WQsZurWPvqFDwS0+NV +nSvh8HaOnL7UGRglXh5n/a8Cin09yM6G/8HuIPUEG185CKdFa2kS4qDiHG1q +45MyUIl/mr/FgoPC/KW8un+UASP/C1dqLRxk97qA/YJLGWz7faGjbcBBuydf +8V06SiHgVOLi4hgOarnTKrWbWApvyq+PkB/gIH6FEsoPtqXQmLyfayCMi3q8 +9CoeXCoF9yO9PZUcXCTlZexRZFMCYWyuHvttuKiS2mD7uWIJLISkfMBbwEVW +pqLPVRmx+ZOpAiUuPOTwIy/+TUcx2Aa3unbk4CGnQn3zJfZiGAijnFJqxUeP +fxVliE0VQVNcqBTZKj7K51tNdikvgnGPSs775wnQnGen82x4EXgz2RzaGhAg +oTjCIyFUBAcbnc5PcQmRoGVMvoPSfxB7RGIZLUCIcCVZEwJPCuFrpWmYwUNC +tDShx7f+XyE8uxgiOviZEJ0uH6X8R1cIukVUwgmmREgz8ISdca0ArJflLPFi +iNB2zh319rQC6EuHcvZWIkRle0rR9rAAvtxhfhR7mRhRpUnm17XkQ6/lYW7b +HjGq9IgYSknPgy+CpCV6/CTIXKiqf+VRHgSfX3HsMiJBM6me2iFUecDIHj9z +p5cExRsEmLe//gTKDNcn9apJUbE7nYqUVS7Yx4pHe52QIt5l+SwjjlzoZ/LG +HQIyRCYZFr4ynAMFi9dJUDcZqigNb+ZTyIEmifL5zQ1y5BjuqWPB/hEWkitX +UyQpkPzn37/LRrNBr83+UlcIBZJyJrO1jM6GkOzbHZX8GCT7pn4FjzAbTM4a +XMDnHNrzNvxIsJkJspobsf9Gz6FzW8ahgXmZkBgzsBN3gxIl5sV12TzLhM3Y +KuKIHUqULoZH6TadAehnLPv75vPofPgKzsuhdPBfjTHIPziPJMWYtwRj0+Hc +v5Q764IX0G08+zpd7XRIKLT9SptyAfkTfq1dGUiDDCF3nSvhVGhOGHf69L9U +UDLkM6juoUK0rtwTl66ngvPbHOztRI2Y3GuHKKpSIFzPvjwzlhoV/3FxsWtL +BoEgjs7gcWpEdWvy7y+VZHh1OF57mfMiOtOQFxUaTAIia3vhrxUXkclsa4jS +ciL8svplsENAg3yU2MMvOSTC32CNeWptGtQRdo669SwB0hUfjUYc0iD9Wz7O +GfQJUMGnKZH5mA6ZCb0fiH8YBw8CcAp/1NAhsYpVfKnlD/DY/EQ9k5keGbve +Dap2/wACrp9+56/Qo6Ilx1C1jPewxsEkdUmbAamqaFGZib8HfhzriIwmBpQP +NoePemLh7nn2s9cfL6EU42Cc2eMYELZY1+NmYUSdXes3HGNiQOShovvLeEaE +C07bS4Ix8Joq3SoqkQm5ivTecDB5Bzq+RYkCAyxo3Cb0lHc0Cu4DqctbY1bk +9r2ZUcg7Ctyk2vqt9lnRR5Wt3RPuKLA9JZ2E92yojvDS6LZTJHA0BMhELLEh +LS2ODQbWSPhVVqoSJsmO0lxyEuiiI8CNiEGcdp0drY9Js6bIhANT0meNxbsc +KHmWm0b+Qxg46ItMb+ZyoMwfxP+8t9/C9d0mC00HTrTNdkGmPS8UVLZsLPGn +OFG/jetiH2kobKgWqKaocKENz0w+9+dv4EIa4bixGDe6Mrn0OFs4BLpHGIZP +v3CjAjzbTv73wWBFWLJlJnoZXQrabtM4DYKvcn6qn+V4UNVDyA/pDYQbPJkR +bAM8SExbUCpZKhCsBK3aQix5EV1m0xedvABYWXAazfrEh4z9nObb37yGGgd6 +OkZtfoQbROLpdeoPfz69vHeBSAB1teaWz9n5AzXZ3EtDvytoV+yUpsLQD4QJ +GdMaVQXR2U+vB/yjvtB0LgeVc1xFPFGKluravuBRbpS6syaEmpn1U2vu+wBD +uPfrAVthJP5RX54kzRsOJNk5lraFEVcMuz1FlhdEkdmey3YTQZ94px4H5XtC +nfMH/2ASUZTjPZX3qvwVZL3Vl6BPFUWhfwYZtlo9gIk0qXZJ+hqa0JnwWhhy +BzkSlDz5/jp6Mtl/ZEboBv0PqNvdNG8g3aNmib/sriBPzRqgyCCGGi2l2ljk +XMCKsm5AaF0M3byV8GfMzBk0ZBI8ZL+Jo35LhtuiYU5QXW0eklZ9E4XEPdfg +q3QEbtd/KjGVt1A479OfrYsOYHPHW+bSiiQy6pJYPVGzB/o73TqUrNKI7r5j +cWawHbyKOJ1++UIGGQUbPcVvtwVHXddA115Ao5EFr9iJbYHnW6WacS5C55ZH +7YnjrGFGTUkzxUUWLT0gPTPks4LlnsDLCTpyyJ81+adu8wtYjTNok7onj4Jf +c2ScGT+HbxcXxMo0FFCiblioAbklpLPqjAXZKqLdd/7igTXm8CmoMzvl0230 +iNtr2N/hGWxpkHI/wbmLTEfGRZ5dMwOFPi6ZKlclpMtJ8lnq2ARMccpp9OiU +UW7FpD7dV2MYrL84Uz+rgvgJHcmJM5+CzEUectspNaSyGaHJ7G8EA1wGhKlv +1BGF1L7i6JABsClXDws3aSBJ/hLRd82P4fod45loZi30RNFp61m9HoRv//C8 +/1EbiRumHrzq1gWO3ZM+G5OHiGP1AB9n6SH0TdN+WDXQRS/2vNWZLz6AjYud +nhLZeujNk9gJAk0tWPaJYhe8/QTpvtCvXUnTADp3ClE8ASPU7rftjIerDoKB +BBQhB0+Rx6D7GtWCCrzdtQsjumSKeB5xUXmsKUGE3x/Olk/PkErIN8o2mjtQ +wWXAEtNuicyO47lemyqAOm2czl6SFdKjScZ7NCILKmcM8WpidmgsiE9leV4G +Fh6L57cpOaKYn28zREwlYDTPqiJO3RXdSLw5LHtNDEg3Joj6az3R0RVaZQIt +UWijqZL0/+iH2uXctrVCBUHRO36IjD8Yla2T+rkz8kBQ46vZeJ1I9OAojtHr +MTsc8Q1NXHD9gF4j5tvq+fSALLhVi15moIT8d9KybOdBtYT3wv3mIuRDUuhI +a4QHq9RnvDdMWhFOT5lRwvqmzCFRbpKR/0+07vZ+QPj9jMz/AVUvtp4= + "]], + LineBox[CompressedData[" +1:eJwVxXc8FXoDB2CblF3kRKE0qHtFCPH9GSHK7IasrChl1ItIRoODIisJOXFC +lHUcrpDqFN1KGZVxE8dKREYIpfd9/3g+j7y7v40XFwcHR+7//P9Pa6S1e171 +kMncrKZVd7r1hO4GCTjuqSJerF3L3ftW9Fp/e9XIPKETYxavv5/gGrhJ2Z/a +6ZxJni6b6brJSKJzyJrtvDWZlOiv5X5cuwkl2hS72BdU4iktX0rzVMT0STfP +o88uktjZCf+YHGVU8BtF3fC7QHw+C+hTyW5Qy+slu5ghRLIpYbifRx0OfF8f +bbx8loRpt970l9ZCbuyJsjUOAUR6WP6FfLguCvXKIre99CW+ejx7rq/Th5hF +zN2zX7zJ6NC4k3uKIZ7s3+s49dKTTMRHzTSrGeO2Fl9Un547qWEdNhRfNEVt +hvZ7183HSLCE7Dsa2xy+fH0cVY1ORJcV4dL31QKcvkUdqs8cSL3ITmkFIWuM +9HivtOy1I8suEoGFVTYIyOrIoQr8RVxufEhjnToMFltqN2WzLXkhqsGpp34E +Dr1HP9ectyanGq382EL2+Bo4UK0pYEUeLHwMOz/vgIVjxcHsqEPkvO0xj4+T +jtg5E3fwqo45kcvez/ow74y4wpMXaOoHSIGuWNkm/mMoyWC9Vz9uQmQGx0KC +KW7g6VFp/Px8P7myWp3TSd0dnjnP86kWRqRlu59ng50HhB5JnhlZMiCZu/kj +qdGeEDWV5c5u0ieTroWDJZVemOm2OPD1ASHPfZZfS44fR0OeFKeZI4hi9r9i +tUo+CJa3tBOO0SXv67MplwJPgKmcoeLTqUMuqh3v9Go8iVfGX9g65trEpvd0 +jc3aUzjva6g337uXjNqv0HQCTkNkNvlDyFVNwohXGRPv8IP5Pq0/rmprkLme +UsnxXQHISFfXXcOtTqKVMwSs5wPgwjFSYT6oRmaL048wngZil07Ng5kuVfJs +gu+AYOoZsC7JXptm7yZywUfdLLzPwlKpjhH8U4WcLP5w5Bz+A0e36F/DW1VI +lMttiegNQailfxDLb/yDLFhOV7gtB4HVzKPz2XwXaX98J1SiLxiCfjbLNlPK +pFvoYW9SUwgSU+YWeouVSEndobDWinPIbvjXmxm6g9TNBYq/pYXici3thrrj +dmI64ZB4JTUMnUWvDw0d2kbcJ1MXJ+LOg2Gikp3hpkimWnTONkRfQJDg2JBF +1BZy8KGxjvSlCDxpWz6QWrKZ1IZLeIhSI3HD0FbuwoAC2c257YWFaRR+P5za +o7VFgQR6ND9xfhOFvj0TxXwB8sT8a06C6pFo7D3SRFF/Lkdc9XRzX/ZF4+iO +9Hsh4pvIT/FVz7V/XIQzvRzfJmQJ8+9+buHYS+CUdhuu6JQhsnJLQ7ekLkMz +0tcusZ1C6iWZDl26V3Be7JCq8IA0CXht7Hu54wrUTJPk8n6uJ2wZUwr7ZAxE +eZ4rBlhJkX1BK6X5t2ORfMOEHU6VJF8eVNnz6lDhpFo2R/5ZR2ZWm28T6aZi +o6WtI5fHWnLUtVBUghIPBc4C5Y11EuTJgv3OVQ3xmLL1XN5JkSDdbgf8ct0S +YPLYsK50XIy4q2ZU0MuuIvBdqW6wsxgZddD+IuJwDVPRg4td70TJOyFDhgRP +ItQu+zDyC0SIV/fP+70uSTDRXKQ1M4RJyY4VOSv+6yiNkl0l+lKIXEx8J73k +eh2ar6eHrETXENsy/ky6RDLwbGIsDKuJ59zw8Xy/ZPwbGHNPOViQdL5dDPR+ +mYw/gxWqnv4QICqyL0Z1Lqeg7Obbb7xGAiQx8lap2UAKAs3iZOPS+UmHHcNr +g34q5IPGrfea8ZHBuD/P/uZIQ8Tph38M3OclPbpWe8Tc07DheqNK81peMuck +Vc9mpUEx7NdZ91luEv/m96r6uHS0Za2VtB/hJJWCV33JxgwUXSvU1AriJOvD +FqbNIjJwOap1wIWfkwTH2PjMf8qAR32r58oeDtIVONqyK+8mOJfMXlyg/caw +WXja3zyZYHQJqeV9XIET791Ftncm+L5zlgl6/UKCvsFRYZVbWP2bMjRZ/hPm +49fVRdNvISJePa2a8yeGL8j6ly7dQtlYko1xxRIMWBebG5qzUHzsBre80Q+o +pLx5tf5EDu6lLAu0VC4g1OKU1WR7Dg4uCxWpKi5gcWJLv6Pubcwuc78rXzsP +akMd/y+JXNgbDvsmJc9hnsGb/mdULlLXKGUwxOYwt6S1/sfXXPQXO5d7bvgO +akJP6BZPGrYp81Me02eh/q1xs08WDbbWbQu/VGZxikV5NtdOQ6Pzt5lm6xnc +rKN9njC4gwU+m2nryinQi368MNuaB1HjVVUhVlPoXxRX63TNg8j1Kg4W+xsc +ohWySjLzEJ1d/fRCwCQWVPv8lIXzIcSlr9T/aBwHUuxDo5bysTahbQ2XzDhy +uCIVjTXosFRRqn4UPoYfGlfGrM/Qcbj+w2q66Rek9rW3aY/TcXTkyO9r/J9B +3SpQYN5/F9/01FcmI0bw6vBwoc7GAjB3+lhrLA5DXNdu0t+pAL+qm7mV54dg +8sXag95dgJ0DwfsYIoMQGnKr1OgsROA2nhHT7AGMiPBlG0gVIel2zyst5QFs +mb3Kk2xXhLBrbbHTlmyMBf119ntXETrMhNe5HO9Doy/l4dtP9xC/I00pOeET +nBUuvc7ZXoxzMseZycxeGG21TKw/Uww7zQ6TUKmPWF/vMDPGX4Ioi1cyiSLd +MNnYIcitcR92Am/LW+26sCzC42Vx8T5yyT7T+fxOVHG1So++uY/UY7u4Ykw+ +wN8v5DTviQcI8TKBQm0H4vtOPemjlSJuorqWLduBBVu12fRvpZgz3rTccqUd +I0PdWjf1yvDLxGbrJ5c2CAvOjkT2lsHm1r2hEu83aK1tWTyRVI46U0/9ftcW +NB6nRE7XlEPu0lO6pfNrTLdTZ3L6yyGdysPh4f0SbgbeUl6qFdhh7Ba4hdmE +xC9msUWdFbjZZNUz0/Eco0abS2w5K7E14gFz/cIz0GSvFigoV0IjPv0gvxkL +svU2t5QjK1Ec2x31cdNj/BPwljm8nQGnWpEfWQ2PUJX/9/sSWwakF6VGHxs0 +oG2xuC4tgoG+GVUnFfeHsBA3snnzjoH2aT3d8Okq1DO1lj5erELEs/AB3bsM +VE31ZTJLq9BwrvsExbUS96LPzZT1VMFCeHOe4T9loBvuOLBKjYlD1oN6Qt4F +aE0KHTMbZkJz4USj7w46nBPUynaJV0NgcXB54/wdvPzO3Lwb1TBaMUlxcswC +t9L1m5mZ1Th2h/Zkv0oGvNaZ2q00VYP7/F5X7fWpeGhKNbj0vRq3e2SlKxUT +cZg3T2u7Qg1EnMJCryAGyuGzGyYsa/BfpZar9Q== + "]]}, + Annotation[#, "Charting`Private`Tag$4175642#3"]& ], {}}}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"h\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ +StyleBox[\\\" \ +\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"|\\\",FontSlant->\\\"\ +Italic\\\"]\\)\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\ +\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*SuperscriptBox[\ +StyleBox[\\\"|\\\",FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{\\\"-\\\", \ +\\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], + TraditionalForm], + FormBox[ + TagBox[ + "\"\[Chi] | \\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\ +\\!\\(\\*SuperscriptBox[\\(|\\), \\(\[Gamma]\\)]\\)\"", HoldForm], + TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> { + GrayLevel[0], FontSize -> 14}, + Method -> { + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "ScalingFunctions" -> None}, + PlotRange -> {{0, 3.3}, {0., 3.690456156465704}}, PlotRangeClipping -> + True, PlotRangePadding -> {Automatic, + Scaled[0.02]}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "2", "6", + "\"Caselle \ +\\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ +\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"al\\\",FontSlant->\ +\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\\\"Italic\\\"]\\)\"\ +"}, "LineLegend", DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["\"n\"", { + GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, + Background -> Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.368417, 0.506779, 0.709798]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.880722, 0.611041, 0.142051]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + PointSize[0.5], + EdgeForm[None], + Opacity[1.], + AbsoluteThickness[1.6], + FaceForm[ + Opacity[0.3]], + RGBColor[0.560181, 0.691569, 0.194885]], {}}}, + AspectRatio -> Full, ImageSize -> {20, 10}, + PlotRangePadding -> None, ImagePadding -> Automatic, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #3}}, + GridBoxAlignment -> { + "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, + AutoDelete -> False, + GridBoxDividers -> { + "Columns" -> {{False}}, "Rows" -> {{False}}}, + GridBoxItemSize -> { + "Columns" -> {{All}}, "Rows" -> {{All}}}, + GridBoxSpacings -> { + "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, + GridBoxAlignment -> { + "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> + False, GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], + "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"]}], "]"}], ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"EdgeForm", "[", "None", "]"}], ",", + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", + RowBox[{"FaceForm", "[", + RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{ + 3.875957140679967*^9, {3.875957171901413*^9, 3.875957177389202*^9}, { + 3.875957286074856*^9, 3.8759572915772743`*^9}, {3.875957370668831*^9, + 3.875957390170678*^9}, 3.8762092922172947`*^9, {3.8871754958604937`*^9, + 3.887175500271595*^9}, {3.8871861172995453`*^9, 3.8871861368256903`*^9}, { + 3.8871861982272577`*^9, 3.887186209328771*^9}, {3.887186531197132*^9, + 3.887186543092368*^9}, {3.887186624995718*^9, 3.887186645867601*^9}, + 3.893237610747847*^9, {3.8932377310303297`*^9, 3.893237737874032*^9}}, + CellLabel->"Out[48]=",ExpressionUUID->"5632f44e-d2ee-4570-afa0-630f5721d24c"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + "Applications: plotting as functions of control variables (", + StyleBox["t", + FontSlant->"Italic"], + " and ", + StyleBox["h", + FontSlant->"Italic"], + ")" +}], "Section", + CellChangeTimes->{{3.887175666126995*^9, 3.887175672719225*^9}, + 3.8871757098402243`*^9, {3.893240714208487*^9, + 3.8932407443131866`*^9}},ExpressionUUID->"7bcdac80-37e1-4f66-bc64-\ +b0d2db5bf4c3"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"invCoords6", "=", + RowBox[{"InverseCoordinates", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DufDut6", "=", + RowBox[{"DufDut", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}]}], "Input", + CellChangeTimes->{{3.8932377899231243`*^9, 3.893237808714438*^9}, { + 3.8932412276866207`*^9, + 3.893241228978397*^9}},ExpressionUUID->"18ba5487-e161-432a-b28e-\ +40a5d59488df"], + +Cell[CellGroupData[{ + +Cell["Entropy", "Subsection", + CellChangeTimes->{{3.893240903148159*^9, + 3.893240903699958*^9}},ExpressionUUID->"732869ab-e280-4316-b799-\ +ffab64c308f3"], + +Cell[TextData[{ + "In this plot, we show ", + Cell[BoxData[ + FormBox[ + FractionBox[ + RowBox[{"\[PartialD]", + SubscriptBox["u", "f"]}], + RowBox[{"\[PartialD]", + SubscriptBox["u", "t"]}]], TraditionalForm]], + FormatType->TraditionalForm,ExpressionUUID-> + "20c22e44-ae22-4cf1-ba9e-ec412d2155ac"], + ", which is the singular part of the entropy (modulo a constant analytic \ +factor) near the transition." +}], "Text", + CellChangeTimes->{{3.893240788042069*^9, 3.89324084285141*^9}, { + 3.893240875195952*^9, + 3.893240882915715*^9}},ExpressionUUID->"22825260-2ae9-4101-a1f7-\ +3f6b1bfde9fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}], ",", + RowBox[{"Exclusions", "->", "None"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "t", ",", "\"\<\!\(\*StyleBox[\"S\",FontSlant->\"Italic\"]\)\>\""}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SuperscriptBox[\(10\), \(-1\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-2\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-4\)]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "h"}]}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.88718849775531*^9, 3.8871885088435698`*^9}, { + 3.893237820068544*^9, 3.893237866436099*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2Hk01P/3B3ClQpZkSRuhQpKQD1Fca6lsaUOyVCiiKEpJokWUSpQkKSqE +Ybb3WOradyk0iLLMWEKWREjm9/6e8/trzuO85px5zes+732/ZhSOn7VzX8jH +xxe8gI/vf6/qsGKQx+PhAaWNVbaJrXB2Zn3EzCwP9Zj5yr5xrZBD01SamOSh +bZrkmrvRraClYnW8b4iH1Ogn76tDW0F3+Y2vdS083Ob0anKfeysYccZrnlJ4 +OFzVYnNGvRXsbte/2+bCQx0t7ZeyxS1wseGGj+eHeXxVO52wd4ANzc3Cg8Vu +/1C3yOJL9uovIFt0Vkp37Ry60+8W1Ac2AcO7bPGyb7OoLnjr9Mm+z+B6V3Os +LWwGy/vbJNONP8F0zJUIhGmUnH2pM3ivHlLEvq+K757Cvg3bidzLNZC4V9O/ +6c4kAm/jbPmzSgg743Zp057f2LTxj8tlqXK4wp9x0f/nL+RtLzDdcqsE3EIb +NrDTxnHJtxKVusNFEPe+Nz7Rawxv62ccL20uBOdLCSG67mM415Slta68EFS2 +2ZxsdBnDRmmNKzcYhZCfxtoqeGgM8+10o70fF8L3R1EV52EM7WqqTmXaF4Ky +l+bvvVJjOOOxy2X+ewH4b5lN+nVlFKVXh1xdNpEP+Z0qIpmKI0iTiSzbr58H +wTsXZCWsHMFOiagsWfU8MHjaZnVHbAS3nT8IEwp5UGQXed9j9ic63rA+XyCU +B5XlQxIKjT+xaqU/UdTGguZ32aseX/+JWUIHbqdcYcHIRW3l0K5hXDm8fPl4 +BQE5zSJVvuxhZP+TqpsrIMBPs/fUsbphVHaQ6JbIJeD3YFyGPmsYi3au2Or8 +jIC/x/5smbw/jFMOVZN+5wgQNMvX9oJhjNSyn49ZS8B6cSOTg0lDKLHOS707 +mAnRGt2XvR4N4fgVyfAL/kyYtg2jhUYMocmc9kepU0yoe1i2Ict/CPefLD4e +fIAJFyT3CCzZPYQO69YZDagyoWKFXR0xOohhmvyx2zsY4CV78vAa40H8LRuW +MmDBgGaDxfc1dQbxTPxXN2UjBhg6v6ncvXkQNwlo9pzXZYDki4HtF6QHcdE5 +cyMdJQYUyvusqf/xA1WShiXdFjFAbENgV0jMD9xqErTkYCkdqKoRXj2cATSf +dFRt3keHdZ9d8za3DeBXUwPbKTM63L2oJxjwcQArraTtlQzp4F42+FogbwBH +O37I5mjQYaWzVbda9ABaX/8w5rWCDlcfSthf3D6AlAUwGcqlwaDu0JuiLQPY +9Sp/Yfh3Ghz+XjoptH4A2W5qao9aaaCxOeBRougA3u5Q6/xWR4OespaPxT39 +GOxmJSPLpIHFdKK5yL1+tLprIW8eRQNGUkDsobB+NMot/0/1Fg0Uza05SRf7 +cVVwyn3Z6zT4+5AXqnm8Hw+1cWW2XqRB9ubjhYd1+zHk2KP0fydoIOWivO1l +dx/WTrss3GtEg+uL+cIG2X2YduahmNROGoy8a/20ra4PHVyY/sO6NKicvuNb +wezDqfY4s6qtNLgcM5w+FNWH1pPe0mryNOgsz5XX0enDiwvHrFP5aRB8YMZs +u1of9k1NxN7lo8HKbqPT+op9WGr50fb6PyrYzjXkGor14ZHV+koP/lChSGvE +ZHdfL1qbV6uYDlPBqeg/zz0dvRifMTgf/YMK01ZXo/Y19qJfvbJxfx8VNE6L +NNt86EXWj+v877upkPxC1d3+cS9KXCi1+tdChZ1b/O843u3FlX6eBzK/UKE1 +Py/LKawXTx/mZ3o2UUGcbTHl6tuL3F/9EfwNVLgu4nn79K5eTJyrXNdQQQW5 +hOx33jt70fWkWlVXGRXylacafLR6UW39e9Z8CRV+mdxc6S/Xi7/sTD1ckArH +g1LSL09x8SrrYzyNRYX5JUP1wcNcNF2jtEmZoEJCrNavkB4u7myd63vDoEIj +pVg//CMXuT4CHTVUKvgaCLncLOOiUJKP8NlcKiyttQ2/nc9F3TTCfl0OFUz7 +Omuj3nDRrM5yZ2oWFbrOK4/dS+TizZhFNZcyqRC84KzUgxguCrsGnXR4RwX6 +2nmn2BAuavm7Zhmmk+edYX798QUuzvIC7UzTqDCse+91vBcXE3kx4wfeUmHD +gbUjiYe52HRRdOnT12Q9uk5IvLDk4oCjeVB9KlkP33c6L024qOD230dR0tN/ +fzmmbOfiyj2R/I4pVIi9o3/ttToX9WRbJKmvyPrIhKW83cDF4vVxM9Kk61Kr +K9NXc9G8YT3l5ksqnNJaPvxOnFynVKkvIL2oyF48ewkXjU5S/COSyXpaJWvn +zHFw6b0fF9aQ3tneb0/9xUHPD75b81+Q9Ty19Sp9gIMT59cmniR9YSrwJfM7 +B+8tYtJXkxa/8aGc1czBxsdc/44kKmQuXzKYX8PB7St0P6WTtnhhJfa+iIMF +KooVYaR71eK0kMlB9Y181p6kVUNejwy842CKc9j9w6R9GxgZEi856FiY4XSA +NE2+wmPnYw5mdcRmHiM97cdW9IjiYGmFbmAA6Z2lfd/vh3Kws8s9J4H0dak/ +CXkBHKT31+2vJ13hLnCE48XBmr5JW1Fyv0sJGUlRVw4Oa5qnOpK2EVRp0DnE +wRyXWWMG6ViH7VGuezkoaK4hL0ueR2uGxe5I4OCv8Q7tGNKyc/b8dG3y+1E+ +B0iR53nc6jR+28TBA//yW1NIv0kKuiKwjoPOsfIHjP5XH+OECUchDiY/qzyR +TNYvICaDcmO+BwteunJPkPXN5+R7Z0/0oPuGjfu1yTyY3mrnLPjeg0Wl+0r+ +vqFCRMvQi81NPXizqJPyi8xPncrc0UNVPSgizO80RebrcO3a5jRqD76Nrypa +T+YxYe2WB41ve/DriktuVmReO30MLOcSezD4/OcH4WSeT4k7l9nc7kExqrCX +NJn3K4de0KeO9uCKhYGp9WS/FL2hnJPf34M5QfscHMl+WjSNant39eBogpbO +BNlv0Qldqc81erBJFLT2FJL56VSIM1vcgz3etbk3Ssn6amjt953txvm5FCW/ +crK+YSai8aPdyN0tePB0JVnPDSduDrV1YxGxIim4lqzP6dSAmOxupEpp2mxp +poJwAV2zMKUbS/ea/Ahgk/0kUv6zN74bDbvella3UqEtu9ddL7wb+3Z9mo35 +RvbXhNLhriPdGHzwNz29nwrLQ9J11Bd0Y1b2S76v5Py7xVSpEv/ThbNOXmaJ +5HycHXnrMDHchWzp62c9yfnZ4/ImmNXahdX2xiYrhWhANU4pMcnpQu2sAtMe +KRrYLX5ufcSlC6PaRQqXqtNAeZVCPd+VTmwIjDxr7EED8ch1Y+UenRjD+GPG +70WD6VlZySi7TnS9cHNZnQ8NqjpWO0irdqKO7aiRfwANTiVL9W5q+44lnit2 +LrtJgwxlwX92ut/ReTIxMfg1DdR0RtVeT3RgMu/I24xBGnioX7uW960DFyeX +CEaO0uCF0rLG+soO3CHwnO/sbxpIkE+dqWcdGF3Ff2TPPA3+/PEt3m3WgefL +HaUMJOhQkjdyaDC2HXfN5HuI7KCDvcFIyFadr+jksUL2zX06hJv9/JR3qQUD +jKWtXwMDSiyGbbRPtOBi70i/leYM4LMa+pht1YLXRFXdovYyIPjQj7oUxRZk +r1m3/9whBgR69Fbdq2MjVaZETdubAacivhW5ybPxSkF7w8PHDLCsq88RqmpG +yecU15XDDIj8VLf1BrUZC9Je5x0bZ0BVc232fGIzjrm/PZ48xQDzb9WZE37N +uKwn1VF2ARMMR8rTvq1pxtUhPl0T0kzQEP+QnHu2CcfEva7xAxOkD2Y/cJBp +RFal8/C2aCZQlaLyzfkb8cTPD7XZMUywnfHkao5+Rm6/ftDGJ0yITFLYvrTy +M5775C6yJJkJ8wOxnfmBn/FjlHBeTC4T+q5eUV/L/oT7ejUSGpqY4GvzMP79 +pgZ8kvBc/rYUAWm/9w7HLWjAcwuYf0+uJKDn6SIj37aPGMH3Qd+AvJ8d5l7s +l7vzEZvf0gs71hMAQc46oQP1KGjh9J6tRYB4yuZmk7d1uEr65LFsGwKoU+XL +qjbU4JDpx6dZNwiIznhVYjhTjV3ZK6MEIwjwdr4WwKivxpvC3k+PRhGwoWJ7 ++6vAaow/I9L/4yEBj+PevblaVYUJ+buN3yQRcFn7ocG2M5WYLWCz7jGT3M+A +z1i6USVmxPIl++YRsC1xb4q8dCVaKkrlGhYSMMy/SEjsQwWm+FJPlhcT4NwU +2DywrAIzJM/onakjwMTfyTuJVoYXhPM2ruoiQE5JT046ogwVf6SoePaQ99U2 +6c9RTmWYwta2yOQSQDdu0AlaXIb5q+JK1/wgQGm5ycKDR0pRw9NtLnqcgIXl +coyazaV4iDKsHTdBQOelv57GfKVo5sbvEDNJQHwXvV49vQR5ET8t/WYIWJqj +/FTobzEy2ZoWxXws6DuxyDK0oRitdGeNQhayoFSme34qpRgX6TNmNBexIPha +wkmuZTEKcGoeXxUg7+PWohqYVIT2zuenUkVZULNwsOe/80XY8GiHu8wyFrxl +VsRl7i7CdkqiT6g4C4p28v3Z1o2YWByspyPJgtftvfd+3PiAhat379JYyYKv +wStePN/2AY8yKZWmq1ggJrc7Z3/Pe/RsvDZrvZoFga5pjXnwHpPFOJ6Wa1mQ +saCN4zNSiHNjLomGsiz4/kpoUuF5Id57KxOoIseCXb1eMpGzBZgHr0U561hw ++dYzFcP0Anx6q7mcJs+CbOU6vV9HCrBmx7hMsAILZLy2ODky8tGvYMe1CUUW +WAo7+4idzEe921vvv1rPgtDM6JASiXwsfJSovmcDCwZGRpNVz+WhyT4+iasb +WbD2gTz1u1wesu8r7V+qxAJbzf2lMfUstFq5ccV90jcarzfvCmbh3zGas7Ay +C1jnqb2zqiw80f1E5RrpYSnOVHYbgW4HX/kNkpZnSgqeiCBtlKtrpcKCg0fM +VsnoEvhiGeXSW9J3pi+o1vYyMSgiRmuG9Ienr3dci2ViJcP5hMkmFvzSZ1tu +M2WiRYOiUDhppY4lzv3jDFytOKtQQNrxqu7ZZ8kMNJoRzhwkHS13KtTGhoE7 +bkW9Xq7KghKMf8g/T8esakJEg/SUa/UrIpOOy4LbO81Jqy6cpXkfpWPQlKXs +AdLOKarl65bS8coa39IjpGPMjrKbWDTkQean/61X9Eb13/akoYVUqOlu0rO3 +Cqd3rCDX7/qs1iKtrvJTaKyMipZ1/AelSB+vll2Tep6KS4W/jfwk9/fYy1rN +XpGKImFJPz6QrhW+ZiDyORf9Dkyb3CbNl0WxLrqWi5IXXs/sIq1t3eVyQT0X +F8R5i8yT53NqVNxP5VsOSouuuZxJOvGBcVhHVA4+L4k2tiP9SdP/0QN9cl06 +022UPH/BN+Z77jRScKbieFs46VZVwWiHe9kY/j66Noasp5HP6ZziwSwkKCvM +REmnUWoaN1lkYY7GMfFrZB6CtO/JzC7MxPJjeckWZF56Akf0jru+Q4ETmieS +yTztzbNxqnmfgXtC1AJHybytNpR4mXApHTfLtEeeJ/MYFnq+dCE7DYkBg6g0 +Mq9DJc29XtvSsN4qrK2ZzHPh7ieqO0beIL9pwDFJMu/H9q+lt59IRQPF05PK +ZL8MT0zqBZSl4K7q3xVryX4KftyAYhtTkF/gvp4Q2W+J7WG1xn0vUUqpm69a +mgX02sZym89JuDvGVoJL9muz+K3PYTHPUXqDT18c2c8Th/S+MQ4kIoVn7ghi +LNDqevF7Dfsp8vwlFYKEWUD5fWb9wNdYjGhfrBaxmAUf9eS3rkl8hHJNrPkp +fnJehDTpWx+LQY/zuX7HyPliL3Eh9RTex1FxQ73lPAIO7BBbuKD6Js5oVh2S +miYgtFmleU2pFYb6GEncGSBAbdk3r8VbtCH8KU3Mv48A9njYC/Fpe+gyjcy1 +I+fjlUe7ary1z4GJWMnwbCcBpfJ3bj8XD4OZR4b7+tkEeHqqejDnYwAorXs0 +SgmwULzoGG4QC9I0b96jIgJUvpVa2wbHwSpZD8/R9wQM2h3THZx5AoXf9tjd +YxFwxvCBoNxkIvQaDmW7ZxGQt/TKl5KAFNBsnPW+E0dA8hbpJopiKrx/Z3pu +QwwBt2wpnxIbUqG0YFkpI5qAg485tYGb3sCrHZ6OBbcJGFOwLFH9lgYFkxXB +dkHkPNeTpcSYZYND13MBqiMBIk5E5rXxbOhIoOZRDxMwEbI/40wSBcjr/Jd0 +OwJce0rs1gfngJqWot2VvQTZP3+s/n3JhSOLtsS+0yOgmuZilnuHDrPSO6dM +VhCws1ytVLmLDlb0BVvfLScghz1jnKTDgKu2t8eFRMnn3cwjiOIwQEX62Np3 +/ASchCp9dwPyuWFdZR48xgRejYbmqvE8uHXsbcvRKib817NA7ro9wuFMC1l5 +Pyao5x8Z10hH+HuaSyvyZoJSTFZZ1wzClpNUKwcPJgi/zPwv2aoIbF7xP/I/ +yoQ5W/sO3kgRaN3IfG5uzoRvOZRNqFkCgkaU62dlmPDinHOZAVEGm8IuGHcz +GJDoJJQd11kGlwzTLW5RGBBvQX/yU6Acll9Pf7w+nQEP5Jd6P7cvh3Ch2mW7 +ExkQ+omx/N9MOfzMm6JphjHATUPUpXBnJTgseJv7xJIB68cKZvRLquHh40kJ +ZjsdgutNb/z+WQ1mL+vUa5vowM6oFcteVQMpUXx3W2rpEOnevl7BrwaeycxL +swvoMPZ11kpAvhayVTtZXs/o8KFc71XT1Tp4X52Hv+3p4PiM2HtGrwGMPCgC +yfU02JPSVm9t3wgKxaISk8+pMHYz26PcpxFqgygr5WOpEH8qnLcjvBFkB/hP +mEZSYWDLFs1N2Y3Q5xJa7x9I/l5hhcbyL2qC7/+qzAKsqVBVr3yURWmCdcl5 +EsL/cmH3dMCAgsAXWMUcKbh7MBfMrST4Jxkt0CYn8en3Vwrcd2kJ1SA6QI+v +xdlPKAMqrWVFbSW6wV1ROoA+/Ap+KkiHNCZwgN/pU3Sn+hMIuLDZ7f6KPpi4 +kVK+3DsEWjrE7TyqBuCj44ltX2VuomvQzn4ByyGIXu47/u9hIpZu1o0sXTwC +Ed4fbbyepaGSUOFAqsUYBJSe3f3oWC7KFnqbL44YBwPf9a/eRzKRb3Zhun/P +L2iLbTnS4FaIf/a/dy7f+BtUs+enNi4qxnZtlzUbb0yCLuPcbkP1Mjx3RHy5 +YscUxLI/3GUfr8RVsVz7RbLTYG6ao1cSUIPZR5PfTlyaAXHrM+F7u+vxiME1 +i6r3s2CkVNx/8NEnzHX2UdSf+wucF55WqNOI00tN+fMO/QPJOD2R0wLNaPd5 +h45s/DyEsQvxXfEXXLpDuLjw+TwcWDoqFFD9BYtTv+5zSpkHZ2bAb8PPX1Dj +UpDbs+x5EO2Rymju+oJi64i7q8rJ9zu8ixXgY2P1GS2O9K95UHrcbhNlyEYj +wU0PxCx54Nop91qokI3TftOrs/fz4Olr94q+UjZS2itfWx0hHUS/UVbLRjmK +R8Hd4zzI+Lmw9Xo7G+cOpfYtDeKBmOlDNv9fNhIp6wwE3vCgYDuf7Eb9FvQV +Ha18844HnlUFC0VMWlDp4ge7Xbk86E7qDZ/Y04Kxe4+dulnIA6kqOfsyhxb0 +H094xN/EAyeXE+Y+QS2oetRLLqWVB77G9fwO11uwu0wv3eQ7D1Qj2p3M77Sg +bXzrh+s/ePByIPT7uqctKLgwbY/CKPl5A71LxF62IHpfbC76zYPplVHVc2kt +GPhll4vrLA+GQo8oDee04P//Xw/J6lqyHawW/D9T3HEf + "]]}, Annotation[#, "Charting`Private`Tag$4186241#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmHk0FN77x5XskaTUp2wpClkKberJ0kJpkUJESlS2Em1CH6WsJevMkG1m +FB/ZGlnz2Pd9hhn7FklItpDMb77n/P6653Xuc8997vO83/eec2WvuxjfXM3F +xeW+iovrf6MKbBpjs9mYyZpQPXGOBS6Lcn6LS2z0qO7M1z3FgoxP6vIzc2xU +E/lQCTos2LvL6PrIDza+UtC0ObyPBfvXv+isZ7LRj36JckCCBceGftUS09nY +G/vB7XQfE4xfNfy3z5qNK29SG1tdmPCw6YWTfdEKykYf4nMKbQcGQ2isxOYv +uhw1kaPkMUCy2EV8/7ZlFLIKFfEUoEO2QznPup4l/KXMLzp1pwWuBalPdfgs +4p7v0VoT9k2wEOrhh7CA2YyPIdkG9UAW6d1CGJjHSee1/itcNRBjqO5K959D +TZuO6PSBCvBxtHm022AWU75ZMFiiZeDBnfLQdWIab/Hx5q+SKQabZ0072j/8 +Qne4o2S8nA8RX4YJMXemcJe5d06M8GfI79u1NnX7JFZqe4b7L2WAnOgxXZPY +H9jyOXStuUgyZCn63RkcGsXOI/cPy22Oh76KTBktrRFsnDN15d4VAsPKEXvx +8xD+p/HEIcXNDhS9qJOj/w1huPbWqbgyW3Buyk4RSxhCWpnNUtKGG7Bwr327 +XeAQJkiJ9HY4WYNgjsQG4WtDeMB7PK1P3BjUdEgzVwSGMLtzlCfb/hh6XIqj +zVsM4sRxhmKrvxMWJ6XflbkwiKeCZvumN7ngmgVUNjwxiP/sclJ3vXAXX5P6 +Ke/UBjF7oKCR1HUP4/tkI/R5BtFfx9Urb9QNK29T3EPTBpCQpXglc/gJrvdK +1lJZNYA64n4qB/Y9x5efd1WL/u5HPiuNFP+Xz3Fp8r35zHg/CrQ8rAvpeI6D +1klPc1n9aJl8qL/I6wVm6ZBLdTP6UWZj65XQCl805nl31tS6H6W0kkoY+n6o +sEW2gcujD32pCcPhfMEoGiA9VWHXhx6Lka3cF4JxYUlyQ6BxH46s95KTIgVj +dfc/5hsV+/BCKrpdVHqNt+LFh3d39OK9rL7Dnw3eYIoC/1/j/b2YrjxydHVB +CCpr/VSmznTjhj2hn76Vh6Kdird3Xk83tvO75PqOhGKc/LrWhqpuFPcYGv/O +F4ZiEqoP56O70TKogcBtGIa/fzuXnNTvxvG0wGzXujAszZu8NBbehQP+r15P +l4bjcqbXhxWvLpQa2/6+tj8cNVNE/ojd7kLT6cEzN1bC8QNJJf7wkS70w+RM +xoEIDPZwHgsa7sSGP1oFqSkRaHZk0ktVqxPbhRSIjH8jMVTTq0VPphNZWldN +XkRHYt0ekR1mgp04y59An6BF4lEplZpnvR0oKih+ZHwkEuXYThtaX3aghcKL +Y/4no9Dy99+bI3c7UChmOGXRKgojfwbnLl3pwHvVsz+lH0Qhf//Hq3KqHbhH +fPp3IDkKJ4sn3rsxWch7ynkHfSkKFfI8l/xKWNj742T40DoCXssUNnr3Hwud +jdTeUHcQkJ6wZ7rCm4WW/xF6DhsRMNfHSVtiFwt/83Q9SSAR8Ln+RHPeIyZS +O4/cq9pJxNJT4+c0bjAxuPD4vJUmEbmMfjSmGTHRlth+KEGfiE8vfa8nb2di +ILbZyF0n4gO74erg+nY8uth/TohIRNqdryf5c9rxoX0M3wiViNPOQ5U+Ce3I +55PHZ5dFRJeHA+UPH7RjncOBv8a1RLzl11NsI9OOHjQCb/0cEZOCuqFbsB2H +P+aZF7KJ+DWkq+jyXBu+5vefOS1AQhtiR+Hp2jYcuSzQdHwrCePfsQ5X0trw +fk+NW5ocCXsTmPnH4tpQM+jc7k9KJLyS0par6daG75+kOAYfIiEhjbE/w6oN +v8c/PWOjQ8L2LPpnRYM27Kjn7Wk4SULxnFZN6r42PCKafazViIQXC1po0lJt +mKn7LMrpIglDsXkfib8NT5n+WIk1I2FzWVOW+AwDm+a4Qm9eJaFIdaP6mx4G +llpcuF1sQ8Iz9Q0ZAtUMtPCfIqXdJGFAc73qiywGHkK3Q6q3SVjNqEtbiWHg +uQtzZjqOJOTtqN3z+BUDv9MFeL46k/B4T03qzD0GTr2vMdx0j4QvBqqVnC0Z +GPqjbh/TlYSlw1UpoycYWMBQqNrpRkKuscrdN9QZyO/hLrDKnYRHJys+9Gxl +IHtT07I9h59OlyuY8TLwbWFrvDmH8+fLklqn6CgZRZlmcNYvLJXuNOqio+3H +X+Os+yTczy6hVFXQcYvGzCtbzn4PuEvkdDPo2OXumvfgLglpfMWJhSQ60kwb +3EQ4+U4Loex+X876f/+kKDqQUE20KD7ThY5LauGGtfYkdBb/Iq18hY6PSxgw +foOEqZsLY5P06Xh3/L3bG2sSjm0rkJRVpWNe48fmrCsk3C2bHxO9hY5lufoH +L10i4a2deVs3raHjSmvoW/dzJEzanUsKmWxF1biQfDEDEm7f+5ngW9aKNOfe +30Wcfl/TypbgSmtF6aCksrq9JIw7RIt8QmjFN2qKTecVSbhNLyvcxakVv7bQ +V4okOHo5mblhzLQVEyVl66jCHL2czgi11W3FvIEYBS5uEm40SQsxl2hFY9fJ +RsFxImbJB+Yf525FII/1hPQT8fyi/Vf1ny1YkCQdTWAQMSBW9oBgVQvKtrxS +311ARIV7KzbzWS14NfPw+oyPRCzX6wocjG1BM1XjVFocEVdGw/vyH7SgauPw +ln0+RIwuuCfw/noLbjiUOZHiSsQDr8/uCzvbgl8DUr1jOP5z3cf/ykG+Bemh +Uj2jx4g44umhsq29GfeHON4X/M3x93kzM/7SZtzMEFLXGCKgjJymz+zHZmxi +jKU2NRLwSvVkW71vMzpI+34zpRCwUey6p6dmMz55FNDx9hQBHYaPvr8t24xv +/9bN71EjIH/u1pZLws14aixxlYYEAX3zUwwsa5swyHGTxJOhKHQ+95bwZXcT +PtkYbcBwi8IPs4bjEauaULrKqYlqGoWDxDXHnDsasd3w51zHwSi8/PXhNyn/ +RnR//LvAbjkS4bGV1rPRBkzcFL3/z+NIfCK1OcCsuAGT5M98rjWN5Ly7LT1q +hAbcLbnj0bxGJO4SOe47cLIB5fVGF6wnIlCUrMTQfV+P00/T825djkDDU8MK +W73r8VSj7TyfagS+mIj1mLlcj7N/rAJWeCNwYb+YHIW3HrMfxzT9pIXjQP3C +PR67OiQa6Vkw+cMxa75iXfWOWjxt/p3mFRKKr1MSS48u1qC8+pN4lSuh6GDl +7Z7dUIOnX7ZFi8uF4o7KA12JD2rwm1xQ0/OstxgZ8V+SZ3U1vtpql7pUFYJP +NN4e2edYhQKBKlHN0cF4edRpKvlYFeKYUvTzTcG4L8aQLLOxCotWfQ788iYI +x7nXCIgUVaJX4kx/q2cgWtEfMEbXVWKocNjxkVP+qOtq6RD7qRxNu10crGNf +oJT8QamNfuXoW+jgdZX7Bf7p2NgSaFmOtN/V4or2z5Gm06T1mKccqx+HlZ1Q +8kH59bqrTUzLMEb5g53nGW8UzFAgCvwpQRsntX2GnW5I7RoO/v6iCNk24aK5 +rurQ+XRT3Lt9Rbj7LlGSpaIHIlInMy4MfsHD3T82Zbw3ggfXPrTmwRe8m17D +O3DeHE4M35EIWCrA06/26/9QtIfRyZ/xinfzsInLPNpC4gEorl765GBBw0tS +BIffNr5gRVaskBakoVP5YNUY90sI1bdop+d+wqrJLTfNqS9h6WXhwuFNn5A1 +9VsoauQV1Al5H1nbkonpctFBMtcDgKXI/9o8OA1XSPc37zr0Bq5e2EbrukHB +aj3fGoJyOIzPzB10LyejFsNeJu1uODyNbEKRnWT0KPC/bUYLh5gunzqdkQQ8 +B3D+9qEIoNW1VpxricWRpWP5jjqRkD7rKDfaGY69Kx46kYcI0HhQRnVrTBhu +f5q0tfghASa96IfOXg1FkRgtu0c0ApiJuVFu4Ru0SLOKDlMmwsXDIqtX1fii +5wr8uCtBgmeMXYytZUZ49m2/TgEzGpTX9dzh2aMBonf4TEqFY6D9l0+c6IIZ +HCDesTbViwGPsBO1Dhp3QacZO5U+xkCZjP+rd6I+QPOvdfHxeAf29op2n1dC +4WV22w1R7jjIE/RoK3Ung+GOP9PYFw/xezbS07dTYN2GDI2guXh4eT69OaaJ +AoNUCat/hBLAJHKo7sHuJBCTVTDz1EyAKdkzpYo9H4BX2yzK9lUCyB+UTA/V +T4N4liT/T+lEWGuZk+r9Kw0ow0LN8+qJMON1IcUxNh0+GSQ6leslwrXBUmO5 +pxlAK3Tbk2WXCCq7fhv9bcuEUnHZnt7kRKj5ZK2f6U8D/bqEieydZNCuUC5T +6KeBcFqf/0ENMmS0L+rEamVDmLGB4CtdMkQuhkHgUDaIXj+d+8yKDLZQfejm +kRzIElIrnwsjA+t8RF5XWA4sr/np2RRPhtPXrx8wHsuBub7Hm90/kmGv77Im +ROXCz7dXx3ZUkoFdq6a+5VceNB9bqZecI4Nr99/0NyfzgctI/8pVLgqMTNSq +8Mbmw8rv5s93hChQL3pTecawAM7XCTX/lKEA6TJRoYFSCO/eum9IMaCA5uAq +qX/NEOStbB3FQimgkm/6Sy0ZwcqoiIRECsiHfizvX0RgKH8/qp9AAaGEVM14 +o2LQWrs5lpFOgeXzZt3syWKYXyUbv6mOAgva3JWmEiXwPWHe7kULBWZ3paWn +Qwk8vCnFX8ekwDjXmufWISWQHMzzamiIAj0Z6btRvRSe/5rYdWKJAp0xVzZI +XCkFfaFKd282Bdr9eP46+5TC16KOX6FrqNB4zaJZil4KPVtfSRqIUKH2DG/+ +gz+l4LriLD0uRoXKA5nkRrky2KmgOndbggpFonwPvdzK4G+xUtG8NBXylzOv +tceUgXNv1SreHVT4PGppqFJRBhvH/+RNKVAhrThLsndjORQPnZI3V6VCSupV +Pq2j5WDCxdrF3EuFJAL/r2C7cvBm/tBW16JC3F2r8iM55TCiPbvviTYVYiwF +0iL6ykGH7nHjNlCBcIoWNcFXAT3JaUc0dakQIiPo8M6sAg4qpvrdOEmFoLXZ +JnPPKmBpjYp+pQEV/BasjxolV0DcmlrgPUOFZ83Z6/8uVoDx0MEAqfNUeFp4 +7Y/J9krYpvdL9vcFKjz6IDScalgJ9y8HBH68SAW38M+Na+5XQsnwyJjOJSrc +fWaTaxldCXPU9Bu0y1RwdFybSCurBIaPyRYeMyrcMssJXDteCfJja1U1zKlg +q3/d3Va8CkolWFU6V6hgoyZsXahdBdeve/KqWFDBalvuKfGbVaDlHyS8yOEr +/Df2OgZXgdRqK3aiJRUuzwpvK8+ugtenNqwoXaWCcX8uz7beKlhRjlIK5/DZ ++hs/7/NWw+iO2OQuDhvminTUqVSDTnQScbUVFU5Q8krlTKvBSmdxmwCHdUNs +Uz28q+HEtWSTn5z4o0/XRdLfV4OFYoRNNocP3cr3VmquhsvCdrYWHNYyuXn7 ++UI1BK556znAyWfvMdGLXTI14PDjcsNJDqsoF2jvM6gB7eby+685+StutpMP +vFcDf07QQrI555Vfs150iFgDdwrr9L5w6iE3VbB4qLQG1Gu8Uqmcej1t0Hsx +O1EDNlwtbhdNqdCeUieStqUWTAlTVd2ceqv5XSTaH68FX1+ZBh0TKgTc7JKT +vVcLYo+t//MxpsJX3RtpnTG1cOvqLf84Tj+PyPw4EF5dCx9as4IJZ6kw1blk +xCdTBwy7dwnShv+rjw+r+HQd5GT0L3/k6IUSIXjjycM6kOlI3bjlOBVMz//z +aKKxDm7uNhd/ydFbxp7E1e+X6sDEt03Pj6NHQSHF4Gvy9XBQUrzc/iDHDxUH +E+me9XAk3OwkcvS8mVyiHJxcDxpruEP3c/Tu+swg50RbPXSW5RUGK1Fh52Hz ++jzlBlAxnT7KkOPoNePRfFxXAxj7zZQ0cPw2Esz1rzlfI1CaxToPcPx4zMFP +aMO+RkhS8hz2EaDCzE6CzMuARlj31tOCxvHzlegcQ8eDTbBNv8syZIwCtEfQ +tvNmE0hzRSbPf6WAyOUq676QJtjr8u+kdh8FSkSZbsajTVAqd6bvNp0C4noe +52JON0OXREXFqXzOvDqKP7ZphshHEUezPlHAWYa789LDZgh/v+b9cioFqv8G +2K4jN4PF6qQijTgKeOSSHvssNUNnzY3jmj4U2PW+96i1aAs0zv99lPyEAoyI +7Wu05VuAOc/9iu3KuQ/vp7yeu9ACAWHylAs3OO/OnnzyreQWGFttOReiSwED +ckfDWbNWEOc1nAn7Q4Yp3zS7CqdWOLPI22M1TQbCrefsw89bQVVYyELkOxlG +9+xR353WCif/qrtvbSeDX+6zcO41dLigm1o6lUaG6gYFi9x0OoQ26p2NsSDD +3YzlGZUKOvxL64goOE+GzWEtQdROOnxl7BwpPk7m+NejKJSHAW5yCoueqmTg +H2qUdbJggF6J/enyVWQ4ueA+KsvXBoZWrw3DExJhstPwX8K2Nnh+q1xdKiIR +Ir9I/7NubxvMeoq6vfFLhBGfmtPLlm1wZxau7HJJhJfCkuntWW1AvNDJ0jyc +CJXby90Drdqh8PeNuObGBDhuJMY9l82EAWHDrFdf4+G1jcCvxRomhNek5im1 +xwPLnatvpYcJlr3D5wur4uFO7GQ+Py8LmBTzm+QUTvzPWtdtl1lQZfMtLsCF +E//2+aDePAuWr8b0v/0RB3faZ0tCtTqh+MM6/8LRd/DGmvlMLacb3p0dfM7/ +mAgvx7VhpL4bItbbTymeJ4LX48S/0YPdUAuur+UViOAc5vSET6QHGpQdK5IZ +BDhbxe3Wa9sD5roaXwf3EEBEVc0+SKwXrJRTkzU7IuH1ip/RqFMfXGtoteER +D4eqs5LC58UGQEZy07FbR4NgQnajVytpCHxOCo53yV0BdzclmzebRuBMVEhf +iYkfMrtFje2qR6F7OeSqS2YMXnus/Y3vzA/oDf872PQ5CcuU9geU8UyCnErO +r7z9GSgvUDhKOTUFQWLlLoYC2ShZ6HCcx+8XPLqptfyBKx+5llYnuw5Owzmv +Agc5CuLvC1+sKnbOQvG8OmX4TSl2aVhv3fliDgSktzodpFbgXVPR9du75yFx ++cDYy6pq3BL+1WyN5ALYMLu4/tbWYZpF/PuZR4swfuJ0ub5CE5oe8T5V/WUJ +4uuCYltUWzDTymn7oeU/sF+j2cSqoRUXBPW48y79BUlD2wNKBAYatxzWkiSs +wNosqRPXjNpR8LBQSeG7FQhKE2NtuNSOJZTO05bkFUiP8VhfbdmOao8e20Sn +rcCByL1P9jq2o4h0TtCWihUwuDYkvS6wHWsc9w5tnF6BFrVvCd+q2/EY/+4Q +kTNsWHS1TRc/zsSFewv/pF1gQ6hP41z3GSamd1VRjUzZ0H1xto9qwkSpdLuC +oOtsmGauxB60ZeLyJcqI4GM2fBwfLL/1nIk5ZOkjfElssF+hRA6XMNFZ+GdV +0n9suJSiLZRbw0T5h0XGJzLZ8H5XmWxgCxPDDa/e8i1kQ1aJosa+ASa6/iKF +cdPZsBRp8COAi4WKFnekyCw2hJVoO17nZ+FA+cFk3V42rBLSfn1IlIXnCayi +f7+zQdFykjYuzUL+1R8MZH+yQXvP7bxKBRaiw0NG8SwbmOneVgmqLHzQdsL6 +2hIbxAY2Up7uZ+H//59DQdW6ADNg4f8BrWdJZw== + "]]}, Annotation[#, "Charting`Private`Tag$4186241#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmXk01d/Xxw0pFGmQCKGMIUMpot2oKCoJUSEZIiXfylSRzCQzcXE/l2iQ +ociQbGPGa3bdzEOkgQiZ3ef+1nr+Ouu11jnrnP3e773POuuIX79jYM3GwsIS +wsrC8r9REbb9ZDAYGOZxf/ixPh3uLOwKWFhkoJyA5naPU3TI/qAsNT3LQHGN +bKrLETqoyOhdH/3FwEvcf4ucVehwYJNPV0MnAwtGthC3t9HhyPBU3YssBmpI +pb173NcJBv7Ut6rmDOR+tNaE5U4nuDT5ONqWrCKrUph/aDgN2tvX/yyzXMGx +3i+irwraQaT0ztYDwssYdt7HyYKzDfIcKjk29i7i3tKMlHc3W8AiRHnyq/cC +Mt5lL3BYN8F8hEcAwjwOOaznN9dugBTePsG4wX+4nj9FdetKDZB0lZ3bAmdx +9nsCO19vFXjfsnSV1ZlB8aX6G9brK8CD/Y2L8/hf1Jtdl3BTsBQsvZp2015N +odWh9JCrv4sg+vNIHMl+EveXhmWJLOZBUb/MhgyJCXz5X2d+32A27OI7csww +6Rfih93bs5pewXu5APuh4TEcqzAeSA1Mhv6qHDE1tVEs6+qOFAsMhRH5aBX8 +OIx/VI9Xfde8DHKPX06MvR3GM8LJyRc+X4LbTXlvNhPDOCJjEUsBA5i/S5Ow +CR7GRO/bKsuR2sCdL7CFx2IY1zlsYVUz2I1KR+OnTbmG8UsAuwi14yp6XErO +/Wc2hKUOtDHN4nu46fFrNUXWQeRenzwQ1OeHfh9lavjmBvDm2q8jFQf8cXEi +/fL07wGMGMDLGOaPQ+ZpDwvoA5ggtji/fDQA3x9NKT+WPYAhOr8XQ4lANOBI +1Dc2H8Da9HfEb8MQlBYUp7J49OPahtqg4qow5AvaOVll04/fuCb3m06E4fyi +yJZgg36k3jeKpW0Lx5oeocv8cv14Lpcq6WAbjnbkrSOyX/tQqdmei3VdBL6R +5lwxONCH7ou2Og0QifJqf+RfTvdgSKa7jFZsNNooenoW9vaguHRlSXBJNCZL +bWylVveg3CXnyqyRaNwssNflX0IP/uAXiHdRjcG5udtlp070oCL3x2o2agyW +F05c+hnVjTd3Fx//MReLJloTj/eqdWFL/D7K0p54jNj/uOW4WBe2BfwTztWL +x3oF3t0m3F3IPd/qpnUnHg+LKtZ69X1F7WOXD5TnxOMuhuOWVr+vaP5A6Mjz +fQk4UTqefq+TjjL3SD6blUn49MR4c6FrJ6ZveCPsuyYJy0//PrfPqhOFfgVR +fHcmIYver8ZMvU6sSPQ5cVEjCR9e+tGQItGJpeargpfuJOEDm5GaZw009GDI +UsZpSWgX0FtqKUbD5N26YSdJyZgW0gM93DQEepoKS24yfgvrLjGa7cClRfV8 +n/pktHzxtfhMXQdyit4M/LmQjKZvOgr23+vArCTRqE1yZDzbQM3mqmnHAdbm +HG5PMgY1N+z1ed+Oo2pisbKBZKxpr89cJbVjQsGt6D2RZDzZW5sxfbcd9+4O +vkpPI+PhiapXvTvaUeOg5vOWBjI+/FspbbK2HXfNVedw0MhY9K8irXWyDT3/ +Sxjd0U/GA4yy1OqqNiT/qFkZnySjEl8JOedOG+KGc7ySWwi8vfXzTnnTNhzw +uTFlvYPAjO3FSWkn2tDG+GS9/y4CZcWLSAmCbVhb+KPRUZVACZWPcb4Vrdj0 +YGGy5AKB/IaZYZcFWvEriMheDCDwvVRw0Un2VtyoZrpZOpTA8wu235T/tGDr +KRtqbySBQUniB7mrW1DV7ILcdBKBq2NR/UUPWvB+KotP4QcCEz7d5Uq/3oI3 +JKvZyAUEHgzVV43Ub0HhQ4Lydp8JdFbl9HeQakHaQ65h0hcCRx95KArTmtH2 +qHZQZCeBT8+bmHCWN2Mlpyvn024CxXbt955514w73McnDPoJNK2Z6GjwbUbL +51G6kaMEzsXXMwruNuNgzqOb7D8JjHJ8JfvyajNa39164uI4gY2brz96tL8Z +Z9+tuIVPE+gwcjj9pngzlp1vdPf8RyBnwY6WSzzNSDl03PvsAoG+RW90rtQ1 +4XXbgR/eqwTTVzcS91GasOvC9M9fLBRcXCM6tcG9CSWD3PapslPw9rnwuM+y +TSiwe67bbB0FX83o/o5mbcIbRQMdmlwUHHqx5sjtr40Y9lfo/BI3BYWhJFI7 +pxH7zWa3xW6goNE3l++igY1oH8L7byMvBcMClQ/NWTSimcr5AuuNFKxT/BXa +dLARlzh+ScfxUXBNe+pQOl8jWiUY8KZvoiC4XVPzGqNi/Gb1fRGbKeguuj3I +pJSK5alBlpe3UDC3oqVXKY6KCxtuXl1m8oRdsDKXExV96qUm3LdSUIb3pO/g +KSp+PnrsazuTr39YpRfupKLGS4thLn4KkkwK5CPmGvBxzelmQSbTVu562Tc1 +YEB+7/U1TOZL2dN+LL0B7aQEr9Yy1+ueHpHe4dmAa7I5vOyY7DOe5DFt1IBr +hwuCB5n7l0SYNNUrNuCUkB7sY/L8gc27Utc2oOSubhML5vlVeusfPOyrxwji +v2hrZny3vH3rDD/W4xft7TnHmfGnSYOoQmg9Fpbm2iwy9RpsmL/LYVOPfY4C +ToE8TH2d31f1atUjifrDd3I9U1+BW4If+evR+u0r871M/cOKJR1Dx+vQgJX0 +4SQnU1/L/lKbqjrc87xRTXUtU991L7ZCYh26S3AkzjHzezjDwE7gfh0qhuTF +RbBS8P2/qo01u+uwPj52y5llAkPfUMoPL9TiRVufMmmmfxyued7Po9Yi/fCY +Russgbu/HOymPKhF0xbj3tAJAlnc+UMFz9Si1ZNwaTLTr70Kf4+E7azFyQk3 +z0dMP8dEv017VFODYTLST+J7mfWiE3B5hlSD3IZi6l/pBJ5bubHB4W4NNvOv +3THUxvSvtaiziVANGqn1mJ2vJdB9X7iW6q1q7N+rKxeWQ6DRmOPk6yPV+Pym +MWnTWwJVSbopYvzV+PnN+TGTVAJ/s6/h4i35gssXutLUYgi81vagfWzjFySu +/dgi4kKghv9Ff/NvVejF1lL+6TaBAoeUNGgFVSita7h1hw2BzZQfyRWWVfhh +3ClzuyGBx5yvOCR9qMQ5D3P2RXkCRaXURfkDKrHh1Os9ARIELn3lbwm+Uoks +PFG+zQIE5h5tUnPjqET7jHCxEFYCpTYdYzM0rsB18pFxkS1kZKsSzavbU4Hz +p17upFeSsd91yfYoSwXeiZLMbcwnY9xALlXxdTlu+7tNn0oiI3e29AuupTK8 +We6w8Ps6GUet1pz1airDOk61vqSLZKwQGFz9l1KGwzydx+aPM/uvZ/yNb2fL +0PahoHHCLjJO6PMoYVIpYv4U7XtxMr7sHnn2w6cE7csl1R89ScKuh9uSE1VL +UBoD962aJCGv6KnsC0OfsZiXy+LtXub9Y/GqtRA+45fO3HCXrkTUHrEXCFr8 +hAvWig06kono7pcgc/j1J5RhlPUkz5IwU7pB/a/xJyyKv+A3V0lCAXuFK6Z5 +Raiux7Y7woKEYxN/yHJOhchCLkn9EJSAwmFi7/tEC5GozThobJCA55UvVERQ +C9BUu8ytfHsCFvz3fmRRrgAnaE+SqUQ8Bs7fk6sf+Yhfnx0Pz015gSUvXh7y +jPqIyQbP66ItXuBfDdpZ1eMfUWWle2Zqxws0fXTgTgI5D03d7Hb/eRaHcmyL +HxzMcpEaZkP9dDUWr6XIVe3kzsWMws6C/TyxGHHCjNZW8AHn+B7eohbF4KJf +8fyhbR/w7seKcUm+GKxf76m1oSUH7Z8kjapSopDlXZZ+qWcO/uDNuX3paBTu +0x8wv6eYg6y9v8U1+yKRFHbUuyc4G8/d3hJ4cFMk0uU4Qy8/y8RHh2qp+mbh +eMTxZnbZz3do6y8u+e97GL7KqmuVPf0Ob0xT+7Wdw9Bt3zOBRbYMZLX5T26W +EYpChzcT8a6v0Wtr6nAqazBevSCc222VisUDURH2ht74e3pW/X5lCnLgl0mn +g0/wYUwT8kqmILus/gOqkBeSur3rjzLrkj7o2W6d74G59a1V51qSMNxM0ycz +wxmzZm7tGuuKQvYkJQnpIjlsVBfbu4MUiTm745UUbfbDxOM2Df2rEdhn1LZ6 +bOoMmGy+l2qHz/G979SU1co1uHiIl4211hePJvzpvsfmBF7tMu07KvSQK0BM +WcvJE+Q39tpzKOyDpY/rT1wkvIA25Z3MN28CWjWidY/8n4BHpHadwz4nqPvc +oV+u+xQqxAL9E/m8wduY9UzCOz+wtZWz+bgaAVXf5pcXfobAaQkX06daUTC0 +Sy7XN+0ZyPRW6J9/GA3/iVyXe2weCj8Nrh74uRALuxP573fVPodbh8M4RWdJ +EKXmz0McCYdCbo+O8vspwJp55NbpskggK/C3ZUmkwpDYxiffNkeB3/msZlJT +Krx0F7LXt4oCw5jh+geyaaC0pWAkiSUaJsXPlsv1voLKbzyyHxRiQEpdJCvi +RCbs4Xu25uqlONhwJT/DcyoTflAjlIei42D68YU3t5KyoG23We+DjjiwGCo3 +2PUwG9buS9zUc+EFKMrM6a105IDOBeLGH4iH2g/mJ3ICcyE41r+1fjoBNKvk +K6QHckElJVgwT4oE2bSFo0lqeZBXsjew24QEMQuREDycB89kpeBHEQluQI2G +tVY+7Mpc+1X7QSLQz0cXdkfmg2wbW4xJSiKcuX79oMHPfKj2Iy8XNCWCiu/y +fogtAO+lnveOUknAqFNSFpwqhEWpEK6e+iRw7lnJen6qCHS2bn4ZN50Eo+N1 +imuTiuCmfvuX90LJ0MBnLT+t+wkIE2GLtbbJEG/0QpqaWgxLLec8TOaTYf8Q +q+gTE4TXZ/I0H3uSQbHIeErpNYL4avGJl8/IIBXxrnJgASGQx4z+PIEM64mM +/WS9UnCqnc7O+UiG5fMmPYyJUvj3wUNI7ScZ5jXZvxgLlIGe6/0n/v/IMCOT +mZUFZeCStOYqmY2A3yxrnpqHlcE1n1vH5IQI6M3OkkXlcgjJtxF8q01AF8l0 +i4BpOVAjfvicuEAALYBj5bZ3OayWa3a9MiOg0cKsWbStHBS+vulru0NACd86 +l8f3KqBN5+jxkmgCipZzLGikCggWKlguTCLg49gVXcWqCqjhj/7wNJ2AzNL3 +In38lVBSkBzoXUBAstO1Sq38Slj5o0I5QCeAdIUrM7q/Er616ex4109A3Onc +2PF1VaB64abB9CgBYWLcDokmVbBlQurk9AwBIRvyDGe9qiD+pHbKuyUCAubN +D+u9roK1M+5rNNgo4NWct2lloQqcVIu56ngp8LDYYslQ4gsEGfKfbtxKAddX +60cydL9AhI5UyUshCjh5WRZcSfgCIe53PJokKWCpxGNerFkNp5OUFLZpUOCa +cMHprdbVELE9WaL4MAVMOa1Ubj2rBkF/i5ADx5kv1IECDuG+auDl76vLOkMB +/QarP/+trYGwxdjd785RQLeA92u9Yg3kuaUve12kwLGwGxkenjUwsawq+86U +AocfboxpS68BR4rfMsc1CmjYFXnuaa6BNSkDZ9QsKaByhO9it1gt7BU1MRS1 +pYCi/CdNVZ1awM3BfrSbFJDbbiMVfLcWJnT+SdneosCuyU8LGuW18NNeOnHz +XWb81OM+M+O1cIXPw/jyfxSgvannzRSsgxb7QxnO9ymgFHDxhe3JOvjsMjF0 +zYUCQdbdu8Tv1kEq55Fjom4U+HbMKrOLVAdsQRx8Oe4U0BL7dTCqpg5ico+G +CzykQMyKc4XeTB28kpXhNnhEgcmuRb11YvXQtShWYvH4f/F700vP1MMG0YY/ +xz0pkBrNbeXuUs/sB2sGl5i86hwxrppSD886v7UGeFHA+LyQ63hjPTR3VHP8 +YnK2AoUtfbEeckz1CyWeUIB7vdwzC6kGMFxnKa/E5BtjOQJCBg3AHamauIXJ +JVXqlLZHDUArO6VDZa7fnlIm/+x1A3zVdXK8ymRnL5187Y4G2JDVdrKSuX/D +1ZajLKxUKGL5w8PGZMlDlxsK5amwiRTHIsA8/+Ptg0b/mVBBuYXNhJ0ZH33W +blDehwrCXiV61R7M/LRNOoxmUaEj7bOQFVOfkGzXf8ndVNgydGmO5kqB0Wcs +Ty6vawT6wLEdu5j6HnEIWL9FtRGO17/6fIqpf/xpvpiGa40wStrGf5KZn2nJ +ODG/oEZYcg4w3sHM31l2sbfwsRHyG28W1d2mQNpA+v6FwUbY2hDrfJGZb9OE +fN1b6k1weUfkhykbCuS6QoekdROQl6xT1t2gAK9RtXl/WBOc/BT1cc6CAmV8 +nfcMxpqgYa/xRlum/3hcshgc3M0w8LA5f9SIAkXW05VDO5uh8M09naNMv249 +7nGOdKYZnuxMHfNn+rtMGbe6WTZDqbjKpXunKHBbjL3rkkszfGSfsdNk1kPN +StCNjSnNkNjJBhbM+vEoiHfzXmwGTtbf8UtSFJBJ7ztsztcCO0lz6nXiFGiP +llijKdUCG89+GL0vzPT3f29CZy+0wKmgB1uZ7wUYUihKsXvdAhwBQZfTFwjQ +SflK1TdpBYkxWZ7+CgImfTNtqhxbIUyjVC23mNk/7J4yDj1thRLtWSH7PALG +FBSUZTNbge+WbrJrGrNfFHhFsa9pg8/CRma7/QmooUqbFWS1wWzuIrXtGAFO +2cvTilVtsGbTwN1KdQK2R7aEvOxqg9NW5P5YJQLsTDxKIjjaQV95b+R3EQI4 +hxvFHc3a4XG4VprCHBlOzd8fE1/XAdFvh7bcTiXDRJfukzjhDuCT5FF58YIM +MZ93Cm1U6YBOlv6xV6FkGPWuPbN8pQMmKa4hD1zJ4McjkkV73wFBcmJRVF0y +fJGovB98jQZ38qqC2DqS4aTeZvbZvE7Q8JASu6SQBKGWXFMLtZ2QcYWNT3BL +EtDvs/Sv9naChRYt/P18ItgnTRRxrqWD2pmXNJuKRAj9U+csbESHu3QjaboR +8z4Mfzp0/B8digQEtZfuk8CeNlMWodYFllG0mV0x8fDh56+sWN0usDGszPz6 +IB6WV4cSSde6QL9F4a+dcTyESre4pfl1QaS4SMDW7cz5ru+Ui2hdEH6wiysl +9gUsC9kQgw+6YXJm6nXe8zh4bt7ppZTfA79o5GcON2LA77cmjDb0wIGk6XuP +tGLgsRtlJWGoB3rpYmw222LgdqSj+zreXlAztgv4VB0N+tXs9/pu9AKj2i3S +QyYaePcq2YZs7oMS17fBN4ciIXQ1QG/MsR+MQrubKg6GQ7W+CM/5zYMQp9fM +avbTD7YqDm5zFh4EBS2zoZnnfmDB81IsSmoQXtXZLl3Y7weL9fL76BqD4FvC +Ym3k6QvyOppmFlaDEOsh8CeYzwfCjpu9dsodhKSZaxI10k/A9OCLk+FGQ7Bn +b55Ln+EDGBfnf9waPwxJLpw8GUGn8P69PZbPt41CBlfk4nNSCHb28BnY1IyB +qNwB9x4iCS3cNL+vO/sLbvolGmskpGPFngNBFRwTkCVi8X2CnI1SXMVjqacn +4ZDAKRFThzwUKXY4yREwBe56FJO0K0XIssj22nnoL9APWEdcX0Scu/D5WpXk +DLy+vofjTUE5du8z3yHpMwtkFRdSUX0VOhnzbZLo+QdeOoyrvL9rUDDqm8ka +kXkYOygl0DNej5lm5PRp1wW4u8Oh6unpJjTW8jxd83kRHGVqCkqhBXOuOUpo +LC+BTIw6W1ZPK85zH2cvvLQCwitHDvaltaNByyE1kbhVeH1kU3+wGQ25D60v +K05che8b18trWdGwLLXrzJWUVdArPiL+x56GSq5ulgmZq+Bo+I39kjsNeXfm +hwhWrYJ9WFaazAsa1t5SGeb/uwobbkae+kOj4RFO2TDeswzYf7VEYsGgE+fv +zgtlXmBAu/opTTTtxKzu6pd6xgygamsv+l7vRNEsm08h1xngz6dsxe/cicuX +Uke53Rgw7e89cii8E/NTdmqtS2OAhI9XRHpTJ97m+VOd9pYBbe9zRlw6O1HK +pcRAO4cBnDp+3af7OzFK96qdbzEDAq3SMn9PdKLzVHwkexsDtMIS/xzipaOc +mb1oCp0BKX8rDTdto+NgpfrrY30MGFV9Y/ZdhI7n4+glT34woFFfUz9agY6c +bK90xP8wwAqy1R330xEdXNpLZxhQoOn05aQWHR90aJtbLDLg5C/zGdGTdPz/ +/wpwXbheMX+Wjv8HeA3r7w== + "]]}, Annotation[#, "Charting`Private`Tag$4186241#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmXk0ld/3x6WUiFSkkFCZQmaValORFMmnkIyFRCSRlDIkZMo8D/e5VKQM +mYfaxszDNVw38xCJEqkMxf3d71q/v571Wmd4zvu999nnrHWEr93Wt2ZmYmJK +WMfE9L+vDOycptPpKKajMOGhS4Pby/sCllfoGHVhz273MzTIzZcTXfhNx+OG +Ba2uajSQF9e5NjlDx2nbo6VO8jRQ2ebb19JLx+GkocRbO2mgNj7fFJ9DR7ZQ +E8JjqBf0/VuzFMzpWOQufXzNsRfc2n0dbnxYw4bwCZ3gcCp0d7NPV1mu4gtP +3/gXJd2wp/I2t4rAP1Rxq4s1Ze2CQvtalq2DK/jhAZ/d65sUsAiWm/vks4yd +WwMC16zaYSniYQDCEq4aTQcYaLZAGufQ7rjRP0hbKZRiW22AJG05565nv7Hj +qLzUhsE68LlleV/i7C/8pWnjaMheAw/Xv3Zz/v4Tmf9KFRntrgRLr/b91Ix5 +LLCoz1T8VgbR7yfikuzm0Cmfq2hmuRDKhsW3vBGZxSz3Ha6po7mwj0vt5KWU +GbRpjzrD2Z4B7yQD7MbGpzDqZB0u+afCcF2ekLLyJEZ/MwwO8Q2FCaloeSwa +x7OKk3p8bFdA8vGL2amscXxVVLRNJfAyOLYXvt5OjCN1glXv6BZ9WLpDFbEJ +GsdYu8fzcwc1ga2YdweHxTjCuuVP9/4dQFn1hAXjzeOoaU7vL+Mww4eXUwv+ +XB3D7oGMUznNLrjtcaayzLpRFFMP+rxjyg/9isQbuBZHkB5rE2mi7o8rs6+u +LHwbwcJ03u4bCf44Zv7So4Q2gh1ffrrVnQvAd+pp1SdzR1BQ4cXR+KxnqM+S +rGtoPoKXg/6mepsHo9hu4Vamh8O400L8K9EchlyBe+fqbIZx79Un7Nq/wnBp +Zc+OIP1hNCX5rHYIhGPDAN8VHslh9O8PX3ngEI62JO4JiU9D+IDatnyMIwJf +i7Gu6qsMIVUtoNBaMxKllH9IvVgYQBeeAdXMlGi0kfH0LB0cwKx9Y8abPkZj +qujWztb6AXzOU8Wj+j0at/MecvuTOIB3pt4MiqjG4OKiY9WZ0wO4S7lNeK47 +BqtLZy9PR/Wj1d2QQ1ZMcWh0fPbxIeU+/LNGG6lQSsAIpceUU0J9WGo4MR1k +mIDN0pz7jdj60KLYWlDKPQFPCMo0eg19wvtXK68PlyfgPrrDjk6/T7ibh3sT +ByTibOX3Vy69NNy8ravO4lgSPjn9vaP0fi8euPE8pXxbClZrfbugeL0Xr8p1 +vBqUSkEmnZm2bJ1eTP9kr956JgU9Ln9tSRPpRVGjv3bcj1Lwns1EQ0gLFV0L +L948PpGCtgGDlZZCVOS/+uB+e1YqvgwegAE2KlYLD83k16Ti57D+Dwa/e7Bz +v1X/tf5UtIz/VHGuqQfzHDSyt7KQ0Ph1T4mSSw9e9xEL8JMn4fmW1tzNDd0o +N/E1TCOAhIEdLYd833Vjd0Tr18cRJGzobs5eS+rGwDnTmsQkEmoMNr5ZuNON +0eby3p65JDwxW5cxyN+NxbPh1BkqCWW5PpDybndhYsB5/2OCBDpyv98rZdyF +v+nKtqmiBL7ZVZHy8nQX/rx9s21chkAJ4bKkxN1dCNu5yVxAoIh8UdzTmk4M +UQmI/2NKIM+l7LArvJ14TNjGsDuawHeiQWUa6zuxe4ytiJJIoN7yjc9yPyhI +6/KNekcQGJgifJitnoIuXfN6gm8JXJuKGi67R8E8q1CVhGoCE8vvbH51jYIX +CtI35tYTeDhUVyFSl4Kq/Ks6GS0EOiuw+tuLMlhlsRyoBE4+eigjQO1Az60j +ahunCHyiZ2TEWt2B4xaL9IPfCBTap+Tz620H8vD94leYI9C4Yban5WkHmuZF +UD8vEriY0EwvudOBvR06ks//EhjlkCHxwrQDh08JavDRCWzbfu3RI6UOpD1U +Vu5kIaP9xIlXN4UZ7bZZH9ZYychawk+5zNGBj6RDnNm3kPFp2euzJk3tOBVe +WlG7jYyV5lbJiuR21HPbxXyHm4wrGwTntzxox7aSzZR/O8noeCE87r1EO87t +1rd+x0/GjF/a36LXtaOXhAu1fw8Zx+I3qDl+asMQ6XLxz3vJKAAfIjXz2lCq +dEm2WZiMBp/dvgg+a8Ou+eCasH1kDHsmp7po0YZeLVYFigfI2CQzE9p+uA1d +1JeoRaJk3NCdPvaKqw1P3NNa2ylORnA3U/aaakXq4OC/SxJkfCC4K9CoshWf +6X5Md5IkY0ENZVA2rhWvc0TW3zxIxlnbILnNTq040GagrCZFRnFOjaejZ1rR +5U1a1QKDr+Wv0Ur3tuIi57MjvtJkTDIqkYpYbMFtIeEO8wymrt7xsmtvwa/v +K6VUZcjIlXaw++SrFrSmh2lYMlhba0KM37MFaw7NP73OYN/vKQ8XDFpQ3Phk +uTqDP0QYtTfLtGDH5cvv/jLmW1LZvi99YwveNrRVCWew/GDzPY+hZrRx2b+T +mcG3fJ42XSpqRmvexN26jPW9FANB6dBm3GhzaosrQ89oy9IdFptm/BuzWHyP +oVfA+V3d4PFm1D38c0Kf4YcB763dRTzNqGndbLaZ4VdYxQGH0O9N6DDjOh3P +8LPJcrjSpq4Jj5gd09vA8HvDpnhuSG7C1l0fDLQY8TjxRt+W17UJ9aS/1Vgz +4vXuT93Whv1NKGEQO3mQEd/Q1+TqE8uN6KshT03lY+SXmadrYWsjflMY0pzg +JeP+j4f7yfcaUYcSfnuckU9MD3hCd59rxKGNm/wTOck4KP1TLWxvI5rKmA7t +YydjTHTWy0cNDXi/9ho9bT0Znc8GXPmV1ID8fcF7Exn5fGHVaov9nQZsbPSS +smTkO6u1oLMRXwNuLw18Y/STwAeK4ccVbtXjdzUfk5lBAg2mHOYy1eqxv4/E +rEcjUCFJO02Ipx7Fr6rle3US+G39hs2cHz5iFulFxumPBJp13eue2voRz1nX +47ksAo/6/+dv/rkOL7x4ksqSTiCvquxRakkdnsEk7YAkAjvIX1NrLOtQLW/o +1GQwgSedTexT8msxykxi35IdgYKiRwR5AmpxTUG0acaSwL+feChBJrXoqPU8 +JN2IwAL1dmV3llqc3/bH/roGgaLbTjJfMqxB3w8CfKwCBDLXCRY2HazBXNVR +jZ3bCBy+//eGOlMNHt/23mCChcC4kYJWmcxq9K2dH6iZJSFbrlj85r9VyGev +2H3nPQknr28479VehUeYLkXeY9TTGt7RtT9pVYiORw1V0kjo4Zlg9fl8FXr3 +7jw57U/CWV0OWUypxJoNfw8x65LwRf9EyFffD5i/bv+ftLhU7PPYmZqs8AFj +b2T86HVLRU7BM7kXx95j8dmPRZ4GqXjPIqOzFN7jmHxw4P7tqag5YccbuFKO +h0iXdWN8UvCBX6L4icxy7K0dWlA1TcFssZYjPw3Lce1olaiWSgry2kmbGBeW +Ycm2+Kbgr8k4NfuDJOlUihQnbfswzWQUCBN6NyRYimWjl8UVBZJRT+5iTURr +CSotx2jLzCdhyd13EyuSJbj+a2OkQHwSPltykWyeKELlcC355JFElGReybe/ +WoB2/iwRTecS0CxNsm4vWwE68nPtieNhnM+nr1K7SvLxpXRVSMhQPK74VSyp +7sxHR7VzfiMO8djM7nl8CyUPhVl3quR6xyHT2xzdSs88bJE9fezM6ThU1B0x +d5HJw9c3lOTGWOIwKUzdZyAoF3dZ3M7l8ItFmiRr6JWQbORNHz0U6h6Dag43 +c6um32LB+NyNeIUYzMhp6pTQeosbuDQO3v0Wje6KIbwrzG+wRSZP4bZxNPKd +2E4k3M9EH0/kdhSNQh+vuzXM1Aw89Y/doKcnEmequyfsFDLweF5CX+6TSKw4 +EyupOvsSvVVKFZ/0RaDpRYGC/uvpmM4tlmjjHI7fFn4fca1Nw9iEtw8O8oSj +R0w7ch5IQxW7p6xVhWGY1O/TrD5JYHGo8Y6E4eco9djkYr8mgR6LosTgtudY +LqTc6/KKhF2K5WW3ToRiQXNn3QVKCjL79t4N9g3Gbi4/ik9EMjr86RNlTg7C +hctHBgv/S8ILFYt3n70NRPmR1F/81HisuJIgXJAfgBcP/Md0ITYOtfP6f0a+ +8kcnu41bfIxikfumEsf6MD/M+XVr31RfFMblhb1xOeqLbUeEDvEnRSKzvvbT +oBUfnH3cdVTXNAL9H/NzP8/yRqPtLum2+Bzzdap+6OMj/E+Vk3ld41N8eTLR +es7sDkbUuey+ce4JWsQKGMlo3cKOC/2yra1eGHz1ruHrDmtMbNBD+RduKB7G +MW3Kq49e3eLd/DU6OJBxsOgEkxlIbR20Y5FWBPf8c5V5KVZAnfdJ5VoyglPS +mlMTO+zgYaRmk72iEwhva9fiOOUMNULP/JO5fEAh2vfn8qeH4Bsj4qQS6gvP +RBe+9ux8DJpbKowo7P7gYCl0103ECxoWZyVYNgWD80i0ep+qD9y4IWlTtBYB +H98RDmH7/UBLxM34yfEoGFPuEvnC5Q/igzW6eh7R0Czbbiy95A/T+qYq08ux +UFdbIHCl5BncOhHGKvg7CWahYbfEhhAoZXvYU+2aBn/VlzRCXcKBJM3TlSOS +DnV/L5R/7gwHP72cjqT2dCg13DvrfSgCLsWMN9+TeAkZ5QfSqscjYE74fLXk +YAa4Vl6rizsSBb2nJ5E3MBMGKi/PWQdFwYcbXu83qLyG12YmS239URD0tqBk +KCwLDirx74q5Hw2iR/bkRJzOhrsjR6fayDGwxaT4jed8Nvi16Kldmo6BhccX +X99KyYHc9vOVObKxYDFWrb/PIxfGLnQyrSuLBRnxRZ3VnjxY5FQrf4lx0Jhv +fjrvWQF8dE64o5SYAMfqpGrERgrgh2w9k1dnAuRSl9VTlAtBNc+2fZo1EWKW +IyFovBDc/zOiytxNBCtoOGp9vBjyzzQUNh1PAppedGl/ZDH8zj8g7+yYBOeu +XTusP10MP/m7uvRTkkD+6T8liC2BXTJO15r+JgG9SVZu93wpsAVcKut7mwzO +A6s5z8+UwVtOg7+RtGSY/N4kszGlDPJp0YYJzCnQwmUttaBdDkPJTYqxl1Ig +wSBerDW9AjwULpoGz6WA0tg6QW8jBFh8tp2NhQQyZYbzspkI0qJunQrcJBCN +eFs7soxQdPJqjsA+ErATb5RIOpWQ/uSBuowaCf7pGQ3QZyvB0etjpqUbCZaO +rf9oyFv1Px+1o31J8Es8OycHqoCrRLsyOJwE35g2PDEPqwKz6ayLja9JMJib +I4Fy1RBasT3dv48EfUnGO3iNq8GtdCR8aoIE1ACWVUefaqDNMN3cNk+CNour +HYJd1eC97mxBxUYCPnBtcnvsUgNiL2bu+x0ioOxfngU1qQa4yTPuCkcIKJoy +0ZapqwEd9plfWScJyK58t2eIpxbOtJvRmS4TkOpkVnu8uBZqmZbiNN0ISDLZ +nB09XAvxkqMZxp4ExGkVxH7fVAcPrXoMjvsTECbEZp9sVAcGIw3MTjEEeHUU +bltdroOiiI4AxgUePCos/l4S+Qii0lu9xUoJuJ/BPvFG+yNocjKNBiEBTl6W +JSaJH2H0+uEDTc0EWMpymFccq4eZdweSDowRYCZQosVtXQ8Tz/yLz38hwJj1 +uvytkHpQ+aJWcuYbAfojJSwCQ/VwVjY6quw3Abot13/c3dgApV0H1yusEKBd +wvmpWaYBKKL8j7zWCDgZZvXmoWcDeAQR2YkbyXDCY2tM16sGeBpfO3+TjQxH +bcs8D3Y0wDyPpSEnJxnk1bj+6xdqhGMjAbF93GSQkSo/pnC2EeLmKv4w7yKD +5C4b0aA7jcA/XuPNzE+GfXPly0erG4HvRzF/gBAZPFpP+f763ggZmv6bT+0j +A/V1M2f27iaY07KQbT9ABtmA/+JvaDSB0J29Q1LiZAi07t8nfKcJgm+SzE0k +yfD55PXsvqQm6P1TzWQmRYbjQjOHoxqa4ETN7S3yMmSIWXWu0fnVBJvYk1to +h8gw17eis0moGVgO/heoL0dm6PehVZ5rBqHteSGp8mRIj2a7/sCtGepj5vZU +KpBhzTniu0JaM0jk2XkXKJLBUI/v/ve2ZtiYmLjqoUSGXGky86uVZhjvEe3d +rUwGNnbJEAvRFnDa1X8xiMFWU3m8fPot0LyvKJfC4A91R8hdjxjt3lNK3xm8 +K61KKiSzBe5IfhIZYrCz19lizZ4WeLNLoiSdwS2mFHWmda2QUl2kpM7gA6pX +WkqlWuGRD9GXz/j/412jBneNWkHg6/mJf4z10X7bjkr5toL26vVIAQbLd83Z +T+a0gpDtgPAOhp7g3Pt/UvtbYTB0uWWEoX8yhMn7yqY2qE+40PFUlgxq9gHs +OxTaIP72Rxtmhl8JWlwxLWZtsBqW1GQgTYaFA3FCfoFt4LV4U+nJQTKcXy+U +BUVt8LRHZMRfggwvR14pLY+2QeR5vvXWYmQwTizWvnWkHQY5/j3PFCFDwX3o +OWDdDhPdj29sY8Sf06DefDisHV7I34vQ30OGKq5eF/2pdmi86FNsyUsGDrcc +OgtbB2jLB/PJMvKrzHqhdmxvB1C8l8k0LjJwn3p4IelcB9jTB3+UbGaMl0Nu +d0sGJ8/tmmchg6PQ+r7Lbh3AWUfIbmAmQ8NqoNXWtA6YVLX7Ub5MwMOSBHef +lQ5w5kj7co+xf8RfDZ0w56KAKWH0MYixv7qjRTYcE6XAzAgf56NBAmTuvg79 +fZEC3i/5Q353EjAmXZZmm0mBdad6BE9VEPBcYM1WAynAPT8jqFZEwDH2kzIi +PRToD/GZ4MslIGaqsaSfqRN4Blgc7NIIOJv2qVXXqBNKTpgMuwYQMPc026bO +oRPkevmG/bwZ9cT2CV31SSd8NkvYff8BAVPS0nIS2Z1QyWdB+WtPQECJV9T6 +DV2wcb+DarAOAQ2tYldLcrogU2XD7R9sjPqR+29Bpq4LJi1MU7mZCdgVSQl+ +0dcFJ3VfyAosk8DW6OGHCJZuaHx+93fnJAlYx9uEHa52g+MDM9exShKcWXKd +Et7UA29EaeNpt0kw26ftHSfQA5wcyYGrViSIeb+Xb6t8D9gP9jmrGpNg0qfx +3D+THjA6mupmdZoEfhx7cqjvekAj99BlR14SfBSpdQ0yowL/Opnn806poKGz +ff3vwl7gmeJjVmhLhlDLzfPLjb3QJ6bjcawgGWiuTMNrg73ANndKgD8hGexS +ZstYN9JgVfS9iZE1o/+PJmcBAxp4qye9py4zzsfwJ2On/tBgzD1Kdh1/EthR +f1VFKPfBu7Ny5xdOJED+9ExOrHYfZPyMrxnbmwD/1saSk8z6oHZ4090spgQI +FaO4v/TrAxWy4Y+GqnjIv/9WrozaB7Sm8WcqJ+PhH58NMXqvHwZUlPn/qcbB +c/NeL9niAaCn7183uiMG/L4dg8mWAZDlYq0R+x4Nj93Jq4ljAxB0jzZy+mM0 +OEY6PNjEOQjJHDveMjPuG7r1612GrAbBwivsy/NPUcB5SPZG8PYh4Fru1GGP +joTQtQCdKYdhcJXruK43Gwb1uns49LaPgoVHolCnuR9wy4zudBYYhYlVJb98 +Fj+w4HghFCU6CoFeT3sMs57CSrOUIu3oKFhVXqj6+tsXpM4eu2pxfRSeXcou +UA54AmGnrmY6FYyC8WvpikjCC4wPx2uEG4xBh8OMx3M9V/guzPO4M2EcQlMv +sGurXEBXl4OWz3dOglFnX5Yyewj2DnDp2zRMwTkxzycTXSlo4X7sy6bzM6Ab +fNrr8LtXWHNQJbCGZRYoTjziT7JyUXRzxVS61hxsPnzOXdG1EPdU2GuwBMwD ++WcW77h1GTKtMGc6j/2E6cF2eLquEhcvvjerO/ALzp9bW19VUY39iub8B3x/ +w55vdSKx7XXoZMi1TWTgD9jx/x0v/tGAu6M+G23YswRugqV9xvPNmH2V9Grh +/jK4vqan0c61o+FxT62G9ysg2MFqe0WdgnlmDiJH//0FZsO4apWhTlxiO7W+ +9PIqgMm4oGFGN+pTVJX3xK3BJ7a3kosmVGRTZa+qSF4DqRGt4xlWVKxK7ztn +krYGR14qLl25RUXZ++6WidlrwO3jZYMPqci5tzh4dx1jvEWQcEQCFRtvyY/z +/FyDAArxx4BGRTVWiTDO83TImSjWMr3Ui0t3lviyL9JB+OxFyX0mvZjTX/9C +x5AO697czf16vRcFc2zKg6/Rgct2MPP+3V78dzl9ks2dDiEdW3RTInqxOG3v +8U0v6fAz4MRJVkovOnL8qH+ZRYfI/AwzGq0XRd0+6Gvm0WHIo2FP5kgvRmmb +2j6toMOXR4VPzs/1ovN8QuT6Ljq03ds7k7CVhpJX7QTTaHT4HMTF58RLw9Ha +I5knh+jg5ECZ1thLQ7042gfvr3Swc9C7syBDQ1bmjLPCPxh6wnpEm5VpiPZu +3ZW/6LAnsORR2gka3uvRNLdYoYPc7wFXD00a/v97DFxzE91qoEvD/wPbCGD1 + + "]]}, Annotation[#, "Charting`Private`Tag$4186241#4"]& ]}}, {}}, { + DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, + AxesOrigin -> {0, 0}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + TagBox["t", HoldForm], HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"S\\\",FontSlant->\\\"Italic\\\"]\\)\"", + HoldForm], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> + Identity, Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> + True, PlotRangePadding -> {{Automatic, Automatic}, { + Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-1\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-2\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-4\\)]\\)\""}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["h", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "h"}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{3.8871885224783792`*^9, 3.8932376275906477`*^9, + 3.893237839180531*^9, 3.893237876356636*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"f282764d-6683-431e-bd66-aff690b1329a"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Specific heat", "Subsection", + CellChangeTimes->{{3.893240903148159*^9, + 3.8932409167324743`*^9}},ExpressionUUID->"91682356-0150-4742-8ad7-\ +87c14223ec68"], + +Cell[TextData[{ + "In this plot, we show ", + Cell[BoxData[ + FormBox[ + FractionBox[ + RowBox[{ + SuperscriptBox["\[PartialD]", "2"], + SubscriptBox["u", "f"]}], + RowBox[{"\[PartialD]", + SuperscriptBox[ + SubscriptBox["u", "t"], "2"]}]], TraditionalForm]], + FormatType->TraditionalForm,ExpressionUUID-> + "a889c51d-cced-4075-b076-eae0732091de"], + ", which is the singular part of the specific heat (modulo a constant \ +analytic factor) near the transition." +}], "Text", + CellChangeTimes->{{3.893240788042069*^9, 3.89324084285141*^9}, { + 3.893240875195952*^9, 3.893240882915715*^9}, {3.893240920042145*^9, + 3.893240927292811*^9}},ExpressionUUID->"6d8da3cb-bbd1-4fe2-a26c-\ +2969b50861eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}], ",", + RowBox[{"Exclusions", "->", "None"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "t", ",", "\"\<\!\(\*StyleBox[\"c\",FontSlant->\"Italic\"]\)\>\""}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SuperscriptBox[\(10\), \(-1\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-2\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-4\)]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "h"}]}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.871624380395876*^9, 3.871624486365077*^9}, { + 3.871628883904001*^9, 3.871628909432775*^9}, {3.871629457267346*^9, + 3.871629525012162*^9}, {3.8716296135256433`*^9, 3.871629703591056*^9}, { + 3.8716297390329103`*^9, 3.871629853114192*^9}, {3.8716298958192244`*^9, + 3.8716299139879017`*^9}, {3.871629944204525*^9, 3.871629952700124*^9}, { + 3.871630090583139*^9, 3.871630094694592*^9}, {3.8716301742008753`*^9, + 3.8716302000245533`*^9}, {3.871630243281377*^9, 3.871630253377584*^9}, + 3.8716304265249653`*^9, {3.871631246388459*^9, 3.8716313024379177`*^9}, { + 3.871631382016287*^9, 3.871631383422778*^9}, {3.871633017182467*^9, + 3.8716330172537737`*^9}, {3.87223244386093*^9, 3.872232463125258*^9}, { + 3.872232659147134*^9, 3.872232720226219*^9}, {3.872232925175202*^9, + 3.872232941062345*^9}, {3.87282774234025*^9, 3.872827744082013*^9}, { + 3.8759514937750607`*^9, 3.875951563008548*^9}, {3.875951848422546*^9, + 3.875951850621904*^9}, {3.887186743041842*^9, 3.887186790098441*^9}, { + 3.887186823363668*^9, 3.887186826291638*^9}, {3.887186890645186*^9, + 3.8871869906863422`*^9}, {3.887187366630084*^9, 3.887187367965156*^9}, { + 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, + 3.887187764733572*^9}, {3.887188007450289*^9, 3.887188008193816*^9}, { + 3.893237873044557*^9, 3.8932379005484257`*^9}}, + CellLabel->"In[53]:=",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtl3k01e/zwKW0KJJWyi5r2T6WNk3JUqTSghSiUhGljbJFlKwlt1AqXWS9 +901SFBOyRrZ73/de+xKJsia7+72/c35/zJnzOjPPmTlznmfmGRnHK0fP8/Px +8VXz5P+0Gqzr53K5GHB0jaflHyZemZILnprmoq+ZgPrdASYS7zQVxsa5KJ43 +czv1FxO1lMwdewe4uFNw9bfpHibqrQpsqmZxMVki5lhMGxP3dI9UxdK5OLKp +oqqwlolHH9Sk/2fPxYXbT9I+ZDHRozbQ9ULhPJrUNIeY3WAig7G8v8hhDuMT +lPcf6GOgxJcra/Q2zaKhvpPh2CkGvnf5KrCydRrPLdIJLS9vxDNhmsOcgCmM +Pj5zb3xDI05GeQUjTOJDP4eV/ecbkCrcJhbT+Q9P3XPvyY2oxxemmtcaH46j +bV7qDH9CHQZcdvBUPvAX2Yp8I3/MatFrYZrHtT+jmD0Xv+JLczU63K2VJ1NG +0O6egM3VbVVIKeiJeeE8jBcnxfRyt5VjfrvSigzZQRyz7LAPvFyCciJ7DI6/ +HMAjs0pyMomFmK0S7NzV3Ye+p7fHKjzLwfbSLGld3V6kfn/yXnuCij1bKFqY +242+S4yeXbWzQBXfpMG+9G5kXn70+LCrPrrVvk8TTehG17DHZWqCm2HSnZR1 +Cu3GnJViboH3LUHww/rVQme68ZgR6mziuoHG3rgxm2Xd6OXD2GTt7g9eJ17l +/DvVheHi3Y5pAlHwJZl+VdqiC1erBO2OpETBokncYmrchd+k1eaY8k8gIq4j +MV6D5+8WHxGwNxpet8tQDAW6MM60RFfl+lMou5R4M4rWieLtxitMc+NglW+q +rtqCTow7Yi95xToB7ucqVYhMdKDUD+r4yKMEmB58e3Lsdwc+W7Y1SLwyAbrs +k70/sjswZT8ZZrPtDWTvpRYbEB0YuNu44L4oFY4KxB+ysu/A+JGZ0PXvE6FM +f1PH9hMdeGl8iJXzMxF23HruvsmsAyknlC4OiSWB7M/Y6E7dDnTOE3Ha4ZME +YxVPm1yEO5DhkPBcHJJBUUymhs+rHSftP7Jf0t+CSIjUcKlTO3onhdtymt/C +5LTE6tCj7ch/h7k6bUkKVLSIn1yr0o58Eivur7BLgYuv1/Qoc9rQjs97vEog +FdIUl84d1WtDzXQrsfY9aRAVs1h6g1wbil0aumThlAZ3lgnsaxVuQ+qDtmvH +Q9PAdGDBwwu9rVj5NTd0OSMNBmgza7wprfjSx/+Q7pl02KI7tCVprAVNvGbf +mpzNACc1P7+8Vh67apOqgRnwSmFlQ015CyrrlUwHJ2aA6Hp1j3/PW9C/dN40 +szsDJibcikwMW7AU/Z7EnMoEjeH51afVWtBHSmtwt2cmOPdFOF3d0IJKv5mV +p6MzoYVNWx77uxnlxptvz1dlQnHe4In+6GbM638TRGrSYDbLN2Xetxnn19Nf +6pjSQCdNeEb0Es9fY+GF5Y40SIlTe71TvxkNjFVrxB/RINzLrT+spwlVViqN +lffQoOz6/K6E2iZUWGDg2TxFA77LEZHv85pwcWyRz3khOlw7TdNuC29C7xoT +2VYtOljrD/qq6zah9vJfi0970CFKx7d+n3QTPry39p38Azp82yosby3YhIej +ko6ce0qH3ZJqlXfbOBh5erRs/zs6eKwr3Eip4GDqC13Ony90IIQPuaVmc9Df +7edhwe90kOO6rm64z8FNYW0Tqb10OD0xd773KgcvUt7d3DpKh6dD4R+nbTio +9335iNIcHZZ2ZNrKqXNw8NeDA1+XEmDA1if0xDj4us897JYQAV51NfwHF3JQ +pX3v1p5VBAx++fP2BouNutHwd0KMAMU8n+ngIjay5FcdeyFBwJksIfP4dDYG +b17hPydNQFxq/KssChtFBozjN8oT0JiwdbTUj43n9g6V/1MgYEVcgWHTJTaC +xn7ZSGUCjKPMnw0eY2PI+7fff6gS4BfS+ot/Nxurb94YnthKwMcA113rldhI +OsplVKgTMHpnLkJVlI191jqKVpoEqF4P74RZFgZmawdTtQg45yKhfbyXhaqN +2f8y/yPg5dnM+xfrWLgz1ej5LW0CWKf0Od75LNyiGPRqjscix2tUHyey8GzO +UrV9OgSYHrT1TYpgIZty7poJj+8Z/qnL82Rh9SHFWEEeF+//fVj7LAv5T1yn +RfLO85kPfKeZszAtxM+K5MXbbdFvrryNhU7FikVtvHy8T/yqpsqysOKcglgq +L9/8k31mkkIsVBlYFaGjQcCU7c+qmAkS447bHA5UI2CbY++B1V0kKlKMwylb +CLjl1FMRXk1iJnfE85IKATnOP0yWfiDxXNoBQz4lXj3cussCEki0+75M1mYz +ARrXu4zmQknUkv1k5CFLwBWPzq8et0icUSe6raQIoHl17Bs9Q+JQMr/m7EYC +fvu1F182IzEv5dHZcxsIuBjc+sVBmsSOkvhj/iIEJIe1QIsgiT9an97VXUHA +j0fNhZbjTLy4KN+dWEKAQyzns1kVE41bUPjnDB1ex7N3luUwsVB4s8GdETq0 +JbDy97xiYmtAVEMM737apDE/6vDmoPxi1cHbtXSIoTH0CDsmnglyc9MvoQOZ +3ZircoCJTxvbdSJy6XDsU32OlCQTzSmXojjP6XCwuoZYVsFAMdugiM0OdAip +q1YPzGZgUNQHMwcLOlQwvtHmXzBQE5bbq+2lg1FrZcaYOwP7fdoTfaV472uw +NKV1I48tDxGLWTTwHv2qaL2YgVXjY2ItJTTI/1eS3DDciONBtltNCBrocYsS +y0sbsb9QN7zjAQ00RApfZ11pROmBXH4NLRq4rSmQ2mLTiHXK5UHFG2mQseHz +y2TDRiwUDYChRTRQlsl/8VysET9aT6aLkZkgq5UbE1TSgAt/fu4svp4Ja4/T +Hp1c34Ah648H/X6RAdkKoflGCxvwhs8xC8uADDgydeGH5lA92oZ7sa9cyICQ +lzLbBMvrccA5ckOORgbM90W359/i2e0eX43EdOj18VLbRNZh8s7NyF+bBm6H +H8cUKNdibMTwatePKZDy1/Q3ZUEtbpTVLKuMToGu2EV73Djf0TG73av3agpY +/vD4KfnwO9oFWM04KKUA3LbTvdtXgxtX2gRfiebNF6oqw+BtNXbpH9tn6ZAM +2f9KV1bIV+GA5XvNhnoqRKS9Kd49VYlYvzs5gkoFFzu/m+9rKjFE0TtB9CYV +5Mu2Nb+5VYm2EcVx19dT4SklPdmnogLV2zf6p518A3e0H+v/d7kcj8fuCnJn +vAaDa6ddXr77il8km7PbDj2HpOae8F+Bhegrl+M1ExgKthabcprPJuJel7UF +y5xCME/Qi1nMi3P9psmE6BwVdboWSPpbI9zON7fYwiVQbvjT1I7iStCpUzT+ +IP0BD1A5NYesG8DCrYaSZlSARuaiC8ffs0BHRYsT7lSEkfasuxofWuDm1COH +3q8lWH5IQuiIaCcovlrHZypThn9k1vo2xHXDON+sYp1SBd68oeoQua4XRhqS +HXr5qpDVInLUqaIPFkX/m9Ns+YZnbu/6ueTgAGzpTFRv9qzBElW9kBKBQVDM +UhW6Jl6LCss+9yXuHwbXXR+fFeyrQ4nPLkYCwSNgcNNYGX7XId80f+q1rlFo +fyhvGRJTjxMWBXalm/+CXd66YU+NBmzWtt+4OXAcOkfX+JyvbsCrViKrZFv+ +wQUzoTM+to0oFv3DepHEJLhQlLbbtDUi7dTrt2OeU3D5bejYq7MMtNL3219R +MA33ih/G+TQxMMvOVXbH7AwktUrE7TBl4qTgvoV5J+agtPLKkYBC3n+3fqeu +RMw8UFndebkKJAruXF70OX4elJ8vE/VTIrEoscnsNHUecpgUCRMVEjU8bzs8 +p82Dnr/hYXIricJSH8LESueh6Fe61Ig2iZWXtbrXjs7DKuclIRv2kbhnqfIj +4YNc+PusfKu6PYmT7pPiNAsu3D30VWaQ18fozeVJ5lZcEHqjVJ3hSKIk3elT +mCMXdlwIMlR2InH2RGKv4G0ulC0WL5N0JfEDVUp/STIXzBo7pWfvkOgmNFSe +nM6F5i8a93O9SVTwKDxqnMUF6VdW1Ku+JEab2l4M+syFUuYDgR/+JF4biXuy +sJEL2wL7XcqDSVQ55SxJZXPhZYx7lF8IiZ1ft6catHHBuTvQXS+MxCMx7EL/ +X1zI8Ek9mRxJ4lL+lAMyQ1xIOPfT0fYxiejiwfjylwuLswQ3r3lC4i2msf2Z +aS54UJRfV0WT+P/7CkTssGHcfUri/wCiH9o9 + "]]}, Annotation[#, "Charting`Private`Tag$4195771#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtWHkwFYr3JzxLZevJS5ElhEi2knSEkIg8SpGtUETxLCmFKCIVUcpadpUt ++3auy+Va77Vde3ZJsstSuV+/md9fZz4zZ5vPnDlnPkfE7paJ/TYGBgZ2RgaG +/7NysHuaTqfjG/HX36vNaHhrXSxkfYOO3tNXciVNaZj7+YjE0godxSX1lcJN +aKhw0NBu8jsdb5zW8LloRMOjPEF9zd10PB1xZWVKj4YaYwuNb3LoyMbBlUJX +o6FJcMsHRWs6KtjX6fwSoaE3JcjFsWoT7xNd+iR+dGFn5/bpats/OGwfIE3y +6kJBwq2/j+77jVw32mVFmLqw0LmWhWtwA6mPJxUCn3aizdMj870P17E48biI +DUsnrkXeC0FYw5NnLzKE+ndgMueXPTEjP3GRgzPdYaod4/SPuHc8WUGiWidj +2Zl2fHjT9o7UmWX0tgNH/Y9teI8py9v9xyJmK7ybaV2hoq0/5QAtYwELH7oI +fj5JxejKiZg4p3lU5DCsdNtoxbKhgzs+is5izGWRQYcjLSjGraFpmvAdK3jn +ml9ZNmG+dIjT6NgUOvco6dlKNOAQKU9YRWUSFeKz2Us+1aHvv+vaxw5N4tdQ +1WOU5Dr8Z0TjxnHRSUyk3ioaflOHxr8peSc5J9Hk2qHAxUd1SFCY1dSdnMC9 +4laB1Ct1mJQobW/+agKNb3vz3NpRh3Y+yZl3f44j920DqY1rJJw4FK2ARWPY ++GI5fT9jLUo/SJ2d+jCGL0zmOh4t16ArpTCL990YLp5+qTv6tQbX3GiiDmFb +mGyJ91trkKOYf9dOmzFM/N60diK2BuVPvV26zD6Gnn2MB5sVavCeWWLBT4tR +XI6LDEu4RERCWs5t4fOjGOOtE5J+lojMa3hIX2cUNRWkZFPUifjs7XBKvPwo +CrXbcNwRIWLSkEi0NssomuyeVg+eqsa6GymekdkjKC7h3CvjUY08DzJV5BhH +UMGxbH+VPwEfFx0kc68O46AvcyiPOwE3ZtMvLc0MI7PA9pELVwk4ap3mW9Iz +jPqybf1FpwmYfyqZqJk7jEPT+vFkdgKasMSfu2g9jDJ7Xn2QFUKU3CPSwnBv +CO07KWFkgUrkDt0/T3IYwr637in26xW4tiG4K8xkCFn5Ve0HuyuQPCBwiU96 +CE0D0r0toirwetLfE1K9X3D5cl1j8PYKzJJk+2Ny9AvK7fINM1gsw0Mqc4dS +lwbQPTjLLi6hBB3k/PxKBwfQbXHVNdijBBMluNpb6gew8D2/u4p+CfLyH/b+ +GTuAQRRC5uByMa6uulbrag9gzvYQV3XdYiSWzppNR/Vjko6zbsJQIZqrzz44 +rNKH8ax6qvK9+Rip/KBNS7gP3RwY1vjT8rFJlvOAOUcfmhab5Wa45+NJIbkG +/y+9KDWwo5PAkY9idJdd7Y970fgIQ8AnlTycJfxI9+juwd7WVOaFtWwM1P5B +Lb3TjbFCTVf+uKQjUW/GSOlqN5o5eD4vmktDBsPvrdmG3djiJD3jfTsNfc2+ +NSeLdqPc8HdZ1lup6OUwQQ5vpqFKQInaNptkvB4ySLAVpmEBj5iIrmACpj0d +gAEOGnYsB9tQNuNw/EV/1YWVLozZOc7C+CUWbd/0Vpxt7MLmeKda7eg3eDmr +q0TZowtvT1SLP5mMQoPmllx2cidO2Vmzee19jKHU5sNB+Z2oJSs/yRweiOTO +puzNuE7cpfjSib7mj6cHGz4uuXXiJ8XWrlU/bzw5S8oY3NuJYqt+flLBGijP +XZWUd6sDV4ufr4Y+eQR8ptkvLvG3Ixtxp7Xz5DvIlwgrO83UjnLvqk6tZb8H +43XH8SNzbZjN9FuczycZQhNEjnHUt+Fp0yESM28qbE5FDZV5tWGdrr7g4IUM +mLx/T24fjYos18onmWVzwNUoIqZSioJ/JUxd7t5WDBnL+jPRjBR0BH2vKb9i +GH3DrOHa24oCbTNNmX+K4cK491ehJ61o9plULf+rBMDHSsV/qgUlWY4qzP4p +A+5kmU7N9GZULjVidhZCyP9J4iIfaETdPatjVdQaeJb1nnhyvQHpBxXY6AK1 +4Gzl51nY0oBMi9puMva1cKDuWP97rwYcLvDgkluvhVfRH9Luk8k4uXTv+9/7 +6+CuUoS64s16FKmUUGmyIMOFKZf5TI16HCiK3bR4RwbFOP1kYb56JMrt3bwy +SYYZJmZ2zqo6PDOtVvjStQGsOrw6p7jqcHkyjrvbqxE03S2dEz7X4iWbx4+N +rJtBSEJViC+kFscOnXf59boZfvXytYVZ1uJ4arvkS0ozFJyiqPiw1OLxiect +jmotIMGjuc30Yg0yD/LE9zO3wjaSUGGjTA1OPGqbFlBqhaE7vxxPMdRgjccN +a067VogZLmiRyyRiZvraro3SVuDIlXzD/qsaVcuPNBheosDkVWYDf0o1Dtu5 +10Tfp0AN/8jmz+RqDO3i+XgjiQK+fm+vjRtUI+9Hpuq0EQqYK3rzW4hUb+3K +wVJmBioof/23sW2FgKzvhyM8Oakwe26nPCYQsCnIfjuPFBUat02PKv9HwKm4 +ugpVZSqkF9VFf9QlYMaBoR0JGlQIckrWE9tHQIUeXRf1s1QgnGBYVRxBXLHq +8OE3o4JPSqmlSChiOOu1NRkrKijs+I/IqYjI929Wz10HKsz8d+jg7/4q3EVu +VmR2pUJq/0T4t6Aq9IhdP0v2oEKf7+7EeMUqlK/jbnS8SwVOId3c86OVKLuS +LW7pRwVN9K5miajEYyPLi6mBVPCyyWgvhUo8Y2Y+djqYClmMvWMusxW4oshD +OhFKhS/v2VdE4iswb/ruw7CnVODVPv4X7WwFii05iSg+o4LOhBN/6EY5arDf +Jyo9p8Ldx7EHT2aWYzjRLCliC2dLNqsuXizHwKMDnGe38Cj5t37aX+U48Z/z +XbuteH4nWcvLhWWYaP/boXcrv8F2KxfOa2XYyXTmVt5Wff+Pzx4Qecuw5Po3 +rZmt/goM8blXdSkKv3HOCguiwtTsXJL07VJkL3DwjfCnwr4XwvlfhEpxQTM0 +jX6PCsZHztdEtpRggW2WZI/XFv/tAZ06viVY6NbAJehGhZL/8ic2pEswjE3Y +j+q0xe/fYz+ze4tRrk4sdfkqFYSLdrFdDSnG2dJwDLOkwpM1D+mmiSLs+bXA +vs+AClVvUtX8oopw7ubc0h4tKiwepxkoahVhSNdN7ShVKly+f/RWbFIh3tXy +/8UqToVnQtf9jYwKsXG03PEvASoQMSaCabMAjbp+aIVtzZP0to3PzhYFW/dy ++Lj9DAWskqVJ+zkKME0gJr6gnQKR2ha0jpLPaDex45N4CQU2Hlesqe3+jL2u +rGMB/hRo2u6nvqMtD33fjQcWsVKA4VPOOYJfHibE2mykfW0FpXPD1h5yebgf +QXOsrhXiXpx6OBCWi2NpWnymga3QI8327FJ4NgZ/zopMW24BDZcbudXTn/Cj +BM+jR5QWyMhpbJfS+4Q+eSHTPZkt4KMUzr+x7SN68VZ4z1u2gMBJ3ndv72Si +skSigGNlM1w5v6+g/2oK2ixLilo5N8HM0oqqZ20y7qDtvx2k0QS+ryjIKZ6M +JrTLyY58TRDX/7Dp1OQ7jM5fLHSvaoSCpnaSUVsCxl4RMF/f2Qg5yzfFpvqi +8HjX5yqfVDL4dx7s3FtjiDml6XXiZBIc4hp0YpFVgjb+JlHztySgLTxM5F4z +B/71n0+jb5Lg3kudRmel2xBirH7yKA8JaoSfBMdzP4Qb+Rc11CxqwdFR2qFo +MxJKpXSPnlkiQinHvS6iZzI8WL7u/kyVAEmyfB05oilQara+ELCdAI+Nc6hx +lBQQaA0X1SpHMH011uQllQa5nraFLcwI8yIGROnBDKiNDb0vGVcJEqqCOZHa +2ZD2JyvSYaAMGj5ba+c9KQD/8XFKfUohnCAdqpEcLgCu1w+/3jcthFza+qkE +lULYpVot9ZK5EF6tv4SwsUJYVpWHPvsCuAbk4/bqxfBrLu9cx6HPQG+UP7Jn +oRRIT1I0ZJpzQXmUUSjAHOH1SGfd09gMkCu7uCCfidD2IfV3ikAGSER+qh1e +Rzj64N90w7fpsP3dR+UkQwIkNpQYGsamwW9j8wH6LAHoI9ds5pNTYDA3RwqP +EEFtvivqH0oSJN62qlUvroV5xixBPq6XEGfJnh09VAv7f7OnOcpFQoxewesf +rCTQfrkok3UuAl4IczjHm5Mgvf9qwqLYc/CnFvL8WSfBPo/cs3K6IWArv9O6 +4kQ9KB+vPXqqzhPE5svXjxMbwCainj1b+z76tmgFLf9ogGCjaXaJc/5Iy2ri +zN7TCN+exBMk1wIw1L5fTMStESb3ctdRdB7hfN+GIatwEzRo3w5mo4RhFUn1 +fcf9ZuDiZXzwRScKL8cW699UpQDTy0xXJpUkPJPc23LOvB1SLN8l+Jz9gPOP +sh1ILu3QkeZaYxv/AWOuB9LVAtshrkV3B+PcB5ySlT0ild0OMfKbHQ4RHzGk +xD+KibkDlgS5n/W3f0Jyi6RFSU4HaJ8Iyrl2IBd11zynRFi7QPne+X21Afl4 +2pCXaaWwG4ZTGfaZjRfhM1v2hfWGbohdFtFwZyrGHk+Goc3BbghJlArxES1G +p4TZMra/emAlZMeKjk0xPptrdN93oQeGOHcbDfdt+UcEjmr97AENf+XmA80l +6ERbro5U6YOw+sPZmYll+Ny621++eABu7j1MQ64qrD8nuNOYdwTcDQIfh5oT +8YcI34P2t2NQoptKXGQjoaeHjO3z3ZMgG7Hnzj6beuwe4DZxIE/Brj1jboFp +DWjjc+Irq8F34Pymx7MZ0YQ1MkdDa1hmYZaiKcx0pwUl2CumUvTmQd76mHfv +PxQUrHA+zRKyAJFPCPMrZ6jIsLEt0310EZYqb46dZG/D1fOVViTxZaBMcl3l +ym3DfiXrveJBK8ArGFWVcqkdb1/k5hEd+AkVFeX7RX+2456ocXNmwTUgKcWb +Sm3pwWyLpPSlO+sQ6+ZszcnZiRfV/fTIlRvwwKNHZSGsE/OsXESP//4FLW0e +qQTGLlzj0GIqNfsDZbIM2n33utCkTU1FMGYTAkyXK4emupBDbXt1RfwmrKte +t6uY7sLqlL6zlsmbcPPV4dyYmS6Uv+NjG5u9Ca17VfSM57uQc3/x0z2kTei5 ++9SlfLULG24qjPEtboJM+p2MgL+29DKb1AtOAzowGmFBqxhtS4+tCWSfp0NV +ggQmidMwp78+1fAiHZhVP3m5S9JQKMeh/KkdHcZfh//4W4aGv81SJjl86FCZ +3vzHTIGGxcn71VnT6HCMPbGarEFD151z9Wkf6GCy/OZDtCYNJbyrTHTy6HDL +/qG2nTYNo/SvXH9UQYcc8/DADV0aui+8fcnUQQdufK8quaXvpS2chJJ76BD2 +QCRhwZiGI7WqmZpf6KCneSu/3ISGxjE9VQHftrDf1+lzF2jIti3jjMgcHVIy +znD9Y05DdPbuJCzT4YnK9NjwJRp6delY22zQYXpg/HqmBQ3///8AlqfMEtyu +0PB/NIzz6Q== + "]]}, Annotation[#, "Charting`Private`Tag$4195771#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmGk0FYrXh2UoTcKNrorIFJnr6pralUxlpigy5GowJGWMiygVKhkimWWs +Do553MbM4TiO6RwkXJnnUJy/d6330/6y9+/LXmuv59kCN50MbRkZGBiYdzAw +/F+VAu5JOp2O0qYhk11XKei0Lvh8fYOOR4Cmr3iFgjl5siJLK3Tcp9fqlmhE +QbkTOjfHp+hYQj21w0Gfgmc4nvS39tDRQGFuP8MlCp77vtD8LpuOpWEnV46o +UNDwWdvHU5Z0/Mve/O5xQQq6tz9xvF25hXONLsq2s91IJu+drLbexN4voj5n +PbqRt8rp4Jmjv5GP81H4IHM3FtjXsRygbWD34VyR8FdktAqRne/zX0f6nM3A +8C4yroV5PUdYQ4K+zmRoQBemsA3yRH9bxeixP0bFpkkYe0n2QdeLFQyyrJZ9 +oEtCfwdrDzGtZTz6HILliJ3oxZTl/mBmEe+5LLO6b3agtV+7ECVjAbOadq8l +aHZgZMVYdKzdPL5iv+seeLAdS4dO7Pt0fBa3bos9M77ShoLs5y4Yx08hbSKG +5+qrFiSKP7cb+T6Bs2ksbulOTThUn8svLz+OyYre7n68DTgmESmHhd/x6kcn +JBDqkMMnU15qxzd8Or+bZpZVjYGFJxrZfw7j3XMhXKfiq3FjNv3a0vQwBhPV +fzOGVeOIZZp3ce8wch6OygnxrEbi+ZSaCznDKGhgXqiuWY2GLHG6JpbD6C7K +tVdntApFeQTaGLyGMGI1I+cGdxVKyM9JpC5Rkf+RDJyrKsdbUr6+JTQqarz2 +KlBMKscEkQOktgYqZudUyPP6lyPnIWn31fdU/CGtVfNOtRx//rxXrXGRir/D ++6od6suwpmT2ymTEAD64kKZqUleKpiqzPtLy/Ugc/ePOAUIxhv3l06nK3495 +rMpcpcHF2CLJJmS6px8v+F28oHG3GM/ySTX5Dfah7tqWFqtQMQrSHf8gBfZh +WvsOuWPRRThbNZPu0tOLT2jMbk6PCjHg4kxHiUcPais5yM0J52ON5rTeaZse +/LzT7+NJhnxk0Jn6StDpQRdpO9GL/XnofeVHa8rxHpT5VLmL9VUeut0aa3zZ +SsEjxGSTriUi3nlOq7Lmp+AEHvM8XZyL2q1tObsbyWhxM+5bhCoBgzpapZ8Q +yWh4mOl7x8xnbCS3ELZiyThxVLaVEPUZ1WhNn5acybj5lDSsPfkJz87WZ9CO +kDEvIkloPegjyrBXJuY6deEdU5/RsyUZyGVMCL12iITXNJOc99ckI1EkuFSN +iYQ2M5sW522TUX/99qjsXCd+11YMYmZNxqB4gb/3NHSi78TToVPaSbg1ETFU +6taJr5rMfU/EJ+D4v15SRykdeEuLwc3R6x3e03sTXSHWjkFTFbe72p9jxvKl +6cgd7cgmmFL7N88zHHnHfO5e31ckz4zaHrB6ildH3f/je/EVT382dJgZe4zg +aSHvN9GGbIzTDT3JrsiecpJ8Ib0VxXTDnK/vsQTiav2BRqFmTB0f2+gbfgOv +spJrzq43YRPHwDRlZzjYW/i6FrQ1odCyQZSWdAQIffl7INmtCUuOFxjWPHsL +byM/pv3b2IhibzbNPUzfw6PTb1ROOTTg/v4ESf7aZLg64Tifea4Bex6Liik4 +psCp2Esp/FwNKNYhAWw8H2CaiXk3W+UXTIy32P2nWypYdLmRJw58wTm7+6Pz +6hlw4YG5fXxeHVZ36/WE6BGAT0SBj+t5Hd78y0LK40g2/Orj6gw2r0OlCItn +rJPZkH++Xd6TpQ7NVn4t5DfkgAjHBUZjk1q0vq6v3e5DBMZ6voLmk7XIPsS5 +8HKeCEMev26fZ6hFn9+XAjdt8iB6OL9NKrMG4z+teIrp58OeHNF3u39Vo27M +tL0zFMK4DbO2X3s1PjB/YHO/qhBqD33bWk2pRnLDudB01SLw9o35Z1S7Gu8Y +aThxGhTDrO5+GYyvwnrrhwlWQaWQOjD28seTSnTV4tESfo3Q782dEHeqEoND +PrayHa4CNj6NHIORCpzSdOo0vlcFblYZpBKowLWs0t7Ao9WgPmZ3KGijDAcV +Rq5nvamBR4HvT5zNLENl1sNFUcs1QBBtVVg0KcOTSY+YV67VwiE7SfPrBaU4 +E5aVf1OiDiZm5xLF75fg66shJfOL9XA0lJ84yFeCVtmSFioOX0Bf1qA2rK0Y +kx6detQ98QWKHxLHNsSLUfxtrv3N6QZ4seYi3jJWiLSZPCcj/maofJeq5BtR +iLKR58yuFzXDoiJF+5RqIarYCPgnGrbA9X/POL1PLMDfRs0MV9+2gjjjRp69 +WT6m1m6xfTVuB4sU8fpje/IxokytmJe1A8IumlG6ivPwGoTbyd/pgI3A8jUl +7jx0lnp/z0e6E1r2+qrs68zFSY2lUqY+EjB8ztat8s1FysTIlIdmF5zWHbZ0 +kcrF1oyPW59KuiA29Lw/NTgH967tiwlIJEOvOOuray8JqJ37zMXBgwLnHO/m +VE9+RlvizeU3sxTIyG4miWl+xuVjn4jrNj3gefrloQ3GTzi+c7GLeKkXRtxm +FW5afcRwZrF8lrJeuFSiZ95ckYVRDNJnE0/0weGznEkxHpn4dkZg7el6H/j7 +PaxlpGQg52iLToVZP0zVkMfsTmXgf+LG7/4s6QdjFnnWrtB0fPFP3F1ujgEo +14gSV5pNw/4Q80BlmwEQClrTTrmchs4X1JkOZw9ASOs1p72ZqfhFP0tWa3kA +ltnK3jzcmYqJi8aWznJUuGFwNH/A5gNu6nMYad6lwvTSioJrXQrmq9yJLY6i +gvfb7dshnILdp/eaVlVSYZ9CplrG02S09ftmpDFIhdgB/5bz40lYovKVQ22V +ChI+5gYD6kl4fSviSdVOGpTxy/e4pCdiw2MZ7/YDNLhUe+AGG2sixh13b4rk +oEF+C6lerzMeq5QuCV7cRwMye2Cnf1gc6r9W6+NmoMHSFQVagVEsKvuOWhnP +UIHz/fTExMH3GCVh0XyZTAW54YTlI5R3WFjMK25UQAUDYSMGvaho3HGrk/FL +KBXu2+3c528ahX/czi1luk2F0OySQwU8b/GHyJrQvb+pkL3sIDjRH4GOO/NF +7rBQ4asCv/SR2HCc91DxNv46ALM+XYq6N8KwafJrckT4AJhyuny4g68x7wBr +YtDBATBSYmPc0fQU+21BfnB7f37kE+QjtTp42Vw8JPN1D0gcoNmxSJ6GYFOl +OsfzPUBZ8E9gXzOFzxcjjdyXKOAVrt5sf/o+LDaXltaYUqCW/8WzOHZ/OKyq +7+Qs3g23b4vfKtwKAyWlru6kZRJoHne/HqASAWqxyRxbuSQ4QavV1feOhMkq +Jzat+ySYNLxxZnI9CpQ5K+Iy5zrB4WwoK99KLFzutHniuN4BJXu8umtcU6DM +YlnC2fErJEpydWUf/wBHWeR0FH61QaB+dkds+wfQ0psu/RrUBsZvv7e4iaWB +nsdQqFJ2K8wLaNeI0zLgiZqzMPe+FhBR4M0Ou0gANZvWrKX9jbDPvOiT7wIB +DmbE7dXLb4AlH4Msh/hsyKDpVk2bNYDVSI2hoHcO5Ckw7CURvoDUiZ86m925 +sDm/etP/Zj005VlezH2RDwr+I1Mbv2pAuV6iVnQ4H/5szHJyzKuBHMr6+Xj5 +Amjiy7lcbV8Db9fDIfh7AUx3dbFtDFbDP9CoaKtSBCOHNGmy7VVAb5aR5Vko +Ab+eLbJJWgX8NbKD77EpwnLSPtHylEKQKjVZkMlEGLDenWenWggiYZ/rhtcR +XJt9E6a3c/cmfforUacKvKSSxG+IFsBvfVMqfbYKmoT8/owqygNaTrYYytZA +pKCGVM9GDiTct6hTKaoDmklhadxKOsSa7yZEDtUBx1NBYTHLdIjWzI+a2VUP +MZ0UxYqmNAjl32MfZ1oPWdf2hy0kpYJfRwHH5no93Ms7kSlpkQLWMvsty5Ub +4JuDx063nfEgOF+2rljTBG3xz+tuE4PBu031yfJMEzh8F34mGfcCKFktbASe +Zmg+ttSrEvwMgmwHBAWcm4E7W5GT2zkA5vs3dHbxtwD3sfjgk/VuUFmvkNz1 +byvE9M2yBHyywuvviy45KLTD4VqmBXJiKOZ7QLewbTvkaC3e5/J9g2xXGyyH +QtvhnUT6v1LmYVjN3uNiONEOa3usJVc5I/Cgqpde7OUOcCKeZ5Z8GIVexTGe +/hsdIFeWwpTAEI9aKX1tuqYkeFdeNOook4rzTwm36h1JUG+wS/Xby1SMvhNA +VwogQfdlnuCpyVSckJSUFSOQgGsh0rUxJQ2fF/tFMDF3wTDtjxvl7BnY2CZq +VpzdBecafhRr9mahxprrhMCubpifzPTM5MhBNR1OppWCHnAOiSzLGc/HV9a7 +F9abeqDDkb6ZzlqAva4MQ1u0HpARLr0cIF6AdvGzpaw7e0Fk+HXluGMBvppr +fnD0ai9U3Wcbtl3a7n8TMKK62gtzaJNtt16IdpTl6jD5fpgWUItOXyzG15Y9 +fjJFVLjyISz2wzZPB04rw3grFUr/1uwS2+ZtH8/kzfcjVFCMMbONHizHe+GO +j3ax0cAg+F9+uSMVqNvA5DL4Dw38WXmfmoVXIJu0zO0QzkFIILgWJflW4qut +5zoTjkPw2fvamq1QFTbo8u7X5/wG8sIE5ezOapwR4PIhxXyHwUPdOYSEOnR1 +OWn9mnsc0kV3Bp3fu81VVHbDW40TYPXaby7XugmtPJX/26U9BeTjh9oNTVuw +9uSZoFqWWVDuDD4TpdGGIrvLJz5ozkNSTB7LybmvyFtur8byfAGsQ9VDvpzp +QIYNxswHI4vQUuLWbLvegT8NKizqhZeBqG86yZDciQOnLY8IP1kBr3Mk21M6 +JLxvws5xnLoKAZu+LUxTJOSJGDVl5l0D++XBhUNuXUgwS0xf8lgHmSkZ+ioz +GU1UfDUbKzaA+NlKNSWAjLkWjscVf/8C9aPuVsc2tv1vjypTyZVNiEtLlKS5 +dKNhp5I8b/QWyEvqv7w70o17lPZWl8dtgdoXkzuao91Y/aH/snnKFrguvZgS +Ge9GGQ9P6/eELRgvmJ0c+dGNbMeKQnjqt0CaqNh5daEbmxzkvnMtbkHNaqaJ +FMO237KKhbJp0yHhYatIHC8F15zXDhMM6PBoSO6i8zEKZg80pOqY0IH0OGO/ +mgAF+bJvlYXcpANbskLqlBAFf1/5ML7Hkw4DRgqTpyUoWJRyTGVX2va8StZY +kSIF7+2fa0j7SAfuoPXOQGUKirhXGqrn0oGnUNbhylkKRly6cedpOR0sFzqy +Fs5T8MFCTDhTFx0OP1oxEtGioLiZHV9KLx1q8gqJi9s+/q1OIfPCIB3GGjSq +KrUpqB/dW/n4Bx2KBi5PXNn2d1bGDC2BOTqUf//JKGBIQbR3J1ct04GhZ6x1 +atv33brVLa026HDioJx64RUK/v+/AH5Mrt3zM6Hg/wC/QLd2 + "]]}, Annotation[#, "Charting`Private`Tag$4195771#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmHk01I/7xYXSgrR9WolItkikVDyUKIoIiaRdkUgkWUIqISRlLWtlHdtY +Gx5r1rHM8h5hENJQDZJCMd9+5/z+uuf+f+8593WlLjqbXeHn4+MTW8TH93+q +DP+N8Xg8FFu/I52wJNB5Vjpodo6HNyvWiWlZEJhXqCo7Nc3DVTWpe1NPEbhb +7sTFka88BPbx+psnCdy7KrC7lcVDPcG4Ln5DAnWGJptjc3lonrWHKqFFoNlj +apaaHQ+/bN5iu12aQI/2QCf7ygU0ya5yvMZlIoOxYqz6wjxSwm/pHbrLRPEq +57V7t/xFQdaOpUOCTCxyrFu8kj2HjntGbsaEMfB8qOrEx4BZ3MSK1/sixMCZ +SK8ghBn8qe6VFfOAjqmifRtjPv3C60FSQWrfaJhgqOpKfzKN9ywkDH2NaRhw +48Jd+WM/cd4hI1e3oBO9BDI9XL//wDIWNSt4vgMv+LXLEOmTmPyjwLnsaAe+ +qPgck+AwgeZnvjo3rW3H8n454extXAyg7hjOs6CitJjOIfPXX9FaRGw3EdaC +BQpBDoNDHKyISk6/7NKE/fX5khoaIyjJ2XY9RaIBPyu92I3FQ7jMlKTtlleH +q3wzNJQXfUJDQ0fNWznV+KhYrlHs9wAKRHfamCRX4xz33ZmpbwOYZyuuI/ui +Ggft3nqXdg3gvSMZipXe1Vigm1pzKG8AP/H+RL8wqkazxa+MT9sNILcvqqf7 +SxXu2ChF5fPqR0uGoIb3pipU0hhXejPVi73dMrRHLRS8qnz/fhm7F5FI8EvO +pmCi7EoataEX09N+kdKeUnD1ehWPX/G9KJz2+M8lEwr+/n2z2kCvF73o10/V +dL7HmjKuxVhUDz7ZJN3b21mOVlpcXxWNbkzlDIk6VZZi5B7fzsOS3ajsP3DN +KKEUW3aKylgt78ZzO+ZWidwrRW0J5Sa/vo+44/DVcM09pSjNc1pDe/QR60qX +UVUzS5Bb9f2dG6sL76QSp13DivGB3veOsrssvGEqWknSJmPN0W8m6pdYeCsz +b1RnIxn5TnxtI51g4cbWNc/ypgrR22K0NXUbC9UKy8x2pBfinaufG5+2Ephm +td/DcWUhXgtiV12QJFCwWzVwNSsfj7dS85Y1MrBrO6fxzTMSBne0qgQWMHCp +jIfKGi0SNjJaSAsJDPzuoeoox8nBI+ym7Klb/3zUgreBVg5qc+vT2ZsZGGi+ +Qu/wUBbuEqtMynemo8EqFYUH4hm4zpwUcWY9DW/miJGkj6RigWxI+REBGnoO +bEj3HkvBk7P2w6rjndig3qXvEp6Cwa+l9i1v+JdT4ff90l3JuMCJ6i+/04kq +AnfaUy4n4YiPl/IWogP3JvpzjWlxeNPkWUyFfDuOG56NlbsUiuk/Db+9WNSO +uOt20NeKYByMFdS5+bENXfMwO/i/J2g57PFF4kkbOl8aX2VQ/RDB85yGH4eK +t+OXPFSc8UGxVEXGoXetyN1mkeCwSQcLftWvbJRpRu1NyxV0h0MhLDOlRnu2 +CauWbXHTWxwOjufuuxdRm9CtZ/DZeFQEyHzY15NypwnPmX2YXYyR8PJF1luf +xkZstPm8kykfDffUn2mp3WjA4lgHLaFdSWDJcZrI0GnA7KYOgwONSaCWYJgq +ua4B5w/35IVdSIZvAoLLRCs/YG6P92hadAqco99hcFZ+QKqUaZbI6jdwyPWs +4+vCOrxI552X0csECVlNiXVBdahWxNMJn8iEPx/XdYacrUNqS4bAjddZQNZt +1/BcXIdZPuTEqIVskF11iN/8dC3mfSC6bTtzYXnejthlf6oxcKxAKX2oAN70 +fH46GliJRtZqX0fiyqDb+7/EV2qVqMV1puUsLQdRCYM808EKbKNPt6V5lMOd +8+m0MqhAHx67VPvMe9D/7LA+eO49xtKsXv1QrAAOdzxJwaUMj5qM7nQOqYIt +EZIFfRJleIrzbGc1tQpOqprWRlJLsVdM8Mi0WDWU3i74PKdQispuKv3icdXw +ZMZNoeVzMfKWrWrXLK0BBf65QkcbMrJ2daXtV6yHc6kK9VuXk1EtQUby6f16 +iNSzIeilhRga2rfFllkPc48oMwf+K0SlM4urCx9+gJYV97WEO/NxbOW+cuU/ +DcCXk2tcdT8f3a53dlnbNoK68YCdm3I+HhqPPZ1S3QgJEboBvSF5eEbkYceP +iCboUlgaduYpCQ/clp/aZ9wCOk7X86rHcvDrqKI+o64F0nObafJHc1BOhx5V +pt0KnupP18/xZ6NZqcs7Iy0qDN7hal48n4WHRaaGfGqoYFhmcra5IhNHw8PX +Cx1vg03aq5Pj7mbgd85ykRCndgjwu13LT6Sjs+/wrJJAB3ytYXx2UEtHgzht +kZdmHUAxiFY4wH2Lgzd3x8T96QCZ4JnjqUZvkZnFV8Sx6ITQ1jPOKzLe4Ezm +SEUyuRNsTbeQey6l4Tt50X2X/WnwbWpa070uFdv0It0duTTwftmOottTcdpY +7fb6i3QQ1sw4kv4wBZNDl4zrsOmQ0BPQojuSjMrWu4OGzjNAyfesaY9+MurH +Kv3axmXAe0kNltu7JLzma25x8hETyC20epPO1+gsOpVdwiaAIfaoMyDyFaYn +m3JiklgwZaHJLjqVgMcjFQfy3Ltgdfw3DmdtPNaeNCNp2X2E3QOJPzcTsXjK +087Gx64bTLef4jOJjsGluVMs97s94OKwRDjAKhq1slv047N6IffnDWlOdxRu +F+jQ2ni+H9o0JVU2JzxHux216bNOA8D1pe83to3EAT3viOTdn0Ck7pG+v8Qz +rMvWFpWd+QRWq93SrmE47hN3k3pZPAjRCd3v23Sf4oaWb0Wul4eAkNWlq9cF +40SUyzz19xCszX83FqcfhEvdh8vY9sNw6oAo/6Kmhxj8VLIokjQMkfVuG+2N +HmB50qXpjKZh6DDp2UWl+qH5ffIIq3wYJMgPIq4meaPlTAn/ysfDEN94Ene/ +8cCzskIuB/cMwwa2OHchwxUTfysKTLUOgeIQU/OlrSNGydgQ5yyGwI8hx9hc +ewJV5I4dSDMZBKWVbIfFO9Xh8nye/3zTJyAmAxLFZqwgVKJN8qD+J/B6rt/s +qO4CtHOFXV6GA7Dg6xmfqOIOwt0dvrLp/eDnkH2DrnAPbuu6N2790Ae1kk8e +vxILAL/c54J629gQ+HKby96wQKAMqqVU2fWCvjDFqnPFY1Ckmud0v+2Bxt9c ++cVCoQBkr0MpJt0Q7BS0OjEwDI5F5/Uo5n2Et5MRPlv8I+BuKiVxzYaPYG+v +cLV4IRJeC9ASZ/+w4Og2D+sHWlFwZdETjxUeLJBj1xqf9H4BQRR+IuU3AWNm +tnvHZqMhOW7u+4gQAc0imYol+2KhkukvNfqSCVmNv7YGesTB85mcwk0KTLih +HbFUYjoBiqvmBxdsGHBitvfvmNpr8Nfqeblvjg7KZPnJEtdEuF1C6iPF02Em +6tM3uZkk+Gg/sP/ZFxqULfdi1rinwojimc8Frzshaec6eu62NFBtuaJGN+qE +RydzOxLa0+DMwM0o23/9M3851HJH/i2stQTezgsdMCF1vEaBnQ7ioz5SFk/a +gKU3guuDM+BYTpj8qEAbVNr7VQjuzQQ7zYW2fH8qhOSQS/sisqDs1mMv40et +IKspnhupR4L38JhQyWsG4bMl2fcnSXBxwV2vQ6cZpnxNM2+8zoVFfWenyfQm +OD9YYybtnQep7awVP3iNoCz3+8Q8Mx/0rScvibg0QFOhnV7+EzKEvE1Y655U +BwfrlWp3DJCh+MzjJbzjdZBHzOq+1iiCtdihxpirhZezzyFkqAguty+j7bOu +hcvQuP+KVgm4uujs58rWAK95l+rGyTJY0tYbEDKI4No7nxtuUA618qf7DG0R +Rr43Ky95XQ7Dmeyl5I+V0Cp2RWnK8D3cm/aNtGZVQJxl7A5qGgV+O97t/jr8 +HvYMLpLwt0JITzGnU3RLQbn89OSuDITzrFmuUXcJyEbm1A3MIsyzD8iwb5fA +iuTsPUknqqDmsoH6j4xi+HvSqpfHrYLN/Pwjl6WKgJ2XK4+qNdAgvMmuWrMA +El3O1WmV1EHbPrOh3RMZkHB2GelFfx3Y123J4JplQMxRcvR3oXqwDnc9RRSn +Q4TkcsdXVvWguku1bn3AO/DrKFo1P1sPIFZl/X37G7iwS8SOcrABogYmnX0S +k0B64v3s/pomOJxmWJD0MAK8qYcDf35vgg8E1bHkcxgQmS2ipI3NoGDTuLW2 +NhSCr/RIS91qhituppY3goNgonvuhJBkC3BF1UcbdPygsl4zhe7TCvFWB+SY +67eBdXyJ4Q3Ndmj2fMds9HmK5LvA3H6lHf4EXCf6DoejqGWDXX9EOzz1tbtf +9SACq8VYbmacdlCqNDheczgS1x72Mkkw6oDd609eTSx6gV6lcZ4Bcx1wnX2R +5HQpAY+lfqQaW9FAoSDNWtcnDScekq7WO9EgXy7zlnpvGsZce8A78IAGG3It +I8v2v0HOzp2q8iQaeBbOfvL59QaDSv2iBATpoC09GrPs+jtspO6wKc2lQ0jt +Jb65/ZloMOPOkRJiQqvSgyeiMbl45MRqgekiFgTHFotMksgYdmHZ5GwTCxgb +KarQScYud77+BTYL+qpaI12myOjwmlu+dEkXKFELWnz2FmHYeLPrFssuEDiu +cNCgsgi7nj0YPPyrC/4qb6iq+FCMDsTP6kiNbrCplhK+UFeK4XYsv10lvfDq +i735i3sUfPTtIIy09kKAx1Nd01gK+nqmzMcP9kInU37drxIK3nzudE9IlA1G +g/2zcz8paNwg4NZ3mQ3JfirO004VKKqyyz50dR+QBdI/NNlUYthC0AmOUz/w +xvf/GVpThQ3G4iInV3+C2Of1GU9qq/G71DpfWtwQKAXL/1cdVYfubooXwv8b +Ab9HW6MD+BuQ1StmdrWRA5w0dYc06yY873nwi9Dxr8B5JNXobNaCtYp7g2sX +c8HrqyNf5iEqyi6jcNKOTkD/iMzv8bE2FKc4HlkcNAlaa/zHuHs6kG+OP8N1 +8AdIX37v1vK7A3+bVpyr3/4TNj0xv/kiqRN71O02bw+chtK5cIEfRjR0OS22 +alvvL0i31xoaHqXhxqhhK0HxGcgS8jm91p2OJJukd1N3Z+GvgHaFsCADT2vd +P9pYMQcvFl+5Sg1gYP45p237//6BqrmaOevZf/y6/LBAmcU8lKrK2Mm7MdGs +84CGeMwCTCo8t639xMTlB1ZUU14twOLSplspQ0ysTus2Opu6AFZkYWX/z0zc +ddfzQjxpAab+7EvUGmWi6NaS0I31CxA1kWNfMMHEphu7h9b9WAAd9dHsEB4T +dZbKR4ge5wGlZ9Pw/BYCZ27NbCKZ8sCEtGYvTYL4t6sb3pw4zYPazXwab/9x +kUTu1fehF3kwZaS074QMgX8t0kaWe/KAt2GTabQigSWpW7WE3vIg5vnp8c37 +CbwpMt7wNosHOpeDVn49QKCsR6WZfj4PnqU+ZpdpERhlaHvtIYUHNX+uPLDU +JdB1Mu65AJ0HzPC22ZCjBCrYOEikdvHgVFViiJUhgZ/qNDMO9fFAaEy2VeY4 +gSdjuir9R3nQ2tJ0hmJC4FL+9GNS4zywypV499iUQHT0YFT95IHyUHyq2SkC +7zD17c7P8cCOZWsibkHg//8dsOi7X+YXSwL/B/POLlA= + "]]}, Annotation[#, "Charting`Private`Tag$4195771#4"]& ]}}, {}}, { + DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, + AxesOrigin -> {0, 0}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + TagBox["t", HoldForm], HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"c\\\",FontSlant->\\\"Italic\\\"]\\)\"", + HoldForm], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> + Identity, Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> + True, PlotRangePadding -> {{Automatic, Automatic}, { + Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-1\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-2\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-4\\)]\\)\""}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["h", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "h"}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.871624407919861*^9, 3.8716244955603247`*^9}, { + 3.871628888535161*^9, 3.8716289223051*^9}, {3.871629457518793*^9, + 3.871629525242256*^9}, {3.8716296137151327`*^9, 3.871629625997673*^9}, { + 3.871629704200838*^9, 3.871629853550775*^9}, {3.871629898460318*^9, + 3.871629914537928*^9}, {3.8716299451102247`*^9, 3.871629954339423*^9}, + 3.871630097238586*^9, 3.871630131562233*^9, {3.871630181745326*^9, + 3.871630254768821*^9}, 3.8716304278287153`*^9, {3.8716312511595173`*^9, + 3.8716312558499823`*^9}, {3.871631307414646*^9, 3.871631326008296*^9}, + 3.8716313890517387`*^9, 3.871633035236746*^9, 3.872232484200904*^9, + 3.8722326877670507`*^9, 3.872232744803054*^9, 3.872232822043681*^9, + 3.87223294392085*^9, {3.872233009055416*^9, 3.872233025832799*^9}, + 3.872233187762746*^9, 3.8722332247040377`*^9, 3.872233388756542*^9, + 3.872233836144418*^9, {3.872233886469149*^9, 3.872233911922018*^9}, + 3.872233954033169*^9, 3.872234657727256*^9, {3.872827739501729*^9, + 3.87282776748412*^9}, {3.875951503161869*^9, 3.875951569735404*^9}, + 3.884691802873703*^9, 3.8846918532524557`*^9, 3.887186743416803*^9, + 3.887186819461278*^9, {3.887186878027606*^9, 3.8871869938232822`*^9}, + 3.887187474086*^9, {3.887187655128037*^9, 3.887187678918461*^9}, + 3.887187744969038*^9, 3.8871877776872168`*^9, 3.8871880220364237`*^9, + 3.893237910849724*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"632547c6-cf8a-4755-9e26-5f9a8c901698"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Magnetization", "Subsection", + CellChangeTimes->{{3.893240903148159*^9, 3.8932409167324743`*^9}, { + 3.893240952846768*^9, + 3.893240954869104*^9}},ExpressionUUID->"b265c475-5c2a-4729-88fe-\ +bb9de99d3c77"], + +Cell[TextData[{ + "In this plot, we show ", + Cell[BoxData[ + FormBox[ + FractionBox[ + RowBox[{"\[PartialD]", + SubscriptBox["u", "f"]}], + RowBox[{"\[PartialD]", + SubscriptBox["u", "h"]}]], TraditionalForm]], + FormatType->TraditionalForm,ExpressionUUID-> + "9ccc58f9-7198-4f0c-b1fc-1a083a734169"], + ", which is the singular part of the magnetization (modulo a constant \ +analytic factor) near the transition. Notice here, as in all plots using this \ +library, that ", + Cell[BoxData[ + FormBox[ + RowBox[{"t", "\[Proportional]", + RowBox[{ + SubscriptBox["T", "c"], "-", "T"}]}], TraditionalForm]], + FormatType->TraditionalForm,ExpressionUUID-> + "6a836779-b628-479e-87a4-c2772a03c8a2"], + " (the negative of the usual sense) following conventions in high energy \ +physics." +}], "Text", + CellChangeTimes->{{3.893240788042069*^9, 3.89324084285141*^9}, { + 3.893240875195952*^9, 3.893240882915715*^9}, {3.893240920042145*^9, + 3.893240927292811*^9}, {3.893240957814611*^9, + 3.8932410410866423`*^9}},ExpressionUUID->"78afd124-f9bb-430d-875b-\ +072cdcafc777"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", + RowBox[{"PlotRange", "->", "All"}], ",", + RowBox[{"Exclusions", "->", "None"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "t", ",", "\"\<\!\(\*StyleBox[\"M\",FontSlant->\"Italic\"]\)\>\""}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SuperscriptBox[\(10\), \(-1\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-2\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-4\)]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "h"}]}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.871624380395876*^9, 3.871624486365077*^9}, { + 3.871628883904001*^9, 3.871628909432775*^9}, {3.871629457267346*^9, + 3.871629525012162*^9}, {3.8716296135256433`*^9, 3.871629703591056*^9}, { + 3.8716297390329103`*^9, 3.871629853114192*^9}, {3.8716298958192244`*^9, + 3.8716299139879017`*^9}, {3.871629944204525*^9, 3.871629952700124*^9}, { + 3.871630090583139*^9, 3.871630094694592*^9}, {3.8716301742008753`*^9, + 3.8716302000245533`*^9}, {3.871630243281377*^9, 3.871630253377584*^9}, + 3.8716304265249653`*^9, {3.871631246388459*^9, 3.8716313024379177`*^9}, { + 3.871631382016287*^9, 3.871631383422778*^9}, {3.871633017182467*^9, + 3.8716330172537737`*^9}, {3.87223244386093*^9, 3.872232463125258*^9}, { + 3.872232659147134*^9, 3.872232720226219*^9}, {3.872232925175202*^9, + 3.872232941062345*^9}, {3.87282774234025*^9, 3.872827744082013*^9}, { + 3.8759514937750607`*^9, 3.875951563008548*^9}, {3.875951848422546*^9, + 3.875951850621904*^9}, {3.887186743041842*^9, 3.887186790098441*^9}, { + 3.887186823363668*^9, 3.887186826291638*^9}, {3.887186890645186*^9, + 3.8871869906863422`*^9}, {3.887187366630084*^9, 3.887187367965156*^9}, { + 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, + 3.887187764733572*^9}, {3.8871878714397583`*^9, 3.887188002562066*^9}, { + 3.8871882148709106`*^9, 3.887188249270643*^9}, {3.8932379251256237`*^9, + 3.893237957397731*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt1Gs01HkcBnCxFCqyyUruaqVZG1s6q+zjKC2KomxKLsOuLSrl1LqVFK2p +rbRkV2i7zKhISoWY4edaQ6RQFCWmmUbWbczMf1jmv7Pn7Ivvec7n1XOeN1/L +sGi/n9TV1NS8Vfdf2mPRJ5qmyVIXB/tnIi6iJ61Zk1M0USqNRMEjXNx74LBs +QkaTpG7BU4mMC0db7zDREE2OpvnY2mjysGZB6puWLprkNxf/cMeaB1fBePOl +uzThKG+aBzJ58Etrvf1NCE2ae1P8Hfp4iG1L3f9ztZJI1m1zWSWsQmen7qda +5gxZ3dZuwbKtgWlN9MI1S6aJTVBVn9eBWpRGNWjqvZ0ibwtubUh7WYfQsw5j +r09OkkqDMPbN9AYoMhJZBApSfixfFhrxGOz574yz++XEfubY9xr3+Mjzcojp +OC0ji5+/Kg33eoqT+5hxyz2lJMVlcbPQ+BkSNQpjY4YlxJ3x/rpNx3Mwk9ts +Xt0aJz1GWuOTde3IqhJm50WOkVZB4Ok6RScq+2znFlmNEG3lwejKx12w1nd1 +2/7XENF+4ZaT3PEG9+1YkQMCMemNbfGVcd6hr7HEwslJRPivYz4ePtwPISPL +kZQJSHOS+EEbR4AFSQVO9rP6yddJfI9JWxEYTqOM/IlewrI4pe1zRoyUDcPP +K+K6iKjVQHlt9hAMtxdf2GnUToJEZ/YmewzjvrxRj2/TTKRdZe4RdqPI7xGe +G0ytJtHO4sKQhDEE+S552BPOIazwTXtdVo2jQifxZd0RNg6uc8hldoxj9cAs +sxMBBFfUv0pkREpgPcaddK5rgt0ky6ddKIEn+3WrT0A7FJqFeqd2T8Dd20BD +VtqF3PVzTTc2TCA9pCt5ZXkvvis8KcsykeKJj+m8rQb9aNGqz2AfkmLY0jCp +PUeAX9+7tJlwpThyeAUzfZEIkp1R1zgzUnT16vtF8MWI7/vD/zdXGULj132c +vXkI9Odba/ITZKhfseZMveYIUqZc/FmlMizT5ok5HmNgdYvPWwzKYMqLctdk +jSMj5VXfhy/kUJtSL4gZkIApSzYTespB+VYFNy6VwnS/zyW3I3L0rAoxWZoq +g1izX2/0mhwHd+gvsOqVg7crgFH0VA7jix8CPjNVYFq/fo9gTI7iwKs3J+Im +4ZZcJU0zorDD5bgHv2oKRcHu562cKZQE77dynv4HcqdtNU27KCh01mtU+M+A +lZNZIDpKwe/FWifTbCUi/Fv0/syloLNWt5Z3WYlGk+tlpnkUajlvNu1mKzGQ +tdCTo/LKuHhmbrESz34cXFlymcJ88/Kzxo1KlNCa85qvUGja5ygwlCgR2HN5 +mmJTcJ2z/ML8zTSua7kJNxSp+g8pFhf70riUOaLbpPLdnif53jtocL9UM/e+ +Q8HsbgT3bBgNy+JIHf9iCtP+HJFOPI3CDC0q/B6Fcra5y+wbNM6dz2UkPaRw +YN7okxu3acAzasmsUgrLYqv9NpbQ4H+iFSkqX/QK2nOKR8MsIT3udBmFmPGc +TI0OGscD/v498xEFu8BIM3Y3jTtDaWLDCgr9Dd8WuL2jobvFiJGt8tbs7uoT +gzSM+LYJeZUU5qjf8rQcpaEeV5ZqxqVAomI7a6SqPYwtR6+q/MvLjSGhUzR2 +FylCrXgU/v9fsOM+cuSo/C+985py + "]]}, Annotation[#, "Charting`Private`Tag$4205127#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwt2Hk4FIrXB3CRiEibuIpICNlpd6yJiJTSVdZLRSkVKkJyI5G4kjW7LNl3 +4UjGvu9rZCdmzDDGUjO/3ud5/zrP53m+33P+P8LW941tmZmYmAS3MDH935QB +3nkGg4FGIWdO0F1fwf31w37rGwxc+pCzIeXxCnLy5cWWqQz8co1++4bPK1CQ +MLCe/snAUU9nQ8K7V3B8l89gcx8DPyyffFCc9grUJsiNEdkMXFHVvC04/AqM +fVsyFC3+5J1KM5g1fcG1zeferUo6Tlledvfh94Pubs75r1a/0ZemT/Dl9YeD +Vff3Hj/wC/1Ijxt2ygVAoUMN686RDeTbQqoW9HkLlgHySwPe66gT85HjWf47 +WAtx80NYwzE+JktjtRBI5P7OH/5jFZmNAoy/KYZCtJ78w67XVGR2fDHb/jgM +RDn1Gtt9qGibuS119XkYZDRZi7R6UnGHB0lDxDcMyvRDO+udqZg2YSv0JiIM +Bi7SFCqtqFh6/xlLUmUY8F6uWE49SUXrE9930rZ/gCAzXWePuRVM3JyTPZ/8 +AbzvWj05qruCHbJ1ckOkcPj+1jy6THMFHX285AI3w+FUrlnVBdUV7M243KbD +FgEUqgm7o+IKFlM3d/QJRoCVp1543sEV9FbJfW5+MQLUQhRLTlOWsTMjeyt/ +dgTQi1nXDKKWUQzfBj93jQQ3lnTXh4sUZJO54acsFg2OEebbLGcpqDb5QdNe +MRqsZfe8N5ig4DGC4pdUtWjQM3PPkxig4G+Bsm2aZtHAl39x8XsNBbffZRIl +vouGAutl6wvRFOQM1NUVp0cD8euZi6IXKCi5d9HHcSwGrLzaRHtTyZjpZDDW +UBsLVwdiVUcSyfjz4deRh72xoKfwwHTyIxmjxA9vik/HgtIkTwAllIypJY// +GWKOA/bzxsvcL8g4muPAVSASB1k7e77qXCejbJV8SIhNHGx+HDQv3U7GpTkF +F6X5OHhfMRUebb+Eeqylrz/vSADzJ5Eex22XUPti8SzX/gSQUDT8p9NiCZ8R ++FOfCCdAWWqJLLvJEtL11FzsVRLg+39vah/BEhK9n32oskwAcXv5Fb29S/jJ +39dWvTgBHh7b+EhxI6HR1fqZBYdE2JpoYy/hREJP3b0CIa6JEMbXomxuR8KZ +SSNtjZeJ8IUlrrnBiISyb+eKvkX+yQ9qb8QdIWFvYVmMfuOf/KtgE8M2Io5k +b1F7KZUEZaMSOz6LEPHKNXVe0moSuJ/ZkhnJR0QrYsikDEsynI0YMHjNTUTS +uXri053JUGXsH2S3sYgCfqwkeYlkqCP83C3cuYhfvMqkpf5Ohu6MLP6wF4tY ++eXcNcOqZCC6Kol7jS2gTryIUMP7FMjp3lHv2LuAu3KZrgYmpoCT/NTtm80L +SP14v9g8NwVW5t+nnypZQO76cNWjLSmweZN2jBq0gDkBzloWrJ+AXatMyR4W +8JmlQ5X5k09wmEdN48rHn/jjrz3nZe6kwlu5H8/s//uJk3IiShzPUmHNyDvf +y+8nblIDbNb8U6E5uEY08+FPrGuWW+PMTIXHe3TZtun8xDcx7dTdlFSo5TVu +LibNo6cEf0+JZxrYH/znqoD6PKptNVxUTE+H7rOsQfIq86hV1Gf1riIdVM1T +6nSk5rFjMXOUuSMd9sTOnni8bx5Vh4o8JdfSofzQPYGWuTnM2sYs4KeTAdyi +LmMeIXOoR/qbGDWfAXmSfvbjE7OY2xHrIqOZCUIdlqVSA7OYdszhquT1TAhw +Pcnu3DqLb2KF96rdzwTbmvlkttJZPMmV01oalQl85gY/pN/O4o1gpf55aiY8 +D95t6npiFvldNvfdyc6C82vR2jsCZ/D80bBhzgM5UPjROdTEewavm3XTOyVy +QET74sRH1xkkWjr8SlPOgc1ghpe89Qyub7dd8TXMgSwp6/Krx2ew8qJs2zaf +HNhrIa4Y/2MaRbQ2Pkss5cAoIfeQiso0FhcfyWzpyQX3y+taJ6SncUgq5Tph +Ihf4fqjdOSUyjenZPgdayblg9KstV5V7Gt3WPK/u4c6DKgWihs70FOqz6VTd +18mDuFhJW9OwKXRRTTP1r8gD66eJac9WJ9G7WuHM4ZJ8oG/72eK+MIm9BpGH +ntbnQ2SoAsVjfBLH9h4WmuzPh87sr6detk6iX2XF7/X1fNCcHm16kzKJF7k+ +mR49WwCilw8Qo69O4pYs60sldQUwJf1eAYsmUH/3k+piYiFIeiQTZzMm8Dax +6UQ8SxE4thWm746fwMwGycI0viJYc+oVsXszgad+pxbzaRYBR/H+PVyWE9je +EN/oHFEEcuqRy39vn8DUHgEHW/1icDOJLVg1G8ch5dJytpYSqErJfnDo0jh6 ++QUcvDpdAlvXUFrv3DhKtxr7NjNK4G3kWFKM3DgaZUfVKyiWQtyo8Hst1nGc +6ChwIUaVQu2dJOeQrB9IuFzN6+RcBrs80lRktvzAMIMDxXoXyuFVkUQ9D20M +27uKz529XQ4bxE/XlxfGcPL7MZ+b/5bDuEWKe0n/GHJxCflKVJVDnnpitUbO +GPq/f31t+XgFGLPGXLxmMYYnCd65BXKVIM4v3MLkNor6Jn68ZNEq4PEXWiLY +jeLOLMN/M1SqYG3j4J43xqN4Y0Wv9uX5Kqgf/uv6PslR5NzKXvv2bhXcjts7 +dXTgO5J6P+7lLaqCdHH238bHv+Plw8c3xAy/grQKSTp5eRj/62GJtIqqBjsZ +T8/SkWEM2LNH6Ex+NcSK7exsqRtG5rWbrNpN1bB7v6zratQwHi+sqp3YrAYa +zfGrjtYwuokuHrS2+AbVpUST+dAhfNakFdMqWwO/cj1S6R5D2JIX86JerwaU +07k3d98ZQrFHtulrtjWQGikTd/rsEKo516/8jq6BQDfH+YCpQeS4/GElg4sA +pmeJHrIqg1hx75vw/g0ChCh7dGgeGsRjZwl5pXy10HSMW9SUYxDX1ALIUcdr +QVVQpsHr+wAmDx7hFnGphcOMe3s6Xw0gmTlITWe1FohVi58e9/Wj75Vp7yCW +eniptdhe+qQPdW+5R+hfa4Tq8wuGSjZ9GPY4hBTo0QhMBj9bswz60L+pml80 +pRHcTeaaE0X68JQ7h77xaiO42E3VBzb34uCsrFprZBPc9hupsjrUi6nBh9w5 +qc2QEjAMwxy9aJ4R9ZJFpAUm3w1VXqX24G43zxpzwxawihgov9DYg0Q79RaN +jBb4O72nRPlxD56UEjEdvtUK+s0tOdvru1EgOzFXmdoG/u3Nsj553SjGpapy +d2871Hc3ZdGju/FdpZOWq0w7aI80fF526kaD9F/vzti0gyqRkDoi0I2EpqL+ +kLZ2kOOpjMu934W9djvmpvM7YN+VrHfX93ci062E3rWsLsgTe1OmzdKJw/M8 +UdjaBUbrtyblSR1oFjdsX0fsAv+Pwic46jqQeeRebZRsN9BnQ0fLXDow7Gbw +deuCbph+7iZzoLcdL0lO/1Xa2AOOhsHhFUfbUDi5VT5duh9SV/QW3m9pw0Fh +M1clk34Yj9iq5jjQijxDSqbsHv1wddJ1RvB1Kx6RFN8X2N4P8NRcxWu2BTX5 +bntxPB0AnkSpbo1PzZip3s7+rW8Q8lYJO+tFGzGJMOys2zgCb9MTqlXXG3Dy +0RW9HsYIOJh7Ohe2NODOvxVG0pW/g2jtiaEElwZcLeijyiR8h7D3GSnP6+tR +IbHE5pnHKDxTCj6reLcO2WfIb57Gj4HGwxsOH/NrMPBlgs2U6zgIip0U3OdX +g4Wg39X5fhw2B/Z1vLlRg8UCdp8b8sehQL1N5SlrDRJfxPG2kcZBbJcG85Vr +31BnZ10j3+0J4MgRj9i++RV3c94rTDKdhOShqcA5n0oMXesPzZafhkF33tgY +xUpUpwcbZ+tPA7egTs6l8QrUIGavhN+aBhfL1M5SqMAc7OQSj5mGc1P2+/03 +vqA2p0OkANsMzBJJcZIPSrFI8pPUSM8MSDJv5DuYFWA3p96jR2ZzYJ4oSRDi +KMCewczy5IdzEKJl1ttVko+rx0lr+a/nYONV+dpp3nycsx//YlM8B02cnmd3 +dOSi/9p3G65d89Avyf72emAWbiceorlXzMPNSwcKhmyScNuY7iuuzZ+wsEw9 +6VyTiE577BTNuBbAPawNuY8k4raE82m+QgsQPeTdpD4dj1mG0inPNRegoKmT +YNjxEXd8yRaZeL0A2St3D88OhiLxUtiRrzyL4NUt0S3wzQBdG5ZvXmIngvTO +EXvWY0ogmBOpO8pLhF6ydyzPminwCN1dMj5CBLf/zjU6KD2Aven1ZgvqRPh2 +6LVvDI83pLoa8RKfEuHWLUm7InoI3Mkit1pMEaGUw62n2jkRnBWGtL0zSBB3 +bF9XtkgSJF7ke6pQQoJXRtnt0W1JcEeQs7uphgRXwiaaXI6mQLNrPK1shARL +wvrVkiOpQL9fV3+ebQnETh7MDtHKgjSNiidHVZagId9CK/d1AbSUjBBbA5bg +DEH6m/hYAVB4ZfxJwUuQ07uu/lGlEAq6tzCzf1iCsPX/4M1EISiNGYwcil+C +f6D+lO3ZYvA/U/92pWAJGI1y8vzkUvjwxN9ReWgJlMe3CL4wRSAHcznFiJBB +puwaWS4NoYkpSDZMjAxiIZk1Y+sIW51uNb2WJANn/GflOIMq2KFxvdFKgQy/ +jEyHGcQqeOFqJdGrToaRnOyjKF8Ngvezdw1akCH2gXnN2eIaaCZaFr8PJ0P0 +je1Z70droPeRSho9igzh5ws+LLIR4OWZiGKbWDK8O8ThEGNKgOfdY3oiKWTw +ai/c9XudAP/uviP9MJ8MVnJcFuVn6qC83yPSpoUMh5e+rJ+qbgDfA9sWKulk +cG/R9FlZbIA8ov379S0U6E1v4s7ibwTpH50FcqwU8LcdOizs1AipL1QfhXJS +YGlww4DtUBPo686VKPBRoJJwMqHreTOsEl2ftMtR4O+oYr27J9vA5XqCZ4UF +BXQTB1oumnZCHpiaBxX+6f+bZUe41wmcmjMzHCUUCL/9knH6ZSfMmLJd8Smj +wOyxY/JHszpBWUxn/AFSwK/EK5RlaxeEb/11Qr6BAvUt4mYl2V1w+MYA4dIw +BXTWnGeF2XogDJc9JLYsg7bBbhZqYR/4fGrxr9NehiCLPi+54mEwn67Yzlm8 +DHUXD3IZ7f4BWuc8fZWFV2BReJ9HZ+QE/Luza8PtyQo4P5ayCuKdhuNCC1nm +hBXoG+YxtqufhQsFgV2bPFSwfHpmhk3/J+za4Uf3vESFb1LH/b+xEuF2dxKd +GkwFse3ls0nnl8DMaPJkQwMVDpY7aLP6kSH4ReA5xi8qMG0wpz0cp8CtCaur +gvKrQLtUYU44sgKC9BLmJfNVGFKyEDjiQ4WJ0n650cBVeHCNZ5fI8Cr41Rzl +eVG6Cvyhk6ZbD66BZeLqZxhbhSyzuE/LT9ZBSTViwISdBtfOep6vr9gAbgvX +D4LSNMg1vydy6tcm7LP5zd9sQIM1Dk2WUpPfcLzl662pBzQw7jitcjCcDq1S +Rs9vvaMBx2nOr+UxdHAydY0g//HXpMELNxLpwKIQEusWTAO5J0+torLocJ1W +dScohAbcQsUB/AQ6rEL3amEoDRruKkzso9DhSJXRBj2cBmrsR99x6zNgxbVj +wCv+z32ntb+yLjHg/qV8DfYEGmQP1SUbXGNA95JTWNAfC2bbfQmwZkDC53h6 +TCINfpkkTXM8ZUCVR1BnaTINihOFzrKlMOCpQPnbxTQaOHKR6lIyGDDGnpP6 +KJ0GYq6VxudyGXCulZS5/sehejdv/1vOAAMpx2esn2nwkBz5H0sXA7hcRA8c +yKKBpJm9YGI/A0xeKgfH//GPmpNpGt8ZoJJUTxbLpoFReH/lizkG7KIHOcvn +0ICdOVVXmPRnf0xHeNEfo4Nrd9UKA0IO5Hw6nUsDl55zFpYbDCgQU0io+uP/ +/+fAfhtzP+08GvwPkw2GqA== + "]]}, Annotation[#, "Charting`Private`Tag$4205127#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmHc0FY77x6VBKpRKUjITISWkPjy0lEpSysoKhYzsIluEkJUQQkJlZYfH +3ntvQsbFde81Lir32++c31/PeZ3zes7zz/u8/3h4DCxVjejp6Ogst9DR/d8U +g4MEGo2Gr777OEyt3wHLdT7f9Q0acrkl8vVt3oHM76ePL63Q0EGCY6lxqyqc +OXHLYGqOhpdOHttStEcVpPd6DTT10vCcFf/fDB5VkJ8gN7zPoOET1aywbUqq +oOrT/EVCl4aLy3zWGjGq4NDqZf64dBMfEVerNhXvQlfXLkK5/l+k2/gkqTJ6 +D46WWe6XPvIHcxOpnM/f3Idcs6rtLMMbmEHo4HE1VQe9gNOkfo91bKvhcu8s +1IS1ECdfhDX0/trSxyX5EBKZRzgif66iL3/AJz1hPYhROm3d+XoFX3w+Vm+8 +pg/8u5Qa2rxWUMFtK6GQpg9fGg14W1xXkMTGVLKXwQCKboZ11NmtYJHr0uvW +AwbQr0w9U6q/giJvDCW8JAzg4N2SpRSZFcxgtbHrtjSAIK3rdi6zy+jNkXtO +at4APJ7qOwpdX0Yb666cleVHMBKoE1N0aRmF9Ie/3t18BOeztMpuyC1jc4RZ +UAGDIVBW1BgtJJYx4j29+LvDhqDvqhSZfXQZ4YxzUoq8IciHSBRcoCyhj3Ri +Im+gIWzmb1+7Fb2ExwTkJD+LGYHT1jQH6wUKKqbGcef5GIPFe50dejMUJO1L +q1IKMQaDU2zhtyYoODeTJTMdYwxKWs7ZJ/opuKJ4I0862xgOfVdeGKmi4OeU +nj7pYWPIMVgyuBFDwesnGkd+nH0MxPL/lPlvUPDTwa6/ewiPQd+tlb8nhYxT +7/U5+i1N4H5/nNxwIhnHwr18jJ1NQOmMlfpkLBkP8ynk/PU1gbOTrAGUMDJe +1Z2wvp5gAozXVJeY3cmoZa2f+qDbBNJZussVNcioUZalrC5rCr9jB3QKd5Ix +vm2a+9wBMwgv+RUZY0rC5T8qU2zTT0HHMcpF2oiEUdc4QoqoT+GExG3DDl0S +KjzrVrNiNIeilIJTjGokjHenWe4UNoeRUP8aGyBh+qbZlmVzcxA0Pb2stJ+E +xIsOgT/WzMFadCOW4rSIyh813BIOW8K2xEemJ54totuqRY6qqCVEHGqW1DFe +xLPtQaH75S3hx9b4pnqVRWx1uZfebPTPH7iyES+wiGn0dcPs2f/8V2/VbrcS +8fMLshWroBUUjZ7Y/ZWXiA9WuIc1GqzA+b8t36IOEVGP84T2qS4rkH3ff+s1 +MxHTuU/N7RmxgjJVvyDjjQVk+DRnPEW2gtrquX08HQvoqj17aMfhZ9D1JZ0j +wn0ByXnkCqanz4DocFbQbWwerx7W5nBjt4bMrt11Fj3z6HGQXyCI1xqenf71 +5GHTPEZYzXWmiFrDMiE87XzBPNrdslL9c8kafj+kiq4EzaOG6396As+sgfFy +0VlTmMdIkyN2Ac3WwMcqf/Fe7BzKDJ434giygUDxny9MQ+fQRl165+cYG1hT +8fju5juHduEsdpfSbKDpbRX/N+s5vLfb/09KtQ3Ysl1n2KE4h9MnDWSF/tpA +zUHVpvxFAkoRCKn7LG3B9KjhfU4FAtoPRKRI6NpBl+z2oNNSBJzRUrhZZ2EH +cjrJtYonCTiSFdVm4WIHbHEz52wPEJAtO2GO/MEOirnNOZtnZ3EpWfV157Ad +MPPbj7mEzOImz3c2Ln17yBb2NR2fmMF67yXvNHsHONauV3iyfwbZo14a6Ps6 +QICDDKNdywzGcSzcEI1yAKMqwieGwhmsaHvasq3UAQ7p3PopEjiDpvW79fJ2 +OMLLt/vUHc7NYLTJVfZLMY5wbS3myu430/hig310T/9zyI21C1PzmMaybeWX +0xeeA+8V5YlYh2m0nzALfUL/An6/pbmdNpjG9vo/H06KvID0kwbF96Wn0Vtw +Wpvk9gL26wpKfPw5haRrVrYfTjnBaHUWt5TUFNLJu5dNJDiD8931y+dEppBi +1CXnXOgMh37Km5znncLvAoXN4m3OoPKnNUuOeQpP87EOEf86Q9kZ4kXFqV9o +/vzVzirNlxAfJ2ykHvELV7PFnDY5XMDgeWLqi9VJfCtkXSKU6QqbO+aanecn +sbNv63xKgytEhZ2huIxPopi06W+lX67QkVF+3rNlEonZLNrOe9zg0tRoo3/y +JEoOaXXRXXYD/rtHiDH3JzH9gfhn9xw3+CUSfgbzJlDPqWRKM8kdhF0+EWe+ +TGBHmfGabq47WLTmpu37OIFGskOTLjXusPash9fYfwI5jusL7Jp1B6Z8drY9 +ehNYovbu6qNTHiCuELWkuXMCU1Xr6C6Xe4CTWlzOqtY4Rug28zr+9oSy5Awr +7jvjmCu+pijC6gXb1lBE6eo4bmFWkKQX8ILAqLGkD+Lj2OF3I2L/bS+IH+UJ +v7x9HN+UaE0OJnlBjUmSXUj6T9T7dE/gwgNv2OuSKiW25SeuhntcTeh/Ba/y +TtSxUsfww2p/9UvyK9ggftZYmh/D0iBmV7edPjCum+xc0DeGO6r86f7K+EC2 +QmLFxcwx3P+LwjMU4wOq2z8oP9Adw9Bj0urepr4gyMHTTOc0iqs8i72qJ/yA +1e8Yqdp4FAn5r/S6r/jB2sZRNn/VUeTcvlU94JEf1A0d1jggPIqMBRYh7+P8 +4En8/l9C/SO4tem1Jxz2hzRBxr+q0iP4fiaP7/ThABCRWhT5tDSEgsLf8mqv +BYKxmKtr4fAQrval8jM/C4S44ywdzbVDqExIWEl5Hwj72E85rEYPIb1Hod/o +XCBQqRblipeHMMrzXpNZWBBUFBLVCGGDmHDlR7CNUzD8yXJJ2XQZRM311y72 +IcEgmcb8e5/JIILwll1fU4MhJUos/oLsIDrZ7HyU1RcMb5wsCAG/BvC1fvtV +KZm3oC5LdDklNYD36xc/Fm0LgRBJl/ZL3ANYzZfFcfZYCDSKMvOrMw2gU0Xw +EEEmBOS4xOrdRvrxy6NkZTarEOCjmbN1vOpHVoGWEaPRECCWLXy27e3Do+dm +HzQ1hILn5YW2QsdeFJseGJAeDIeKa/O3zz7qxRLLxy0Wm+FAd2uuJf1WLyaL +OwrReCLAWW22KZG3F6MSnJfFTSPA3vhX3ZumHhyyjOb7sxkBT3yHy/S5e9Dq +d6WEzoVISA4YgiGmHix/rPe23jASJoMHS++vdKN+eqhLUmAk6L/vL77R0I1f +yhaeZ0xEgmZad4GkbTd6fM4ouxb6Hm42NWfurOvCGhktEgdTNPi1NZ3yyu5C +Hkd2c5UL0VDX1Zi+GdOFHfFmu/ebR8OV4fqvS8+6cEqJqH+jIxrkiNUpw5xd +mPPA/31hYgyIs5bGZ1l2YqZgXXaOYSxY7C85JqLZiZcJotsG4mLh66Hi2OTL +nbigc/JbzmAsCPEUxURzdKKrXP1SuFoc8J7Ji/Su7MBvN8PSTwnFw4F76cEa +7B3YrnE8z1XmI2Qf9y+6srUDi83VvrBpfQSV9ceTpxfbcb8vfw7zy4/gF8tz +jqm2HR0EperlKz7C5kzYaJF9O7YriLnW3EmAqZdOYkd62lDDJDVnm08ieKqo +qzNWtGF/bXTibEYicPNJeix/a8OVtGv6av2JoFlH7G7ybsPV3KaWBtEkaNln +8PKlZBvyqLTy2gwngcXtt5ElQq3os2VP1iHNZEhZVpoP39KKLLohE8kByTD+ +fpu8RX8LfmTtWp3BZLg/6TDN9boFfRWP2Eac+AzwXEfKbaYZaWqzpr/pU+AF +1yE/9bJmlPJ/8yPgQgrkVLYPi0c2o82nuYhF2xQ4wXzF+6diM8Y5e/qdJ6QA +a+LJroufm7DIouOd7mgqKF37Jcjp2oQLzduqV7nSwGsh1mnpfhOqERQCPXXT +YE16H1/Sjiasyj0rFzKRBj+b1p5tN27EpsCc9xxrXyB7tZqljr8BmYkK7OsP +0iEwLaFCbr0eYXT226vMdDDTcbXLba7HcyLsQ6lMGcBfc24wwb4eCctzaX2V +GRAR/iX5ZV0dOo6JhLl+ygTr674ayzF1qJB+905GXybc/mu42+xZHYa2XC3u +3p0FjEZc1uqH65Bl0ZZ8zDELXpx9KyvxtBa1J63bjbWy4f6MOSlVvhZjpuO/ +MrzLBokYpUTuA7UYpKbm3duZDfNbt+1kLq3BMwrnpvnvfAedTvuuGZYarKDW +CZlp5cBFa22z2O9V2CGl9Pt+fh5wHZfhOuBbhdlMkt76TPnwu/9Au792Faoq +ajJe1s2HHIVWqefbq/AVa4VFPXMBHN97kf7eg0pkUHKycnlVCPTVXLkNJyux +vuEoEGcLYdTx92MFukos8cE7ubeLIHIsp1kstQI1984nhPH+AKZMwfc7f5dj +1Lsrum3TxTD1aNtNt9ZydC+QvySmVwKV7D83VxPL0XNzJ1PgYAk4u0YZTt4s +Rwe2VSwYLAWi8h5xjC1Dz9OhOdoeZdBATxiXtClD+jpBU5amMvicVxP+VbEM +qzgWJfLYy6HsPzqqxE/E7ZVs8fy55fBp8NebWa9SLHO9OOLHVAkDzgfjPkiU +oiqXGLFYtxKYuRQz74yXoHlCKbdQfiXY66V0FEIJqlpmft14WgVXf5my+238 +QBEPhtKs1Wp48Sr6hFzqD0x4d2jLmG4NpAs2yVAe/MCn7O5Mi401wG4qqq2Z +W4QVnNDI8q0WZoiL8cJWhfiI80mGQEQ9HAnmzh7hKsReL9EiLo4GUDl9pzKk +uQADj2052hjXAAU22b82hAtQIiFJ8XtBI7xesxVu/JWHwfxHWPceaYHS958u +uIbl4c218NFFbAHK+Z6bEpfyUJTld5j9k1bQfCltGR2fixdGCQx/HrWBMP3G +9385QENOYgfTeDvoJApXH2PKwXf3w+3lrnVAyGWtns6C76hOnXl6LqsDNl4V +r104+B2riAJ2af6d0LjLVXZ3exYOacjcM3zUDXTfMpTLXLOwZe7m229j3XBW +eUzXViwLX87P+03r9UBMsILHkH8mfkz202c37YU+YcZAjTfpeJ5KSdsf2w/y +5iaZ5YRv2LO58jjp9ACkZDR0CF37hhMxZhBbOwDPz75h36D/isYxddmXNgbh +sNy+j1GOqZi8yecSZzcCD+8cyRl8lITrHeetzzX8hPmlFRm7qkTM5Obx3Ht4 +HJwjWpFZIBEb882tnpqMQ8ygR6PC1Ee0jFRVurBjAnIaO6pvt8fiSyO9mEjJ +SehifdXuEfIBpzYXx7tcJmFJTWY4924MfqrPHZismYQzY3HLnD3vkVvYj/HW +3V+QsfyUb2YgDJ9dDipW1J6CFhnuU5wxoWhqK/mFM3oKiC6d55UfhmD1i58D +b/qmQH2fbdITDMJsNQdTldvTcPcCM/2Wem/k1R3hSxSZgZBqW47HNzzxswtP +7Xe9GWi7PSje3OyGbldWRDxCZyC6TgXPfHJABp7m67YrM+DWdaKLs/IWPjlp +kuL2ZRZEWIZNt4ueBU9dZcbbPbPQQ/aIY11Th0jBfdyH6AjgFHq1weysFYRT +z5UVqhCgkvu1zwdWD7jB0+POMk0ArwheK+lAL5i2CSn2ZZqDq7uL1dt3+YC1 +s0aTtOgc1FGJQtsZAuAZJ+ePO1Zz8PixsHHeZgjMLXyY4iHOwTVeB01P2TBo +ZAuSXds1DyeGK5VVnMMhUvbRTwmheSCoPpQmrL+D5m2HORf15+GpXDAj10oM +fBCojqY2zUMhk1N3hV0inBLvPjcQsADxogc6M3iTgKdn88tE0gK8Usloi2lN +glHe+kXX4gW4FzHRaC+UDGWWD5NcCAtA4rlZITycAsIn6a4uKBDhuMzRjJDL +6SAsfXmSNEaE3dr5X13J6WCYFRDusUSEJZc7aU9jM6CGxedL2/ZF0BuvUOVz +zoS2m0cupQotgtgJ6q2/3Vnw20njlJPFItR/172c9ToHDI7OCc0tLMJ/1SKV +gmM5wMZfoPf3zyJk9qwrxErlgnuP0RXydhJErIeC/0QuMF3rnw3bTwJDqDtv +JJsP241LQibESUBrED/NQS4E4/2v+TaNSCA5voXLXR3hBaNjbGAVCcSKHpDF +UxFEKHtF0+pJcDzkW9XYOsKGvI/5jxYS7Pr4VTL+Vhm8IWV8xT4S/FFRH6IR +y+Al/RO/u/MkGM7MEMLTFXCom7Svfi8Z4qx0qmTzq8DroS1T7X0yxGjvTA8f +rQLS4QDxQU0yRF7LebfAUA1R8wVDMzpkCOZmMvugXg1vM8SPkI3J4NaWu/fv +ejWoVVvY5NuTQV98j27xf7UwwPufqEg4GfhIP9bPV9TDC/kLtsItZHBuvuS1 +vFAPdrQjvQPtZOhJa2RO/9dzu6mHt73qJoOf0SAfz7MGcOcuWG8aIgNpYOMW +A3cjZAtskrnmyFBaLZPQ+bIJ8jVDYHQHBTSj85WeyrTC0lqbveAFCuQ4QreA +USsQe/I8leQowHy/Vnc0uBW8rp8aMlGgQDlrr63qTCt0LfmGfVCkwP5LTrdj +brSByrjKkYG7FHAqiHrusdEGTBV6c+lmFLie2N+srN4BwJ7S+ieSAiTvdONq +8w4oLa0+/DWaApFPPGkXPDvA5Gt/oXosBWZERU8LpXfAm+c3mNISKeBb4Ba2 +dVsnCL5QeSOaToG6ZkGtgoxOEH9E/lpcQQHFNbsZHoZuEFBXKj9CoMCVW/u2 +ruT2wmv0c6s5swSB+jvJ6/W9cEfbgFB3dgn67OhGN4d7YVP5wGi91BKYxhKL +GHf0wRYJeuva8//8xQbrI/f7gFXf1ynr4j//ref4pdU+WCs3Wb+o+s/vWS4P +kRqAiE7eQBOrJQjS7XUTzx+Cx3d9bgumLkGt8tE9Kvt+gnyHeX/TwWVY4Dng +0hE1AfDR8Zus1TLY2Z7UDzo4BftGR40SS5ehd4hV1bhuBqYWD5603bUCes// +m2a4OQcGyWKhbTdXoPKktF/ldiK4fNtR8/vNChzfWTyTdI0EwkVq2vdqVuBo +sdmV7b5ksI+ef7K8vgJ0G/Sp1uMUkJNw9n8mtgrUOyU61QLLcPxI/4y/9ioM +ntXlFPD6t9ezyFrivwpWD1j38g6twiThtlN4/ipwhE2qbzu6Bmv++Nl1ZBXS +teI/Lzmug2x/cHjpDio8kHW9VleyAemTXA9ThKmQpWPOe/7PbyCtaWhZ36TC +GtOlrYVqf6HsqPdksiUVVNsvSB2N3AQ3uVFHCKIC04Vd5cUfNiGbWLZU/4/L +kwZuaCdugmG5sfq9YCqIOz7Xj07fBGuto6NP3lKB+Vh+AEf1Jnx5uGsiOJQK +9U/PTBygbALRxLtx6B0V5BmFgplv0mDH4IaqYfy/+8/WDqffocF/VeP75/9x +xmDtp1sPaNBe6VRu85EKXBnGPwIMaPD30/CARwIV/qglTTE9p0GxzwmW+CQq +5Ccek2VIpsGVB7u8elKoYLFnsTb5Cw2GOx8sa6dS4bhDqerVLBo8ka+5PfGP +w5QePvEu/ucn8NctplHBmhwVurWTBhc7UpDhGxWEtUy5Evto4C1e8/rNP/5Z +JZN6cYQGN8P/A7Z0KqhE9pW6z9LA5cftp1wZVGCkT7nOs0iDjkMbE4n/GM0c +usqWaeCZc0hRKJMK9t1XdfU2aLB4Nzs8/R///38bdhU2t0pkUeF/0p8S2A== + + "]]}, Annotation[#, "Charting`Private`Tag$4205127#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmXc0Fo73xyVJSz5KKGRmJluImyQSEZHMKBJlVZIdkqJCSMjICGVGtmuW +TciWlZHx8DzGY8Tz7XfO7697Xue8zr1/3fe551wuSwddK2oqKqrEHVRU/1dF +4cgMhULBXz9C3+2rYQOHdZ7A9Q0K5u3bnbXcyAY5X8RPLK1Q0OzuWdHRDjaQ +ENCynJyl4LbCYbfaMTaQ/c+/v7mHgs+4+Fzzqdnh7Dix8V02BePij/UrqLCD +7rOWT5LmFGxNYv6z+o0dHrX537tdsY1RYpfE3/VxQFfXvpkqiy0svVAd+jGP +E9grHQ7Lsv3FX5YZIfV7uaHArnbXwaENdCx3MrwdyAM3gsUX+3zXsWBvjKir +BR+shbkHIqxhwVE1gQJTfkii/8UaNbqKdQ/6reyGBCFWQ9y58/kKHhRb30yv +FAHefRqN7f4r6PcpR9ayWQQ+NVlyt3qvYGn20CpXrwiUaIZ31D9cwZ7FWdai +BRHou0yWqLBYQVqV8s9w/CQc0StfSpP710+oca7K+yS8Nr740OvPMr5y7f1Y +c0EUfO9auApeXEa1Luv3poRT8OuVWWyJyjKyDrTbGG2dAvlc48pLSstosh3K +LU4rBqQVfTp7yWUUfxKVdZFJDCy8NaLy2JfxWqoJT4WkGJwNkyxSIC1h25t9 +z4qdxGC7cNeaVswSbjPtpuIliYH7zoxHzvMkVLurPy9GKwH278xob0yTUIms +PvyRXgIsTx2K0BonoVgLEyMfswRoGHvkCfSRsHPZQ09CQAJYvlye/1VLwruV +jGtRGhKQb7lkeSmWhAzSB1xjQySAUHXmMu8lEp56N/LmE5ckWPi08XanEfH3 +TuNC3+tSYNAXrzSURMTygAzflzelQEPC0fB3HBE5EpE14Z4USP1mCCaFE1Gd +R7d58IkU0KnrLtE/IWJmm+jJggwpyDr4s0rtOhFbHk3q/dmSgs24frPiPUQM +cXDTf58hDRHlE1Gxtov4V4p4V/u4LJi5RnvJWi3ikRSt1EQRWRCQ1L7VYb6I +mkE7lyhyslCSVnSKTn8Riewm1KNXZeHXm6Bv9+Gf30qfKBMkC/y24ssahxcx +0s/UUXFDFpxPbsSR3BdQgC+OVXjsNNAk3bQVcFpAJt3ONxzE0xDJ0iJtZr2A +r3uLxTip5KB0Z0Jzg84Cyj0vPHaZQw5o+lU3EvgW8Ol2Z5mBsRxEBoTqa7cR +sNO8s0a4Vw5KhgX2f+YmIPejfVqOQ/LgcWZHZjQLAQU1RxxE5uVB8V2f1nN6 +Aspb0Bwi/5WHSt0Xr6035vGHtD5PEZsCfK+bZeTqmMcj55WdZ00UoOtTFmvk +k3ksdhUw5R9RAMIjKX6fkTmUPdvp6U06Azld++vtu+fQ/oCmkTiNIjiJT9iY +Ns+hFOu2wjKTIizPRGTIF83hun68TaacImyakk+uvJ7DNU/asYUnikB3vkTK +FuawSxgyG5iUgIfh7LmrcbNI6xid434J4JXYqJvtm1mUf7ZqKWwBsKbj+8Un +cBb/TEmUkVwAmkNreTOdZ/EDwW2x/gPAg0MXd9OqzWLZe6VLbzcBvh3RbS5c +mMHuXAZqguFZsGW/ZXBMeQb3vZQX2ceqDF2Ku16Ly8xgkDhB1ZdPGZTMUr+r +Cc/gzyNembsllOFQ/PTpB0wz6ELZX6l4SRnKOO8da/nzB02OFDld91IGel6X +Ea+wP2g3RRV5c0oZ8oQCbcfGp/GqlLKTU905OP7jRrFw3zRG3Pgv6n3nOQh+ +JEf3sHUasxvLIvtHz4FV7UzK7uJpXBM98/zZ9jlgMdMaFXk1jZat9y7nnFYB +z1BGw0enp7FiOcvFIEcF1NdiVfe/nEId1VvLjZnnoSDuYbi+7xROsm+nXKo4 +D9yql8fjHk3hxxSOQ6Ot52EzlOIjbjmFZZHhWRqL5yFL2LLMQHYKP/P0j7JJ +qcJhc37JxNFJzKN9RRlCVRiuy+WUkZlE0p+BrZnpC+Cht37+tMgkqoi6slI2 +LgDL6Nk78tyTaLsfMgQPqIHO37ZcJfpJLH9HX1strgaVEoRzapMT+PwFH8se +DzVIiBeyMoycQNG+NoM9TOpg+Tgp3W31NwZzd4fsNLoI27SzLR5zv/Fl8viA +jMNFiA6XIHmN/cYxw2sMAf4XoSO7St6v9TdePVqw7Zp9EVQmh5uCUn/jvkD3 +oK+0GsCrx0aINfiNMzf1KitKNGBCJEICv47jhllSfYi8Jgh5pRCmP43jK6oe +rRZ9TbBvK8hgTBxHMYqbtKSTJqw5dXNbB43jKfs8f480TdhbyHzowI1xfFpu +XkXPqgViytFLRnvGsaBUtvAJ9WVw14/PXzUeQ4rC4leDdW2oTM125Lwyhu/r +dRzOHNABmjUU0bgwhtxmFi+n2XXgVfRI8nuxMTR3Od4fBjqQMMwVcX7XGCoN +Jz+W8deBb3eSH4ZljaJfUJcSifEK/OeVLiO6YxR/P4cifnVdCPgqUM9AHsFy +3m/iYKwLG4SP15fmRtDp2StGF3tdGDNP9SjqHcFNYWY+lQhdyFNOqj6XM4JP +9FkfW/7WBd1d7y9fMx/B+t4oIjlQD/hZuVqo3IfR7Feid8X8VWB4cXyxznoY +N72PhZrs0oe1DfZDQbrD6N0qGc/Lrg/1g0evMwkNI+VamoaUlj7YJByeEOz7 +hSn/WRiYZutDBj/dlq7sLzxpZK4h42EAIjILIilLgyikZ2KprWAI1qLe3sVD +g2iyvPNSsLEhxJ842NHyfRDTvrY07/cwBEbmU49WYwbxnMFWykC5IZDJ9lVq +5wfxuZnbm2/nr0N1MUF/JnwA3au6FV/cMIK/uV5p214DWBT/8K/FUyOQzqDf +ZLwzgAqGWX0vMowgLVo0QUFxAPWc+mo7V4zgpbv9TPBEP4bSdlKZhRiDoSLB +65RMP5odlT+i1G0CYdJeP1Q4+5HRnVL5gcoUmk7S8xru7Ue3A1GZd4RNQYlD +tMHnVx9WcDw4xeNrCjyUe4c6AvowokKQ10bKDAiV8x8f9PSiioFboVWmOfid +n28vdu3BmYlivQlPC6hWn9OWutmDxnPjDEejLYBKa7Y1S6sH34SceB751QI8 +9P80J3H3oED6aITtogW4WE/Uv2zuxrX91n4xty3BJnCo0oKzG8VL+c4dsroJ +qcGDMLi3G7csArvPBdyE3yEDFQYrPzH4je5W08ebYPGur+xS40/89XhJcnH2 +Jhhl/CySfvAT6ZrotlNcb4Fmc0vOnvouZK5nydubYgUv2ptP+ed14UXt8iGP +Ziuo72rK2o7twrNyji43lq1Adajh85JTF5rN0JB8Va1BiVCXNnSsC+WtyMds +5q1BjKEiIdehE7MH+sBO3wbsD5cfFzHqxKLd+sr9/jbwmaUsLvV8Jyo2LokN +5NuAIFdJbAxrJ46b7vKLPXIHuCW+Rj2t6UBiHpXTzdE7wHQ1K+Q6cweaeW65 +WUXaQd6JoBLVnR1IJ5Ljd6nZDnTWb/8WX/iByjvWKnqo78KLOK7Te7//wO7S +p53zTndhezp8uMTlB35+FkG4YXgPJj3dRdm621GCxSua7aID+OkYGtJVt+MF +moapHy8cgJNH2nc5sx1THqkfsWhxAKN6ws/mp+0oT5HUfSXkCK2Mlp6e0u3o +zSwjXV7oCPbaoVHlgm3IWZdytO+PE6Qta8xF7GjDSSrVyKeMzjD2juasfV8r +OtF/na9RcAaD34+mOJ634lXdAw93hDgDPDaT8ZluQY9nDqUdcB/cOFheGFa2 +YGJqmuuNe/chv+bHkFhUC955hk+iYu6DAL3q01G1FiytiBRj2rgPDEnCXec+ +NuNnT0emVHwAGuoT/Me8m/FmTEP+DOkB+M/HuS8ZNOPJo2se5BMPYU2WkSeZ +thmLqNUs3UIfwmjzmtMu6yaU4IuaS3R0gbzVuoP1vI04Yi038s3YFV5lfKhW +Wm/AWGJOu1WSK9iZeT8saGnAv28f/7wy5wq8304PfHBpwG+j828lfB9DZMSn +VM/6epSka61mQDdwvhh4fTm2Ho8+PXubgdEdtLdu7bdzqkcLilfIR2t3oLPi +cDY8Wo/0Nekl3w97gJtUqKLk3e+444m5y6EATzCYvreYfvY75luJbTNMeYJk +rEYSJ9N33CMrOUSr4QVzO2n20Fd8+5e3gXcOH/EGs06XrumD3zCKX6Va7JYP +yD/Te2b+uw6rgntzb733AWYFMfnuojpc1h+v6OrxgfYPf+JrLOqQLoSJ/rXO +EzjnbGIX96UWuez2mb7Q9QWOE3IcTIG1KJz/ta8k0hc2+5h+BJnUooe10C3P +QV/IV26TebyrFv3Hyf/N3fWDE/+do756rQZZLpXzr37wB+o6joJG4RpUyD8g +Lb/iD8Oum7eVqWow4g6wBlx8ClEj+S2i6dWotKpa47H2FPbm8L/bs1mFRxTj +zWmdn8HkTRpNn7YqjLtzVTSl+xnUMI9uryZVoWz0n5lFxUDw8I6+9VuzCm3j +fWKXDz8HwuUDYhhXiR6MAfeLpl5AI/XMmPT9SnThLOGsuRUEH79+i/isVonO +vd4iNhNBUHmGiiw5isiRypfERAqGlIGJl3/8K/Dpse73boqvod/jSPx7yQpM +cBiz5v7xGug51HKujJUjC4058ZVUCLjcSOsohnIcubYVYNkZAhk7+sbvEcrQ +IEoy2uZEKPz6sGeF630Z3h5z4113D4ULE7bMLzZK0XZneL3AqTBwC4gRUEov +RRPHgXM7X4ZBFn+zHOlaKebKLgkMz4cBs+1JE6OCEkxn4SHxFr+BacJCgpBj +Me5zkIk+7hYBbCGceb84irF5LslAfDkCdMSv1IS1FKG0vOKOMOdIKLqfN7Eh +VISSfvaCRz3fwtzh8dWsvkLs0lxRK9wTBZxfD9HdDCxEqM/heB0TBc/XHgg1 +TXzFWMZkTtr2d1DxLkXBO/wrjt5p9TtzPxpI8t2akipf8Yr24R+DbDFg5Cnr +EJNQgC7D+ZZ1/rEgRL3xxc44H6XllvMi8+LBLEmo7vjefLz7jk3qpEYChJ03 +7u4s+oLRm1WnD1YmwEZA2ZrCkS/47bzNKGNZIogKzO9ZrM3DAeqLa+PnPoBl +A/ux5Pt5qPAm1Yip/QM07fNW3P8jF0++qpy5REkCqszsy5XeuUg/tZ6u/CEZ +pC6PmD8QzUW9I3pVblopEBui7DsYlIOB7/UbD2EqtIs7vwmRz0EatrDw2oCP +QJeqevF5Rza2Bp65b3o9DXqF6F5df5mFgY81qpK4M+DsvTs5VTOZKNw8vyV5 +7BOkZTd2CKpn4phdx5gL92dgIAmvhKZ8xlIVW5U4uUx4LPWSeYP6MwY9oHXd +tMiCMReCnOWNTyhdzaOy8302aBRrmzSWZyDn7S4uQZccOKrEmBjtmo5iOZr3 +X0/lgq/P/Rrq7jQMFEjQuP0lD2aruyZsJdOQcpdlPublF7i6S4auM+Qjcri9 +THj5KB/K1N4KKRBSEZY3X39zLgDeF2uaSZdSsYRZK4DqyVcIbr7usC89BZu2 +/z4WTi4E0yts+QM3kzFqwPe7jkQJzC2tyD2sTUIMHDf8G10KHpFtSM+XhGwN +Yf4/uMphv1y6atrTD5io+zyRrbECYgd8m5QnE1GGPBLfcKkSRLxMrgxcSER+ +ntmtU2pVUMop0/PgYwKq126zvb1eDRo1B03p6RLwNfWWdfTTGshv6qjT/hGH +gwaO2xyttdDFEPDDN+w9rtIOS+nLfIMlfbmhAr1YXO5mTy2o+g6MMXPT04dj +MC/gtin5fgNIjMQvH+t+hw7Xi+03dZrgCp8elfbbKBzcv22abtICjra0+30N +32Jk5f6mr9FtEJJdzFzAGokNfD+NhHb/gOzluzzT/eG4474457BJB7TKcZ46 +FvsGV034q7paO4Hg1Sl/2TQMSxbj9+qa/ARDxgfJNvga621u6bdiL7yN7S9t +VX6JHjQhr9OC+6H7hHKnVO0L7P7SVjNnOQh6CvTUOxqe4h2vSd6TtCMQVveA +9fYlP7Q+NvibeXoE2rUHxFpafFD6tr8NT+UocOT7hVgneGAOJWCSL3gMYup1 +UCLlEW6whOgMaIwDyxA7YTvdGXfwX41s2RwH4fGfcpGmdjgXSeYRjP8NPl0C +XcdqtPB9/6plL06AyMEh210npYDRy3aZESahm+gbz7BmCMRZg//U8ydhUZuf +5OBsDTuuXLnlwTkF7m8uNNpJOUL1YQm7JP8p2PZ6HBN/6iEUcY+tRo9OgY/t +57udQm5AM8LYJHh6Gmo4nz97z+ALi4mO7MVd0+Afye0o+8ofRM7Izw0e+wMX +9pcZ/tj3DJ6oPKseM/sD9WSC4K7dwbAv5CaLYP8feHEvkDHe/xXQ69NoMB2a +gVRiiCfbkxAwZ6PmU7o4A7dvC1l/3Q4D0vIfa9msGVDnfmTkpxgO9rQbXg5D +MyAwVHNZxyMCqCXnnAv2zsKMrqnszPpbmE9uUt9xYxYaD2QIF55+B3cjy1LU +A2fhU/3qcf9H0XBufKiZK3sW7iqF0HGsxMKNThvv2bVZ0Fof/DsjGQfXRRf0 +drPNgWi+ILHQOR4+uTvt3680B2vho3MCawkgTfpvmNF7Dor3uv+sfpgEQb2y +X+NW5yDhJFNnNncyBPBrZc4fnocAnez22LZk0JbyX7gnMQ9XI8ebXARToVyp +//tJu3lY5NKsFhpKA//WT9rZXfPQc34SmV+kA/M7C9bw+XmouO1TTiObAQdr +a4YJuwgQlJlf9CvkE7iHF9hxSBPghBx7dtj5LOhNiddZf0mA/SaFn72JWeA3 +VUvmTSLAkteVjLtx2RA9cYqGUEiAG2PVujweORCacHXaeoTwL1/JWls/c6Fr +RPWm9skFaPhifj73eT4kLLAbGxQvwJk6kRr+kXy4L8peW9iwADnd68pxMgXw +9k//6+G+BYhcfwNB4wXwBc37A9cX4BbUy1spFoKHVTC3zLFFoDSKibMSi2Gl +4Fxuk94iOA9uZb9WK4HTm4/mnxgtwuR8oyhtXAkY7xM4w2exCM0MViJLGqXA +YjncImW/CNEG7/hbkstAUav5mN+zRZAe28HxxBChINk4SKRwEURLrhHF0hHo +o/KXvMsW4URYZu3IOgJt1tH071WLsC/xs3SCViXkKqd1SDUvwl8dw0EKoRJS +s/MKgkYWYSgnWxDFq+FOQempq7uJEO9oVqtYWAvpFlWzJpeJEGuyJytiuBZ2 +RdGaBusSIUo9/+387jqwetfQlG9AhBDOvXbvDeuAON5PQzQjgk97wX9b63Ug +THPUi9WBCBZiB8zLznyHpUGjZsVXROBZLF2Xr26AJwGJm4b1RPBoUfFfnm8A +T6X5fUebidCd0USfxdoInraqsT/biPDCaoCHy6kRyOnnn5zpIcJi/4bWbs4m +IBw2EGiaIEJFndyHTs9miGFyvb6+gwRGMYUad+XaID3GFskyJMh3hZ98Vm3A +2qvVyCtPAnqD7+bDIW0QyZK3qaVIgiqGnge6022AhiHr4SokOKzirh17qR36 +Uy/ar2qTwL0o+rHvRjtQbaoLH7QhwcWkvpbLhv8u86698+0RJFh8mmVdd68D +7O4uhQdEkSDKxo+i4NcB3icWPeRiSDB98qS4YFYHBD4c4H2bQILAIp/wnTSd +gBdOu0h8IkF9C79xUXYn+JSzE+eRBGprD6e5dv8EWROxRzFTJFDVYty5UtAD +n+KpM8vFluCVxR7iekMP6DuJ0ddILEHvQ6rh7aEeuHrBdemb1BLYxhFK6Gh7 +IeVQnF7j6X/+QqMzm0EvROzYnYFn//mhfmMqq70Q08kea63zz+9ergqT6Ycy +n7CNL/ZL8Nq8x0escBCaDL8M5X5cgu+X2Q/oMI7CRT7d0CKmZZjnYvLqiB6H +zJLyd7ccluHhA2GL10cmwUh6D+tS+TL0DDLoWtdPg+bU7tXxvStw4/GZqd2a +s5CQ6V9toLkCNcKyL2r+7fGHKua48JcrcGJP2XSy+iJQtfuPbNStAHuZnequ +QCLottBUp6yvANUGdbrzGAlWq0rdRERXgXyl3KyObxn807nPXDZZhQEp82N8 +/ivgknn2SEDQKjheY/iPe3AVPtXp7b5VuAqs4b8NadjX4NACV6zur1XIMk74 +uOS6DrnyjmkRtGS4puitXl++AUtmm3W+QmTINbvHLf93E85mDidpa5Jhba/K +zmL9LbjWPjwb4EAG3R8KMuxR25DpbF/L9ZoMexX2VZW93wa5zH71z/+4Krn/ +kknSNrjI0xbKhJBBzPWxRUzWNtyaKta5FEoG+uOFwax123BvzMbt/hsyNNyV +GGcibYMEtV8mviXDWTrBEHpNCmQqff+mlvBvvtPa0awrFFCaSQlt+8fZA99T +tK5RoPOsuNq1RDJwZFuXBltSoDna1tn6Axn+6idP7n1MgZ6JU41+yWQoTDqu +uDuVAgkbsk9L0shgf2Dhe+onCnwek94+m06GE48qdC/kUuCj5xXL7/84XMPU +5mkZBd6GbM12ZpDBmRj9ZmcnBeqqZnbNfSaDkLEtR1IvBTKIb3udMskwWiuX +fu4XBXR3REeS/7FOVG/Fkz8U2DpU1EWdTQY66rSLXAsUMC0avRr4j9HuUVfl +MgVUvd0rD+SQweXnBfMbGxSoFwtmfvOP////Ay9Djxqx5JLhfyEsbYw= + "]]}, Annotation[#, "Charting`Private`Tag$4205127#4"]& ]}}, {}}, { + DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, + AxesOrigin -> {0, 0}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox[ + TagBox["t", HoldForm], HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"M\\\",FontSlant->\\\"Italic\\\"]\\)\"", + HoldForm], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> + Identity, Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> + True, PlotRangePadding -> {{Automatic, Automatic}, { + Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-1\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-2\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-4\\)]\\)\""}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["h", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "h"}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.871624407919861*^9, 3.8716244955603247`*^9}, { + 3.871628888535161*^9, 3.8716289223051*^9}, {3.871629457518793*^9, + 3.871629525242256*^9}, {3.8716296137151327`*^9, 3.871629625997673*^9}, { + 3.871629704200838*^9, 3.871629853550775*^9}, {3.871629898460318*^9, + 3.871629914537928*^9}, {3.8716299451102247`*^9, 3.871629954339423*^9}, + 3.871630097238586*^9, 3.871630131562233*^9, {3.871630181745326*^9, + 3.871630254768821*^9}, 3.8716304278287153`*^9, {3.8716312511595173`*^9, + 3.8716312558499823`*^9}, {3.871631307414646*^9, 3.871631326008296*^9}, + 3.8716313890517387`*^9, 3.871633035236746*^9, 3.872232484200904*^9, + 3.8722326877670507`*^9, 3.872232744803054*^9, 3.872232822043681*^9, + 3.87223294392085*^9, {3.872233009055416*^9, 3.872233025832799*^9}, + 3.872233187762746*^9, 3.8722332247040377`*^9, 3.872233388756542*^9, + 3.872233836144418*^9, {3.872233886469149*^9, 3.872233911922018*^9}, + 3.872233954033169*^9, 3.872234657727256*^9, {3.872827739501729*^9, + 3.87282776748412*^9}, {3.875951503161869*^9, 3.875951569735404*^9}, + 3.884691802873703*^9, 3.8846918532524557`*^9, 3.887186743416803*^9, + 3.887186819461278*^9, {3.887186878027606*^9, 3.8871869938232822`*^9}, + 3.887187474086*^9, {3.887187655128037*^9, 3.887187678918461*^9}, + 3.887187744969038*^9, 3.8871877776872168`*^9, {3.887187917169589*^9, + 3.887187949227336*^9}, {3.8871879838276787`*^9, 3.887188010158411*^9}, + 3.8871882575514183`*^9, 3.893237964294105*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"18837f4b-03ee-4fc9-b362-36801a1721f3"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Susceptibility", "Subsection", + CellChangeTimes->{{3.893240903148159*^9, 3.8932409167324743`*^9}, { + 3.893240952846768*^9, 3.893240954869104*^9}, {3.893241078991336*^9, + 3.893241080223504*^9}},ExpressionUUID->"5bc01cd0-6cca-49bc-b33d-\ +929852f4376f"], + +Cell[TextData[{ + "In this plot, we show ", + Cell[BoxData[ + FormBox[ + FractionBox[ + RowBox[{ + SuperscriptBox["\[PartialD]", "2"], + SubscriptBox["u", "f"]}], + RowBox[{"\[PartialD]", + SuperscriptBox[ + SubscriptBox["u", "h"], "2"]}]], TraditionalForm]], + FormatType->TraditionalForm,ExpressionUUID-> + "ea33cbf9-2d9e-4e17-9266-a9dd99678c85"], + ", which is the singular part of the susceptibility (modulo a constant \ +analytic factor) near the transition." +}], "Text", + CellChangeTimes->{{3.893240788042069*^9, 3.89324084285141*^9}, { + 3.893240875195952*^9, 3.893240882915715*^9}, {3.893240920042145*^9, + 3.893240927292811*^9}, {3.893240957814611*^9, 3.8932410410866423`*^9}, { + 3.893241085040443*^9, + 3.893241094559909*^9}},ExpressionUUID->"f88209d4-5087-4518-af4c-\ +b36509976c37"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"LogPlot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", + RowBox[{"t", ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", + RowBox[{"Exclusions", "->", "None"}], ",", + RowBox[{"PlotRange", "->", "All"}], ",", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "t", ",", "\"\<\!\(\*StyleBox[\"\[Chi]\",FontSlant->\"Italic\"]\)\>\""}], + "}"}]}], ",", + RowBox[{"LabelStyle", "->", "Black"}], ",", + RowBox[{"PlotLegends", "->", + RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SuperscriptBox[\(10\), \(-1\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-2\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\)\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-4\)]\)\>\""}], "}"}], ",", + RowBox[{"LegendLabel", "->", "h"}]}], "]"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.871624380395876*^9, 3.871624486365077*^9}, { + 3.871628883904001*^9, 3.871628909432775*^9}, {3.871629457267346*^9, + 3.871629525012162*^9}, {3.8716296135256433`*^9, 3.871629703591056*^9}, { + 3.8716297390329103`*^9, 3.871629853114192*^9}, {3.8716298958192244`*^9, + 3.8716299139879017`*^9}, {3.871629944204525*^9, 3.871629952700124*^9}, { + 3.871630090583139*^9, 3.871630094694592*^9}, {3.8716301742008753`*^9, + 3.8716302000245533`*^9}, {3.871630243281377*^9, 3.871630253377584*^9}, + 3.8716304265249653`*^9, {3.871631246388459*^9, 3.8716313024379177`*^9}, { + 3.871631382016287*^9, 3.871631383422778*^9}, {3.871633017182467*^9, + 3.8716330172537737`*^9}, {3.87223244386093*^9, 3.872232463125258*^9}, { + 3.872232659147134*^9, 3.872232720226219*^9}, {3.872232925175202*^9, + 3.872232941062345*^9}, {3.87282774234025*^9, 3.872827744082013*^9}, { + 3.8759514937750607`*^9, 3.875951563008548*^9}, {3.875951848422546*^9, + 3.875951850621904*^9}, {3.887186743041842*^9, 3.887186790098441*^9}, { + 3.887186823363668*^9, 3.887186826291638*^9}, {3.887186890645186*^9, + 3.8871869906863422`*^9}, {3.887187366630084*^9, 3.887187367965156*^9}, { + 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, + 3.887187764733572*^9}, {3.8871878714397583`*^9, 3.887188002562066*^9}, { + 3.8871880651171618`*^9, 3.8871880740271997`*^9}, {3.887188109820418*^9, + 3.887188166220853*^9}, {3.887188266607832*^9, 3.887188319744246*^9}, { + 3.893237970542515*^9, 3.893237996990089*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], + +Cell[BoxData[ + TemplateBox[{ + GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtl3k0lfv3x5Uh6oiUJEOSKFRIlGhTKcrUKUMiQ0WX0qVMkYRuJLdouKVJ +19DgRmkktR9KVJQkMmQ4zuzgnPMYDsX5Pr+1fn8861mvtdfzWfuz3++993oW +Bx+hH5guIyPDo57/e6+E+XypVIp8OfdPGQVlcGR8Sfr4hBQnlGu3DXHK4NET +c0NyRIpeZgkP/E2egMUy12B2vxQd0+pVPcuegPWctPb6VilGtkUWlBBPwb5P +9PFaqRTd4rIdZnc/B/qZhuLVAVKM32KhfFb/FcR+STsc+mYKT0vUdPczqqC5 +eRa/KmgSbdv1XU4lfQId4sg8a+3fuHyX3ljc/iZ4Fv5OXuXnBGrJn9OO0WyF +wHPmwraUcTxo0hdTEdgJkpyEdAQJMlqVC5xf9UD+7C7Nq72jaGA5GP9Pdh/c +2GYe9S1jBMvsXN7wD7Eh5VBQ3HLnYfRPFOz9pM+DBNkHsVEDYhR//2AdrSGA +oOQvBi33RPivh4q91ddBuPyadfVGmBB/S5yCox4LYW9cbpL1ASGeDqtSb30u +hGWr3fc3BQhR+XFD97pKIVTce7lK0VOID6efyR9/L4Sui5nvj4IQNxvI7Anq +FIJRmPnwtnlCnLgb+ateQQRRKyZuiROGMDbwSsvgbhFUdC+j/ac/iOuerXg3 +WyKCRNtpD3MXDCKvfUo94bcI7K61uWbMHkT13d/CmDJiIOhnz4dMDKCtQ5t8 +iZIYamv61RY3DaCjM7lbW0sMzcUlmldODeCUzkLDQDsxDMZaGiX3CFB+jKHu +c1IMj5ppdREtArynRb7xSRVDpDnroH+9AK2X9t3yPCOGYf7lBzYvBbi0q5Gz +6bwYfvmPrRg5L0Cdlcs6RLfEoLi5wjIMBJg7+VMj67UYlqjab9x1qx8PqMz4 +kDUmhr/Neo+HXexHs2+S1h2/xCDxSHmSnN6PltNS9qpKxVCf/c7gYVQ/OjWu +eJCoQMKxuc4zFLb2Iz1nt94cdRLez6fXvxji49/snHQ9cxLMrEm5z0w+LvAt +dTxjSUKu9yU7Zhsfj+X2NnOsSThytaVE9R0fL4+Wb7iygYQFC/dk/3GVjyO0 +YLW720kI09nvpeXAxzuaY8vP7yeh2U7+vLkVFTf/eygrlIQNe4tqt5rwMWJt +cuvpMBLm3uauPabOx2/Vq3sD/yShUu+wVgOPh+9WzrxZnUDCbIOYnqQcHhq1 +HfvXOJuEuM0ampfP8PBf7Z0rnl8kgbH/5Y7iRB6mropfbHOFhBeFE9WtITys +37xyvsl1EgKNThaaredhwfYTfaUFJJQZp4cx+rjY/k30l81zEhZ9DSw3aeMi +bXpIqt1LEs7FrlOM/sxFe+V/o9dWkHDgHb9wRjkXT/r30ua/oe6717XX9G8u +dhh7YEQNCWlyhmYxqVx86iezxKyWBNGDqSSM4+LvUx90eXUkfBwr1abv46J5 +2eFSh3oSTmSr+cSu5aK/UgQvs4kEvnV/EbGCi2AdX63YTIJX19sRpSVcfOz8 +sjnxO6WHSfTFG8pcVMtTi972g4QbX10ZrOlcTPJw7M9vI0EpztB8lYSDNbM6 +wobbqXq8a/1cxeDgXraN1/GfJLiHP9KZ9YODpXtkH5R2UfWdk3FoVwMHrdtM +Wju6Sbi812Ym5wUHbcjErAUMEpwkNxxpWRz0Xvd+gT6bhGe3oi95pnCwebMT +m8YhQd/Rre9WLAftFV+YDlL8K1uabB7MweV0ueGLPBIOrv3x5bg3B9l/PvPz +4VP6dz3SfefCwezvEuW5/SSUmARXellzsKvnu2a4gAStJptZeaZUfswNfooD +JKTHzfXlLeag67a259cpHtYV3LPQ4GChQ5bO0kESgmrejSXQqO/PbEoroPhz ++M0tNdM42HSN1aU5RIKNWszl2WNsVOT4Lz5N8d2XbkxvARtXyl8FNsXzAoxW +3+ml4szkFXZCEk7Jy6TwW9jImDajO4PiweIfjavr2Xgib6FTPcW+9MeLTlSx +MXrioZ+ciIRaSUbE++dsNIh/pmpBseXt4Ncq/7FxjG/k40lxnuN62u47bNxW +MWUYQbGyYO6ef6+wscTAKjKR4uM5gvv9mWx8FNVgnEwxe22NxPIUG1XMarfG +U7yz++bWpBg2Ru1fXhlKMXE65kptOBvT6icTtlNsaurOUg1iY85ceoIBxdea +jCx9vdh4UXltiZjKVyFeJjV/OxuLRDWKzymOWtT2VWDPxslL809GUNxd81jP +yoqNNkXO8toUJ+4c37zWlI1fmlIsa6j6LOi1/8NGn41DWw/U76f4aUR6lu0C +Ns7x2/N2gqq3x+8vjzfMZmNA1TeVMxQLMjRa7OWo+GOHe0oUp2sETGycYOH4 +fJ3UFEo/wmJw41Y2C83j57V7UXr7EWtCnTsp9lq3qYzyg8T1ROb2Jha+f/uz +TpZisz9oze5vWJiuTMpmUH6qH90p2fGUhcHu14oquZS/0q5r73rAQj0nY3s2 +5b+828YHfK6w0GeowkKL8qvtiqgM33MsLLXWjzdkkfCjovyhXwoLo2o3ZRsx +SVBtcRoNjGDhwP3GObMov/+378LCffup8//pCB3oofwvat1wwJeFtoE9YTVU +f5yihZ75YwsLP2aG7fSi+kk3t6Q43JaF8lENhiqdJFQYjX45bMFCIpeV8prq +P/HG0wuidFnYUufyeKKVhOD4/PvHR5mY8yF9YOQrCVMK/Q2JAiZeYA7QfBup ++XrJQpzEYKL2K/2IJ59JaCqtskn9zERlT/jm+ImETezuT5lFTDS3O2DNfUtC +z1EjYdYNJtpGGhwbqaL0m3Zk3oUcJm7c5V4yhpRe2lN+l5KY6LXq7Hj7KxIM +dmoP3vCiznO8I6f9hNKjZ5/abRcmznJOcGx8ROkRUWx1ZyOV35GNG+NLSLiU +YXOycCUTK/o/ut+/T4Ic4aNaosBE/pNF3cm3SWCZXrbA533IW+asNyODBOOk +wkFucR/m+Y4+qjpNQsSXZw/U7vShy5LVUREplL6RLfohmX14LvNy8C1qns98 +oTFXObAPx5bdk/c+TOntkEv6KvVh9MCF8SVuJETnPChNm2JgtknmxUlnqr59 +FeElJAOvpk9vr3Ok6vFXR9+0LgaeLRG4WdpR8/KTdvO9Mgbqhvqr7jUhIcHz +9tPRPQz0tp+lPCZH3beo9E+9HQwcF+it4VL7UE6Cptu2MHDJy4a8jxPU/szt +KbhpxsDGp02m+4RiyOtefHmzPAOve9anMtrF8P6Pguickl48UH5yQv2hGOYk +3bdaOa0XNf7sDV2zRQx/PV9WpzrWg6+Pno59DWKYGLy7mxT0UPu/y23tOjEw +AooSX/7oQQd6m4eCqRjKHPKrNz7qQc9/NmTJzhEDXf6mm3dADza2W9xJ+SEC +I83FDTIJ3fhilYnsP/4iUD27SFgT0o35nuU74jxFIJnQmZtJ78Y5SYJkF1cR +1HUu3K1u3I0KskvPNdiK4GDePNbyti78qnHrnoWWCB4YKU7SrbvQd8cJUeZ3 +IZhaDZkWkp149VBGzlV7IYSsPHmy/GcnvrdRv0+zEsJtQ5WmhtpO7HvtKhNl +IgQ1jVWxo9c7MVd7a7bqfCGMjUVUbd3ciZEq1+i234egunzQk3+pA+3GJZoK ++kPgYzeYtMqqHeUSFg4dLRqA1M0DjeVxrdhvmMCVBPCh2kngbrmvFUM8kteX +buaDjGv/5xLXVow6/UbOfTkfEj159fn6rbgqWyFyu5gHMSGsuqz6FjwV8WTC +JpUHB9N/EkF6LZiH2RdV7nDBpb7hkVJdMy5/s21JeAMb1HeVXNit0YRwy+TV +fCEDykZrVOoMPmLxL2X7Wu8WKOxgZfHS3uDgYgetBfll4L9D+2nHvgL8ZB1q +7NZSi+UzE75XR+dDY32A9ZnqDlzDmKZ7ygdhVeTwk1B1Ni4Rvhq3qf4AP3Ri +6cddBtA5v63BzacJfB66LtJ1E6Ojq5rsyLNWYGXnyY/nj+D5gNZksxedsLqx +iemXIcFaNx1lD7Ve+JuuXFwe/QsHFqsnNeX2gZz5T26kzBRGHzMJOj+fDX2R +qpM1xjJEa6cqPaSOC5k6c90VfKcRgfG2nBku/aDk0T8/cN904q2J9dm38oOw +6duy/opIWcJQqZJb4CQEu7W+J48HyBE6leGO8ukiEObWVKjZyhMyE9PvRzHE +sMjgMlmgq0CM7Xi9t2bpMPTU0u/achSIDssAraVpI2AUdWek6dkM4k9v1Tn6 +naPwbIct/78YRULzEtNHTkcCjeD3KkxfiSjZk3eXjBuHsZ2phTHNSoS33Umn +utcTkKxqEXf96Ezi8d7D+ja/f0FQoJ5botIsQjJzk2y55ySs+SfXubxwFkH/ +ut5K5+oUfOy1zRo2pxEz18+qqrw5BQVbWrX2WNKIqoL27X75U2CqKLO1yopG +mMXFB10vmYLJoJij59bTiNmLXpzTrJmC9m9bl+k60ogPhyz61MVTUNz2U2uV +D42wV1x+YbaLFNqumf+akUQjJJGShSU7pHAg+LpncDKNKO2oLXT1lkII38mj +MoVG6JaGvDoXLIW4KwzDI2doxG/PAvbMeCl8t13j13iBRrzIX2Q3o0gKF7K8 +ZE7l04gI5aHaomIpKPFCD30vpBGGsW/oWx5LwV2Udnz5PRpxaZv/wdOVUnjm +Rz/R+B+NiBLlXpT9JoVO+ja9hc9phPGeMN38H1Io0v5wO/wljeh9t+7+xi4p +GMxYXV1ZQSM8rv54c4onhTINa6E/0gjF6fecFw9JwTBL8ffDKhqB4bHNxDDF +1auLJ9/SiJjvWwICJ6SwwqF50uU9jfj//09Qy5Afvl5HI/4HZdvh0Q== + "]]}, Annotation[#, "Charting`Private`Tag$4212189#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtV3k01P33t2bmM5OlqCR72dosNSXp/eZJISqV6FGikCdLUbYQRQ9tksqj +slRKtNhSlnA/mAljZ6JIGkuRLGViEPOd3zm/P+6553XO65z7uve+/rhX/dip +fe5iIiIijcL4v7wOLfkuEAjgv1HbmOrcQnRqWjN2ekYAh4xlH6pMFaLcVwZa +E78FELQhhBlpWoQMdWyPfR0WgNS2JQwPdhHaJBfdWd8hAK/nRave9Bcj3PeT +fTdHAHpxny18lErRvpiG50ZHBbAEgl5mWpIoqCna50T5PLR5DkZ+bmIiDof2 +vcJ1DmRMf/ybzWtEyuQp+U0r/kCf3Vmd5b4c9NqLKSnTPQMDAQlU9oWPyOWa +wfjHi9Nwe6bH1t+qB/ETQmMB8cFIhhuwJ7QXpUt/VkziTsJQXtGhqJIBlGxt +4N92+TdojEa8k18xhC56uwbrWvFANVHFbkPADxQq/izIf+QXrGW47JPQG0eu +kU0r2zN/gqfOTvYexV/oTtlAUvLJcbBxCdu8XIOHSnp06C80RkEvRk6qIXoS +acpi8wOpw+Dnky2fOs5H+XqxJ3v7BmE64x6N2jKLelh5agzGVxhKZtxS/DWP +BtbcMYQ3fVBXEO19fpkoljufxVgnyoXmn11WL+XE8RrG2JonE59AJI1/K1FT +EkdtH2kuDu6AmIu1fcxkKVxp+WPPhuMdEPfGjsXMkMIitsON2bYd4DqaIcfK +lcJh9kP16RodUGJo6fuOKYUDPQZqrte3A4Uj/6jmhxT2jO0mXdXa4ZNVhcvz +rRRsU9+QS63hwM7j1buLOin4SnP9+uh8DgSsv2cY1E/BNZy67PlkDkQ1/f1S +f5SCLbprX0z4cSDIaaVjgigVbxtlZXYrceB0FL+UokPF+rLlD/JOtUGM+ecF +589QscKB7PhDS1tB+s3+R1QxAudrXS2xEG+FDQ6FnAEqgfdOn+g3GGuB5Cjz +D/lyBL6Sqr6ZqG6B4sS6h8rqBJ4fvN1TEtgCmksnZnQRgb+Gh65b0d4MRnrJ +6q+DCBy119GRUtkM4Qa8+BPnCaymufEi72UzRM2t1BK/ROC/a0bf119qhq4r +fjcmbhK4cdGx8PCNzcCVu/tv1jMCew1se/qPejNcS9t++E4ugSlFSi32C5uh +YWFAqfsbAl8qeWZ1mN0E3ANxT/MqCOy752ZSmW4TUCN2/NvfTuBMnvWPO6JN +MPDf1hV9XQTuvSuBfT82gk5RoGrFFwIf7A/6pnK5EXB7bsmy7wSOv2xgMuXS +CH9kX/DiRwnMXjcc17S5EW5enuwZ+EVgFOLMiBxsgEUV0bMaswQ+p7LsiiPZ +AKHfEUkVELigqqVbP6kB/jw7cJQtRsM60haXuDsbQNqGs72dSsPHXs1/KFZt +AOqH4cVqC2k42bFoTcJUPVSYf2zEsjQsm76aY/60HjjLmmkSS2jY2nJAWymi +Ht7oDNOfLKPh6JHU0ImD9TBnocdXVKLh8gTHprp19XBoQRlxTJmG+ZsWaT5e +UA+WxfQLYao0bNhdFxj2uQ4sw98neqrTsPfFS+wDb+pA4TiOWaVJwxnaSGVt +XB30pc1fy19Jw9x6vp+kRx3MNrr3SmvR8Ar/fFa3aR3cML9eYaxNwweXeiu+ +UaiDBce93Qx1aDi+dJVP3AgbHJRmJPhCzHbtIT1YbPDda9t9WZeGJaTuyqMU +NnxwKdf+JsTbXuzzXBrAhv1ZVFUZPRoOtqOXjtmwQZY4My8ixPmTLJmalWzI +PfFdtFTIj3v2qHLbdC1cHGp0MBRiL+eIgNcNtWA1NrTfQ1jPctFhnTWPaoHN +NRNxEOpb+W5z16PAWnhBee4pLtQvck4hTnFXLdibSd4/Keyve+0vHK9aC7Hz +555e1aDhEm7jxAJeDViHVzxwV6PhxDvPM8JraoCn+HfylHCe/laxh3jJNZCa +zcnHwnnvmXOje/nVgH3vIhEs3MeaPDPgWtSAYPe1dJ48DVPcVfwdl9cAcewW +eUSOhvuXza5sGq2GwM57588J911R39FhUVUNeqxQqrXQD+c23DQ18q6G92Ic +m3mhfw4O+oxn4WqY1QoK4M4Q2CjZOl1NoRr25XzYdfY3gX+IS1Cly99BZmqD +asYQgWsKv7yNTngHKLXy7V99BH7iVeY76/FOyK8yj/tEYOe2QM6gzDsY5Zkm +aTcSeEvM/pij/SzQahszCXhH4KUm+lvai1iQf+dhgE85gZsfDaVVubLAhO70 +zOklgc39D3ulvmLCLtPGbxoxBFbRMlZRiGWCspYzpyiMwLMfFVquHmZC0R+Z +jZN+Qv+bNTFCJJlgzEw75eFEYC05c7EDDlVwzjPk7TI9AouxVF6zV1eB5J1O +/sAKAvcEz54wE6kCkSm7wUMyBE76UtCwLqsSWqKcMWOCiolc7bvU2QooCD7R +yXpDxV+PS9hENlUAo0zVrSGDiquWcucn0yvAXj8qJDyRisMi7rn121SAIk9n +7sNZKh7dvVAfUkmYdV/85OpaKn7SNXB9KLocLNI40v43KLgzbElailE5LFA0 +JQpCKVhaZWeuXW8Z8DMCb746QcGBLpmtxagMVvc/iRndRsE7Bk4uvTLzFpzc +d6z0/i6FB0fHHuidLob+58EBBxlSWE9s5pWXUwEw/BaeUsmSxEfsVhR0HX8M +qb2ldl8YYvjHxG/jAGY6OC5dfoiqJIbDEptAelU62F/2i10vEMXJXRfrzL4+ +hCHVtxsCq0VxQV0ra09LKlSuYXwWOIjiHJ635mDnbRihnTFJCBHBkRwdjlKV +LXg/l1g0HD2HionQ95UB6WjjKrfCeMEkerBWoS1H4zGy3uJXeLl2Ev27N6c5 +uekxOnQ2xDvv1iQ6kNhXF6ibgYLfTzGv60yicXWbSr3uTBTde0M+4sBvpGWs +nJOwPRtReK0pLq8nUO2ro9vzLhegrtHBAv/742gra02V9pcCtIlfKePrNY5y +26fNUhmv0Y/ZHsu7JuMocfoWutr3GonK1H+bKxpDbqhmi7tpIeIqVvtQzEaR +gK1voPizGLk+0uG/PjaMNvaKqlxwBGT/+Sg68n0ArStx+KmfBehaRO2nf+4P +IK2El8wv04B+8rIDK2wGEO3hi40PbEmkyff22Jvbj/7sdfwkGCVRYds/1/rP +9aHu3BxdMKhEjf6bk9KUuSjttDPTtJCJmPnJ2y3XfUSa42+nt1TWosURHrct +NCpQWMNf0byRWgSrUFrMIhK1P6uTzlZkoyuzSnuSpMrRFfcuTXU/NhosXVn4 +UuiM8c4ZWym1OrQ1JYJ9OzIPlbOMH7WF16PDg+qVSdfPoL/vF1p7Gzeh0m2C +8PqpMrBK/9iw27EV9UlFah/ufA/jl7I9WD6tiEhvPiFv0Q5JnlECk6hW9E76 +SE9ATjsMrl1roJvdik7ZluxnRHVAbFHkbXGJNkTfwzEv0foINQ3aTkU5bYg/ +WWRm5PwJdvIDBtWl3iPzFSfv/7bkgoXtIvHfrzuQj2L8KjW5b3DjaEekfuEn +tOOJtv9lm3Go3q28cO8iLqpevCm+sYwHI+oK51vv9aE2U7HdQUf4EHB2teuN +JV9ReWaS24+YWej4JLvPo2YQ3fSidvBT5sElZOs3KZth5JCi0CGXIkJWrd50 +pUpyFOVYnywSfBMltailg48tx5G+s1qwkYQ4qVzqZSEZ+xON6V9XH14gQYrM +iGX59/5CUyVpRoguSU7ZlTmzVvEQez8zYPe4JNm14ajSqujfqLL3qrj1hwXk +aQdZOY1Pk2hpmIRDcLYUqXi731FCmY8uRMrbBnpRyGynB08ngqdRtd4e15a1 +VNLBNMKypmwGFe5tarfppJJ5zj4aW/7Moln+xiOVoQTJJ/4SL7afQ4a6kiKa +mjRyX4sJQzlpHtVuetafUkQjCRNaRWnKPNKZeBy6+i2NrHjcuetw+jxqN7FO +LiqjkfrBIa73s+fRkXvbQlsqaaS0auE1RdY8UvnvdMFcPY2s9TbsUxDeleQI +bMZcGokpuvHSNgJk7vvqmS+VTvL9+Muz7QQopLCqeoRGJ3O6qp/YOghQ4Kkn +Z7yl6aRKjsfba8cEqNgtLNhzMZ38Y//4KxEiQFfcGrc4KdPJwnRVU6kMAdKd +8mWuNqCTvgvHqjOeC5CxqDw33YhOagWV79uRJ0CWC+bjlBh08rb1Ec9LpQK0 +XtkkjWpCJ/1/3rsl3iZA5/uu3vmynU7qOZ1USf8gQM8Lr2L7nXSSyzTOMv8s +QAeLxc7XWtHJvUkfyi8MCdDWbyO5ubvpJEUs00p9TIBSXr3M0LSjk+AVxCF5 +AtQ3Ero+cT+dDHy/46jLjACd23h+F+Ugnfz/fwZ5LemcCXGkk/8DRFly1w== + + "]]}, Annotation[#, "Charting`Private`Tag$4212189#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtV3k01P3/zc6YpqGZ6SlLtpQ1lQjxflsqCiFFUSpPKUskS1KSSrRKiKLI +mmrsWw9eH1v2bJNdNCIpW5YsMd9+5/z+uOeee879595zXue8rvRpd6sz3KtW +rVr4i/9jVcQY5XA4sDfF/EJnSQFyX5ANWVjkAOnVv7s1eQtRZs42+elZDqRr +D65P2F+Itm8xOz38gwMhMvwiUR2FSFPkVndDBwcapbMt+X4VITw4VReTwYHj ++x+p/dlSjKzuNL7Z4cCB0/liqtkHCeTbdMvNqXQFJKyXxr07KhGLJTxadmoZ +AtZmt75b/ogkCHeapvgfKFTLiz1/iYXyXCr51vQtwm1Nh1B6SBc6eX/bZFfQ +AvgQopsYlv1oPtw/BNA8eAZIG41fZ6NEyuf10V/m4AB1DvSJIRS7f5tnW+gs +VHjmWJnIfkdBrqcuK5jMwLFNM0ZaAT+RP0+6r+fYL3BMbpbv2zqJTgU2ybWn +TYFZOOXdV6lfKLJkKDrWeRIirYOPiCjPoPf9W8hvZcbhbirtVWj4HJKlYgPr +Fz/AK+FwWirPAspWDHFmD44A00fvoeTYEuqvypLS0BiGxONCR1ZLcNCQcuR2 +yB8EZp1szoIWFxYJeK2hyvUF9MXvbww/wIOD87fUUH8PwIT/Y8Vvh3jw4njq +0emfA1Cc3KGkb8+D2Q4pVws7ByA1/eMWXjcenK2fWG6QOQCejw7lfnjIg634 +4sxtHAaALTrlZdjGgzevl25c5d8Px1zMGCYnebGyxoRy8nQvqPa7Pha7z4fP +ql6/XtTXC185r+n5UXz4pfya1sbqXpjxckuwTeDDouu2+s4974V5bqlV+fl8 ++PfvC2X7jHrBKOucetsXPlxeNH54NKIHgpc3pr3S4se2uuMBWzW6oUhM8t7s +BD8O3xnQYijVDXL5aiXpS/y4XoUiZ0vqhh/m1vnnBQSwnqRqbeDnLjBp/qHH +t1EAy3Lc1rYGd8HFx3xXcs0F8DgxlurV0Ql3jJ+mcmcK4JtGY81FlzsgrCy6 +pP+KIC43/nlQ3bEDXg9aPMu5I4hXmf34yDTrANaVeypPIgTx1cPfGxJl/mqW +V4M3UxD7nB2qedDQDux9lAP1bEF8LqSPOCXVDg0lz/jrzYSwaUNjplANC179 +GY+vUSHhu80NW29ls2CXVCJZfzcJ17DqmSuxLNAJp1rV7CfhPX21b6cvsuDg +ATU2zzkS1huvSusTY0GhxrNL2xNJWI1aGp/l3gb6UYmuoeLCmG7NDDu6rhXS +ahUkaeJknC1/7/0enlbg+x6dc0+JjC0WnL5um2iBO5wNUjQdMr77QnoXqboF +dvCHkG2PkfHKSET/e58WKFcIVsmMIePha/6q4u3NIBlLaSoXW40vHHwcXaLQ +BB8OfpOJUKXgtJn9PyO5mmBU1YHLC1MwO4YXX+j6CAUW1WRnKwo+8tX3m2To +R2gOGrgc40PByO+ERuBIIww1R7gJExRMTVRiGaQ2gKKdlqirzRqcPVe1pkau +DoJ8rS+xTan4Yfqrcr2FWuChxSlZ2lKxy4nr3nmNtRC45aJXiyMVy33Y1fPK +pxae+1Z7CPhTcVTkm5RrNTXgSj2obZ5OxVfUH+vucK2GQJnUCxfJItjA097l +RU4lLNmV1jgPiGBJeS1JekglSGhuZZ0fF8FLXfSWe/aVMGS0wzvwjwjO1W/S +8OOrBEWpA7TZf0SxvIgBt7VNBVTyqcdwrEQxKXNzjNBSGaQ+9ypg1ovi5J6h +B99vlYLQxwdTvz+uxd1XGS/jdpRCWbdJJHxeiymS+zIt2SXwZLt8fuT4Wuxz +Mq21CJWAm9yNW+cpNLx3yHnd3cX/oI0+vvOhOQ2PjE/EK3oUweecE82Hm2hY +PEwq+7NkEZi4igma99OwxTbLivDGQrj8bui3+gQNF17KHlpULIQOvYVpoNBx +6LyXYv1QPqRqP2YeNKXj0phknesR+ZBoH11gZEfHv7TbTXcY5kORuEg+lzMd +H7um6f48Pg94ZJ7VFwbTsSL3Yo6LXS74cf3csKeYjk8kKlZtJOWCtTBfYEoN +HYcb2bW3FebA5bP9xg9YdPxh6N63O045MBi/IXu8n44Xg4vndRg5cOlNlyOM +0rHqljGhycps0NBiXpyeoePTtRJiSZeygf1E0D5ghY6jnM2VbWWyQXzOee0h +AQauF76uS27JghMnXy07rmHgVe8yzInrWaDiarz8isHA6uYDDl6qWYA8Wvy5 +JBj43AT14pa+TLgy6OTjIcPAsWH6Qb33MsG9r/nBgDwDN2/zfBKmnQl1jg/W +GygysGDKHpPQ1gwY8D+pd1uZgT1GUlymtmYA6bSV4DMVBu5UFHx49AETxJJ2 +hnj81djtfGbZ6DsgbX4+M6/EwGkZda0Kxu+AFsn/UVaBgam/lGYfJ78Fw090 +frYcA/upP1i3yP0WbDuUFTZtZGC2z7jW6ZNvoNqedrd/HQPvLzpoX1eSDm1L +HRd4/+bLXsoM2C6WDhS1NXohvAy8QU804dnl12AxGP/m5DwdBwVequBuT4P+ +0MXBW3/7/FHOGnLekQavCpNzx7rp2JpPQ7AtLBXsGmSyImvpuHjfU0Wd8RTg +Vpiz8sunY7m786aJB1Jg3/2RtU8T6Ph+w1F34dfJYD8Vc2PiLh0ftxTP7XFM +gpSXsnrHben45/SslndlIrhtz4qh6NLx1agmoGxKhPge5XgZKTqO7Qmq1x9O +gJCA8Oq4LzSsHGBv2bM3ATZEQaEkQcP/SWl0eKXGA0P9TPbOOBrOrW+tOtjy +AtykXTecP0TDLGpwS1B4HGR+TJp4rUzD04e1+vIOxYKh0+LuWl4a3j7wckas +PQa6otNJM1lrccaMq+xIdwSM1Wq26nKvxR+1pLaKxT6BcxP2zzNZong8oE3b +/Hg4uB+JX5ecIoptRb2SzsEjGGiZrjhhIooP6VC4uWpvg7yq1sKfeyI4kLWF +JVZhBisCirp2olSsvKbPmU9FHemXH81Uq1mD26eCXlLnbdGZ2ZZdpq5rsP+T +vXUu6h6oHH7mROVTcIVU6J04ahDy+KolccN6NXZyUjybvxKOlscELNLfk7Cx +jO+xm7oRqOG2EzPOhYS39FWYW1yNRJF6Hdo3JEh41Oq45ujCUyRy5qYH45YQ +dtULE5ScjUWmTr1NR+wFcRHJ/1O5dyJy3BEXeVqTH8er0NsyZJJQbuL0o3VT +fDjYIqM5tikJ1bOO3C19w4etowbrfRRSUOTOp19bZfnwpLRpuWJfGvIsVOZN +leTF8loSGeFGTNR4+7ZxlA43JtsXvL0+xUTL13YHxXBz4+kAy3TXFxmIqrt5 +wrKOC59kl1vJXs1EmnkJTJYd19/7/W22/CkLFfrE7a4KXoVrcxyMskJzkXGY +zDqj6WW0u0q5YvNALuJcsLuzFLGMMtsX9F9o5KGp+LIvJZrLKGrhCbo3mIfK +1NxjDgb+Qf+iGu0zugXIMyrmj4zEEuLUqW1bP1WEfFSe/Si5MY92srkkb9gC +MmjSKaP0TSPV9zZTaq8BZdqsq5yMnUby4e8qBxYADcSbfbM5Po2EE97ujDcj +0Ev+wffv+n+hPxa2vZxxAilbNv0yGJ1CfZkZCrCtHPmC34379En00uNEpW5B +JUpWOnKA3+s7irUXYkb2V6KCizMZQPmOoo1zn44JVCE2fbFaLn0EhUmRXOJs +q9CFitz739nfUGBznsjyQhU64+zYIms/jE6prXYo3l2N3P5sOPHGZRDJTv63 +oF1ei0b22VvsGu5BVxsNb82M1SKXTqUdCdt6UHt6PYW5vg6NPflBkwroRnfP +9MhKX6xDTRY76Yc2dKHJ7kUzAal6pJfTlKHp0I5Kq7RetV1rQKRaA3TxnxZ0 +7HnBfletJtSQf9TMqrsY5V5GnzadaULVc7qZudfeI8qRaof+sCbE/q8mT0mu +EJVRO7ysRpqQ8eunibuu5CCaof/B2APNSHfuvMjckyTkX/jML2ixGbEPFKxc +3fUCTBK7Gs1tW9GB9TzvV5IqYfI282yVWyt6RGJQ+xOrIPrcTY7OzVZEuy7G +Tkr4ACMqKtsUmK3IPzMrYDSmBkIKAyN4eNtQyeMjz15ca4Caxs12hRlt6Hje +y8hGoVbYN+89Ii3wCUmc23xztVEX7DET5ZnN60BB1wbNWbsH4eEpoamF2g4k +YB+239hlEDq9V/Wv9HUgjeFWx6iYQXB+Mf5ekL8T/RT58KVs9q9/os5T/Egn +opxbeGj/9it0Pr7JNpzrRJu74oXaRIfBuX2mLFyjG42a0LR1P4zAI4eOQLWC +XjSznUftVMsYBP/cjYYbelHFelVv1aUxCPB7tfyc3YtcxK+M9sqNw4UnblcE +KH3ooljcP599x8G8msfr8799yP+DkrWP+ARQtqo53Rf9jBr9Wc0iapPwcCXE +bMStH918ii32nJ+CanOJ1RaiX1BYbaPX27xpGJOmB7Q+G0SUzhBk+vA3eHsp +nXrEGEac0M61dgOL0NFLtTpbM4JuWSZ/yKGvwEm/3d8ETH+g8nJu0T7HVUSF +kubdCr5xpHtFwmOwgIuQFyoeSTKeREfO7lwo7uYmJIpd9vCFTKFGbl73XDYP +sWqR+7Un+xeSLNu94/VPXuK3ZcmJqk0z6Ntow/c9LD6iR91BbNOtWdTIDGN6 +Az/hYUMVkemdQy9qUur3RAsQ6yO+2vJKzKORXdbvj9kIEky7+NTpywtIc/+V +K6liQoSN7nXjmpJFlM5xl8+tFSKyTrjJaP9ZQo+OCbbccCUR8yRDnqLDy2js +fFKTAl2YsGrR0ZCIXkGXOtxrs94IEyQd4bLiuBVkGN5QZ8gUJsqSug/YJ66g +Ftvbhz5lChNql/1OPWeuoMOp/y3N5f39IDcW3F9ftYIaD5HeqhPCRK3r9kH6 +rxXUlHw0O4YlTGBBhTCKKQcN52gHCS8LE/MX5zcwLTmoRXOo/CFHmMjoqU42 +s+Ggf1mGYSLcZEIy4+x/909zkPyJ8ha6AJn4czhpmOTHQRsphjP/iJCJgsSN +ugIpHGQzuNwttIlMXFg9UZ3yhoM0rNYu3t5MJuR9S632ZnGQCcUpjUuRTETs +P37udjEHDQidz/mtSiY8p5494WnjIJmcrXc+7yITinbOkomdHDRTGSZno0Mm +vlRqvTb4zEHWu9ysmnTJhEV0Z+mN7xw0gXeeLDUgE4LcaSbSExzEJe2Od+4h +E+DiyyJmOMhrnsh6s49M+Hza63BykYN0iixzpfeTif/f36gRGxs/NSUT/wO6 +LMC+ + "]]}, Annotation[#, "Charting`Private`Tag$4212189#3"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwtmGc81W/cgOmYx+l0yJaTESFJEhn1vZUkWSlRKlRUMvorowiZESUiISlK +sssO988K2SN7RSSZIaM4z/N8Ps+r69317npziV9yMrHZxMTExMrMxPR/VAD+ +SQaDgYPUVEZWSwvAaVXyweoaA2/cY6syZymE7I97pReWGJiHbphXoVcISjIG +l8Z/MfCjwD0dBV2FoMrt39vQxcAHarhsdv4uAjQ6/+V5FgNzOUj8oMuWgElQ +Y9o+SwYWl/VVqjIiwK3Z3+Fq2QZuj2q6GNxVBR0dXJPl1us4YISzv2q9CUQJ +J17Vbf8wyTdkv9utDsi7UcW6ZWANkw99SJF60ANWoXvnenxXcXXO6TzZk0Ow +EuHxAMMKbrnPLbTmPQJJ1EGhmG9/cGLvOxdjYgzi9fY6twcv4fJ+Wo2F5E/w +tbd2lz2+iDNE/SyNvabAg/TezXn6N/a+ViE+tWcOrH2ad3S+m8dNXYPCK2K/ +Iap0LCbebg7bsx4bkZNfhOIhGUq6xAx2vuE1kB7xByRp6PDphF+48Lh8QDdp +FT7IPbAbGZ3A167tKLad/gtD1TliKirjuN99es5DlAFj8lFKOH8Ub1303Wes +zoy4vVJVFJi/YV6rgI8y+iQUmC9TS1sexv5NGjTv0yS0NpNydmFqGMfeWrTt +PU9CI5ZvPQu7h3FJg65wogMJfdBKqjicPYz3qI5oXXtMQiasLwzNLIfx9uOP +WObbSWinkHgjk8cQXvieeZjHmgXJq8zKv1nox/dkVWcVwliRrYK3d9FAPxaY +iApseMaKXkpvaWus6cda68mKzq9ZEY/AHrc/cf04LElp5msBK1pediw/pt2P +pT+PODKNsqKKohnTyad9eCG/Z3xKnQ2ZH5zx2qPSi882pOoGzLOhiP1erUfE +erHvn5jrsM6G6ndTd5iTezGJ09aGxMmODtEV6nwGe7DNRQ3FVDF2JMlw2NoW +2IO1fKNmHIzZ0QwxnXK7qxuf53Py+pXDjvy0p1uK3LtwxBa/y5r3OFCF7pSR +8uUuDHc/OgmGcCAmg19NmQZduDDD+QzTMw7kafqzIUmiC3fwRHAtZnMgV9ux +2rCGTjz8OyLYYYwDXXswQFiLdWKCM+VUqTEn0m9ozOas7cD3EtaKfPeSUUhL +wx7/Dx14/cjvMk5ERrUd9Zkb8R04MsBk/KUhGR0dqEtf+K8Dq9OMRdZukNGh +mep3AyId+IrJ/YzrKWSkSCtLzHFqxyaTkSdOiXMhvtOZ4WcF2vCftM1xZhIU +9EH6YfFRUhs2ylTx+LmXgoxXr37fO9uKi/7lloVqUVBIgvgBck0rNvVVoHBY +U9DGxNOhYtdWbGTXKtWZSEHj9zwUtnW2YBUfqxNLkpuRo9GTmFLZZrwU3F8R +pEZF7xb1pqKYm7GOzhLrixNUNPKcBTn2NGHbF/VE3QUqOvPd7Qc9uAlbdlyI +tPOlIrhzUcVnohE7prs9b2mgIlrSro7DKQ3YybR07prtFvThT/WW2h1fsMMY +yzEnMxp69P51xaHVOrz7/hU/scs0dOOit0teYx3WzRS1GXOkoR2fD/S9dq3D +zfmOkmmBNBQdlfb2Xm0tXg5WkVQooKG7yk8O7rOvwb2XSDWntnGjMxMOc6mo +Bm96VZBgLcuN9sXrJYnx1WDFLtU/QSrcaIrEwkkt+4y1CgJjtp/kRhfbXTsm +tnzGehk6+gFB3Oiw8/kbCR+rsJmtvXTQKjeiS6vR+R5UYZfCbD0DDh70t4ev +9eH5KlzNcbNdSYAH5Wo1q9xhrcLkZ6BwcT8PkuY+vOm0WSW2Pmr3+OgtHkTO +3vmc8285/nR6dmloiQe96RsL++lfhtXAg3gowot6PflfvthXhq3qe5gPK/Ai +Kv1Y9smRUpw6KxEup8WLXK3etRVBKWaUp3VGX+VFOmN2AiFrn/Cwplnr33xe +NDEzmyh3swivakyO8FvzoW3hYh8G6UWYNtunHOjGh4z3nqyMaCzE1uSxxIOP ++FDhrQ9ja3KFWFzzHUdoCR8KXrktVz+Wj++JF30a2MaP5DatfbxhkYvtyGY8 +BjP86GKSXPV2ci7Wzm1rRmQBFKFt0dle+BG/4Fk3SZIWQGuBJSsa/B/xb1Cl +VVgJoHou74OU1hzcpy26u6FXADFlZBkS3jnYf2cRI3ZNACkbDlveVsjBdc5z +x5aFBVF8uJZv/8NsbN5Skmd3QRB1y3E8OhuWiSdy7Btqfwoi5HA9u3wyA7sM +hjWEUYXQu6wvbbK6GfhnliaVrCyE7iiHCaxtSscb5wKi0H0hJHyI51Wseyrm +evH8lqmUMLpwcltu3+VknK/prKj4XARNLSypuVQlYesH0SKkehHkGd2MqVJJ +WLOSSeTTugiK7/Ot1xp/he+tykQm2WxDufVt1UatCVhWU/soVVMUddACW30j +XuCHzJin8j9RtGCqNpB3Kh7XML2bqngrinjipiYmeOOw6No+6t1eUaQ0/HJR +pPM57lqROrGLQkcnpU4xGT2LwYF/75z9oU5HN+3YKL7mz3Bjr8aonw0dhWcV +CeQJRWPPhxxpkSF0lLVoLznR+xQbXPdbtH5HR01qYntE4iMxOYVwXSyhoxmv +dnXDCxF4H3cct+BnOtpcFahzn/4Ez3Kyp3qW05E5z+3ka/gx3t54ZGkknY6e +xfd+atIKw9H2c5PnAumoU1qrXbkqBL+cja0O0acj3pyUyVidB1jG8drQ7IYo +OqVB3cRcF4A//iUM2BNEUUT1baGrJ/ywvgBSM94lilqM+hQbG33w/kH7sR2p +2xA91y/cNtET3yLN294W3obiao2x0hs3bLUh5OPkK4IEB0RnNlKdsbBxsq/G +d2G0a/SrWvSFG7hHWGax4LAw8umQ6RCpNMDz+UkpUgxBJL9lwI51tzLQnoeK +v7ISRJ3zvi9pK+Ygb/IvaKZaAHlE6ny5oXwT3jpEHW9N4EcbXnfiXu5xgfmA +GT/ZrfzIxy7dvl3uLrjJa5guh/KhSrHgoBc0X7BY+zZdE86L/KMlbqo+8oeP +rwqu+wv/b1+UEvNWriAojXdxUUndimqXZ2RZ2UNBTzIrNbyDB129KmebvxEB +ocbCfd7nuZGuhNs5v4NP4Qf/qJM9OzeSGag0NPaMgpn1Zgm/PBqaNLmgOrn6 +DCx2JXbdEqahL5vf7yo48BwaHgh4zr7agtJq/2z3d4sF8Yq59N9btyD7Q+Ec +9KV4aGFeX2pipSKD1f5/k/sSQFApiSodsBkp5MrOFzi/hPOK6RO3ODajlaff +pmRWEmG676YLXZiCisgeXytckqA37Idy3BUyStzN154lkQxDp/1jfy1xokDj +rJb45mRoHs/caRjCiU5Hj9a7yr4F/3/5KpmfONCcuH6F3MA7EC+r1Zc6yI66 +tMexQEgqdFJCQjVH2VDZVZ9SFtX3QA6xULR7yIYeZuQWDoanQeNP2rOMb6xI +Wk00K0I7E/haBjUSk1gQ5XxBuvd8JkSa0ufkzFnQgtfJ9/YJWTAbaEvaT2VB +ViMVJpKe2WCxR97ukRcJKcgsG6x/zYH3Fy4FzTluQnUfLbVzgnNh90OezD0B +TEizWr5y53AusLU0PjbSZ0LZnataCSp50D8YUmnAy4SiVyPh4WgeiFHH7aMN +GHAFatVtDhZATkHA5WPv14HxRXGv0HwReDXWuia9WQPn/vWsx8eKwVTPITFC +bw3Gp78osCUUg4V2T++ruVVooNnIL+h9grRkBRIrWoXYM893NiaXwM470cVy +v5Zh/wgz/b45hn/3w/w2OS6BQrHZvGIqhgz5TgXlnUsgHZFRNbyKwfPuvUN8 +3xaB61X6/kQDArbfCjbpPrMI/4zN+xkzBJzWIdWS9RZgIDtLFu+tgC3t7eMp ++vPw8ubFqoMFVSBLOtFbc+UXxJ/nzIwaqoIj1cVDSyuTEKOb+2yavRrW+Btj +5sImIVyMfOOFeTW8SRlQR8U/waclj3t9tRoKxOHcisgEWCtutizRrIHHXD5m +95jHQHLu06p6RR0wJosjp4IHwbPxiP/idB1wee4PsWkcgM739dRMoS/wNLLJ +RpBnAEJs+iTF//sCYuKT+SIv+2Cud82AXawe/pNjuSRf0w1l1Wqv2+81gMak +7UkD/XY4F1egZ6/WDNfTiLhhmQrIdYevUjbNwNf4K1tungDqmRrLofBm8Dyx +r+yoK4ZyWtdtk4lmCMrffJ3/XTHwHvEwij/RAjGC2dzeSjngURh7x3etBfTm +C1nPGDrj40k9jYbmbSB/N7/Jub8czwVk2lY7tIFju6HSwW8VOOaaH0PDrw0a +JIzYer9X4ondu/fKZrbBHLtHXdRENX5Q6POUxNIOudKW2pYjdbi2cadFYVY7 +sBd6s+W1tOBjKy4T4uxfoSdCjpys0I2PGvCQlvK6wGWY9jK5cQQ/suacX63r +AqWn7SzV/0ZwtwvT0MZAFywbOM+X7hrFdgkzxRxs3fAndNJGPXgUP5r94rzt +TDd0W8x9vnL4O+5+4jdy5E83eFNZqvMyxrBd52J5hEovuHVe5x28PoEfW3b5 +KBb0w/erZufO+03jwClNGG/oh3+zbwOiM6ax153X63Ej/bD1mPtqdtc0dox0 +uMtOHQCZDqp70K4ZbFhDuj14ZQCqy0UncOsMpu5RvBrKMwgNCzpMRyhz+NHG +A4MJhyFQPqD25JjuPK4xFN1szPMNzjIbBF1+voCnxfm82mJHIV+/+LaT+zJ2 +ub3L+jH/OHjsfSTa27SGu/ppJra1E+DX1ikRxb6Bre5o/mDX/wXs/ndVVy4w +EZW7VEMqWWeAL8LYffEDMyHNWTKRrDsHx/fHHfXp3ESIltw4yvpgHqjGJsmk +IRLBtLYp1XnkNwTwfRG79ZOFWD5ZerFaahHcpMRSHFpZiT5lSxEp/yVAK8mf +5kvYiJtmNG6J/j/AldgyxhbNTgg9/W7OIroCvwQvBpiYchCZFokpC+6roFy9 +Rm4T4iTMDnrr1pauwQuSZAR7LSeRc9FBQv3fXwiLe6K+YkcmVshHSEWm6zBF +PHQt38pFmLRqqIjGbIBGtm3xlfdcBFmDq7zkxQYkvD+jsJzORZQn9544n7QB +RUa2ssFZXISi+x3ruMwN8ByNykvL5SKo2wtChao3wPIb565fZVxEnb3SKN/v +DVBMjcw+1c5FIA7ZcKo+A7hlak41/OUiVv5bEc48yYCPjFqG0QYXkdVX88bA +jAHrr48daGeiEPQs20+hlxjgNWVl1M1KIf6ZJo+T7zDg4JZA4YEtFKIgaftB +9rcMMPew1W2VpBCOm2dr3qYxwFn8ZrOBNIWQdisz0clhgBLdb6xOhkI81btw +LaCEAXm6NpjYTSGc52MjSe0M6F52VUhVpRByFnb0pG4GCHjLKEmoU4hvVWqp +hwcZkBwu/jlWk0IYx3SX3f/5v76BoJchWhSCY9O74+KzDHBMPTLGrE0h8A23 +DmKRAeES3z+561AI1686llZrDLh1IVxyVpdC/P8/gNPnnLbZnKAQ/wM8aBta + + "]]}, Annotation[#, "Charting`Private`Tag$4212189#4"]& ]}}, {}}, { + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, DisplayFunction -> Identity, DisplayFunction -> Identity, + Ticks -> {Automatic, + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0]}, + AxesOrigin -> {0, -4.225253979208682}, FrameTicks -> {{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, + GridLines -> {None, None}, DisplayFunction -> Identity, + PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "ClippingRange" -> {{{-1.999999918367347, + 1.999999918367347}, {-3.597953707140854, + 7.693451190080213}}, {{-1.999999918367347, + 1.999999918367347}, {-3.597953707140854, 7.693451190080213}}}}, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox[ + TagBox["t", HoldForm], TraditionalForm], + FormBox[ + TagBox[ + "\"\\!\\(\\*StyleBox[\\\"\[Chi]\\\",FontSlant->\\\"Italic\\\"]\\)\"", + HoldForm], TraditionalForm]}, AxesOrigin -> {0, 0}, + CoordinatesToolOptions -> {"DisplayFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Part[#, 1], + Exp[ + Part[#, 2]]}& )}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> GrayLevel[0], + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, PlotRange -> {All, All}, PlotRangeClipping -> True, + PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, + Ticks -> {Automatic, Automatic}}], + FormBox[ + FormBox[ + TemplateBox[{ + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-1\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-2\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-4\\)]\\)\""}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + StyleBox["h", { + GrayLevel[0], FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False]}, { + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + 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"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], + Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, + StripOnInput -> False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + + TemplateBox[<| + "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, + "RGBColorSwatchTemplate"], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"]}], ",", + RowBox[{"LegendLabel", "\[Rule]", "h"}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), + Editable -> True], TraditionalForm], TraditionalForm]}, + "Legended", + DisplayFunction->(GridBox[{{ + TagBox[ + ItemBox[ + PaneBox[ + TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, + BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], + "SkipImageSizeLevel"], + ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, + GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + AutoDelete -> False, GridBoxItemSize -> Automatic, + BaselinePosition -> {1, 1}]& ), + Editable->True, + InterpretationFunction->(RowBox[{"Legended", "[", + RowBox[{#, ",", + RowBox[{"Placed", "[", + RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", + CellChangeTimes->{{3.871624407919861*^9, 3.8716244955603247`*^9}, { + 3.871628888535161*^9, 3.8716289223051*^9}, {3.871629457518793*^9, + 3.871629525242256*^9}, {3.8716296137151327`*^9, 3.871629625997673*^9}, { + 3.871629704200838*^9, 3.871629853550775*^9}, {3.871629898460318*^9, + 3.871629914537928*^9}, {3.8716299451102247`*^9, 3.871629954339423*^9}, + 3.871630097238586*^9, 3.871630131562233*^9, {3.871630181745326*^9, + 3.871630254768821*^9}, 3.8716304278287153`*^9, {3.8716312511595173`*^9, + 3.8716312558499823`*^9}, {3.871631307414646*^9, 3.871631326008296*^9}, + 3.8716313890517387`*^9, 3.871633035236746*^9, 3.872232484200904*^9, + 3.8722326877670507`*^9, 3.872232744803054*^9, 3.872232822043681*^9, + 3.87223294392085*^9, {3.872233009055416*^9, 3.872233025832799*^9}, + 3.872233187762746*^9, 3.8722332247040377`*^9, 3.872233388756542*^9, + 3.872233836144418*^9, {3.872233886469149*^9, 3.872233911922018*^9}, + 3.872233954033169*^9, 3.872234657727256*^9, {3.872827739501729*^9, + 3.87282776748412*^9}, {3.875951503161869*^9, 3.875951569735404*^9}, + 3.884691802873703*^9, 3.8846918532524557`*^9, 3.887186743416803*^9, + 3.887186819461278*^9, {3.887186878027606*^9, 3.8871869938232822`*^9}, + 3.887187474086*^9, {3.887187655128037*^9, 3.887187678918461*^9}, + 3.887187744969038*^9, 3.8871877776872168`*^9, {3.887187917169589*^9, + 3.887187949227336*^9}, {3.8871879838276787`*^9, 3.887188010158411*^9}, + 3.887188089249675*^9, {3.887188126546927*^9, 3.887188177721342*^9}, { + 3.8871883124067802`*^9, 3.8871883283898573`*^9}, 3.8932380037534246`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"42596919-1903-49e5-8e75-1a532b575569"] +}, Open ]] +}, Open ]] +}, Open ]] +}, +WindowSize->{628.5, 1010.25}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +FrontEndVersion->"13.2 for Linux x86 (64-bit) (January 31, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3a2ec9ae-362f-42b0-9bfc-c766461c7128" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 318, 6, 24, "Input",ExpressionUUID->"cb2d1f0e-8921-4d60-a098-a74598dfa8f6"], +Cell[879, 28, 209, 3, 22, "Input",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], +Cell[CellGroupData[{ +Cell[1113, 35, 166, 3, 50, "Section",ExpressionUUID->"c6615333-57fa-470a-9d07-45b7998853ef"], +Cell[1282, 40, 1292, 34, 91, "Input",ExpressionUUID->"80831edd-bcaa-4fc0-b1cf-e561a87ed645"], +Cell[CellGroupData[{ +Cell[2599, 78, 3285, 61, 111, "Input",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], +Cell[5887, 141, 29139, 618, 234, "Output",ExpressionUUID->"7e2943f8-381c-42b0-8f9b-5bee0ef91468"] +}, Open ]], +Cell[CellGroupData[{ +Cell[35063, 764, 1662, 39, 144, "Input",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], +Cell[36728, 805, 22174, 481, 186, "Output",ExpressionUUID->"22fc8cc4-070f-4958-a56e-3747a3946f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[58939, 1291, 3554, 72, 186, "Input",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], +Cell[62496, 1365, 4296, 64, 220, "Message",ExpressionUUID->"0a6c061e-9d22-469f-9a77-bdafbf23ad0b"], +Cell[66795, 1431, 4298, 64, 220, "Message",ExpressionUUID->"373d98dd-b1a2-4d6f-95ae-eed0eb8466ed"], +Cell[71096, 1497, 4310, 66, 306, "Message",ExpressionUUID->"dd61bf6b-294b-4bed-aba1-2e9c5e3c51b1"], +Cell[75409, 1565, 494, 11, 22, "Message",ExpressionUUID->"e21c2683-2071-4eaf-8b43-f1a927c53e45"], +Cell[75906, 1578, 21815, 477, 191, "Output",ExpressionUUID->"ff6a7053-cfa6-438c-814c-b29d04a9cf5a"] +}, Open ]], +Cell[97736, 2058, 2498, 66, 75, "Input",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], +Cell[100237, 2126, 483, 8, 22, "Input",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], +Cell[CellGroupData[{ +Cell[100745, 2138, 2207, 48, 119, "Input",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], +Cell[102955, 2188, 38371, 715, 223, "Output",ExpressionUUID->"fd2b4eb1-d3d0-47e3-9856-c74924a73143"] +}, Open ]], +Cell[141341, 2906, 2524, 67, 75, "Input",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], +Cell[143868, 2975, 490, 8, 22, "Input",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], +Cell[CellGroupData[{ +Cell[144383, 2987, 1962, 44, 83, "Input",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], +Cell[146348, 3033, 51438, 932, 181, "Output",ExpressionUUID->"e027c86a-5f73-49af-9682-15a84fa4ac67"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[197835, 3971, 283, 4, 40, "Section",ExpressionUUID->"af69f70f-b3b9-4794-8398-01134650a149"], +Cell[198121, 3977, 2232, 60, 135, "Input",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], +Cell[CellGroupData[{ +Cell[200378, 4041, 2213, 56, 126, "Input",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], +Cell[202594, 4099, 22045, 413, 288, "Output",ExpressionUUID->"9917cd53-ba22-4159-9239-28c8a5b2c68a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224676, 4517, 2283, 58, 126, "Input",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], +Cell[226962, 4577, 13931, 278, 288, "Output",ExpressionUUID->"9950232b-1eb6-4bf2-a1cb-424ab941d88b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240930, 4860, 2405, 61, 142, "Input",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], +Cell[243338, 4923, 24259, 450, 288, "Output",ExpressionUUID->"4fd8761c-1544-4b9d-b5b4-9faa986a6608"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267634, 5378, 5365, 129, 175, "Input",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], +Cell[273002, 5509, 35446, 648, 254, "Output",ExpressionUUID->"f0d6a512-a16b-45e4-a62c-27480dbdbe2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308485, 6162, 4865, 118, 174, "Input",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], +Cell[313353, 6282, 5389, 80, 160, "Message",ExpressionUUID->"50c6b3be-692b-4bb3-b631-dd6ed0112f44"], +Cell[318745, 6364, 4526, 66, 151, "Message",ExpressionUUID->"1390bb82-7e0c-4a82-8be7-3aa0578e2c3d"], +Cell[323274, 6432, 52833, 934, 247, "Output",ExpressionUUID->"5632f44e-d2ee-4570-afa0-630f5721d24c"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[376156, 7372, 389, 12, 40, "Section",ExpressionUUID->"7bcdac80-37e1-4f66-bc64-b0d2db5bf4c3"], +Cell[376548, 7386, 670, 18, 39, "Input",ExpressionUUID->"18ba5487-e161-432a-b28e-40a5d59488df"], +Cell[CellGroupData[{ +Cell[377243, 7408, 155, 3, 41, "Subsection",ExpressionUUID->"732869ab-e280-4316-b799-ffab64c308f3"], +Cell[377401, 7413, 605, 17, 50, "Text",ExpressionUUID->"22825260-2ae9-4101-a1f7-3f6b1bfde9fc"], +Cell[CellGroupData[{ +Cell[378031, 7434, 2322, 64, 144, "Input",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], +Cell[380356, 7500, 44903, 816, 190, "Output",ExpressionUUID->"f282764d-6683-431e-bd66-aff690b1329a"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[425308, 8322, 163, 3, 41, "Subsection",ExpressionUUID->"91682356-0150-4742-8ad7-87c14223ec68"], +Cell[425474, 8327, 712, 19, 54, "Text",ExpressionUUID->"6d8da3cb-bbd1-4fe2-a26c-2969b50861eb"], +Cell[CellGroupData[{ +Cell[426211, 8350, 3588, 81, 144, "Input",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], +Cell[429802, 8433, 34814, 647, 193, "Output",ExpressionUUID->"632547c6-cf8a-4755-9e26-5f9a8c901698"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[464665, 9086, 212, 4, 41, "Subsection",ExpressionUUID->"b265c475-5c2a-4729-88fe-bb9de99d3c77"], +Cell[464880, 9092, 1079, 28, 68, "Text",ExpressionUUID->"78afd124-f9bb-430d-875b-072cdcafc777"], +Cell[CellGroupData[{ +Cell[465984, 9124, 3642, 82, 144, "Input",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], +Cell[469629, 9208, 37930, 698, 194, "Output",ExpressionUUID->"18837f4b-03ee-4fc9-b362-36801a1721f3"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[507608, 9912, 259, 4, 41, "Subsection",ExpressionUUID->"5bc01cd0-6cca-49bc-b33d-929852f4376f"], +Cell[507870, 9918, 813, 21, 54, "Text",ExpressionUUID->"f88209d4-5087-4518-af4c-b36509976c37"], +Cell[CellGroupData[{ +Cell[508708, 9943, 3746, 83, 144, "Input",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], +Cell[512457, 10028, 35544, 664, 194, "Output",ExpressionUUID->"42596919-1903-49e5-8e75-1a532b575569"] +}, Open ]] +}, Open ]] +}, Open ]] +} +] +*) + |