path: root/IsingScalingFunctionExamples.nb

(* 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  ]]
}
]
*)