(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   4419763,      85134]
NotebookOptionsPosition[   4363448,      84237]
NotebookOutlinePosition[   4363873,      84254]
CellTagsIndexPosition[   4363830,      84251]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Initialization", "Title",
 CellChangeTimes->{{3.749839381263875*^9, 
  3.7498393833691797`*^9}},ExpressionUUID->"df6838b3-416f-41aa-8feb-\
92b063181cb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HaToeV", "=", "27.21138602"}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, {
  3.7208034541742477`*^9, 3.720803455246439*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"f66e47c0-50bd-4108-a130-4d3b6eef42b2"],

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<MaTeX`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"MaTeX", ",", 
    RowBox[{"\"\<Preamble\>\"", "\[Rule]", 
     RowBox[{
     "{", "\"\<\\\\usepackage{amssymb,amsmath,latexsym,amsfonts,amsthm,\
mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
  3.733131339213026*^9, 3.733131352923026*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"ff79391f-b0b3-409a-a00a-941dbaf24736"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PlotOptions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.770786681935342*^9, 3.770786715824987*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"fde18561-43e3-4c0a-a95a-b9d4cbabddc8"]
}, Closed]],

Cell[CellGroupData[{

Cell["The Hubbard dimer", "Title",
 CellChangeTimes->{{3.770737439801085*^9, 3.7707374871470633`*^9}, {
  3.771001032942644*^9, 
  3.771001033744092*^9}},ExpressionUUID->"9c2617bc-7813-4cf8-b99a-\
7080e4a61068"],

Cell["\<\
These notes are based on the paper of Carrascal et al. [J. Phys.: Cond. Mat. \
27 (2015) 393001]\
\>", "Text",
 CellChangeTimes->{{3.7710010355081997`*^9, 
  3.7710010483760157`*^9}},ExpressionUUID->"413c3c81-85ff-4454-bff8-\
cf56cbfb864e"],

Cell[CellGroupData[{

Cell["The two views of the Hubbard dimer", "Section",
 CellChangeTimes->{{3.770738357361127*^9, 3.770738375966983*^9}, {
  3.771001083122857*^9, 
  3.771001100772319*^9}},ExpressionUUID->"78a3f160-dbc5-42fe-84c6-\
fd027d5630f1"],

Cell[CellGroupData[{

Cell["Many-body view", "Subsection",
 CellChangeTimes->{{3.771001087621903*^9, 
  3.771001090655921*^9}},ExpressionUUID->"c05480aa-12a8-42bf-9ddf-\
40acaf6125b5"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzs3QdgFGX6x/GQEAKCgkgXlV7tFazn2c9ylkM9y9/u2bt0sNGb2JBmR/Gs
[encoded data, 146644 characters]
evg/4HVs/g==
    "], {{0, 742}, {1016, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVVwdYk9caPv/IJGEFIiAj7CXKEAggI4QVQUCm4CIkIYQRQkIQcVtKFaxb
[encoded data, 4209 characters]
4Hih5n6pEiK8G3zjqEK/3DEFn8u/AWYai14=
      "], "RGB", "XYZ"], Interleaving -> 
    True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{360.58203125, Automatic},
  ImageSizeRaw->{1016, 742},
  PlotRange->{{0, 1016}, {0, 742}}]], "Input",
 CellChangeTimes->{3.770738137882536*^9, 
  3.771001075795389*^9},ExpressionUUID->"a33c358c-7ba2-498f-8b48-\
614f780939eb"]
}, Closed]],

Cell[CellGroupData[{

Cell["DFT view", "Subsection",
 CellChangeTimes->{
  3.771001096621883*^9},ExpressionUUID->"cab6fe9a-e87b-498f-ac4e-\
77c3e76c081f"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQV8VNcSxosTQnBIgrsECG6FUoqFBPeiLV7cactrC7TQFtfiTmlxLe6E
[encoded data, 196115 characters]
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQhyY/D/EIBVR
    "], {{0, 1036}, {
    1008, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVVwdYk9caPv/IJGEFIiAj7CXKEAggI4QVQUCm4CIkIYQRQkIQcVtKFaxb
[encoded data, 4209 characters]
4Hih5n6pEiK8G3zjqEK/3DEFn8u/AWYai14=
      "], "RGB", "XYZ"], Interleaving -> 
    True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{253.3828125, Automatic},
  ImageSizeRaw->{1008, 1036},
  PlotRange->{{0, 1008}, {0, 1036}}]], "Input",ExpressionUUID->"45745601-6db0-\
4b70-9341-555e7abea2c4"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The two-site Hubbard model", "Section",
 CellChangeTimes->{{3.770740437444803*^9, 
  3.770740445816039*^9}},ExpressionUUID->"3294b450-814c-4252-b8db-\
ce6dbf524a45"],

Cell[CellGroupData[{

Cell["Notations", "Subsection",
 CellChangeTimes->{{3.770738378880746*^9, 
  3.7707383816827793`*^9}},ExpressionUUID->"8a627e6a-7231-48ee-864d-\
8b72abff9de8"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnWe0VFW27+947364Y/SXvnd0376tbbqmVgERUbJIzjnnnJEcJIMkyVmy
[encoded data, 202581 characters]
KIqiKIqiKIqiKIqiKIqiKIqiKCXC/wNcMfbZ
    "], {{0, 964}, {530, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVVwdYk9caPv/IJGEFIiAj7CXKEAggI4QVQUCm4CIkIYQRQkIQcVtKFaxb
[encoded data, 4209 characters]
4Hih5n6pEiK8G3zjqEK/3DEFn8u/AWYai14=
      "], "RGB", "XYZ"], Interleaving -> 
    True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{414.87109375, Automatic},
  ImageSizeRaw->{530, 964},
  PlotRange->{{0, 530}, {0, 964}}]], "Input",ExpressionUUID->"21f0b41d-04fa-\
43c7-b2fc-a17549826a12"]
}, Closed]],

Cell[CellGroupData[{

Cell["Exact treatment", "Subsection",
 CellChangeTimes->{{3.7707878201412277`*^9, 
  3.770787832131055*^9}},ExpressionUUID->"ad1bf883-f9e0-409f-913b-\
f1973489bf37"],

Cell[TextData[{
 "This is the exact Hamiltonian of the system expanded in the basis ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[LeftBracketingBar]", "12"}], "\[RightAngleBracket]"}], 
        ",", 
        RowBox[{"\[LeftBracketingBar]", "21"}]}], "\[RightAngleBracket]"}], 
      ",", 
      RowBox[{"\[LeftBracketingBar]", "11"}]}], "\[RightAngleBracket]"}], ",", 
    RowBox[{"\[LeftBracketingBar]", "22"}]}], "\[RightAngleBracket]"}]],
  CellChangeTimes->{{3.769841802182992*^9, 3.769841846847291*^9}, {
   3.7698420472232018`*^9, 3.76984206210172*^9}},ExpressionUUID->
  "8ecdae40-8c41-4db4-b4fb-85df26e477fd"]
}], "Text",
 CellChangeTimes->{{3.770740430119977*^9, 3.7707404571595163`*^9}, {
  3.77074049021978*^9, 
  3.770740512901065*^9}},ExpressionUUID->"4459c1e2-9521-4527-9764-\
2f8dbbbb58c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{
           RowBox[{"2", 
            SubscriptBox["v", "1"]}], "+", "U"}], 
          RowBox[{"-", "t"}], "t", "0"},
         {
          RowBox[{"-", "t"}], "0", "0", 
          RowBox[{"-", "t"}]},
         {"t", "0", "0", "t"},
         {"0", 
          RowBox[{"-", "t"}], "t", 
          RowBox[{
           RowBox[{"2", " ", 
            SubscriptBox["v", "2"]}], "+", "U"}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["v", "1"], "+", 
         SubscriptBox["v", "2"]}], ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"1", "0", "0", "0"},
          {"0", "1", "0", "0"},
          {"0", "0", "1", "0"},
          {"0", "0", "0", "1"}
         }], "\[NoBreak]", ")"}]}], "+", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           RowBox[{
            RowBox[{"-", "\[CapitalDelta]v"}], "+", "U"}], 
           RowBox[{"-", "t"}], "t", "0"},
          {
           RowBox[{"-", "t"}], "0", "0", 
           RowBox[{"-", "t"}]},
          {"t", "0", "0", "t"},
          {"0", 
           RowBox[{"-", "t"}], "t", 
           RowBox[{"\[CapitalDelta]v", "+", "U"}]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}]}], "/.", 
    RowBox[{"\[CapitalDelta]v", "\[Rule]", 
     RowBox[{
      SubscriptBox["v", "2"], "-", 
      SubscriptBox["v", "1"]}]}]}], "/.", 
   RowBox[{
    SubscriptBox["v", "2"], "\[Rule]", 
    RowBox[{"-", 
     SubscriptBox["v", "1"]}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.743416199862018*^9, 3.7434163097907667`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"fc5e52d4-dd9a-4ca1-9e17-f8a5864a3c7a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.743416246611562*^9, 3.743416310233811*^9}, 
   3.7707405607436647`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"0b127627-1c73-48f9-ab29-e3a88449cea4"]
}, Open  ]],

Cell["The eigenstates are three singlets and a triplet state", "Text",
 CellChangeTimes->{
  3.7707405575543537`*^9},ExpressionUUID->"f0ec1282-5519-4bc3-bbc2-\
15b58bc40878"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "\[CapitalDelta]v"}], "+", "U"}], 
       RowBox[{"-", "t"}], "t", "0"},
      {
       RowBox[{"-", "t"}], "0", "0", 
       RowBox[{"-", "t"}]},
      {"t", "0", "0", "t"},
      {"0", 
       RowBox[{"-", "t"}], "t", 
       RowBox[{
        RowBox[{"+", "\[CapitalDelta]v"}], "+", "U"}]}
     }], "\[NoBreak]", ")"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.742143591891686*^9, 3.742143643098735*^9}, {
   3.742143711162705*^9, 3.742143751790244*^9}, {3.74214386049477*^9, 
   3.742143894702511*^9}, 3.742143948530085*^9, {3.7421439959342003`*^9, 
   3.742144010929385*^9}, {3.742144054542838*^9, 3.742144128761544*^9}, {
   3.742144158981474*^9, 3.7421441745085487`*^9}, {3.7421443156919107`*^9, 
   3.7421443369873333`*^9}, {3.74214537586954*^9, 3.742145378154189*^9}, {
   3.742145437080453*^9, 3.742145438731703*^9}, {3.770740842549999*^9, 
   3.7707408980277147`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"e8bc24ca-d63e-4317-8f56-29725dd33e93"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7421436335555153`*^9, 3.742143643535049*^9}, {
   3.7421437146159077`*^9, 3.742143752177957*^9}, 3.74214386265313*^9, 
   3.7421438951046343`*^9, 3.742143949458157*^9, {3.7421439966919127`*^9, 
   3.742144011399296*^9}, {3.742144056385276*^9, 3.742144129259364*^9}, {
   3.74214416072604*^9, 3.742144175107827*^9}, {3.742144316172858*^9, 
   3.742144337356167*^9}, 3.742145378624712*^9, 3.742145439207842*^9, {
   3.770740846565579*^9, 3.770740854990718*^9}, {3.770740887727563*^9, 
   3.770740898513172*^9}, 3.771089812958826*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"7325c05a-1fb2-453d-a7a2-02fd26c61e7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Root", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["t", "2"], " ", "U"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", 
                SuperscriptBox["t", "2"]}], "+", 
               SuperscriptBox["U", "2"], "-", 
               SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], 
            "-", 
            RowBox[{"2", " ", "U", " ", 
             SuperscriptBox["#1", "2"]}], "+", 
            SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], "}"}]}], 
         "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7707865286047983`*^9, 3.770786618520667*^9}, {
  3.7707867224301043`*^9, 3.770786753714794*^9}, {3.770786784417961*^9, 
  3.7707869790649548`*^9}, {3.770789893124645*^9, 3.77078996083567*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"0c9257e5-9766-4e50-b0f4-e8be9fba566e"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwdhwk01AkcgCdTvCiLahIZM44Uk+2QaqTfP7OyzQq7sXqeKNGkQyJHSm0b
xWY7dNBWmNpS6JiiIvr9K5J7GEWLqNHxxvznRkyx7X7vfe97Hzti1y9RBjQa
LfCb//XSgQjDhZEXVjJ6W/deH5RjtYTlG8zaCz2hj4Qvvv3488eHWaxMIAsl
jHlDcjTNvn/HuDMbjiDZUfftL5F/2k5inQfeRK93RcNy5Cgjj48L8sGAt2Bx
42c59pjmjX3puAx3a1Ofzx+Vo8O1ye6j+qvA3OOe06KX4w7PhJ3DtjfAv/tg
vuirHO+19/2t45WA1dbznZJxOY5u9+1WC27D8pRurrsBhQUTujOHvUXw6mJl
VedECn9oOuU41HEX6u7VBj8yovBTrs8TXXQp/OF2bazHmMKsyK+hWn0ZOERa
FxKmFEr0W8+obMuh6kRYQ80MChNrmQuUogpIv+bB+TSLQqvT7Q0UrxJS1zSv
5zMpjHAm6AMCBMdFW182OVFooE9p0e0nYaxjE13JobC9L8hG5/0EaEVDD/0X
UZhcYlKu6XgKQ83MnS2eFPKzPxhqCp5BY/1ZLwWPwtnJTwLV0dUwfXPsWl8+
hSQvSaXU10Dzw6TCmmAKjbreOVG2dTAW7VVelEBhJ1mVIP9UB/HMnVlkKoVF
13KfDYjqwcez6fn0IxT6xfmFy3iN0FIiHknKofDc5IpzHwUtwHVd+sGxisLS
JH5cvKUYck6HHHGppfCibOks7X4xDIuWZsa0UhgjthBovFuhOmaJY8kHCi0u
vjBQd7TBQFPbsQnTFag3vX8jdoUEmtgzbRS2Cuw/dCVAVSCB1VbpnQyOAu8L
DuQpo9vh+02VdrO9FRiy2I2r0L+EdQd2cNR7FSisz989YPsaVrCvUhcUCtTl
ljn3Zr2GqLzoGRnjClwtaJC2jbyGYyYVWx6YKVFOHw6qkPwDeUuC4t4sVuIy
Tz9u5tFuWL2E2LM6VYni218MnJS9YJ//qZtpqkILmBw21bUPnrb6wSVLFXrM
OcM9GtkHh7Qxb7n2Kjyuu6FNae2D/O1hPMkyFbqdehkVUfwWMkID6HuiVHiw
nsNfGC6Fn8YY1QHVKrwuejCn+KwU5l8ZKLwtVmFbrhfdsVEKJV8t5rr0qNBB
sL7Scnk/lEg3rk0aUmE9Pc2VNu09rPIPDwx3ViPDs8ui5fkHEK+b4OGTo8Zb
tzO7drjKQBgFtdw0DcosZFn8TTKYp7+kbMzWoFMif+XcMzIwF7nPjRdqsGCF
iVA6IgN23m/L9Y81mF2XtSWkZgDuNvtQg6MaTJSeUPuEUhA/zyghMVGL+SYN
h829VWBXLQgVpehQAK3n5XFaiDHqffPlzhDGvJ8nLb01AgXzzzDbjunRmJ3m
1LuMRhiqK45aX6eRx80anIUb6YTLvSXcOal0MqIrEOmNhsQh9ndNHoWG5O6a
tIhdTsbEtn2v0s+1TSZFsVPWWa6ZSpwPcCmf2zqFFO7bLlsQbEb4ik1HhkzM
yN/zv/ysk5sTjJkbpjHOmZM0SR9RmTKNSDsR7OxrNY2cs2dLcqDzDGLtszJ/
6yfTyf7BnF9NqhgE58fZl5t9GST//bbU7N2WxCIjVs/T0ZmkX/9JFybTisjQ
tgTcFc4iZc8ifntx05rod9uQjBxr0tX8lQ0v3IZI/xyb+eL1bNIYBjd1a5mE
evh44c1tTNKHChm2C2IRuQpD/8emLLLzaeSEEA6bcCw/VbWhn0WWZVSHsQbZ
BPujV3F9MZvcMimhr7nZjljFNsixT7MjN8ftK5vylz3hayA56elnTzpNKS59
5OtA0P7HgfwXYoPCLQ==
         "]]},
       Annotation[#, "Charting`Private`Tag$30863#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwdxws0lAkfx/HJbLNuibFJrkPuWhXewsb/2ZW8aztO69JtRSSTlEqvJFG7
2cVm7ea1llahLbvKrqaiw1H/xzWMu8ltVFPPM2MaNDNmCKP19u7vnO/5nY9N
zImQw1oMBoP7vv//tYwY1ubYX/12yTZulbdR2DLI2bmHkwr3GN73lt57ue3x
JQ4nB2725tnaP6HQIL/2ru5IPqz68kb2kfe+Rv5gvZJTDIvtG8Vt771BHpu3
zC0F9wY/b6KdwmcG1/9eGr4BupTNd4L3tqvQ2bKouQVxpindlzooPOabfPyt
dSXoBjgaBXdSeF8guqn2rwLtwLhQDz6Fiwk7x5Xcakh6eq/Qo4vCshXjOW8D
eOB3cOhZcDeF27uv2M8N34OwKdr12x4KpUWBjer4B9A3uS1zqJfC3Nh3ESpN
DUSys2Sf9VM4qDlSoLCug7lOlvKYgMIzT6w2yXn1wApeLnYZotDsvwL+tH8D
zHJPxDBHKIxxIZiTXASWOCaONU6hluZcr/o8CU55M1WbnlMoEIVbqgMa4Xi7
kfMZEYVnq/TqZoabYIjlLgwRUxiUL2HNlDWDb84FK9kEhRZnG8OU8S2QMKHm
lcgoJP1TFHJNK+wSayShCgo/FL5ynLbuAK1A/yN67ygcIR8lT0k7IMikQieD
QePtiqLmSV4n6Lt966v/AY3BScFRMv8uMK1RfJOmR2OhTn3hBLcXcpnnrleY
0/ggJSjptGkf6C68nJyzprFEtnWd6nwfXG0dszpkR2NiH5s7E9APLWMth378
mEZ2SbuWcngAtoQ31Xt9SqPGoLby5LZB0Bb5ZsbvoJH++rddirJB4CfM/lz7
BY213Izr8ngBhNU3Prm1m8b9Hp4+bzRP4TvuWenocRrLO0tPTVqPwtOHasmt
chrVRTUuL3JHIcPBpcK7ksYdXD41sDAKR+96NMjv0jjFfBtePzgGGWQb0UzS
6OUb7JOTNQ7E1ham7isa+6qXtBzlL8CAze52dhUjG3QiV7mJgH1QsXXaU4yf
OBT4ZMWKgPxqIFLgJ8Y8daXqXL8IDJNf+hmEitHzytPDMXdeQktAncg9XYwX
OjcEbY6iwCStvDRsRIx/8B463PmZgvOt2vORtBgHij5j2ndRkBrx1eU8hRjt
uHsbTL1pSJRebDqgI8FOZqYbw1gMQ2v9V+E2CZr4Ctm9bRLw9OQUlN+W4F/V
OcJjbjIodJL8/vVvEyhjy3KDomXAC3k0DPcn0PFMkJ9TgQxmrpoPcJonsGyb
Xjm1IIO97s4HvqAmML8jN25/6yQ8+iHeZ7u9FM9QPyoDI6bhgOvU0d5qKZbq
8S8ZBSggc0Xj3PcvXqOfb1rExUgFsIPT9tWqXuN4ouu/5CkKKLkTkLNSW4am
A5clXbcVQCTeD129WYZXinZ+nm2oBIOCX/L7MmV4yb7HYFmohHE3vpG2xyRy
ob94KkkFRh2xBetvTyHjxly98LIKbv577ZqApiks+sBivPOmCuz8/t6cPTaF
7R1xVpVDKnBX1314Wm8ancKWbhz2UcNI6sr00cRplB5xrHq+YhZmWsPlY5+8
waP56Y/7fpqDtbDdwv6NHBPFztSDvxbAPbfwtfOwEkWRo9qNHQtgwrcLOSVV
YuhItls3vQAtxVfI9gUlevEnUsVmixDyfcG+3y1mkMm7ZWiStQhtH+vY2hya
waLzNn4pURpoueajo56ZwUbjdcXehu9goGA8KN1Sjbo2mY4vvBjEmz6+8e7i
Ocwz5LuUH2QS2Wu2KDL+0GCMMAyZXSxisN8y70I7gzzVmhlzwlGXkO6rKsvu
Z5K8k/qhpp+vIuZXR5R41LPI8rQE2aY9hoSZjmCvq0KH/KZ06Uv1lBHx/GS/
MXNBn2QMioiGc8bEad06M838atLhP3Fnw1zWEBTIHj4pNSLp2V926z0yIfQX
H6fKnIzJIPHR9PxTpgRJZLlXCj4ig+mfXK2szAivhtQqYaoJKWuOudj+pznh
RUozCpimpJvRkKV/lCVhnMSKTqheR+rCbPS4yoqQRAl2RIM5GTi9/61tOIdw
uPzy03ClBTnSFLti/wYb4lWGsP/Zr1ZkTXZLJGfWhoiaM6hkr+GQcSuTRT09
tkQwz1zoMM0hDyWl1ehfXU9Yjt1XaT+0ITdyXXt2RtsRLOGyxjDdluxlb9BL
9rYnkud581ph68k9B+oddkvsCcY/syP/BwdGaW8=
         "]]},
       Annotation[#, "Charting`Private`Tag$30863#2"]& ], 
      TagBox[
       {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwdxw0804sex/GxcotyhOTIDHkK6UEnpfL7d4TIUYl01akIC90elCZ6pMIN
ReqQQjq6KT2o9KDy+9OTIYTCf2Njs9ZMG4Ywuu79vl6f1/f1Ngve7xuqTqPR
kib7318/EayxOCTHRSJXZR+Np/Btk6l3gOlReD533D5h0j/flyeYmiYD7XtU
d96ktTOePtRszQBnj8dv6id9nUxlTjXNhgW566t0Eyi0l4ek/WTlgVRNXbln
0u3auROqlgI4afzZo3HSFremLxsdK4SkZaq3Pmco3Ls6+l/DzCI4vPLr3o5J
P24W/K10LYbccpc1p89SOBrpzetjPQB7NZGr0zkK89V4ycNuJfDoh+IILZHC
tR/TLYdaHkHuluc83qQlWR4VyvAnsPfiO3ZtEoUpIePbB8ZK4ZqE51WfTGHT
2J5MBfMFXHUOKNROofDIB5NF8pIysDLY6bg+lUKjS801va6v4Lu0TCMnjcJg
W4Lew0IIs7FLPZxOofpYbL3yGAlLbhavm8igsFngz1C6VYB06/bAnEwKY4q1
XvS3VIJQcfnSL1kUemWINfrz34BCtuWdOJtC45gKv77wt6AR9yToUw6FpCtb
IR97B2sb7PoEeRT+g9tl3cvkQOzu4TnS2xS2kq+jZRIOXJEMef55l8I7t7Le
9JRUg3GEi5HoHoU+UT47pa61sOcc57H9YwqvTC+78pVVD4b8zDt3yil8wvaK
OmTYAA/Xqt97WUHhNanTrwPHGqDArv+C4C2F+xp0Wf1un2BxfbNxWA2Futeq
1PtaGkES8zM0qI3CMe2nRQdWNcFVN5cTuu0Uik7f3KjIb4KXHFpVi4DCp6wT
ufLwZmhmqzPyJBQGOi51/j72GSb4HH3zEQpvVOcd7GG2ge25V2ummHBRmVVq
y09pA+nHG5si5nHRnVUjbBxpA/acRN1vNlyU0Yf9y5ooeCUOUC5aysXlq32c
kxN5cH+6Z5hsPRcbHqjUreV86F9y+bLFKS7qwvQdMx0EMCOn5iAzkYsrrTKd
E0ME8Pni1G1L07iYpiwaiP0kgCzm22fF17i4NP1zaPDdTsi9tiiUKuPiyWp7
r8U7hSB6s3b2GhUXb5c8s7p7WQgPLMzNv03hYWPW73TLWiHEd4z1F8/koQVr
6yvDFSKovv77tiQmD6vpZxxoet3w9Dy7NH0tDw1Wc3Xr34tB0y7FUyuTh4RF
mHzduBguMPRfn8jlYbhWX02l41f4EDVbS6eIh6/aNM4+zf8K5Ro5nJRyHgYf
WTJ8PVYCMdbLZP1SHt5/kMzd6yAF1hB8v+TZjlJdaYpXkBRmE32Kef7taH3E
y8UmUwrsAh2zhl3tmL9K64ZwRArMtJrLx2PaMYOTEhb4rgfimJeeLSpqxyPC
C30e23tB1ajQNtTpwEfuigLLC71wWuvUcByjA+VFG/3olb3gk5wcNGHbgXsO
zHpWbv0dDL/c/+dO9w4MHM849tvAd/izPn/dlRMdmKdVkzDLTQFTTssuqJQd
6LI6bvupHQoYPRoq2jaFj7x9dr/J2QpgC65u4+nx0bDxvLj2jgKqadyQNY58
TM/y9kzS6YNAG+bn/EN8TLCs0/7J7YNzC+4Vt4/ykQWfsmVRAxBf2HZnY4YA
aQVDZdzzA7Dk0Bo37WsCzJpizKv+ewCMugNedBQKsIoTZlL0ZQDsswfTn78Q
oI2fqiDUWQmVsqoK3y4BSvZYF3eoDYJX6sd1Tk6dGJFxvLzh4hAkSWx+RCs6
UX2wgI9FQxCiuh5IqjrxakAV7UHlEPg0uzeZTu/CamM911TlEARzNx+0MO9C
u//c/uC5dRiCOXM9Vvh3oexlU0Ml8wdEbFDFP8Qu3Nc9X/jk/ghkRLJ2p9wS
omBH27QKzgi4q/LYhs+EuLk1yeGjaAR+6C/fVvlBiMtrvh7tNhqFL/l6Mw98
EyK9pFDHIHEUXkbdZS9zEGHWMTMX9s4xCOVYnkt+LcIKvV+zV+iMw+iyu4Wa
ym5cmlpV7mY3DnwsNEiaJsZbGjGiTe7j4KB265EVQ4wpI18WRhwbh7Su5vIP
7mLcws98f1UyDiV2m/xycsQovaOjHCMnIN9w/rqs9V9R0+yMNX85jfDeIDH5
450Eq1alLzzhRiMab1pTYTwJntua68TwpRE3gh1EuQMSVL/43GNbJI2ICKlX
hJt/w9EJGavlOo3Iv/TYZu/pb9jD879dr65G+JSuYJu5SbE2y3o+WatGbE98
+MZZ2INpOjW2N3bRiar4pGGdGDm+cGKU+uyjE5uu2DYwsuUo2rEfVHF0Qp/T
abu+TI4r7+n5BfxFJyLZT/s1xuUo8dx+fGYdnWAwNN//XKNA14Te+qMrpxDP
u+d1ymoU+GPwl2hfg6nE4fEujkVPHwZz/ZBeq0H4zly422CzEg++OxO831qT
MG8f++ibNoIlB2ZsNvScSRhE3Z0a0j6BN+IipYsCdIjOBXM3iKPVyfg81Sal
bBZx32RvlH7QVJLWJCBexeoRMb4JSzd6TyOtDofF+NnOJlr8oSopXosUDf61
Reu1AWFlqdZ0MFmb9OqOOJ5x0JBw8RCnv+/RIX1EF+1MTIwIojLTNTJVl5S+
CT5VdW8ucThul1O8vj7pMOsLw3Ungzic1/xRq3w2qQmDQbwBE4L3Iaqb8J5D
evQGDpv7mxImLrl/3FQZkq2VIWqB9mYEuXxFqqjQiCxNervDdNCMiDV2nmbr
aEyGTY0W1NWZE9prc2aHdDHI3VFxpTOuziOc82oiwqOZ5EKWXZ13kAXROhwe
EnnKlKzXtdeKXmFJ9Dq+jtUJMCNf3o/PsadbEQYHkvRPMs3JODXbjbXtVsS/
i87KWn+Yk5q82HX7nlgT2tE5dlvq5pFGvYrWLWJrgvb/WZD/BTiihAk=
         "]]},
       Annotation[#, "Charting`Private`Tag$30863#3"]& ], 
      TagBox[
       {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwd0nk41G0XwPFhrGMbIx5J1lARLXpIy32XKEseCQkpIilpL6S0eF5LlKQS
[encoded data, 4392 characters]
E3e832qG6TKcW5sU9vWswqT/zzLGfwHlj8r4
         "]]},
       Annotation[#, "Charting`Private`Tag$30863#4"]& ], 
      TagBox[
       {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwd1nk41N37B/CxpKJ6bCHEjJlSstUUkfrcqRSppye0IEWWFtlKoaSSUBSy
[encoded data, 6405 characters]
T1WYnGRC/x5lHf/fdPLTq8/SGtNMoPz/YpD/A2+Vxj0=
         "]]},
       Annotation[#, "Charting`Private`Tag$30863#5"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.99}], ImageScaled[{1, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-10., 
         FormBox[
          RowBox[{"-", "10"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-8., 
         FormBox[
          RowBox[{"-", "8"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-6., 
         FormBox[
          RowBox[{"-", "6"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-4., 
         FormBox[
          RowBox[{"-", "4"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox["5", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {15., 
         FormBox["15", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {20., 
         FormBox["20", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{All, {-10, 0}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwdhwk01AkcgCdTvCiLahIZM44Uk+2QaqTfP7OyzQq7sXqeKNGkQyJHSm0b
xWY7dNBWmNpS6JiiIvr9K5J7GEWLqNHxxvznRkyx7X7vfe97Hzti1y9RBjQa
LfCb//XSgQjDhZEXVjJ6W/deH5RjtYTlG8zaCz2hj4Qvvv3488eHWaxMIAsl
jHlDcjTNvn/HuDMbjiDZUfftL5F/2k5inQfeRK93RcNy5Cgjj48L8sGAt2Bx
42c59pjmjX3puAx3a1Ofzx+Vo8O1ye6j+qvA3OOe06KX4w7PhJ3DtjfAv/tg
vuirHO+19/2t45WA1dbznZJxOY5u9+1WC27D8pRurrsBhQUTujOHvUXw6mJl
VedECn9oOuU41HEX6u7VBj8yovBTrs8TXXQp/OF2bazHmMKsyK+hWn0ZOERa
FxKmFEr0W8+obMuh6kRYQ80MChNrmQuUogpIv+bB+TSLQqvT7Q0UrxJS1zSv
5zMpjHAm6AMCBMdFW182OVFooE9p0e0nYaxjE13JobC9L8hG5/0EaEVDD/0X
UZhcYlKu6XgKQ83MnS2eFPKzPxhqCp5BY/1ZLwWPwtnJTwLV0dUwfXPsWl8+
hSQvSaXU10Dzw6TCmmAKjbreOVG2dTAW7VVelEBhJ1mVIP9UB/HMnVlkKoVF
13KfDYjqwcez6fn0IxT6xfmFy3iN0FIiHknKofDc5IpzHwUtwHVd+sGxisLS
JH5cvKUYck6HHHGppfCibOks7X4xDIuWZsa0UhgjthBovFuhOmaJY8kHCi0u
vjBQd7TBQFPbsQnTFag3vX8jdoUEmtgzbRS2Cuw/dCVAVSCB1VbpnQyOAu8L
DuQpo9vh+02VdrO9FRiy2I2r0L+EdQd2cNR7FSisz989YPsaVrCvUhcUCtTl
ljn3Zr2GqLzoGRnjClwtaJC2jbyGYyYVWx6YKVFOHw6qkPwDeUuC4t4sVuIy
Tz9u5tFuWL2E2LM6VYni218MnJS9YJ//qZtpqkILmBw21bUPnrb6wSVLFXrM
OcM9GtkHh7Qxb7n2Kjyuu6FNae2D/O1hPMkyFbqdehkVUfwWMkID6HuiVHiw
nsNfGC6Fn8YY1QHVKrwuejCn+KwU5l8ZKLwtVmFbrhfdsVEKJV8t5rr0qNBB
sL7Scnk/lEg3rk0aUmE9Pc2VNu09rPIPDwx3ViPDs8ui5fkHEK+b4OGTo8Zb
tzO7drjKQBgFtdw0DcosZFn8TTKYp7+kbMzWoFMif+XcMzIwF7nPjRdqsGCF
iVA6IgN23m/L9Y81mF2XtSWkZgDuNvtQg6MaTJSeUPuEUhA/zyghMVGL+SYN
h829VWBXLQgVpehQAK3n5XFaiDHqffPlzhDGvJ8nLb01AgXzzzDbjunRmJ3m
1LuMRhiqK45aX6eRx80anIUb6YTLvSXcOal0MqIrEOmNhsQh9ndNHoWG5O6a
tIhdTsbEtn2v0s+1TSZFsVPWWa6ZSpwPcCmf2zqFFO7bLlsQbEb4ik1HhkzM
yN/zv/ysk5sTjJkbpjHOmZM0SR9RmTKNSDsR7OxrNY2cs2dLcqDzDGLtszJ/
6yfTyf7BnF9NqhgE58fZl5t9GST//bbU7N2WxCIjVs/T0ZmkX/9JFybTisjQ
tgTcFc4iZc8ifntx05rod9uQjBxr0tX8lQ0v3IZI/xyb+eL1bNIYBjd1a5mE
evh44c1tTNKHChm2C2IRuQpD/8emLLLzaeSEEA6bcCw/VbWhn0WWZVSHsQbZ
BPujV3F9MZvcMimhr7nZjljFNsixT7MjN8ftK5vylz3hayA56elnTzpNKS59
5OtA0P7HgfwXYoPCLQ==
           "]]}, "Charting`Private`Tag$30863#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwdxws0lAkfx/HJbLNuibFJrkPuWhXewsb/2ZW8aztO69JtRSSTlEqvJFG7
2cVm7ea1llahLbvKrqaiw1H/xzWMu8ltVFPPM2MaNDNmCKP19u7vnO/5nY9N
zImQw1oMBoP7vv//tYwY1ubYX/12yTZulbdR2DLI2bmHkwr3GN73lt57ue3x
JQ4nB2725tnaP6HQIL/2ru5IPqz68kb2kfe+Rv5gvZJTDIvtG8Vt771BHpu3
zC0F9wY/b6KdwmcG1/9eGr4BupTNd4L3tqvQ2bKouQVxpindlzooPOabfPyt
dSXoBjgaBXdSeF8guqn2rwLtwLhQDz6Fiwk7x5Xcakh6eq/Qo4vCshXjOW8D
eOB3cOhZcDeF27uv2M8N34OwKdr12x4KpUWBjer4B9A3uS1zqJfC3Nh3ESpN
DUSys2Sf9VM4qDlSoLCug7lOlvKYgMIzT6w2yXn1wApeLnYZotDsvwL+tH8D
zHJPxDBHKIxxIZiTXASWOCaONU6hluZcr/o8CU55M1WbnlMoEIVbqgMa4Xi7
kfMZEYVnq/TqZoabYIjlLgwRUxiUL2HNlDWDb84FK9kEhRZnG8OU8S2QMKHm
lcgoJP1TFHJNK+wSayShCgo/FL5ynLbuAK1A/yN67ygcIR8lT0k7IMikQieD
QePtiqLmSV4n6Lt966v/AY3BScFRMv8uMK1RfJOmR2OhTn3hBLcXcpnnrleY
0/ggJSjptGkf6C68nJyzprFEtnWd6nwfXG0dszpkR2NiH5s7E9APLWMth378
mEZ2SbuWcngAtoQ31Xt9SqPGoLby5LZB0Bb5ZsbvoJH++rddirJB4CfM/lz7
BY213Izr8ngBhNU3Prm1m8b9Hp4+bzRP4TvuWenocRrLO0tPTVqPwtOHasmt
chrVRTUuL3JHIcPBpcK7ksYdXD41sDAKR+96NMjv0jjFfBtePzgGGWQb0UzS
6OUb7JOTNQ7E1ham7isa+6qXtBzlL8CAze52dhUjG3QiV7mJgH1QsXXaU4yf
OBT4ZMWKgPxqIFLgJ8Y8daXqXL8IDJNf+hmEitHzytPDMXdeQktAncg9XYwX
OjcEbY6iwCStvDRsRIx/8B463PmZgvOt2vORtBgHij5j2ndRkBrx1eU8hRjt
uHsbTL1pSJRebDqgI8FOZqYbw1gMQ2v9V+E2CZr4Ctm9bRLw9OQUlN+W4F/V
OcJjbjIodJL8/vVvEyhjy3KDomXAC3k0DPcn0PFMkJ9TgQxmrpoPcJonsGyb
Xjm1IIO97s4HvqAmML8jN25/6yQ8+iHeZ7u9FM9QPyoDI6bhgOvU0d5qKZbq
8S8ZBSggc0Xj3PcvXqOfb1rExUgFsIPT9tWqXuN4ouu/5CkKKLkTkLNSW4am
A5clXbcVQCTeD129WYZXinZ+nm2oBIOCX/L7MmV4yb7HYFmohHE3vpG2xyRy
ob94KkkFRh2xBetvTyHjxly98LIKbv577ZqApiks+sBivPOmCuz8/t6cPTaF
7R1xVpVDKnBX1314Wm8ancKWbhz2UcNI6sr00cRplB5xrHq+YhZmWsPlY5+8
waP56Y/7fpqDtbDdwv6NHBPFztSDvxbAPbfwtfOwEkWRo9qNHQtgwrcLOSVV
YuhItls3vQAtxVfI9gUlevEnUsVmixDyfcG+3y1mkMm7ZWiStQhtH+vY2hya
waLzNn4pURpoueajo56ZwUbjdcXehu9goGA8KN1Sjbo2mY4vvBjEmz6+8e7i
Ocwz5LuUH2QS2Wu2KDL+0GCMMAyZXSxisN8y70I7gzzVmhlzwlGXkO6rKsvu
Z5K8k/qhpp+vIuZXR5R41LPI8rQE2aY9hoSZjmCvq0KH/KZ06Uv1lBHx/GS/
MXNBn2QMioiGc8bEad06M838atLhP3Fnw1zWEBTIHj4pNSLp2V926z0yIfQX
H6fKnIzJIPHR9PxTpgRJZLlXCj4ig+mfXK2szAivhtQqYaoJKWuOudj+pznh
RUozCpimpJvRkKV/lCVhnMSKTqheR+rCbPS4yoqQRAl2RIM5GTi9/61tOIdw
uPzy03ClBTnSFLti/wYb4lWGsP/Zr1ZkTXZLJGfWhoiaM6hkr+GQcSuTRT09
tkQwz1zoMM0hDyWl1ehfXU9Yjt1XaT+0ITdyXXt2RtsRLOGyxjDdluxlb9BL
9rYnkud581ph68k9B+oddkvsCcY/syP/BwdGaW8=
           "]]}, 
         "Charting`Private`Tag$30863#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwdxw0804sex/GxcotyhOTIDHkK6UEnpfL7d4TIUYl01akIC90elCZ6pMIN
ReqQQjq6KT2o9KDy+9OTIYTCf2Njs9ZMG4Ywuu79vl6f1/f1Ngve7xuqTqPR
kib7318/EayxOCTHRSJXZR+Np/Btk6l3gOlReD533D5h0j/flyeYmiYD7XtU
d96ktTOePtRszQBnj8dv6id9nUxlTjXNhgW566t0Eyi0l4ek/WTlgVRNXbln
0u3auROqlgI4afzZo3HSFremLxsdK4SkZaq3Pmco3Ls6+l/DzCI4vPLr3o5J
P24W/K10LYbccpc1p89SOBrpzetjPQB7NZGr0zkK89V4ycNuJfDoh+IILZHC
tR/TLYdaHkHuluc83qQlWR4VyvAnsPfiO3ZtEoUpIePbB8ZK4ZqE51WfTGHT
2J5MBfMFXHUOKNROofDIB5NF8pIysDLY6bg+lUKjS801va6v4Lu0TCMnjcJg
W4Lew0IIs7FLPZxOofpYbL3yGAlLbhavm8igsFngz1C6VYB06/bAnEwKY4q1
XvS3VIJQcfnSL1kUemWINfrz34BCtuWdOJtC45gKv77wt6AR9yToUw6FpCtb
IR97B2sb7PoEeRT+g9tl3cvkQOzu4TnS2xS2kq+jZRIOXJEMef55l8I7t7Le
9JRUg3GEi5HoHoU+UT47pa61sOcc57H9YwqvTC+78pVVD4b8zDt3yil8wvaK
OmTYAA/Xqt97WUHhNanTrwPHGqDArv+C4C2F+xp0Wf1un2BxfbNxWA2Futeq
1PtaGkES8zM0qI3CMe2nRQdWNcFVN5cTuu0Uik7f3KjIb4KXHFpVi4DCp6wT
ufLwZmhmqzPyJBQGOi51/j72GSb4HH3zEQpvVOcd7GG2ge25V2ummHBRmVVq
y09pA+nHG5si5nHRnVUjbBxpA/acRN1vNlyU0Yf9y5ooeCUOUC5aysXlq32c
kxN5cH+6Z5hsPRcbHqjUreV86F9y+bLFKS7qwvQdMx0EMCOn5iAzkYsrrTKd
E0ME8Pni1G1L07iYpiwaiP0kgCzm22fF17i4NP1zaPDdTsi9tiiUKuPiyWp7
r8U7hSB6s3b2GhUXb5c8s7p7WQgPLMzNv03hYWPW73TLWiHEd4z1F8/koQVr
6yvDFSKovv77tiQmD6vpZxxoet3w9Dy7NH0tDw1Wc3Xr34tB0y7FUyuTh4RF
mHzduBguMPRfn8jlYbhWX02l41f4EDVbS6eIh6/aNM4+zf8K5Ro5nJRyHgYf
WTJ8PVYCMdbLZP1SHt5/kMzd6yAF1hB8v+TZjlJdaYpXkBRmE32Kef7taH3E
y8UmUwrsAh2zhl3tmL9K64ZwRArMtJrLx2PaMYOTEhb4rgfimJeeLSpqxyPC
C30e23tB1ajQNtTpwEfuigLLC71wWuvUcByjA+VFG/3olb3gk5wcNGHbgXsO
zHpWbv0dDL/c/+dO9w4MHM849tvAd/izPn/dlRMdmKdVkzDLTQFTTssuqJQd
6LI6bvupHQoYPRoq2jaFj7x9dr/J2QpgC65u4+nx0bDxvLj2jgKqadyQNY58
TM/y9kzS6YNAG+bn/EN8TLCs0/7J7YNzC+4Vt4/ykQWfsmVRAxBf2HZnY4YA
aQVDZdzzA7Dk0Bo37WsCzJpizKv+ewCMugNedBQKsIoTZlL0ZQDsswfTn78Q
oI2fqiDUWQmVsqoK3y4BSvZYF3eoDYJX6sd1Tk6dGJFxvLzh4hAkSWx+RCs6
UX2wgI9FQxCiuh5IqjrxakAV7UHlEPg0uzeZTu/CamM911TlEARzNx+0MO9C
u//c/uC5dRiCOXM9Vvh3oexlU0Ml8wdEbFDFP8Qu3Nc9X/jk/ghkRLJ2p9wS
omBH27QKzgi4q/LYhs+EuLk1yeGjaAR+6C/fVvlBiMtrvh7tNhqFL/l6Mw98
EyK9pFDHIHEUXkbdZS9zEGHWMTMX9s4xCOVYnkt+LcIKvV+zV+iMw+iyu4Wa
ym5cmlpV7mY3DnwsNEiaJsZbGjGiTe7j4KB265EVQ4wpI18WRhwbh7Su5vIP
7mLcws98f1UyDiV2m/xycsQovaOjHCMnIN9w/rqs9V9R0+yMNX85jfDeIDH5
450Eq1alLzzhRiMab1pTYTwJntua68TwpRE3gh1EuQMSVL/43GNbJI2ICKlX
hJt/w9EJGavlOo3Iv/TYZu/pb9jD879dr65G+JSuYJu5SbE2y3o+WatGbE98
+MZZ2INpOjW2N3bRiar4pGGdGDm+cGKU+uyjE5uu2DYwsuUo2rEfVHF0Qp/T
abu+TI4r7+n5BfxFJyLZT/s1xuUo8dx+fGYdnWAwNN//XKNA14Te+qMrpxDP
u+d1ymoU+GPwl2hfg6nE4fEujkVPHwZz/ZBeq0H4zly422CzEg++OxO831qT
MG8f++ibNoIlB2ZsNvScSRhE3Z0a0j6BN+IipYsCdIjOBXM3iKPVyfg81Sal
bBZx32RvlH7QVJLWJCBexeoRMb4JSzd6TyOtDofF+NnOJlr8oSopXosUDf61
Reu1AWFlqdZ0MFmb9OqOOJ5x0JBw8RCnv+/RIX1EF+1MTIwIojLTNTJVl5S+
CT5VdW8ucThul1O8vj7pMOsLw3Ungzic1/xRq3w2qQmDQbwBE4L3Iaqb8J5D
evQGDpv7mxImLrl/3FQZkq2VIWqB9mYEuXxFqqjQiCxNervDdNCMiDV2nmbr
aEyGTY0W1NWZE9prc2aHdDHI3VFxpTOuziOc82oiwqOZ5EKWXZ13kAXROhwe
EnnKlKzXtdeKXmFJ9Dq+jtUJMCNf3o/PsadbEQYHkvRPMs3JODXbjbXtVsS/
i87KWn+Yk5q82HX7nlgT2tE5dlvq5pFGvYrWLWJrgvb/WZD/BTiihAk=
           "]]}, 
         "Charting`Private`Tag$30863#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwd0nk41G0XwPFhrGMbIx5J1lARLXpIy32XKEseCQkpIilpL6S0eF5LlKQS
[encoded data, 4392 characters]
E3e832qG6TKcW5sU9vWswqT/zzLGfwHlj8r4
           "]]}, 
         "Charting`Private`Tag$30863#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwd1nk41N37B/CxpKJ6bCHEjJlSstUUkfrcqRSppye0IEWWFtlKoaSSUBSy
[encoded data, 6405 characters]
T1WYnGRC/x5lHf/fdPLTq8/SGtNMoPz/YpD/A2+Vxj0=
           "]]}, 
         "Charting`Private`Tag$30863#5"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
      All, DisplayFunction -> Identity, AspectRatio -> 1, 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E", None}, {"\[CapitalDelta]v", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {All, {-10, 0}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770786608999598*^9, 3.7707866190752363`*^9}, {
   3.770786725541378*^9, 3.7707867548573513`*^9}, {3.770786785017281*^9, 
   3.7707869366691103`*^9}, 3.7707869798282413`*^9, {3.770789906968954*^9, 
   3.7707899613480473`*^9}},
 CellLabel->
  "Out[153]=",ExpressionUUID->"2bff8305-057b-48ab-b1e8-07cfccf6869a"]
}, Open  ]],

Cell["\<\
Their exact energies is complicated but can be obtained in closed form (see \
Appendix A)\
\>", "Text",
 CellChangeTimes->{{3.770773600858186*^9, 
  3.7707736255557413`*^9}},ExpressionUUID->"22b2083c-b560-418d-951c-\
765afd1b6a38"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]", "\[Equal]", 
    FractionBox["\[CapitalEpsilon]", 
     RowBox[{"2", "t"}]]}], ";", "\t", 
   RowBox[{"\[Nu]", "\[Equal]", " ", 
    FractionBox["\[CapitalDelta]v", 
     RowBox[{"2", "t"}]]}], ";", "\t", 
   RowBox[{"u", "\[Equal]", 
    FractionBox["U", 
     RowBox[{"2", "t"}]]}], ";"}], "\t"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "\[Equal]", 
   RowBox[{
    FractionBox["2", "3"], 
    RowBox[{"(", 
     RowBox[{"u", "-", 
      RowBox[{"w", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "+", 
         FractionBox["\[Pi]", "6"]}], "]"}]}]}], ")"}]}]}], ";", "\t", 
  RowBox[{"w", "\[Equal]", 
   SqrtBox[
    RowBox[{
     RowBox[{"3", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[Nu]", "2"]}], ")"}]}], "+", 
     SuperscriptBox["u", "2"]}]]}], ";", "\t", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"3", "\[Theta]"}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", 
         FractionBox["1", "2"]}], ")"}]}], "-", 
      SuperscriptBox["u", "2"]}], ")"}], 
    FractionBox["u", 
     SuperscriptBox["w", "3"]]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7423040482182827`*^9, 3.742304365438295*^9}, {
   3.7423045681999693`*^9, 3.742304572760474*^9}, {3.742304932827557*^9, 
   3.74230509409687*^9}, {3.742305151167214*^9, 3.742305156244795*^9}, 
   3.742305295539606*^9, {3.742306731669509*^9, 3.742306751738092*^9}, {
   3.742306782129854*^9, 3.742306792570657*^9}, 3.742306876282045*^9, 
   3.742315693414629*^9, {3.770741043756151*^9, 3.770741066817071*^9}, {
   3.770773763976019*^9, 3.770773791825453*^9}, {3.770787223567017*^9, 
   3.770787226548905*^9}, {3.770787568733348*^9, 3.770787631673558*^9}, {
   3.770787677613637*^9, 3.770787680580389*^9}, {3.7773470004982023`*^9, 
   3.777347000722836*^9}},ExpressionUUID->"304058af-372f-46d3-8990-\
35bbe8a5fcf0"],

Cell[BoxData[
 FrameBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"\[LeftBracketingBar]", "\[Psi]"}], 
             "\[RightAngleBracket]"}], "\[Equal]", 
            RowBox[{"\[Alpha]", 
             RowBox[{"(", 
              RowBox[{"\[LeftBracketingBar]", "12"}]}]}]}], 
           "\[RightAngleBracket]"}], "+", 
          RowBox[{"\[LeftBracketingBar]", "21"}]}], "\[RightAngleBracket]"}], 
        ")"}], "+", 
       RowBox[{
        SubscriptBox["\[Beta]", "1"], 
        RowBox[{"\[LeftBracketingBar]", "11"}]}]}], "\[RightAngleBracket]"}], 
     "+", 
     RowBox[{
      SubscriptBox["\[Beta]", "2"], 
      RowBox[{"\[LeftBracketingBar]", "22"}]}]}], "\[RightAngleBracket]"}], 
   ";", "\t", 
   RowBox[{
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
     SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}]]], "Input",\

 CellChangeTimes->{{3.769841802182992*^9, 3.769841846847291*^9}, {
   3.7698420472232018`*^9, 3.76984206210172*^9}, 
   3.7707876946275673`*^9},ExpressionUUID->"971084cf-62a0-43db-aa6f-\
7e6c17a43b0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["u", "\[Epsilon]"]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "1"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "+", "\[Nu]"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "2"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "-", "\[Nu]"}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.769856907491734*^9, 
  3.769856957206769*^9}},ExpressionUUID->"227afb56-178f-4bea-b36d-\
6bdaf2eb91d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]n", "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SuperscriptBox["c", 
    RowBox[{"-", "2"}]], "\[Equal]", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Nu]", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7697492821883307`*^9, 3.76974929981513*^9}, {
  3.769749592277866*^9, 3.769749608405692*^9}, {3.769842070462558*^9, 
  3.769842073438758*^9}, {3.770787703634163*^9, 
  3.770787726089631*^9}},ExpressionUUID->"e479baef-6cfa-4814-bea8-\
7e485d5c874f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], "+", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"4", 
     SuperscriptBox["c", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"]}], "\[Epsilon]"]}], ";", 
  "\t", 
  RowBox[{
   SubscriptBox["V", "ee"], "\[Equal]", 
   RowBox[{"U", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "t", " ", "u", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], "+", 
      SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{"V", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "\[CapitalDelta]v"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"\[CapitalDelta]v", " ", "\[CapitalDelta]n"}], "2"]}], ";", "\t", 
  
  RowBox[{"\[CapitalEpsilon]", "\[Equal]", 
   RowBox[{"T", "+", 
    SubscriptBox["V", "ee"], "+", "V"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.76984184954419*^9, 3.7698419288661757`*^9}, {
  3.769842024390863*^9, 3.7698420690548353`*^9}, {3.770787735657688*^9, 
  3.7707878004617043`*^9}},ExpressionUUID->"090a6ff9-5f7a-43eb-b4ab-\
d74d1d2db662"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"4", 
             SuperscriptBox["c", "2"], "\[Nu]", 
             RowBox[{"(", 
              RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}], "]"}], "/.", 
           RowBox[{"c", "\[Rule]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["\[Nu]", "2"], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    SuperscriptBox["\[Epsilon]", 
                    RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}], ")"}], 
             RowBox[{
              RowBox[{"-", "1"}], "/", "2"}]]}]}], "/.", 
          RowBox[{"\[Epsilon]", "\[Rule]", 
           FractionBox[
            RowBox[{"Root", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["t", "2"], " ", "U"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "4"}], " ", 
                    SuperscriptBox["t", "2"]}], "+", 
                   SuperscriptBox["U", "2"], "-", 
                   SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", 
                 "#1"}], "-", 
                RowBox[{"2", " ", "U", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
                SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            RowBox[{"2", "t"}]]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"u", "\[Rule]", 
            FractionBox["U", 
             RowBox[{"2", "t"}]]}], ",", 
           RowBox[{"\[Nu]", "\[Rule]", 
            FractionBox["\[CapitalDelta]v", 
             RowBox[{"2", "t"}]]}]}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], "}"}]}], 
         "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[CapitalDelta]v\>\"", ",", "\"\<|\[CapitalDelta]n|\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.770787282569746*^9, 3.770787447191267*^9}, {
   3.770787478182867*^9, 3.770787536221547*^9}, {3.770789864338099*^9, 
   3.7707898831575127`*^9}, {3.77108976532802*^9, 3.771089782974641*^9}, 
   3.771089818471983*^9, {3.771090245716796*^9, 3.771090298011766*^9}, 
   3.771090598536594*^9, 3.771208864580591*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"f7b3d1c9-0446-4aff-b152-c4559f8aaacd"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk41GsbB3Bryc5kTUgxGbtJSLnvCC2SLClpU7KVIsqeQ8KJyKEkJUsi
[encoded data, 5124 characters]
zC0t0ZGzNPtXKun/ATkGn0c=
         "]]},
       Annotation[#, "Charting`Private`Tag$6579#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1nk0ld33AHBzMsQ1Z7pX1C0zt0m87V0ylCGJSoOiyFCKUkR4k7jpipKk
[encoded data, 4880 characters]
McEbCQ==
         "]]},
       Annotation[#, "Charting`Private`Tag$6579#2"]& ], 
      TagBox[
       {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV03c81e8XAHB7Z++tcI2srmiocxChZEQKkZVSiUpRNKhQZFRSioxKVioa
[encoded data, 5490 characters]
/lFRUmBBwpv0/wB87/yN
         "]]},
       Annotation[#, "Charting`Private`Tag$6579#3"]& ], 
      TagBox[
       {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV1nc41t8bB3CbUNbXXo8tKzwaUu4bLaWhUBkpUqKMbyl8iaJISHZkUzYN
[encoded data, 6649 characters]
rlxUXN3YIKNV3oeFUbr/B8tgqOg=
         "]]},
       Annotation[#, "Charting`Private`Tag$6579#4"]& ], 
      TagBox[
       {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Xk4FNz3AHBLqaSyZWfGGDOMwWgUess52mQriUqRkKUsLSiJ9MqSJLJE
[encoded data, 7442 characters]
8bnrwrA7z89JDYqG/2OiYKvw3ws8V85QFpaXmbjZ7P3aMJ7/D/qqlm0=
         "]]},
       Annotation[#, "Charting`Private`Tag$6579#5"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"|\[CapitalDelta]n|\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox["5", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {15., 
         FormBox["15", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {20., 
         FormBox["20", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 20}, {0., 0.9987270868659814}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0nk41GsbB3Bryc5kTUgxGbtJSLnvCC2SLClpU7KVIsqeQ8KJyKEkJUsi
[encoded data, 5124 characters]
zC0t0ZGzNPtXKun/ATkGn0c=
           "]]}, "Charting`Private`Tag$6579#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1nk0ld33AHBzMsQ1Z7pX1C0zt0m87V0ylCGJSoOiyFCKUkR4k7jpipKk
[encoded data, 4880 characters]
McEbCQ==
           "]]}, "Charting`Private`Tag$6579#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV03c81e8XAHB7Z++tcI2srmiocxChZEQKkZVSiUpRNKhQZFRSioxKVioa
[encoded data, 5490 characters]
/lFRUmBBwpv0/wB87/yN
           "]]}, "Charting`Private`Tag$6579#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1nc41t8bB3CbUNbXXo8tKzwaUu4bLaWhUBkpUqKMbyl8iaJISHZkUzYN
[encoded data, 6649 characters]
rlxUXN3YIKNV3oeFUbr/B8tgqOg=
           "]]}, "Charting`Private`Tag$6579#4"], 
        
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1Xk4FNz3AHBLqaSyZWfGGDOMwWgUess52mQriUqRkKUsLSiJ9MqSJLJE
[encoded data, 7442 characters]
8bnrwrA7z89JDYqG/2OiYKvw3ws8V85QFpaXmbjZ7P3aMJ7/D/qqlm0=
           "]]}, 
         "Charting`Private`Tag$6579#5"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"|\[CapitalDelta]n|", None}, {
        "\[CapitalDelta]v", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 20}, {0., 0.9987270868659814}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7707898843075237`*^9, {3.771089769927909*^9, 3.771089784078691*^9}, 
   3.771089819823944*^9, {3.7710902762868032`*^9, 3.7710902994867477`*^9}, 
   3.7710906003280087`*^9, 3.7712088657880163`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"59445f38-e32b-4a57-8b16-6f3ff68215fb"]
}, Open  ]],

Cell[TextData[StyleBox["There\[CloseCurlyQuote]s a problem here as the curves \
reach 1 and not 2 as depicted in the review!",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.771208868759223*^9, 
  3.771208891765534*^9}},ExpressionUUID->"37633d4a-ef6d-4b02-b125-\
d807d25aec95"]
}, Closed]],

Cell[CellGroupData[{

Cell["Non-interacting treatment", "Subsection",
 CellChangeTimes->{{3.770787885186795*^9, 3.770787893499827*^9}, {
  3.770788009848486*^9, 
  3.770788013864541*^9}},ExpressionUUID->"5980089a-4796-4e89-ad09-\
eb2ed79c7425"],

Cell["\<\
When U = 0, we have the simple tight-binding result, for which energies are\
\>", "Text",
 CellChangeTimes->{{3.770740575334587*^9, 
  3.770740597073794*^9}},ExpressionUUID->"953be7ff-41e4-45b1-a015-\
d0df66d05f83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "\[CapitalDelta]v"}], 
        RowBox[{"-", "t"}], "t", "0"},
       {
        RowBox[{"-", "t"}], "0", "0", 
        RowBox[{"-", "t"}]},
       {"t", "0", "0", "t"},
       {"0", 
        RowBox[{"-", "t"}], "t", 
        RowBox[{"+", "\[CapitalDelta]v"}]}
      }], "\[NoBreak]", ")"}], "]"}], "\[Equal]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "t"}], ")"}], "2"], "+", 
        SuperscriptBox["\[CapitalDelta]v", "2"]}]]}], ",", 
     RowBox[{"+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "t"}], ")"}], "2"], "+", 
        SuperscriptBox["\[CapitalDelta]v", "2"]}]]}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7421431528776817`*^9, 3.742143200699237*^9}, {
   3.74214328556668*^9, 3.742143453855689*^9}, {3.742144066709931*^9, 
   3.742144076949285*^9}, {3.742145318134115*^9, 3.7421453694344797`*^9}, 
   3.742146574252227*^9, {3.7707411007063723`*^9, 3.770741143925096*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"e10914c2-dd3a-4e3d-a7ba-72128c1b66c6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.742143196025653*^9, {3.7421432979738417`*^9, 3.74214333198641*^9}, {
   3.742143399596036*^9, 3.74214345442161*^9}, {3.7421440699989443`*^9, 
   3.742144077284531*^9}, {3.742145321437675*^9, 3.742145369956195*^9}, 
   3.742146575233191*^9, 3.770741011788808*^9, {3.770741120138961*^9, 
   3.770741144665256*^9}},
 CellLabel->"Out[14]=",ExpressionUUID->"fc20dc24-2f5b-4cd2-9bcf-5f2517830577"]
}, Open  ]],

Cell["The difference in site occupation is given by", "Text",
 CellChangeTimes->{{3.770788410364839*^9, 
  3.7707884207271767`*^9}},ExpressionUUID->"0aa98ec7-45ee-4f15-aaba-\
dd950dc870f4"],

Cell[BoxData[
 RowBox[{"\[CapitalDelta]n", "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], 
   FractionBox["\[CapitalDelta]v", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"], "+", 
      SuperscriptBox["\[CapitalDelta]v", "2"]}]]]}]}]], "Input",
 CellChangeTimes->{{3.770788032678022*^9, 3.770788040281501*^9}, {
  3.770788404194002*^9, 
  3.77078840821852*^9}},ExpressionUUID->"809c61c9-1ba6-4e7b-b63a-\
0ed86b799897"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hartree-Fock treatment", "Subsection",
 CellChangeTimes->{{3.770787885186795*^9, 
  3.770787893499827*^9}},ExpressionUUID->"420a5ce7-27cf-4527-9e92-\
4daed855756e"],

Cell["The RHF energy (paramagnetic state) is ", "Text",
 CellChangeTimes->{{3.770789474989027*^9, 
  3.770789486630363*^9}},ExpressionUUID->"557c8ba6-1d1d-4cf7-a468-\
5e8c31f78047"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["E", "HF"], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["U", "2"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], ")"}]}], "-", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "t"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]v", "+", 
        RowBox[{
         FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], 
      "2"]}]]}]}]], "Input",
 CellChangeTimes->{{3.770789489201922*^9, 3.77078949380336*^9}, 
   3.771001311288274*^9},ExpressionUUID->"4542e745-01ed-4ef4-889f-\
c6a0d5a4929d"],

Cell["\<\
The equation giving the occupation difference for the RHF case is\
\>", "Text",
 CellChangeTimes->{{3.770789450190783*^9, 3.770789464345006*^9}, {
  3.771054784720263*^9, 
  3.771054785407435*^9}},ExpressionUUID->"ffd9111f-fa01-4727-a27f-\
ab4f269ba6dc"],

Cell[BoxData[
 RowBox[{"\[CapitalDelta]n", "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "\[CapitalDelta]v"}], "-", 
    RowBox[{"U", " ", "\[CapitalDelta]n"}]}], 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "t"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]v", "+", 
        RowBox[{"U", " ", 
         RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
      "2"]}]]]}]], "Input",ExpressionUUID->"a36bfff4-4fe9-42b8-923d-\
de65e596948c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", "1"}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["U", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], 
               ")"}]}], "-", 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "t"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[CapitalDelta]v", "+", 
                  RowBox[{
                   FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], 
                "2"]}]]}], "/.", 
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"\[CapitalDelta]n", "\[Equal]", 
                FractionBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], "\[CapitalDelta]v"}], "-", 
                  RowBox[{"U", " ", "\[CapitalDelta]n"}]}], 
                 SqrtBox[
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{"U", " ", 
                    RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
                    "2"]}]]]}], ",", "\[CapitalDelta]n"}], "]"}], 
             "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
              "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}]}], 
       "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", "1"}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Root", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["t", "2"], " ", "U"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4"}], " ", 
                   SuperscriptBox["t", "2"]}], "+", 
                  SuperscriptBox["U", "2"], "-", 
                  SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", 
                "#1"}], "-", 
               RowBox[{"2", " ", "U", " ", 
                SuperscriptBox["#1", "2"]}], "+", 
               SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
              "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}], 
        ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
             "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.770787929775593*^9, 3.7707879772481327`*^9}, {
  3.770788738939043*^9, 3.770788782918985*^9}, {3.770788821172515*^9, 
  3.770788890847322*^9}, {3.770788951660322*^9, 3.770789034255199*^9}, {
  3.770789103904619*^9, 3.7707891844838867`*^9}, {3.770789316345889*^9, 
  3.77078931659569*^9}, {3.77078939220636*^9, 3.770789425072637*^9}, {
  3.770789698839904*^9, 3.770789788941246*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"997027d9-afe0-4319-bbe3-96bac538d02b"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{{}, {}, 
        TagBox[
         {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.],
           Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwd0Xs41PkeB/DfGFa5hUWOjEvj0sU6uiB26/PLnZWykZrHImRcasOGNiWd
7XGJI3RBe2Iq22lcEieKY3y/So4kYuQ6JosUuZtBS7/fmXM+z/N+3s/r3/fH
OPj0DyfkCIKIkuV/fcyl6vVOSRDY36zpDg+jUKFbsAXnUAQcSe87Gykz3dzw
q5FROjzd3+B0RWa13JpHSn25oKmyTu+JzA/OpKzyjQrA7I7yuFRmi9nQLJpb
BOWfiq66cCnULr5NrfXehfwnZn/lyyz5UOZ58cvvkKDyfo0VTqGTe+NOLRvy
Idr0y+5imb8MfTOixC4DcfWAv00Ehf6M8hTNcytgZ23PxLjMPIYofdm5EvoP
NLHvRVLI6XWO6VJvFfi0/MslJopCH/NdGyURj+GqTaq390kKZYZ+8V9crYao
D4qOjqcoJFwNvz5nWAuJqK7b/zSF4v9jYDVbWQex6vKxl6MppHet+9W0Yz1U
rd86J4ih0N1UJlvxDwTF9iuGb89QKEo1KbFdiqHpk7y6IJ5C3cO+LIlzI/y4
afXvRxIo5DAzz2dYPgfhSDzfPZFCHrnjXy3wnsPawWdBTucppH+20Wc+ogmI
0Sc8lSQKYceEudnVFxBC5KV1XaKQ4uCI+bThSzjfG12+6wqF+rAgburjS+js
rvM7mynzjNmLT5Wt0NoWXN+eRSGvWK/AScc2UNBv+eejaxRqsKyMbeZ2QNON
CVu3Qgp9++9ziTbTHWD/+7oCcx6FrOKPhtjefgNdW3UuSIop9NMbTe6Ccyds
3D/64k8+hYz1rlhJe7sg4mm3eXMNhVbVavjR3wnB5vIFnkkdhcYu3Ts0xxOC
1s79tdcFFKrhJhXORnQDb03syW+iEGfXbvuZ1bfQynGJuyekUB2jOemiUT8s
3KQHhiSy/+dXb3uX2Q/02vRq6WfZHrFrNzPUBuD1wC+F6TSFppjLvnXCAUj7
IJi4u45Ge/Z62aeniqA0TqukgkUjFz/5AXrpHZgxKk9IvqeRIqwPULUchh6W
YX+eN42UbO15YSHD8Gb8m8BCPxplXOI6PUgfhvNepVfk/WmUJeEvnuscBm46
rLiG0ohYFnGDS/+A7w4pMZ2SaHSx1cJjR+AoWOcklwxW02jr+JRp6Y1R4BS8
7TAR0Kgr34Fp2jYKjjMjn5ObaGTCPVqvazcGaHe5VayQRlqbNDpzFsfAdvuh
juZpGhV3WU93NI9DfZaWHe8vBPbY6Oetkf4Rzuxo8WzcR+CHFemDJy0noaqi
3Sf5OIEnNSczPY5PAvtaZfnKCQKHltX5BBXJLC7z/SWKwEyHXjffwUnwONtd
3h1N4B8i+h4rd36C+rk2512pBLZaKnzgQUzBP+jfBCUZBI4fvTrv6j8N21Wt
F7LLCBwm8mIbOs/Bjb6ulDWKwPv2JvonB8xBQdgaz1+egQ96JUbOJsxBHKug
uHk9A1vMZIy3lcxBeWP4iQotBs7J93RPU58Hcf+dTuE2Bv7VtF2NHpwH4tZz
7ZCjDKy/S06b/34BNqqx7uvlMXB92QY76c+L8Kx1uuLxUwYm7i7VDWYsgkbP
z+6ZDQycL68vai1eBI8tqb+VNDFwy8swA37PIuCqWZfPbxhYNTozLtxeAmcH
RWLxBAN/DDcvEzOkcD9oT0Sjvhy+b5sWo7smhRbH9ESHQDlcURb5Vi9nCYaS
c4PFKXJYa4NBYULtCmh7MyVlJkz80/uto48ffobt3hxbQSQTKxlfNn+3hyDz
zBW6FvMUcJb6q213gpjkDpZZVO2QIg4e9EHMtq/I8WcXKvJTlHDMi8vBp82V
SL1O5ZDv3VVxZbTKYV13VZKciGAfXNqAodBOettenZSrqtCxCdLAKR5QIzqq
TjoV/Zjde04DbzkQlSrwVyd3G4X1HE7SwH8rWvOWTGmQ2Wcu9cmPa+IGa8Mc
6bIGKVbhuGnOaWJCOEzWn/ua9Jm1Ugvy1sKew97bmtja5Kmq2JXWAW2snmH7
qsdcmwzgVKlki7XxdV+Hka+9tcnJA+xIAwUd3BIXoFh6TJt8ZFQnNFfVwWPS
vCPKAh2yum22g3dsI/Z4H3khN0aXFCjk+F2X6mKvseztBgZ6ZNaIrtpKph6e
fB6c3FK+iTTlud1iKetjS40elmMgi9TRPGzNK2VhJZAeFy0akK5Rwmm5nYbY
dZqzvNnXiCx5WJXvdMoI9z0LZXAsjMnXIqx2eJ8xrk5rCjCSGpO+QVvshhib
cZhC3HB7+2Zy2O/bGU7PZhwSm1itcotN7lfMrTe7zcZmhhGdsxSbJP5/Jvi/
QY91TQ==
           "]]},
         Annotation[#, "Charting`Private`Tag$1761#1"]& ], 
        TagBox[
         {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
          Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
          LineBox[CompressedData["
1:eJwd0Xk41PseB/BhirLOWEqMYSxHJDmObsnR5/eQlFsOsqUee4a2I/sxp1XH
EimSpnuzlm4TkcK9afn+HGuILAdFmbKccqzNDN+Zsdy59/M87+f9vP59f1gh
P3sek6dQKDGy/K8tknfz37EMQRM/umlCwWgy8sPnJ7xfQKjOXlWQebX5VbKh
YTqsOKODujKr5dQ+VhrMgYDeK1b2Mj+ITZHyDG8Dw2XWPlJmy9mwrFV2IWRV
Fobek7nzY/7K0kAJlPlV/ntKZuGf5QfOL5dCztaiYEc5jE46xJ1aNOBBgESj
557Myx+2flYyLofMsuI1NHmMJCcODM+zK+FbTFxytsxFcsPpi85VUM7bnKtH
xWjPm2zThYEnEKHx9vUTmb9wXeqFkdXQMKhj4rsGo8yw5aMCaQ34iR6UrFuL
Ua80InfO4BnkMTSVbyhgFN/CtJ6tqoMFI23hCUWMdG/0tU87vQDrxIpVj3UY
laRSjRU/IcgPdOflKWF0QvUcp1NEwkOfiu4lZYz6+N76Qud6qK58dvaUCkaO
M/M8OasGWKmO6TukjpFrzoTCt6IG2K+SNaVMw4iRWO81H9kI9SNd2J+OEemU
MDcrbQKbFqUIQy2MFIc+m00bvAZG0tWMfboYDZIv46a+vAZ+osshgZ7MM981
/VXVBmFNQTZl+hi5RbsFTjp1AAf32DiyMHplVRXdzO6Cn7QKO1XMMbJ/nsT5
23QXVB0xzT1lgZF1vF/ojvy3YH74ovbCVoxOv9Vgf3PuBrvQVDrve4xYules
RQM9wG/f0Kdtj5FUrZYX9WMvXKj7EJ/tgNHYxbvuc0W9sEld206XwKiWfa5g
NrIPvITiZk9njPx/sN01I/0DPLpt+YHuGNXJNZ87b/gOohLj06cjZP/n1liM
ZL6D8JdHrnJOyvaIXsrLUHsPA+ube3qiMJqiLnrX9b4Hpird4VoCRjsd3Hal
pw5DeFCT2+ZUjPb6rnm/ujACDzqaGy7xZHvB+gBVKz5MCCKZ1Y8wUtqxqyg8
lA9JZWZZ255glHGRvedBOh8uHD75LK4GoywhT5DUzQcVobv1necYURaH2SFl
n8DmmH4d7sTofJul6/eBo2B5t8jgHMbIfGLKtOzmKAjXcqvnlzHq4TpSTTtG
4aR3IyOWKkYmbL8XOnZjsG3Kyq9UTYy09Ojd2YIx8DScmA8zEqN7Pdunu5on
IPmp790SHzFy3ejrQU//AvHMsqKuLDGqqEwfOmk1Ce154cXBDWI0qTGZ6Ro8
CQbSpz6WbWIUVl7nFVQ4CaH3x6TpPWJEdRzY5z00CXmKVeaP34uRZ+RgtXL3
X7DXiFnTuCRG1gsFD1wpU1DQn2/PpUpQ/Oi1eZej08DxDS0Y2S5B4cNuxgbO
c+DW5ny+tFqCdjtwjl4ImIOqm0EfBC8k6Cc3zvHZhDlY3SB55dkkQZYzGRMd
D+fAorbN2rZfgrK5B/an0eZhimnnmoIlKNm0U211aB42aa3vDQEpYvwgr80b
/wYliTdGC4ul6EW5up0oRgAWl7eeduyXIkrJQt1QhgBKIi37YkekiLuGMdx2
TwAzdUXyOl+lqPV1OJPXLwAN5eAt55ekSDUqMy5ilxBa71b8vdt4CX2JMCv/
KCeCM90ttxJjl9D9HWlndJZEYGHLE5V+XEKV5cf/0M1egDy5I+6j+stIS51Z
kPAMQ2Ltcedr+ivo9Lj5aHWFGOJTh95oXFtB/IB36+pfi+Gb0481+++soEOD
aVZvxsRQ6x63msFbQTvb//xlXFcCHO6dIpvGFUStKqVtSJXAlfFjnoqSFcT9
lbU7IVAKXVPWHq3sVVSvuem2HW0Z8h1s7jw3pZBKrMtmIzspBOJkf5LqyJFZ
tHaL4iAqMWRy2/s7OpUMGfJC1A4FgiNlmChFryXPNF0O+dlMibh3kNFXLFEk
q6JUDunsVyWKNhtMpHGUSCiwE+XvohFBb6x35rJUyRRXqB32oxG7bz0u3+al
Sm4+eCL15VEa8XzjYdtP/qrkpcIlD+EUnVC7+R9GjwKNfLXdIFu0SCcWY6zZ
V2k0ktLLJ14kaRIdc0laueF08gDfw6LRWJsgzyb8OjauQdIydrT3m2kT3rYD
Lde/apC53o6fNT20ib7Y4qdu6ppka1yAYtlhbaK13tZp60ZNckx0y0f55Qbi
TNfF354d1SJdx4+fzTmjQ4T0/XPs/rw26TZ2fQuTqUuopgRyvZM3kpMNIRda
H+kRPvfrAuWWdUgrer++U6A+wW+jl7Jv65JKIAoeFjCJIGp19W8MBuky7b9o
5G1IfIyKa5H/XZ8c/D1Mzt+SRYTEfPW9HmxA1qQ1BhiKWIRcQ/65fTGGZPja
OH5npxHRYe+5p20viwyN5tSo/MOYeJiid7tFxYjcxt7SeSDYhFDbtP3SwS4j
skvDUjnOzpRY86/H/qjEmGQ5myoXck0Jyv/PhPwv+9K15A==
           "]]},
         Annotation[#, "Charting`Private`Tag$1761#2"]& ], 
        TagBox[
         {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
          Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwd0Xs81PkaB/AZpDBE0rrPDKGE2q3cSs+vpIukJVQ4RDIp3SxpU4hyiQqH
bTbHJZuOKWWnMoT6/iwpl1zLJVONW0mG78wY5LJ2znler+f1vN7/fV6fhxl4
2v2oHIVCiZLt/655/BZBD5MBlqGEDoWC0UjIh/7HnF9hNvI6LJJ5oe5FPIOR
DO3JbhWaMqtl8P5U7s4A//viQAuZi8ITZjmM36G9ebnQVWaL8aAbC6w8uG2k
tCdK5uaPOX/PdRVA1ubQa1yZJ74Uu8TMF8JN5tkGkcyhDhEnp+gc2HH+j7xN
VIzmP1j2KxsXw4vNfymmyjxzwoUvYpXA/MeHZkKZ86n85CknLggC0ngechht
f5NuMtn1GJqcvjDrZB5m76yeCHkK+u7skK3yGKUGzftKZkshVjHxep3MHbPH
MjH9GXAW8kLGFDA698pw3Ti3ArZ/uMpMX4SR7r/fNgodqyA7k1HqoIhRQaK8
8eI+BJePsj1FizE6oRod1SwlYWLZdtrfSzB6K/A0mHCqhgmeT5a7EkbbxkQc
qlUN8OhkZowKRs4ZnxXF+TUQ5z9apkTDSP98tYcopBbSvrQZLVLFiHSMxOOz
L+Fg7P4EnaUYLe7tNxPS6+HaeqdL5ZoYdZPPI0aH64GS/6p7ernMY6Yvv3Eb
IDzpLM1xBUauYa7+I45N4DE9NTOhjdELK25YHasFBk7vedRsiNGmygtR1sIW
oLAGsrvoGK07d/CITU4rcD8qjkcbYXSqdRlL7NQGq2w77HeYYMTUvbZO2tUO
W3hbBrwtMJpV43HObO6A+NjgK7ZWGA1e/uNnnN8Bbz3KVRjrMOKxonPHQ96C
3PVLN2kbMPJev8F+bPYdyEXf8/PZjFEFtS46htEDa5IdPDpcZf9nl5p/Su2B
A+HJjFg3WR9hc7+lqL2HgsaiS7UeGI3KT3lWdLwHfnLd5c5DGNk6uNonJ/Ih
pZe7O+soRjsOKLxfmPwEZ7I1n5yPkfUFSn6qVgLwaflJtSAOI2Ub+/zgIwIw
7dx7RD4Bo5TLrO1FyQIoj+rPi0rC6MYER3KhTQC0fV+30a9jRJniswIf9EHR
nUleZTZGMQ0Wzj/6D0AP79M77UqMVn8eNXmQNQBlpVYNNgijdvY2eZOmAWjd
a2oUWIPRStbBKm27QUi0VpjubsRouZ5GW7pkEO79ZuPe8B6ju+0bhS11n4FW
d93JV06EnH844KaRPAzRIGhVsBShRyXJvaFWIyDgDEdiDxEaWTaS6hwwAoeU
rS31vEUoqLjC43DeCMTZjPeePyxC8tu6dnn2joDLvwZRcbAIuYd0P1Vp+waV
DR0ld2JFaN1kbpEzZRQQpeBi51UROjdwU7TTVwjBjF02a4tFKJjvakx3wrCk
cD7eVFWMtjhE+cb6YTja5+11RVOM9rlGHR+PxGCvz3UY1xEji7GUz033MYSc
tnzSZypG6WyX3UnqIphyL2m02ypG8SbNagu9IvB6p9n3NFKM9NfLaXGGxLB9
l9qp6Boxqipeaif9RQK1tyrKdUbFsliTFb0pEqBv6LhqLREjtoI+v+GuBBRT
BXoPZsTodX2wIadTAlqtc74lShKkeiY14pj9BDyUmA2tXCVBw8fMij9SpSDO
vOVSFSxB92ySzmrPSSGD9nk27JkElRQff6ebPgmdfeli3ogELV9qmBv5bBp2
PT6TFv9kAp0aWj3w9NF3iOk97H6fJkUCv54l1fXfoV5ad1L3Byna351k9Wbw
O7AftmRlMqXItvHLr0O6MxB624vyX2spkucWqq9InAF347gxxwApYl9kbon0
nwUX7/J8n3IpqtbU+d1OfR6aP8X6Ck9OImXmFbNPthSif28t+iqdQnfDDX4M
cKIQOrpi7zfUaZRwMNfGwJ1C/HTAfyVWnUZyaeU7fU5QCLrzoucrTKfRzN+j
rK4cCuHJPLG21msafeN7FrXIUYlat+ysnGfT6OLNuTmyiUqc4xjwra9+RzfU
G83vHJYnBq/sr/ZYP4sCez2QfJMiwUuNLR6yW0BnX14JPG2mTGgG0PXT2qgk
9wxtv/ZuVUJIvzh0TFWBhFw7aY69OrGpTqs9I1KRTHAGHv+gOrG8bJxfU6hI
rtp7IvG5rzph2FeaM/NAkYzLm3ObGNUgqrwK+7daKpEvNtLTpVMaxIabdy9l
gRJJ6RAQVRc0iQuSWps/a1RIF4Gbea2xFqE81KqumqtGqqfYNHaaaREFrUFc
WqEamem5rV/TTYsYipSfYwvVyNcRfosfHNIi7jzPSK2cUyMHpbe8VJ6vIMr+
E6N7skyddB46finjrDZxOByLn8Ay0nUwbY2hoS6x9H7YwupXmuRITWDs64d6
RM/gvak+Wy3SSqPTwNHfgAjc95VBa15BKoM0gC8xJIKIWXx+jza5U+g9ZeTJ
IHrjOUMV33TI7r+CqN4WTKIzQa3rW4IeWZpU68eQMgkf8zfaoUsMyOBFEYLm
ZiPCYmPZW9NiQ/JIWFQp7bYxcVuFnl+pyyDXstY0uwSsJDSCqtl6fAbZssxC
JcLOhOBaUL+EP2KSlY/isi3kTYn79fsUbH8xIqOo5j83fTAlejtNhSO7jEmH
HL3hF2wzgvL/WUn+A+lO+1w=
           "]]},
         Annotation[#, "Charting`Private`Tag$1761#3"]& ], 
        TagBox[
         {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.],
           Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0X1Q03UABvARJBcEJx6nhObmIUE01ihzZuJjyFDQBhKcy0NBJecETTgF
ZeZLKgxBjGE2LXEH1DHkEkxRkQgiYCjKqwLbj993vEhrg72wCepAWn8899zn
3+dZtuub2K/fYDAYEY7830Gn12oHlrFwgL2xZW6OQC8eHL6pPIqs82862Rye
a6k/zWLlgpUo0nU77CmrqXLrl+Hg8Ld5VxwuP5RtV7IuI6WpVb7JYbYpuWBO
dA2qO8c+HHtN8Ji++nqmrwSirlTuPodt/1RuPjH7C3hB3Li+WYLU0MP7p5lK
KFiR33Mcnh0MHnbzq8SttrOtGTMEr1I2UxbRDUgNL/+S2wkUTlTuNL8aQn6m
e+UrgvBHhf5TfTcRw2tWlb8k0Mk3NNrEtyA3G18VvCDIT55NsNpvQ3iZUbJj
mqDHvveimXkPUp5XdK2NIKN1KddUXQv5tuD4CCuBb1Hvw4n1dShXpXTetxCU
5Dj7uQ79CXFpgqFvgiDF47jk8fMGCDJSLqUZCHq18e/a+I1IOsKMrdIThBkt
SidOE7IP8dU1zwiiZGPzJhVN2HvU4iIZJVhypDHOIv4b0vYXH6wZJmhYn2k2
2ZvR+aROkzVI4KoZDphgtsF8xrP5326C/oY/Do/r2iAMTAnw6HTY+F6zofoB
dgWLGb6PCATpgkT9+nbMF1kWmlsI6jnV6S2iDpRdH9tTcI/gs/tZkpUTHZhn
FCVx7xBwM4S7eVc70cwcFi6tJjjQuUA0ye+C6u6xhU0VBMt8z3Gf93WjTBNU
ceEKgd2zRnlwTQ902+nbUZcIRk+VxpgVPdibFO5hKiSoER0vNol74cPnB9qk
BNs+XrHaaH8Cxt1ib/NhglqnluMnWAMIi0z78ddNjv/lt4NI/gBUAfdXZvMd
e6TPXMrzVEOmUOe5rSUYd56Or+1RI6bbwNv/EcGqUMHq3BwKqrRozplFBBFb
XdRzUwQqm2cOm6Lhird2eHC0CIw8oBjvpeHGW63Ys1sLQ+OLYPYjGnmnROHl
uVoc2n528XetNApsSmtWlxYNkoscuo4GY5oS7bo+hBUB+UT4E40TD9hRIYkj
kNpkxq++pPH+2Lj/9R9GcPKhLGQkkka3PMzZv30Eq2YPuseuo7FcJKzz+XQU
81/2Z2vZNLwXe3UVWkfBuuciOOdGo6z7k4mOljFI1pmGzt8YRNSirVu8cnVY
kmyVxXwxiN9u5GpSOXrcvViXuNNCQb9Anx+1U4+GZulQ5jMKyZW1cUnX9GAX
Rbs+eErBOaxvY7xGj5DUBKtERSFW3H/LvcsA+8/14/J8Ctyp4vIoxjimwssF
RScpZIxcsGxImIBuC9PPNZDCHkrgx+SboXdN9b6zQYO1oZKEkzvM0J3ldU6v
0iBaINlnyjRjpspU/E6QBmxj3lh7hRmlblqrz9saFMo3R0rnW9BgVz516VDj
tP9jzzmNBVWLP/cpilEjx0PYFtE+CYY4IPrZ7wP4D6z5V0g=
           "]], 
          LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAHSO5j6LT+D8I914wUwjVP+Be2QjB
yfk/sFboCoYr1D9T2IguzeT5P6AzMz7BEtQ/OMvneeUa+j8Y/y4d6+DTPwOx
pRAWh/o/QPMO4gx80z+YfCE+d1/7P6CH/baJrdI/wRMZmTkQ/T9ArGRbcv3Q
PwohhCffOABAsPhCT6aiyj+kdB0xYUUAQEQoLzNOaco/hlieNx1SAEDQpU9y
wC7KPwKQuEdbawBA4NEMdiu6yT/6/uxn150AQKAvinn0zsg/69xVqM8CAUCg
mQrvVPDGP3yP/PzAzAFAMN5qu18Swz+OEMsqoWADQGCkKePOqLU/YttUvwPM
BkAAL3KnZKqyv3HFhGJvJwpAxG2qQhAQ0L+xcAxTGEkNQBCXsz1W/tu/P545
9Z06EEDWfEL2863kv4ZKP7bcWBBArM/tuxku5b8oTWuHvVwQQBWKwNbxP+W/
gp/8UfTsEUA4cedMinHsv741H5H19xFA3UEkthGo7L8A0+BAvHoTQMmLQ+9E
EvK/TOBRKsQjFUBLNH6pPHj2vxCLN8vWJxVA5PDyuwaD9r+UVULiE1EVQOTM
A2KB9va/yHVeB6tZFUCnkpvvpA73v+T1l1YLvRZAI8IMiT71+r9K5Wp9knEY
QC/4p+5YAADATuSQKx4eGkARnTTT9ZcCwOrDYoDIrRtABVcMt4gaBcAuEdYd
Q18dQK/UEtc/6gfACj/1YdzzHkDQP5Ufr5wKwEftWvciVSBA0lFE4lKaDcDY
wmQBWiwhQP2Gv1uRTBDAtYjEXiD1IUDVtl2w+bcRwGYFdeDOziJAwcY3y0RH
E8Bjcnu1DJojQMoS4htIwBTAL2crzkxhJECjary0PDUWwM8SLAt1OSVAGJBr
qAbNF8C7roKbLAMmQOoYknsgTBnAewEqUMzdJkDPBEf/te0awArcekhutCdA
14O7w7qJHMDlpiGUn3woQKMQLjCcCx7AlCgZBLlVKUBfYMyVkq8fwJCaZsdh
ICpAx1C/eWmcIMBalF3ODOcqQK+1HcOqXSHA+ESl+Z++K0Bwm//Z3C8iwOPl
QnjChyxAKdMCimP0IsCiPTEbzWEtQFps+HnUySPACISyDgyZLUAAAAAAAAAk
wIRrhlA=
           "]], 
          LineBox[{{1.191565343157371, 0.39878488150615715`}, {
           1.2045888267255784`, 0.39654764420048677`}, {1.2277325246834945`, 
           0.39257190727945135`}, {1.239907377963947, 0.3904355873365346}, {
           1.2642597762815087`, 0.3860998028763036}, {1.3129564976466614`, 
           0.377179272101102}, {1.4107401179888055`, 0.35825959258702766`}, {
           1.4164427505305075`, 0.35711494463689375`}, {1.4225301771707337`, 
           0.3558878608797813}, {1.4344941351914176`, 0.35346088174630497`}, {
           1.4480021488237615`, 0.3506863878022179}, {1.459616828385415, 
           0.3482978884958381}, {1.4630990093043108`, 0.34756476518996804`}, {
           1.507756861303157, 0.33816269423128087`}, {1.5389136004840542`, 
           0.3314289679361315}}]},
         Annotation[#, "Charting`Private`Tag$1761#4"]& ], 
        TagBox[
         {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], 
          Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
          LineBox[CompressedData["
1:eJwV1Hs4FHgXB/CZYedXNr1od7vaYV8ia5Xddost57wrLFGu8UbaPAmRWoQi
lN5k6UIIm8xKbwm5ZZ6SXCoybrmteyiXNMSMGSZmZH/9cZ7zfP4953yPpsdx
e08Wg8HwpvWp60WbDPVoakBCar1saYmgwOfVm+KcU/A/1VUan7xUWxGtoREL
Y5EWPDn1ykReoVJ3Injd+Tb9A/XdoAuyHI00sOKGds9Q608fvrzklQmRM0GB
E9TNAxkf5V1ZMPF9r/cbasnbPOvIxdswtjGwpIvab+fJY1JODlyz3ujZQF3S
MZQtMc0DUxdlvyfUC77W/SKvAtAd4jTnU3OZ/bFSsyKIYLvH3aDe1ZSgPddV
DGtFL27FUo+nWlRLfB6AH//A6pPU8YcX3cSyUogo54y5U7fLvJOEnEfw1SPd
5O+og198vWW6qAx4BidOqlGvu9bR8N60HGyujxTOfiSYFaPwb/K6EioSUS2f
2lc5Iqx5tgpYsxbmUdQdQ07qErNq4PaGGwRQ/zIlymEaPIMAuxm7L6mtEsfY
M9xnMH7mC6uPiwQ3hFY7inyeg3ncgnsHdZVpiHBaVgNhSvvSw6hJ3xud9xw+
mMQ5OfPkBLurnpycHOdDQ1aCIOqTpzbWTBTVw2L/Urcl9Z6APQcFpo0g3R3y
olNGMGV5Wcpbr5ewJOwR9C8QfBBiFRC4pgX08h86p1PfEGxbKw5vgW82NXP2
Ufu3qHnNmLVCXllmdd08Qc11f2yZ7WoD3ljGr+kfCMpW8nJO7GiHs95JiVbU
I2dv2Qq57eCvHrx1XkqQ5xVxc9qnAxwapmPtqPf/sNV4SvY37MpqCZuaJVjG
rI2I1OgB86f5g90zdP+ppXqD8T1wIOlS6BHqDQHylLiVvZC7q+pxr4jgpILU
qay9F3zUzncxqbfv3GMcG9MPlVN1uz+fJnjmtcaVHbxB2Hlqy+blEwRvPf3z
tLLBEISqayVvFhD8eWOScczhIXh393H5n+8IXpbkiE+3DkHnvD76jxPcmvC3
p0fua3AdLVgnHyUYWa9vZXhwGFqTMjmPhwhuGpvUzk0ehpjBgb1K1G2pvyho
Nw6DuntLgvMgQS0vl/I1RiMgejFqNfmK4BfrVVsTxCPA3eDKO9pHMLvtx/cv
a8cgvmz+99oOuv/VznaqseOga2+6Pr2J4P2C2D4/AwFENxtxh2tp3tQE8VaH
BPADS1GgSH3ZVFn5eZAAxKXJjIIagkKuwxVj1gQI7fXvbH9GMJEff2R/zQSk
VC+2VVTS+x2+IrJwew+coCxXg4cEMz9viFY1E0LwKklk/R2CJjvD3KLchXBA
Z7m09P8EDe8fay8OFcKj/xyyvX6b4Jq2uLHGe0Kol5SY+d8imJBqbXlRRQT2
i9Na0psEo7WbVy71iUBXyff7h8kEvaA1bTJADOvDNt+QniXIyJor64sTgzlr
N78kimCq4ob++mwx1PBZ//WPJFjHP/J1TqcYjHfbcwfCCeo6yrM8jSUgwKrm
3BCaV2+dvAHmLEy6HMj/4EfwaOKZiparc6B1LfaC2z6CrNmswcqcOSiaGlgx
6kgw3bmOUfB0DlK1DOd8Heg/2raXUyieA5ZD8epztgSf1qy3UfxWCnpG/bbf
2RDUOPfqX7oeUjB8x/6jy5KgvWXEHu1oKXiUzCw2WRAMUjRgXdX8AHeY98I+
M6F5GN00/OD+PKSo7XWz0SI45N6zrJo/D0eeGSlEfEPQofuiQdPIPCQdvfc8
T4PeZ8PbU6PrFmCmcMt1RXWCCkW3Vb6KWYCgbuewjC/pPMI1TUIOysCjzXlX
EJtg9aq1aUYqi+C4/4S8dIyNSprndQa3M9DdY4dh3F9szA5SNzxkxsBt2cFp
/plsvOByc5u6PQMvLmtMMM9gI+vqQwtXXwbWvuG7ylLZuPBx0qsrg4Fy70J9
u6tsnOh3uvuSxcTcZWm1+RFsDL8il1c1MtG2wrlTbz8bL6s06P31mwJyy2ce
/LSCjR59jpUKjWxkHnzc9Mj6M/y95rzHcR0lfKuaWd0doIhFJ1Y4rLFUxtOB
7ueVLykg3DSazTBWwV85BRKXWBYaTf0W1bdXBR2Dm1ovhLFQ18Y35ombCiYF
eHdqBbLwXKbcTjKpinXH7x0tdmHiCqmg7JhIFS+NNG72dGLiP2lVIek=
           "]], 
          LineBox[{{4.498525251835517, 2.161981989158206}, {5.272131143113654,
            1.851223221396275}, {5.2920932793337165`, 1.843179536806098}, {
           5.331192688138356, 1.8261864598186284`}}], LineBox[CompressedData["

1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAAcWd52TNgFUAWQpXgPiH9P0rlan2S
cRhA/Ed6NBNm9z9O5JArHh4aQJx2qGpm9/M/6sNigMitG0DGo5afNJPwPy4R
1h1DXx1AiOjCqali6T8KP/Vh3PMeQCxtAmw9w+E/R+1a9yJVIECoazy67DTS
P9jCZAFaLCFAAPTfqC2xej+1iMReIPUhQIie0B0L3NC/ZgV14M7OIkAYrtlm
PCfiv2Nye7UMmiNAvKY4o9uN678vZyvOTGEkQMLtNDyBh/K/zxIsC3U5JUB9
3Rw4cdb3v7uugpssAyZAOEYn/SPt/L97ASpQzN0mQEb4W4IISgHACtx6SG60
J0COegKFoyAEwOWmIZSffChAGMm0drPTBsCUKBkEuVUpQIptN8dNzgnAkJpm
x2EgKkDAJB78T6EMwFqUXc4M5ypAlPyksWRvD8D4RKX5n74rQLhb0KnqQRHA
4+VCeMKHLECFR3Jpj7USwKI9MRvNYS1AlTk3CxlMFMCthXURZy0uQEr5VOu2
yhXAh1VjSwP1LkC4mqwlSkQXwDXcoamHzS9ATRTvyD/gGMCYKZutzUswQObm
EfO0YhrAf8CNmEu5MEDJuv0uXwccwE0bVaXKJDFAhaEh0AamHcBBbsdbEYkx
QNn19nkgKh/AnxxiJMz1MUCDD+7eF2ggwCTDp5ZOWzJAGXtlBKAtIcCQLcIq
0r4yQLFlcJqz7yHAZvME0ckqM0DW9kfEsMIiwGKx8iCJjzNApFK1UO2HI8Bs
glP8SpEzQDlKoL1eiyPAdVO01wyTM0DRBKww0I4jwIj1dY6QljNAzQ0aKbOV
I8CuOfn7l50zQO7b/mJ5oyPA+cH/1qarM0BFf2T4Br8jwJDSDI3ExzNAkgDC
lSb2I8Cao21ohskzQDX7OcGY+SPAo3TOQ0jLM0CLTnjyCv0jwKwXaUvKzDNA
AAAAAAAAJMBT00n5
           "]]},
         Annotation[#, 
          "Charting`Private`Tag$1761#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVx3k41FsDwPEZKtdWURclZhJDQ8LRTcI5RZukRUq4LcK0yEWkKG1iPFS2
NCnJWpJ9eUtyDpFsY2tRpqgJ3SmFMWTpN9f7x/f5Pp+lHv/s8pKh0WgxM/3/
KWEec0w9b9tcVdExT/ejcG0n02Ev8wzMl3ho585Y+qLqMpMZBQ1twgR1M54b
X16o0BUPW1bv8B2ZcQq5ypjNvAVzDqd0mvhT2Oin5zUpJxX6nlZVujjjD3Pv
UtNv0yHb005dOGPdbPm/JqeyYKZj4eieAAr7WAedGGfkQMadpxmCGZe86s0c
tX0Eq4dKlgWepPDkcQfBMKcAupq3ntQKpPA9uiBqfEMRbEwyTOiasV1LnN7Y
22LYndh6ISuIwl95m6pHj5bC1N85a8NPUTjG87e7eKoMuvyKqwkMpnDn1JHE
IcYTeIDpvzL6DIVP1Wub/CyqgNpx91SLQii8OOFV06BtJaSWO1Z+DaWwBxvJ
fuNg2H4pzv1qGIVlpkJaR88SyA/I2D55nsKvep21RjdUQxfKUObMRQqffqT4
ZORtDeQo8lJywylsH98/Z+Teczj10erSgQgKLzldvXv4aC2Mle/W0uNSmNgG
D/2cqoP2VRF+fdEUluv+rD/IaIBOkywry0QKd5FnQd+/NsB9kbVxoUkUfpjN
e/6tqBG+61WM4vMo7BjgeEBk2wzP0G125KRQOEm+ImmA0wqNNjb0mT6gcGmw
fcBJjTaovvjHoPQhhe+IVi8Sn22Dq9Lw2Z48Cvu2qXJGNrRDB7f1jM4SCqve
eSkz/LYD5h8Q/RFDKDw1tzzHz6oT2u017+p7TuEvFzN2DN3rhIpLspR31lO4
nBN29+fRV5A8WXLLjU9hV2Bu+WPqNVwlflCIPlA4rTHV/xvjHTxmkXJ9I0Xh
UV4ZuyfmHbwuH5G9UFaKN3KahB0T7+Caloq2MTkp/i477lzR+R4af7i/blxF
ii2sHS2jIgVwz2P5mgGWFLcVTMvo/+yBln9vs7+wW4pVofx+ZeNeWCt+Pxjt
KsVrWYmWkZ698OqrXctyD0rxtdEccUh7LzxmbcHUPSHF5nGvvTxyP0GJGctD
GiHF5xuN7E0PCGF5mdWzXVVS/KDof6zcG0Los71KK6FOijt462X1moVw7ZG0
U/3NUqzLcanUWPMFMhimX+u6pbhRNtyYtqAPhnFjM70npVjNulu19UU/TLz1
WD5Bi0byC6K6fYxF8Pht106WF42IVEUx9odE8PxDi+zkozSif8rexiBRBA2i
nRlqvjRyz0oxTTghgq1jGkPLgmkkviHG27XuG1zf63YuOYpGTgmvD29yH4Rt
OrS6HwU0kqrYdFllwxAc+N5kPE+GTmysQ90v7B+C1ZVtxSfk6ETga7jqZ/AQ
LH44z7xTiU40OqL7mx8OwX43J40SdTqJ4zls4c4fhgwFA37dCjq5rMefK+0e
hsmfF2iaudEJB7bf+h4ghj0vd+6TVtAJLX2sojtaDNX0p3gLqumEN2uJoDFT
DLdaFPWtqKeTlw3e2jlvxFDHZ3VcYCedGOyeTveyHIWRFsdStnynk69H9B99
pEtgR9OcEWWGDDkWf66qLXYMpoeGSN5zZYhv33Jhaf4EvLlNJcDbR5YoLA3X
77GgIbjNYbaEN5tcm9/ETjsoi2yby8tdPsoRj+7dWLZ5DnrhXunwK0KB+NeF
e/yjr4C4JV8DI7YokyI/JSeNLcrIp78nJ2hsHkkLPS4y2TsfZSdYXvM4o0Iu
pU7vHP2ugrgvNB2U+1UJrbMXVYYsQDaR6r+8di4krEDv07vZf6Iwv53en3v/
JF8kN/coPlNDrAKDhox96sS+79i5eH8NxB1rD0mSaBDHL7GG2tqL0ZbY4XsT
MYuJ6LnHhZd5mmhtsHeLtuISYqzyRsv2gBbafitQKy1XiyhAySGBWBsdxvx0
WTMG2TToOq7jzERa8x98tDvBJF01nnRXo6XIzu/xBiebpaSMW7ufKVmKanOD
vT7QdYj37KBePl8H7WvMVHF7o0MOB4SWKSUvQ2dect+xUpaRlRxDvsMhXeRu
62R/8KAuaVU1Ugxao4d6Nt+XO2+uR57mX7ptJMtCU3Jeck8m9Ugonb2j+QML
DeJvDq/bWURBELLZt1QfhWsaDazP0id92UsTU88aoPBUV8+cYwYk0WDRrCfO
y5F1YcP2QbScxCZ71x9istHt1VZsTXk2cU38m680wEY1Dgbi0BY2+WWXNZFa
ZYg0A2/QHqcbEmHf+tM1kUao/Ir2vqajRiTd2lSz5dAKFFg/vrti3QqSdyVI
hbPCGG2y4gqCFY1JpPPhrbISYzSiPpu4tBuTVYK0nMiWlWi4tI+/8MFKwlt+
O69lqwlSWh4t3WJhQs6Tq7ytT0zQ1jhexHimCdmm6ZzVqGuK1ilf0iydZ0rW
+da7qUSZovdzs9q3nTQlqUs8dJslpujOnb+uOfeYEt3n95Mc3czQ9bEQZws7
MxK7oobdUWWG8v6NFevdNyPe4lntDWyAskyXNV1UBcSjaIQZdR0gvSb1xrJT
gPhccpq2jwNoh4RlF3QakCCn0rdKCQA9qsmoMg8BhCsJuhabBNAf7X2lJecA
yV8zMXUzBSBhODe7KByQiWrpm+xcgNwLje/mxQMS26F0tbYeIDk/8DErH5Dk
jBNHIhoASkqv8vIqBCQjkG+7uQkgf0HJoG4xIOVqsZNNfICsJd1URhkgAtcF
RzpfA5Rwn8FKrwREX7jI9rMQIOUEd+7dRkBMSkO0M/sAslMLVdvfDIjlle4J
rwGApj/Rs7T4gDjopxT+KwIo8sum53faAQk4ztQeHgYoL6F41u0uQM5aXZwo
FgNk6DI/yfU9IFeUP78KlADEiXqtv1gACK8gI/rXL4B+195wuNUDSPqFWZyK
SYDe8WJ7XD4BkrvTa/3ZaYDCfEYCNISAlOq80LKhAKrVfTqn6wsgVWLWhFQK
UHy2KPlmPyD/ASzWdWM=
          "]]},
        Annotation[#, "Charting`Private`Tag$1937#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwVz3s41GkfBnBMlFNrWDnlLMOQw/zawuJ5NpVWcSmpd62I1YyWbImyDq2U
UysJaWwHx1jnaGrLG8+DUo45lRwqGdRKDEP8ZoZ55/3je93X57ruP+6vYeBv
B4/LSElJZUru/3n7fKCcbdBN57hh/y490Qp62m+w/4jB7+DU+Q+FJhKLWxsv
GhikgqRhKePtEm/MfHhP4U0mmIhvdPeS+Da+oi9rkAsag3SMYyW2nAtKF7Py
QNeQZtE9id9uvLMmGiwEaVmPungSm5TIbxcI74KdxaJCx9UVFOoUeXJZvwx0
xnw0ypb4/sBY8aJLJXCainFfllgQsn90nlUDtik0GDHXVlC+9Gjq8u5aoMKq
LhyTeFfXtS1fB+vAcJ9XF1O8gj6xXZsWT3DA+qjawhWJ04JWffnCB0DU12GU
I0WifmFwNk//MVDe4ma8KE2is8/1bOZq68He64+KODIk0s4a6Pji8gRQS1e6
4ykkCqRDymcWAkezZE0dZUkkI4x+uRiLQeDKuwMWciQaGPPWXdzdBAYUi8xM
15MoqlLx8cJgM6i5ITfoLE8it8wpuYX8FtBuzqn2VSDR5qimQ/MnnoLZrGDb
JEUSYZdzvDnhM3A1h2InUibR+pFx2hf9NhCr89otQo1Eb3BD5MynNpBicyVm
7lsSlZewWz7XtoPOyuQjZzeRyCPcw3/apRP4dgdRS7VIlCNfn/OR9RIcJi5f
yTYgEeecW/gZzR4w5krTOmlEolvTO7T4sT1AMwJ4HjAhUViPKmthdy9o3buC
Hc1IpHrrhcz8YB/o0dKqyrMhkXDjw7JTjv1Ab6Pe9VcMEk1cKPLk5fcDpdwm
M43vSPSQdf7O3IkBsMtv5mCDPYl8iG0Os8JX4JjLeN11FxIVtOed/qw/BPbW
bc87+xOJFtkP6O/ThoBnhYdGqS+J9rA6uH3kEIg7H7ln0p9EM5Rl7/r+YVC3
o7ztMpNEdk4eDqnJo0Dtp6MB0REk6qkRydDm3oNfdm178jlTshfI+ylbjQHY
cp+9nEOi702zHZKDxkC7M51OvUmi9MUyfnTvGOh/ohVysohE2669Oh5Y8QGU
NOr5tXNI9Ee7pZutPxc82u7cqj5Mor9r/zGtuM4F5brsHtE7EvWxd1K2dHLB
sTOtl+e5JDJh/eeJpv0ECLbrVFo3S6J2yiUrKbVJYNVWZd8lI0CbnEZUX7ZO
gbfLhx/NWQlQdU3qSKjVNJg4Umx36poATatOp7kFTINTtMTTN28IEO2sm7NZ
9jQwtU6/2HdbgPIdFQu45DQQPNthHVQuQJltaUyfZ5+Bxw/JKepPBegs9+q8
q+8XQDNWcK8hBShPseMidTcPdOWGWTw8KUTOTjG+8X48IPe8eIdPpBCNhll8
N3eOB5hT3gvycUKk2ffnVGc5D9zjqoempQnRNfb+H1NU5gFPZ9FJt1KILm7p
3igemQetFcfKQ78IEQv05s6E80FzeEv2/SgRkir8Wj/yJx8MKS/X37wgQux1
m0fbi/nAejRwMP2yCL1oY+qVveaD3OU7n67fEiGzQ6LC4w6LwJhqZUxrEqFP
wbTKd9JLwFHlTLaX0ir6NTOusSfjK9Bw3YFQ+SoKmzTncqpJ0FlS1kpbL0Zj
fkMbmtpI0Kbv+rBGTYy83qRYdU2QoCCYl+RiIEZ2HR9/n9QWAPVO8wfp9mJE
qb2rsilZAAaUy0rrQsWIHWvofM5fCDbPXB21eCVGTWpaufYqqyBDI6Pb94gU
VjC8RHtvJwWzbzV/PfmDNE5X6aAXHKNAh95EvTULCg4cOYQonXIwpEm8cyhB
Fp9+dinwN5oCpDM8ta1kN+DaU0pemj8qw/D8aDorQQEXxIRM2xxRgTOeLj+V
eyvjhDzRgcUZKvy9053vukEFS/WPwSfRarDu2IhDNouKTSOYUYfo6nCcW/hz
3Iwqnli6cVixYRMMW1UK23b0W+w2+Wtc5mlNmLPjmfnqvDr2mMiw0NPThsOy
H+5lXdTA0y2B8S+qdKCRrHSb9aomtqK+1nXx14XH2LJyl3O1sQJYChjl68FD
CvkK+Zs3Y9cvPstG3gbwTumj55uadfGb5iBpH0tDWKxm3p0XoI8fpDz1M1gy
hA2qJUUeZwwwUzZyrLvbCFbZlOm83GOIfwmPeaD0lzHUeeuS0KFkhK1ZFt37
A0ygR/B7judLI/xS1VIx0n4LTGLuW2gqNMb/rU64aUkxhTCgoT0k2ATHSNM9
O9+aQve6D2dEzluwwmj03jAODX7j2ps4RzXFkyWG2XmxZlAzX0M0+9oUZ5tp
rXvsbQ7pfY8muippOOMv5vMAAzo0ft/rVhJhhn2yj3YrfaTDNhv5W/V25nhl
110yr9ECHizZPluuTMfcyZ1RzcmW8DBz/O+4AToudLLV6QrYCh3ix8ItKy1w
VWIklbXVCs6+NV6oi7TEyd6/7KMsWcHpDQXSgd9vxd+NFpQld1lD6tRn+gzV
CrPNb1Z17bOB3cEb3OGwFf4DX2Hve2wDx7NPm566b43ddbzvtpvYwtvpl+QC
dtngH8Ke/0xNtYWzKr/d/7fUBudtDjTpXLKF/VpzDmNqttikpTTH42cGhLPz
cpwoW5yxtZne18iASeH/jGeN2GImf11vG52AK/QT+MMeBg6sXTBIvUrAtDN/
J8lXMHBogpfI7RoBeaWDHS8qGTjSizOolEVABTKBmlLNwClLkekZOQRkMt3v
yNUxcLU9Kbxxm4AZRVUNlMcMTDaJX5dUELAzPk5trZWBM/qUrjx9TkBpeqg2
f5yB/yo6GZzURkC9rNGwugkGLorodtnbQcBtQ09bTk8x8MNNGYKObgLmnBOF
8f5l4FEfteD+VwT85Leu4wuPgWlcLZdxrqSv7JP7aY2BbTjResWTBGzutVsq
lSKwQ+IIefwjAReOXznAkiHwftrte/9OE/B8zA3FKVkCh4cY6M3PE3Ct1yKR
q0TgWMcLZB1f8m/qg4nCjQROVB4fiFgi4P5vOLsCVQjMrin6c2WFgBoy38h9
UCNwYfw6Vr2AgEnWIax8dQJXHDi+M1ZEwIDy79v8NQjMMWrVdV4j4IuD8Rb6
WgRu5JuSYjEBJzbYp7/TJvD/AOTYsuk=
          "]]},
        Annotation[#, "Charting`Private`Tag$1937#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVyXk81PkDx/Fh1FYiUnIb5RznzHRI+Hw2WUI2RbWyQjK6bUVC6RBZspI0
FQmlREorOcrng8q45ZYpaogG6/h+B8PIb35/vB+vx/Px1vE7ueuQNIVCyZLs
/0274LeY4X/PNvGH+aaxDwR610pz2Us7B8I4E7cmJV74UH6FRosFf1r+LBBL
LJ9U9GJZVxKY7fKKk6smUBq+rr2IdgesAqpr9SQ2GfNPWGCng539diF2En+W
v/9T3JkJxFMTMYES62Yv3Tg79wh8+MNmb7LEx2yCj09r54CwrG39HyT+t63v
IWmXB+K1jM0pXALNHnXhTbCfg5dcFUso8QMpXuy0fQE4sstqIVribQ039KY6
X4I9WhVRbRIPcRwqyMOFoAjyuYY1BIr3n/ci5l6B7As9dVckbp0LTB7XLgFV
H3eucK0lUEi1lsVYQSko/eK5863Eajfb6kbt3gA1obsbq45AfnRIHWYjoJYe
kMyqJ5D0XFgTGYEB7R+LzrcSt/V5aJL2FUAF/N7j2kCg0DzZksnOSuDZvdbo
aiOBnJK+L558UAVe+Dw/TW8ikEZohfvE4XdgTy+41CExtjs7Pjb3HqjJ/D64
9SOBfun5ZjCqXQOK0vaNHmsjUBd+GzwyVAN4imu8HdsJ9DSbUzVcUAvcpZVT
6B0Ecj3lekBgVw9kCCdvaheBUpaWpgyym8CL2WrfxTwCFZ51OnVapRkoK2do
qXwmUKpgkyoR0QxO7dF4YvGFQCeaV7In7T8C+Y0U3ZA+Aq1M5UpPdLaAvuSc
9l0DBJqTL8oJsm4F79weyN37TqD+S1k7xx+0AtqNMhXBIIGK2Bfujx1uA0F/
CHNTBQTyZK23+m+uHSjPRvXtHidQRm36X8Pa3SC1lucjO08gkvOK3hvfDf6z
/+H//SeBfmPX8VtE3WDx19xLNRQSjVCnPUpbP4HoMgfZJzIksrRxtYqN4YGq
F7WxH5aTqPm5WNpgrBf8+8nw/t9aJFoJlnrLmfUB6aBFI4M0Em3RT7aK8e8D
Pvtnj+1YR6IEMocI+9gHrIeiVzAMSbT+Rvshv9yvYEs0V3Y/k0SRtSZOjAN8
4DQuTNniSKInBa/1c2/xAe/Zy3kNZxK1cLZS9er5YDLV8fViVxLpsve9Udnc
D5hB6cbEbhLVUqPMKEoDIOmF9x4LHxIp2/SsbPrwHUR1n8+3CSNR/vPYnmNm
AkA7M0h7VUgiwUpBvJOvAJwZCvvdr5hEBiFOtobJAsCtWEVd84ZED6xlM/gi
AZCvXCZ9u4pESTXxAZ7vh4F+gnvqRAuJQvj/TDh4jYKeI6XrlQgSpcvWXVG0
HwdQLkG4ZrMQ2dqEe130HgfLNZLXldoIEe+E8Yaxs+OgRF2V5r9ViFRa4r7X
Px0HycbWCU3OQnSD47L9msIE8CpgX5Y5IERX9BrlF3omQEfVrh9D0ULEBh/v
jJwigL6pqDqPJ0SUzKnSnjgCZH96rMv4JkQcGQ1e7UMCcNNpO94OChG3JkAr
p4MAaq0Zy0YnhcjQXZx5yIoEirfUQp8unUJDgQZ5X6SEQJOpopFuOYWOJJ0v
b06cAqEu5Q6RqVNIWpjZi3KmwNEtzyKlsqbQ3b1cyvPKKTBu+6k2LmcK1Woo
2V0np0D9w2NZxUVTyPjxk+rt+6bBDxs/zumPU2ikrLW5UnsGnKYjn6Al0+jE
gBG/MF8ENPdU7bgZMY36vLuXVNSIQGjZuXwUNY12d10za+gXgZAdh7uF8dPI
sm7w3IDaLNjJr0iJTJtG1IJHCsoxs+ByV8nwEjSNOBE6tmcPzIHSr+aNJHUG
VSip3tmsMA/877LTbG/NoGU6UQa9lhR4kVN1YbhdhLjWN8wv2FNgtnl3d1+v
CEXvu79JcxcFRh/KXNT7Q4SkE4sd9h+lwAgrpWbhvAjN/hxhd6ZR4Iwxff11
/Vk0zPN40iQtBQOfJtoePDeL6jkGRrheCr65Wj/zVG8OJSjU0TN8qHDIYdPx
KI4YlWzSfOV6ggplxC9PP38kRv3eJ4E4nArvea5P7X8pRlueKbnvvU2F6ht9
nY43iNHQdq/zco1U2Lyi+tO09DyyuzLadG6LDPQJePtw7OQ8mhGuCN6lvAj+
tronYY/bT+TX446o9YthzK5RfpYKBf/1PsrvpMEyaNagF/FeVxoXBC3frbJd
Dt7foJ1Ybi+DM8KPCiz2KkCXNy2stOrF+HK62I0cUYQaDt0HH9svxZTWPvgm
TAlKHQwx2tQmi/XPBIS601fDCHlqt3OhPO4X3t4j+1YZvvIZ32FZpoCdBo6c
T/pLBSoIrtU4bV2JXfsTjbW01OCq14k1Iq4SFlT5XeQ+U4fZ1Wl5LKvV2Eyx
Q9PugCZs/uwetdCojJcBoS+P0ILlgh6+mYsKdhj1nF7rQYPWptTcX0dUcVel
v5SniQ4sxtsfu8Wo41fX3nnThDowJWqeXbZEEwcsCu5rbFwLmdxHcv55Wvjg
qfBXy++ug6a+nYJWNRo2Zxs3uvjqQrfwc+vMeTTctNJENnizHkwxigyPytfB
ZfmX75lQ9eF/GnFl206vxeFS9J31n/Vhpb/6JqHjOryMF+Z4otAAjuw1tdNT
18UD2TrJ6RGGMC/3nuzlXl2cbKgqU+JhBIMMjmZXFurhxLsB1b40OhxzjlRS
jtDHnsl/Ni4fpMNQejG9EBjgmW2PROnlxjCPaqVjscoQ8we2hlbGmMDT1s7G
Dz4Z4kwbhnqDrym8M/TX2dECI/zsarAi29QMWrbHdtDC6TjG46AzVWgGxxlZ
lKvQGG/gZeTENJjDmyrM6HfKJphjdO9Zg7MFFD8Jju/6YoIj8XWOc4kFLK7t
2cd9bYp3qHs8qtVlwMnNW5z74s3wryeq9yvGMqBb8Uw82m2O0zX8dOuFDLhN
NKb6drUF1q16nOK6nwlL6saXhIdZ4ETTSnpLORMeeHnp62+fLXAAIfOxhs6C
r9sdIy46MrBfwSQt9h8WPLjN4k5KHgMfu7xb7HRD8geuSvLIZ+Dg3YWdy2+y
YHL833GrXjDwNWFwQmIKC97XN7mY9C8D528Wzd1OY8GoCRCUUMrAooqFjuxc
FlSLjjoazWXgxJbl199Vs+BJY8+GkH4Gvpt1PDC6hgVHF5l0bfjOwFlnGu0c
61hQNe1vPjnIwEXKibN1jSzo9+fo3KlhBuZ5KgW2trNgYN421slJBjbgq9p9
47PgmVHlN2wKE1sUhmk9HGDBjaEZTfrSTGx1tUd0aJAFPTcW8QeoTOxikPbi
h4AFr+Wdl/P/hYlPHaVpTUywYNzai2wfeSaOsL4kekmwYMePvZHaCkx8Ve5b
2xkhC+Y8Kr79RZGJOc+z4mZmWDDTa1Wt12omzrwowy6dZUHukhX96muYONft
0NYIMQtGyCb9/KTCxIVrP2ja/mRBH5s01btqTFxO6IsWFljQ7KzFhj80mPh/
nYtHVQ==
          "]]},
        Annotation[#, "Charting`Private`Tag$1937#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk01O8XB/CxRbYspZJlSIRMGC0Uz1NIJCK+FUrWocVX+iKlUip8oy9S
[encoded data, 4331 characters]
bpKhT++y+ag+CfsfT73FQQ==
          "]]},
        Annotation[#, "Charting`Private`Tag$1937#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk4lOsfBnAMKlSWOBqDGTOSJUvjKKTnQbIcaUMdOkSWVpUWlOqkRUpi
[encoded data, 4758 characters]
dA==
          "]]},
        Annotation[#, "Charting`Private`Tag$1937#5"]& ]}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.99}], ImageScaled[{1, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{Automatic, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-10., 
         FormBox[
          TagBox[
           InterpretationBox["\"-10.0\"", -10., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-7.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-7.5\"", -7.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-5., 
         FormBox[
          TagBox[
           InterpretationBox["\"-5.0\"", -5., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-2.5\"", -2.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"2.5\"", 2.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox[
          TagBox[
           InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox["5", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {15., 
         FormBox["15", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {20., 
         FormBox["20", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{All, {-10, 5}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwd0Xs41PkeB/DfGFa5hUWOjEvj0sU6uiB26/PLnZWykZrHImRcasOGNiWd
7XGJI3RBe2Iq22lcEieKY3y/So4kYuQ6JosUuZtBS7/fmXM+z/N+3s/r3/fH
OPj0DyfkCIKIkuV/fcyl6vVOSRDY36zpDg+jUKFbsAXnUAQcSe87Gykz3dzw
q5FROjzd3+B0RWa13JpHSn25oKmyTu+JzA/OpKzyjQrA7I7yuFRmi9nQLJpb
BOWfiq66cCnULr5NrfXehfwnZn/lyyz5UOZ58cvvkKDyfo0VTqGTe+NOLRvy
Idr0y+5imb8MfTOixC4DcfWAv00Ehf6M8hTNcytgZ23PxLjMPIYofdm5EvoP
NLHvRVLI6XWO6VJvFfi0/MslJopCH/NdGyURj+GqTaq390kKZYZ+8V9crYao
D4qOjqcoJFwNvz5nWAuJqK7b/zSF4v9jYDVbWQex6vKxl6MppHet+9W0Yz1U
rd86J4ih0N1UJlvxDwTF9iuGb89QKEo1KbFdiqHpk7y6IJ5C3cO+LIlzI/y4
afXvRxIo5DAzz2dYPgfhSDzfPZFCHrnjXy3wnsPawWdBTucppH+20Wc+ogmI
0Sc8lSQKYceEudnVFxBC5KV1XaKQ4uCI+bThSzjfG12+6wqF+rAgburjS+js
rvM7mynzjNmLT5Wt0NoWXN+eRSGvWK/AScc2UNBv+eejaxRqsKyMbeZ2QNON
CVu3Qgp9++9ziTbTHWD/+7oCcx6FrOKPhtjefgNdW3UuSIop9NMbTe6Ccyds
3D/64k8+hYz1rlhJe7sg4mm3eXMNhVbVavjR3wnB5vIFnkkdhcYu3Ts0xxOC
1s79tdcFFKrhJhXORnQDb03syW+iEGfXbvuZ1bfQynGJuyekUB2jOemiUT8s
3KQHhiSy/+dXb3uX2Q/02vRq6WfZHrFrNzPUBuD1wC+F6TSFppjLvnXCAUj7
IJi4u45Ge/Z62aeniqA0TqukgkUjFz/5AXrpHZgxKk9IvqeRIqwPULUchh6W
YX+eN42UbO15YSHD8Gb8m8BCPxplXOI6PUgfhvNepVfk/WmUJeEvnuscBm46
rLiG0ohYFnGDS/+A7w4pMZ2SaHSx1cJjR+AoWOcklwxW02jr+JRp6Y1R4BS8
7TAR0Kgr34Fp2jYKjjMjn5ObaGTCPVqvazcGaHe5VayQRlqbNDpzFsfAdvuh
juZpGhV3WU93NI9DfZaWHe8vBPbY6Oetkf4Rzuxo8WzcR+CHFemDJy0noaqi
3Sf5OIEnNSczPY5PAvtaZfnKCQKHltX5BBXJLC7z/SWKwEyHXjffwUnwONtd
3h1N4B8i+h4rd36C+rk2512pBLZaKnzgQUzBP+jfBCUZBI4fvTrv6j8N21Wt
F7LLCBwm8mIbOs/Bjb6ulDWKwPv2JvonB8xBQdgaz1+egQ96JUbOJsxBHKug
uHk9A1vMZIy3lcxBeWP4iQotBs7J93RPU58Hcf+dTuE2Bv7VtF2NHpwH4tZz
7ZCjDKy/S06b/34BNqqx7uvlMXB92QY76c+L8Kx1uuLxUwYm7i7VDWYsgkbP
z+6ZDQycL68vai1eBI8tqb+VNDFwy8swA37PIuCqWZfPbxhYNTozLtxeAmcH
RWLxBAN/DDcvEzOkcD9oT0Sjvhy+b5sWo7smhRbH9ESHQDlcURb5Vi9nCYaS
c4PFKXJYa4NBYULtCmh7MyVlJkz80/uto48ffobt3hxbQSQTKxlfNn+3hyDz
zBW6FvMUcJb6q213gpjkDpZZVO2QIg4e9EHMtq/I8WcXKvJTlHDMi8vBp82V
SL1O5ZDv3VVxZbTKYV13VZKciGAfXNqAodBOettenZSrqtCxCdLAKR5QIzqq
TjoV/Zjde04DbzkQlSrwVyd3G4X1HE7SwH8rWvOWTGmQ2Wcu9cmPa+IGa8Mc
6bIGKVbhuGnOaWJCOEzWn/ua9Jm1Ugvy1sKew97bmtja5Kmq2JXWAW2snmH7
qsdcmwzgVKlki7XxdV+Hka+9tcnJA+xIAwUd3BIXoFh6TJt8ZFQnNFfVwWPS
vCPKAh2yum22g3dsI/Z4H3khN0aXFCjk+F2X6mKvseztBgZ6ZNaIrtpKph6e
fB6c3FK+iTTlud1iKetjS40elmMgi9TRPGzNK2VhJZAeFy0akK5Rwmm5nYbY
dZqzvNnXiCx5WJXvdMoI9z0LZXAsjMnXIqx2eJ8xrk5rCjCSGpO+QVvshhib
cZhC3HB7+2Zy2O/bGU7PZhwSm1itcotN7lfMrTe7zcZmhhGdsxSbJP5/Jvi/
QY91TQ==
            "]]}, "Charting`Private`Tag$1761#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwd0Xk41PseB/BhirLOWEqMYSxHJDmObsnR5/eQlFsOsqUee4a2I/sxp1XH
EimSpnuzlm4TkcK9afn+HGuILAdFmbKccqzNDN+Zsdy59/M87+f9vP59f1gh
P3sek6dQKDGy/K8tknfz37EMQRM/umlCwWgy8sPnJ7xfQKjOXlWQebX5VbKh
YTqsOKODujKr5dQ+VhrMgYDeK1b2Mj+ITZHyDG8Dw2XWPlJmy9mwrFV2IWRV
Fobek7nzY/7K0kAJlPlV/ntKZuGf5QfOL5dCztaiYEc5jE46xJ1aNOBBgESj
557Myx+2flYyLofMsuI1NHmMJCcODM+zK+FbTFxytsxFcsPpi85VUM7bnKtH
xWjPm2zThYEnEKHx9vUTmb9wXeqFkdXQMKhj4rsGo8yw5aMCaQ34iR6UrFuL
Ua80InfO4BnkMTSVbyhgFN/CtJ6tqoMFI23hCUWMdG/0tU87vQDrxIpVj3UY
laRSjRU/IcgPdOflKWF0QvUcp1NEwkOfiu4lZYz6+N76Qud6qK58dvaUCkaO
M/M8OasGWKmO6TukjpFrzoTCt6IG2K+SNaVMw4iRWO81H9kI9SNd2J+OEemU
MDcrbQKbFqUIQy2MFIc+m00bvAZG0tWMfboYDZIv46a+vAZ+osshgZ7MM981
/VXVBmFNQTZl+hi5RbsFTjp1AAf32DiyMHplVRXdzO6Cn7QKO1XMMbJ/nsT5
23QXVB0xzT1lgZF1vF/ojvy3YH74ovbCVoxOv9Vgf3PuBrvQVDrve4xYules
RQM9wG/f0Kdtj5FUrZYX9WMvXKj7EJ/tgNHYxbvuc0W9sEld206XwKiWfa5g
NrIPvITiZk9njPx/sN01I/0DPLpt+YHuGNXJNZ87b/gOohLj06cjZP/n1liM
ZL6D8JdHrnJOyvaIXsrLUHsPA+ube3qiMJqiLnrX9b4Hpird4VoCRjsd3Hal
pw5DeFCT2+ZUjPb6rnm/ujACDzqaGy7xZHvB+gBVKz5MCCKZ1Y8wUtqxqyg8
lA9JZWZZ255glHGRvedBOh8uHD75LK4GoywhT5DUzQcVobv1necYURaH2SFl
n8DmmH4d7sTofJul6/eBo2B5t8jgHMbIfGLKtOzmKAjXcqvnlzHq4TpSTTtG
4aR3IyOWKkYmbL8XOnZjsG3Kyq9UTYy09Ojd2YIx8DScmA8zEqN7Pdunu5on
IPmp790SHzFy3ejrQU//AvHMsqKuLDGqqEwfOmk1Ce154cXBDWI0qTGZ6Ro8
CQbSpz6WbWIUVl7nFVQ4CaH3x6TpPWJEdRzY5z00CXmKVeaP34uRZ+RgtXL3
X7DXiFnTuCRG1gsFD1wpU1DQn2/PpUpQ/Oi1eZej08DxDS0Y2S5B4cNuxgbO
c+DW5ny+tFqCdjtwjl4ImIOqm0EfBC8k6Cc3zvHZhDlY3SB55dkkQZYzGRMd
D+fAorbN2rZfgrK5B/an0eZhimnnmoIlKNm0U211aB42aa3vDQEpYvwgr80b
/wYliTdGC4ul6EW5up0oRgAWl7eeduyXIkrJQt1QhgBKIi37YkekiLuGMdx2
TwAzdUXyOl+lqPV1OJPXLwAN5eAt55ekSDUqMy5ilxBa71b8vdt4CX2JMCv/
KCeCM90ttxJjl9D9HWlndJZEYGHLE5V+XEKV5cf/0M1egDy5I+6j+stIS51Z
kPAMQ2Ltcedr+ivo9Lj5aHWFGOJTh95oXFtB/IB36+pfi+Gb0481+++soEOD
aVZvxsRQ6x63msFbQTvb//xlXFcCHO6dIpvGFUStKqVtSJXAlfFjnoqSFcT9
lbU7IVAKXVPWHq3sVVSvuem2HW0Z8h1s7jw3pZBKrMtmIzspBOJkf5LqyJFZ
tHaL4iAqMWRy2/s7OpUMGfJC1A4FgiNlmChFryXPNF0O+dlMibh3kNFXLFEk
q6JUDunsVyWKNhtMpHGUSCiwE+XvohFBb6x35rJUyRRXqB32oxG7bz0u3+al
Sm4+eCL15VEa8XzjYdtP/qrkpcIlD+EUnVC7+R9GjwKNfLXdIFu0SCcWY6zZ
V2k0ktLLJ14kaRIdc0laueF08gDfw6LRWJsgzyb8OjauQdIydrT3m2kT3rYD
Lde/apC53o6fNT20ib7Y4qdu6ppka1yAYtlhbaK13tZp60ZNckx0y0f55Qbi
TNfF354d1SJdx4+fzTmjQ4T0/XPs/rw26TZ2fQuTqUuopgRyvZM3kpMNIRda
H+kRPvfrAuWWdUgrer++U6A+wW+jl7Jv65JKIAoeFjCJIGp19W8MBuky7b9o
5G1IfIyKa5H/XZ8c/D1Mzt+SRYTEfPW9HmxA1qQ1BhiKWIRcQ/65fTGGZPja
OH5npxHRYe+5p20viwyN5tSo/MOYeJiid7tFxYjcxt7SeSDYhFDbtP3SwS4j
skvDUjnOzpRY86/H/qjEmGQ5myoXck0Jyv/PhPwv+9K15A==
            "]]}, 
          "Charting`Private`Tag$1761#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwd0Xs81PkaB/AZpDBE0rrPDKGE2q3cSs+vpIukJVQ4RDIp3SxpU4hyiQqH
bTbHJZuOKWWnMoT6/iwpl1zLJVONW0mG78wY5LJ2znler+f1vN7/fV6fhxl4
2v2oHIVCiZLt/655/BZBD5MBlqGEDoWC0UjIh/7HnF9hNvI6LJJ5oe5FPIOR
DO3JbhWaMqtl8P5U7s4A//viQAuZi8ITZjmM36G9ebnQVWaL8aAbC6w8uG2k
tCdK5uaPOX/PdRVA1ubQa1yZJ74Uu8TMF8JN5tkGkcyhDhEnp+gc2HH+j7xN
VIzmP1j2KxsXw4vNfymmyjxzwoUvYpXA/MeHZkKZ86n85CknLggC0ngechht
f5NuMtn1GJqcvjDrZB5m76yeCHkK+u7skK3yGKUGzftKZkshVjHxep3MHbPH
MjH9GXAW8kLGFDA698pw3Ti3ArZ/uMpMX4SR7r/fNgodqyA7k1HqoIhRQaK8
8eI+BJePsj1FizE6oRod1SwlYWLZdtrfSzB6K/A0mHCqhgmeT5a7EkbbxkQc
qlUN8OhkZowKRs4ZnxXF+TUQ5z9apkTDSP98tYcopBbSvrQZLVLFiHSMxOOz
L+Fg7P4EnaUYLe7tNxPS6+HaeqdL5ZoYdZPPI0aH64GS/6p7ernMY6Yvv3Eb
IDzpLM1xBUauYa7+I45N4DE9NTOhjdELK25YHasFBk7vedRsiNGmygtR1sIW
oLAGsrvoGK07d/CITU4rcD8qjkcbYXSqdRlL7NQGq2w77HeYYMTUvbZO2tUO
W3hbBrwtMJpV43HObO6A+NjgK7ZWGA1e/uNnnN8Bbz3KVRjrMOKxonPHQ96C
3PVLN2kbMPJev8F+bPYdyEXf8/PZjFEFtS46htEDa5IdPDpcZf9nl5p/Su2B
A+HJjFg3WR9hc7+lqL2HgsaiS7UeGI3KT3lWdLwHfnLd5c5DGNk6uNonJ/Ih
pZe7O+soRjsOKLxfmPwEZ7I1n5yPkfUFSn6qVgLwaflJtSAOI2Ub+/zgIwIw
7dx7RD4Bo5TLrO1FyQIoj+rPi0rC6MYER3KhTQC0fV+30a9jRJniswIf9EHR
nUleZTZGMQ0Wzj/6D0AP79M77UqMVn8eNXmQNQBlpVYNNgijdvY2eZOmAWjd
a2oUWIPRStbBKm27QUi0VpjubsRouZ5GW7pkEO79ZuPe8B6ju+0bhS11n4FW
d93JV06EnH844KaRPAzRIGhVsBShRyXJvaFWIyDgDEdiDxEaWTaS6hwwAoeU
rS31vEUoqLjC43DeCMTZjPeePyxC8tu6dnn2joDLvwZRcbAIuYd0P1Vp+waV
DR0ld2JFaN1kbpEzZRQQpeBi51UROjdwU7TTVwjBjF02a4tFKJjvakx3wrCk
cD7eVFWMtjhE+cb6YTja5+11RVOM9rlGHR+PxGCvz3UY1xEji7GUz033MYSc
tnzSZypG6WyX3UnqIphyL2m02ypG8SbNagu9IvB6p9n3NFKM9NfLaXGGxLB9
l9qp6Boxqipeaif9RQK1tyrKdUbFsliTFb0pEqBv6LhqLREjtoI+v+GuBBRT
BXoPZsTodX2wIadTAlqtc74lShKkeiY14pj9BDyUmA2tXCVBw8fMij9SpSDO
vOVSFSxB92ySzmrPSSGD9nk27JkElRQff6ebPgmdfeli3ogELV9qmBv5bBp2
PT6TFv9kAp0aWj3w9NF3iOk97H6fJkUCv54l1fXfoV5ad1L3Byna351k9Wbw
O7AftmRlMqXItvHLr0O6MxB624vyX2spkucWqq9InAF347gxxwApYl9kbon0
nwUX7/J8n3IpqtbU+d1OfR6aP8X6Ck9OImXmFbNPthSif28t+iqdQnfDDX4M
cKIQOrpi7zfUaZRwMNfGwJ1C/HTAfyVWnUZyaeU7fU5QCLrzoucrTKfRzN+j
rK4cCuHJPLG21msafeN7FrXIUYlat+ysnGfT6OLNuTmyiUqc4xjwra9+RzfU
G83vHJYnBq/sr/ZYP4sCez2QfJMiwUuNLR6yW0BnX14JPG2mTGgG0PXT2qgk
9wxtv/ZuVUJIvzh0TFWBhFw7aY69OrGpTqs9I1KRTHAGHv+gOrG8bJxfU6hI
rtp7IvG5rzph2FeaM/NAkYzLm3ObGNUgqrwK+7daKpEvNtLTpVMaxIabdy9l
gRJJ6RAQVRc0iQuSWps/a1RIF4Gbea2xFqE81KqumqtGqqfYNHaaaREFrUFc
WqEamem5rV/TTYsYipSfYwvVyNcRfosfHNIi7jzPSK2cUyMHpbe8VJ6vIMr+
E6N7skyddB46finjrDZxOByLn8Ay0nUwbY2hoS6x9H7YwupXmuRITWDs64d6
RM/gvak+Wy3SSqPTwNHfgAjc95VBa15BKoM0gC8xJIKIWXx+jza5U+g9ZeTJ
IHrjOUMV33TI7r+CqN4WTKIzQa3rW4IeWZpU68eQMgkf8zfaoUsMyOBFEYLm
ZiPCYmPZW9NiQ/JIWFQp7bYxcVuFnl+pyyDXstY0uwSsJDSCqtl6fAbZssxC
JcLOhOBaUL+EP2KSlY/isi3kTYn79fsUbH8xIqOo5j83fTAlejtNhSO7jEmH
HL3hF2wzgvL/WUn+A+lO+1w=
            "]]}, "Charting`Private`Tag$1761#3"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0., 0.596078, 0.109804], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV0X1Q03UABvARJBcEJx6nhObmIUE01ihzZuJjyFDQBhKcy0NBJecETTgF
ZeZLKgxBjGE2LXEH1DHkEkxRkQgiYCjKqwLbj993vEhrg72wCepAWn8899zn
3+dZtuub2K/fYDAYEY7830Gn12oHlrFwgL2xZW6OQC8eHL6pPIqs82862Rye
a6k/zWLlgpUo0nU77CmrqXLrl+Hg8Ld5VxwuP5RtV7IuI6WpVb7JYbYpuWBO
dA2qO8c+HHtN8Ji++nqmrwSirlTuPodt/1RuPjH7C3hB3Li+WYLU0MP7p5lK
KFiR33Mcnh0MHnbzq8SttrOtGTMEr1I2UxbRDUgNL/+S2wkUTlTuNL8aQn6m
e+UrgvBHhf5TfTcRw2tWlb8k0Mk3NNrEtyA3G18VvCDIT55NsNpvQ3iZUbJj
mqDHvveimXkPUp5XdK2NIKN1KddUXQv5tuD4CCuBb1Hvw4n1dShXpXTetxCU
5Dj7uQ79CXFpgqFvgiDF47jk8fMGCDJSLqUZCHq18e/a+I1IOsKMrdIThBkt
SidOE7IP8dU1zwiiZGPzJhVN2HvU4iIZJVhypDHOIv4b0vYXH6wZJmhYn2k2
2ZvR+aROkzVI4KoZDphgtsF8xrP5326C/oY/Do/r2iAMTAnw6HTY+F6zofoB
dgWLGb6PCATpgkT9+nbMF1kWmlsI6jnV6S2iDpRdH9tTcI/gs/tZkpUTHZhn
FCVx7xBwM4S7eVc70cwcFi6tJjjQuUA0ye+C6u6xhU0VBMt8z3Gf93WjTBNU
ceEKgd2zRnlwTQ902+nbUZcIRk+VxpgVPdibFO5hKiSoER0vNol74cPnB9qk
BNs+XrHaaH8Cxt1ib/NhglqnluMnWAMIi0z78ddNjv/lt4NI/gBUAfdXZvMd
e6TPXMrzVEOmUOe5rSUYd56Or+1RI6bbwNv/EcGqUMHq3BwKqrRozplFBBFb
XdRzUwQqm2cOm6Lhird2eHC0CIw8oBjvpeHGW63Ys1sLQ+OLYPYjGnmnROHl
uVoc2n528XetNApsSmtWlxYNkoscuo4GY5oS7bo+hBUB+UT4E40TD9hRIYkj
kNpkxq++pPH+2Lj/9R9GcPKhLGQkkka3PMzZv30Eq2YPuseuo7FcJKzz+XQU
81/2Z2vZNLwXe3UVWkfBuuciOOdGo6z7k4mOljFI1pmGzt8YRNSirVu8cnVY
kmyVxXwxiN9u5GpSOXrcvViXuNNCQb9Anx+1U4+GZulQ5jMKyZW1cUnX9GAX
Rbs+eErBOaxvY7xGj5DUBKtERSFW3H/LvcsA+8/14/J8Ctyp4vIoxjimwssF
RScpZIxcsGxImIBuC9PPNZDCHkrgx+SboXdN9b6zQYO1oZKEkzvM0J3ldU6v
0iBaINlnyjRjpspU/E6QBmxj3lh7hRmlblqrz9saFMo3R0rnW9BgVz516VDj
tP9jzzmNBVWLP/cpilEjx0PYFtE+CYY4IPrZ7wP4D6z5V0g=
            "]], 
           Line[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAHSO5j6LT+D8I914wUwjVP+Be2QjB
yfk/sFboCoYr1D9T2IguzeT5P6AzMz7BEtQ/OMvneeUa+j8Y/y4d6+DTPwOx
pRAWh/o/QPMO4gx80z+YfCE+d1/7P6CH/baJrdI/wRMZmTkQ/T9ArGRbcv3Q
PwohhCffOABAsPhCT6aiyj+kdB0xYUUAQEQoLzNOaco/hlieNx1SAEDQpU9y
wC7KPwKQuEdbawBA4NEMdiu6yT/6/uxn150AQKAvinn0zsg/69xVqM8CAUCg
mQrvVPDGP3yP/PzAzAFAMN5qu18Swz+OEMsqoWADQGCkKePOqLU/YttUvwPM
BkAAL3KnZKqyv3HFhGJvJwpAxG2qQhAQ0L+xcAxTGEkNQBCXsz1W/tu/P545
9Z06EEDWfEL2863kv4ZKP7bcWBBArM/tuxku5b8oTWuHvVwQQBWKwNbxP+W/
gp/8UfTsEUA4cedMinHsv741H5H19xFA3UEkthGo7L8A0+BAvHoTQMmLQ+9E
EvK/TOBRKsQjFUBLNH6pPHj2vxCLN8vWJxVA5PDyuwaD9r+UVULiE1EVQOTM
A2KB9va/yHVeB6tZFUCnkpvvpA73v+T1l1YLvRZAI8IMiT71+r9K5Wp9knEY
QC/4p+5YAADATuSQKx4eGkARnTTT9ZcCwOrDYoDIrRtABVcMt4gaBcAuEdYd
Q18dQK/UEtc/6gfACj/1YdzzHkDQP5Ufr5wKwEftWvciVSBA0lFE4lKaDcDY
wmQBWiwhQP2Gv1uRTBDAtYjEXiD1IUDVtl2w+bcRwGYFdeDOziJAwcY3y0RH
E8Bjcnu1DJojQMoS4htIwBTAL2crzkxhJECjary0PDUWwM8SLAt1OSVAGJBr
qAbNF8C7roKbLAMmQOoYknsgTBnAewEqUMzdJkDPBEf/te0awArcekhutCdA
14O7w7qJHMDlpiGUn3woQKMQLjCcCx7AlCgZBLlVKUBfYMyVkq8fwJCaZsdh
ICpAx1C/eWmcIMBalF3ODOcqQK+1HcOqXSHA+ESl+Z++K0Bwm//Z3C8iwOPl
QnjChyxAKdMCimP0IsCiPTEbzWEtQFps+HnUySPACISyDgyZLUAAAAAAAAAk
wIRrhlA=
            "]], 
           
           Line[{{1.191565343157371, 0.39878488150615715`}, {
            1.2045888267255784`, 0.39654764420048677`}, {1.2277325246834945`, 
            0.39257190727945135`}, {1.239907377963947, 0.3904355873365346}, {
            1.2642597762815087`, 0.3860998028763036}, {1.3129564976466614`, 
            0.377179272101102}, {1.4107401179888055`, 0.35825959258702766`}, {
            1.4164427505305075`, 0.35711494463689375`}, {1.4225301771707337`, 
            0.3558878608797813}, {1.4344941351914176`, 
            0.35346088174630497`}, {1.4480021488237615`, 
            0.3506863878022179}, {1.459616828385415, 0.3482978884958381}, {
            1.4630990093043108`, 0.34756476518996804`}, {1.507756861303157, 
            0.33816269423128087`}, {1.5389136004840542`, 
            0.3314289679361315}}]}, "Charting`Private`Tag$1761#4"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.567426, 0.32317, 0.729831], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV1Hs4FHgXB/CZYedXNr1od7vaYV8ia5Xddost57wrLFGu8UbaPAmRWoQi
lN5k6UIIm8xKbwm5ZZ6SXCoybrmteyiXNMSMGSZmZH/9cZ7zfP4953yPpsdx
e08Wg8HwpvWp60WbDPVoakBCar1saYmgwOfVm+KcU/A/1VUan7xUWxGtoREL
Y5EWPDn1ykReoVJ3Injd+Tb9A/XdoAuyHI00sOKGds9Q608fvrzklQmRM0GB
E9TNAxkf5V1ZMPF9r/cbasnbPOvIxdswtjGwpIvab+fJY1JODlyz3ujZQF3S
MZQtMc0DUxdlvyfUC77W/SKvAtAd4jTnU3OZ/bFSsyKIYLvH3aDe1ZSgPddV
DGtFL27FUo+nWlRLfB6AH//A6pPU8YcX3cSyUogo54y5U7fLvJOEnEfw1SPd
5O+og198vWW6qAx4BidOqlGvu9bR8N60HGyujxTOfiSYFaPwb/K6EioSUS2f
2lc5Iqx5tgpYsxbmUdQdQ07qErNq4PaGGwRQ/zIlymEaPIMAuxm7L6mtEsfY
M9xnMH7mC6uPiwQ3hFY7inyeg3ncgnsHdZVpiHBaVgNhSvvSw6hJ3xud9xw+
mMQ5OfPkBLurnpycHOdDQ1aCIOqTpzbWTBTVw2L/Urcl9Z6APQcFpo0g3R3y
olNGMGV5Wcpbr5ewJOwR9C8QfBBiFRC4pgX08h86p1PfEGxbKw5vgW82NXP2
Ufu3qHnNmLVCXllmdd08Qc11f2yZ7WoD3ljGr+kfCMpW8nJO7GiHs95JiVbU
I2dv2Qq57eCvHrx1XkqQ5xVxc9qnAxwapmPtqPf/sNV4SvY37MpqCZuaJVjG
rI2I1OgB86f5g90zdP+ppXqD8T1wIOlS6BHqDQHylLiVvZC7q+pxr4jgpILU
qay9F3zUzncxqbfv3GMcG9MPlVN1uz+fJnjmtcaVHbxB2Hlqy+blEwRvPf3z
tLLBEISqayVvFhD8eWOScczhIXh393H5n+8IXpbkiE+3DkHnvD76jxPcmvC3
p0fua3AdLVgnHyUYWa9vZXhwGFqTMjmPhwhuGpvUzk0ehpjBgb1K1G2pvyho
Nw6DuntLgvMgQS0vl/I1RiMgejFqNfmK4BfrVVsTxCPA3eDKO9pHMLvtx/cv
a8cgvmz+99oOuv/VznaqseOga2+6Pr2J4P2C2D4/AwFENxtxh2tp3tQE8VaH
BPADS1GgSH3ZVFn5eZAAxKXJjIIagkKuwxVj1gQI7fXvbH9GMJEff2R/zQSk
VC+2VVTS+x2+IrJwew+coCxXg4cEMz9viFY1E0LwKklk/R2CJjvD3KLchXBA
Z7m09P8EDe8fay8OFcKj/xyyvX6b4Jq2uLHGe0Kol5SY+d8imJBqbXlRRQT2
i9Na0psEo7WbVy71iUBXyff7h8kEvaA1bTJADOvDNt+QniXIyJor64sTgzlr
N78kimCq4ob++mwx1PBZ//WPJFjHP/J1TqcYjHfbcwfCCeo6yrM8jSUgwKrm
3BCaV2+dvAHmLEy6HMj/4EfwaOKZiparc6B1LfaC2z6CrNmswcqcOSiaGlgx
6kgw3bmOUfB0DlK1DOd8Heg/2raXUyieA5ZD8epztgSf1qy3UfxWCnpG/bbf
2RDUOPfqX7oeUjB8x/6jy5KgvWXEHu1oKXiUzCw2WRAMUjRgXdX8AHeY98I+
M6F5GN00/OD+PKSo7XWz0SI45N6zrJo/D0eeGSlEfEPQofuiQdPIPCQdvfc8
T4PeZ8PbU6PrFmCmcMt1RXWCCkW3Vb6KWYCgbuewjC/pPMI1TUIOysCjzXlX
EJtg9aq1aUYqi+C4/4S8dIyNSprndQa3M9DdY4dh3F9szA5SNzxkxsBt2cFp
/plsvOByc5u6PQMvLmtMMM9gI+vqQwtXXwbWvuG7ylLZuPBx0qsrg4Fy70J9
u6tsnOh3uvuSxcTcZWm1+RFsDL8il1c1MtG2wrlTbz8bL6s06P31mwJyy2ce
/LSCjR59jpUKjWxkHnzc9Mj6M/y95rzHcR0lfKuaWd0doIhFJ1Y4rLFUxtOB
7ueVLykg3DSazTBWwV85BRKXWBYaTf0W1bdXBR2Dm1ovhLFQ18Y35ombCiYF
eHdqBbLwXKbcTjKpinXH7x0tdmHiCqmg7JhIFS+NNG72dGLiP2lVIek=
            "]], 
           
           Line[{{4.498525251835517, 2.161981989158206}, {5.272131143113654, 
            1.851223221396275}, {5.2920932793337165`, 1.843179536806098}, {
            5.331192688138356, 1.8261864598186284`}}], 
           Line[CompressedData["
1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAAcWd52TNgFUAWQpXgPiH9P0rlan2S
cRhA/Ed6NBNm9z9O5JArHh4aQJx2qGpm9/M/6sNigMitG0DGo5afNJPwPy4R
1h1DXx1AiOjCqali6T8KP/Vh3PMeQCxtAmw9w+E/R+1a9yJVIECoazy67DTS
P9jCZAFaLCFAAPTfqC2xej+1iMReIPUhQIie0B0L3NC/ZgV14M7OIkAYrtlm
PCfiv2Nye7UMmiNAvKY4o9uN678vZyvOTGEkQMLtNDyBh/K/zxIsC3U5JUB9
3Rw4cdb3v7uugpssAyZAOEYn/SPt/L97ASpQzN0mQEb4W4IISgHACtx6SG60
J0COegKFoyAEwOWmIZSffChAGMm0drPTBsCUKBkEuVUpQIptN8dNzgnAkJpm
x2EgKkDAJB78T6EMwFqUXc4M5ypAlPyksWRvD8D4RKX5n74rQLhb0KnqQRHA
4+VCeMKHLECFR3Jpj7USwKI9MRvNYS1AlTk3CxlMFMCthXURZy0uQEr5VOu2
yhXAh1VjSwP1LkC4mqwlSkQXwDXcoamHzS9ATRTvyD/gGMCYKZutzUswQObm
EfO0YhrAf8CNmEu5MEDJuv0uXwccwE0bVaXKJDFAhaEh0AamHcBBbsdbEYkx
QNn19nkgKh/AnxxiJMz1MUCDD+7eF2ggwCTDp5ZOWzJAGXtlBKAtIcCQLcIq
0r4yQLFlcJqz7yHAZvME0ckqM0DW9kfEsMIiwGKx8iCJjzNApFK1UO2HI8Bs
glP8SpEzQDlKoL1eiyPAdVO01wyTM0DRBKww0I4jwIj1dY6QljNAzQ0aKbOV
I8CuOfn7l50zQO7b/mJ5oyPA+cH/1qarM0BFf2T4Br8jwJDSDI3ExzNAkgDC
lSb2I8Cao21ohskzQDX7OcGY+SPAo3TOQ0jLM0CLTnjyCv0jwKwXaUvKzDNA
AAAAAAAAJMBT00n5
            "]]}, 
          "Charting`Private`Tag$1761#5"], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwVx3k41FsDwPEZKtdWURclZhJDQ8LRTcI5RZukRUq4LcK0yEWkKG1iPFS2
NCnJWpJ9eUtyDpFsY2tRpqgJ3SmFMWTpN9f7x/f5Pp+lHv/s8pKh0WgxM/3/
KWEec0w9b9tcVdExT/ejcG0n02Ev8wzMl3ho585Y+qLqMpMZBQ1twgR1M54b
X16o0BUPW1bv8B2ZcQq5ypjNvAVzDqd0mvhT2Oin5zUpJxX6nlZVujjjD3Pv
UtNv0yHb005dOGPdbPm/JqeyYKZj4eieAAr7WAedGGfkQMadpxmCGZe86s0c
tX0Eq4dKlgWepPDkcQfBMKcAupq3ntQKpPA9uiBqfEMRbEwyTOiasV1LnN7Y
22LYndh6ISuIwl95m6pHj5bC1N85a8NPUTjG87e7eKoMuvyKqwkMpnDn1JHE
IcYTeIDpvzL6DIVP1Wub/CyqgNpx91SLQii8OOFV06BtJaSWO1Z+DaWwBxvJ
fuNg2H4pzv1qGIVlpkJaR88SyA/I2D55nsKvep21RjdUQxfKUObMRQqffqT4
ZORtDeQo8lJywylsH98/Z+Teczj10erSgQgKLzldvXv4aC2Mle/W0uNSmNgG
D/2cqoP2VRF+fdEUluv+rD/IaIBOkywry0QKd5FnQd+/NsB9kbVxoUkUfpjN
e/6tqBG+61WM4vMo7BjgeEBk2wzP0G125KRQOEm+ImmA0wqNNjb0mT6gcGmw
fcBJjTaovvjHoPQhhe+IVi8Sn22Dq9Lw2Z48Cvu2qXJGNrRDB7f1jM4SCqve
eSkz/LYD5h8Q/RFDKDw1tzzHz6oT2u017+p7TuEvFzN2DN3rhIpLspR31lO4
nBN29+fRV5A8WXLLjU9hV2Bu+WPqNVwlflCIPlA4rTHV/xvjHTxmkXJ9I0Xh
UV4ZuyfmHbwuH5G9UFaKN3KahB0T7+Caloq2MTkp/i477lzR+R4af7i/blxF
ii2sHS2jIgVwz2P5mgGWFLcVTMvo/+yBln9vs7+wW4pVofx+ZeNeWCt+Pxjt
KsVrWYmWkZ698OqrXctyD0rxtdEccUh7LzxmbcHUPSHF5nGvvTxyP0GJGctD
GiHF5xuN7E0PCGF5mdWzXVVS/KDof6zcG0Los71KK6FOijt462X1moVw7ZG0
U/3NUqzLcanUWPMFMhimX+u6pbhRNtyYtqAPhnFjM70npVjNulu19UU/TLz1
WD5Bi0byC6K6fYxF8Pht106WF42IVEUx9odE8PxDi+zkozSif8rexiBRBA2i
nRlqvjRyz0oxTTghgq1jGkPLgmkkviHG27XuG1zf63YuOYpGTgmvD29yH4Rt
OrS6HwU0kqrYdFllwxAc+N5kPE+GTmysQ90v7B+C1ZVtxSfk6ETga7jqZ/AQ
LH44z7xTiU40OqL7mx8OwX43J40SdTqJ4zls4c4fhgwFA37dCjq5rMefK+0e
hsmfF2iaudEJB7bf+h4ghj0vd+6TVtAJLX2sojtaDNX0p3gLqumEN2uJoDFT
DLdaFPWtqKeTlw3e2jlvxFDHZ3VcYCedGOyeTveyHIWRFsdStnynk69H9B99
pEtgR9OcEWWGDDkWf66qLXYMpoeGSN5zZYhv33Jhaf4EvLlNJcDbR5YoLA3X
77GgIbjNYbaEN5tcm9/ETjsoi2yby8tdPsoRj+7dWLZ5DnrhXunwK0KB+NeF
e/yjr4C4JV8DI7YokyI/JSeNLcrIp78nJ2hsHkkLPS4y2TsfZSdYXvM4o0Iu
pU7vHP2ugrgvNB2U+1UJrbMXVYYsQDaR6r+8di4krEDv07vZf6Iwv53en3v/
JF8kN/coPlNDrAKDhox96sS+79i5eH8NxB1rD0mSaBDHL7GG2tqL0ZbY4XsT
MYuJ6LnHhZd5mmhtsHeLtuISYqzyRsv2gBbafitQKy1XiyhAySGBWBsdxvx0
WTMG2TToOq7jzERa8x98tDvBJF01nnRXo6XIzu/xBiebpaSMW7ufKVmKanOD
vT7QdYj37KBePl8H7WvMVHF7o0MOB4SWKSUvQ2dect+xUpaRlRxDvsMhXeRu
62R/8KAuaVU1Ugxao4d6Nt+XO2+uR57mX7ptJMtCU3Jeck8m9Ugonb2j+QML
DeJvDq/bWURBELLZt1QfhWsaDazP0id92UsTU88aoPBUV8+cYwYk0WDRrCfO
y5F1YcP2QbScxCZ71x9istHt1VZsTXk2cU38m680wEY1Dgbi0BY2+WWXNZFa
ZYg0A2/QHqcbEmHf+tM1kUao/Ir2vqajRiTd2lSz5dAKFFg/vrti3QqSdyVI
hbPCGG2y4gqCFY1JpPPhrbISYzSiPpu4tBuTVYK0nMiWlWi4tI+/8MFKwlt+
O69lqwlSWh4t3WJhQs6Tq7ytT0zQ1jhexHimCdmm6ZzVqGuK1ilf0iydZ0rW
+da7qUSZovdzs9q3nTQlqUs8dJslpujOnb+uOfeYEt3n95Mc3czQ9bEQZws7
MxK7oobdUWWG8v6NFevdNyPe4lntDWyAskyXNV1UBcSjaIQZdR0gvSb1xrJT
gPhccpq2jwNoh4RlF3QakCCn0rdKCQA9qsmoMg8BhCsJuhabBNAf7X2lJecA
yV8zMXUzBSBhODe7KByQiWrpm+xcgNwLje/mxQMS26F0tbYeIDk/8DErH5Dk
jBNHIhoASkqv8vIqBCQjkG+7uQkgf0HJoG4xIOVqsZNNfICsJd1URhkgAtcF
RzpfA5Rwn8FKrwREX7jI9rMQIOUEd+7dRkBMSkO0M/sAslMLVdvfDIjlle4J
rwGApj/Rs7T4gDjopxT+KwIo8sum53faAQk4ztQeHgYoL6F41u0uQM5aXZwo
FgNk6DI/yfU9IFeUP78KlADEiXqtv1gACK8gI/rXL4B+195wuNUDSPqFWZyK
SYDe8WJ7XD4BkrvTa/3ZaYDCfEYCNISAlOq80LKhAKrVfTqn6wsgVWLWhFQK
UHy2KPlmPyD/ASzWdWM=
            "]]}, "Charting`Private`Tag$1937#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwVz3s41GkfBnBMlFNrWDnlLMOQw/zawuJ5NpVWcSmpd62I1YyWbImyDq2U
UysJaWwHx1jnaGrLG8+DUo45lRwqGdRKDEP8ZoZ55/3je93X57ruP+6vYeBv
B4/LSElJZUru/3n7fKCcbdBN57hh/y490Qp62m+w/4jB7+DU+Q+FJhKLWxsv
GhikgqRhKePtEm/MfHhP4U0mmIhvdPeS+Da+oi9rkAsag3SMYyW2nAtKF7Py
QNeQZtE9id9uvLMmGiwEaVmPungSm5TIbxcI74KdxaJCx9UVFOoUeXJZvwx0
xnw0ypb4/sBY8aJLJXCainFfllgQsn90nlUDtik0GDHXVlC+9Gjq8u5aoMKq
LhyTeFfXtS1fB+vAcJ9XF1O8gj6xXZsWT3DA+qjawhWJ04JWffnCB0DU12GU
I0WifmFwNk//MVDe4ma8KE2is8/1bOZq68He64+KODIk0s4a6Pji8gRQS1e6
4ykkCqRDymcWAkezZE0dZUkkI4x+uRiLQeDKuwMWciQaGPPWXdzdBAYUi8xM
15MoqlLx8cJgM6i5ITfoLE8it8wpuYX8FtBuzqn2VSDR5qimQ/MnnoLZrGDb
JEUSYZdzvDnhM3A1h2InUibR+pFx2hf9NhCr89otQo1Eb3BD5MynNpBicyVm
7lsSlZewWz7XtoPOyuQjZzeRyCPcw3/apRP4dgdRS7VIlCNfn/OR9RIcJi5f
yTYgEeecW/gZzR4w5krTOmlEolvTO7T4sT1AMwJ4HjAhUViPKmthdy9o3buC
Hc1IpHrrhcz8YB/o0dKqyrMhkXDjw7JTjv1Ab6Pe9VcMEk1cKPLk5fcDpdwm
M43vSPSQdf7O3IkBsMtv5mCDPYl8iG0Os8JX4JjLeN11FxIVtOed/qw/BPbW
bc87+xOJFtkP6O/ThoBnhYdGqS+J9rA6uH3kEIg7H7ln0p9EM5Rl7/r+YVC3
o7ztMpNEdk4eDqnJo0Dtp6MB0REk6qkRydDm3oNfdm178jlTshfI+ylbjQHY
cp+9nEOi702zHZKDxkC7M51OvUmi9MUyfnTvGOh/ohVysohE2669Oh5Y8QGU
NOr5tXNI9Ee7pZutPxc82u7cqj5Mor9r/zGtuM4F5brsHtE7EvWxd1K2dHLB
sTOtl+e5JDJh/eeJpv0ECLbrVFo3S6J2yiUrKbVJYNVWZd8lI0CbnEZUX7ZO
gbfLhx/NWQlQdU3qSKjVNJg4Umx36poATatOp7kFTINTtMTTN28IEO2sm7NZ
9jQwtU6/2HdbgPIdFQu45DQQPNthHVQuQJltaUyfZ5+Bxw/JKepPBegs9+q8
q+8XQDNWcK8hBShPseMidTcPdOWGWTw8KUTOTjG+8X48IPe8eIdPpBCNhll8
N3eOB5hT3gvycUKk2ffnVGc5D9zjqoempQnRNfb+H1NU5gFPZ9FJt1KILm7p
3igemQetFcfKQ78IEQv05s6E80FzeEv2/SgRkir8Wj/yJx8MKS/X37wgQux1
m0fbi/nAejRwMP2yCL1oY+qVveaD3OU7n67fEiGzQ6LC4w6LwJhqZUxrEqFP
wbTKd9JLwFHlTLaX0ir6NTOusSfjK9Bw3YFQ+SoKmzTncqpJ0FlS1kpbL0Zj
fkMbmtpI0Kbv+rBGTYy83qRYdU2QoCCYl+RiIEZ2HR9/n9QWAPVO8wfp9mJE
qb2rsilZAAaUy0rrQsWIHWvofM5fCDbPXB21eCVGTWpaufYqqyBDI6Pb94gU
VjC8RHtvJwWzbzV/PfmDNE5X6aAXHKNAh95EvTULCg4cOYQonXIwpEm8cyhB
Fp9+dinwN5oCpDM8ta1kN+DaU0pemj8qw/D8aDorQQEXxIRM2xxRgTOeLj+V
eyvjhDzRgcUZKvy9053vukEFS/WPwSfRarDu2IhDNouKTSOYUYfo6nCcW/hz
3Iwqnli6cVixYRMMW1UK23b0W+w2+Wtc5mlNmLPjmfnqvDr2mMiw0NPThsOy
H+5lXdTA0y2B8S+qdKCRrHSb9aomtqK+1nXx14XH2LJyl3O1sQJYChjl68FD
CvkK+Zs3Y9cvPstG3gbwTumj55uadfGb5iBpH0tDWKxm3p0XoI8fpDz1M1gy
hA2qJUUeZwwwUzZyrLvbCFbZlOm83GOIfwmPeaD0lzHUeeuS0KFkhK1ZFt37
A0ygR/B7judLI/xS1VIx0n4LTGLuW2gqNMb/rU64aUkxhTCgoT0k2ATHSNM9
O9+aQve6D2dEzluwwmj03jAODX7j2ps4RzXFkyWG2XmxZlAzX0M0+9oUZ5tp
rXvsbQ7pfY8muippOOMv5vMAAzo0ft/rVhJhhn2yj3YrfaTDNhv5W/V25nhl
110yr9ECHizZPluuTMfcyZ1RzcmW8DBz/O+4AToudLLV6QrYCh3ix8ItKy1w
VWIklbXVCs6+NV6oi7TEyd6/7KMsWcHpDQXSgd9vxd+NFpQld1lD6tRn+gzV
CrPNb1Z17bOB3cEb3OGwFf4DX2Hve2wDx7NPm566b43ddbzvtpvYwtvpl+QC
dtngH8Ke/0xNtYWzKr/d/7fUBudtDjTpXLKF/VpzDmNqttikpTTH42cGhLPz
cpwoW5yxtZne18iASeH/jGeN2GImf11vG52AK/QT+MMeBg6sXTBIvUrAtDN/
J8lXMHBogpfI7RoBeaWDHS8qGTjSizOolEVABTKBmlLNwClLkekZOQRkMt3v
yNUxcLU9Kbxxm4AZRVUNlMcMTDaJX5dUELAzPk5trZWBM/qUrjx9TkBpeqg2
f5yB/yo6GZzURkC9rNGwugkGLorodtnbQcBtQ09bTk8x8MNNGYKObgLmnBOF
8f5l4FEfteD+VwT85Leu4wuPgWlcLZdxrqSv7JP7aY2BbTjResWTBGzutVsq
lSKwQ+IIefwjAReOXznAkiHwftrte/9OE/B8zA3FKVkCh4cY6M3PE3Ct1yKR
q0TgWMcLZB1f8m/qg4nCjQROVB4fiFgi4P5vOLsCVQjMrin6c2WFgBoy38h9
UCNwYfw6Vr2AgEnWIax8dQJXHDi+M1ZEwIDy79v8NQjMMWrVdV4j4IuD8Rb6
WgRu5JuSYjEBJzbYp7/TJvD/AOTYsuk=
            "]]}, 
          "Charting`Private`Tag$1937#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwVyXk81PkDx/Fh1FYiUnIb5RznzHRI+Hw2WUI2RbWyQjK6bUVC6RBZspI0
FQmlREorOcrng8q45ZYpaogG6/h+B8PIb35/vB+vx/Px1vE7ueuQNIVCyZLs
/0274LeY4X/PNvGH+aaxDwR610pz2Us7B8I4E7cmJV74UH6FRosFf1r+LBBL
LJ9U9GJZVxKY7fKKk6smUBq+rr2IdgesAqpr9SQ2GfNPWGCng539diF2En+W
v/9T3JkJxFMTMYES62Yv3Tg79wh8+MNmb7LEx2yCj09r54CwrG39HyT+t63v
IWmXB+K1jM0pXALNHnXhTbCfg5dcFUso8QMpXuy0fQE4sstqIVribQ039KY6
X4I9WhVRbRIPcRwqyMOFoAjyuYY1BIr3n/ci5l6B7As9dVckbp0LTB7XLgFV
H3eucK0lUEi1lsVYQSko/eK5863Eajfb6kbt3gA1obsbq45AfnRIHWYjoJYe
kMyqJ5D0XFgTGYEB7R+LzrcSt/V5aJL2FUAF/N7j2kCg0DzZksnOSuDZvdbo
aiOBnJK+L558UAVe+Dw/TW8ikEZohfvE4XdgTy+41CExtjs7Pjb3HqjJ/D64
9SOBfun5ZjCqXQOK0vaNHmsjUBd+GzwyVAN4imu8HdsJ9DSbUzVcUAvcpZVT
6B0Ecj3lekBgVw9kCCdvaheBUpaWpgyym8CL2WrfxTwCFZ51OnVapRkoK2do
qXwmUKpgkyoR0QxO7dF4YvGFQCeaV7In7T8C+Y0U3ZA+Aq1M5UpPdLaAvuSc
9l0DBJqTL8oJsm4F79weyN37TqD+S1k7xx+0AtqNMhXBIIGK2Bfujx1uA0F/
CHNTBQTyZK23+m+uHSjPRvXtHidQRm36X8Pa3SC1lucjO08gkvOK3hvfDf6z
/+H//SeBfmPX8VtE3WDx19xLNRQSjVCnPUpbP4HoMgfZJzIksrRxtYqN4YGq
F7WxH5aTqPm5WNpgrBf8+8nw/t9aJFoJlnrLmfUB6aBFI4M0Em3RT7aK8e8D
Pvtnj+1YR6IEMocI+9gHrIeiVzAMSbT+Rvshv9yvYEs0V3Y/k0SRtSZOjAN8
4DQuTNniSKInBa/1c2/xAe/Zy3kNZxK1cLZS9er5YDLV8fViVxLpsve9Udnc
D5hB6cbEbhLVUqPMKEoDIOmF9x4LHxIp2/SsbPrwHUR1n8+3CSNR/vPYnmNm
AkA7M0h7VUgiwUpBvJOvAJwZCvvdr5hEBiFOtobJAsCtWEVd84ZED6xlM/gi
AZCvXCZ9u4pESTXxAZ7vh4F+gnvqRAuJQvj/TDh4jYKeI6XrlQgSpcvWXVG0
HwdQLkG4ZrMQ2dqEe130HgfLNZLXldoIEe+E8Yaxs+OgRF2V5r9ViFRa4r7X
Px0HycbWCU3OQnSD47L9msIE8CpgX5Y5IERX9BrlF3omQEfVrh9D0ULEBh/v
jJwigL6pqDqPJ0SUzKnSnjgCZH96rMv4JkQcGQ1e7UMCcNNpO94OChG3JkAr
p4MAaq0Zy0YnhcjQXZx5yIoEirfUQp8unUJDgQZ5X6SEQJOpopFuOYWOJJ0v
b06cAqEu5Q6RqVNIWpjZi3KmwNEtzyKlsqbQ3b1cyvPKKTBu+6k2LmcK1Woo
2V0np0D9w2NZxUVTyPjxk+rt+6bBDxs/zumPU2ikrLW5UnsGnKYjn6Al0+jE
gBG/MF8ENPdU7bgZMY36vLuXVNSIQGjZuXwUNY12d10za+gXgZAdh7uF8dPI
sm7w3IDaLNjJr0iJTJtG1IJHCsoxs+ByV8nwEjSNOBE6tmcPzIHSr+aNJHUG
VSip3tmsMA/877LTbG/NoGU6UQa9lhR4kVN1YbhdhLjWN8wv2FNgtnl3d1+v
CEXvu79JcxcFRh/KXNT7Q4SkE4sd9h+lwAgrpWbhvAjN/hxhd6ZR4Iwxff11
/Vk0zPN40iQtBQOfJtoePDeL6jkGRrheCr65Wj/zVG8OJSjU0TN8qHDIYdPx
KI4YlWzSfOV6ggplxC9PP38kRv3eJ4E4nArvea5P7X8pRlueKbnvvU2F6ht9
nY43iNHQdq/zco1U2Lyi+tO09DyyuzLadG6LDPQJePtw7OQ8mhGuCN6lvAj+
tronYY/bT+TX446o9YthzK5RfpYKBf/1PsrvpMEyaNagF/FeVxoXBC3frbJd
Dt7foJ1Ybi+DM8KPCiz2KkCXNy2stOrF+HK62I0cUYQaDt0HH9svxZTWPvgm
TAlKHQwx2tQmi/XPBIS601fDCHlqt3OhPO4X3t4j+1YZvvIZ32FZpoCdBo6c
T/pLBSoIrtU4bV2JXfsTjbW01OCq14k1Iq4SFlT5XeQ+U4fZ1Wl5LKvV2Eyx
Q9PugCZs/uwetdCojJcBoS+P0ILlgh6+mYsKdhj1nF7rQYPWptTcX0dUcVel
v5SniQ4sxtsfu8Wo41fX3nnThDowJWqeXbZEEwcsCu5rbFwLmdxHcv55Wvjg
qfBXy++ug6a+nYJWNRo2Zxs3uvjqQrfwc+vMeTTctNJENnizHkwxigyPytfB
ZfmX75lQ9eF/GnFl206vxeFS9J31n/Vhpb/6JqHjOryMF+Z4otAAjuw1tdNT
18UD2TrJ6RGGMC/3nuzlXl2cbKgqU+JhBIMMjmZXFurhxLsB1b40OhxzjlRS
jtDHnsl/Ni4fpMNQejG9EBjgmW2PROnlxjCPaqVjscoQ8we2hlbGmMDT1s7G
Dz4Z4kwbhnqDrym8M/TX2dECI/zsarAi29QMWrbHdtDC6TjG46AzVWgGxxlZ
lKvQGG/gZeTENJjDmyrM6HfKJphjdO9Zg7MFFD8Jju/6YoIj8XWOc4kFLK7t
2cd9bYp3qHs8qtVlwMnNW5z74s3wryeq9yvGMqBb8Uw82m2O0zX8dOuFDLhN
NKb6drUF1q16nOK6nwlL6saXhIdZ4ETTSnpLORMeeHnp62+fLXAAIfOxhs6C
r9sdIy46MrBfwSQt9h8WPLjN4k5KHgMfu7xb7HRD8geuSvLIZ+Dg3YWdy2+y
YHL833GrXjDwNWFwQmIKC97XN7mY9C8D528Wzd1OY8GoCRCUUMrAooqFjuxc
FlSLjjoazWXgxJbl199Vs+BJY8+GkH4Gvpt1PDC6hgVHF5l0bfjOwFlnGu0c
61hQNe1vPjnIwEXKibN1jSzo9+fo3KlhBuZ5KgW2trNgYN421slJBjbgq9p9
47PgmVHlN2wKE1sUhmk9HGDBjaEZTfrSTGx1tUd0aJAFPTcW8QeoTOxikPbi
h4AFr+Wdl/P/hYlPHaVpTUywYNzai2wfeSaOsL4kekmwYMePvZHaCkx8Ve5b
2xkhC+Y8Kr79RZGJOc+z4mZmWDDTa1Wt12omzrwowy6dZUHukhX96muYONft
0NYIMQtGyCb9/KTCxIVrP2ja/mRBH5s01btqTFxO6IsWFljQ7KzFhj80mPh/
nYtHVQ==
            "]]}, "Charting`Private`Tag$1937#3"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0., 0.596078, 0.109804], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV0nk01O8XB/CxRbYspZJlSIRMGC0Uz1NIJCK+FUrWocVX+iKlUip8oy9S
[encoded data, 4331 characters]
bpKhT++y+ag+CfsfT73FQQ==
            "]]}, "Charting`Private`Tag$1937#4"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.567426, 0.32317, 0.729831], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV0nk4lOsfBnAMKlSWOBqDGTOSJUvjKKTnQbIcaUMdOkSWVpUWlOqkRUpi
[encoded data, 4758 characters]
dA==
            "]]}, "Charting`Private`Tag$1937#5"]}}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, 
      AxesOrigin -> {Automatic, 0}, FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
      All, DisplayFunction -> Identity, AspectRatio -> 1, 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E", None}, {"\[CapitalDelta]v", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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, {-10, 5}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770789779060873*^9, 3.770789790256908*^9}, 
   3.783833770564898*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"acd72116-bdea-4f1b-9f9e-26c8407d320e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Correlation energy", "Subsection",
 CellChangeTimes->{{3.770789550727325*^9, 
  3.770789554192442*^9}},ExpressionUUID->"0862c07f-daa4-4812-932b-\
3ce330901d36"],

Cell["\<\
This is the good, usual definition of the correlation energy.\
\>", "Text",
 CellChangeTimes->{{3.7707898207170753`*^9, 
  3.7707898322370462`*^9}},ExpressionUUID->"1a3a041f-de38-457a-87bb-\
117432cae34a"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["E", "c"], "=", 
  RowBox[{"E", "-", 
   SuperscriptBox["E", "HF"]}]}]], "Input",
 CellChangeTimes->{{3.77078983576519*^9, 3.770789849358802*^9}, {
  3.771001320212771*^9, 
  3.771001323092678*^9}},ExpressionUUID->"b51e004f-dc0f-43f7-b593-\
78f2b9132979"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", "=", 
       FractionBox["1", "2"]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Root", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["t", "2"], " ", "U"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "4"}], " ", 
                    SuperscriptBox["t", "2"]}], "+", 
                   SuperscriptBox["U", "2"], "-", 
                   SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", 
                 "#1"}], "-", 
                RowBox[{"2", " ", "U", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
                SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], "-", 
            RowBox[{
             FractionBox["U", "2"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], ")"}]}],
             "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "t"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[CapitalDelta]v", "+", 
                 RowBox[{
                  FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], 
               "2"]}]]}], "/.", 
           RowBox[{
            RowBox[{"Solve", "[", 
             RowBox[{
              RowBox[{"\[CapitalDelta]n", "\[Equal]", 
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], "\[CapitalDelta]v"}], "-", 
                 RowBox[{"U", " ", "\[CapitalDelta]n"}]}], 
                SqrtBox[
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{"U", " ", 
                    RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
                   "2"]}]]]}], ",", "\[CapitalDelta]n"}], "]"}], 
            "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"U", ",", 
            RowBox[{"{", 
             RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
             "}"}]}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
       RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
       RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
            "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
    "]"}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.770789565059409*^9, 3.770789648843005*^9}, {
  3.7707896878322563`*^9, 3.77078968806187*^9}, {3.770789799121162*^9, 
  3.770789805779669*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"bda7b5be-1178-40e5-a42d-56cdb2173a50"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwt1nc8lf0bwPFjPqJkRdmr7KgkUd13VnbISEmIzGxFUacISVHZskrFk0Jo
[encoded data, 10248 characters]
gw==
          "]]},
        Annotation[#, "Charting`Private`Tag$30145#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1nc8VW8cwPErIyGzhGSHyqoQknOoZCchSTJSVpIVISLjJzt779Gwlfk8
[encoded data, 10492 characters]
AFb5t/f3/+3/G2oB/gfbpI9S
          "]]},
        Annotation[#, "Charting`Private`Tag$30145#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAACM1nk7Z1mz5Jv/yZeYLav2Aigk1X
IHk/G+rG3miC2r80E1ufGh+IPwU/R7E6gtq/E4LllNXqkj/FRZGV4YHav/1n
kW8l1po/VXks60SB2r8s72SO/2efP8jwC2TXgNq/iIbbLLBIpD/Vhfyvu3/a
v/Mq83IL/6Q/rpn2Xop/2r/zqLWZXrynP7SQFROxftq/VQlB0nhhqz/FBZ8a
fH3av2sBaF3Mh68/TlJANeN72r+WD3pAfCWxP1BYjGetetq/UvEOh/5Msz/j
mMbcl3jav+iYR8H0abQ/tn9opG932r+MZP1c8/u1P5SZJGasddq/ZjV54iIl
uT8bs/O+unHavy0CyA3Gv7o/VpL4dnpv2r8ak9TL7UO8P27b6hFSbdq/1ryk
v9QowD9Eoh45z2bav1V8GWb0fMA/NqltzrBl2r/U4FUd9EXBP2xbfz7jYtq/
HfpZr+TIwT8z/9aU52DavzUXI0kAV8M/X1y9FuBa2r+6eIdusYzDP+zM3HcF
Wtq/UL+PmkclxD8GnmeZglfav5p8tEMSC8Y/2NZRfA5P2r8H2+In7R/JP77a
R1O+P9q/2MC9dezoyT8SJ0IlhTvav/B2wu1SS8o/OrTQwGM52r+CEYtGuEfL
P9II85S7M9q/fbvdPRy8zD9vPGVeHyvav8i+L83fmc8/aNSL4RAZ2r+9dIHf
rhjQP/7Am40cFdq/j0RqyCCZ0D/5t4/YMA7av27QEmfyRdE/BDMTop8E2r/3
5fUzPvfSP2rBix/n6tm/haTDolo80z9fXdFymebZv1j8ev01odM/+yrcXDHg
2b8XGVKa72nUPx+q42IR09m/5lDgJQX41D9LL6LQecnZv/+zXTE=
          "]], 
         LineBox[{{0.34054248340486104`, -0.40202202329405495`}, {
          0.39257322403060796`, -0.3980582041009718}, {
          0.39922312899433554`, -0.3975127099991431}, {
          0.40587303395806307`, -0.3969584938579592}, {
          0.41917284388551823`, -0.395823985066311}, {
          0.4429685219864758, -0.39370593745123567`}}], 
         LineBox[CompressedData["
1:eJwd0nc41W8YBvAjI9krSbJDMiNEdb4kIUpW+EkiUUZIIYrsyo6UrEqolBFl
[encoded data, 9455 characters]
Q2hWavHfv7V5BZXSOPQ/9vrVRQ==
          "]]},
        Annotation[#, "Charting`Private`Tag$30145#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwd0Hs0lXkXB/BzIrlE0iQjUSLX0U0xJ7XPm9tIRTISjSlTzqTBK0PplRpZ
uU5FFycTEmmkiNBlXrYj5J7L6y53Qy7jHAfH83vI+8z8sdd3fdZea6/13Zs8
/ZzOLGOxWDxm/k7ZOt7twsDf9u3POmLX+AWNJ7XDDh3bGAzDP2pY1zM2XeOe
oq4VCabSzaJyxiG6A9PeD+6CX9EjwTPG9jePX97vfB8SOaG6DxkXcxWFCY9T
YSRDcNyfsWNZaaWSVBr0CSyMPBmXb08bUV14DGp2GqF7GW94pJnL2pgJC1vS
/6XMOCc5b2bS4DnM16YH166hkZw72C3i5cA+FpWdxvghuztKYp0LjtKc46cZ
O4mUIj4ffAk/N2rKyjEe5dsKZs7mQ0TMs7vNKjTGnl48IaYL4AtroV7Y3070
uyPUegPVH9G0bjWNT5d2tEut/wOoAHW1w4zHHtxpv2n5X9AmIxwWY/Md+V7e
wQgT0zExa5VpZLdJW8b5l8D1gaFDGatoVH32SlPBXwAL2auGlpRobA5ilSlM
lEK2c6E3pUhjn4t2WF7aO0jXl3E5z1jjosBZdLYMLGTxSedKGhND8i1VFCpg
qTjkZIQCjSu6BvQmtaqguS/MXSBLY3tJUeDEaBV8k3j91OIKGoVBpZNO9tXg
MaN+OZFx2OoYm9e2NdAjXlt9W4ZGBd/3e+pyamGXk6mTynIajV9wNe9a14PL
yuj3llI03pN7e2+E9wFuLK9tn2cz//JocQ9Qa4AZR4vn0oxdPA7piEMa4G3Z
T/+RZ9H4/ZX0U4/KG+Cw+sLS4SWCvg0qvGnrRnBpnVwh/ZmgyoPKZaK2JjCV
aunPpgiq/eBcYPV1MzzO7Cq/PU/wZXiUDKY2w8Y0hzffSQgW8kKTp87+Dxz6
HfyoGYLvbdp3XipogW1JHd3vhQQbxl4Lzy62gFmX6umeKYLroGidyttWsP3h
abnZJMHU6hT/ca0O6OHJ5SYMEZzhFxj2xnZA4afcrdMDBG14NYNNVAfsiO5P
tu4nOCEl+fZtcydEizoc2j4SNN97mBMV0Q1KECmV0UpQKcb1ndlUL3in6yUL
K5g+IOehaNIHrkXG/M4ygnu23OFEnO6DtlDtXUWlBG/MZIovNfaBcUSag08x
QdO4ljOeWf3w7w+OysEFBLOHc/eU/DII9i/dJWkPCa7SWb696cEgrOSFRp1K
IdjE3y+lW8v4gJKDYRLB3VlCzwDOEFxRdD4/mkBQ/pZIem/xEBTXNe/0jSNY
LRVuwlozDHKCykzLXwmq7u1S+VDxJ3xOscqLCCJYb6h/pqjiEwTslmN32hHk
rP1UF7RpDE4qDBfFWxE8oONjNXpqDK75rFtI5BJ0/qqgcbXnGOyb2uDDZzxd
vv2pwtAYcNjRSd+ZE3TTSHW+ZDwOsaMD9S92EoyvivVyKx8HGemFvwQGzL0X
x64ryk7AuDiy2UKX4JHzf5qh4QQkbG0QD2gTDBq8KbI9MQlLyUYxJkoEUxRq
rq22FkK77NWhq00UepdcOnHVQwiu9oYD8fUUdvsa7Zq6IAQPk/Ce5GoK/UIO
XWl7KoQtNa900kopjOMftItUFsHSxy/rf8yj8JpuvdJSlwg8fvvKv/EWhU44
csQpRAwG/KOVfrYUHguc/8cXUx3/MV9ao7s6XQxtXVa/UEBhZZWXZmarGAZ0
Xpnn7aZQ33nh0RnODHwT/yawdzOFzzVP5AyzZyFQQeKmvziP3vGXixtuzYGs
UeuOa1nz6DtsMJifTYGfmdGGixIJ9nl0yAqqKND+PSuRCCV4tD3SpG6IgozN
nIygMQma14wED6sTUGIP/+T+UYIPv78hr8sjcGHlrdqsagkWqPrFVYUSeFJo
E95XJkHHsF+L5Z8TOLA1keP8RoJR2yfKPKVoWL8p8GpOmgT752Z8L5+kIcDe
Zc41VoKCNV/e/1p5EXoNF3y81ktQflO4Xq85i8t9bZRrt2UOX6y6X6JszeL+
VR3XL6M1h9ddk802OLG4Lju3hVqsm0PNbb/nRp5jcd+NXuj7vGIOOxPyDduT
WNzo8aNN9z7Noo1T/+ZRMYur3/istDh/Fo0NzvVULGNz3X5udUvKmsWL5vmD
hopsrped7m25x7NYy9czKKllc0Mz81QERrPo/rpwaHiM2T/hG1mozeL/Afns
ek0=
          "]], 
         LineBox[{{2.252451401427962, -1.3142655361157185`}, {
          2.288501476144168, -1.3016158950431314`}, {
          2.4100163241570103`, -1.2589774477041735`}, {
          2.6624075685589377`, -1.1704156714337697`}}], 
         LineBox[CompressedData["
1:eJwl1nk0lW0XBvCDeIXKPMcJmckUKulJEkIylaFMiSKklIREmUMlpAwZSilT
[encoded data, 8052 characters]
VAqOz4uvbm5SbWJ7n4L/D/e+2aQ=
          "]]},
        Annotation[#, "Charting`Private`Tag$30145#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV03k4lfsWB/DNlgzxvtknVMZuZpFLHRTrjQwRZYqDs822yJBDmdJ4k66c
SEJmEtU5cg335CQ/xGkbIjLFwW1zZEumbcvQ4/7OH+tZz+eP9az1fJ9nKfuG
OwYI0mi0n3D93fMSfYX1/B+aftGV8goIIFG6a5GQq1IsRMrUffHHrk4vrhxQ
SAY3emeeH/bPD26FEQb3gK01a+qDnYfuKG5Tyobq3MQfmNja8/6pW6wCiIn3
DnTH9tW9+OyqcAlYS+80dcHeXyZ6eH3jEThuZ4ydwj5nEh26qlgBSu851iew
76//2Uhffgr7um3umWGvh5wcXWRVQtlYVIIRdqHAaPKqRRUs2h6yOIh9vCtN
hT/4H2B1WRxQxf6UZdXEO1sD566WGezFTvH/5rm8UQuSya4exN/OCc9YUHwB
7vufCq/4k+jJ1j+H6Ht/h6DQ2KSP2L73+jvmzF+CzZ/HdAexv0U8EZ5lNcLr
Zbn+WuyL7ZO2KwkIHIzWBkqw30+4yPMsmsAu3PTrXeyYZ+IvlgabgZP5OCsI
2yb9L+GlwhZweD4o44QtF9PkvHj2NXjHuNcdxc5JqDGXEm+DYNVeF3Hs7SMf
1eYU2XBq1WyrxI9EQ6gh+vMnNqjEk7FJ2E/Kslpmq9rhNkNfKhjbPtLei2ve
Cb7TMcXa2Jmi9ZnTrG64Hb3zyGNfnAez3+Mn2R6YH8iuvI59hmm3fzmhByJO
B5p7YXtdLvUpbu0BR2+Zr+bYYT1SrCWLd3CgXYXNwJbKfSO4ONgLfnXvTkb6
kCi7WDA//GgfOFqmvbTCrr6RLNxY1AdLKy++7MWuYyXmz599D701+m3N3iRy
1zcw/rLRD2ncc4e2YRe1F5yfVRyGKi5/xYtJIl5WreZ4yjBU9Kql7sO2ZHVw
eteG4aUbU2HyRxJ9pq+61Pd9gFe/j6v6Yxua2BsnJ43C++/shlw9SdRTuSmo
Nj8Ox4TKGyTc8b0gypTQmQAd2ZKBxh9IdEQ1wzjJfwI+hVRPR2Cn8iqW495N
ANtEdqnbjUQGaf0Bvk//B0wbqfKrriS63K5to+fFAZ5jb3a1M4k0VLW3Cu5z
QP2VgLULdm+WGV2lkwOltVV/rDiRiO8qIjAnOAnXJc1UMrCNdXPWq0wm4fn+
Pj8t7Hb6DR0aYwo+1AXfL3EgkbTJiFR3218Q9CAnz8GeRG811QMa2magWU+h
kG2F53fNdF1Q5kJU/PeyQtiCeaTDzHEutDYmaldbkkjtgo2pegYXxtr99NYs
8D8cFS/irHHhfmrorDB2Ojsl0L11FgY0wrJlzEl0gfPzopXnHOgcTRyTABIV
iHdc32mxAHUPbGXtD5PI1CTe8wpzAQoLEuPrD5FoNEzr0PzFBXBzE1tTwQ5P
sLs8+GQB3K1L6ev6JErLOnniFrkIsSNbjCw9El1XeSu5NbIISsf0K8q1ScSC
d9mfI5dhpWvfc/l9JKIV8+tH/r0MlcFdwxHKJMoSkhttL10GZ98N1RYlEr1h
BypUDCyD+uiMVoAiidSdN4sDjHnA5J2cyJcj0S8KnpVTAiug2fnm1SdpEgWn
X3rVc5cPToezxwbFcD4rxeONFXzorBK8RGDnuL6hVTbzIYg0AktRnL8cw/wO
jw8Po6R1q7aTSOtx+R8n3FaBH/3hZYIQiZydK9m7Z1ZBpjlQInyLQOkHRrmB
Sl8h44rYW/YGgXKKr81uGXyFoe9mPX9cJ1DYlAan5tc1eGuXG202QaAJ5rBI
E3sNUt0s1p3GCOQ0dEuna3IN/pV1NdZvlECGHdOxU3vW4eDpd6yEIQLRqx6R
0knrENeaL5TZg/d590eleG3Aniu3cwMRgZoYu7ONyG9w/Ly2XHI+gcSUb6iN
G9IoHw9ZXoMzgUIVONYHzGmUDXLv++hIoJtu+d/LO9Io9SN5PgdPE0jw7m9W
HiE0KtRme+dDWwKFt9Euj+XRKF6es6WnGYFmR13KuwUFKJO8RJk7ugTqzFLT
QJ0CVIPt4PRDEQKlkh2aRd50qrD1zOu4WklUz7O/l5QmRMlbRbT4hUmiO+RA
c+l/hajHrszOKwGSyHfEuZHeKUx52EUGec9IIP/bFDyKF6FsFOyk+qMk0FxD
YkuKmhglH1LjYCsggdo0BqJYG2LUcH3bjV/RDlQVscNJ9oQEpRB7t7B/xw5U
FB/CPehKUjEiRvSoKTF0rWDTgfd5J7U5dW2hvFYUKZtyxYvEGJRxZcpNwy4R
ZJTJ0a6PY1DP9hgq0CNFEOeUUNdGIYOaSckN9T4tgmbDN5TSVhkU7+YzghIS
QapRgTHOmruomdbVfyTzhdHkyoMz4g3SFH+te7ksbhuymQq+lH5elrrVej57
pIWO2n/J3/UbsZuSmt8sNVWgo/8DlshrEw==
          "]], 
         LineBox[{{6.2781057659984025`, -2.383014585452856}, {
          6.919710165050654, -2.029451847583738}, {
          6.931735900596162, -2.0225772237325215`}, {
          6.939936507521942, -2.0178892703218465`}}], LineBox[CompressedData["

1:eJwd0Hc81W8bB/CDklE5RWSPM2wZmUlfSkaU8UNmVih7RUj2yEgRUqEQRUgq
[encoded data, 6527 characters]
PtmgmQMe/6Cvrq9jjwwVl3LA/wFiwZNB
          "]]},
        Annotation[#, 
         "Charting`Private`Tag$30145#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-4., 
         FormBox[
          RowBox[{"-", "4"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-3., 
         FormBox[
          RowBox[{"-", "3"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox["5", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {15., 
         FormBox["15", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {20., 
         FormBox["20", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{All, All},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwt1nc8lf0bwPFjPqJkRdmr7KgkUd13VnbISEmIzGxFUacISVHZskrFk0Jo
[encoded data, 10248 characters]
gw==
           "]]}, "Charting`Private`Tag$30145#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwl1nc8VW8cwPErIyGzhGSHyqoQknOoZCchSTJSVpIVISLjJzt779Gwlfk8
[encoded data, 10492 characters]
AFb5t/f3/+3/G2oB/gfbpI9S
           "]]}, "Charting`Private`Tag$30145#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAACM1nk7Z1mz5Jv/yZeYLav2Aigk1X
IHk/G+rG3miC2r80E1ufGh+IPwU/R7E6gtq/E4LllNXqkj/FRZGV4YHav/1n
kW8l1po/VXks60SB2r8s72SO/2efP8jwC2TXgNq/iIbbLLBIpD/Vhfyvu3/a
v/Mq83IL/6Q/rpn2Xop/2r/zqLWZXrynP7SQFROxftq/VQlB0nhhqz/FBZ8a
fH3av2sBaF3Mh68/TlJANeN72r+WD3pAfCWxP1BYjGetetq/UvEOh/5Msz/j
mMbcl3jav+iYR8H0abQ/tn9opG932r+MZP1c8/u1P5SZJGasddq/ZjV54iIl
uT8bs/O+unHavy0CyA3Gv7o/VpL4dnpv2r8ak9TL7UO8P27b6hFSbdq/1ryk
v9QowD9Eoh45z2bav1V8GWb0fMA/NqltzrBl2r/U4FUd9EXBP2xbfz7jYtq/
HfpZr+TIwT8z/9aU52DavzUXI0kAV8M/X1y9FuBa2r+6eIdusYzDP+zM3HcF
Wtq/UL+PmkclxD8GnmeZglfav5p8tEMSC8Y/2NZRfA5P2r8H2+In7R/JP77a
R1O+P9q/2MC9dezoyT8SJ0IlhTvav/B2wu1SS8o/OrTQwGM52r+CEYtGuEfL
P9II85S7M9q/fbvdPRy8zD9vPGVeHyvav8i+L83fmc8/aNSL4RAZ2r+9dIHf
rhjQP/7Am40cFdq/j0RqyCCZ0D/5t4/YMA7av27QEmfyRdE/BDMTop8E2r/3
5fUzPvfSP2rBix/n6tm/haTDolo80z9fXdFymebZv1j8ev01odM/+yrcXDHg
2b8XGVKa72nUPx+q42IR09m/5lDgJQX41D9LL6LQecnZv/+zXTE=
           "]], 
          
          Line[{{0.34054248340486104`, -0.40202202329405495`}, {
           0.39257322403060796`, -0.3980582041009718}, {
           0.39922312899433554`, -0.3975127099991431}, {
           0.40587303395806307`, -0.3969584938579592}, {
           0.41917284388551823`, -0.395823985066311}, {
           0.4429685219864758, -0.39370593745123567`}}], 
          Line[CompressedData["
1:eJwd0nc41W8YBvAjI9krSbJDMiNEdb4kIUpW+EkiUUZIIYrsyo6UrEqolBFl
[encoded data, 9455 characters]
Q2hWavHfv7V5BZXSOPQ/9vrVRQ==
           "]]}, "Charting`Private`Tag$30145#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwd0Hs0lXkXB/BzIrlE0iQjUSLX0U0xJ7XPm9tIRTISjSlTzqTBK0PplRpZ
uU5FFycTEmmkiNBlXrYj5J7L6y53Qy7jHAfH83vI+8z8sdd3fdZea6/13Zs8
/ZzOLGOxWDxm/k7ZOt7twsDf9u3POmLX+AWNJ7XDDh3bGAzDP2pY1zM2XeOe
oq4VCabSzaJyxiG6A9PeD+6CX9EjwTPG9jePX97vfB8SOaG6DxkXcxWFCY9T
YSRDcNyfsWNZaaWSVBr0CSyMPBmXb08bUV14DGp2GqF7GW94pJnL2pgJC1vS
/6XMOCc5b2bS4DnM16YH166hkZw72C3i5cA+FpWdxvghuztKYp0LjtKc46cZ
O4mUIj4ffAk/N2rKyjEe5dsKZs7mQ0TMs7vNKjTGnl48IaYL4AtroV7Y3070
uyPUegPVH9G0bjWNT5d2tEut/wOoAHW1w4zHHtxpv2n5X9AmIxwWY/Md+V7e
wQgT0zExa5VpZLdJW8b5l8D1gaFDGatoVH32SlPBXwAL2auGlpRobA5ilSlM
lEK2c6E3pUhjn4t2WF7aO0jXl3E5z1jjosBZdLYMLGTxSedKGhND8i1VFCpg
qTjkZIQCjSu6BvQmtaqguS/MXSBLY3tJUeDEaBV8k3j91OIKGoVBpZNO9tXg
MaN+OZFx2OoYm9e2NdAjXlt9W4ZGBd/3e+pyamGXk6mTynIajV9wNe9a14PL
yuj3llI03pN7e2+E9wFuLK9tn2cz//JocQ9Qa4AZR4vn0oxdPA7piEMa4G3Z
T/+RZ9H4/ZX0U4/KG+Cw+sLS4SWCvg0qvGnrRnBpnVwh/ZmgyoPKZaK2JjCV
aunPpgiq/eBcYPV1MzzO7Cq/PU/wZXiUDKY2w8Y0hzffSQgW8kKTp87+Dxz6
HfyoGYLvbdp3XipogW1JHd3vhQQbxl4Lzy62gFmX6umeKYLroGidyttWsP3h
abnZJMHU6hT/ca0O6OHJ5SYMEZzhFxj2xnZA4afcrdMDBG14NYNNVAfsiO5P
tu4nOCEl+fZtcydEizoc2j4SNN97mBMV0Q1KECmV0UpQKcb1ndlUL3in6yUL
K5g+IOehaNIHrkXG/M4ygnu23OFEnO6DtlDtXUWlBG/MZIovNfaBcUSag08x
QdO4ljOeWf3w7w+OysEFBLOHc/eU/DII9i/dJWkPCa7SWb696cEgrOSFRp1K
IdjE3y+lW8v4gJKDYRLB3VlCzwDOEFxRdD4/mkBQ/pZIem/xEBTXNe/0jSNY
LRVuwlozDHKCykzLXwmq7u1S+VDxJ3xOscqLCCJYb6h/pqjiEwTslmN32hHk
rP1UF7RpDE4qDBfFWxE8oONjNXpqDK75rFtI5BJ0/qqgcbXnGOyb2uDDZzxd
vv2pwtAYcNjRSd+ZE3TTSHW+ZDwOsaMD9S92EoyvivVyKx8HGemFvwQGzL0X
x64ryk7AuDiy2UKX4JHzf5qh4QQkbG0QD2gTDBq8KbI9MQlLyUYxJkoEUxRq
rq22FkK77NWhq00UepdcOnHVQwiu9oYD8fUUdvsa7Zq6IAQPk/Ce5GoK/UIO
XWl7KoQtNa900kopjOMftItUFsHSxy/rf8yj8JpuvdJSlwg8fvvKv/EWhU44
csQpRAwG/KOVfrYUHguc/8cXUx3/MV9ao7s6XQxtXVa/UEBhZZWXZmarGAZ0
Xpnn7aZQ33nh0RnODHwT/yawdzOFzzVP5AyzZyFQQeKmvziP3vGXixtuzYGs
UeuOa1nz6DtsMJifTYGfmdGGixIJ9nl0yAqqKND+PSuRCCV4tD3SpG6IgozN
nIygMQma14wED6sTUGIP/+T+UYIPv78hr8sjcGHlrdqsagkWqPrFVYUSeFJo
E95XJkHHsF+L5Z8TOLA1keP8RoJR2yfKPKVoWL8p8GpOmgT752Z8L5+kIcDe
Zc41VoKCNV/e/1p5EXoNF3y81ktQflO4Xq85i8t9bZRrt2UOX6y6X6JszeL+
VR3XL6M1h9ddk802OLG4Lju3hVqsm0PNbb/nRp5jcd+NXuj7vGIOOxPyDduT
WNzo8aNN9z7Noo1T/+ZRMYur3/istDh/Fo0NzvVULGNz3X5udUvKmsWL5vmD
hopsrped7m25x7NYy9czKKllc0Mz81QERrPo/rpwaHiM2T/hG1mozeL/Afns
ek0=
           "]], 
          
          Line[{{2.252451401427962, -1.3142655361157185`}, {
           2.288501476144168, -1.3016158950431314`}, {
           2.4100163241570103`, -1.2589774477041735`}, {
           2.6624075685589377`, -1.1704156714337697`}}], 
          Line[CompressedData["
1:eJwl1nk0lW0XBvCDeIXKPMcJmckUKulJEkIylaFMiSKklIREmUMlpAwZSilT
[encoded data, 8052 characters]
VAqOz4uvbm5SbWJ7n4L/D/e+2aQ=
           "]]}, "Charting`Private`Tag$30145#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV03k4lfsWB/DNlgzxvtknVMZuZpFLHRTrjQwRZYqDs822yJBDmdJ4k66c
SEJmEtU5cg335CQ/xGkbIjLFwW1zZEumbcvQ4/7OH+tZz+eP9az1fJ9nKfuG
OwYI0mi0n3D93fMSfYX1/B+aftGV8goIIFG6a5GQq1IsRMrUffHHrk4vrhxQ
SAY3emeeH/bPD26FEQb3gK01a+qDnYfuKG5Tyobq3MQfmNja8/6pW6wCiIn3
DnTH9tW9+OyqcAlYS+80dcHeXyZ6eH3jEThuZ4ydwj5nEh26qlgBSu851iew
76//2Uhffgr7um3umWGvh5wcXWRVQtlYVIIRdqHAaPKqRRUs2h6yOIh9vCtN
hT/4H2B1WRxQxf6UZdXEO1sD566WGezFTvH/5rm8UQuSya4exN/OCc9YUHwB
7vufCq/4k+jJ1j+H6Ht/h6DQ2KSP2L73+jvmzF+CzZ/HdAexv0U8EZ5lNcLr
Zbn+WuyL7ZO2KwkIHIzWBkqw30+4yPMsmsAu3PTrXeyYZ+IvlgabgZP5OCsI
2yb9L+GlwhZweD4o44QtF9PkvHj2NXjHuNcdxc5JqDGXEm+DYNVeF3Hs7SMf
1eYU2XBq1WyrxI9EQ6gh+vMnNqjEk7FJ2E/Kslpmq9rhNkNfKhjbPtLei2ve
Cb7TMcXa2Jmi9ZnTrG64Hb3zyGNfnAez3+Mn2R6YH8iuvI59hmm3fzmhByJO
B5p7YXtdLvUpbu0BR2+Zr+bYYT1SrCWLd3CgXYXNwJbKfSO4ONgLfnXvTkb6
kCi7WDA//GgfOFqmvbTCrr6RLNxY1AdLKy++7MWuYyXmz599D701+m3N3iRy
1zcw/rLRD2ncc4e2YRe1F5yfVRyGKi5/xYtJIl5WreZ4yjBU9Kql7sO2ZHVw
eteG4aUbU2HyRxJ9pq+61Pd9gFe/j6v6Yxua2BsnJ43C++/shlw9SdRTuSmo
Nj8Ox4TKGyTc8b0gypTQmQAd2ZKBxh9IdEQ1wzjJfwI+hVRPR2Cn8iqW495N
ANtEdqnbjUQGaf0Bvk//B0wbqfKrriS63K5to+fFAZ5jb3a1M4k0VLW3Cu5z
QP2VgLULdm+WGV2lkwOltVV/rDiRiO8qIjAnOAnXJc1UMrCNdXPWq0wm4fn+
Pj8t7Hb6DR0aYwo+1AXfL3EgkbTJiFR3218Q9CAnz8GeRG811QMa2magWU+h
kG2F53fNdF1Q5kJU/PeyQtiCeaTDzHEutDYmaldbkkjtgo2pegYXxtr99NYs
8D8cFS/irHHhfmrorDB2Ojsl0L11FgY0wrJlzEl0gfPzopXnHOgcTRyTABIV
iHdc32mxAHUPbGXtD5PI1CTe8wpzAQoLEuPrD5FoNEzr0PzFBXBzE1tTwQ5P
sLs8+GQB3K1L6ev6JErLOnniFrkIsSNbjCw9El1XeSu5NbIISsf0K8q1ScSC
d9mfI5dhpWvfc/l9JKIV8+tH/r0MlcFdwxHKJMoSkhttL10GZ98N1RYlEr1h
BypUDCyD+uiMVoAiidSdN4sDjHnA5J2cyJcj0S8KnpVTAiug2fnm1SdpEgWn
X3rVc5cPToezxwbFcD4rxeONFXzorBK8RGDnuL6hVTbzIYg0AktRnL8cw/wO
jw8Po6R1q7aTSOtx+R8n3FaBH/3hZYIQiZydK9m7Z1ZBpjlQInyLQOkHRrmB
Sl8h44rYW/YGgXKKr81uGXyFoe9mPX9cJ1DYlAan5tc1eGuXG202QaAJ5rBI
E3sNUt0s1p3GCOQ0dEuna3IN/pV1NdZvlECGHdOxU3vW4eDpd6yEIQLRqx6R
0knrENeaL5TZg/d590eleG3Aniu3cwMRgZoYu7ONyG9w/Ly2XHI+gcSUb6iN
G9IoHw9ZXoMzgUIVONYHzGmUDXLv++hIoJtu+d/LO9Io9SN5PgdPE0jw7m9W
HiE0KtRme+dDWwKFt9Euj+XRKF6es6WnGYFmR13KuwUFKJO8RJk7ugTqzFLT
QJ0CVIPt4PRDEQKlkh2aRd50qrD1zOu4WklUz7O/l5QmRMlbRbT4hUmiO+RA
c+l/hajHrszOKwGSyHfEuZHeKUx52EUGec9IIP/bFDyKF6FsFOyk+qMk0FxD
YkuKmhglH1LjYCsggdo0BqJYG2LUcH3bjV/RDlQVscNJ9oQEpRB7t7B/xw5U
FB/CPehKUjEiRvSoKTF0rWDTgfd5J7U5dW2hvFYUKZtyxYvEGJRxZcpNwy4R
ZJTJ0a6PY1DP9hgq0CNFEOeUUNdGIYOaSckN9T4tgmbDN5TSVhkU7+YzghIS
QapRgTHOmruomdbVfyTzhdHkyoMz4g3SFH+te7ksbhuymQq+lH5elrrVej57
pIWO2n/J3/UbsZuSmt8sNVWgo/8DlshrEw==
           "]], 
          
          Line[{{6.2781057659984025`, -2.383014585452856}, {
           6.919710165050654, -2.029451847583738}, {
           6.931735900596162, -2.0225772237325215`}, {
           6.939936507521942, -2.0178892703218465`}}], 
          Line[CompressedData["
1:eJwd0Hc81W8bB/CDklE5RWSPM2wZmUlfSkaU8UNmVih7RUj2yEgRUqEQRUgq
[encoded data, 6527 characters]
PtmgmQMe/6Cvrq9jjwwVl3LA/wFiwZNB
           "]]}, 
         "Charting`Private`Tag$30145#5"], {}}, {{}, {}, {}, {}, {}, {}, {}}}, \
{}, {}}, {DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E", None}, {"\[CapitalDelta]v", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "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 -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Bottom}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770789570215705*^9, 3.770789651007647*^9}, 
   3.77078969071492*^9, 3.770789808659437*^9, 3.770789861169787*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"2d60aed5-45ac-4352-94b2-563ed063b894"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Kohn-Sham density-functional theory", "Section",
 CellChangeTimes->{{3.7708291545263443`*^9, 3.770829159881905*^9}, {
   3.770909865543729*^9, 3.770909869725779*^9}, 
   3.7709102322360973`*^9},ExpressionUUID->"9f4be37b-e6e0-4921-a71b-\
a9f742d754e3"],

Cell[CellGroupData[{

Cell["Generalities", "Subsection",
 CellChangeTimes->{{3.771000835887121*^9, 
  3.771000838424327*^9}},ExpressionUUID->"c4a8ead7-0b01-451c-930e-\
3ebdda71579a"],

Cell[TextData[StyleBox["Euler equation",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.770910344408897*^9, 
  3.7709103783131723`*^9}},ExpressionUUID->"43ee682f-30bb-4b4e-8cf5-\
95bc6e56dbf4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"\[DifferentialD]", 
      RowBox[{"F", "[", 
       SubscriptBox["n", "1"], "]"}]}], 
     RowBox[{"\[DifferentialD]", 
      SubscriptBox["n", "1"]}]], "-", 
    FractionBox["\[CapitalDelta]v", "2"]}], "\[Equal]", "0"}], "\t", 
  "\[Implies]", "\t", 
  RowBox[{
   RowBox[{
    SubscriptBox["n", "1"], "[", "\[CapitalDelta]v", "]"}], "\t", 
   "\[Implies]", "\t", 
   RowBox[{
    RowBox[{"E", "[", "\[CapitalDelta]v", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "\[CapitalDelta]v"}], "]"}], "+", 
     FractionBox[
      RowBox[{"\[CapitalDelta]v", " ", "\[CapitalDelta]n"}], 
      "2"]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7709103494121647`*^9, 3.770910419006526*^9}, {
  3.770910639089604*^9, 
  3.7709106433917513`*^9}},ExpressionUUID->"d95c5275-4764-4c06-bd04-\
5f4d569aa907"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["U", "H"], "[", "\[CapitalDelta]n", "]"}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "2"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}], "\t", 
   RowBox[{
    SubscriptBox["E", "x"], "[", "\[CapitalDelta]n", "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["U", "4"]}], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}], "\t", 
   RowBox[{
    SubscriptBox["E", "Hx"], "[", "\[CapitalDelta]n", "]"}]}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "4"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}]}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "2"], 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.770910470096383*^9, 3.770910547262266*^9}, 
   3.770910640271102*^9},ExpressionUUID->"c21529df-2611-4475-8d6d-\
6fdd48f339e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["T", "s"], "[", 
   SubscriptBox["n", "1"], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], "t", " ", 
   SqrtBox[
    RowBox[{
     SubscriptBox["n", "1"], 
     SubscriptBox["n", "2"]}]], "\t", 
   RowBox[{
    SubscriptBox["E", "c"], "[", 
    SubscriptBox["n", "1"], "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"F", "[", 
    SubscriptBox["n", "1"], "]"}], "-", 
   RowBox[{
    SubscriptBox["T", "s"], "[", 
    SubscriptBox["n", "1"], "]"}], "-", 
   RowBox[{
    SubscriptBox["E", "Hx"], "[", 
    SubscriptBox["n", "1"], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7709105621090813`*^9, 3.770910601506102*^9}, {
  3.770910635098526*^9, 
  3.770910636137825*^9}},ExpressionUUID->"5ebe9b84-c77f-456e-be78-\
14624dd0d391"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["\[CapitalDelta]v", "s"], "[", "\[CapitalDelta]n", "]"}], 
   "\[Equal]", 
   RowBox[{"\[CapitalDelta]v", "+", 
    RowBox[{"U", " ", 
     FractionBox["\[CapitalDelta]n", "2"]}], "+", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[CapitalDelta]v", "c"], "[", "\[CapitalDelta]n", "]"}], 
     "\t", 
     RowBox[{
      SubscriptBox["\[CapitalDelta]v", "c"], "[", 
      SubscriptBox["n", "1"], "]"}]}]}]}], "=", 
  RowBox[{
   RowBox[{"-", "2"}], 
   FractionBox[
    RowBox[{"\[DifferentialD]", 
     RowBox[{
      SubscriptBox["E", "c"], "[", 
      SubscriptBox["n", "1"], "]"}]}], 
    RowBox[{"\[DifferentialD]", 
     SubscriptBox["n", "1"]}]]}]}]], "Input",
 CellChangeTimes->{{3.770910619599556*^9, 
  3.7709106851962748`*^9}},ExpressionUUID->"4341c551-840d-4b3a-90da-\
2f3ebcada409"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"\[DifferentialD]", 
      RowBox[{"F", "[", 
       SubscriptBox["n", "1"], "]"}]}], 
     RowBox[{"\[DifferentialD]", 
      SubscriptBox["n", "1"]}]], "-", 
    FractionBox["\[CapitalDelta]v", "2"]}], "\[Equal]", "0"}], "\t", 
  "\[Implies]", "\t", 
  RowBox[{
   RowBox[{"F", "[", 
    SubscriptBox["n", "1"], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"\[Integral]", 
     RowBox[{
      RowBox[{"\[CapitalDelta]v", "[", 
       SubscriptBox["n", "1"], "]"}], 
      RowBox[{"\[DifferentialD]", 
       SubscriptBox["n", "1"]}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.770910748093687*^9, 
  3.770910769704262*^9}},ExpressionUUID->"c9ad7c3d-87e2-4c67-8ebd-\
e78ec6a0e597"]
}, Closed]],

Cell[CellGroupData[{

Cell["Exact functional via Levy-Lieb constraint search ", "Subsection",
 CellChangeTimes->{{3.771000795146031*^9, 
  3.771000825350608*^9}},ExpressionUUID->"b9942fac-b310-40fc-a252-\
5af154a937f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Epsilon]", "\[Equal]", 
   FractionBox["\[CapitalEpsilon]", 
    RowBox[{"2", "t"}]]}], " ", ";", "\t", 
  RowBox[{"u", "\[Equal]", 
   FractionBox["U", 
    RowBox[{"2", "t"}]]}], ";", "\t", 
  RowBox[{"\[Nu]", "\[Equal]", 
   FractionBox["\[CapitalDelta]v", 
    RowBox[{"2", "t"}]]}]}]], "Input",
 CellChangeTimes->{{3.769749264184759*^9, 3.7697492744393377`*^9}, {
  3.769749388966833*^9, 3.76974942347818*^9}, {3.769749480470373*^9, 
  3.76974953147082*^9}, {3.76974991852349*^9, 
  3.769749927723466*^9}},ExpressionUUID->"e5e46080-a532-4fe1-9b12-\
79ad30ce7b76"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["u", "\[Epsilon]"]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "1"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "+", "\[Nu]"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "2"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "-", "\[Nu]"}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.769856907491734*^9, 
  3.769856957206769*^9}},ExpressionUUID->"b6225627-e2b5-4862-8fee-\
a5ea25b96f89"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Rho]", "\[Equal]", 
   FractionBox[
    RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", "\t", 
  RowBox[{"\[CapitalDelta]n", "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SuperscriptBox["c", 
    RowBox[{"-", "2"}]], "\[Equal]", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Nu]", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7697492821883307`*^9, 3.76974929981513*^9}, {
  3.769749592277866*^9, 3.769749608405692*^9}, {3.769842070462558*^9, 
  3.769842073438758*^9}},ExpressionUUID->"f9e3bdb2-6a80-4fe1-a0b9-\
bb1078d87028"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[LeftBracketingBar]", "\[Psi]"}], 
            "\[RightAngleBracket]"}], "\[Equal]", 
           RowBox[{"\[Alpha]", 
            RowBox[{"(", 
             RowBox[{"\[LeftBracketingBar]", "12"}]}]}]}], 
          "\[RightAngleBracket]"}], "+", 
         RowBox[{"\[LeftBracketingBar]", "21"}]}], "\[RightAngleBracket]"}], 
       ")"}], "+", 
      RowBox[{
       SubscriptBox["\[Beta]", "1"], 
       RowBox[{"\[LeftBracketingBar]", "11"}]}]}], "\[RightAngleBracket]"}], 
    "+", 
    RowBox[{
     SubscriptBox["\[Beta]", "2"], 
     RowBox[{"\[LeftBracketingBar]", "22"}]}]}], "\[RightAngleBracket]"}], 
  ";", "\t", 
  RowBox[{
   RowBox[{
    RowBox[{"2", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
    SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}]], "Input",
 CellChangeTimes->{{3.769841802182992*^9, 3.769841846847291*^9}, {
  3.7698420472232018`*^9, 
  3.76984206210172*^9}},ExpressionUUID->"b1a83f2d-55e0-4f5e-b2de-\
c28734917f10"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], "+", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["V", "ee"], "\[Equal]", 
   RowBox[{"U", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{"V", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "\[CapitalDelta]v"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{"\[CapitalEpsilon]", "\[Equal]", 
   RowBox[{"T", "+", 
    SubscriptBox["V", "ee"], "+", "V"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.76984184954419*^9, 3.7698419288661757`*^9}, {
  3.769842024390863*^9, 
  3.7698420690548353`*^9}},ExpressionUUID->"47790058-3d54-4086-948d-\
a404883e0cf2"],

Cell[BoxData[
 RowBox[{"\[CapitalEpsilon]", "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}]], 
   RowBox[{"\[CapitalEpsilon]", "[", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.769842098165579*^9, 3.7698421461091003`*^9}, {
  3.7698424077719917`*^9, 
  3.769842410283205*^9}},ExpressionUUID->"96037672-4cc5-4d58-b59c-\
d498cb67eeee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[CapitalDelta]n", "]"}], "=", 
  RowBox[{
   UnderscriptBox["Min", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"T", "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "1"], ",", 
       SubscriptBox["\[Beta]", "2"]}], "]"}], "+", 
     RowBox[{
      SubscriptBox["V", "ee"], "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "1"], ",", 
       SubscriptBox["\[Beta]", "2"]}], "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.769842225590481*^9, 
  3.769842252260337*^9}},ExpressionUUID->"e9207388-c781-435c-a3e7-\
d2dd7c1af9e6"],

Cell[BoxData[
 FrameBox[
  RowBox[{
   RowBox[{"\[CapitalDelta]n", "\[Equal]", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
       SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
   RowBox[{
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
     SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}]]], "Input",\

 CellChangeTimes->{{3.7698422009081163`*^9, 3.769842212245055*^9}, {
  3.769842404899975*^9, 
  3.769842420122011*^9}},ExpressionUUID->"21121967-f922-420a-8f58-\
d15289c6a536"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[CapitalDelta]n", "]"}], "=", 
  RowBox[{
   UnderscriptBox["Min", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Alpha]", "2"], "+", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], "=", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
         "\[LeftBracketingBar]", "\[CapitalDelta]n", 
          "\[RightBracketingBar]"}], "2"]}], ")"}]}]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"T", "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "2"], ",", "\[CapitalDelta]n"}], "]"}], "+", 
     RowBox[{
      SubscriptBox["V", "ee"], "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "2"], ",", "\[CapitalDelta]n"}], "]"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.769842225590481*^9, 3.769842252260337*^9}, {
   3.771209048467911*^9, 3.771209083201171*^9}, 
   3.771209123094339*^9},ExpressionUUID->"271e0136-a935-404f-8672-\
a7b2270cd2af"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Equal]", 
   RowBox[{"2", "\[Alpha]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[Beta]", "1"], "+", "\[Beta]"}], ")"}], "2"], "\t", 
    "\[Rho]"}]}], "=", 
  FractionBox[
   RowBox[{
   "\[LeftBracketingBar]", "\[CapitalDelta]n", "\[RightBracketingBar]"}], 
   "2"]}]], "Input",
 CellChangeTimes->{{3.771209100643957*^9, 
  3.771209119919911*^9}},ExpressionUUID->"01c7c3a6-1c6d-4d4a-9b48-\
30f99a9cf3db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[Rho]", "]"}], "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", "g"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"\[Rho]", ",", "g"}], "]"}], "\t", 
   RowBox[{"f", "[", 
    RowBox[{"\[Rho]", ",", "g"}], "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
   RowBox[{"U", 
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["g", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["g", "2"], "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
      RowBox[{"2", 
       SuperscriptBox["\[Rho]", "2"]}]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["g", "2"], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}]}]], "Input",
 CellChangeTimes->{{3.771209093404483*^9, 3.7712090952441273`*^9}, {
  3.7712091298137293`*^9, 
  3.771209168744396*^9}},ExpressionUUID->"cd4179ae-9f5c-4029-baf1-\
3a429e44cc0b"],

Cell[CellGroupData[{

Cell["Exact functional", "Subsubsection",
 CellChangeTimes->{{3.771208676637597*^9, 
  3.7712086788630247`*^9}},ExpressionUUID->"d5ff460b-3d7e-463e-8e87-\
adcf8aa3c4df"],

Cell["The exact KS functional is defined as such", "Text",
 CellChangeTimes->{{3.770913783232986*^9, 
  3.7709137922481413`*^9}},ExpressionUUID->"30f99f9e-c2ef-4d85-99b7-\
051a6f1d4ed0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gmin", "[", 
    RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "g"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]", "=", 
       FractionBox[
        RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", "\t", 
      RowBox[{"Return", "[", 
       RowBox[{"g", "/.", 
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{"Minimize", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
              RowBox[{"U", 
               FractionBox[
                RowBox[{
                 RowBox[{
                  SuperscriptBox["g", "2"], 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    SuperscriptBox["g", "2"], "-", 
                    SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
                 RowBox[{"2", 
                  SuperscriptBox["\[Rho]", "2"]}]}], 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["g", "2"], "+", 
                   SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], ",", "g"}], 
            "]"}], ",", "15"}], "]"}], "\[LeftDoubleBracket]", "2", 
         "\[RightDoubleBracket]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.770910938237562*^9, 3.770910963904215*^9}, {
  3.770911644837036*^9, 3.770911666838966*^9}, {3.7709117649469757`*^9, 
  3.770911826117735*^9}, {3.770911937685664*^9, 3.770912059132182*^9}, {
  3.770912196070654*^9, 3.77091219947856*^9}, {3.770913662599965*^9, 
  3.770913674800186*^9}, {3.7709143116453238`*^9, 3.770914312001725*^9}, {
  3.7713450875894337`*^9, 3.7713451041886473`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"4af9f5f0-e6ae-4f5e-b1cf-86451b81b862"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "g"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]", "=", 
       FractionBox[
        RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", "\t", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{
          RowBox[{"Minimize", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
             RowBox[{"U", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox["g", "2"], 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "-", 
                    SuperscriptBox["g", "2"], "-", 
                    SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
                RowBox[{"2", 
                 SuperscriptBox["\[Rho]", "2"]}]}], 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["g", "2"], "+", 
                  SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], ",", "g"}], 
           "]"}], ",", "15"}], "]"}], "\[LeftDoubleBracket]", "1", 
        "\[RightDoubleBracket]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.770910938237562*^9, 3.770910963904215*^9}, {
  3.770911644837036*^9, 3.770911666838966*^9}, {3.7709117649469757`*^9, 
  3.770911826117735*^9}, {3.770911937685664*^9, 3.770912059132182*^9}, {
  3.770912196070654*^9, 3.77091219947856*^9}, {3.770913662599965*^9, 
  3.770913674800186*^9}, {3.7709143116453238`*^9, 3.770914312001725*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"b2cb20b3-cf66-43df-b9e4-85c66b517b43"],

Cell["\<\
We will also need its derivatives wrt \[CapitalDelta]n in order to derive the \
potential \[CapitalDelta]v\
\>", "Text",
 CellChangeTimes->{{3.7710032954869633`*^9, 
  3.7710033166357307`*^9}},ExpressionUUID->"1aac2966-d99c-46a8-8598-\
d9e0ccb22d52"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dFd\[CapitalDelta]n", "[", 
    RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "g0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]", "=", 
       FractionBox[
        RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", "\t", 
      RowBox[{"g0", "=", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{
          RowBox[{"Minimize", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
             RowBox[{"U", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox["g", "2"], 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "-", 
                    SuperscriptBox["g", "2"], "-", 
                    SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
                RowBox[{"2", 
                 SuperscriptBox["\[Rho]", "2"]}]}], 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["g", "2"], "+", 
                  SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], ",", "g"}], 
           "]"}], ",", "15"}], "]"}], "\[LeftDoubleBracket]", "2", 
        "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], "t", " ", "g0"}], "+", 
            RowBox[{"U", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["g0", "2"], 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    SuperscriptBox["g0", "2"], "-", 
                    SuperscriptBox["r", "2"]}]]}], ")"}]}], "+", 
               RowBox[{"2", 
                SuperscriptBox["r", "2"]}]}], 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["g0", "2"], "+", 
                 SuperscriptBox["r", "2"]}], ")"}]}]]}]}], ",", "r"}], 
          "]"}]}], "/.", 
        RowBox[{"r", "\[Rule]", 
         FractionBox["\[CapitalDelta]n", "2"]}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.770910938237562*^9, 3.770910963904215*^9}, {
  3.770911644837036*^9, 3.770911666838966*^9}, {3.7709117649469757`*^9, 
  3.770911826117735*^9}, {3.770911937685664*^9, 3.770912059132182*^9}, {
  3.770912196070654*^9, 3.77091219947856*^9}, {3.770913662599965*^9, 
  3.770913674800186*^9}, {3.7709143116453238`*^9, 3.770914312001725*^9}, {
  3.77100259437897*^9, 3.771002683055785*^9}, {3.771002808146741*^9, 
  3.7710028941956053`*^9}, {3.771003007313732*^9, 3.771003007585121*^9}, {
  3.772527053920323*^9, 3.772527062319755*^9}, {3.772527224618574*^9, 
  3.772527226128652*^9}, {3.77252725642633*^9, 3.7725272995058193`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"94db21b7-fcd6-4e0a-b9a5-6d344f8611f3"],

Cell["How does the exact functional looks like?", "Text",
 CellChangeTimes->{{3.770829318600712*^9, 3.7708293305408382`*^9}, {
  3.771002558778617*^9, 3.771002559419485*^9}, {3.7725260660099983`*^9, 
  3.772526066814123*^9}, {3.772528461552346*^9, 
  3.77252846223978*^9}},ExpressionUUID->"04bacc0e-7ab7-4450-b4ac-\
b0b10e0f7e8c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"t", ",", "U", ",", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{
            FractionBox["2", "10"], ",", "1", ",", "2", ",", "5", ",", "10"}],
            "}"}]}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
        "\"\<F(U,\!\(\*SubscriptBox[\(n\), \(1\)]\))\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7708293389097977`*^9, 3.770829435798418*^9}, {
  3.7708294677529383`*^9, 3.770829470055784*^9}, {3.7708866341259117`*^9, 
  3.770886707252499*^9}, {3.770886896058104*^9, 3.770886978298769*^9}, {
  3.770887032916217*^9, 3.77088703556113*^9}, {3.770887183627761*^9, 
  3.7708871840273848`*^9}, {3.7708872511860847`*^9, 3.770887283452026*^9}, {
  3.77091210571548*^9, 3.770912182558971*^9}, {3.7709122738489637`*^9, 
  3.7709122938885403`*^9}, {3.770913739931123*^9, 3.770913742345282*^9}, {
  3.770914841583518*^9, 3.770914845144764*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"268b8e5a-eb2a-40c1-af3d-47e7345ef184"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVkms4lAkbgBkSQsvW1pBQE+3uJCEqjadCu6VITiVJRorty7BCJMsihxDG
KTk2hHKoDDromcyQnHLaT0po0piZ942sU31b2b4f93X/vq/r1vPyP3yKIiMj
c+Eb//f+U+JenuSUpc8Th2c7rz6DY8pZow9lt0FZgpasoagV5K00WaNUa6g6
3WQvo9kCH+KFjy1z94N/vslBvUgBmBTmXL9HdYJFbe8Z6Q4+yMwGq0GaG7SF
bqkeOdgM42toUSH6HsAU/t2d0P4E/I/13W5kMeEoS3fB6REPbLsG7+ZTvUH6
0dHlUgYPTtGYRdboA7xJvsEMhQe0K9qlizq+4Nqy77UZBeHzfmb2Sf1zIJBO
f01Sb4LQpk2qXncDYXrnvl6NzAfg6r3QlE4NAnpiaXVUwX0QWGk28K8HQ43q
Srq5WiNY5XS5e3WFwoxWWscXfj0YrWfUzupcgPBn3Fy3jHpI3MxX7ZEPg3Ty
6aexlfVgnlITpll0ET5l/o+uUF4HisLoEhf9S2BSyVLS6LsH9SeH0r53j4aW
2Fg764Ja+MHsslUyNQaW1lnsmR6sgjZ7K+MwjVhIbkpYiKDeBnbhat6GY7Fg
yz9rvzH7FhSF0O4kNsaB90qehfe2ChAucOb2ayXArLXWLzE7SqE1kO+QEJQA
zzuzXWRrOJBSpbHRQT8FHp+PXrcar0HRSvu4RCob0mTsW88bOmBjVqv8Bk82
XOSye0+ImRjelS1wecCGk8eNmXWGAegSO0ZZfywTgtYnrro8FoGhct4dZ8oz
QUg1rfQko1BlLiDy4fUsiPNrbfZ0T8KsWkpW0PocWE3kpa94z0bZYaOY9rs5
oHrJvysxMxtDB9ihpE4uFEXnxxTn5aJXT9YtyfJrYLFJg3oa89Eh46WfnX4B
+JTvslstuomt96+5LbUpgRfx8sLprXcxSvGeQQKVA6v01IvXd3KR4nrgRt0m
Dtio+dKHPnDxxb0jKQ9+54D3ox2XLVn12BfrL3n1lAN8ZS+1FYoNSJOj3zIM
LoVVjG6ffstGbP3CMRzoK4Pw+fiNNfkPUGUma6vOlQoYrmqqiNJHzHkdZsX9
Wg0XXdft7Ofzcfeao5wR5xrYM7mY+IecAKVu5ksUq2rgV687Z/v2CHAteYFZ
takW9v52M86XJ0B/X7MNMsO1cPmEmXdiQwtqeNeUl267C/LakfZlWU/xyNHi
mg/TdZDYsf+Qt04HTr1yUi7R5ILRkdzBrYc7MM5D8ZSjFRfkwpqc+2M68B7T
X7OezYUZUeyZIEkHqp1jxIabf/tu3rfxeG0ntkQPuSlENAAzzuGVxdZuNL6t
rrBG8QE0eUSWUVN7cNlilPsvaxG2T2srme/qxxxfVw/6XgS9ZV3PbJ36kTZA
91Q/h5Bk3Lj28Jl+tKwYZL5qQijoS5eYXO3H+xVZ3AZDHhQWlNTajfbje0fy
kW03D6rOG16aCxtA5/Lsjt9Vm2GLjZFjQflfuMFhUsxPEkByXdii25tBZFTW
f+iwboNXAaaB/7x4iSHd2yFn9hlg/Dttgy3DuKpOfURW9jnQclwLgxtHsV5o
1fl8Zx8cirZ3skh9g81++VpHyQHYXCZRfqzyFuf0Gcur/jMI8gy9NwMHx5Hy
6dZ3WhtewjvRu8N18e9QqXlWYVXxMFQELNH4KVmEZoue9Y7VwxAsmn+dmS7C
zhjT7tafRkG9cOopI3ICda4Snyomx2DwDXz8+bQYiYXRkb+MhHC9gMlo+1GC
HOnDdrWUt7DyJK3fWSRBNe2bU+Pj47BvieX98QQpXvHl+hTRRFDIXkqR+Y7A
+V23xs9ETsD2uTCF5SkEPuIQeSExE5Bms5HBSyUwWpHuGJcwAcuU6ExWGoFq
Pbef3MiYAF3FioguNoH6J6oLRm5OwBu/9KmwPAJdIu4cceqZAJ/SwtGScgK5
9xs6QU8MQ2MVNQbNBAYZC+p+4ItByWboofLfBPqY6haltYkhPblYL3uGwCNm
F5NUusUgremzWzdHoMUOUy/KkBiOdr9dNP1IIGUPZ/nkpBjEJhK0/UpgqkOM
X4umBIQszx5LZRIrWda6QYESYLONZi30SLweWLRsKkQCwyy7iOJ1JCYHfZ73
jZDAztjdvUtoJLJC67pOxEtgkKP6sl2fRPM/aOG2BRIQyMoH7qWTKEiV/++6
dgnYJln1ypmTOFotSOrVkwKFGTKfbUtiz3t50thACje2OzN6D5DIo9scYNOl
0LVxxXElOxKLKltUXM2loN2ZYBB8iESvstbk4QNSiD9dIN3tTKIovy11IkQK
V0sDLUo8SHx/pTPjS5cUFpdYZsSxSBzpUJn16JeC+vR57bwAEruVDzrxXkih
Z17hz+pAEqvju1b8+VYKo79FjPUGfeuJ6c5U/CQFueF6kfIFEmfDe7K/pxGQ
OyzdvDeKxH/8BvJ+DCPgc4D7JuFVEp3MjqcZRhJgfqx8S3MaibdlRXEmMQTs
raZuL04n0SNnIYCRQgBjW6GDO5vEJy2avzqUEPDzNLuyNZvEy7onZ0PbCXB6
N6VwtoDESwvCkr4XBNgztj15VETiv+Ux6p8=
          "]], LineBox[CompressedData["
1:eJwV1ns4VdkbB/CDQjS5xM9vikqi00VKZKYx55VLZyRGhThNmmEKkyGXNCqZ
GnIdhRIVQiXRhSREm1IzzpCiybg0ilzSOnuvfSJdXObtj/3s5/M869l7v3ut
9X6XoU/w5p2KAoHgFF6f7oJja9Id+l6D+jiI/fIJ0xA4ZdW6iEBQx4X6yBLC
RChpGXWvILDEKL1j9AphOlZavOdsCUxrO2Pbe50wuUn7L+jtJjAr+IBicgVh
lq1Tmdx1G8ev0og2qifM9cvFi/+pI0BYJ9NWtIWO6ybHBwROSyJvRt8ljPVg
5vlljwnM3962pf0eYVx+X+pEBwiUH7vd+MsDwoR2OGdGassg5P7Tgpi/CPPW
Vl4/rCcDj2LR2wVNhDlQkvF6m4EMPhTbGtWgY6J7RCKhDCzniT/jmgmTYRzS
ryiSwVYPj4XiR4SpCjlhnhwgA+Nm3rPuCWFEXV98NxEkgyXOF702/E2Yu/bP
YoPCZbB6f4plG1qqZ9LhGi0DfS2D6BdPCdNdeyta96QMlPyMJfQfwgjUuppy
6mTwfbqFVXs3YcT5hn6leiwMmfbfa+zDejNnmTzQZ8Ej5VK88CVhFqR8fNlp
yILdbqVvj6I/RP7tM205C9P3nngu6ifMlU0J3lttWFDOKtM7P0CY2Qq8+4Q/
Cz/7m3SKXuH7xp7paAex8MrtZvXvaEKkbSZhLOTkCbO70A/+Ob/JNYoF35xm
v/BhwkRe93QuSGWhtv2ozunXhOnZUWfvWM3CV2qWLTdlhGlyv6LkzbAgt5a3
jKArnU7fDW1godO3tdWcJUyaVbjN2YcsiNfN6ClGO2gIrbleFo5Ov6qVxhHG
fLruR6UhFoxVnxs1oud9VKj+v4yFsBGXL6bQ7wa6rGzHWGjYx/n5U8IU3zm2
+qQ6B7+kJvWu4AmTWX5QXqTJQX3JqLI3OuZyQOkdXQ7KDG6YJqO9M+zMhuZz
4LrU/Eg/WitobOlXFhxsmYgRJ8sJM+n78tW3X3IQZfXw0A30sNfjSz+KOAgo
iarsQDc4FJukfMPB8St6q43eEGafwY6FL77jIEwa7HAZ7eO60qP7Bw6sfexH
/0S7/KaQ2L6LA8PKn0oH0CavCvjmPRxM6ytzmT9CGG39vcaNezkYq2o3W4ue
cFnv1bCfg7eb3Qzc0E/Kh+qqYzjws5EYxKLrBqtGbiZwYGA2YHYWXTwnSVia
wsFOnRaXMvSRX02PF2ZyUOpfU9qFDroxeS8/mwNPtXujLNproGUsO5+DJyrL
1iuMEmblxtAdJ0o4EMoWzjRC60fbpR8r5UDzXPlhc7RKmc4fiRUcsPbFSuvQ
8pf9H2JvcyA/p5Lmgv5X79aKw3X4/EDp8m1o6YZ4n4P3Odi9eaRtF/pmlFfG
PikHSXxsXAj63PWl0tAWDpZ0RYsPoJP7Pk78/ISDO+m9s2PQv/yveVVABwc9
aVdJEtrXMWfnj/9yYGr38nEa2uVgcNaOPg4kijH3MtFrr9k0S4Y4WGaYUp+N
NunVUvCQcRDZp9iUh9bS7bPYJOfA5Nfe3vPocXG5/8YxDiwMTZUL0UP7Y8+K
xzm42tdreQk97LHMP09AobRdKfSTv6ezFecrUfhZcLz60/inCeNnzk6nIHSL
07iIdjLqt5yjSsGq5tWeAnRdTXPLKTUKAt1b/+ai13hUBOh+RmHSlPM8gy7h
cpTSNSjUNKb2nEQvTIjL1tSm0J6dE3oMnblwj1WKDo7frKsdj55V4/lYXY/C
SMxobTQ6xn3d7oTPKSTeFUVEoN+zS6ar6FPI+52uDUQHxWvnxsyjsHKb2swf
0C8NP36haEjh6/SkV27oR25NgRPGFMzz6xu/RK9ny5UPCCnsU93btBRdE5d9
7t1SCtxYctccdGF10JM3ZhQ6FQfnvcP1o++2NSjEnILh+sVb+tFpMlDlLCis
9/kz/TH60AIt6+EvKfgPCNcWokeq3v/tZ03h4qyB3OPon7b0BveLKNgdn9KK
RLsfvVHw3I5CdqrtXDF6OXFXb3emAO699e24XyrdNjKJrhQ0V91nK9B2tbZh
oi0UKie7x0+gJSlmXRc8KXT15Nc4oxNWzigO96VwsFssLcX9qpM15S3cRWFg
ME0Qjz6n8Fa725+CnnxKbzu6srV3v10QBZvVlsNK6IHwmg3akRRqpTVz7bE/
hD4rm7x/gMLOkj8lWugJh6KyyEM4v5/37H+G/UdHL2POi98oOB2Z5x2KtqsK
Hr6WQqFwWfz1FOxX5yYWJjqfp1Cw/NHhVOyHy3d9LlIoxP+3ub1lI/rWQw15
eRHWk1QyqYx+mDvupX+NQmD+tcl9BN+37umS11VYj2VW3Ebst5KjCY3xLTjf
nQ2VzBB+LxsdZd1KQZq7TysAHbI1YhV9QmFDa9EGLXS80DdrayfaPcLbe5Aw
FVLrAJN+ChWXNNVfYz7M1qCqDR8oeDXqhD3sJUxrbWKc4wSFdyE+7YHotEBj
5ZYpChEZ4zZqaG2pRKlzGg/rTgkW2b5Ax96f4Gbx4G1TIrzYQxjNj6flc414
OLkgcTFgfj0qsgzJM+ahzvnts+Yuwhz3fMSZCHlQyNuUtQ2tUTFdtsqUhw9h
NfPCO3G9h+wZFFvxIGu46puFeThz0KE7zImHv0bWPCrHfG06+Vzy3pmH3+4e
bl2NTrY/0HHIlQeDRa4dpW2EUc+//jTBnYfUPyQjl1sJo7Z97uPcHTxo7pLs
SMW8Vm2j9/8K42HWop8UzTDfpzFnrhmd5SFKVcXhCp4fOq3tv+nJ4UFdIHWc
wvPFtWry/HQeD0OJb4xd0ZKKr7W1C3k4ar3xR5YhTOmVnnBBGQ9rbjeN6ddi
vpw1WvvsDx4e5CUF297C9RVZ3JDxhofYBQ8cr14mTMrYlu2b3/JAow4adRVh
f9s7PvrZex6qGEGbctGn+p0Xx07y0Lpp7Q1JIWF2+nMJYTPk0HXhecRIAZ4X
VHari2bKIU68TTwb/R8gJXH0
          "]], LineBox[CompressedData["
1:eJwVknk81HkYxydydYyM7iXLGtWqWEuReLZCzgqVKFd02ZBJiYQuyYpJg5JE
ju1QslFEPeNIqbaGUY5QpEEzk5pxa37fnf3jeT2v9+v1/uN5Pq+P7q5Qt90K
NBotXD7/72w+51SEhgRCeiqig3JF+KdpZZuakwQYtrW5yski5PLeFpW7SOCQ
xv58xnkRzgn+Frt3swT2WLw4o50kQixgGjzdKoHy/Jheo0QRas5js+L8JMBN
FqpviBdh5Xjg9NHDEvC8ETwLYkQ4HelWvTkSqH996I+twSK87bAr58mIBA6r
/7R9rr0ITZfpWsO4BOJXprd+tRPhE/rH9zgpAeECb896WxHy+N7zqmlSOGuV
sIO1XoRD3p7JtdOkkLpkr98TaxFaszZHP18khVuWhTsNzOR+pvX2JjspNBvv
yTbTFeGwcOEsQboU0keaFV1GhMi52vcs67IU/l1PkuuHhPj7ptJY9ywp6Bjk
9VlLhRj2j8sgN1cK2j4C2rJvQhQfjXt9pUgKjYGWvNEBIX5WEiS51kjBzavh
+dZOIb7VKVF7LJZCm/+Hzb/WCrHMfYMix2YIEpPWt6z4S4ix9meulQqGwPdz
6PQjc4So2+nYmndmGI5zmnK+s7/g6lWnOQtMRsCHDKU5iQdw56I341P4I9BU
ebrNaO0ADr8433PwxCiE7uGOeBzsx0tTfcLd9MfgN2PNnmUZfajZVXZdoW4M
dF7s16QXCbB7r3NMRcsYLFbYwBj7S4BKx09ssQgbB7+Ggt/1Uz8j7aZPcQ9j
AtItFrftDu1FVmbxeUbNBHy6zDxUxviEjw0TVDVCJuFVo+3za2ndqOHIWnaS
/gMU9rWGVah9xI7lPH5k1Q84WapFRW3swINh7v39oz8g88MjteZ37XgvG/R7
fWQgvRDPHHRqRWmUVMXfXwaT2stsZ1u24kqPv4WdATKoMSmvNPq1FSvV1e+3
7JOBw6uj0Q6qrVgf17X2JUvu7/v4VbmuBd/vOu77T7wMyo58tMm2aEHlxZWZ
cXdlUHx+3KlT6x16F6/U0KZkkDD+PYXO5eMDrzE6j0aBcluhaf4tPtKVH804
pUiBzeCag0vT+MjdaaU6oEpBFFH+TSGIj3rTbEipJgUB3bWBAww+CgJdxc5L
KXBm+50I82/CkIUHGqK3UMBJ+9yx+xsP658uf2bkQQFzil33zVYe6oQN1vV4
UmBx9eW9Vi4Pec9YXHtfCi7Ms/k6zOahyeHIh7ODKFhhv8d/qTEPR9/EFxTF
UjDuNpqV2Pwa487knui4RYFi30+pzhkvcWaEiqP/HQocrl4/ArtfYua+YIag
mIIcZ3E8MXmJ950s8gZLKXiaESHr/fcFCjQa6xSQAnaKeajZlBfolE1TXcqn
YIbvYotA7+c496Fv8uFJCo4xBq/T+uow78bTbRMy+T+qea9c7tShcaahTiyN
wP7wgbFNh+rQ4fhocYISgUXdATNDqVqMXp/SeEWdwHENi8SxWbXY8+bJ7Jpf
CGgf6NbQM6jGO/3aV+jOBCLTZ2xXn/EIE66e8evaSGBEuHra/IMVGOgmZt51
JTB1RdrPXU3lqFVVdc/Fg0BI3IX8U5yHmJiyoz5pFwGmCT3XQaUMl1T5T0yL
JJAUoY7GNsVoI6Q9bD9GwFE700rr/R1MXRf357kYAl63vy/ojynCd2rmKo6n
CcQJczdqJtxE2853WudSCBxdXa8fczYPUwxeTTvEIXA7eDwluSQHG8QxQwZp
BJxVLS0qHXJQ7/Rse5VCAgp+tL55JolImUfPbLlBYMW590N6tqcws2+NleJt
ApdcDOdP3DyG9AWO3tvkHBh7l9mmFoVJyhUNXkUEhvXjOGbvw5Htcd/broSA
u43mhstXXCEqM1IjS8526Q6rWF3bQbU0zPl0lfxeZoFghgcbHPszeuc/ITAk
trRYm5EK7R8qzLciARbL06vakwMPOLqUfg2Bwv3aW1aGXYIPc6WrUp7J89gx
60G8cw5EbbLqo/PkfmBlQoLp39DRmJKtyCdQ9e2bKPzKTRhfIjRqk/Mbg/D2
jdtuQXn8aAD/LQG9TZNiI40iyJZJnjJaCciCpcOHF9wFjqXv0jw5B8SK5ypl
3YVcfkDclw4Cm2pyDMe2l4BTwYrSdV0Etv7BMd0oKwEDr/RIRjcBNivC0Dzo
PiioU9Y9n+R55lUVfukrhaCkn2XnBghU6xSFtTPLIbYyt0ZLSOBhd36ajl4F
1LhfPFkk52uuHSVLoisgfblZiqtI3qeF+6ee+1QBYT1ZW3QHCTCK1S5GPKsE
j2uxrqLvBJq+aw6KGx/DEucDH7hDBMrmxK9Um8mFvcyF7JAReb/W2bEvNnJh
6pTmfPYoAZ+Qbax126rhY5llkN+EvB+vE82ZHTUQnrVB4D5JYEuBu9KNs7VQ
FZRnZCwjkGwosFncUgcZOtOHCSGwp9q1YQ27Af4DKGzhQQ==
          "]]},
        Annotation[#, "Charting`Private`Tag$2565#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwVy304FAYAx3GOmSfvluqO8jTntjbkobEpfq2jlpqbZt7XE+dU8paEEYWO
0DwrnCvnJZ1qXvN2xMOZw0juYp7kLffgONyLyssqau2P7/P567s7MOIEg6Ci
ovL9x/7XlSEd7FhgOBV0MVoebCrht4U11ar6Lax16Y3tPymhTiVFThGd8XY+
QLh1QoHla9PtTrdc8UNrQbl+gwK2xWxOPdEDI6KbOHZKAZWVGF3c8IXWJw5z
UZ8rMGtCTo6lnMTcvTHaXhUFIvyGKpsj6djYJI2bP5Lj2MBIXSExCHX5Qu+z
1XIwyPQSZ34wHFrIPXuuyUG+vrPsg+lZkDbW9YUMOTZc6fkBlHBUbEpqeGZy
xLVZ6gTWRUGLmskJEMrgFbTedpMYjeYaJ/mJKhm6qKQmAScGocNGlKOxMlDZ
A/6BA3GwmhHHMV1lsDZzfLhi+huM3qUUyakyZO4V6DxVj8dFp0GvIRsZ7LNr
4kkll3Doa+X5lyoyaE6nlHpSktA3p7W7Z2YJvIDRG5/5p4C9v69jImoJ2+zS
qb8Tr8LTK3xdy34JvTSqTbwhE/tS1wZ1dywht3hHh7kfE9xi6RhBbwklseTa
zOY0uMVanu6cXcT0OnfV1TgDGudCYj0KF9ETJXDPiM7A4c6DguScRWRXGX7p
TslG8vFa22q9RZQY0dIyibl4Pii4TDdYQDOrR938VC6C6GaMX9QXkDCQ3+XZ
kgvFUQvl/ddSeDLFBDO/PBArvT1oz6SIUwvqP/MgD0+IBxhxvVJor56/3Mph
gb0R5sDjSMF6SGBFm7HxxneJRvGRQnXC+urjOjYsD7v4/nrw4z+cGyczvYXG
tcTIJEspAp+yKhb0bmO7e/erJA0p3HPGQtwoRcgJ3WV30X8ePY9u+37qUorI
LMsX+0LnkKxZ/0UGkQtDTtvWvGkJCF7H7zZYctFknh6oNinB83rv7JYLXNjp
cD1q+iQYYkYsjP/NhcMzk51FdRKQ1SwqrGLKIKoV6dFSJejZ5FoND92DrUZL
cSZFAu3XrG9Mr/8Jw4H2H+svzII9GU9tfF+NyXKkBpNn4O1zp2b5ZQOuvK0k
hvWKoRz32FJKakRQt3vHRJMYaSc1GT9TGyF5t9bhc1+MenoEiZfbiJhqb2pC
mhi64Y7MBHselKV/5Hm7iNGdMuqrkdgEEu3ukb8yp2BTaaBhotmCUY8sje6C
SWh9SPY/sosPt9MWa6XrozB3V0gFWV04Z1GhxUz+B47lvOV+515UG17qng4W
Ilb4HdgrfbCbEO7Zf+UxtjcYvFBVFeFD4uRUej8fvGnqE9GBIWzqc1p1GWXo
DCk09pENgzRZICIMlPBXKY56VWEjeC9hmAleNfMJbyr0jc3H4Pzv4PqZoS5+
2ld3tnFZEyiaVxZpD/bz/wPyvwD2
          "]], LineBox[CompressedData["
1:eJwV13k4VN0fAHBLu5eypZQKJbRJpIRvWUqhaLNUKturkr2UlAqVJaUiiQiJ
RlGWhBz7W7Jnyc69tma7d4YwiX7n98c883yeO8+ce879blfRweOws4iQkFAd
/vz/O8LWdDKU0Q2idg0rGhbVotpgrfpq9T5gnP88FWfbhFY/ZAkyuP0Q/Ofz
4OLsFsSa7Ott1SDgR9+HrPlR7SiVWVQjEUnChuUnFBd6dCIJhdfU4OAgOF3z
Glk2240izuW5JK0dhh6WgQJ3XR+a2M0YdA0cAd0805jjCf3IV7Myd2nFKHRp
uHRvuzyAXLTWJEV9GYW2ZFdG3NUBZLM9IPyf+lH42VKw7m/AANqlq+Ug0jEK
x3sr5MuCBpCIYepiLncUZjYK/1GNGkAPrILPV8n/BO1q/b33GAPojafxGl/v
nxA4z2/f7d4B1PeuMrxJkQkldxL/s9AnUCNnDltzPROai/P3Ld5NoNKNJuZP
NjJBR1vBs96QQElvqv6x1mHCrTqjAhNTAjmkVd/vNmcCr2hIftkRAg0nfHkw
4scE5yUZjWauBOJE1D6eqWNCXLeiFvshgXq//TNu/50J3zhCgrOPCVS/yOJo
6Q8mjKm727ZGE+jdvTqZIJIJzEgbVm4cgTyD66MXCJiQka5pap1KoPFrjU+l
17LgOm9LhOpHAk2fb3mu5s+C349sPH93Eujo9lNRmwNZoFE7Scx0EyhTePjO
tmAW0AZXtf/2Esg+dtJLP5IFOYs6r0wTBCqrkje1SmZBgLy8ZyeTQHfXnB2/
UsOCG1ulOrb+JpB0G8f8izwbQq3k7I3lSOT28rJh3Wo2fOu9sUV0OYkq3f7q
NK9lQ83mnDYkT6LLopLK3ZvZIMbf90pzFYk6NLQElCEbysYe686uJVFiuP8r
uQtsQMXNwps0SbRhz/xZlyI2MGYjOMMHSJT9hrH+Rykbzv/UvxdoTiItGUur
/dVsqFSzjJA9SCK9kdjUDU1sqFBWa9hpRaKD99XN6GE2+IfnaDtak8i7wyL2
qhQHTLrDdHY6kmjCkF/GlONAj+C3froTia5lxrBOKHDAWnpHuowLiYID+wwM
VDkQfqcsbciVRDHrvIZEDDiwLLzc0NWdRJ+8nmhGnOPAgPP5t9QVEhl07Tg5
486BZk/Dr1r+JCo37glx9+XAhS2FRn7XSFQjp9JhGciBwg0WR8avk6j788dA
2WgOGD70b6m/TSKhRV21L0o5cKrIduXcCBLtS1b8970cFzpybL/4xuP9xkqo
VK/kwgWfRrNjCSRaEzk92KnIha6n4QHbXpDo99VWhzkbufDnydyh0UQSvbUK
tbfezQW3C4m1OikkkhbmHZtx5ULU1rRa5wy83mSPjJQ7F54dKBRXfEMiNrvm
u4oPF1xDlAQd2NU/Uq0sr3MhlWtUb5xJoqvZNhYpUVzgDGlfnH1Hor7Tpcb7
C7mQ4dZsJ5xLotpjb0XtERckyuQ2P8UuMIsr967kQoC2foZ6Hoke6fjujq/n
QrxZQsyBfBKZLFbVowguOMwIHXAvIJHmXNlp0VEunAt5ZMPDXjUtXLiMwwUb
p2lx708kmhru0jGc5IL8tx9uboUkYpQ82BYtRsHM27uTxsUkis0N4GcsoaA5
PXpnHnbwm3PvS2QpUNR5oqj8mUT2MUZbRldT8IgvICaxJd0n1XdpUWBZmqYa
gkg06zj489BOCpa7+D4lsJm2TelOBhR8T3dn6JfieDZhqESaUjARHFXOxvZT
OK00cJKCLkMzxuZyEjlYahzvPktBZI5Eox/2wSDhsHYXCp6ebssuwVb5mcKr
86RAslIjzaSCRFIrL637eokC7cmUwhDsmYN7bSv9KYg40R1Wgd2SO1paGEyB
1UVH+x2VJCod+TSeF0rB3KqYsx7YDPlw1feRFHQn26xJxb59c9PD17EU5Itb
N86rIpF7zmxFcgIFTv4BZVrYtsMNkwnJ+Hw2irifwdYw9z79JJOCy7y5gmzs
lYFGjx+8p+Clgld7K/b8DzL/heVTUFyx1GsKmz849DukiAKRSm7VsmoS9cp9
3HyrlIK4O7zW7dg1B+45BFRRkDkt9/Iwdt512xi/GgquPD+x3g07KVu9xruB
Am+XfNcg7AhyeuZiCz7/ISXnWOwrS+u2nuugQFktfiUD23H/C2enXgrOflN4
UIR9MMDj2WmSAgEnpfgrtm7W7jq7UXx914ZXrdgqhKTwcQ4FCcPZpn3YkrKk
lhWfAguG5uth7D/7cl3NJynIrntXysIe9Q+J3/eHgiz5tdFcbObxDa4vhWjo
G4laS2GfoaVFVovScFt6yp2D3Rb653n8XBrC5lj7/sQ2Ux7Sll9Aw+M3WVok
dmlxXcPTRTSMXBfN7sTefjz/nKw4Dd6BR4cbsDOpF6KPF9NQtuNVezm2Uujd
hCVSNIwXTQXlYMcqeepEytCQn3KY9RJbotimSUyOBk3pj+KR2MHH9lwIXU6D
UL46yw9bwFWbO38lDatKPwSdxna/J5UYvIqGFs7RdmPsQcXpHSKKNKQFyQ2v
x248Wus2s44Gq+Tl2iP4ee7l5s67pkrDg5Oulyqwi+8mJE2p03Bj4JdnAvbr
QveWsS00KATznh34f3wctXb30qRBWtLnPwXsRxxYQGnRILLPLpuL4+/GGkk9
5k4aCk7eyQ3FHv8kaP1Xj4abQ0TDEezzRwiPIQMaaNeWtBXYx+7kpPQb0eBx
jXE3Fcf7RvYxsXYLvD6ncOlznC8FR81RmCX+f13JDnNso8+GPgZHaEh93kNP
l5HILnJL1ysbGjas11Q8jB2qsZDh60jD4G7nu704f2We/bVXdaGhSExkyh87
SXhCqtuVhh9POktksAuaCX8jdxqu7Mg6tLuERMO+xQekrtKgH7Xmlh+uH949
H2arrtEwoNSYNluE89Mk48PVGzTEnHmnHIQtIxcjPxBEw+Xo68rBuB4ZffJg
ZkXS8PCiHrjg+pU0oxRmkUpD4+zaBYwcvD+X5QbCr2nQ6+O/n4/9sX4xPzeD
BgcN27yzH0hUn/jHdmUWDdenkr6Kv8fr7WlTY33C8Xhm1aa9uN7a3Qn9eq+B
ho1HJxbuSMf3yw28rtdMg3Cmn+P51yTysr68lW6hIV0mZXlcGonuqTo+s+6k
IcCpOZ6XSqL8Gr1zKkM0qI1nzrn1EveDxfSCyt94vc2y9xXjSNT8Oezu/hkc
T8tE3XWf4efrtm5ew18aDOaKzrOKxfWqxk60cw4PIjwWnPSLwQ6pmqEkeMBM
5rxKf0SiJdNx/BXKPPhb+Lw/IYxE/4yYdPuY8WC7QPZ2C+6PtdH9dgILHuwV
d3qf6ofz3/haxw1LHqQfEk70vkwiseTsttBjPKh4oZY/35dEi06taEo8zYN5
bSZdSz1ItOA7XfXNhwdWymd1v+J+PQc9z1KO50GUgKl2E/f/Tj1j074XPGiW
FJP6ieeDrEJ2f9xLHlQ25Z46ZIbPL19fSuo1D36br1CUMSXR+7d9vkIfeKAq
csvhxh7cH+KVdXv+48HmX0rKbdtwfFxlVMaM8cBOv2Zv9FISRU4eOXV4ggdS
N6VPMGRwfbr055e4gAell1X6SqRwvnpZrA+ZxfcHhjt6JUjk7EqF+izkg09y
6M7Zefi8rLcdslzNBwvXj80VEwS6oFXUsdCMD2fOLNzl2oLnycbWzAILPhzX
HAjWaSaQ7EU68F9LPnjldzrMaSQQerVOpeoYH+a/q+6O+YbnL7mH3jfP8OGw
btT3F+UEKhI4iU1e4sMF8bh1u7IJJIYk9AeT+LA7plcpPZRAjP0OSSUTfOhH
+9E5bQJpbVQ0AAEfPCOGtzVpEqhEor8LTfPBeNQgZbsGnne/n5IrExqDsw+d
fabV8Xx5yjayYtEYSLSeJNzWEMjA2zLgy6oxOK2waw+1CP8+zsCmee8YfBjo
3OKL5+dfLPklwzFjwAiS73gQOIDyjuwTfWI8DkUG7aGbnvajQNOQxNzhceDb
FN/J1+tDij0HfqSE/AL1ZpHQcvkepKsT/GS55gTE+vw6ER7WiU6uahAIf5+A
lwXcAVFWO/pVc5/wvDUJ6om6e081t6DYOfa+h9dOQdjTTVRmdhOS7s1LFqmc
grevAyr/Vtciods65Stbp6BcOd2xHb+//A9qfDK0
          "]], 
         LineBox[CompressedData["
1:eJwV0mlQk3cQBvAoKocam3ghgwVUkFSttHjggY+14EGiFsRjQDwQqiKgKNZC
ERDEgkbDCIoCxomJihWMlohFA8EUqkGnXJUaRAgBcvAmeBTBBvP+m37Y2fnN
82F3dtYj8mBI9EgGg8G11f9duX730i1tHyE/eJma1PRMwbi1Q6plW7C6qFqV
IXuoOFwoPctWWhDxjU/Wtn0iRdWcbAdW/DCWNGf4Xv9dAlbQ4bkZzE/QtV/t
aBNWoX1eY0uS/BM0v66NPMqpx6GETQbD0CfU+NQXW+P+xF0hZvXssKL45yBe
prEZEdJFrOm0FV2n8xnb1qpREfaR2cigcegt54IyWg3mmIfjMu1oNG0zr1+R
qUbNdn8HowONE+57b+6vVmOGUwCRTaThHByQkLewDbqoYDOPQ+N2pQv/u9mv
EO8Sq0oJpTFCH7c/cdprpGeJTrT/QmMCI3xyiEiD8cfsg3aX0eDukvFu3tOg
cF8cWyelcWqOs8BRqUE5d4n4jYzGYHhVzQetBjpWU+1IBQ159OKGQ55d4AoZ
DpwWGjlLJfKJZV2Y8mDnuaPDNOIGF/Vwn2ohLqnbYrHSiOIcz7zQpoVP4Ry3
NAZBMvl8+XuTFuuOD0mzRxPEiO3H61jdSPlW0FQ0gUDS2+Gs2N4NbUP1JOVM
Ap/Lr++kDHajzDC9iMkjOMsNZKmX9yL7Staujg0Evk7bNbLQXkSFmD3vBBPM
3difXBnbC1e5/O76rQQzRXn9K6/04rQg/A9+JEFg3czZ3zN08JbvtjglEVhr
eVFujToEUIwHbT8RfJ068NVkSofzq9IP5KQSND7PbHUcrUero5990EkCFfvS
kR/89Qh83eqaI7Dtn1I/drpUD4HXc6cj+bZ5rvzzvj16qMypA14XCBRuktBn
lB4zTk5aa3+D4MOCSxK3awbQfinj/y4hGHIbu2Cl0oBC/XJ/u9sEzFF302Jf
GcCcFhSxxeYV485cm99pgNrc3XzD5seXZ2hbtAbwx1SqwkoJ2AbdrNmUAblb
yyNW3yOwE1jeHvA0IrkwiVVs8xdah4J8jhEOsgTeSTlBpEdD8sR7RgQZCnqc
qwlyKWlgfp0RbZ2VfpsVBAJY6aIXRlTke9CzlATjNoQEqCxGdE75Z7HgCQEd
737+UkAfkjf665mNBF188WhBTR/amwRCuxaCqY/JkVKqD/96U/PVNo+o4DaU
fuzDb6eG9rS8sN1T9vLx8akUhNb3deyXBE+FTxbmLaOQv2wnR2zz5nbOOlEA
BVHLnvS+doIlgWH8Z3wK3OtfylZ1EHAk897/KKbgFXYxid1FcGOY5XvuBYWR
E+gV2m6C8A2bPaocTYjhu1tzjAT339UG/pRsQtojkdKVIigrnpKcVWyCclNe
RqnN8Y8+K7hdYsLFeQsFwSYCby9kCytMSNAWh3q8Ibg25lZqwZAJW6+mBZve
ERxrFh4N8zfDmxfbWTNAMOgX49J92oy9ni658YO2/3ueXl5ebcaoEX9JcocI
Et0ZZ+50maG5vyxml8WWq3Ywr6/pR2LxGt2mYYKL8tYBp8R+yGPE832sBD19
xqk99f0ocBv7gRCCotrohyXWN/gPFid9aw==
          "]]},
        Annotation[#, "Charting`Private`Tag$2565#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVxXtQ0wUAB3Be4Q6BIZC0gXHKNi0DERPmKX6DQV2jwxvgwLHjdIBXcTEE
xAX54LHJc0qOMRARaaCBAQ15hDzjkafMB9ClEU+1IFGQgOG232/VH5/7bBWJ
w+ItzMzM9v/n/7nxc4965+MPbukLCBsjTYi2UU7dNmdjk9pbMFVrghWHnjRF
C0Kq12TU+QQTlnJnuw+WceGsXc5p4Zuw56qqopkWAfbcxln3nSaYraTZo1iA
7Kd3I5U2JjxzY2SeYsWAsXg498I6CXH0yM32pFj0NDpaToyQCNH+prlCi8Px
qn2p72tJxDNiq4J6jkOzU3ehvZ0Eo3BLjcn9CzxfriYEtSSM3NjSY6xE1Psr
u7RZJCRdnnYiTTLMfe3/kkWQiIzTdX1LSwUxWXC6LJDEAIfe1l+RBtn0xJAT
kwRHpRWKtBL0vogsybYl4e3h37Ti/jWKeeyE5xQS+bv67R5apSM3qlOXYiLg
J29Mp1d9g+HE/OAXTwlQZrOq+awz0D0r3/FolEDrsSfFTsIs/DrPJEcVBDb7
nucU0XLguMRVnUwhcOcQxyfdUYoCZk44RURAcfWdXma0FLJzrQuvhQS41LoD
3RUyuMQ4vlz+mEDVKcaP+e0yHDgSd8k1mMCsTr3Kdc3D3rrhn6+7ERhK7ufl
pebhZNJ0hJ0LAfkPjjt4LDmElTLn0XtGVL19SJZPUyBmhs0bZBvRrhyyYh5V
INmBN8nabUSGtnSA36GANd3GL2G7EXzptIVHdAlCtvX1BG42QmIZd+/zGyW4
P+nQwLQ3wnb1xNnbFUpEfRRz+MyKAcomC2Wqhwp1f3f7NQwbYP6Hd85djQoi
W1WQU7cBkjGFZMG9DH1IyV7RGCB6qKyfp5aj86Xr5b7LBvAu/f5lKKsSmrHO
5XJfA4Z+KhdsCK4GxddpT3iNHpmU5u15NDWK9jHP0sP0sIj87LtbnmoYx0td
m0P1eNwcJe9IUaPQ07lxNlCPEal4fvwXNWzk4QsDH+rBsPyg3iutBj76vol+
Fz2GCLXX2EgtQl6V7m+afAPbf5R73Qu/B/+rXMac+A1UE+mcFrIBDxLW37t2
ZR1RR641Lr2+hbHAyt2ddB0WxyNsqukt0NMrkwxUHWQxlPhwTguo8scpAW/p
0BwrprcqWvCgJODczOIa7BP9pRl+rWiMKxoVD65hMOuJwPp0GwRba8VtJ9bg
c3OTtRulA1OSjG0X769ioylT+Mm7PdgwIhxcU66AyXs1118wADteaPWnR5fB
zqA6/LnrDhLppTPUqSX8C/jC0HA=
          "]], LineBox[CompressedData["
1:eJwVlXk8lPsXxxGX0lVG0uImFUoqiVQ/OUWuJnUvJWVJRYkKEbkUQ7jSok1S
UWhPWbIkS0dlz1IYM89jTQwxM88zk7JFv+f+8X19X+9/zvmccz7n+9V28915
WE5GRuY9c/67LYh9n7Idq4DWs1tlWU+DRq5qh6xsA4iTczfrhAkhv9uytsGs
EWSetPZevdYP744mz3cUNoOuXV7ibaoHvutunPHCmwcB367Frcn/DHKj6TPn
65CQ+m1up1JZG6z9dSB/V0Yb5C7ktrvwW6A2yri+Qr8TiEmd9cZ/fQKtK4Oj
T8VdwPbhfv6mXwmDw50dXMNuYN1I2jqkUggPBopqVOK+QMSKsNknVW+Ayh+P
qZ6eHsh+4f02rSEdL3rleaQsEUD/3Qe7dVLe4I9N6T2enD7wGEomPuRUYoBR
We7s9/0QM5Ky8XJLPXZmlF34pD0AaRmLsne2NeJHkbzQSG8ArvQfeN7V34il
Blbb4w0GIEb5abPH90ZMeVY+fY/pAHyv6Et0VmlCt0cVl9q2D0BHW6aHAJpQ
kFx1uS9oALxjKvPPpDah6GLt9Ym6ARiTllbFuDbj+NHmO8tCBiEgL3ak/Q0X
7dfuu7qSMwixkt6GW1VcfC4r+HdN1CAkcg3u7GjkomvisN/GuEGQSfo2nNTL
xbfl87bapQ3C1FZfI1K5BWMWHhz6p2YQukhffrVDC6q1iLZXzRPCubyCRQ6C
FjyeesqiTksIFpqJSQpUC5Yd/2XauEQIVRuW7Ho+3IKnpqgublspBD9W275O
JR4ShsajlIUQwjrLN7bq8/DehZCHGseEYLnBL2+JNw+Xb1ac9CgSwpRIacen
AR5mPUvX45cKwdM1pnNSykPjWbZ27AohZLxflrpwnIdmfYkPln8SgnWOtZWF
Mh//uqRvQwuEIL8nVGtCn4/+xI7EYJYIUusmw9iefPxhIX07oCEC9uGvnDe+
fDz9PGHQ+Q8RJH+xzNcL4mMUp9PcfKkILta+vdcSzccEHb9eOXMRyHodPf4w
jY+v/eKNLnqJgDW1cfYvgo/mretcJnxE4H3Fxzyni4/vtrRH+wSIILx45nTn
Pj7WaOgSthwRbMhiB0YP8bGt5BVH/YYIHM5mnN2iQqDMtNbau6UiuBW5/b47
EGidpn0kW0MMqpsfre67SaBxoopuhaYYIMfk4ZMkAhfGjfeQ2mJIb2O7uKYS
OBbMdZM3EMPX32cEP3pG4Au7WNc9m8RQ0TP07EkxgWqykt0TnmKYZL0b8elg
8g23z2L5iEHC7fP26yZQKKxp0j0phlSVg4VHBARW8B/Y2YaKYemsWFwlJjA4
a++O+1fFoFdZXmUwQWDn/tIt7EIxrFIs8uXOIbF294sprigGQXi7N0uTxAKb
2+/8y8QQMqfzs4UWiddMAzYl1YuhuVhZPUyHRKsZS82objFkW+xX2beaRCMF
9fEp/WIoZx/WNjEmccG4bOEckRgC2MocGVMSRwStphbDTDyiTcHPjMT0N5fX
3FCmYC9H61XBnyQm5p6RPp1JQYm1cbw+m8SoZ17Zb9QpeCc398ZlGxJdEyxX
9WtRoFPkRBvZkqjqM6z/P2MK1B2CrnfsJXHSvefr3+spWJmxXv2rE4kDjp+e
HDKnoMdwLFHgQmKZVbpu3FYKBmJ0bhYeIDHoj/2LPrtQEM3qVqw4QqKbraFD
20EK5IpqNA94kfhXpOx5ngcF6wq/3BIdJVH3631J3QkKmpXp0m5vElmagTrV
gRRcqYLD23xJnPjrT8eyEAocpgd7PDxBYnNuf2lhFAWDuk6BJidJLO17PZQX
S8Hf/8wKOxrA1D/vwtLsOArsbrYT1wJJPBu+4srjRApCwt9GlASR6JMz+T4t
mQL/wafV+A+JjoKG4eQ0CqY9N3PJCybRcLv//vjnFARRck4hp0nU5Fhev5xN
gSj5/Vv2GRIVX86qPJ9PQcEatvf0UBKlPb1j0UUUhLM0nN8x3KHxamVEKQXp
mtWxx8JIrNl2zu1MOQXL69RGFDkk5oU6JgTVUJCzo+zBTYZTsvRr/Bso2HKh
NG5eOIkXv4xPeDdToM9WzLvC8D+z61Z7ERRYGWXNHmPYnX338KEOCrL6B186
RDD9PON7a/8XCsrV5GMfMbwhc1OdUz8FnsedE78yrNutKusgouBlpXeX1llm
vupfjO2kFLRpfTzAZvinda7n9mEKOHcM53ow3B8SnWT9kwK96w5TTzE84LDc
M1WGhgU3Fq0OZvgArSanNYWGpCNxV3wZbon9eSdJgYYVU1/oOTJss7jXZJ4S
DQczn/0wYbi0uK7h5jQauO9rJxQYXuuQ76X+Ow3hnX4bqxl9z6m7U67PoMGs
TDWfw/Ci2JjkmSwa3thv9FzGcOKiE6Zxs2h4ff6ufQVTv0rx3k/KGjR4Hhs5
7cBw1O7Nx2Ln0nBoTLeTYPo5Kl6moKhJQ5W+FseWYZ9zrHtRC2h4VS92KWTm
0aM9vk5OmwaT6OJgDYY/2tcen9ChQXWlZ2A6M98/xbm/nV5KQ/0DlT3dzPyL
Y5JTRvQZfYpbQqcz/LjQp/nbKhqq9UaTNzB+0bTf4+NnREOUoXySOeOnayJQ
ooxp0AvL7TVh/Ba2UNVsYD0Ns2cuPjTJ+HPo9Sj3iBkNLx8uT25g/Ht0V7dv
rzkN01u99eP9Sdz9b879LksaqD0mNsOM/w2Eu5V5O2i47TQk0mH2pcB+O563
paGxYL6pryeJliUWJ8130dCxD7KeepDoFLeq9eFeGi79PGghdSMx1nBqeoA7
Dc6rBM6NzP7OuvXLdakHo+/4wK2HzH6nyP5gtXnSQP6Rp3/UgYnf2B1i6UOD
O6G9t9KOREFA8TZWMNP/S4ITjdYk+re/nCw/TQOmCBoNrZj9tHr6MjiMBitN
7+xwCya+RsK8z5E0rPXjjQ0x75Hla9+BzDimf/E/3A2Z9yxlYtH5HQ9o2JZy
TnZkNlOfx1xz2cc0RDp1KvqpkfiqfoY09ykNoXImdOsMEuvv/XTUzKRhYfnv
kTFKTL7NLcsGX9NwJyg3ZO0ogU7/xlafa6Bh9RIXozEegQIxJ9Ss8T/9btXx
TQT67Tm1mm6m4WZmQqF2A4Hnlrrf2kPSYH4i6gOrgsD8GjMv3V4aOCWjsTtz
mP9gBq1UNkZD3JzrmX9fILCx5HwMe4IGOYNn6d7/EnjtuM5vDb9oOPz3wnXh
EQSyapymkPISODZPYUFkEMPR5ROUigT6O7M/y7gTOHP8tnT+YglEahwJ7DYl
cHqfVdtJGwlYf7xe4sv8j7U3upxGd0ggK0QmYkUTHy9uOU2E2UrglV59QVct
H5XTslpid0tgp6VZml4pH6ftm//p3n4JZBQPLFn3iI9KTXT5h5MSsI0wX3r0
BB/l8U7m4iQJ6MxPSLKc4CFptmVr510JuG2qqpv/nYeZhcKu26mM3uKPD/qF
PHTK38hiPZaAs8bUIwfaeJj9ojNA5qUEbILNVlQX8tA1afGG9koJdF99ZBwT
yMOC4PSyhG8SWPH7E3equwWPGRcRU22k8GdfPmvZPS6WfuQ+L9ghBf8M9ruk
eC6qe9OcI7ZSKLpasl/xPBfxoY5u+W4pCOWbQ98GcFFN44p/+AEpTHj1DVez
uVg0ekh5OFAKHM9r9qulzaiMKht7UqRAOmvkRZo1YzrbLeXNDykklV0V+BY0
4vfBeTMFCd/A5uRnjqNeA+btsp4Sv2UI5iittp0WUYmcrdH3cgVD8CFPIQ3s
EbXbt/HvR3+H3B616oXRL3CDaVT8XKMfYJR64sNI71VwWdAwKtv0A2zc5pqt
u/AKvtdc6j4RMQyl0re8RzkVkCjvGrBzyQi4zlrbm1f4EdQ68tLkykbA5tHl
DBXLFlAIjbBf7zcKvckaXyIut4HMU9fMbtYYEEWNFqf3fQb/25mXWO/GQCA5
PZja1QMly88pqfqMw+yA47YHI/tBdZu/wVmVn2AxJ/JYu4YQ2lZ8bAou/gmx
Fk+Uz8+n4fIFc4Pt33+CbajFTAHj+/8DQy2s7w==
          "]], 
         LineBox[CompressedData["
1:eJwV0n001XccB/CLNk/R4eiejFsI00ycjdKMt0nMU0UhHHFjhPVwT92zSR5q
UeR0ba6HyYhrjqM8NOZhlLlo62HzFMoxpMJCD54u9/5+3+/u/vic93n98fm8
//mYHjsV8JUqh8NxUc7/6R98vCJdzqC22b6pYfItwut26fEIC6GDuvadsGWk
pZddGKsmGLPT/ChIRQadb9S9+TUEj6INjZa0ZSg6fkJ/uo7gb+7pqnyuDA0+
eyRvGgkquzaPv7OWYVqvv1u1g2ClT79BHiSDTwlHY8cgAa+UaxlbKwO3OeKa
UEHwp0qLh0/UGiRVPUFyliDpKD/+5ck12BVZb0vlUFwws7LPPLcGr2RZ3ZX3
KDpD3Nxff7+G83tF/dc3UZxIjTvwSecapnrvGki3UxT8uI/bY7qOmlnedV1f
iq6BgvlT8+u48lN65Ph+iu5dzdYminVEByxY1PpT2Js0rLzQlMO4vb3eL5hi
oN7TsPZDObJEYfeyj1Gclg75+0XLYdXOl2slKn1ZIPaeksN9jtM8mkTR68p3
zlqU4we3tITMFIoQW/GilaoCw5qO6t6XKAIGrJ20zBXY98+wcaaIokJ/a8Ry
rAIiy0daZ8QUromfDYdcVuD+QsqyZR6F2bem/JGrCphdMvhSvZKCTW59clOm
AHE8rzNSRRFsE9j2nRaDopnPndVuKvtup8/AkIGuoXd4kNIBEteaM0YMni48
H6hUWmVVeDSPxyD7/db7obcodr/V1BaYMcgJbgj3uK3cl+mKBe4MzhUl6hUr
XdK2vWvUg4FGo8D3UjsFv7haEZPHwHu24MWWuxTXqoRejmUMRidaHQM7KHJD
jhQKqxk0iU2JuZTCYjWoaqiDwQR3abfoD4rxlxmLRq+U9w84z+j2UewPM6rP
sGMx1i8qURuk6B+ZTNngxWLdas72qdIk+eDQkYMsWjJkUYNDFJmBqh+38FmU
sIs9+k8oChN+qSVCFmKniB0SpXeW37DfnMSibDAq7dUYxZhNU0yChIXPzzsb
3cYpKh/kHt5Sz8IyND9R/xlF7LNI8vohC9VNxGXqOYVUJ7prYJZFfLYJm/kv
xUXJPcGgJUFqW5nUeI4i3MBgNG4PgfRQ7sVbSpebXzXb6EqQb+Mg8p+n+Iss
6lR7Egimig+bvqHwdYphluIJgktT/effUbgUlApLcgisfL+e+H2ZQl2jsMzh
N4JYiw9yTq5SLLj19T4YItig8rgiR0bhdCOrO26WYPJXp/hIOcUdv40PP91K
cbbYc/qQgiKRN6cW6kDRHi+xtWMp3NL4Z8uVf1qwTXuFUgpe5xcBjwnFfzra
EP8=
          "]]},
        Annotation[#, "Charting`Private`Tag$2565#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 4.999714070858953}, {
          3.5154535402747886`*^-6, 4.999247369599134}, {0.0001152118573926528,
           4.984244694733099}}], LineBox[CompressedData["
1:eJwVknk4lPsbxu1CmBkiZcla2nRE0uJ5HZUsiRbF6SCdspzsilBSlJF0DiXZ
kqWSPVuWfMWYeUPkWFLEObJMmHlfS9bG/Pz+eK77uq/7vq7788ej7upz4qKQ
gIBAyer9Xzk+PygnWNngb5y3w5hKw7SEt+ftvJoDkWvvsodEaRiTl72z65/n
MNKtYR9JULG1M4mGarG5kNDOuJfRSMWSvoaYla8UQkdI70KxNxU76/CsiJwq
g82jCQ3HP1AwKX7EOXNVBONMaaXXbrKYth2X3XiPAVaJzbSbLtJYUJsxJM2+
B/6Nd19Cj0hhimXUAUHBdvh5aX1bqKsEVjFk1tp+4B9A7HApmUviWINn2kaH
yS5omGuS+XpTFPuhc1C2wOsThL2sDHNlCWNCi3mUjdpfYNi06Td8RhDbw3ep
OFnYDz0OHdT1FgJYa6RBG3PrIPjNBa9zceaB2l8Ti7ncf0GvNiI1emkRJuYH
B7p3DQHdlBkKQ3OQPV7TLBP3DbouKFxZTpkBGZUXxPDwMNRNhwMzhIRYj/JL
GVqjcGbhjUX60QmYw/KG3cPHIPuqW1bIiREI1GeUKTSyoT9dR4/OGYTBQsa9
DvVx0Imaoib0dsGyZ1eKbsgEdB4/5lVxqAm2mYqvXKqZhMeG1duD7qVD8au8
zb31k6tqq1dimwoG8rZ2FsxJCITKaRPFZDgwlpS9rWMSbveeOOPy8hHY3N9q
RY5Owlh/o7BMBR38Px9LukbjwLUMevVZrh+q8nuoH+vBAVO2kua4QBYy6dt7
jufNgfmigq3yYtmo4dDXKO9ADgReMbngJJmDmhV1PtuGc0DX/H6hJeUF6n9b
Gb7uEQdErJOum1HzkIBkX2t6PQequuUXWv1LkHmmuluJIheKcnLl9g+9QQZJ
MjpMZS44mlzuf2tdhTbFLQ9/UeeCRJZlTEVFFVq61u0qsp0LxR5iWsL0alRg
R3c6g3Fhx0M37y86tUhOcOo0z50Lz9XeeXIOIyQw/1We5s0FY6HF48vPEZqc
bO7UCeCCIJp9Vixcj5i92Xa217nwt8e3gwoX6tG14rPHsv7mQm/FvndI5R0a
dK4/ZFHNBXnDZ+yAiAbUerpA2AlxoTWbrqWb34DeWCU3+DO4YHa8peBKTwOK
NwrEUtu4kNnC9G/TbUSHZbccIIa4ELaz3d2upRHpi65bFmZzoeUMOZ4w3YhU
lwWr13O4cHFZ291FiYEWRvuMfp3nwsfYU4sPLjJQXt2D3Y+kCGgP7GuXW2Cg
pLKw6VwKAaINU0zfjU0o8pVHSd06Agw3f+eZmzQhp0QzPbYaAVzTOPq5W02I
6j2/db8BAWO7tJ0HhZlo5cLw9+PGBLiL2Yy1azDRuEPHyz9MCDD+oPD7FlMm
YhzO04k7SkChPeiKhzFRkIqzxn/nCLB9PjhtMM5Erra77PvPr/KkSRxJE2Yh
m9uCMZ8uEWD+9/kMZ2UW0vmeNfXBl4Bh1lcDthUL0ZSvaL+/QsDeujnLXFcW
4tkccWCEEOCxQU2jOpiFusrY9dWRBNSz71TVZ7JQ/VjVbDmdgLrmZpuSChbK
23BvS0kcAZsFCbux9yx06+aOv14kEeCluyNQictC3qUrjZlpBND3D92n8FnI
YbR9Pi2TAEiykDGTxdEua3/nh/kEuPRpFdjuwJFyuFnCgxICjvcd1968H0fi
r+VZMRUEzLkN1OgdxdH08MhSVA0BCjUK1u6ncDSgWLkzop6Arsw2Vpszjpot
o13DmggYkMwzPu+Jo/LrDolBzQTEiPzOUgnEUUbx1mb/dgL6HvaUCl3HUey3
ZZ5XFwGWhn7nZaJwFKzw4RePzwTcKuWfhFgcXbBIv/jHwCrvEkP/YTyObMJ8
njh/I8DR2qJZKglH+4qwD45sAlSficvkpOJIZ4gqaM9ZzZU5Ss4ZOKKu+2Zg
N03AMiVnt3EWjn6al7lbz6/yP85v0c/BETskKtX8JwGPwnRvWD3H0bj9Nvdn
AiT4GkbI3V71LqSckJowCc1uBTc/r/Z76D9TUkVJ0K+2HrPJxpGV5ojhhjUk
7Hnq8+jbMxzV135ofyxJAodQF01Kx9Ee+wqPddIkLBuV9l1OxlE+kS6cIEuC
f2I92/URjjTod9MoNBJ6hUS0Qx/gKEnD1yhOnoSLCZziimgcydSe7ZBSJCFL
Zm2nQgSOIk+b/klXIkH6ieVcajCOFrm6ouLKJNQVSby09MGRdzTtaaQqCYO9
SonqF3E0rL68V0idBDwyPVbTEUcfT7Ve5mmTcN9d1qbYFEdHuGVioVtIGHBc
awgGOKq9m5axsJUEqTvqZwV1cPSi2rtrRo8EUzzea4v46n+cOuPtp09CWnb3
uvg5FornwBrCgIRyZsv5vSMsdGMT9cC4MQnv7ca7D9Wz0GzVYrfbARJC3mtL
FeezkOfJIZ8RExIcQt8snU9iodN3SrP+NSMh/mPK2WwvFto+eVrq0zESgt0+
BE7IstCbU9YoxpYE52x53fxZJjJ7+2uAyUkSJK6YWeX1MpFjnF5fzlkSrAR/
5PqlMxF9l0Re4AUSIlotQ66qM9FoYK0l7RoJFlydkwviTcj/6+uVplASYtg6
wpJDDMQ7nPv62g0S6iU7D0TXMJC8YuKG/26TkBHOpHRdZiCzKp/xojgSNALE
3ozjjSiDpxFzLJsENZX7vXPuDWj7JSUTwRckZDvXjfTta0CVbbLTZbkkiJcN
T9msbUBtT386KBeRMOt8qH+k4B3imfboTlSt7i9blYpM1iPHO/T30e0kDEXL
Kxe+qkNysuQaxhIJYkPk+rvNleiftzF3LXgkSHpJHCSdKlH8ZW2xdj4J1wLq
9/ZOVyBas6PwF5Ep8HbrOLVVadVHNfEImSnY4pmwhudchijLydMbNadAWdp1
Q/CnYrR27HB/gNUUxEq+26E9kYlEUEqRZuoUTMu1qp6OeAJ/GtR8lrCaBu5R
K9ijz4Q8C9eMurlpkBBp6ZOy64YfExsoo4kzEOtXXLXLdxDKT5oLPzw0C0cO
2/pGBI1A+NGop2Wjs5Ai/aeKpuQEqH+17M2K+gH0DknF0/Yk7DOKfKikPwf5
59qe+4XOwDnV9kXBzjkI+CWr1OHGHPxovj/kGzEP0j0BC8k9i5Ak4hR4QmsB
DgoxGPw1PJAbKM8UYiwACG36FqwqgIlejzhl7LcIXrs7iW0jgphArlPREG0J
QkMsnxx5LIz5JxfdpzUsweNN2ypngkWxt9ui11C9l+HtI7UgEydxjGrpv/2W
zE/oDokec9CTwPp3fOy8VvsTzhQRgZ5GUlhxOmgNO/HAszHOiNgpjf1etIeq
ssKD8sNX0WV9Wexm1LOI/lcroNEf5XmzgYJJB4lbni9YgSIV5QRRFgVLdvei
jRatwCTbxy22hYKVWhlnEWUrIN42pfW0i4KNUjsYQmgF3t28HfB5lIJZpQus
0e1cgf0/TAtypKiYQqVz3JXlFRCLX2pl2FOxrJdN9ku8FaiwDRuh/0bFdiVv
UwsX4MORGV0vOxcqZnF9vihalA/hv9RNjnlQsTCzBx0psnyo0VfN332dig21
18k3aPKBc7BwziabihWwVVJkrPlQLsKtmJilYtFpUS4DNnzYbMQcKlyiYn+c
4GgX2vHBVyJiX5AADVOurS0+doYPJ/RbviuupWExD35jxrryQef27flUTRpm
3mNt4n2VD2PDikmbbWjY/wCsDruf
          "]], 
         LineBox[{{1.9745531734228603`, 4.649378282507097}, {
          1.9787207152144783`, 4.688968638921458}, {1.9792511360269374`, 
          4.694142791945341}, {1.9792511360269374`, 4.694142791945341}}], 
         LineBox[{{0.026089082519384507`, 4.643426699248538}, {
          0.0350451422846122, 4.563699048671788}}], 
         LineBox[{{1.9868583233326689`, 4.772943344200311}, {
          1.9890171235866694`, 4.797458534241166}, {1.9892207977123333`, 
          4.799856510591933}, {1.9897035508114822`, 4.805540249315465}, {
          1.9897226630575817`, 4.805767510647624}}], 
         LineBox[{{0.024757010178608062`, 4.655811556755268}, {
          0.024813572315302873`, 4.65528237367648}}], 
         LineBox[{{0.012429306800578199`, 4.780894961442156}, {
          0.019260257456407852`, 4.70885120020252}}], 
         LineBox[{{1.9690305277058797`, 4.599293706707131}, {
          1.9725428701911636`, 4.630868154968042}, {1.9732763460878604`, 
          4.637581867096684}}], 
         LineBox[{{0.02178799830232559, 4.684037266938557}, {
          0.023481499974526428`, 4.667826769861331}}], 
         LineBox[{{1.980216524766344, 4.70364882914409}, {1.9820111257845565`,
           4.721766014417481}, {1.9828868521843874`, 4.730606808150189}}], 
         LineBox[{{1.9920574042582282`, 4.834598073398284}, {
          1.9924490109655175`, 4.839675697973514}, {1.9931356869355459`, 
          4.848784908686777}, {1.9942627197136527`, 4.8644016643989705`}}], 
         LineBox[{{0.006990001109958442, 4.847096681042143}, {
          0.008905112612481055, 4.822558619487021}, {0.009176606110972044, 
          4.819080010450934}}], 
         LineBox[{{1.9972083674759915`, 4.911386949666069}, {
          1.9979406775092352`, 4.925567796660892}, {1.998627104734048, 
          4.940756955418829}, {1.9988593097021097`, 4.947104757793234}, {
          1.9993135319588609`, 4.959521861285812}, {1.9999999591836735`, 
          4.999714070858953}}], 
         LineBox[{{0.020535767660489486`, 4.6962310800431135`}, {
          0.020535767660489486`, 4.6962310800431135`}}], 
         LineBox[{{0.010452116315053678`, 4.80369386704174}, {
          0.011559858235370032`, 4.790789973148399}, {0.011621333053202478`, 
          4.790073863636}}], 
         LineBox[{{1.9907818940541464`, 4.8185696688279345`}, {
          1.9907818940541464`, 4.8185696688279345`}}], 
         LineBox[{{1.984177992585372, 4.744041629198055}, {
          1.9848985602377929`, 4.751667213499759}, {1.985582813128587, 
          4.759002897196128}}], 
         LineBox[{{1.9955382299177344`, 4.88336593492148}, {
          1.9957562021944761`, 4.886798882417726}, {1.995881395834797, 
          4.8887706157065205`}, {1.9959328572719097`, 4.889594299287434}}], 
         LineBox[{{0.003414505701098769, 4.9003808557299955`}, {
          0.003926895446503668, 4.8918576959088655`}}], 
         LineBox[{{0.0006134358411192535, 4.961912265358487}, {
          0.0006134358411192535, 4.961912265358487}}], 
         LineBox[{{1.9676892402150108`, 4.587464994417945}, {
          1.967755017501798, 4.58804234719392}}], 
         LineBox[{{0.0052024056505853, 4.872161629878583}, {
          0.006055244663775441, 4.859902071495707}, {0.006055244663775441, 
          4.859902071495707}}], 
         LineBox[{{0.0014494803728095128`, 4.938934254158318}, {
          0.0021349490647419255`, 4.924030259708196}}], 
         LineBox[{{0.03632065248869384, 4.552760967172578}, {
          0.03941120618234885, 4.526612975144091}}]},
        Annotation[#, "Charting`Private`Tag$2565#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 9.999712116189258}, {
          4.081632653061224*^-8, 9.999712116189258}}], LineBox[CompressedData["
1:eJwVkGk8lPsfhu0pZWtVluaZKFs6JVLy/RVFtpOKOicRlaNU5DgUOpbsCdXQ
ZMsaskwyxhB+Kgc5mJRUKjQcEc3zWEq2mX//F/fnfnG9uK/PTXP3PnRGQkxM
jPEz/29dew9Nebl4yAguvJNzho6yVv4aFafCgG0VxtcHjOgoqP1Oo1MNA4yv
IX/jrXTkFNkvQT+eDHWUa+ZNfTpa+u1SyOP0FHDXuc08uoGOLncxLo9p3IUn
xlYddGU6crjdc85eKxOUO7b1MQQECpOt2Birkgcf3Q+pSjwgkI7lzZhHPnkw
MD/J/CufQC8jvUfeN+dBess8bzSLQBsk9Yo3++eDR7GzXv8dAjUt5G3uenkf
DlXmzQ5FEmjpZMp2jfgisFifFuXmTiDmx0DzSmEZhMYWxTxTJdCx37JZ1Dgb
vAtuXn6eTENyojBnS3UMjqfXj7Fz1yNNB8Hws+uNsOTe2UmtqxoooMMEmFPP
4cql8Z3lTDW0mq3UKy7OAyrXvKnw4zrE4Zu38UxfAkf0t9Q96bXo6bmMdb+N
dQHwp8OMdq9B37R2K5ReeAPqv3wuU7y7CknMFCuu0+wBXvd+T+U3K5CR6CTn
cNkHWNBoWUMZL0dtEYYdTTp94BVs9vLPfCWkkTQ6UyToh7kVhmanRhXQ6HRf
7+stfDhzS1Hse8dSlPflcat8wgAkN+U2KAQuRvJqBeTg4CDsfeW2txlkUPzZ
So+sDUNw91WVY42lJPqOigc9Qz5D0/1dHstUxZDf1kb2qmfDcC9gy3HBH7PQ
V9Z4vZP2Bb7V1ZW6mU3B3LmuNO3AUWBJbTwPtWOgu2eR0OPxGFg6C574buWD
ZQ7tj/LVAsADHJ0bMh1gyJTXalIVAGll3Bju3Q7rE+YGe2gCgKSkzn/ftsHs
ldfuUnoCqAnTVztR8i+UOsS6HEUC8Jt3XJl19DksFx93XPAUQG/3mWg+boQ+
1waLAzUCSJvwTDJproI2x1JJFywAerDPBQs2B7g2qU99GwWwOzfj7aWcSrhl
7IfSOwQwHRXdZRdeAfsUNpmSfAFYB71IS84ug+L6xG3JciSoLrGdd8XpwGQH
TxQpkhC4wQ9HtTIh4sHZ8vqVJFgU9QrcPjDAJcXcYFiDBDW+n8GMdhwoXZzW
2WVIQkLqNcsecTccoOZKfHImIU46n5s3kondD25x+uD2k5s5N+gS2dj+mnjc
Gw8SHFrib8m15mCtkdzxdh8SJqxYhwNl7+Mu9nBDTQQJ19fJtU7sKMENn6un
KmNJYBSc+su3ohQXr72+qTyBBCwXKjLRYuHwUP2kAiYJZeo+obEzD/EWW19X
RgkJaRfS49ISKrBqiPntxHISdvGci9habLzo0YrmOA4J70vT6V+4bNy7umpz
WAMJnDwkY9RaiVutY9yD/yGh6POyayFWHFx59beUgFYS7B9+mrDGHJz1UKfV
l0eCUYaPmvrmKhw/MLdwoYuEeINUmwBGFb68qv2Xs+9IUB/Vg47xKnzqQOaZ
070knH8ZOpy8j4vtg73vug6QYPCiWAESuXgnC7X/PkyCrXqhhmkHF2vxlcSd
vpKQGCO7SUaiGiutHDB0mCBho8yeaUKnGs9bsj1tp0lw8to/qLu/Gg8HRqZb
zpPAM3WJ6XKsxl+cdD2zxShws3L2pI5V45PUcgkNSQpubFKJ8v+1GnfHzqel
S1MQ5H9DI9ykGtvQ/9u+VpaCxGUpvgdXV+OG2nbenSUUaC9TEe4a4WIjJ87Z
lcso6CkM0uOwuLiEzJS8rUCB/p/DfsiLi4nY6AxFZQomV359c0aVi5mEj3HC
CgpWXXOwqXxWheVrj3XKraZgQbHMsc6tCkc47vGKVaHAMaS5R3aag2cE2tKL
VCngTFpOqUZw8MUY5XsR6hQEGlI5AYs5eJA2t0OCRoFxF6InRlfiF0fazi9o
UmBq3VGX783G+wVsmaBNFBjlT4id66nAtdEZWT90KHjNilX1hwpcUHOxa9Lg
5950plXuTDn+e72S6RcTChT7vhdc9SrDU9Uzr/8wpSBOLbz/yVQJPneY7/2f
GQUeDX73g/2LsWNURW6/OQVVBU+oktOFWG/MUe6NHQVvl0jtpk9lY+4RWxx3
8Kef+oNmCc0sbF6390+zwxQ41G1v0L2Xjn9PMHiff4wCC6P6ugeayTh2y+Ji
v1MUbC00SHhX74+H/Gqtla9QUKxf0mY4kwpZC0ScXd7Pv6+UB+84zYXlCpRs
4ywF8gVhjdo3eSCF01j09HGo6X6+qLL9E3gZPn632GYCRicfJdVbfoXiA+5Z
9d8nYKfvGO9E+BR8G12rOJQyCUeEebe06LNQedhSkmExBeq29toCAzEUYhV5
jz00Bbp2L5gtWpKI9tH6bW7kN5jbN+UzoiKDdhpHMFS2focDz08MVB9bjJzV
eTPir75DV6pd5+DZpehb6w2+T9g0FByLC/BvVkBMKRe/Qxt+wFT/9Zc4UAkt
763MkWj8AQ52kU93yi9H0lfDjphcmoF3dQ45X1tWILEiFxZfeRZ6c2vo4l6r
kG8q64by01nwKnt1onr7GlSnGyOrdHEOnNn/ZDoIVZCSta9euPw8BHOHjwSX
rUMf9F+8ulI7D3UnY2+J4tTQw0zYMOiyABdWm+39fFADnWAZKakJF6Av7HPW
xfj1KDQyO+zDAyGE7/cJyomnoWUBi6zdSoXgu3bPXf8kGkr1vKA8xBKCsUfK
DRsGDVXYmOSSbCE0yuZJ/EijoSGlzkYJLASfsVCX48U0ZJMpJqv9SgifzDOk
7VtpaFWVa8Jfc0Jgho3tmJYlUG7hP06zC0L4UbDNY3Qpgbak6mqEiIngdebI
v/2KBDpwdZoVIy2CI9LSh3hrCBRsntiZpiACv25+y+NNBOLz6lc8pYsgfaqr
pduKQKXDamnytiK41dKZi+IIFJMRebLXXgRRDCabn0Cg04e+apY5iKCt/b1z
9G0CqdbWPrQ7KgJlfdlHb9MJFJd4vCneXQQ9lnmWGSwCeRrdHV9yRQT3v9Yk
4tcEshgVq+oJEsGCe5cYo4dAGlmewQ/+FoGTkZnH+T4CdS/escg6QgQWhlpJ
2iME2vexWzU2UQSbpa4efzdPoOiAd9IvskXgUjKaF6NGR/8DsQuiew==
          "]], 
         LineBox[{{1.9782805368779057`, 9.576292014112154}, {
          1.9787207152144783`, 9.58275622033167}, {1.9787373661730594`, 
          9.583001189402085}}], 
         LineBox[{{0.0030108407854104445`, 9.892376078842013}, {
          0.003680410965082868, 9.877516137832176}, {0.004907201014668314, 
          9.852042536219962}, {0.005520596039461038, 9.839936553449645}, {
          0.00613399106425376, 9.82815862914752}, {0.0064993113705575055`, 
          9.821279730289257}}], 
         LineBox[{{1.9800128763771412`, 9.601866383795702}, {
          1.9807799968889164`, 9.61331211652743}, {1.9835257057881674`, 
          9.65497416698419}, {1.98421213301298, 9.665580276184528}, {
          1.9848985602377929`, 9.676272362821956}, {1.9862714146874185`, 
          9.697938522964193}, {1.9870007938086784`, 9.70961775482989}}], 
         LineBox[{{1.9940018470218308`, 9.830741245283441}, {
          1.9951949686099844`, 9.854094993741498}, {1.995881395834797, 
          9.86819292087512}, {1.9965678230596096`, 9.882930207813676}, {
          1.9967957936989889`, 9.8879980721517}}], 
         LineBox[{{0.0110579818347774, 9.741364463588466}, {
          0.01226794131218099, 9.721457131389384}, {0.012417451027480158`, 
          9.719025404530045}}], 
         LineBox[{{1.9921026341762598`, 9.79573625105898}, {1.992449259710733,
           9.801965000050838}, {1.992726336817749, 9.806990855065493}}], 
         LineBox[{{0.007360781113839206, 9.80540598872822}, {
          0.007360781113839206, 9.80540598872822}}], 
         LineBox[{{0.0007605691408016996, 9.953402035035154}, {
          0.0014028610741234132`, 9.933027332556621}}], 
         LineBox[{{1.9898585528143742`, 9.756742069491871}, {
          1.990389978036295, 9.765791155721368}, {1.990827123972178, 
          9.773315077409297}}], 
         LineBox[{{1.9983017898491244`, 9.924772946641887}, {
          1.9983017898491244`, 9.924772946641887}}], 
         LineBox[{{0.0018402258907046993`, 9.92096947507125}, {
          0.0018402258907046993`, 9.92096947507125}}], 
         LineBox[{{1.9994970648041506`, 9.963260137583521}, {
          1.9999999591836735`, 9.999712116189258}}]},
        Annotation[#, 
         "Charting`Private`Tag$2565#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.5, 0.99}], ImageScaled[{0.5, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"F(U,\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\))\"", TraditionalForm],
       None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox["4", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {6., 
         FormBox["6", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {8., 
         FormBox["8", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 2}, {-1, 10}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwVkms4lAkbgBkSQsvW1pBQE+3uJCEqjadCu6VITiVJRorty7BCJMsihxDG
KTk2hHKoDDromcyQnHLaT0po0piZ942sU31b2b4f93X/vq/r1vPyP3yKIiMj
c+Eb//f+U+JenuSUpc8Th2c7rz6DY8pZow9lt0FZgpasoagV5K00WaNUa6g6
3WQvo9kCH+KFjy1z94N/vslBvUgBmBTmXL9HdYJFbe8Z6Q4+yMwGq0GaG7SF
bqkeOdgM42toUSH6HsAU/t2d0P4E/I/13W5kMeEoS3fB6REPbLsG7+ZTvUH6
0dHlUgYPTtGYRdboA7xJvsEMhQe0K9qlizq+4Nqy77UZBeHzfmb2Sf1zIJBO
f01Sb4LQpk2qXncDYXrnvl6NzAfg6r3QlE4NAnpiaXVUwX0QWGk28K8HQ43q
Srq5WiNY5XS5e3WFwoxWWscXfj0YrWfUzupcgPBn3Fy3jHpI3MxX7ZEPg3Ty
6aexlfVgnlITpll0ET5l/o+uUF4HisLoEhf9S2BSyVLS6LsH9SeH0r53j4aW
2Fg764Ja+MHsslUyNQaW1lnsmR6sgjZ7K+MwjVhIbkpYiKDeBnbhat6GY7Fg
yz9rvzH7FhSF0O4kNsaB90qehfe2ChAucOb2ayXArLXWLzE7SqE1kO+QEJQA
zzuzXWRrOJBSpbHRQT8FHp+PXrcar0HRSvu4RCob0mTsW88bOmBjVqv8Bk82
XOSye0+ImRjelS1wecCGk8eNmXWGAegSO0ZZfywTgtYnrro8FoGhct4dZ8oz
QUg1rfQko1BlLiDy4fUsiPNrbfZ0T8KsWkpW0PocWE3kpa94z0bZYaOY9rs5
oHrJvysxMxtDB9ihpE4uFEXnxxTn5aJXT9YtyfJrYLFJg3oa89Eh46WfnX4B
+JTvslstuomt96+5LbUpgRfx8sLprXcxSvGeQQKVA6v01IvXd3KR4nrgRt0m
Dtio+dKHPnDxxb0jKQ9+54D3ox2XLVn12BfrL3n1lAN8ZS+1FYoNSJOj3zIM
LoVVjG6ffstGbP3CMRzoK4Pw+fiNNfkPUGUma6vOlQoYrmqqiNJHzHkdZsX9
Wg0XXdft7Ofzcfeao5wR5xrYM7mY+IecAKVu5ksUq2rgV687Z/v2CHAteYFZ
takW9v52M86XJ0B/X7MNMsO1cPmEmXdiQwtqeNeUl267C/LakfZlWU/xyNHi
mg/TdZDYsf+Qt04HTr1yUi7R5ILRkdzBrYc7MM5D8ZSjFRfkwpqc+2M68B7T
X7OezYUZUeyZIEkHqp1jxIabf/tu3rfxeG0ntkQPuSlENAAzzuGVxdZuNL6t
rrBG8QE0eUSWUVN7cNlilPsvaxG2T2srme/qxxxfVw/6XgS9ZV3PbJ36kTZA
91Q/h5Bk3Lj28Jl+tKwYZL5qQijoS5eYXO3H+xVZ3AZDHhQWlNTajfbje0fy
kW03D6rOG16aCxtA5/Lsjt9Vm2GLjZFjQflfuMFhUsxPEkByXdii25tBZFTW
f+iwboNXAaaB/7x4iSHd2yFn9hlg/Dttgy3DuKpOfURW9jnQclwLgxtHsV5o
1fl8Zx8cirZ3skh9g81++VpHyQHYXCZRfqzyFuf0Gcur/jMI8gy9NwMHx5Hy
6dZ3WhtewjvRu8N18e9QqXlWYVXxMFQELNH4KVmEZoue9Y7VwxAsmn+dmS7C
zhjT7tafRkG9cOopI3ICda4Snyomx2DwDXz8+bQYiYXRkb+MhHC9gMlo+1GC
HOnDdrWUt7DyJK3fWSRBNe2bU+Pj47BvieX98QQpXvHl+hTRRFDIXkqR+Y7A
+V23xs9ETsD2uTCF5SkEPuIQeSExE5Bms5HBSyUwWpHuGJcwAcuU6ExWGoFq
Pbef3MiYAF3FioguNoH6J6oLRm5OwBu/9KmwPAJdIu4cceqZAJ/SwtGScgK5
9xs6QU8MQ2MVNQbNBAYZC+p+4ItByWboofLfBPqY6haltYkhPblYL3uGwCNm
F5NUusUgremzWzdHoMUOUy/KkBiOdr9dNP1IIGUPZ/nkpBjEJhK0/UpgqkOM
X4umBIQszx5LZRIrWda6QYESYLONZi30SLweWLRsKkQCwyy7iOJ1JCYHfZ73
jZDAztjdvUtoJLJC67pOxEtgkKP6sl2fRPM/aOG2BRIQyMoH7qWTKEiV/++6
dgnYJln1ypmTOFotSOrVkwKFGTKfbUtiz3t50thACje2OzN6D5DIo9scYNOl
0LVxxXElOxKLKltUXM2loN2ZYBB8iESvstbk4QNSiD9dIN3tTKIovy11IkQK
V0sDLUo8SHx/pTPjS5cUFpdYZsSxSBzpUJn16JeC+vR57bwAEruVDzrxXkih
Z17hz+pAEqvju1b8+VYKo79FjPUGfeuJ6c5U/CQFueF6kfIFEmfDe7K/pxGQ
OyzdvDeKxH/8BvJ+DCPgc4D7JuFVEp3MjqcZRhJgfqx8S3MaibdlRXEmMQTs
raZuL04n0SNnIYCRQgBjW6GDO5vEJy2avzqUEPDzNLuyNZvEy7onZ0PbCXB6
N6VwtoDESwvCkr4XBNgztj15VETiv+Ux6p8=
           "]], 
          Line[CompressedData["
1:eJwV1ns4VdkbB/CDQjS5xM9vikqi00VKZKYx55VLZyRGhThNmmEKkyGXNCqZ
GnIdhRIVQiXRhSREm1IzzpCiybg0ilzSOnuvfSJdXObtj/3s5/M869l7v3ut
9X6XoU/w5p2KAoHgFF6f7oJja9Id+l6D+jiI/fIJ0xA4ZdW6iEBQx4X6yBLC
RChpGXWvILDEKL1j9AphOlZavOdsCUxrO2Pbe50wuUn7L+jtJjAr+IBicgVh
lq1Tmdx1G8ev0og2qifM9cvFi/+pI0BYJ9NWtIWO6ybHBwROSyJvRt8ljPVg
5vlljwnM3962pf0eYVx+X+pEBwiUH7vd+MsDwoR2OGdGassg5P7Tgpi/CPPW
Vl4/rCcDj2LR2wVNhDlQkvF6m4EMPhTbGtWgY6J7RCKhDCzniT/jmgmTYRzS
ryiSwVYPj4XiR4SpCjlhnhwgA+Nm3rPuCWFEXV98NxEkgyXOF702/E2Yu/bP
YoPCZbB6f4plG1qqZ9LhGi0DfS2D6BdPCdNdeyta96QMlPyMJfQfwgjUuppy
6mTwfbqFVXs3YcT5hn6leiwMmfbfa+zDejNnmTzQZ8Ej5VK88CVhFqR8fNlp
yILdbqVvj6I/RP7tM205C9P3nngu6ifMlU0J3lttWFDOKtM7P0CY2Qq8+4Q/
Cz/7m3SKXuH7xp7paAex8MrtZvXvaEKkbSZhLOTkCbO70A/+Ob/JNYoF35xm
v/BhwkRe93QuSGWhtv2ozunXhOnZUWfvWM3CV2qWLTdlhGlyv6LkzbAgt5a3
jKArnU7fDW1godO3tdWcJUyaVbjN2YcsiNfN6ClGO2gIrbleFo5Ov6qVxhHG
fLruR6UhFoxVnxs1oud9VKj+v4yFsBGXL6bQ7wa6rGzHWGjYx/n5U8IU3zm2
+qQ6B7+kJvWu4AmTWX5QXqTJQX3JqLI3OuZyQOkdXQ7KDG6YJqO9M+zMhuZz
4LrU/Eg/WitobOlXFhxsmYgRJ8sJM+n78tW3X3IQZfXw0A30sNfjSz+KOAgo
iarsQDc4FJukfMPB8St6q43eEGafwY6FL77jIEwa7HAZ7eO60qP7Bw6sfexH
/0S7/KaQ2L6LA8PKn0oH0CavCvjmPRxM6ytzmT9CGG39vcaNezkYq2o3W4ue
cFnv1bCfg7eb3Qzc0E/Kh+qqYzjws5EYxKLrBqtGbiZwYGA2YHYWXTwnSVia
wsFOnRaXMvSRX02PF2ZyUOpfU9qFDroxeS8/mwNPtXujLNproGUsO5+DJyrL
1iuMEmblxtAdJ0o4EMoWzjRC60fbpR8r5UDzXPlhc7RKmc4fiRUcsPbFSuvQ
8pf9H2JvcyA/p5Lmgv5X79aKw3X4/EDp8m1o6YZ4n4P3Odi9eaRtF/pmlFfG
PikHSXxsXAj63PWl0tAWDpZ0RYsPoJP7Pk78/ISDO+m9s2PQv/yveVVABwc9
aVdJEtrXMWfnj/9yYGr38nEa2uVgcNaOPg4kijH3MtFrr9k0S4Y4WGaYUp+N
NunVUvCQcRDZp9iUh9bS7bPYJOfA5Nfe3vPocXG5/8YxDiwMTZUL0UP7Y8+K
xzm42tdreQk97LHMP09AobRdKfSTv6ezFecrUfhZcLz60/inCeNnzk6nIHSL
07iIdjLqt5yjSsGq5tWeAnRdTXPLKTUKAt1b/+ai13hUBOh+RmHSlPM8gy7h
cpTSNSjUNKb2nEQvTIjL1tSm0J6dE3oMnblwj1WKDo7frKsdj55V4/lYXY/C
SMxobTQ6xn3d7oTPKSTeFUVEoN+zS6ar6FPI+52uDUQHxWvnxsyjsHKb2swf
0C8NP36haEjh6/SkV27oR25NgRPGFMzz6xu/RK9ny5UPCCnsU93btBRdE5d9
7t1SCtxYctccdGF10JM3ZhQ6FQfnvcP1o++2NSjEnILh+sVb+tFpMlDlLCis
9/kz/TH60AIt6+EvKfgPCNcWokeq3v/tZ03h4qyB3OPon7b0BveLKNgdn9KK
RLsfvVHw3I5CdqrtXDF6OXFXb3emAO699e24XyrdNjKJrhQ0V91nK9B2tbZh
oi0UKie7x0+gJSlmXRc8KXT15Nc4oxNWzigO96VwsFssLcX9qpM15S3cRWFg
ME0Qjz6n8Fa725+CnnxKbzu6srV3v10QBZvVlsNK6IHwmg3akRRqpTVz7bE/
hD4rm7x/gMLOkj8lWugJh6KyyEM4v5/37H+G/UdHL2POi98oOB2Z5x2KtqsK
Hr6WQqFwWfz1FOxX5yYWJjqfp1Cw/NHhVOyHy3d9LlIoxP+3ub1lI/rWQw15
eRHWk1QyqYx+mDvupX+NQmD+tcl9BN+37umS11VYj2VW3Ebst5KjCY3xLTjf
nQ2VzBB+LxsdZd1KQZq7TysAHbI1YhV9QmFDa9EGLXS80DdrayfaPcLbe5Aw
FVLrAJN+ChWXNNVfYz7M1qCqDR8oeDXqhD3sJUxrbWKc4wSFdyE+7YHotEBj
5ZYpChEZ4zZqaG2pRKlzGg/rTgkW2b5Ax96f4Gbx4G1TIrzYQxjNj6flc414
OLkgcTFgfj0qsgzJM+ahzvnts+Yuwhz3fMSZCHlQyNuUtQ2tUTFdtsqUhw9h
NfPCO3G9h+wZFFvxIGu46puFeThz0KE7zImHv0bWPCrHfG06+Vzy3pmH3+4e
bl2NTrY/0HHIlQeDRa4dpW2EUc+//jTBnYfUPyQjl1sJo7Z97uPcHTxo7pLs
SMW8Vm2j9/8K42HWop8UzTDfpzFnrhmd5SFKVcXhCp4fOq3tv+nJ4UFdIHWc
wvPFtWry/HQeD0OJb4xd0ZKKr7W1C3k4ar3xR5YhTOmVnnBBGQ9rbjeN6ddi
vpw1WvvsDx4e5CUF297C9RVZ3JDxhofYBQ8cr14mTMrYlu2b3/JAow4adRVh
f9s7PvrZex6qGEGbctGn+p0Xx07y0Lpp7Q1JIWF2+nMJYTPk0HXhecRIAZ4X
VHari2bKIU68TTwb/R8gJXH0
           "]], 
          Line[CompressedData["
1:eJwVknk81HkYxydydYyM7iXLGtWqWEuReLZCzgqVKFd02ZBJiYQuyYpJg5JE
ju1QslFEPeNIqbaGUY5QpEEzk5pxa37fnf3jeT2v9+v1/uN5Pq+P7q5Qt90K
NBotXD7/72w+51SEhgRCeiqig3JF+KdpZZuakwQYtrW5yski5PLeFpW7SOCQ
xv58xnkRzgn+Frt3swT2WLw4o50kQixgGjzdKoHy/Jheo0QRas5js+L8JMBN
FqpviBdh5Xjg9NHDEvC8ETwLYkQ4HelWvTkSqH996I+twSK87bAr58mIBA6r
/7R9rr0ITZfpWsO4BOJXprd+tRPhE/rH9zgpAeECb896WxHy+N7zqmlSOGuV
sIO1XoRD3p7JtdOkkLpkr98TaxFaszZHP18khVuWhTsNzOR+pvX2JjspNBvv
yTbTFeGwcOEsQboU0keaFV1GhMi52vcs67IU/l1PkuuHhPj7ptJY9ywp6Bjk
9VlLhRj2j8sgN1cK2j4C2rJvQhQfjXt9pUgKjYGWvNEBIX5WEiS51kjBzavh
+dZOIb7VKVF7LJZCm/+Hzb/WCrHMfYMix2YIEpPWt6z4S4ix9meulQqGwPdz
6PQjc4So2+nYmndmGI5zmnK+s7/g6lWnOQtMRsCHDKU5iQdw56I341P4I9BU
ebrNaO0ADr8433PwxCiE7uGOeBzsx0tTfcLd9MfgN2PNnmUZfajZVXZdoW4M
dF7s16QXCbB7r3NMRcsYLFbYwBj7S4BKx09ssQgbB7+Ggt/1Uz8j7aZPcQ9j
AtItFrftDu1FVmbxeUbNBHy6zDxUxviEjw0TVDVCJuFVo+3za2ndqOHIWnaS
/gMU9rWGVah9xI7lPH5k1Q84WapFRW3swINh7v39oz8g88MjteZ37XgvG/R7
fWQgvRDPHHRqRWmUVMXfXwaT2stsZ1u24kqPv4WdATKoMSmvNPq1FSvV1e+3
7JOBw6uj0Q6qrVgf17X2JUvu7/v4VbmuBd/vOu77T7wMyo58tMm2aEHlxZWZ
cXdlUHx+3KlT6x16F6/U0KZkkDD+PYXO5eMDrzE6j0aBcluhaf4tPtKVH804
pUiBzeCag0vT+MjdaaU6oEpBFFH+TSGIj3rTbEipJgUB3bWBAww+CgJdxc5L
KXBm+50I82/CkIUHGqK3UMBJ+9yx+xsP658uf2bkQQFzil33zVYe6oQN1vV4
UmBx9eW9Vi4Pec9YXHtfCi7Ms/k6zOahyeHIh7ODKFhhv8d/qTEPR9/EFxTF
UjDuNpqV2Pwa487knui4RYFi30+pzhkvcWaEiqP/HQocrl4/ArtfYua+YIag
mIIcZ3E8MXmJ950s8gZLKXiaESHr/fcFCjQa6xSQAnaKeajZlBfolE1TXcqn
YIbvYotA7+c496Fv8uFJCo4xBq/T+uow78bTbRMy+T+qea9c7tShcaahTiyN
wP7wgbFNh+rQ4fhocYISgUXdATNDqVqMXp/SeEWdwHENi8SxWbXY8+bJ7Jpf
CGgf6NbQM6jGO/3aV+jOBCLTZ2xXn/EIE66e8evaSGBEuHra/IMVGOgmZt51
JTB1RdrPXU3lqFVVdc/Fg0BI3IX8U5yHmJiyoz5pFwGmCT3XQaUMl1T5T0yL
JJAUoY7GNsVoI6Q9bD9GwFE700rr/R1MXRf357kYAl63vy/ojynCd2rmKo6n
CcQJczdqJtxE2853WudSCBxdXa8fczYPUwxeTTvEIXA7eDwluSQHG8QxQwZp
BJxVLS0qHXJQ7/Rse5VCAgp+tL55JolImUfPbLlBYMW590N6tqcws2+NleJt
ApdcDOdP3DyG9AWO3tvkHBh7l9mmFoVJyhUNXkUEhvXjOGbvw5Htcd/broSA
u43mhstXXCEqM1IjS8526Q6rWF3bQbU0zPl0lfxeZoFghgcbHPszeuc/ITAk
trRYm5EK7R8qzLciARbL06vakwMPOLqUfg2Bwv3aW1aGXYIPc6WrUp7J89gx
60G8cw5EbbLqo/PkfmBlQoLp39DRmJKtyCdQ9e2bKPzKTRhfIjRqk/Mbg/D2
jdtuQXn8aAD/LQG9TZNiI40iyJZJnjJaCciCpcOHF9wFjqXv0jw5B8SK5ypl
3YVcfkDclw4Cm2pyDMe2l4BTwYrSdV0Etv7BMd0oKwEDr/RIRjcBNivC0Dzo
PiioU9Y9n+R55lUVfukrhaCkn2XnBghU6xSFtTPLIbYyt0ZLSOBhd36ajl4F
1LhfPFkk52uuHSVLoisgfblZiqtI3qeF+6ee+1QBYT1ZW3QHCTCK1S5GPKsE
j2uxrqLvBJq+aw6KGx/DEucDH7hDBMrmxK9Um8mFvcyF7JAReb/W2bEvNnJh
6pTmfPYoAZ+Qbax126rhY5llkN+EvB+vE82ZHTUQnrVB4D5JYEuBu9KNs7VQ
FZRnZCwjkGwosFncUgcZOtOHCSGwp9q1YQ27Af4DKGzhQQ==
           "]]}, 
         "Charting`Private`Tag$2565#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwVy304FAYAx3GOmSfvluqO8jTntjbkobEpfq2jlpqbZt7XE+dU8paEEYWO
0DwrnCvnJZ1qXvN2xMOZw0juYp7kLffgONyLyssqau2P7/P567s7MOIEg6Ci
ovL9x/7XlSEd7FhgOBV0MVoebCrht4U11ar6Lax16Y3tPymhTiVFThGd8XY+
QLh1QoHla9PtTrdc8UNrQbl+gwK2xWxOPdEDI6KbOHZKAZWVGF3c8IXWJw5z
UZ8rMGtCTo6lnMTcvTHaXhUFIvyGKpsj6djYJI2bP5Lj2MBIXSExCHX5Qu+z
1XIwyPQSZ34wHFrIPXuuyUG+vrPsg+lZkDbW9YUMOTZc6fkBlHBUbEpqeGZy
xLVZ6gTWRUGLmskJEMrgFbTedpMYjeYaJ/mJKhm6qKQmAScGocNGlKOxMlDZ
A/6BA3GwmhHHMV1lsDZzfLhi+huM3qUUyakyZO4V6DxVj8dFp0GvIRsZ7LNr
4kkll3Doa+X5lyoyaE6nlHpSktA3p7W7Z2YJvIDRG5/5p4C9v69jImoJ2+zS
qb8Tr8LTK3xdy34JvTSqTbwhE/tS1wZ1dywht3hHh7kfE9xi6RhBbwklseTa
zOY0uMVanu6cXcT0OnfV1TgDGudCYj0KF9ETJXDPiM7A4c6DguScRWRXGX7p
TslG8vFa22q9RZQY0dIyibl4Pii4TDdYQDOrR938VC6C6GaMX9QXkDCQ3+XZ
kgvFUQvl/ddSeDLFBDO/PBArvT1oz6SIUwvqP/MgD0+IBxhxvVJor56/3Mph
gb0R5sDjSMF6SGBFm7HxxneJRvGRQnXC+urjOjYsD7v4/nrw4z+cGyczvYXG
tcTIJEspAp+yKhb0bmO7e/erJA0p3HPGQtwoRcgJ3WV30X8ePY9u+37qUorI
LMsX+0LnkKxZ/0UGkQtDTtvWvGkJCF7H7zZYctFknh6oNinB83rv7JYLXNjp
cD1q+iQYYkYsjP/NhcMzk51FdRKQ1SwqrGLKIKoV6dFSJejZ5FoND92DrUZL
cSZFAu3XrG9Mr/8Jw4H2H+svzII9GU9tfF+NyXKkBpNn4O1zp2b5ZQOuvK0k
hvWKoRz32FJKakRQt3vHRJMYaSc1GT9TGyF5t9bhc1+MenoEiZfbiJhqb2pC
mhi64Y7MBHselKV/5Hm7iNGdMuqrkdgEEu3ukb8yp2BTaaBhotmCUY8sje6C
SWh9SPY/sosPt9MWa6XrozB3V0gFWV04Z1GhxUz+B47lvOV+515UG17qng4W
Ilb4HdgrfbCbEO7Zf+UxtjcYvFBVFeFD4uRUej8fvGnqE9GBIWzqc1p1GWXo
DCk09pENgzRZICIMlPBXKY56VWEjeC9hmAleNfMJbyr0jc3H4Pzv4PqZoS5+
2ld3tnFZEyiaVxZpD/bz/wPyvwD2
           "]], 
          Line[CompressedData["
1:eJwV13k4VN0fAHBLu5eypZQKJbRJpIRvWUqhaLNUKturkr2UlAqVJaUiiQiJ
RlGWhBz7W7Jnyc69tma7d4YwiX7n98c883yeO8+ce879blfRweOws4iQkFAd
/vz/O8LWdDKU0Q2idg0rGhbVotpgrfpq9T5gnP88FWfbhFY/ZAkyuP0Q/Ofz
4OLsFsSa7Ott1SDgR9+HrPlR7SiVWVQjEUnChuUnFBd6dCIJhdfU4OAgOF3z
Glk2240izuW5JK0dhh6WgQJ3XR+a2M0YdA0cAd0805jjCf3IV7Myd2nFKHRp
uHRvuzyAXLTWJEV9GYW2ZFdG3NUBZLM9IPyf+lH42VKw7m/AANqlq+Ug0jEK
x3sr5MuCBpCIYepiLncUZjYK/1GNGkAPrILPV8n/BO1q/b33GAPojafxGl/v
nxA4z2/f7d4B1PeuMrxJkQkldxL/s9AnUCNnDltzPROai/P3Ld5NoNKNJuZP
NjJBR1vBs96QQElvqv6x1mHCrTqjAhNTAjmkVd/vNmcCr2hIftkRAg0nfHkw
4scE5yUZjWauBOJE1D6eqWNCXLeiFvshgXq//TNu/50J3zhCgrOPCVS/yOJo
6Q8mjKm727ZGE+jdvTqZIJIJzEgbVm4cgTyD66MXCJiQka5pap1KoPFrjU+l
17LgOm9LhOpHAk2fb3mu5s+C349sPH93Eujo9lNRmwNZoFE7Scx0EyhTePjO
tmAW0AZXtf/2Esg+dtJLP5IFOYs6r0wTBCqrkje1SmZBgLy8ZyeTQHfXnB2/
UsOCG1ulOrb+JpB0G8f8izwbQq3k7I3lSOT28rJh3Wo2fOu9sUV0OYkq3f7q
NK9lQ83mnDYkT6LLopLK3ZvZIMbf90pzFYk6NLQElCEbysYe686uJVFiuP8r
uQtsQMXNwps0SbRhz/xZlyI2MGYjOMMHSJT9hrH+Rykbzv/UvxdoTiItGUur
/dVsqFSzjJA9SCK9kdjUDU1sqFBWa9hpRaKD99XN6GE2+IfnaDtak8i7wyL2
qhQHTLrDdHY6kmjCkF/GlONAj+C3froTia5lxrBOKHDAWnpHuowLiYID+wwM
VDkQfqcsbciVRDHrvIZEDDiwLLzc0NWdRJ+8nmhGnOPAgPP5t9QVEhl07Tg5
486BZk/Dr1r+JCo37glx9+XAhS2FRn7XSFQjp9JhGciBwg0WR8avk6j788dA
2WgOGD70b6m/TSKhRV21L0o5cKrIduXcCBLtS1b8970cFzpybL/4xuP9xkqo
VK/kwgWfRrNjCSRaEzk92KnIha6n4QHbXpDo99VWhzkbufDnydyh0UQSvbUK
tbfezQW3C4m1OikkkhbmHZtx5ULU1rRa5wy83mSPjJQ7F54dKBRXfEMiNrvm
u4oPF1xDlAQd2NU/Uq0sr3MhlWtUb5xJoqvZNhYpUVzgDGlfnH1Hor7Tpcb7
C7mQ4dZsJ5xLotpjb0XtERckyuQ2P8UuMIsr967kQoC2foZ6Hoke6fjujq/n
QrxZQsyBfBKZLFbVowguOMwIHXAvIJHmXNlp0VEunAt5ZMPDXjUtXLiMwwUb
p2lx708kmhru0jGc5IL8tx9uboUkYpQ82BYtRsHM27uTxsUkis0N4GcsoaA5
PXpnHnbwm3PvS2QpUNR5oqj8mUT2MUZbRldT8IgvICaxJd0n1XdpUWBZmqYa
gkg06zj489BOCpa7+D4lsJm2TelOBhR8T3dn6JfieDZhqESaUjARHFXOxvZT
OK00cJKCLkMzxuZyEjlYahzvPktBZI5Eox/2wSDhsHYXCp6ebssuwVb5mcKr
86RAslIjzaSCRFIrL637eokC7cmUwhDsmYN7bSv9KYg40R1Wgd2SO1paGEyB
1UVH+x2VJCod+TSeF0rB3KqYsx7YDPlw1feRFHQn26xJxb59c9PD17EU5Itb
N86rIpF7zmxFcgIFTv4BZVrYtsMNkwnJ+Hw2irifwdYw9z79JJOCy7y5gmzs
lYFGjx+8p+Clgld7K/b8DzL/heVTUFyx1GsKmz849DukiAKRSm7VsmoS9cp9
3HyrlIK4O7zW7dg1B+45BFRRkDkt9/Iwdt512xi/GgquPD+x3g07KVu9xruB
Am+XfNcg7AhyeuZiCz7/ISXnWOwrS+u2nuugQFktfiUD23H/C2enXgrOflN4
UIR9MMDj2WmSAgEnpfgrtm7W7jq7UXx914ZXrdgqhKTwcQ4FCcPZpn3YkrKk
lhWfAguG5uth7D/7cl3NJynIrntXysIe9Q+J3/eHgiz5tdFcbObxDa4vhWjo
G4laS2GfoaVFVovScFt6yp2D3Rb653n8XBrC5lj7/sQ2Ux7Sll9Aw+M3WVok
dmlxXcPTRTSMXBfN7sTefjz/nKw4Dd6BR4cbsDOpF6KPF9NQtuNVezm2Uujd
hCVSNIwXTQXlYMcqeepEytCQn3KY9RJbotimSUyOBk3pj+KR2MHH9lwIXU6D
UL46yw9bwFWbO38lDatKPwSdxna/J5UYvIqGFs7RdmPsQcXpHSKKNKQFyQ2v
x248Wus2s44Gq+Tl2iP4ee7l5s67pkrDg5Oulyqwi+8mJE2p03Bj4JdnAvbr
QveWsS00KATznh34f3wctXb30qRBWtLnPwXsRxxYQGnRILLPLpuL4+/GGkk9
5k4aCk7eyQ3FHv8kaP1Xj4abQ0TDEezzRwiPIQMaaNeWtBXYx+7kpPQb0eBx
jXE3Fcf7RvYxsXYLvD6ncOlznC8FR81RmCX+f13JDnNso8+GPgZHaEh93kNP
l5HILnJL1ysbGjas11Q8jB2qsZDh60jD4G7nu704f2We/bVXdaGhSExkyh87
SXhCqtuVhh9POktksAuaCX8jdxqu7Mg6tLuERMO+xQekrtKgH7Xmlh+uH949
H2arrtEwoNSYNluE89Mk48PVGzTEnHmnHIQtIxcjPxBEw+Xo68rBuB4ZffJg
ZkXS8PCiHrjg+pU0oxRmkUpD4+zaBYwcvD+X5QbCr2nQ6+O/n4/9sX4xPzeD
BgcN27yzH0hUn/jHdmUWDdenkr6Kv8fr7WlTY33C8Xhm1aa9uN7a3Qn9eq+B
ho1HJxbuSMf3yw28rtdMg3Cmn+P51yTysr68lW6hIV0mZXlcGonuqTo+s+6k
IcCpOZ6XSqL8Gr1zKkM0qI1nzrn1EveDxfSCyt94vc2y9xXjSNT8Oezu/hkc
T8tE3XWf4efrtm5ew18aDOaKzrOKxfWqxk60cw4PIjwWnPSLwQ6pmqEkeMBM
5rxKf0SiJdNx/BXKPPhb+Lw/IYxE/4yYdPuY8WC7QPZ2C+6PtdH9dgILHuwV
d3qf6ofz3/haxw1LHqQfEk70vkwiseTsttBjPKh4oZY/35dEi06taEo8zYN5
bSZdSz1ItOA7XfXNhwdWymd1v+J+PQc9z1KO50GUgKl2E/f/Tj1j074XPGiW
FJP6ieeDrEJ2f9xLHlQ25Z46ZIbPL19fSuo1D36br1CUMSXR+7d9vkIfeKAq
csvhxh7cH+KVdXv+48HmX0rKbdtwfFxlVMaM8cBOv2Zv9FISRU4eOXV4ggdS
N6VPMGRwfbr055e4gAell1X6SqRwvnpZrA+ZxfcHhjt6JUjk7EqF+izkg09y
6M7Zefi8rLcdslzNBwvXj80VEwS6oFXUsdCMD2fOLNzl2oLnycbWzAILPhzX
HAjWaSaQ7EU68F9LPnjldzrMaSQQerVOpeoYH+a/q+6O+YbnL7mH3jfP8OGw
btT3F+UEKhI4iU1e4sMF8bh1u7IJJIYk9AeT+LA7plcpPZRAjP0OSSUTfOhH
+9E5bQJpbVQ0AAEfPCOGtzVpEqhEor8LTfPBeNQgZbsGnne/n5IrExqDsw+d
fabV8Xx5yjayYtEYSLSeJNzWEMjA2zLgy6oxOK2waw+1CP8+zsCmee8YfBjo
3OKL5+dfLPklwzFjwAiS73gQOIDyjuwTfWI8DkUG7aGbnvajQNOQxNzhceDb
FN/J1+tDij0HfqSE/AL1ZpHQcvkepKsT/GS55gTE+vw6ER7WiU6uahAIf5+A
lwXcAVFWO/pVc5/wvDUJ6om6e081t6DYOfa+h9dOQdjTTVRmdhOS7s1LFqmc
grevAyr/Vtciods65Stbp6BcOd2xHb+//A9qfDK0
           "]], 
          Line[CompressedData["
1:eJwV0mlQk3cQBvAoKocam3ghgwVUkFSttHjggY+14EGiFsRjQDwQqiKgKNZC
ERDEgkbDCIoCxomJihWMlohFA8EUqkGnXJUaRAgBcvAmeBTBBvP+m37Y2fnN
82F3dtYj8mBI9EgGg8G11f9duX730i1tHyE/eJma1PRMwbi1Q6plW7C6qFqV
IXuoOFwoPctWWhDxjU/Wtn0iRdWcbAdW/DCWNGf4Xv9dAlbQ4bkZzE/QtV/t
aBNWoX1eY0uS/BM0v66NPMqpx6GETQbD0CfU+NQXW+P+xF0hZvXssKL45yBe
prEZEdJFrOm0FV2n8xnb1qpREfaR2cigcegt54IyWg3mmIfjMu1oNG0zr1+R
qUbNdn8HowONE+57b+6vVmOGUwCRTaThHByQkLewDbqoYDOPQ+N2pQv/u9mv
EO8Sq0oJpTFCH7c/cdprpGeJTrT/QmMCI3xyiEiD8cfsg3aX0eDukvFu3tOg
cF8cWyelcWqOs8BRqUE5d4n4jYzGYHhVzQetBjpWU+1IBQ159OKGQ55d4AoZ
DpwWGjlLJfKJZV2Y8mDnuaPDNOIGF/Vwn2ohLqnbYrHSiOIcz7zQpoVP4Ry3
NAZBMvl8+XuTFuuOD0mzRxPEiO3H61jdSPlW0FQ0gUDS2+Gs2N4NbUP1JOVM
Ap/Lr++kDHajzDC9iMkjOMsNZKmX9yL7Staujg0Evk7bNbLQXkSFmD3vBBPM
3difXBnbC1e5/O76rQQzRXn9K6/04rQg/A9+JEFg3czZ3zN08JbvtjglEVhr
eVFujToEUIwHbT8RfJ068NVkSofzq9IP5KQSND7PbHUcrUero5990EkCFfvS
kR/89Qh83eqaI7Dtn1I/drpUD4HXc6cj+bZ5rvzzvj16qMypA14XCBRuktBn
lB4zTk5aa3+D4MOCSxK3awbQfinj/y4hGHIbu2Cl0oBC/XJ/u9sEzFF302Jf
GcCcFhSxxeYV485cm99pgNrc3XzD5seXZ2hbtAbwx1SqwkoJ2AbdrNmUAblb
yyNW3yOwE1jeHvA0IrkwiVVs8xdah4J8jhEOsgTeSTlBpEdD8sR7RgQZCnqc
qwlyKWlgfp0RbZ2VfpsVBAJY6aIXRlTke9CzlATjNoQEqCxGdE75Z7HgCQEd
737+UkAfkjf665mNBF188WhBTR/amwRCuxaCqY/JkVKqD/96U/PVNo+o4DaU
fuzDb6eG9rS8sN1T9vLx8akUhNb3deyXBE+FTxbmLaOQv2wnR2zz5nbOOlEA
BVHLnvS+doIlgWH8Z3wK3OtfylZ1EHAk897/KKbgFXYxid1FcGOY5XvuBYWR
E+gV2m6C8A2bPaocTYjhu1tzjAT339UG/pRsQtojkdKVIigrnpKcVWyCclNe
RqnN8Y8+K7hdYsLFeQsFwSYCby9kCytMSNAWh3q8Ibg25lZqwZAJW6+mBZve
ERxrFh4N8zfDmxfbWTNAMOgX49J92oy9ni658YO2/3ueXl5ebcaoEX9JcocI
Et0ZZ+50maG5vyxml8WWq3Ywr6/pR2LxGt2mYYKL8tYBp8R+yGPE832sBD19
xqk99f0ocBv7gRCCotrohyXWN/gPFid9aw==
           "]]}, 
         "Charting`Private`Tag$2565#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwVxXtQ0wUAB3Be4Q6BIZC0gXHKNi0DERPmKX6DQV2jwxvgwLHjdIBXcTEE
xAX54LHJc0qOMRARaaCBAQ15hDzjkafMB9ClEU+1IFGQgOG232/VH5/7bBWJ
w+ItzMzM9v/n/7nxc4965+MPbukLCBsjTYi2UU7dNmdjk9pbMFVrghWHnjRF
C0Kq12TU+QQTlnJnuw+WceGsXc5p4Zuw56qqopkWAfbcxln3nSaYraTZo1iA
7Kd3I5U2JjxzY2SeYsWAsXg498I6CXH0yM32pFj0NDpaToyQCNH+prlCi8Px
qn2p72tJxDNiq4J6jkOzU3ehvZ0Eo3BLjcn9CzxfriYEtSSM3NjSY6xE1Psr
u7RZJCRdnnYiTTLMfe3/kkWQiIzTdX1LSwUxWXC6LJDEAIfe1l+RBtn0xJAT
kwRHpRWKtBL0vogsybYl4e3h37Ti/jWKeeyE5xQS+bv67R5apSM3qlOXYiLg
J29Mp1d9g+HE/OAXTwlQZrOq+awz0D0r3/FolEDrsSfFTsIs/DrPJEcVBDb7
nucU0XLguMRVnUwhcOcQxyfdUYoCZk44RURAcfWdXma0FLJzrQuvhQS41LoD
3RUyuMQ4vlz+mEDVKcaP+e0yHDgSd8k1mMCsTr3Kdc3D3rrhn6+7ERhK7ufl
pebhZNJ0hJ0LAfkPjjt4LDmElTLn0XtGVL19SJZPUyBmhs0bZBvRrhyyYh5V
INmBN8nabUSGtnSA36GANd3GL2G7EXzptIVHdAlCtvX1BG42QmIZd+/zGyW4
P+nQwLQ3wnb1xNnbFUpEfRRz+MyKAcomC2Wqhwp1f3f7NQwbYP6Hd85djQoi
W1WQU7cBkjGFZMG9DH1IyV7RGCB6qKyfp5aj86Xr5b7LBvAu/f5lKKsSmrHO
5XJfA4Z+KhdsCK4GxddpT3iNHpmU5u15NDWK9jHP0sP0sIj87LtbnmoYx0td
m0P1eNwcJe9IUaPQ07lxNlCPEal4fvwXNWzk4QsDH+rBsPyg3iutBj76vol+
Fz2GCLXX2EgtQl6V7m+afAPbf5R73Qu/B/+rXMac+A1UE+mcFrIBDxLW37t2
ZR1RR641Lr2+hbHAyt2ddB0WxyNsqukt0NMrkwxUHWQxlPhwTguo8scpAW/p
0BwrprcqWvCgJODczOIa7BP9pRl+rWiMKxoVD65hMOuJwPp0GwRba8VtJ9bg
c3OTtRulA1OSjG0X769ioylT+Mm7PdgwIhxcU66AyXs1118wADteaPWnR5fB
zqA6/LnrDhLppTPUqSX8C/jC0HA=
           "]], 
          Line[CompressedData["
1:eJwVlXk8lPsXxxGX0lVG0uImFUoqiVQ/OUWuJnUvJWVJRYkKEbkUQ7jSok1S
UWhPWbIkS0dlz1IYM89jTQwxM88zk7JFv+f+8X19X+9/zvmccz7n+9V28915
WE5GRuY9c/67LYh9n7Idq4DWs1tlWU+DRq5qh6xsA4iTczfrhAkhv9uytsGs
EWSetPZevdYP744mz3cUNoOuXV7ibaoHvutunPHCmwcB367Frcn/DHKj6TPn
65CQ+m1up1JZG6z9dSB/V0Yb5C7ktrvwW6A2yri+Qr8TiEmd9cZ/fQKtK4Oj
T8VdwPbhfv6mXwmDw50dXMNuYN1I2jqkUggPBopqVOK+QMSKsNknVW+Ayh+P
qZ6eHsh+4f02rSEdL3rleaQsEUD/3Qe7dVLe4I9N6T2enD7wGEomPuRUYoBR
We7s9/0QM5Ky8XJLPXZmlF34pD0AaRmLsne2NeJHkbzQSG8ArvQfeN7V34il
Blbb4w0GIEb5abPH90ZMeVY+fY/pAHyv6Et0VmlCt0cVl9q2D0BHW6aHAJpQ
kFx1uS9oALxjKvPPpDah6GLt9Ym6ARiTllbFuDbj+NHmO8tCBiEgL3ak/Q0X
7dfuu7qSMwixkt6GW1VcfC4r+HdN1CAkcg3u7GjkomvisN/GuEGQSfo2nNTL
xbfl87bapQ3C1FZfI1K5BWMWHhz6p2YQukhffrVDC6q1iLZXzRPCubyCRQ6C
FjyeesqiTksIFpqJSQpUC5Yd/2XauEQIVRuW7Ho+3IKnpqgublspBD9W275O
JR4ShsajlIUQwjrLN7bq8/DehZCHGseEYLnBL2+JNw+Xb1ac9CgSwpRIacen
AR5mPUvX45cKwdM1pnNSykPjWbZ27AohZLxflrpwnIdmfYkPln8SgnWOtZWF
Mh//uqRvQwuEIL8nVGtCn4/+xI7EYJYIUusmw9iefPxhIX07oCEC9uGvnDe+
fDz9PGHQ+Q8RJH+xzNcL4mMUp9PcfKkILta+vdcSzccEHb9eOXMRyHodPf4w
jY+v/eKNLnqJgDW1cfYvgo/mretcJnxE4H3Fxzyni4/vtrRH+wSIILx45nTn
Pj7WaOgSthwRbMhiB0YP8bGt5BVH/YYIHM5mnN2iQqDMtNbau6UiuBW5/b47
EGidpn0kW0MMqpsfre67SaBxoopuhaYYIMfk4ZMkAhfGjfeQ2mJIb2O7uKYS
OBbMdZM3EMPX32cEP3pG4Au7WNc9m8RQ0TP07EkxgWqykt0TnmKYZL0b8elg
8g23z2L5iEHC7fP26yZQKKxp0j0phlSVg4VHBARW8B/Y2YaKYemsWFwlJjA4
a++O+1fFoFdZXmUwQWDn/tIt7EIxrFIs8uXOIbF294sprigGQXi7N0uTxAKb
2+/8y8QQMqfzs4UWiddMAzYl1YuhuVhZPUyHRKsZS82objFkW+xX2beaRCMF
9fEp/WIoZx/WNjEmccG4bOEckRgC2MocGVMSRwStphbDTDyiTcHPjMT0N5fX
3FCmYC9H61XBnyQm5p6RPp1JQYm1cbw+m8SoZ17Zb9QpeCc398ZlGxJdEyxX
9WtRoFPkRBvZkqjqM6z/P2MK1B2CrnfsJXHSvefr3+spWJmxXv2rE4kDjp+e
HDKnoMdwLFHgQmKZVbpu3FYKBmJ0bhYeIDHoj/2LPrtQEM3qVqw4QqKbraFD
20EK5IpqNA94kfhXpOx5ngcF6wq/3BIdJVH3631J3QkKmpXp0m5vElmagTrV
gRRcqYLD23xJnPjrT8eyEAocpgd7PDxBYnNuf2lhFAWDuk6BJidJLO17PZQX
S8Hf/8wKOxrA1D/vwtLsOArsbrYT1wJJPBu+4srjRApCwt9GlASR6JMz+T4t
mQL/wafV+A+JjoKG4eQ0CqY9N3PJCybRcLv//vjnFARRck4hp0nU5Fhev5xN
gSj5/Vv2GRIVX86qPJ9PQcEatvf0UBKlPb1j0UUUhLM0nN8x3KHxamVEKQXp
mtWxx8JIrNl2zu1MOQXL69RGFDkk5oU6JgTVUJCzo+zBTYZTsvRr/Bso2HKh
NG5eOIkXv4xPeDdToM9WzLvC8D+z61Z7ERRYGWXNHmPYnX338KEOCrL6B186
RDD9PON7a/8XCsrV5GMfMbwhc1OdUz8FnsedE78yrNutKusgouBlpXeX1llm
vupfjO2kFLRpfTzAZvinda7n9mEKOHcM53ow3B8SnWT9kwK96w5TTzE84LDc
M1WGhgU3Fq0OZvgArSanNYWGpCNxV3wZbon9eSdJgYYVU1/oOTJss7jXZJ4S
DQczn/0wYbi0uK7h5jQauO9rJxQYXuuQ76X+Ow3hnX4bqxl9z6m7U67PoMGs
TDWfw/Ci2JjkmSwa3thv9FzGcOKiE6Zxs2h4ff6ufQVTv0rx3k/KGjR4Hhs5
7cBw1O7Nx2Ln0nBoTLeTYPo5Kl6moKhJQ5W+FseWYZ9zrHtRC2h4VS92KWTm
0aM9vk5OmwaT6OJgDYY/2tcen9ChQXWlZ2A6M98/xbm/nV5KQ/0DlT3dzPyL
Y5JTRvQZfYpbQqcz/LjQp/nbKhqq9UaTNzB+0bTf4+NnREOUoXySOeOnayJQ
ooxp0AvL7TVh/Ba2UNVsYD0Ns2cuPjTJ+HPo9Sj3iBkNLx8uT25g/Ht0V7dv
rzkN01u99eP9Sdz9b879LksaqD0mNsOM/w2Eu5V5O2i47TQk0mH2pcB+O563
paGxYL6pryeJliUWJ8130dCxD7KeepDoFLeq9eFeGi79PGghdSMx1nBqeoA7
Dc6rBM6NzP7OuvXLdakHo+/4wK2HzH6nyP5gtXnSQP6Rp3/UgYnf2B1i6UOD
O6G9t9KOREFA8TZWMNP/S4ITjdYk+re/nCw/TQOmCBoNrZj9tHr6MjiMBitN
7+xwCya+RsK8z5E0rPXjjQ0x75Hla9+BzDimf/E/3A2Z9yxlYtH5HQ9o2JZy
TnZkNlOfx1xz2cc0RDp1KvqpkfiqfoY09ykNoXImdOsMEuvv/XTUzKRhYfnv
kTFKTL7NLcsGX9NwJyg3ZO0ogU7/xlafa6Bh9RIXozEegQIxJ9Ss8T/9btXx
TQT67Tm1mm6m4WZmQqF2A4Hnlrrf2kPSYH4i6gOrgsD8GjMv3V4aOCWjsTtz
mP9gBq1UNkZD3JzrmX9fILCx5HwMe4IGOYNn6d7/EnjtuM5vDb9oOPz3wnXh
EQSyapymkPISODZPYUFkEMPR5ROUigT6O7M/y7gTOHP8tnT+YglEahwJ7DYl
cHqfVdtJGwlYf7xe4sv8j7U3upxGd0ggK0QmYkUTHy9uOU2E2UrglV59QVct
H5XTslpid0tgp6VZml4pH6ftm//p3n4JZBQPLFn3iI9KTXT5h5MSsI0wX3r0
BB/l8U7m4iQJ6MxPSLKc4CFptmVr510JuG2qqpv/nYeZhcKu26mM3uKPD/qF
PHTK38hiPZaAs8bUIwfaeJj9ojNA5qUEbILNVlQX8tA1afGG9koJdF99ZBwT
yMOC4PSyhG8SWPH7E3equwWPGRcRU22k8GdfPmvZPS6WfuQ+L9ghBf8M9ruk
eC6qe9OcI7ZSKLpasl/xPBfxoY5u+W4pCOWbQ98GcFFN44p/+AEpTHj1DVez
uVg0ekh5OFAKHM9r9qulzaiMKht7UqRAOmvkRZo1YzrbLeXNDykklV0V+BY0
4vfBeTMFCd/A5uRnjqNeA+btsp4Sv2UI5iittp0WUYmcrdH3cgVD8CFPIQ3s
EbXbt/HvR3+H3B616oXRL3CDaVT8XKMfYJR64sNI71VwWdAwKtv0A2zc5pqt
u/AKvtdc6j4RMQyl0re8RzkVkCjvGrBzyQi4zlrbm1f4EdQ68tLkykbA5tHl
DBXLFlAIjbBf7zcKvckaXyIut4HMU9fMbtYYEEWNFqf3fQb/25mXWO/GQCA5
PZja1QMly88pqfqMw+yA47YHI/tBdZu/wVmVn2AxJ/JYu4YQ2lZ8bAou/gmx
Fk+Uz8+n4fIFc4Pt33+CbajFTAHj+/8DQy2s7w==
           "]], 
          Line[CompressedData["
1:eJwV0n001XccB/CLNk/R4eiejFsI00ycjdKMt0nMU0UhHHFjhPVwT92zSR5q
UeR0ba6HyYhrjqM8NOZhlLlo62HzFMoxpMJCD54u9/5+3+/u/vic93n98fm8
//mYHjsV8JUqh8NxUc7/6R98vCJdzqC22b6pYfItwut26fEIC6GDuvadsGWk
pZddGKsmGLPT/ChIRQadb9S9+TUEj6INjZa0ZSg6fkJ/uo7gb+7pqnyuDA0+
eyRvGgkquzaPv7OWYVqvv1u1g2ClT79BHiSDTwlHY8cgAa+UaxlbKwO3OeKa
UEHwp0qLh0/UGiRVPUFyliDpKD/+5ck12BVZb0vlUFwws7LPPLcGr2RZ3ZX3
KDpD3Nxff7+G83tF/dc3UZxIjTvwSecapnrvGki3UxT8uI/bY7qOmlnedV1f
iq6BgvlT8+u48lN65Ph+iu5dzdYminVEByxY1PpT2Js0rLzQlMO4vb3eL5hi
oN7TsPZDObJEYfeyj1Gclg75+0XLYdXOl2slKn1ZIPaeksN9jtM8mkTR68p3
zlqU4we3tITMFIoQW/GilaoCw5qO6t6XKAIGrJ20zBXY98+wcaaIokJ/a8Ry
rAIiy0daZ8QUromfDYdcVuD+QsqyZR6F2bem/JGrCphdMvhSvZKCTW59clOm
AHE8rzNSRRFsE9j2nRaDopnPndVuKvtup8/AkIGuoXd4kNIBEteaM0YMni48
H6hUWmVVeDSPxyD7/db7obcodr/V1BaYMcgJbgj3uK3cl+mKBe4MzhUl6hUr
XdK2vWvUg4FGo8D3UjsFv7haEZPHwHu24MWWuxTXqoRejmUMRidaHQM7KHJD
jhQKqxk0iU2JuZTCYjWoaqiDwQR3abfoD4rxlxmLRq+U9w84z+j2UewPM6rP
sGMx1i8qURuk6B+ZTNngxWLdas72qdIk+eDQkYMsWjJkUYNDFJmBqh+38FmU
sIs9+k8oChN+qSVCFmKniB0SpXeW37DfnMSibDAq7dUYxZhNU0yChIXPzzsb
3cYpKh/kHt5Sz8IyND9R/xlF7LNI8vohC9VNxGXqOYVUJ7prYJZFfLYJm/kv
xUXJPcGgJUFqW5nUeI4i3MBgNG4PgfRQ7sVbSpebXzXb6EqQb+Mg8p+n+Iss
6lR7Egimig+bvqHwdYphluIJgktT/effUbgUlApLcgisfL+e+H2ZQl2jsMzh
N4JYiw9yTq5SLLj19T4YItig8rgiR0bhdCOrO26WYPJXp/hIOcUdv40PP91K
cbbYc/qQgiKRN6cW6kDRHi+xtWMp3NL4Z8uVf1qwTXuFUgpe5xcBjwnFfzra
EP8=
           "]]}, "Charting`Private`Tag$2565#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, 4.999714070858953}, {
           3.5154535402747886`*^-6, 4.999247369599134}, {
           0.0001152118573926528, 4.984244694733099}}], 
          Line[CompressedData["
1:eJwVknk4lPsbxu1CmBkiZcla2nRE0uJ5HZUsiRbF6SCdspzsilBSlJF0DiXZ
kqWSPVuWfMWYeUPkWFLEObJMmHlfS9bG/Pz+eK77uq/7vq7788ej7upz4qKQ
gIBAyer9Xzk+PygnWNngb5y3w5hKw7SEt+ftvJoDkWvvsodEaRiTl72z65/n
MNKtYR9JULG1M4mGarG5kNDOuJfRSMWSvoaYla8UQkdI70KxNxU76/CsiJwq
g82jCQ3HP1AwKX7EOXNVBONMaaXXbrKYth2X3XiPAVaJzbSbLtJYUJsxJM2+
B/6Nd19Cj0hhimXUAUHBdvh5aX1bqKsEVjFk1tp+4B9A7HApmUviWINn2kaH
yS5omGuS+XpTFPuhc1C2wOsThL2sDHNlCWNCi3mUjdpfYNi06Td8RhDbw3ep
OFnYDz0OHdT1FgJYa6RBG3PrIPjNBa9zceaB2l8Ti7ncf0GvNiI1emkRJuYH
B7p3DQHdlBkKQ3OQPV7TLBP3DbouKFxZTpkBGZUXxPDwMNRNhwMzhIRYj/JL
GVqjcGbhjUX60QmYw/KG3cPHIPuqW1bIiREI1GeUKTSyoT9dR4/OGYTBQsa9
DvVx0Imaoib0dsGyZ1eKbsgEdB4/5lVxqAm2mYqvXKqZhMeG1duD7qVD8au8
zb31k6tqq1dimwoG8rZ2FsxJCITKaRPFZDgwlpS9rWMSbveeOOPy8hHY3N9q
RY5Owlh/o7BMBR38Px9LukbjwLUMevVZrh+q8nuoH+vBAVO2kua4QBYy6dt7
jufNgfmigq3yYtmo4dDXKO9ADgReMbngJJmDmhV1PtuGc0DX/H6hJeUF6n9b
Gb7uEQdErJOum1HzkIBkX2t6PQequuUXWv1LkHmmuluJIheKcnLl9g+9QQZJ
MjpMZS44mlzuf2tdhTbFLQ9/UeeCRJZlTEVFFVq61u0qsp0LxR5iWsL0alRg
R3c6g3Fhx0M37y86tUhOcOo0z50Lz9XeeXIOIyQw/1We5s0FY6HF48vPEZqc
bO7UCeCCIJp9Vixcj5i92Xa217nwt8e3gwoX6tG14rPHsv7mQm/FvndI5R0a
dK4/ZFHNBXnDZ+yAiAbUerpA2AlxoTWbrqWb34DeWCU3+DO4YHa8peBKTwOK
NwrEUtu4kNnC9G/TbUSHZbccIIa4ELaz3d2upRHpi65bFmZzoeUMOZ4w3YhU
lwWr13O4cHFZ291FiYEWRvuMfp3nwsfYU4sPLjJQXt2D3Y+kCGgP7GuXW2Cg
pLKw6VwKAaINU0zfjU0o8pVHSd06Agw3f+eZmzQhp0QzPbYaAVzTOPq5W02I
6j2/db8BAWO7tJ0HhZlo5cLw9+PGBLiL2Yy1azDRuEPHyz9MCDD+oPD7FlMm
YhzO04k7SkChPeiKhzFRkIqzxn/nCLB9PjhtMM5Erra77PvPr/KkSRxJE2Yh
m9uCMZ8uEWD+9/kMZ2UW0vmeNfXBl4Bh1lcDthUL0ZSvaL+/QsDeujnLXFcW
4tkccWCEEOCxQU2jOpiFusrY9dWRBNSz71TVZ7JQ/VjVbDmdgLrmZpuSChbK
23BvS0kcAZsFCbux9yx06+aOv14kEeCluyNQictC3qUrjZlpBND3D92n8FnI
YbR9Pi2TAEiykDGTxdEua3/nh/kEuPRpFdjuwJFyuFnCgxICjvcd1968H0fi
r+VZMRUEzLkN1OgdxdH08MhSVA0BCjUK1u6ncDSgWLkzop6Arsw2Vpszjpot
o13DmggYkMwzPu+Jo/LrDolBzQTEiPzOUgnEUUbx1mb/dgL6HvaUCl3HUey3
ZZ5XFwGWhn7nZaJwFKzw4RePzwTcKuWfhFgcXbBIv/jHwCrvEkP/YTyObMJ8
njh/I8DR2qJZKglH+4qwD45sAlSficvkpOJIZ4gqaM9ZzZU5Ss4ZOKKu+2Zg
N03AMiVnt3EWjn6al7lbz6/yP85v0c/BETskKtX8JwGPwnRvWD3H0bj9Nvdn
AiT4GkbI3V71LqSckJowCc1uBTc/r/Z76D9TUkVJ0K+2HrPJxpGV5ojhhjUk
7Hnq8+jbMxzV135ofyxJAodQF01Kx9Ee+wqPddIkLBuV9l1OxlE+kS6cIEuC
f2I92/URjjTod9MoNBJ6hUS0Qx/gKEnD1yhOnoSLCZziimgcydSe7ZBSJCFL
Zm2nQgSOIk+b/klXIkH6ieVcajCOFrm6ouLKJNQVSby09MGRdzTtaaQqCYO9
SonqF3E0rL68V0idBDwyPVbTEUcfT7Ve5mmTcN9d1qbYFEdHuGVioVtIGHBc
awgGOKq9m5axsJUEqTvqZwV1cPSi2rtrRo8EUzzea4v46n+cOuPtp09CWnb3
uvg5FornwBrCgIRyZsv5vSMsdGMT9cC4MQnv7ca7D9Wz0GzVYrfbARJC3mtL
FeezkOfJIZ8RExIcQt8snU9iodN3SrP+NSMh/mPK2WwvFto+eVrq0zESgt0+
BE7IstCbU9YoxpYE52x53fxZJjJ7+2uAyUkSJK6YWeX1MpFjnF5fzlkSrAR/
5PqlMxF9l0Re4AUSIlotQ66qM9FoYK0l7RoJFlydkwviTcj/6+uVplASYtg6
wpJDDMQ7nPv62g0S6iU7D0TXMJC8YuKG/26TkBHOpHRdZiCzKp/xojgSNALE
3ozjjSiDpxFzLJsENZX7vXPuDWj7JSUTwRckZDvXjfTta0CVbbLTZbkkiJcN
T9msbUBtT386KBeRMOt8qH+k4B3imfboTlSt7i9blYpM1iPHO/T30e0kDEXL
Kxe+qkNysuQaxhIJYkPk+rvNleiftzF3LXgkSHpJHCSdKlH8ZW2xdj4J1wLq
9/ZOVyBas6PwF5Ep8HbrOLVVadVHNfEImSnY4pmwhudchijLydMbNadAWdp1
Q/CnYrR27HB/gNUUxEq+26E9kYlEUEqRZuoUTMu1qp6OeAJ/GtR8lrCaBu5R
K9ijz4Q8C9eMurlpkBBp6ZOy64YfExsoo4kzEOtXXLXLdxDKT5oLPzw0C0cO
2/pGBI1A+NGop2Wjs5Ai/aeKpuQEqH+17M2K+gH0DknF0/Yk7DOKfKikPwf5
59qe+4XOwDnV9kXBzjkI+CWr1OHGHPxovj/kGzEP0j0BC8k9i5Ak4hR4QmsB
DgoxGPw1PJAbKM8UYiwACG36FqwqgIlejzhl7LcIXrs7iW0jgphArlPREG0J
QkMsnxx5LIz5JxfdpzUsweNN2ypngkWxt9ui11C9l+HtI7UgEydxjGrpv/2W
zE/oDokec9CTwPp3fOy8VvsTzhQRgZ5GUlhxOmgNO/HAszHOiNgpjf1etIeq
ssKD8sNX0WV9Wexm1LOI/lcroNEf5XmzgYJJB4lbni9YgSIV5QRRFgVLdvei
jRatwCTbxy22hYKVWhlnEWUrIN42pfW0i4KNUjsYQmgF3t28HfB5lIJZpQus
0e1cgf0/TAtypKiYQqVz3JXlFRCLX2pl2FOxrJdN9ku8FaiwDRuh/0bFdiVv
UwsX4MORGV0vOxcqZnF9vihalA/hv9RNjnlQsTCzBx0psnyo0VfN332dig21
18k3aPKBc7BwziabihWwVVJkrPlQLsKtmJilYtFpUS4DNnzYbMQcKlyiYn+c
4GgX2vHBVyJiX5AADVOurS0+doYPJ/RbviuupWExD35jxrryQef27flUTRpm
3mNt4n2VD2PDikmbbWjY/wCsDruf
           "]], 
          
          Line[{{1.9745531734228603`, 4.649378282507097}, {
           1.9787207152144783`, 4.688968638921458}, {1.9792511360269374`, 
           4.694142791945341}, {1.9792511360269374`, 4.694142791945341}}], 
          
          Line[{{0.026089082519384507`, 4.643426699248538}, {
           0.0350451422846122, 4.563699048671788}}], 
          
          Line[{{1.9868583233326689`, 4.772943344200311}, {
           1.9890171235866694`, 4.797458534241166}, {1.9892207977123333`, 
           4.799856510591933}, {1.9897035508114822`, 4.805540249315465}, {
           1.9897226630575817`, 4.805767510647624}}], 
          
          Line[{{0.024757010178608062`, 4.655811556755268}, {
           0.024813572315302873`, 4.65528237367648}}], 
          
          Line[{{0.012429306800578199`, 4.780894961442156}, {
           0.019260257456407852`, 4.70885120020252}}], 
          
          Line[{{1.9690305277058797`, 4.599293706707131}, {
           1.9725428701911636`, 4.630868154968042}, {1.9732763460878604`, 
           4.637581867096684}}], 
          
          Line[{{0.02178799830232559, 4.684037266938557}, {
           0.023481499974526428`, 4.667826769861331}}], 
          
          Line[{{1.980216524766344, 4.70364882914409}, {1.9820111257845565`, 
           4.721766014417481}, {1.9828868521843874`, 4.730606808150189}}], 
          
          Line[{{1.9920574042582282`, 4.834598073398284}, {
           1.9924490109655175`, 4.839675697973514}, {1.9931356869355459`, 
           4.848784908686777}, {1.9942627197136527`, 4.8644016643989705`}}], 
          
          Line[{{0.006990001109958442, 4.847096681042143}, {
           0.008905112612481055, 4.822558619487021}, {0.009176606110972044, 
           4.819080010450934}}], 
          
          Line[{{1.9972083674759915`, 4.911386949666069}, {
           1.9979406775092352`, 4.925567796660892}, {1.998627104734048, 
           4.940756955418829}, {1.9988593097021097`, 4.947104757793234}, {
           1.9993135319588609`, 4.959521861285812}, {1.9999999591836735`, 
           4.999714070858953}}], 
          
          Line[{{0.020535767660489486`, 4.6962310800431135`}, {
           0.020535767660489486`, 4.6962310800431135`}}], 
          
          Line[{{0.010452116315053678`, 4.80369386704174}, {
           0.011559858235370032`, 4.790789973148399}, {0.011621333053202478`, 
           4.790073863636}}], 
          
          Line[{{1.9907818940541464`, 4.8185696688279345`}, {
           1.9907818940541464`, 4.8185696688279345`}}], 
          
          Line[{{1.984177992585372, 4.744041629198055}, {1.9848985602377929`, 
           4.751667213499759}, {1.985582813128587, 4.759002897196128}}], 
          
          Line[{{1.9955382299177344`, 4.88336593492148}, {1.9957562021944761`,
            4.886798882417726}, {1.995881395834797, 4.8887706157065205`}, {
           1.9959328572719097`, 4.889594299287434}}], 
          
          Line[{{0.003414505701098769, 4.9003808557299955`}, {
           0.003926895446503668, 4.8918576959088655`}}], 
          
          Line[{{0.0006134358411192535, 4.961912265358487}, {
           0.0006134358411192535, 4.961912265358487}}], 
          
          Line[{{1.9676892402150108`, 4.587464994417945}, {1.967755017501798, 
           4.58804234719392}}], 
          
          Line[{{0.0052024056505853, 4.872161629878583}, {
           0.006055244663775441, 4.859902071495707}, {0.006055244663775441, 
           4.859902071495707}}], 
          
          Line[{{0.0014494803728095128`, 4.938934254158318}, {
           0.0021349490647419255`, 4.924030259708196}}], 
          
          Line[{{0.03632065248869384, 4.552760967172578}, {
           0.03941120618234885, 4.526612975144091}}]}, 
         "Charting`Private`Tag$2565#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, 9.999712116189258}, {
           4.081632653061224*^-8, 9.999712116189258}}], 
          Line[CompressedData["
1:eJwVkGk8lPsfhu0pZWtVluaZKFs6JVLy/RVFtpOKOicRlaNU5DgUOpbsCdXQ
ZMsaskwyxhB+Kgc5mJRUKjQcEc3zWEq2mX//F/fnfnG9uK/PTXP3PnRGQkxM
jPEz/29dew9Nebl4yAguvJNzho6yVv4aFafCgG0VxtcHjOgoqP1Oo1MNA4yv
IX/jrXTkFNkvQT+eDHWUa+ZNfTpa+u1SyOP0FHDXuc08uoGOLncxLo9p3IUn
xlYddGU6crjdc85eKxOUO7b1MQQECpOt2Birkgcf3Q+pSjwgkI7lzZhHPnkw
MD/J/CufQC8jvUfeN+dBess8bzSLQBsk9Yo3++eDR7GzXv8dAjUt5G3uenkf
DlXmzQ5FEmjpZMp2jfgisFifFuXmTiDmx0DzSmEZhMYWxTxTJdCx37JZ1Dgb
vAtuXn6eTENyojBnS3UMjqfXj7Fz1yNNB8Hws+uNsOTe2UmtqxoooMMEmFPP
4cql8Z3lTDW0mq3UKy7OAyrXvKnw4zrE4Zu38UxfAkf0t9Q96bXo6bmMdb+N
dQHwp8OMdq9B37R2K5ReeAPqv3wuU7y7CknMFCuu0+wBXvd+T+U3K5CR6CTn
cNkHWNBoWUMZL0dtEYYdTTp94BVs9vLPfCWkkTQ6UyToh7kVhmanRhXQ6HRf
7+stfDhzS1Hse8dSlPflcat8wgAkN+U2KAQuRvJqBeTg4CDsfeW2txlkUPzZ
So+sDUNw91WVY42lJPqOigc9Qz5D0/1dHstUxZDf1kb2qmfDcC9gy3HBH7PQ
V9Z4vZP2Bb7V1ZW6mU3B3LmuNO3AUWBJbTwPtWOgu2eR0OPxGFg6C574buWD
ZQ7tj/LVAsADHJ0bMh1gyJTXalIVAGll3Bju3Q7rE+YGe2gCgKSkzn/ftsHs
ldfuUnoCqAnTVztR8i+UOsS6HEUC8Jt3XJl19DksFx93XPAUQG/3mWg+boQ+
1waLAzUCSJvwTDJproI2x1JJFywAerDPBQs2B7g2qU99GwWwOzfj7aWcSrhl
7IfSOwQwHRXdZRdeAfsUNpmSfAFYB71IS84ug+L6xG3JciSoLrGdd8XpwGQH
TxQpkhC4wQ9HtTIh4sHZ8vqVJFgU9QrcPjDAJcXcYFiDBDW+n8GMdhwoXZzW
2WVIQkLqNcsecTccoOZKfHImIU46n5s3kondD25x+uD2k5s5N+gS2dj+mnjc
Gw8SHFrib8m15mCtkdzxdh8SJqxYhwNl7+Mu9nBDTQQJ19fJtU7sKMENn6un
KmNJYBSc+su3ohQXr72+qTyBBCwXKjLRYuHwUP2kAiYJZeo+obEzD/EWW19X
RgkJaRfS49ISKrBqiPntxHISdvGci9habLzo0YrmOA4J70vT6V+4bNy7umpz
WAMJnDwkY9RaiVutY9yD/yGh6POyayFWHFx59beUgFYS7B9+mrDGHJz1UKfV
l0eCUYaPmvrmKhw/MLdwoYuEeINUmwBGFb68qv2Xs+9IUB/Vg47xKnzqQOaZ
070knH8ZOpy8j4vtg73vug6QYPCiWAESuXgnC7X/PkyCrXqhhmkHF2vxlcSd
vpKQGCO7SUaiGiutHDB0mCBho8yeaUKnGs9bsj1tp0lw8to/qLu/Gg8HRqZb
zpPAM3WJ6XKsxl+cdD2zxShws3L2pI5V45PUcgkNSQpubFKJ8v+1GnfHzqel
S1MQ5H9DI9ykGtvQ/9u+VpaCxGUpvgdXV+OG2nbenSUUaC9TEe4a4WIjJ87Z
lcso6CkM0uOwuLiEzJS8rUCB/p/DfsiLi4nY6AxFZQomV359c0aVi5mEj3HC
CgpWXXOwqXxWheVrj3XKraZgQbHMsc6tCkc47vGKVaHAMaS5R3aag2cE2tKL
VCngTFpOqUZw8MUY5XsR6hQEGlI5AYs5eJA2t0OCRoFxF6InRlfiF0fazi9o
UmBq3VGX783G+wVsmaBNFBjlT4id66nAtdEZWT90KHjNilX1hwpcUHOxa9Lg
5950plXuTDn+e72S6RcTChT7vhdc9SrDU9Uzr/8wpSBOLbz/yVQJPneY7/2f
GQUeDX73g/2LsWNURW6/OQVVBU+oktOFWG/MUe6NHQVvl0jtpk9lY+4RWxx3
8Kef+oNmCc0sbF6390+zwxQ41G1v0L2Xjn9PMHiff4wCC6P6ugeayTh2y+Ji
v1MUbC00SHhX74+H/Gqtla9QUKxf0mY4kwpZC0ScXd7Pv6+UB+84zYXlCpRs
4ywF8gVhjdo3eSCF01j09HGo6X6+qLL9E3gZPn632GYCRicfJdVbfoXiA+5Z
9d8nYKfvGO9E+BR8G12rOJQyCUeEebe06LNQedhSkmExBeq29toCAzEUYhV5
jz00Bbp2L5gtWpKI9tH6bW7kN5jbN+UzoiKDdhpHMFS2focDz08MVB9bjJzV
eTPir75DV6pd5+DZpehb6w2+T9g0FByLC/BvVkBMKRe/Qxt+wFT/9Zc4UAkt
763MkWj8AQ52kU93yi9H0lfDjphcmoF3dQ45X1tWILEiFxZfeRZ6c2vo4l6r
kG8q64by01nwKnt1onr7GlSnGyOrdHEOnNn/ZDoIVZCSta9euPw8BHOHjwSX
rUMf9F+8ulI7D3UnY2+J4tTQw0zYMOiyABdWm+39fFADnWAZKakJF6Av7HPW
xfj1KDQyO+zDAyGE7/cJyomnoWUBi6zdSoXgu3bPXf8kGkr1vKA8xBKCsUfK
DRsGDVXYmOSSbCE0yuZJ/EijoSGlzkYJLASfsVCX48U0ZJMpJqv9SgifzDOk
7VtpaFWVa8Jfc0Jgho3tmJYlUG7hP06zC0L4UbDNY3Qpgbak6mqEiIngdebI
v/2KBDpwdZoVIy2CI9LSh3hrCBRsntiZpiACv25+y+NNBOLz6lc8pYsgfaqr
pduKQKXDamnytiK41dKZi+IIFJMRebLXXgRRDCabn0Cg04e+apY5iKCt/b1z
9G0CqdbWPrQ7KgJlfdlHb9MJFJd4vCneXQQ9lnmWGSwCeRrdHV9yRQT3v9Yk
4tcEshgVq+oJEsGCe5cYo4dAGlmewQ/+FoGTkZnH+T4CdS/escg6QgQWhlpJ
2iME2vexWzU2UQSbpa4efzdPoOiAd9IvskXgUjKaF6NGR/8DsQuiew==
           "]], 
          
          Line[{{1.9782805368779057`, 9.576292014112154}, {
           1.9787207152144783`, 9.58275622033167}, {1.9787373661730594`, 
           9.583001189402085}}], 
          
          Line[{{0.0030108407854104445`, 9.892376078842013}, {
           0.003680410965082868, 9.877516137832176}, {0.004907201014668314, 
           9.852042536219962}, {0.005520596039461038, 9.839936553449645}, {
           0.00613399106425376, 9.82815862914752}, {0.0064993113705575055`, 
           9.821279730289257}}], 
          
          Line[{{1.9800128763771412`, 9.601866383795702}, {
           1.9807799968889164`, 9.61331211652743}, {1.9835257057881674`, 
           9.65497416698419}, {1.98421213301298, 9.665580276184528}, {
           1.9848985602377929`, 9.676272362821956}, {1.9862714146874185`, 
           9.697938522964193}, {1.9870007938086784`, 9.70961775482989}}], 
          
          Line[{{1.9940018470218308`, 9.830741245283441}, {
           1.9951949686099844`, 9.854094993741498}, {1.995881395834797, 
           9.86819292087512}, {1.9965678230596096`, 9.882930207813676}, {
           1.9967957936989889`, 9.8879980721517}}], 
          
          Line[{{0.0110579818347774, 9.741364463588466}, {0.01226794131218099,
            9.721457131389384}, {0.012417451027480158`, 9.719025404530045}}], 
          
          
          Line[{{1.9921026341762598`, 9.79573625105898}, {1.992449259710733, 
           9.801965000050838}, {1.992726336817749, 9.806990855065493}}], 
          
          Line[{{0.007360781113839206, 9.80540598872822}, {
           0.007360781113839206, 9.80540598872822}}], 
          
          Line[{{0.0007605691408016996, 9.953402035035154}, {
           0.0014028610741234132`, 9.933027332556621}}], 
          
          Line[{{1.9898585528143742`, 9.756742069491871}, {1.990389978036295, 
           9.765791155721368}, {1.990827123972178, 9.773315077409297}}], 
          
          Line[{{1.9983017898491244`, 9.924772946641887}, {
           1.9983017898491244`, 9.924772946641887}}], 
          
          Line[{{0.0018402258907046993`, 9.92096947507125}, {
           0.0018402258907046993`, 9.92096947507125}}], 
          
          Line[{{1.9994970648041506`, 9.963260137583521}, {
           1.9999999591836735`, 9.999712116189258}}]}, 
         "Charting`Private`Tag$2565#5"], {}}, {{}, {}, {}, {}, {}, {}, {}}}, \
{}, {}}, {DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
      ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"F(U,\!\(\*SubscriptBox[\(n\), \(1\)]\))", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {{0, 2}, {-1, 10}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Center, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.770886564884124*^9, {3.7708866352019043`*^9, 3.770886708604892*^9}, 
   3.770886979026722*^9, 3.770887036377323*^9, 3.77088718769751*^9, {
   3.770887255549761*^9, 3.770887284400783*^9}, {3.770912123404723*^9, 
   3.7709121512264423`*^9}, {3.770912184393393*^9, 3.770912203264988*^9}, 
   3.770912295878501*^9, 3.770913744321866*^9, 3.77091496281671*^9, 
   3.771208436231336*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"a3311dbe-77bc-4e50-8c68-84225301dd58"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Correlation part", "Subsubsection",
 CellChangeTimes->{{3.771208684265621*^9, 
  3.771208686382888*^9}},ExpressionUUID->"64aab028-6769-4d68-8f66-\
0174c0ae5c5d"],

Cell["The correlation part looks like this", "Text",
 CellChangeTimes->{{3.7712086099894114`*^9, 
  3.771208618996855*^9}},ExpressionUUID->"685f89e8-3ebd-4a92-a93a-\
10bd0a374974"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"t", ",", "U", ",", 
           RowBox[{"2", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], "+", 
         RowBox[{"2", "t", " ", 
          SqrtBox[
           RowBox[{
            SubscriptBox["n", "1"], 
            RowBox[{"(", 
             RowBox[{"2", "-", 
              SubscriptBox["n", "1"]}], ")"}]}]]}], "-", 
         RowBox[{
          FractionBox["U", "4"], 
          RowBox[{"(", 
           RowBox[{
            SubsuperscriptBox["n", "1", "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", 
               SubscriptBox["n", "1"]}], ")"}], "2"]}], ")"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{
            FractionBox["2", "10"], ",", "1", ",", "2", ",", "5", ",", "10"}],
            "}"}]}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.770914789329821*^9, 3.7709148373439407`*^9}, {
  3.770914879000749*^9, 3.770914936003223*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"513ca180-6193-499b-b046-820a3ded2d4c"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV0gk8VVkcB/BrGakRKpkYWcpSDc8jY4vOKy2a1FgSGpmXrUh5POmhhvTC
kKXwqChrlmxZnv2cl60sz9KYsST7+qyhITHNcT+f+7mf7+f3/5//PfceBXt3
cyd+giAS8L35/MVpsoMz5XSU2LwOHDas8AoRtBrUAULJP8MR67HqbjVeoo/H
SRDDJXnNRgtCYXNyRcmGFZhZU5nuWlCBZ7ldhYlSjgB3D+i1HYNOig5JJ5Az
CD3uq6711hiW/+PTfbvVDSRU3LS0OHsR8piddVdYHriec2GddwUW6Gxorkt6
AYb/xYK/F67BOiPp0toE7831wsgVNGgUz7W15zJABinDT0jyFkzgp2Yppfrh
POCWc5AfFDuv7xj64C6wVHeTeA4CoNeOgPszV/1BYGtCme9SIFxyXBUYkbwH
+Mn9JuLXg+EpwbBzq0L3ATkrxbDSIwJKagcbhUsxweftIew5l0fw3a9Gmr47
H4BStpSkfXw0/EUs2wAmBOF5unrj5+KgAZX26upgEFDPctp6lS8enpqoGJyX
+xPkZVkqxRg8h252doXBV0JxvfjK2vZkmPvi/BpjVxgoG/ORFtBKgY01T/a9
XH8Ixpdsxzzj0mGNfjorJSYCGJSmIk5MJtRuZn7yTYoEX/bbWa8VZEP51eUW
xQtRIPhRROrCQA7U0lYNt2E9wuvzQhssX0N21A22mdxjYLJIg7/lFsLjeeXv
vw48BiRtKQo3uRgm7f41KFQqBtcrh07sKoNlrAZBJWoM0FXjk4mcLIMMAcfm
a5mxwNCiM4PyuQqKfPbwr0xgbdaPKUlw4ERORXWwYRw2N9lL8w08oxhJ+74q
Dixy8qMzZWpgbxzT2P/yE9BEaYQ2ZvXQ4uFHdhnnCa53usuUbYB1jgaW+zee
AOaK2tTIiwY4WlTqsTf1Gc59CcbZJphQnnHacz0BBMbrbvkjjQvNontdzys/
x/m+Pb1G7ZCpQo1TLngOrEnC7DPr7VBYwG1i/OoLQAS8EPNf7YAu3ttYLvQk
0LfSm2+t3Al3H4wiWbOScf8918DXXVDXr3mLykgyCDUZzO0u6IYLg91uijop
uF/F621rD2yOV3i10IVNlEZKb+mD58U+nWD6pYJlW6ag1a1+yG9lklqslgbM
U6sex4QPwu4i64gKehrwU/euPCQ9BN8/cJ/68DYNEBSOyETDEFQUUH1F8k7H
PtpurTcCGzbSSJ3vX2LbbN8wHYfuBvcjNw5mbO4v8qnCBNzjd2VB+R42Jf9a
2L8T0GV1b6GPeiYgOMM1d3KnoMgS62e5h1nYJm/IprOwROMWy3gEOyDv3LrR
HLSjWax46Gdvrmd6wmAe5s+KlddNblrAmZS4AM0nQwxcT+bg/qiYePYijP/o
a1TyXx7unzJOtF6Bx2Rs0vot83F9ZpbnygrkXdL5TjgXm1LFzIxfhbIzPg65
agWAkG9WNBz+At1dtJWIPmxq0QeDx+twp2N+ZrpuIc4XyGGH+ZDzfVkbfUfs
qP1t9iw+VJkSvrUtEjvgnDRjjQ85Dl13XR3HJtRe2jXwoxK7A6pnY4sAQePz
U78hiKxtkvMXPhXj+Wvm3itb0PyHC9tSpEuwI6vCnYVRkJ2wk4URtmnTkdp/
hFGRg7s0OwY76aeLoRVbkehNwwd+Omzs+sexkd+j+sCeS0J3S/H8v7S/uYsh
2+/CS0rTN63Dr/pJDC0GU8RdWrFph2uhnjiSD8+ob5YrA0TBUYl31eLoTtwt
8qMa7MxjdbBlB9LM2SEkI1wBiO4LVVQhCdRIqqdyydhlBwbIphKI+ppR+YcN
NqNmPPapBApnD9CGsrHjw9TkNHajSU7uh5fnKvH/6NLSdJJEz/8+81ojugp/
L+lhr6k96Ptv92xPyyI8L29AwUEWxbtY2amewmZwry9WyyLFTlXqjpub/iRq
KSWHjmZ1OXyoxuYk/9XeIYfKs1glpSQOIIw9xzvS5NGsxUzV2VbszO0d1EP7
kGVmXDN9ew0gmIHfQt2UUMLlQBNnBWyaqZZsqhIa3nmDa/0z9uB13lqPEnK/
e7zN8DJ22VJvlLEy+tN89v2WXOxlop50UAVVrx/vfWZSi8/DrS6N1QNIyWxu
sjasDhCOl6aNuKpI2v+0/tVk7HVbn5s71ZB4blLYtlLsa3Uy81ZqaE3YgmQ2
jF13NmhxRA21c0rp/br1gLDev5WPUEe+5Hv/rY5huxU+k04jo1YxCQkS5S3e
X4WgjchhdC+z58he8XdAs+B05f00LXS7VQ/ELzcCIoj+X/BvukiUVDLWKNwE
iBDOXM4DXZQWTn74VQa7LLr3c74u6jBR6bE7iS39O3NJUA/91CxBV2Jh79zQ
SyzQQwNv518W6jQDgm1flyJ6BJ1+ky7K9W0BRI5Pr86YIfqheEc/H18bIGSn
2JobxxB72KilzeA9IHYHJ9Z6n0E1rok/2sx04nxL9515U/RZ2VAs90YXPp+N
ciEnLBH/l1fiPyr1ggAbFlPG8hLaWrMs9ENyHxASdjBp0f0daX+jsi3y+kBA
turTHvPfUQtTq7Xh0ACglG/IDZHtkVzU9JesuUFAqdOKXF1zRNMrA/1/k4dB
wKh+QnzMVZTGq2wSjRgBAacObDO2dkWiezPmR0dHAXEISn1dckMPXUqckxTH
AUVptogC3NG/lFej1/wnQPs6bd+nOhry0qwrlqydBAFU1sU9FR7IWUs+6dE7
7PUg8LXaA1lr3wkTaZ0ENMZQy4c3HuiIvpY9f88kPh9lbbGNHoj/eJrY3BzO
vS+bz3Z7oEgzpmu99BSgnDLWOLjigbJpJ+S9PKfweXz6qlnDEw3k1YV1KPDA
ArW4lfHCE7XPCs5oqvBAwMefJHJSPBFH9aRJjCoPmJrPNvWle6Kk7HoRKx0e
aFfVC9HO8UT2LxvC+0x4gNCIUGou80Tjie8iJ27jfn/WNkaHJ5p92BK9wcUG
Rak9BB31N4ss2/2FHeagUi5AR63bzl3gdPMA7fPRjVghOsoL4UrcH8HvY9z0
7LQIHdGYrbHCX3iAM5QRGvoDHS37tcftUpwGAbd5ThFqdPTVtfPZQd9psFCc
sBhsRUcXtC8/IvlPA05oxvNRGzrK4RsPOszEeWTex6O2dGQXv+JhGIFzBdGd
M1Q6elMvbWyWMg2ScmuPHXSlo2D5K8uMJlxvXK1KukNHf6wMp7zvxr4yEsII
pKP/AZQDyqA=
          "]], LineBox[CompressedData["
1:eJwV1ns4VFsbAPBBUkS5HSeXIpec0klR6qRZckkII7coFLlFE/ZKLonzHWQk
OimHIpPq9ImIJFTWnFJHUi65lGspkcbMHorcv/f7Y555fs9617ve9e69195a
vsf3+YszGIxM+P3/n5GxNdPq41fErWT4M85QpC50waRVh49o9/bxyAKKRErI
a/f8Cl4qtyL5b4q8MzSeEprzEa8kUTe5hCL5Z2NuqoTwkdmuQGvZWoqs3yU1
H/CQjxJs2wqMuily93bR2rc8iD9clqfcSxFjJZaTzXOIZxlmfuujiOlQ9o31
LXzEepsTUjhAEYdz6+zozxBvN88TfKFIxDv77GiFUaRJ+0cNTVJkwnzsnxGV
UcTdqt+ePUWR2OKsrwc0RlEY9bO29QxFEuP7mUx9GO/ac/7yPEWydMMHxZmj
iKWUxlWXxKQ6/OLmtOBRRIuLa52Tx4TZve3gHBviW4SOsoqYPLHsTWLjUdT8
LTswVQmTBhW9d6z4UcT4SccxVgWTnscP4pUvQT0TySITDUwY0t2NV3ngBW1V
dX1MrAu0AstUBIjxZ+dg2g5MjLPl9J6rCxAtYZKcZYqJZvrMpy4tAUroqw/K
24nJdHS77yIDAeJVOY8XIEzuOHG83c1gPv+D8jkLTBTFRK5zQQLUHOi5r9cW
1pvsVVJgg/sGxmvsMOHzG97oUQIUlrX9zaW9mDx/e8OJFSdAZtkuthYOmETf
3W9//U9YL+J3xTgnTPp9eJY2NZD/jmdfiDsmja53JLwJzH/x1ExjPyZVdpef
RNRBvJVf70vwBRNslvsa1qNi6zQ9MbFarm8qHID8nlWWhQcx2SypPCMxLECs
hEjK0guTVTNiNT+PChBXk9/VA/7xudvEfBLyce2dJX0wKarNMLokI0RmxVaD
xocxya44NVa4Qoh4M8rt1eDE28FltcpCxAreN7vDFxPvLIuNw6th3CqaNvHD
RJ49uW6HsRBxOzNC5Pwxmff79MVxO+SzaFSIA494tPz3CFOIGBpe9DC4zqpI
L32PEIXdXLCvCsDkpIbPmg8HIf+c7PktQZj4sgzdeg4LkWZN5KY0sMMfYqmd
AULUHKCq8x6s9+W66FWYECVcuD8bH4yJgvoJ3RcnYP2IhIGX4DmH3R51MWDJ
DSuVj2LSVjHMq0mE+VZdUflg3lD1t/scqM+54tp7cJHqWf2ydKindY3a6hBM
/pOw4fytbKhnbdRCJph9b/5pQR6MH2QebQB7fG6azCuA/fDcdefBhnsjfC4W
Q7yyXZpXKCbq8RaZGWWQ/4j0Ng5Yqlzp39RKmJ8/ZFQOHvs0OJ30EPrn1hn/
Ftyn8uDX33kw/va12iy4wTbF99Qz2L9RnZTGMUzux3lknWyAfFtLLHaAuXfX
NUQ0ganEJjdw2seZuWNtkG8LKjoOjvrp1abgdzD/fGdHEtjP5qr/kT7ol5P1
vhyww6njOT4foR9SHI3b4N9KzV55DkO/FmVvqwLrDciLuY3CftzDrj8Fyyt/
NHYag/2+lvNuBM9aVwTtnYR8M2FBreDhmKRc61lYz/DSk3bwiNv6oGsMGjFi
Y0I7wIdoRfHVEuBizYA2cAdn9kquJI1YrimlTWA77cEtqktoZFZfvqcezHv0
qukvaRqFKRZsqgVvdasMVpalkaa0x9EycLHwqkTmcpi/s3vsGngN50zeCgWI
nzN4mQHOXhNmkq5EI/qA83gMWO7R/hYZFRg3cAnxAye67grhrKRR8/wWIxvw
lOAXSSl1GvF0GHYGYHaKQn7iKhol3K0pXwb+pDWzTVwL1jvBPjoC16fZpTF0
ThfqKRl+kQfeLahYHKsP9Z+pC6fAj87kcX+sg3yH6oJ3g2/VsNvGN0L8Kj/b
T3C/qLu4s8M3Qz/8NYxKwRdG0RKhMeSP3Bx6EnxaU950ZDvUN13UtAD357fq
qfZAU9hPy6ZpAj7qPHB8kAn1bXc9EQd2Tb53/b0Fjbi1xIuG+9+A7yrTaQ/x
jzyn7sPzUuWyl6SyoJ7cAw4eYIvH5hTTGfJrrIudCsTEM31j9839kG+i5KAh
mGO4tAj7gf+WtoiC51UpZ8FbPwD8XdtTHMwVm1DoCYL51dq2nCOQv3UgxoIN
/a2MvH8OzoPP+JGtQjTUs1iyNgzOj4je8vlnsRBvPsj9cAieT6vC8ujTYIaU
tyNYSSVL9cMf0L8NzYFacB5ZVB8fKU0H687U5sN5xp1bk2p/A/Jf0CmShPPR
IGAlU+wWWHvA1tINkwevl49VFEL//L3q410xeZ0/66FeCvWKn/cadYb1dnX8
8rUajI1/FLBgv8mcFylNkF/V3iDKBuoVxMeZtkK95ofqE/dgEu4euYlug/rU
KnanW2OSou+X494F9vb9+pcVJpUNpsF6g9DfV6LepF3wPlhOL6mbhus7P3Gv
cRsmrY9Tz9jMQb9tnG0emsD1DdVd3LQA62s8Mbi1Fc6rBk+JrkUixDit2B9p
DE56NieUEyFWtcv0942YrJi5PKamLUJ0qqMLpYfJsiGrHspOhMyWyy4+Bu/H
xkvvPafsRYi7mSm5eAU8/5ax706zwPIdXrlymMgU3O3guIpQ2NpO9X9kMJH2
UmvJ94F8xRd7R+B9u+QN/ewlBXbRrCfwvl5ErpRq54qQpsJlj4h+inSZWu7p
vwr1sa+oX4Dvg9Ia/vvL1yA+2udNCXw/eFbuVFC4BeNllav6OylSdqcfM8rB
cWeZas0U8c7V/q33X8j3JmCLOI8iVdFFdVnjItTc0l+fkUeR9Elnr30TsJ+0
eJbjFYr4nZj9LjsF1mEMyORQRC7cfm3SvAglpBfqnrpIEf8gIYdaOgbzpy23
n6VIj1SIDHPZGDK7PeTdlkKR/wEXH7zx
          "]], LineBox[CompressedData["
1:eJwd0ns4VNsbB/CdCOU6RJQQJkoS/eRyWEgY967jkjvxUC4jqU6YlAghHIkK
SaUSoSRaCylCpykpFElIZyJ3JrR/a/fHfvbzed7vu9Z6197KPqF7/PkIgsjB
D/W+1pF1JkpyEozbuvc6nY1Awdtru4VtJ0GYsdGKDscIVM/pvPfYfhKwlQwy
zewj0Ooj47EBTpOg3i3do9QmAqFiNfrz/ZOgoO5y5aldEUhKNp3F9poEHN+w
kF+GEaiW57dqLhL3e8JBlloEWoXEjAcLJoFT88gP93kWusvwKYCzk4C4+3bU
MZuFtmsqmwDeJFDii+TYZbIQFOv/iBZw/WUX2yqdhTgd7rINxBRwCjF20Eti
oWl3l9RnK7ENhSt50SxkwnI61bJ+Cpjy8/mu8cf5XBPnt5bYlwyP1G5joRmu
vMRwNs67XYlvbQpHD/daLc+ymAYFqvolYjAMxVrH51cNTwPT7KqIGWYoUu61
6SqKnwH9eYvqE5JHkOGOs1lyOrOA3ZKoczMiCB1c/5q3rGMWFGyrvb0wEoBm
Wi8MhJ2eA6Zng67+XOOPcvg9ju5RnQdsW/7ptmM+SKrv4XW+JuyumkPt7z3R
lwC7mJoP86B9ZRKpaeSJBKJP7zMI5wGCdismKtYVESUeZQO0X4AoXHbdv2k/
YuWWXaA1Yn+UG7Pn242ebk4UkgxZAERund5YNgNJ2rA048QWAcGphmGl5qig
QXyVoSR2i6rTzYvmSNug9PuEFLZWj+bPSHPkoD5y01sO+wsaemJijpJWeCib
qWIHr1AxemOG+J8xZAhD7Jq3a4d4pmjWSJmI8cf26YlUrDJBn7ZwOk7UYXcl
9djf10f5XMno5Qh7+92L7Wf0kU/JXvqFBuzFsFuhLvrou+qH4wUvsA+dEFcR
0Eeza/sUmjnYljceAI8dSHLljwDpIezrJwSZsnpoXcPUPoH5RWAy4zgOprYj
y2HBxfuiS4BI0b2lXayLhG8wivUlsAnTMkasLmr3TnZopFH17vkEF120t1es
sFMW28Ik8KiYLvJ6t9pyURm77oCz6Ekd9HejSjpDD9tH08zCeRsqvwZUBz2w
ywWtON5aaOrklKC3N7ZTj1SVkhbSY97i9vpij4dd6f+8BdWKi1d+CMSez+BJ
eW5BL9h9Zm0sbBGphEEvTfTRJ9qz4hx2e3X0NtYmtGJjbS77Pjb/oGF2Gx0x
lofGLJVj10cZ5mbSUcrnDT4nK7HVaw99c6MjyZwkjaOPsdkbrdxH1dA6YdfH
AY3YEic1qqXUkA53vtPhPXa61ccNISrIvUxPUuE39l+vrVtdlNAj13kxDvEb
18uP8ehKSGzFE5Ezy7ETVzUsjiii+oPGQt+FsFvoqTRlRbRhpQVZJYVdXtJu
cVkBDfvtHrXTwB7pFqwokUcmElJccjM2+2U9dJBHl2rfjVRoYfcH5UZOyyFr
mvPgmu3YSgumX8zk0B3k8XHQBHu8UqN0UBaFyB9+eWofNpG6d4GxGr14vqV5
KxNbSCU+jyeNFMN/Ng24YDvTG7+WSCNOM6ve2hO7/mFdsIg00ok8US0dRNlF
dn83Dc29Pld8LxbbKyfLP0MCseMLT3+6g12QfH8tIYxEowRtvEupeRRWZaYL
odzAI7ThMmzTS3SVDUKo0tag6GcVZbIp2VoQDUu+aeJD1DwWh8KvCyDba4SQ
Rgc2x4i5PokPdaUd4pR2Uo7pGN7Mh/xOt+fodFH7H+1H/y5DMX45Gn/1UvP5
uhXKLkPlm7RtHb9R9/HDZsNhEspUe6ZGLlD5iFAtm1+w6PbzA7+WqHkm9hiX
8aB27mbFWILE9xvY5CzDg4zoubJEAWxT1pmy/+bgqZ1pb/LEsesd71TcnYHC
/5u5rETDVlrtsqg0A7Ppbj7F0thER4hlzjQsE944dV8OuwDu7kyZggOvoXSj
CpXXMiq7MAFDG1R7LemUpdNe0SbgYkVScZs6ttfair7L43B19gG9zi3UfpIW
N9x+QuuDY8yRHdT6nLKMbi4sHVHIE7OjLHEsJmkIJl6N9+pzoDyyOFM7CP32
jKrd303NszJqbuIrXFdXV27PpNZTfxATPACT0txepPhQ+TS+1o2fof7a4wkx
fiTgL5UROWjUB815m3ZrBlL1BbV7Zz9BtcH5ee0jJJj4MZA+YN0D1eu8f608
QYIe0bPhjQGd0IJLVPf8TeVnZI7vfwczzNnB52NIYDG4zj6N2QEza7IYQfEk
2GYXnOMxxoEVML9dLoE6n/AxC3cOTI0QzPh+nupn+ZgP/wsPXQ9nslNJ0B5y
TEFdoh3uqxrjHr9IgsrbugSP0QoXLW/eUv+HytvQN2m3wKrySJ2WXMoGyYT2
c/joTasG7SoJXrXMuXoIN8Fg+V1PAwqout6OuqBGOGCc6JteTIJNhaGvuqTr
oRTLVcTnNp5PuM2ppP4pTFlR89L1HgkOw7Dku2lPYDqz0t3yAdXvLKfY+wge
d/QSEa0iwVpL9uClsSpo3RA3MvSIqh+uyBSthCJM350jT0jgdHvWIzK/HPZ8
rtHfj6j6u+ZEzXvwUZbyb9VGytJqXFACMxjnn003UV5DNz5zEzZVPLB61kyC
1uZ78qWzRbA9royr+pIEnTt3dfK1X4dJ5eaVCW34vCqREVlfCqBaYL2U3yuq
f1xB5cU1KF8d7bmeQ4Kob+o1/h9yIU+du7W7gwRxU9nzqb//gY/Pzfl2dFJ5
L1ZaXia8tjT5nNZFgr4wZ8dnahfhSD73Rn8vCdy7ivP+MkmAtsVaVeZ9f/63
pasXz0G6a/YJ2hfKpt7vteMgn/hvk4GvlAktnZpT8HXYtEfREAkiR4llNZeP
w6AUpaXz30lQlF2a/eBoGIytLWxcxyXB1K0rDN2KYDhRde6/tlESuMgwP/kv
+kJmfuzuHxMkOJAc42mQvw+q2x3+XD/9Z/3ggXQrGKAmnx4yi79fXJhEjYcp
PHrFanjvAgkEhg1H3+msgXVBRVu1l/7kveRfzT29pLhqhiT/mCBMjI3/Dyvh
ufY=
          "]]},
        Annotation[#, "Charting`Private`Tag$16209#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0wk0lGsYB/DvJjWVLGWpiags3e4kuUXc4RWhrqUscw0xZzASEZqSJSFb
xWRpGuZeyTL2pkR2fY+1TZZUl1KaVhLhaiF073u/c77znd95nvd53/d/zrfB
K8jRZxFBEDH4/f/7u8/Iw+YPPqbE/48n71bD8bOLXSSGSC3Uw0uPrkcObB29
HB5iiXKW1iWNE/tJiqNeQ/WCC1KRG5+ykoSQNl39lZfXchBefT+ZfZ700fTO
3QOHUFPNxOikVQZZ/3f4wMnuAKQYO/Cyh5FLjsY/bvcUhOD+4LdfVMvICsMF
/Xnl44ib9Vl9XKWSbLeg1rZlh+L6mhnGL3WkRVaXu1dXGLrnxrM87U6S2YvY
pVoFkbjuzIhoaiPl7I055xOiULn5lqlh+h3yuEJM3JhvNPrEvXLoPqWTnObM
SL1RjkXag97pAlEvabU42W5mSRySrvzoQD3/hFQ2SLLgrY1HB1bfrfyXP0De
3W+hH7EqAclO3I+sEg6Sv8uV0cnsRLzfdb+V7hKSzg4u95UkovE1FdYR/RLS
arhBMqF+Domd54+Gr39HBrBYlUme53H/iT8t2odJ8RX772Grk9Fc5SDTiPGB
vNcq3Fg0n4JauDabbk2Ok63GhYJ8/gW0icnbEvfvJGnQGT8VkZuKNloWS40G
/ENqzHx+oOmchjYr+nUZvZ8mdxjQeK6CdETEcH/sePCNrEkLrHFQz0Bl6iO5
bVmzpPm1+r65lxlI3bkgOsNgnsxV2p94fi0fn+fgiwu+BNQJbi/WYvPRrGxF
1fRnAsKkOJ2HSy6hQK8KSZtICmS+hEQ3Zgvw/Je0xlZpGL7acCvJJBMRZpkD
WfSlsE8zNXhFUybaz6p+pBlCgWeZ8XujPYToyOtud4diGXBKeVFT1yzE64PK
jG6uhHYOnbFpQYikKzJU4zxk4W1VbYhawV+IkBxa4cJXgOz6Yutj89mo+Zmz
lGrLanC4+MzfXjsHn9c80iVPCeJ12JnaFTlIWd+zSi1NGShSAcPvfa8ggk2j
G/2tAn6hywV+3Fw0+1Wz1reQCko/p+kyBXmIyA3OX/KrOuyK7Fyq8yYPUQOP
i5eZaMCkZCBA0zAf38cvfXJaAzqzNpRP9mOzrV91sjaCvdzUnvjIAlSZJ6L/
OboJFrnYFtzcKkLMBZZGu1ALBqqYFxq4IjS6W/h1o6029CUEfRi8I8LzDjJl
dHRAU4pWrhtaiPf/eKxqbjPcXhDpPu4rQsSBiG9PXtEgiB6XuvBzMe4f8Noy
shXWRHpOasdiN+9KL57WBb8ZtcrwbSU4vzz9NTw9kJkW7FRPKcXzvpoueqQP
1dtPCPa+wQ5uoSoe+RVYwU7fQozLsLVOdknvgOvjcvXtI9h1e5KQxU5wHDlL
97e8igh57w/uQ4aQ9SLCovrHNUSEveWbZZrAblVX0RDjOs67faHFzRRG3Qyl
KWLsydi45RsQrB8L9xZvrUCEhuW7OTczCPIz0CKeYx/2la8nzGEV53pJ4a5K
3N/L0UyzhENx612NOdgSpaXRFCtozOct60nFztYT7TtjBZxXR/xn3mM7Pzq3
PcIaqlmbaTaXqnD+cgJW5D5guuZdn5y6iYiSjMKGNjuYGHRenk+txnk4mz3c
Zw+JLIqPkwU2s3T39of2UOUdRK3hYxPWpj1v9oPsUZOESMMaRMjoZVvLOEDH
maduS6JqETHPKDVhO4G7NK+6thA7rcBOLHaCf5LM5P26sU9RJe1zTqDBK+7o
VK9DxF5a0pjQGU5lntBLb8Wu4LZsHGKA/lWFJaqUBkT0LlM5kMiEe7od7C49
7FPmo45DTGDfCGs87YrdXWNFGLoCr+Zl8Ksy7LuDugdHXWGkWTxYZNeI72dU
ouR6EHKe7Lux/WITIjSvEY1/sGDFv7Hu1usBEbssA7r9vCDLz4VFs8K2cyiK
u+IFmo9pbIWj2DnUnJQnXmBa2u89eAt79sKU0Nwb6ksF1bW6zYiwurO3QIMD
405jTTbd2C8SdcPHfIBRktnJXdmKiIGvnwLa/CDb44ztoQ3Y8drscil/eL0q
sIu5EztxG990jz8ERZn3mHhgd5kf9L7tD+ccx/uWirEpj74XdR+BW/Pmz/6y
bUOESLqOOhEIWg6fRtqS23F+L+KGDUOAGm1t7JuH/dsfTgnsEJAX5yYvr8Uu
2W3JOBcC3ylOug6vsR/a85MHQ6C3uZY7tKsDEYw3XxzOHIMIvdgfM+86UIzt
DmOrp1zollNU1DW7gwhqh++Dq6EQW/L0NzX5u0iFbe8SmhIGJ7uNUNbne/h/
qU2XHz0FsrrV7+5R7iPiYpN/4booEPH0UuZUsR1binzsouChrc5TluV9FNNT
Qj98Iwp+6VTkagmwf0Slnog8DS/vTBRVGnYiM7eViv0rYsC6pVC2K+IBIm70
3UZ1saByU2Hop596ULNlBMfTIQHcU+ac3yr3IGJcfrXCsQTI57zrvE3D9baP
uU8zEoCmVF+fzOxBMeMpttWPE8A8lH1JqQLXZ/tjBK6JYJDtUsTf1ovM1tD0
F3yTwJNV5FEy1IuIHZXzZpnnoOa1xYMeeh+KeX4WakwvQKv/5XWuY4+R2UUb
N44xH75om8iJA/tRjLKFmrVQCItmy+XXaT1Dk6nzszaLcyFxS56ySPAcaXw/
fKJWpwD+A2Pm1Sw=
          "]], LineBox[CompressedData["
1:eJwVlnlYTG0bwBuFyNamVCgpSehNZEl3iyWKt7TIVqE3RVKJFlIoLZIQ0kIq
2ixFaZk55x5USCshpJIk08ycM4lKxfd8f5zrXL/r3PvyPEdrz6Et/42RkpLi
kef/7/ht1gOxBa1geCivJMwqC2sjjeur9dtBc5HrolX3b+PsxN6hPHEH8ANL
TY5fzMfegfa2N4ad0HF0/YP/nO5htoBbMyXhC/ScX7vjHBThlJk5TFdXF7QM
rZr+wvYhxnuXeGbM7Qbh8Jf5rotL8Jd5QZdX+DewnqJ/LH5eKQYaVRZPf9oD
qt2iAb+OMmy/V3m2SUsAMR6pnqfPV2CjSEZoNE8A7LPpzfmXK5BvsNY2yUAA
ejIWrvWpFZiRXzVpq4kApD6rl0/IrcA9t6vPtdoKYJBnpWHPr8Du9OfnvwUJ
IIKJWTKbrUBRfO2l0ToBTNuxKD7dlottLyf1u74WQE+n6hSLLVysn7jJkd8i
ANmLA4YdW7l4L6ZO6fQXAWj+Xr5Rfi8X/SLrL8sOCSA5LdbNLISL/ccaryrO
7YXligzFz+bi8P7m1PmhveAyzKLNIBcdl+26sCi8FzRVTy4eO8rFO5zuM0si
e8E6QMWrgsND1+QB/9UJvZBsba+nKsfDx1Vq1vaZvfC8XuFCxkweRmvu7g+u
6QXVxgtenRY8VHwrsn2uJiT1z0pVjuahz82jlnWzhdDT7eZveZaHlT5/TV7N
FYLL2xMP9p/n4VFpee3WRUKQNbh64O5VHr43NB5iLIn+79D9wzk8vHE29JbK
ASHkphxZUPqMhwssxv/x5AohePrc2ynSFBbmF8xr4RM+aJ14fDyFxkp29huq
hZCRyBa5yFFo+i05e0ET8eeMCX8VKNx8Tt+G7RZCSxDlMH4OhQHvNyWHKIhA
dt90yxEzCn9Z9j0WqBAONZ8bYUnhsTtXenfMFEFZt4vcn7UURoa3m5npiUDq
nFHrN1sKr+j4fx1jJoKIzCDjw9spLPdPMor3FoGXi4aBZyCFZh+X7xz1Jfaa
4oZigih8suZTlG+gCMxvrUi/FUphjYrue7twERhaWO6sjaCwlSoNV74sAs1C
N5+GeAqlJn6svc4Xgbt164m8LArXZ2rtK1IRQ/KIbVlqLck3eYputYYY3C8s
yq6tp1AzYbjrg5YYvMJ8ewcaKfwd8maPjIEY2IfSUavfUHjXPtZ1q7kYDA2s
iiM/UajIkTiNeokhUbopgSMi/gY+KSn4ioHvd9HznZhCobDmte5hIs87FZ7D
Uljdkm1vFyaGsqDfvsv6KQwpdNmUdUEMPXnR6lOHKWx346/ZUCEGc/e6w/nj
aax1uivtimIo3PWjWHsCjWU2KU8CKsWQOzlU6+pEGi+aBJqn1ZN8St8E+Uym
ce1UPVOmUwyNH6SGGhVoNBqrPCzdIwbVknWB6ko0zhrmVKiKiLwryrsr0zjY
/dHEckAMwY1y99+p0FhAn19yWY6BQdNDzhEaNCYXH+/Lm8aAX0hMdepMGiPz
vYtoZQY0Hd/aFc2i0fWK1eKe2QyUOfgU1mjSKO87oL/KmIHnYtXTj+bS+Gdv
1/d/VzAgxbO9k6lDo2BbU66HGQPuDcKeGF0aK9cW6CZYM9DxbP81Kz0ag2a6
zfm8kwHrlxZP/RfQuMfO0Ll1NwPLRwrq9A1o3HyaE/fOk4HGMfpabYR1v2dJ
6vwYMPTVuLlkEY0KGkd0Xhwh/hpCat8QHt28bltlKAPTOJRZwGIam4t7+BWR
DETUDP28Zkgj/1t5f0kskQ/mrNT5h+SvdlavKIHkryP3NJ/wqYiFiTnJJP/v
hzOzjWj0ffjnaWY6yX/XuEHVJTRu624YSM9kgD3PuRBN2NA2wC3pDgMu7rVn
HYxp1Ai3unS+iNir6RcWEh7/QOlZ3CPi74JJouxSGvu6vv6O4jLQ8tr2yHbC
bSqli07yGSjcJ0m9TbhmY8ye41WkXs3d0iLCJWHbrgTVEHmnH3cWLqMxo1C/
JqCB1OvT5ytehOO/DI8ebCb+5U89TiccPL3uH+/3DMj+m2tQR3jvhuv/ebSR
ePIWtvwivPn4oWtuXxjoETJP1UxoXHnfvG57D6lPShOznLBupzzHWUT0ReU7
7AnLK38xtu8j9t8ljfcgPLK+2Mt2gIFgGYcffoR7QqPS1o+QerV8nxVMWOC8
wOumFAsdhxziQgi7s4pjZkuz4JWRsPQI4bexI6lpY1kIHryueYCwjfbXpWqy
LPhhvM0OwnxeXcPViSxY//R4tJbwMudH3sqTWXi+ZcVufcJ3mOvSl6ayMG2D
pu0EwnNio9OnKbCwnLM0qJPklzzHzyRBifDOq50lhKfwXJrkVFhI7DuQcJpw
pJPFgdgZxJ9ia6gN4SHx/LHjNUi8lcq5kwn7xijciJzFQswTm+k1pP5dWsPL
x2gR/bCSqgjCjY61PqM6LEQcnfG9lfR3nbh43DE9FqTUU3adIsyLTs8Y1GfB
znqH0hzCORW+zT8Ws+Be2L7BjsyLhuNWX38j4q9184s2Ml8XyVHHGLNQdtg5
fh/hE5rypoIVLGiaVbTtI/PYXz70Zp8pCz1133zbyfzud+g89NWM6IfZrbEn
7HTmYVaHFQv8VXl8bTLvBkInuXebiP4W58mRZF/KHG0xzo4F2YZL6jTZLyvK
8rCZAwuNuSf9JPo0bk9Y/PGWC/k+L1piNZ/GWMMJBYF7iT+fjfuSyf4qXfvr
qufJgvkC5nEa2e8Mzi+FVi/SvxK1/SnaxP6rzlArXxKP2/fbJ7Vo7A7kbVQI
YYGV/i3+S86TgE8P/lQdI/q/V7+qVyf7uTbvQcgJFgxD/eWuqhH7KlfUPp9m
oWWbfaSiKomv/JDgfgLp97r+Ih45zzJG58RtyiYcx9NsGkfy85xhxskh82Fy
bnjpWBpL66f2FeeReCaVWiRJ01h/Y2Sbxn3S30qL6auliD+Lt/N7y0l/sgom
mQ9RuP1M7IuYBjKPSlG3Jgko7BaHh5m+YiF3t9SwbA+F/luP/sM2k36ZzX73
5yuFMXp7r239QOp1vV3/3WcKH9WYeut+JfMXV3V05XtyH0xlZSt/s6B3oNCj
rprCV1Rc9IZRMn9C76T4Sgov+uiMa/hL4vOwWr3uCYUKNdulP8hIIHh8EieP
IhxVNcpMkcDzJ0tiDIopnDac0qeuLQGX+VOXLcygcNK3ta2HbSSwPHJAVZvc
j7WXO7YPbZKA14My46X+FMavOfb+hB2xVxQ+0dKXQrnMwrexThLg12iJbLwo
nLhLvemGG/l+MbRecyeFsq/ZqpeHJWDu/XJCE7mvZTD1vnaaBHqUGsx3TqLw
g+ka6/brxL9L+q4wWQrvVwg7Um4S9jHNTpYh9Xu0WkEhRwJ2sct41AgPi+62
B0o9kEDH7g+BT4Tk/ydNe+WnZxJoyUrhlL/kYVlIQeWVHxJILrnHBETx8IAx
9/0Emz5wd4uZ1N3DRX7jmztlmwjPHJxQ/YWLygfZ8H12fWB+7bb1zTYu4i0d
3SqnPohZeSl5QzMXFVUSAyLcifzRCsFu5CJ3yENu4Egf6DllpxUncVEOp6zu
yuiD5HXnE0dWcbFgw54M+lcfWHeOGe0Nq8CfvWrTuq/8gMa9B7Nm95dhicN6
6aQ1/RBs5F1+SL0Uw62jbhR390NMzs9Vc9aUoNanjS1ZUT8huLJ/o8DjIa40
iUyaYfQLpJzyo286FuHOWQ1DnNe/wN3xTKXaq3v4s+Zcp9/JAfDzd2xWoPIx
WcY1cMvcQZi2u56Wn5qDim0lmWMqB8HObLj+1fUslDpl8kTjzSDwFVc+PEn+
1/8HIohJ8Q==
          "]], LineBox[CompressedData["
1:eJwd1Xs0VOsbB/App1Buo6mDXBohl5T8Iqm8LiWTUuSHKHfRlEtSqMHkuIeK
rnQkEvVzC1HRfoZcT1rN+aFEJjlyabpJh8Gwz7vPH3vt9VnP+3zfdz97r7WZ
vqFOAYtpNFo8vqh70z4fc5c+ERq8NhBWv64QaPc9K4YUZ1G+hlUab2sOhOdU
ZCg2zSLLzW+Dox2vwDODFCl6yByitfezTwRkgmn3ry+zwuYQj2yN+GCVCZWc
4suMU3PIUnk+jq2eCQUvW1WUouYQV/zq/uM3GZASusRQIx7XH/Fqd9lngFN1
vKPhNdy/tOAXHdN0GDWPyWEReP051Tml1WlA3xO+Pl5OjCwzGLxEzSTIb5Rf
bk4XI+5WYlHyoiQw2lo2PrECe0bzef5gIjjojt3zURYj2mqpLrXbiZC21JNp
pYXdbZJsoZYIvzxnraKZY3/u01dTT4CpbUxabIAY8XK/swKM4+GdIb8rugHn
LQtoDrePgdtCeowEYN9j2IQpx4Dv/YM6GY3YpaLcm6McGNd6E5XfivMm/EZD
EzgwtVqg1sbHdSenjQa8c0Bf9jmQ8RHXk7QqBegsqDZOOi8RiVFixI6kp2NR
YDsiKS6XnUfcBMF+O+9IkL7LKjJTmEe0R14JLf+JhE6fCw5Niti0kq4QyUg4
OCB3p+dX7H7UtqviDHh3r7QVM7E7Tq1ZsugMnGtae4llivOOKRz5ozQCKvOQ
1rAndhZDP1w7HCbPTkr6+GDX1LVuIU+CqWuxcMAPe7qNv+7tSaiXl69+E4Tz
nrTqJ2echFauwOpFODapP2QtCoN+3xivqiTs9cEqHv8LhaXr6nO45diRijbp
3seBJREaO1+Jrc7dVa5+HNLfa/qercZeSGnUGmAD/UaaXsRj6nke0uU92KAq
7f44sAk773x0r/sxMBaKehxeY4fT9beyA+FIhSldbQF7xDKE1u4Hte4iOT5t
Ac8z9ePPC34gt/SpzG8S2Lq91fYH/IB3eIfUuBT21CBzTZ8vaC7bSdaswN6W
2en7wwdG/B2/7NXDZi/vsjbxBguFFULSADur0bl0wQuu13ePVW3AVtnZdzXb
C+wU3YaVNmPbFXyoBE94AJ79wxbYnLXSEswjEKJyooPjjJ35UGFa0h1aWwzb
Nrpi17IkzUsOgcbJb81Dh7AF0WE7WIeA3xbOs/PCNpX5nJDhBsano+sYbOzh
gVt0DVeYfpVUVBpH7a++TxTgDNzEO+ffPcC+8mZSTmI/yEZK7vEpw1bY7pDI
cYCcoGDFkQrqfO8GLab3QbX91sJvNdiXVn2L/r4XRuh/Ni8GbCU9dYkfe8A+
jyal14U9SGiJjHZD78Wj/LIean7lh9mELfif77xh3IvdbqiktM8WYv1v6G0f
wHbLm1gbsgsq9Y3s949id3qXfiFsYFWdV+bpOeywTR2tOZZQWNLiMjuP/b04
vnSbJRjlGGjE0Uh8HnF4Sj0CVsx0RcoSbLeBYVl7C+DYXPwzVx7bzvdOetI2
kDb5++YaRezvnSmO/eZwTcfDt4iBbTa4JdTYHCqk102WK2MrZE+Uj5rB0CuC
0bQWu0S+gRFiCqH4K7PVofLtvkb0mIC4Kq3ohS62bu4RJjKBlddcTHsMsblX
t7spbwa7w19dx7ZQeRoXZcc3QdmYWq7cXmp//XzRqAGk/J7oLXDArhQM1vyl
D/5OX7TLHannsbnzflgPVBsaKve5Unmxt4Km10HaRY/WdF9smuvMzcNaYLY6
KjnWn0QaEo4hxq1rwXpG33F9EK5berP6yjVBe1gkMgomkb1xeq/Qigm6DT6z
y6JJdDzHMMvERhV2Cml1feeo/NNyXkMqkGXNPZ4aSyKHP4g4m1xlyH5yhcVO
JNHXl6mv6bGroIq43amcTOVPrdrZtBIyT0lmjadir/l/YEMWA44WnHTlZpKo
ZdLF+PNTRXCu+SqMukwibd2zHgey6SC2vVese5XqV7kRs1kBaipPG7fnUPsz
G8rPycBl1W+ihrskGk7u05TasxQWzDiyb0pwnWd798y4BHAW8dvdS0l06AKs
n5NdDJdcq4/YPqT63We0N5FE1H5vGdkaEt0M7i7e9ruYsGuMH/tYS9Wf8QeU
ZwkZVz+bsackevCpwJJ4PUX0vX9i9l+g6haZ5sGTRO0V5oJWE2VS47dTE0QW
K/X5z2Zq3q872jd9I5qrHu5+3kYixnWXY6heSHTGVwi1Okg0pKqb7aT1iUir
tK5OfkEi0ahZFT9plNAO4q3wf0n1K28p4HwkZnSFG992kchccMowdVxAPE6a
9uvqoep7nD3z+om8+R8tir34/PY2pRtNe4mx28K7gwMksrvxM+JRIp+wL9pQ
Yy2g1teutJXlEzru16IVP1A+kL9D1EEsll+wGPqL8t65sSvNxKuwn56FH/H7
q9exHnvQSLDT18ynjpOIUJUJPNBeR8TV32lSFeJ5b8G/O/kaYqIm6dOLLyTK
u+R5YUahjHC9Hef4eYJEgsjDwmrrPEJ374n3vJ9UPs2Kc/QyEaitcilkikQl
pkXZQSiFiLi1e+TgHIk25DCvzxr4Eg3swo1G8/+u3+6vYE1c11j+N0n+axpX
IePZPxhVD64=
          "]]},
        Annotation[#, "Charting`Private`Tag$16209#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVz3s41OkeAPDf0mJ1cYk5dNwqKvuYOcxiHOF1qeQS6xZKdjCDseVyWBHW
bVDjfmkokx13yaXcid/XMtIe0a7H4pAiW6aiWHl2TlHnPX+8z/t+nu/7vR0M
jHBnSxEEwcHn/7cjW/zb4Cu2FX4SBYcfWfbFXN3lvchAWdOc3Ce+ruQs9fWt
+KiTiPZzeWFa4yVSzt2wr3PHG0n099mGrBeQTuMzbbfUWQinr14ebiDZukHC
ExCMXDa/kG9RvUf2TsfPXp64iDQ10lP7vyXJ19wpUQA/Cv8f9KdQHpJ3GTv0
bUoMqq7opKgKfiVFdge6hwWxOM7MW6JMk3Zl436B43FotsNhIb92nhRIMW/r
VSfgeLj98RdLpIKLOYuXkYTcj5tceyD1goxRSklfDUlGaorm7/cHiMlNlkR6
mZKKerdW/xSsrJGndmWfkciko6PKCQFOdpskxTTLLledi54rHpP759st8qGr
Hf2KcgZ6IpybSSmUkI4KjRakIBP361h8ILtDWjAj74QsZiJjv3oTk6c75KmV
vsV32teQyoTPrYEaKbjo79+WFcBDRIrkgs3bXdD8k8uHuP3ZiJv439keexn4
ZejGobrtHKRh7+luYikPQ+a1/KqSPLSvvHaF070XTMe4G1eE+ajI0H1TR0UR
dCTvH+l6FiCG31NtzbNKYGxqkOvLL8Tz8KmbdSrQVXCpy027CLk3fvzxLJUC
ti29kx+fFaHgzz2tjiw1EKq6ZvLUS/B/as7GCQ3o4T/YpccsQZ9MW8YX6JoQ
J80aC224jpKlH5dI5nRgz1ZU8n0BHxFCpL4mPAQrTX0DWZalOD+jpfLJYXDQ
zY/c3V+K9oxOVHxe0IW5Uu7p5As30M5IJl3mu2PgkbPQ1TN4A++/yj5lpQ8i
loXX4Z0bSG1m+GX5v/Xhj/buKM3qclzvL1fqEBUEvfX2/9oWoCjVJta9O4bg
VjwX5nKkAhGLAiMbBh24R5mlR+5WoEPfiJ0dP9JBTvriysuQnxChsze0T8YY
OLHyfE60EIULW5Qk7qagql9A8+FX4ngWPesrczBLGJM9ulyJpk72shP3H4f1
xdmLuowqRFgradVaWMBY2cE76zPYwjS20TUrcFHYOMFNqEahoR6aPK41SHk7
V3dQa9CwcQxNcckGZtt98vqia9Blo/HEl5G2MJkR8Wp+tAYRcpOT1gftQFfa
4A4tthbXF7eZ3jwBD3ZqaFOTdYgocOM199lDhEV6/o5+Pe5nsJmfcxrUEgLW
j6Ri91ztYAY6AEei2Rb/jwZEhBa8m1V3gj2bfBPtnNs4P/jv0T0u0Gn0A//0
MnYKkf63Rlfwj/T4K8q8EfdLPbLo+i20rin0isTYD1WLS5zcwF181SLsZBMi
mG+oLuc9oGzhil3npxZEnBYUf7ngDTYavjVPvVoR4czcyIr1gdfnGF/KNWOv
O8VrKfuC1mp8UDP1Lp6X/Sbb9RxEcEz1iCfYZpWQtuwHyqzWhlqzNkR8ePjM
wywAgtO1fM1Z2Ge9P61eD4D7VblfPc7HFhnRSt8HAGvp+zDJS+zQYgedzkDo
9D9m4HS9He+zMqNgxwIf38rW9Y0ORNAKz7QXhcC7eU/5qgOdiIijjx39EAKZ
/nJsDztsyvWv8wNDoT0o4kBXCTYtL5dhyoF94ZYZCYwuvO/N1i1xGIyk/eec
TFI3Iv7wZ5xPDAd6k5KMhlwfIjy3gw7RouEX2ghz3BB7UjvVJioamPfi7v/o
i90m8lvoiIbcrmeRS43YmdyabMsYEA82z9eduY/nre8Vef4AFb873DMq7kcE
ONr23bwMuz+n+tlrASJW/8wwzEiEMo63v8Ep7MkpYdh0IuhOGTCVwrFzZUmt
Y0lgdXsmaH4A+4WO8dajJOi9ze/spg0i4nxTrJ9GMqx5rPY7TWB3JaYqvEoB
r4bSsei9QyhlWiRYfJQOggtpzsEHsc96yurvpMNz5UvjPiZDiHg/oNVK5UJE
ku1jywvYavWsmHwuXHNfm5Rtxj431r/slQED27Zz5c7DiDDIW/F5mwl6bm/F
w9ki3F9s0HGGBweS7c1DKrGtvHwTeDxQbBZmy3eLUMp3CQXZozz4IOdBc3uO
4z70r7Nss+HXwe7op2YjiCh/7vXmeA5cMUz9JHkxglJ2O9dxLPJgQkFFhWY9
ilLosVV65oWQGE8/z/g4iqzLGtmql4rgf/SsHUw=
          "]], 
         LineBox[CompressedData["
1:eJwV1Xk8VdsXAPArpV6jMQ0qhIRKnijJMlSKjAn1dCsaVDLlFTJVKkleA0KG
[encoded data, 4209 characters]
UCl+F/8Hbm31yQ==
          "]], LineBox[CompressedData["
1:eJwdzns01GkYB/BpRHKNlHYiKdUoYW2LLrzCjlFJQ0VKDGKO7tEaxSBRZhy3
dJMVaWjbymC21Ey/Z9IoRUtF2YpU0mQSFYUav31/+8d73vM53+/znMc6YnfA
NjqNRovGj/o1Fbom58Z+II9S11HGzQJo5orW1ptqEO2zyEiWnA+BnUZl7ebY
nK5hzfJ8CG+bxvphrUGpoeoanRt5cLB+bp6vM/aCYYYPPxckJcimZyvuOwgC
DatF8OXAl0lcLnbwopZXCSJwDqpUd0bi/rdGqyF3EciMjWuf8rCl5S6PHgjh
TmrXyqZ92H+la8d/zILnEclhNZl4/rSu3prlR0Fngawo9Qp2fID3Mq0M8NXa
LdBIsL05m5UPD0P2yzkRB2qxbVb1iUoPg8kpoW18Hd7nkhL+2P0wWEwOqYup
xzm7eIWXIB2c1CPta59gt80cPKd7CEKrnE0sx7FzFnSmnhDA1ZARo1baOKLZ
Czc2LxeAkc4Ng3QtbA89g8pXyaDY4qb7Xhc7WNU32SEZ5uh5k9Kp2FNCK9Nb
D0JvFKd/jS02Y3ODi30iuE+ZqiYXYfdZDu56wYeTsjZVjT12m53rEhEf2KbB
PTOWYFugFl5fAlyErc973LF76h8lVP0Ouxg77iWtx85GExnr4+FOw+K7DkHY
R7s/MPXjwWrvgPL1JmyX4mxlfRy03t2nYIdhWyqzy36JA6f9idfMYrHvu8kH
Zu6Dby2Z4ksp2HMCjRp09kBqRlnai4vYNk/TJmTxwDBh0iruZexdFwu8rHlQ
xNtp2luF7Wo+EHcjBmpXLy0fkGIrhLklA9HQa/JQSQfs0soIs23bYHUJTdf2
MXa40NInKQI6cqNbL7djD/n/vXZuBESlNZ9y6sA+RPfxaOKCIOqU7YpObMnZ
Od2WXJAsdFzt/47qu5mYFYfB9GthOfu/Y9e9qThQGwLlFxo2jmmwVVpDB2eF
gGPRIqsUGoloPGkaS7QJfJO/VR3Vxl6XF7IkNhiSvHIfnjHGDl7ICnXbCK9b
CLP6udh8/6V2rgGw+5ZNJ2s+tq5Fbzhw4EeNUNzExGYXbuWwOTDtxEbn9sXY
EnonN2wdsLd8DFK5UPNC6SpvP7issjxjtAZbcZ1x/DMLjv6REd61Frtbu2PY
mgVRAf3zrnCwU6MZyRt+Awu5XOIXRN0ntvvU6AXC3M13siOwG4fDJr/yANeZ
/COCKBLxNetuxcV4gOfoQo4dD+eluWXdegjm9YyMOO4k0bk9k0aZshXAlHPH
9BJJdCzf2FBb7ALeatq1Zwdx37FNrjnsDAWeqduzBCTaca09sjjxVzh2vdA3
NoNEfoMM5/gPTlBDnG3+6Qh1X5i5X4AT5MRNKnifhT04n94c/DNEn9sblJpD
Itl1cYLTBQdYL/2o5ueTyErJvxejWAw/WBWVzOO470H6ByYtAqlkv1NjEfbs
sYRny5iQbzEwIj9Poka2z9UEk7kw7ppk+PQCld8pIcysIWlCa2PIJRLRl5mE
+OpbQV5QbSirmrpH3G+hYgDfP9zAUEoi1o4vL81lM4B965Dq7VWc06TKrqLp
YBAU6aW6QSKfK0NGOk+mwrOX1103AJXLH3z6OAWuFlqP29RT+wribARGUOCb
dXtISblwjMfRB2VNtc/tuyQqKpwdEBisC82HqtQ290i04B9rA60xHRBKPGuP
NJGoZOUZ+9y6iTCPp5ga9YDav0xj95UOo0y1w7+PSWR3/mu6Iv47UZf5LfJx
O5WP9LYeHyFKNJ8bTDtI5CwyFw8WDROqs+rz3Z0kmqgt5ryt7idWi+2lnl1U
XyAt6fxAzA85kWj6inJjut6edwTdeNz99RvKrttnVbwmWvYMbS1/S6JqVcfO
7/rdRGz2bE3WexJ5h8GfspvtRIqsrN5CTaLTGY3eGdxHxCdpZl9TP4k6hnJs
fRT3iaCzKZwPn0gkLa5NuTVLTjDX7HipGKL2zx6NZEuImHmMvF1fSTSjdqZn
prKCiC/26Q38TqKcTd5+g+vTCHlsuYOjhurT6Iy9XOKklf4wSf5vWimz2e0/
b2o1Dw==
          "]]},
        Annotation[#, "Charting`Private`Tag$16209#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, -1.0776619596697401`*^-8}, {
          0.00036432384925595316`, -3.949198301711476*^-8}, {
          0.00036432384925595316`, -3.949198301711476*^-8}}], 
         LineBox[CompressedData["
1:eJwV1Hk4VlsXAPAThVRmDa4GJaVRKlRuS3NChYrcyJShL7MGiigzSZJcU0Ih
[encoded data, 5673 characters]
ag==
          "]], 
         LineBox[{{0.018527738344276564`, -0.00041773003312695067`}, {
          0.019628681609693666`, -0.0004756134233865339}, {
          0.019628681609693666`, -0.0004756134233865339}}], 
         LineBox[{{1.9730157104597952`, -0.0009689507773460448}, {
          1.9752885790904147`, -0.0007964286977211188}, {
          1.97771928062301, -0.0006332386697170053}, {
          1.9787207152144783`, -0.0005700720622687783}, {
          1.9787348917843108`, -0.000569226280091628}}], 
         LineBox[{{1.9878216550560006`, -0.00016158173214630978`}, {
          1.9892207977123333`, -0.00012246897415714203`}, {
          1.9897035508114822`, -0.00011015535555269906`}, {
          1.9897035508114822`, -0.00011015535555269906`}}], 
         LineBox[{{0.004330457838550809, -0.000014846056192396873`}, {
          0.005417489561734625, -0.000025033090059523033`}}], 
         LineBox[{{0.014153764658858663`, -0.00022737018734630965`}, {
          0.014805055429162054`, -0.0002517715721639391}}], 
         LineBox[{{0.03276828218404136, -0.0014909980158881453`}, {
          0.03877345108030803, -0.0021617249938721272`}}], 
         LineBox[{{0.0015835426096924678`, -1.374905672868465*^-6}, {
          0.002498553563646729, -4.068215166519451*^-6}}], 
         LineBox[{{0.02178799830232559, -0.0006010566950802598}, {
          0.022614659439428423`, -0.0006558439288847928}, {
          0.024392215195720882`, -0.0007736520106362832}}], 
         LineBox[{{1.980216524766344, -0.00048407907265257677`}, {
          1.9808195907502975`, -0.00045155375610930976`}}], 
         LineBox[{{1.9914196500123493`, -0.00007251247711881348}, {
          1.9924419094414973`, -0.00005415336285371146}, {
          1.9931356869355459`, -0.00004334729392674319}, {
          1.9933221566670647`, -0.0000406716808871721}}], 
         LineBox[{{0.02634958893945713, -0.0009189416682389151}, {
          0.026844438154139595`, -0.0009585319036565408}, {
          0.027669001512152964`, -0.00102450080184191}}], 
         LineBox[{{0.01625108857998861, -0.0003110981792965951}, {
          0.017175101510522775`, -0.0003521572669962225}, {
          0.01725222814019493, -0.0003557330701013939}}], 
         LineBox[{{1.9972083674759915`, -5.2885490990917106`*^-6}, {
          1.9979406775092352`, -2.5714605200732876`*^-6}, {
          1.9988593097021097`, -7.088262592358363*^-7}, {
          1.9993135319588609`, -1.8397797596492182`*^-7}, {
          1.9999999591836735`, -1.0776584069560613`*^-8}}], 
         LineBox[{{0.010452116315053678`, -0.00011400153348795072`}, {
          0.011449102014118605`, -0.0001403706337654853}}], 
         LineBox[{{0.03060659187613595, -0.0012818095295781262`}, {
          0.03149277197995973, -0.0013655199136426432`}}], 
         LineBox[{{1.9626724852278754`, -0.001988084649893196}, {
          1.9635202768839841`, -0.0018898709802890323`}}], 
         LineBox[{{1.9837694148334848`, -0.0003099548666902763}, {
          1.9848985602377929`, -0.0002633268495948471}, {
          1.9855849874626057`, -0.0002369950434770729}, {
          1.9859329599986912`, -0.00022422324607074273`}}], 
         LineBox[{{1.9955382299177344`, -0.00001592013712414797}, {
          1.9956089530489183`, -0.000015364263362110715`}}], 
         LineBox[{{1.9824060028682993`, -0.00037186035634391115`}, {
          1.982493904629403, -0.0003676419219766913}}], 
         LineBox[{{1.9707098218150039`, -0.0011626808300713165`}, {
          1.9711700157415382`, -0.001122502377022272}, {
          1.9716526097143128`, -0.0010811816135953833`}}], 
         LineBox[{{0.007984504445927354, -0.00006199057244988531}, {
          0.00918978315958251, -0.00008489074555839693}, {
          0.00918978315958251, -0.00008489074555839693}}], 
         LineBox[{{1.9676892402150108`, -0.0014453103320670735`}, {
          1.967755017501798, -0.0014388043978863507`}}], 
         LineBox[{{0.02514923683282817, -0.0008282485598813949}, {
          0.02514923683282817, -0.0008282485598813949}}], 
         LineBox[{{0.012881336336973713`, -0.00018358894598602404`}, {
          0.012881336336973713`, -0.00018358894598602404`}}], 
         LineBox[{{1.9871838999539597`, -0.00018148180278032555`}, {
          1.9871838999539597`, -0.00018148180278032555`}}], 
         LineBox[{{0.0066929997658162575`, -0.000040885619287500674`}, {
          0.006747386089046483, -0.00004165844332337798}}]},
        Annotation[#, "Charting`Private`Tag$16209#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0Hs01HkYBvAvbTVbrei0uyWiRc5KcxApxTs12dGSk2uZSkQs5Voh3Ui2
Oq4dreTS0hpC00z0G8k475BmMnLJUWJqZJpQDaattmixv/3jPc/5nOf56111
IMb7oC4h5Ff6/k+7F4W2JnaFQPQTO0zOHEB1XX2c8V9FQFgZ2j5JKHrlDUR6
rr4GpPtWDmtOBFq7m1UZymjn+pucMI9ExpzDI8Phf9I9+2qwxyHc3zBzG31L
gbxM9t0sjMLvf85l7s4vA+IWedMhNA5TGXWWF5eXAylQNHBWJqIV59KF2lja
ScHx5Z8SsSc95o1CRpuREEUeJ6H5HOsaZgIPiHAd915eMkqny5m9PRVAYrnz
vbefxkUf8h1MMquAPDtZM+6UhpTtsXy3V7QXDT/vkqZhYKzP5zinaiCaaHm9
7zkUjC1uaB2lLZTvKElIR+/RC5sjXW/SPVv8sOc8FrxIZlMzt4AYsfrfaDJx
i1FAudJPAGR0V2/g1Sx8y3Wcy+DTzu0pHORk40rN8RD+WiH9v5aiuTU5GBOx
3oI8p21j7/1p2yVcEiq4wdtQC0Spc8LS7zLuDigTaN/fAVJdM3RmUxFOKHwX
XDekgHiGHG2uLsLfAxkHfdi0o3mct4bFWBcSYyi6TDuM+/f76WLUi3ZOP+Eo
ArL1irGi8xo+ONvPnXeqHkjvR1MDzzK0u2kwz4hxD8imZio+nodtzAdBHTa0
R34T/3GXh0G3kxpPB9Deu9Fl7SwPs0SDsUPVtPeEtDVkVeCohK+o2NEIZAUj
b7uwEq892X7bNk8M5BurSLeF1bhwNnUvZyUC6TjZ9GqZAAsidgVa/0JbdPfL
x0MCNO+1DjKIpm1tQCWgAF2q+kIUTbRdzg6+XifEhqp8qp4pAbIle5NSKcQx
H43YvVMCKTGKyn1Qi343rrQf+a4FiNSXKrOisHjfWY+wVbRdBGEOeyhULYnq
2O1Ae81P53UyKYw5tbXLeR9t0DFkj1N40XusZz6f9nF+5SFKhE3/bh0o8rgP
KX4t/j6ed9HCa3z0fkYrpHzbp0mrbkTDMxyn8LJWICWqvUPDjajPL81YUE/7
B9uAVDMxTjF8mF4q2oy4qQslYuyW1B9RbngAKfHpk6LLTZhskzrz5TXtoyX8
7BzEzsVLlzJZMkjZrza7qmjGxM6NUPCxDUjwsWn7cCnqManXbQw5SA4vGzPP
kGJ5lk3mVyM5EI/RYVuBFB97WPYHusqhlLVz8vpnKa5pX3rEIp/eGz0tHLoo
w0HZREWtYzuYFtsNdNc9RE4zT68j+RGYwunQRON2/PGOgVJHpwtexlm6vjfr
RpGK/ahrcw+wYOdy93NPsSWyZEWAphdY/TLT7K4X+Gm182J+VB9InNu4Ya0q
1J2s0V9hMQBujof9zY6O4PrZIJHPrefAmuCWOLlr8NE5+06p1SCotV672GIt
muS+m6wafwlaxg3d2Icf8N3nQeUTGxUYTb1TzT77B8vfNsr1sl9BkuOwdjx8
CvWMKyfUajVo5boB/atmMDOCCis1H4Y7Qds2xo0QyYTsq3+w/Qh8cZ1WszN1
Jf8BbuxWYA==
          "]], LineBox[CompressedData["
1:eJwV0Hs802scB/ClQmo0qU5KLklTFPKSFL92wsvtSJcXJbctJEINldxGOK6t
m14z14iKZju5dqy+s1hOxEpm0VTqLKXrUa6/cZ798bye1/v1eZ7v9/s8hrTo
AyEqBALBDy3lLqmpD/or5Cc25aR4vzdPRZDiklHWIP+JTZfcvpGNEwSGMjdp
ZcYvzMQcn3TeNwd2O9KvrbGawPLmyYKl+TPgt753ekHfBCa4WXN4NWUSfj3J
HzmVOom1vHPcFP9pHFiLAmIPGE9hFta9BtaqP2DFcGOFSvsURk603jjY8xkW
J6Ue2nl6GpNq9fhjxR+AcCeAO6I9gy3/HkeNsX0HdDY3X1s4gwneL6IUf5fB
gy1Z6qSoWczLrvjOaJkESG50szRNHFvupLuKc18M5W1aS+1IOEYwG7qlVSEG
i52cjz9W4JiXtYR4IUcMnuTRauoaHDPgj3gXHxVDjmqAIcUYx8p/GgksFb2w
6JHrKoIdjgneDHTEMHtgYpchITkEnZeHBto+7YJX5uK+eD5yU8HpTo4IysZI
SQsBx/bUMw/nZouAduegSX4b6q8aXhgRIoKPxgPnykWoXtMZcrqeCCbWDus9
FiO3NMevZHYASePzcZ1/cYyhW9nXcrYdnOVqeB1RgRF0n6YtCBTCkpuuVbbL
FZgg1Dcq2kEI3dRcT6E2yt+e4s7oCeGgTPNG/2qUTwRZnpC1QdCLlc64Icpd
Nmyt9m+DBOGGS642yEm8/rJjAuCVYsbvAxQYY4Io1V/6AMbPj6tRqSj3XU+n
P+eDjc+tMdkx5DmRn6KQD61aWvUDYchXFxjyTfkgYgxTuujoPsfXS+beCkO0
pMB7mSj/NMPmsO+D6qZWNqMOeSsuSKE1gevC6GQFDxmvEg9aNEHeayPa+Xpk
P1WdqPlGILFyTGNbkE0jLe1LGmHdEt+W40JU/2peddJQA1iNTfV7SlC+mhyR
SasHf64NSW8O5d2XNevYPGjyndIUE+YwwpfZ2lMneaCp+veyCwvnMIY/yz7O
gQcCP3v1j+ooJ4hOZIm4YKThON+wAtmNd/K/wDqQB+//4mGKvIOoklBbC1G6
J/9JPIQMy17YVVWDqMP88TYf5NtRtduPVIP+6W/tI0eQTdwecYnVIH5MF7gE
IueUsi3PVYFVXHyzTjjyw3dmRw/ehMnezKq7KciNOg8xowpgZNxIfVWjnMfe
08KxGIhn1dyoHORDczGdL4qAHRapLecih89F7A0tgnr3nZXfGpA3Uy6/zWWD
nPSsXQWQB7Ol/LcscC8lqJv2Idds637dXABSZqiY048cxJAXexdAcGo3y0qK
PDLO3TVxDZKDWaa7Zcr5Xyv0bK8Bb7OF+74PyJLU7TGiK7CqOfBi3Czy+tIj
HsRLUHm7w3tGgfw5dL11LBMs2Fv0UwjzGKHbY/Gl3ovgmjTJzVqM3DkSk5Wb
D4l7mc+KtJCDtknjfsuFkd6HOsINyOLKVq3MTIhuM5Y5myBLnxmzZjMAv5dT
1UVGtjB1ldEzYOV1b5t+c+RYyt3i0HRw8fvqM7oDuSVF/oGWBpxRvSJND2Qv
3GXALwmySjKChj2V9b5erwlJhOADXzbW7Ucmv8zuoCfAOj6f94cPcnmwQU9h
POQwj4ryaMp5DN5orD0DoY6Pcv1CkAWj7rhTHPw+vXm/WZjyPc1GZnGxME2b
GeqKVPZjSShv6BBmU/hDIx55D2OT/fNocBwjNA8mIDMcSu5HRIF+eVhiTbKy
X7esiBgJkiW2am7pyv/482x6eDg4ySTrspnKnFqelhUCBlccRg5fUfol70lw
MODO1bfIBci8jCe+rseggRdn1clWmpxL2UIFns3gboMKZANP33JLf/gfUcLy
UQ==
          "]], 
         LineBox[{{0.015412559489574392`, -0.0007538933711259688}, {
          0.017175101510522775`, -0.0009542148904220227}, {
          0.019628681609693666`, -0.0012748064025327466`}, {
          0.020242076634486388`, -0.00136260853436454}, {
          0.02085547165927911, -0.0014534903081528938`}, {
          0.022082261708864556`, -0.0016445256083876814`}, {
          0.024306314482584017`, -0.002022546512982615}}], 
         LineBox[{{1.9800128763771412`, -0.0013257407364459795`}, {
          1.9814664241137292`, -0.0011256811534625655`}, {
          1.982152851338542, -0.001037174693307108}, {
          1.9835257057881674`, -0.0008715812575506021}, {
          1.98421213301298, -0.0007944642775559174}, {
          1.9848985602377929`, -0.0007211124235908528}, {
          1.9855849874626057`, -0.0006515082860669708}, {
          1.9862714146874185`, -0.0005856334224869642}, {
          1.9869578419122313`, -0.0005234681989403356}, {
          1.9869578419122313`, -0.0005234681989403356}}], 
         LineBox[{{1.9943344794172735`, -0.000082576573063875}, {
          1.9951949686099844`, -0.00005703755724084658}, {
          1.995881395834797, -0.000040282819549375404`}, {
          1.9965678230596091`, -0.00002664657123752079}}], 
         LineBox[{{1.9921023879292483`, -0.00017322672835895503`}, {
          1.992449259710733, -0.0001567772939274903}, {
          1.9930589692131917`, -0.000129988979438167}}], 
         LineBox[{{1.9972542502844224`, -0.000016023220485550382`}, {
          1.9972542502844224`, -0.000016023220485550382`}}], 
         LineBox[{{0.010420226732736583`, -0.00031976651892584584`}, {
          0.012181771315412964`, -0.0004507551156933687}}], 
         LineBox[{{1.9898585528143742`, -0.00030121668343419117`}, {
          1.990389978036295, -0.0002674899389472074}, {
          1.9908268777251665`, -0.00024135893325372137`}}], 
         LineBox[{{0.004929362547335268, -0.00006041294353664739}, {
          0.00613399106425376, -0.00009864821185168182}, {
          0.006747386089046483, -0.00012204352097100468`}, {
          0.0070541304580072385`, -0.00013475443285848598`}}], 
         LineBox[{{0.0030108407854104445`, -0.00001977638964945072}, {
          0.0036538523432536356`, -0.00003071556145073373}}], 
         LineBox[{{0.013457281519494598`, -0.0005606209773443283}, {
          0.014331664319664934`, -0.0006433109866108566}}], 
         LineBox[{{0.00012281403876088337`, -5.976158234943796*^-9}, {
          0.0015077563834993003`, -4.027595128519579*^-6}}], 
         LineBox[{{1.9783570357250508`, -0.0015746948049599752`}, {
          1.9787373661730594`, -0.00151552089466378}}], 
         LineBox[{{0.007974176138631928, -0.00017697659990112413`}, {
          0.008094635367353508, -0.0001829635680810071}}], 
         LineBox[{{1.9994970648041506`, -3.033113635808604*^-7}, {
          1.9999999591836735`, -1.7613646505765246`*^-6}}]},
        Annotation[#, 
         "Charting`Private`Tag$16209#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-2., 
         FormBox[
          TagBox[
           InterpretationBox["\"-2.0\"", -2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-1.5\"", -1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          TagBox[
           InterpretationBox["\"-1.0\"", -1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.5\"", -0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 2}, {-2.318488873461998, 5.122036128568652*^-11}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0gk8VVkcB/BrGakRKpkYWcpSDc8jY4vOKy2a1FgSGpmXrUh5POmhhvTC
kKXwqChrlmxZnv2cl60sz9KYsST7+qyhITHNcT+f+7mf7+f3/5//PfceBXt3
cyd+giAS8L35/MVpsoMz5XSU2LwOHDas8AoRtBrUAULJP8MR67HqbjVeoo/H
SRDDJXnNRgtCYXNyRcmGFZhZU5nuWlCBZ7ldhYlSjgB3D+i1HYNOig5JJ5Az
CD3uq6711hiW/+PTfbvVDSRU3LS0OHsR8piddVdYHriec2GddwUW6Gxorkt6
AYb/xYK/F67BOiPp0toE7831wsgVNGgUz7W15zJABinDT0jyFkzgp2Yppfrh
POCWc5AfFDuv7xj64C6wVHeTeA4CoNeOgPszV/1BYGtCme9SIFxyXBUYkbwH
+Mn9JuLXg+EpwbBzq0L3ATkrxbDSIwJKagcbhUsxweftIew5l0fw3a9Gmr47
H4BStpSkfXw0/EUs2wAmBOF5unrj5+KgAZX26upgEFDPctp6lS8enpqoGJyX
+xPkZVkqxRg8h252doXBV0JxvfjK2vZkmPvi/BpjVxgoG/ORFtBKgY01T/a9
XH8Ixpdsxzzj0mGNfjorJSYCGJSmIk5MJtRuZn7yTYoEX/bbWa8VZEP51eUW
xQtRIPhRROrCQA7U0lYNt2E9wuvzQhssX0N21A22mdxjYLJIg7/lFsLjeeXv
vw48BiRtKQo3uRgm7f41KFQqBtcrh07sKoNlrAZBJWoM0FXjk4mcLIMMAcfm
a5mxwNCiM4PyuQqKfPbwr0xgbdaPKUlw4ERORXWwYRw2N9lL8w08oxhJ+74q
Dixy8qMzZWpgbxzT2P/yE9BEaYQ2ZvXQ4uFHdhnnCa53usuUbYB1jgaW+zee
AOaK2tTIiwY4WlTqsTf1Gc59CcbZJphQnnHacz0BBMbrbvkjjQvNontdzys/
x/m+Pb1G7ZCpQo1TLngOrEnC7DPr7VBYwG1i/OoLQAS8EPNf7YAu3ttYLvQk
0LfSm2+t3Al3H4wiWbOScf8918DXXVDXr3mLykgyCDUZzO0u6IYLg91uijop
uF/F621rD2yOV3i10IVNlEZKb+mD58U+nWD6pYJlW6ag1a1+yG9lklqslgbM
U6sex4QPwu4i64gKehrwU/euPCQ9BN8/cJ/68DYNEBSOyETDEFQUUH1F8k7H
PtpurTcCGzbSSJ3vX2LbbN8wHYfuBvcjNw5mbO4v8qnCBNzjd2VB+R42Jf9a
2L8T0GV1b6GPeiYgOMM1d3KnoMgS62e5h1nYJm/IprOwROMWy3gEOyDv3LrR
HLSjWax46Gdvrmd6wmAe5s+KlddNblrAmZS4AM0nQwxcT+bg/qiYePYijP/o
a1TyXx7unzJOtF6Bx2Rs0vot83F9ZpbnygrkXdL5TjgXm1LFzIxfhbIzPg65
agWAkG9WNBz+At1dtJWIPmxq0QeDx+twp2N+ZrpuIc4XyGGH+ZDzfVkbfUfs
qP1t9iw+VJkSvrUtEjvgnDRjjQ85Dl13XR3HJtRe2jXwoxK7A6pnY4sAQePz
U78hiKxtkvMXPhXj+Wvm3itb0PyHC9tSpEuwI6vCnYVRkJ2wk4URtmnTkdp/
hFGRg7s0OwY76aeLoRVbkehNwwd+Omzs+sexkd+j+sCeS0J3S/H8v7S/uYsh
2+/CS0rTN63Dr/pJDC0GU8RdWrFph2uhnjiSD8+ob5YrA0TBUYl31eLoTtwt
8qMa7MxjdbBlB9LM2SEkI1wBiO4LVVQhCdRIqqdyydhlBwbIphKI+ppR+YcN
NqNmPPapBApnD9CGsrHjw9TkNHajSU7uh5fnKvH/6NLSdJJEz/8+81ojugp/
L+lhr6k96Ptv92xPyyI8L29AwUEWxbtY2amewmZwry9WyyLFTlXqjpub/iRq
KSWHjmZ1OXyoxuYk/9XeIYfKs1glpSQOIIw9xzvS5NGsxUzV2VbszO0d1EP7
kGVmXDN9ew0gmIHfQt2UUMLlQBNnBWyaqZZsqhIa3nmDa/0z9uB13lqPEnK/
e7zN8DJ22VJvlLEy+tN89v2WXOxlop50UAVVrx/vfWZSi8/DrS6N1QNIyWxu
sjasDhCOl6aNuKpI2v+0/tVk7HVbn5s71ZB4blLYtlLsa3Uy81ZqaE3YgmQ2
jF13NmhxRA21c0rp/br1gLDev5WPUEe+5Hv/rY5huxU+k04jo1YxCQkS5S3e
X4WgjchhdC+z58he8XdAs+B05f00LXS7VQ/ELzcCIoj+X/BvukiUVDLWKNwE
iBDOXM4DXZQWTn74VQa7LLr3c74u6jBR6bE7iS39O3NJUA/91CxBV2Jh79zQ
SyzQQwNv518W6jQDgm1flyJ6BJ1+ky7K9W0BRI5Pr86YIfqheEc/H18bIGSn
2JobxxB72KilzeA9IHYHJ9Z6n0E1rok/2sx04nxL9515U/RZ2VAs90YXPp+N
ciEnLBH/l1fiPyr1ggAbFlPG8hLaWrMs9ENyHxASdjBp0f0daX+jsi3y+kBA
turTHvPfUQtTq7Xh0ACglG/IDZHtkVzU9JesuUFAqdOKXF1zRNMrA/1/k4dB
wKh+QnzMVZTGq2wSjRgBAacObDO2dkWiezPmR0dHAXEISn1dckMPXUqckxTH
AUVptogC3NG/lFej1/wnQPs6bd+nOhry0qwrlqydBAFU1sU9FR7IWUs+6dE7
7PUg8LXaA1lr3wkTaZ0ENMZQy4c3HuiIvpY9f88kPh9lbbGNHoj/eJrY3BzO
vS+bz3Z7oEgzpmu99BSgnDLWOLjigbJpJ+S9PKfweXz6qlnDEw3k1YV1KPDA
ArW4lfHCE7XPCs5oqvBAwMefJHJSPBFH9aRJjCoPmJrPNvWle6Kk7HoRKx0e
aFfVC9HO8UT2LxvC+0x4gNCIUGou80Tjie8iJ27jfn/WNkaHJ5p92BK9wcUG
Rak9BB31N4ss2/2FHeagUi5AR63bzl3gdPMA7fPRjVghOsoL4UrcH8HvY9z0
7LQIHdGYrbHCX3iAM5QRGvoDHS37tcftUpwGAbd5ThFqdPTVtfPZQd9psFCc
sBhsRUcXtC8/IvlPA05oxvNRGzrK4RsPOszEeWTex6O2dGQXv+JhGIFzBdGd
M1Q6elMvbWyWMg2ScmuPHXSlo2D5K8uMJlxvXK1KukNHf6wMp7zvxr4yEsII
pKP/AZQDyqA=
           "]], 
          Line[CompressedData["
1:eJwV1ns4VFsbAPBBUkS5HSeXIpec0klR6qRZckkII7coFLlFE/ZKLonzHWQk
OimHIpPq9ImIJFTWnFJHUi65lGspkcbMHorcv/f7Y555fs9617ve9e69195a
vsf3+YszGIxM+P3/n5GxNdPq41fErWT4M85QpC50waRVh49o9/bxyAKKRErI
a/f8Cl4qtyL5b4q8MzSeEprzEa8kUTe5hCL5Z2NuqoTwkdmuQGvZWoqs3yU1
H/CQjxJs2wqMuily93bR2rc8iD9clqfcSxFjJZaTzXOIZxlmfuujiOlQ9o31
LXzEepsTUjhAEYdz6+zozxBvN88TfKFIxDv77GiFUaRJ+0cNTVJkwnzsnxGV
UcTdqt+ePUWR2OKsrwc0RlEY9bO29QxFEuP7mUx9GO/ac/7yPEWydMMHxZmj
iKWUxlWXxKQ6/OLmtOBRRIuLa52Tx4TZve3gHBviW4SOsoqYPLHsTWLjUdT8
LTswVQmTBhW9d6z4UcT4SccxVgWTnscP4pUvQT0TySITDUwY0t2NV3ngBW1V
dX1MrAu0AstUBIjxZ+dg2g5MjLPl9J6rCxAtYZKcZYqJZvrMpy4tAUroqw/K
24nJdHS77yIDAeJVOY8XIEzuOHG83c1gPv+D8jkLTBTFRK5zQQLUHOi5r9cW
1pvsVVJgg/sGxmvsMOHzG97oUQIUlrX9zaW9mDx/e8OJFSdAZtkuthYOmETf
3W9//U9YL+J3xTgnTPp9eJY2NZD/jmdfiDsmja53JLwJzH/x1ExjPyZVdpef
RNRBvJVf70vwBRNslvsa1qNi6zQ9MbFarm8qHID8nlWWhQcx2SypPCMxLECs
hEjK0guTVTNiNT+PChBXk9/VA/7xudvEfBLyce2dJX0wKarNMLokI0RmxVaD
xocxya44NVa4Qoh4M8rt1eDE28FltcpCxAreN7vDFxPvLIuNw6th3CqaNvHD
RJ49uW6HsRBxOzNC5Pwxmff79MVxO+SzaFSIA494tPz3CFOIGBpe9DC4zqpI
L32PEIXdXLCvCsDkpIbPmg8HIf+c7PktQZj4sgzdeg4LkWZN5KY0sMMfYqmd
AULUHKCq8x6s9+W66FWYECVcuD8bH4yJgvoJ3RcnYP2IhIGX4DmH3R51MWDJ
DSuVj2LSVjHMq0mE+VZdUflg3lD1t/scqM+54tp7cJHqWf2ydKindY3a6hBM
/pOw4fytbKhnbdRCJph9b/5pQR6MH2QebQB7fG6azCuA/fDcdefBhnsjfC4W
Q7yyXZpXKCbq8RaZGWWQ/4j0Ng5Yqlzp39RKmJ8/ZFQOHvs0OJ30EPrn1hn/
Ftyn8uDX33kw/va12iy4wTbF99Qz2L9RnZTGMUzux3lknWyAfFtLLHaAuXfX
NUQ0ganEJjdw2seZuWNtkG8LKjoOjvrp1abgdzD/fGdHEtjP5qr/kT7ol5P1
vhyww6njOT4foR9SHI3b4N9KzV55DkO/FmVvqwLrDciLuY3CftzDrj8Fyyt/
NHYag/2+lvNuBM9aVwTtnYR8M2FBreDhmKRc61lYz/DSk3bwiNv6oGsMGjFi
Y0I7wIdoRfHVEuBizYA2cAdn9kquJI1YrimlTWA77cEtqktoZFZfvqcezHv0
qukvaRqFKRZsqgVvdasMVpalkaa0x9EycLHwqkTmcpi/s3vsGngN50zeCgWI
nzN4mQHOXhNmkq5EI/qA83gMWO7R/hYZFRg3cAnxAye67grhrKRR8/wWIxvw
lOAXSSl1GvF0GHYGYHaKQn7iKhol3K0pXwb+pDWzTVwL1jvBPjoC16fZpTF0
ThfqKRl+kQfeLahYHKsP9Z+pC6fAj87kcX+sg3yH6oJ3g2/VsNvGN0L8Kj/b
T3C/qLu4s8M3Qz/8NYxKwRdG0RKhMeSP3Bx6EnxaU950ZDvUN13UtAD357fq
qfZAU9hPy6ZpAj7qPHB8kAn1bXc9EQd2Tb53/b0Fjbi1xIuG+9+A7yrTaQ/x
jzyn7sPzUuWyl6SyoJ7cAw4eYIvH5hTTGfJrrIudCsTEM31j9839kG+i5KAh
mGO4tAj7gf+WtoiC51UpZ8FbPwD8XdtTHMwVm1DoCYL51dq2nCOQv3UgxoIN
/a2MvH8OzoPP+JGtQjTUs1iyNgzOj4je8vlnsRBvPsj9cAieT6vC8ujTYIaU
tyNYSSVL9cMf0L8NzYFacB5ZVB8fKU0H687U5sN5xp1bk2p/A/Jf0CmShPPR
IGAlU+wWWHvA1tINkwevl49VFEL//L3q410xeZ0/66FeCvWKn/cadYb1dnX8
8rUajI1/FLBgv8mcFylNkF/V3iDKBuoVxMeZtkK95ofqE/dgEu4euYlug/rU
KnanW2OSou+X494F9vb9+pcVJpUNpsF6g9DfV6LepF3wPlhOL6mbhus7P3Gv
cRsmrY9Tz9jMQb9tnG0emsD1DdVd3LQA62s8Mbi1Fc6rBk+JrkUixDit2B9p
DE56NieUEyFWtcv0942YrJi5PKamLUJ0qqMLpYfJsiGrHspOhMyWyy4+Bu/H
xkvvPafsRYi7mSm5eAU8/5ax706zwPIdXrlymMgU3O3guIpQ2NpO9X9kMJH2
UmvJ94F8xRd7R+B9u+QN/ewlBXbRrCfwvl5ErpRq54qQpsJlj4h+inSZWu7p
vwr1sa+oX4Dvg9Ia/vvL1yA+2udNCXw/eFbuVFC4BeNllav6OylSdqcfM8rB
cWeZas0U8c7V/q33X8j3JmCLOI8iVdFFdVnjItTc0l+fkUeR9Elnr30TsJ+0
eJbjFYr4nZj9LjsF1mEMyORQRC7cfm3SvAglpBfqnrpIEf8gIYdaOgbzpy23
n6VIj1SIDHPZGDK7PeTdlkKR/wEXH7zx
           "]], 
          Line[CompressedData["
1:eJwd0ns4VNsbB/CdCOU6RJQQJkoS/eRyWEgY967jkjvxUC4jqU6YlAghHIkK
SaUSoSRaCylCpykpFElIZyJ3JrR/a/fHfvbzed7vu9Z6197KPqF7/PkIgsjB
D/W+1pF1JkpyEozbuvc6nY1Awdtru4VtJ0GYsdGKDscIVM/pvPfYfhKwlQwy
zewj0Ooj47EBTpOg3i3do9QmAqFiNfrz/ZOgoO5y5aldEUhKNp3F9poEHN+w
kF+GEaiW57dqLhL3e8JBlloEWoXEjAcLJoFT88gP93kWusvwKYCzk4C4+3bU
MZuFtmsqmwDeJFDii+TYZbIQFOv/iBZw/WUX2yqdhTgd7rINxBRwCjF20Eti
oWl3l9RnK7ENhSt50SxkwnI61bJ+Cpjy8/mu8cf5XBPnt5bYlwyP1G5joRmu
vMRwNs67XYlvbQpHD/daLc+ymAYFqvolYjAMxVrH51cNTwPT7KqIGWYoUu61
6SqKnwH9eYvqE5JHkOGOs1lyOrOA3ZKoczMiCB1c/5q3rGMWFGyrvb0wEoBm
Wi8MhJ2eA6Zng67+XOOPcvg9ju5RnQdsW/7ptmM+SKrv4XW+JuyumkPt7z3R
lwC7mJoP86B9ZRKpaeSJBKJP7zMI5wGCdismKtYVESUeZQO0X4AoXHbdv2k/
YuWWXaA1Yn+UG7Pn242ebk4UkgxZAERund5YNgNJ2rA048QWAcGphmGl5qig
QXyVoSR2i6rTzYvmSNug9PuEFLZWj+bPSHPkoD5y01sO+wsaemJijpJWeCib
qWIHr1AxemOG+J8xZAhD7Jq3a4d4pmjWSJmI8cf26YlUrDJBn7ZwOk7UYXcl
9djf10f5XMno5Qh7+92L7Wf0kU/JXvqFBuzFsFuhLvrou+qH4wUvsA+dEFcR
0Eeza/sUmjnYljceAI8dSHLljwDpIezrJwSZsnpoXcPUPoH5RWAy4zgOprYj
y2HBxfuiS4BI0b2lXayLhG8wivUlsAnTMkasLmr3TnZopFH17vkEF120t1es
sFMW28Ik8KiYLvJ6t9pyURm77oCz6Ekd9HejSjpDD9tH08zCeRsqvwZUBz2w
ywWtON5aaOrklKC3N7ZTj1SVkhbSY97i9vpij4dd6f+8BdWKi1d+CMSez+BJ
eW5BL9h9Zm0sbBGphEEvTfTRJ9qz4hx2e3X0NtYmtGJjbS77Pjb/oGF2Gx0x
lofGLJVj10cZ5mbSUcrnDT4nK7HVaw99c6MjyZwkjaOPsdkbrdxH1dA6YdfH
AY3YEic1qqXUkA53vtPhPXa61ccNISrIvUxPUuE39l+vrVtdlNAj13kxDvEb
18uP8ehKSGzFE5Ezy7ETVzUsjiii+oPGQt+FsFvoqTRlRbRhpQVZJYVdXtJu
cVkBDfvtHrXTwB7pFqwokUcmElJccjM2+2U9dJBHl2rfjVRoYfcH5UZOyyFr
mvPgmu3YSgumX8zk0B3k8XHQBHu8UqN0UBaFyB9+eWofNpG6d4GxGr14vqV5
KxNbSCU+jyeNFMN/Ng24YDvTG7+WSCNOM6ve2hO7/mFdsIg00ok8US0dRNlF
dn83Dc29Pld8LxbbKyfLP0MCseMLT3+6g12QfH8tIYxEowRtvEupeRRWZaYL
odzAI7ThMmzTS3SVDUKo0tag6GcVZbIp2VoQDUu+aeJD1DwWh8KvCyDba4SQ
Rgc2x4i5PokPdaUd4pR2Uo7pGN7Mh/xOt+fodFH7H+1H/y5DMX45Gn/1UvP5
uhXKLkPlm7RtHb9R9/HDZsNhEspUe6ZGLlD5iFAtm1+w6PbzA7+WqHkm9hiX
8aB27mbFWILE9xvY5CzDg4zoubJEAWxT1pmy/+bgqZ1pb/LEsesd71TcnYHC
/5u5rETDVlrtsqg0A7Ppbj7F0thER4hlzjQsE944dV8OuwDu7kyZggOvoXSj
CpXXMiq7MAFDG1R7LemUpdNe0SbgYkVScZs6ttfair7L43B19gG9zi3UfpIW
N9x+QuuDY8yRHdT6nLKMbi4sHVHIE7OjLHEsJmkIJl6N9+pzoDyyOFM7CP32
jKrd303NszJqbuIrXFdXV27PpNZTfxATPACT0txepPhQ+TS+1o2fof7a4wkx
fiTgL5UROWjUB815m3ZrBlL1BbV7Zz9BtcH5ee0jJJj4MZA+YN0D1eu8f608
QYIe0bPhjQGd0IJLVPf8TeVnZI7vfwczzNnB52NIYDG4zj6N2QEza7IYQfEk
2GYXnOMxxoEVML9dLoE6n/AxC3cOTI0QzPh+nupn+ZgP/wsPXQ9nslNJ0B5y
TEFdoh3uqxrjHr9IgsrbugSP0QoXLW/eUv+HytvQN2m3wKrySJ2WXMoGyYT2
c/joTasG7SoJXrXMuXoIN8Fg+V1PAwqout6OuqBGOGCc6JteTIJNhaGvuqTr
oRTLVcTnNp5PuM2ppP4pTFlR89L1HgkOw7Dku2lPYDqz0t3yAdXvLKfY+wge
d/QSEa0iwVpL9uClsSpo3RA3MvSIqh+uyBSthCJM350jT0jgdHvWIzK/HPZ8
rtHfj6j6u+ZEzXvwUZbyb9VGytJqXFACMxjnn003UV5DNz5zEzZVPLB61kyC
1uZ78qWzRbA9royr+pIEnTt3dfK1X4dJ5eaVCW34vCqREVlfCqBaYL2U3yuq
f1xB5cU1KF8d7bmeQ4Kob+o1/h9yIU+du7W7gwRxU9nzqb//gY/Pzfl2dFJ5
L1ZaXia8tjT5nNZFgr4wZ8dnahfhSD73Rn8vCdy7ivP+MkmAtsVaVeZ9f/63
pasXz0G6a/YJ2hfKpt7vteMgn/hvk4GvlAktnZpT8HXYtEfREAkiR4llNZeP
w6AUpaXz30lQlF2a/eBoGIytLWxcxyXB1K0rDN2KYDhRde6/tlESuMgwP/kv
+kJmfuzuHxMkOJAc42mQvw+q2x3+XD/9Z/3ggXQrGKAmnx4yi79fXJhEjYcp
PHrFanjvAgkEhg1H3+msgXVBRVu1l/7kveRfzT29pLhqhiT/mCBMjI3/Dyvh
ufY=
           "]]}, "Charting`Private`Tag$16209#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0wk0lGsYB/DvJjWVLGWpiags3e4kuUXc4RWhrqUscw0xZzASEZqSJSFb
xWRpGuZeyTL2pkR2fY+1TZZUl1KaVhLhaiF073u/c77znd95nvd53/d/zrfB
K8jRZxFBEDH4/f/7u8/Iw+YPPqbE/48n71bD8bOLXSSGSC3Uw0uPrkcObB29
HB5iiXKW1iWNE/tJiqNeQ/WCC1KRG5+ykoSQNl39lZfXchBefT+ZfZ700fTO
3QOHUFPNxOikVQZZ/3f4wMnuAKQYO/Cyh5FLjsY/bvcUhOD+4LdfVMvICsMF
/Xnl44ib9Vl9XKWSbLeg1rZlh+L6mhnGL3WkRVaXu1dXGLrnxrM87U6S2YvY
pVoFkbjuzIhoaiPl7I055xOiULn5lqlh+h3yuEJM3JhvNPrEvXLoPqWTnObM
SL1RjkXag97pAlEvabU42W5mSRySrvzoQD3/hFQ2SLLgrY1HB1bfrfyXP0De
3W+hH7EqAclO3I+sEg6Sv8uV0cnsRLzfdb+V7hKSzg4u95UkovE1FdYR/RLS
arhBMqF+Domd54+Gr39HBrBYlUme53H/iT8t2odJ8RX772Grk9Fc5SDTiPGB
vNcq3Fg0n4JauDabbk2Ok63GhYJ8/gW0icnbEvfvJGnQGT8VkZuKNloWS40G
/ENqzHx+oOmchjYr+nUZvZ8mdxjQeK6CdETEcH/sePCNrEkLrHFQz0Bl6iO5
bVmzpPm1+r65lxlI3bkgOsNgnsxV2p94fi0fn+fgiwu+BNQJbi/WYvPRrGxF
1fRnAsKkOJ2HSy6hQK8KSZtICmS+hEQ3Zgvw/Je0xlZpGL7acCvJJBMRZpkD
WfSlsE8zNXhFUybaz6p+pBlCgWeZ8XujPYToyOtud4diGXBKeVFT1yzE64PK
jG6uhHYOnbFpQYikKzJU4zxk4W1VbYhawV+IkBxa4cJXgOz6Yutj89mo+Zmz
lGrLanC4+MzfXjsHn9c80iVPCeJ12JnaFTlIWd+zSi1NGShSAcPvfa8ggk2j
G/2tAn6hywV+3Fw0+1Wz1reQCko/p+kyBXmIyA3OX/KrOuyK7Fyq8yYPUQOP
i5eZaMCkZCBA0zAf38cvfXJaAzqzNpRP9mOzrV91sjaCvdzUnvjIAlSZJ6L/
OboJFrnYFtzcKkLMBZZGu1ALBqqYFxq4IjS6W/h1o6029CUEfRi8I8LzDjJl
dHRAU4pWrhtaiPf/eKxqbjPcXhDpPu4rQsSBiG9PXtEgiB6XuvBzMe4f8Noy
shXWRHpOasdiN+9KL57WBb8ZtcrwbSU4vzz9NTw9kJkW7FRPKcXzvpoueqQP
1dtPCPa+wQ5uoSoe+RVYwU7fQozLsLVOdknvgOvjcvXtI9h1e5KQxU5wHDlL
97e8igh57w/uQ4aQ9SLCovrHNUSEveWbZZrAblVX0RDjOs67faHFzRRG3Qyl
KWLsydi45RsQrB8L9xZvrUCEhuW7OTczCPIz0CKeYx/2la8nzGEV53pJ4a5K
3N/L0UyzhENx612NOdgSpaXRFCtozOct60nFztYT7TtjBZxXR/xn3mM7Pzq3
PcIaqlmbaTaXqnD+cgJW5D5guuZdn5y6iYiSjMKGNjuYGHRenk+txnk4mz3c
Zw+JLIqPkwU2s3T39of2UOUdRK3hYxPWpj1v9oPsUZOESMMaRMjoZVvLOEDH
maduS6JqETHPKDVhO4G7NK+6thA7rcBOLHaCf5LM5P26sU9RJe1zTqDBK+7o
VK9DxF5a0pjQGU5lntBLb8Wu4LZsHGKA/lWFJaqUBkT0LlM5kMiEe7od7C49
7FPmo45DTGDfCGs87YrdXWNFGLoCr+Zl8Ksy7LuDugdHXWGkWTxYZNeI72dU
ouR6EHKe7Lux/WITIjSvEY1/sGDFv7Hu1usBEbssA7r9vCDLz4VFs8K2cyiK
u+IFmo9pbIWj2DnUnJQnXmBa2u89eAt79sKU0Nwb6ksF1bW6zYiwurO3QIMD
405jTTbd2C8SdcPHfIBRktnJXdmKiIGvnwLa/CDb44ztoQ3Y8drscil/eL0q
sIu5EztxG990jz8ERZn3mHhgd5kf9L7tD+ccx/uWirEpj74XdR+BW/Pmz/6y
bUOESLqOOhEIWg6fRtqS23F+L+KGDUOAGm1t7JuH/dsfTgnsEJAX5yYvr8Uu
2W3JOBcC3ylOug6vsR/a85MHQ6C3uZY7tKsDEYw3XxzOHIMIvdgfM+86UIzt
DmOrp1zollNU1DW7gwhqh++Dq6EQW/L0NzX5u0iFbe8SmhIGJ7uNUNbne/h/
qU2XHz0FsrrV7+5R7iPiYpN/4booEPH0UuZUsR1binzsouChrc5TluV9FNNT
Qj98Iwp+6VTkagmwf0Slnog8DS/vTBRVGnYiM7eViv0rYsC6pVC2K+IBIm70
3UZ1saByU2Hop596ULNlBMfTIQHcU+ac3yr3IGJcfrXCsQTI57zrvE3D9baP
uU8zEoCmVF+fzOxBMeMpttWPE8A8lH1JqQLXZ/tjBK6JYJDtUsTf1ovM1tD0
F3yTwJNV5FEy1IuIHZXzZpnnoOa1xYMeeh+KeX4WakwvQKv/5XWuY4+R2UUb
N44xH75om8iJA/tRjLKFmrVQCItmy+XXaT1Dk6nzszaLcyFxS56ySPAcaXw/
fKJWpwD+A2Pm1Sw=
           "]], 
          Line[CompressedData["
1:eJwVlnlYTG0bwBuFyNamVCgpSehNZEl3iyWKt7TIVqE3RVKJFlIoLZIQ0kIq
2ixFaZk55x5USCshpJIk08ycM4lKxfd8f5zrXL/r3PvyPEdrz6Et/42RkpLi
kef/7/ht1gOxBa1geCivJMwqC2sjjeur9dtBc5HrolX3b+PsxN6hPHEH8ANL
TY5fzMfegfa2N4ad0HF0/YP/nO5htoBbMyXhC/ScX7vjHBThlJk5TFdXF7QM
rZr+wvYhxnuXeGbM7Qbh8Jf5rotL8Jd5QZdX+DewnqJ/LH5eKQYaVRZPf9oD
qt2iAb+OMmy/V3m2SUsAMR6pnqfPV2CjSEZoNE8A7LPpzfmXK5BvsNY2yUAA
ejIWrvWpFZiRXzVpq4kApD6rl0/IrcA9t6vPtdoKYJBnpWHPr8Du9OfnvwUJ
IIKJWTKbrUBRfO2l0ToBTNuxKD7dlottLyf1u74WQE+n6hSLLVysn7jJkd8i
ANmLA4YdW7l4L6ZO6fQXAWj+Xr5Rfi8X/SLrL8sOCSA5LdbNLISL/ccaryrO
7YXligzFz+bi8P7m1PmhveAyzKLNIBcdl+26sCi8FzRVTy4eO8rFO5zuM0si
e8E6QMWrgsND1+QB/9UJvZBsba+nKsfDx1Vq1vaZvfC8XuFCxkweRmvu7g+u
6QXVxgtenRY8VHwrsn2uJiT1z0pVjuahz82jlnWzhdDT7eZveZaHlT5/TV7N
FYLL2xMP9p/n4VFpee3WRUKQNbh64O5VHr43NB5iLIn+79D9wzk8vHE29JbK
ASHkphxZUPqMhwssxv/x5AohePrc2ynSFBbmF8xr4RM+aJ14fDyFxkp29huq
hZCRyBa5yFFo+i05e0ET8eeMCX8VKNx8Tt+G7RZCSxDlMH4OhQHvNyWHKIhA
dt90yxEzCn9Z9j0WqBAONZ8bYUnhsTtXenfMFEFZt4vcn7UURoa3m5npiUDq
nFHrN1sKr+j4fx1jJoKIzCDjw9spLPdPMor3FoGXi4aBZyCFZh+X7xz1Jfaa
4oZigih8suZTlG+gCMxvrUi/FUphjYrue7twERhaWO6sjaCwlSoNV74sAs1C
N5+GeAqlJn6svc4Xgbt164m8LArXZ2rtK1IRQ/KIbVlqLck3eYputYYY3C8s
yq6tp1AzYbjrg5YYvMJ8ewcaKfwd8maPjIEY2IfSUavfUHjXPtZ1q7kYDA2s
iiM/UajIkTiNeokhUbopgSMi/gY+KSn4ioHvd9HznZhCobDmte5hIs87FZ7D
Uljdkm1vFyaGsqDfvsv6KQwpdNmUdUEMPXnR6lOHKWx346/ZUCEGc/e6w/nj
aax1uivtimIo3PWjWHsCjWU2KU8CKsWQOzlU6+pEGi+aBJqn1ZN8St8E+Uym
ce1UPVOmUwyNH6SGGhVoNBqrPCzdIwbVknWB6ko0zhrmVKiKiLwryrsr0zjY
/dHEckAMwY1y99+p0FhAn19yWY6BQdNDzhEaNCYXH+/Lm8aAX0hMdepMGiPz
vYtoZQY0Hd/aFc2i0fWK1eKe2QyUOfgU1mjSKO87oL/KmIHnYtXTj+bS+Gdv
1/d/VzAgxbO9k6lDo2BbU66HGQPuDcKeGF0aK9cW6CZYM9DxbP81Kz0ag2a6
zfm8kwHrlxZP/RfQuMfO0Ll1NwPLRwrq9A1o3HyaE/fOk4HGMfpabYR1v2dJ
6vwYMPTVuLlkEY0KGkd0Xhwh/hpCat8QHt28bltlKAPTOJRZwGIam4t7+BWR
DETUDP28Zkgj/1t5f0kskQ/mrNT5h+SvdlavKIHkryP3NJ/wqYiFiTnJJP/v
hzOzjWj0ffjnaWY6yX/XuEHVJTRu624YSM9kgD3PuRBN2NA2wC3pDgMu7rVn
HYxp1Ai3unS+iNir6RcWEh7/QOlZ3CPi74JJouxSGvu6vv6O4jLQ8tr2yHbC
bSqli07yGSjcJ0m9TbhmY8ye41WkXs3d0iLCJWHbrgTVEHmnH3cWLqMxo1C/
JqCB1OvT5ytehOO/DI8ebCb+5U89TiccPL3uH+/3DMj+m2tQR3jvhuv/ebSR
ePIWtvwivPn4oWtuXxjoETJP1UxoXHnfvG57D6lPShOznLBupzzHWUT0ReU7
7AnLK38xtu8j9t8ljfcgPLK+2Mt2gIFgGYcffoR7QqPS1o+QerV8nxVMWOC8
wOumFAsdhxziQgi7s4pjZkuz4JWRsPQI4bexI6lpY1kIHryueYCwjfbXpWqy
LPhhvM0OwnxeXcPViSxY//R4tJbwMudH3sqTWXi+ZcVufcJ3mOvSl6ayMG2D
pu0EwnNio9OnKbCwnLM0qJPklzzHzyRBifDOq50lhKfwXJrkVFhI7DuQcJpw
pJPFgdgZxJ9ia6gN4SHx/LHjNUi8lcq5kwn7xijciJzFQswTm+k1pP5dWsPL
x2gR/bCSqgjCjY61PqM6LEQcnfG9lfR3nbh43DE9FqTUU3adIsyLTs8Y1GfB
znqH0hzCORW+zT8Ws+Be2L7BjsyLhuNWX38j4q9184s2Ml8XyVHHGLNQdtg5
fh/hE5rypoIVLGiaVbTtI/PYXz70Zp8pCz1133zbyfzud+g89NWM6IfZrbEn
7HTmYVaHFQv8VXl8bTLvBkInuXebiP4W58mRZF/KHG0xzo4F2YZL6jTZLyvK
8rCZAwuNuSf9JPo0bk9Y/PGWC/k+L1piNZ/GWMMJBYF7iT+fjfuSyf4qXfvr
qufJgvkC5nEa2e8Mzi+FVi/SvxK1/SnaxP6rzlArXxKP2/fbJ7Vo7A7kbVQI
YYGV/i3+S86TgE8P/lQdI/q/V7+qVyf7uTbvQcgJFgxD/eWuqhH7KlfUPp9m
oWWbfaSiKomv/JDgfgLp97r+Ih45zzJG58RtyiYcx9NsGkfy85xhxskh82Fy
bnjpWBpL66f2FeeReCaVWiRJ01h/Y2Sbxn3S30qL6auliD+Lt/N7y0l/sgom
mQ9RuP1M7IuYBjKPSlG3Jgko7BaHh5m+YiF3t9SwbA+F/luP/sM2k36ZzX73
5yuFMXp7r239QOp1vV3/3WcKH9WYeut+JfMXV3V05XtyH0xlZSt/s6B3oNCj
rprCV1Rc9IZRMn9C76T4Sgov+uiMa/hL4vOwWr3uCYUKNdulP8hIIHh8EieP
IhxVNcpMkcDzJ0tiDIopnDac0qeuLQGX+VOXLcygcNK3ta2HbSSwPHJAVZvc
j7WXO7YPbZKA14My46X+FMavOfb+hB2xVxQ+0dKXQrnMwrexThLg12iJbLwo
nLhLvemGG/l+MbRecyeFsq/ZqpeHJWDu/XJCE7mvZTD1vnaaBHqUGsx3TqLw
g+ka6/brxL9L+q4wWQrvVwg7Um4S9jHNTpYh9Xu0WkEhRwJ2sct41AgPi+62
B0o9kEDH7g+BT4Tk/ydNe+WnZxJoyUrhlL/kYVlIQeWVHxJILrnHBETx8IAx
9/0Emz5wd4uZ1N3DRX7jmztlmwjPHJxQ/YWLygfZ8H12fWB+7bb1zTYu4i0d
3SqnPohZeSl5QzMXFVUSAyLcifzRCsFu5CJ3yENu4Egf6DllpxUncVEOp6zu
yuiD5HXnE0dWcbFgw54M+lcfWHeOGe0Nq8CfvWrTuq/8gMa9B7Nm95dhicN6
6aQ1/RBs5F1+SL0Uw62jbhR390NMzs9Vc9aUoNanjS1ZUT8huLJ/o8DjIa40
iUyaYfQLpJzyo286FuHOWQ1DnNe/wN3xTKXaq3v4s+Zcp9/JAfDzd2xWoPIx
WcY1cMvcQZi2u56Wn5qDim0lmWMqB8HObLj+1fUslDpl8kTjzSDwFVc+PEn+
1/8HIohJ8Q==
           "]], 
          Line[CompressedData["
1:eJwd1Xs0VOsbB/App1Buo6mDXBohl5T8Iqm8LiWTUuSHKHfRlEtSqMHkuIeK
rnQkEvVzC1HRfoZcT1rN+aFEJjlyabpJh8Gwz7vPH3vt9VnP+3zfdz97r7WZ
vqFOAYtpNFo8vqh70z4fc5c+ERq8NhBWv64QaPc9K4YUZ1G+hlUab2sOhOdU
ZCg2zSLLzW+Dox2vwDODFCl6yByitfezTwRkgmn3ry+zwuYQj2yN+GCVCZWc
4suMU3PIUnk+jq2eCQUvW1WUouYQV/zq/uM3GZASusRQIx7XH/Fqd9lngFN1
vKPhNdy/tOAXHdN0GDWPyWEReP051Tml1WlA3xO+Pl5OjCwzGLxEzSTIb5Rf
bk4XI+5WYlHyoiQw2lo2PrECe0bzef5gIjjojt3zURYj2mqpLrXbiZC21JNp
pYXdbZJsoZYIvzxnraKZY3/u01dTT4CpbUxabIAY8XK/swKM4+GdIb8rugHn
LQtoDrePgdtCeowEYN9j2IQpx4Dv/YM6GY3YpaLcm6McGNd6E5XfivMm/EZD
EzgwtVqg1sbHdSenjQa8c0Bf9jmQ8RHXk7QqBegsqDZOOi8RiVFixI6kp2NR
YDsiKS6XnUfcBMF+O+9IkL7LKjJTmEe0R14JLf+JhE6fCw5Niti0kq4QyUg4
OCB3p+dX7H7UtqviDHh3r7QVM7E7Tq1ZsugMnGtae4llivOOKRz5ozQCKvOQ
1rAndhZDP1w7HCbPTkr6+GDX1LVuIU+CqWuxcMAPe7qNv+7tSaiXl69+E4Tz
nrTqJ2echFauwOpFODapP2QtCoN+3xivqiTs9cEqHv8LhaXr6nO45diRijbp
3seBJREaO1+Jrc7dVa5+HNLfa/qercZeSGnUGmAD/UaaXsRj6nke0uU92KAq
7f44sAk773x0r/sxMBaKehxeY4fT9beyA+FIhSldbQF7xDKE1u4Hte4iOT5t
Ac8z9ePPC34gt/SpzG8S2Lq91fYH/IB3eIfUuBT21CBzTZ8vaC7bSdaswN6W
2en7wwdG/B2/7NXDZi/vsjbxBguFFULSADur0bl0wQuu13ePVW3AVtnZdzXb
C+wU3YaVNmPbFXyoBE94AJ79wxbYnLXSEswjEKJyooPjjJ35UGFa0h1aWwzb
Nrpi17IkzUsOgcbJb81Dh7AF0WE7WIeA3xbOs/PCNpX5nJDhBsano+sYbOzh
gVt0DVeYfpVUVBpH7a++TxTgDNzEO+ffPcC+8mZSTmI/yEZK7vEpw1bY7pDI
cYCcoGDFkQrqfO8GLab3QbX91sJvNdiXVn2L/r4XRuh/Ni8GbCU9dYkfe8A+
jyal14U9SGiJjHZD78Wj/LIean7lh9mELfif77xh3IvdbqiktM8WYv1v6G0f
wHbLm1gbsgsq9Y3s949id3qXfiFsYFWdV+bpOeywTR2tOZZQWNLiMjuP/b04
vnSbJRjlGGjE0Uh8HnF4Sj0CVsx0RcoSbLeBYVl7C+DYXPwzVx7bzvdOetI2
kDb5++YaRezvnSmO/eZwTcfDt4iBbTa4JdTYHCqk102WK2MrZE+Uj5rB0CuC
0bQWu0S+gRFiCqH4K7PVofLtvkb0mIC4Kq3ohS62bu4RJjKBlddcTHsMsblX
t7spbwa7w19dx7ZQeRoXZcc3QdmYWq7cXmp//XzRqAGk/J7oLXDArhQM1vyl
D/5OX7TLHannsbnzflgPVBsaKve5Unmxt4Km10HaRY/WdF9smuvMzcNaYLY6
KjnWn0QaEo4hxq1rwXpG33F9EK5berP6yjVBe1gkMgomkb1xeq/Qigm6DT6z
y6JJdDzHMMvERhV2Cml1feeo/NNyXkMqkGXNPZ4aSyKHP4g4m1xlyH5yhcVO
JNHXl6mv6bGroIq43amcTOVPrdrZtBIyT0lmjadir/l/YEMWA44WnHTlZpKo
ZdLF+PNTRXCu+SqMukwibd2zHgey6SC2vVese5XqV7kRs1kBaipPG7fnUPsz
G8rPycBl1W+ihrskGk7u05TasxQWzDiyb0pwnWd798y4BHAW8dvdS0l06AKs
n5NdDJdcq4/YPqT63We0N5FE1H5vGdkaEt0M7i7e9ruYsGuMH/tYS9Wf8QeU
ZwkZVz+bsackevCpwJJ4PUX0vX9i9l+g6haZ5sGTRO0V5oJWE2VS47dTE0QW
K/X5z2Zq3q872jd9I5qrHu5+3kYixnWXY6heSHTGVwi1Okg0pKqb7aT1iUir
tK5OfkEi0ahZFT9plNAO4q3wf0n1K28p4HwkZnSFG992kchccMowdVxAPE6a
9uvqoep7nD3z+om8+R8tir34/PY2pRtNe4mx28K7gwMksrvxM+JRIp+wL9pQ
Yy2g1teutJXlEzru16IVP1A+kL9D1EEsll+wGPqL8t65sSvNxKuwn56FH/H7
q9exHnvQSLDT18ynjpOIUJUJPNBeR8TV32lSFeJ5b8G/O/kaYqIm6dOLLyTK
u+R5YUahjHC9Hef4eYJEgsjDwmrrPEJ374n3vJ9UPs2Kc/QyEaitcilkikQl
pkXZQSiFiLi1e+TgHIk25DCvzxr4Eg3swo1G8/+u3+6vYE1c11j+N0n+axpX
IePZPxhVD64=
           "]]}, "Charting`Private`Tag$16209#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwVz3s41OkeAPDf0mJ1cYk5dNwqKvuYOcxiHOF1qeQS6xZKdjCDseVyWBHW
bVDjfmkokx13yaXcid/XMtIe0a7H4pAiW6aiWHl2TlHnPX+8z/t+nu/7vR0M
jHBnSxEEwcHn/7cjW/zb4Cu2FX4SBYcfWfbFXN3lvchAWdOc3Ce+ruQs9fWt
+KiTiPZzeWFa4yVSzt2wr3PHG0n099mGrBeQTuMzbbfUWQinr14ebiDZukHC
ExCMXDa/kG9RvUf2TsfPXp64iDQ10lP7vyXJ19wpUQA/Cv8f9KdQHpJ3GTv0
bUoMqq7opKgKfiVFdge6hwWxOM7MW6JMk3Zl436B43FotsNhIb92nhRIMW/r
VSfgeLj98RdLpIKLOYuXkYTcj5tceyD1goxRSklfDUlGaorm7/cHiMlNlkR6
mZKKerdW/xSsrJGndmWfkciko6PKCQFOdpskxTTLLledi54rHpP759st8qGr
Hf2KcgZ6IpybSSmUkI4KjRakIBP361h8ILtDWjAj74QsZiJjv3oTk6c75KmV
vsV32teQyoTPrYEaKbjo79+WFcBDRIrkgs3bXdD8k8uHuP3ZiJv439keexn4
ZejGobrtHKRh7+luYikPQ+a1/KqSPLSvvHaF070XTMe4G1eE+ajI0H1TR0UR
dCTvH+l6FiCG31NtzbNKYGxqkOvLL8Tz8KmbdSrQVXCpy027CLk3fvzxLJUC
ti29kx+fFaHgzz2tjiw1EKq6ZvLUS/B/as7GCQ3o4T/YpccsQZ9MW8YX6JoQ
J80aC224jpKlH5dI5nRgz1ZU8n0BHxFCpL4mPAQrTX0DWZalOD+jpfLJYXDQ
zY/c3V+K9oxOVHxe0IW5Uu7p5As30M5IJl3mu2PgkbPQ1TN4A++/yj5lpQ8i
loXX4Z0bSG1m+GX5v/Xhj/buKM3qclzvL1fqEBUEvfX2/9oWoCjVJta9O4bg
VjwX5nKkAhGLAiMbBh24R5mlR+5WoEPfiJ0dP9JBTvriysuQnxChsze0T8YY
OLHyfE60EIULW5Qk7qagql9A8+FX4ngWPesrczBLGJM9ulyJpk72shP3H4f1
xdmLuowqRFgradVaWMBY2cE76zPYwjS20TUrcFHYOMFNqEahoR6aPK41SHk7
V3dQa9CwcQxNcckGZtt98vqia9Blo/HEl5G2MJkR8Wp+tAYRcpOT1gftQFfa
4A4tthbXF7eZ3jwBD3ZqaFOTdYgocOM199lDhEV6/o5+Pe5nsJmfcxrUEgLW
j6Ri91ztYAY6AEei2Rb/jwZEhBa8m1V3gj2bfBPtnNs4P/jv0T0u0Gn0A//0
MnYKkf63Rlfwj/T4K8q8EfdLPbLo+i20rin0isTYD1WLS5zcwF181SLsZBMi
mG+oLuc9oGzhil3npxZEnBYUf7ngDTYavjVPvVoR4czcyIr1gdfnGF/KNWOv
O8VrKfuC1mp8UDP1Lp6X/Sbb9RxEcEz1iCfYZpWQtuwHyqzWhlqzNkR8ePjM
wywAgtO1fM1Z2Ge9P61eD4D7VblfPc7HFhnRSt8HAGvp+zDJS+zQYgedzkDo
9D9m4HS9He+zMqNgxwIf38rW9Y0ORNAKz7QXhcC7eU/5qgOdiIijjx39EAKZ
/nJsDztsyvWv8wNDoT0o4kBXCTYtL5dhyoF94ZYZCYwuvO/N1i1xGIyk/eec
TFI3Iv7wZ5xPDAd6k5KMhlwfIjy3gw7RouEX2ghz3BB7UjvVJioamPfi7v/o
i90m8lvoiIbcrmeRS43YmdyabMsYEA82z9eduY/nre8Vef4AFb873DMq7kcE
ONr23bwMuz+n+tlrASJW/8wwzEiEMo63v8Ep7MkpYdh0IuhOGTCVwrFzZUmt
Y0lgdXsmaH4A+4WO8dajJOi9ze/spg0i4nxTrJ9GMqx5rPY7TWB3JaYqvEoB
r4bSsei9QyhlWiRYfJQOggtpzsEHsc96yurvpMNz5UvjPiZDiHg/oNVK5UJE
ku1jywvYavWsmHwuXHNfm5Rtxj431r/slQED27Zz5c7DiDDIW/F5mwl6bm/F
w9ki3F9s0HGGBweS7c1DKrGtvHwTeDxQbBZmy3eLUMp3CQXZozz4IOdBc3uO
4z70r7Nss+HXwe7op2YjiCh/7vXmeA5cMUz9JHkxglJ2O9dxLPJgQkFFhWY9
ilLosVV65oWQGE8/z/g4iqzLGtmql4rgf/SsHUw=
           "]], 
          Line[CompressedData["
1:eJwV1Xk8VdsXAPArpV6jMQ0qhIRKnijJMlSKjAn1dCsaVDLlFTJVKkleA0KG
[encoded data, 4209 characters]
UCl+F/8Hbm31yQ==
           "]], 
          Line[CompressedData["
1:eJwdzns01GkYB/BpRHKNlHYiKdUoYW2LLrzCjlFJQ0VKDGKO7tEaxSBRZhy3
dJMVaWjbymC21Ey/Z9IoRUtF2YpU0mQSFYUav31/+8d73vM53+/znMc6YnfA
NjqNRovGj/o1Fbom58Z+II9S11HGzQJo5orW1ptqEO2zyEiWnA+BnUZl7ebY
nK5hzfJ8CG+bxvphrUGpoeoanRt5cLB+bp6vM/aCYYYPPxckJcimZyvuOwgC
DatF8OXAl0lcLnbwopZXCSJwDqpUd0bi/rdGqyF3EciMjWuf8rCl5S6PHgjh
TmrXyqZ92H+la8d/zILnEclhNZl4/rSu3prlR0Fngawo9Qp2fID3Mq0M8NXa
LdBIsL05m5UPD0P2yzkRB2qxbVb1iUoPg8kpoW18Hd7nkhL+2P0wWEwOqYup
xzm7eIWXIB2c1CPta59gt80cPKd7CEKrnE0sx7FzFnSmnhDA1ZARo1baOKLZ
Czc2LxeAkc4Ng3QtbA89g8pXyaDY4qb7Xhc7WNU32SEZ5uh5k9Kp2FNCK9Nb
D0JvFKd/jS02Y3ODi30iuE+ZqiYXYfdZDu56wYeTsjZVjT12m53rEhEf2KbB
PTOWYFugFl5fAlyErc973LF76h8lVP0Ouxg77iWtx85GExnr4+FOw+K7DkHY
R7s/MPXjwWrvgPL1JmyX4mxlfRy03t2nYIdhWyqzy36JA6f9idfMYrHvu8kH
Zu6Dby2Z4ksp2HMCjRp09kBqRlnai4vYNk/TJmTxwDBh0iruZexdFwu8rHlQ
xNtp2luF7Wo+EHcjBmpXLy0fkGIrhLklA9HQa/JQSQfs0soIs23bYHUJTdf2
MXa40NInKQI6cqNbL7djD/n/vXZuBESlNZ9y6sA+RPfxaOKCIOqU7YpObMnZ
Od2WXJAsdFzt/47qu5mYFYfB9GthOfu/Y9e9qThQGwLlFxo2jmmwVVpDB2eF
gGPRIqsUGoloPGkaS7QJfJO/VR3Vxl6XF7IkNhiSvHIfnjHGDl7ICnXbCK9b
CLP6udh8/6V2rgGw+5ZNJ2s+tq5Fbzhw4EeNUNzExGYXbuWwOTDtxEbn9sXY
EnonN2wdsLd8DFK5UPNC6SpvP7issjxjtAZbcZ1x/DMLjv6REd61Frtbu2PY
mgVRAf3zrnCwU6MZyRt+Awu5XOIXRN0ntvvU6AXC3M13siOwG4fDJr/yANeZ
/COCKBLxNetuxcV4gOfoQo4dD+eluWXdegjm9YyMOO4k0bk9k0aZshXAlHPH
9BJJdCzf2FBb7ALeatq1Zwdx37FNrjnsDAWeqduzBCTaca09sjjxVzh2vdA3
NoNEfoMM5/gPTlBDnG3+6Qh1X5i5X4AT5MRNKnifhT04n94c/DNEn9sblJpD
Itl1cYLTBQdYL/2o5ueTyErJvxejWAw/WBWVzOO470H6ByYtAqlkv1NjEfbs
sYRny5iQbzEwIj9Poka2z9UEk7kw7ppk+PQCld8pIcysIWlCa2PIJRLRl5mE
+OpbQV5QbSirmrpH3G+hYgDfP9zAUEoi1o4vL81lM4B965Dq7VWc06TKrqLp
YBAU6aW6QSKfK0NGOk+mwrOX1103AJXLH3z6OAWuFlqP29RT+wribARGUOCb
dXtISblwjMfRB2VNtc/tuyQqKpwdEBisC82HqtQ290i04B9rA60xHRBKPGuP
NJGoZOUZ+9y6iTCPp5ga9YDav0xj95UOo0y1w7+PSWR3/mu6Iv47UZf5LfJx
O5WP9LYeHyFKNJ8bTDtI5CwyFw8WDROqs+rz3Z0kmqgt5ryt7idWi+2lnl1U
XyAt6fxAzA85kWj6inJjut6edwTdeNz99RvKrttnVbwmWvYMbS1/S6JqVcfO
7/rdRGz2bE3WexJ5h8GfspvtRIqsrN5CTaLTGY3eGdxHxCdpZl9TP4k6hnJs
fRT3iaCzKZwPn0gkLa5NuTVLTjDX7HipGKL2zx6NZEuImHmMvF1fSTSjdqZn
prKCiC/26Q38TqKcTd5+g+vTCHlsuYOjhurT6Iy9XOKklf4wSf5vWimz2e0/
b2o1Dw==
           "]]}, "Charting`Private`Tag$16209#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, -1.0776619596697401`*^-8}, {
           0.00036432384925595316`, -3.949198301711476*^-8}, {
           0.00036432384925595316`, -3.949198301711476*^-8}}], 
          Line[CompressedData["
1:eJwV1Hk4VlsXAPAThVRmDa4GJaVRKlRuS3NChYrcyJShL7MGiigzSZJcU0Ih
[encoded data, 5673 characters]
ag==
           "]], 
          
          Line[{{0.018527738344276564`, -0.00041773003312695067`}, {
           0.019628681609693666`, -0.0004756134233865339}, {
           0.019628681609693666`, -0.0004756134233865339}}], 
          
          Line[{{1.9730157104597952`, -0.0009689507773460448}, {
           1.9752885790904147`, -0.0007964286977211188}, {
           1.97771928062301, -0.0006332386697170053}, {
           1.9787207152144783`, -0.0005700720622687783}, {
           1.9787348917843108`, -0.000569226280091628}}], 
          
          Line[{{1.9878216550560006`, -0.00016158173214630978`}, {
           1.9892207977123333`, -0.00012246897415714203`}, {
           1.9897035508114822`, -0.00011015535555269906`}, {
           1.9897035508114822`, -0.00011015535555269906`}}], 
          Line[{{0.004330457838550809, -0.000014846056192396873`}, {
           0.005417489561734625, -0.000025033090059523033`}}], 
          
          Line[{{0.014153764658858663`, -0.00022737018734630965`}, {
           0.014805055429162054`, -0.0002517715721639391}}], 
          
          Line[{{0.03276828218404136, -0.0014909980158881453`}, {
           0.03877345108030803, -0.0021617249938721272`}}], 
          
          Line[{{0.0015835426096924678`, -1.374905672868465*^-6}, {
           0.002498553563646729, -4.068215166519451*^-6}}], 
          
          Line[{{0.02178799830232559, -0.0006010566950802598}, {
           0.022614659439428423`, -0.0006558439288847928}, {
           0.024392215195720882`, -0.0007736520106362832}}], 
          
          Line[{{1.980216524766344, -0.00048407907265257677`}, {
           1.9808195907502975`, -0.00045155375610930976`}}], 
          
          Line[{{1.9914196500123493`, -0.00007251247711881348}, {
           1.9924419094414973`, -0.00005415336285371146}, {
           1.9931356869355459`, -0.00004334729392674319}, {
           1.9933221566670647`, -0.0000406716808871721}}], 
          
          Line[{{0.02634958893945713, -0.0009189416682389151}, {
           0.026844438154139595`, -0.0009585319036565408}, {
           0.027669001512152964`, -0.00102450080184191}}], 
          
          Line[{{0.01625108857998861, -0.0003110981792965951}, {
           0.017175101510522775`, -0.0003521572669962225}, {
           0.01725222814019493, -0.0003557330701013939}}], 
          
          Line[{{1.9972083674759915`, -5.2885490990917106`*^-6}, {
           1.9979406775092352`, -2.5714605200732876`*^-6}, {
           1.9988593097021097`, -7.088262592358363*^-7}, {
           1.9993135319588609`, -1.8397797596492182`*^-7}, {
           1.9999999591836735`, -1.0776584069560613`*^-8}}], 
          
          Line[{{0.010452116315053678`, -0.00011400153348795072`}, {
           0.011449102014118605`, -0.0001403706337654853}}], 
          
          Line[{{0.03060659187613595, -0.0012818095295781262`}, {
           0.03149277197995973, -0.0013655199136426432`}}], 
          
          Line[{{1.9626724852278754`, -0.001988084649893196}, {
           1.9635202768839841`, -0.0018898709802890323`}}], 
          Line[{{1.9837694148334848`, -0.0003099548666902763}, {
           1.9848985602377929`, -0.0002633268495948471}, {
           1.9855849874626057`, -0.0002369950434770729}, {
           1.9859329599986912`, -0.00022422324607074273`}}], 
          
          Line[{{1.9955382299177344`, -0.00001592013712414797}, {
           1.9956089530489183`, -0.000015364263362110715`}}], 
          
          Line[{{1.9824060028682993`, -0.00037186035634391115`}, {
           1.982493904629403, -0.0003676419219766913}}], 
          
          Line[{{1.9707098218150039`, -0.0011626808300713165`}, {
           1.9711700157415382`, -0.001122502377022272}, {
           1.9716526097143128`, -0.0010811816135953833`}}], 
          
          Line[{{0.007984504445927354, -0.00006199057244988531}, {
           0.00918978315958251, -0.00008489074555839693}, {
           0.00918978315958251, -0.00008489074555839693}}], 
          
          Line[{{1.9676892402150108`, -0.0014453103320670735`}, {
           1.967755017501798, -0.0014388043978863507`}}], 
          
          Line[{{0.02514923683282817, -0.0008282485598813949}, {
           0.02514923683282817, -0.0008282485598813949}}], 
          
          Line[{{0.012881336336973713`, -0.00018358894598602404`}, {
           0.012881336336973713`, -0.00018358894598602404`}}], 
          
          Line[{{1.9871838999539597`, -0.00018148180278032555`}, {
           1.9871838999539597`, -0.00018148180278032555`}}], 
          
          Line[{{0.0066929997658162575`, -0.000040885619287500674`}, {
           0.006747386089046483, -0.00004165844332337798}}]}, 
         "Charting`Private`Tag$16209#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0Hs01HkYBvAvbTVbrei0uyWiRc5KcxApxTs12dGSk2uZSkQs5Voh3Ui2
Oq4dreTS0hpC00z0G8k475BmMnLJUWJqZJpQDaattmixv/3jPc/5nOf56111
IMb7oC4h5Ff6/k+7F4W2JnaFQPQTO0zOHEB1XX2c8V9FQFgZ2j5JKHrlDUR6
rr4GpPtWDmtOBFq7m1UZymjn+pucMI9ExpzDI8Phf9I9+2qwxyHc3zBzG31L
gbxM9t0sjMLvf85l7s4vA+IWedMhNA5TGXWWF5eXAylQNHBWJqIV59KF2lja
ScHx5Z8SsSc95o1CRpuREEUeJ6H5HOsaZgIPiHAd915eMkqny5m9PRVAYrnz
vbefxkUf8h1MMquAPDtZM+6UhpTtsXy3V7QXDT/vkqZhYKzP5zinaiCaaHm9
7zkUjC1uaB2lLZTvKElIR+/RC5sjXW/SPVv8sOc8FrxIZlMzt4AYsfrfaDJx
i1FAudJPAGR0V2/g1Sx8y3Wcy+DTzu0pHORk40rN8RD+WiH9v5aiuTU5GBOx
3oI8p21j7/1p2yVcEiq4wdtQC0Spc8LS7zLuDigTaN/fAVJdM3RmUxFOKHwX
XDekgHiGHG2uLsLfAxkHfdi0o3mct4bFWBcSYyi6TDuM+/f76WLUi3ZOP+Eo
ArL1irGi8xo+ONvPnXeqHkjvR1MDzzK0u2kwz4hxD8imZio+nodtzAdBHTa0
R34T/3GXh0G3kxpPB9Deu9Fl7SwPs0SDsUPVtPeEtDVkVeCohK+o2NEIZAUj
b7uwEq892X7bNk8M5BurSLeF1bhwNnUvZyUC6TjZ9GqZAAsidgVa/0JbdPfL
x0MCNO+1DjKIpm1tQCWgAF2q+kIUTbRdzg6+XifEhqp8qp4pAbIle5NSKcQx
H43YvVMCKTGKyn1Qi343rrQf+a4FiNSXKrOisHjfWY+wVbRdBGEOeyhULYnq
2O1Ae81P53UyKYw5tbXLeR9t0DFkj1N40XusZz6f9nF+5SFKhE3/bh0o8rgP
KX4t/j6ed9HCa3z0fkYrpHzbp0mrbkTDMxyn8LJWICWqvUPDjajPL81YUE/7
B9uAVDMxTjF8mF4q2oy4qQslYuyW1B9RbngAKfHpk6LLTZhskzrz5TXtoyX8
7BzEzsVLlzJZMkjZrza7qmjGxM6NUPCxDUjwsWn7cCnqManXbQw5SA4vGzPP
kGJ5lk3mVyM5EI/RYVuBFB97WPYHusqhlLVz8vpnKa5pX3rEIp/eGz0tHLoo
w0HZREWtYzuYFtsNdNc9RE4zT68j+RGYwunQRON2/PGOgVJHpwtexlm6vjfr
RpGK/ahrcw+wYOdy93NPsSWyZEWAphdY/TLT7K4X+Gm182J+VB9InNu4Ya0q
1J2s0V9hMQBujof9zY6O4PrZIJHPrefAmuCWOLlr8NE5+06p1SCotV672GIt
muS+m6wafwlaxg3d2Icf8N3nQeUTGxUYTb1TzT77B8vfNsr1sl9BkuOwdjx8
CvWMKyfUajVo5boB/atmMDOCCis1H4Y7Qds2xo0QyYTsq3+w/Qh8cZ1WszN1
Jf8BbuxWYA==
           "]], 
          Line[CompressedData["
1:eJwV0Hs802scB/ClQmo0qU5KLklTFPKSFL92wsvtSJcXJbctJEINldxGOK6t
m14z14iKZju5dqy+s1hOxEpm0VTqLKXrUa6/cZ798bye1/v1eZ7v9/s8hrTo
AyEqBALBDy3lLqmpD/or5Cc25aR4vzdPRZDiklHWIP+JTZfcvpGNEwSGMjdp
ZcYvzMQcn3TeNwd2O9KvrbGawPLmyYKl+TPgt753ekHfBCa4WXN4NWUSfj3J
HzmVOom1vHPcFP9pHFiLAmIPGE9hFta9BtaqP2DFcGOFSvsURk603jjY8xkW
J6Ue2nl6GpNq9fhjxR+AcCeAO6I9gy3/HkeNsX0HdDY3X1s4gwneL6IUf5fB
gy1Z6qSoWczLrvjOaJkESG50szRNHFvupLuKc18M5W1aS+1IOEYwG7qlVSEG
i52cjz9W4JiXtYR4IUcMnuTRauoaHDPgj3gXHxVDjmqAIcUYx8p/GgksFb2w
6JHrKoIdjgneDHTEMHtgYpchITkEnZeHBto+7YJX5uK+eD5yU8HpTo4IysZI
SQsBx/bUMw/nZouAduegSX4b6q8aXhgRIoKPxgPnykWoXtMZcrqeCCbWDus9
FiO3NMevZHYASePzcZ1/cYyhW9nXcrYdnOVqeB1RgRF0n6YtCBTCkpuuVbbL
FZgg1Dcq2kEI3dRcT6E2yt+e4s7oCeGgTPNG/2qUTwRZnpC1QdCLlc64Icpd
Nmyt9m+DBOGGS642yEm8/rJjAuCVYsbvAxQYY4Io1V/6AMbPj6tRqSj3XU+n
P+eDjc+tMdkx5DmRn6KQD61aWvUDYchXFxjyTfkgYgxTuujoPsfXS+beCkO0
pMB7mSj/NMPmsO+D6qZWNqMOeSsuSKE1gevC6GQFDxmvEg9aNEHeayPa+Xpk
P1WdqPlGILFyTGNbkE0jLe1LGmHdEt+W40JU/2peddJQA1iNTfV7SlC+mhyR
SasHf64NSW8O5d2XNevYPGjyndIUE+YwwpfZ2lMneaCp+veyCwvnMIY/yz7O
gQcCP3v1j+ooJ4hOZIm4YKThON+wAtmNd/K/wDqQB+//4mGKvIOoklBbC1G6
J/9JPIQMy17YVVWDqMP88TYf5NtRtduPVIP+6W/tI0eQTdwecYnVIH5MF7gE
IueUsi3PVYFVXHyzTjjyw3dmRw/ehMnezKq7KciNOg8xowpgZNxIfVWjnMfe
08KxGIhn1dyoHORDczGdL4qAHRapLecih89F7A0tgnr3nZXfGpA3Uy6/zWWD
nPSsXQWQB7Ol/LcscC8lqJv2Idds637dXABSZqiY048cxJAXexdAcGo3y0qK
PDLO3TVxDZKDWaa7Zcr5Xyv0bK8Bb7OF+74PyJLU7TGiK7CqOfBi3Czy+tIj
HsRLUHm7w3tGgfw5dL11LBMs2Fv0UwjzGKHbY/Gl3ovgmjTJzVqM3DkSk5Wb
D4l7mc+KtJCDtknjfsuFkd6HOsINyOLKVq3MTIhuM5Y5myBLnxmzZjMAv5dT
1UVGtjB1ldEzYOV1b5t+c+RYyt3i0HRw8fvqM7oDuSVF/oGWBpxRvSJND2Qv
3GXALwmySjKChj2V9b5erwlJhOADXzbW7Ucmv8zuoCfAOj6f94cPcnmwQU9h
POQwj4ryaMp5DN5orD0DoY6Pcv1CkAWj7rhTHPw+vXm/WZjyPc1GZnGxME2b
GeqKVPZjSShv6BBmU/hDIx55D2OT/fNocBwjNA8mIDMcSu5HRIF+eVhiTbKy
X7esiBgJkiW2am7pyv/482x6eDg4ySTrspnKnFqelhUCBlccRg5fUfol70lw
MODO1bfIBci8jCe+rseggRdn1clWmpxL2UIFns3gboMKZANP33JLf/gfUcLy
UQ==
           "]], 
          
          Line[{{0.015412559489574392`, -0.0007538933711259688}, {
           0.017175101510522775`, -0.0009542148904220227}, {
           0.019628681609693666`, -0.0012748064025327466`}, {
           0.020242076634486388`, -0.00136260853436454}, {
           0.02085547165927911, -0.0014534903081528938`}, {
           0.022082261708864556`, -0.0016445256083876814`}, {
           0.024306314482584017`, -0.002022546512982615}}], 
          
          Line[{{1.9800128763771412`, -0.0013257407364459795`}, {
           1.9814664241137292`, -0.0011256811534625655`}, {
           1.982152851338542, -0.001037174693307108}, {
           1.9835257057881674`, -0.0008715812575506021}, {
           1.98421213301298, -0.0007944642775559174}, {
           1.9848985602377929`, -0.0007211124235908528}, {
           1.9855849874626057`, -0.0006515082860669708}, {
           1.9862714146874185`, -0.0005856334224869642}, {
           1.9869578419122313`, -0.0005234681989403356}, {
           1.9869578419122313`, -0.0005234681989403356}}], 
          
          Line[{{1.9943344794172735`, -0.000082576573063875}, {
           1.9951949686099844`, -0.00005703755724084658}, {
           1.995881395834797, -0.000040282819549375404`}, {
           1.9965678230596091`, -0.00002664657123752079}}], 
          
          Line[{{1.9921023879292483`, -0.00017322672835895503`}, {
           1.992449259710733, -0.0001567772939274903}, {
           1.9930589692131917`, -0.000129988979438167}}], 
          
          Line[{{1.9972542502844224`, -0.000016023220485550382`}, {
           1.9972542502844224`, -0.000016023220485550382`}}], 
          
          Line[{{0.010420226732736583`, -0.00031976651892584584`}, {
           0.012181771315412964`, -0.0004507551156933687}}], 
          
          Line[{{1.9898585528143742`, -0.00030121668343419117`}, {
           1.990389978036295, -0.0002674899389472074}, {
           1.9908268777251665`, -0.00024135893325372137`}}], 
          
          Line[{{0.004929362547335268, -0.00006041294353664739}, {
           0.00613399106425376, -0.00009864821185168182}, {
           0.006747386089046483, -0.00012204352097100468`}, {
           0.0070541304580072385`, -0.00013475443285848598`}}], 
          
          Line[{{0.0030108407854104445`, -0.00001977638964945072}, {
           0.0036538523432536356`, -0.00003071556145073373}}], 
          
          Line[{{0.013457281519494598`, -0.0005606209773443283}, {
           0.014331664319664934`, -0.0006433109866108566}}], 
          
          Line[{{0.00012281403876088337`, -5.976158234943796*^-9}, {
           0.0015077563834993003`, -4.027595128519579*^-6}}], 
          
          Line[{{1.9783570357250508`, -0.0015746948049599752`}, {
           1.9787373661730594`, -0.00151552089466378}}], 
          
          Line[{{0.007974176138631928, -0.00017697659990112413`}, {
           0.008094635367353508, -0.0001829635680810071}}], 
          
          Line[{{1.9994970648041506`, -3.033113635808604*^-7}, {
           1.9999999591836735`, -1.7613646505765246`*^-6}}]}, 
         "Charting`Private`Tag$16209#5"], {}}, {{}, {}, {}, {}, {}, {}, {}}}, \
{}, {}}, {DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 2}, {-2.318488873461998, 5.122036128568652*^-11}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Bottom}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.77091487170299*^9, 3.770914937943899*^9}},
 CellLabel->"Out[68]=",ExpressionUUID->"bbeae9d4-e664-4b4d-8dec-cf4e71f98c57"]
}, Open  ]],

Cell["The two limiting forms of the correlation energy are", "Text",
 CellChangeTimes->{{3.7709150225158453`*^9, 
  3.77091506026794*^9}},ExpressionUUID->"acef0eb6-59f8-4a4c-87a3-\
f3ce45fa858c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["E", "c"], "~", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["U", "2"], "8"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["n", "1"], "-", "1"}], ")"}], "2"]}], ")"}], 
   RowBox[{"5", "/", "2"}]], "\t", 
  RowBox[{"(", 
   RowBox[{"U", "\[LessLess]", " ", 
    RowBox[{"2", "t"}]}], ")"}], "\t\t", 
  RowBox[{
   SubscriptBox["E", "c"], "~", 
   RowBox[{"-", 
    FractionBox["U", "2"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"\[LeftBracketingBar]", 
      RowBox[{
       SubscriptBox["n", "1"], "-", "1"}], "\[RightBracketingBar]"}]}], ")"}],
    "2"], "\t", 
  RowBox[{"(", 
   RowBox[{"U", "\[GreaterGreater]", 
    RowBox[{"2", "t"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.770915036310934*^9, 3.770915234050701*^9}, {
  3.770915306794395*^9, 3.7709153144780273`*^9}, {3.7709162969391603`*^9, 
  3.770916319126707*^9}},ExpressionUUID->"74c0177f-05fb-4684-8eda-\
6933d1fbb8bc"]
}, Closed]],

Cell[CellGroupData[{

Cell["KS potential", "Subsubsection",
 CellChangeTimes->{{3.771208715433119*^9, 
  3.771208718059854*^9}},ExpressionUUID->"279fd5b3-b101-4014-a2cd-\
a2312d797303"],

Cell["How does the exact KS potential looks like?", "Text",
 CellChangeTimes->{{3.7710033552531023`*^9, 
  3.7710033601046057`*^9}},ExpressionUUID->"1cb50b86-d0d1-4d84-9129-\
9468853babf7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"dFd\[CapitalDelta]n", "[", 
         RowBox[{"t", ",", "U", ",", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{
            FractionBox["2", "10"], ",", "1", ",", "2", ",", "5", ",", "10"}],
            "}"}]}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[\(\[Delta]F\), \(\[Delta]\[CapitalDelta]n\)]\)\
\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7710033337865047`*^9, 3.771003340226116*^9}, {
  3.771003372977234*^9, 3.771003402583377*^9}, {3.7725252273620987`*^9, 
  3.772525231339006*^9}},ExpressionUUID->"6be25bb8-7d9e-4ec4-ba5f-\
fccb3c01d363"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], 
        LineBox[{{4.081632653061224*^-8, 0.008193159324289823}, {
         0.0005827660898796174, 4.221706916573377}, {0.0012068952428188247`, 
         10.}}], LineBox[CompressedData["
1:eJwdV3c81f/3N0PKlqJCpEhIRUM93y0yGiKriCJEoVRWog8ZGYWQNGSlMpK9
[encoded data, 7015 characters]
fl9knQ/+B6M5h/w=
         "]]},
       Annotation[#, "Charting`Private`Tag$26110#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwdV3c41e//PseWbCoSEVqSfKTSuN+lstoklezQEqWSpIjMUrJCRtkyMrNl
[encoded data, 6832 characters]

         "]]},
       Annotation[#, "Charting`Private`Tag$26110#2"]& ], 
      TagBox[
       {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], 
        LineBox[{{0.000030710567566166756`, 1.8258385324487965`}, {
         0.0005393820480729804, 10.}}], LineBox[CompressedData["
1:eJwdl3c01u//x29um+yWiCQqQip8Sj2vShpoUUayUmmS0FIaZGSUIhklMzs7
[encoded data, 7442 characters]
D4eT3oo=
         "]], 
        LineBox[{{1.995231006039287, 6.082865242004943}, {1.9959157171960376`,
          6.503980587974624}, {1.9965678230596096`, 6.989855881557991}, {
         1.9972199289231818`, 7.605465098057605}, {1.9979784310066, 
         8.689933032930753}, {1.998488169062255, 10.}}], 
        LineBox[{{1.9995237429707817`, 10.}, {1.9999656378224329`, 
         3.9443263873701473`}}]},
       Annotation[#, "Charting`Private`Tag$26110#3"]& ], 
      TagBox[
       {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], 
        LineBox[{{4.081632653061224*^-8, 0.018395679504112472`}, {
         0.0003968027918627924, 10.}}], LineBox[CompressedData["
1:eJwVV3c81e8Xv651P+a1EipbQlKkCOeJNJQdUiIZlZDZwJcUIUQlKSoZIXuP
[encoded data, 9821 characters]
MQyRhul+523o0JMYfu7wKQy1k59lNtjSgXaX2mhniKH/Ae7ZL4U=
         "]], 
        LineBox[CompressedData["
1:eJwVkns41fkWxvejkcvvsvdIkTA7SUc6kglDmrWUJNNMm5BrKBWOS5zIbVey
QyaacikURpIxbk0XlT1qJORWSSa3zDHonClF06TC9zv7/LGe9c96n+d9389a
uivCZY+SQCDYq5j/71rjr0NcbQlkP20YMLNgsOL2zoHRLwkMOQ/KMmwZDNcJ
vZ/oSsA0WvfgaCKDk14/qyS7ExjdXHXLMJlBaUqRs7IXgdJrn53XyGQwVvdy
Y44PAaViab9BLoMPW6LuOPoRaNLgHKoKGWzzla3pC1Dcz9kdGCljMEn/XX11
IIHe1UKV+bUM9t+vuxmwj4Djiyu5XTcYfFXU99AzROHPfLL8ZCOD6eJ111pC
CTzrcpcVtzF47PpWI48IAt88az1n9pjByoyKaecoAppLJFnWQwy+sTJbNy+a
wNr5U26B4wxOdNpVZh0kEBTie3rNawZLM69YBscTcFj2Q9b8DwwWGt679CGR
QONq4ZZPlFicfpBysfIwgZAQydhxhkVJguMFv6MEbLfqZRgvZLHcSP17jWME
Epscfh/VZ9FLmnEuNp3AuPaep2fMWZSvzM6yzyFgb3ZAYuPNomav26npMwT6
t+hbFu5hsT23ZUlnPgFBoyFW7WexeVXfCd/zBCrfSqR341lMnHDS+ryYgKr0
wnE+hcWYZJ+0uyUE8jeV7PD+jsUHpvopMRcJfFG8ulRSwOI/+oeTjcsJzNYn
Pg4qY/HIse+TBisINDeIrPMus8gdVHEKqCJgEJQWayJnMT8oTGO8RtHPv36T
9TazqMEXnHf6ScFjw5zWgkcsXvnK+sLrqwRCB9LzkgZZXDW119S1TqHPLHGf
HGexw1R57YebBPSlFhEFb1jUs22015MTeNNaWW08yyJfYQcbbyt4urpudFfn
MGqeVUbqLwT+qF+67ydNDunbc25sE4GHPk9mtog5jM1v+21/s+I/lsQ5/NuE
Q+2nQeML7xP42F9TP2bF4SlpbmR8u4J3+57lLhs5dFAJuwpdBE4o+xX9KOGw
oTIfSh8ScFnOdLr5cGjl0tqm+pjAoTkdD+0gDl8OFHJdTxT5fCPJZDSHgUkd
Z82fEqhNP1w2m8ThVJR5QF0/AZ2rspj/ZHJ4KPCsse2Qgmfk2PSTAg7V3cnU
nWECZ8dmfNV+4PD2cM/alBFFnjLfvut1HBpatx1tGyVwQLdcNnCXw6aYoLSI
5wTCz8axX3ZzuF43d0HP/xT8t+s17R7msI2bHfB4ScA8okNn1wSH7jSgdOgV
ActzYXe+neHw98mW0F1TBI6yTlffqfHok/vXdPOfBGQ58YJGLR5F4g6bE+8I
eIgb/MgKHo/f+3Bv8r2in1cXJywseVxU55cZPUNAe2r6rusmHvc16RblzRHo
CBsx2ufCo1m+yWeHBRQkqt4FGwJ5lH976vm8eRTiN2hbqh/gcYt0uiZNmUKj
f6xcVcZjb7hvLKdKITAlMwqyeUx//3l9tzqF8redOvvLeHztbKymxVEI7eou
i7vG43cnW3i5kMKJG35rnVp4VLP4K0+sQaFba0V31a88NjS0D45pUnCM8Trz
/A8eDbR/WblSi4J9QY95/0ceUyOvx4YvpiBmHS59wghRsvne++26FLy2Lb7C
iYXY+vJN8g19xb14zPH6GiEu/liTPSimoKsdY1lrJ8SRBw2ajcso6NsdL6vb
IURmE/PjxeUU2k4bd3ruFaL/6tJfQ40psAPLhoUyIaaVToZJTCgIZMPbVmQJ
cWGuu+WTf1LwCfbsKb4kxJJUOfE0o6BkM3khUi5E0ziDlmfmFPxXekeXPBJi
fUjayd0WFGarV3RZPxeiuEk6dMmKwqE72lWCGYW/pZOegzYU3AVKlTWMCM8v
213ssp5Catqtmz2LRPjKTHw5Bii02izcWS8WYbxBStyMHYW8F2o5slUiHE5I
aAF7Cj3+OeFeViLMVnZRV96s0AcX3R60F2HVf/UK+K0U1t1PaV+wU4Rd5duC
o76hsGSn2lxwiAgDXSaWVztTMPnqyK2UBBGiitsLqSuFfv+XHk3pItSVy2u/
3qHg90h3/fZ8Eb7fbxij50Wh19toxLlChJ8aFH7xqS+FReL13kfqRVjd/6fg
Zz8Kwggjr6h2EZ4uXNA9G0AhoTK1Yl2fCP8GF377cA==
         "]], 
        LineBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAJB2lTiWN/z8hq7F6PicSQEXd1hyJ
j/8/1xLtTvw+EkAgkj7iWJL/P8v3lUvXWxJAgE6CreCU/z9tuz1+3XYSQBb4
H2ocmP8/l5LKaciaEkC0sHUyyJr/P7/8JN90uRJAUmnL+nOd/z/M3khqrNkS
QJDRi/NBoP8/mA1yMaP8EkCEy75/W6P/PzQXcXFLJRNAIoQUSAem/z9ZFaHe
4UkTQP44fA3XqP8/T47PU/ZxE0AX6vXPyqv/P3ED0d2anhNAtKJLmHau/z+p
03jLwsgTQJBXs11Gsf8/6SCjwnT3E0BsDBsjFrT/PzR1mXKBKBRASMGC6OW2
/z8RKZkWdlwUQP8qUnOFvP8/dkfOtVLNFECc46c7Mb//P8wAAck1CBVAtpQh
/iTC/z9FauuonU0VQJJJicP0xP8/i63vl62UFUDyBc2OfMf/P0CXsnUW2BVA
vmam6w==
         "]], 
        LineBox[{{1.8752313690556592`, 3.324454307709893}, {
         1.8758574006209332`, 3.3275137819792517`}, {1.8765163812159587`, 
         3.33075927893219}, {1.877175361810984, 3.334027984389449}, {
         1.8778343424060093`, 3.3373171655010787`}, {1.8784933230010348`, 
         3.3406293918005194`}, {1.8798112841910855`, 3.3473196621072323`}, {
         1.8804702647861107`, 3.3507042848463935`}, {1.8811292453811361`, 
         3.3541150052986515`}, {1.8824472065711868`, 3.360999930030049}, {
         1.883106187166212, 3.3644820682007714`}, {1.8837651677612375`, 
         3.367990216951321}, {1.8850831289512882`, 3.3750856047349393`}, {
         1.8857091605165621`, 3.378491906035958}, {1.8864010901413388`, 
         3.3822914407949645`}, {1.8870600707363643`, 3.3859335346116257`}, {
         1.8876861023016382`, 3.3894194177109553`}}], 
        LineBox[{{1.9636536376298386`, 4.2695045811084285`}, {
         1.9643057434934106`, 4.287254382593547}, {1.9649921707182232`, 
         4.306472143581553}, {1.965678597943036, 4.326223659262931}, {
         1.9663307038066082`, 4.345618268052938}, {1.9670514523926617`, 
         4.367521961911652}, {1.9677378796174745`, 4.389083669987059}, {
         1.9684586282035277`, 4.41254510762932}, {1.9691107340670997`, 
         4.434337815207852}, {1.969762839930672, 4.4568615794185416`}}], 
        LineBox[{{1.988443956853951, 5.74486881546689}, {1.9890857663091506`, 
         5.840923083961666}, {1.9897035508114822`, 5.941914727762441}, {
         1.990389978036295, 6.065415054419916}, {1.9910764052611079`, 
         6.204030344898224}, {1.9917628324859205`, 6.3572726721338855`}, {
         1.9923806169882519`, 6.516490465587311}, {1.9931356869355459`, 
         6.730062115328113}, {1.9937534714378775`, 6.936502947229884}, {
         1.9945085413851715`, 7.238123177524316}, {1.9951949686099844`, 
         7.5617734506625265`}, {1.9958127531123158`, 7.933531765856147}}], 
        LineBox[{{0.002172844823760044, 10.}, {0.002422951164257786, 
         9.61447829861332}, {0.0030976856915297816`, 8.775478560247642}, {
         0.003680410965082868, 8.274800873271605}, {0.004263136238635955, 
         7.8856910463285645`}, {0.004842794537065078, 7.542344545994966}}], 
        LineBox[{{1.9995191414543783`, 10.}, {1.9999999591836735`, 
         0.018395679504112472`}}]},
       Annotation[#, "Charting`Private`Tag$26110#4"]& ], 
      TagBox[
       {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwVzX881HccwHFx6+fQZOvz+Ra5dX7s5leXulh6v6cVoUepxypN2DmimbLI
ijXkoWPz6CdqrJrcdXec+/E9Sjwwk3lcIr+KWKsLu2oq0g8bWvvj9Xj9+eSK
9m6JNjczM/v0bf8/crBqqcuNi7BP/YPAoZ3BjNmscw4tBZH3tsVHGxjk+5+Q
6PaVQoBT0dJADYPjQ2MnefWlEPyCGzKnhMFQseFCrbMUwjpU8QePMcizcC1z
PyCFpO/jJP0ZDHJ1nWzeZSmMBz6I6TnAYHK6KT6DJ4ObQ4lNdWIG7eubbyhT
ZaDfUR8t28bgbVXMkW/bZNDt7svJ3MDgxoE3Q3rBJYh8yW997s0gSf3ymVPG
JVg8PfF4xI3BjrgZsvGuS5C5y6ZQzmVwR0DYrp7lcohVsKPqBQzaCCdtLmbL
weDhOdkzi8GryXf2t/4hB4HJ6dgv/1K8wstI+3iJAgoyH7fLxij2GUOEgrMK
qHI5L7YzUqxcllwQ8EAB08MR3UG9FMP3bX2V6KMEkfFu7VQrxYURz8shTwl+
nyQYYhopqkesq5tMSnBxDHk0WkXx0I+Jv60UloG91XFzfxXF9esT1gSfLIM2
Tu9l/xKKZyZM2cVjZRArjLPvLKC4xSRZvWddOYj9ugROeRTdheVF6cfKoZh1
NMmzKJZGr5uufUt2Kxyctx6keFzM16V4q4CvTBGcT6T4wjijwbpEBU11sQ6L
Yiie495z8J5QwWp/r/u/hr31I+syRJsrYLXENvfEVorLIy6usCuoAJ/CpwsD
gylmvcq0NDysANtlhp0Vaykuqe35Jz9cDVbMcMSgkOKjncJ3ZqvUcOvVuYn3
PCkaWueyxFwD7k+CN5x2pvi+LfXu99DAI4e77FV7it/Me7jAL1QD+tcpVn0f
UGzm72i6laWBzhwXuxorikzg70lfaTTQYpGeeH4mxb1xKx3NBjRw6ylnpHKa
YJNE2nN6lhaSLLNPDb0kSOS22R8t18JPRee8+E8JNgyPDW/J1YLscR+Zd4+g
7UxR4V+VWrhiwcuT9hKMc+zwT7uvhZsthne3dxCs+wxfz7fUQdqifnOugaCN
WC2XrtLB/BQuO9VIMOaIfaiPWAeeRqHydQ1Bxdh1Pf+0Dp6NGBIi9QTnN05W
R9XoIEt7/cyKCoIHTrjVFxt1cKhdtYmRE3Svin5z14sFH8l+t9wighYBDy9s
QhaKObNzOs8SjITq1Ko4Fq4Q6yjpKYKV4S6uQfksfBh7eNQjj+Dcw4UDfzaw
sNlSt7Ejm+Dn16SikicsRLZdG/RNJ6irTfadQ/TQGP+3IOQQwZkDgyM/r9VD
wJqgIY8kglFd+hbO13qQtXsZdicQlPmJeC+K9bBqyve7rt0EOT6CN1806+Hw
9tvJriKCe+ZEcfJH9OAgXtl5J4zgf1jt2PU=
         "]], LineBox[CompressedData["
1:eJwVWHc8lf8XR5TN5T7PLamQGW3RkHNQCSkzURlRaVGSSgmFKKOQJDuRSmmg
[encoded data, 12322 characters]
Vc6Cy+2J01ocNPwfljN0vw==
         "]], 
        LineBox[{{1.863029491341594, 5.758359630287889}, {1.8636065072088668`,
          5.760877453873766}, {1.8642138923323122`, 5.763534175183468}, {
         1.8648212774557575`, 5.766204861442007}, {1.8745394394308825`, 
         5.811198951909488}, {1.8750995729366542`, 5.813924140388442}, {
         1.8758574006209332`, 5.817638293328431}, {1.8764834321862074`, 
         5.82073675688588}, {1.877175361810984, 5.8241837196780155`}, {
         1.8777354953167555`, 5.826979037303793}, {1.8784933230010348`, 
         5.830808578772156}, {1.8791523035960602`, 5.8341479350529495`}, {
         1.8797783351613342`, 5.83735169094816}}], LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAYHImcrQJjT8Cf6cZ1agfQB5L9W2O
Vo4/oCI8+FplH0BFHaSk6WePPxaEZftBMR9AFjbrRstckD+aRvJRcPMeQFl+
406N9ZA//ocM3RbAHkD8hB0weK6RPwBsax4thB5AD+50yyU3kj9yYegWw1oe
QIIVDkD835I/xgLuxvwpHkDFXQZIvniTP2zyGaFv/x1AOIWfvJQhlD+8Aw2W
+tIdQHvNl8RWupQ/9BBgmCOsHUBWheACI1uVP8TPG8NThR1Amc3YCuXzlT+I
2lMFVWIdQAz1cX+7nJY/8GxgYW48HUBPPWqHfTWXPwyhfBI5HB1AwmQD/FPe
lz82qQCAaPkcQAWt+wMWd5g/6O6JaWnbHEB41JR47B+ZP0jvMaqZuhxAU4zd
trjAmT/aKyKPr50cQP5khYhwUZo/YmbNu0+EHEBRRGc7E5ubP5RwQpsfTRxA
5LO3cR2jmz+gZ49eukscQCf8r3nfO5w/gAYUg2szHEDUFNvORNycPxDRBf1X
GhxAAvlta2SWnT+wwShyef4bQOkCK6FYLp4/PlxcwZ7oG0AsSyOpGseeP9Ab
XYUZ0xtACANs5+Znnz+6YiPCSL0bQHJd2pJZBKA/5FJ1fvunG0Bfuf6xv1Sg
P65jqfw/kxtAgN36tSChoD/mOTxN+n8bQGpQ6FygBaE/bF4/76pnG0AozWsP
8kWhP05m5nqGWBtAFSmQLliWoT8YZsmxtEUbQDZNjDK54qE/bhFDW3w0G0CI
UCmjLj+iP65W3MVOIBtA3jz9i4qHoj8y4mgy1RAbQDMp0XTmz6I/ft2V340B
G0DUMA2A
         "]], LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAnnlFU3C/tT8a0rsedEEYQOBo1s8Y
5rU/zoMMD448GEB364kqyg62PxjvZYh1NxhADm49hXs3tj/+P6u1ZjIYQFFd
zgEkXrY/9lsRiaItGEA8c6Q63oi2P5z1da1zKBhA0/VXlY+xtj9elHQthSMY
QGp4C/BA2rY/EAbjK6weGEAB+75K8gK3P5ayftjWGRhAmH1ypaMrtz+YKJ8S
ERUYQIbZ4ENDULc/2IZPgdAQGEDBPEH1IIO3P6IzLBD1ChhAXAWNtbeltz/c
xf1LAgcYQEph+1NXyrc/jNTyAN4CGEAI8jFUPfm3PzzL9riY/RdAdCDKo9Qh
uD9G7ZsFF/kXQLcPWyB9SLg/8jwHys70F0BOkg57LnG4P9aEPpVl8BdAQTQV
f7OPuD8OKUYUG+0XQHyXdTCRwrg/mn4qQaHnF0C/hgatOem4PwZfg5+F4xdA
plZEgA4auT+Qco8sX94XQEAfkEClPLk/xIaRT8HaF0B/yIhXaGm5P1pHUtEd
1hdAbiT39QeOuT94RZVXWtIXQASnqlC5trk/XPaWUzXOF0BHljvNYd25P457
ujlJyhdAMqwRBhwIuj+WisQGAcYXQMkuxWDNMLo/LHvaY/PBF0BgsXi7flm6
P/xnDiznvRdA9jMsFjCCuj+alLcV9LkXQDXdJC3zrro/JA6eHpu1F0AkOZPL
ktO6P9xye+UTshdADk9pBE3+uj+ozl5c/a0XQFE++oD1JLs/zgFQMlOqF0BA
mmgflUm7Px5bbWfgphdAJ2qm8ml6uz9UKJfMUaIXQBbGFJEJn7s/No3YTeye
F0CsSMjruse7P/LYkjItmxdAQ8t7Rmzwuz/qJSFUdJcXQN6TxwYDE7w/aCZs
kFKUF0Bw0OL7zkG8PyWk1d4bkBdAC5kuvGVkvD97xPPeBY0XQPa1YLKDjrw/
Z8BNJ0aJF0Dfk1YAIL68P/z6Gc0WhRdAdAH2IqbovD8chGu8YIEXQGJdZMFF
Db0/lZEh2zV+F0D53xcc9zW9Py2lmJi0ehdAkGLLdqhevT+1VcyDNncXQCor
Fzc/gb0/pH4fJkd0F0BljnfoHLS9PwR51Mf8bxdAVOrlhrzYvT+ODtW062wX
QEvShPAm8b0/Fh8SC+NqF0A5yHmV
         "]], LineBox[CompressedData["
1:eJwV0GssFQAYBmCKMglr5jtSi5pLiInazMn3mbZkFp1ZRXbcbyGXcqsJ6Tax
WIqawlzLSRg1haVc4uS6mntH0llW0kW59un049374/n1vob+UaKgdUpKSmaK
/O9xf415G0PG2vTaYgwHSvoYOVy8i1GqLq5OOw3kMj2nJjNmXJjQbB+JBZIH
Hp113c2o5aF70zgeaHLZXzxhzljlLTGuSALKe/72c50l4/U/l9wzk4G+B9+W
B1kzvkqNVnFJAyo3UYuxt2Us2Wyl5XgZqKhZb0q6n9Eia0Youwa0FDomu2DH
ePhk2pfaTCCRzr0JayHjm6WWnsxsILV3mqEbkdEzLPpASS7QunCDkTxHxidj
0+HifKC/SntdTA8yDoekm28vAOpVrj8XdIhRXbqULy8C0ogMGqw5zFhuFZnj
XgoUKDDpD3BlVIkwmvKpBNIfyfeyc2OMuLP8oUICpBv1UNp1lPH9H7FTTg2Q
tmqT0MuDkXzN9NLqFftVHSLzjjPWjccHZjQC7YiZa5vyZDwievAVmoESt9W+
vOXNWPCjbLdPK1B/Z+wLZx/G7IFU16p2INMzti0rfozHSq/orXUByWzKnQcC
GU8ETAbn9gKNdj1t9AtR+HzG67ZBoG+FI/2epxgXf6/1PRwCyjCwb+iMYBTE
yHsaxoAcP0jwXhSjQZ+LW9wkkDChpWZPrMJX7Eu6p4Fyd6ZWT55lnFbdlxI2
AzTb4yi5mcBYL1KJ0/4GZGH3a70sidFBbKmv8RPIy82o1SGZMZ+2zi0uAC30
XSmTpDA6P+uZd1oFcj/vXOJzkXF/geaG7coCqjRWL95yWeEBCR2rqgJSHpTe
b7+q+FfUpSJXF5BXclZBYgaj8MIQj2oJqM7U7a55FqO3TrfhJx0BPWrx3dR0
g7GjUJ7wWE9A/wCW60Lm
         "]], 
        LineBox[{{0.004932955366877961, 10.}, {0.006127857114005835, 
         9.477971000197552}, {0.006195330566733033, 9.455353059994295}, {
         0.006747386089046483, 9.265434676050392}, {0.007054083601442844, 
         9.16746374278539}, {0.008004845889871565, 8.906856507238734}, {
         0.008587571163424651, 8.76998116944216}, {0.0091396266857381, 
         8.65300897251224}, {0.009814361213010098, 8.522018583820275}, {
         0.010335746984083911`, 8.43024679490685}, {0.011041151262595545`, 
         8.314859218032487}, {0.011654546287388268`, 8.22562890121353}, {
         0.012237271560941353`, 8.144611694213141}}], 
        LineBox[{{1.9121342823770786`, 6.040735615655608}, {
         1.9127603139423528`, 6.045636729988301}, {1.9134192945373782`, 
         6.050834807997143}, {1.9141112241621547`, 6.056362018318026}, {
         1.9147372557274287`, 6.061411735408438}, {1.9153962363224541`, 
         6.066735359380093}, {1.9160552169174796`, 6.072207349075745}, {
         1.9166812484827536`, 6.077392613564944}}]},
       Annotation[#, "Charting`Private`Tag$26110#5"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.5, 0.99}], ImageScaled[{0.5, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*FractionBox[\\(\[PartialD]F\\), \\(\[PartialD]\
\[CapitalDelta]n\\)]\\)\"", TraditionalForm], None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox["4", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {6., 
         FormBox["6", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {8., 
         FormBox["8", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 2}, {-1, 10}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, 0.008193159324289823}, {
           0.0005827660898796174, 4.221706916573377}, {0.0012068952428188247`,
            10.}}], 
          Line[CompressedData["
1:eJwdV3c81f/3N0PKlqJCpEhIRUM93y0yGiKriCJEoVRWog8ZGYWQNGSlMpK9
[encoded data, 7015 characters]
fl9knQ/+B6M5h/w=
           "]]}, "Charting`Private`Tag$26110#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwdV3c41e//PseWbCoSEVqSfKTSuN+lstoklezQEqWSpIjMUrJCRtkyMrNl
[encoded data, 6832 characters]

           "]]}, "Charting`Private`Tag$26110#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{0.000030710567566166756`, 1.8258385324487965`}, {
           0.0005393820480729804, 10.}}], 
          Line[CompressedData["
1:eJwdl3c01u//x29um+yWiCQqQip8Sj2vShpoUUayUmmS0FIaZGSUIhklMzs7
[encoded data, 7442 characters]
D4eT3oo=
           "]], 
          
          Line[{{1.995231006039287, 6.082865242004943}, {1.9959157171960376`, 
           6.503980587974624}, {1.9965678230596096`, 6.989855881557991}, {
           1.9972199289231818`, 7.605465098057605}, {1.9979784310066, 
           8.689933032930753}, {1.998488169062255, 10.}}], 
          
          Line[{{1.9995237429707817`, 10.}, {1.9999656378224329`, 
           3.9443263873701473`}}]}, "Charting`Private`Tag$26110#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[{{4.081632653061224*^-8, 0.018395679504112472`}, {
           0.0003968027918627924, 10.}}], 
          Line[CompressedData["
1:eJwVV3c81e8Xv651P+a1EipbQlKkCOeJNJQdUiIZlZDZwJcUIUQlKSoZIXuP
[encoded data, 9821 characters]
MQyRhul+523o0JMYfu7wKQy1k59lNtjSgXaX2mhniKH/Ae7ZL4U=
           "]], 
          Line[CompressedData["
1:eJwVkns41fkWxvejkcvvsvdIkTA7SUc6kglDmrWUJNNMm5BrKBWOS5zIbVey
QyaacikURpIxbk0XlT1qJORWSSa3zDHonClF06TC9zv7/LGe9c96n+d9389a
uivCZY+SQCDYq5j/71rjr0NcbQlkP20YMLNgsOL2zoHRLwkMOQ/KMmwZDNcJ
vZ/oSsA0WvfgaCKDk14/qyS7ExjdXHXLMJlBaUqRs7IXgdJrn53XyGQwVvdy
Y44PAaViab9BLoMPW6LuOPoRaNLgHKoKGWzzla3pC1Dcz9kdGCljMEn/XX11
IIHe1UKV+bUM9t+vuxmwj4Djiyu5XTcYfFXU99AzROHPfLL8ZCOD6eJ111pC
CTzrcpcVtzF47PpWI48IAt88az1n9pjByoyKaecoAppLJFnWQwy+sTJbNy+a
wNr5U26B4wxOdNpVZh0kEBTie3rNawZLM69YBscTcFj2Q9b8DwwWGt679CGR
QONq4ZZPlFicfpBysfIwgZAQydhxhkVJguMFv6MEbLfqZRgvZLHcSP17jWME
Epscfh/VZ9FLmnEuNp3AuPaep2fMWZSvzM6yzyFgb3ZAYuPNomav26npMwT6
t+hbFu5hsT23ZUlnPgFBoyFW7WexeVXfCd/zBCrfSqR341lMnHDS+ryYgKr0
wnE+hcWYZJ+0uyUE8jeV7PD+jsUHpvopMRcJfFG8ulRSwOI/+oeTjcsJzNYn
Pg4qY/HIse+TBisINDeIrPMus8gdVHEKqCJgEJQWayJnMT8oTGO8RtHPv36T
9TazqMEXnHf6ScFjw5zWgkcsXvnK+sLrqwRCB9LzkgZZXDW119S1TqHPLHGf
HGexw1R57YebBPSlFhEFb1jUs22015MTeNNaWW08yyJfYQcbbyt4urpudFfn
MGqeVUbqLwT+qF+67ydNDunbc25sE4GHPk9mtog5jM1v+21/s+I/lsQ5/NuE
Q+2nQeML7xP42F9TP2bF4SlpbmR8u4J3+57lLhs5dFAJuwpdBE4o+xX9KOGw
oTIfSh8ScFnOdLr5cGjl0tqm+pjAoTkdD+0gDl8OFHJdTxT5fCPJZDSHgUkd
Z82fEqhNP1w2m8ThVJR5QF0/AZ2rspj/ZHJ4KPCsse2Qgmfk2PSTAg7V3cnU
nWECZ8dmfNV+4PD2cM/alBFFnjLfvut1HBpatx1tGyVwQLdcNnCXw6aYoLSI
5wTCz8axX3ZzuF43d0HP/xT8t+s17R7msI2bHfB4ScA8okNn1wSH7jSgdOgV
ActzYXe+neHw98mW0F1TBI6yTlffqfHok/vXdPOfBGQ58YJGLR5F4g6bE+8I
eIgb/MgKHo/f+3Bv8r2in1cXJywseVxU55cZPUNAe2r6rusmHvc16RblzRHo
CBsx2ufCo1m+yWeHBRQkqt4FGwJ5lH976vm8eRTiN2hbqh/gcYt0uiZNmUKj
f6xcVcZjb7hvLKdKITAlMwqyeUx//3l9tzqF8redOvvLeHztbKymxVEI7eou
i7vG43cnW3i5kMKJG35rnVp4VLP4K0+sQaFba0V31a88NjS0D45pUnCM8Trz
/A8eDbR/WblSi4J9QY95/0ceUyOvx4YvpiBmHS59wghRsvne++26FLy2Lb7C
iYXY+vJN8g19xb14zPH6GiEu/liTPSimoKsdY1lrJ8SRBw2ajcso6NsdL6vb
IURmE/PjxeUU2k4bd3ruFaL/6tJfQ40psAPLhoUyIaaVToZJTCgIZMPbVmQJ
cWGuu+WTf1LwCfbsKb4kxJJUOfE0o6BkM3khUi5E0ziDlmfmFPxXekeXPBJi
fUjayd0WFGarV3RZPxeiuEk6dMmKwqE72lWCGYW/pZOegzYU3AVKlTWMCM8v
213ssp5Catqtmz2LRPjKTHw5Bii02izcWS8WYbxBStyMHYW8F2o5slUiHE5I
aAF7Cj3+OeFeViLMVnZRV96s0AcX3R60F2HVf/UK+K0U1t1PaV+wU4Rd5duC
o76hsGSn2lxwiAgDXSaWVztTMPnqyK2UBBGiitsLqSuFfv+XHk3pItSVy2u/
3qHg90h3/fZ8Eb7fbxij50Wh19toxLlChJ8aFH7xqS+FReL13kfqRVjd/6fg
Zz8Kwggjr6h2EZ4uXNA9G0AhoTK1Yl2fCP8GF377cA==
           "]], 
          Line[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAJB2lTiWN/z8hq7F6PicSQEXd1hyJ
j/8/1xLtTvw+EkAgkj7iWJL/P8v3lUvXWxJAgE6CreCU/z9tuz1+3XYSQBb4
H2ocmP8/l5LKaciaEkC0sHUyyJr/P7/8JN90uRJAUmnL+nOd/z/M3khqrNkS
QJDRi/NBoP8/mA1yMaP8EkCEy75/W6P/PzQXcXFLJRNAIoQUSAem/z9ZFaHe
4UkTQP44fA3XqP8/T47PU/ZxE0AX6vXPyqv/P3ED0d2anhNAtKJLmHau/z+p
03jLwsgTQJBXs11Gsf8/6SCjwnT3E0BsDBsjFrT/PzR1mXKBKBRASMGC6OW2
/z8RKZkWdlwUQP8qUnOFvP8/dkfOtVLNFECc46c7Mb//P8wAAck1CBVAtpQh
/iTC/z9FauuonU0VQJJJicP0xP8/i63vl62UFUDyBc2OfMf/P0CXsnUW2BVA
vmam6w==
           "]], 
          
          Line[{{1.8752313690556592`, 3.324454307709893}, {
           1.8758574006209332`, 3.3275137819792517`}, {1.8765163812159587`, 
           3.33075927893219}, {1.877175361810984, 3.334027984389449}, {
           1.8778343424060093`, 3.3373171655010787`}, {1.8784933230010348`, 
           3.3406293918005194`}, {1.8798112841910855`, 3.3473196621072323`}, {
           1.8804702647861107`, 3.3507042848463935`}, {1.8811292453811361`, 
           3.3541150052986515`}, {1.8824472065711868`, 3.360999930030049}, {
           1.883106187166212, 3.3644820682007714`}, {1.8837651677612375`, 
           3.367990216951321}, {1.8850831289512882`, 3.3750856047349393`}, {
           1.8857091605165621`, 3.378491906035958}, {1.8864010901413388`, 
           3.3822914407949645`}, {1.8870600707363643`, 3.3859335346116257`}, {
           1.8876861023016382`, 3.3894194177109553`}}], 
          
          Line[{{1.9636536376298386`, 4.2695045811084285`}, {
           1.9643057434934106`, 4.287254382593547}, {1.9649921707182232`, 
           4.306472143581553}, {1.965678597943036, 4.326223659262931}, {
           1.9663307038066082`, 4.345618268052938}, {1.9670514523926617`, 
           4.367521961911652}, {1.9677378796174745`, 4.389083669987059}, {
           1.9684586282035277`, 4.41254510762932}, {1.9691107340670997`, 
           4.434337815207852}, {1.969762839930672, 4.4568615794185416`}}], 
          
          Line[{{1.988443956853951, 5.74486881546689}, {1.9890857663091506`, 
           5.840923083961666}, {1.9897035508114822`, 5.941914727762441}, {
           1.990389978036295, 6.065415054419916}, {1.9910764052611079`, 
           6.204030344898224}, {1.9917628324859205`, 6.3572726721338855`}, {
           1.9923806169882519`, 6.516490465587311}, {1.9931356869355459`, 
           6.730062115328113}, {1.9937534714378775`, 6.936502947229884}, {
           1.9945085413851715`, 7.238123177524316}, {1.9951949686099844`, 
           7.5617734506625265`}, {1.9958127531123158`, 7.933531765856147}}], 
          
          Line[{{0.002172844823760044, 10.}, {0.002422951164257786, 
           9.61447829861332}, {0.0030976856915297816`, 8.775478560247642}, {
           0.003680410965082868, 8.274800873271605}, {0.004263136238635955, 
           7.8856910463285645`}, {0.004842794537065078, 7.542344545994966}}], 
          
          
          Line[{{1.9995191414543783`, 10.}, {1.9999999591836735`, 
           0.018395679504112472`}}]}, "Charting`Private`Tag$26110#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwVzX881HccwHFx6+fQZOvz+Ra5dX7s5leXulh6v6cVoUepxypN2DmimbLI
ijXkoWPz6CdqrJrcdXec+/E9Sjwwk3lcIr+KWKsLu2oq0g8bWvvj9Xj9+eSK
9m6JNjczM/v0bf8/crBqqcuNi7BP/YPAoZ3BjNmscw4tBZH3tsVHGxjk+5+Q
6PaVQoBT0dJADYPjQ2MnefWlEPyCGzKnhMFQseFCrbMUwjpU8QePMcizcC1z
PyCFpO/jJP0ZDHJ1nWzeZSmMBz6I6TnAYHK6KT6DJ4ObQ4lNdWIG7eubbyhT
ZaDfUR8t28bgbVXMkW/bZNDt7svJ3MDgxoE3Q3rBJYh8yW997s0gSf3ymVPG
JVg8PfF4xI3BjrgZsvGuS5C5y6ZQzmVwR0DYrp7lcohVsKPqBQzaCCdtLmbL
weDhOdkzi8GryXf2t/4hB4HJ6dgv/1K8wstI+3iJAgoyH7fLxij2GUOEgrMK
qHI5L7YzUqxcllwQ8EAB08MR3UG9FMP3bX2V6KMEkfFu7VQrxYURz8shTwl+
nyQYYhopqkesq5tMSnBxDHk0WkXx0I+Jv60UloG91XFzfxXF9esT1gSfLIM2
Tu9l/xKKZyZM2cVjZRArjLPvLKC4xSRZvWddOYj9ugROeRTdheVF6cfKoZh1
NMmzKJZGr5uufUt2Kxyctx6keFzM16V4q4CvTBGcT6T4wjijwbpEBU11sQ6L
Yiie495z8J5QwWp/r/u/hr31I+syRJsrYLXENvfEVorLIy6usCuoAJ/CpwsD
gylmvcq0NDysANtlhp0Vaykuqe35Jz9cDVbMcMSgkOKjncJ3ZqvUcOvVuYn3
PCkaWueyxFwD7k+CN5x2pvi+LfXu99DAI4e77FV7it/Me7jAL1QD+tcpVn0f
UGzm72i6laWBzhwXuxorikzg70lfaTTQYpGeeH4mxb1xKx3NBjRw6ylnpHKa
YJNE2nN6lhaSLLNPDb0kSOS22R8t18JPRee8+E8JNgyPDW/J1YLscR+Zd4+g
7UxR4V+VWrhiwcuT9hKMc+zwT7uvhZsthne3dxCs+wxfz7fUQdqifnOugaCN
WC2XrtLB/BQuO9VIMOaIfaiPWAeeRqHydQ1Bxdh1Pf+0Dp6NGBIi9QTnN05W
R9XoIEt7/cyKCoIHTrjVFxt1cKhdtYmRE3Svin5z14sFH8l+t9wighYBDy9s
QhaKObNzOs8SjITq1Ko4Fq4Q6yjpKYKV4S6uQfksfBh7eNQjj+Dcw4UDfzaw
sNlSt7Ejm+Dn16SikicsRLZdG/RNJ6irTfadQ/TQGP+3IOQQwZkDgyM/r9VD
wJqgIY8kglFd+hbO13qQtXsZdicQlPmJeC+K9bBqyve7rt0EOT6CN1806+Hw
9tvJriKCe+ZEcfJH9OAgXtl5J4zgf1jt2PU=
           "]], 
          Line[CompressedData["
1:eJwVWHc8lf8XR5TN5T7PLamQGW3RkHNQCSkzURlRaVGSSgmFKKOQJDuRSmmg
[encoded data, 12322 characters]
Vc6Cy+2J01ocNPwfljN0vw==
           "]], 
          
          Line[{{1.863029491341594, 5.758359630287889}, {1.8636065072088668`, 
           5.760877453873766}, {1.8642138923323122`, 5.763534175183468}, {
           1.8648212774557575`, 5.766204861442007}, {1.8745394394308825`, 
           5.811198951909488}, {1.8750995729366542`, 5.813924140388442}, {
           1.8758574006209332`, 5.817638293328431}, {1.8764834321862074`, 
           5.82073675688588}, {1.877175361810984, 5.8241837196780155`}, {
           1.8777354953167555`, 5.826979037303793}, {1.8784933230010348`, 
           5.830808578772156}, {1.8791523035960602`, 5.8341479350529495`}, {
           1.8797783351613342`, 5.83735169094816}}], 
          Line[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAYHImcrQJjT8Cf6cZ1agfQB5L9W2O
Vo4/oCI8+FplH0BFHaSk6WePPxaEZftBMR9AFjbrRstckD+aRvJRcPMeQFl+
406N9ZA//ocM3RbAHkD8hB0weK6RPwBsax4thB5AD+50yyU3kj9yYegWw1oe
QIIVDkD835I/xgLuxvwpHkDFXQZIvniTP2zyGaFv/x1AOIWfvJQhlD+8Aw2W
+tIdQHvNl8RWupQ/9BBgmCOsHUBWheACI1uVP8TPG8NThR1Amc3YCuXzlT+I
2lMFVWIdQAz1cX+7nJY/8GxgYW48HUBPPWqHfTWXPwyhfBI5HB1AwmQD/FPe
lz82qQCAaPkcQAWt+wMWd5g/6O6JaWnbHEB41JR47B+ZP0jvMaqZuhxAU4zd
trjAmT/aKyKPr50cQP5khYhwUZo/YmbNu0+EHEBRRGc7E5ubP5RwQpsfTRxA
5LO3cR2jmz+gZ49eukscQCf8r3nfO5w/gAYUg2szHEDUFNvORNycPxDRBf1X
GhxAAvlta2SWnT+wwShyef4bQOkCK6FYLp4/PlxcwZ7oG0AsSyOpGseeP9Ab
XYUZ0xtACANs5+Znnz+6YiPCSL0bQHJd2pJZBKA/5FJ1fvunG0Bfuf6xv1Sg
P65jqfw/kxtAgN36tSChoD/mOTxN+n8bQGpQ6FygBaE/bF4/76pnG0AozWsP
8kWhP05m5nqGWBtAFSmQLliWoT8YZsmxtEUbQDZNjDK54qE/bhFDW3w0G0CI
UCmjLj+iP65W3MVOIBtA3jz9i4qHoj8y4mgy1RAbQDMp0XTmz6I/ft2V340B
G0DUMA2A
           "]], 
          Line[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAnnlFU3C/tT8a0rsedEEYQOBo1s8Y
5rU/zoMMD448GEB364kqyg62PxjvZYh1NxhADm49hXs3tj/+P6u1ZjIYQFFd
zgEkXrY/9lsRiaItGEA8c6Q63oi2P5z1da1zKBhA0/VXlY+xtj9elHQthSMY
QGp4C/BA2rY/EAbjK6weGEAB+75K8gK3P5ayftjWGRhAmH1ypaMrtz+YKJ8S
ERUYQIbZ4ENDULc/2IZPgdAQGEDBPEH1IIO3P6IzLBD1ChhAXAWNtbeltz/c
xf1LAgcYQEph+1NXyrc/jNTyAN4CGEAI8jFUPfm3PzzL9riY/RdAdCDKo9Qh
uD9G7ZsFF/kXQLcPWyB9SLg/8jwHys70F0BOkg57LnG4P9aEPpVl8BdAQTQV
f7OPuD8OKUYUG+0XQHyXdTCRwrg/mn4qQaHnF0C/hgatOem4PwZfg5+F4xdA
plZEgA4auT+Qco8sX94XQEAfkEClPLk/xIaRT8HaF0B/yIhXaGm5P1pHUtEd
1hdAbiT39QeOuT94RZVXWtIXQASnqlC5trk/XPaWUzXOF0BHljvNYd25P457
ujlJyhdAMqwRBhwIuj+WisQGAcYXQMkuxWDNMLo/LHvaY/PBF0BgsXi7flm6
P/xnDiznvRdA9jMsFjCCuj+alLcV9LkXQDXdJC3zrro/JA6eHpu1F0AkOZPL
ktO6P9xye+UTshdADk9pBE3+uj+ozl5c/a0XQFE++oD1JLs/zgFQMlOqF0BA
mmgflUm7Px5bbWfgphdAJ2qm8ml6uz9UKJfMUaIXQBbGFJEJn7s/No3YTeye
F0CsSMjruse7P/LYkjItmxdAQ8t7Rmzwuz/qJSFUdJcXQN6TxwYDE7w/aCZs
kFKUF0Bw0OL7zkG8PyWk1d4bkBdAC5kuvGVkvD97xPPeBY0XQPa1YLKDjrw/
Z8BNJ0aJF0Dfk1YAIL68P/z6Gc0WhRdAdAH2IqbovD8chGu8YIEXQGJdZMFF
Db0/lZEh2zV+F0D53xcc9zW9Py2lmJi0ehdAkGLLdqhevT+1VcyDNncXQCor
Fzc/gb0/pH4fJkd0F0BljnfoHLS9PwR51Mf8bxdAVOrlhrzYvT+ODtW062wX
QEvShPAm8b0/Fh8SC+NqF0A5yHmV
           "]], 
          Line[CompressedData["
1:eJwV0GssFQAYBmCKMglr5jtSi5pLiInazMn3mbZkFp1ZRXbcbyGXcqsJ6Tax
WIqawlzLSRg1haVc4uS6mntH0llW0kW59un049374/n1vob+UaKgdUpKSmaK
/O9xf415G0PG2vTaYgwHSvoYOVy8i1GqLq5OOw3kMj2nJjNmXJjQbB+JBZIH
Hp113c2o5aF70zgeaHLZXzxhzljlLTGuSALKe/72c50l4/U/l9wzk4G+B9+W
B1kzvkqNVnFJAyo3UYuxt2Us2Wyl5XgZqKhZb0q6n9Eia0Youwa0FDomu2DH
ePhk2pfaTCCRzr0JayHjm6WWnsxsILV3mqEbkdEzLPpASS7QunCDkTxHxidj
0+HifKC/SntdTA8yDoekm28vAOpVrj8XdIhRXbqULy8C0ogMGqw5zFhuFZnj
XgoUKDDpD3BlVIkwmvKpBNIfyfeyc2OMuLP8oUICpBv1UNp1lPH9H7FTTg2Q
tmqT0MuDkXzN9NLqFftVHSLzjjPWjccHZjQC7YiZa5vyZDwievAVmoESt9W+
vOXNWPCjbLdPK1B/Z+wLZx/G7IFU16p2INMzti0rfozHSq/orXUByWzKnQcC
GU8ETAbn9gKNdj1t9AtR+HzG67ZBoG+FI/2epxgXf6/1PRwCyjCwb+iMYBTE
yHsaxoAcP0jwXhSjQZ+LW9wkkDChpWZPrMJX7Eu6p4Fyd6ZWT55lnFbdlxI2
AzTb4yi5mcBYL1KJ0/4GZGH3a70sidFBbKmv8RPIy82o1SGZMZ+2zi0uAC30
XSmTpDA6P+uZd1oFcj/vXOJzkXF/geaG7coCqjRWL95yWeEBCR2rqgJSHpTe
b7+q+FfUpSJXF5BXclZBYgaj8MIQj2oJqM7U7a55FqO3TrfhJx0BPWrx3dR0
g7GjUJ7wWE9A/wCW60Lm
           "]], 
          
          Line[{{0.004932955366877961, 10.}, {0.006127857114005835, 
           9.477971000197552}, {0.006195330566733033, 9.455353059994295}, {
           0.006747386089046483, 9.265434676050392}, {0.007054083601442844, 
           9.16746374278539}, {0.008004845889871565, 8.906856507238734}, {
           0.008587571163424651, 8.76998116944216}, {0.0091396266857381, 
           8.65300897251224}, {0.009814361213010098, 8.522018583820275}, {
           0.010335746984083911`, 8.43024679490685}, {0.011041151262595545`, 
           8.314859218032487}, {0.011654546287388268`, 8.22562890121353}, {
           0.012237271560941353`, 8.144611694213141}}], 
          
          Line[{{1.9121342823770786`, 6.040735615655608}, {
           1.9127603139423528`, 6.045636729988301}, {1.9134192945373782`, 
           6.050834807997143}, {1.9141112241621547`, 6.056362018318026}, {
           1.9147372557274287`, 6.061411735408438}, {1.9153962363224541`, 
           6.066735359380093}, {1.9160552169174796`, 6.072207349075745}, {
           1.9166812484827536`, 6.077392613564944}}]}, 
         "Charting`Private`Tag$26110#5"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
        
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
      ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{
        "\!\(\*FractionBox[\(\[PartialD]F\), \(\[PartialD]\[CapitalDelta]n\)]\
\)", None}, {"\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {{0, 2}, {-1, 10}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Center, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.771003351575511*^9, {3.771003390873476*^9, 3.771003410684228*^9}},
 CellLabel->
  "Out[190]=",ExpressionUUID->"75397e57-f897-4ca7-acdd-706ff9cd20b6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Small-U limit of the correlation part", "Subsubsection",
 CellChangeTimes->{{3.77120862490454*^9, 3.771208627505728*^9}, {
  3.771208728290947*^9, 
  3.7712087314258947`*^9}},ExpressionUUID->"4019d2a7-2eff-42eb-998c-\
bb5c25641bc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"t", ",", "U", ",", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], "+", 
            RowBox[{"2", "t", " ", 
             SqrtBox[
              RowBox[{
               SubscriptBox["n", "1"], 
               RowBox[{"(", 
                RowBox[{"2", "-", 
                 SubscriptBox["n", "1"]}], ")"}]}]]}], "-", 
            RowBox[{
             FractionBox["U", "4"], 
             RowBox[{"(", 
              RowBox[{
               SubsuperscriptBox["n", "1", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  SubscriptBox["n", "1"]}], ")"}], "2"]}], ")"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{
               FractionBox["2", "10"], ",", 
               FractionBox["1", "2"], ",", "1"}], "}"}]}], "}"}]}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<U=0.2\>\"", ",", "\"\<U=0.5\>\"", ",", "\"\<U=1\>\""}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              SuperscriptBox["U", "2"], "8"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SubscriptBox["n", "1"], "-", "1"}], ")"}], "2"]}], ")"}], 
             RowBox[{"5", "/", "2"}]], 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               FractionBox["U", 
                RowBox[{"2", "t"}]], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SubscriptBox["n", "1"], "-", "1"}], ")"}], "2"], 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    SubscriptBox["n", "1"], "-", "1"}], ")"}], "2"]}]]}]}], 
             ")"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{
               FractionBox["2", "10"], ",", 
               FractionBox["1", "2"], ",", "1"}], "}"}]}], "}"}]}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.771208499299416*^9, 3.771208583003454*^9}, {
  3.7712096025155487`*^9, 3.771209647598443*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f53f57af-3ae0-4740-b122-7ccce7283087"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{{}, {}, 
        TagBox[
         {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.],
           CapForm["Butt"], LineBox[CompressedData["
1:eJwd0gk4VN0bAPBLpdEnFC0mGcrQMqaxZMlylRaV/p9Q0SJ70WIYlaIMTcgS
FcMnylp2ZRn7OYNB2an+lsqWBiNrfCTqf+Z/n+c+9/k97/ue95xzXyUHdwtn
UQzD/kGv8HvMeaSdO+pshAmfHZqGK02I9D65gzhSf8fP6UrNF7HxBXJWQpe0
WsqBIXll/1sqtkL7hjurg+PNnfkJck5C9+m17gfKYVvT/pBchbavFP8bLB1z
jLFXuY7MvEG6Zg0ErA88e7YHMtdqSWAPzjjNVz6R8xLG5eUWLgOeCbG4Jv6m
sD6UVkYHtO2Gr2dJt4X5DhfLboB4UbsMcorP/9dzCfQBhMGA5NMq95DN86tk
/EFZf0dzjRUTOTFQ/z0L0M2djp1n+yNP6TWseghUuHN1s50ByLQwl7xw8GVP
kEm4HAs5mDPh+hhEvdjMJZ97gGy3zU0/ChyTyjQA8YHIunr8EzEA89MvPd0b
hBypLpMSBzgTTXsnSQ+RL298YvAcXLW1zQ+yD0GWnl9cmwS2tUxSFVNCkbNt
HZRSwKOc9TtOqjxCNoM45xU4tDU1dfRSBHLUvIJeJrhXFyddZRUp7PcxcDAb
aGlTwm3Yj5EFIXWn3gCpCa9Gss4T4f246/DzgSCtUnymU2jlQ7TQQpC44e/A
ELkoZJWQYZkS4NMcwztdJnTAJd2FUnD6Qb/o9nPRyL6G2jPlQGLOw688ni3M
/0aW5YLh7LLKIMMY5OYkL40qUO20YsmyV2hyNul8NfD+EOX9nfSPMN5N6OAB
y7AvnBKu0M53WQp1gHpQZY5lH4d81KfzZj0YKij22JryDPkO5n28AZx82uP2
H5XnyNs295i0Acrx7RnEeqHF+X+I7YCw4uow/9ILHGO+kPJbaAcXS3+/gVaJ
yLyy8rr3YMPOSKo1Ownl+7sFvOkEog8KTwA+MnN11tuKLjDV33VVWScZWdWr
vqUbNMYqZU11ImPFEcTVn4E/oUD1oVwqjnGzHBWd+8GuI4+D8+nIxrWXp2UG
QMcD99FP9UJzJYbrBoDyCkoW9WYaslGbtd5XULecSv3Q8RLZZu2yOR+4G9yP
WN75SnieiDilYbDZx35KxR/ZOO9y6L/DwHVha/7tPemo32C1b84okPjB3ksK
y0A2q6KZj4Mi9Rts06/IzNwTSyYTwJZuOe+xL1O4nvlBg0mQNy5VyhsReoUL
NWEKWIwEG7gdykb1kVGxnBkQ++WOSdHvXFQ/appgPQ/2y9uk9p7KQ/npGZ7z
80BwVmcVIQfZuIKVHrsAFL7fdsxRe41jio3KhoM/gburNhn7jGxX8MngyRJY
75SXnqabj+JTtFBNEehyX8FmnxNy5PZWB7YILE8OF2+NQGaeIHovikCngStu
C3xkTO2lbZ0oLLLdQTkeXYBjdBGfPddWQmubpLyp6ULUf9Hi5vxqOPnJak0y
sQg5oiLchQADbQnOlibI5g36Nf8lwAJHdyInCjlx9+mQMnEoed3wgY8OB7n2
SXTEX7A2oPus2N1i1P+99h93KXh+VXhRcZrQOqKUaSk4E2Qs7dqCTNesAXrS
UDH8VW0jqQTHXhvJvq2Uhr4xN2iPq5HT9/NA0zqokb1OTJ5QhmNdVhV2YrLw
HbXWrpmGXLKjj2YuC+3eeJffs0H2ruZHx8nCcE4ffSATOTZUjaS+AY5wcz69
PFGO/kenlobzRvj849E36k8r0H0RB71GN8O//vifP6IAUb/cPiVHBRjresaW
chjZu/nKTKUCVP5AsVt3XehpyVNyJGiU0en4qRKZm/S+rZ0ESzPYRcVULo6Z
evLbUxXhuOX3iuMtyOlr2+12bYOn0mMaGWurcYwV8CfkKhnGXwgwc1FCpptr
KaSQ4eD6a83We5H7rwgWu8nQ/e6BVsMLyCU/eiJNVeBDi/GO1TnIs1gtdacq
rFw60PPMrAbNw41O9YUdkHxyYqQmlIdjTmfHTJopkOh3ZN+lJOSl87evr1eD
0jmJoWuKkS/z5CfPqMFFgiX15CAy73jgzFc12MYtZvTq1uKY9XZxEWwPvEPz
/73wDflq/jNiKg22SMnKUo3r0fnKVtpIaMJbLXp47Ow7HAtk/A46pwslqUXf
3hEacCyYO5H9QBemhtPCfskjlzztmcvThe1mqt22h5CJF1k/VurB3Y2yDDIb
ef2yXsJrPdhXP/kyX6cRxzgOvGRJfXikKk2y+U4TjmXf7tH5Zgg3Fa7rFRFp
xTGFUY7G8n7IGTRpajXowLENQQk1N4/CareELTbfP6D46i7fSXM4p2IolXOt
E83jO1LwwVNQ9GeW9BZyD860YbPkT52F4tWzYpuSPuNiBEezJt2LUPuPHccy
9zPOzKTEdVtchE0srZa6XX24cekyaYDmAEmRYz8zJvpxY55WxMKiExyb7+v9
SBvEmUP74mOjLsFUQXmD5KOvOPPwjjWm1m5QcuuryaGhIRzbBeR+/bgKZTjB
b1av4+N7M632HtjiDsNci1wSlfm4MXm8wBh3h/8aZw1d9hvG25bo26Z5dOil
wSvcWDOCM+3YpzeXeUAXLcXEx2+RlwLxX5Ue0FrbN1SiZQSnew80farygPr7
tBxEu0fQfJS0Rr/zgKIHUqUmJlD85gWL8S4PGHGS5VZLHMWND5uq75z3gJn0
g4penqNoHuOyGtU9YV8uL7RdSYBP2RW2eL/whG3jK79rqApw5pfdstnJnpBL
OWQWRRHg5hbjDZ/TPGFiZq3EGR0B3kbRC9bO9oQOL+vCP5sJcEz9EbmxxBPy
E95GDN9C9X7sNd7tnnA8rOnpcjMyXpDSjTFgb6PErO175FBH1dIVDNiy5oQV
t0uA0+eMlqPFGDA3uFn2/le0H9OGZ0ckGJDOaokm/BTg3IFXISGbGHDWpy1G
RnkMZ94SOD9SY8Bfbh+e7bwzhk8Vxs8EnWFAK+0Lj6l+Yzg35NXzIRsGzBbh
B2qyUDwi94vReQa0jZ33MHyE4kqS67/bMWBVLdH0ZPIYnphTs3+nGwMGKdrP
ejegfNNKCtWXAe/NDyZ3dCHbfw32DmDA/wGxaotk
           "]], 
          LineBox[CompressedData["
1:eJwV1ns4VFsbAPBBUkS5HSeXIpec0klR6qRZckkII7coFLlFE/ZKLonzHWQk
OimHIpPq9ImIJFTWnFJHUi65lGspkcbMHorcv/f7Y555fs9617ve9e69195a
vsf3+YszGIxM+P3/n5GxNdPq41fErWT4M85QpC50waRVh49o9/bxyAKKRErI
a/f8Cl4qtyL5b4q8MzSeEprzEa8kUTe5hCL5Z2NuqoTwkdmuQGvZWoqs3yU1
H/CQjxJs2wqMuily93bR2rc8iD9clqfcSxFjJZaTzXOIZxlmfuujiOlQ9o31
LXzEepsTUjhAEYdz6+zozxBvN88TfKFIxDv77GiFUaRJ+0cNTVJkwnzsnxGV
UcTdqt+ePUWR2OKsrwc0RlEY9bO29QxFEuP7mUx9GO/ac/7yPEWydMMHxZmj
iKWUxlWXxKQ6/OLmtOBRRIuLa52Tx4TZve3gHBviW4SOsoqYPLHsTWLjUdT8
LTswVQmTBhW9d6z4UcT4SccxVgWTnscP4pUvQT0TySITDUwY0t2NV3ngBW1V
dX1MrAu0AstUBIjxZ+dg2g5MjLPl9J6rCxAtYZKcZYqJZvrMpy4tAUroqw/K
24nJdHS77yIDAeJVOY8XIEzuOHG83c1gPv+D8jkLTBTFRK5zQQLUHOi5r9cW
1pvsVVJgg/sGxmvsMOHzG97oUQIUlrX9zaW9mDx/e8OJFSdAZtkuthYOmETf
3W9//U9YL+J3xTgnTPp9eJY2NZD/jmdfiDsmja53JLwJzH/x1ExjPyZVdpef
RNRBvJVf70vwBRNslvsa1qNi6zQ9MbFarm8qHID8nlWWhQcx2SypPCMxLECs
hEjK0guTVTNiNT+PChBXk9/VA/7xudvEfBLyce2dJX0wKarNMLokI0RmxVaD
xocxya44NVa4Qoh4M8rt1eDE28FltcpCxAreN7vDFxPvLIuNw6th3CqaNvHD
RJ49uW6HsRBxOzNC5Pwxmff79MVxO+SzaFSIA494tPz3CFOIGBpe9DC4zqpI
L32PEIXdXLCvCsDkpIbPmg8HIf+c7PktQZj4sgzdeg4LkWZN5KY0sMMfYqmd
AULUHKCq8x6s9+W66FWYECVcuD8bH4yJgvoJ3RcnYP2IhIGX4DmH3R51MWDJ
DSuVj2LSVjHMq0mE+VZdUflg3lD1t/scqM+54tp7cJHqWf2ydKindY3a6hBM
/pOw4fytbKhnbdRCJph9b/5pQR6MH2QebQB7fG6azCuA/fDcdefBhnsjfC4W
Q7yyXZpXKCbq8RaZGWWQ/4j0Ng5Yqlzp39RKmJ8/ZFQOHvs0OJ30EPrn1hn/
Ftyn8uDX33kw/va12iy4wTbF99Qz2L9RnZTGMUzux3lknWyAfFtLLHaAuXfX
NUQ0ganEJjdw2seZuWNtkG8LKjoOjvrp1abgdzD/fGdHEtjP5qr/kT7ol5P1
vhyww6njOT4foR9SHI3b4N9KzV55DkO/FmVvqwLrDciLuY3CftzDrj8Fyyt/
NHYag/2+lvNuBM9aVwTtnYR8M2FBreDhmKRc61lYz/DSk3bwiNv6oGsMGjFi
Y0I7wIdoRfHVEuBizYA2cAdn9kquJI1YrimlTWA77cEtqktoZFZfvqcezHv0
qukvaRqFKRZsqgVvdasMVpalkaa0x9EycLHwqkTmcpi/s3vsGngN50zeCgWI
nzN4mQHOXhNmkq5EI/qA83gMWO7R/hYZFRg3cAnxAye67grhrKRR8/wWIxvw
lOAXSSl1GvF0GHYGYHaKQn7iKhol3K0pXwb+pDWzTVwL1jvBPjoC16fZpTF0
ThfqKRl+kQfeLahYHKsP9Z+pC6fAj87kcX+sg3yH6oJ3g2/VsNvGN0L8Kj/b
T3C/qLu4s8M3Qz/8NYxKwRdG0RKhMeSP3Bx6EnxaU950ZDvUN13UtAD357fq
qfZAU9hPy6ZpAj7qPHB8kAn1bXc9EQd2Tb53/b0Fjbi1xIuG+9+A7yrTaQ/x
jzyn7sPzUuWyl6SyoJ7cAw4eYIvH5hTTGfJrrIudCsTEM31j9839kG+i5KAh
mGO4tAj7gf+WtoiC51UpZ8FbPwD8XdtTHMwVm1DoCYL51dq2nCOQv3UgxoIN
/a2MvH8OzoPP+JGtQjTUs1iyNgzOj4je8vlnsRBvPsj9cAieT6vC8ujTYIaU
tyNYSSVL9cMf0L8NzYFacB5ZVB8fKU0H687U5sN5xp1bk2p/A/Jf0CmShPPR
IGAlU+wWWHvA1tINkwevl49VFEL//L3q410xeZ0/66FeCvWKn/cadYb1dnX8
8rUajI1/FLBgv8mcFylNkF/V3iDKBuoVxMeZtkK95ofqE/dgEu4euYlug/rU
KnanW2OSou+X494F9vb9+pcVJpUNpsF6g9DfV6LepF3wPlhOL6mbhus7P3Gv
cRsmrY9Tz9jMQb9tnG0emsD1DdVd3LQA62s8Mbi1Fc6rBk+JrkUixDit2B9p
DE56NieUEyFWtcv0942YrJi5PKamLUJ0qqMLpYfJsiGrHspOhMyWyy4+Bu/H
xkvvPafsRYi7mSm5eAU8/5ax706zwPIdXrlymMgU3O3guIpQ2NpO9X9kMJH2
UmvJ94F8xRd7R+B9u+QN/ewlBXbRrCfwvl5ErpRq54qQpsJlj4h+inSZWu7p
vwr1sa+oX4Dvg9Ia/vvL1yA+2udNCXw/eFbuVFC4BeNllav6OylSdqcfM8rB
cWeZas0U8c7V/q33X8j3JmCLOI8iVdFFdVnjItTc0l+fkUeR9Elnr30TsJ+0
eJbjFYr4nZj9LjsF1mEMyORQRC7cfm3SvAglpBfqnrpIEf8gIYdaOgbzpy23
n6VIj1SIDHPZGDK7PeTdlkKR/wEXH7zx
           "]], LineBox[CompressedData["
1:eJwd0nk0VO8fB/AbylYyiPCVESaERCHi4ifZ04rsk+1IaCZtX1tFiYrwRSpp
oVSMUBQ9j5C9b1MTWbKENP20IBOD8n2e+eOee17n876f57yfc9XokbuChAiC
yEEPfudzss4co0yRE04+/W6JTHhwU02PuNMUGWVhvoyzgwnr2J0Pq12myATq
lkxrFyZcdWgiPsRtiqzzSvctcWRCWKhJe7l3iiyovVIRs40JZRXSGQn+UyT7
QFTEnBkT1vADJWei0fd+YJShyYSSUMpitGCKdGvmfvWZZcAHDvQC8GuKJB68
/bYjmwE36apZkvwpkioUzXbOZEAgNdQH59G8tTthezoDsjk+Ci+In6RbhIWr
cQoDTvt4XmqQQDYTr+DHMqAlwy2mZc1P0kpE6MDqIJTPs/R4a4ecY3aoZiMD
8saVpMeyUd7rWlJb42H4ePd24SzbabJAw7RYCkTBePukG5Vj06RVdiWT5x4J
dcyOj/BmpskRamv0y9WRUK3fsft2Eo8curqgNUk5BM1MErMUDX+RCS3JhkXM
MOi95jV/CecXWbCx5t48NwTy2i4OR52aIa0Sw67/WB0Ec0V8j+zSmCUTnESm
24/SoezA41tCjcjdT4M7uvzgxxDnuKfvZ8kOiZRFXXM/uDT21J4th/kkIXM3
7lj8fkgU+7KGZeZI4uaSW0GNeyEjj3VRph65T/G7i9BO+Hx9shglYp4k8mqN
v2c7QIojQ/e01AJJsKtAVIkNLHixUtKMgtyi4VZ02QYabCn5MimLrN+r+yPa
BrpqcYsCFJE/wk/PLG1gyjJfNWsN5IPL1M3fWEORBgd5wgz56VvlT3wr+Mtc
jYgLQqb3RqtWWsIPemzOiVrk7pRel1JTeGOcEisMkTc9uNxxxhTSi3fTLr5A
Xoi6G+lpCr9ovD9e0IQcfGKl+lJT+Et5QKWZjWx35xHpawIpEl9D5D4h3zoh
6q5gDO3GRBdKV/wmiQtGdw0KjaD4HYdCU2lkworlEG8EOwJSXetl8Lxn9pyn
EdzdL3WzUwHZ1jL0iJQR9H+3ym5BDbl2n8eKk4bw73r1dAdjZLquta3HRliW
T2qM+iKXiW5nB+jDnyd/igYEILv1ylZS9aGx+93x/gPIE1HXhgb1YM3KlRXv
Q5FnM/iyfnqwKWHAup2BvFz23Ki/Luyjx/qVn0XuqIrdyNCBy9bV5CWUIouM
mmW306CDcGTc7zLkumNmeZk0eGFwLf1kBbJWTfBnLxqk5KZoH6lGTli33eeb
JvxLfH91SD2y9EntKllNaDg+2+nahZy+vW9thDr0YRlTVP4gb31t3+ZJhU/2
z0qxiT9oXnaUT6NCqWXPlp8RRk6WfLHAVYV13hZiX8SQW2iXZNRU4VoJ28VK
WeSy4g7bKypwLHDnN2dtZG6PaHmxErSUlh1fXI+c0FoHXJVgTs07brk+8lBY
XvS0IrSX8RhdvQmZOm/10VoR3oe+faOWyBMV2iWjCjBCKbw1Zg8ycWn3vMMq
2PRSr3mDO7KYetJVvhxUPfyjcdgT2YNWP1IsB9nNjDp7P+S6x7UHl8tBw+gT
VXJh2J4Ke3tk4Mzrs4UP45H9c7OCMqRhQtLNUx/uIxeklioT4nDFMVHHgBLc
R0UyM10M5oUekhljIVvl0NTXisEKpy23f1RiLzam2ovCMcqbRiGI+9gGH761
FDrlE2LaHGS2ufuaFCHYnRbMLunEjuOMrReCgac6cg278flHhuC/S2BcYK72
1n7c74DXTYUlsEzHwGnHZ3wfXx3Xhi8C+Sq/S9HzOM+M1HecA7fvvdw39xv3
mdxlweIDg7z1qvHEIrrf0EYPeT5wiJ1hJS9FtmKcYf1/BsT8L+3N1ZXIdTvu
lz/gAfHNvCtUGWTqKs8FKg9k07zohXLIBCfCLncasMTX/SxVRC4AOzsv/ATD
r4FcvTrO65uzLk6CyBca/XY0bLm0VzKTYKE8pbBdC9lfuXzgygRYlb3PuFMP
n0exveP1A9h7f3fnmuD9bFZGzzgo4apclXLGlj4al/IJJF9P8h9wxeYu8GpG
QeCub5qlO3EfiWMzkyPgr9raMhd3vE/rUdzBYZCS5tV0gY7zaUJt6wZBsG1D
qncQzi9u/fymH9jwdXbqhuL5vObDxA+AT5/raz+E3eo0JdwLQo2vTEqcwPnw
tpchncB2nKjq/RvPefLH974DqgWhMffjsIOD9zpxQJe4qahjIs4bCbvseAPK
wY0OxXPY4kdtfdjgElM048t5nGfQbcb+Bdv6u/46n4Yd0HoqvB1QMyyHPTKw
5Uxrm1rBgl3RXa1/sB1pOgYtoLIs2rAlD3tLKmHwEqQH9c/kXMde0yXf1AAO
Km17HlKAbWxSG1YP1ibK2YsWYU9PSwAI/pjGrHh/D9ubk+/9HPR8G3lb9EDw
/QhXvgaku1f42D3C9lBU7X8Cwpcrq8tXYhd02XIrgf2L09xPT7DDyzNXVIBF
nV3MpFps3UlhRxboHXxquhdiv2tO1n0InmSp/dGoF/TRHCeLQYbD+YbpRuzV
NIszRSDiz0RyYzP2Vo/zvNvAscLDNatNsN/47T83gWZonWzgK+wJFfWmfECo
aPUYsbHvsSKr88CHN2n5whzs44P7iBxQfXbmAKcT25+RdjUTZJn7ad/uxq7b
XH0uHURNNH1n9GEnmD9ITAVOhfqVNgOC/+v39ctnAW1/9gmZj9hWAV0Gp4HQ
yj+WwyPYhL7h0xgw0BAkUj4m2J/LUjkKnh1/1Xrqi2C/icPpKJCttzlt51eB
5ZPLQ8Dh4Wt71H4ITHmyzh8454goTU4K9ilTkvcALefwwbppgQ8Op28HIkve
3UmfEVh6wzITMPTYPMx/TmB2fAMV1Ibd3mDwW2B/pVczz3NUJXmLiwIThKWF
xX/TKo7k
           "]]},
         Annotation[#, "Charting`Private`Tag$7550#1"]& ], 
        TagBox[
         {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
          Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0gk01F8bB/BftFD+Gt4oSnZRTEqZ6qUrkqJUKEuahqa8I1sREhqytCBk
60+SqEFarCH3GUtaMMmfV5aQJMmW5dVC3jv3nHvu+Zzvc+7z/H7nKjt7Wp0S
oSjqMtnC0/zU4Dv+11M7KeHaq2q40ETeq0duNyJS0mpYjfXupKQVytkIzd7G
NcH9a9RC/DSYQnvsLHLAFo1tBbfl2ELrDZicwWpRCtnzihyhT2gW+eFZ85PJ
ThoexPyetNuheCispdYp6SwxN8zT+Dq2Zc9Uxsv5ECvptk/H41oT+dKaNF9i
WqTA8RbWVTV8MqV4gdgrjnsuA6eJsHLU710k5k1rC7KwWF9o5lGNYGF9wOTL
HFze29xYY8MV9js3e+ox9jrENndMChHOEynZVoA1+NN1U22hxIEu41Yl+MPG
SJNouTDi3uy9WuU44c4qvvqxcGJNu3RHjM2X5xrgtAhiCcEjvypMXfp32dHu
SOIrP4e/1+CS0YatY4pXidmqmul12I3JLIh0ukbsY+sT9BqrCMboSveuE7+Z
64xtwDH50pqHNWKI/3t1Lu8dNlXIyvrqcoPY0lsQ8Q8OrvubVmUTS+w2mxzU
irfoa0fbJ8URq7S28dvx8lGfenVGPPEkb51kFx7KrhSfaBO6OVD1QjfOkDkY
cU0uAVFccZf2lo/4YmNy7dFyYorZuXDbJ3w0vFdE9Vgi8Vz769x+LDF99lJF
WhKxs3gbfMFfHpZXRhomC7+308/5K65mi85adwvddeOkzDfs35LgP6x4i9x/
Tbn64Si2jvpQ8oxPTH34U713HNN3a0yHOf1N8tTTqSbfcX9h6VmFe6kk/7J0
1moSH77Z4WqpkY4ovrRxcMcM1rZQzZF/Scx1C0uR/onFRN2+DLjcIfUDN59Z
/8Inyv48BZsMkme6WXyfxTJasXS7pLuIMmr0KT+wAETCiw7gAWJ+h91zSREY
733vpsbIRFTG/KvgFhGoT1HOG28jVlK/5+SxEELECtddlcsirlh6omsJrDeL
u1LgRczfyu9uE4PmcM+vnS+JuSGLt7SLg5qodh7dN5v0k2sPHlkGdXNZ9Jbm
+4h6Ynu7mE4DT4PLN+a0HpD8gASjlgarLjqNa4QQ095tqHKUAs4PhYILG3lk
njCLuSRpkJhM2qoYlUP69WWf05WB4k3nk/Z+ImZ9u5XcLQNML+uZsztyyXxz
/j03ZOHxyPKy2kFiowVK/b9XgtXgFQNX04ekXjT2X7/kIeVDgEnxn0fkf/lr
Vb5Sgl1r7LO6jzwm9QuT4rYrw5ADY5FYPvGhL3v+eqgMa4cvnMzXeUL6i+6Y
T1QBT46+OtVFzFKpHwlSA2n2Y172tgJE8dyHh9I14fTltfY72MQsvbqy9VpQ
kRkt/vYG8X8UaLueaQH74xnXHwMFwvf1LPD9eihmampbJBYiyj9wskpHB+zs
7z4e/16EKLvqaRXZTTDWabM0U76Y5IxpN/YmiGCKnbI2IZ7yfx9YuAkKT3rK
lyQQ77fkjllvBkkPw/CLjBJEDQbEa6brwYvQdofFQaWI6nUx1rTTB8dF0cWl
2cRqWtkTBfowEWlE4wiELrKIlGSAUvSDF/WKzxC1kOZAe8WAwOTzunHVxId8
RXi7t8Pmh1KL14iVIyrWoXUt2wBe01+wGnWJeRNevHoDYD31rwi2F+aPquf1
DCG6pMfrYy5xi8reVUt2wiA/v/P+gQpEaZ4eni5BkN667+mmm88RpXKmtTZ9
FyybD3E0WwuI2l00HuNtCikcW6b2HmLHVbtohaag1qLNkvIgLpfL/t+EKezM
aTvZWUm8Gd5PeO+Bspyk4lI6H1EJmVtyA8xgxHr4uYWAWHKxxNrUfXCEl1zv
/Vc1ol7pLbHVtIS046H7TysTJ9Ddo30soU/avdFuK3H89lGtKkvwDDJ+a3ic
uG+zVeKxg3DVaqR5ST6xhOiiVPNDUDlr3JG6vwZR9JCPTdGHQf3w6GDN9VpE
mblXJe6wAflLZjtc7hJ3aPt2udoALT/j+tJS4h86B0+k2sAvMWv64T7i+DwX
uTkbaOKXendve4Eojvk8s+YIBOiG/PnxmdjPukbnmC0Ilq9YQTd6iShX/bHq
UgfwE2xHKVOvERWUrtEh5QSS9OLPr8XeIO7MiOeRjU6QFa0b9XvNG0TF3bUd
2u8E7/ava2eaEitNTLKuOMGG+hXe6knEtod+cSln6Hk5dr+AUY8o6amxK9PO
YFaVLdkY0IC4I2Ub0ibYsLJIqnvBgreI+h1n0sTggGPUb5t+WWLnaEEskwOZ
7M/1ddrEKXlSHuEc0JYpK7tu9xZxZVXvBf/DAWNfVqLME5IzWGozXq6gn2Z7
P2FjE+Iq1yxBT8+AE/P+cV53E3nPts6TezygpM+k4a1BM6KiciOv9Z2Fatfb
q+2HW5CRo5Kve48fTGsYLs93b0Nc3gGtz6uDQeRnHm21egfqrTZuicGhIF49
tXjl3S4ku6DPstMhAvTnWSXWj7oQZdi4ZZVHBDSEbRHUre9BRhs+FtcwroFi
7LefOaO9iNp2R6fifAx8m+npbtXtQ6zbGXd0DeMga6jijWTMJxQ7v2bFes5N
kFR4MNbf34+UsmUvdQUngtUQc7tg2QBqMt7nOchIhv8DmbfOJg==
           "]], 
          LineBox[CompressedData["
1:eJwVlnk4lOsbx0erECLpyKmhSFpI06KDRyEpaoSKsjRKkn2LFCqESirJMvO+
0h5F5bRQ3VMhZC2UJVTIMmbGEEdSv/v3x1xzfa57/d7P8j4aHL8dByYxGIxX
+Pv/f/2Jh0s2zOkmyRftp2paXoER05xOz6jvhFFAYmxN0yHYoLhgzpse4qZg
tm5TSwZ4sJhZF8p6iDg/bXrjlwzYvebYGbnqHpK1XNuY05MB/6xncSY19ZCO
utoavx8ZMGnjdQWhsIcwNQctXBUy4bxtjFeJWi8xtW2VO7cxE+76mzODA3uJ
/7ekH4o3M6H9fvGZOo0+wiS0ldY+LtQOTBEYLO4j+Xv1o2gPLvCXWVinLOsj
WUU26SreXMi6WyK3ay3aT78N+BHKBc7N0nOt1n1E8bVh4KmzXOjmlZ3/fqSP
sHmZdxofc2HgbOWliSqMP/fuj5U0D9reyQ27fED/Yp6d0UweVMvY2PM/9aH+
I2a6Sjy4H181+9S3PuI/kiL8bx4P/GOqL0uP9RG3aXJr9unxYDii9oryon4i
Vm3K2ePAg3Gv+swlR/uJ25PxK708Htivcb6wIqqf+Mtw1jGyeZAr1R23KgZ5
4Vil0k0euKSNBhgn9RNmqlPl0vs8eFWittk2u5+Y/uaOLnvJg9PMfcNhFf2k
NoOV7fWZB8qNA9ZlagJiqjx6tWwuBd5XQzdWLRAQpnN2pZM6BcXef9a+XyTA
9VlZ1LOAgtDJsxa2rkB/Pfu2UW0KmvRZY6KNApKl7a7yjUUBfeboDdXDAuJ2
InKWYDsFSzdM/+1RJCAdNh97X56kIP9uzuJPfAFRtFgwRzqOAtZstq1VqYDw
q5fPsU6gwOh72vWldRivfPhM8XkKtp3T3SruFpDksOMLjnApCGyySQtXGiAd
PpbUlwIKRjZKXvWpDhBmf57txycUROSm9u/5e4CYEvVXbwspiIlqNzHRQXv8
vuo0PgWpWgFdk0wGCOP4u4jxdxQ8C0gxOHsI7e9ch159ocCkZd3eCd8B4jbT
6Q2nk4LX5p9jfYPRXi0x/N1NQYWqdhM7aoDo+46raAkoaH3xJErl8gBRpOo9
DEYoYMi0VFL8ASJepu26ZQYNltkaBx+oCglDolpxcCkNrDR57VJ1IRHHPjJc
v5wGZtJ4Z7OGkHSsq+uYrkfDz/AGzpRlQuJfFvM+xYCGe7YJLrtMhYRp/WlF
iCENylKDDhOeyI/n6m7fRANj9PNsJV8hUdy/tbDekgaBoOKDdpCQJL++H+pg
RUPpp+u27OOY70R4wGZrGsLzd9tcuyAkWXL3nYdtaWh35ZtbFQqJm92TM+57
aah0uDfZBTBf/anUTGcanm7NeB1YLCSmpaziahcaLq4NNuVWY79n1sVp76PB
QkHHSPQV7Z/6UjMP0GAwVWV8cg/yC9HdXA8a5o9LFc4dQP/K0c9PD9LwX3fL
2o2jQsKX30y/PkRDzsvzqy7LikgWtJzM9KEhreCY5I6iiPjPbzsZ60tDzN1D
D16qiEhyXxzl5UeDS6qZXs8CEWEMmy/WDqBhlu+o7j8sETGtXBvMCabht3tn
73ZDjJdaZKkVQkOfY93t/SYi0mHWbvANudgiRztps4hEM6Ls2EdoOPK3q+aX
vRhvPJEvCqeBw9bf2bpPRGrLRkn8URq2nZJK/OiB/rd3z1GPoEG799pglb+I
sA33pK0+RoOSeohWeYiIuD2INytCnti2ybH4qIiIZVmrjY7TUF/Qwy+MQXZd
2a8XSQP/+7PhfxPQ/9H8vGzkHLUzOg+SUD+P/1QxioaT0cuTb6Vh/r2+3DZk
30e/32TzUP9CrVCTaBocu2tGedmo52B3SjqyvnWga0ou+pcOZW04QYN6lNml
8w9ERD/g57kk5OkPZ79NfIz1iqKhEVnS2fUztgj11XiuVjtJQ5vqkxUn+CLC
r0oV7Uau2BLPOVaC8y0XD1xE/ve4Y+qRCrSXu+iXIWfl61YE1mC/VRWP/0M+
+218wqdeRPJLmCcWnaIhbE7VykNNGJ++7fxWZHcr6sD+NuxX0/yLD/K2Y37p
rt+QVw2FnkFen2da5dSD8Re2s68ja3+dJbVzAPOPbPN5ijwLbxVbCdZX6q16
i/zLssDTehTXN1E18D1yz9FYruUvtI82OH5C7tu51PMqQ0w6ejVim5DdxMqT
FkwWE0bXz6EG5MaEX5ncqWKSzOHcrELeurBrtZq0mLjV7eHykfnPq2quyKD/
ZUHDfeQ1Ox8fUpmJ/tPU7dKQc0XU5EsKYqIYPKR8HFkz4TRPUUlM8pmRc52R
0zT91ybNFhO2ebnbOmT557vrZFXFJFquUyCPHOOw4XDCX2jPaH/egfMbEy6Z
Ol0d802rqb2H7BuvRMfMF5Nap7c6ocidGuPrJmmICTO9vdgQuda+0ntCCzmz
ofwhrucmYcG0CB3Mr91v4In8/DQv6z9dMcnSTe6Yi3yr0Ld+SA/15cyU8cb9
om6/yzfAAOMvLI+TR744QKRFLDExfX3YMhf3WyRzllGfIerf8T29Cffn8LOx
hoNGYuL/JGLpIWQvu69+XSbYb0jrpGHc3w5xj651mKH+8NJT47j/lwkcZD/a
YLzxpPo6PD9P7a0hkY16JyqzVyCbvdgYZGInJmKy51ssnjenJL2WG7uR2+SK
FobRkKA/IyfYHeNVDlSr43mdnf7HRccD+6eaWDZ4vrOkRpRaPbH+HYFCWBDm
f//1qJkv8rMkrRd4H3QHP9+iFI75Souap+D9Efj54e+SCJwHT0YijffLhMWd
h+GROC/XyBPTvTG/aqral1OoL75CZhjvI7Nnfn15SRh/wawhEe+zrAnNRJvr
YqI/2Fqctwf1efxlInUL9QSVU3ucaHhSrSApuIPc2DUm5UhDNf3LUT0P52th
s8ZkJ9bb0Lik/xmuZ8rr5mA26o1LKI+vwXl1sgJbzLBfYdRxo/e4v1R1H+lt
pCFgV+hKcb2Y8G+PRUea0hCv456+qxn70/UplTWm4XGF0SHtLuzfWk2xazV+
DxTE0sU/Ud+lFM4lbRrev0g8bTWB8xDpuz9ahOvrrTWt5g/qebPsQbUm3lcV
TpObpwySjjjfdaPzkWNLJkTygyQ547GMoioNiuMZknkLBwnjgW/4vmk0yH23
aA3aivYY38IE/D5WXu5wGrMZJPzO28oq7RScNY9oimQPEvbNlR8zWymQzc5v
THBA//WWVzM/UiDjPK+Odh0ktZmXXfZXUSD9QVzyLmiQMH/rec97SsEUyMxb
yEXWX3VtcSIFzUbmm9sp7K+sye0Lvg/yCgUdGVcHSfSnfd2XT1Hg9NhYSekW
5pf22i46RsGDe+3BjIeDxG2qVqm7HwUu3IXrP7/F/kGxwN6OgqfhOcWpQ1h/
IiyEo0pB0qid846RQZIf4OcVpkyBe8ivHzPHsJ6VjkuCAgXyATaLY38PEsVN
26y40yk44ClKCJohIfn3WzhxozxQ2rVqO3uBhLB3GNv4NPLgMKuoacZWCTG1
fFh4KZkH/NqG3Kc2EuLWzAzTPMsDFR9x1EG2hIg/XKFzT/MAbmhplzhIiL91
CutRJL6/VJMDo92QHVvvJ3jzoGhsv+xoCHJ5811nSx7IgrxxZxbWm+O7OX+M
CzlWnKyXI5i/0SQo3JYLrGUaJmQM7Wp513ZYc+GlfEcLjEtIctI8to4lvnc/
OKu+YgwRxpZLi8qNuDDs7Jj0RmaIRH9pHuxYzAWTQPaxsvlDRLHtZY3XRCbU
Zpjsfr9piOgP5+76cSMTfvSrKXanDhGmqN5650AG/GtnOTnFfJh08F+ub2Wl
Q9TmWLqge5jU9swxN/O/Alb27osdfwwT07zxVLC4Av8DQuluFQ==
           "]], 
          LineBox[CompressedData["
1:eJwdz3k4VHsYB/CDkX1kuZXKtTRpUJIiKUaKbHfKUhQxROFKltuqNChpEVdC
KinX0qIRcwvxe5GlSBGia0kq8YiIGPv9/fxxnvN8nu97vu971DyP2HsLUxQV
gR/yllKNuRM/Ocraxem0Pm+QBEYbzyUo6Y2xKHrPzfawa+D6+9sJoUZsw5AN
U2F/w6+amO7A8HGWqXnljifpVyGZ5vaXPUPA4nZVx++6ewkUOv+9J1whYJkm
Rp8wr4+CT4dswwpbBKyuZysbTPZHgeiZcMdNQRMsjsct+7sdEUDdd+N1y0+y
uP0pTxY3h0FwCi9GvnySZar6qNBt8jiUaEeLywVMsSjefmGniSCQsw5eHUGf
ZlF6heufrfWDtDJZKSO5aRa3QYZ5W9wPdDfl9A0rYC+jnO988gU2szfTQwnP
t7ZcEFzzhUsL3NS2MnA+Xjg0O+EDtBdWiygjbMUQWc/aQzC2WY0K88bzNGZ0
bqQ3tK+pbzxZjK3GfFpm4wF3+uXOiAB2jLC3qI4HeN530Igpw/YqEngu9IA+
RsuJtCpsIVrHn80cGFvWqVxdj/slMib5HA7ISX4/pPgV53muA2yBG1j0iE0/
lplhUWZRXPMYF5D4xyrDcCF2ubCvvbMLvPa4zC6Xx46Lbb22wgUcOuh3mxdj
PxC48Yv2AafpN4tpNey7VKR//14ILV8RZ2WAvTQ1p3iPM+Smshhf3LAFGhMj
jrth5NSImIcH9g619PBVu8HAKau/4wD27aOaZpOO8FxWNr/FB7tfqsElzRGq
uJ1ba4OxbzTxhgcdoM3zjHteFPaHyNDs6/awYNXzFO5jbMvxzG0Su8BK5EjY
TC7Zf7bSpWInXPmo7nkqH9tk7+j1YztBLvmS5l8F2I/afTe3s2G5xL6CQ+XY
353MrR/9AXr9gmb2e2wvwcUQdxvYzzOQU57FLqDbV8ntgKf7BPR6apZFWRx9
U1RjAfQFRdKRIti6FyZWnrOAUldj8T5x7Kb7ahyBOahLbp/jK2AXJNA9e7ZD
j5fdgK0mtiu7MKbVDEwWKvTPaWO/G4r6mmwGSc+bevN0sIdeDeTtNQNLeecv
SzZg00LWP27fCg/Are2LCXZy+hZGrykELPV/ddoRm9HKHdE0garKNdVrnbCj
jRpMC41BJehHRfdebNt09jErY6ivDi61dCf3Gg8m+28BvaMnnyn6Ya92cH5a
YgTjb6MyHp3F5mjrLru8Ebjn74a3P8Duyubdrl8HMsfFrD1ysEtFRsUj1kGK
z2H5Hh62M83XYMM6yLfZlP6Dj52gk/8+RRd65BoqhAFbNcLNslsHbFIpcc1G
7N6xe46RWtAae7A+p5n87/EpxqwmeIW/TtZrJc5XPXJKE8K8kjW3dGAvzG05
fJwJuVq6Nju/kfsuxM1FaMCiZ+5Xj06RvGcAPqpDenblnskZbO6B1W+C1EE3
RVvlLDXHogIf0q1E1cHqzDgvWhQ7N1QqXFcNTm+Lbbgpi502HIPWqoCE/q8b
qvLY1AH9QL/fIVHDxTNDEdv0QXZ/ljLwJFaNPFbC7mLyNmovh+63SLF8BckP
lvTaK8GRMkaHhQbxzLGc9CUwnXcpo5ZJ+u7laI0vht8S9xg0r8He1WxnnrkI
LF0HnXo3Yg8Zvi1gKEJOr/JNui02t9S/xlQWom+f53SyyffW3dwldPCyH1j5
2I70B15NGpOG5cXFuX84YXNa6ioqJeFSrEvVFU9sVdMr63gL4OD2F5ddvUlf
vM1MgSiYTWjZrfYhuUjb55c0mPCcbKs9TP5H+l7bpDD4GNwYljxJ5pPsqmzn
0PZ+6tl/odil7HffYAappPmcfhBG9juIpZpMo/cShmLW58h9U3aBbhMoD915
rXSBzKcw3OfG0dUQsfi+i2Seoxz9cAyZd7xffjGW5JuTmStHkWq8SbdzPMkr
mwJ+/kTTFplZzOtkv+q9KzXDiJ97VO9lCrEC+7X+D6R+TtFSLJM4arVq8Dc0
a3hapiWb7Kc3avO/og8Dn99lPiT+c0ZV8guKc8rfb/GEOOLWy6Eu5C+9bMUi
PjFTelDoI7Isi+j9+pS43lnGsh3NadmHnC8mzhJx3taC/vtYaLgbiMPy9403
oacJarOM8vm+n3Vv3qF4q4svRiuIDZXlXtWjgNmh6Ipq4tyF0zV1yDrfmZ1Q
Qxyn32BRg1b6lCp41REH522hVSNKmflhfT1xRWWtUAVqb4hNFWkkji+YNi5D
BVHjBxqbif2lQgNKUMJmd830VmLO9aaWAhQ4VDUY3EZcPJDI5yObDB2+Wef8
PdtXCT1BGvsST8p/Ig4cCgl5iIRlZ026PxO/zEjmZ6DOF960vB7i3qxNJWmo
6ETdq/A+YmrmvPgNlLhGP9bu+/z9vgNzf6Og7luOaj+IuT06SdHINom2dHiY
2PSNkP1ZxLT1/1g6Om9OCS0Y0YSa/okbn58vY2d5oK5/N/txJuf7U6VrrVCx
X/pa3Zl5ix/0UkdJKlK/5ubmTVEF643/By8N+UQ=
           "]]},
         Annotation[#, "Charting`Private`Tag$7550#2"]& ], 
        TagBox[
         {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
          CapForm["Butt"], LineBox[CompressedData["
1:eJwV0w00VPkbB/AbW02lqH+KiaiY2nZ20qsSfpPXCm0aZNDsyEgjhWwlUoOQ
UGgatLa8h1IihuQ+5K3yFmlVIiklEb3YEtX/cc+5557P+T73Oef3Pfcu2u29
w12BoqhjeE88t7r3tVS8dTemJi7XmPJfTJk+z9XNCCr2KW8jvfpSYnKhut2E
y4qnu9GvNHSCj7AEE57l/+EobdXYXvCPumjC96OEp2mdaM3Mn1pitHbSwicy
enyrW4Ir6wA6/+S1nlS6/2RbtavMF+3zakQjl94p+lIer/4X2r9ssWYBXW3K
lFclH0arfbX/rYTWW2KU/1nr6MS86hdzoJMVhDm66YFoO/uA21U0oyckzYF1
HK2hK/e4S9/qbm2sspOgk+P7chppn+2irS6yYHR85lhVC82qGKn93B6CTskx
VXxEd66IMI1RP4m+W/BT+piWXlKr0HUOQwvkloHP6K3KuYZ0cjj6unimSzdN
ndhY6tAVgd7TlJ/VQxe/b1g7pBWJvj3Ff2Ev7SUQFES4nkYfumBa/YZe3DTE
0U6PQl/lv0vsp8/kzVlmyzqD3uylKB6mzTUzMt56nEXHKitofKSP115QqbSL
JZSE2/D1zSd6zTp2DF8Wh/b7sabhC638/q96Xf14nI/LZfWO0v2Z5dM+tqMl
lJ5YbZxOUf0j/LS6FHPnzjMeFAQ2JlQ73EJLMnnSnEngENatsMT5PObvDZxH
FUBpxPdEWbIM8+fssjuT4c3VW+URRgmE4iY8TjScCndEiuO8rgkbWVdWM8C/
Teo/oJWE84NpBykl4EV3FpdUTNg7d8PNmcAxY42cdL2A++tb6w4rw6tCua9m
+t+E6t4zY6d0Ntiee+q5jXURc5PAnamqwLZaksOsQ3M3G3bL5wFD0evNa49L
hBKyDTf8Ox/+LP1xA+xS8H1z1ZjlTFD9NZbjKEslVIpP2pTVWqAQdtOGfj3h
dS3XzLRhuPuxl45+Gu4Txw1/0ob6xEVXhtvRQssX9YLFEMwoXBqpnkGoB6lD
3nt0Ybll3KkCH7Q2FBEzFrSGeb/tqENznR2Vli4FHUX2Fc7hTNz/7mDh2DKo
/Z7BaWvNItT2gC+PXrDB2zD07PdfL+P8493L+34HtUDXYVYwumJ93OVPHBB/
1Sw4uiIb+0ldpRajB0qfZGu1onNw33/GCg9XQdHKQ7LNL9E+lcy5+1aDwIf3
xdcgF617pHHyGrg+qFxa3YcuMYsgpmthR98pQ0/zq4RScXvr0qUPiZ0BpkU/
rhHK/5WUm2AEmzT4GV3217Hf6u+VTsbQ76Q/mZGHHg4Onb6IwMKBo255v+fj
ec17x5y44C1ep0s9Q+/1UCmlTGCO6Hp25voCnH8g0ok1hz2hC/kGInS36tQT
DAsoS4uZ1nwWnayXsSXEAkQv9nl+fY22exi5MsASigTL2FbnC7FvZZkgcAs4
8lOvD3+4Sajs+MxbVTYw1GE3PY1ZhH3YcVu2bINwAcOdZ4p2zNm0smUbFLp5
M4ulaMrSuPnlHzDrgFFYoH4xoZT0ki2VbKEm5InTlCA5ocbtc4yEPHCZHFMk
z0THptvk5fHgYwRXRdyEPsbsrh7jgXbM5Zp6rRJCbWZHDCTZwbGEQ3pxd9D5
fpWLu+xh1dXZUzQYt/B7mDZ/e7gj3OPUCBv10MdM+nd0OYLwhn/ZcT66qdiC
0udDTPFznxe56LsdHOd+PvRV5HVk2ZTh+TZkq/Kd4eKjLTdWnrtNKJ1rVJmD
AGb8DHaxXAiEWm/u1STeDYninQK2BdrGNiv00m7QaWMLZx9AX2RejH60G4xz
2t06ytGjZz4kmbhBaY6sSM6pIJRF3eZ0bREM8gZuWzWhO8M5RwfcwT47od5v
5h1CPf7vvVeVGJJ3hVjvWYQ+yRJeUfSEnjn7Gx3XosNXSI3NPME7yKTZaBe6
0cTZrdYTIncMtk7NQzMefstq2gfl4yZP/7auIlTG5BLm0H7QtX3fVxVVjf11
hr7R9wXmCUsDj1T0RgdemNAXVPJSoqbL0dmbzO0jfeEbg8ex7UG3bJNGdfjC
gwq5X9f6GkLZvxyxDTkIAXrBP7721hCJ9RoDiyd+0KQ8dy6HW0coZo1Hw9XD
cKRpA0n8fA//D3mcSv8xmMUp6r3HuE+oc7c9MxcEQUaMXvSYBnpHZZa7TRC0
WC99IjC/TyTN2YZ7bwTBb/Vz/XRl6B9BZw8FHofndUNZBfr1hOs0c277DAlY
VmbOagxoINSN1lpSEgzzb87umjSpmVSYB4hcbcPAJXrM7tW8ZkINqvxv9sEw
SBP11teyMa96l/IkPgzYqqWlUY7NRDIYbV3UFgYmh4XnVfMxH22XyPjhsC55
Z5Z0xQPCVWOv+u4RAa6CrF3ZXQ8ItaZgnJsQCcU9pg3Nhq1E8uwUFBufgTue
/yzgD7QR7jkrJ5GBFEZYRsp5+9uJZJ6ppmVSEiiMXlFZoPuUDJ8dH7X6JQXC
l6fOy5A9I9rf9h6SL02H/wMHc5Zs
           "]], LineBox[CompressedData["
1:eJwVlnlYTG0bwBuFyNamVCgpSehNZEl3iyWKt7TIVqE3RVKJFlIoLZIQ0kIq
2ixFaZk55x5USCshpJIk08ycM4lKxfd8f5zrXL/r3PvyPEdrz6Et/42RkpLi
kef/7/ht1gOxBa1geCivJMwqC2sjjeur9dtBc5HrolX3b+PsxN6hPHEH8ANL
TY5fzMfegfa2N4ad0HF0/YP/nO5htoBbMyXhC/ScX7vjHBThlJk5TFdXF7QM
rZr+wvYhxnuXeGbM7Qbh8Jf5rotL8Jd5QZdX+DewnqJ/LH5eKQYaVRZPf9oD
qt2iAb+OMmy/V3m2SUsAMR6pnqfPV2CjSEZoNE8A7LPpzfmXK5BvsNY2yUAA
ejIWrvWpFZiRXzVpq4kApD6rl0/IrcA9t6vPtdoKYJBnpWHPr8Du9OfnvwUJ
IIKJWTKbrUBRfO2l0ToBTNuxKD7dlottLyf1u74WQE+n6hSLLVysn7jJkd8i
ANmLA4YdW7l4L6ZO6fQXAWj+Xr5Rfi8X/SLrL8sOCSA5LdbNLISL/ccaryrO
7YXligzFz+bi8P7m1PmhveAyzKLNIBcdl+26sCi8FzRVTy4eO8rFO5zuM0si
e8E6QMWrgsND1+QB/9UJvZBsba+nKsfDx1Vq1vaZvfC8XuFCxkweRmvu7g+u
6QXVxgtenRY8VHwrsn2uJiT1z0pVjuahz82jlnWzhdDT7eZveZaHlT5/TV7N
FYLL2xMP9p/n4VFpee3WRUKQNbh64O5VHr43NB5iLIn+79D9wzk8vHE29JbK
ASHkphxZUPqMhwssxv/x5AohePrc2ynSFBbmF8xr4RM+aJ14fDyFxkp29huq
hZCRyBa5yFFo+i05e0ET8eeMCX8VKNx8Tt+G7RZCSxDlMH4OhQHvNyWHKIhA
dt90yxEzCn9Z9j0WqBAONZ8bYUnhsTtXenfMFEFZt4vcn7UURoa3m5npiUDq
nFHrN1sKr+j4fx1jJoKIzCDjw9spLPdPMor3FoGXi4aBZyCFZh+X7xz1Jfaa
4oZigih8suZTlG+gCMxvrUi/FUphjYrue7twERhaWO6sjaCwlSoNV74sAs1C
N5+GeAqlJn6svc4Xgbt164m8LArXZ2rtK1IRQ/KIbVlqLck3eYputYYY3C8s
yq6tp1AzYbjrg5YYvMJ8ewcaKfwd8maPjIEY2IfSUavfUHjXPtZ1q7kYDA2s
iiM/UajIkTiNeokhUbopgSMi/gY+KSn4ioHvd9HznZhCobDmte5hIs87FZ7D
Uljdkm1vFyaGsqDfvsv6KQwpdNmUdUEMPXnR6lOHKWx346/ZUCEGc/e6w/nj
aax1uivtimIo3PWjWHsCjWU2KU8CKsWQOzlU6+pEGi+aBJqn1ZN8St8E+Uym
ce1UPVOmUwyNH6SGGhVoNBqrPCzdIwbVknWB6ko0zhrmVKiKiLwryrsr0zjY
/dHEckAMwY1y99+p0FhAn19yWY6BQdNDzhEaNCYXH+/Lm8aAX0hMdepMGiPz
vYtoZQY0Hd/aFc2i0fWK1eKe2QyUOfgU1mjSKO87oL/KmIHnYtXTj+bS+Gdv
1/d/VzAgxbO9k6lDo2BbU66HGQPuDcKeGF0aK9cW6CZYM9DxbP81Kz0ag2a6
zfm8kwHrlxZP/RfQuMfO0Ll1NwPLRwrq9A1o3HyaE/fOk4HGMfpabYR1v2dJ
6vwYMPTVuLlkEY0KGkd0Xhwh/hpCat8QHt28bltlKAPTOJRZwGIam4t7+BWR
DETUDP28Zkgj/1t5f0kskQ/mrNT5h+SvdlavKIHkryP3NJ/wqYiFiTnJJP/v
hzOzjWj0ffjnaWY6yX/XuEHVJTRu624YSM9kgD3PuRBN2NA2wC3pDgMu7rVn
HYxp1Ai3unS+iNir6RcWEh7/QOlZ3CPi74JJouxSGvu6vv6O4jLQ8tr2yHbC
bSqli07yGSjcJ0m9TbhmY8ye41WkXs3d0iLCJWHbrgTVEHmnH3cWLqMxo1C/
JqCB1OvT5ytehOO/DI8ebCb+5U89TiccPL3uH+/3DMj+m2tQR3jvhuv/ebSR
ePIWtvwivPn4oWtuXxjoETJP1UxoXHnfvG57D6lPShOznLBupzzHWUT0ReU7
7AnLK38xtu8j9t8ljfcgPLK+2Mt2gIFgGYcffoR7QqPS1o+QerV8nxVMWOC8
wOumFAsdhxziQgi7s4pjZkuz4JWRsPQI4bexI6lpY1kIHryueYCwjfbXpWqy
LPhhvM0OwnxeXcPViSxY//R4tJbwMudH3sqTWXi+ZcVufcJ3mOvSl6ayMG2D
pu0EwnNio9OnKbCwnLM0qJPklzzHzyRBifDOq50lhKfwXJrkVFhI7DuQcJpw
pJPFgdgZxJ9ia6gN4SHx/LHjNUi8lcq5kwn7xijciJzFQswTm+k1pP5dWsPL
x2gR/bCSqgjCjY61PqM6LEQcnfG9lfR3nbh43DE9FqTUU3adIsyLTs8Y1GfB
znqH0hzCORW+zT8Ws+Be2L7BjsyLhuNWX38j4q9184s2Ml8XyVHHGLNQdtg5
fh/hE5rypoIVLGiaVbTtI/PYXz70Zp8pCz1133zbyfzud+g89NWM6IfZrbEn
7HTmYVaHFQv8VXl8bTLvBkInuXebiP4W58mRZF/KHG0xzo4F2YZL6jTZLyvK
8rCZAwuNuSf9JPo0bk9Y/PGWC/k+L1piNZ/GWMMJBYF7iT+fjfuSyf4qXfvr
qufJgvkC5nEa2e8Mzi+FVi/SvxK1/SnaxP6rzlArXxKP2/fbJ7Vo7A7kbVQI
YYGV/i3+S86TgE8P/lQdI/q/V7+qVyf7uTbvQcgJFgxD/eWuqhH7KlfUPp9m
oWWbfaSiKomv/JDgfgLp97r+Ih45zzJG58RtyiYcx9NsGkfy85xhxskh82Fy
bnjpWBpL66f2FeeReCaVWiRJ01h/Y2Sbxn3S30qL6auliD+Lt/N7y0l/sgom
mQ9RuP1M7IuYBjKPSlG3Jgko7BaHh5m+YiF3t9SwbA+F/luP/sM2k36ZzX73
5yuFMXp7r239QOp1vV3/3WcKH9WYeut+JfMXV3V05XtyH0xlZSt/s6B3oNCj
rprCV1Rc9IZRMn9C76T4Sgov+uiMa/hL4vOwWr3uCYUKNdulP8hIIHh8EieP
IhxVNcpMkcDzJ0tiDIopnDac0qeuLQGX+VOXLcygcNK3ta2HbSSwPHJAVZvc
j7WXO7YPbZKA14My46X+FMavOfb+hB2xVxQ+0dKXQrnMwrexThLg12iJbLwo
nLhLvemGG/l+MbRecyeFsq/ZqpeHJWDu/XJCE7mvZTD1vnaaBHqUGsx3TqLw
g+ka6/brxL9L+q4wWQrvVwg7Um4S9jHNTpYh9Xu0WkEhRwJ2sct41AgPi+62
B0o9kEDH7g+BT4Tk/ydNe+WnZxJoyUrhlL/kYVlIQeWVHxJILrnHBETx8IAx
9/0Emz5wd4uZ1N3DRX7jmztlmwjPHJxQ/YWLygfZ8H12fWB+7bb1zTYu4i0d
3SqnPohZeSl5QzMXFVUSAyLcifzRCsFu5CJ3yENu4Egf6DllpxUncVEOp6zu
yuiD5HXnE0dWcbFgw54M+lcfWHeOGe0Nq8CfvWrTuq/8gMa9B7Nm95dhicN6
6aQ1/RBs5F1+SL0Uw62jbhR390NMzs9Vc9aUoNanjS1ZUT8huLJ/o8DjIa40
iUyaYfQLpJzyo286FuHOWQ1DnNe/wN3xTKXaq3v4s+Zcp9/JAfDzd2xWoPIx
WcY1cMvcQZi2u56Wn5qDim0lmWMqB8HObLj+1fUslDpl8kTjzSDwFVc+PEn+
1/8HIohJ8Q==
           "]], LineBox[CompressedData["
1:eJwd0nk4lGsfB/ApylKW0eQgjEG2cpIXWcpYyjtjK443shtEKjQlqaEhhCwd
SUWvRFEdoQgden5jyXLSm5IU0SRZXgqnxTbMuW9/PNdzfa7v7/7e9/1cD40V
4Rq8mkQicdGD301OAeb7++bo/NyByHrtYiDd9a0YklugF1Kt03hmecDOq8iQ
a1qgWxm9OxrjkgNPtqSIk8MX6aT2/rAjwZlg8vqX59mRi3SesPXER+tMqOSU
/k45vki3Ulw6G6aaCUXPW5UUTi3SuYIXd+t6MyAlYo0+NQHlj3g1exwywLUq
wUU/F61fWySqZZIOo+axeUwCzZ9RXlTYlAZke/bWBGkB3SqDwktST4bCRpl1
5mQBnWtGrDq/KhkMzO6Pz2xAnldvLuQngbPOWEmAooBO2iTerXIjCdLW+tKs
NZFfG5+3VEkC0WamPMkcebJPT0U1EX5a0EhxwQI6L3+aGWyYAO/1u7pjGlCf
ZHAL2yEWbkyQY0UAuYRiG6kYC6y7v2llNCKXzeVfG+XAuGbvqcJW1DcTOBqR
yIGfmwZV2rpQ7uq6bQvvDJAlJ0Mon1GerFk5SD8NdiNignKpJTo3cXAvwz8a
JG4xb5vKLtFJj/wSn/4rGjoDLjg3ySGT7nSHi0XDbwPSN3t+Qe6nt+2pOAn+
rzfaCWjIHcfV1qw6CWeaNC4yTVDfIVmfv8pOQGUBXXPYFzmbosfezIZvp7+J
BQQgV9e27hAeAxP30omBQOTZti7td8egXkamqjcU9T1u1TufcQxauYPWz9jI
Qr0hm7lI6GfF+j1MRt56VMnrjwhYq12fxy1HjpazTfc/DEyRiLilSmRV7p5y
1cOQ/kGddboKeTmlUXMgDMhX03RP1OH7PCDLeIWBsoRnXUgTckF8zFvPQ2A4
Mdfj/AaZTdYzCwsBnwoTssoy8ohVOKk9EGo856S7SMvo+6V+/n4hEKTX/rn+
nAiyztsqh32BwPPeJT4ujvyTT1PrY4G65G5h9QZki8xO1t8BMBLk8sVRFzls
XbeNsT9Yym6YEG5Bzm50K1v2gyv1r8ce/oqstLvv8iU/YMh5DCsYITOKPlaC
L9wD3/5hS2SOhoQIzQfClY50cNyQMx/Izop5QutT/bZt7sg1TDHzOweAemyq
ZegA8mBM5C7mAehqY/MYfsgm6ycTMzzAMCqmlhKGPDxwnUx1h9kXybfLzuL9
VZ3mgt2Am3Qz/v095Jzeb9Iie0EqWsw+4D6y7E7nJI4z5IUelRupwOd7z7ec
dYIqB7PiqWrki/JTMdOOMEJ+2bIakBV0VUX+tgeHApK4bjcyn9CcM/g3vM06
2HW/B3+/cu8wwg6C4juvGr5FbtdXUHCyg7igq7o7B5A9CmY0wvdApZ6Bw95R
5E7/si+ELcjX+mVGLSJHbu9ozbOC4jtP9y8sIU+XJpRZWIFB3hbqWZIQnUfA
TqmnAzN2tiJlDbLHwLCUgyVwbLNe5ssgM1g305MtQML4xzU1OeTpzhSXfnPI
1fJi3aYgm/J3RBiaQ4WE9rdyRWTZSzPlo6Yw9IKgNGkg35FpoISbQAT6y+y0
cD/j64keYxA8TLv9TAdZJ9+HRjeGjbn7TXr0kbmXd3ooGgHD+6v72A7cR82S
Gt8O98dU8qUd8f56hXOjWyDlv0n+g87IlYP86k96EOT6ZXO5C76P7c0Pw7qg
3NBQ6eSO++Kuh85qQ1qWV2s6C5nkPn/NWxMO7m6+4B2MbPUgXPmcBtjM67ls
DcX2Z/aVq8M8a6H/2VHcn2c0uZEGoSbXZiRjkHkxfDNbZdg9QartO4P7o6T9
hpSAWhjKuReH+5Udzl1QhDcSpmL2iXhe+L/kRXl4SNzoVDyP+3/K727aCJnH
xbLHU5HVXoU0ZFNgz8Ab5dQs3FdSf3mfHKhlWw55ZCP7e5x4uYsMAruSUp3L
eL3S1VgjWaiujDJsz8PztIbyM+tBPZHCECvBPriQylkDy6Ycqd47eH+7WyfH
ReDdl0+vSv7A6z3IYyGr4aJ7lY/dAzzvOb95u5A4sn6Thnw1Pr+n+rMcAcFo
TBj7XIPzJ10DiguEUM/1eFIDzlkFack/iL4Pj03/Azi3zDQ/+o2oyaEtazZh
C6nnjs8Q2czU5u8teP5NR/v2KSJ8eTqlpQ37/5JVjycI+yoP55y/sE14lbFj
xOZQ3oag59iKO4o4n4n3L7MKRLqxjaKKtPhEXfJsYHcPtr2bb0E/kWPhp1v8
diU/7OLVS0ROt35l92OLXmfEdxMOt3+tthnErtloJ9VFaHnmxsh9xN5XuGuu
g1gts2w59AnbcXEsp4UYbA4WfTiCzWPWvQLiz1PPO+LHsbkWj/triVx94yyX
SWyGg6rRA+LY0HU32hT29DqfS6WE4xVRpZkZbCu6G62A0HE88oH3HZtkzTn4
OyG66vWti7MrfeQ8ajzBf2QR5r+wkpdStQ8RDWHF2wyWVrwzSNaGuEJd90Mo
XDGJK5vx5B+QPuGz
           "]]},
         Annotation[#, 
          "Charting`Private`Tag$7550#3"]& ], {}}, {{}, {}, {}, {}, {}}}, {}, \
{}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw12Xc8le/7AHAjWX3IjuyVShIyKi5RSUaKrIrIrqxzSltkpqKys4qIyB4Z
[encoded data, 9150 characters]
YPbmRQJzrThW6ZZ6WJFCAxHDb9NtLetVMWLsqzQaDf7/f97/ADgkcFg=
          "]]},
        Annotation[#, "Charting`Private`Tag$7620#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwt2Xk0Vd/bAHBDylBkjhQyhCSVaJCnDJUhJbMyq1CZVVJJoVSGzIV7ZCpR
[encoded data, 9516 characters]
t5756rQLT5TkWWIyifXw//8v/wcTezJ+
          "]]},
        Annotation[#, "Charting`Private`Tag$7620#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw12Xk4Vd33AHClECEyN8iQIkklGmRVJPNLpvSaZ8msMpUMGUslCS8pYyqR
[encoded data, 9638 characters]
14movJJ+SHadzP9jIcPtrOeIJ8Jsv+l0Ovz/99T/A8rbna0=
          "]]},
        Annotation[#, "Charting`Private`Tag$7620#3"]& ]}, {}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=0.5\"","\"U=1\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-0.1, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.100\"", -0.1, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.075, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.075\"", -0.075, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.05, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.050\"", -0.05, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.025, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.025\"", -0.025, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 2}, {-0.11803397776696967`, 1.0388911952929902`*^-13}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwd0gk4VN0bAPBLpdEnFC0mGcrQMqaxZMlylRaV/p9Q0SJ70WIYlaIMTcgS
FcMnylp2ZRn7OYNB2an+lsqWBiNrfCTqf+Z/n+c+9/k97/ue95xzXyUHdwtn
UQzD/kGv8HvMeaSdO+pshAmfHZqGK02I9D65gzhSf8fP6UrNF7HxBXJWQpe0
WsqBIXll/1sqtkL7hjurg+PNnfkJck5C9+m17gfKYVvT/pBchbavFP8bLB1z
jLFXuY7MvEG6Zg0ErA88e7YHMtdqSWAPzjjNVz6R8xLG5eUWLgOeCbG4Jv6m
sD6UVkYHtO2Gr2dJt4X5DhfLboB4UbsMcorP/9dzCfQBhMGA5NMq95DN86tk
/EFZf0dzjRUTOTFQ/z0L0M2djp1n+yNP6TWseghUuHN1s50ByLQwl7xw8GVP
kEm4HAs5mDPh+hhEvdjMJZ97gGy3zU0/ChyTyjQA8YHIunr8EzEA89MvPd0b
hBypLpMSBzgTTXsnSQ+RL298YvAcXLW1zQ+yD0GWnl9cmwS2tUxSFVNCkbNt
HZRSwKOc9TtOqjxCNoM45xU4tDU1dfRSBHLUvIJeJrhXFyddZRUp7PcxcDAb
aGlTwm3Yj5EFIXWn3gCpCa9Gss4T4f246/DzgSCtUnymU2jlQ7TQQpC44e/A
ELkoZJWQYZkS4NMcwztdJnTAJd2FUnD6Qb/o9nPRyL6G2jPlQGLOw688ni3M
/0aW5YLh7LLKIMMY5OYkL40qUO20YsmyV2hyNul8NfD+EOX9nfSPMN5N6OAB
y7AvnBKu0M53WQp1gHpQZY5lH4d81KfzZj0YKij22JryDPkO5n28AZx82uP2
H5XnyNs295i0Acrx7RnEeqHF+X+I7YCw4uow/9ILHGO+kPJbaAcXS3+/gVaJ
yLyy8rr3YMPOSKo1Ownl+7sFvOkEog8KTwA+MnN11tuKLjDV33VVWScZWdWr
vqUbNMYqZU11ImPFEcTVn4E/oUD1oVwqjnGzHBWd+8GuI4+D8+nIxrWXp2UG
QMcD99FP9UJzJYbrBoDyCkoW9WYaslGbtd5XULecSv3Q8RLZZu2yOR+4G9yP
WN75SnieiDilYbDZx35KxR/ZOO9y6L/DwHVha/7tPemo32C1b84okPjB3ksK
y0A2q6KZj4Mi9Rts06/IzNwTSyYTwJZuOe+xL1O4nvlBg0mQNy5VyhsReoUL
NWEKWIwEG7gdykb1kVGxnBkQ++WOSdHvXFQ/appgPQ/2y9uk9p7KQ/npGZ7z
80BwVmcVIQfZuIKVHrsAFL7fdsxRe41jio3KhoM/gburNhn7jGxX8MngyRJY
75SXnqabj+JTtFBNEehyX8FmnxNy5PZWB7YILE8OF2+NQGaeIHovikCngStu
C3xkTO2lbZ0oLLLdQTkeXYBjdBGfPddWQmubpLyp6ULUf9Hi5vxqOPnJak0y
sQg5oiLchQADbQnOlibI5g36Nf8lwAJHdyInCjlx9+mQMnEoed3wgY8OB7n2
SXTEX7A2oPus2N1i1P+99h93KXh+VXhRcZrQOqKUaSk4E2Qs7dqCTNesAXrS
UDH8VW0jqQTHXhvJvq2Uhr4xN2iPq5HT9/NA0zqokb1OTJ5QhmNdVhV2YrLw
HbXWrpmGXLKjj2YuC+3eeJffs0H2ruZHx8nCcE4ffSATOTZUjaS+AY5wcz69
PFGO/kenlobzRvj849E36k8r0H0RB71GN8O//vifP6IAUb/cPiVHBRjresaW
chjZu/nKTKUCVP5AsVt3XehpyVNyJGiU0en4qRKZm/S+rZ0ESzPYRcVULo6Z
evLbUxXhuOX3iuMtyOlr2+12bYOn0mMaGWurcYwV8CfkKhnGXwgwc1FCpptr
KaSQ4eD6a83We5H7rwgWu8nQ/e6BVsMLyCU/eiJNVeBDi/GO1TnIs1gtdacq
rFw60PPMrAbNw41O9YUdkHxyYqQmlIdjTmfHTJopkOh3ZN+lJOSl87evr1eD
0jmJoWuKkS/z5CfPqMFFgiX15CAy73jgzFc12MYtZvTq1uKY9XZxEWwPvEPz
/73wDflq/jNiKg22SMnKUo3r0fnKVtpIaMJbLXp47Ow7HAtk/A46pwslqUXf
3hEacCyYO5H9QBemhtPCfskjlzztmcvThe1mqt22h5CJF1k/VurB3Y2yDDIb
ef2yXsJrPdhXP/kyX6cRxzgOvGRJfXikKk2y+U4TjmXf7tH5Zgg3Fa7rFRFp
xTGFUY7G8n7IGTRpajXowLENQQk1N4/CareELTbfP6D46i7fSXM4p2IolXOt
E83jO1LwwVNQ9GeW9BZyD860YbPkT52F4tWzYpuSPuNiBEezJt2LUPuPHccy
9zPOzKTEdVtchE0srZa6XX24cekyaYDmAEmRYz8zJvpxY55WxMKiExyb7+v9
SBvEmUP74mOjLsFUQXmD5KOvOPPwjjWm1m5QcuuryaGhIRzbBeR+/bgKZTjB
b1av4+N7M632HtjiDsNci1wSlfm4MXm8wBh3h/8aZw1d9hvG25bo26Z5dOil
wSvcWDOCM+3YpzeXeUAXLcXEx2+RlwLxX5Ue0FrbN1SiZQSnew80farygPr7
tBxEu0fQfJS0Rr/zgKIHUqUmJlD85gWL8S4PGHGS5VZLHMWND5uq75z3gJn0
g4penqNoHuOyGtU9YV8uL7RdSYBP2RW2eL/whG3jK79rqApw5pfdstnJnpBL
OWQWRRHg5hbjDZ/TPGFiZq3EGR0B3kbRC9bO9oQOL+vCP5sJcEz9EbmxxBPy
E95GDN9C9X7sNd7tnnA8rOnpcjMyXpDSjTFgb6PErO175FBH1dIVDNiy5oQV
t0uA0+eMlqPFGDA3uFn2/le0H9OGZ0ckGJDOaokm/BTg3IFXISGbGHDWpy1G
RnkMZ94SOD9SY8Bfbh+e7bwzhk8Vxs8EnWFAK+0Lj6l+Yzg35NXzIRsGzBbh
B2qyUDwi94vReQa0jZ33MHyE4kqS67/bMWBVLdH0ZPIYnphTs3+nGwMGKdrP
ejegfNNKCtWXAe/NDyZ3dCHbfw32DmDA/wGxaotk
            "]], 
           Line[CompressedData["
1:eJwV1ns4VFsbAPBBUkS5HSeXIpec0klR6qRZckkII7coFLlFE/ZKLonzHWQk
OimHIpPq9ImIJFTWnFJHUi65lGspkcbMHorcv/f7Y555fs9617ve9e69195a
vsf3+YszGIxM+P3/n5GxNdPq41fErWT4M85QpC50waRVh49o9/bxyAKKRErI
a/f8Cl4qtyL5b4q8MzSeEprzEa8kUTe5hCL5Z2NuqoTwkdmuQGvZWoqs3yU1
H/CQjxJs2wqMuily93bR2rc8iD9clqfcSxFjJZaTzXOIZxlmfuujiOlQ9o31
LXzEepsTUjhAEYdz6+zozxBvN88TfKFIxDv77GiFUaRJ+0cNTVJkwnzsnxGV
UcTdqt+ePUWR2OKsrwc0RlEY9bO29QxFEuP7mUx9GO/ac/7yPEWydMMHxZmj
iKWUxlWXxKQ6/OLmtOBRRIuLa52Tx4TZve3gHBviW4SOsoqYPLHsTWLjUdT8
LTswVQmTBhW9d6z4UcT4SccxVgWTnscP4pUvQT0TySITDUwY0t2NV3ngBW1V
dX1MrAu0AstUBIjxZ+dg2g5MjLPl9J6rCxAtYZKcZYqJZvrMpy4tAUroqw/K
24nJdHS77yIDAeJVOY8XIEzuOHG83c1gPv+D8jkLTBTFRK5zQQLUHOi5r9cW
1pvsVVJgg/sGxmvsMOHzG97oUQIUlrX9zaW9mDx/e8OJFSdAZtkuthYOmETf
3W9//U9YL+J3xTgnTPp9eJY2NZD/jmdfiDsmja53JLwJzH/x1ExjPyZVdpef
RNRBvJVf70vwBRNslvsa1qNi6zQ9MbFarm8qHID8nlWWhQcx2SypPCMxLECs
hEjK0guTVTNiNT+PChBXk9/VA/7xudvEfBLyce2dJX0wKarNMLokI0RmxVaD
xocxya44NVa4Qoh4M8rt1eDE28FltcpCxAreN7vDFxPvLIuNw6th3CqaNvHD
RJ49uW6HsRBxOzNC5Pwxmff79MVxO+SzaFSIA494tPz3CFOIGBpe9DC4zqpI
L32PEIXdXLCvCsDkpIbPmg8HIf+c7PktQZj4sgzdeg4LkWZN5KY0sMMfYqmd
AULUHKCq8x6s9+W66FWYECVcuD8bH4yJgvoJ3RcnYP2IhIGX4DmH3R51MWDJ
DSuVj2LSVjHMq0mE+VZdUflg3lD1t/scqM+54tp7cJHqWf2ydKindY3a6hBM
/pOw4fytbKhnbdRCJph9b/5pQR6MH2QebQB7fG6azCuA/fDcdefBhnsjfC4W
Q7yyXZpXKCbq8RaZGWWQ/4j0Ng5Yqlzp39RKmJ8/ZFQOHvs0OJ30EPrn1hn/
Ftyn8uDX33kw/va12iy4wTbF99Qz2L9RnZTGMUzux3lknWyAfFtLLHaAuXfX
NUQ0ganEJjdw2seZuWNtkG8LKjoOjvrp1abgdzD/fGdHEtjP5qr/kT7ol5P1
vhyww6njOT4foR9SHI3b4N9KzV55DkO/FmVvqwLrDciLuY3CftzDrj8Fyyt/
NHYag/2+lvNuBM9aVwTtnYR8M2FBreDhmKRc61lYz/DSk3bwiNv6oGsMGjFi
Y0I7wIdoRfHVEuBizYA2cAdn9kquJI1YrimlTWA77cEtqktoZFZfvqcezHv0
qukvaRqFKRZsqgVvdasMVpalkaa0x9EycLHwqkTmcpi/s3vsGngN50zeCgWI
nzN4mQHOXhNmkq5EI/qA83gMWO7R/hYZFRg3cAnxAye67grhrKRR8/wWIxvw
lOAXSSl1GvF0GHYGYHaKQn7iKhol3K0pXwb+pDWzTVwL1jvBPjoC16fZpTF0
ThfqKRl+kQfeLahYHKsP9Z+pC6fAj87kcX+sg3yH6oJ3g2/VsNvGN0L8Kj/b
T3C/qLu4s8M3Qz/8NYxKwRdG0RKhMeSP3Bx6EnxaU950ZDvUN13UtAD357fq
qfZAU9hPy6ZpAj7qPHB8kAn1bXc9EQd2Tb53/b0Fjbi1xIuG+9+A7yrTaQ/x
jzyn7sPzUuWyl6SyoJ7cAw4eYIvH5hTTGfJrrIudCsTEM31j9839kG+i5KAh
mGO4tAj7gf+WtoiC51UpZ8FbPwD8XdtTHMwVm1DoCYL51dq2nCOQv3UgxoIN
/a2MvH8OzoPP+JGtQjTUs1iyNgzOj4je8vlnsRBvPsj9cAieT6vC8ujTYIaU
tyNYSSVL9cMf0L8NzYFacB5ZVB8fKU0H687U5sN5xp1bk2p/A/Jf0CmShPPR
IGAlU+wWWHvA1tINkwevl49VFEL//L3q410xeZ0/66FeCvWKn/cadYb1dnX8
8rUajI1/FLBgv8mcFylNkF/V3iDKBuoVxMeZtkK95ofqE/dgEu4euYlug/rU
KnanW2OSou+X494F9vb9+pcVJpUNpsF6g9DfV6LepF3wPlhOL6mbhus7P3Gv
cRsmrY9Tz9jMQb9tnG0emsD1DdVd3LQA62s8Mbi1Fc6rBk+JrkUixDit2B9p
DE56NieUEyFWtcv0942YrJi5PKamLUJ0qqMLpYfJsiGrHspOhMyWyy4+Bu/H
xkvvPafsRYi7mSm5eAU8/5ax706zwPIdXrlymMgU3O3guIpQ2NpO9X9kMJH2
UmvJ94F8xRd7R+B9u+QN/ewlBXbRrCfwvl5ErpRq54qQpsJlj4h+inSZWu7p
vwr1sa+oX4Dvg9Ia/vvL1yA+2udNCXw/eFbuVFC4BeNllav6OylSdqcfM8rB
cWeZas0U8c7V/q33X8j3JmCLOI8iVdFFdVnjItTc0l+fkUeR9Elnr30TsJ+0
eJbjFYr4nZj9LjsF1mEMyORQRC7cfm3SvAglpBfqnrpIEf8gIYdaOgbzpy23
n6VIj1SIDHPZGDK7PeTdlkKR/wEXH7zx
            "]], 
           Line[CompressedData["
1:eJwd0nk0VO8fB/AbylYyiPCVESaERCHi4ifZ04rsk+1IaCZtX1tFiYrwRSpp
oVSMUBQ9j5C9b1MTWbKENP20IBOD8n2e+eOee17n876f57yfc9XokbuChAiC
yEEPfudzss4co0yRE04+/W6JTHhwU02PuNMUGWVhvoyzgwnr2J0Pq12myATq
lkxrFyZcdWgiPsRtiqzzSvctcWRCWKhJe7l3iiyovVIRs40JZRXSGQn+UyT7
QFTEnBkT1vADJWei0fd+YJShyYSSUMpitGCKdGvmfvWZZcAHDvQC8GuKJB68
/bYjmwE36apZkvwpkioUzXbOZEAgNdQH59G8tTthezoDsjk+Ci+In6RbhIWr
cQoDTvt4XmqQQDYTr+DHMqAlwy2mZc1P0kpE6MDqIJTPs/R4a4ecY3aoZiMD
8saVpMeyUd7rWlJb42H4ePd24SzbabJAw7RYCkTBePukG5Vj06RVdiWT5x4J
dcyOj/BmpskRamv0y9WRUK3fsft2Eo8curqgNUk5BM1MErMUDX+RCS3JhkXM
MOi95jV/CecXWbCx5t48NwTy2i4OR52aIa0Sw67/WB0Ec0V8j+zSmCUTnESm
24/SoezA41tCjcjdT4M7uvzgxxDnuKfvZ8kOiZRFXXM/uDT21J4th/kkIXM3
7lj8fkgU+7KGZeZI4uaSW0GNeyEjj3VRph65T/G7i9BO+Hx9shglYp4k8mqN
v2c7QIojQ/e01AJJsKtAVIkNLHixUtKMgtyi4VZ02QYabCn5MimLrN+r+yPa
BrpqcYsCFJE/wk/PLG1gyjJfNWsN5IPL1M3fWEORBgd5wgz56VvlT3wr+Mtc
jYgLQqb3RqtWWsIPemzOiVrk7pRel1JTeGOcEisMkTc9uNxxxhTSi3fTLr5A
Xoi6G+lpCr9ovD9e0IQcfGKl+lJT+Et5QKWZjWx35xHpawIpEl9D5D4h3zoh
6q5gDO3GRBdKV/wmiQtGdw0KjaD4HYdCU2lkworlEG8EOwJSXetl8Lxn9pyn
EdzdL3WzUwHZ1jL0iJQR9H+3ym5BDbl2n8eKk4bw73r1dAdjZLquta3HRliW
T2qM+iKXiW5nB+jDnyd/igYEILv1ylZS9aGx+93x/gPIE1HXhgb1YM3KlRXv
Q5FnM/iyfnqwKWHAup2BvFz23Ki/Luyjx/qVn0XuqIrdyNCBy9bV5CWUIouM
mmW306CDcGTc7zLkumNmeZk0eGFwLf1kBbJWTfBnLxqk5KZoH6lGTli33eeb
JvxLfH91SD2y9EntKllNaDg+2+nahZy+vW9thDr0YRlTVP4gb31t3+ZJhU/2
z0qxiT9oXnaUT6NCqWXPlp8RRk6WfLHAVYV13hZiX8SQW2iXZNRU4VoJ28VK
WeSy4g7bKypwLHDnN2dtZG6PaHmxErSUlh1fXI+c0FoHXJVgTs07brk+8lBY
XvS0IrSX8RhdvQmZOm/10VoR3oe+faOWyBMV2iWjCjBCKbw1Zg8ycWn3vMMq
2PRSr3mDO7KYetJVvhxUPfyjcdgT2YNWP1IsB9nNjDp7P+S6x7UHl8tBw+gT
VXJh2J4Ke3tk4Mzrs4UP45H9c7OCMqRhQtLNUx/uIxeklioT4nDFMVHHgBLc
R0UyM10M5oUekhljIVvl0NTXisEKpy23f1RiLzam2ovCMcqbRiGI+9gGH761
FDrlE2LaHGS2ufuaFCHYnRbMLunEjuOMrReCgac6cg278flHhuC/S2BcYK72
1n7c74DXTYUlsEzHwGnHZ3wfXx3Xhi8C+Sq/S9HzOM+M1HecA7fvvdw39xv3
mdxlweIDg7z1qvHEIrrf0EYPeT5wiJ1hJS9FtmKcYf1/BsT8L+3N1ZXIdTvu
lz/gAfHNvCtUGWTqKs8FKg9k07zohXLIBCfCLncasMTX/SxVRC4AOzsv/ATD
r4FcvTrO65uzLk6CyBca/XY0bLm0VzKTYKE8pbBdC9lfuXzgygRYlb3PuFMP
n0exveP1A9h7f3fnmuD9bFZGzzgo4apclXLGlj4al/IJJF9P8h9wxeYu8GpG
QeCub5qlO3EfiWMzkyPgr9raMhd3vE/rUdzBYZCS5tV0gY7zaUJt6wZBsG1D
qncQzi9u/fymH9jwdXbqhuL5vObDxA+AT5/raz+E3eo0JdwLQo2vTEqcwPnw
tpchncB2nKjq/RvPefLH974DqgWhMffjsIOD9zpxQJe4qahjIs4bCbvseAPK
wY0OxXPY4kdtfdjgElM048t5nGfQbcb+Bdv6u/46n4Yd0HoqvB1QMyyHPTKw
5Uxrm1rBgl3RXa1/sB1pOgYtoLIs2rAlD3tLKmHwEqQH9c/kXMde0yXf1AAO
Km17HlKAbWxSG1YP1ibK2YsWYU9PSwAI/pjGrHh/D9ubk+/9HPR8G3lb9EDw
/QhXvgaku1f42D3C9lBU7X8Cwpcrq8tXYhd02XIrgf2L09xPT7DDyzNXVIBF
nV3MpFps3UlhRxboHXxquhdiv2tO1n0InmSp/dGoF/TRHCeLQYbD+YbpRuzV
NIszRSDiz0RyYzP2Vo/zvNvAscLDNatNsN/47T83gWZonWzgK+wJFfWmfECo
aPUYsbHvsSKr88CHN2n5whzs44P7iBxQfXbmAKcT25+RdjUTZJn7ad/uxq7b
XH0uHURNNH1n9GEnmD9ITAVOhfqVNgOC/+v39ctnAW1/9gmZj9hWAV0Gp4HQ
yj+WwyPYhL7h0xgw0BAkUj4m2J/LUjkKnh1/1Xrqi2C/icPpKJCttzlt51eB
5ZPLQ8Dh4Wt71H4ITHmyzh8454goTU4K9ilTkvcALefwwbppgQ8Op28HIkve
3UmfEVh6wzITMPTYPMx/TmB2fAMV1Ibd3mDwW2B/pVczz3NUJXmLiwIThKWF
xX/TKo7k
            "]]}, "Charting`Private`Tag$7550#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV0gk01F8bB/BftFD+Gt4oSnZRTEqZ6qUrkqJUKEuahqa8I1sREhqytCBk
60+SqEFarCH3GUtaMMmfV5aQJMmW5dVC3jv3nHvu+Zzvc+7z/H7nKjt7Wp0S
oSjqMtnC0/zU4Dv+11M7KeHaq2q40ETeq0duNyJS0mpYjfXupKQVytkIzd7G
NcH9a9RC/DSYQnvsLHLAFo1tBbfl2ELrDZicwWpRCtnzihyhT2gW+eFZ85PJ
ThoexPyetNuheCispdYp6SwxN8zT+Dq2Zc9Uxsv5ECvptk/H41oT+dKaNF9i
WqTA8RbWVTV8MqV4gdgrjnsuA6eJsHLU710k5k1rC7KwWF9o5lGNYGF9wOTL
HFze29xYY8MV9js3e+ox9jrENndMChHOEynZVoA1+NN1U22hxIEu41Yl+MPG
SJNouTDi3uy9WuU44c4qvvqxcGJNu3RHjM2X5xrgtAhiCcEjvypMXfp32dHu
SOIrP4e/1+CS0YatY4pXidmqmul12I3JLIh0ukbsY+sT9BqrCMboSveuE7+Z
64xtwDH50pqHNWKI/3t1Lu8dNlXIyvrqcoPY0lsQ8Q8OrvubVmUTS+w2mxzU
irfoa0fbJ8URq7S28dvx8lGfenVGPPEkb51kFx7KrhSfaBO6OVD1QjfOkDkY
cU0uAVFccZf2lo/4YmNy7dFyYorZuXDbJ3w0vFdE9Vgi8Vz769x+LDF99lJF
WhKxs3gbfMFfHpZXRhomC7+308/5K65mi85adwvddeOkzDfs35LgP6x4i9x/
Tbn64Si2jvpQ8oxPTH34U713HNN3a0yHOf1N8tTTqSbfcX9h6VmFe6kk/7J0
1moSH77Z4WqpkY4ovrRxcMcM1rZQzZF/Scx1C0uR/onFRN2+DLjcIfUDN59Z
/8Inyv48BZsMkme6WXyfxTJasXS7pLuIMmr0KT+wAETCiw7gAWJ+h91zSREY
733vpsbIRFTG/KvgFhGoT1HOG28jVlK/5+SxEELECtddlcsirlh6omsJrDeL
u1LgRczfyu9uE4PmcM+vnS+JuSGLt7SLg5qodh7dN5v0k2sPHlkGdXNZ9Jbm
+4h6Ynu7mE4DT4PLN+a0HpD8gASjlgarLjqNa4QQ095tqHKUAs4PhYILG3lk
njCLuSRpkJhM2qoYlUP69WWf05WB4k3nk/Z+ImZ9u5XcLQNML+uZsztyyXxz
/j03ZOHxyPKy2kFiowVK/b9XgtXgFQNX04ekXjT2X7/kIeVDgEnxn0fkf/lr
Vb5Sgl1r7LO6jzwm9QuT4rYrw5ADY5FYPvGhL3v+eqgMa4cvnMzXeUL6i+6Y
T1QBT46+OtVFzFKpHwlSA2n2Y172tgJE8dyHh9I14fTltfY72MQsvbqy9VpQ
kRkt/vYG8X8UaLueaQH74xnXHwMFwvf1LPD9eihmampbJBYiyj9wskpHB+zs
7z4e/16EKLvqaRXZTTDWabM0U76Y5IxpN/YmiGCKnbI2IZ7yfx9YuAkKT3rK
lyQQ77fkjllvBkkPw/CLjBJEDQbEa6brwYvQdofFQaWI6nUx1rTTB8dF0cWl
2cRqWtkTBfowEWlE4wiELrKIlGSAUvSDF/WKzxC1kOZAe8WAwOTzunHVxId8
RXi7t8Pmh1KL14iVIyrWoXUt2wBe01+wGnWJeRNevHoDYD31rwi2F+aPquf1
DCG6pMfrYy5xi8reVUt2wiA/v/P+gQpEaZ4eni5BkN667+mmm88RpXKmtTZ9
FyybD3E0WwuI2l00HuNtCikcW6b2HmLHVbtohaag1qLNkvIgLpfL/t+EKezM
aTvZWUm8Gd5PeO+Bspyk4lI6H1EJmVtyA8xgxHr4uYWAWHKxxNrUfXCEl1zv
/Vc1ol7pLbHVtIS046H7TysTJ9Ddo30soU/avdFuK3H89lGtKkvwDDJ+a3ic
uG+zVeKxg3DVaqR5ST6xhOiiVPNDUDlr3JG6vwZR9JCPTdGHQf3w6GDN9VpE
mblXJe6wAflLZjtc7hJ3aPt2udoALT/j+tJS4h86B0+k2sAvMWv64T7i+DwX
uTkbaOKXendve4Eojvk8s+YIBOiG/PnxmdjPukbnmC0Ilq9YQTd6iShX/bHq
UgfwE2xHKVOvERWUrtEh5QSS9OLPr8XeIO7MiOeRjU6QFa0b9XvNG0TF3bUd
2u8E7/ava2eaEitNTLKuOMGG+hXe6knEtod+cSln6Hk5dr+AUY8o6amxK9PO
YFaVLdkY0IC4I2Ub0ibYsLJIqnvBgreI+h1n0sTggGPUb5t+WWLnaEEskwOZ
7M/1ddrEKXlSHuEc0JYpK7tu9xZxZVXvBf/DAWNfVqLME5IzWGozXq6gn2Z7
P2FjE+Iq1yxBT8+AE/P+cV53E3nPts6TezygpM+k4a1BM6KiciOv9Z2Fatfb
q+2HW5CRo5Kve48fTGsYLs93b0Nc3gGtz6uDQeRnHm21egfqrTZuicGhIF49
tXjl3S4ku6DPstMhAvTnWSXWj7oQZdi4ZZVHBDSEbRHUre9BRhs+FtcwroFi
7LefOaO9iNp2R6fifAx8m+npbtXtQ6zbGXd0DeMga6jijWTMJxQ7v2bFes5N
kFR4MNbf34+UsmUvdQUngtUQc7tg2QBqMt7nOchIhv8DmbfOJg==
            "]], 
           Line[CompressedData["
1:eJwVlnk4lOsbx0erECLpyKmhSFpI06KDRyEpaoSKsjRKkn2LFCqESirJMvO+
0h5F5bRQ3VMhZC2UJVTIMmbGEEdSv/v3x1xzfa57/d7P8j4aHL8dByYxGIxX
+Pv/f/2Jh0s2zOkmyRftp2paXoER05xOz6jvhFFAYmxN0yHYoLhgzpse4qZg
tm5TSwZ4sJhZF8p6iDg/bXrjlwzYvebYGbnqHpK1XNuY05MB/6xncSY19ZCO
utoavx8ZMGnjdQWhsIcwNQctXBUy4bxtjFeJWi8xtW2VO7cxE+76mzODA3uJ
/7ekH4o3M6H9fvGZOo0+wiS0ldY+LtQOTBEYLO4j+Xv1o2gPLvCXWVinLOsj
WUU26SreXMi6WyK3ay3aT78N+BHKBc7N0nOt1n1E8bVh4KmzXOjmlZ3/fqSP
sHmZdxofc2HgbOWliSqMP/fuj5U0D9reyQ27fED/Yp6d0UweVMvY2PM/9aH+
I2a6Sjy4H181+9S3PuI/kiL8bx4P/GOqL0uP9RG3aXJr9unxYDii9oryon4i
Vm3K2ePAg3Gv+swlR/uJ25PxK708Htivcb6wIqqf+Mtw1jGyeZAr1R23KgZ5
4Vil0k0euKSNBhgn9RNmqlPl0vs8eFWittk2u5+Y/uaOLnvJg9PMfcNhFf2k
NoOV7fWZB8qNA9ZlagJiqjx6tWwuBd5XQzdWLRAQpnN2pZM6BcXef9a+XyTA
9VlZ1LOAgtDJsxa2rkB/Pfu2UW0KmvRZY6KNApKl7a7yjUUBfeboDdXDAuJ2
InKWYDsFSzdM/+1RJCAdNh97X56kIP9uzuJPfAFRtFgwRzqOAtZstq1VqYDw
q5fPsU6gwOh72vWldRivfPhM8XkKtp3T3SruFpDksOMLjnApCGyySQtXGiAd
PpbUlwIKRjZKXvWpDhBmf57txycUROSm9u/5e4CYEvVXbwspiIlqNzHRQXv8
vuo0PgWpWgFdk0wGCOP4u4jxdxQ8C0gxOHsI7e9ch159ocCkZd3eCd8B4jbT
6Q2nk4LX5p9jfYPRXi0x/N1NQYWqdhM7aoDo+46raAkoaH3xJErl8gBRpOo9
DEYoYMi0VFL8ASJepu26ZQYNltkaBx+oCglDolpxcCkNrDR57VJ1IRHHPjJc
v5wGZtJ4Z7OGkHSsq+uYrkfDz/AGzpRlQuJfFvM+xYCGe7YJLrtMhYRp/WlF
iCENylKDDhOeyI/n6m7fRANj9PNsJV8hUdy/tbDekgaBoOKDdpCQJL++H+pg
RUPpp+u27OOY70R4wGZrGsLzd9tcuyAkWXL3nYdtaWh35ZtbFQqJm92TM+57
aah0uDfZBTBf/anUTGcanm7NeB1YLCSmpaziahcaLq4NNuVWY79n1sVp76PB
QkHHSPQV7Z/6UjMP0GAwVWV8cg/yC9HdXA8a5o9LFc4dQP/K0c9PD9LwX3fL
2o2jQsKX30y/PkRDzsvzqy7LikgWtJzM9KEhreCY5I6iiPjPbzsZ60tDzN1D
D16qiEhyXxzl5UeDS6qZXs8CEWEMmy/WDqBhlu+o7j8sETGtXBvMCabht3tn
73ZDjJdaZKkVQkOfY93t/SYi0mHWbvANudgiRztps4hEM6Ls2EdoOPK3q+aX
vRhvPJEvCqeBw9bf2bpPRGrLRkn8URq2nZJK/OiB/rd3z1GPoEG799pglb+I
sA33pK0+RoOSeohWeYiIuD2INytCnti2ybH4qIiIZVmrjY7TUF/Qwy+MQXZd
2a8XSQP/+7PhfxPQ/9H8vGzkHLUzOg+SUD+P/1QxioaT0cuTb6Vh/r2+3DZk
30e/32TzUP9CrVCTaBocu2tGedmo52B3SjqyvnWga0ou+pcOZW04QYN6lNml
8w9ERD/g57kk5OkPZ79NfIz1iqKhEVnS2fUztgj11XiuVjtJQ5vqkxUn+CLC
r0oV7Uau2BLPOVaC8y0XD1xE/ve4Y+qRCrSXu+iXIWfl61YE1mC/VRWP/0M+
+218wqdeRPJLmCcWnaIhbE7VykNNGJ++7fxWZHcr6sD+NuxX0/yLD/K2Y37p
rt+QVw2FnkFen2da5dSD8Re2s68ja3+dJbVzAPOPbPN5ijwLbxVbCdZX6q16
i/zLssDTehTXN1E18D1yz9FYruUvtI82OH5C7tu51PMqQ0w6ejVim5DdxMqT
FkwWE0bXz6EG5MaEX5ncqWKSzOHcrELeurBrtZq0mLjV7eHykfnPq2quyKD/
ZUHDfeQ1Ox8fUpmJ/tPU7dKQc0XU5EsKYqIYPKR8HFkz4TRPUUlM8pmRc52R
0zT91ybNFhO2ebnbOmT557vrZFXFJFquUyCPHOOw4XDCX2jPaH/egfMbEy6Z
Ol0d802rqb2H7BuvRMfMF5Nap7c6ocidGuPrJmmICTO9vdgQuda+0ntCCzmz
ofwhrucmYcG0CB3Mr91v4In8/DQv6z9dMcnSTe6Yi3yr0Ld+SA/15cyU8cb9
om6/yzfAAOMvLI+TR744QKRFLDExfX3YMhf3WyRzllGfIerf8T29Cffn8LOx
hoNGYuL/JGLpIWQvu69+XSbYb0jrpGHc3w5xj651mKH+8NJT47j/lwkcZD/a
YLzxpPo6PD9P7a0hkY16JyqzVyCbvdgYZGInJmKy51ssnjenJL2WG7uR2+SK
FobRkKA/IyfYHeNVDlSr43mdnf7HRccD+6eaWDZ4vrOkRpRaPbH+HYFCWBDm
f//1qJkv8rMkrRd4H3QHP9+iFI75Souap+D9Efj54e+SCJwHT0YijffLhMWd
h+GROC/XyBPTvTG/aqral1OoL75CZhjvI7Nnfn15SRh/wawhEe+zrAnNRJvr
YqI/2Fqctwf1efxlInUL9QSVU3ucaHhSrSApuIPc2DUm5UhDNf3LUT0P52th
s8ZkJ9bb0Lik/xmuZ8rr5mA26o1LKI+vwXl1sgJbzLBfYdRxo/e4v1R1H+lt
pCFgV+hKcb2Y8G+PRUea0hCv456+qxn70/UplTWm4XGF0SHtLuzfWk2xazV+
DxTE0sU/Ud+lFM4lbRrev0g8bTWB8xDpuz9ahOvrrTWt5g/qebPsQbUm3lcV
TpObpwySjjjfdaPzkWNLJkTygyQ547GMoioNiuMZknkLBwnjgW/4vmk0yH23
aA3aivYY38IE/D5WXu5wGrMZJPzO28oq7RScNY9oimQPEvbNlR8zWymQzc5v
THBA//WWVzM/UiDjPK+Odh0ktZmXXfZXUSD9QVzyLmiQMH/rec97SsEUyMxb
yEXWX3VtcSIFzUbmm9sp7K+sye0Lvg/yCgUdGVcHSfSnfd2XT1Hg9NhYSekW
5pf22i46RsGDe+3BjIeDxG2qVqm7HwUu3IXrP7/F/kGxwN6OgqfhOcWpQ1h/
IiyEo0pB0qid846RQZIf4OcVpkyBe8ivHzPHsJ6VjkuCAgXyATaLY38PEsVN
26y40yk44ClKCJohIfn3WzhxozxQ2rVqO3uBhLB3GNv4NPLgMKuoacZWCTG1
fFh4KZkH/NqG3Kc2EuLWzAzTPMsDFR9x1EG2hIg/XKFzT/MAbmhplzhIiL91
CutRJL6/VJMDo92QHVvvJ3jzoGhsv+xoCHJ5811nSx7IgrxxZxbWm+O7OX+M
CzlWnKyXI5i/0SQo3JYLrGUaJmQM7Wp513ZYc+GlfEcLjEtIctI8to4lvnc/
OKu+YgwRxpZLi8qNuDDs7Jj0RmaIRH9pHuxYzAWTQPaxsvlDRLHtZY3XRCbU
Zpjsfr9piOgP5+76cSMTfvSrKXanDhGmqN5650AG/GtnOTnFfJh08F+ub2Wl
Q9TmWLqge5jU9swxN/O/Alb27osdfwwT07zxVLC4Av8DQuluFQ==
            "]], 
           Line[CompressedData["
1:eJwdz3k4VHsYB/CDkX1kuZXKtTRpUJIiKUaKbHfKUhQxROFKltuqNChpEVdC
KinX0qIRcwvxe5GlSBGia0kq8YiIGPv9/fxxnvN8nu97vu971DyP2HsLUxQV
gR/yllKNuRM/Ocraxem0Pm+QBEYbzyUo6Y2xKHrPzfawa+D6+9sJoUZsw5AN
U2F/w6+amO7A8HGWqXnljifpVyGZ5vaXPUPA4nZVx++6ewkUOv+9J1whYJkm
Rp8wr4+CT4dswwpbBKyuZysbTPZHgeiZcMdNQRMsjsct+7sdEUDdd+N1y0+y
uP0pTxY3h0FwCi9GvnySZar6qNBt8jiUaEeLywVMsSjefmGniSCQsw5eHUGf
ZlF6heufrfWDtDJZKSO5aRa3QYZ5W9wPdDfl9A0rYC+jnO988gU2szfTQwnP
t7ZcEFzzhUsL3NS2MnA+Xjg0O+EDtBdWiygjbMUQWc/aQzC2WY0K88bzNGZ0
bqQ3tK+pbzxZjK3GfFpm4wF3+uXOiAB2jLC3qI4HeN530Igpw/YqEngu9IA+
RsuJtCpsIVrHn80cGFvWqVxdj/slMib5HA7ISX4/pPgV53muA2yBG1j0iE0/
lplhUWZRXPMYF5D4xyrDcCF2ubCvvbMLvPa4zC6Xx46Lbb22wgUcOuh3mxdj
PxC48Yv2AafpN4tpNey7VKR//14ILV8RZ2WAvTQ1p3iPM+Smshhf3LAFGhMj
jrth5NSImIcH9g619PBVu8HAKau/4wD27aOaZpOO8FxWNr/FB7tfqsElzRGq
uJ1ba4OxbzTxhgcdoM3zjHteFPaHyNDs6/awYNXzFO5jbMvxzG0Su8BK5EjY
TC7Zf7bSpWInXPmo7nkqH9tk7+j1YztBLvmS5l8F2I/afTe3s2G5xL6CQ+XY
353MrR/9AXr9gmb2e2wvwcUQdxvYzzOQU57FLqDbV8ntgKf7BPR6apZFWRx9
U1RjAfQFRdKRIti6FyZWnrOAUldj8T5x7Kb7ahyBOahLbp/jK2AXJNA9e7ZD
j5fdgK0mtiu7MKbVDEwWKvTPaWO/G4r6mmwGSc+bevN0sIdeDeTtNQNLeecv
SzZg00LWP27fCg/Are2LCXZy+hZGrykELPV/ddoRm9HKHdE0garKNdVrnbCj
jRpMC41BJehHRfdebNt09jErY6ivDi61dCf3Gg8m+28BvaMnnyn6Ya92cH5a
YgTjb6MyHp3F5mjrLru8Ebjn74a3P8Duyubdrl8HMsfFrD1ysEtFRsUj1kGK
z2H5Hh62M83XYMM6yLfZlP6Dj52gk/8+RRd65BoqhAFbNcLNslsHbFIpcc1G
7N6xe46RWtAae7A+p5n87/EpxqwmeIW/TtZrJc5XPXJKE8K8kjW3dGAvzG05
fJwJuVq6Nju/kfsuxM1FaMCiZ+5Xj06RvGcAPqpDenblnskZbO6B1W+C1EE3
RVvlLDXHogIf0q1E1cHqzDgvWhQ7N1QqXFcNTm+Lbbgpi502HIPWqoCE/q8b
qvLY1AH9QL/fIVHDxTNDEdv0QXZ/ljLwJFaNPFbC7mLyNmovh+63SLF8BckP
lvTaK8GRMkaHhQbxzLGc9CUwnXcpo5ZJ+u7laI0vht8S9xg0r8He1WxnnrkI
LF0HnXo3Yg8Zvi1gKEJOr/JNui02t9S/xlQWom+f53SyyffW3dwldPCyH1j5
2I70B15NGpOG5cXFuX84YXNa6ioqJeFSrEvVFU9sVdMr63gL4OD2F5ddvUlf
vM1MgSiYTWjZrfYhuUjb55c0mPCcbKs9TP5H+l7bpDD4GNwYljxJ5pPsqmzn
0PZ+6tl/odil7HffYAappPmcfhBG9juIpZpMo/cShmLW58h9U3aBbhMoD915
rXSBzKcw3OfG0dUQsfi+i2Seoxz9cAyZd7xffjGW5JuTmStHkWq8SbdzPMkr
mwJ+/kTTFplZzOtkv+q9KzXDiJ97VO9lCrEC+7X+D6R+TtFSLJM4arVq8Dc0
a3hapiWb7Kc3avO/og8Dn99lPiT+c0ZV8guKc8rfb/GEOOLWy6Eu5C+9bMUi
PjFTelDoI7Isi+j9+pS43lnGsh3NadmHnC8mzhJx3taC/vtYaLgbiMPy9403
oacJarOM8vm+n3Vv3qF4q4svRiuIDZXlXtWjgNmh6Ipq4tyF0zV1yDrfmZ1Q
Qxyn32BRg1b6lCp41REH522hVSNKmflhfT1xRWWtUAVqb4hNFWkkji+YNi5D
BVHjBxqbif2lQgNKUMJmd830VmLO9aaWAhQ4VDUY3EZcPJDI5yObDB2+Wef8
PdtXCT1BGvsST8p/Ig4cCgl5iIRlZ026PxO/zEjmZ6DOF960vB7i3qxNJWmo
6ETdq/A+YmrmvPgNlLhGP9bu+/z9vgNzf6Og7luOaj+IuT06SdHINom2dHiY
2PSNkP1ZxLT1/1g6Om9OCS0Y0YSa/okbn58vY2d5oK5/N/txJuf7U6VrrVCx
X/pa3Zl5ix/0UkdJKlK/5ubmTVEF643/By8N+UQ=
            "]]}, 
          "Charting`Private`Tag$7550#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV0w00VPkbB/AbW02lqH+KiaiY2nZ20qsSfpPXCm0aZNDsyEgjhWwlUoOQ
UGgatLa8h1IihuQ+5K3yFmlVIiklEb3YEtX/cc+5557P+T73Oef3Pfcu2u29
w12BoqhjeE88t7r3tVS8dTemJi7XmPJfTJk+z9XNCCr2KW8jvfpSYnKhut2E
y4qnu9GvNHSCj7AEE57l/+EobdXYXvCPumjC96OEp2mdaM3Mn1pitHbSwicy
enyrW4Ir6wA6/+S1nlS6/2RbtavMF+3zakQjl94p+lIer/4X2r9ssWYBXW3K
lFclH0arfbX/rYTWW2KU/1nr6MS86hdzoJMVhDm66YFoO/uA21U0oyckzYF1
HK2hK/e4S9/qbm2sspOgk+P7chppn+2irS6yYHR85lhVC82qGKn93B6CTskx
VXxEd66IMI1RP4m+W/BT+piWXlKr0HUOQwvkloHP6K3KuYZ0cjj6unimSzdN
ndhY6tAVgd7TlJ/VQxe/b1g7pBWJvj3Ff2Ev7SUQFES4nkYfumBa/YZe3DTE
0U6PQl/lv0vsp8/kzVlmyzqD3uylKB6mzTUzMt56nEXHKitofKSP115QqbSL
JZSE2/D1zSd6zTp2DF8Wh/b7sabhC638/q96Xf14nI/LZfWO0v2Z5dM+tqMl
lJ5YbZxOUf0j/LS6FHPnzjMeFAQ2JlQ73EJLMnnSnEngENatsMT5PObvDZxH
FUBpxPdEWbIM8+fssjuT4c3VW+URRgmE4iY8TjScCndEiuO8rgkbWVdWM8C/
Teo/oJWE84NpBykl4EV3FpdUTNg7d8PNmcAxY42cdL2A++tb6w4rw6tCua9m
+t+E6t4zY6d0Ntiee+q5jXURc5PAnamqwLZaksOsQ3M3G3bL5wFD0evNa49L
hBKyDTf8Ox/+LP1xA+xS8H1z1ZjlTFD9NZbjKEslVIpP2pTVWqAQdtOGfj3h
dS3XzLRhuPuxl45+Gu4Txw1/0ob6xEVXhtvRQssX9YLFEMwoXBqpnkGoB6lD
3nt0Ybll3KkCH7Q2FBEzFrSGeb/tqENznR2Vli4FHUX2Fc7hTNz/7mDh2DKo
/Z7BaWvNItT2gC+PXrDB2zD07PdfL+P8493L+34HtUDXYVYwumJ93OVPHBB/
1Sw4uiIb+0ldpRajB0qfZGu1onNw33/GCg9XQdHKQ7LNL9E+lcy5+1aDwIf3
xdcgF617pHHyGrg+qFxa3YcuMYsgpmthR98pQ0/zq4RScXvr0qUPiZ0BpkU/
rhHK/5WUm2AEmzT4GV3217Hf6u+VTsbQ76Q/mZGHHg4Onb6IwMKBo255v+fj
ec17x5y44C1ep0s9Q+/1UCmlTGCO6Hp25voCnH8g0ok1hz2hC/kGInS36tQT
DAsoS4uZ1nwWnayXsSXEAkQv9nl+fY22exi5MsASigTL2FbnC7FvZZkgcAs4
8lOvD3+4Sajs+MxbVTYw1GE3PY1ZhH3YcVu2bINwAcOdZ4p2zNm0smUbFLp5
M4ulaMrSuPnlHzDrgFFYoH4xoZT0ki2VbKEm5InTlCA5ocbtc4yEPHCZHFMk
z0THptvk5fHgYwRXRdyEPsbsrh7jgXbM5Zp6rRJCbWZHDCTZwbGEQ3pxd9D5
fpWLu+xh1dXZUzQYt/B7mDZ/e7gj3OPUCBv10MdM+nd0OYLwhn/ZcT66qdiC
0udDTPFznxe56LsdHOd+PvRV5HVk2ZTh+TZkq/Kd4eKjLTdWnrtNKJ1rVJmD
AGb8DHaxXAiEWm/u1STeDYninQK2BdrGNiv00m7QaWMLZx9AX2RejH60G4xz
2t06ytGjZz4kmbhBaY6sSM6pIJRF3eZ0bREM8gZuWzWhO8M5RwfcwT47od5v
5h1CPf7vvVeVGJJ3hVjvWYQ+yRJeUfSEnjn7Gx3XosNXSI3NPME7yKTZaBe6
0cTZrdYTIncMtk7NQzMefstq2gfl4yZP/7auIlTG5BLm0H7QtX3fVxVVjf11
hr7R9wXmCUsDj1T0RgdemNAXVPJSoqbL0dmbzO0jfeEbg8ex7UG3bJNGdfjC
gwq5X9f6GkLZvxyxDTkIAXrBP7721hCJ9RoDiyd+0KQ8dy6HW0coZo1Hw9XD
cKRpA0n8fA//D3mcSv8xmMUp6r3HuE+oc7c9MxcEQUaMXvSYBnpHZZa7TRC0
WC99IjC/TyTN2YZ7bwTBb/Vz/XRl6B9BZw8FHofndUNZBfr1hOs0c277DAlY
VmbOagxoINSN1lpSEgzzb87umjSpmVSYB4hcbcPAJXrM7tW8ZkINqvxv9sEw
SBP11teyMa96l/IkPgzYqqWlUY7NRDIYbV3UFgYmh4XnVfMxH22XyPjhsC55
Z5Z0xQPCVWOv+u4RAa6CrF3ZXQ8ItaZgnJsQCcU9pg3Nhq1E8uwUFBufgTue
/yzgD7QR7jkrJ5GBFEZYRsp5+9uJZJ6ppmVSEiiMXlFZoPuUDJ8dH7X6JQXC
l6fOy5A9I9rf9h6SL02H/wMHc5Zs
            "]], 
           Line[CompressedData["
1:eJwVlnlYTG0bwBuFyNamVCgpSehNZEl3iyWKt7TIVqE3RVKJFlIoLZIQ0kIq
2ixFaZk55x5USCshpJIk08ycM4lKxfd8f5zrXL/r3PvyPEdrz6Et/42RkpLi
kef/7/ht1gOxBa1geCivJMwqC2sjjeur9dtBc5HrolX3b+PsxN6hPHEH8ANL
TY5fzMfegfa2N4ad0HF0/YP/nO5htoBbMyXhC/ScX7vjHBThlJk5TFdXF7QM
rZr+wvYhxnuXeGbM7Qbh8Jf5rotL8Jd5QZdX+DewnqJ/LH5eKQYaVRZPf9oD
qt2iAb+OMmy/V3m2SUsAMR6pnqfPV2CjSEZoNE8A7LPpzfmXK5BvsNY2yUAA
ejIWrvWpFZiRXzVpq4kApD6rl0/IrcA9t6vPtdoKYJBnpWHPr8Du9OfnvwUJ
IIKJWTKbrUBRfO2l0ToBTNuxKD7dlottLyf1u74WQE+n6hSLLVysn7jJkd8i
ANmLA4YdW7l4L6ZO6fQXAWj+Xr5Rfi8X/SLrL8sOCSA5LdbNLISL/ccaryrO
7YXligzFz+bi8P7m1PmhveAyzKLNIBcdl+26sCi8FzRVTy4eO8rFO5zuM0si
e8E6QMWrgsND1+QB/9UJvZBsba+nKsfDx1Vq1vaZvfC8XuFCxkweRmvu7g+u
6QXVxgtenRY8VHwrsn2uJiT1z0pVjuahz82jlnWzhdDT7eZveZaHlT5/TV7N
FYLL2xMP9p/n4VFpee3WRUKQNbh64O5VHr43NB5iLIn+79D9wzk8vHE29JbK
ASHkphxZUPqMhwssxv/x5AohePrc2ynSFBbmF8xr4RM+aJ14fDyFxkp29huq
hZCRyBa5yFFo+i05e0ET8eeMCX8VKNx8Tt+G7RZCSxDlMH4OhQHvNyWHKIhA
dt90yxEzCn9Z9j0WqBAONZ8bYUnhsTtXenfMFEFZt4vcn7UURoa3m5npiUDq
nFHrN1sKr+j4fx1jJoKIzCDjw9spLPdPMor3FoGXi4aBZyCFZh+X7xz1Jfaa
4oZigih8suZTlG+gCMxvrUi/FUphjYrue7twERhaWO6sjaCwlSoNV74sAs1C
N5+GeAqlJn6svc4Xgbt164m8LArXZ2rtK1IRQ/KIbVlqLck3eYputYYY3C8s
yq6tp1AzYbjrg5YYvMJ8ewcaKfwd8maPjIEY2IfSUavfUHjXPtZ1q7kYDA2s
iiM/UajIkTiNeokhUbopgSMi/gY+KSn4ioHvd9HznZhCobDmte5hIs87FZ7D
Uljdkm1vFyaGsqDfvsv6KQwpdNmUdUEMPXnR6lOHKWx346/ZUCEGc/e6w/nj
aax1uivtimIo3PWjWHsCjWU2KU8CKsWQOzlU6+pEGi+aBJqn1ZN8St8E+Uym
ce1UPVOmUwyNH6SGGhVoNBqrPCzdIwbVknWB6ko0zhrmVKiKiLwryrsr0zjY
/dHEckAMwY1y99+p0FhAn19yWY6BQdNDzhEaNCYXH+/Lm8aAX0hMdepMGiPz
vYtoZQY0Hd/aFc2i0fWK1eKe2QyUOfgU1mjSKO87oL/KmIHnYtXTj+bS+Gdv
1/d/VzAgxbO9k6lDo2BbU66HGQPuDcKeGF0aK9cW6CZYM9DxbP81Kz0ag2a6
zfm8kwHrlxZP/RfQuMfO0Ll1NwPLRwrq9A1o3HyaE/fOk4HGMfpabYR1v2dJ
6vwYMPTVuLlkEY0KGkd0Xhwh/hpCat8QHt28bltlKAPTOJRZwGIam4t7+BWR
DETUDP28Zkgj/1t5f0kskQ/mrNT5h+SvdlavKIHkryP3NJ/wqYiFiTnJJP/v
hzOzjWj0ffjnaWY6yX/XuEHVJTRu624YSM9kgD3PuRBN2NA2wC3pDgMu7rVn
HYxp1Ai3unS+iNir6RcWEh7/QOlZ3CPi74JJouxSGvu6vv6O4jLQ8tr2yHbC
bSqli07yGSjcJ0m9TbhmY8ye41WkXs3d0iLCJWHbrgTVEHmnH3cWLqMxo1C/
JqCB1OvT5ytehOO/DI8ebCb+5U89TiccPL3uH+/3DMj+m2tQR3jvhuv/ebSR
ePIWtvwivPn4oWtuXxjoETJP1UxoXHnfvG57D6lPShOznLBupzzHWUT0ReU7
7AnLK38xtu8j9t8ljfcgPLK+2Mt2gIFgGYcffoR7QqPS1o+QerV8nxVMWOC8
wOumFAsdhxziQgi7s4pjZkuz4JWRsPQI4bexI6lpY1kIHryueYCwjfbXpWqy
LPhhvM0OwnxeXcPViSxY//R4tJbwMudH3sqTWXi+ZcVufcJ3mOvSl6ayMG2D
pu0EwnNio9OnKbCwnLM0qJPklzzHzyRBifDOq50lhKfwXJrkVFhI7DuQcJpw
pJPFgdgZxJ9ia6gN4SHx/LHjNUi8lcq5kwn7xijciJzFQswTm+k1pP5dWsPL
x2gR/bCSqgjCjY61PqM6LEQcnfG9lfR3nbh43DE9FqTUU3adIsyLTs8Y1GfB
znqH0hzCORW+zT8Ws+Be2L7BjsyLhuNWX38j4q9184s2Ml8XyVHHGLNQdtg5
fh/hE5rypoIVLGiaVbTtI/PYXz70Zp8pCz1133zbyfzud+g89NWM6IfZrbEn
7HTmYVaHFQv8VXl8bTLvBkInuXebiP4W58mRZF/KHG0xzo4F2YZL6jTZLyvK
8rCZAwuNuSf9JPo0bk9Y/PGWC/k+L1piNZ/GWMMJBYF7iT+fjfuSyf4qXfvr
qufJgvkC5nEa2e8Mzi+FVi/SvxK1/SnaxP6rzlArXxKP2/fbJ7Vo7A7kbVQI
YYGV/i3+S86TgE8P/lQdI/q/V7+qVyf7uTbvQcgJFgxD/eWuqhH7KlfUPp9m
oWWbfaSiKomv/JDgfgLp97r+Ih45zzJG58RtyiYcx9NsGkfy85xhxskh82Fy
bnjpWBpL66f2FeeReCaVWiRJ01h/Y2Sbxn3S30qL6auliD+Lt/N7y0l/sgom
mQ9RuP1M7IuYBjKPSlG3Jgko7BaHh5m+YiF3t9SwbA+F/luP/sM2k36ZzX73
5yuFMXp7r239QOp1vV3/3WcKH9WYeut+JfMXV3V05XtyH0xlZSt/s6B3oNCj
rprCV1Rc9IZRMn9C76T4Sgov+uiMa/hL4vOwWr3uCYUKNdulP8hIIHh8EieP
IhxVNcpMkcDzJ0tiDIopnDac0qeuLQGX+VOXLcygcNK3ta2HbSSwPHJAVZvc
j7WXO7YPbZKA14My46X+FMavOfb+hB2xVxQ+0dKXQrnMwrexThLg12iJbLwo
nLhLvemGG/l+MbRecyeFsq/ZqpeHJWDu/XJCE7mvZTD1vnaaBHqUGsx3TqLw
g+ka6/brxL9L+q4wWQrvVwg7Um4S9jHNTpYh9Xu0WkEhRwJ2sct41AgPi+62
B0o9kEDH7g+BT4Tk/ydNe+WnZxJoyUrhlL/kYVlIQeWVHxJILrnHBETx8IAx
9/0Emz5wd4uZ1N3DRX7jmztlmwjPHJxQ/YWLygfZ8H12fWB+7bb1zTYu4i0d
3SqnPohZeSl5QzMXFVUSAyLcifzRCsFu5CJ3yENu4Egf6DllpxUncVEOp6zu
yuiD5HXnE0dWcbFgw54M+lcfWHeOGe0Nq8CfvWrTuq/8gMa9B7Nm95dhicN6
6aQ1/RBs5F1+SL0Uw62jbhR390NMzs9Vc9aUoNanjS1ZUT8huLJ/o8DjIa40
iUyaYfQLpJzyo286FuHOWQ1DnNe/wN3xTKXaq3v4s+Zcp9/JAfDzd2xWoPIx
WcY1cMvcQZi2u56Wn5qDim0lmWMqB8HObLj+1fUslDpl8kTjzSDwFVc+PEn+
1/8HIohJ8Q==
            "]], 
           Line[CompressedData["
1:eJwd0nk4lGsfB/ApylKW0eQgjEG2cpIXWcpYyjtjK443shtEKjQlqaEhhCwd
SUWvRFEdoQgden5jyXLSm5IU0SRZXgqnxTbMuW9/PNdzfa7v7/7e9/1cD40V
4Rq8mkQicdGD301OAeb7++bo/NyByHrtYiDd9a0YklugF1Kt03hmecDOq8iQ
a1qgWxm9OxrjkgNPtqSIk8MX6aT2/rAjwZlg8vqX59mRi3SesPXER+tMqOSU
/k45vki3Ulw6G6aaCUXPW5UUTi3SuYIXd+t6MyAlYo0+NQHlj3g1exwywLUq
wUU/F61fWySqZZIOo+axeUwCzZ9RXlTYlAZke/bWBGkB3SqDwktST4bCRpl1
5mQBnWtGrDq/KhkMzO6Pz2xAnldvLuQngbPOWEmAooBO2iTerXIjCdLW+tKs
NZFfG5+3VEkC0WamPMkcebJPT0U1EX5a0EhxwQI6L3+aGWyYAO/1u7pjGlCf
ZHAL2yEWbkyQY0UAuYRiG6kYC6y7v2llNCKXzeVfG+XAuGbvqcJW1DcTOBqR
yIGfmwZV2rpQ7uq6bQvvDJAlJ0Mon1GerFk5SD8NdiNignKpJTo3cXAvwz8a
JG4xb5vKLtFJj/wSn/4rGjoDLjg3ySGT7nSHi0XDbwPSN3t+Qe6nt+2pOAn+
rzfaCWjIHcfV1qw6CWeaNC4yTVDfIVmfv8pOQGUBXXPYFzmbosfezIZvp7+J
BQQgV9e27hAeAxP30omBQOTZti7td8egXkamqjcU9T1u1TufcQxauYPWz9jI
Qr0hm7lI6GfF+j1MRt56VMnrjwhYq12fxy1HjpazTfc/DEyRiLilSmRV7p5y
1cOQ/kGddboKeTmlUXMgDMhX03RP1OH7PCDLeIWBsoRnXUgTckF8zFvPQ2A4
Mdfj/AaZTdYzCwsBnwoTssoy8ohVOKk9EGo856S7SMvo+6V+/n4hEKTX/rn+
nAiyztsqh32BwPPeJT4ujvyTT1PrY4G65G5h9QZki8xO1t8BMBLk8sVRFzls
XbeNsT9Yym6YEG5Bzm50K1v2gyv1r8ce/oqstLvv8iU/YMh5DCsYITOKPlaC
L9wD3/5hS2SOhoQIzQfClY50cNyQMx/Izop5QutT/bZt7sg1TDHzOweAemyq
ZegA8mBM5C7mAehqY/MYfsgm6ycTMzzAMCqmlhKGPDxwnUx1h9kXybfLzuL9
VZ3mgt2Am3Qz/v095Jzeb9Iie0EqWsw+4D6y7E7nJI4z5IUelRupwOd7z7ec
dYIqB7PiqWrki/JTMdOOMEJ+2bIakBV0VUX+tgeHApK4bjcyn9CcM/g3vM06
2HW/B3+/cu8wwg6C4juvGr5FbtdXUHCyg7igq7o7B5A9CmY0wvdApZ6Bw95R
5E7/si+ELcjX+mVGLSJHbu9ozbOC4jtP9y8sIU+XJpRZWIFB3hbqWZIQnUfA
TqmnAzN2tiJlDbLHwLCUgyVwbLNe5ssgM1g305MtQML4xzU1OeTpzhSXfnPI
1fJi3aYgm/J3RBiaQ4WE9rdyRWTZSzPlo6Yw9IKgNGkg35FpoISbQAT6y+y0
cD/j64keYxA8TLv9TAdZJ9+HRjeGjbn7TXr0kbmXd3ooGgHD+6v72A7cR82S
Gt8O98dU8qUd8f56hXOjWyDlv0n+g87IlYP86k96EOT6ZXO5C76P7c0Pw7qg
3NBQ6eSO++Kuh85qQ1qWV2s6C5nkPn/NWxMO7m6+4B2MbPUgXPmcBtjM67ls
DcX2Z/aVq8M8a6H/2VHcn2c0uZEGoSbXZiRjkHkxfDNbZdg9QartO4P7o6T9
hpSAWhjKuReH+5Udzl1QhDcSpmL2iXhe+L/kRXl4SNzoVDyP+3/K727aCJnH
xbLHU5HVXoU0ZFNgz8Ab5dQs3FdSf3mfHKhlWw55ZCP7e5x4uYsMAruSUp3L
eL3S1VgjWaiujDJsz8PztIbyM+tBPZHCECvBPriQylkDy6Ycqd47eH+7WyfH
ReDdl0+vSv7A6z3IYyGr4aJ7lY/dAzzvOb95u5A4sn6Thnw1Pr+n+rMcAcFo
TBj7XIPzJ10DiguEUM/1eFIDzlkFack/iL4Pj03/Azi3zDQ/+o2oyaEtazZh
C6nnjs8Q2czU5u8teP5NR/v2KSJ8eTqlpQ37/5JVjycI+yoP55y/sE14lbFj
xOZQ3oag59iKO4o4n4n3L7MKRLqxjaKKtPhEXfJsYHcPtr2bb0E/kWPhp1v8
diU/7OLVS0ROt35l92OLXmfEdxMOt3+tthnErtloJ9VFaHnmxsh9xN5XuGuu
g1gts2w59AnbcXEsp4UYbA4WfTiCzWPWvQLiz1PPO+LHsbkWj/triVx94yyX
SWyGg6rRA+LY0HU32hT29DqfS6WE4xVRpZkZbCu6G62A0HE88oH3HZtkzTn4
OyG66vWti7MrfeQ8ajzBf2QR5r+wkpdStQ8RDWHF2wyWVrwzSNaGuEJd90Mo
XDGJK5vx5B+QPuGz
            "]]}, 
          "Charting`Private`Tag$7550#3"], {}}, {{}, {}, {}, {}, {}}}, {}, \
{}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw12Xc8le/7AHAjWX3IjuyVShIyKi5RSUaKrIrIrqxzSltkpqKys4qIyB4Z
[encoded data, 9150 characters]
YPbmRQJzrThW6ZZ6WJFCAxHDb9NtLetVMWLsqzQaDf7/f97/ADgkcFg=
            "]]}, 
          "Charting`Private`Tag$7620#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwt2Xk0Vd/bAHBDylBkjhQyhCSVaJCnDJUhJbMyq1CZVVJJoVSGzIV7ZCpR
[encoded data, 9516 characters]
t5756rQLT5TkWWIyifXw//8v/wcTezJ+
            "]]}, 
          "Charting`Private`Tag$7620#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw12Xk4Vd33AHClECEyN8iQIkklGmRVJPNLpvSaZ8msMpUMGUslCS8pYyqR
[encoded data, 9638 characters]
14movJJ+SHadzP9jIcPtrOeIJ8Jsv+l0Ovz/99T/A8rbna0=
            "]]}, 
          "Charting`Private`Tag$7620#3"]}}, {}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 2}, {-0.11803397776696967`, 
        1.0388911952929902`*^-13}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=0.5", "U=1"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.771208520121052*^9, 3.7712085847780857`*^9}, 
   3.771209649069304*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"8fa879dd-0c88-476d-be23-26d0455a8cc8"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7713444163314133`*^9, 
  3.7713444368750753`*^9}},ExpressionUUID->"bde5b5a1-664f-4792-98d8-\
71c368e1a3a2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Large-U limit of the correlation part", "Subsubsection",
 CellChangeTimes->{{3.77120862490454*^9, 3.771208627505728*^9}, {
  3.771208728290947*^9, 
  3.7712087410467873`*^9}},ExpressionUUID->"b006a78f-5c2a-4a56-8ed5-\
681ac1bd5cea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"t", ",", "U", ",", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], "+", 
            RowBox[{"2", "t", " ", 
             SqrtBox[
              RowBox[{
               SubscriptBox["n", "1"], 
               RowBox[{"(", 
                RowBox[{"2", "-", 
                 SubscriptBox["n", "1"]}], ")"}]}]]}], "-", 
            RowBox[{
             FractionBox["U", "4"], 
             RowBox[{"(", 
              RowBox[{
               SubsuperscriptBox["n", "1", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  SubscriptBox["n", "1"]}], ")"}], "2"]}], ")"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "10", ",", "20"}], "}"}]}], "}"}]}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<U=5\>\"", ",", "\"\<U=10\>\"", ",", "\"\<U=20\>\""}],
             "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["U", "2"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"Abs", "[", 
                RowBox[{
                 SubscriptBox["n", "1"], "-", "1"}], "]"}]}], ")"}], "2"]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "10", ",", "20"}], "}"}]}], "}"}]}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.771208499299416*^9, 3.771208583003454*^9}, {
  3.771208750652349*^9, 3.771208799922451*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"dfff4665-dc22-4fa9-a94f-99a2ce1ada81"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{{}, {}, 
        TagBox[
         {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.],
           CapForm["Butt"], 
          LineBox[{{4.081632653061224*^-8, -1.0776619596697401`*^-8}, {
           0.00036432384925595316`, -3.949198301711476*^-8}, {
           0.00036432384925595316`, -3.949198301711476*^-8}}], 
          LineBox[CompressedData["
1:eJwV1Hk4VlsXAPAThVRmDa4GJaVRKlRuS3NChYrcyJShL7MGiigzSZJcU0Ih
[encoded data, 5673 characters]
ag==
           "]], 
          LineBox[{{0.018527738344276564`, -0.00041773003312695067`}, {
           0.019628681609693666`, -0.0004756134233865339}, {
           0.019628681609693666`, -0.0004756134233865339}}], 
          LineBox[{{1.9730157104597952`, -0.0009689507773460448}, {
           1.9752885790904147`, -0.0007964286977211188}, {
           1.97771928062301, -0.0006332386697170053}, {
           1.978481016556227, -0.0005851913233574493}, {
           1.9787348917843108`, -0.000569226280091628}}], 
          LineBox[{{1.9878216550560006`, -0.00016158173214630978`}, {
           1.9892207977123333`, -0.00012246897415714203`}, {
           1.989537286670859, -0.00011439626714672443`}, {
           1.9897035508114822`, -0.00011015535555269906`}}], 
          LineBox[{{0.004330457838550809, -0.000014846056192396873`}, {
           0.005417489561734625, -0.000025033090059523033`}}], 
          LineBox[{{0.014153764658858663`, -0.00022737018734630965`}, {
           0.014805055429162054`, -0.0002517715721639391}}], 
          LineBox[{{0.03276828218404136, -0.0014909980158881453`}, {
           0.03877345108030803, -0.0021617249938721272`}}], 
          LineBox[{{0.0018348523391296006`, -2.114628926688358*^-6}, {
           0.002498553563646729, -4.068215166519451*^-6}}], 
          LineBox[{{0.02178799830232559, -0.0006010566950802598}, {
           0.022614659439428423`, -0.0006558439288847928}, {
           0.024392215195720882`, -0.0007736520106362832}}], 
          LineBox[{{1.9802174233346599`, -0.0004840306099309272}, {
           1.9808195907502975`, -0.00045155375610930976`}}], 
          LineBox[{{1.9914196500123493`, -0.00007251247711881348}, {
           1.9928298177828574`, -0.00004811141956492034}, {
           1.9931356869355459`, -0.00004334729392674319}, {
           1.9933221566670647`, -0.0000406716808871721}}], 
          LineBox[{{0.02634958893945713, -0.0009189416682389151}, {
           0.026844438154139595`, -0.0009585319036565408}, {
           0.027669001512152964`, -0.00102450080184191}}], 
          LineBox[{{0.01625108857998861, -0.0003110981792965951}, {
           0.017175101510522775`, -0.0003521572669962225}, {
           0.01725222814019493, -0.0003557330701013939}}], 
          LineBox[{{1.9972084509362389`, -5.2882394366889156`*^-6}, {
           1.9979406775092352`, -2.5714605200732876`*^-6}, {
           1.9988593097021097`, -7.088262592358363*^-7}, {
           1.9993113835822163`, -1.8646039900140092`*^-7}, {
           1.9999999591836735`, -1.0776584069560613`*^-8}}], 
          LineBox[{{0.010452116315053678`, -0.00011400153348795072`}, {
           0.010872106510641771`, -0.00012510978067086496`}, {
           0.011449102014118605`, -0.0001403706337654853}}], 
          LineBox[{{0.03060659187613595, -0.0012818095295781262`}, {
           0.03149277197995973, -0.0013655199136426432`}}], 
          LineBox[{{1.9626724852278754`, -0.001988084649893196}, {
           1.9635202768839841`, -0.0018898709802890323`}}], 
          LineBox[{{1.9837694148334848`, -0.0003099548666902763}, {
           1.9848985602377929`, -0.0002633268495948471}, {
           1.9855849874626057`, -0.0002369950434770729}, {
           1.9859329599986912`, -0.00022422324607074273`}}], 
          LineBox[{{1.9955463639725046`, -0.00001585620460942677}, {
           1.9956089530489183`, -0.000015364263362110715`}}], 
          LineBox[{{1.9824060028682993`, -0.00037186035634391115`}, {
           1.982493904629403, -0.0003676419219766913}}], 
          LineBox[{{1.9707098218150039`, -0.0011626808300713165`}, {
           1.9711700157415382`, -0.001122502377022272}, {
           1.9716526097143128`, -0.0010811816135953833`}}], 
          LineBox[{{0.007984504445927354, -0.00006199057244988531}, {
           0.00918978315958251, -0.00008489074555839693}, {
           0.00918978315958251, -0.00008489074555839693}}], 
          LineBox[{{1.9676892402150108`, -0.0014453103320670735`}, {
           1.967755017501798, -0.0014388043978863507`}}], 
          LineBox[{{0.02514923683282817, -0.0008282485598813949}, {
           0.02514923683282817, -0.0008282485598813949}}], 
          LineBox[{{0.012881336336973713`, -0.00018358894598602404`}, {
           0.012881336336973713`, -0.00018358894598602404`}}], 
          LineBox[{{1.9871838999539597`, -0.00018148180278032555`}, {
           1.9871838999539597`, -0.00018148180278032555`}}], 
          LineBox[{{0.0066929997658162575`, -0.000040885619287500674`}, {
           0.006731228919568916, -0.00004142885161387505}}]},
         Annotation[#, "Charting`Private`Tag$6421#1"]& ], 
        TagBox[
         {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
          Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Xk4Vd0XB/CDihL3KA2vyFyURIlSbKIk8ipFZCaJogyJFIoyq5f8ZEpC
[encoded data, 4819 characters]
Z+oGJazADS/SZ60SZ7jWBVjandvkconlLOxyNB3g/zqMigA=
           "]], 
          LineBox[{{0.015412559489574392`, -0.0007538933711259688}, {
           0.017175101510522775`, -0.0009542148904220227}, {
           0.019628681609693666`, -0.0012748064025327466`}, {
           0.020242076634486388`, -0.00136260853436454}, {
           0.02085547165927911, -0.0014534903081528938`}, {
           0.022082261708864556`, -0.0016445256083876814`}, {
           0.024247277921402417`, -0.0020125121043904483`}}], 
          LineBox[{{1.9800128763771412`, -0.0013257407364459795`}, {
           1.980963633416411, -0.0011948829379663996`}, {
           1.9814664241137292`, -0.0011256811534625655`}, {
           1.982152851338542, -0.001037174693307108}, {
           1.9835257057881674`, -0.0008715812575506021}, {
           1.98421213301298, -0.0007944642775559174}, {
           1.9848985602377929`, -0.0007211124235908528}, {
           1.9855849874626057`, -0.0006515082860669708}, {
           1.9862714146874185`, -0.0005856334224869642}, {
           1.9869578419122313`, -0.0005234681989403356}, {
           1.9869578419122313`, -0.0005234681989403356}}], 
          LineBox[{{1.9946263552267767`, -0.00007391380195600209}, {
           1.9951949686099844`, -0.00005703755724084658}, {
           1.995881395834797, -0.000040282819549375404`}, {
           1.9965678230596091`, -0.00002664657123752079}}], 
          LineBox[{{1.9921023879292483`, -0.00017322672835895503`}, {
           1.992449259710733, -0.0001567772939274903}, {
           1.9930589692131917`, -0.000129988979438167}}], 
          LineBox[{{1.9972542502844224`, -0.000016023220485550382`}, {
           1.9972542502844224`, -0.000016023220485550382`}}], 
          LineBox[{{0.010742476990142448`, -0.0003437290739702572}, {
           0.012181771315412964`, -0.0004507551156933687}}], 
          LineBox[{{1.9898585528143742`, -0.00030121668343419117`}, {
           1.9907162405767167`, -0.00024797615004216306`}, {
           1.9908268777251665`, -0.00024135893325372137`}}], 
          LineBox[{{0.004929362547335268, -0.00006041294353664739}, {
           0.00613399106425376, -0.00009864821185168182}, {
           0.006747386089046483, -0.00012204352097100468`}, {
           0.0070541304580072385`, -0.00013475443285848598`}}], 
          LineBox[{{0.0030108407854104445`, -0.00001977638964945072}, {
           0.0036538523432536356`, -0.00003071556145073373}}], 
          LineBox[{{0.013457281519494598`, -0.0005606209773443283}, {
           0.014165798916080448`, -0.0006276251659877544}}], 
          LineBox[{{0.00012281403876088337`, -5.976158234943796*^-9}, {
           0.0015077563834993003`, -4.027595128519579*^-6}}], 
          LineBox[{{1.9787319017434, -0.0015163710807905688`}, {
           1.9787373661730594`, -0.00151552089466378}}], 
          LineBox[{{0.008032276164941007, -0.0001798642409100732}, {
           0.008094635367353508, -0.0001829635680810071}}], 
          LineBox[{{1.9994970648041506`, -3.033113635808604*^-7}, {
           1.9999999591836735`, -1.7613646505765246`*^-6}}]},
         Annotation[#, "Charting`Private`Tag$6421#2"]& ], 
        TagBox[
         {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
          CapForm["Butt"], 
          LineBox[{{4.081632653061224*^-8, 0.0001254916798991701}, {
           0.0005432615057210687, -1.1332214420178843`*^-6}}], 
          LineBox[CompressedData["
1:eJwV1nk0Vd0bB/BjnuoaIhFxbijC623Q8FNbpcGQDCm8QjeFUtSrOboqlSG8
[encoded data, 4880 characters]
B/4Pcj6B8Q==
           "]], 
          LineBox[{{0.00452245720771621, -0.00013391647778959737`}, {
           0.005202492636691967, -0.00018143102566625657`}}], 
          LineBox[{{1.9798784262276996`, -0.0032340100881427247`}, {
           1.9814664241137292`, -0.0027211487292397862`}, {
           1.982152851338542, -0.002513540224871491}, {
           1.9835257057881674`, -0.0021237362621668865`}, {
           1.98421213301298, -0.0019415066366939016`}, {
           1.9848985602377929`, -0.0017676999589291142`}, {
           1.9862714146874185`, -0.0014452748876649935`}, {
           1.9863203252447044`, -0.001434405860763377}}], 
          LineBox[{{1.9901429611325627`, -0.0007153893479987516}, {
           1.9910764052611079`, -0.0005786047973366237}, {
           1.9917628324859205`, -0.0004876183318600624}, {
           1.992449259710733, -0.00040471447276857475`}, {
           1.9926983404603376`, -0.0003766204870814249}}], 
          LineBox[{{0.006478002840773599, -0.00029121158449285645`}, {
           0.007366645677244187, -0.0003838488278873342}}], 
          LineBox[{{1.9974703545401464`, -0.0000375508725518614}, {
           1.9979406775092352`, -0.000023823608412243402`}, {
           1.998627104734048, -9.637352953006939*^-6}, {
           1.9986439433475665`, -9.389294085337951*^-6}}], 
          LineBox[{{0.0012268308659119764`, -7.455414351653644*^-6}, {
           0.001347697871437399, -9.247871915363248*^-6}}], 
          LineBox[{{0.010591421511127732`, -0.0008336368522989801}, {
           0.011275757186808948`, -0.0009522998043429709}}], 
          LineBox[{{1.9948449131579624`, -0.00017787226610010975`}, {
           1.9961948443360646`, -0.00009195658108396287}}], 
          LineBox[{{0.012551267390890582`, -0.0011954085106928858`}, {
           0.014657014629731107`, -0.0016596526210399531`}}], 
          LineBox[{{0.00864215588132582, -0.0005403200491045368}, {
           0.008826094622145337, -0.0005651876843550951}}], 
          LineBox[{{1.9875958354487862`, -0.001165910554068006}, {
           1.988867450928481, -0.0009267906064138742}}], 
          LineBox[{{1.9786487215148834`, -0.0036624957723532248`}, {
           1.9786487215148834`, -0.0036624957723532248`}}], 
          LineBox[{{0.0032469470036345775`, -0.00006500762486894018}, {
           0.0032469470036345775`, -0.00006500762486894018}}], 
          LineBox[{{1.9938221141603587`, -0.00026293668237897805`}, {
           1.9938221141603587`, -0.00026293668237897805`}}]},
         Annotation[#, 
          "Charting`Private`Tag$6421#3"]& ], {}}, {{}, {}, {}, {}, {}}}, {}, \
{}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw1WGlUjYvfrY5mmunWLWnUJAmJ4ocoDYbmQdKEJBpwCSHiKo2kUqGZSvPo
[encoded data, 5856 characters]
GpA=
          "]]},
        Annotation[#, "Charting`Private`Tag$6491#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJw1WGk0lYvfNSRTGc4Rl0syZkpSyUX9KkWGBvOQZKokEo2SpOhGpkoIlbmQ
[encoded data, 5856 characters]
GzE=
          "]]},
        Annotation[#, "Charting`Private`Tag$6491#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw1WHdYzY//bWjTpk99Sm630pKERPFClIaRdpIWkmjgQ1JEobSQSkKbpL1o
[encoded data, 5856 characters]
hh/O
          "]]},
        Annotation[#, "Charting`Private`Tag$6491#3"]& ]}, {}, {}}}, InsetBox[
     TemplateBox[{"\"U=5\"","\"U=10\"","\"U=20\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-8., 
         FormBox[
          RowBox[{"-", "8"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-6., 
         FormBox[
          RowBox[{"-", "6"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-4., 
         FormBox[
          RowBox[{"-", "4"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 2}, {-9.04982805264164, 0.0001254916798991701}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           
           Line[{{4.081632653061224*^-8, -1.0776619596697401`*^-8}, {
            0.00036432384925595316`, -3.949198301711476*^-8}, {
            0.00036432384925595316`, -3.949198301711476*^-8}}], 
           Line[CompressedData["
1:eJwV1Hk4VlsXAPAThVRmDa4GJaVRKlRuS3NChYrcyJShL7MGiigzSZJcU0Ih
[encoded data, 5673 characters]
ag==
            "]], 
           
           Line[{{0.018527738344276564`, -0.00041773003312695067`}, {
            0.019628681609693666`, -0.0004756134233865339}, {
            0.019628681609693666`, -0.0004756134233865339}}], 
           Line[{{1.9730157104597952`, -0.0009689507773460448}, {
            1.9752885790904147`, -0.0007964286977211188}, {
            1.97771928062301, -0.0006332386697170053}, {
            1.978481016556227, -0.0005851913233574493}, {
            1.9787348917843108`, -0.000569226280091628}}], 
           
           Line[{{1.9878216550560006`, -0.00016158173214630978`}, {
            1.9892207977123333`, -0.00012246897415714203`}, {
            1.989537286670859, -0.00011439626714672443`}, {
            1.9897035508114822`, -0.00011015535555269906`}}], 
           
           Line[{{0.004330457838550809, -0.000014846056192396873`}, {
            0.005417489561734625, -0.000025033090059523033`}}], 
           
           Line[{{0.014153764658858663`, -0.00022737018734630965`}, {
            0.014805055429162054`, -0.0002517715721639391}}], 
           
           Line[{{0.03276828218404136, -0.0014909980158881453`}, {
            0.03877345108030803, -0.0021617249938721272`}}], 
           
           Line[{{0.0018348523391296006`, -2.114628926688358*^-6}, {
            0.002498553563646729, -4.068215166519451*^-6}}], 
           
           Line[{{0.02178799830232559, -0.0006010566950802598}, {
            0.022614659439428423`, -0.0006558439288847928}, {
            0.024392215195720882`, -0.0007736520106362832}}], 
           
           Line[{{1.9802174233346599`, -0.0004840306099309272}, {
            1.9808195907502975`, -0.00045155375610930976`}}], 
           
           Line[{{1.9914196500123493`, -0.00007251247711881348}, {
            1.9928298177828574`, -0.00004811141956492034}, {
            1.9931356869355459`, -0.00004334729392674319}, {
            1.9933221566670647`, -0.0000406716808871721}}], 
           
           Line[{{0.02634958893945713, -0.0009189416682389151}, {
            0.026844438154139595`, -0.0009585319036565408}, {
            0.027669001512152964`, -0.00102450080184191}}], 
           
           Line[{{0.01625108857998861, -0.0003110981792965951}, {
            0.017175101510522775`, -0.0003521572669962225}, {
            0.01725222814019493, -0.0003557330701013939}}], 
           
           Line[{{1.9972084509362389`, -5.2882394366889156`*^-6}, {
            1.9979406775092352`, -2.5714605200732876`*^-6}, {
            1.9988593097021097`, -7.088262592358363*^-7}, {
            1.9993113835822163`, -1.8646039900140092`*^-7}, {
            1.9999999591836735`, -1.0776584069560613`*^-8}}], 
           
           Line[{{0.010452116315053678`, -0.00011400153348795072`}, {
            0.010872106510641771`, -0.00012510978067086496`}, {
            0.011449102014118605`, -0.0001403706337654853}}], 
           
           Line[{{0.03060659187613595, -0.0012818095295781262`}, {
            0.03149277197995973, -0.0013655199136426432`}}], 
           
           Line[{{1.9626724852278754`, -0.001988084649893196}, {
            1.9635202768839841`, -0.0018898709802890323`}}], 
           
           Line[{{1.9837694148334848`, -0.0003099548666902763}, {
            1.9848985602377929`, -0.0002633268495948471}, {
            1.9855849874626057`, -0.0002369950434770729}, {
            1.9859329599986912`, -0.00022422324607074273`}}], 
           
           Line[{{1.9955463639725046`, -0.00001585620460942677}, {
            1.9956089530489183`, -0.000015364263362110715`}}], 
           
           Line[{{1.9824060028682993`, -0.00037186035634391115`}, {
            1.982493904629403, -0.0003676419219766913}}], 
           
           Line[{{1.9707098218150039`, -0.0011626808300713165`}, {
            1.9711700157415382`, -0.001122502377022272}, {
            1.9716526097143128`, -0.0010811816135953833`}}], 
           
           Line[{{0.007984504445927354, -0.00006199057244988531}, {
            0.00918978315958251, -0.00008489074555839693}, {
            0.00918978315958251, -0.00008489074555839693}}], 
           
           Line[{{1.9676892402150108`, -0.0014453103320670735`}, {
            1.967755017501798, -0.0014388043978863507`}}], 
           
           Line[{{0.02514923683282817, -0.0008282485598813949}, {
            0.02514923683282817, -0.0008282485598813949}}], 
           
           Line[{{0.012881336336973713`, -0.00018358894598602404`}, {
            0.012881336336973713`, -0.00018358894598602404`}}], 
           
           Line[{{1.9871838999539597`, -0.00018148180278032555`}, {
            1.9871838999539597`, -0.00018148180278032555`}}], 
           
           Line[{{0.0066929997658162575`, -0.000040885619287500674`}, {
            0.006731228919568916, -0.00004142885161387505}}]}, 
          "Charting`Private`Tag$6421#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV1Xk4Vd0XB/CDihL3KA2vyFyURIlSbKIk8ipFZCaJogyJFIoyq5f8ZEpC
[encoded data, 4819 characters]
Z+oGJazADS/SZ60SZ7jWBVjandvkconlLOxyNB3g/zqMigA=
            "]], 
           
           Line[{{0.015412559489574392`, -0.0007538933711259688}, {
            0.017175101510522775`, -0.0009542148904220227}, {
            0.019628681609693666`, -0.0012748064025327466`}, {
            0.020242076634486388`, -0.00136260853436454}, {
            0.02085547165927911, -0.0014534903081528938`}, {
            0.022082261708864556`, -0.0016445256083876814`}, {
            0.024247277921402417`, -0.0020125121043904483`}}], 
           
           Line[{{1.9800128763771412`, -0.0013257407364459795`}, {
            1.980963633416411, -0.0011948829379663996`}, {
            1.9814664241137292`, -0.0011256811534625655`}, {
            1.982152851338542, -0.001037174693307108}, {
            1.9835257057881674`, -0.0008715812575506021}, {
            1.98421213301298, -0.0007944642775559174}, {
            1.9848985602377929`, -0.0007211124235908528}, {
            1.9855849874626057`, -0.0006515082860669708}, {
            1.9862714146874185`, -0.0005856334224869642}, {
            1.9869578419122313`, -0.0005234681989403356}, {
            1.9869578419122313`, -0.0005234681989403356}}], 
           
           Line[{{1.9946263552267767`, -0.00007391380195600209}, {
            1.9951949686099844`, -0.00005703755724084658}, {
            1.995881395834797, -0.000040282819549375404`}, {
            1.9965678230596091`, -0.00002664657123752079}}], 
           
           Line[{{1.9921023879292483`, -0.00017322672835895503`}, {
            1.992449259710733, -0.0001567772939274903}, {
            1.9930589692131917`, -0.000129988979438167}}], 
           
           Line[{{1.9972542502844224`, -0.000016023220485550382`}, {
            1.9972542502844224`, -0.000016023220485550382`}}], 
           
           Line[{{0.010742476990142448`, -0.0003437290739702572}, {
            0.012181771315412964`, -0.0004507551156933687}}], 
           
           Line[{{1.9898585528143742`, -0.00030121668343419117`}, {
            1.9907162405767167`, -0.00024797615004216306`}, {
            1.9908268777251665`, -0.00024135893325372137`}}], 
           
           Line[{{0.004929362547335268, -0.00006041294353664739}, {
            0.00613399106425376, -0.00009864821185168182}, {
            0.006747386089046483, -0.00012204352097100468`}, {
            0.0070541304580072385`, -0.00013475443285848598`}}], 
           
           Line[{{0.0030108407854104445`, -0.00001977638964945072}, {
            0.0036538523432536356`, -0.00003071556145073373}}], 
           
           Line[{{0.013457281519494598`, -0.0005606209773443283}, {
            0.014165798916080448`, -0.0006276251659877544}}], 
           
           Line[{{0.00012281403876088337`, -5.976158234943796*^-9}, {
            0.0015077563834993003`, -4.027595128519579*^-6}}], 
           
           Line[{{1.9787319017434, -0.0015163710807905688`}, {
            1.9787373661730594`, -0.00151552089466378}}], 
           
           Line[{{0.008032276164941007, -0.0001798642409100732}, {
            0.008094635367353508, -0.0001829635680810071}}], 
           
           Line[{{1.9994970648041506`, -3.033113635808604*^-7}, {
            1.9999999591836735`, -1.7613646505765246`*^-6}}]}, 
          "Charting`Private`Tag$6421#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           
           Line[{{4.081632653061224*^-8, 0.0001254916798991701}, {
            0.0005432615057210687, -1.1332214420178843`*^-6}}], 
           Line[CompressedData["
1:eJwV1nk0Vd0bB/BjnuoaIhFxbijC623Q8FNbpcGQDCm8QjeFUtSrOboqlSG8
[encoded data, 4880 characters]
B/4Pcj6B8Q==
            "]], 
           Line[{{0.00452245720771621, -0.00013391647778959737`}, {
            0.005202492636691967, -0.00018143102566625657`}}], 
           
           Line[{{1.9798784262276996`, -0.0032340100881427247`}, {
            1.9814664241137292`, -0.0027211487292397862`}, {
            1.982152851338542, -0.002513540224871491}, {
            1.9835257057881674`, -0.0021237362621668865`}, {
            1.98421213301298, -0.0019415066366939016`}, {
            1.9848985602377929`, -0.0017676999589291142`}, {
            1.9862714146874185`, -0.0014452748876649935`}, {
            1.9863203252447044`, -0.001434405860763377}}], 
           
           Line[{{1.9901429611325627`, -0.0007153893479987516}, {
            1.9910764052611079`, -0.0005786047973366237}, {
            1.9917628324859205`, -0.0004876183318600624}, {
            1.992449259710733, -0.00040471447276857475`}, {
            1.9926983404603376`, -0.0003766204870814249}}], 
           
           Line[{{0.006478002840773599, -0.00029121158449285645`}, {
            0.007366645677244187, -0.0003838488278873342}}], 
           
           Line[{{1.9974703545401464`, -0.0000375508725518614}, {
            1.9979406775092352`, -0.000023823608412243402`}, {
            1.998627104734048, -9.637352953006939*^-6}, {
            1.9986439433475665`, -9.389294085337951*^-6}}], 
           
           Line[{{0.0012268308659119764`, -7.455414351653644*^-6}, {
            0.001347697871437399, -9.247871915363248*^-6}}], 
           
           Line[{{0.010591421511127732`, -0.0008336368522989801}, {
            0.011275757186808948`, -0.0009522998043429709}}], 
           
           Line[{{1.9948449131579624`, -0.00017787226610010975`}, {
            1.9961948443360646`, -0.00009195658108396287}}], 
           
           Line[{{0.012551267390890582`, -0.0011954085106928858`}, {
            0.014657014629731107`, -0.0016596526210399531`}}], 
           
           Line[{{0.00864215588132582, -0.0005403200491045368}, {
            0.008826094622145337, -0.0005651876843550951}}], 
           
           Line[{{1.9875958354487862`, -0.001165910554068006}, {
            1.988867450928481, -0.0009267906064138742}}], 
           
           Line[{{1.9786487215148834`, -0.0036624957723532248`}, {
            1.9786487215148834`, -0.0036624957723532248`}}], 
           
           Line[{{0.0032469470036345775`, -0.00006500762486894018}, {
            0.0032469470036345775`, -0.00006500762486894018}}], 
           
           Line[{{1.9938221141603587`, -0.00026293668237897805`}, {
            1.9938221141603587`, -0.00026293668237897805`}}]}, 
          "Charting`Private`Tag$6421#3"], {}}, {{}, {}, {}, {}, {}}}, {}, \
{}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw1WGlUjYvfrY5mmunWLWnUJAmJ4ocoDYbmQdKEJBpwCSHiKo2kUqGZSvPo
[encoded data, 5856 characters]
GpA=
            "]]}, "Charting`Private`Tag$6491#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw1WGk0lYvfNSRTGc4Rl0syZkpSyUX9KkWGBvOQZKokEo2SpOhGpkoIlbmQ
[encoded data, 5856 characters]
GzE=
            "]]}, "Charting`Private`Tag$6491#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw1WHdYzY//bWjTpk99Sm630pKERPFClIaRdpIWkmjgQ1JEobSQSkKbpL1o
[encoded data, 5856 characters]
hh/O
            "]]}, "Charting`Private`Tag$6491#3"]}}, {}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 2}, {-9.04982805264164, 0.0001254916798991701}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=5", "U=10", "U=20"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.771208520121052*^9, 3.7712085847780857`*^9}, {
  3.771208757235133*^9, 3.771208802112856*^9}},
 CellLabel->"Out[17]=",ExpressionUUID->"de414289-7935-4c13-8aff-1a5987e6b958"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Different form of the exact functional", "Subsubsection",
 CellChangeTimes->{{3.771208983150835*^9, 
  3.771208990450161*^9}},ExpressionUUID->"9391275f-419e-4780-bf5a-\
704aa9d9fd2c"],

Cell[TextData[StyleBox["Hopping term",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.771209402592237*^9, 
  3.771209431082522*^9}},ExpressionUUID->"0218b203-95a9-4fa5-b0fe-\
e5b617c8a5c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[Rho]", "]"}], "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", "g"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"g", ",", "\[Rho]"}], "]"}], "\t", 
   RowBox[{
    SubscriptBox["f", "1"], "[", 
    RowBox[{"g", ",", "\[Rho]"}], "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
   RowBox[{"2", "t", " ", "u", 
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["g", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["g", "2"], "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
      RowBox[{"2", 
       SuperscriptBox["\[Rho]", "2"]}]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["g", "2"], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}]}]], "Input",
 CellChangeTimes->{
  3.771209200036745*^9, {3.771209246290516*^9, 3.771209312882636*^9}, {
   3.771209367044862*^9, 3.77120937006356*^9}, {3.771209412929771*^9, 
   3.771209416169512*^9}, {3.771209459733844*^9, 
   3.7712094638022757`*^9}},ExpressionUUID->"4c21cb09-8d5e-4aaa-9762-\
9762e69e05a7"],

Cell["\<\
Minimizing F wrt g is equivalent to finding one of the roots of the following \
polynomial:\
\>", "Text",
 CellChangeTimes->{{3.771567104972465*^9, 3.77156713851591*^9}, {
  3.771567320284526*^9, 3.77156732169971*^9}, {3.771568514636239*^9, 
  3.771568522523953*^9}},ExpressionUUID->"50a1fda8-1377-4469-89b6-\
fac30b3f57d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"4", "+", 
      SuperscriptBox["u", "2"]}], ")"}], 
    RowBox[{
     SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Rho]", "2"], 
       RowBox[{"(", 
        RowBox[{"3", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
    SuperscriptBox["g", "4"]}], "+", 
   RowBox[{"2", "u", " ", 
    SuperscriptBox["\[Rho]", "2"], 
    SuperscriptBox["g", "3"]}], "+", 
   RowBox[{
    SuperscriptBox["\[Rho]", "2"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Rho]", "2"], 
       RowBox[{"(", 
        RowBox[{"3", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], "-", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
    SuperscriptBox["g", "2"]}], "-", 
   RowBox[{"2", "u", " ", 
    SuperscriptBox["\[Rho]", "2"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
   RowBox[{
    SuperscriptBox["\[Rho]", "4"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", "0"}]], "Input",\
ExpressionUUID->"4ec52247-b681-4bc8-9c6c-8b4ac8b2ad46"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"Minimize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "t", " ", "g"}], "+", 
       RowBox[{"2", "t", " ", "u", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["g", "2"], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["g", "2"], "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
          RowBox[{"2", 
           SuperscriptBox["\[Rho]", "2"]}]}], 
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["g", "2"], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], ",", "g"}], 
     "]"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.771568502181675*^9, 3.771568504284729*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"3799a252-a997-4e88-9f74-ac215a76eca5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5610963717449432`"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8952374901616379`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.7715685049707623`*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"dfbb54e5-83f9-4b32-b8db-a76f0c22e1c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}], ")"}], 
         RowBox[{
          SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], 
            RowBox[{"(", 
             RowBox[{"3", "+", 
              SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
         SuperscriptBox["g", "4"]}], "+", 
        RowBox[{"2", "u", " ", 
         SuperscriptBox["\[Rho]", "2"], 
         SuperscriptBox["g", "3"]}], "+", 
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], 
            RowBox[{"(", 
             RowBox[{"3", "+", 
              SuperscriptBox["u", "2"]}], ")"}]}], "-", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
         SuperscriptBox["g", "2"]}], "-", 
        RowBox[{"2", "u", " ", 
         SuperscriptBox["\[Rho]", "2"], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
        RowBox[{
         SuperscriptBox["\[Rho]", "4"], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", "0"}], ",",
       "g"}], "]"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.771567243597698*^9, 3.7715672845321817`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"81aa1813-6a49-47a4-a7eb-a5de6fa57eae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.8797647276507626`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.33183944306382684`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.020641368011958938`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.16850402428245528`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.44652370276078823`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.16850402428245528`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.44652370276078823`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8952374901616379`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.771567273971918*^9, 3.7715672851318693`*^9}},
 CellLabel->
  "Out[107]=",ExpressionUUID->"26cff213-1645-4a31-801f-14b8b972f3d6"]
}, Open  ]],

Cell[TextData[StyleBox["Electron-electron term",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.771209402592237*^9, 
  3.7712094482429867`*^9}},ExpressionUUID->"f4a27aa6-73c9-4dcf-8ee7-\
37aaf9296606"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[Rho]", "]"}], "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", "f"], " ", 
   RowBox[{
    SubscriptBox["f", "2"], "[", 
    RowBox[{"f", ",", "\[Rho]"}], "]"}], "\t", 
   RowBox[{
    SubscriptBox["f", "2"], "[", 
    RowBox[{"f", ",", "\[Rho]"}], "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", 
    SqrtBox[
     RowBox[{"1", "-", "f"}]], "  ", 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{"f", "+", "\[Rho]"}]], "+", 
      SqrtBox[
       RowBox[{"f", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
   RowBox[{"2", " ", "t", " ", "u", " ", "f"}]}]}]], "Input",
 CellChangeTimes->{{3.771567775140232*^9, 3.771567777108326*^9}, {
  3.771567820676931*^9, 3.771567863147984*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"179f71a2-3a7d-467f-a335-5c427712a037"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"Minimize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "t", 
        SqrtBox[
         RowBox[{"1", "-", "f"}]], "  ", 
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{"f", "+", "\[Rho]"}]], "+", 
          SqrtBox[
           RowBox[{"f", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
       RowBox[{"2", " ", "t", " ", "u", " ", "f"}]}], ",", "f"}], "]"}]}], 
   "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7715680400613194`*^9, 3.7715680623722057`*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"0fd0c53a-40f4-4206-8782-637a03964009"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5610963717449434`"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "0.3341411184166945`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7715680599235477`*^9, 3.771568062968989*^9}},
 CellLabel->
  "Out[138]=",ExpressionUUID->"700654dc-d710-4b0f-b925-1c7a02c71a5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"8", " ", 
         SuperscriptBox["f", "5"], " ", 
         SuperscriptBox["u", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}], ")"}]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["f", "6"], " ", 
         SuperscriptBox["u", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}], ")"}]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["f", "3"], " ", 
         SuperscriptBox["u", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"13", "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["u", "2"]}]}], ")"}], " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["u", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["u", "4"]}]}], ")"}], " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           SuperscriptBox["\[Rho]", "4"]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["f", "4"], " ", 
         SuperscriptBox["u", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "+", 
           RowBox[{"7", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["u", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["f", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["u", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["u", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "7"}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", "f", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox["\[Rho]", "2"], "+", 
           RowBox[{
            SuperscriptBox["u", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["u", "2"]}]}], ")"}], " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
       "\[Equal]", "0"}], ",", "f"}], "]"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.771568968861607*^9, 3.7715690659647007`*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"e2d8831f-ff7e-47ad-acf0-58a98021c378"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.1742178617496342`"}], "-", 
      RowBox[{"0.11625937625299562`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.1742178617496342`"}], "+", 
      RowBox[{"0.11625937625299562`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "0.2951062888403213`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "0.334141118416695`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "0.7296200908106802`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", "\[Rule]", "0.9895682254315711`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.771568981921731*^9, 3.771569066597309*^9}},
 CellLabel->
  "Out[191]=",ExpressionUUID->"07bf00a1-57d9-41f5-bcc8-979850a65268"]
}, Open  ]],

Cell[TextData[StyleBox["Asymmetric limit",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.771209402592237*^9, 
  3.771209408547235*^9}},ExpressionUUID->"0d54fa00-36e6-44e4-ad63-\
700a95b9378d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[Rho]", "]"}], "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", "l"], " ", 
   RowBox[{
    SubscriptBox["f", "3"], "[", 
    RowBox[{"l", ",", "\[Rho]"}], "]"}], "\t", 
   RowBox[{
    SubscriptBox["f", "3"], "[", 
    RowBox[{"l", ",", "\[Rho]"}], "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"2", "l"}], "-", 
      SuperscriptBox["l", "2"], "-", 
      SuperscriptBox["\[Rho]", "2"]}]]}], "+", " ", 
   RowBox[{"2", "u", " ", "t", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["l", "2"], "+", 
      SuperscriptBox["\[Rho]", "2"]}], 
     RowBox[{"2", "l"}]]}]}]}]], "Input",
 CellChangeTimes->{{3.771209261991597*^9, 3.7712092623273897`*^9}, {
   3.771209302167514*^9, 3.771209342336794*^9}, 
   3.7715681609563923`*^9},ExpressionUUID->"6d9ca4dc-3f63-4e01-85f3-\
7d40d87e0a7e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"Minimize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "t", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"2", "l"}], "-", 
          SuperscriptBox["l", "2"], "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}], "+", " ", 
       RowBox[{"2", "u", " ", "t", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["l", "2"], "+", 
          SuperscriptBox["\[Rho]", "2"]}], 
         RowBox[{"2", "l"}]]}]}], ",", "l"}], "]"}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.771568166229588*^9, 3.771568168236577*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"200bba2b-58de-43b2-8269-7a3f6fc51691"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5610963717449434`"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", "0.6018168308314735`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.7715681692631598`*^9, 3.771568409071088*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"8a16cc8e-49c1-413f-93d3-76e9d94b6f55"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"u", "=", "1"}], ",", 
      RowBox[{"\[Rho]", "=", 
       RowBox[{"2", "/", "10"}]}]}], "}"}], ",", 
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["l", "6"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["l", "5"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["l", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "-", 
           RowBox[{
            SuperscriptBox["u", "2"], " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["l", "3"], " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{
         SuperscriptBox["l", "2"], " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"2", " ", "l", " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "6"]}]}], "\[Equal]", "0"}], ",", "l"}], 
     "]"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.771568199861809*^9, 3.771568245516262*^9}, 
   3.771568284527399*^9, {3.771568344446763*^9, 3.771568398525489*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"698ec944-d0f2-4a5e-9a23-ed903f13e9a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.0658205247086243`"}], "-", 
      RowBox[{"0.07059447543784655`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.0658205247086243`"}], "+", 
      RowBox[{"0.07059447543784655`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", "0.020421552949129614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", "0.07810923422181452`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", "0.6018168308314735`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", "1.431293431414831`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.771568200866891*^9, 3.7715682460233603`*^9}, {
  3.771568331200035*^9, 3.771568352326545*^9}, {3.771568385782135*^9, 
  3.771568410243572*^9}},
 CellLabel->
  "Out[157]=",ExpressionUUID->"656b5ba2-df67-4684-a95f-2c7a4fd7ec8f"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Self-consistent Kohn-Sham module", "Subsection",
 CellChangeTimes->{{3.772553981003195*^9, 
  3.772553988115407*^9}},ExpressionUUID->"303856df-d695-43aa-a8eb-\
8d8afd0855a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"KS", "[", 
    RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Ts", ",", "EHx", ",", "EKS", ",", "Vext", ",", "\[CapitalDelta]n", ",", 
       RowBox[{"\[Lambda]", "=", "0"}], ",", 
       RowBox[{"\[Delta]", "=", 
        SuperscriptBox["10", 
         RowBox[{"-", "4"}]]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[CapitalDelta]n", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{"\[CapitalDelta]n", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"t", "/", "2"}], 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}]]], 
             "\[CapitalDelta]n"}], "+", 
            RowBox[{
             FractionBox["U", "4"], "\[CapitalDelta]n"}], "+", 
            RowBox[{"\[Lambda]", " ", 
             FractionBox[
              RowBox[{
               RowBox[{"F0", "[", 
                RowBox[{"t", ",", "U", ",", 
                 RowBox[{"\[CapitalDelta]n", "+", "\[Delta]"}]}], "]"}], "-", 
               
               RowBox[{"F0", "[", 
                RowBox[{"t", ",", "U", ",", 
                 RowBox[{"\[CapitalDelta]n", "-", "\[Delta]"}]}], "]"}]}], 
              RowBox[{"2", "\[Delta]"}]]}], "+", 
            FractionBox["\[CapitalDelta]v", "2"]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[CapitalDelta]n", ",", "0.9"}], "}"}]}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\[CapitalDelta]n", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Ts", "=", 
       RowBox[{
        RowBox[{"-", "2"}], "t", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox["\[CapitalDelta]n", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            FractionBox["\[CapitalDelta]n", "2"]}], ")"}]}]]}]}], ";", "\t", 
      RowBox[{"EHx", "=", 
       RowBox[{
        FractionBox["U", "2"], 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], ")"}]}]}], 
      ";", "\t", 
      RowBox[{"Vext", "=", 
       FractionBox[
        RowBox[{"\[CapitalDelta]v", " ", "\[CapitalDelta]n"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"EKS", "=", 
       RowBox[{"Ts", "+", "EHx", "+", "Vext", "+", 
        RowBox[{"\[Lambda]", " ", 
         RowBox[{"F0", "[", 
          RowBox[{"t", ",", "U", ",", "\[CapitalDelta]n"}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"Chop", "[", "EKS", "]"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.772525378601912*^9, 3.772525384856331*^9}, {
   3.772525508639717*^9, 3.772525788372903*^9}, {3.7725260097170773`*^9, 
   3.77252615021871*^9}, {3.772526506071969*^9, 3.772526612335966*^9}, {
   3.77252793551991*^9, 3.7725279365055523`*^9}, {3.7725282127013607`*^9, 
   3.772528238735358*^9}, {3.772528284737956*^9, 3.772528427247438*^9}, {
   3.7725284637280188`*^9, 3.772528463913679*^9}, {3.7725285356508007`*^9, 
   3.772528548483574*^9}, {3.7725285821202173`*^9, 3.772528592357127*^9}, {
   3.772528674949999*^9, 3.772528721579783*^9}, {3.77252878035653*^9, 
   3.772528795509471*^9}, {3.772528923217143*^9, 3.772528984044462*^9}, 
   3.77252903016821*^9, {3.772529086455533*^9, 3.7725291703359203`*^9}, {
   3.772529221724977*^9, 3.772529318179757*^9}, {3.772529371424343*^9, 
   3.7725293737010193`*^9}, {3.772529406698001*^9, 3.7725295240551777`*^9}, {
   3.772529571978063*^9, 3.772529590206194*^9}, {3.7725296312608356`*^9, 
   3.772529740150901*^9}, {3.772529770839847*^9, 3.7725298106644297`*^9}, {
   3.77252989456701*^9, 3.772529947769703*^9}, {3.7725300074722633`*^9, 
   3.77253000792196*^9}, {3.772530067380609*^9, 3.772530080079603*^9}, {
   3.772530110388657*^9, 3.772530158947775*^9}, 3.772531497647974*^9, {
   3.7725316253110847`*^9, 3.772531654816414*^9}, {3.772531688987617*^9, 
   3.77253187622441*^9}, {3.7725319648176737`*^9, 3.7725320665411043`*^9}, {
   3.772532101034523*^9, 3.772532133391629*^9}, {3.7725322121971083`*^9, 
   3.7725324374122868`*^9}, {3.772532639937007*^9, 3.7725326768637533`*^9}, {
   3.7725329029057217`*^9, 3.77253295120061*^9}, {3.7725330300786*^9, 
   3.772533081221402*^9}, {3.77253327714927*^9, 3.7725333503571243`*^9}, {
   3.772534164916113*^9, 3.772534186168706*^9}, {3.772534219450694*^9, 
   3.772534558428087*^9}, {3.772534686101811*^9, 3.772534864403307*^9}, {
   3.772534911141062*^9, 3.772534926283504*^9}, {3.772534971470553*^9, 
   3.772534980625388*^9}, {3.772537325843511*^9, 3.772537393551764*^9}, {
   3.772538219402133*^9, 3.7725382197986593`*^9}, {3.772538366645162*^9, 
   3.7725383788830957`*^9}, {3.772538416415205*^9, 3.772538535416518*^9}, {
   3.772538601179194*^9, 3.772538741911829*^9}, 3.772538791745427*^9, 
   3.772538837315796*^9, 3.772538871791328*^9, {3.772538925818534*^9, 
   3.772538997639818*^9}, {3.772539052726008*^9, 3.7725390762263117`*^9}, {
   3.772539108349154*^9, 3.7725391318959093`*^9}, {3.772539181772654*^9, 
   3.7725392468315153`*^9}, {3.7725392955661182`*^9, 3.772539366315239*^9}, 
   3.772539399105878*^9, {3.772539430034223*^9, 3.772539535109761*^9}, {
   3.772539570047182*^9, 3.772539612931241*^9}, {3.772539649938045*^9, 
   3.772539698042241*^9}, {3.772539766028449*^9, 3.772539772057725*^9}, {
   3.772539937042623*^9, 3.772539977293972*^9}, {3.772540047898638*^9, 
   3.7725401021093473`*^9}, {3.7725401537718077`*^9, 
   3.7725401556969147`*^9}, {3.772540192406399*^9, 3.772540233366734*^9}, {
   3.7725402741099997`*^9, 3.772540587863901*^9}, {3.7725406804431*^9, 
   3.772540718948474*^9}, {3.772540775047213*^9, 3.772540812138711*^9}, {
   3.772554042746235*^9, 3.772554052099414*^9}, {3.77255416000914*^9, 
   3.772554181866561*^9}, {3.7725542482669764`*^9, 3.772554295189995*^9}, {
   3.7725543540498457`*^9, 3.772554358372336*^9}, 3.772554398655766*^9, {
   3.772554438972499*^9, 3.7725544898871527`*^9}, {3.77255452000086*^9, 
   3.772554573528192*^9}, {3.772554621886701*^9, 3.772554749261127*^9}, {
   3.772554786475766*^9, 3.772554800102585*^9}, {3.772555011372038*^9, 
   3.772555073907909*^9}, {3.7725551321770782`*^9, 3.7725551455494423`*^9}, {
   3.772555771368313*^9, 3.772555790870488*^9}, {3.7725558373877697`*^9, 
   3.772555887478459*^9}, {3.7725572096473627`*^9, 3.7725572430885477`*^9}, 
   3.772557287180921*^9, {3.772557357800108*^9, 3.772557437812223*^9}, {
   3.7725574681053143`*^9, 3.7725575481768913`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"ab80b4c1-ea43-428f-9b95-a5289c2baae7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", "1"}], ",", 
      RowBox[{"U", "=", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"\[CapitalDelta]v", "=", 
       RowBox[{"-", "1"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"KS", "[", 
       RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], ",", 
      RowBox[{"Root", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["t", "2"], " ", "U"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SuperscriptBox["t", "2"]}], "+", 
             SuperscriptBox["U", "2"], "-", 
             SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], 
          "-", 
          RowBox[{"2", " ", "U", " ", 
           SuperscriptBox["#1", "2"]}], "+", 
          SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["U", "2"], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], ")"}]}], 
        "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", "t"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[CapitalDelta]v", "+", 
             RowBox[{
              FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], "2"]}]]}],
        "/.", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"\[CapitalDelta]n", "\[Equal]", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "\[CapitalDelta]v"}], "-", 
             RowBox[{"U", " ", "\[CapitalDelta]n"}]}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "t"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[CapitalDelta]v", "+", 
                 RowBox[{"U", " ", 
                  RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
               "2"]}]]]}], ",", "\[CapitalDelta]n"}], "]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], "}"}]}], 
   "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.772525716677062*^9, 3.772525718931591*^9}, {
   3.7725265315518703`*^9, 3.7725265317955847`*^9}, 3.7725266575113583`*^9, 
   3.7725281113279448`*^9, 3.77252840728703*^9, {3.772528597773542*^9, 
   3.7725285978907146`*^9}, 3.772529402474642*^9, {3.7725294826158333`*^9, 
   3.7725295057993927`*^9}, {3.772530172194769*^9, 3.7725301923629227`*^9}, {
   3.772531209260611*^9, 3.772531240074465*^9}, {3.77253147793408*^9, 
   3.772531492481083*^9}, {3.772532441603272*^9, 3.772532450040345*^9}, {
   3.772532963325108*^9, 3.772532973561801*^9}, {3.772533048668293*^9, 
   3.772533049447357*^9}, {3.77253326260257*^9, 3.772533265472055*^9}, {
   3.772533334706036*^9, 3.7725333359128017`*^9}, 3.772534197772649*^9, {
   3.7725345759113483`*^9, 3.7725345789784*^9}, 3.7725348136117363`*^9, 
   3.77253487909286*^9, {3.772537220914569*^9, 3.772537221370356*^9}, {
   3.772538700113695*^9, 3.7725387036455507`*^9}, {3.772538969259788*^9, 
   3.7725390399379168`*^9}, {3.772539087409583*^9, 3.7725391194030647`*^9}, {
   3.772539152392961*^9, 3.7725392047968693`*^9}, {3.772539255195562*^9, 
   3.772539278314344*^9}, 3.7725393837119083`*^9, 3.772539544308153*^9, 
   3.7725401151131144`*^9, 3.772540493746552*^9, {3.772540750928297*^9, 
   3.772540763458563*^9}, {3.772540796446632*^9, 3.772540797147954*^9}, {
   3.772554306065277*^9, 3.7725543782652273`*^9}, {3.772554430975658*^9, 
   3.772554443619561*^9}, {3.772554582220561*^9, 3.7725546343349257`*^9}, {
   3.772554759325252*^9, 3.772554770484626*^9}, {3.772555758522505*^9, 
   3.772555765009233*^9}, {3.7725558448532867`*^9, 3.772555845197423*^9}, 
   3.772557486642352*^9},
 CellLabel->
  "In[223]:=",ExpressionUUID->"b43ba148-6596-4d65-98df-c1c1324eff93"],

Cell[BoxData["0.7522973071014158`"], "Print",
 CellChangeTimes->{{3.772554277466357*^9, 3.772554400666066*^9}, {
  3.772554431736393*^9, 3.772554802973935*^9}, {3.772555019107535*^9, 
  3.7725550756164293`*^9}, {3.7725551338086147`*^9, 3.772555147387598*^9}, {
  3.772555756162785*^9, 3.772555805376235*^9}, {3.772555838926757*^9, 
  3.772555889010872*^9}, {3.772557215090032*^9, 3.772557244720379*^9}, {
  3.772557339690269*^9, 3.7725575497869997`*^9}},
 CellLabel->
  "During evaluation of \
In[223]:=",ExpressionUUID->"6ac6122d-4de1-482b-a0b2-60f372bb7ef3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.9438953594555661`"}], ",", 
   RowBox[{"-", "1.9542624172751606`"}], ",", 
   RowBox[{"-", "1.9438953594555664`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.772525719892108*^9, 3.772525751008522*^9}, 
   3.7725257841914387`*^9, 3.7725258302742567`*^9, {3.772526084695076*^9, 
   3.7725261517448263`*^9}, 3.7725266187548933`*^9, 3.77252666220604*^9, 
   3.772527081559593*^9, 3.772527959335676*^9, 3.772528013924512*^9, 
   3.772528118517664*^9, 3.7725282246783943`*^9, {3.772528295211493*^9, 
   3.772528351477022*^9}, {3.772528383217029*^9, 3.772528417670089*^9}, 
   3.772528465555851*^9, {3.77252854108676*^9, 3.772528549722891*^9}, {
   3.772528583996025*^9, 3.772528598193344*^9}, 3.772528724673527*^9, {
   3.772528790858856*^9, 3.7725287969435377`*^9}, 3.772528974256104*^9, {
   3.772529010377741*^9, 3.7725290318608637`*^9}, {3.7725291001278563`*^9, 
   3.772529171613234*^9}, {3.772529242068063*^9, 3.7725292529179983`*^9}, {
   3.7725293017915087`*^9, 3.772529319846855*^9}, {3.772529377382567*^9, 
   3.7725294111188297`*^9}, {3.7725294628274937`*^9, 3.772529525300949*^9}, {
   3.772529574039721*^9, 3.772529600366428*^9}, {3.772529666525004*^9, 
   3.772529689546756*^9}, {3.772529721373263*^9, 3.772529736891796*^9}, {
   3.772529772483583*^9, 3.7725298121943617`*^9}, {3.772529896280685*^9, 
   3.772529903140978*^9}, 3.7725299620917377`*^9, 3.772530009458666*^9, {
   3.772530069401561*^9, 3.772530081898473*^9}, {3.7725301181976547`*^9, 
   3.7725301928372498`*^9}, {3.77253121105434*^9, 3.772531240535891*^9}, {
   3.772531478442872*^9, 3.772531499004331*^9}, 3.772531579173974*^9, {
   3.772531656452278*^9, 3.7725318778334427`*^9}, {3.7725319815627832`*^9, 
   3.772532023855412*^9}, 3.772532068913199*^9, 3.772532106436391*^9, {
   3.772532137252907*^9, 3.77253215067494*^9}, 3.772532234999078*^9, {
   3.772532268185704*^9, 3.772532450616275*^9}, 3.772532645238649*^9, 
   3.772532685095503*^9, {3.772532928743683*^9, 3.772532974004587*^9}, {
   3.772533035814323*^9, 3.772533082563607*^9}, {3.772533263350554*^9, 
   3.772533351806691*^9}, {3.772534170632092*^9, 3.772534329638575*^9}, {
   3.772534364265709*^9, 3.77253457950983*^9}, {3.772534696955366*^9, 
   3.772534719791106*^9}, {3.7725347504734793`*^9, 3.772534879654479*^9}, 
   3.772534922035882*^9, {3.772534976083788*^9, 3.772534982001487*^9}, 
   3.77253722189749*^9, {3.7725373162720337`*^9, 3.772537327698496*^9}, {
   3.7725373612643547`*^9, 3.772537396033609*^9}, 3.772537872308867*^9, 
   3.772538221757444*^9, 3.7725383808110313`*^9, {3.7725384183328323`*^9, 
   3.7725384705202093`*^9}, {3.772538516091475*^9, 3.7725385570432653`*^9}, {
   3.772538662318241*^9, 3.772538704296281*^9}, 3.772538744303219*^9, 
   3.772538793984046*^9, 3.7725388393769493`*^9, {3.772538928102522*^9, 
   3.772539474121765*^9}, {3.772539518807617*^9, 3.7725395447749157`*^9}, {
   3.772539578127233*^9, 3.7725396023373547`*^9}, {3.772539654084256*^9, 
   3.772539699473572*^9}, {3.7725397617800093`*^9, 3.772539773759997*^9}, {
   3.7725399279056053`*^9, 3.7725399791860867`*^9}, {3.772540040880962*^9, 
   3.772540115747058*^9}, {3.772540149252207*^9, 3.772540157221442*^9}, {
   3.772540189399254*^9, 3.772540235023271*^9}, {3.772540299807056*^9, 
   3.772540494569075*^9}, {3.772540548804516*^9, 3.772540590312883*^9}, {
   3.772540670789657*^9, 3.772540720840794*^9}, {3.7725407520070667`*^9, 
   3.7725408142090883`*^9}, {3.772554029884104*^9, 3.772554054022291*^9}, {
   3.772554173161654*^9, 3.772554184763979*^9}, {3.772554250196697*^9, 
   3.772554400677761*^9}, {3.772554431753418*^9, 3.772554803000689*^9}, {
   3.772555019131852*^9, 3.772555075633387*^9}, {3.772555133821068*^9, 
   3.772555147407214*^9}, {3.772555756174115*^9, 3.772555805393009*^9}, {
   3.7725558389391127`*^9, 3.77255588902144*^9}, {3.7725572151002703`*^9, 
   3.7725572447322702`*^9}, {3.772557339700438*^9, 3.772557549800537*^9}},
 CellLabel->
  "Out[223]=",ExpressionUUID->"8bd0a44f-0198-4769-92b3-c610788b005c"]
}, Open  ]],

Cell[TextData[StyleBox["There\[CloseCurlyQuote]s still something wrong with \
this module!! I\[CloseCurlyQuote]m working on it.",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.777347068946988*^9, 
  3.7773470847786694`*^9}},ExpressionUUID->"94f4f5f2-8f48-4d6e-95eb-\
c0682823b89f"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fundamental gap", "Section",
 CellChangeTimes->{{3.770885258991706*^9, 
  3.770885290706602*^9}},ExpressionUUID->"180da75d-d6da-4294-83be-\
eb5cb0a1711f"],

Cell[CellGroupData[{

Cell["Generalities", "Subsection",
 CellChangeTimes->{{3.771000835887121*^9, 
  3.771000838424327*^9}},ExpressionUUID->"a00b16b1-ab0c-4a1e-b569-\
0c62efa79adc"],

Cell[BoxData[
 RowBox[{"I", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "[", 
     RowBox[{"N", "-", "1"}], "]"}], "-", 
    RowBox[{
     RowBox[{"E", "[", "N", "]"}], "\t", "A"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "[", "N", "]"}], "-", 
     RowBox[{
      RowBox[{"E", "[", 
       RowBox[{"N", "+", "1"}], "]"}], "\t", 
      SubscriptBox["E", "g"]}]}], "=", 
    RowBox[{"I", "-", "A"}]}]}]}]], "Input",
 CellChangeTimes->{{3.770885276355899*^9, 3.770885306619177*^9}, 
   3.770994173902697*^9, 3.770997684120804*^9},
 FontSlant->"Italic",ExpressionUUID->"3acf86f8-9f34-4569-8969-b727485524ee"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Epsilon]", "HOMO"], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], "\t", 
     SuperscriptBox["\[Epsilon]", "LUMO"]}], "\[NotEqual]", 
    RowBox[{
     RowBox[{"-", "A"}], "\t", 
     SubscriptBox["E", "gs"]}]}], "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Epsilon]", "LUMO"], "-", 
     RowBox[{
      SuperscriptBox["\[Epsilon]", "HOMO"], "\t", 
      SubscriptBox["E", "g"]}]}], "=", 
    RowBox[{
     SubscriptBox["E", "gs"], "+", 
     SubscriptBox["\[CapitalDelta]", "xc"]}]}]}]}]], "Input",
 CellChangeTimes->{{3.770885312249711*^9, 
  3.77088538598844*^9}},ExpressionUUID->"35c0dd23-5c05-4c69-be85-\
39e26f970bf2"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalDelta]", "xc"], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "745ef00e-3197-4a0b-9589-7f898b932ed6"],
 StyleBox[" is the infamous derivative discontinuity",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.770885405730452*^9, 
  3.7708854222104397`*^9}},ExpressionUUID->"eab1f64f-b139-4ce9-95de-\
d2d5fe4bae39"]
}, Closed]],

Cell[CellGroupData[{

Cell["Energies of the 1-, 2- and 3-electron systems", "Subsection",
 CellChangeTimes->{{3.770992842898305*^9, 
  3.770992852267375*^9}},ExpressionUUID->"a236afb1-fee9-4e78-a9e4-\
6831b606a674"],

Cell[CellGroupData[{

Cell["One-electron system", "Subsubsection",
 CellChangeTimes->{{3.7709928695004*^9, 
  3.770992873363358*^9}},ExpressionUUID->"024417bc-e010-451d-ae55-\
f0bed56a179d"],

Cell["Configurations: \[LeftBracketingBar]1\[UpArrow]\[RightAngleBracket], \
\[LeftBracketingBar]2\[UpArrow]\[RightAngleBracket]", "Text",
 CellChangeTimes->{{3.7709928960965157`*^9, 3.7709929505092907`*^9}, {
  3.770999582704067*^9, 
  3.770999584669379*^9}},ExpressionUUID->"f0121dc7-aa56-4e4c-8058-\
a1ccd25d1659"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Epsilon]", "1"], "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", 
         FractionBox["\[CapitalDelta]v", "2"]}], 
        RowBox[{"-", "t"}]},
       {
        RowBox[{"-", "t"}], 
        FractionBox["\[CapitalDelta]v", "2"]}
      }], "\[NoBreak]", ")"}], "]"}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.770998826626719*^9, 3.770998855481907*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"ba093f4d-a2f9-483c-99a4-38f2629c2e17"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["t", "2"]}], "+", 
      SuperscriptBox["\[CapitalDelta]v", "2"]}]]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["t", "2"]}], "+", 
      SuperscriptBox["\[CapitalDelta]v", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770998844706725*^9, 3.770998855868762*^9}, {
  3.770999575560417*^9, 3.770999589005706*^9}},
 CellLabel->
  "Out[132]=",ExpressionUUID->"deb587d1-9ecf-4a74-9e06-c6fe2985f68e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"U", "=", "1"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       SubscriptBox["\[Epsilon]", "1"], "[", 
       RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E(N=1)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7709940325044537`*^9, 3.7709940348880043`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"e678ba71-cec9-4f03-a62f-15534828a18c"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Hk0ldsbB/BjfN0SkUPUlQynUCk0uDeet0mhbtx+hjgJCUlCJZSSsSsn
IhlDuSVERVGmJ5kzlEudVHiNhTIP5yT83vZae+31+edZz37Wd+/VDqf/Pi7I
YDDi6f3r5Jm43zY97WEgxvi1KAx1XLP2DesvsG1I9/zlxuFeVw7LFs7ahVUL
0M5mfkprS3aCa0FZ80K0R/N3Rbix3EGGK65A0FZQf1+8wPWC3Pc5yxfT1vcJ
31SX7A1qHyJ+SNK2qzHIiLb3A6/FmcikHSg7sZLNugTlfgIuK2n/l3eoLnoq
AE4uip1Qoe34cX3wDDcQfvo4OKyjPSUgBuyiYNh41OXp5l/9qnfzXyaHAk/r
3gDQljMreap2+Sr4bpMTNKH9wOfW6XD7cJBIK5mzoF1fY9x3iHUdptwSUjxp
556XNmULR4GCY8OuANrnr13OuT4VBfx29YZI2mL5h10muNGg03E49Antt9XV
VWp1MWBZy3peQTvho46KVdFNaPwp3fietoagREdJ8i0wObU9bYH2OPPCnyOc
ODja6WXLFKCwWP1r/OrL8dBFFC9o0t5v9upQqH0ivDbyHLKhfTrNu+4gKwXm
JwSdq2lve9rDCpRLhXXB5vo9tBmOa3daC6dBYEzcNEOQwrrzsakRU2nwzOi9
FNC2Tj1tPca9C0M3swaraBuos/4JN00Hpfv93AHayvmfC1Xq0sEiqT9DQojC
oWojpkXRv+CaLD9qTfvisMrbouT7wC6IU5qnbefzcf4QMwPas0BFXZjC3YI3
1n/nZIAdx1vMnPYS2fnwVZcfAH4+4/eIdor+hz3B9lnQVMGddRehsDwiovgA
KxfiP6mcWk5QWDbY1rA4MxdM4iXdLWiX7FvTUaf5CHpC0n1iadsI2jPSlz8G
x9roLFkxCs3LZpVXKT4B9zTNALXfKDTesslFTj0f/LaH9p9dTOG+Pq6Ht2s+
xMrXXaigvffmJd932fmQF/lBfpk43e94fXjMhqfwJGCVxzPaBrlOOZK6zyBP
MTpIVIJCHVbyOAGFIOUWsfXjUgq13+2cdQoopOc3aaYnReHG4AGh6vJCeF20
4mwC7Q3dW5jBu59DOpf9hi1N4dqU5q0M4xfgkhjfObKMwpWyhD/vf8XwGmvN
98pRKCLqRQy4IqRJlYoUK1L41eiy5EQGQvAHO3ftVRS+5kTIzfUicK6kF2XR
rglvibmq9RJGSp/N3Vai8Jr0cHpy5kvYKvpBM1KZQhlllcrK2+VgojDOTGZR
yNrBEWaGVoCzsfk/R7Xo/PfEiCX+WwGFuf9un6AtFpIovqqiAhxkWt6GbaRw
sDZDRp1RCUa/uSXlb6LwkekrVX2/Sjjq3FXA1KXzZjez+7h7FcR1Co8J6VFo
dNk+5JlFDTR+7y8J20XPJ7Lc8M7ZGnDNx36d3fR9U1eLcaJr4GZ1XB9Fe7Ss
K9yxqQbUYz7Z6xtSeGvePmqZYS0caagwYxhR2OvvkOS5uQ6y3U1mcv6iMODi
sSfrZeohD/VjM6wpLPQ93n6vuQlyTLTuLzlH4X2Dk1yF8SZ47DtjIOBN1xPy
bI6UfgP36hLqpmh7cy5W+R56AxpWlfldPhRuuROTc+DdGxhmSHIrL9J56qXK
/NzeQvwtQd3nwRR+XCwZqezRDEwJZ+bfsRS2WZ/U8jrfAlPXBsP2vaAwvHuv
W1xoC3hY+Mw7FFH4h6tqZklsC/SIlulfKqYw2bddmXjaAgcbm5mFpfT7iD8o
mzzaAueES9Zov6LwyzuduaoTraBrcPLRgXr6vzL9+Vqe/Q5cJQ9sku+gUGov
x6mc5ILx8IY+nkgXLm09nrfV5hOUfXrZf8mpC1WU3DJDHDohSdNPcaG5C7e1
n6rfEd0FpaYmoxTZjeU/Ava3JvXA4xENQ25FN7pgbW1ZYB90+CfJntjbgwnH
MhSYdl/Adin31qm3Pbjeqmt6/vgA+He5rmCf6sWOiYNNpNEQOOvJe30R7cPx
TvmNsubfIerHQMHJp30Yle3nbGk5AqOJM5z9x/uRJSl2wCdpFIJtxENiJL9g
gUdA9vXUMeDaBctyGr9gq1oMYRY9Drp/fTviEvQVVYNa1h5JmIAThs/SefsH
UM+0Uzc1aRL+Die/i8oNYrtHiAEnYgrOPFrxYej9IObpHV5SdWMaFi8q8GJn
DaGsRU3bg5AZCJMOVXji9Q2hm3Hj1VkeSBJ7/BP0vmOCrMsSlg8f6oys4njL
hjEw5UTYZtcfMKYkkzjXNYy3m+Krr3vMwpCf/56QihH0d48Z/d3rJ3CPGukG
mY3ikP3a5Ycd5mD1FbOipKJRvDY3KNzhNA97dkUyzqwfw6Jve0ckrBdgQxD7
tkvCGL5X29b9hyqDzPNXTuwXGkcX9WNaMfcYJCv4xQFVn3Est7C5sENRgCy8
e3O/dt846lgNZsrcESC/5rZ9EmVPoFuQIVd/hSC5SzfbJqR+Aq86if0QiBEk
FS60/jTRm8TS3+0XBmWEyMFjg9qfH0/ii/lQIY3rQmSZVZhRl9IUNuXvGuRI
CZNqAqarChKnsErJqToiWpi8t69Mu1R6GoMLze90LRIhS2Qy+pcETSNb+bOt
DUeENOm8ra49N42zBVorNAlR0vTG0Lprp2fwotBAQ+wlUTLzbqzdt84ZlFXV
s1djEKSGaN4mNWsenne3mFzkS5ARVc/bzjbwcOUWx1rWBYJ8GJTRcqaJhy/n
PJN3+hPkVXH2f15vebiIw9ntd4UgW3qkOjxaeZiSXXlz4B+C/DMwasOpzzys
/qq9uTaRID96t+U5feOhzDFJ75ASguxIeEgeEefjC43fje+UEWTeJaVmtgQf
bcc1FEtfEmS/yBYn9lI+PrhiWD1ZSZAVnB0pNjJ8/DPNX9axke7nVvEe65V8
dGgfKtjZQZA5hns8rdbxkbjHD7elCLJX86CJ1QY+PnQjjvp1EySoDqhbbeTj
9KwykddPkCenayctdfkYrmBtuXqEIM/Vy5dbbuejVrezpv4YQR4eD0FLAz62
Zp5bsJogyJUhvq8sST4q6t3IiJohyIG08XeWu/lYwUi98JBPkIrC3v2Whnx0
qX14sHaWnk/YxVnLfXwUjypS6Z0jSHF5EaaVMR+fWNbOLCwQ5Lf7EjpW+/n4
fzWi2D0=
         "]]},
       Annotation[#, "Charting`Private`Tag$14454#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Hk0ldsbB/BjfN0SkUPUlQznhkqhwb3xfZsU6sbtZ4iTkJAkVEIpGbty
IpIxdN0SoqIoYzJnKJc6qfAaC2UM5yT83vZae+31+edZz37Wd+/VDqf+OibI
YDDi6f3z5Jm43zI95WEgxvi5KIQ6/rbmFetP2Dame/5000ifK4dlizN2YTUC
tLOZH9Lak51wNShrXoj2WP7OCDeWO2S44goEbQX1t8ULXC/kvs1Zvpi2vk/4
xvpkb6i9i/guSduu1iAj2t4PXoszy5m0A2UnV7JZF1HhJ+CykvZ/eQfro6cC
cGJR7KQKbcf364JnuIH44ePgsJb2lIAY2EXB2HDE5fGmn/2q9/CfJ4eCp3Vn
ELTlzEoeq126At+tcoImtO/53DwVbh8OibSSOQvaDbXG/QdZ1zDllpDiSTv3
nLQpWzgKCo6NOwNon7t6KefaVBT4HeqNkbTF8g+5THKjodN5KPQR7dc1NdVq
9TGwrGM9raSd8F5HxaroBpp+SDe9pa0hKNFZknwTJie3pS3QnmCe/2OUE4cj
XV62TAEKxeqf41dfikc3UbygSXuf2YuDofaJeGnkOWxD+1Sad/0BVgrmJwWd
a2hvfdzLCpRLxdpgc/1e2gzHNTushdMQGBM3zRCkUH8uNjViKg1PjN5KgbZ1
6inrce4/GL6RNVRN20Cd9Xe4aTqU7g5wB2kr538sVKlPh0XSQIaEEIXhGiOm
RdG/cE2WH7OmfWFE5XVR8l2wC+KU5mnb+byfP8jMQEcWVNSFKewSvL7uKycD
dhxvMXPaS2Tnw1dduofyj6f9HtBO0X+3O9g+C82V3Fl3EQoVERHF+1m5iP+g
cnI5QaFsqL1xcWYuTOIl3S1ol+z9rbNe8wF6Q9J9YmnbCNoz0pc/hGNddJas
GAXzslnlVYqP4J6mGaD2CwXjzRtd5NTz4bctdODMYgp7+7ke3q75iJWvP19J
e8+Ni75vsvORF/lOfpk43e9EQ3jM+sd4FLDK4wltg1ynHEndJ8hTjA4SlaCg
w0qeIFAIKbeILe+XUtB+s2PWKaCQnt83Mz0pChuCB4VqKgrxsmjFmQTa63s2
M4N3PUU6l/2KLU1hTUrLFobxM7gkxneNLqOwUpbw5/2vGC/L68z3yFEQEfUi
Bl3LkSZVKlKsSOGz0SXJyYxyBL+zc9deReElJ0Jurq8cnMvpRVm0a8NbY65o
Pcdo6ZO5W0oUrkqPpCdnPscW0XeakcoUZJRVqqpuVcBEYYKZzKLA2s4RZoZW
wtnY/O8jWnT+e2PEEv+tRGHuv9smaYuFJIqvqqyEg0zr67ANFIbqMmTUGVUw
+sUtKX8jhQemL1T1/apwxLm7gKlL581uZtcx92rEdQmPC+lRMLpkH/LEohZN
XwdKwnbS84msMLx9phau+eUDOrvo+6auFuNE1+JGTVw/RXusrDvcsbkW6jEf
7PUNKdyct49aZliHw42VZgwjCn3+Dkmem+qR7W4yk/MnhYALRx+tk2lAXrl+
bIY1hULfYx13WpqRY6J1d8lZCncNTnAVJprx0HfGQMCbrifk2RIp/Qp36hPq
p2h7cy5U+x58BQ2rqvxuHwqbb8fk7H/zCiMMSW7VBTpPfVSZn9trxN8U1H0a
TOH9YslIZY8WMCWcmX/FUmi3PqHlda4VU1eHwvY+oxDes8ctLrQVHhY+8w5F
FH53Vc0siW1Fr2iZ/sViCsm+HcrE41YcaGphFpbS7yP+gGzyWCvOCpf8pv2C
wqc3OnPVx9uga3Diwf4G+r8y/fFSnv0GrpL7N8p3UpDaw3GqILkwHlnfzxPp
xtK2Y3lbbD6g7MPzgYtO3VBRcssMcehCkqaf4kJLN7Z2nGzYHt2NUlOTMYrs
QcX3gH1tSb14OKphyK3sgUt5XV1ZYD86/ZNkj+/pRcLRDAWm3SfYLuXePPm6
F+usuqfnjw3Cv9t1BftkHzonDzSTRsNw1pP3+iTaj4ku+Q2y5l8R9X2w4MTj
fkRl+zlbWo5iLHGGs+/YAFiSYvt9ksYQbCMeEiP5CQUeAdnXUsfBtQuW5TR9
QptaDGEWPQHdP78cdgn6DNWg1jWHEyZx3PBJOm/fIPRMu3RTk77hr3Dyq6jc
EDo8Qgw4EVM4/WDFu+G3Q8jTO7Sk+vo0Fi8q8GJnDUPWorb9XsgMwqRDFR55
fQF6GNdfnOFBktjtn6D3FQmyLktYPnzUG1nF8ZaNIDDleNgm1+8YV5JJnOse
wa3m+JprHrMY9vPfHVI5Cn/3mLFfvX6Ae8RIN8hsDMP2a5YfcpjD6stmRUlF
Y7g6NyTc6TSP3TsjGafXjaPoy55RCesFrA9i33JJGMdbta09v6syyDx/5cQB
oQm4qB/VirnDIFnBz/ar+kygwsLm/HZFAbLwnxv7tPsnoGM1lClzW4D8nNv+
QZQ9CbcgQ67+CkFyp262TUjDJK44iX0XiBEkFc63/TDR+4bSX+0XhmSEyKGj
Q9ofH37Ds/lQIY1rQmSZVZhRt9IUmvN3DnGkhEk1AdNVBYlTqFZyqomIFibv
7C3TLpWeRnCh+e3uRSJkiUzGwJKgabCVP9racERIk65b6tpz05gt0FqhSYiS
pteH1149NYMLQoONsRdFycx/Yu2+dM1AVlXPXo1BkBqieRvVrHk4527xbZEv
QUZUP20/08jDys2OdazzBHk/KKP1dDMPz+c8k3f4E+QVcfZ/Xq95WMTh7PK7
TJCtvVKdHm08pGRX3Rj8myD/CIxaf/IjDzWftTfVJRLke+/2PKcvPMgclfQO
KSHIzoT75GFxPp5p/Gp8u4wg8y4qtbAl+LCd0FAsfU6QAyKbndhL+bh32bDm
WxVBVnK2p9jI8PFHmr+sYxPdz83i3dYr+XDoGC7Y0UmQOYa7Pa3W8kHc4Yfb
UgTZp3nAxGo9H/fdiCN+PQQJ1UF1qw18TM8qE3kDBHliuu6bpS4f4QrWlqtH
CfJsg3yF5TY+tHqcNfXHCfLQREi5pQEfbZlnF6wmCXJliO8LS5IPRb3rGVEz
BDmYNvHGchcflYzU8/f5BKko7D1gaciHS939A3Wz9HzCLsxa7uVDPKpIpW+O
IMXlRZhWxnw8sqybWVggyC93JXSs9vHxfzSZjD0=
         "]]},
       Annotation[#, "Charting`Private`Tag$14454#2"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{TagBox[
        FrameBox[
         StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E(N=1)\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-1.5\"", -1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          TagBox[
           InterpretationBox["\"-1.0\"", -1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.5\"", -0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 3}, {-1.5811388010428642`, 1.5811388010428642`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1Hk0ldsbB/BjfN0SkUPUlQynUCk0uDeet0mhbtx+hjgJCUlCJZSSsSsn
IhlDuSVERVGmJ5kzlEudVHiNhTIP5yT83vZae+31+edZz37Wd+/VDqf/Pi7I
YDDi6f3r5Jm43zY97WEgxvi1KAx1XLP2DesvsG1I9/zlxuFeVw7LFs7ahVUL
0M5mfkprS3aCa0FZ80K0R/N3Rbix3EGGK65A0FZQf1+8wPWC3Pc5yxfT1vcJ
31SX7A1qHyJ+SNK2qzHIiLb3A6/FmcikHSg7sZLNugTlfgIuK2n/l3eoLnoq
AE4uip1Qoe34cX3wDDcQfvo4OKyjPSUgBuyiYNh41OXp5l/9qnfzXyaHAk/r
3gDQljMreap2+Sr4bpMTNKH9wOfW6XD7cJBIK5mzoF1fY9x3iHUdptwSUjxp
556XNmULR4GCY8OuANrnr13OuT4VBfx29YZI2mL5h10muNGg03E49Antt9XV
VWp1MWBZy3peQTvho46KVdFNaPwp3fietoagREdJ8i0wObU9bYH2OPPCnyOc
ODja6WXLFKCwWP1r/OrL8dBFFC9o0t5v9upQqH0ivDbyHLKhfTrNu+4gKwXm
JwSdq2lve9rDCpRLhXXB5vo9tBmOa3daC6dBYEzcNEOQwrrzsakRU2nwzOi9
FNC2Tj1tPca9C0M3swaraBuos/4JN00Hpfv93AHayvmfC1Xq0sEiqT9DQojC
oWojpkXRv+CaLD9qTfvisMrbouT7wC6IU5qnbefzcf4QMwPas0BFXZjC3YI3
1n/nZIAdx1vMnPYS2fnwVZcfAH4+4/eIdor+hz3B9lnQVMGddRehsDwiovgA
KxfiP6mcWk5QWDbY1rA4MxdM4iXdLWiX7FvTUaf5CHpC0n1iadsI2jPSlz8G
x9roLFkxCs3LZpVXKT4B9zTNALXfKDTesslFTj0f/LaH9p9dTOG+Pq6Ht2s+
xMrXXaigvffmJd932fmQF/lBfpk43e94fXjMhqfwJGCVxzPaBrlOOZK6zyBP
MTpIVIJCHVbyOAGFIOUWsfXjUgq13+2cdQoopOc3aaYnReHG4AGh6vJCeF20
4mwC7Q3dW5jBu59DOpf9hi1N4dqU5q0M4xfgkhjfObKMwpWyhD/vf8XwGmvN
98pRKCLqRQy4IqRJlYoUK1L41eiy5EQGQvAHO3ftVRS+5kTIzfUicK6kF2XR
rglvibmq9RJGSp/N3Vai8Jr0cHpy5kvYKvpBM1KZQhlllcrK2+VgojDOTGZR
yNrBEWaGVoCzsfk/R7Xo/PfEiCX+WwGFuf9un6AtFpIovqqiAhxkWt6GbaRw
sDZDRp1RCUa/uSXlb6LwkekrVX2/Sjjq3FXA1KXzZjez+7h7FcR1Co8J6VFo
dNk+5JlFDTR+7y8J20XPJ7Lc8M7ZGnDNx36d3fR9U1eLcaJr4GZ1XB9Fe7Ss
K9yxqQbUYz7Z6xtSeGvePmqZYS0caagwYxhR2OvvkOS5uQ6y3U1mcv6iMODi
sSfrZeohD/VjM6wpLPQ93n6vuQlyTLTuLzlH4X2Dk1yF8SZ47DtjIOBN1xPy
bI6UfgP36hLqpmh7cy5W+R56AxpWlfldPhRuuROTc+DdGxhmSHIrL9J56qXK
/NzeQvwtQd3nwRR+XCwZqezRDEwJZ+bfsRS2WZ/U8jrfAlPXBsP2vaAwvHuv
W1xoC3hY+Mw7FFH4h6tqZklsC/SIlulfKqYw2bddmXjaAgcbm5mFpfT7iD8o
mzzaAueES9Zov6LwyzuduaoTraBrcPLRgXr6vzL9+Vqe/Q5cJQ9sku+gUGov
x6mc5ILx8IY+nkgXLm09nrfV5hOUfXrZf8mpC1WU3DJDHDohSdNPcaG5C7e1
n6rfEd0FpaYmoxTZjeU/Ava3JvXA4xENQ25FN7pgbW1ZYB90+CfJntjbgwnH
MhSYdl/Adin31qm3Pbjeqmt6/vgA+He5rmCf6sWOiYNNpNEQOOvJe30R7cPx
TvmNsubfIerHQMHJp30Yle3nbGk5AqOJM5z9x/uRJSl2wCdpFIJtxENiJL9g
gUdA9vXUMeDaBctyGr9gq1oMYRY9Drp/fTviEvQVVYNa1h5JmIAThs/SefsH
UM+0Uzc1aRL+Die/i8oNYrtHiAEnYgrOPFrxYej9IObpHV5SdWMaFi8q8GJn
DaGsRU3bg5AZCJMOVXji9Q2hm3Hj1VkeSBJ7/BP0vmOCrMsSlg8f6oys4njL
hjEw5UTYZtcfMKYkkzjXNYy3m+Krr3vMwpCf/56QihH0d48Z/d3rJ3CPGukG
mY3ikP3a5Ycd5mD1FbOipKJRvDY3KNzhNA97dkUyzqwfw6Jve0ckrBdgQxD7
tkvCGL5X29b9hyqDzPNXTuwXGkcX9WNaMfcYJCv4xQFVn3Est7C5sENRgCy8
e3O/dt846lgNZsrcESC/5rZ9EmVPoFuQIVd/hSC5SzfbJqR+Aq86if0QiBEk
FS60/jTRm8TS3+0XBmWEyMFjg9qfH0/ii/lQIY3rQmSZVZhRl9IUNuXvGuRI
CZNqAqarChKnsErJqToiWpi8t69Mu1R6GoMLze90LRIhS2Qy+pcETSNb+bOt
DUeENOm8ra49N42zBVorNAlR0vTG0Lprp2fwotBAQ+wlUTLzbqzdt84ZlFXV
s1djEKSGaN4mNWsenne3mFzkS5ARVc/bzjbwcOUWx1rWBYJ8GJTRcqaJhy/n
PJN3+hPkVXH2f15vebiIw9ntd4UgW3qkOjxaeZiSXXlz4B+C/DMwasOpzzys
/qq9uTaRID96t+U5feOhzDFJ75ASguxIeEgeEefjC43fje+UEWTeJaVmtgQf
bcc1FEtfEmS/yBYn9lI+PrhiWD1ZSZAVnB0pNjJ8/DPNX9axke7nVvEe65V8
dGgfKtjZQZA5hns8rdbxkbjHD7elCLJX86CJ1QY+PnQjjvp1EySoDqhbbeTj
9KwykddPkCenayctdfkYrmBtuXqEIM/Vy5dbbuejVrezpv4YQR4eD0FLAz62
Zp5bsJogyJUhvq8sST4q6t3IiJohyIG08XeWu/lYwUi98JBPkIrC3v2Whnx0
qX14sHaWnk/YxVnLfXwUjypS6Z0jSHF5EaaVMR+fWNbOLCwQ5Lf7EjpW+/n4
fzWi2D0=
           "]]}, "Charting`Private`Tag$14454#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1Hk0ldsbB/BjfN0SkUPUlQznhkqhwb3xfZsU6sbtZ4iTkJAkVEIpGbty
IpIxdN0SoqIoYzJnKJc6qfAaC2UM5yT83vZae+31+edZz37Wd+/VDqf+OibI
YDDi6f3z5Jm43zI95WEgxvi5KIQ6/rbmFetP2Dame/5000ifK4dlizN2YTUC
tLOZH9Lak51wNShrXoj2WP7OCDeWO2S44goEbQX1t8ULXC/kvs1Zvpi2vk/4
xvpkb6i9i/guSduu1iAj2t4PXoszy5m0A2UnV7JZF1HhJ+CykvZ/eQfro6cC
cGJR7KQKbcf364JnuIH44ePgsJb2lIAY2EXB2HDE5fGmn/2q9/CfJ4eCp3Vn
ELTlzEoeq126At+tcoImtO/53DwVbh8OibSSOQvaDbXG/QdZ1zDllpDiSTv3
nLQpWzgKCo6NOwNon7t6KefaVBT4HeqNkbTF8g+5THKjodN5KPQR7dc1NdVq
9TGwrGM9raSd8F5HxaroBpp+SDe9pa0hKNFZknwTJie3pS3QnmCe/2OUE4cj
XV62TAEKxeqf41dfikc3UbygSXuf2YuDofaJeGnkOWxD+1Sad/0BVgrmJwWd
a2hvfdzLCpRLxdpgc/1e2gzHNTushdMQGBM3zRCkUH8uNjViKg1PjN5KgbZ1
6inrce4/GL6RNVRN20Cd9Xe4aTqU7g5wB2kr538sVKlPh0XSQIaEEIXhGiOm
RdG/cE2WH7OmfWFE5XVR8l2wC+KU5mnb+byfP8jMQEcWVNSFKewSvL7uKycD
dhxvMXPaS2Tnw1dduofyj6f9HtBO0X+3O9g+C82V3Fl3EQoVERHF+1m5iP+g
cnI5QaFsqL1xcWYuTOIl3S1ol+z9rbNe8wF6Q9J9YmnbCNoz0pc/hGNddJas
GAXzslnlVYqP4J6mGaD2CwXjzRtd5NTz4bctdODMYgp7+7ke3q75iJWvP19J
e8+Ni75vsvORF/lOfpk43e9EQ3jM+sd4FLDK4wltg1ynHEndJ8hTjA4SlaCg
w0qeIFAIKbeILe+XUtB+s2PWKaCQnt83Mz0pChuCB4VqKgrxsmjFmQTa63s2
M4N3PUU6l/2KLU1hTUrLFobxM7gkxneNLqOwUpbw5/2vGC/L68z3yFEQEfUi
Bl3LkSZVKlKsSOGz0SXJyYxyBL+zc9deReElJ0Jurq8cnMvpRVm0a8NbY65o
Pcdo6ZO5W0oUrkqPpCdnPscW0XeakcoUZJRVqqpuVcBEYYKZzKLA2s4RZoZW
wtnY/O8jWnT+e2PEEv+tRGHuv9smaYuFJIqvqqyEg0zr67ANFIbqMmTUGVUw
+sUtKX8jhQemL1T1/apwxLm7gKlL581uZtcx92rEdQmPC+lRMLpkH/LEohZN
XwdKwnbS84msMLx9phau+eUDOrvo+6auFuNE1+JGTVw/RXusrDvcsbkW6jEf
7PUNKdyct49aZliHw42VZgwjCn3+Dkmem+qR7W4yk/MnhYALRx+tk2lAXrl+
bIY1hULfYx13WpqRY6J1d8lZCncNTnAVJprx0HfGQMCbrifk2RIp/Qp36hPq
p2h7cy5U+x58BQ2rqvxuHwqbb8fk7H/zCiMMSW7VBTpPfVSZn9trxN8U1H0a
TOH9YslIZY8WMCWcmX/FUmi3PqHlda4VU1eHwvY+oxDes8ctLrQVHhY+8w5F
FH53Vc0siW1Fr2iZ/sViCsm+HcrE41YcaGphFpbS7yP+gGzyWCvOCpf8pv2C
wqc3OnPVx9uga3Diwf4G+r8y/fFSnv0GrpL7N8p3UpDaw3GqILkwHlnfzxPp
xtK2Y3lbbD6g7MPzgYtO3VBRcssMcehCkqaf4kJLN7Z2nGzYHt2NUlOTMYrs
QcX3gH1tSb14OKphyK3sgUt5XV1ZYD86/ZNkj+/pRcLRDAWm3SfYLuXePPm6
F+usuqfnjw3Cv9t1BftkHzonDzSTRsNw1pP3+iTaj4ku+Q2y5l8R9X2w4MTj
fkRl+zlbWo5iLHGGs+/YAFiSYvt9ksYQbCMeEiP5CQUeAdnXUsfBtQuW5TR9
QptaDGEWPQHdP78cdgn6DNWg1jWHEyZx3PBJOm/fIPRMu3RTk77hr3Dyq6jc
EDo8Qgw4EVM4/WDFu+G3Q8jTO7Sk+vo0Fi8q8GJnDUPWorb9XsgMwqRDFR55
fQF6GNdfnOFBktjtn6D3FQmyLktYPnzUG1nF8ZaNIDDleNgm1+8YV5JJnOse
wa3m+JprHrMY9vPfHVI5Cn/3mLFfvX6Ae8RIN8hsDMP2a5YfcpjD6stmRUlF
Y7g6NyTc6TSP3TsjGafXjaPoy55RCesFrA9i33JJGMdbta09v6syyDx/5cQB
oQm4qB/VirnDIFnBz/ar+kygwsLm/HZFAbLwnxv7tPsnoGM1lClzW4D8nNv+
QZQ9CbcgQ67+CkFyp262TUjDJK44iX0XiBEkFc63/TDR+4bSX+0XhmSEyKGj
Q9ofH37Ds/lQIY1rQmSZVZhRt9IUmvN3DnGkhEk1AdNVBYlTqFZyqomIFibv
7C3TLpWeRnCh+e3uRSJkiUzGwJKgabCVP9racERIk65b6tpz05gt0FqhSYiS
pteH1149NYMLQoONsRdFycx/Yu2+dM1AVlXPXo1BkBqieRvVrHk4527xbZEv
QUZUP20/08jDys2OdazzBHk/KKP1dDMPz+c8k3f4E+QVcfZ/Xq95WMTh7PK7
TJCtvVKdHm08pGRX3Rj8myD/CIxaf/IjDzWftTfVJRLke+/2PKcvPMgclfQO
KSHIzoT75GFxPp5p/Gp8u4wg8y4qtbAl+LCd0FAsfU6QAyKbndhL+bh32bDm
WxVBVnK2p9jI8PFHmr+sYxPdz83i3dYr+XDoGC7Y0UmQOYa7Pa3W8kHc4Yfb
UgTZp3nAxGo9H/fdiCN+PQQJ1UF1qw18TM8qE3kDBHliuu6bpS4f4QrWlqtH
CfJsg3yF5TY+tHqcNfXHCfLQREi5pQEfbZlnF6wmCXJliO8LS5IPRb3rGVEz
BDmYNvHGchcflYzU8/f5BKko7D1gaciHS939A3Wz9HzCLsxa7uVDPKpIpW+O
IMXlRZhWxnw8sqybWVggyC93JXSs9vHxfzSZjD0=
           "]]}, 
         "Charting`Private`Tag$14454#2"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E(N=1)", None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 3}, {-1.5811388010428642`, 1.5811388010428642`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {
        HoldForm[
         Placeholder[
          Style[1, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[2, Smaller]]]}, LegendMarkers -> None, LabelStyle -> {}, 
       LegendLayout -> "Column"]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770994032899406*^9, 3.770994035449057*^9}, 
   3.77099442837131*^9, 3.770997382868065*^9, 3.770999589954508*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"8dd14e5f-c6f7-4b59-87b0-f2b4f70904f9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Two-electron system", "Subsubsection",
 CellChangeTimes->{{3.7709928695004*^9, 
  3.770992879267935*^9}},ExpressionUUID->"43e9e156-6daf-4b0d-a592-\
349c739bfbc7"],

Cell["Configurations: \[LeftBracketingBar]1\[UpArrow]1\[DownArrow]\
\[RightAngleBracket], \[LeftBracketingBar]1\[UpArrow]2\[DownArrow]\
\[RightAngleBracket],\[LeftBracketingBar]1\[DownArrow]2\[UpArrow]\
\[RightAngleBracket],\[LeftBracketingBar]2\[UpArrow]2\[DownArrow]\
\[RightAngleBracket]", "Text",
 CellChangeTimes->{{3.7709928960965157`*^9, 
  3.770992996780879*^9}},ExpressionUUID->"79ab1d7b-9b43-4b3d-bbaf-\
94749aec9d31"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Epsilon]", "2"], "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", "\[CapitalDelta]v"}], "+", "U"}], 
        RowBox[{"-", "t"}], "t", "0"},
       {
        RowBox[{"-", "t"}], "0", "0", 
        RowBox[{"-", "t"}]},
       {"t", "0", "0", "t"},
       {"0", 
        RowBox[{"-", "t"}], "t", 
        RowBox[{"\[CapitalDelta]v", "+", "U"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "]"}], "//",
    "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.7709931637513514`*^9, 3.770993176590556*^9}, {
   3.7709932777367*^9, 3.77099327942887*^9}, {3.770993331447741*^9, 
   3.7709933322409363`*^9}, {3.770993413457896*^9, 3.7709934163221416`*^9}, 
   3.7709936625721397`*^9, 3.770993722454412*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"b47f43b9-e08f-4146-aca4-41feebc64ae5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.770993302172084*^9, 3.770993332749916*^9, 3.7709934168909473`*^9, {
   3.77099365044234*^9, 3.7709936630184927`*^9}, 3.770993723283189*^9, 
   3.7709937649233932`*^9, 3.770994014549814*^9, 3.7710006872846107`*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"cd0e13c7-64b5-4632-9171-d6afda7c9ba3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"U", "=", "1"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       SubscriptBox["\[Epsilon]", "2"], "[", 
       RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E(N=2)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.770994016421832*^9, 3.7709941054050503`*^9, {3.770995492452344*^9, 
   3.770995499495879*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"e21b7a77-5baf-4e2c-b6c0-9dddfab8ce49"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
         "]]},
       Annotation[#, "Charting`Private`Tag$15499#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0ns4VXkXB/Cz3ba3qVSiUpHbicroippYu9KFyInJLSPEGRmhnsY1EYdp
DkdCTXRySaFJVEwayW8LxzWX3Eoo9pZb5U5ux7vnj/Ws5/M864+11vNVdfG2
dJNgsVjpTP3Xvx/3usvx9jE6NaCrPyyiUKTrZq169gmIrWvh/ec332gPAdsR
Ogxenx9h/EjhQ+p7IRc69CZHRxmP5B2K9mR7wewnr5UTjJW0W18utl0ERzvd
2inGhv78HVVCX5it0VObZexUYZQZ5xwIgV4R8mLGYYrjGxzYV8AydH2qRAWF
3j6zqoqbDIUXpjMVOGPXdh3edFsYPNikErWM8SQmCw6FPGhyFAzIM47U7pkh
hZFA/mZMKTFec7IoXzPkGmQXGPurMc7yv+XNd+ZDYlFM1hbGNRWmvVbsGDBe
IvFhP+Mcv1UcB6lYeOu3rfMIY7+okMcxk7Ew23cv8CRj2Tw79/G2OJCN8P3D
nXGDSFSuWRUPIo2WqUuME9t3qdsWJkBDdhgWxniLxPKuIuEtIEVv+u8yHlMI
+mlY8Bfw1p0vz2b8Urv/tmrIbTBrdTQsYmx28rVVpHMSfA40XOxg7J3qW2XB
TobipdI1mpUUMsin2GFrUmAKPxW2lzHLVeugvVQqXDFmtZgzrvK7mRI9mQp6
GefN/Bnbp3jbj7bdg+gfq8ObGRtps//kc9LBepWS4lfGankdBepV6TAV3HBI
popCQyITBevC+9B6zO/CPsaXv6k3FAozwN7yg8LfjJ3828VWCpkgbhGEVzA2
lrih81WQCR638qN7GS9TFPNVQrLgbyfuBfVqCiUbvjvMc/4b7kMcL4NxSXT0
S3N2Dmip0k1VNRQqHnxf+8PDHNC07zs+wbjo2Oauqq25kGVSGahSS6HTEs6s
9LVPwHzF9gU/xqeK59RUlJ/Cbt54wo43FDLV2+G+RjsPOmRt5SvqKHSst83H
1yMP3h1onJ1nfDThSkDLozzYZuacuKue2Xeshh//Yz6YfW2Zu8fYKIf7WG73
P5AxzrPmN1BoF1s4hkMBuKq85ga9pdDOloNz3FDGrzJKihhv5w1IikoKgHu9
v0nM+McePQWe8Qt4ofeXckQThbSSG/VZpv8C5+hW86RmCm1QxIO///wSzhnl
yve1Ukha5iI+4IFgVqPTc0kHhfpNQuTGMxFoeDd1OjCuFkSvWaAR0GeNh3MZ
V/Cb4q/pknDZ7dG4TSeFolZ9Sxc+JEGUqB6e20Wh1WrqZWV3S2BfQFTJ5W4K
sQ8IpBQiS8H9QC59vY/JPxUvm3S/FPwDh7ynGMtGJC1VKS2FpcW/CH/pp9Bg
ZeZqbVYZDNqJ3+kMUCiX81rDMLAMZJ71dbcMMnlzmjZ28yoH/gsDA+NvFDIJ
cY74x7oCRuKfb06aZP5zveRI2qUKuNgqHbxqirk3RVVWEFcBrLpNXlGMR4q7
+a51FWBW0aoeMk2hW2LnWPkjlSC/U67r/AyF6GCXOxf2VEEDf3uC+wKFQi+f
faqzugYsOwb2N0nTyCO69OK6nTWguMlK6YwMjX4Wqu+W5tRA0tOQhCHGm4uo
5x1RNeDTe+iMjCyN6ubOFkVJ1gLP18Xi0BIabQhyrRgYqwUywSWtfTmNCgLc
Oh801sFGRx+TkLU0yjD6rU1prA6O8wQO29bR6Jbkhcbrq+rBMtZTu52xr+By
eYBVPSj2pozor6eRXlr8Y/OWenB5sUVvfiONTtOfigM9G2BfjldWpjqN2n+Q
u67m0wga+1pD+bo0em//m+5FvybglKt2hpnQiN9z1POvyCbgdhxcxTGl0T4P
jYdFN5vgec7SLxuP00gY0KmG5zeBYnKV4KUZjZxuWygKR5qgY3xXlNiCRn0t
uxbKzzXD2Mf9/unWNJrkzFevc2iBnzN0fM650mjlUQG3hGgDInvsVv9VGhk/
LIKtJ9tAtjAbnwijkf8PX9bedG6Da6tCDVk8Gn2qN61xD2uDKbOC70qRNHpi
K7t9RVkb0L+a5trxacTxCJ9xPPoOpBZ3bpuPo1GsICB63vw9fOcafWq5T6MV
zW7P9E9/AK81aRqfqmmkvsnzYYTLR8jfeNWuTLkXGXSerzkQ1w37s9r09/r3
opLZULPmOxS8U9XofdXbi9xRZWVxWC8k35+clbD9jBLPZiopOPXB63PSrdeb
PiMd2+4psdsA5Ix291dz+1DXuEUdYTIElin97mXzfWjs47rtiqe+Qk5ybMGx
x/0o9lHgrzY2w6CX7jrb7j6A2HKy5v53RkDCZvNgmsYgeu4T+igmZRRsjnn+
z048iJo14/GTcWOQ+aHqWkHrENIIb9L6JXEcah1DtrrVf0F7OR93p9yZgCfN
y08UN35FnT4RRoLoSbhjbKq/s/4berbXbln5jSm4tx6vNBgeRorWFe+zIqZB
+Zno5jreCIIe1o3Xl76DfPBr2kR+FCUqui9j+8/AT+LTvqH5oygs+dwfezxm
oa5RZsdezhi6W3dbFOMzBxzFGJ0A8RgK9oof2XhxHpJTE6Rrc8bRkLPWWjuX
BVDmJFo/tZlAUQuDUl1cMRiFCyzPyU+iwi9Hh5fbL4LToe+Hs0WTqFXToGef
BouI4clyxgOmkLv2Wd34ByxC09AiYg8xjUqsTwcdUMYI1fv0Et/5abTLdvDh
6jSMUHcICu+q+Y48w4+0Ga6XIDILdUt8Y2fQNa7sLBYvQeTqJa0stZpFrzY6
Lw6uliRoTazt8JY59K84UnJLjCQxqW6t2zgxh+ryDg0KVkoRkVFzETlv51H5
Jq4oOk6K2BAU4P0qZwHxCk6ldS+RJrZ/vavSHSxGDmodjqcF0gTHcG3cGadF
NPdcd/1WXIZoT5c5UqzEIi9LDtTevCJDCLtvhHwLZ5GKGnudNVk4YblpcbRh
ikX6eVlPLAnACaHO+rxcF4zcoOdayQ7CiZ1pS0vjXDGSXLggPBjMzKdJfvyd
i5FLBALjwKs4YRs5sW+/B0YmPypLGPgTJ/w7r4ZVXcBIUf/OPZVJOPHsxAnz
z6EYufqsnG9EEU4Er5Mp1ErByH+3bDRNK8aJws0KxsvSMNJxbIvyKxInPlGv
3o/ew8isq0dEE2U40b67fvPLDIz8KTVY0fUNTlxTuXniRA5GunQOPT/YhROX
uhpKfV9hJP5ghu/4CSe4FqPSDggjsz3xM4E9OJGv5Wd1oAQjp+bU8GefcWJO
K2PF0nKM5CvZ26gO44TrNn35e7UYqdvz61bDUZzovq/15I86jGx++Pui7ThO
iKrdbM83YKTy3huZsdM4cfvU82qDZowsZaUEZc8wti1NUG7FSPfKbIvKOZxg
H5bzkHqHkUtjC9XpBZwY+XLLdPA9Rj61qZxeXGTuVbPRa/iAkf8H1XpeJg==

         "]]},
       Annotation[#, "Charting`Private`Tag$15499#2"]& ], 
      TagBox[
       {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV03k41dkfB/BL6mvalCzVlEJu1JRSCaX3V4uixdImZFxbUmFMScoytp9w
VTRKrktlSVRjGYZ7s4dbsjeKaChl6x5rwuD3nfM8n+c8r+fzz+ec8z7Kdm7m
jpIsFiuCqf/27wdd403d3He1z/y3CEIc1qrXso/g8YS77jTj1+JPLly2Dczp
rq7vjNPlWxPf8Zxwptt+9gDjgew9EefZrrhT/v3OR8bLNf4WzDR7wNU2J76R
sb5X2GYRzxPfWBkKxYxtK3elRnG8oZM0LpnGOEBheIU12xcZLKFdJOOGrKOi
qFF/XA1S0HZn7NCyIWisOQDCY5t9jjAelZCGdUEQgg7p6mj8N69G53gxLwQf
Jn8+w2KsaCbMUfMLRUFK69ymaYJHXjFuYZww8PZ8UUli/KrSuOsoOxIxDzIz
dRk/vSxrai11EwdLp9Rnpgguh/s9iRy9CdmIEfkSxtLZp5yHm6OQs3OTuR7j
uoqKF2qiaPCb1z4Y/JcgtmWLqkXBbST4a55NZrxOcmG7kBeDJg/KRpLxkPzV
HYR7B93BzyLSJwkEGt13lf3uQlJbcasZ40NmpUdDOPfQkkKRWxMEbomeIhM2
HxEpPNWe7wQ6OR/ZAYoJeKxtxvZkzHJQ320plYheb1bKzBiB6PLvCRGjiWgv
KlWSZmyZ4GY52PwAFvQERUYIdmmwr4eZPoRsU6iULWOV7Pd5qqKHiDC+EPh6
mKCvwkj+REESBs/qzuMPEVwTq9YV8FKwqOe9hfwA815eLdNH5VMRpj3h40II
9kre2vCVmwpqWcd6oZhggcJ02Cq/R4h8G6N2/CsBX//tviDOY9zmWD8+3UtQ
EhEhOMx+Cr2U3CbRR4LC3nfV89Ke4gBHvaGpk0B4YG27aP0zLBU01rZ2EFhJ
clgPl/4BVmBafdsHguOFkyqrlDKRy9dbltVKYKy92VlRIxsx/cZL4xsIDnQ1
u3u6ZEPv2csG53qC/bd9r7xJz8bOsTWpm+qYeYdehUVvzMGEsl9SzmvmPp46
PZHZ+idudLusiawi2MLmDVHIw8iBFW2hzwm03uyedPLPg33JqSWKQoJNQT2z
Kkry4Gje/Nv9AoKNndryQXv/glZsqUx6HoE6v347yzgfW+NCNW5lEqxQoHy+
HxMg7pFYKz2JYPYcD6rHpQjV9gFG7FCCbiM/meHUIvg/O6RkG0LwkhuhOPWp
CDG1ez7HBBFUhjVGh2oWQ91AeHLSnyBcVvyQl1aMYlXr8YQrBHIqquXl8SU4
TsIlLF0I2AZcKfmQMhSHqLxOMGLy/zFa+l5SGWo1pn+4tp/Jb/C9+avKymB5
z9Dn+D6C3qpUOQ1WOTaOtcmwDAiemZau0fcuB+8ST2WrDpM327G9jq4v4J3V
0r+MTWDkxwn+80QltNr/yuibEUPrRonh/YuV8Chf5OE3JcaKBGVpblQl3FbJ
1SyaFGOgsCPMoaYS4b1885++iREzzbm5xLAKAYdOigz7xfjkYxf3yzYRyNbF
xvPeiuF/zT5zg9wrPN3V693xRIy8K45tyfU1WGBnUaBzVIx3luc0PS43gmWS
Z1px6SsW7+c6ldDNEI7Nb7C40Y9FTY5Z261a4Z2kZhYa2AfV1efTgu0+YMle
yym+ey902i68MojqwIBvqcTI2R6UTPgfaor7iEQ11RC2cTeci6qqCgO6EEUS
Tb30vyDWPnW5vO0XmM9/IV6v8xkbLDq+TTv2IOWCzZuu1V1oHzapoY36YBMe
OZCv/AlDH5ZtUjj+FeaOemYWch9xM937zMmTzD9//qGQlusEW0b6sFfcAEJ1
FpIHGzqQ6+6fHpkwiNwb+YHL9P9Bk1o0ZRY1BFnewfdUdTvWBDaqn44dRmcH
12apTBt0TT9sTYgbQWh968557q1ocw/exY0YxZ3bE+EcVguydE8teHHrG8Rj
h6+LQ95C4UTlu0fBYwgJVXFcrtcMdLJulV78DldZq6bC2X8jVsF5AdtrHPwt
j5fkvGxCAP/s/7a5TEDcs+fUidxGxNfcrYh0n8T87rZ52+Ib4OMaPbDS41/U
+B5pGLhXjz6O+tJTdlM4FDh7waL8OoRP9Uq1O01DeaA2jZ1ai4L+/WSh5Qzm
BNVJLFGowd9qOp16a1h08eHMX1nJ1XDWsNeMTmbR6ibsljcbXqHkhNVVAyUJ
mu7ft+SHzyJssehNk7svQbOtxqSNY6twPtCwWf9HSfpxwai3rWclQp2kJySi
JelguczCiy4VeL6SM9MrN4sOfina+P7UC+RPh8xaFzmL7q4ejNI8V46a7D29
3MVSNNnz6kcvrzK8WO1UERElRc9t/+ucSmwpgvKO3++YO5sO2z6va8ubElir
vLex4s6mU4pyq00XlGAyV/PH9dQc+mKMS1LG6WJcm9VT/bvvHPqb1tSOlZ5F
UFijy1FjUfTZI1la2hqFuOx6YmTuFYqeY3B/NyX1HCu0HarYVym68J+U+IUz
QhRP/cLb7UPR5z3NNitOCDGXy93r/RvTd1KU+GlACH56+e2e6xSdmDex3eG9
EBXdWtuq7lG0iuinPxb+KYScvYxnsJCiGyaMdY3OCJG/bqXx/UKKtojTH/K0
E8JmaJ3S82KKXt2i/Db5tBCPfjOsGCmn6LoVZhrUMSF2JPooOLym6GPjR5qb
aSHs2vpyd7dTdJCvqWzmciGo5PEwm38oukIpz21QXoiM89TP3p0ULct2HNFa
LMS3SRUq6zNFL1Xc7JFPCRG23PKkMqHoRaOl25pGBNDsPLNef5Ci7Zz5ZSsH
BGhKuzRjMUzRVvljl5z7BFDSvZV6c4yitX4tMZToFKCMlXA1Y5yiXb74O5i0
CeBclWFSNUnR/SbWyfy3Asy/WaD6aYo5v++kNGkUIPNk1djMDEXzOHNu0LUC
/B/lO1gQ
         "]]},
       Annotation[#, "Charting`Private`Tag$15499#3"]& ], 
      TagBox[
       {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk8lIkbAPAxg3eSY2odmy2baxxFd0s1nodE2ZRWUZQQUmuxtnWMaxJW
k5GrdgtDP8m1aUul5EiukY0uq2yRM8eKxjmvNfN794/n83y+/zyf59L1DvrO
l06j0dKp+C/PfxuY4xQUbFU1/WtWWL8EEn2MjNvZ+2Dq1J2CcMrPPg2cFrA9
wDbqU30k5VKNv/PeZvvBtsLdszzKk+U7kwPYgbBe9dGOJMraJn89knWGQEQU
59c0ypxw/oaW7FCI821UyKHs2WxVmO7FhdWDu5JKKMdpTq08yo6BV7W3dCop
v7zj3JI+wwOdE59FrZR9uszi5zrjYHpwNrGH8owcE45WxoPxkpLDM//1a9In
eZydCJPfiDkqAxLQOlB11zA2CbhJd7caUS4KvxzE9+JDTNUrm52UW5sdBp3Z
KdC5qSjzLOWysOVOR+VT4YmbVlc+5bALsTdTZlJh2sx1o4gys/yI/1RnOpgY
5GtrDUrgeVNTo2FLBmTecCmxpnyla5P+4cpM0LpssjeQsildtbsq+zLMmpxo
fEZZrBG5fULwK7S1eGTThiTwyGT4N93Y38DweX78Fsp7DzxxTvS6Coqj2kkF
lIPyQlv2s4Wgvemus/CjBCzu9rPjtHLhxrBcWS9lmo+xjZt8HjwdiNUyGpZA
S9il3OSZPFj7U4fmA8puuUFunzv/ByvmPlaLRyRgZcI+z3fKB71cUZLdqAT0
yt9V6Lfkw/0rGzyzKY817dFwqbwOZyZ0Nu0bk0DUJ/3nldk3oGBzrMfTf6h7
hXdJnTUKobK9Jc58XAK29DSzcUEh3K459UcmZRVNKf/r2CJQbfhoePKTBISc
N7vivUqAOaH9g8GkBOqSkx85sssgrPqyTDYlgZrRt38uLS6DoKieqovTEqja
bdTdsuYW2NlzO3RnJOBO96Llf/kHFNrVazjOSuBQzYLe1zq3oSbkXXXtvAQc
tm7w1zIpB/2UxEV1qQR2D3YGh54uh317GOpPKdtnxkR0lJZDmKlOxFkZ1a+4
lZ9hfheKfUvXzNFIsCrzu6m2+R4IFFRWSBkkbGJniwmoAIuxl7YRSiRs7LBZ
8ONVAD2G3fndUhLWx48wmuoqgCdkFpsrk2Det1Uj3vYBNOw7TYyrkGAsfPEN
zeEhqLq8SItfRsJKTSJ6/uAjGHLwnFy1ggQFxRBi5HQtXPa8uUxsQsLwnli1
qcJaeHm8/rjUlISngmStxYFaMHLgxSuvJaGZ/yojad1jME2fczQ3J+HC8k/5
2cWPgf6ov+GXjSSo6+k3NOTUgbhBdjxtOwlsa4G8RmI9HDzWtHR+Hwla/RnM
q9cpF81u5DiRwEy4qvx1fT10pV1Qiz9AwqioUN2E1gAeG1IHNA+ScMvpiQGH
2wCbhQU9TkdIsPCcs/UNbAQm45ahhg8Je2K9Eu65NMOHrhhOJ5faz8U6u2tn
mkHuPDdhTxQ1b64uU5DeDLtdFZ2qo0mYrOnl+7Q1g+enLP9iHgmXpV6pX9iJ
QCR252ckkjAQ7Z3145YWmCxRKyhLJ4EXdeK2mXorvGyTfZgvJaEiwvd9wYs2
YEov2Of3kXDD6vtObXEbbK3bMZE5QNVj/Pji4vJ28L7+WS1piIRQQVRjhHM7
uPQfrAgZJWHrtYybjh3t4HQkl3tETIL7wIcabsBzuDD0beX39AXoWqp2US/4
BZheao64qr8Ab92+XxcS9gqMt2+x6z61AMvsBX512Ak2XSF99pIFYL32vfON
+9/AfVg9Upr/L+ivDihO8O6B5wFflC13XQSL9z+0Wqf3wo1MpSw9Qgp1JG/v
66x+WBnDu9X6TAr+tSJRTdwgJLqZHtolkMGVE4XaGp4f4ajWc8kbNg3NDvfO
Sn1HgN77wTYijYbdU/vbcM8YLMZrCp/M0lDcs2K95qFxcE25tGKHnxymlnJP
urpOgIdlbwq7Qw7ZakzH8KxJENo31dRy6Hg/mFeakvsZjMsCevf/QcfXhhnE
gXQx+DOKh9auZKDBuVfGx65MQehXqjCbxkBLp57NuVnTsLBteE2gojy+D06w
EiTPQKaV89HHP8njHcsjKo1pszBKvPGcHJVHTZfmt0UJcyAlIKbFTQGhj5b2
5Mw87HjXoTUuUsArmv4q7HAJlDx48GAEFTFOeOqXLadJKBlze3bgtiLmtP3W
lBK8AOx9385cWkNgdGDG5KqQfyGUxxsmrhM45mX85RHvRbgxV1p8X52JFxZH
5bv9pCB8Umxlc5GJlf/YT6i6ySB4RY94Wm4J/mVo0bfNgIYBZi15xSFL0N/k
xLqMAhrmWSr4csaXYJ2Le6S1jhzuneKc6TquhJsOjxarX5NDTwvza27vlDDg
nF0n5ys6Fp0dPtzhtBST/JikXAYdWUp9O7bVL8XqVV6yUXUGOsxmGCeAMj6U
JjJMUxi4diZSeK9cGdvKd44Klslj/DLruvYNKti42q8pOV0ey9bJpf15UwXj
Kw5d61VSwNU7Yw7k6KriUb13Hu4CBSy7g1Vuuaq4cH/dV2sIRQwhayP71dUw
ijHy56UYRVScv32Jk6SGmgaWXoY0AieaNufV01kYFugyrRRB4NNl56rsOSxc
udVHxI4kUPOempGjFQsfL/6YbRNNYDu/Kv07YKGSQGDLPUtg2uDPPxyzZqGw
tCFz5DyB3Qyv9T/tYmHT8MYtoqsEbj4zNCZ0ZKH6CbXQhCoCX31YZTF3jIUP
TVc5XKshMCjHuulfDxZ6iE11qh8TmHQ65hDdk0Xtza5puoFA8pBNmIo3C7fn
RWv6PKPqO4836/ux0Pv92H2bbgLRLDfHKZCFRIGE7/GBQItWS45LEAt/DyCO
c/sIrJONvHcPZuHsgh5xZ4hAXSe+3skQFvK13Vx1Jwj04Dc8iA5l4bq+k2s4
n6n53ih4nQtj4evin2WHp6g/UnRXOh/OQh3LtMLUOQKlBuiZyWVhPS038ncJ
gWVF7cpXI1noL/p9v2iBQOcNIZW5USxUTq3UH1gkkJdkdKogmoW3XUVzMhmB
f4VNfFkaw8L/A5puX1E=
         "]]},
       Annotation[#, "Charting`Private`Tag$15499#4"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{TagBox[
        FrameBox[
         StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E(N=2)\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox["4", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 3}, {-2.2323307271329584`, 4.123699559799169}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
           "]]}, "Charting`Private`Tag$15499#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0ns4VXkXB/Cz3ba3qVSiUpHbicroippYu9KFyInJLSPEGRmhnsY1EYdp
DkdCTXRySaFJVEwayW8LxzWX3Eoo9pZb5U5ux7vnj/Ws5/M864+11vNVdfG2
dJNgsVjpTP3Xvx/3usvx9jE6NaCrPyyiUKTrZq169gmIrWvh/ec332gPAdsR
Ogxenx9h/EjhQ+p7IRc69CZHRxmP5B2K9mR7wewnr5UTjJW0W18utl0ERzvd
2inGhv78HVVCX5it0VObZexUYZQZ5xwIgV4R8mLGYYrjGxzYV8AydH2qRAWF
3j6zqoqbDIUXpjMVOGPXdh3edFsYPNikErWM8SQmCw6FPGhyFAzIM47U7pkh
hZFA/mZMKTFec7IoXzPkGmQXGPurMc7yv+XNd+ZDYlFM1hbGNRWmvVbsGDBe
IvFhP+Mcv1UcB6lYeOu3rfMIY7+okMcxk7Ew23cv8CRj2Tw79/G2OJCN8P3D
nXGDSFSuWRUPIo2WqUuME9t3qdsWJkBDdhgWxniLxPKuIuEtIEVv+u8yHlMI
+mlY8Bfw1p0vz2b8Urv/tmrIbTBrdTQsYmx28rVVpHMSfA40XOxg7J3qW2XB
TobipdI1mpUUMsin2GFrUmAKPxW2lzHLVeugvVQqXDFmtZgzrvK7mRI9mQp6
GefN/Bnbp3jbj7bdg+gfq8ObGRtps//kc9LBepWS4lfGankdBepV6TAV3HBI
popCQyITBevC+9B6zO/CPsaXv6k3FAozwN7yg8LfjJ3828VWCpkgbhGEVzA2
lrih81WQCR638qN7GS9TFPNVQrLgbyfuBfVqCiUbvjvMc/4b7kMcL4NxSXT0
S3N2Dmip0k1VNRQqHnxf+8PDHNC07zs+wbjo2Oauqq25kGVSGahSS6HTEs6s
9LVPwHzF9gU/xqeK59RUlJ/Cbt54wo43FDLV2+G+RjsPOmRt5SvqKHSst83H
1yMP3h1onJ1nfDThSkDLozzYZuacuKue2Xeshh//Yz6YfW2Zu8fYKIf7WG73
P5AxzrPmN1BoF1s4hkMBuKq85ga9pdDOloNz3FDGrzJKihhv5w1IikoKgHu9
v0nM+McePQWe8Qt4ofeXckQThbSSG/VZpv8C5+hW86RmCm1QxIO///wSzhnl
yve1Ukha5iI+4IFgVqPTc0kHhfpNQuTGMxFoeDd1OjCuFkSvWaAR0GeNh3MZ
V/Cb4q/pknDZ7dG4TSeFolZ9Sxc+JEGUqB6e20Wh1WrqZWV3S2BfQFTJ5W4K
sQ8IpBQiS8H9QC59vY/JPxUvm3S/FPwDh7ynGMtGJC1VKS2FpcW/CH/pp9Bg
ZeZqbVYZDNqJ3+kMUCiX81rDMLAMZJ71dbcMMnlzmjZ28yoH/gsDA+NvFDIJ
cY74x7oCRuKfb06aZP5zveRI2qUKuNgqHbxqirk3RVVWEFcBrLpNXlGMR4q7
+a51FWBW0aoeMk2hW2LnWPkjlSC/U67r/AyF6GCXOxf2VEEDf3uC+wKFQi+f
faqzugYsOwb2N0nTyCO69OK6nTWguMlK6YwMjX4Wqu+W5tRA0tOQhCHGm4uo
5x1RNeDTe+iMjCyN6ubOFkVJ1gLP18Xi0BIabQhyrRgYqwUywSWtfTmNCgLc
Oh801sFGRx+TkLU0yjD6rU1prA6O8wQO29bR6Jbkhcbrq+rBMtZTu52xr+By
eYBVPSj2pozor6eRXlr8Y/OWenB5sUVvfiONTtOfigM9G2BfjldWpjqN2n+Q
u67m0wga+1pD+bo0em//m+5FvybglKt2hpnQiN9z1POvyCbgdhxcxTGl0T4P
jYdFN5vgec7SLxuP00gY0KmG5zeBYnKV4KUZjZxuWygKR5qgY3xXlNiCRn0t
uxbKzzXD2Mf9/unWNJrkzFevc2iBnzN0fM650mjlUQG3hGgDInvsVv9VGhk/
LIKtJ9tAtjAbnwijkf8PX9bedG6Da6tCDVk8Gn2qN61xD2uDKbOC70qRNHpi
K7t9RVkb0L+a5trxacTxCJ9xPPoOpBZ3bpuPo1GsICB63vw9fOcafWq5T6MV
zW7P9E9/AK81aRqfqmmkvsnzYYTLR8jfeNWuTLkXGXSerzkQ1w37s9r09/r3
opLZULPmOxS8U9XofdXbi9xRZWVxWC8k35+clbD9jBLPZiopOPXB63PSrdeb
PiMd2+4psdsA5Ix291dz+1DXuEUdYTIElin97mXzfWjs47rtiqe+Qk5ybMGx
x/0o9lHgrzY2w6CX7jrb7j6A2HKy5v53RkDCZvNgmsYgeu4T+igmZRRsjnn+
z048iJo14/GTcWOQ+aHqWkHrENIIb9L6JXEcah1DtrrVf0F7OR93p9yZgCfN
y08UN35FnT4RRoLoSbhjbKq/s/4berbXbln5jSm4tx6vNBgeRorWFe+zIqZB
+Zno5jreCIIe1o3Xl76DfPBr2kR+FCUqui9j+8/AT+LTvqH5oygs+dwfezxm
oa5RZsdezhi6W3dbFOMzBxzFGJ0A8RgK9oof2XhxHpJTE6Rrc8bRkLPWWjuX
BVDmJFo/tZlAUQuDUl1cMRiFCyzPyU+iwi9Hh5fbL4LToe+Hs0WTqFXToGef
BouI4clyxgOmkLv2Wd34ByxC09AiYg8xjUqsTwcdUMYI1fv0Et/5abTLdvDh
6jSMUHcICu+q+Y48w4+0Ga6XIDILdUt8Y2fQNa7sLBYvQeTqJa0stZpFrzY6
Lw6uliRoTazt8JY59K84UnJLjCQxqW6t2zgxh+ryDg0KVkoRkVFzETlv51H5
Jq4oOk6K2BAU4P0qZwHxCk6ldS+RJrZ/vavSHSxGDmodjqcF0gTHcG3cGadF
NPdcd/1WXIZoT5c5UqzEIi9LDtTevCJDCLtvhHwLZ5GKGnudNVk4YblpcbRh
ikX6eVlPLAnACaHO+rxcF4zcoOdayQ7CiZ1pS0vjXDGSXLggPBjMzKdJfvyd
i5FLBALjwKs4YRs5sW+/B0YmPypLGPgTJ/w7r4ZVXcBIUf/OPZVJOPHsxAnz
z6EYufqsnG9EEU4Er5Mp1ErByH+3bDRNK8aJws0KxsvSMNJxbIvyKxInPlGv
3o/ew8isq0dEE2U40b67fvPLDIz8KTVY0fUNTlxTuXniRA5GunQOPT/YhROX
uhpKfV9hJP5ghu/4CSe4FqPSDggjsz3xM4E9OJGv5Wd1oAQjp+bU8GefcWJO
K2PF0nKM5CvZ26gO44TrNn35e7UYqdvz61bDUZzovq/15I86jGx++Pui7ThO
iKrdbM83YKTy3huZsdM4cfvU82qDZowsZaUEZc8wti1NUG7FSPfKbIvKOZxg
H5bzkHqHkUtjC9XpBZwY+XLLdPA9Rj61qZxeXGTuVbPRa/iAkf8H1XpeJg==

           "]]}, "Charting`Private`Tag$15499#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV03k41dkfB/BL6mvalCzVlEJu1JRSCaX3V4uixdImZFxbUmFMScoytp9w
VTRKrktlSVRjGYZ7s4dbsjeKaChl6x5rwuD3nfM8n+c8r+fzz+ec8z7Kdm7m
jpIsFiuCqf/27wdd403d3He1z/y3CEIc1qrXso/g8YS77jTj1+JPLly2Dczp
rq7vjNPlWxPf8Zxwptt+9gDjgew9EefZrrhT/v3OR8bLNf4WzDR7wNU2J76R
sb5X2GYRzxPfWBkKxYxtK3elRnG8oZM0LpnGOEBheIU12xcZLKFdJOOGrKOi
qFF/XA1S0HZn7NCyIWisOQDCY5t9jjAelZCGdUEQgg7p6mj8N69G53gxLwQf
Jn8+w2KsaCbMUfMLRUFK69ymaYJHXjFuYZww8PZ8UUli/KrSuOsoOxIxDzIz
dRk/vSxrai11EwdLp9Rnpgguh/s9iRy9CdmIEfkSxtLZp5yHm6OQs3OTuR7j
uoqKF2qiaPCb1z4Y/JcgtmWLqkXBbST4a55NZrxOcmG7kBeDJg/KRpLxkPzV
HYR7B93BzyLSJwkEGt13lf3uQlJbcasZ40NmpUdDOPfQkkKRWxMEbomeIhM2
HxEpPNWe7wQ6OR/ZAYoJeKxtxvZkzHJQ320plYheb1bKzBiB6PLvCRGjiWgv
KlWSZmyZ4GY52PwAFvQERUYIdmmwr4eZPoRsU6iULWOV7Pd5qqKHiDC+EPh6
mKCvwkj+REESBs/qzuMPEVwTq9YV8FKwqOe9hfwA815eLdNH5VMRpj3h40II
9kre2vCVmwpqWcd6oZhggcJ02Cq/R4h8G6N2/CsBX//tviDOY9zmWD8+3UtQ
EhEhOMx+Cr2U3CbRR4LC3nfV89Ke4gBHvaGpk0B4YG27aP0zLBU01rZ2EFhJ
clgPl/4BVmBafdsHguOFkyqrlDKRy9dbltVKYKy92VlRIxsx/cZL4xsIDnQ1
u3u6ZEPv2csG53qC/bd9r7xJz8bOsTWpm+qYeYdehUVvzMGEsl9SzmvmPp46
PZHZ+idudLusiawi2MLmDVHIw8iBFW2hzwm03uyedPLPg33JqSWKQoJNQT2z
Kkry4Gje/Nv9AoKNndryQXv/glZsqUx6HoE6v347yzgfW+NCNW5lEqxQoHy+
HxMg7pFYKz2JYPYcD6rHpQjV9gFG7FCCbiM/meHUIvg/O6RkG0LwkhuhOPWp
CDG1ez7HBBFUhjVGh2oWQ91AeHLSnyBcVvyQl1aMYlXr8YQrBHIqquXl8SU4
TsIlLF0I2AZcKfmQMhSHqLxOMGLy/zFa+l5SGWo1pn+4tp/Jb/C9+avKymB5
z9Dn+D6C3qpUOQ1WOTaOtcmwDAiemZau0fcuB+8ST2WrDpM327G9jq4v4J3V
0r+MTWDkxwn+80QltNr/yuibEUPrRonh/YuV8Chf5OE3JcaKBGVpblQl3FbJ
1SyaFGOgsCPMoaYS4b1885++iREzzbm5xLAKAYdOigz7xfjkYxf3yzYRyNbF
xvPeiuF/zT5zg9wrPN3V693xRIy8K45tyfU1WGBnUaBzVIx3luc0PS43gmWS
Z1px6SsW7+c6ldDNEI7Nb7C40Y9FTY5Z261a4Z2kZhYa2AfV1efTgu0+YMle
yym+ey902i68MojqwIBvqcTI2R6UTPgfaor7iEQ11RC2cTeci6qqCgO6EEUS
Tb30vyDWPnW5vO0XmM9/IV6v8xkbLDq+TTv2IOWCzZuu1V1oHzapoY36YBMe
OZCv/AlDH5ZtUjj+FeaOemYWch9xM937zMmTzD9//qGQlusEW0b6sFfcAEJ1
FpIHGzqQ6+6fHpkwiNwb+YHL9P9Bk1o0ZRY1BFnewfdUdTvWBDaqn44dRmcH
12apTBt0TT9sTYgbQWh968557q1ocw/exY0YxZ3bE+EcVguydE8teHHrG8Rj
h6+LQ95C4UTlu0fBYwgJVXFcrtcMdLJulV78DldZq6bC2X8jVsF5AdtrHPwt
j5fkvGxCAP/s/7a5TEDcs+fUidxGxNfcrYh0n8T87rZ52+Ib4OMaPbDS41/U
+B5pGLhXjz6O+tJTdlM4FDh7waL8OoRP9Uq1O01DeaA2jZ1ai4L+/WSh5Qzm
BNVJLFGowd9qOp16a1h08eHMX1nJ1XDWsNeMTmbR6ibsljcbXqHkhNVVAyUJ
mu7ft+SHzyJssehNk7svQbOtxqSNY6twPtCwWf9HSfpxwai3rWclQp2kJySi
JelguczCiy4VeL6SM9MrN4sOfina+P7UC+RPh8xaFzmL7q4ejNI8V46a7D29
3MVSNNnz6kcvrzK8WO1UERElRc9t/+ucSmwpgvKO3++YO5sO2z6va8ubElir
vLex4s6mU4pyq00XlGAyV/PH9dQc+mKMS1LG6WJcm9VT/bvvHPqb1tSOlZ5F
UFijy1FjUfTZI1la2hqFuOx6YmTuFYqeY3B/NyX1HCu0HarYVym68J+U+IUz
QhRP/cLb7UPR5z3NNitOCDGXy93r/RvTd1KU+GlACH56+e2e6xSdmDex3eG9
EBXdWtuq7lG0iuinPxb+KYScvYxnsJCiGyaMdY3OCJG/bqXx/UKKtojTH/K0
E8JmaJ3S82KKXt2i/Db5tBCPfjOsGCmn6LoVZhrUMSF2JPooOLym6GPjR5qb
aSHs2vpyd7dTdJCvqWzmciGo5PEwm38oukIpz21QXoiM89TP3p0ULct2HNFa
LMS3SRUq6zNFL1Xc7JFPCRG23PKkMqHoRaOl25pGBNDsPLNef5Ci7Zz5ZSsH
BGhKuzRjMUzRVvljl5z7BFDSvZV6c4yitX4tMZToFKCMlXA1Y5yiXb74O5i0
CeBclWFSNUnR/SbWyfy3Asy/WaD6aYo5v++kNGkUIPNk1djMDEXzOHNu0LUC
/B/lO1gQ
           "]]}, "Charting`Private`Tag$15499#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV0nk8lIkbAPAxg3eSY2odmy2baxxFd0s1nodE2ZRWUZQQUmuxtnWMaxJW
k5GrdgtDP8m1aUul5EiukY0uq2yRM8eKxjmvNfN794/n83y+/zyf59L1DvrO
l06j0dKp+C/PfxuY4xQUbFU1/WtWWL8EEn2MjNvZ+2Dq1J2CcMrPPg2cFrA9
wDbqU30k5VKNv/PeZvvBtsLdszzKk+U7kwPYgbBe9dGOJMraJn89knWGQEQU
59c0ypxw/oaW7FCI821UyKHs2WxVmO7FhdWDu5JKKMdpTq08yo6BV7W3dCop
v7zj3JI+wwOdE59FrZR9uszi5zrjYHpwNrGH8owcE45WxoPxkpLDM//1a9In
eZydCJPfiDkqAxLQOlB11zA2CbhJd7caUS4KvxzE9+JDTNUrm52UW5sdBp3Z
KdC5qSjzLOWysOVOR+VT4YmbVlc+5bALsTdTZlJh2sx1o4gys/yI/1RnOpgY
5GtrDUrgeVNTo2FLBmTecCmxpnyla5P+4cpM0LpssjeQsildtbsq+zLMmpxo
fEZZrBG5fULwK7S1eGTThiTwyGT4N93Y38DweX78Fsp7DzxxTvS6Coqj2kkF
lIPyQlv2s4Wgvemus/CjBCzu9rPjtHLhxrBcWS9lmo+xjZt8HjwdiNUyGpZA
S9il3OSZPFj7U4fmA8puuUFunzv/ByvmPlaLRyRgZcI+z3fKB71cUZLdqAT0
yt9V6Lfkw/0rGzyzKY817dFwqbwOZyZ0Nu0bk0DUJ/3nldk3oGBzrMfTf6h7
hXdJnTUKobK9Jc58XAK29DSzcUEh3K459UcmZRVNKf/r2CJQbfhoePKTBISc
N7vivUqAOaH9g8GkBOqSkx85sssgrPqyTDYlgZrRt38uLS6DoKieqovTEqja
bdTdsuYW2NlzO3RnJOBO96Llf/kHFNrVazjOSuBQzYLe1zq3oSbkXXXtvAQc
tm7w1zIpB/2UxEV1qQR2D3YGh54uh317GOpPKdtnxkR0lJZDmKlOxFkZ1a+4
lZ9hfheKfUvXzNFIsCrzu6m2+R4IFFRWSBkkbGJniwmoAIuxl7YRSiRs7LBZ
8ONVAD2G3fndUhLWx48wmuoqgCdkFpsrk2Det1Uj3vYBNOw7TYyrkGAsfPEN
zeEhqLq8SItfRsJKTSJ6/uAjGHLwnFy1ggQFxRBi5HQtXPa8uUxsQsLwnli1
qcJaeHm8/rjUlISngmStxYFaMHLgxSuvJaGZ/yojad1jME2fczQ3J+HC8k/5
2cWPgf6ov+GXjSSo6+k3NOTUgbhBdjxtOwlsa4G8RmI9HDzWtHR+Hwla/RnM
q9cpF81u5DiRwEy4qvx1fT10pV1Qiz9AwqioUN2E1gAeG1IHNA+ScMvpiQGH
2wCbhQU9TkdIsPCcs/UNbAQm45ahhg8Je2K9Eu65NMOHrhhOJ5faz8U6u2tn
mkHuPDdhTxQ1b64uU5DeDLtdFZ2qo0mYrOnl+7Q1g+enLP9iHgmXpV6pX9iJ
QCR252ckkjAQ7Z3145YWmCxRKyhLJ4EXdeK2mXorvGyTfZgvJaEiwvd9wYs2
YEov2Of3kXDD6vtObXEbbK3bMZE5QNVj/Pji4vJ28L7+WS1piIRQQVRjhHM7
uPQfrAgZJWHrtYybjh3t4HQkl3tETIL7wIcabsBzuDD0beX39AXoWqp2US/4
BZheao64qr8Ab92+XxcS9gqMt2+x6z61AMvsBX512Ak2XSF99pIFYL32vfON
+9/AfVg9Upr/L+ivDihO8O6B5wFflC13XQSL9z+0Wqf3wo1MpSw9Qgp1JG/v
66x+WBnDu9X6TAr+tSJRTdwgJLqZHtolkMGVE4XaGp4f4ajWc8kbNg3NDvfO
Sn1HgN77wTYijYbdU/vbcM8YLMZrCp/M0lDcs2K95qFxcE25tGKHnxymlnJP
urpOgIdlbwq7Qw7ZakzH8KxJENo31dRy6Hg/mFeakvsZjMsCevf/QcfXhhnE
gXQx+DOKh9auZKDBuVfGx65MQehXqjCbxkBLp57NuVnTsLBteE2gojy+D06w
EiTPQKaV89HHP8njHcsjKo1pszBKvPGcHJVHTZfmt0UJcyAlIKbFTQGhj5b2
5Mw87HjXoTUuUsArmv4q7HAJlDx48GAEFTFOeOqXLadJKBlze3bgtiLmtP3W
lBK8AOx9385cWkNgdGDG5KqQfyGUxxsmrhM45mX85RHvRbgxV1p8X52JFxZH
5bv9pCB8Umxlc5GJlf/YT6i6ySB4RY94Wm4J/mVo0bfNgIYBZi15xSFL0N/k
xLqMAhrmWSr4csaXYJ2Le6S1jhzuneKc6TquhJsOjxarX5NDTwvza27vlDDg
nF0n5ys6Fp0dPtzhtBST/JikXAYdWUp9O7bVL8XqVV6yUXUGOsxmGCeAMj6U
JjJMUxi4diZSeK9cGdvKd44Klslj/DLruvYNKti42q8pOV0ey9bJpf15UwXj
Kw5d61VSwNU7Yw7k6KriUb13Hu4CBSy7g1Vuuaq4cH/dV2sIRQwhayP71dUw
ijHy56UYRVScv32Jk6SGmgaWXoY0AieaNufV01kYFugyrRRB4NNl56rsOSxc
udVHxI4kUPOempGjFQsfL/6YbRNNYDu/Kv07YKGSQGDLPUtg2uDPPxyzZqGw
tCFz5DyB3Qyv9T/tYmHT8MYtoqsEbj4zNCZ0ZKH6CbXQhCoCX31YZTF3jIUP
TVc5XKshMCjHuulfDxZ6iE11qh8TmHQ65hDdk0Xtza5puoFA8pBNmIo3C7fn
RWv6PKPqO4836/ux0Pv92H2bbgLRLDfHKZCFRIGE7/GBQItWS45LEAt/DyCO
c/sIrJONvHcPZuHsgh5xZ4hAXSe+3skQFvK13Vx1Jwj04Dc8iA5l4bq+k2s4
n6n53ih4nQtj4evin2WHp6g/UnRXOh/OQh3LtMLUOQKlBuiZyWVhPS038ncJ
gWVF7cpXI1noL/p9v2iBQOcNIZW5USxUTq3UH1gkkJdkdKogmoW3XUVzMhmB
f4VNfFkaw8L/A5puX1E=
           "]]}, 
         "Charting`Private`Tag$15499#4"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E(N=2)", None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 3}, {-2.2323307271329584`, 4.123699559799169}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {
        HoldForm[
         Placeholder[
          Style[1, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[2, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[3, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[4, Smaller]]]}, LegendMarkers -> None, LabelStyle -> {}, 
       LegendLayout -> "Column"]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.77099401693705*^9, 3.770994067491127*^9, 3.7709941058471518`*^9, 
   3.770994263234439*^9, {3.770995492810238*^9, 3.770995499852001*^9}, 
   3.770997389566435*^9, 3.771000689222254*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"a8093895-8274-4865-8c1d-c07c036e90df"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Three-electron system", "Subsubsection",
 CellChangeTimes->{{3.7709928695004*^9, 
  3.770992881094946*^9}},ExpressionUUID->"6d7f18d4-ca7e-4c08-8eb7-\
07edba359cb6"],

Cell["Configurations: \[LeftBracketingBar]1\[UpArrow]1\[DownArrow]2\[UpArrow]\
\[RightAngleBracket], \[LeftBracketingBar]1\[UpArrow]2\[UpArrow]2\[DownArrow]\
\[RightAngleBracket]", "Text",
 CellChangeTimes->{{3.7709928960965157`*^9, 3.7709930560752897`*^9}, {
  3.770999517656238*^9, 
  3.7709995277788*^9}},ExpressionUUID->"0cf9a26d-d009-41ea-b936-ac8253b071a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Epsilon]", "3"], "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", 
          FractionBox["\[CapitalDelta]v", "2"]}], "+", "U"}], 
        RowBox[{"-", "t"}]},
       {
        RowBox[{"-", "t"}], 
        RowBox[{
         FractionBox["\[CapitalDelta]v", "2"], "+", "U"}]}
      }], "\[NoBreak]", ")"}], "]"}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.770993182125717*^9, 3.770993218885694*^9}, {
   3.770993280615863*^9, 3.770993286540779*^9}, {3.770993324066537*^9, 
   3.770993325016066*^9}, 3.770993599281448*^9, 3.770993725088029*^9, {
   3.7709987882565937`*^9, 3.770998798965406*^9}, {3.7709995318991213`*^9, 
   3.770999545860941*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"96c573b8-4728-47be-8f86-84d20e06a734"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"U", "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"]}], "+", 
       SuperscriptBox["\[CapitalDelta]v", "2"]}]]}]}], ",", 
   RowBox[{"U", "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"]}], "+", 
       SuperscriptBox["\[CapitalDelta]v", "2"]}]]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770993303921832*^9, 3.770993325719154*^9}, 
   3.770993599769623*^9, 3.770993666972555*^9, 3.770993725475451*^9, 
   3.770993769111307*^9, 3.770993971875139*^9, {3.770998773823908*^9, 
   3.770998799544012*^9}, {3.7709995384194937`*^9, 3.770999546977866*^9}, 
   3.770999600164332*^9, 3.7710006950914793`*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"bec4f94c-b0b4-4ce0-bd10-249e09fd9107"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"U", "=", "1"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       SubscriptBox["\[Epsilon]", "3"], "[", 
       RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E(N=3)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.770993915274559*^9, 3.770993998745623*^9}, {
  3.771000696063463*^9, 3.7710006969557962`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"807b5abe-8687-401e-8a38-fd6203dd59f5"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Hs41NkfB/AJ29ejlrJMKiKXCWkJ3ePzJSvZyq1UsjZC0uTS7g9dMAnV
ZHJNqsmllEuFsEjWITLjfh2DMl/zjYqyTe4Sft/O85znPK8/znk+530+z1nv
4e/oJUWj0VKo+WOd+d3vvr1/gLlk8ccgINpzg24r4yBYnSpT/eHm/wZ9OQw3
UIGv575TfqL8Jr2X6w0jM7lSM5QlRXtimAw/6HF43/iV8hq97peLwnOQ6ZjZ
MkzZLIS9uZ4bBCV27+UGKJ/gmWcluF8A1eFnrC7KEfRxVVdGGITJzRvyKHcU
OtUnTLJA/5NApYyyZ9+myGlhBMjK79qVRXlyiSy4lkdCuoXh7aQf9eqRs1Xc
aFiR/o8Bi/Iqh4pinfBrIB/bPneacnZIsj/bnQ2DKFrGkXIjz3bIiXET6Izm
V6qU84IV7V1l4qBp26mQxQUCgm+EP7s5GQfyVk9PDVCWLTrmMy5MgLt79o9z
KbfV1b3WqU8ER//C2BDKd/pMtI6WJ4H30j4vR8r6UvKiCm4y+OpcRTTKY8oX
d33h3AZLizV7BPMEvNT7mLI+PAXMJddp2ZT3O7xyina/C0ymmp4NZf/0oHo7
RirIqHzb/Nd3ArYXv2NErEqD7OlDUTso0zx1LV1k0uF7T5viwhwB9cG30mIm
0yGZ6fT2MmWXNH+Xr8IHoN+dq//3NwLM9RjX2fYPoarI2N6AsmbR21Kt+odw
qN64gJwl4FPdPmXn8kww4DWp21K+9J9WWzn3MdgktlVKz1DvFdK34KScBda5
rBfPpgmwkorfNMrJAnxI8cthyj/TF9jq4dkQYa2yLGOKgFSznt8i3XPBM8Re
VnOSgOqYmJcHGHnQZlOm0/qVgMqR3qZlOXng2zqg5US5wmaDqH5jPuycKJMX
SAg4LuVOe6hSANv9+3I7vhBwuHJOU33dc9BG2YvFowTYbt3ss0qvCJZfHTem
DxNgMyQMCPItgu6ms7LnPxKwNynsvOBJEXAHDjb1fqDqHWtkJ/5aDKkLVeq3
3lN55Hk/UzD9B7iv3syMvSPAhMEdw6AURBs+xP0uIsBYYDnnzSql8qO7cvoJ
MIoclq6rLgUmm7+q+S0Bv5JblSOtyqDc3trd+g0Buqnt22i2L8CosQXX6CFA
lY6Fzhx6CUyW36HAdgJ+WnoOG/ZFUPU2auL6KwI+7gtXGM9CMHPQXOteNQEN
nJhV84MI3n8vY+dWEcBjdyZeM6wCzcgkmdpKAm4o/veQm1MFCeN22eJyApQ0
tWpr71eDb+PaLl4hAQwLjoxydA0Ynzk8imdQ/f8uUfZuZg0kPCiJXp1O9W/U
3eXqNTWwW3jMTZJKwAg/S0mPVgt+oxvqU7gE5Nu/0ja7UAuWm80Sum5T/XZi
2srL7zV04FNqMxwC9oW7R/3jzANvbeNoSQiVT2y1dcbfPDC4wzJOCabum7Ze
lpPAg55zbabmQdR/UClme7bwIK/XZnfUXwQkL7jH/WLNB+tTIa6LZwkYDPW4
F7ilHnI1T6/M9CCAdenk801KjcBlRQoKbAkoPe/V/6i9BR77ZBQNKhPw2PyM
cM1YC6QvXxkx/wt1nnRge6xiK5Qwm5hKigQEcS69Pu/UCk/tglN2yxOwNSPx
2QFBK2gviB2CllL9NDhQeYHZBm0d327HTomgb5lCrGZAO3S/2yw4LhBBr8sZ
w3PBnUD/qC/x44iATe5l3o7uBA0nBemdN0Sw01c7p+JWJ+wcuxIpfV0E3PP9
mlhxJ3h4uXbFR4rgRIodnSuh9k9fLbh3UQQfBCbzr093QcoVvQzP0yKYtP/e
sNpVAAZir/vNe0Swci/HuxoXAlPrwRb5iX5Y0eVVuO34G4i0CTOWMukHLQ1m
ThSVS0P2spolrm9he//ZRosEMUS7nVY3D3sD1d9Y+7vuvYN0jdy/HEL6wAfx
+ZURQ2AlU9+xKbAX7pzMWqN84gNYEQ4d2n/2wKaj4qkFr2FYaqZfv1dHCKJx
uxZ83ycw5jSv3TwmgDFitRH98CgMyBkk6N7ugrgnF04dOfIFNBpWDHpv6QSG
guyBkHsSmLH5MNkz0A4lAawnN9O+gqP5dMeQZxt06SRiDgljYMQ7eM1trBm0
r3Tq/nFnHFzf6weqNTXADnvCNO3eBJR1z9sOPuRBf0CUOSdmEkwt49PsM2uh
cMexn1/HT0GXcMOWm87VQHfm9WZHTQP/TOvGYN8KAJIW/+rvGbjGEyqbmpTA
HbrPz4yQWQg4eZEdVJUHEamnr27x/QYSyb9ujIEMuN+SUnczYA5YbEuLP8zC
INQvUaJ27jtUTR5RbD6RhD6566oc85gHDW0j22CnLHRjfkRG5L0A9qYTskbC
QlT+ee8XeZdFGDDmC64nv0DdOtvJndo0PG70l3ZT9Srko3fSMPERDTda33RW
s7oGVTsfv2ixbglepvzIM0GPh0yOjuQoZSzB8eBm0daBBsS8Yi00WyuFqzw4
1q/v2oKuect+W5Iohft8dhg3HGpD/6q5L44oSePZsTmNATUd6MVCtLT+TWl8
xkONEXWlC7UU7RnhrJTBk2Tw0B7fbvRaw7suJoGy5mzDhG0Piiw9nCGW+wmX
OHLvblveh1w137od5/yEG4QGP+ZPvEFzJYZrN2JLcfy3vCKDyn50SXq46VbY
UjyT7RzxPJxAdO0d7jo0DD+03POkbfEACvZznpA7j+EqNwKLhlPESHWrJ59x
EcOPYnZZH7hiVDUfyLUMxfAVq8syh9LFSI7DsbpwGcMf87QqxNlilPqkNmn4
OoYHyaz/o69MjOo+Gm/h38Xw4tFCr+YeMVI6qRAUVYHhFSbHLperkOiFvppt
RiWGe87jD16okshtTH/dv1UY3rSM2VSmQaLsy9Z1E7UYHr32yu5SXRLtSg+l
ezZT9WwKvlG8nUQe/Z9KLEUY7sJhkwVHSYQ9mmW7DWA4/0hqcoEriZ4ysT8v
kBgeZtPhVHCCRFNzmljhewzv/hw/nO9DIvYalyPrv2D4SLJJRH4IiQzJUxvN
vmJ44eCy8PxLJOrK+d/i0XEM3y43HpnPItG6HfFZcdMY3mEx9CT/GolqaGkX
n85i+G7Zz035MSTy4T+1489R+SjMTuXHkWh5XLnW4DyVp7GcfkESiZ4f4U8v
LmJ4zwE174IUEv0fbibaww==
         "]]},
       Annotation[#, "Charting`Private`Tag$15697#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Hs41FkYB/C5/PKTsrqgTa3KZSK3RKLiPWgppVgbkmSEhJhVIQrJrWlG
onJpFuWeUhtlk+Q6iHSRLIUlrKiUSf3GbfZ0nuc85/n8c573vOd7zhqPwN+8
GDQaLQ3PHyu1M+BPu0COGUH7MSiI81yr8Yy1G/SGXxj/8NNPg758lhtsvmP5
7oeLFd5kdwm8QWi+V0LH/lxqyfNnBQDXT4rPxFbSfP1Q0hkETmOOvHnYpqFc
/WZBMCzxt5olsd0bzQqS2WHwIPZVnwx2tKJopSsrAtwf0Qx/wn5516E5eTIK
jGKfiBdje3brxHzvjIaIrfr6itiTdGlwrYiBND3DbqUf9WoOiKsFcTCT+vLr
Kuxl9pVl6pEJsFWw4Iw6dmHolUAumwukXW+EFnZLo82QAysRwu7vemaMXRKy
xM6VSALZDcNrEHbI+chbiZNJMPNJftgaW7p0n4+oMxmUxrXrnLGfC4UN6s0p
oO259C0bO73bQNW54hJ4R5zz9sNex/ipt1JwBfKNlJ9HYk8ohG8Z56fCnUCT
21zsh5ojaWsi0+Dz2R7JZexd9rUOcewMGMr9e/IWdmB2cPMeViZITp4xeIdt
XPaOFb0sCxRrb2R+waZ5ali4ENlQ07wznEanoDnkchZvMhu61cYSVmG7ZAW6
fOm8DsE2eyc9sM00Wee4djmwyEE0dhxbpfRtuWpzDhTbihzisceEOxQcK3Jh
Y9vC0FvYpz6pPq8Q5IPum52LJNjuod1zDgoFENCRdVGeQcE2xkWdj/wCuGO1
JWYdtqziHHdVZCG4fzJ55ISdafrPrzHsG/Bf/9jpcuwaHu+hLasEWj9eNOIx
Kaga7WpdUFQCrFZyUzF25fa1vc1at2Gi1r7yCfZ+BpuW8/Md2OC5Y+8CgoK9
VdMqq5T/gk3PFaqTsW2M9H2WaZaCqbLlsYp5FGwf6uQE+5bCE97go35s60sR
JzuKS6HL+gNvvhSud6KFm6JbBs7Vcn+7YJuVeN+SM7wH++SazZkkBQYswQQJ
5SBtJFxxVJqCDR0W095R5bh/U4UC7PUx75nCmnLw6pGtaMXWHTBSiNn2N7z0
KzmsO58CjcwXm2g2D8DQtnX8O/ZKRfI09ftDGDo4eCNnAQXzpILI976P4XlC
b/QBOQpGdkTKiQoeg4X/+k3p2E/4vGWzg49BWG1/oAO7kduekqBXDVRv99zu
RRScX/IpR1BUDSuZHy5bL6ZAXkW1vv7PGmDJimV2L6WAZc4nFOLqwDDvRv3t
ZTj/71KkM3LrwNXpt0wxtnRsxsJVdXWgzz0yYvkzBaNNBfKatHrIJe4/7cK+
bVerZhpWD3dKOW9klHDe3L9v8wpogNbAaOrMSgp2RLJj7zk2wnDwsd66Nbg/
F2qsrh1vhHtdB0XLVfB5s9ZI85MbweZdSxAH+3NVP9ezrREuNX+8o6xKwZU5
dtJSqybQHe7XiFKjYPC0x9U/NjaDY3netONaCqJOHfpLR74FuvoynzjoUFB+
0qsn70UbvM5b1h63mYJ8M79OpYk2+KcyPIu2Be/H/OPFhSXP4OVg62AYdjD/
VMNJh2egoD3QxdlKgdG1lFu2Hc8gJCrez8MM52nw36ow/+ewayddydWCgu4F
chdUOC9AJr5UpsiGgi4XP72gkHaY+nXSMteVAu6AtX9qXDsYa22N1D9AwWZf
taLKy+0QxOxTfowtONmjQpa1Q+HwCPeNG34faXsUBZ/bYTOjd+lyNgX/dRjM
Nhx5BUpZ9zrzvfB/ZTfzZLlrB9yLz09bGEjBYmu+dw3qBPWQ1KCZaAoWvfK6
u2n/G+g76n4MSilQXe1fFOvRB20KphckI/g+eo62mCf3g1uheihntRhqpqJ2
vbr6Dv4JUcgZY4vB53FTU1X0EIxX2Z4vyxFD+qECJQX3/0Avwa/FaEQMOs79
3+a83kMV555sidEU9Ir2tKEdY1AmWPjg2NkpmOhbvl5x70fYPnv8zcbuKUgq
Djvs5DQOoU+nrfI3TANLTto29OpnqNWJq22On4b7nKjixKwv4L/e4rxweBpe
qaeQ9skToLT2m26Z+QyonW3XOJAuAsOcbvtT+TNgYtdnmHX1K2j+mh18dsEs
9HBizfi8SajolP1wwm8W7prsk224+A2k5u030e2YBUXHxq7C2O+wbb4l39lk
DmCAdrH2OAUJZ69XtQrmIF3RR5YVKoZBtZs7Z+ZLIDrzSPxG3ykIXSTzdI4j
gT/b0oSJnGkIflR1vbZfAqcDUj7/EjQDH26rZdRo0NAYW+PnfR6zkFSt0WN7
gIbOz44Svd5zcP2addSDKzRU8cF6/CcXCaSal+wua6Wh1+rGA5vVaKjLbLGt
iE5HPpqH9FLyaGhp7VvWkq10VOO4P9xcmY5c7W1Y6UF0ZOA8WiR/jY6Od344
yiyhI/+zVp2mKxhIJaPjVu0QHSV4S0/RUxiIb+o7l7eSgR79wpaMyjPRpP6J
5QHODPRgLo65LpGJDt6sy+UkMVBbqeUofzGBkmmFcvufMlDDam8hL5lAv6kd
THebz0Qx5Xuv9cvMQ25cB1GcORO5qrx128+fh/LH2+TTI5ho+r7eCi1SChU2
nbjSUM5Ep5jvWy9HSKHfX9is/zbORIpqJmx1GokUmF1pS3QIFBLg+FXmJImE
Hm/9N3sTaKWRZxMrnESva9rfmxwmUPXsHwKL0yTaJqV7xMSHQDJ8/rawMyQa
/SIdaOxLoMzi+kvvz5FI2Xx7qlEAgYQjGzY2ZZDo6EP/fQbBBJI/JBccW0mi
8V2O2bpxBHqw7heba1Uk2gdJPrrxBHKbWKf8qJpEIsYKA90EAhWesRJ+rSfR
gHD1Mx0ugbZkn1b0fEoix5YeFZ1EAnn0jN236MXOuW6sfYVAZJ6Y6/YviSYu
F6hrpxLopj95MGyARKuTv8prpxHo27QKeXeYREbhnlNaGQTiKrk4rRknUcUQ
71+tTALpDRzWMv1CIm1xbZ9WFoFeFZ2QOItIlFi7tV8rm0DKJhcLkr6T6Lid
eFTrOoHqaFnhN8UkkmNsEWnlEMin6eaepmkS1VtWzWrlEmhhUoXq4CyJ4njR
Mtp5BPrLqem7REKiYIf45dr5BPofFUdp9g==
         "]]},
       Annotation[#, "Charting`Private`Tag$15697#2"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{TagBox[
        FrameBox[
         StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E(N=3)\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.5\"", -0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"2.5\"", 2.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 3}, {-0.5811388010428642, 2.581138801042864}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1Hs41NkfB/AJ29ejlrJMKiKXCWkJ3ePzJSvZyq1UsjZC0uTS7g9dMAnV
ZHJNqsmllEuFsEjWITLjfh2DMl/zjYqyTe4Sft/O85znPK8/znk+530+z1nv
4e/oJUWj0VKo+WOd+d3vvr1/gLlk8ccgINpzg24r4yBYnSpT/eHm/wZ9OQw3
UIGv575TfqL8Jr2X6w0jM7lSM5QlRXtimAw/6HF43/iV8hq97peLwnOQ6ZjZ
MkzZLIS9uZ4bBCV27+UGKJ/gmWcluF8A1eFnrC7KEfRxVVdGGITJzRvyKHcU
OtUnTLJA/5NApYyyZ9+myGlhBMjK79qVRXlyiSy4lkdCuoXh7aQf9eqRs1Xc
aFiR/o8Bi/Iqh4pinfBrIB/bPneacnZIsj/bnQ2DKFrGkXIjz3bIiXET6Izm
V6qU84IV7V1l4qBp26mQxQUCgm+EP7s5GQfyVk9PDVCWLTrmMy5MgLt79o9z
KbfV1b3WqU8ER//C2BDKd/pMtI6WJ4H30j4vR8r6UvKiCm4y+OpcRTTKY8oX
d33h3AZLizV7BPMEvNT7mLI+PAXMJddp2ZT3O7xyina/C0ymmp4NZf/0oHo7
RirIqHzb/Nd3ArYXv2NErEqD7OlDUTso0zx1LV1k0uF7T5viwhwB9cG30mIm
0yGZ6fT2MmWXNH+Xr8IHoN+dq//3NwLM9RjX2fYPoarI2N6AsmbR21Kt+odw
qN64gJwl4FPdPmXn8kww4DWp21K+9J9WWzn3MdgktlVKz1DvFdK34KScBda5
rBfPpgmwkorfNMrJAnxI8cthyj/TF9jq4dkQYa2yLGOKgFSznt8i3XPBM8Re
VnOSgOqYmJcHGHnQZlOm0/qVgMqR3qZlOXng2zqg5US5wmaDqH5jPuycKJMX
SAg4LuVOe6hSANv9+3I7vhBwuHJOU33dc9BG2YvFowTYbt3ss0qvCJZfHTem
DxNgMyQMCPItgu6ms7LnPxKwNynsvOBJEXAHDjb1fqDqHWtkJ/5aDKkLVeq3
3lN55Hk/UzD9B7iv3syMvSPAhMEdw6AURBs+xP0uIsBYYDnnzSql8qO7cvoJ
MIoclq6rLgUmm7+q+S0Bv5JblSOtyqDc3trd+g0Buqnt22i2L8CosQXX6CFA
lY6Fzhx6CUyW36HAdgJ+WnoOG/ZFUPU2auL6KwI+7gtXGM9CMHPQXOteNQEN
nJhV84MI3n8vY+dWEcBjdyZeM6wCzcgkmdpKAm4o/veQm1MFCeN22eJyApQ0
tWpr71eDb+PaLl4hAQwLjoxydA0Ynzk8imdQ/f8uUfZuZg0kPCiJXp1O9W/U
3eXqNTWwW3jMTZJKwAg/S0mPVgt+oxvqU7gE5Nu/0ja7UAuWm80Sum5T/XZi
2srL7zV04FNqMxwC9oW7R/3jzANvbeNoSQiVT2y1dcbfPDC4wzJOCabum7Ze
lpPAg55zbabmQdR/UClme7bwIK/XZnfUXwQkL7jH/WLNB+tTIa6LZwkYDPW4
F7ilHnI1T6/M9CCAdenk801KjcBlRQoKbAkoPe/V/6i9BR77ZBQNKhPw2PyM
cM1YC6QvXxkx/wt1nnRge6xiK5Qwm5hKigQEcS69Pu/UCk/tglN2yxOwNSPx
2QFBK2gviB2CllL9NDhQeYHZBm0d327HTomgb5lCrGZAO3S/2yw4LhBBr8sZ
w3PBnUD/qC/x44iATe5l3o7uBA0nBemdN0Sw01c7p+JWJ+wcuxIpfV0E3PP9
mlhxJ3h4uXbFR4rgRIodnSuh9k9fLbh3UQQfBCbzr093QcoVvQzP0yKYtP/e
sNpVAAZir/vNe0Swci/HuxoXAlPrwRb5iX5Y0eVVuO34G4i0CTOWMukHLQ1m
ThSVS0P2spolrm9he//ZRosEMUS7nVY3D3sD1d9Y+7vuvYN0jdy/HEL6wAfx
+ZURQ2AlU9+xKbAX7pzMWqN84gNYEQ4d2n/2wKaj4qkFr2FYaqZfv1dHCKJx
uxZ83ycw5jSv3TwmgDFitRH98CgMyBkk6N7ugrgnF04dOfIFNBpWDHpv6QSG
guyBkHsSmLH5MNkz0A4lAawnN9O+gqP5dMeQZxt06SRiDgljYMQ7eM1trBm0
r3Tq/nFnHFzf6weqNTXADnvCNO3eBJR1z9sOPuRBf0CUOSdmEkwt49PsM2uh
cMexn1/HT0GXcMOWm87VQHfm9WZHTQP/TOvGYN8KAJIW/+rvGbjGEyqbmpTA
HbrPz4yQWQg4eZEdVJUHEamnr27x/QYSyb9ujIEMuN+SUnczYA5YbEuLP8zC
INQvUaJ27jtUTR5RbD6RhD6566oc85gHDW0j22CnLHRjfkRG5L0A9qYTskbC
QlT+ee8XeZdFGDDmC64nv0DdOtvJndo0PG70l3ZT9Srko3fSMPERDTda33RW
s7oGVTsfv2ixbglepvzIM0GPh0yOjuQoZSzB8eBm0daBBsS8Yi00WyuFqzw4
1q/v2oKuect+W5Iohft8dhg3HGpD/6q5L44oSePZsTmNATUd6MVCtLT+TWl8
xkONEXWlC7UU7RnhrJTBk2Tw0B7fbvRaw7suJoGy5mzDhG0Piiw9nCGW+wmX
OHLvblveh1w137od5/yEG4QGP+ZPvEFzJYZrN2JLcfy3vCKDyn50SXq46VbY
UjyT7RzxPJxAdO0d7jo0DD+03POkbfEACvZznpA7j+EqNwKLhlPESHWrJ59x
EcOPYnZZH7hiVDUfyLUMxfAVq8syh9LFSI7DsbpwGcMf87QqxNlilPqkNmn4
OoYHyaz/o69MjOo+Gm/h38Xw4tFCr+YeMVI6qRAUVYHhFSbHLperkOiFvppt
RiWGe87jD16okshtTH/dv1UY3rSM2VSmQaLsy9Z1E7UYHr32yu5SXRLtSg+l
ezZT9WwKvlG8nUQe/Z9KLEUY7sJhkwVHSYQ9mmW7DWA4/0hqcoEriZ4ysT8v
kBgeZtPhVHCCRFNzmljhewzv/hw/nO9DIvYalyPrv2D4SLJJRH4IiQzJUxvN
vmJ44eCy8PxLJOrK+d/i0XEM3y43HpnPItG6HfFZcdMY3mEx9CT/GolqaGkX
n85i+G7Zz035MSTy4T+1489R+SjMTuXHkWh5XLnW4DyVp7GcfkESiZ4f4U8v
LmJ4zwE174IUEv0fbibaww==
           "]]}, "Charting`Private`Tag$15697#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1Hs41FkYB/C5/PKTsrqgTa3KZSK3RKLiPWgppVgbkmSEhJhVIQrJrWlG
onJpFuWeUhtlk+Q6iHSRLIUlrKiUSf3GbfZ0nuc85/n8c573vOd7zhqPwN+8
GDQaLQ3PHyu1M+BPu0COGUH7MSiI81yr8Yy1G/SGXxj/8NNPg758lhtsvmP5
7oeLFd5kdwm8QWi+V0LH/lxqyfNnBQDXT4rPxFbSfP1Q0hkETmOOvHnYpqFc
/WZBMCzxt5olsd0bzQqS2WHwIPZVnwx2tKJopSsrAtwf0Qx/wn5516E5eTIK
jGKfiBdje3brxHzvjIaIrfr6itiTdGlwrYiBND3DbqUf9WoOiKsFcTCT+vLr
Kuxl9pVl6pEJsFWw4Iw6dmHolUAumwukXW+EFnZLo82QAysRwu7vemaMXRKy
xM6VSALZDcNrEHbI+chbiZNJMPNJftgaW7p0n4+oMxmUxrXrnLGfC4UN6s0p
oO259C0bO73bQNW54hJ4R5zz9sNex/ipt1JwBfKNlJ9HYk8ohG8Z56fCnUCT
21zsh5ojaWsi0+Dz2R7JZexd9rUOcewMGMr9e/IWdmB2cPMeViZITp4xeIdt
XPaOFb0sCxRrb2R+waZ5ali4ENlQ07wznEanoDnkchZvMhu61cYSVmG7ZAW6
fOm8DsE2eyc9sM00Wee4djmwyEE0dhxbpfRtuWpzDhTbihzisceEOxQcK3Jh
Y9vC0FvYpz6pPq8Q5IPum52LJNjuod1zDgoFENCRdVGeQcE2xkWdj/wCuGO1
JWYdtqziHHdVZCG4fzJ55ISdafrPrzHsG/Bf/9jpcuwaHu+hLasEWj9eNOIx
Kaga7WpdUFQCrFZyUzF25fa1vc1at2Gi1r7yCfZ+BpuW8/Md2OC5Y+8CgoK9
VdMqq5T/gk3PFaqTsW2M9H2WaZaCqbLlsYp5FGwf6uQE+5bCE97go35s60sR
JzuKS6HL+gNvvhSud6KFm6JbBs7Vcn+7YJuVeN+SM7wH++SazZkkBQYswQQJ
5SBtJFxxVJqCDR0W095R5bh/U4UC7PUx75nCmnLw6pGtaMXWHTBSiNn2N7z0
KzmsO58CjcwXm2g2D8DQtnX8O/ZKRfI09ftDGDo4eCNnAQXzpILI976P4XlC
b/QBOQpGdkTKiQoeg4X/+k3p2E/4vGWzg49BWG1/oAO7kduekqBXDVRv99zu
RRScX/IpR1BUDSuZHy5bL6ZAXkW1vv7PGmDJimV2L6WAZc4nFOLqwDDvRv3t
ZTj/71KkM3LrwNXpt0wxtnRsxsJVdXWgzz0yYvkzBaNNBfKatHrIJe4/7cK+
bVerZhpWD3dKOW9klHDe3L9v8wpogNbAaOrMSgp2RLJj7zk2wnDwsd66Nbg/
F2qsrh1vhHtdB0XLVfB5s9ZI85MbweZdSxAH+3NVP9ezrREuNX+8o6xKwZU5
dtJSqybQHe7XiFKjYPC0x9U/NjaDY3netONaCqJOHfpLR74FuvoynzjoUFB+
0qsn70UbvM5b1h63mYJ8M79OpYk2+KcyPIu2Be/H/OPFhSXP4OVg62AYdjD/
VMNJh2egoD3QxdlKgdG1lFu2Hc8gJCrez8MM52nw36ow/+ewayddydWCgu4F
chdUOC9AJr5UpsiGgi4XP72gkHaY+nXSMteVAu6AtX9qXDsYa22N1D9AwWZf
taLKy+0QxOxTfowtONmjQpa1Q+HwCPeNG34faXsUBZ/bYTOjd+lyNgX/dRjM
Nhx5BUpZ9zrzvfB/ZTfzZLlrB9yLz09bGEjBYmu+dw3qBPWQ1KCZaAoWvfK6
u2n/G+g76n4MSilQXe1fFOvRB20KphckI/g+eo62mCf3g1uheihntRhqpqJ2
vbr6Dv4JUcgZY4vB53FTU1X0EIxX2Z4vyxFD+qECJQX3/0Avwa/FaEQMOs79
3+a83kMV555sidEU9Ir2tKEdY1AmWPjg2NkpmOhbvl5x70fYPnv8zcbuKUgq
Djvs5DQOoU+nrfI3TANLTto29OpnqNWJq22On4b7nKjixKwv4L/e4rxweBpe
qaeQ9skToLT2m26Z+QyonW3XOJAuAsOcbvtT+TNgYtdnmHX1K2j+mh18dsEs
9HBizfi8SajolP1wwm8W7prsk224+A2k5u030e2YBUXHxq7C2O+wbb4l39lk
DmCAdrH2OAUJZ69XtQrmIF3RR5YVKoZBtZs7Z+ZLIDrzSPxG3ykIXSTzdI4j
gT/b0oSJnGkIflR1vbZfAqcDUj7/EjQDH26rZdRo0NAYW+PnfR6zkFSt0WN7
gIbOz44Svd5zcP2addSDKzRU8cF6/CcXCaSal+wua6Wh1+rGA5vVaKjLbLGt
iE5HPpqH9FLyaGhp7VvWkq10VOO4P9xcmY5c7W1Y6UF0ZOA8WiR/jY6Od344
yiyhI/+zVp2mKxhIJaPjVu0QHSV4S0/RUxiIb+o7l7eSgR79wpaMyjPRpP6J
5QHODPRgLo65LpGJDt6sy+UkMVBbqeUofzGBkmmFcvufMlDDam8hL5lAv6kd
THebz0Qx5Xuv9cvMQ25cB1GcORO5qrx128+fh/LH2+TTI5ho+r7eCi1SChU2
nbjSUM5Ep5jvWy9HSKHfX9is/zbORIpqJmx1GokUmF1pS3QIFBLg+FXmJImE
Hm/9N3sTaKWRZxMrnESva9rfmxwmUPXsHwKL0yTaJqV7xMSHQDJ8/rawMyQa
/SIdaOxLoMzi+kvvz5FI2Xx7qlEAgYQjGzY2ZZDo6EP/fQbBBJI/JBccW0mi
8V2O2bpxBHqw7heba1Uk2gdJPrrxBHKbWKf8qJpEIsYKA90EAhWesRJ+rSfR
gHD1Mx0ugbZkn1b0fEoix5YeFZ1EAnn0jN236MXOuW6sfYVAZJ6Y6/YviSYu
F6hrpxLopj95MGyARKuTv8prpxHo27QKeXeYREbhnlNaGQTiKrk4rRknUcUQ
71+tTALpDRzWMv1CIm1xbZ9WFoFeFZ2QOItIlFi7tV8rm0DKJhcLkr6T6Lid
eFTrOoHqaFnhN8UkkmNsEWnlEMin6eaepmkS1VtWzWrlEmhhUoXq4CyJ4njR
Mtp5BPrLqem7REKiYIf45dr5BPofFUdp9g==
           "]]}, 
         "Charting`Private`Tag$15697#2"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E(N=3)", None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 3}, {-0.5811388010428642, 2.581138801042864}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {
        HoldForm[
         Placeholder[
          Style[1, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[2, Smaller]]]}, LegendMarkers -> None, LabelStyle -> {}, 
       LegendLayout -> "Column"]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770993915987617*^9, 3.770993999801549*^9}, 
   3.770999552884017*^9, 3.770999605348612*^9, 3.77100069751611*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"09777b64-c405-4ef1-bb07-6015dd038556"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["IP & EA", "Subsection",
 CellChangeTimes->{{3.770994080666318*^9, 3.7709940807382383`*^9}, {
  3.770994228161902*^9, 
  3.770994230139043*^9}},ExpressionUUID->"5c156f20-0c25-4edf-a176-\
12c9195773f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"U", "=", "1"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "1"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], 
       ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "3"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Business\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "None"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<-I\>\"", ",", "\"\<-A\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7709940844595633`*^9, 3.770994142873001*^9}, {
   3.7709941882781363`*^9, 3.770994315766382*^9}, {3.7709943487326727`*^9, 
   3.77099434888482*^9}, {3.770995514970209*^9, 3.7709955929369164`*^9}, 
   3.770997393949993*^9, {3.770997459041751*^9, 3.7709974729486923`*^9}, {
   3.770997583405622*^9, 3.7709975929747753`*^9}, {3.7709976239363527`*^9, 
   3.7709976502859163`*^9}, {3.770997692030328*^9, 3.770997700911429*^9}, {
   3.770997750626052*^9, 3.770997829667235*^9}, {3.770998501672295*^9, 
   3.770998510654101*^9}, {3.770998573796771*^9, 3.770998630919694*^9}, 
   3.7709986867012663`*^9, {3.7709987243077097`*^9, 3.770998751502667*^9}, {
   3.770999563475136*^9, 3.77099956563883*^9}, {3.770999614198285*^9, 
   3.770999629922285*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"baae6a57-cad7-4552-84c9-22c1af1dda01"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.34398, 0.49112, 0.89936], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV13s8VNsXAPBJj0EPKgqVRElFIol7r9apVHpdlITkWVK5kV4eqUlyNSGl
[encoded data, 6527 characters]
WogvDpYOT04yKXkTOBPxSYj/A35luFQ=
         "]]},
       Annotation[#, "Charting`Private`Tag$15136#1"]& ], 
      TagBox[
       {RGBColor[0.97, 0.606, 0.081], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV13k4lF0UAHD7qBQJSVGRsadUSsUZUQmfFCEhskRatNlFltJky1Z2leyl
[encoded data, 6283 characters]
/wHGRWz4
         "]]},
       Annotation[#, "Charting`Private`Tag$15136#2"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{"\"-I\"","\"-A\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.97, 0.606, 0.081], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.97, 0.606, 0.081], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.22932000000000002`, 0.32741333333333333`, 
                    0.5995733333333334], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.34398`", ",", "0.49112`", ",", "0.89936`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.34398, 0.49112, 0.89936]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.34398, 0.49112, 0.89936], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.97, 0.606, 0.081], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6466666666666667, 0.404, 0.054000000000000006`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.97`", ",", "0.606`", ",", "0.081`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.97, 0.606, 0.081]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.97, 0.606, 0.081], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{None, None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-1., 
         FormBox[
          TagBox[
           InterpretationBox["\"-1.0\"", -1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"-0.5\"", -0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"2.5\"", 2.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox[
          TagBox[
           InterpretationBox["\"3.0\"", 3., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, {-1., -0.5, 0., 0.5, 1., 1.5, 2.}},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 3}, {-1, 2}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.34398, 0.49112, 0.89936], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV13s8VNsXAPBJj0EPKgqVRElFIol7r9apVHpdlITkWVK5kV4eqUlyNSGl
[encoded data, 6527 characters]
WogvDpYOT04yKXkTOBPxSYj/A35luFQ=
           "]]}, 
         "Charting`Private`Tag$15136#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.97, 0.606, 0.081], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV13k4lF0UAHD7qBQJSVGRsadUSsUZUQmfFCEhskRatNlFltJky1Z2leyl
[encoded data, 6283 characters]
/wHGRWz4
           "]]}, "Charting`Private`Tag$15136#2"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, {-1., -0.5, 0., 0.5, 1., 1.5, 2.}}, DisplayFunction -> 
      Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> 
      True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
      1, Axes -> {False, False}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0, 0}, BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{None, None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, 
      GridLines -> {None, Automatic}, GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {{0, 3}, {-1, 2}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.34398, 0.49112, 0.89936], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.97, 0.606, 0.081], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"-I", "-A"}, LegendMarkers -> None, 
       LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Center}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770994126486527*^9, 3.7709941433930607`*^9}, {
   3.770994195918242*^9, 3.770994215971569*^9}, {3.770994280604782*^9, 
   3.770994316481057*^9}, 3.7709943495689707`*^9, 3.770994434826562*^9, 
   3.770995295283023*^9, {3.770995516830917*^9, 3.7709955935933027`*^9}, {
   3.7709973920319653`*^9, 3.7709973945904827`*^9}, {3.770997461521933*^9, 
   3.770997473573735*^9}, {3.7709975855415993`*^9, 3.7709975935624943`*^9}, {
   3.770997624620994*^9, 3.770997650862833*^9}, {3.770997693142627*^9, 
   3.770997701602784*^9}, {3.770997752951508*^9, 3.770997830211933*^9}, {
   3.770998505072028*^9, 3.7709985111807013`*^9}, {3.7709985751914997`*^9, 
   3.77099863301335*^9}, 3.770998687327367*^9, {3.770998736284915*^9, 
   3.770998752457239*^9}, 3.770999566075974*^9, {3.770999610002269*^9, 
   3.7709996302669687`*^9}},
 CellLabel->
  "Out[140]=",ExpressionUUID->"80f2c3aa-fa68-4b72-bf34-6fba0153c91f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"U", "=", "5"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "1"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], 
       ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "3"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
          "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]v", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Business\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "None"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<-I\>\"", ",", "\"\<-A\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.77099544529874*^9, 3.770995460209011*^9}, {
   3.7709976010108*^9, 3.770997606694561*^9}, {3.77099860253683*^9, 
   3.7709986382772207`*^9}, 3.770998694212399*^9, {3.77099874319034*^9, 
   3.770998757704945*^9}, {3.7709996367644253`*^9, 3.7709996550554256`*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"d03a7fa2-4303-4809-a0a9-85fbe19fcf16"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.34398, 0.49112, 0.89936], AbsoluteThickness[3], Opacity[
        1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1nk4lN0bB3BSypJm5nlmKqQhRUha3l5J3ae0KW/biyRtU9lCEiUp7UJF
[encoded data, 6039 characters]
bzzuTwo3Ta1oyZY/eH7p/VbOuVTul7EVUzMzeH1/XSXlplTu/wA9PgXl
         "]]},
       Annotation[#, "Charting`Private`Tag$15336#1"]& ], 
      TagBox[
       {RGBColor[0.97, 0.606, 0.081], AbsoluteThickness[3], Opacity[1.], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwV13k4Fe0bB3BSaY7onDNzjmR3vLZkKa9Kae6SSFoU5W2TI1myL6moZElC
[encoded data, 5917 characters]
RR00V6VqRPf8ZYEsyykg6yABJTMyCysrLNhTaONwAeXa/wAZMjSS
         "]]},
       Annotation[#, "Charting`Private`Tag$15336#2"]& ]}, {}, {}}, InsetBox[
     TemplateBox[{"\"-I\"","\"-A\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.97, 0.606, 0.081], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.97, 0.606, 0.081], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.34398, 0.49112, 0.89936], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.22932000000000002`, 0.32741333333333333`, 
                    0.5995733333333334], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.34398`", ",", "0.49112`", ",", "0.89936`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.34398, 0.49112, 0.89936]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.34398, 0.49112, 0.89936], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.97, 0.606, 0.081], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6466666666666667, 0.404, 0.054000000000000006`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.97`", ",", "0.606`", ",", "0.081`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.97, 0.606, 0.081]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.97, 0.606, 0.081], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{None, None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox["4", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {6., 
         FormBox["6", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox["4", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {6., 
         FormBox["6", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {8., 
         FormBox["8", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {10., 
         FormBox["10", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, {-2., 0., 2., 4., 6.}},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 10}, {-2, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.34398, 0.49112, 0.89936], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV1nk4lN0bB3BSypJm5nlmKqQhRUha3l5J3ae0KW/biyRtU9lCEiUp7UJF
[encoded data, 6039 characters]
bzzuTwo3Ta1oyZY/eH7p/VbOuVTul7EVUzMzeH1/XSXlplTu/wA9PgXl
           "]]}, 
         "Charting`Private`Tag$15336#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.97, 0.606, 0.081], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwV13k4Fe0bB3BSaY7onDNzjmR3vLZkKa9Kae6SSFoU5W2TI1myL6moZElC
[encoded data, 5917 characters]
RR00V6VqRPf8ZYEsyykg6yABJTMyCysrLNhTaONwAeXa/wAZMjSS
           "]]}, 
         "Charting`Private`Tag$15336#2"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      GridLines -> {None, {-2., 0., 2., 4., 6.}}, DisplayFunction -> Identity,
       PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
      ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{None, None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, 
      GridLines -> {None, Automatic}, GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {{0, 10}, {-2, 6}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.34398, 0.49112, 0.89936], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.97, 0.606, 0.081], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"-I", "-A"}, LegendMarkers -> None, 
       LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Center}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7709976073627453`*^9, {3.770998603070098*^9, 3.77099863871589*^9}, 
   3.770998694848795*^9, {3.770998744027609*^9, 3.77099875828137*^9}, 
   3.770999655652009*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"ea4845b1-e61f-4704-a3db-19f042eb3d3b"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Correlation", "Section",
 CellChangeTimes->{{3.7709099146483183`*^9, 3.770909916939733*^9}, {
  3.77090995932276*^9, 
  3.77090996032268*^9}},ExpressionUUID->"bc463980-c48e-4957-b0e2-\
f7eed60379bf"],

Cell[CellGroupData[{

Cell["Generalities", "Subsection",
 CellChangeTimes->{{3.771000835887121*^9, 
  3.771000838424327*^9}},ExpressionUUID->"1327d8ef-169c-473d-baa5-\
57b93b1ce40f"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.771001233995432*^9, 
  3.771001266041666*^9}},ExpressionUUID->"140dfe44-96a6-4d68-afa0-\
c925c6ebd0cb"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["E", "c"], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["T", "c"], "+", 
    RowBox[{
     SubscriptBox["U", "c"], "\t", 
     SubscriptBox["T", "c"]}]}], "=", 
   RowBox[{
    RowBox[{"T", "-", 
     RowBox[{
      SubscriptBox["T", "s"], "\t", 
      SubscriptBox["U", "c"]}]}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["V", "ee"], "-", 
      RowBox[{
       SubscriptBox["E", "Hx"], "\t", 
       SubscriptBox["U", "x"]}]}], "=", 
     RowBox[{
      RowBox[{
       SubscriptBox["E", "x"], "\t", 
       SubscriptBox["E", "c"]}], "<", 
      RowBox[{"0", "\t", 
       SubscriptBox["T", "c"]}], ">", 
      RowBox[{"0", "\t", 
       SubscriptBox["U", "c"]}], "<", "0"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.770909927933982*^9, 
  3.770910010285089*^9}},ExpressionUUID->"16593550-51f7-40f1-bcf3-\
968eefc8cfb7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]n", "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SuperscriptBox["c", 
    RowBox[{"-", "2"}]], "\[Equal]", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Nu]", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7697492821883307`*^9, 3.76974929981513*^9}, {
  3.769749592277866*^9, 3.769749608405692*^9}, {3.769842070462558*^9, 
  3.769842073438758*^9}, {3.770787703634163*^9, 
  3.770787726089631*^9}},ExpressionUUID->"a54dfec2-13c5-4395-99a4-\
444f652e0d73"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"4", 
      SuperscriptBox["c", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"]}], "\[Epsilon]"], "\t", 
    
    SubscriptBox["V", "ee"]}], "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "t", " ", "u", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], "+", 
      SuperscriptBox["\[Nu]", "2"]}], ")"}], "\t", "V"}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"\[CapitalDelta]v", " ", "\[CapitalDelta]n"}], "2"], "\t", "E"}],
    "\[Equal]", 
   RowBox[{"T", "+", 
    SubscriptBox["V", "ee"], "+", "V"}]}], "=", 
  RowBox[{"F", "+", "V"}]}]], "Input",
 CellChangeTimes->{{3.770910095764132*^9, 3.770910155330636*^9}, {
  3.7710012672508307`*^9, 3.7710012937488317`*^9}, {3.7710013759923687`*^9, 
  3.771001384792694*^9}},ExpressionUUID->"ab9356f9-3b07-4988-969d-\
c8a4e5b4f1d2"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["T", "s"], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], "t", 
   SqrtBox[
    RowBox[{
     SubscriptBox["n", "1"], 
     SubscriptBox["n", "2"]}]], "\t", 
   RowBox[{
    SubscriptBox["U", "H"], "[", "\[CapitalDelta]n", "]"}]}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "2"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}], "\t", 
   RowBox[{
    SubscriptBox["E", "x"], "[", "\[CapitalDelta]n", "]"}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["U", "4"]}], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}], "\t", 
   RowBox[{
    SubscriptBox["E", "Hx"], "[", "\[CapitalDelta]n", "]"}]}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "4"], 
   RowBox[{"(", 
    RowBox[{
     SubsuperscriptBox["n", "1", "2"], "+", 
     SubsuperscriptBox["n", "2", "2"]}], ")"}]}], "\[Equal]", 
  RowBox[{
   FractionBox["U", "2"], 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7709101588211184`*^9, 3.7709101638729897`*^9}, {
   3.771001356558057*^9, 3.771001372816169*^9}, 
   3.771001502802618*^9},ExpressionUUID->"c3fcf9f5-be21-4465-b855-\
8e5084647564"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[DifferentialD]", 
       RowBox[{"F", "[", 
        SubscriptBox["n", "1"], "]"}]}], 
      RowBox[{"\[DifferentialD]", 
       SubscriptBox["n", "1"]}]], "-", 
     FractionBox["\[CapitalDelta]v", "2"]}], "\[Equal]", "0"}], "\t", 
   "\[Implies]", "\t", "\[CapitalDelta]v"}], "=", 
  RowBox[{
   RowBox[{"2", 
    FractionBox[
     RowBox[{"\[DifferentialD]", 
      RowBox[{"F", "[", 
       SubscriptBox["n", "1"], "]"}]}], 
     RowBox[{"\[DifferentialD]", 
      SubscriptBox["n", "1"]}]], "\t", 
    FractionBox[
     RowBox[{"\[DifferentialD]", "F"}], 
     RowBox[{"\[DifferentialD]", 
      SubscriptBox["n", "1"]}]]}], "=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[DifferentialD]", "\[CapitalDelta]n"}], 
      RowBox[{"\[DifferentialD]", 
       SubscriptBox["n", "1"]}]], 
     FractionBox[
      RowBox[{"\[DifferentialD]", "F"}], 
      RowBox[{"\[DifferentialD]", "\[CapitalDelta]n"}]]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], 
      FractionBox[
       RowBox[{"\[DifferentialD]", "F"}], 
       RowBox[{"\[DifferentialD]", "\[CapitalDelta]n"}]], "\t", 
      "\[CapitalDelta]v"}], "=", 
     RowBox[{
      RowBox[{"-", "4"}], 
      FractionBox[
       RowBox[{"\[DifferentialD]", 
        RowBox[{"F", "[", "\[CapitalDelta]n", "]"}]}], 
       RowBox[{"\[DifferentialD]", "\[CapitalDelta]n"}]]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7710016886172533`*^9, 3.771001690454941*^9}, {
  3.771001752464664*^9, 3.771001780711172*^9}, {3.7710027113452187`*^9, 
  3.771002743781084*^9}},ExpressionUUID->"ee0ebd02-7d71-47b4-94db-\
ddbe40e9c375"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Accurate parametrization of correlation energy", "Section",
 CellChangeTimes->{
  3.770909766021297*^9},ExpressionUUID->"8c9e7f85-86f9-4d58-8452-\
87ef6a061143"],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Good\[CloseCurlyDoubleQuote] functional", \
"Subsection",
 CellChangeTimes->{{3.7709164085350647`*^9, 
  3.770916412842567*^9}},ExpressionUUID->"980a7e6d-bd19-4600-b4cb-\
9a57b9755c59"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F0", "[", 
    RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "u", ",", "\[Rho]", ",", "a1", ",", "a2", ",", "a11", ",", "a12", ",", 
       "a21", ",", "a22", ",", "g0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"u", "=", 
       FractionBox["U", 
        RowBox[{"2", "t"}]]}], ";", "\t", 
      RowBox[{"\[Rho]", "=", 
       FractionBox[
        RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"a21", "=", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Rho]"}], ")"}], 
          RowBox[{"\[Rho]", "/", "2"}]}]]}]}], ";", "\t", 
      RowBox[{"a11", "=", 
       RowBox[{"a21", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["\[Rho]", 
           RowBox[{"-", "1"}]]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a12", "=", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Rho]"}], ")"}]}]}], ";", "\t", 
      RowBox[{"a22", "=", 
       RowBox[{"a12", "/", "2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a1", "=", 
       RowBox[{"a11", "+", 
        RowBox[{"u", " ", "a12"}]}]}], ";", "\t", 
      RowBox[{"a2", "=", 
       RowBox[{"a21", "+", 
        RowBox[{"u", " ", "a22"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"g0", "=", 
       SqrtBox[
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Rho]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[Rho]", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", 
                "a1"}]}], ")"}]}]}], ")"}]}], 
         RowBox[{"1", "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", 
           "a2"}]}]]]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "t", " ", "g0"}], "+", 
        RowBox[{"U", 
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["g0", "2"], 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["g0", "2"], "-", 
                SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
           RowBox[{"2", 
            SuperscriptBox["\[Rho]", "2"]}]}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["g0", "2"], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7709157854401903`*^9, 3.770915863893804*^9}, {
  3.7709159123747587`*^9, 3.7709161971850853`*^9}, {3.7725276750094347`*^9, 
  3.7725276758660707`*^9}, {3.772531793821724*^9, 3.7725317972681303`*^9}, {
  3.7725318395281878`*^9, 3.772531841115456*^9}, {3.772539724640749*^9, 
  3.772539726572983*^9}, {3.772539820436513*^9, 3.772539822155542*^9}, {
  3.7725398627645187`*^9, 3.7725398636032057`*^9}, {3.7725400881026773`*^9, 
  3.772540089318595*^9}, {3.772540473666128*^9, 3.7725404752012787`*^9}, {
  3.772540662789721*^9, 3.772540663569841*^9}, {3.772554222417251*^9, 
  3.772554228096797*^9}, {3.772555335178849*^9, 3.772555336038541*^9}, {
  3.772555799300026*^9, 3.772555801462119*^9}, {3.772557450967618*^9, 
  3.772557482280685*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"7f0ab1df-cb07-47ca-a7d2-742c8e63246e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"F0", "[", 
           RowBox[{"t", ",", "U", ",", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], "-", 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "U", ",", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}], ")"}]}]}], "]"}]}], "U"], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{
            FractionBox["2", "10"], ",", "1", ",", "2", ",", "5", ",", "10"}],
            "}"}]}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[\(\*SubscriptBox[\(F\), \(0\)] \((U, \
\*SubscriptBox[\(n\), \(1\)])\) - F \((U, \*SubscriptBox[\(n\), \(1\)])\)\), \
\(U\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7709162201023808`*^9, 3.770916250004098*^9}, {
  3.770917532295856*^9, 3.770917591931628*^9}},
 CellLabel->
  "In[325]:=",ExpressionUUID->"0d8d5a1d-a624-4e5a-a88f-2a5139b32b34"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwt1nlYTG8bB/CRkAptkoSiEtqQUubcM22E6tdKRYkWVJQkbTQpSXtKhTZt
[encoded data, 7503 characters]
VxNyotwR00648nM4vaMXOf1slngn/A8UDWRn
          "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQzdBvNtn18Wt7hgbuopcfLttpO7L/S9v9xp6B4VEs
r/MFuw2rVqvfOADkH3g2aZrmBTsTkYBAz2NAvoN5OI/ABTub5zOWaF8E8huM
ttXsPG/n16vl/eEZiM8n1vLqnF3RTd8ZlUJvgfwj0965nrXbWTjFqCcTxL/2
MOTpSTv3RYrpG8XfAfnlTTWPDtmZzOBTOyYD5DO8loxce8hOoe/3k1uKIPni
SoOKQ3a/Kq8mseiA5JetvMh7yG5tYGdcuAOIb7XpjcVBO2HGj6F/M0D8XJX/
svvt7scfcPHcBeL719jX7rA7E7qWOW4/iC+edEN4h90O71mHio6A+BMielZt
t5tkXuIw5xyIb3rW68Y2O1d+DZv3j0D8bVfdTbfard7XbzyV+z2Q77yq9ttG
u3LZeKWHMSB+goKS43K7pACDsDuJIH5b9c66ZXZ+zYxd19NAfJ9nz/YstVN7
ufjj2QIQ/1iksPUSuytbXhzY1QLir/utbL/QzsCnKH7KGhB/irvqlWl2MvXO
k/s3gvg8EnppU+3YN4kc79oG4n9I/vtzst098e16jQdA/CXSauoT7Xoe//6b
ewXEF2DYYNRu96KqdY77HxCfYX5Ekp9dj9xphyP/wfwD2uZ8dgBLGOPb
          "]], 
         LineBox[{{1.9999313164611916`, -2.761679773755077*^-14}, {
          1.9999999591836735`, -5.195843755245733*^-13}}]},
        Annotation[#, "Charting`Private`Tag$36295#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwt1nc8Vu//B/CbZERlK0kqIyV8CJHzPkb2KKFo6FYkJIlkuyWjkL2KkJFE
[encoded data, 4758 characters]
bzrDiD+rXgzfzDFE7/fNZjptwskrOrkLCcgv9Vavbsb/D4Di7m0=
          "]], 
         LineBox[CompressedData["
1:eJwV1XlcjN0XAPBpod52SZtQWpR2StvMnKm3lYlKqKRCi6KkTahfUwbti3hN
VKJoxaAyEo0albQhEakotGlREpLfef54PvP5fs597jnn3ufeUdl32MWPn0Qi
NeBD/Pqvm0x8Vd4LJFpgVw1nCey/tGabST2aoWSjKbkUMk36vih2o7ljv994
LoWRw7sVPv4h4nFBDb+WQu7AjphQx/cYf5A8TBMGvvrNVmnjaIbN/7p/iIC8
VJlE3ByaJF+4SV0U9Lz+eRdK6kOHRr9wEQWPX03hrjKExxYf3hSFyg0211aS
0dz9fEGBYuBfCMJlKWja1VnLUXFoZRq1N67vB9KApFBJmhSYSz7jzzImnLYt
sUwKSnL2muymoRkdBzKapODkzfSCyR1oEjVZmn8ZmL8ZDpOPJ+JJXyejl0GJ
dp5c0Gs0V015bYg0WI0ksJdaDWC+fG2TozJwTK+95aAdmvE3XCdHBtjhCp86
6egBjgP9gQysXrylcGkX2ocrLkZaAT+l3yfoB6O5lwUzUlYAm2yyw41FOCG3
pkwW1mSO/SydQBf80+4togCP9saV3plBK9fwjPQVwGvjcvcH84TvnjN0VYDc
bnNOK/8HzB8uUpivAPKrkqMmZdHcUocAY0WQLtOcMQIiLnqIGbQSlvD8xusy
CJvZJcysgrEf/X2vDD4CKdNi3e3HKlAdkFG/eRO6uTWF/k4FGK+p1+ss0MNN
K/m+q4DsvbzgUlt0SVJjleZasIravRDjSYzPjnLMWgsXZ7sV1BLRBzJ/bgpQ
BfvpNtewfvSbwfAxdXUoGn3QIpE+iPmZd2u+akLIhW2qQdlo0if6jJgWmFgP
nnjCQvukX7XS0YKWPBHdmEI054qV+kEtmHZyzxjhoNmk+PkRLaDem9vOGyTm
O6XUNLYeek4avj9mNoT1ZX8+8lcHJFYVTw4NoQ8NFzLZBpAaWOVfoPYZSFO8
slhJY5ijlQ8diPuC9VLGZTvMoLZo7NJRJpoupD3RbwYJwjrbTycRXh1fM2UG
Ep0Vjwuz0aTNBYbS5qDhfTO/rxgtxenOdjWHnbG33Vw70dZa+fPd5lB1/14r
qAwDSSfY/H6nBRxfNX9yqwaaVrSiud8CaPGmFnu00dZ6X3kTFtBqf7/0uDF6
PjL3jBgZhl7XnK5yQLs+IK+3I4PM3EOadhg6WqT+BocMERt4lbINaHJUx1gy
BfyNlAuymtGs+gYbFgXcNsWkiLWjEzli8dcoYGFutI+/B53banmxjgL8VkWS
ExNoN9Nbjt8okOHMDHqiOAIk36LUg85UYGwf2EFTRnPFK257UiFsB9nygTq6
gnPxZQAVdrrPyt02QJvGxpbGUkFpr++TXFu0snFkdjEVykKtlSPC0LXK/0nN
UiE3rEB08ihap3vNyAIV0iIW5gJj0fS5xgtLAEKjK9u8E9HNWn8iZQFMGGon
tuSjhS/OaG8C0Exg+DcWEvljtpdTABSZvc6WpejouxN/rAEWz5zTNKlEd7n7
rdwOwMsQ7F7bQvTTukk3GKA6y+dxXgea9NSVHA5Qkl1bIf8KvXC5ZeUxgJQL
ESclBtBTWfTNTICYnM6QpE9E/5oFrCSAkEs6HoJjaIP/3lalA7hcHjL49Z3o
51b2bhaA9RWaUuRvdMlhj8FcAOPCXKEp0ih+/0Ys0ysA8sWufZ9E0eeURDaX
AoiUsp/6LEMzjc8suQGwUCZW9U4WHWEtnsYG6L/JS3mugqY9alqsBuj8Kji+
YR0xn7fuu/sAXB0b+jkdtNTiamYtAPvgqYrvhujm77Y/HwEUlD0R22WCPvRi
m/ljgMyRJcEcMlrQaci2ASBe07ZNwQo9u+fW6icAYQGndU/Yoa1VPB83Auy7
3pjWS0cPzJ3Xa8Z+Py2doLgQ8Shh/6cA/6rZbb28C80O9w5oATDaf+YmaQ9R
j4DdhmcAalebJPbtQ48fO9iIlvkgdLghgOg/7JhqK8ASZfsOtWC0QfsqB/Sc
V6L+6TA0794SE/TnvOaML0fRrtf7xvH97l7hKftYdK/3ziB000oHp7IEtNqC
4i3Mz/FIYosmors+v63B+kpynkoFpxHr8dE6DetnvfnnSPtZdKKYsEYTQJLc
5uf6LLTS+5dM7P/4zmTDrDx0q45bKa5P0PmWrG9X0fPGNtm4fh5dIt+2lxD5
L2yxqgPYsnyLS9UNdKa7UjWuP9kl5Y7sXfTQ+IEJ3B+drGfS0Ry0qeHgKO6f
UqdoeM9DIn8UpfwugJgk/aV5A1E/Y70+7vfX1NbsP23oBctkRglA3zOxWa+X
6Nr3vo5FAO0ijq7cN2gZ0au9lwFuJrbJnBwk5g9SsPwPIL9JPHJoGF1xvm5F
FkDG0q2vbCaIOL2gPAXPF7P9vPBPYn19JhUYAD4NEnOBi2jGxvZp/P6d+bft
fCYwhvsR35yE52MDo0M2XQLdLP9j3g9g9kTnheVq6AV2ZasdwFCN1HyEFjrz
+mAeALz66eTWrYeWUZXQNcHzdvS5fI4ZurLFhakOEB3+Imf1NsK2bMm/VDhw
R/pXnCu6d/7ZU7wf3KddPD64o+cNp2GUCuaHXyoW+aLdAkO8u6jwO6jrktZx
tJPvX99rVHDdtCdLLw4tXFjVmUOFCr7Ppzcy0WqcJ3/TqODF+nGEko5WukAv
jqTC4yeK9s5X0aYz6XJWVFDMKqTsLEZP1ZbkGOH95qmzcXcFOtH543sNKqjN
UFb7VaN5dzQqRKhwRnnvbHQLOuYaeHZQYGBsZCS2A+1zOm8M71PTe2H9CV3o
2kYZMpsCo47MltQ+NKupd00mBRxPFBcUfEN7yg5N0imwvPsrvVlxHM/zR0Ze
DRkOXYmyaluDptstbigmA+/QX5MXaujMXvPEbDJECSxT7dVDK5nVHTlIhh4D
o5+TVmha3QuQJ8PllOPX5A6iK1IG6/0sQNtSaNH/AZon2Hmi0wzYZeXr3nDR
bPOWyjtmYCTj5OzQiO7q1Sk8ZwbkL6wi7edEfKS+YJcZbE1bv2XqMzp1f4fq
W1MI63FkHZP+iuvLKoh8bgL3j5zbkBqIjv4hpJFiDNR3pp5/QtBGzh8YvsZQ
b/3+VEgE2vSb90WKMbTIafQ4xaGdXquKThpB78N7cSvOo7luDtNbjYAk8q41
n4se4gjYCmwEu6sqAbflJvB+Wjh+wMoAjFgSGo1KaF71Cq6cASin/x56q4K2
D7jwoUcffh17tU9QB91Z0cbV1Ycbzkleu2jo0D5VxRe6sJxvesefA+g3MXdZ
EtrQ7821dqhBa7p06e5Xh9YdNwS86tADv0UChNSBs+VifRgPzRL0TStXg7Mm
EbTcdrRP3PeyGVWwkdQkT34k8teKh5xcC+WPMjaeF53E/jY7VduugaOrvNd+
8EQz7OcDZ5bDPieDnb17ifiXledtlsPWk3zJr/0niflee7GkQWOkcLotFF0g
uX4KlkFX5TC3hknEBx5LGoiDAT3M+1wFeqD+jOUoPyjF/ZudcXuS+H8abSvn
A6E7Mk3J1Wiagp9AKAn65O7pxXOJ/Ff0R/kWqKmDv/8Ed6FJygnjZ79Ro2Xb
DAN7iPEbAzMcpqj7HfL9fPuI8TcsFZaNU81v0do8honx4oFXrAepw8dP5dot
EO7NbQqqpqaufkbj/SXMnde6Hkn9P8uteHM=
          "]], 
         LineBox[{{1.9999999442449619`, 3.302767621881334*^-12}, {
          1.9999999591836735`, 3.3041347435869284`*^-12}}]},
        Annotation[#, "Charting`Private`Tag$36295#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwl0Hk8VPsbB/BJQvhlylK5LRRKISFcfJ8zmiiRQkKFSXYKkSzJ2EVK9mpE
jLT5EXfsw3QNKtItSlQSLcNFU1q00HW+/jivc96v5/M8z/d8ld0CbD1EKBTK
1dmHfO/0EDzijXjA7CelcG0jtz4kWdRh0IAYiigK3dNdyn2mOZofHmRG6PNO
nCzvLeBK2GrXc6YdiCK99fL7hyK4lg96K/OXuxNkPyXsT66HyuHCbc2eRAV7
AdvKW4pb9zT82Ykuf2Lqk44pI34BdzS+h38oJ2guTxNHFQbTOr8UQgjXtIud
63oQ4tMVa1pYoXN15kouPe/BQbcHYcT2Alt3+cM0xBJhXFctjpyrv9iNZKyN
3FMSogiG5Gw8fA8KWcyMG/OKJgT/ln7+6OeAJt2n5g8rxBD9d2mC68luyFw0
ddeUWBwh7FaXURMJRAr6SfS05fGEuepsPy0Y3d1N14lYkkAExU/6WsiGo50y
N0yaWIlz+6RikQkj8KbXYCLxmyEy0SAZh8zf1w9+WH2a+CNxZilfNQ35u7hU
Jh1KwXmefwYqK7D+ESabSny/eqOm43UWcn3iPkyNSyM6l96zOvDlMnJs7Qu1
uHaWaG00lt4QWYTcpORS62LPEQrGWstdJ9no8bgr7/nedCLMKGlBe8s1FFqu
nWn5JZ0I7I5qNwssQ5riRG1X13mide2bSz6xlcj+z65gnk0G8UiBQzsgwUGj
JdyFn3oz8HkYEzWo1VlsR1NYJrZhTwPqSM5orurLJPpiNQ2jA5tQbU6bqCoj
ixD3k/p8RO0O2pcwKLL2QDbOixq0Iqqh3iGOeA7R0zu8Syf0LpL+EhTdwMrB
dWpiB3p/q56bhHLn7kv7IbJQORco1ZhLbDbOlRVufIT2m4XvvSyXR/Dvd08a
ODxG/bnxO6KdLxDhzAmfti29yO7My+pa3gXcn979DPHdTezXTl8g1ruVR1e9
7UMLfx3VtRG5hOth/AH0pqomaGXxnO1lXqNmP0rFCJ2FnTUwhC6utZjgvJmz
bvcbZP+09Yd1Zj7h1GndrKD3Htlk9vtaq13G9Xq9ERS/jpGrVnGZUBlcaa1r
+S+SmO///p1XAa5/pU2gY879GU6ihXP/myREniuerJZDhUT8VJuJXPZHpDba
oFNxq5BQdjkmnd0+iYyCtgtTv+A8M932C5JXT9dyzLmC+39QvyPDyA7xdcNX
iJm9bKqv2E8kHHzmr2JQhPNiltOoI0/5prB3ztkL5kHtZ7P7+9YXk+Yl7RGB
ezZJu5afKCZas2vMNpbOBxEHq+K/NNmEGfPIiWJpcXhW5Xi2PphNFCZR4xRD
JOBxQsDI83Y23s8xlgSV+Ro3tUJL8DwrtAg6TSWlHR9gU0L1qHCcKfCPUbmK
TXNaDG3TbK2ex9gMwSNZCDCJOzetXorP91tNHpZFHhKqxWBT9NMUwGdqZWX4
pms4P3JuOSwx+LWkOBGbF675B9Qf7w/ufIlNaRpYAdKTOVtWn7mO54USSsDZ
fDxnxzB2xRkDZXAJtPsWZHQDz+s0WgPl4zJ1fAE2U8ldBRw1JpZPEDfxvJEU
VaD4dUYszcUe3NakBraCZBNfs1uk05Ws1OGnmld+Jgu74nDpBmB7mM00TmJT
qqka8GVoHk+mqAzvU5PZBHkvI+icmf+TNjQe1gHTFU7sAfty0nfbu3RhdL/B
AokybKpEix6sGgs/XKZZgR3Zpg/HpEZktzphL1v71ADaNjjyn8ZjT7l9MIQA
H31Vygvs9fmEMfCTS55kid8mLVxywgSWXZNLVNfF1parQ8B79+mdbQq21bAW
DZa4l18rMawk3RixjA6ecaucjNyxA+cN0aGhKG3hw3Nz7ru9Ddxf+/lOvcOW
W+RhDhyX9RqW2VX4vMkrd4LkqdwXr3jY/AsrLcElXywtZAxbQk3VCsRevBnP
p/+F73OXpTU4Ol0pF37E1lI+aQMfnu+VLFLkkPZOWWwLiS4SHnZ07K6WG7ZQ
dThAsToLO0QosINFR1FCpEE16QzVnH1QIhS+0mBgM6WtHMAkmG00kIz9zz4x
R/ANkxLS+rEPuiU7QWts336xqBrSelH8g3BwQRqnpgT7K7vAGT4l0ag+XdgV
D6NdQCmttLVjdS3O31nHgJO5x7XP/419Zv9SN9C5tVhshUQ9aYWRaE+4p9XK
eKCNTeUqegHjdljDKSfsx+21XpBW/Srw9Q3s05Uz3iDglT2/uquBdBWq8oNo
+iF9x1DsNDUff1Bokzu/sAB76uaaI0DviDT3F2J/u1N4FC4/sbi9ObNx1kw7
y7eBsMVxWmq4AXskYHcQdPZXeGa9wW640BAE318tXfFtC5f0GsWLx2Dv6NvE
xmfYoRcDQ0Dqd8zB7auayfkbjVPCIM/HwUXDHHuet3w4qPRoMBYfxdb8VRQO
cL338HMuaWZIeGsE1F3P4dRo8Ui7l66PAoprjP6NraQp/WPtUWAu51/D2oct
7PM5Bd2nTOtiTmGXd3KiYdxurNGyizQvNsYgBvQW9iIYwpY2yoiBiKY7Tdpf
cX7AeyIGxNVzefKr7pD2NL4ZC8ozpvxXR0gzs3UN4sH+Wm5H8P/+njXtQxor
CVjOsVaeyqQp3D5qMgwtOfLAcQtpnowgMRkCorY+RM7YlYyw03DadvyxeBnu
P2YXlArcX1v7L1m1kPOdxpvPgWil5oGzDNK0U0fV02Gn17IXzBDSSoJPwenQ
+2j8pQeLNENZU/o8fLya93rTGGlKZp1FBqjaTAhaUvlk3rvvZxYoRm838rpC
mmGxzzUbqGWFqZI12Lss+NnwQ8JOy2aINDO4KCMH/uHVBA8Yts660DvPNA8i
tGNmpt6S5iX4jF2CAJf+3ayfpJWsbHxY4H5G9wqxuI3sN//6ngW7BW/piSak
GT0po/mgUrjztGwm6cB3lSKF0CUjJ6dFa5/1Hs/VlkXQgo54PLInzbjIziuC
Wr+26hA/0tRG7fdFUNwe5tSQQ5qX6p1UDGHRLy/vGCdNWVjcw4ZUzfuUVxvu
kv2+wZ0l8B86vSRX
          "]], LineBox[CompressedData["
1:eJwd2Hk0VXsbB/CDVG8kV8ZQSFRUQkj5PSezIuPZFFdCrqHBxZVCFMkt0oAo
[encoded data, 5856 characters]
9OZr/hgZPn85Tm9xkv5/RqvU7BMJ21jDLPtFW83mQVYU+T/Kn/VU
          "]], 
         LineBox[{{1.9999999442449619`, -2.5598782492281567`*^-11}, {
          1.9999999591836735`, -2.5610291665145724`*^-11}}]},
        Annotation[#, "Charting`Private`Tag$36295#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 2.1553235640681124`*^-9}, {
          0.00036432384925595316`, 9.201350792409358*^-12}, {
          0.00036432384925595316`, 9.201350792409358*^-12}}], 
         LineBox[CompressedData["
1:eJwlmHc8le8fxo8WIYRCUZREhMyI+2OrUMY5RUa2jFJIpBIhldGQVUoZoRTp
[encoded data, 7991 characters]
7EyZQWG76tQq1maJ30uUH8ako/8BxsJbRA==
          "]], 
         LineBox[{{0.004330457838550809, 1.27631238910908*^-12}, {
          0.005417489561734625, 1.3766765505351941`*^-12}}], 
         LineBox[{{0.0015835426096924678`, 6.09823302966106*^-12}, {
          0.002498553563646729, 1.0546230555519288`*^-12}}], 
         LineBox[{{0.03181270162585182, 2.5073667586639205`*^-10}, {
          0.031929751872294194`, 2.543092847417938*^-10}}], 
         LineBox[{{0.026350109211944337`, 1.234884329457035*^-10}, {
          0.02760281693199906, 1.470448651730294*^-10}, {
          0.028216211956791783`, 1.5981367340600628`*^-10}, {
          0.02843341809898209, 1.6463470586813856`*^-10}}], 
         LineBox[{{0.03557391585864753, 3.803071635388733*^-10}, {
          0.03680374230388991, 4.3144954275931013`*^-10}, {
          0.037417137328682626`, 4.5873456144818193`*^-10}, {
          0.037417137328682626`, 4.5873456144818193`*^-10}}], 
         LineBox[{{0.020535767660489486`, 4.7475623432546857`*^-11}, {
          0.020876025547010978`, 5.06242159303838*^-11}}], 
         LineBox[{{0.010452116315053678`, 2.142286348316702*^-12}, {
          0.011449102014118605`, 4.955502674874879*^-12}}], 
         LineBox[{{0.03060659187613595, 2.1691786145083826`*^-10}, {
          0.03060659187613595, 2.1691786145083826`*^-10}}], 
         LineBox[{{0.02215153575109261, 6.374243355367071*^-11}, {
          0.02262798561728977, 6.938467975475815*^-11}, {0.02330905175845, 
          7.745004637627062*^-11}, {0.024392215195720882`, 
          9.205258777456038*^-11}}], 
         LineBox[{{0.03320526207637583, 2.942568855246464*^-10}, {
          0.0342984056545659, 3.32036087513643*^-10}}], 
         LineBox[{{0.007984504445927354, 1.238560603304934*^-12}, {
          0.00918978315958251, 2.070876803372812*^-12}, {0.00918978315958251, 
          2.070876803372812*^-12}}], 
         LineBox[{{0.02514923683282817, 1.0326903776558539`*^-10}, {
          0.02514923683282817, 1.0326903776558539`*^-10}}], 
         LineBox[{{0.015047899850261759`, 1.425526363618701*^-11}, {
          0.01526052786580041, 1.4573634074569594`*^-11}}], 
         LineBox[{{0.012881336336973713`, 7.266720558618545*^-12}, {
          0.012881336336973713`, 7.266720558618545*^-12}}], 
         LineBox[{{0.0066929997658162575`, 1.2846612662542612`*^-12}, {
          0.006747386089046483, 6.018296971888049*^-13}}], 
         LineBox[{{0.016561706485730052`, 2.0660628763380376`*^-11}, {
          0.016561706485730052`, 2.0660628763380376`*^-11}}], 
         LineBox[{{0.018527738344276564`, 3.178701746264778*^-11}, {
          0.019260257456407852`, 3.7268854669036955`*^-11}}], 
         LineBox[{{1.9999999442449619`, 2.1543562990901084`*^-9}, {
          1.9999999591836735`, 2.155316636276439*^-9}}]},
        Annotation[#, "Charting`Private`Tag$36295#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwllXdYjm0YxhtGkqShIRQV0aK09F73+1aIysynSGjSUIoi0iBCCSWVUGmp
[encoded data, 7686 characters]
Bu8NJfT8RZwv+Ctqfl0i/A/LsD8a
          "]], 
         LineBox[{{0.016663711974803617`, 1.1214495998501663`*^-11}, {
          0.019628681609693666`, 2.006679267196887*^-11}, {
          0.020242076634486388`, 2.0731150129904564`*^-11}, {
          0.02085547165927911, 2.2561330581538644`*^-11}, {
          0.021468866684071834`, 2.6814639397798603`*^-11}, {
          0.022082261708864556`, 2.7337421215634095`*^-11}, {
          0.02269565673365728, 3.239790657971753*^-11}, {0.02269565673365728, 
          3.239790657971753*^-11}}], 
         LineBox[{{0.011933100943280614`, 2.5787372237573437`*^-12}, {
          0.012584132174439358`, 4.0028425019045246`*^-12}}], 
         LineBox[{{0.011041151262595545`, -1.4285461702456815`*^-12}, {
          0.011041151262595545`, -1.4285461702456815`*^-12}}], 
         LineBox[{{0.004929362547335268, -4.237143969021418*^-12}, {
          0.00613399106425376, -5.1338489015506645`*^-12}, {
          0.006747386089046483, -5.947775605363859*^-12}, {
          0.0070541304580072385`, 2.6263435870532703`*^-12}}], 
         LineBox[{{0.0030108407854104445`, 7.595879480959412*^-12}, {
          0.0036538523432536356`, 3.2130920146755674`*^-11}}], 
         LineBox[{{0.00012281403876088337`, -4.240842343961049*^-10}, {
          0.0015077563834993003`, 1.9301715781239182`*^-10}}], 
         LineBox[{{0.015334916436144605`, 8.774314608217537*^-12}, {
          0.01567413667554514, 8.170886189873272*^-12}}], 
         LineBox[{{0.007974176138631928, 1.1036505043193757`*^-12}, {
          0.007974176138631928, 1.1036505043193757`*^-12}}], 
         LineBox[{{0.024306314482584017`, 3.141913396120799*^-11}, {
          0.024306314482584017`, 3.141913396120799*^-11}}], 
         LineBox[{{0.009733703800962903, 2.5039526008185933`*^-12}, {
          0.009733703800962903, 2.5039526008185933`*^-12}}]},
        Annotation[#, 
         "Charting`Private`Tag$36295#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.99}], ImageScaled[{1, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*FractionBox[\\(\\*SubscriptBox[\\(F\\), \\(0\\)] \\((U, \
\\*SubscriptBox[\\(n\\), \\(1\\)])\\) - F \\((U, \\*SubscriptBox[\\(n\\), \
\\(1\\)])\\)\\), \\(U\\)]\\)\"", TraditionalForm], None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00025, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00025\"", 0.00025, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.0005, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00050\"", 0.0005, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00075, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00075\"", 0.00075, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.001, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00100\"", 0.001, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00125, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00125\"", 0.00125, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{All, All},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwt1nlYTG8bB/CRkAptkoSiEtqQUubcM22E6tdKRYkWVJQkbTQpSXtKhTZt
[encoded data, 7503 characters]
VxNyotwR00648nM4vaMXOf1slngn/A8UDWRn
           "]], 
          Line[CompressedData["
1:eJxTTMoPSmViYGBQAGIQzdBvNtn18Wt7hgbuopcfLttpO7L/S9v9xp6B4VEs
r/MFuw2rVqvfOADkH3g2aZrmBTsTkYBAz2NAvoN5OI/ABTub5zOWaF8E8huM
ttXsPG/n16vl/eEZiM8n1vLqnF3RTd8ZlUJvgfwj0965nrXbWTjFqCcTxL/2
MOTpSTv3RYrpG8XfAfnlTTWPDtmZzOBTOyYD5DO8loxce8hOoe/3k1uKIPni
SoOKQ3a/Kq8mseiA5JetvMh7yG5tYGdcuAOIb7XpjcVBO2HGj6F/M0D8XJX/
svvt7scfcPHcBeL719jX7rA7E7qWOW4/iC+edEN4h90O71mHio6A+BMielZt
t5tkXuIw5xyIb3rW68Y2O1d+DZv3j0D8bVfdTbfard7XbzyV+z2Q77yq9ttG
u3LZeKWHMSB+goKS43K7pACDsDuJIH5b9c66ZXZ+zYxd19NAfJ9nz/YstVN7
ufjj2QIQ/1iksPUSuytbXhzY1QLir/utbL/QzsCnKH7KGhB/irvqlWl2MvXO
k/s3gvg8EnppU+3YN4kc79oG4n9I/vtzst098e16jQdA/CXSauoT7Xoe//6b
ewXEF2DYYNRu96KqdY77HxCfYX5Ekp9dj9xphyP/wfwD2uZ8dgBLGOPb
           "]], 
          
          Line[{{1.9999313164611916`, -2.761679773755077*^-14}, {
           1.9999999591836735`, -5.195843755245733*^-13}}]}, 
         "Charting`Private`Tag$36295#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwt1nc8Vu//B/CbZERlK0kqIyV8CJHzPkb2KKFo6FYkJIlkuyWjkL2KkJFE
[encoded data, 4758 characters]
bzrDiD+rXgzfzDFE7/fNZjptwskrOrkLCcgv9Vavbsb/D4Di7m0=
           "]], 
          Line[CompressedData["
1:eJwV1XlcjN0XAPBpod52SZtQWpR2StvMnKm3lYlKqKRCi6KkTahfUwbti3hN
VKJoxaAyEo0albQhEakotGlREpLfef54PvP5fs597jnn3ufeUdl32MWPn0Qi
NeBD/Pqvm0x8Vd4LJFpgVw1nCey/tGabST2aoWSjKbkUMk36vih2o7ljv994
LoWRw7sVPv4h4nFBDb+WQu7AjphQx/cYf5A8TBMGvvrNVmnjaIbN/7p/iIC8
VJlE3ByaJF+4SV0U9Lz+eRdK6kOHRr9wEQWPX03hrjKExxYf3hSFyg0211aS
0dz9fEGBYuBfCMJlKWja1VnLUXFoZRq1N67vB9KApFBJmhSYSz7jzzImnLYt
sUwKSnL2muymoRkdBzKapODkzfSCyR1oEjVZmn8ZmL8ZDpOPJ+JJXyejl0GJ
dp5c0Gs0V015bYg0WI0ksJdaDWC+fG2TozJwTK+95aAdmvE3XCdHBtjhCp86
6egBjgP9gQysXrylcGkX2ocrLkZaAT+l3yfoB6O5lwUzUlYAm2yyw41FOCG3
pkwW1mSO/SydQBf80+4togCP9saV3plBK9fwjPQVwGvjcvcH84TvnjN0VYDc
bnNOK/8HzB8uUpivAPKrkqMmZdHcUocAY0WQLtOcMQIiLnqIGbQSlvD8xusy
CJvZJcysgrEf/X2vDD4CKdNi3e3HKlAdkFG/eRO6uTWF/k4FGK+p1+ss0MNN
K/m+q4DsvbzgUlt0SVJjleZasIravRDjSYzPjnLMWgsXZ7sV1BLRBzJ/bgpQ
BfvpNtewfvSbwfAxdXUoGn3QIpE+iPmZd2u+akLIhW2qQdlo0if6jJgWmFgP
nnjCQvukX7XS0YKWPBHdmEI054qV+kEtmHZyzxjhoNmk+PkRLaDem9vOGyTm
O6XUNLYeek4avj9mNoT1ZX8+8lcHJFYVTw4NoQ8NFzLZBpAaWOVfoPYZSFO8
slhJY5ijlQ8diPuC9VLGZTvMoLZo7NJRJpoupD3RbwYJwjrbTycRXh1fM2UG
Ep0Vjwuz0aTNBYbS5qDhfTO/rxgtxenOdjWHnbG33Vw70dZa+fPd5lB1/14r
qAwDSSfY/H6nBRxfNX9yqwaaVrSiud8CaPGmFnu00dZ6X3kTFtBqf7/0uDF6
PjL3jBgZhl7XnK5yQLs+IK+3I4PM3EOadhg6WqT+BocMERt4lbINaHJUx1gy
BfyNlAuymtGs+gYbFgXcNsWkiLWjEzli8dcoYGFutI+/B53banmxjgL8VkWS
ExNoN9Nbjt8okOHMDHqiOAIk36LUg85UYGwf2EFTRnPFK257UiFsB9nygTq6
gnPxZQAVdrrPyt02QJvGxpbGUkFpr++TXFu0snFkdjEVykKtlSPC0LXK/0nN
UiE3rEB08ihap3vNyAIV0iIW5gJj0fS5xgtLAEKjK9u8E9HNWn8iZQFMGGon
tuSjhS/OaG8C0Exg+DcWEvljtpdTABSZvc6WpejouxN/rAEWz5zTNKlEd7n7
rdwOwMsQ7F7bQvTTukk3GKA6y+dxXgea9NSVHA5Qkl1bIf8KvXC5ZeUxgJQL
ESclBtBTWfTNTICYnM6QpE9E/5oFrCSAkEs6HoJjaIP/3lalA7hcHjL49Z3o
51b2bhaA9RWaUuRvdMlhj8FcAOPCXKEp0ih+/0Ys0ysA8sWufZ9E0eeURDaX
AoiUsp/6LEMzjc8suQGwUCZW9U4WHWEtnsYG6L/JS3mugqY9alqsBuj8Kji+
YR0xn7fuu/sAXB0b+jkdtNTiamYtAPvgqYrvhujm77Y/HwEUlD0R22WCPvRi
m/ljgMyRJcEcMlrQaci2ASBe07ZNwQo9u+fW6icAYQGndU/Yoa1VPB83Auy7
3pjWS0cPzJ3Xa8Z+Py2doLgQ8Shh/6cA/6rZbb28C80O9w5oATDaf+YmaQ9R
j4DdhmcAalebJPbtQ48fO9iIlvkgdLghgOg/7JhqK8ASZfsOtWC0QfsqB/Sc
V6L+6TA0794SE/TnvOaML0fRrtf7xvH97l7hKftYdK/3ziB000oHp7IEtNqC
4i3Mz/FIYosmors+v63B+kpynkoFpxHr8dE6DetnvfnnSPtZdKKYsEYTQJLc
5uf6LLTS+5dM7P/4zmTDrDx0q45bKa5P0PmWrG9X0fPGNtm4fh5dIt+2lxD5
L2yxqgPYsnyLS9UNdKa7UjWuP9kl5Y7sXfTQ+IEJ3B+drGfS0Ry0qeHgKO6f
UqdoeM9DIn8UpfwugJgk/aV5A1E/Y70+7vfX1NbsP23oBctkRglA3zOxWa+X
6Nr3vo5FAO0ijq7cN2gZ0au9lwFuJrbJnBwk5g9SsPwPIL9JPHJoGF1xvm5F
FkDG0q2vbCaIOL2gPAXPF7P9vPBPYn19JhUYAD4NEnOBi2jGxvZp/P6d+bft
fCYwhvsR35yE52MDo0M2XQLdLP9j3g9g9kTnheVq6AV2ZasdwFCN1HyEFjrz
+mAeALz66eTWrYeWUZXQNcHzdvS5fI4ZurLFhakOEB3+Imf1NsK2bMm/VDhw
R/pXnCu6d/7ZU7wf3KddPD64o+cNp2GUCuaHXyoW+aLdAkO8u6jwO6jrktZx
tJPvX99rVHDdtCdLLw4tXFjVmUOFCr7Ppzcy0WqcJ3/TqODF+nGEko5WukAv
jqTC4yeK9s5X0aYz6XJWVFDMKqTsLEZP1ZbkGOH95qmzcXcFOtH543sNKqjN
UFb7VaN5dzQqRKhwRnnvbHQLOuYaeHZQYGBsZCS2A+1zOm8M71PTe2H9CV3o
2kYZMpsCo47MltQ+NKupd00mBRxPFBcUfEN7yg5N0imwvPsrvVlxHM/zR0Ze
DRkOXYmyaluDptstbigmA+/QX5MXaujMXvPEbDJECSxT7dVDK5nVHTlIhh4D
o5+TVmha3QuQJ8PllOPX5A6iK1IG6/0sQNtSaNH/AZon2Hmi0wzYZeXr3nDR
bPOWyjtmYCTj5OzQiO7q1Sk8ZwbkL6wi7edEfKS+YJcZbE1bv2XqMzp1f4fq
W1MI63FkHZP+iuvLKoh8bgL3j5zbkBqIjv4hpJFiDNR3pp5/QtBGzh8YvsZQ
b/3+VEgE2vSb90WKMbTIafQ4xaGdXquKThpB78N7cSvOo7luDtNbjYAk8q41
n4se4gjYCmwEu6sqAbflJvB+Wjh+wMoAjFgSGo1KaF71Cq6cASin/x56q4K2
D7jwoUcffh17tU9QB91Z0cbV1Ycbzkleu2jo0D5VxRe6sJxvesefA+g3MXdZ
EtrQ7821dqhBa7p06e5Xh9YdNwS86tADv0UChNSBs+VifRgPzRL0TStXg7Mm
EbTcdrRP3PeyGVWwkdQkT34k8teKh5xcC+WPMjaeF53E/jY7VduugaOrvNd+
8EQz7OcDZ5bDPieDnb17ifiXledtlsPWk3zJr/0niflee7GkQWOkcLotFF0g
uX4KlkFX5TC3hknEBx5LGoiDAT3M+1wFeqD+jOUoPyjF/ZudcXuS+H8abSvn
A6E7Mk3J1Wiagp9AKAn65O7pxXOJ/Ff0R/kWqKmDv/8Ed6FJygnjZ79Ro2Xb
DAN7iPEbAzMcpqj7HfL9fPuI8TcsFZaNU81v0do8honx4oFXrAepw8dP5dot
EO7NbQqqpqaufkbj/SXMnde6Hkn9P8uteHM=
           "]], 
          
          Line[{{1.9999999442449619`, 3.302767621881334*^-12}, {
           1.9999999591836735`, 3.3041347435869284`*^-12}}]}, 
         "Charting`Private`Tag$36295#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwl0Hk8VPsbB/BJQvhlylK5LRRKISFcfJ8zmiiRQkKFSXYKkSzJ2EVK9mpE
jLT5EXfsw3QNKtItSlQSLcNFU1q00HW+/jivc96v5/M8z/d8ld0CbD1EKBTK
1dmHfO/0EDzijXjA7CelcG0jtz4kWdRh0IAYiigK3dNdyn2mOZofHmRG6PNO
nCzvLeBK2GrXc6YdiCK99fL7hyK4lg96K/OXuxNkPyXsT66HyuHCbc2eRAV7
AdvKW4pb9zT82Ykuf2Lqk44pI34BdzS+h38oJ2guTxNHFQbTOr8UQgjXtIud
63oQ4tMVa1pYoXN15kouPe/BQbcHYcT2Alt3+cM0xBJhXFctjpyrv9iNZKyN
3FMSogiG5Gw8fA8KWcyMG/OKJgT/ln7+6OeAJt2n5g8rxBD9d2mC68luyFw0
ddeUWBwh7FaXURMJRAr6SfS05fGEuepsPy0Y3d1N14lYkkAExU/6WsiGo50y
N0yaWIlz+6RikQkj8KbXYCLxmyEy0SAZh8zf1w9+WH2a+CNxZilfNQ35u7hU
Jh1KwXmefwYqK7D+ESabSny/eqOm43UWcn3iPkyNSyM6l96zOvDlMnJs7Qu1
uHaWaG00lt4QWYTcpORS62LPEQrGWstdJ9no8bgr7/nedCLMKGlBe8s1FFqu
nWn5JZ0I7I5qNwssQ5riRG1X13mide2bSz6xlcj+z65gnk0G8UiBQzsgwUGj
JdyFn3oz8HkYEzWo1VlsR1NYJrZhTwPqSM5orurLJPpiNQ2jA5tQbU6bqCoj
ixD3k/p8RO0O2pcwKLL2QDbOixq0Iqqh3iGOeA7R0zu8Syf0LpL+EhTdwMrB
dWpiB3p/q56bhHLn7kv7IbJQORco1ZhLbDbOlRVufIT2m4XvvSyXR/Dvd08a
ODxG/bnxO6KdLxDhzAmfti29yO7My+pa3gXcn979DPHdTezXTl8g1ruVR1e9
7UMLfx3VtRG5hOth/AH0pqomaGXxnO1lXqNmP0rFCJ2FnTUwhC6utZjgvJmz
bvcbZP+09Yd1Zj7h1GndrKD3Htlk9vtaq13G9Xq9ERS/jpGrVnGZUBlcaa1r
+S+SmO///p1XAa5/pU2gY879GU6ihXP/myREniuerJZDhUT8VJuJXPZHpDba
oFNxq5BQdjkmnd0+iYyCtgtTv+A8M932C5JXT9dyzLmC+39QvyPDyA7xdcNX
iJm9bKqv2E8kHHzmr2JQhPNiltOoI0/5prB3ztkL5kHtZ7P7+9YXk+Yl7RGB
ezZJu5afKCZas2vMNpbOBxEHq+K/NNmEGfPIiWJpcXhW5Xi2PphNFCZR4xRD
JOBxQsDI83Y23s8xlgSV+Ro3tUJL8DwrtAg6TSWlHR9gU0L1qHCcKfCPUbmK
TXNaDG3TbK2ex9gMwSNZCDCJOzetXorP91tNHpZFHhKqxWBT9NMUwGdqZWX4
pms4P3JuOSwx+LWkOBGbF675B9Qf7w/ufIlNaRpYAdKTOVtWn7mO54USSsDZ
fDxnxzB2xRkDZXAJtPsWZHQDz+s0WgPl4zJ1fAE2U8ldBRw1JpZPEDfxvJEU
VaD4dUYszcUe3NakBraCZBNfs1uk05Ws1OGnmld+Jgu74nDpBmB7mM00TmJT
qqka8GVoHk+mqAzvU5PZBHkvI+icmf+TNjQe1gHTFU7sAfty0nfbu3RhdL/B
AokybKpEix6sGgs/XKZZgR3Zpg/HpEZktzphL1v71ADaNjjyn8ZjT7l9MIQA
H31Vygvs9fmEMfCTS55kid8mLVxywgSWXZNLVNfF1parQ8B79+mdbQq21bAW
DZa4l18rMawk3RixjA6ecaucjNyxA+cN0aGhKG3hw3Nz7ru9Ddxf+/lOvcOW
W+RhDhyX9RqW2VX4vMkrd4LkqdwXr3jY/AsrLcElXywtZAxbQk3VCsRevBnP
p/+F73OXpTU4Ol0pF37E1lI+aQMfnu+VLFLkkPZOWWwLiS4SHnZ07K6WG7ZQ
dThAsToLO0QosINFR1FCpEE16QzVnH1QIhS+0mBgM6WtHMAkmG00kIz9zz4x
R/ANkxLS+rEPuiU7QWts336xqBrSelH8g3BwQRqnpgT7K7vAGT4l0ag+XdgV
D6NdQCmttLVjdS3O31nHgJO5x7XP/419Zv9SN9C5tVhshUQ9aYWRaE+4p9XK
eKCNTeUqegHjdljDKSfsx+21XpBW/Srw9Q3s05Uz3iDglT2/uquBdBWq8oNo
+iF9x1DsNDUff1Bokzu/sAB76uaaI0DviDT3F2J/u1N4FC4/sbi9ObNx1kw7
y7eBsMVxWmq4AXskYHcQdPZXeGa9wW640BAE318tXfFtC5f0GsWLx2Dv6NvE
xmfYoRcDQ0Dqd8zB7auayfkbjVPCIM/HwUXDHHuet3w4qPRoMBYfxdb8VRQO
cL338HMuaWZIeGsE1F3P4dRo8Ui7l66PAoprjP6NraQp/WPtUWAu51/D2oct
7PM5Bd2nTOtiTmGXd3KiYdxurNGyizQvNsYgBvQW9iIYwpY2yoiBiKY7Tdpf
cX7AeyIGxNVzefKr7pD2NL4ZC8ozpvxXR0gzs3UN4sH+Wm5H8P/+njXtQxor
CVjOsVaeyqQp3D5qMgwtOfLAcQtpnowgMRkCorY+RM7YlYyw03DadvyxeBnu
P2YXlArcX1v7L1m1kPOdxpvPgWil5oGzDNK0U0fV02Gn17IXzBDSSoJPwenQ
+2j8pQeLNENZU/o8fLya93rTGGlKZp1FBqjaTAhaUvlk3rvvZxYoRm838rpC
mmGxzzUbqGWFqZI12Lss+NnwQ8JOy2aINDO4KCMH/uHVBA8Yts660DvPNA8i
tGNmpt6S5iX4jF2CAJf+3ayfpJWsbHxY4H5G9wqxuI3sN//6ngW7BW/piSak
GT0po/mgUrjztGwm6cB3lSKF0CUjJ6dFa5/1Hs/VlkXQgo54PLInzbjIziuC
Wr+26hA/0tRG7fdFUNwe5tSQQ5qX6p1UDGHRLy/vGCdNWVjcw4ZUzfuUVxvu
kv2+wZ0l8B86vSRX
           "]], 
          Line[CompressedData["
1:eJwd2Hk0VXsbB/CDVG8kV8ZQSFRUQkj5PSezIuPZFFdCrqHBxZVCFMkt0oAo
[encoded data, 5856 characters]
9OZr/hgZPn85Tm9xkv5/RqvU7BMJ21jDLPtFW83mQVYU+T/Kn/VU
           "]], 
          
          Line[{{1.9999999442449619`, -2.5598782492281567`*^-11}, {
           1.9999999591836735`, -2.5610291665145724`*^-11}}]}, 
         "Charting`Private`Tag$36295#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, 2.1553235640681124`*^-9}, {
           0.00036432384925595316`, 9.201350792409358*^-12}, {
           0.00036432384925595316`, 9.201350792409358*^-12}}], 
          Line[CompressedData["
1:eJwlmHc8le8fxo8WIYRCUZREhMyI+2OrUMY5RUa2jFJIpBIhldGQVUoZoRTp
[encoded data, 7991 characters]
7EyZQWG76tQq1maJ30uUH8ako/8BxsJbRA==
           "]], 
          
          Line[{{0.004330457838550809, 1.27631238910908*^-12}, {
           0.005417489561734625, 1.3766765505351941`*^-12}}], 
          
          Line[{{0.0015835426096924678`, 6.09823302966106*^-12}, {
           0.002498553563646729, 1.0546230555519288`*^-12}}], 
          
          Line[{{0.03181270162585182, 2.5073667586639205`*^-10}, {
           0.031929751872294194`, 2.543092847417938*^-10}}], 
          
          Line[{{0.026350109211944337`, 1.234884329457035*^-10}, {
           0.02760281693199906, 1.470448651730294*^-10}, {
           0.028216211956791783`, 1.5981367340600628`*^-10}, {
           0.02843341809898209, 1.6463470586813856`*^-10}}], 
          
          Line[{{0.03557391585864753, 3.803071635388733*^-10}, {
           0.03680374230388991, 4.3144954275931013`*^-10}, {
           0.037417137328682626`, 4.5873456144818193`*^-10}, {
           0.037417137328682626`, 4.5873456144818193`*^-10}}], 
          
          Line[{{0.020535767660489486`, 4.7475623432546857`*^-11}, {
           0.020876025547010978`, 5.06242159303838*^-11}}], 
          
          Line[{{0.010452116315053678`, 2.142286348316702*^-12}, {
           0.011449102014118605`, 4.955502674874879*^-12}}], 
          Line[{{0.03060659187613595, 2.1691786145083826`*^-10}, {
           0.03060659187613595, 2.1691786145083826`*^-10}}], 
          
          Line[{{0.02215153575109261, 6.374243355367071*^-11}, {
           0.02262798561728977, 6.938467975475815*^-11}, {0.02330905175845, 
           7.745004637627062*^-11}, {0.024392215195720882`, 
           9.205258777456038*^-11}}], 
          
          Line[{{0.03320526207637583, 2.942568855246464*^-10}, {
           0.0342984056545659, 3.32036087513643*^-10}}], 
          
          Line[{{0.007984504445927354, 1.238560603304934*^-12}, {
           0.00918978315958251, 2.070876803372812*^-12}, {0.00918978315958251,
            2.070876803372812*^-12}}], 
          
          Line[{{0.02514923683282817, 1.0326903776558539`*^-10}, {
           0.02514923683282817, 1.0326903776558539`*^-10}}], 
          
          Line[{{0.015047899850261759`, 1.425526363618701*^-11}, {
           0.01526052786580041, 1.4573634074569594`*^-11}}], 
          
          Line[{{0.012881336336973713`, 7.266720558618545*^-12}, {
           0.012881336336973713`, 7.266720558618545*^-12}}], 
          
          Line[{{0.0066929997658162575`, 1.2846612662542612`*^-12}, {
           0.006747386089046483, 6.018296971888049*^-13}}], 
          
          Line[{{0.016561706485730052`, 2.0660628763380376`*^-11}, {
           0.016561706485730052`, 2.0660628763380376`*^-11}}], 
          
          Line[{{0.018527738344276564`, 3.178701746264778*^-11}, {
           0.019260257456407852`, 3.7268854669036955`*^-11}}], 
          
          Line[{{1.9999999442449619`, 2.1543562990901084`*^-9}, {
           1.9999999591836735`, 2.155316636276439*^-9}}]}, 
         "Charting`Private`Tag$36295#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwllXdYjm0YxhtGkqShIRQV0aK09F73+1aIysynSGjSUIoi0iBCCSWVUGmp
[encoded data, 7686 characters]
Bu8NJfT8RZwv+Ctqfl0i/A/LsD8a
           "]], 
          
          Line[{{0.016663711974803617`, 1.1214495998501663`*^-11}, {
           0.019628681609693666`, 2.006679267196887*^-11}, {
           0.020242076634486388`, 2.0731150129904564`*^-11}, {
           0.02085547165927911, 2.2561330581538644`*^-11}, {
           0.021468866684071834`, 2.6814639397798603`*^-11}, {
           0.022082261708864556`, 2.7337421215634095`*^-11}, {
           0.02269565673365728, 3.239790657971753*^-11}, {0.02269565673365728,
            3.239790657971753*^-11}}], 
          
          Line[{{0.011933100943280614`, 2.5787372237573437`*^-12}, {
           0.012584132174439358`, 4.0028425019045246`*^-12}}], 
          
          Line[{{0.011041151262595545`, -1.4285461702456815`*^-12}, {
           0.011041151262595545`, -1.4285461702456815`*^-12}}], 
          
          Line[{{0.004929362547335268, -4.237143969021418*^-12}, {
           0.00613399106425376, -5.1338489015506645`*^-12}, {
           0.006747386089046483, -5.947775605363859*^-12}, {
           0.0070541304580072385`, 2.6263435870532703`*^-12}}], 
          
          Line[{{0.0030108407854104445`, 7.595879480959412*^-12}, {
           0.0036538523432536356`, 3.2130920146755674`*^-11}}], 
          
          Line[{{0.00012281403876088337`, -4.240842343961049*^-10}, {
           0.0015077563834993003`, 1.9301715781239182`*^-10}}], 
          
          Line[{{0.015334916436144605`, 8.774314608217537*^-12}, {
           0.01567413667554514, 8.170886189873272*^-12}}], 
          
          Line[{{0.007974176138631928, 1.1036505043193757`*^-12}, {
           0.007974176138631928, 1.1036505043193757`*^-12}}], 
          
          Line[{{0.024306314482584017`, 3.141913396120799*^-11}, {
           0.024306314482584017`, 3.141913396120799*^-11}}], 
          
          Line[{{0.009733703800962903, 2.5039526008185933`*^-12}, {
           0.009733703800962903, 2.5039526008185933`*^-12}}]}, 
         "Charting`Private`Tag$36295#5"], {}}, {{}, {}, {}, {}, {}, {}, {}}}, \
{}, {}}, {DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{
        "\!\(\*FractionBox[\(\*SubscriptBox[\(F\), \(0\)] \((U, \
\*SubscriptBox[\(n\), \(1\)])\) - F \((U, \*SubscriptBox[\(n\), \(1\)])\)\), \
\(U\)]\)", None}, {"\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "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 -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.770916221295829*^9, 3.770916254531789*^9}, {
   3.770917551872077*^9, 3.770917579006523*^9}, 3.7709176111296053`*^9, 
   3.77253127434196*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"e3e46511-b13b-4d00-8eb5-d437da28bd1c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]Very good\[CloseCurlyDoubleQuote] functional", \
"Subsection",
 CellChangeTimes->{{3.7709164085350647`*^9, 
  3.770916422651733*^9}},ExpressionUUID->"2f1de1f1-6580-44f8-88f7-\
1b2d3d66f1aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F1", "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "u", ",", "\[Rho]", ",", "a1", ",", "a2", ",", "a11", ",", "a12", ",", 
      "a21", ",", "a22", ",", "g0", ",", "dhdg", ",", "dgd\[Lambda]", ",", 
      "g1"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"u", "=", 
      FractionBox["U", 
       RowBox[{"2", "t"}]]}], ";", "\t", 
     RowBox[{"\[Rho]", "=", 
      FractionBox["\[CapitalDelta]n", "2"]}], ";", "\[IndentingNewLine]", 
     RowBox[{"a21", "=", 
      RowBox[{
       FractionBox["1", "2"], 
       SqrtBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Rho]"}], ")"}], 
         RowBox[{"\[Rho]", "/", "2"}]}]]}]}], ";", "\t", 
     RowBox[{"a11", "=", 
      RowBox[{"a21", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "1"}]]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"a12", "=", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Rho]"}], ")"}]}]}], ";", "\t", 
     RowBox[{"a22", "=", 
      RowBox[{"a12", "/", "2"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"a1", "=", 
      RowBox[{"a11", "+", 
       RowBox[{"u", " ", "a12"}]}]}], ";", "\t", 
     RowBox[{"a2", "=", 
      RowBox[{"a21", "+", 
       RowBox[{"u", " ", "a22"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"g0", "=", 
      SqrtBox[
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Rho]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[Rho]", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", 
               "a1"}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"1", "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", "a2"}]}]]]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"dhdg", "=", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["g", "2"], 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["g", "2"], "-", 
                SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
           RowBox[{"2", 
            SuperscriptBox["\[Rho]", "2"]}]}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["g", "2"], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}]}]], ",", "g"}], "]"}], "/.", 
       RowBox[{"g", "\[Rule]", "g0"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dgd\[Lambda]", "=", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Rho]"}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], 
        SuperscriptBox["u", "2"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", 
              RowBox[{"\[Rho]", "/", "2"}]}], "-", "1", "+", 
             RowBox[{"\[Rho]", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", "a2"}]}],
             ")"}], "a12"}], "-", 
          RowBox[{"\[Rho]", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", "a1"}]}],
             ")"}], "a22"}]}], ")"}]}], 
       RowBox[{"2", "g0", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Rho]"}], ")"}], "3"], "u", " ", "a2"}]}], 
          ")"}], "2"]}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{"g1", "=", 
      RowBox[{"g0", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", "dhdg"}], "-", "1"}], ")"}], "dgd\[Lambda]"}]}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "t", " ", "g1"}], "+", 
       RowBox[{"U", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["g1", "2"], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["g1", "2"], "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
          RowBox[{"2", 
           SuperscriptBox["\[Rho]", "2"]}]}], 
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["g1", "2"], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7709157854401903`*^9, 3.770915863893804*^9}, {
   3.7709159123747587`*^9, 3.7709161971850853`*^9}, {3.770916429834107*^9, 
   3.770916545601033*^9}, {3.770916586942848*^9, 3.770916697728969*^9}, {
   3.77091682623155*^9, 3.770916827058421*^9}, {3.770916875433826*^9, 
   3.770916875684799*^9}, {3.77091696826108*^9, 3.770916970598894*^9}, {
   3.770917198536828*^9, 3.770917199074861*^9}, 3.770917442101158*^9, {
   3.7725279037066813`*^9, 3.772527905185039*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"fb936d0d-0a9c-48e2-a3fa-badf662d5b20"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dF1d\[CapitalDelta]n", "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]n_"}], "]"}], ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{
    SubscriptBox["\[PartialD]", "\[CapitalDelta]n"], 
    RowBox[{"F1", "[", 
     RowBox[{"t", ",", "U", ",", "\[CapitalDelta]n"}], "]"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7709157854401903`*^9, 3.770915863893804*^9}, {
   3.7709159123747587`*^9, 3.7709161971850853`*^9}, {3.7725273705214977`*^9, 
   3.772527467086309*^9}, {3.772527534794423*^9, 3.77252758961799*^9}, 
   3.772527627491708*^9, {3.7725276582402153`*^9, 3.772527701733035*^9}, {
   3.772527915793199*^9, 3.7725279181095047`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"a6c5b061-41a6-4643-b035-928a6e448a94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"t", ",", "U", ",", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], "-", 
          RowBox[{"F", "[", 
           RowBox[{"t", ",", "U", ",", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}], ")"}]}]}], "]"}]}], "U"], ",", 
        RowBox[{"{", 
         RowBox[{"U", ",", 
          RowBox[{"{", 
           RowBox[{
            FractionBox["2", "10"], ",", "1", ",", "2", ",", "5", ",", "10"}],
            "}"}]}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[\(\*SubscriptBox[\(F\), \(1\)] \((U, \
\*SubscriptBox[\(n\), \(1\)])\) - F \((U, \*SubscriptBox[\(n\), \(1\)])\)\), \
\(U\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
          "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7709167152798843`*^9, 3.77091671536581*^9}, {
  3.7709170785454187`*^9, 3.770917078811346*^9}, {3.770917125571493*^9, 
  3.770917128322632*^9}, {3.770917494217833*^9, 3.770917522801701*^9}, {
  3.7709175618688087`*^9, 3.7709175816602097`*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"568cd414-9d19-434f-b427-e417b145bda5"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJxF1nk8VF0fAPBJKqFI8iCKSIo0ZiZbc87YU0myFC0aS7IVSaLNaJGnskRZ
[encoded data, 8235 characters]
LAP/B9ezTHk=
          "]], LineBox[CompressedData["
1:eJwt0HtQ1FUUB/AfoqA5gbuAiw3UIrAgFpFtQbnniggpocRaUpQDKyjBoCvy
FFoHRJh4CYXIICbyUklkWggfLKYrLmutICKEIKDorrwfgjyMhTX5nd8fd+79
zDnfe89cq8CDO/ctoShq55u1uFPZn57wUA9venMSTc2vJYr9r50f2Iws+n7F
NJfE6LOsux1pyxXnuaTTif/fuBttbvkKLjmbEX+OE0abOn7OkqzfbKgLrqPd
2zRqTqQXK+w65JhfVWhO+KY+Qk8l9pd6mxNBf37Z+hbaohoph3gfd/B60Uc7
sfbwahLRuSM/jj26aNfiNaZkxm3y1hCHdq+42YT8dClv+AdL2qKSFBOSnPCE
EHusC16ySZ7toedLCO2isFYWqT2UuyEzlDZVLjQmpMtl94KYdqLdXSNS796T
Io6iLS/wMCIqDq/TJwEdCG+T7r+uJpidxLzKZSWh3upqLJSjW0WGJDkyYcZY
ifOeHjIgK3qsuUfvYj422oCwpfsjg9rxPUnWMmLjq1tjP4L1riZ9srXE6scq
zhhdDzhGEX6+EU9pgR6ypQg3S6t5ZEWbepXzGubi/g1c+j7WY+x0UClM8//W
FZ0UqgUTvYldCyHYL/h6BqjZHlO2GM2WTcPIiKqVF4k2sZ4GZUeZ0OcI5pO1
LyFO+t2O0l/Re5QT8CRA7u4pw/7w1GFo3FWp738THXJ6CK55FdRHKNB11YOQ
4xzl+ts99Ddj/eBhbC8Yf4YOPqWBDcvMtPoD6L57anhXqyczH0VfX66GV31d
zm6z6HVpT6HiRvbHJ1eO014a3wP5NZLJ31ehDdZ1Q/LF0KobZmhx7yPwz9vy
4cB7aBLSAV6ZTmPzNujzLg/BJcmykuWA9mW1A0s867CRj97W1Qq6IM3gV5+h
ExsfwJBfS/leglY0tIDCo4KXtQ3tXtwMsZYBa5/uRvMz/oZAHyff7j3oxikl
eB/TS38YjBYcaADeYOlEUzhakl4PbIto23+i0W2Ot2DB+ws/RTw65PZNaKsZ
kMuS0SKNDOT9tVOX05h5z16Dincy7Kuy0FTMFUhK/OCXC/noF9HVIP5Td7vk
DLqjUAp+fc2zZ0rQRYpKcNoeEZB7iXH4BbBI2HIiuwotzy0Dw2rTO+lX0PeH
i2FS83wupY7pHy6Ex5yrjkflzPtBBaD6MjVQ0oB23ZgHl4/45cWqmPmjcqBI
6qCKaGbut8iCTLV24UAb89/LU+Hw6qaPQjuZfGUSBHkW7tv7mLmfJQFvycFT
AWrG9lHw+R+uTd8PMP4kDHjPWHq+o4zviIBlpuYLJxlfF8L81pqQ7bOMuQLY
xG//WTnHmLKB/wEyZ/jl
          "]], LineBox[CompressedData["
1:eJw10AdMk0EUB/CWoQhiSy1hamgRg4bEEXf6DrDiQhKDBaQgDgQFTUEgGmjE
xgFtJaiIA0TABRI01aIsa6hE3IIighSUIUWDCKUYhlIc3/u85HL55f7v7t3x
dsUFRpkxGIy1f+e/tUvP1eSZGbwZ1JgD/u76pc5WtLmhoNW8brhgTbssCpYF
l8fY26JlNfFwazDf/CyL9uQh4CvSL7M5tDfJ4CI/fnkm979PwAzN1rc2DrQt
T8LxIN99Cie09sFpGB+YZznVld4PzAaJnFNwfDa6c/1F6OH9WmHGo/u5mgdv
RK/2mzzQp8k1WDtwb4rUE+3GLAJN+uXCsflon9GbUFwtaRpegGbLVOAqCpEc
WIz+oLgLWd+9rQaX0JaUQaqbnaBvJbpSWQE/qsbf7xHQ9bVVELulO05P0HJ7
DQSllV3rFKKz5Vrw6g+yaQlAX1/0BCpFm2qUm9GCz09B+HB1ItmCFhU9B3Hm
grYbW+n7dr6G3hGPU6FhdP/iBkjY7iq0jUDHqt+AYuG00qRI9IoPjcDN+R3h
GY3Wjb2DQuYIp30v+hn/PVQ2dqcIJegdWS3Qm6TZyElGO3e3Q8JH9WSdFK0O
+AQmvxJ1ciq6vbYDuA7nnbuOoYd3d4GwKq5PlYluudED9bzo/MgzaK+jehAr
wwMdstF7I3shIWxDdWoO+tCSr1Bo4isDrqN97frBK9qJMIvR97nfoaKeZbxX
Qvc3awDqCyZCXVWUZetmG8Dk2zzvWxV6aZgRxGmK5/IGdMbGUegdOHJY0IiO
HR6FAyEHFxma6Pflj4HcMzInRIf7hyfGofyFIGauHt3aNAEzWQarxz8p+8RJ
maTxoTJ9gwnr29qYJGu/x5SG35S1PmBGOC/E5jqLISo/zdyccE7UmQZnDOF/
51oQ9q9co4s7ZW3fyFQy/Ytfe6I/5nvCWeTVuU7xeADmk3QskrFG2pq6mbLb
Hi82sbl6p1kRRHmHsZRNrLe5vC3YjueVquyI1TtD3ctEzNc+m0ksai6p3PMw
/2ilI9EJ1qzvyMd8vMKRqKr7O3Ov0G51JOJy4HCKsT44xYncvd2RxFBTlqXX
OJOIPPdVH5+iXYJnkcrk0sfnhymzvUU8wrIWreNaGql6/xg++QPzwKXM
          "]], 
         LineBox[CompressedData["
1:eJxF1Xk8VF8bAPAJRURIspRsCaHJTEXmnKFkiQpJi32pZCeKIlJJ2hQhWkii
[encoded data, 7930 characters]
4ShrKA==
          "]]},
        Annotation[#, "Charting`Private`Tag$29974#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJxF1Hk8VN//B/BBaYqQJImi0CZps3Xf9w6yhIQ2SppEEaKSlLKkpPChSBRF
[encoded data, 5612 characters]
o0VSrMiFssadHtGMlbIlt5D/B5tsLU0=
          "]], LineBox[CompressedData["
1:eJwl13k4lOsbB/ChzZEjlWxRKkly5JQaOblNUpEle7QgITpEE8mWSSplDzWy
[encoded data, 4941 characters]
42//9ZMyGNTR1Wy9VDv9n40LX+j8H1G64bo=
          "]], LineBox[CompressedData["
1:eJwt13c81VEbAHCKsgkN8malkKKohJ6UsklGybyJKDNbA2WPJCJJ2ZIIdcl2
[encoded data, 4758 characters]
tIwgop5DmKcTOyE6xRD+B6dlpAU=
          "]], LineBox[CompressedData["
1:eJxF1Hk8Vd33B/CbIZLMlSZTMiZS0XDWvhQyVVSaKMNDgyEaVBRuiiQVJSSV
[encoded data, 5551 characters]
kQ==
          "]]},
        Annotation[#, "Charting`Private`Tag$29974#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJxF1HlcTV0XB/BTUhEqJdUbShkiSQjZy2lQEiJJhZI0UFERInSLBtKkVAi3
SYMi0nxOrmZKKkMpNCmNJEVUvM/znn167z/3fj+/tdbZ++79OQo2Ljvt+AmC
mM5HEP9+G9p11fK67Tb88/NbwmKKzncPEDBrWUMS6+SzHOqT6IZlPbdOu+mR
IwF7euZ+uEML71TLzxo3IzNa8t/u/XyG3vKi/tEtGVuS+PfTvI62UzrI3fjE
nryyQ99FJEOMznt7uuFUtTN5oT2vWd5Mku65+LrkQKQbU79DiM5YM64+JuVO
Ord0VZWGq0OJrmxOccxJJj++ntaNfrHP5oUHedJV/f6z0T4Uw2+dsiDek8mv
K4GokabtZd9z5Jeqf3YzQ4F2F+dc6HPwIve9/XFZO/4/9HfbkUntUt6kB39H
hegWMVpfIHDbiOAFMs798LdlTbNASsNfN0jmItno+/fv32FVumK7rvqZmb6k
7/viZzG82bShaCoqjPFjnqezCJC16z2HFj/yz2bVdwbtCqD/Ob/l67xL5J6V
3NA5XEFwtrJ65H/gMlMfqgjpd4x+e0gEkku+75Y5K60I+9/YtotdCCItS5XV
Phj/osxL353cnBxMjuot4Nx06qNsRCQD83xCyO8NAkmmpg1UXf9+XtOuUDKi
5kbt7G4JOPlALXzLcCjpLVSiY3C6HS0TInOrq8NI2c+BX8q+f6RM11Uf5xlf
JUvK6sWXihF0TyI9ZbD+Kl4PAaWWggaFHuGMKQmoDLj6JPNdOHlXNYes2NyP
ciPLBBZYR5CDeSn339lUoN2+LfyKe68x9a6DlNjaVQeyhCJJQXtfncL7fDBt
2M2rICaSyQmC/pyWT/tDFH6eBGxWCnEVoaLIVun309riJGCP3uldtyWjyfLS
K9O/nhWHxqiLBl6W18n760u8TtxRBpMrH7JzedeZfkllKLFFporj18lJ9xwb
piQthiljR1ca899kcqV58Ckzx21OPHaNDDxxIjK6dWOwh6gbipu/ZH3C5kjS
G3/K9RiF3yJNDhatSrP4gYzDGx2NFt5m8pY2dHGRddTCjNtkxP7xpcGK45Tw
JOfPnQ53mHxkOn3MsvGqhQCX8VoRsJd7M08SuOSi3A0Bfneb0cKeAvWMNC75
fHTR0S225UjTbdNA4DCud51EL37hJDqoF4tN0LOUQ1XNI7HV+Oi1npVCi9pj
Sf+c+/f0e/npgZYGZ6U1cUzOHaA+ovHAy/7YRDWqjFa4N1DPuo/KHdJ7vntx
PGOtFvQ4aMYY5RFPxmlXDogSrSgiLVhY8RnOXScDv9nW+MfLEkj+sIyAwuZe
1JBpHpx/PIFsFDdaU3frG6rzdeluKk/A80Yoz5JthpPnJeLz5QelSSr3VE8m
Tqy/SnvqNPMX2MQQdYLT5eytdBe7iJr7pOxFqie2/AgqG09QfV2HrfWDckEX
QsaVk/B+CZD2PDCw0BubM0bx8kjjHQ2su9HhkTmPTi9PZswbRzPXjM2M98Mm
slH+icbjVR9YP6cOPs59PbwqBfs7Ne175Op5V7BrCMhacSLSoJ3NvyErV5Of
bpqp+H4MIsEHK8xvhmHL/0IP+kXzSrqwiTZkrvJF5gt5D6/vLUU4VZ2ZHYWt
1YNSUlKbtL5gW/9AO7sCkKNeGs4/odGFDrfCY9Im9pdgp/eH+o5NcKmtCYr7
Ow3T8X6H0XAbH080Lp39/9BthRb5db+wOb2UvnWht82O+xP34evtmLbAJGyi
FkV/OKOb9YfNx5C2nEXCR9MHuL+e6tmzZrJwOrZWL3peNTVTmj8D523U3L7T
B9OXse5Bx0S6JXQssHkDqGyJecnbixkT/bKG5e5OGdhEPnI5rLGAeM/mbagk
IPFNhNBD9nyQdLKkn/JKbF4n5Vx+QaPQis1/IV7nYOfOy9hcPpAUtIn6nMXm
DejwgtpNZ1tZp6HCjVojYtMfYX+kZto+SE5ci815R9lfmGuhacvmPaggLmjK
yxDW9UisaCzvYAE29yeybXVyHOlk8wSUSzTJBs3MxOttQdPkDSsVNmATX5E1
meeZfZj1IMqyWqyy5Rpb342mno9638xj3Y+sbgkGufdlsvcJPaJOwBTpx7if
gwTff+q/pcu6Au0ZNbmt7oLN60IPZIuNym+weSsS0FT/u7fs/za3iH0w8O0x
e97oa9OuqXGyWRPr8bMStjPRZf2ZkmsteCLgjE2UoMyDLrLZEf+vN+ycf8KB
ZnMO1XLo7UvpTtaN6FTvpSXPZ2RjP0IzjoKv5xrWVShxYKBZxXrCFDqeoPkx
gPVz6tWw2bWQh9icN8jRQ2RAq5F1DcU3Wmg4yJ+DXUdFnzuWGL80Z+J8VYmF
hOkubOIVVerzbo/gOdbF1L7JQVk5iWz9KzToryV2uJrNX6JLU4ccZX/mTJy3
fFBSaeW8XOxclCO6V/6cAWuCNro6w1PVDbvlL9UhWfSm+To2p486G3VCLayI
9QglIascqNPL9ndTqTHvO75L5LHvA0prXqhWImL9nqqP1b252y6Pff9QR5V+
DgsFs26iBJJSd+Rls66jbipb3XNsxuZ1IPU0cUE54Xz2fYGeqZZav1DDJjqQ
9UOPgvMW2C0/0I+VKlJqPtjyBARlN7u2prL5OFJaF1559RU2dxLkF+gv3DiG
bT2CjDf85gwrFeBcALp46U13t2FnCICX7gEN85PYhBBIlUmGTbnD1gtDmkFF
b345drQ46FZ66jsPYDeIQeO25bFzZCi8P3FwrWkbrdbG7poNQiaRuzmO2MJS
cPvN5ocrwrG50rDafFykvQB7sRxUNWbYR3zCNpADG0vbp3rTaTxvLvxqni33
czW2/HwItak8mWyFPaIICzvO11r4Y19RAtpBXUUkA1tsEezq6fCjGrBXKUOv
8/XWI3yFjD2WgM/XrWjeEuy+pSBzjIiq2YntqgoZQ5nfvD2xG5bDplMOW1cm
YKetgI+/ZJM+VWGjlSDy13vfprlPGBtqQPRhMysVfeyNa0DptYq1+FHs3HXw
cAO/zY9r2BrrYUNK/cEmGvsRgkqJdDteB3bFBlAhn2bWCfIY+2rBsaF7q0pl
sd21IS8lMitHFTtKB4j93hqpOthDuqAv6ZwTsxtbWg9endfO8z6P3bgJZFep
aLpfxe43AOtuqQL7u+w8Q+g36aO2VGMXbINVU+phQxt23nY4U/i0UO0HY07c
DhBSjuLNmvsU36edYPTRW1tYnTHnhglEhDsX/dbD+c1d0GhgpttvgU2ZgsIf
7ZLmI7h+uhkcylTRq/PG1jSH+4dml5Vcw/WHLGBoDv+mnBTsyj2w/lVfeQqN
jfaBT0C9QUwtdrIlVEDRs+AObPn9YJocVXl8ehGefwBiLH222itgS9tA28wj
L8xXY4/bgMs5nZdgiV1vC9nqy3aouTEmWu1g7PPs2vm+OG+zh0s7++uE0nG+
6DDUCDWY/Obh3MgRpOii132vcR7mBPGLot/WjuFc4SjQYzqNN7cWMx5yA4FH
y/YGWzPmPTkGhg7S7znu2MHHob62/4NdDPbWEzDXv8HKPAN73UmwRcXNhiWM
iWWn4Nvd6NblfYy1lp6Gtfsu2MwnShhrnoHz4kfbJSUZE8aeIHJWt+PXeuyb
52CB8Zeu4kBcb+ENsl6bNB1iGctL+4BYOjdwag5j61Yf+C1somrcxph38SIM
aKR5Df3E/ba+0GE7uTZqeinTb+AHNbyc4x/XluL1BkDpF7FSbyPGnCWXIF/O
UWqBLWOt1Zch0UMuzykE55ZX4Iya95+RDsY110LBxapxe8woY9f1YWB7ZWUs
KV72P3O7w2B7V4euH2JMmITDRinymvJOxqFiEaC5MbqzyoGx9ZsIUOIaXpII
x7lrJMhUxzdmJ+PcIApmjI0t3VOI5y2Ohl9mD6q53YxrRq9DtaikpKpWOePx
W1AMR+xqTbHF70CuU1m2uxNjLWkuxJd7WBREMs7ViYXo4dpUqzTGRHMsBCsu
HeMrYjziFQceXh9uG/QzNq+JhyPpGgO9/BXMPE4C2DSFaIdIMxZenQjrqIT+
WcqM5YsT4b+SJv0R
          "]], LineBox[CompressedData["
1:eJwt13k4lG8XB/Ahxa8k2ROFIklSSVHPMXYVQoQs2RKpSBKlDEm2GUqJyhJa
[encoded data, 8723 characters]
D6pyf7Q=
          "]], LineBox[CompressedData["
1:eJwt13c81f8XB/BbZCcrUZSIEFEpKZ8TkcgOhSJJpbJX+sre494fGUkqlYZS
[encoded data, 8784 characters]
v1wkjViTbsnqOk3aT+MJ8X9fzdWk
          "]], LineBox[CompressedData["
1:eJxF1Hk41WkbB/AzTFlCkrSQkLVUUpTpuftREjFRo5SUJcVF0pQlItsQUZQ1
lRRGb684Sdl+pxDJVgqNIWqIcMqSff29vXOehz9cx+e67/v7bOc68nau+0/w
sVis6R9///8s9wwNyJiYon78y1KtTQOdPpZFKP/0v074IwUMOgWmMkV5zlO8
C0KpRmlbxXmOik+GatvwvSUSPI+JJsNvLWJ3G5byzBJJApv6JQZT8jwX7UwE
xesWfcGK2HY34IvpjYSFKjx/Ck2A01UyXAV1PN8ZBxdKVkcZafNs0x0N2/1P
6NRt5fnMlmjg257eZrUN54Vfh9D8NVpndHmu3XENTDxPtY7vwPl/RsFCrcxL
Qbt4ThaLgjj2xqa4PTzrNl6Bw6fPBcn9itd/EQEy6k/UH5ji+afhkJK+1Y9j
zrNcXhiwkyjFz8fw+pIhMOg9KGBri/N2BYO2RTq35TjP/l5/QOHChY//csT5
o4Ewwy2JM3fG+0GBoPvKw/utC86PCICX/q16VWdxv7Y/CB69rmTojtfb6AfG
OgZCZZ44f9IXagce1j7zwf33L0Czna91dgjej5cnyFIbd24Iww7yABvpDuWM
cDyf5A6ddSa9aVE4v+EcqLJZ7xSicR7fOXCOyHlyJxb3bzoL/foyvjcScT3r
DGySr7WRuo3rE67gMR2kH30HO/w0TD7hLriSij3iDPNVChP9M/G8vgMY8bte
nGZja52EiI8Kdt6PsbedgEUJl9Xc8vD8zuNg7rZddKAA1x3tIM7se78LBzvc
FmSELPMcSsh7WoN1h+itz6XY+47BveJiP9ty7DorUPFW232kGnuRJWhyxxr2
vsfraRwA9/KM/KpG7AXmkJdic9uwGfd374cJP8mAshZcF9wPYPXKfscn7K9m
4L/Vx/B5G7aUGZRIaqijDjxvuxcMa+IHtXqwtxjD5f8Y/5X9FbvYCGqCmYIN
fdg7DGH/dodAtSHs4F0Qu0L65J8j2Or60Djy2mj1OPbynXA0S3vRyhmyX114
ajkmVsua4fkgBWLzC0SC+LG9ARweXRDWno+tvQ2KrECwWxB7/i+wTJCZd2sB
duYW+P1xEb+pGPaEFlQeC/yJbxF202ZQENZnchZjb94E3k/mTTtIYatvhDqb
8okVy7GVNUBdJGysRhq7cR38kbtnxF8W22YtfLATGdokj81WAy2x1wOdq7EN
VeBqfmTfDWXsW0rQab/vm4kayVOE7eKLucxa7Dx5iC+s78pej10qB/0n4zpP
bMROWAWGEoc+L9uMLScDyZzlbVXa2FulYdyx+eNFHWzdpbBf8nbLRoR9aAk8
eH6s+fN27H5x4HOW+zteD9tMHI5Itb3fo4/9SQhyilPqpw3I+QRBxOXEO7bR
XN1+mUrtcRMy/zNwXnTVSJmSOgukXB9UVewj9zWOTq84VeFjjs2aQS/L1pVv
sCDnGUWrfu8rbTs8139e5lFJrBV2UT+qLT9bZGhNzteHVM9tfjZpS/IKUIDs
SGGmPbb/B9RUkZtv60BcizTdvXIlnch8N31ZbtuT8lOk3kS3V01le7sSD9PI
8xl73VmSP0jHKPhnfnIj5xuhv9XoZUR7krwR2sCL/4GBNznPMJ2kWJY+7kPm
a+nRNyFpGX6z+6HNLhimWAcSt6L7ysJ3JYJJfzX66V1VUtkl4hra0vfKrfOX
iYvpbFXTxLVXiJvRgnrxhNZIcl+dtL3fu9hr10k9GdFrYqL1Y4mLkOT7A9dG
44kbaJeApZEPEonL0Ev1vyOO3ib7e4tkGxMviycTN6A362VDPNKI3yH/4LsB
Hx6Q+bdI1FNgj+1D4jw60dFFojOL9H9BypZ1TU7Zs+9HPzbWSenLIW5DunDH
2S13Lq96/bzN4/lkfgAdlnOe8qXJebtQ56K3pXzPsZOH0Fn+LVcuFZP3aUfM
0K0DIqUkrwlFdPLJXntJ/AYta3TsXFIxd960iteZiVVz96FZuNlz1WviSfQs
I5FKrSX5n2njJJagWh2Z70eNkSdrHzaQ78sosg+oTtBsJPVxNHBW0za3ae79
L9onqKEWkvcPEj44M1D0kazXjeJ32xfsaiP9Q0hRpzKw8jNxC2Kv0TA2/UL6
/RHIxC2u7yZOpStFp5oPfSX99fRBxja1pZd4BLX3l5+yGyDmojNt67S+DJL9
9KKpuuhp55G59w4rGy/rH5v9fiOpXOur7pPErXTK/bKDE9PEFbRG4tpVfixm
Np8Ov/aFnx+bxaaNfEezQudh63LR+9NHz4sKknoBbWfzQve6MLbNMOrbpya0
VHS2jnx2Rr69uZDk1yMhreEbchKkXoLilI/YpUmS+jCtsKx4zZqlxJ/oLCGV
wczlpL+KRpMRhZtksOX60auv34PyZLGL2tCB1kMmIE/6O+i2N88kS1Yzs79/
rsWKLQbKJL+Hnsq+nFalStxFh6b2u5itndvfkriD2g3rmNn7vneJnjmsQerv
6fVeCuWtmqTOB4VOoZHHtUjeN9rQqteiawvp70P1v5rLufxCXIlsqYKuAUT6
J+heDblHHhSp1yFvhRCvST1Sb0cCkl/1/PVn10cx8/YLz9tNzjeI5EZz34UZ
zb3Pw66VN8VMiJvp0NvBNq17idto+/3flDL3ETchXYEDXF/z2TxahqbZv1qQ
eg0aO6PosdKSuJrWM9sUK23FUDp16sMb907RmU2DLI41uY92Or2gQ2mvLUN1
Xw2yio3oRFulz1+6aM9QcTLd1a27P6Id42v2qTuSvPv0rqQ0gYNODBURE5B+
xLSPHrebaK5yIe/bQ9cvtbt78wzZ3xTNrq446XwOO1kAFoSzULsbQ+mL/6wn
XtSDHLVvDAh7kftrRauSHX0eXCT7a0PR+TFGTsEMdeyC6bXMA2Uo+9md6uWX
SH8LffWcwPXuMGwNFsdJ1dUiP4KsN4HU+Re0B0Uy1JXKAG5WzxAyz+nlnr/G
ULpTIckKQtIwZfBnumos7u9aCeluvWyzeIZyfpkrqa24GnLY7pqvEnFdVgWe
vq1Uk7jNUMLh7tI7twzRzit2cRyScf2DFBi8yQjckoI9xseJ+nB33bI0hvIe
iukYWbqQ06opMzVyn6HeG6d76/13mK60c6+wzGCo6WOBr/gSWJBzzzjBIxPP
5/0EURaPjxo8IvcpDedNbUREcxiquN7E56vAd9qwOLCr4ymu5yyCmjwTS3Y+
Q60SG5uaeC3AGe3x39VUyFCbv3BPujYKcpo+5m898Jy813f6aYz8jGIJNnsx
XDcKezFUSu5PiFOa/Wj3i3KGyv8sIO5dosCpDsziKlYw1NC9j8whtgznMnvH
40tVDPWPW/PiL2xJjpJj0WL7GnKfIpwVub7WsrUMlbFepzT8piRnXJW74e86
hjrVp/buoY8SJy9k9HhdA/m9EOEkTX8vk2hkqNKDAyxb5yWcrjvc1E8tDKVy
esMFlrc6GKetz9nRivtb1UHZMs5L4h9sGX7gWzizva0d21ce3pwZOpbS8SPv
TVi0RcMg7RQhNx3W/eN+VnoEBL9YzfErvFsiw2WoqRiOtvTafnogJ6Sn6htD
RY4mLH8toMOxuOO37+sAQ/W8lurOym+hVU1OfSwa4uX7dwHHQWlF1OkRhnqR
+eFZ7+5N4HZrd+dvkww1M+K+rINvBYd2StmgMY37A5QgftWCYYb51wOpqjTn
f1t5+aQ=
          "]]},
        Annotation[#, "Charting`Private`Tag$29974#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 2.155316607978762*^-9}, {
          0.00036432384925595316`, 9.201377854095583*^-12}, {
          0.00036432384925595316`, 9.201377854095583*^-12}}], 
         LineBox[CompressedData["
1:eJwtWHc8Vm8cRZFXfkpUiELSkiQReZ5rV0JGKg0ZRaHILMpOClEhCskeKXvT
[encoded data, 11163 characters]
jR8E9htUvABXT6ffVllG/jTDh1IlISbW+rT8N4HnAni44f+jP4nj
          "]], 
         LineBox[CompressedData["
1:eJxFWHc4l20blv2jYUep7ChKkVLu+1EksygykpC0bFFEZJOEJCQUESmys8ko
[encoded data, 11102 characters]
gOm17V13DElMkQL/A83hHL8=
          "]], 
         LineBox[{{1.9878865991090657`, 1.3543031775831691`*^-13}, {
          1.9883306963618566`, 9.062695038863922*^-13}, {
          1.9892207977123333`, -2.89226284456659*^-13}, {
          1.9897035508114822`, -1.943245564461904*^-12}, {
          1.9897035508114822`, -1.943245564461904*^-12}}], 
         LineBox[{{0.004330457838550809, 1.1988882109292831`*^-12}, {
          0.005417489561734625, 1.1713324754580868`*^-12}}], 
         LineBox[{{0.0015835426096924678`, 6.097257421178171*^-12}, {
          0.002498553563646729, 1.0477591017021837`*^-12}}], 
         LineBox[{{1.9802267038864816`, 4.7192911489204125`*^-14}, {
          1.9808078253096302`, 2.6126454994956467`*^-14}, {1.980820001269057, 
          1.0421663532156345`*^-13}}], 
         LineBox[{{1.9914196500123493`, -1.2427836537654003`*^-13}, {
          1.9924419094414973`, -1.32275532039995*^-13}, {
          1.9931356869355459`, -1.8540169399727802`*^-13}, {
          1.9933221566670647`, 6.364575533268636*^-13}}], 
         LineBox[{{1.9640987058303465`, -1.70086167372574*^-14}, {
          1.9649921707182232`, 9.880984919163894*^-16}, {
          1.965678597943036, -4.352074256530614*^-15}, {
          1.965678597943036, -4.352074256530614*^-15}}], 
         LineBox[{{0.026350109211944337`, 9.526427655491487*^-14}, {
          0.02760281693199906, -3.456679387170425*^-14}, {
          0.028216211956791783`, 2.1294077612310504`*^-14}, {
          0.02843341615954314, -8.39661673524006*^-14}}], 
         LineBox[{{0.03557391585864753, 2.3314683517128287`*^-15}, {
          0.03680374230388991, -1.623146062001979*^-14}, {0.03739277942159735,
           4.6052051061451495`*^-14}}], 
         LineBox[{{1.9972083674759915`, 2.26252905299873*^-12}, {
          1.9979406775092352`, -4.681205423295865*^-12}, {
          1.9988593097021097`, -5.820648409738016*^-12}, {
          1.9993135319588609`, -1.0023341878717673`*^-11}, {
          1.9999999591836735`, 2.155316607978762*^-9}}], 
         LineBox[{{0.020535767660489486`, -1.1519674103510626`*^-13}, {
          0.020876025547010978`, -7.930878176409806*^-14}}], 
         LineBox[{{0.010452116315053678`, -1.1190104398650648`*^-12}, {
          0.011449102014118605`, 2.302713575375037*^-13}}], 
         LineBox[{{1.9620347301258345`, -5.3779203312842587`*^-14}, {
          1.9628231956262647`, 7.698286452750836*^-14}}], 
         LineBox[{{1.9840002118990494`, 3.630651335129187*^-13}, {
          1.9848985602377929`, 8.721356969942918*^-14}, {
          1.9855849874626057`, -3.64885899273304*^-13}, {1.9859329599986912`, 
          4.297007194509206*^-13}}], 
         LineBox[{{1.9730157104597952`, 8.038569809798447*^-14}, {
          1.974599258106943, -1.5235159012471993`*^-14}, {
          1.9752096448489642`, -1.8235413179468196`*^-14}}], 
         LineBox[{{1.9955382299177344`, -5.043576667418393*^-13}, {
          1.9956089530489183`, -6.962375042256369*^-13}}], 
         LineBox[{{0.02215153575109261, 5.595524044110789*^-14}, {
          0.02262798561728977, 5.473966457197888*^-14}, {0.02330905175845, 
          5.300204719560498*^-14}, {0.0233548756632668, 
          4.617378953104516*^-14}}], 
         LineBox[{{1.982095511473139, -6.902256544094599*^-14}, {
          1.9826743788441172`, 1.0635134407522997`*^-13}}], 
         LineBox[{{1.9707098218150039`, 5.693223670277803*^-14}, {
          1.9711700157415382`, -8.165135234605714*^-14}, {
          1.971856442966351, -8.832379272405434*^-14}, {1.9719001314095574`, 
          2.1821433549007453`*^-14}}], 
         LineBox[{{0.007984504445927354, 1.2296571932877493`*^-13}, {
          0.00918978315958251, 1.4921952562474419`*^-13}, {
          0.00918978315958251, 1.4921952562474419`*^-13}}], 
         LineBox[{{1.976485155053046, 1.8103851751050116`*^-13}, {
          1.977283163141386, 1.0511591597150983`*^-13}}], 
         LineBox[{{1.9789406327784322`, 5.1596999971358246`*^-14}, {
          1.9789410135779752`, 5.1808557444132934`*^-14}}], 
         LineBox[{{1.9676892402150108`, -5.1936233091964824`*^-14}, {
          1.967755017501798, -5.558886684298159*^-14}}], 
         LineBox[{{0.02514923683282817, -1.1427525592466736`*^-13}, {
          0.02514923683282817, -1.1427525592466736`*^-13}}], 
         LineBox[{{0.015047899850261759`, 1.3304912727107877`*^-13}, {
          0.01526052786580041, -3.606358446855049*^-13}}], 
         LineBox[{{0.012881336336973713`, -3.3392733023163146`*^-13}, {
          0.012881336336973713`, -3.3392733023163146`*^-13}}], 
         LineBox[{{1.9871838999539597`, -3.111511048814464*^-13}, {
          1.9871838999539597`, -3.111511048814464*^-13}}], 
         LineBox[{{1.969434311610922, -8.776868121174176*^-14}, {
          1.969434311610922, -8.776868121174176*^-14}}], 
         LineBox[{{0.03060659187613595, -1.184607967275042*^-14}, {
          0.031283187080755406`, -1.6930901125533637`*^-15}}], 
         LineBox[{{0.0066929997658162575`, 7.759293207953989*^-13}, {
          0.006747386089046483, 7.488454301096681*^-14}}], 
         LineBox[{{0.016561706485730052`, 5.361822097427194*^-14}, {
          0.016561706485730052`, 5.361822097427194*^-14}}], 
         LineBox[{{1.960624997623548, -1.9295676167985222`*^-14}, {
          1.9608736073693467`, -8.550937735662956*^-14}}], 
         LineBox[{{0.03320526207637583, 2.2548629630136932`*^-14}, {
          0.0342984056545659, 4.084510507595951*^-14}}], 
         LineBox[{{0.018527738344276564`, -1.5812351428223792`*^-13}, {
          0.019260257456407852`, 1.315503261878348*^-13}}], 
         LineBox[{{0.03866828962567898, 2.0872192862952944`*^-15}, {
          0.03877345108030803, -7.218670106112768*^-14}}]},
        Annotation[#, "Charting`Private`Tag$29974#4"]& ], 
       TagBox[
        {RGBColor[0.567426, 0.32317, 0.729831], AbsoluteThickness[3], Opacity[
         1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwtWHk8lF0YRSXJJ4QQIqWSJETk3tdOQvalpMiSJSQpUSGkyBLJWpSEENmX
[encoded data, 11956 characters]
Gu6XY6xsCBGJzse1v7F80WZqwzLwf5tA9Vw=
          "]], LineBox[CompressedData["
1:eJw9V3c8lv/7JZmJzCLJDlFCSrzfDxmZZRVZISTZo1D2lpSRlUKUkhmV8MgI
[encoded data, 11590 characters]
NbLaUD9P9F18/umEGeBLgCMmCTjfcsUPNMV9XShLwue95IPA/wFn6zsr
          "]], 
         LineBox[{{1.978245961995607, 2.683520072821466*^-13}, {
          1.9787207152144783`, -5.088568455491327*^-13}, {1.9787373661730594`,
           4.693689881207774*^-13}}], 
         LineBox[{{1.9834719537993055`, -6.892902915112132*^-13}, {
          1.98421213301298, -1.7115697747982495`*^-12}, {1.9848985602377929`, 
          9.669293143943492*^-13}, {1.9855849874626057`, 
          1.30225830119457*^-12}, {
          1.9862714146874185`, -6.441736033480084*^-13}, {1.9869578419122313`,
           1.0757783552861611`*^-13}, {1.9869578419122313`, 
          1.0757783552861611`*^-13}}], 
         LineBox[{{1.9943344794172735`, -3.0161567687869707`*^-13}, {
          1.9951949686099844`, -1.4910030154968725`*^-11}, {
          1.995881395834797, -4.992010971260897*^-12}, {1.9965678230596091`, 
          1.5252585305880474`*^-11}}], 
         LineBox[{{0.02002291036751643, 1.498232093943841*^-12}, {
          0.021468866684071834`, 7.859879413985027*^-13}, {
          0.022082261708864556`, -1.2088996470538406`*^-12}, {
          0.02269565673365728, 1.1756123852180167`*^-12}, {
          0.02269565673365728, 1.1756123852180167`*^-12}}], 
         LineBox[{{1.9800128763771412`, 2.563560475010718*^-13}, {
          1.9807799968889164`, -8.042594368262712*^-13}, {
          1.9814664241137292`, -1.7491064152608261`*^-12}, {
          1.982152851338542, -1.154104589673466*^-13}, {1.9821964435952237`, 
          1.048258702063265*^-12}}], 
         LineBox[{{1.9921023879292483`, -4.2689990431554746`*^-12}, {
          1.992449259710733, 1.797839377370991*^-11}, {1.9930589692131917`, 
          1.2498170554042788`*^-11}}], 
         LineBox[{{1.9750799425434327`, -1.316888265101568*^-12}, {
          1.9759750063152275`, -2.280980959668*^-13}, {
          1.97666143354004, -2.4026891587425326`*^-13}, {
          1.9769704517915252`, -1.152650197511207*^-12}}], 
         LineBox[{{1.9972542502844224`, 1.466718690945612*^-11}, {
          1.9972542502844224`, 1.466718690945612*^-11}}], 
         LineBox[{{0.011041151262595545`, -4.1903230885154135`*^-12}, {
          0.011041151262595545`, -4.1903230885154135`*^-12}}], 
         LineBox[{{1.9898585528143742`, -2.466934989620029*^-12}, {
          1.990389978036295, 7.696315806882126*^-12}, {1.9908268777251665`, 
          8.358011505116282*^-12}}], 
         LineBox[{{0.004929362547335268, -4.385139473761513*^-12}, {
          0.00613399106425376, -5.469519281930957*^-12}, {
          0.006747386089046483, -6.42437908426885*^-12}, {
          0.0070541304580072385`, 2.0657309196536745`*^-12}}], 
         LineBox[{{0.0030108407854104445`, 7.57428286757289*^-12}, {
          0.0036538523432536356`, 3.2084079837346736`*^-11}}], 
         LineBox[{{0.00012281403876088337`, -4.240843357039559*^-10}, {
          0.0015077563834993003`, 1.9301569231799932`*^-10}}], 
         LineBox[{{0.015334916436144605`, 2.695427214760571*^-13}, {
          0.01567413667554514, -9.843986736868261*^-13}}], 
         LineBox[{{0.007974176138631928, 2.298994328242543*^-13}, {
          0.007974176138631928, 2.298994328242543*^-13}}], 
         LineBox[{{0.017301467076844435`, 1.0516587600761796`*^-14}, {
          0.018008602395136863`, -1.6064649610569859`*^-12}}], 
         LineBox[{{0.024306314482584017`, -7.622669162543617*^-12}, {
          0.024306314482584017`, -7.622669162543617*^-12}}], 
         LineBox[{{0.013457281519494598`, -3.135150472566295*^-12}, {
          0.014603922407266897`, 1.879685296302114*^-12}}], 
         LineBox[{{0.009733703800962903, 7.273209812197479*^-13}, {
          0.009733703800962903, 7.273209812197479*^-13}}], 
         LineBox[{{1.9885830426102924`, -1.9061141554033156`*^-13}, {
          1.9885830426102924`, -1.9061141554033156`*^-13}}], 
         LineBox[{{1.9994970648041506`, -1.0992015492261587`*^-10}, {
          1.9999999591836735`, 1.7613646495352026`*^-7}}]},
        Annotation[#, 
         "Charting`Private`Tag$29974#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\"","\"U=5\"","\"U=10\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.567426, 0.32317, 0.729831], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.378284, 0.21544666666666668`, 0.48655400000000004`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.567426`", ",", "0.32317`", ",", "0.729831`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.567426, 0.32317, 0.729831]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.567426, 0.32317, 0.729831], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.99}], ImageScaled[{1, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*FractionBox[\\(\\*SubscriptBox[\\(F\\), \\(1\\)] \\((U, \
\\*SubscriptBox[\\(n\\), \\(1\\)])\\) - F \\((U, \\*SubscriptBox[\\(n\\), \
\\(1\\)])\\)\\), \\(U\\)]\\)\"", TraditionalForm], None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00002, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00002\"", 0.00002, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00004, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00004\"", 0.00004, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.00006, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.00006\"", 0.00006, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 5}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{All, All},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJxF1nk8VF0fAPBJKqFI8iCKSIo0ZiZbc87YU0myFC0aS7IVSaLNaJGnskRZ
[encoded data, 8235 characters]
LAP/B9ezTHk=
           "]], 
          Line[CompressedData["
1:eJwt0HtQ1FUUB/AfoqA5gbuAiw3UIrAgFpFtQbnniggpocRaUpQDKyjBoCvy
FFoHRJh4CYXIICbyUklkWggfLKYrLmutICKEIKDorrwfgjyMhTX5nd8fd+79
zDnfe89cq8CDO/ctoShq55u1uFPZn57wUA9venMSTc2vJYr9r50f2Iws+n7F
NJfE6LOsux1pyxXnuaTTif/fuBttbvkKLjmbEX+OE0abOn7OkqzfbKgLrqPd
2zRqTqQXK+w65JhfVWhO+KY+Qk8l9pd6mxNBf37Z+hbaohoph3gfd/B60Uc7
sfbwahLRuSM/jj26aNfiNaZkxm3y1hCHdq+42YT8dClv+AdL2qKSFBOSnPCE
EHusC16ySZ7toedLCO2isFYWqT2UuyEzlDZVLjQmpMtl94KYdqLdXSNS796T
Io6iLS/wMCIqDq/TJwEdCG+T7r+uJpidxLzKZSWh3upqLJSjW0WGJDkyYcZY
ifOeHjIgK3qsuUfvYj422oCwpfsjg9rxPUnWMmLjq1tjP4L1riZ9srXE6scq
zhhdDzhGEX6+EU9pgR6ypQg3S6t5ZEWbepXzGubi/g1c+j7WY+x0UClM8//W
FZ0UqgUTvYldCyHYL/h6BqjZHlO2GM2WTcPIiKqVF4k2sZ4GZUeZ0OcI5pO1
LyFO+t2O0l/Re5QT8CRA7u4pw/7w1GFo3FWp738THXJ6CK55FdRHKNB11YOQ
4xzl+ts99Ddj/eBhbC8Yf4YOPqWBDcvMtPoD6L57anhXqyczH0VfX66GV31d
zm6z6HVpT6HiRvbHJ1eO014a3wP5NZLJ31ehDdZ1Q/LF0KobZmhx7yPwz9vy
4cB7aBLSAV6ZTmPzNujzLg/BJcmykuWA9mW1A0s867CRj97W1Qq6IM3gV5+h
ExsfwJBfS/leglY0tIDCo4KXtQ3tXtwMsZYBa5/uRvMz/oZAHyff7j3oxikl
eB/TS38YjBYcaADeYOlEUzhakl4PbIto23+i0W2Ot2DB+ws/RTw65PZNaKsZ
kMuS0SKNDOT9tVOX05h5z16Dincy7Kuy0FTMFUhK/OCXC/noF9HVIP5Td7vk
DLqjUAp+fc2zZ0rQRYpKcNoeEZB7iXH4BbBI2HIiuwotzy0Dw2rTO+lX0PeH
i2FS83wupY7pHy6Ex5yrjkflzPtBBaD6MjVQ0oB23ZgHl4/45cWqmPmjcqBI
6qCKaGbut8iCTLV24UAb89/LU+Hw6qaPQjuZfGUSBHkW7tv7mLmfJQFvycFT
AWrG9lHw+R+uTd8PMP4kDHjPWHq+o4zviIBlpuYLJxlfF8L81pqQ7bOMuQLY
xG//WTnHmLKB/wEyZ/jl
           "]], 
          Line[CompressedData["
1:eJw10AdMk0EUB/CWoQhiSy1hamgRg4bEEXf6DrDiQhKDBaQgDgQFTUEgGmjE
xgFtJaiIA0TABRI01aIsa6hE3IIighSUIUWDCKUYhlIc3/u85HL55f7v7t3x
dsUFRpkxGIy1f+e/tUvP1eSZGbwZ1JgD/u76pc5WtLmhoNW8brhgTbssCpYF
l8fY26JlNfFwazDf/CyL9uQh4CvSL7M5tDfJ4CI/fnkm979PwAzN1rc2DrQt
T8LxIN99Cie09sFpGB+YZznVld4PzAaJnFNwfDa6c/1F6OH9WmHGo/u5mgdv
RK/2mzzQp8k1WDtwb4rUE+3GLAJN+uXCsflon9GbUFwtaRpegGbLVOAqCpEc
WIz+oLgLWd+9rQaX0JaUQaqbnaBvJbpSWQE/qsbf7xHQ9bVVELulO05P0HJ7
DQSllV3rFKKz5Vrw6g+yaQlAX1/0BCpFm2qUm9GCz09B+HB1ItmCFhU9B3Hm
grYbW+n7dr6G3hGPU6FhdP/iBkjY7iq0jUDHqt+AYuG00qRI9IoPjcDN+R3h
GY3Wjb2DQuYIp30v+hn/PVQ2dqcIJegdWS3Qm6TZyElGO3e3Q8JH9WSdFK0O
+AQmvxJ1ciq6vbYDuA7nnbuOoYd3d4GwKq5PlYluudED9bzo/MgzaK+jehAr
wwMdstF7I3shIWxDdWoO+tCSr1Bo4isDrqN97frBK9qJMIvR97nfoaKeZbxX
Qvc3awDqCyZCXVWUZetmG8Dk2zzvWxV6aZgRxGmK5/IGdMbGUegdOHJY0IiO
HR6FAyEHFxma6Pflj4HcMzInRIf7hyfGofyFIGauHt3aNAEzWQarxz8p+8RJ
maTxoTJ9gwnr29qYJGu/x5SG35S1PmBGOC/E5jqLISo/zdyccE7UmQZnDOF/
51oQ9q9co4s7ZW3fyFQy/Ytfe6I/5nvCWeTVuU7xeADmk3QskrFG2pq6mbLb
Hi82sbl6p1kRRHmHsZRNrLe5vC3YjueVquyI1TtD3ctEzNc+m0ksai6p3PMw
/2ilI9EJ1qzvyMd8vMKRqKr7O3Ov0G51JOJy4HCKsT44xYncvd2RxFBTlqXX
OJOIPPdVH5+iXYJnkcrk0sfnhymzvUU8wrIWreNaGql6/xg++QPzwKXM
           "]], 
          Line[CompressedData["
1:eJxF1Xk8VF8bAPAJRURIspRsCaHJTEXmnKFkiQpJi32pZCeKIlJJ2hQhWkii
[encoded data, 7930 characters]
4ShrKA==
           "]]}, "Charting`Private`Tag$29974#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJxF1Hk8VN//B/BBaYqQJImi0CZps3Xf9w6yhIQ2SppEEaKSlLKkpPChSBRF
[encoded data, 5612 characters]
o0VSrMiFssadHtGMlbIlt5D/B5tsLU0=
           "]], 
          Line[CompressedData["
1:eJwl13k4lOsbB/ChzZEjlWxRKkly5JQaOblNUpEle7QgITpEE8mWSSplDzWy
[encoded data, 4941 characters]
42//9ZMyGNTR1Wy9VDv9n40LX+j8H1G64bo=
           "]], 
          Line[CompressedData["
1:eJwt13c81VEbAHCKsgkN8malkKKohJ6UsklGybyJKDNbA2WPJCJJ2ZIIdcl2
[encoded data, 4758 characters]
tIwgop5DmKcTOyE6xRD+B6dlpAU=
           "]], 
          Line[CompressedData["
1:eJxF1Hk8Vd33B/CbIZLMlSZTMiZS0XDWvhQyVVSaKMNDgyEaVBRuiiQVJSSV
[encoded data, 5551 characters]
kQ==
           "]]}, "Charting`Private`Tag$29974#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJxF1HlcTV0XB/BTUhEqJdUbShkiSQjZy2lQEiJJhZI0UFERInSLBtKkVAi3
SYMi0nxOrmZKKkMpNCmNJEVUvM/znn167z/3fj+/tdbZ++79OQo2Ljvt+AmC
mM5HEP9+G9p11fK67Tb88/NbwmKKzncPEDBrWUMS6+SzHOqT6IZlPbdOu+mR
IwF7euZ+uEML71TLzxo3IzNa8t/u/XyG3vKi/tEtGVuS+PfTvI62UzrI3fjE
nryyQ99FJEOMznt7uuFUtTN5oT2vWd5Mku65+LrkQKQbU79DiM5YM64+JuVO
Ord0VZWGq0OJrmxOccxJJj++ntaNfrHP5oUHedJV/f6z0T4Uw2+dsiDek8mv
K4GokabtZd9z5Jeqf3YzQ4F2F+dc6HPwIve9/XFZO/4/9HfbkUntUt6kB39H
hegWMVpfIHDbiOAFMs798LdlTbNASsNfN0jmItno+/fv32FVumK7rvqZmb6k
7/viZzG82bShaCoqjPFjnqezCJC16z2HFj/yz2bVdwbtCqD/Ob/l67xL5J6V
3NA5XEFwtrJ65H/gMlMfqgjpd4x+e0gEkku+75Y5K60I+9/YtotdCCItS5XV
Phj/osxL353cnBxMjuot4Nx06qNsRCQD83xCyO8NAkmmpg1UXf9+XtOuUDKi
5kbt7G4JOPlALXzLcCjpLVSiY3C6HS0TInOrq8NI2c+BX8q+f6RM11Uf5xlf
JUvK6sWXihF0TyI9ZbD+Kl4PAaWWggaFHuGMKQmoDLj6JPNdOHlXNYes2NyP
ciPLBBZYR5CDeSn339lUoN2+LfyKe68x9a6DlNjaVQeyhCJJQXtfncL7fDBt
2M2rICaSyQmC/pyWT/tDFH6eBGxWCnEVoaLIVun309riJGCP3uldtyWjyfLS
K9O/nhWHxqiLBl6W18n760u8TtxRBpMrH7JzedeZfkllKLFFporj18lJ9xwb
piQthiljR1ca899kcqV58Ckzx21OPHaNDDxxIjK6dWOwh6gbipu/ZH3C5kjS
G3/K9RiF3yJNDhatSrP4gYzDGx2NFt5m8pY2dHGRddTCjNtkxP7xpcGK45Tw
JOfPnQ53mHxkOn3MsvGqhQCX8VoRsJd7M08SuOSi3A0Bfneb0cKeAvWMNC75
fHTR0S225UjTbdNA4DCud51EL37hJDqoF4tN0LOUQ1XNI7HV+Oi1npVCi9pj
Sf+c+/f0e/npgZYGZ6U1cUzOHaA+ovHAy/7YRDWqjFa4N1DPuo/KHdJ7vntx
PGOtFvQ4aMYY5RFPxmlXDogSrSgiLVhY8RnOXScDv9nW+MfLEkj+sIyAwuZe
1JBpHpx/PIFsFDdaU3frG6rzdeluKk/A80Yoz5JthpPnJeLz5QelSSr3VE8m
Tqy/SnvqNPMX2MQQdYLT5eytdBe7iJr7pOxFqie2/AgqG09QfV2HrfWDckEX
QsaVk/B+CZD2PDCw0BubM0bx8kjjHQ2su9HhkTmPTi9PZswbRzPXjM2M98Mm
slH+icbjVR9YP6cOPs59PbwqBfs7Ne175Op5V7BrCMhacSLSoJ3NvyErV5Of
bpqp+H4MIsEHK8xvhmHL/0IP+kXzSrqwiTZkrvJF5gt5D6/vLUU4VZ2ZHYWt
1YNSUlKbtL5gW/9AO7sCkKNeGs4/odGFDrfCY9Im9pdgp/eH+o5NcKmtCYr7
Ow3T8X6H0XAbH080Lp39/9BthRb5db+wOb2UvnWht82O+xP34evtmLbAJGyi
FkV/OKOb9YfNx5C2nEXCR9MHuL+e6tmzZrJwOrZWL3peNTVTmj8D523U3L7T
B9OXse5Bx0S6JXQssHkDqGyJecnbixkT/bKG5e5OGdhEPnI5rLGAeM/mbagk
IPFNhNBD9nyQdLKkn/JKbF4n5Vx+QaPQis1/IV7nYOfOy9hcPpAUtIn6nMXm
DejwgtpNZ1tZp6HCjVojYtMfYX+kZto+SE5ci815R9lfmGuhacvmPaggLmjK
yxDW9UisaCzvYAE29yeybXVyHOlk8wSUSzTJBs3MxOttQdPkDSsVNmATX5E1
meeZfZj1IMqyWqyy5Rpb342mno9638xj3Y+sbgkGufdlsvcJPaJOwBTpx7if
gwTff+q/pcu6Au0ZNbmt7oLN60IPZIuNym+weSsS0FT/u7fs/za3iH0w8O0x
e97oa9OuqXGyWRPr8bMStjPRZf2ZkmsteCLgjE2UoMyDLrLZEf+vN+ycf8KB
ZnMO1XLo7UvpTtaN6FTvpSXPZ2RjP0IzjoKv5xrWVShxYKBZxXrCFDqeoPkx
gPVz6tWw2bWQh9icN8jRQ2RAq5F1DcU3Wmg4yJ+DXUdFnzuWGL80Z+J8VYmF
hOkubOIVVerzbo/gOdbF1L7JQVk5iWz9KzToryV2uJrNX6JLU4ccZX/mTJy3
fFBSaeW8XOxclCO6V/6cAWuCNro6w1PVDbvlL9UhWfSm+To2p486G3VCLayI
9QglIascqNPL9ndTqTHvO75L5LHvA0prXqhWImL9nqqP1b252y6Pff9QR5V+
DgsFs26iBJJSd+Rls66jbipb3XNsxuZ1IPU0cUE54Xz2fYGeqZZav1DDJjqQ
9UOPgvMW2C0/0I+VKlJqPtjyBARlN7u2prL5OFJaF1559RU2dxLkF+gv3DiG
bT2CjDf85gwrFeBcALp46U13t2FnCICX7gEN85PYhBBIlUmGTbnD1gtDmkFF
b345drQ46FZ66jsPYDeIQeO25bFzZCi8P3FwrWkbrdbG7poNQiaRuzmO2MJS
cPvN5ocrwrG50rDafFykvQB7sRxUNWbYR3zCNpADG0vbp3rTaTxvLvxqni33
czW2/HwItak8mWyFPaIICzvO11r4Y19RAtpBXUUkA1tsEezq6fCjGrBXKUOv
8/XWI3yFjD2WgM/XrWjeEuy+pSBzjIiq2YntqgoZQ5nfvD2xG5bDplMOW1cm
YKetgI+/ZJM+VWGjlSDy13vfprlPGBtqQPRhMysVfeyNa0DptYq1+FHs3HXw
cAO/zY9r2BrrYUNK/cEmGvsRgkqJdDteB3bFBlAhn2bWCfIY+2rBsaF7q0pl
sd21IS8lMitHFTtKB4j93hqpOthDuqAv6ZwTsxtbWg9endfO8z6P3bgJZFep
aLpfxe43AOtuqQL7u+w8Q+g36aO2VGMXbINVU+phQxt23nY4U/i0UO0HY07c
DhBSjuLNmvsU36edYPTRW1tYnTHnhglEhDsX/dbD+c1d0GhgpttvgU2ZgsIf
7ZLmI7h+uhkcylTRq/PG1jSH+4dml5Vcw/WHLGBoDv+mnBTsyj2w/lVfeQqN
jfaBT0C9QUwtdrIlVEDRs+AObPn9YJocVXl8ehGefwBiLH222itgS9tA28wj
L8xXY4/bgMs5nZdgiV1vC9nqy3aouTEmWu1g7PPs2vm+OG+zh0s7++uE0nG+
6DDUCDWY/Obh3MgRpOii132vcR7mBPGLot/WjuFc4SjQYzqNN7cWMx5yA4FH
y/YGWzPmPTkGhg7S7znu2MHHob62/4NdDPbWEzDXv8HKPAN73UmwRcXNhiWM
iWWn4Nvd6NblfYy1lp6Gtfsu2MwnShhrnoHz4kfbJSUZE8aeIHJWt+PXeuyb
52CB8Zeu4kBcb+ENsl6bNB1iGctL+4BYOjdwag5j61Yf+C1somrcxph38SIM
aKR5Df3E/ba+0GE7uTZqeinTb+AHNbyc4x/XluL1BkDpF7FSbyPGnCWXIF/O
UWqBLWOt1Zch0UMuzykE55ZX4Iya95+RDsY110LBxapxe8woY9f1YWB7ZWUs
KV72P3O7w2B7V4euH2JMmITDRinymvJOxqFiEaC5MbqzyoGx9ZsIUOIaXpII
x7lrJMhUxzdmJ+PcIApmjI0t3VOI5y2Ohl9mD6q53YxrRq9DtaikpKpWOePx
W1AMR+xqTbHF70CuU1m2uxNjLWkuxJd7WBREMs7ViYXo4dpUqzTGRHMsBCsu
HeMrYjziFQceXh9uG/QzNq+JhyPpGgO9/BXMPE4C2DSFaIdIMxZenQjrqIT+
WcqM5YsT4b+SJv0R
           "]], 
          Line[CompressedData["
1:eJwt13k4lG8XB/Ahxa8k2ROFIklSSVHPMXYVQoQs2RKpSBKlDEm2GUqJyhJa
[encoded data, 8723 characters]
D6pyf7Q=
           "]], 
          Line[CompressedData["
1:eJwt13c81f8XB/BbZCcrUZSIEFEpKZ8TkcgOhSJJpbJX+sre494fGUkqlYZS
[encoded data, 8784 characters]
v1wkjViTbsnqOk3aT+MJ8X9fzdWk
           "]], 
          Line[CompressedData["
1:eJxF1Hk41WkbB/AzTFlCkrSQkLVUUpTpuftREjFRo5SUJcVF0pQlItsQUZQ1
lRRGb684Sdl+pxDJVgqNIWqIcMqSff29vXOehz9cx+e67/v7bOc68nau+0/w
sVis6R9///8s9wwNyJiYon78y1KtTQOdPpZFKP/0v074IwUMOgWmMkV5zlO8
C0KpRmlbxXmOik+GatvwvSUSPI+JJsNvLWJ3G5byzBJJApv6JQZT8jwX7UwE
xesWfcGK2HY34IvpjYSFKjx/Ck2A01UyXAV1PN8ZBxdKVkcZafNs0x0N2/1P
6NRt5fnMlmjg257eZrUN54Vfh9D8NVpndHmu3XENTDxPtY7vwPl/RsFCrcxL
Qbt4ThaLgjj2xqa4PTzrNl6Bw6fPBcn9itd/EQEy6k/UH5ji+afhkJK+1Y9j
zrNcXhiwkyjFz8fw+pIhMOg9KGBri/N2BYO2RTq35TjP/l5/QOHChY//csT5
o4Ewwy2JM3fG+0GBoPvKw/utC86PCICX/q16VWdxv7Y/CB69rmTojtfb6AfG
OgZCZZ44f9IXagce1j7zwf33L0Czna91dgjej5cnyFIbd24Iww7yABvpDuWM
cDyf5A6ddSa9aVE4v+EcqLJZ7xSicR7fOXCOyHlyJxb3bzoL/foyvjcScT3r
DGySr7WRuo3rE67gMR2kH30HO/w0TD7hLriSij3iDPNVChP9M/G8vgMY8bte
nGZja52EiI8Kdt6PsbedgEUJl9Xc8vD8zuNg7rZddKAA1x3tIM7se78LBzvc
FmSELPMcSsh7WoN1h+itz6XY+47BveJiP9ty7DorUPFW232kGnuRJWhyxxr2
vsfraRwA9/KM/KpG7AXmkJdic9uwGfd374cJP8mAshZcF9wPYPXKfscn7K9m
4L/Vx/B5G7aUGZRIaqijDjxvuxcMa+IHtXqwtxjD5f8Y/5X9FbvYCGqCmYIN
fdg7DGH/dodAtSHs4F0Qu0L65J8j2Or60Djy2mj1OPbynXA0S3vRyhmyX114
ajkmVsua4fkgBWLzC0SC+LG9ARweXRDWno+tvQ2KrECwWxB7/i+wTJCZd2sB
duYW+P1xEb+pGPaEFlQeC/yJbxF202ZQENZnchZjb94E3k/mTTtIYatvhDqb
8okVy7GVNUBdJGysRhq7cR38kbtnxF8W22YtfLATGdokj81WAy2x1wOdq7EN
VeBqfmTfDWXsW0rQab/vm4kayVOE7eKLucxa7Dx5iC+s78pej10qB/0n4zpP
bMROWAWGEoc+L9uMLScDyZzlbVXa2FulYdyx+eNFHWzdpbBf8nbLRoR9aAk8
eH6s+fN27H5x4HOW+zteD9tMHI5Itb3fo4/9SQhyilPqpw3I+QRBxOXEO7bR
XN1+mUrtcRMy/zNwXnTVSJmSOgukXB9UVewj9zWOTq84VeFjjs2aQS/L1pVv
sCDnGUWrfu8rbTs8139e5lFJrBV2UT+qLT9bZGhNzteHVM9tfjZpS/IKUIDs
SGGmPbb/B9RUkZtv60BcizTdvXIlnch8N31ZbtuT8lOk3kS3V01le7sSD9PI
8xl73VmSP0jHKPhnfnIj5xuhv9XoZUR7krwR2sCL/4GBNznPMJ2kWJY+7kPm
a+nRNyFpGX6z+6HNLhimWAcSt6L7ysJ3JYJJfzX66V1VUtkl4hra0vfKrfOX
iYvpbFXTxLVXiJvRgnrxhNZIcl+dtL3fu9hr10k9GdFrYqL1Y4mLkOT7A9dG
44kbaJeApZEPEonL0Ev1vyOO3ib7e4tkGxMviycTN6A362VDPNKI3yH/4LsB
Hx6Q+bdI1FNgj+1D4jw60dFFojOL9H9BypZ1TU7Zs+9HPzbWSenLIW5DunDH
2S13Lq96/bzN4/lkfgAdlnOe8qXJebtQ56K3pXzPsZOH0Fn+LVcuFZP3aUfM
0K0DIqUkrwlFdPLJXntJ/AYta3TsXFIxd960iteZiVVz96FZuNlz1WviSfQs
I5FKrSX5n2njJJagWh2Z70eNkSdrHzaQ78sosg+oTtBsJPVxNHBW0za3ae79
L9onqKEWkvcPEj44M1D0kazXjeJ32xfsaiP9Q0hRpzKw8jNxC2Kv0TA2/UL6
/RHIxC2u7yZOpStFp5oPfSX99fRBxja1pZd4BLX3l5+yGyDmojNt67S+DJL9
9KKpuuhp55G59w4rGy/rH5v9fiOpXOur7pPErXTK/bKDE9PEFbRG4tpVfixm
Np8Ov/aFnx+bxaaNfEezQudh63LR+9NHz4sKknoBbWfzQve6MLbNMOrbpya0
VHS2jnx2Rr69uZDk1yMhreEbchKkXoLilI/YpUmS+jCtsKx4zZqlxJ/oLCGV
wczlpL+KRpMRhZtksOX60auv34PyZLGL2tCB1kMmIE/6O+i2N88kS1Yzs79/
rsWKLQbKJL+Hnsq+nFalStxFh6b2u5itndvfkriD2g3rmNn7vneJnjmsQerv
6fVeCuWtmqTOB4VOoZHHtUjeN9rQqteiawvp70P1v5rLufxCXIlsqYKuAUT6
J+heDblHHhSp1yFvhRCvST1Sb0cCkl/1/PVn10cx8/YLz9tNzjeI5EZz34UZ
zb3Pw66VN8VMiJvp0NvBNq17idto+/3flDL3ETchXYEDXF/z2TxahqbZv1qQ
eg0aO6PosdKSuJrWM9sUK23FUDp16sMb907RmU2DLI41uY92Or2gQ2mvLUN1
Xw2yio3oRFulz1+6aM9QcTLd1a27P6Id42v2qTuSvPv0rqQ0gYNODBURE5B+
xLSPHrebaK5yIe/bQ9cvtbt78wzZ3xTNrq446XwOO1kAFoSzULsbQ+mL/6wn
XtSDHLVvDAh7kftrRauSHX0eXCT7a0PR+TFGTsEMdeyC6bXMA2Uo+9md6uWX
SH8LffWcwPXuMGwNFsdJ1dUiP4KsN4HU+Re0B0Uy1JXKAG5WzxAyz+nlnr/G
ULpTIckKQtIwZfBnumos7u9aCeluvWyzeIZyfpkrqa24GnLY7pqvEnFdVgWe
vq1Uk7jNUMLh7tI7twzRzit2cRyScf2DFBi8yQjckoI9xseJ+nB33bI0hvIe
iukYWbqQ06opMzVyn6HeG6d76/13mK60c6+wzGCo6WOBr/gSWJBzzzjBIxPP
5/0EURaPjxo8IvcpDedNbUREcxiquN7E56vAd9qwOLCr4ymu5yyCmjwTS3Y+
Q60SG5uaeC3AGe3x39VUyFCbv3BPujYKcpo+5m898Jy813f6aYz8jGIJNnsx
XDcKezFUSu5PiFOa/Wj3i3KGyv8sIO5dosCpDsziKlYw1NC9j8whtgznMnvH
40tVDPWPW/PiL2xJjpJj0WL7GnKfIpwVub7WsrUMlbFepzT8piRnXJW74e86
hjrVp/buoY8SJy9k9HhdA/m9EOEkTX8vk2hkqNKDAyxb5yWcrjvc1E8tDKVy
esMFlrc6GKetz9nRivtb1UHZMs5L4h9sGX7gWzizva0d21ce3pwZOpbS8SPv
TVi0RcMg7RQhNx3W/eN+VnoEBL9YzfErvFsiw2WoqRiOtvTafnogJ6Sn6htD
RY4mLH8toMOxuOO37+sAQ/W8lurOym+hVU1OfSwa4uX7dwHHQWlF1OkRhnqR
+eFZ7+5N4HZrd+dvkww1M+K+rINvBYd2StmgMY37A5QgftWCYYb51wOpqjTn
f1t5+aQ=
           "]]}, "Charting`Private`Tag$29974#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0., 0.596078, 0.109804], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          
          Line[{{4.081632653061224*^-8, 2.155316607978762*^-9}, {
           0.00036432384925595316`, 9.201377854095583*^-12}, {
           0.00036432384925595316`, 9.201377854095583*^-12}}], 
          Line[CompressedData["
1:eJwtWHc8Vm8cRZFXfkpUiELSkiQReZ5rV0JGKg0ZRaHILMpOClEhCskeKXvT
[encoded data, 11163 characters]
jR8E9htUvABXT6ffVllG/jTDh1IlISbW+rT8N4HnAni44f+jP4nj
           "]], 
          Line[CompressedData["
1:eJxFWHc4l20blv2jYUep7ChKkVLu+1EksygykpC0bFFEZJOEJCQUESmys8ko
[encoded data, 11102 characters]
gOm17V13DElMkQL/A83hHL8=
           "]], 
          
          Line[{{1.9878865991090657`, 1.3543031775831691`*^-13}, {
           1.9883306963618566`, 9.062695038863922*^-13}, {
           1.9892207977123333`, -2.89226284456659*^-13}, {
           1.9897035508114822`, -1.943245564461904*^-12}, {
           1.9897035508114822`, -1.943245564461904*^-12}}], 
          
          Line[{{0.004330457838550809, 1.1988882109292831`*^-12}, {
           0.005417489561734625, 1.1713324754580868`*^-12}}], 
          
          Line[{{0.0015835426096924678`, 6.097257421178171*^-12}, {
           0.002498553563646729, 1.0477591017021837`*^-12}}], 
          
          Line[{{1.9802267038864816`, 4.7192911489204125`*^-14}, {
           1.9808078253096302`, 2.6126454994956467`*^-14}, {1.980820001269057,
            1.0421663532156345`*^-13}}], 
          
          Line[{{1.9914196500123493`, -1.2427836537654003`*^-13}, {
           1.9924419094414973`, -1.32275532039995*^-13}, {
           1.9931356869355459`, -1.8540169399727802`*^-13}, {
           1.9933221566670647`, 6.364575533268636*^-13}}], 
          
          Line[{{1.9640987058303465`, -1.70086167372574*^-14}, {
           1.9649921707182232`, 9.880984919163894*^-16}, {
           1.965678597943036, -4.352074256530614*^-15}, {
           1.965678597943036, -4.352074256530614*^-15}}], 
          
          Line[{{0.026350109211944337`, 9.526427655491487*^-14}, {
           0.02760281693199906, -3.456679387170425*^-14}, {
           0.028216211956791783`, 2.1294077612310504`*^-14}, {
           0.02843341615954314, -8.39661673524006*^-14}}], 
          
          Line[{{0.03557391585864753, 2.3314683517128287`*^-15}, {
           0.03680374230388991, -1.623146062001979*^-14}, {
           0.03739277942159735, 4.6052051061451495`*^-14}}], 
          
          Line[{{1.9972083674759915`, 2.26252905299873*^-12}, {
           1.9979406775092352`, -4.681205423295865*^-12}, {
           1.9988593097021097`, -5.820648409738016*^-12}, {
           1.9993135319588609`, -1.0023341878717673`*^-11}, {
           1.9999999591836735`, 2.155316607978762*^-9}}], 
          
          Line[{{0.020535767660489486`, -1.1519674103510626`*^-13}, {
           0.020876025547010978`, -7.930878176409806*^-14}}], 
          
          Line[{{0.010452116315053678`, -1.1190104398650648`*^-12}, {
           0.011449102014118605`, 2.302713575375037*^-13}}], 
          
          Line[{{1.9620347301258345`, -5.3779203312842587`*^-14}, {
           1.9628231956262647`, 7.698286452750836*^-14}}], 
          
          Line[{{1.9840002118990494`, 3.630651335129187*^-13}, {
           1.9848985602377929`, 8.721356969942918*^-14}, {
           1.9855849874626057`, -3.64885899273304*^-13}, {1.9859329599986912`,
            4.297007194509206*^-13}}], 
          
          Line[{{1.9730157104597952`, 8.038569809798447*^-14}, {
           1.974599258106943, -1.5235159012471993`*^-14}, {
           1.9752096448489642`, -1.8235413179468196`*^-14}}], 
          
          Line[{{1.9955382299177344`, -5.043576667418393*^-13}, {
           1.9956089530489183`, -6.962375042256369*^-13}}], 
          
          Line[{{0.02215153575109261, 5.595524044110789*^-14}, {
           0.02262798561728977, 5.473966457197888*^-14}, {0.02330905175845, 
           5.300204719560498*^-14}, {0.0233548756632668, 
           4.617378953104516*^-14}}], 
          
          Line[{{1.982095511473139, -6.902256544094599*^-14}, {
           1.9826743788441172`, 1.0635134407522997`*^-13}}], 
          
          Line[{{1.9707098218150039`, 5.693223670277803*^-14}, {
           1.9711700157415382`, -8.165135234605714*^-14}, {
           1.971856442966351, -8.832379272405434*^-14}, {1.9719001314095574`, 
           2.1821433549007453`*^-14}}], 
          
          Line[{{0.007984504445927354, 1.2296571932877493`*^-13}, {
           0.00918978315958251, 1.4921952562474419`*^-13}, {
           0.00918978315958251, 1.4921952562474419`*^-13}}], 
          
          Line[{{1.976485155053046, 1.8103851751050116`*^-13}, {
           1.977283163141386, 1.0511591597150983`*^-13}}], 
          
          Line[{{1.9789406327784322`, 5.1596999971358246`*^-14}, {
           1.9789410135779752`, 5.1808557444132934`*^-14}}], 
          
          Line[{{1.9676892402150108`, -5.1936233091964824`*^-14}, {
           1.967755017501798, -5.558886684298159*^-14}}], 
          
          Line[{{0.02514923683282817, -1.1427525592466736`*^-13}, {
           0.02514923683282817, -1.1427525592466736`*^-13}}], 
          
          Line[{{0.015047899850261759`, 1.3304912727107877`*^-13}, {
           0.01526052786580041, -3.606358446855049*^-13}}], 
          
          Line[{{0.012881336336973713`, -3.3392733023163146`*^-13}, {
           0.012881336336973713`, -3.3392733023163146`*^-13}}], 
          
          Line[{{1.9871838999539597`, -3.111511048814464*^-13}, {
           1.9871838999539597`, -3.111511048814464*^-13}}], 
          
          Line[{{1.969434311610922, -8.776868121174176*^-14}, {
           1.969434311610922, -8.776868121174176*^-14}}], 
          
          Line[{{0.03060659187613595, -1.184607967275042*^-14}, {
           0.031283187080755406`, -1.6930901125533637`*^-15}}], 
          
          Line[{{0.0066929997658162575`, 7.759293207953989*^-13}, {
           0.006747386089046483, 7.488454301096681*^-14}}], 
          
          Line[{{0.016561706485730052`, 5.361822097427194*^-14}, {
           0.016561706485730052`, 5.361822097427194*^-14}}], 
          
          Line[{{1.960624997623548, -1.9295676167985222`*^-14}, {
           1.9608736073693467`, -8.550937735662956*^-14}}], 
          
          Line[{{0.03320526207637583, 2.2548629630136932`*^-14}, {
           0.0342984056545659, 4.084510507595951*^-14}}], 
          
          Line[{{0.018527738344276564`, -1.5812351428223792`*^-13}, {
           0.019260257456407852`, 1.315503261878348*^-13}}], 
          
          Line[{{0.03866828962567898, 2.0872192862952944`*^-15}, {
           0.03877345108030803, -7.218670106112768*^-14}}]}, 
         "Charting`Private`Tag$29974#4"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.567426, 0.32317, 0.729831], 
           CapForm["Butt"], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwtWHk8lF0YRSXJJ4QQIqWSJETk3tdOQvalpMiSJSQpUSGkyBLJWpSEENmX
[encoded data, 11956 characters]
Gu6XY6xsCBGJzse1v7F80WZqwzLwf5tA9Vw=
           "]], 
          Line[CompressedData["
1:eJw9V3c8lv/7JZmJzCLJDlFCSrzfDxmZZRVZISTZo1D2lpSRlUKUkhmV8MgI
[encoded data, 11590 characters]
NbLaUD9P9F18/umEGeBLgCMmCTjfcsUPNMV9XShLwue95IPA/wFn6zsr
           "]], 
          
          Line[{{1.978245961995607, 2.683520072821466*^-13}, {
           1.9787207152144783`, -5.088568455491327*^-13}, {
           1.9787373661730594`, 4.693689881207774*^-13}}], 
          
          Line[{{1.9834719537993055`, -6.892902915112132*^-13}, {
           1.98421213301298, -1.7115697747982495`*^-12}, {1.9848985602377929`,
            9.669293143943492*^-13}, {1.9855849874626057`, 
           1.30225830119457*^-12}, {
           1.9862714146874185`, -6.441736033480084*^-13}, {
           1.9869578419122313`, 1.0757783552861611`*^-13}, {
           1.9869578419122313`, 1.0757783552861611`*^-13}}], 
          
          Line[{{1.9943344794172735`, -3.0161567687869707`*^-13}, {
           1.9951949686099844`, -1.4910030154968725`*^-11}, {
           1.995881395834797, -4.992010971260897*^-12}, {1.9965678230596091`, 
           1.5252585305880474`*^-11}}], 
          
          Line[{{0.02002291036751643, 1.498232093943841*^-12}, {
           0.021468866684071834`, 7.859879413985027*^-13}, {
           0.022082261708864556`, -1.2088996470538406`*^-12}, {
           0.02269565673365728, 1.1756123852180167`*^-12}, {
           0.02269565673365728, 1.1756123852180167`*^-12}}], 
          Line[{{1.9800128763771412`, 2.563560475010718*^-13}, {
           1.9807799968889164`, -8.042594368262712*^-13}, {
           1.9814664241137292`, -1.7491064152608261`*^-12}, {
           1.982152851338542, -1.154104589673466*^-13}, {1.9821964435952237`, 
           1.048258702063265*^-12}}], 
          
          Line[{{1.9921023879292483`, -4.2689990431554746`*^-12}, {
           1.992449259710733, 1.797839377370991*^-11}, {1.9930589692131917`, 
           1.2498170554042788`*^-11}}], 
          
          Line[{{1.9750799425434327`, -1.316888265101568*^-12}, {
           1.9759750063152275`, -2.280980959668*^-13}, {
           1.97666143354004, -2.4026891587425326`*^-13}, {
           1.9769704517915252`, -1.152650197511207*^-12}}], 
          
          Line[{{1.9972542502844224`, 1.466718690945612*^-11}, {
           1.9972542502844224`, 1.466718690945612*^-11}}], 
          
          Line[{{0.011041151262595545`, -4.1903230885154135`*^-12}, {
           0.011041151262595545`, -4.1903230885154135`*^-12}}], 
          
          Line[{{1.9898585528143742`, -2.466934989620029*^-12}, {
           1.990389978036295, 7.696315806882126*^-12}, {1.9908268777251665`, 
           8.358011505116282*^-12}}], 
          
          Line[{{0.004929362547335268, -4.385139473761513*^-12}, {
           0.00613399106425376, -5.469519281930957*^-12}, {
           0.006747386089046483, -6.42437908426885*^-12}, {
           0.0070541304580072385`, 2.0657309196536745`*^-12}}], 
          
          Line[{{0.0030108407854104445`, 7.57428286757289*^-12}, {
           0.0036538523432536356`, 3.2084079837346736`*^-11}}], 
          
          Line[{{0.00012281403876088337`, -4.240843357039559*^-10}, {
           0.0015077563834993003`, 1.9301569231799932`*^-10}}], 
          
          Line[{{0.015334916436144605`, 2.695427214760571*^-13}, {
           0.01567413667554514, -9.843986736868261*^-13}}], 
          
          Line[{{0.007974176138631928, 2.298994328242543*^-13}, {
           0.007974176138631928, 2.298994328242543*^-13}}], 
          
          Line[{{0.017301467076844435`, 1.0516587600761796`*^-14}, {
           0.018008602395136863`, -1.6064649610569859`*^-12}}], 
          
          Line[{{0.024306314482584017`, -7.622669162543617*^-12}, {
           0.024306314482584017`, -7.622669162543617*^-12}}], 
          
          Line[{{0.013457281519494598`, -3.135150472566295*^-12}, {
           0.014603922407266897`, 1.879685296302114*^-12}}], 
          
          Line[{{0.009733703800962903, 7.273209812197479*^-13}, {
           0.009733703800962903, 7.273209812197479*^-13}}], 
          
          Line[{{1.9885830426102924`, -1.9061141554033156`*^-13}, {
           1.9885830426102924`, -1.9061141554033156`*^-13}}], 
          
          Line[{{1.9994970648041506`, -1.0992015492261587`*^-10}, {
           1.9999999591836735`, 1.7613646495352026`*^-7}}]}, 
         "Charting`Private`Tag$29974#5"], {}}, {{}, {}, {}, {}, {}, {}, {}}}, \
{}, {}}, {DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{
        "\!\(\*FractionBox[\(\*SubscriptBox[\(F\), \(1\)] \((U, \
\*SubscriptBox[\(n\), \(1\)])\) - F \((U, \*SubscriptBox[\(n\), \(1\)])\)\), \
\(U\)]\)", None}, {"\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "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 -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.567426, 0.32317, 0.729831], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2", "U=5", "U=10"}, 
       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
     Right, Top}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7709167163707542`*^9, 3.770916883851122*^9, 3.770916978258779*^9, 
   3.770917088472508*^9, 3.770917135325161*^9, 3.770917246328361*^9, 
   3.7709174648568277`*^9, {3.770917516735989*^9, 3.7709175735021677`*^9}, 
   3.770917606348892*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"d856ece3-bbda-4d68-b1fc-6b1d63912b77"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hartree-Fock", "Section",
 CellChangeTimes->{{3.7709097812136593`*^9, 3.7709097988978443`*^9}, 
   3.7710009143929253`*^9, 
   3.771054756113542*^9},ExpressionUUID->"2d732461-e080-475e-bf57-\
fed536d4f106"],

Cell[CellGroupData[{

Cell["Restricted Hartree-Fock (paramagnetic state)", "Subsection",
 CellChangeTimes->{{3.771054760095847*^9, 3.771054766767304*^9}, 
   3.771054987688341*^9},ExpressionUUID->"8ddee78c-5bb4-4949-8b92-\
2a7aec4c33a4"],

Cell["The one-electron effective potential is ", "Text",
 CellChangeTimes->{{3.771054880196336*^9, 
  3.7710548914554987`*^9}},ExpressionUUID->"8ef63c15-76ab-4b2f-b3b8-\
36a924df49f8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["v", "i", "RHF"], "[", 
   SubscriptBox["n", "i"], "]"}], "\[Equal]", 
  RowBox[{
   SubscriptBox["v", "i"], "+", 
   RowBox[{"U", " ", 
    RowBox[{
     SubscriptBox["n", "i"], "/", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.771054898120688*^9, 
  3.771054917605371*^9}},ExpressionUUID->"e178aa09-d4f3-49cd-b965-\
c7a2d8cdad36"],

Cell["and the RHF eigenvalues are", "Text",
 CellChangeTimes->{{3.771054923103421*^9, 
  3.771054928119465*^9}},ExpressionUUID->"2a3dae70-4ba6-43e0-9efb-\
54ae070a13dd"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Epsilon]", "RHF"], "=", 
  FractionBox[
   RowBox[{"U", "-", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[CapitalDelta]v", "HF"], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"]}]]}], "2"]}]], "Input",
 CellChangeTimes->{{3.771054929612933*^9, 
  3.7710549675037613`*^9}},ExpressionUUID->"2d1d8bec-283f-4199-afc4-\
4f57bb13c89b"],

Cell["The RHF energy is ", "Text",
 CellChangeTimes->{{3.770789474989027*^9, 3.770789486630363*^9}, 
   3.771054986216606*^9},ExpressionUUID->"a9012494-a587-44cc-a026-\
548f13429b1c"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["E", "HF"], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["U", "2"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], ")"}]}], "-", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "t"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]v", "+", 
        RowBox[{
         FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], 
      "2"]}]]}]}]], "Input",
 CellChangeTimes->{{3.770789489201922*^9, 3.77078949380336*^9}, 
   3.771001311288274*^9},ExpressionUUID->"9df146aa-8f5e-4e68-be0a-\
e4edf11a794a"],

Cell["\<\
The equation giving the occupation difference for the RHF case is\
\>", "Text",
 CellChangeTimes->{{3.770789450190783*^9, 3.770789464345006*^9}, {
  3.771054784720263*^9, 
  3.771054785407435*^9}},ExpressionUUID->"e3f5b9bd-a23a-4c61-b878-\
2cc8289a4934"],

Cell[BoxData[
 RowBox[{"\[CapitalDelta]n", "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "\[CapitalDelta]v"}], "-", 
    RowBox[{"U", " ", "\[CapitalDelta]n"}]}], 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "t"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]v", "+", 
        RowBox[{"U", " ", 
         RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
      "2"]}]]]}]], "Input",ExpressionUUID->"7f846e03-a85a-4b66-97c2-\
5c1eb5f423aa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Unrestricted Hartree-Fock ", "Subsection",
 CellChangeTimes->{{3.771055063111745*^9, 3.771055069727655*^9}, {
  3.7710551807035227`*^9, 
  3.771055181768268*^9}},ExpressionUUID->"824703b8-61e0-4c51-b95f-\
74bfca7fbbd5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Sigma]", "\[Equal]", 
   RowBox[{"+", "1"}], "\[Equal]", " ", 
   RowBox[{"\[UpArrow]", "\t", "\[Sigma]"}], "\[Equal]", 
   RowBox[{"-", "1"}], "\[Equal]", " ", 
   RowBox[{"\[DownArrow]", "\t", 
    OverscriptBox["\[Sigma]", "-"]}]}], "=", 
  RowBox[{"-", "\[Sigma]"}]}]], "Input",
 CellChangeTimes->{{3.771055151309619*^9, 3.771055249418992*^9}, {
  3.771055433865718*^9, 
  3.771055455847659*^9}},ExpressionUUID->"a274a7e8-4f8a-4495-91ca-\
0335d2cbd62c"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["n", "i"], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["n", 
     RowBox[{"i", ",", "\[UpArrow]"}]], "+", 
    RowBox[{
     SubscriptBox["n", 
      RowBox[{"i", ",", "\[DownArrow]"}]], "\t", 
     RowBox[{"(*", " ", "Occupation", " ", "*)"}], "\t", 
     SubscriptBox["m", "i"]}]}], "=", 
   RowBox[{
    SubscriptBox["n", 
     RowBox[{"i", ",", "\[UpArrow]"}]], "-", 
    SubscriptBox["n", 
     RowBox[{"i", ",", "\[DownArrow]"}]], "\t", 
    RowBox[{"(*", " ", 
     RowBox[{"Spin", " ", "occupation"}], " ", "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7710550985051937`*^9, 3.771055137105994*^9}, {
  3.7710552556326017`*^9, 
  3.7710553053122663`*^9}},ExpressionUUID->"52e27f75-079b-4136-ad42-\
15df8825aad3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["v", "i\[Sigma]", "HF"], "\[Equal]", 
    RowBox[{
     SubscriptBox["v", "i"], "+", 
     RowBox[{"U", " ", 
      SubscriptBox["n", 
       RowBox[{"i", 
        OverscriptBox["\[Sigma]", "\[Dash]"]}]]}]}]}], "\t", "\[Implies]", 
   "\t", 
   SubsuperscriptBox["\[CapitalDelta]v", "\[Sigma]", "HF"]}], "=", 
  RowBox[{
   RowBox[{"\[CapitalDelta]v", "+", 
    RowBox[{
     FractionBox["U", "2"], 
     RowBox[{"(", 
      RowBox[{"\[CapitalDelta]n", "-", 
       RowBox[{"\[Sigma]", " ", "\[CapitalDelta]m"}]}], ")"}], "\t", 
     SubsuperscriptBox["t", "\[Sigma]", "HF"]}]}], "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "t"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       SubsuperscriptBox["\[CapitalDelta]v", "\[Sigma]", "HF"], ")"}], 
      "2"]}]], "\t", 
   RowBox[{"(*", " ", 
    RowBox[{
    "this", " ", "formula", " ", "has", " ", "been", " ", "corrected"}], " ", 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.771055073022241*^9, 3.771055095503583*^9}, {
   3.7710553192883863`*^9, 3.771055358104588*^9}, {3.7710554695044947`*^9, 
   3.771055523519598*^9}, {3.771087697717999*^9, 3.771087720582324*^9}, 
   3.771087815349167*^9},ExpressionUUID->"9502801f-a70d-4615-beca-\
24e2a5866944"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Epsilon]", 
   RowBox[{"\[PlusMinus]", 
    RowBox[{",", "\[Sigma]"}]}], "HF"], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["U", "4"], 
    RowBox[{"(", 
     RowBox[{"N", "-", 
      RowBox[{"\[Sigma]", " ", "M"}]}], ")"}]}], "\[PlusMinus]", 
   RowBox[{
    FractionBox[
     SubsuperscriptBox["t", 
      OverscriptBox["\[Sigma]", "\[Dash]"], "HF"], "2"], "\t", "E"}]}], 
  "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["U", "2"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[CapitalDelta]n", "2"], "-", 
        SuperscriptBox["\[CapitalDelta]m", "2"]}], "4"]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{
      SubsuperscriptBox["t", "\[UpArrow]", "HF"], "+", 
      SubsuperscriptBox["t", "\[DownArrow]", "HF"]}], "2"], "\t", 
    "\[CapitalDelta]n"}]}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{
    UnderscriptBox["\[Sum]", "\[Sigma]"], 
    RowBox[{
     FractionBox[
      SubsuperscriptBox["\[CapitalDelta]v", "\[Sigma]", "HF"], 
      SubsuperscriptBox["t", "\[Sigma]", "HF"]], "\t", 
     "\[CapitalDelta]m"}]}]}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{
    UnderscriptBox["\[Sum]", "\[Sigma]"], 
    RowBox[{"\[Sigma]", 
     FractionBox[
      SubsuperscriptBox["\[CapitalDelta]v", "\[Sigma]", "HF"], 
      SubsuperscriptBox["t", "\[Sigma]", "HF"]]}]}]}]}]], "Input",
 CellChangeTimes->{{3.771055542245883*^9, 3.771055602343852*^9}, {
  3.771055926121025*^9, 3.771056010672286*^9}, {3.771056173313262*^9, 
  3.771056207179427*^9}},ExpressionUUID->"f6b2f29a-73a7-48c2-bb0c-\
8d5348e0c4e6"],

Cell[BoxData[{
 RowBox[{"\[CapitalDelta]n", "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], 
     SubsuperscriptBox["t", "\[UpArrow]", "HF"]]}], "-", 
   FractionBox[
    SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], 
    SubsuperscriptBox["t", "\[DownArrow]", "HF"]]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "t"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], ")"}], 
        "2"]}]]]}], "-", 
   FractionBox[
    SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], ")"}], 
       "2"]}]]]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[CapitalDelta]v", "+", 
      RowBox[{
       FractionBox["U", "2"], 
       RowBox[{"(", 
        RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], ")"}]}]}], 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "t"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[CapitalDelta]v", "+", 
          RowBox[{
           FractionBox["U", "2"], 
           RowBox[{"(", 
            RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], ")"}]}]}], 
         ")"}], "2"]}]]]}], "-", 
   FractionBox[
    RowBox[{"\[CapitalDelta]v", "+", 
     RowBox[{
      FractionBox["U", "2"], 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], ")"}]}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[CapitalDelta]v", "+", 
         RowBox[{
          FractionBox["U", "2"], 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], ")"}]}]}], 
        ")"}], "2"]}]]]}]}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalDelta]m", "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], 
     SubsuperscriptBox["t", "\[UpArrow]", "HF"]]}], "+", 
   FractionBox[
    SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], 
    SubsuperscriptBox["t", "\[DownArrow]", "HF"]]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "t"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["\[CapitalDelta]v", "\[UpArrow]", "HF"], ")"}], 
        "2"]}]]]}], "+", 
   FractionBox[
    SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        SubsuperscriptBox["\[CapitalDelta]v", "\[DownArrow]", "HF"], ")"}], 
       "2"]}]]]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[CapitalDelta]v", "+", 
      RowBox[{
       FractionBox["U", "2"], 
       RowBox[{"(", 
        RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], ")"}]}]}], 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "t"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[CapitalDelta]v", "+", 
          RowBox[{
           FractionBox["U", "2"], 
           RowBox[{"(", 
            RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], ")"}]}]}], 
         ")"}], "2"]}]]]}], "+", 
   FractionBox[
    RowBox[{"\[CapitalDelta]v", "+", 
     RowBox[{
      FractionBox["U", "2"], 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], ")"}]}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "t"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[CapitalDelta]v", "+", 
         RowBox[{
          FractionBox["U", "2"], 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], ")"}]}]}], 
        ")"}], "2"]}]]]}]}]}], "Input",
 CellChangeTimes->{{3.771088860481543*^9, 
  3.7710889959766207`*^9}},ExpressionUUID->"e0bb891c-b197-476d-9f41-\
a18ebddee1ff"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]m", "=", "0"}], TraditionalForm]],ExpressionUUID->
  "07ef9dbd-9be6-4d8d-96ec-201e692af27a"],
 "\t\[Implies]\tparamagnetic state i.e. (singlet) RHF state\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]m", "\[NotEqual]", "0"}], TraditionalForm]],
  ExpressionUUID->"147d5707-ff53-47dc-b98b-96c72a1ebd87"],
 "\t\[Implies]\tferromagnetic or antiferromagnetic states i.e. (singlet or \
triplet) UHF states"
}], "Text",
 CellChangeTimes->{{3.771056013001246*^9, 
  3.771056153239757*^9}},ExpressionUUID->"ab2d1fe7-1655-425b-8575-\
aa43ab7378cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "=", 
         FractionBox["1", "2"]}], ",", 
        RowBox[{"U", "=", "5"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"\[CapitalDelta]n", "/.", 
          RowBox[{
           RowBox[{"Solve", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"], "\[Equal]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[CapitalDelta]v", "+", 
                  RowBox[{
                   FractionBox["U", "2"], " ", "\[CapitalDelta]n"}]}], ")"}], 
                "2"], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"2", "t"}], ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[CapitalDelta]v", "+", 
                   RowBox[{"U", " ", 
                    RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
                 "2"]}]]}], ",", "\[CapitalDelta]n"}], "]"}], 
           "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "10"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\[CapitalDelta]v\>\"", ",", "\"\<|\[CapitalDelta]n|\>\""}], 
          "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "=", 
         FractionBox["1", "2"]}], ",", 
        RowBox[{"U", "=", "5"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"\[CapitalDelta]n", "/.", 
           RowBox[{"NSolve", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[CapitalDelta]n", "\[Equal]", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                   SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}], "-", 
                 FractionBox[
                  RowBox[{"\[CapitalDelta]v", "+", 
                   RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                  SqrtBox[
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}]}], ",", 
               RowBox[{"\[CapitalDelta]m", "==", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                   SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}], "+", 
                 FractionBox[
                  RowBox[{"\[CapitalDelta]v", "+", 
                   RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                  SqrtBox[
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[CapitalDelta]n", ",", "\[CapitalDelta]m"}], "}"}]}], 
            "]"}]}], "//", "Last"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "10"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "DotDashed"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\[CapitalDelta]v\>\"", ",", "\"\<|\[CapitalDelta]n|\>\""}], 
          "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "=", 
         FractionBox["1", "2"]}], ",", 
        RowBox[{"U", "=", "5"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"2", 
            RowBox[{"Abs", "[", 
             RowBox[{"4", 
              SuperscriptBox["c", "2"], "\[Nu]", 
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}], "]"}]}], "/.", 
           RowBox[{"c", "\[Rule]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["\[Nu]", "2"], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    SuperscriptBox["\[Epsilon]", 
                    RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}], ")"}], 
             RowBox[{
              RowBox[{"-", "1"}], "/", "2"}]]}]}], "/.", 
          RowBox[{"\[Epsilon]", "\[Rule]", 
           FractionBox[
            RowBox[{"Root", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["t", "2"], " ", "U"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "4"}], " ", 
                    SuperscriptBox["t", "2"]}], "+", 
                   SuperscriptBox["U", "2"], "-", 
                   SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", 
                 "#1"}], "-", 
                RowBox[{"2", " ", "U", " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
                SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            RowBox[{"2", "t"}]]}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"u", "\[Rule]", 
            FractionBox["U", 
             RowBox[{"2", "t"}]]}], ",", 
           RowBox[{"\[Nu]", "\[Rule]", 
            FractionBox["\[CapitalDelta]v", 
             RowBox[{"2", "t"}]]}]}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "10"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\[CapitalDelta]v\>\"", ",", "\"\<|\[CapitalDelta]n|\>\""}], 
          "}"}]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.771089331440563*^9, 3.771089532739723*^9}, {
   3.771089569945269*^9, 3.771089574626499*^9}, 3.7710896092714653`*^9, 
   3.771090403346588*^9, {3.771090519717677*^9, 3.771090575711735*^9}, {
   3.771090612793105*^9, 3.771090643585746*^9}, {3.771090676133334*^9, 
   3.7710906803946753`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"f40d7644-8746-4fa3-8415-a7d69e2ce758"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
       Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwVzXs0lAkcxnEa1DK21CaMy4y3DGMS7dmzUvx+od2KLghFFlPGlPsc9pTL
VjZKUlNsLq2dpjatrGvatssaimQGm8hW2JTmCHWa0jQXw7vv/vGc7/n89bB4
KcFx8wwMDLZQ+7+VP/BMPPYW+iwhz+2S+wp92vuZgeHMfWA4IOF6tW4H8n7L
j0zmQeguqS9Z2hoDla1FDsbMAuiQfL+A1poKid4ZSWqHcjjhGdmmkR6G/hlB
idKhGn7OlZW/k4pg/tBL9luHm7DvWrzqmfQCSGTitCmHLuCq68NF0gaoqy8Y
SnR7BnXkyYSTwjaIh77yN8IxmJQEMYdfd0GywmWsuW4C2o2bGIVWfWDKOsp+
7qmEwhflHfLix3BqkZwjiZkG59YeD5Q+Bd7QDimt+xO0DggW34Z/Ia3jKC+F
rYPRhgNbVMEvoDGVHmK1aRai1MqmpKgxkGQlTLqHG6Bt33o3oUgBuWJ90Mc3
hnho7esE74pxMOgfxTuZNGxQYXbdTxPglM4/sINjjMmLZIfoN6bglao0zOwv
E+zPT74YU/cWNiv255xNW4CbhgUsm653sPWVyNXe3hSzjBW7zSeUMHmPd/hB
rRn2+ZemmDx5D24Wg3Z+0ebotFRJDxn8AKagih2e/hz16f1HjrZMw7dvI9SO
oYuwOmVgW+e1j/Dk7l7DCK4F6qxcFNGVKrh+vP07psoCd47buTJSPwHfOGO0
t3cxYs6J50MBatgjzLpOr1iCOSt+Y5MLNbAq3rU3MPYLVPJMPI06NfD3Yq5Z
xpqlyD+d/mVYrhZu1+We59Is8XntqHJ0hQ6yDDnbu0cs0dWzONBNpgPT4cyN
yc3LMJMx7+CbqBlQVLFKxNlWaFOWr0kdmoESZ2ujm6HW+JhUf8IwPYgq+J2x
TBs0/uX4N2139BBREtVLH7dBVn2aVbzlLGj8L2vFLQxU7oxaE5E4C2MK3wN3
j9mit06aJG+ahYveHoyeWDsM89KsLFXNQm1ehkX8SnvcoPNdpnGdg2OhewJo
KnscLFQH10fMwVfDkupjPQ44wnYJep0/B2Uu52t7Aph46xRHNXV1Dg61FpUF
3GRiyKMzAbSeOdjCCL0sW87CKgVf6j45B+uTOyMtCljYePv3Ebt5JIhtecu7
VSzMexr+p9aKhOX3rpzbGumI2flXM/pcSRCtvMt51OKIzsSLNP91JPCnjfq6
OASarZ7f7BRIAq/xA7PgNIF8cW5s9C4SEnND9JvPELivVOxVSjkjpPkfejGB
O/SfaXspH1dlnBKdI9Bm1MTJJ4KEujXamdJKAj+kRvkyIknQtpGDVTUEPnD3
PvtwN/X/iF7U3klgdHWxjh1DQsWlJEF+F4EXinPO76Z8Kb3Xb6OcwHwPMXGG
8h+WIp28l8C1tu0TWsrDEUsE/Y8JXHaCu00WSwJ7zNrv5RiBfl9bFvL3kODe
nGn/q4LADVz/qnLKXnlD2rhxAtfXnK7uphzIrmyYmCQwWHBDsHovCcIEpv37
9wRaND6U6SlnrzuibZomMN5M6LwqjoQ885cD6SoClV4XkmMpl9VfKtRoCKTR
nzV3UL542Cj+lo7A/QsNr6sp1wTF+WbrCZTXTFW68Elodrxv5zNH4EjmlZRI
yi3TTlqSJNDa3JdTRPk/HGdVdg==
        "]]},
      Annotation[#, "Charting`Private`Tag$19162#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
       Dashing[{0, Small, Small, Small}], CapForm["Butt"], 
       LineBox[CompressedData["
1:eJwV1nc4Fe4XAHDce82Le1VGxOUmWUXTqnOISmihgbJXRchKVJqyRdGwkpKG
[encoded data, 4697 characters]
P0Sdqec=
        "]]},
      Annotation[#, "Charting`Private`Tag$19610#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
       CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk0FOz3AHCSEsNYisGMmTGirFGkvNwbqUgqSwsaS7a3RRtSKZK1jZCt
[encoded data, 4209 characters]
9U3QKpLv/wPJEvB8
        "]]},
      Annotation[#, "Charting`Private`Tag$20798#1"]& ]}, {}, {}}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->16,
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"|\[CapitalDelta]n|\"", TraditionalForm], None}, {
     FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
  FrameStyle->{{
     StrokeForm[
      Opacity[0]], 
     StrokeForm[
      Opacity[0]]}, {Automatic, None}},
  FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
       (Charting`SimpleTicks[#, #2, 6]& )[
        SlotSequence[1]], {Identity, Identity}]& , {}}, {
     Charting`FindScaledTicks[
       (Charting`SimpleTicks[#, #2, 6]& )[
        SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
        FormBox["0", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TagBox[
          InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1.5, 
        FormBox[
         TagBox[
          InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TagBox[
          InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}}, {}}, {{{0., 
        FormBox["0", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox["2", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox["4", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox["6", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox["8", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}}, {}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.4, 0.5], 
    AbsoluteThickness[1], 
    AbsoluteDashing[{1, 2}]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Charting`FindScaledTicks[
     (Charting`SimpleTicks[#, #2, 6]& )[
      SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
     (Charting`SimpleTicks[#, #2, 6]& )[
      SlotSequence[1]], {Identity, Identity}]& }]], "Output",
 CellChangeTimes->{{3.771089340270051*^9, 3.7710894061172867`*^9}, {
   3.7710894645895977`*^9, 3.7710895072655487`*^9}, 3.771089610623036*^9, 
   3.771090404407309*^9, {3.77109057646087*^9, 3.77109059431013*^9}, 
   3.771090629703487*^9, {3.771090670372056*^9, 3.77109069895172*^9}},
 CellLabel->"Out[62]=",ExpressionUUID->"d463315c-9f13-4df8-b210-ee9c5b43e6b2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", "1"}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["U", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"]}], 
               ")"}]}], "-", 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "t"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[CapitalDelta]v", "+", 
                  RowBox[{
                   FractionBox["U", "2"], "\[CapitalDelta]n"}]}], ")"}], 
                "2"]}]]}], "/.", 
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["\[CapitalDelta]n", "2"], ")"}], "2"], 
                "\[Equal]", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], " ", "\[CapitalDelta]n"}]}], ")"}],
                   "2"], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{"U", " ", 
                    RowBox[{"\[CapitalDelta]n", "/", "2"}]}]}], ")"}], 
                   "2"]}]]}], ",", "\[CapitalDelta]n"}], "]"}], 
             "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
              "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}]}], 
       "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", "1"}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["U", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[CapitalDelta]n", "2"], "-", 
                  SuperscriptBox["\[CapitalDelta]m", "2"]}], "4"]}], ")"}]}], 
             "-", 
             FractionBox[
              RowBox[{
               SqrtBox[
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"2", "t"}], ")"}], "2"], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]], "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"2", "t"}], ")"}], "2"], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]}], "2"]}], "/.", 
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\[CapitalDelta]n", "\[Equal]", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}], "-", 
                   FractionBox[
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}]}], ",", 
                 RowBox[{"\[CapitalDelta]m", "\[Equal]", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "-", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}], "+", 
                   FractionBox[
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "t"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]v", "+", 
                    RowBox[{
                    FractionBox["U", "2"], 
                    RowBox[{"(", 
                    RowBox[{"\[CapitalDelta]n", "+", "\[CapitalDelta]m"}], 
                    ")"}]}]}], ")"}], "2"]}]]]}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"\[CapitalDelta]n", ",", "\[CapitalDelta]m"}], 
                "}"}]}], "]"}], "\[LeftDoubleBracket]", "3", 
             "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
              "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "DotDashed"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}]}], 
       "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", "1"}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Root", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["t", "2"], " ", "U"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4"}], " ", 
                   SuperscriptBox["t", "2"]}], "+", 
                  SuperscriptBox["U", "2"], "-", 
                  SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", 
                "#1"}], "-", 
               RowBox[{"2", " ", "U", " ", 
                SuperscriptBox["#1", "2"]}], "+", 
               SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", "1", ",", "2", ",", "5", ",", "10"}], 
              "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "20"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E\>\""}], "}"}]}], 
        ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\"", ",", 
             "\"\<U=5\>\"", ",", "\"\<U=10\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.770787929775593*^9, 3.7707879772481327`*^9}, {
  3.770788738939043*^9, 3.770788782918985*^9}, {3.770788821172515*^9, 
  3.770788890847322*^9}, {3.770788951660322*^9, 3.770789034255199*^9}, {
  3.770789103904619*^9, 3.7707891844838867`*^9}, {3.770789316345889*^9, 
  3.77078931659569*^9}, {3.77078939220636*^9, 3.770789425072637*^9}, {
  3.770789698839904*^9, 3.770789788941246*^9}, {3.7710875678257008`*^9, 
  3.771087578772654*^9}, {3.771088421134201*^9, 3.771088488934512*^9}, {
  3.771088571918447*^9, 3.77108857420935*^9}, {3.771088834489408*^9, 
  3.771088841369731*^9}, {3.7710890777556458`*^9, 3.771089107591166*^9}, {
  3.771089173457418*^9, 
  3.771089175617285*^9}},ExpressionUUID->"5636393a-75a9-41e0-9fe9-\
4d7ddc283dbe"],

Cell[TextData[StyleBox["There\[CloseCurlyQuote]s still something wrong with \
this part.",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.7773471779791937`*^9, 
  3.777347186266739*^9}},ExpressionUUID->"09a173da-a547-4578-8e93-\
c039fc11a09c"]
}, Closed]]
}, Open  ]],

Cell["Fractional particle number", "Section",
 CellChangeTimes->{
  3.770909815421789*^9},ExpressionUUID->"201fd9e1-9505-4edd-96dc-\
e4f52fbb9f32"],

Cell[CellGroupData[{

Cell["Many limits of the exact functional", "Section",
 CellChangeTimes->{{3.771565035292324*^9, 
  3.7715650450438213`*^9}},ExpressionUUID->"22ad422b-1c63-4387-b39b-\
ae28fdf5346e"],

Cell[CellGroupData[{

Cell["Small-U limit (work in progress)", "Subsubsection",
 CellChangeTimes->{{3.77120862490454*^9, 3.771208627505728*^9}, {
   3.771208728290947*^9, 3.7712087314258947`*^9}, 3.771565056734338*^9, {
   3.777347227099762*^9, 
   3.777347230674838*^9}},ExpressionUUID->"5fbde334-5dd4-47a9-b95d-\
b2f04b2d880e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["g", "n_"], "[", 
   RowBox[{"\[Rho]_", ",", "u_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["c", "k"], 
    FractionBox[
     SuperscriptBox["u", "k"], 
     RowBox[{"k", "!"}]]}]}]}]], "Input",
 CellChangeTimes->{{3.7715655481501303`*^9, 3.7715656078224087`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"8aa04527-2f73-4dfe-b2d3-6c34d4af00f6"],

Cell[BoxData[
 FrameBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     RowBox[{
      SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
     SuperscriptBox["g", "4"]}], "+", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     SuperscriptBox["g", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", 
   "0"}]]], "Input",
 CellChangeTimes->{{3.771210779380275*^9, 3.771210848283779*^9}, 
   3.7715656178322363`*^9},ExpressionUUID->"fcab0c08-ff08-4b4c-a4eb-\
9305129ad892"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CoefficientList", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"4", "+", 
               SuperscriptBox["u", "2"]}], ")"}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
            
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
            RowBox[{"2", "u", " ", 
             SuperscriptBox["\[Rho]", "2"], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], "-", 
               RowBox[{"(", 
                RowBox[{"2", "+", 
                 SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
            RowBox[{"2", "u", " ", 
             SuperscriptBox["\[Rho]", "2"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], 
             RowBox[{
              SubscriptBox["g", "n"], "[", 
              RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[Rho]", "4"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
          ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
        RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", "0"}],
       ",", 
      SubscriptBox["c", "n"]}], "]"}], "//", "Last"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.771343433887885*^9}, {3.771343502903228*^9, 
  3.771343503549183*^9}, {3.771346299666362*^9, 3.771346300374065*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"eb9b0f47-3089-4da1-9f88-992578a6b1fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["c", "0"], "\[Rule]", 
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343434490583*^9}, 3.771343503857106*^9, 
   3.771346300869047*^9, {3.771565603851495*^9, 3.771565610675757*^9}},
 CellLabel->"Out[30]=",ExpressionUUID->"7cd33377-380f-4b1c-857e-0f6a4046c590"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "1"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 SuperscriptBox["u", "2"]}], ")"}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  SubscriptBox["g", "n"], "[", 
                  RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], 
              "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[Rho]", "2"], 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
              RowBox[{"2", "u", " ", 
               SuperscriptBox["\[Rho]", "2"], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[Rho]", "2"], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[Rho]", "2"], 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
              RowBox[{"2", "u", " ", 
               SuperscriptBox["\[Rho]", "2"], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}], 
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
              RowBox[{
               SuperscriptBox["\[Rho]", "4"], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}],
             ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
          RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
         "0"}], "/.", 
        RowBox[{
         SubscriptBox["c", "0"], "\[Rule]", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}]}], "//", "FullSimplify"}], ",", 
      
      SubscriptBox["c", "n"]}], "]"}], "//", "Last"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713435393046713`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"0defd66f-3f47-41dd-8d2f-bbb3c6762027"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["c", "1"], "\[Rule]", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343540761883*^9}, 3.771346297901451*^9, 
   3.771565631814704*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"4621985e-b072-49be-8a5f-d83ef42dd8df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "2"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713435589208593`*^9}, {3.7713435895523767`*^9, 
  3.771343589904711*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"9f34b4a2-2485-4ed3-b53b-9adef8e6be08"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "2"], "\[Rule]", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
     RowBox[{"4", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343559428401*^9}, 3.771343590306632*^9, 
   3.771565633911433*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"efaac885-6125-41ad-b449-5c1ee6dc5b2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "3"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713436001888533`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"cf94ef6e-f3e0-4d14-a88d-c0e09e0c6011"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "3"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["3", "2"]}], " ", 
     SuperscriptBox["\[Rho]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
  3.771343416164261*^9, 3.771343601287202*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"173a1938-20db-4134-aa13-2dacdf69c15f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "4"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}]}], "}"}]}], "//",
       "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
   3.771343385015891*^9, 3.7713436001888533`*^9}, {3.771343640634666*^9, 
   3.771343656237653*^9}, 3.771343695810667*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"29ab293e-a86f-4d8f-a46a-edee4caf787f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "4"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"24", " ", 
          SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.771343649106743*^9, 3.771343696279591*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"837f6493-c57a-481a-b89d-2b714a9753b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "5"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343700867867*^9, 3.7713437077336617`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"8893a596-0b1e-4ee0-99fd-14c102caf2c4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "5"], "\[Rule]", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "7"}], "+", 
       RowBox[{"11", " ", 
        SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{3.771343708277652*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"97cd80ff-fabd-4b4a-9dd8-f67eef2daac0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "6"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.7713437170640574`*^9, 3.7713437194813757`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"30cb09ee-2c3f-4111-9bd8-1b5ba8a6b078"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "6"], "\[Rule]", 
    FractionBox[
     RowBox[{"225", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{"64", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.771343720254058*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"16be732e-4dd7-4f65-898c-0fef0566634f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "7"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "6"], "\[Rule]", 
          FractionBox[
           RowBox[{"225", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"121", " ", 
               SuperscriptBox["\[Rho]", "4"]}], "+", 
              RowBox[{"728", " ", 
               SuperscriptBox["\[Rho]", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
           RowBox[{"64", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343759708733*^9, 3.771343762479124*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"9c0814d5-79e2-4445-9700-585c40388f34"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "7"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "945"}], " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Rho]", "2"]}], "-", 
       RowBox[{"70", " ", 
        SuperscriptBox["\[Rho]", "4"]}], "+", 
       RowBox[{"51", " ", 
        SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{3.7713437631751547`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"4c6ba3ec-deba-48a0-af28-bc531a79add3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"4", "+", 
     SuperscriptBox["u", "2"]}], ")"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      SubscriptBox["g", "n"], "[", 
      RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Rho]", "2"], 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
  RowBox[{"2", "u", " ", 
   SuperscriptBox["\[Rho]", "2"], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
  RowBox[{
   SuperscriptBox["\[Rho]", "2"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Rho]", "2"], 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], "-", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
  RowBox[{"2", "u", " ", 
   SuperscriptBox["\[Rho]", "2"], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}], 
   RowBox[{
    SubscriptBox["g", "n"], "[", 
    RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[Rho]", "4"], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}]], "Input",ExpressionUUID->\
"9fd86964-f39e-4e97-8987-420ae1052b24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "8"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "6"], "\[Rule]", 
          FractionBox[
           RowBox[{"225", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"121", " ", 
               SuperscriptBox["\[Rho]", "4"]}], "+", 
              RowBox[{"728", " ", 
               SuperscriptBox["\[Rho]", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
           RowBox[{"64", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "7"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", "945"}], " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"24", " ", 
              SuperscriptBox["\[Rho]", "2"]}], "-", 
             RowBox[{"70", " ", 
              SuperscriptBox["\[Rho]", "4"]}], "+", 
             RowBox[{"51", " ", 
              SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343759708733*^9, 3.7713437859342012`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"08260735-d204-4d21-b1d6-2b355bf1355e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "8"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2205", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"33", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"65", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"16875", " ", 
          SuperscriptBox["\[Rho]", "6"]}], "+", 
         RowBox[{"272", " ", 
          SuperscriptBox["\[Rho]", "8"], " ", 
          RowBox[{"(", 
           RowBox[{"419", "-", 
            RowBox[{"798", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"456", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"256", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343780884714*^9, 3.771343788570665*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"83409988-f161-4e7c-b9f3-fed9f35ea06e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["c", "0"], "\[Rule]", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
   RowBox[{
    SubscriptBox["c", "2"], "\[Rule]", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
     RowBox[{"4", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "3"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["3", "2"]}], " ", 
     SuperscriptBox["\[Rho]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "4"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"24", " ", 
          SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "5"], "\[Rule]", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "7"}], "+", 
       RowBox[{"11", " ", 
        SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "6"], "\[Rule]", 
    FractionBox[
     RowBox[{"225", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{"64", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "7"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "945"}], " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Rho]", "2"]}], "-", 
       RowBox[{"70", " ", 
        SuperscriptBox["\[Rho]", "4"]}], "+", 
       RowBox[{"51", " ", 
        SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2205", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "5"}], "-", 
        RowBox[{"33", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"65", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"16875", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "+", 
        RowBox[{"272", " ", 
         SuperscriptBox["\[Rho]", "8"], " ", 
         RowBox[{"(", 
          RowBox[{"419", "-", 
           RowBox[{"798", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"456", " ", 
            SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
     RowBox[{"256", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.771343798150231*^9, 3.771343798451414*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"b11707bf-4667-46d7-8fe1-a32880fe044f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      SubscriptBox["c", "n"], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "8"}], "}"}]}], "]"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["c", "0"], "\[Rule]", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["c", "2"], "\[Rule]", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
       RowBox[{"4", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "3"], "\[Rule]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3", "2"]}], " ", 
       SuperscriptBox["\[Rho]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "4"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"9", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "-", 
           RowBox[{"7", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"24", " ", 
            SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
        RowBox[{"16", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "5"], "\[Rule]", 
      RowBox[{"15", " ", 
       SuperscriptBox["\[Rho]", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "7"}], "+", 
         RowBox[{"11", " ", 
          SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "6"], "\[Rule]", 
      FractionBox[
       RowBox[{"225", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["\[Rho]", "2"]}], "+", 
          RowBox[{"121", " ", 
           SuperscriptBox["\[Rho]", "4"]}], "+", 
          RowBox[{"728", " ", 
           SuperscriptBox["\[Rho]", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
       RowBox[{"64", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "7"], "\[Rule]", 
      RowBox[{
       RowBox[{"-", "945"}], " ", 
       SuperscriptBox["\[Rho]", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"24", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "-", 
         RowBox[{"70", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "+", 
         RowBox[{"51", " ", 
          SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "8"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2205", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "-", 
           RowBox[{"33", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"65", " ", 
            SuperscriptBox["\[Rho]", "4"]}], "-", 
           RowBox[{"16875", " ", 
            SuperscriptBox["\[Rho]", "6"]}], "+", 
           RowBox[{"272", " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"(", 
             RowBox[{"419", "-", 
              RowBox[{"798", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"456", " ", 
               SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"256", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}]]}]}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.77134382687157*^9, 3.771343845353775*^9}, {
  3.771344218206153*^9, 3.771344242486761*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"961a4c58-2765-4201-a425-f8fd7bd0a747"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coef", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}]], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "4"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"5", "/", "2"}]]}], ",", 
     RowBox[{
      FractionBox["3", "2"], "  ", 
      SuperscriptBox["\[Rho]", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], ",", 
     RowBox[{
      FractionBox["9", "16"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"7", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{"24", " ", 
         SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], ",", 
     RowBox[{"15", " ", 
      SuperscriptBox["\[Rho]", "4"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7"}], "+", 
        RowBox[{"11", " ", 
         SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["225", "64"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"9", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"-", "945"}], " ", 
      SuperscriptBox["\[Rho]", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"24", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"70", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"51", " ", 
         SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["2205", "256"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"11", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"33", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{"65", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"16875", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "-", 
        RowBox[{"113968", " ", 
         SuperscriptBox["\[Rho]", "8"]}], "+", 
        RowBox[{"217056", " ", 
         SuperscriptBox["\[Rho]", "10"]}], "-", 
        RowBox[{"124032", " ", 
         SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}]}], "}"}], "//", 
   "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.771344610291851*^9, 3.771344648177322*^9}, {
   3.771344696275141*^9, 3.7713447267318697`*^9}, {3.7713447814721947`*^9, 
   3.771344833391876*^9}, {3.771344913304099*^9, 3.771344922851901*^9}, 
   3.771345272535695*^9, {3.771347747754327*^9, 3.7713477483912497`*^9}, {
   3.7715651407590523`*^9, 3.771565146564661*^9}, 3.7715652033739634`*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"bb9770ca-a634-48fc-8766-3a0ba572819e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}]], ",", "0", ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"5", "/", "2"}]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "2"]}], " ", 
    SuperscriptBox["\[Rho]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], ",", 
   RowBox[{
    FractionBox["9", "16"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"7", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"7", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"24", " ", 
       SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], ",", 
   RowBox[{"15", " ", 
    SuperscriptBox["\[Rho]", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "7"}], "+", 
      RowBox[{"11", " ", 
       SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["225", "64"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"9", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "+", 
      RowBox[{"121", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"728", " ", 
       SuperscriptBox["\[Rho]", "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "945"}], " ", 
    SuperscriptBox["\[Rho]", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"24", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"70", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"51", " ", 
       SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["2205", "256"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"11", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"33", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"65", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"16875", " ", 
       SuperscriptBox["\[Rho]", "6"]}], "-", 
      RowBox[{"113968", " ", 
       SuperscriptBox["\[Rho]", "8"]}], "+", 
      RowBox[{"217056", " ", 
       SuperscriptBox["\[Rho]", "10"]}], "-", 
      RowBox[{"124032", " ", 
       SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7713446110856657`*^9, 3.771344648740554*^9}, {
   3.771344696698926*^9, 3.771344712812035*^9}, {3.7713447883641577`*^9, 
   3.77134483400369*^9}, 3.771344940462893*^9, 3.771347749035977*^9, 
   3.7715651502464314`*^9, 3.77156520386483*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"8726a488-4cc6-46e9-ba80-d0ebfa3a633d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"k", "=", "0"}], "8"], 
  RowBox[{
   RowBox[{"Coef", "\[LeftDoubleBracket]", 
    RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
   FractionBox[
    SuperscriptBox["u", "k"], 
    RowBox[{"k", "!"}]]}]}]], "Input",
 CellChangeTimes->{{3.7713449416596622`*^9, 3.7713450066896048`*^9}, 
   3.7715651516703587`*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"695e4dee-056a-42db-a9b8-370aa0ad1595"],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox["\[Rho]", "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["u", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], 
    RowBox[{"5", "/", "2"}]]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["u", "3"], " ", 
   SuperscriptBox["\[Rho]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["u", "5"], " ", 
   SuperscriptBox["\[Rho]", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "7"}], "+", 
     RowBox[{"11", " ", 
      SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["3", "128"], " ", 
   SuperscriptBox["u", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], 
    RowBox[{"7", "/", "2"}]], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"7", " ", 
      SuperscriptBox["\[Rho]", "2"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   SuperscriptBox["u", "7"], " ", 
   SuperscriptBox["\[Rho]", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Rho]", "2"]}], "-", 
     RowBox[{"70", " ", 
      SuperscriptBox["\[Rho]", "4"]}], "+", 
     RowBox[{"51", " ", 
      SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["u", "8"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"11", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"33", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"65", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"16875", " ", 
       SuperscriptBox["\[Rho]", "6"]}], "-", 
      RowBox[{"113968", " ", 
       SuperscriptBox["\[Rho]", "8"]}], "+", 
      RowBox[{"217056", " ", 
       SuperscriptBox["\[Rho]", "10"]}], "-", 
      RowBox[{"124032", " ", 
       SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}], "32768"], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["u", "6"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"9", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "+", 
      RowBox[{"121", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"728", " ", 
       SuperscriptBox["\[Rho]", "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
   "1024"]}]], "Output",
 CellChangeTimes->{
  3.771345007319716*^9, 3.771565152880014*^9, {3.771565198402199*^9, 
   3.771565205470788*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"36b91705-495e-48b7-bc24-2453358f018e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"gmin", "[", 
            RowBox[{"t", ",", "U", ",", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "5", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", 
         RowBox[{"1", "/", "3"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\""}],
             "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PadeApproximant", "[", 
              RowBox[{
               RowBox[{
                UnderoverscriptBox["\[Sum]", 
                 RowBox[{"k", "=", "0"}], "8"], 
                RowBox[{
                 RowBox[{"Coef", "\[LeftDoubleBracket]", 
                  RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
                 FractionBox[
                  SuperscriptBox["u", "k"], 
                  RowBox[{"k", "!"}]]}]}], ",", 
               RowBox[{"{", 
                RowBox[{"u", ",", "0", ",", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "]"}], "/.", 
             RowBox[{"\[Rho]", "\[Rule]", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}]}]}], "/.", 
            RowBox[{"u", "\[Rule]", 
             FractionBox["U", 
              RowBox[{"2", "t"}]]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "5", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.771345134381372*^9, 3.771345238754568*^9}, {
  3.7713452954373817`*^9, 3.7713453448055267`*^9}, {3.771345990157563*^9, 
  3.7713459971806*^9}, {3.7713460513204803`*^9, 3.771346055312216*^9}, {
  3.771346104108643*^9, 3.7713461152400713`*^9}, {3.771346194546282*^9, 
  3.771346211866336*^9}, {3.77156522034243*^9, 3.771565246447689*^9}, {
  3.771565410663207*^9, 3.771565484285173*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"13d78832-7413-4773-a443-a1a8bfaef30b"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 0.0002856604710383269}, {
          0.0005827660898796174, 0.03413477296282887}, {
          0.0012575006171516125`, 0.0501333335824916}, {
          0.0018402258907046993`, 0.060637237579376016`}, {
          0.002422951164257786, 0.06956749709834613}, {0.0030976856915297816`,
           0.0786447813579917}, {0.003680410965082868, 0.08570909334516502}, {
          0.004263136238635955, 0.09222952761539074}, {0.004842794537065078, 
          0.09828317268127487}}], LineBox[CompressedData["
1:eJwdmXc81e8bxhGFRPZIIpEkVKIUl5UiaRhJUiSiUmmThtKiklESUZIS2SOV
[encoded data, 16287 characters]
tndgw2hfri5jNQVVQ2HvvzuycW+X5X4bBQr+BzIohQM=
          "]], 
         LineBox[CompressedData["
1:eJwVkXlYzHkAxnO0MY8OZ9iZJDmSxzob0vZuj6PkjKRtZ1DaVErJI6FRSoNU
W6JLyrnSk0KZ0YoOHUzHNGOu3/yGFmF10LA15fj+dvaP93n/ev94P5/pARFb
fh9uYmLia8z/fdthQ6i3C4HlUiG3/KkOxdU76E5XgqKVA11ykQ77poY9jfUm
CA5wlL2ZoEOf30OzRB+C75FHhkWa6iAQFnqZ+hFkVXh2JXXRiGHfqTvPI5i1
u7ukTkWjvSmqxmMnwcJIzuMXtTQk/BMLKX8C3pk+jv4WjeM2Aw9KAwmkhfbf
ZNk0tE/Flf57CM7X+AmLEmh8KKTafw0lyG5OMVuzl0ay7Yp7TWEEZ/evLrDw
pZEkWj/LN4LgWXhD3u2VNEpSiw1eUQSfZ4kdPznS+MRdsGLEQQKrQxeHeJNo
9La6lWQeIiieO7JfPIzGtbRyp5AjBM57I+NburQosG+4MRRLsDsugzEotTBI
hddL4ghC2Xe0+motNh/1uLozgcBizyeO/KYWRbNYl8clEQhs12TkZGrhJ0jN
j0kmoBZWRqiCtKiaey5z1XmC3kmL3K3GaDFBtS3DkG3kJ2vqnNJPoTmr6cfW
PAJzxdecDh2FxnlUCv8igVLX2q9ppBDb62m9+BLBrb92vQgopRCdyDv1+ArB
14oPqTNzKEjn2wijrxv9aPPZl+IpzNF2JDoUEejPmjp/D6YQn3T5uK6YoC7A
mufiRcH8kJmn/y2CtMitPxicKeQFh497W0aQYH5yUrY9hXEWFy563iXY2vP2
noslhfJ1y69+rCAo2Np/WGjQYJ4+aL63mMBDFLp68KUGLfNNlwxVEmy0pJeP
kmjAcalbxaky/n2t70kXaWBR7IaV1QStMwI9m3M1iBrBTT1ZS3BCdTVl8IQG
zL/528bUE3RPP9pZGa5BTJ7k78hGAh/3XdrT2zWYrAl+O/EpgeiBRNrpqkGG
IGv/kWaC1XaVe2PnaLDGLLwCbQROgypOsIUGj0rycK2dgJWhPVpvUIO75Ylk
1DOCtpxuauRLNXroAvM2JQE/N0Sc3KhG4PGWnEUa4/7P9JepZWrooxb5i7VG
fgdovku2GscCcxxcnhPkbhHMlhxTg+VD9DUdBD1N3QJukBrVHYolwlcEy7h6
39Hr1LBfLkmQdBr5zgk3L12iRn108KmId0Y/bqFO0VPV+JmdNV7xnqCz9kZL
/nA1JObfaN8eAms725G73qvgw/hfe/6BYOVnqy5GqsLrvqawAD1B4OL3HrEi
FXhZ/YbGzwRjK44e5hSoYGXb4pwyQODfN4xfdVyF0w1DDX2DBAfGu9VNDFFh
knhn2sGvxj29yoFsVGFPPbsw9ztBkHhT0d1lKizIc5wWZ8IgoPGjJW+qClVn
Mt6NGMEgKmxtYDujxFqBoeyUKYO33rp37DdKqPbxY8xHMehcxWW5SZRIHlz8
QM5iUC34GCssUeKjl8Noa3MG5Rc9bS3OKZH+R5NFlSUD/9nPMn0OKTF6aX+u
7TgGZV925C/iK/HoUbPuzQQGo7LW66tclbCbXDt3rjUD1grXTTdnKnFyvyhm
3xQGTi/jIvaPUWKze8PgVjYDpYatGN6jwJOeT4n3bRhc+a1xGkumwJQvZed0
tgz0Gdme9fcVeCV9NKFuBoPkusSHomwFbv3DuWCxnkE7SxqfUiZHW9GmkKiN
DEbyuobXpMsRuKV3ZqkXA/7mFe6iIDl+MdvWLfBmwFOzHre6ycGuqrq9YTsD
UfBPXWlsOQYj7aM5fgwchxW+MgzIMNauYNlYPoNjabu4NlIZSrWfTR7uZOBa
lvnD/WIZzhaMl3/zZzCj4crjtjMy/AflK/DC
          "]], 
         LineBox[{{1.9719594070500728`, 0.23465694592500785`}, {
          1.9725428701911636`, 0.2322520054418687}, {1.9780342879896655`, 
          0.20814110195932387`}, {1.9787207152144783`, 0.2049125237079944}, {
          1.9794414638005315`, 0.20146320688855976`}, {1.9800935696641035`, 
          0.19828737795494622`}, {1.9807799968889164`, 0.1948850798934927}, {
          1.9814664241137292`, 0.19141874234069034`}, {1.982152851338542, 
          0.18788486475886104`}, {1.9835257057881674`, 
          0.18059854857633048`}, {1.9841778116517395`, 
          0.17702723311775814`}, {1.9848985602377929`, 0.172990187737927}, {
          1.9855849874626057`, 0.16905176871825026`}, {1.9862027719649373`, 
          0.16542358936579063`}}], 
         LineBox[{{1.8752313690556592`, 0.4753095383371921}, {
          1.8758574006209332`, 0.4742527768124575}, {1.8765163812159587`, 
          0.4731362964068816}, {1.877175361810984, 0.47201556630058383`}, {
          1.8778343424060093`, 0.4708905398806321}, {1.8784933230010348`, 
          0.4697612000580378}, {1.8798112841910855`, 0.46748943371741675`}, {
          1.8804702647861107`, 0.4663469772516909}, {1.8811292453811361`, 
          0.46520009242511956`}, {1.8824472065711868`, 
          0.46289282500105566`}, {1.883106187166212, 0.46173241482749666`}, {
          1.8837651677612375`, 0.46056743772767333`}, {1.8850831289512882`, 
          0.45822364446318875`}, {1.8857091605165621`, 
          0.45710380685052326`}, {1.8864010901413388`, 
          0.45586117899841017`}, {1.8870600707363643`, 
          0.45467284005221414`}, {1.8876861023016382`, 0.4535394916572849}}], 
         LineBox[{{1.9636536376298386`, 0.26633787985253304`}, {
          1.9643057434934106`, 0.2640026580369217}, {1.9649921707182232`, 
          0.26151928554495507`}, {1.965678597943036, 0.2590092800506333}, {
          1.9663307038066082`, 0.2565994378075238}, {1.9670514523926617`, 
          0.2539062570130525}, {1.9677378796174745`, 0.2513115515729616}, {
          1.9684586282035277`, 0.2485548578195671}, {1.9691107340670997`, 
          0.2460312741692633}, {1.969762839930672, 0.24347888353862157`}}], 
         LineBox[{{1.988443956853951, 0.1515047234554082}, {
          1.9890857663091506`, 0.14726804518225706`}, {1.9897035508114822`, 
          0.14306783225577033`}, {1.990389978036295, 0.13824699826000694`}, {
          1.9910764052611079`, 0.13324716985524823`}, {1.9917628324859205`, 
          0.1280473681268971}, {1.9923806169882519`, 0.12317577590392016`}, {
          1.9931356869355459`, 0.11694049530170245`}, {1.9937534714378775`, 
          0.11157519041485597`}, {1.9945085413851715`, 
          0.10463841540932989`}, {1.9951949686099844`, 0.0979003193138736}, {
          1.9958127531123158`, 0.09140696436683436}}], 
         LineBox[{{1.9993478533201015`, 0.03610891332168296}, {
          1.9999999591836735`, 0.0002856604710383269}}]},
        Annotation[#, "Charting`Private`Tag$7040#1"]& ]}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw12nk01N//B3BSEkWWhJQk2oRSKS1PRVSkFKH6qJAUWiytpE2hpEVSkSxF
[encoded data, 14274 characters]
8IgI664MniprTEHxiQR9g3ERQnyDmZWCeDzWkBkUiUT4//8v/j/Bfe3c
          "]]},
        Annotation[#, "Charting`Private`Tag$7109#1"]& ]}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                  Selectable -> False], ",", 
                 RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[
     Rational[1, 3], 0.3333333333333333],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   ImageSize->{730.521875, Automatic},
   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->{{0, 2}, {0., 0.753828232188389}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           
           Line[{{4.081632653061224*^-8, 0.0002856604710383269}, {
            0.0005827660898796174, 0.03413477296282887}, {
            0.0012575006171516125`, 0.0501333335824916}, {
            0.0018402258907046993`, 0.060637237579376016`}, {
            0.002422951164257786, 0.06956749709834613}, {
            0.0030976856915297816`, 0.0786447813579917}, {
            0.003680410965082868, 0.08570909334516502}, {0.004263136238635955,
             0.09222952761539074}, {0.004842794537065078, 
            0.09828317268127487}}], 
           Line[CompressedData["
1:eJwdmXc81e8bxhGFRPZIIpEkVKIUl5UiaRhJUiSiUmmThtKiklESUZIS2SOV
[encoded data, 16287 characters]
tndgw2hfri5jNQVVQ2HvvzuycW+X5X4bBQr+BzIohQM=
            "]], 
           Line[CompressedData["
1:eJwVkXlYzHkAxnO0MY8OZ9iZJDmSxzob0vZuj6PkjKRtZ1DaVErJI6FRSoNU
W6JLyrnSk0KZ0YoOHUzHNGOu3/yGFmF10LA15fj+dvaP93n/ev94P5/pARFb
fh9uYmLia8z/fdthQ6i3C4HlUiG3/KkOxdU76E5XgqKVA11ykQ77poY9jfUm
CA5wlL2ZoEOf30OzRB+C75FHhkWa6iAQFnqZ+hFkVXh2JXXRiGHfqTvPI5i1
u7ukTkWjvSmqxmMnwcJIzuMXtTQk/BMLKX8C3pk+jv4WjeM2Aw9KAwmkhfbf
ZNk0tE/Flf57CM7X+AmLEmh8KKTafw0lyG5OMVuzl0ay7Yp7TWEEZ/evLrDw
pZEkWj/LN4LgWXhD3u2VNEpSiw1eUQSfZ4kdPznS+MRdsGLEQQKrQxeHeJNo
9La6lWQeIiieO7JfPIzGtbRyp5AjBM57I+NburQosG+4MRRLsDsugzEotTBI
hddL4ghC2Xe0+motNh/1uLozgcBizyeO/KYWRbNYl8clEQhs12TkZGrhJ0jN
j0kmoBZWRqiCtKiaey5z1XmC3kmL3K3GaDFBtS3DkG3kJ2vqnNJPoTmr6cfW
PAJzxdecDh2FxnlUCv8igVLX2q9ppBDb62m9+BLBrb92vQgopRCdyDv1+ArB
14oPqTNzKEjn2wijrxv9aPPZl+IpzNF2JDoUEejPmjp/D6YQn3T5uK6YoC7A
mufiRcH8kJmn/y2CtMitPxicKeQFh497W0aQYH5yUrY9hXEWFy563iXY2vP2
noslhfJ1y69+rCAo2Np/WGjQYJ4+aL63mMBDFLp68KUGLfNNlwxVEmy0pJeP
kmjAcalbxaky/n2t70kXaWBR7IaV1QStMwI9m3M1iBrBTT1ZS3BCdTVl8IQG
zL/528bUE3RPP9pZGa5BTJ7k78hGAh/3XdrT2zWYrAl+O/EpgeiBRNrpqkGG
IGv/kWaC1XaVe2PnaLDGLLwCbQROgypOsIUGj0rycK2dgJWhPVpvUIO75Ylk
1DOCtpxuauRLNXroAvM2JQE/N0Sc3KhG4PGWnEUa4/7P9JepZWrooxb5i7VG
fgdovku2GscCcxxcnhPkbhHMlhxTg+VD9DUdBD1N3QJukBrVHYolwlcEy7h6
39Hr1LBfLkmQdBr5zgk3L12iRn108KmId0Y/bqFO0VPV+JmdNV7xnqCz9kZL
/nA1JObfaN8eAms725G73qvgw/hfe/6BYOVnqy5GqsLrvqawAD1B4OL3HrEi
FXhZ/YbGzwRjK44e5hSoYGXb4pwyQODfN4xfdVyF0w1DDX2DBAfGu9VNDFFh
knhn2sGvxj29yoFsVGFPPbsw9ztBkHhT0d1lKizIc5wWZ8IgoPGjJW+qClVn
Mt6NGMEgKmxtYDujxFqBoeyUKYO33rp37DdKqPbxY8xHMehcxWW5SZRIHlz8
QM5iUC34GCssUeKjl8Noa3MG5Rc9bS3OKZH+R5NFlSUD/9nPMn0OKTF6aX+u
7TgGZV925C/iK/HoUbPuzQQGo7LW66tclbCbXDt3rjUD1grXTTdnKnFyvyhm
3xQGTi/jIvaPUWKze8PgVjYDpYatGN6jwJOeT4n3bRhc+a1xGkumwJQvZed0
tgz0Gdme9fcVeCV9NKFuBoPkusSHomwFbv3DuWCxnkE7SxqfUiZHW9GmkKiN
DEbyuobXpMsRuKV3ZqkXA/7mFe6iIDl+MdvWLfBmwFOzHre6ycGuqrq9YTsD
UfBPXWlsOQYj7aM5fgwchxW+MgzIMNauYNlYPoNjabu4NlIZSrWfTR7uZOBa
lvnD/WIZzhaMl3/zZzCj4crjtjMy/AflK/DC
            "]], 
           
           Line[{{1.9719594070500728`, 0.23465694592500785`}, {
            1.9725428701911636`, 0.2322520054418687}, {1.9780342879896655`, 
            0.20814110195932387`}, {1.9787207152144783`, 
            0.2049125237079944}, {1.9794414638005315`, 
            0.20146320688855976`}, {1.9800935696641035`, 
            0.19828737795494622`}, {1.9807799968889164`, 
            0.1948850798934927}, {1.9814664241137292`, 
            0.19141874234069034`}, {1.982152851338542, 
            0.18788486475886104`}, {1.9835257057881674`, 
            0.18059854857633048`}, {1.9841778116517395`, 
            0.17702723311775814`}, {1.9848985602377929`, 0.172990187737927}, {
            1.9855849874626057`, 0.16905176871825026`}, {1.9862027719649373`, 
            0.16542358936579063`}}], 
           
           Line[{{1.8752313690556592`, 0.4753095383371921}, {
            1.8758574006209332`, 0.4742527768124575}, {1.8765163812159587`, 
            0.4731362964068816}, {1.877175361810984, 0.47201556630058383`}, {
            1.8778343424060093`, 0.4708905398806321}, {1.8784933230010348`, 
            0.4697612000580378}, {1.8798112841910855`, 
            0.46748943371741675`}, {1.8804702647861107`, 
            0.4663469772516909}, {1.8811292453811361`, 
            0.46520009242511956`}, {1.8824472065711868`, 
            0.46289282500105566`}, {1.883106187166212, 
            0.46173241482749666`}, {1.8837651677612375`, 
            0.46056743772767333`}, {1.8850831289512882`, 
            0.45822364446318875`}, {1.8857091605165621`, 
            0.45710380685052326`}, {1.8864010901413388`, 
            0.45586117899841017`}, {1.8870600707363643`, 
            0.45467284005221414`}, {1.8876861023016382`, 
            0.4535394916572849}}], 
           
           Line[{{1.9636536376298386`, 0.26633787985253304`}, {
            1.9643057434934106`, 0.2640026580369217}, {1.9649921707182232`, 
            0.26151928554495507`}, {1.965678597943036, 0.2590092800506333}, {
            1.9663307038066082`, 0.2565994378075238}, {1.9670514523926617`, 
            0.2539062570130525}, {1.9677378796174745`, 0.2513115515729616}, {
            1.9684586282035277`, 0.2485548578195671}, {1.9691107340670997`, 
            0.2460312741692633}, {1.969762839930672, 0.24347888353862157`}}], 
           
           
           Line[{{1.988443956853951, 0.1515047234554082}, {
            1.9890857663091506`, 0.14726804518225706`}, {1.9897035508114822`, 
            0.14306783225577033`}, {1.990389978036295, 
            0.13824699826000694`}, {1.9910764052611079`, 
            0.13324716985524823`}, {1.9917628324859205`, 
            0.1280473681268971}, {1.9923806169882519`, 
            0.12317577590392016`}, {1.9931356869355459`, 
            0.11694049530170245`}, {1.9937534714378775`, 
            0.11157519041485597`}, {1.9945085413851715`, 
            0.10463841540932989`}, {1.9951949686099844`, 
            0.0979003193138736}, {1.9958127531123158`, 0.09140696436683436}}], 
           
           Line[{{1.9993478533201015`, 0.03610891332168296}, {
            1.9999999591836735`, 0.0002856604710383269}}]}, 
          "Charting`Private`Tag$7040#1"]}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw12nk01N//B3BSEkWWhJQk2oRSKS1PRVSkFKH6qJAUWiytpE2hpEVSkSxF
[encoded data, 14274 characters]
8IgI664MniprTEHxiQR9g3ERQnyDmZWCeDzWkBkUiUT4//8v/j/Bfe3c
            "]]}, 
          "Charting`Private`Tag$7109#1"]}}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> Rational[1, 3], 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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 -> {{0, 2}, {0., 0.753828232188389}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.7713451423582706`*^9, 3.771345243039317*^9}, {
   3.7713452873125143`*^9, 3.7713453424660683`*^9}, {3.77134599352704*^9, 
   3.771346000363168*^9}, 3.771346059117455*^9, 3.7713461185991697`*^9, {
   3.771346198939508*^9, 3.77134621521343*^9}, {3.771565224908457*^9, 
   3.771565248550221*^9}, {3.771565413840457*^9, 3.771565487224943*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"bad64102-49e4-4124-a54c-ead6ae18fea1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"gmin", "[", 
            RowBox[{"t", ",", "U", ",", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", 
         RowBox[{"1", "/", "3"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\""}],
             "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"k", "=", "0"}], "8"], 
              RowBox[{
               RowBox[{"Coef", "\[LeftDoubleBracket]", 
                RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
               FractionBox[
                SuperscriptBox["u", "k"], 
                RowBox[{"k", "!"}]]}]}], "/.", 
             RowBox[{"\[Rho]", "\[Rule]", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}]}]}], "/.", 
            RowBox[{"u", "\[Rule]", 
             FractionBox["U", 
              RowBox[{"2", "t"}]]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.7715652819263077`*^9, 3.771565286614294*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"865e2d14-0653-47d1-93d0-3d966a0ecae9"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV2Hk8VF0YB3BLyRYRiZRKm0K0aFM/oRRJlvYiUtKikpRKUmhDu2QLSdkJ
[encoded data, 13969 characters]
Bg==
          "]], 
         LineBox[{{1.995231006039287, 0.09754300020037165}, {
          1.9959157171960376`, 0.09028562328817241}, {1.9965678230596096`, 
          0.08277883160432316}, {1.9972199289231818`, 0.07451362738473755}, {
          1.9979784310066, 0.06355310697569093}, {1.9986957474565292`, 
          0.05105672074749609}, {1.9993135319588609`, 
          0.037046754363624645`}, {1.9999656378224329`, 
          0.008289939594768888}}]},
        Annotation[#, "Charting`Private`Tag$5460#1"]& ]}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw1m2k4lO/bxy0VIUWlSFRKkpZfiZR8hbInW9JCSYqKkhQlESKFSlKJog1l
[encoded data, 20679 characters]
PbcAK5EYobKpSLyS5J9YWFjA//++//8AH4A9Vg==
          "]]},
        Annotation[#, "Charting`Private`Tag$5524#1"]& ]}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                  Selectable -> False], ",", 
                 RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[
     Rational[1, 3], 0.3333333333333333],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   ImageSize->{861.7031250000001, Automatic},
   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->{{0, 2}, {0., 0.8138650363163404}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV2Hk8VF0YB3BLyRYRiZRKm0K0aFM/oRRJlvYiUtKikpRKUmhDu2QLSdkJ
[encoded data, 13969 characters]
Bg==
            "]], 
           
           Line[{{1.995231006039287, 0.09754300020037165}, {
            1.9959157171960376`, 0.09028562328817241}, {1.9965678230596096`, 
            0.08277883160432316}, {1.9972199289231818`, 
            0.07451362738473755}, {1.9979784310066, 0.06355310697569093}, {
            1.9986957474565292`, 0.05105672074749609}, {1.9993135319588609`, 
            0.037046754363624645`}, {1.9999656378224329`, 
            0.008289939594768888}}]}, 
          "Charting`Private`Tag$5460#1"]}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw1m2k4lO/bxy0VIUWlSFRKkpZfiZR8hbInW9JCSYqKkhQlESKFSlKJog1l
[encoded data, 20679 characters]
PbcAK5EYobKpSLyS5J9YWFjA//++//8AH4A9Vg==
            "]]}, 
          "Charting`Private`Tag$5524#1"]}}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> Rational[1, 3], 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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 -> {{0, 2}, {0., 0.8138650363163404}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.7715652897268887`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"0c3cce7b-7ad4-44d0-a745-e9b441020b79"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Small-\[Rho] limit (work in progress)", "Subsubsection",
 CellChangeTimes->{{3.77120862490454*^9, 3.771208627505728*^9}, {
   3.771208728290947*^9, 3.7712087314258947`*^9}, 3.771565056734338*^9, {
   3.771565667804324*^9, 3.771565668420043*^9}, 
   3.777347233987556*^9},ExpressionUUID->"d51784c9-b964-4791-8d84-\
9071b2152cad"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["g", "n_"], "[", 
   RowBox[{"\[Rho]_", ",", "u_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["c", "k"], 
    FractionBox[
     SuperscriptBox["\[Rho]", "k"], 
     RowBox[{"k", "!"}]]}]}]}]], "Input",
 CellChangeTimes->{{3.7715655481501303`*^9, 3.7715656078224087`*^9}, {
  3.771565670933722*^9, 3.771565671580308*^9}, {3.77156587648551*^9, 
  3.771565960404063*^9}, {3.7715662180853453`*^9, 3.771566223996149*^9}, {
  3.771566523437914*^9, 3.7715665289080887`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"e6f818a8-12e2-4335-b3f6-eb9371d173ee"],

Cell[BoxData[
 FrameBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     RowBox[{
      SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
     SuperscriptBox["g", "4"]}], "+", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     SuperscriptBox["g", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", 
   "0"}]]], "Input",
 CellChangeTimes->{{3.771210779380275*^9, 3.771210848283779*^9}, 
   3.7715656178322363`*^9},ExpressionUUID->"15a8f8ae-f983-4f82-9999-\
23df6f4cac5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     RowBox[{
      SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
     SuperscriptBox["g", "4"]}], "+", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     SuperscriptBox["g", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "/.", 
   RowBox[{"u", "\[Rule]", 
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["r", "2"]}]]}]}]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.771566028148428*^9, 3.7715660335815477`*^9}, {
   3.77156615156677*^9, 3.771566178974769*^9}, 3.7715663060139637`*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"a1ae75af-5d12-4c6a-b65d-9dd855958594"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["g", "6"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["g", "3"], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["r", "2"]}]], " ", 
   SuperscriptBox["\[Rho]", "2"]}], "-", 
  SuperscriptBox["\[Rho]", "4"], "+", 
  SuperscriptBox["\[Rho]", "6"], "+", 
  RowBox[{"4", " ", "g", " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["r", "2"]}]], " ", 
   SuperscriptBox["\[Rho]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["g", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["g", "2"], " ", 
   SuperscriptBox["\[Rho]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"2", "-", 
     SuperscriptBox["\[Rho]", "2"], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.771566029016654*^9, 3.77156603399969*^9}, {
   3.771566157948864*^9, 3.771566179834072*^9}, 3.771566306815488*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"cb3e8067-3af2-4965-b17a-8e03e03cbdf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CoefficientList", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"4", "+", 
               SuperscriptBox["u", "2"]}], ")"}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
            
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
            RowBox[{"2", "u", " ", 
             SuperscriptBox["\[Rho]", "2"], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Rho]", "2"], 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], "-", 
               RowBox[{"(", 
                RowBox[{"2", "+", 
                 SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
             SuperscriptBox[
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
            RowBox[{"2", "u", " ", 
             SuperscriptBox["\[Rho]", "2"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], 
             RowBox[{
              SubscriptBox["g", "n"], "[", 
              RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[Rho]", "4"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
          ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
        RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", "0"}],
       "\[IndentingNewLine]", "//", "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713435393046713`*^9}, {3.771565694510812*^9, 
  3.771565697052635*^9}, {3.77156572723827*^9, 3.771565748503291*^9}, {
  3.771565914133923*^9, 3.771565967062154*^9}, {3.771566533645604*^9, 
  3.771566538164802*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"13750e84-2f47-4ac5-9b9a-9f92308866bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["c", "0"], "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["c", "0"], "\[Rule]", 
     RowBox[{"-", 
      FractionBox["2", 
       SqrtBox[
        RowBox[{"4", "+", 
         SuperscriptBox["u", "2"]}]]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["c", "0"], "\[Rule]", 
     FractionBox["2", 
      SqrtBox[
       RowBox[{"4", "+", 
        SuperscriptBox["u", "2"]}]]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343540761883*^9}, 3.771346297901451*^9, 
   3.771565631814704*^9, 3.771565697603593*^9, {3.771565727953568*^9, 
   3.771565749157428*^9}, {3.771565884526013*^9, 3.77156596789881*^9}, {
   3.771566534153871*^9, 3.771566540086186*^9}},
 CellLabel->
  "Out[102]=",ExpressionUUID->"799d10fa-dcd9-43cf-8cf5-8fa4dd55dce5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "1"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{
        SubscriptBox["c", "0"], "\[Rule]", 
        FractionBox["2", 
         SqrtBox[
          RowBox[{"4", "+", 
           SuperscriptBox["u", "2"]}]]]}]}], "//", "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713435393046713`*^9}, {3.771565694510812*^9, 
  3.771565697052635*^9}, {3.77156572723827*^9, 3.771565748503291*^9}, {
  3.771565914133923*^9, 3.771565967062154*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"284a7afb-7d52-4ed1-8061-78cb1fa54834"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "1"], "\[Rule]", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343540761883*^9}, 3.771346297901451*^9, 
   3.771565631814704*^9, 3.771565697603593*^9, {3.771565727953568*^9, 
   3.771565749157428*^9}, {3.771565884526013*^9, 3.77156596789881*^9}},
 CellLabel->"Out[70]=",ExpressionUUID->"697817c2-1cb5-4da3-8a5b-a4b3ff332e95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "2"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 SuperscriptBox["u", "2"]}], ")"}], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  SubscriptBox["g", "n"], "[", 
                  RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], 
              "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[Rho]", "2"], 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
              RowBox[{"2", "u", " ", 
               SuperscriptBox["\[Rho]", "2"], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[Rho]", "2"], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[Rho]", "2"], 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
              RowBox[{"2", "u", " ", 
               SuperscriptBox["\[Rho]", "2"], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}], 
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
              RowBox[{
               SuperscriptBox["\[Rho]", "4"], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}],
             ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
          RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
         "0"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           SubscriptBox["c", "0"], "\[Rule]", 
           FractionBox["2", 
            SqrtBox[
             RowBox[{"4", "+", 
              SuperscriptBox["u", "2"]}]]]}], ",", 
          RowBox[{
           SubscriptBox["c", "1"], "\[Rule]", "0"}]}], "}"}]}], "//", 
       "FullSimplify"}], ",", 
      SubscriptBox["c", "n"]}], "]"}], "//", "FullSimplify"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713435589208593`*^9}, {3.7713435895523767`*^9, 
  3.771343589904711*^9}, {3.7715657128149853`*^9, 3.771565723446246*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"9e16a9e3-dc3a-4ae7-a93a-623f6a58f8a6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "2"], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{
       SuperscriptBox["u", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{"u", "+", 
            SqrtBox[
             RowBox[{"4", "+", 
              SuperscriptBox["u", "2"]}]]}], ")"}]}]}], ")"}]}]}], 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"4", "+", 
        SuperscriptBox["u", "2"]}]]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
   3.771343416164261*^9, 3.771343559428401*^9}, 3.771343590306632*^9, 
   3.771565633911433*^9, {3.7715657177802258`*^9, 3.771565753144897*^9}, 
   3.771565973505001*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"fd28437b-4989-4a67-8ff6-4d1c05abf9ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "3"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          FractionBox["2", 
           SqrtBox[
            RowBox[{"4", "+", 
             SuperscriptBox["u", "2"]}]]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"u", " ", 
                RowBox[{"(", 
                 RowBox[{"u", "+", 
                  SqrtBox[
                   RowBox[{"4", "+", 
                    SuperscriptBox["u", "2"]}]]}], ")"}]}]}], ")"}]}]}], 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{"4", "+", 
              SuperscriptBox["u", "2"]}]]}]]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
  3.771343385015891*^9, 3.7713436001888533`*^9}, {3.771565818607265*^9, 
  3.771565824325378*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"73d5a561-4504-4f8b-a6b2-382333b749c1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "3"], "\[Rule]", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343210467792*^9, 3.771343239618573*^9}, {
  3.771343416164261*^9, 3.771343601287202*^9}, {3.7715658251160507`*^9, 
  3.7715658257058773`*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"05a85ce7-3b3b-478a-b1fd-e3682f0baeab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "4"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          FractionBox["2", 
           SqrtBox[
            RowBox[{"4", "+", 
             SuperscriptBox["u", "2"]}]]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"u", " ", 
                RowBox[{"(", 
                 RowBox[{"u", "+", 
                  SqrtBox[
                   RowBox[{"4", "+", 
                    SuperscriptBox["u", "2"]}]]}], ")"}]}]}], ")"}]}]}], 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{"4", "+", 
              SuperscriptBox["u", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", "0"}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343203653255*^9, 3.771343239114738*^9}, {
   3.771343385015891*^9, 3.7713436001888533`*^9}, {3.771343640634666*^9, 
   3.771343656237653*^9}, 3.771343695810667*^9, {3.771565838375208*^9, 
   3.7715658446694736`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"83f30656-9612-4c1e-b5c3-c9f9136988a4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "4"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["u", "2"]}], "+", 
         RowBox[{"34", " ", 
          SuperscriptBox["u", "4"]}], "+", 
         RowBox[{"20", " ", 
          SuperscriptBox["u", "6"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["u", "8"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["u", "3"], " ", 
          SqrtBox[
           RowBox[{"4", "+", 
            SuperscriptBox["u", "2"]}]]}], "+", 
         RowBox[{"14", " ", 
          SuperscriptBox["u", "5"], " ", 
          SqrtBox[
           RowBox[{"4", "+", 
            SuperscriptBox["u", "2"]}]]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["u", "7"], " ", 
          SqrtBox[
           RowBox[{"4", "+", 
            SuperscriptBox["u", "2"]}]]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"4", "+", 
         SuperscriptBox["u", "2"]}]]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.771343649106743*^9, 3.771343696279591*^9, {3.771565845242795*^9, 
   3.771565847073634*^9}},
 CellLabel->"Out[49]=",ExpressionUUID->"6323ca38-b931-4350-bba5-73b078619630"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "5"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          FractionBox["2", 
           SqrtBox[
            RowBox[{"4", "+", 
             SuperscriptBox["u", "2"]}]]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            RowBox[{
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"u", " ", 
                RowBox[{"(", 
                 RowBox[{"u", "+", 
                  SqrtBox[
                   RowBox[{"4", "+", 
                    SuperscriptBox["u", "2"]}]]}], ")"}]}]}], ")"}]}]}], 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{"4", "+", 
              SuperscriptBox["u", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"3", " ", 
             RowBox[{"(", 
              RowBox[{"4", "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["u", "2"]}], "+", 
               RowBox[{"34", " ", 
                SuperscriptBox["u", "4"]}], "+", 
               RowBox[{"20", " ", 
                SuperscriptBox["u", "6"]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["u", "8"]}], "+", 
               RowBox[{"12", " ", 
                SuperscriptBox["u", "3"], " ", 
                SqrtBox[
                 RowBox[{"4", "+", 
                  SuperscriptBox["u", "2"]}]]}], "+", 
               RowBox[{"14", " ", 
                SuperscriptBox["u", "5"], " ", 
                SqrtBox[
                 RowBox[{"4", "+", 
                  SuperscriptBox["u", "2"]}]]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["u", "7"], " ", 
                SqrtBox[
                 RowBox[{"4", "+", 
                  SuperscriptBox["u", "2"]}]]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             SqrtBox[
              RowBox[{"4", "+", 
               SuperscriptBox["u", "2"]}]]}]]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343700867867*^9, 3.7713437077336617`*^9}, {
  3.771565854687521*^9, 3.771565870327199*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"d88e7b3b-c224-4809-84c6-df4b10158f80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "5"], "\[Rule]", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7715658713394947`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"084c2821-a874-4e5a-b494-29027d5fa693"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "6"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.7713437170640574`*^9, 3.7713437194813757`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"802062f2-8860-4d4f-8b05-7212b3cd0cc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "6"], "\[Rule]", 
    FractionBox[
     RowBox[{"225", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{"64", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.771343720254058*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"35f7bc39-6102-47fa-9018-5c53120fd411"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "7"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "6"], "\[Rule]", 
          FractionBox[
           RowBox[{"225", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"121", " ", 
               SuperscriptBox["\[Rho]", "4"]}], "+", 
              RowBox[{"728", " ", 
               SuperscriptBox["\[Rho]", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
           RowBox[{"64", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343759708733*^9, 3.771343762479124*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"deae5109-cbc1-4174-848a-d1765ebc13df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "7"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "945"}], " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Rho]", "2"]}], "-", 
       RowBox[{"70", " ", 
        SuperscriptBox["\[Rho]", "4"]}], "+", 
       RowBox[{"51", " ", 
        SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{3.7713437631751547`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"cc33bf8c-ba0c-4ab7-bee8-88554857502f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"4", "+", 
     SuperscriptBox["u", "2"]}], ")"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      SubscriptBox["g", "n"], "[", 
      RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Rho]", "2"], 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
  RowBox[{"2", "u", " ", 
   SuperscriptBox["\[Rho]", "2"], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
  RowBox[{
   SuperscriptBox["\[Rho]", "2"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Rho]", "2"], 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], "-", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["g", "n"], "[", 
     RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
  RowBox[{"2", "u", " ", 
   SuperscriptBox["\[Rho]", "2"], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}], 
   RowBox[{
    SubscriptBox["g", "n"], "[", 
    RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[Rho]", "4"], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}]], "Input",ExpressionUUID->\
"127e6c10-46ff-4618-a51a-6701b26315b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", "=", "8"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CoefficientList", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4", "+", 
                SuperscriptBox["u", "2"]}], ")"}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SubscriptBox["g", "n"], "[", 
                 RowBox[{"\[Rho]", ",", "u"}], "]"}], "6"], "/", "4"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "4"]}], "+", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "3"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Rho]", "2"], 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   SuperscriptBox["u", "2"]}], ")"}]}], "-", 
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
              SuperscriptBox[
               RowBox[{
                SubscriptBox["g", "n"], "[", 
                RowBox[{"\[Rho]", ",", "u"}], "]"}], "2"]}], "-", 
             RowBox[{"2", "u", " ", 
              SuperscriptBox["\[Rho]", "2"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], 
              RowBox[{
               SubscriptBox["g", "n"], "[", 
               RowBox[{"\[Rho]", ",", "u"}], "]"}]}], "-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "4"], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "//", "Expand"}], 
           ",", "u"}], "]"}], "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "\[Equal]", 
        "0"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["c", "0"], "\[Rule]", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["c", "2"], "\[Rule]", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
           RowBox[{"4", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "3"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["3", "2"]}], " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "4"], "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"7", " ", 
                SuperscriptBox["\[Rho]", "2"]}], "+", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
            RowBox[{"16", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "5"], "\[Rule]", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"11", " ", 
              SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
         RowBox[{
          SubscriptBox["c", "6"], "\[Rule]", 
          FractionBox[
           RowBox[{"225", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"121", " ", 
               SuperscriptBox["\[Rho]", "4"]}], "+", 
              RowBox[{"728", " ", 
               SuperscriptBox["\[Rho]", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
           RowBox[{"64", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
         RowBox[{
          SubscriptBox["c", "7"], "\[Rule]", 
          RowBox[{
           RowBox[{"-", "945"}], " ", 
           SuperscriptBox["\[Rho]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"24", " ", 
              SuperscriptBox["\[Rho]", "2"]}], "-", 
             RowBox[{"70", " ", 
              SuperscriptBox["\[Rho]", "4"]}], "+", 
             RowBox[{"51", " ", 
              SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}]}], "}"}]}], "//", 
      "FullSimplify"}], ",", 
     SubscriptBox["c", "n"]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.771343759708733*^9, 3.7713437859342012`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"e76a113c-3c55-467b-96b4-dbfd6b19b1df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "8"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2205", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "-", 
         RowBox[{"33", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"65", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"16875", " ", 
          SuperscriptBox["\[Rho]", "6"]}], "+", 
         RowBox[{"272", " ", 
          SuperscriptBox["\[Rho]", "8"], " ", 
          RowBox[{"(", 
           RowBox[{"419", "-", 
            RowBox[{"798", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"456", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"256", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.771343780884714*^9, 3.771343788570665*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"f473cdd7-9453-4bca-af61-1d33a1f84b70"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["c", "0"], "\[Rule]", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
   RowBox[{
    SubscriptBox["c", "2"], "\[Rule]", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
     RowBox[{"4", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "3"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["3", "2"]}], " ", 
     SuperscriptBox["\[Rho]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "4"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"24", " ", 
          SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "5"], "\[Rule]", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "7"}], "+", 
       RowBox[{"11", " ", 
        SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
   RowBox[{
    SubscriptBox["c", "6"], "\[Rule]", 
    FractionBox[
     RowBox[{"225", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{"64", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
   RowBox[{
    SubscriptBox["c", "7"], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "945"}], " ", 
     SuperscriptBox["\[Rho]", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Rho]", "2"]}], "-", 
       RowBox[{"70", " ", 
        SuperscriptBox["\[Rho]", "4"]}], "+", 
       RowBox[{"51", " ", 
        SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2205", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "5"}], "-", 
        RowBox[{"33", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"65", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"16875", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "+", 
        RowBox[{"272", " ", 
         SuperscriptBox["\[Rho]", "8"], " ", 
         RowBox[{"(", 
          RowBox[{"419", "-", 
           RowBox[{"798", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"456", " ", 
            SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
     RowBox[{"256", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.771343798150231*^9, 3.771343798451414*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"3951dd02-4142-4bd2-9bb3-d8e93a3b6391"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      SubscriptBox["c", "n"], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "8"}], "}"}]}], "]"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["c", "0"], "\[Rule]", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["c", "2"], "\[Rule]", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"], 
       RowBox[{"4", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "3"], "\[Rule]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3", "2"]}], " ", 
       SuperscriptBox["\[Rho]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "4"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"9", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "-", 
           RowBox[{"7", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"24", " ", 
            SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], 
        RowBox[{"16", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "5"], "\[Rule]", 
      RowBox[{"15", " ", 
       SuperscriptBox["\[Rho]", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "7"}], "+", 
         RowBox[{"11", " ", 
          SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "6"], "\[Rule]", 
      FractionBox[
       RowBox[{"225", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["\[Rho]", "2"]}], "+", 
          RowBox[{"121", " ", 
           SuperscriptBox["\[Rho]", "4"]}], "+", 
          RowBox[{"728", " ", 
           SuperscriptBox["\[Rho]", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
       RowBox[{"64", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}]]}], ",", 
     RowBox[{
      SubscriptBox["c", "7"], "\[Rule]", 
      RowBox[{
       RowBox[{"-", "945"}], " ", 
       SuperscriptBox["\[Rho]", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"24", " ", 
          SuperscriptBox["\[Rho]", "2"]}], "-", 
         RowBox[{"70", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "+", 
         RowBox[{"51", " ", 
          SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["c", "8"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2205", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}], "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "-", 
           RowBox[{"33", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"65", " ", 
            SuperscriptBox["\[Rho]", "4"]}], "-", 
           RowBox[{"16875", " ", 
            SuperscriptBox["\[Rho]", "6"]}], "+", 
           RowBox[{"272", " ", 
            SuperscriptBox["\[Rho]", "8"], " ", 
            RowBox[{"(", 
             RowBox[{"419", "-", 
              RowBox[{"798", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"456", " ", 
               SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"256", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}]]}]}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.77134382687157*^9, 3.771343845353775*^9}, {
  3.771344218206153*^9, 3.771344242486761*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"c72a366a-2f39-401f-8da6-2fdca6bb1b52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coef", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}]], ",", "0", ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "4"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"5", "/", "2"}]]}], ",", 
     RowBox[{
      FractionBox["3", "2"], "  ", 
      SuperscriptBox["\[Rho]", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], ",", 
     RowBox[{
      FractionBox["9", "16"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"7", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{"24", " ", 
         SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], ",", 
     RowBox[{"15", " ", 
      SuperscriptBox["\[Rho]", "4"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7"}], "+", 
        RowBox[{"11", " ", 
         SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["225", "64"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"9", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"121", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "+", 
        RowBox[{"728", " ", 
         SuperscriptBox["\[Rho]", "8"]}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"-", "945"}], " ", 
      SuperscriptBox["\[Rho]", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"24", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"70", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"51", " ", 
         SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["2205", "256"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}], 
       RowBox[{"11", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"33", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{"65", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"16875", " ", 
         SuperscriptBox["\[Rho]", "6"]}], "-", 
        RowBox[{"113968", " ", 
         SuperscriptBox["\[Rho]", "8"]}], "+", 
        RowBox[{"217056", " ", 
         SuperscriptBox["\[Rho]", "10"]}], "-", 
        RowBox[{"124032", " ", 
         SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}]}], "}"}], "//", 
   "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.771344610291851*^9, 3.771344648177322*^9}, {
   3.771344696275141*^9, 3.7713447267318697`*^9}, {3.7713447814721947`*^9, 
   3.771344833391876*^9}, {3.771344913304099*^9, 3.771344922851901*^9}, 
   3.771345272535695*^9, {3.771347747754327*^9, 3.7713477483912497`*^9}, {
   3.7715651407590523`*^9, 3.771565146564661*^9}, 3.7715652033739634`*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"00a05152-7cca-4e39-a644-d6cd860a1506"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}]], ",", "0", ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"5", "/", "2"}]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", "2"]}], " ", 
    SuperscriptBox["\[Rho]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], ",", 
   RowBox[{
    FractionBox["9", "16"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"7", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"7", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"24", " ", 
       SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], ",", 
   RowBox[{"15", " ", 
    SuperscriptBox["\[Rho]", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "7"}], "+", 
      RowBox[{"11", " ", 
       SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["225", "64"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"9", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "+", 
      RowBox[{"121", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"728", " ", 
       SuperscriptBox["\[Rho]", "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "945"}], " ", 
    SuperscriptBox["\[Rho]", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"24", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"70", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"51", " ", 
       SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["2205", "256"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"11", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"33", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"65", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"16875", " ", 
       SuperscriptBox["\[Rho]", "6"]}], "-", 
      RowBox[{"113968", " ", 
       SuperscriptBox["\[Rho]", "8"]}], "+", 
      RowBox[{"217056", " ", 
       SuperscriptBox["\[Rho]", "10"]}], "-", 
      RowBox[{"124032", " ", 
       SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7713446110856657`*^9, 3.771344648740554*^9}, {
   3.771344696698926*^9, 3.771344712812035*^9}, {3.7713447883641577`*^9, 
   3.77134483400369*^9}, 3.771344940462893*^9, 3.771347749035977*^9, 
   3.7715651502464314`*^9, 3.77156520386483*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"b113fc37-77c5-4f9b-8b4a-18accb40a762"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"k", "=", "0"}], "8"], 
  RowBox[{
   RowBox[{"Coef", "\[LeftDoubleBracket]", 
    RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
   FractionBox[
    SuperscriptBox["u", "k"], 
    RowBox[{"k", "!"}]]}]}]], "Input",
 CellChangeTimes->{{3.7713449416596622`*^9, 3.7713450066896048`*^9}, 
   3.7715651516703587`*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"ae13deed-cd58-450c-b33f-da2e0d4ae89b"],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox["\[Rho]", "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["u", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], 
    RowBox[{"5", "/", "2"}]]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["u", "3"], " ", 
   SuperscriptBox["\[Rho]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "3"]}], "+", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["u", "5"], " ", 
   SuperscriptBox["\[Rho]", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "7"}], "+", 
     RowBox[{"11", " ", 
      SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["3", "128"], " ", 
   SuperscriptBox["u", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], 
    RowBox[{"7", "/", "2"}]], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"7", " ", 
      SuperscriptBox["\[Rho]", "2"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   SuperscriptBox["u", "7"], " ", 
   SuperscriptBox["\[Rho]", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}], "5"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Rho]", "2"]}], "-", 
     RowBox[{"70", " ", 
      SuperscriptBox["\[Rho]", "4"]}], "+", 
     RowBox[{"51", " ", 
      SuperscriptBox["\[Rho]", "6"]}]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["u", "8"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"11", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"33", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "-", 
      RowBox[{"65", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"16875", " ", 
       SuperscriptBox["\[Rho]", "6"]}], "-", 
      RowBox[{"113968", " ", 
       SuperscriptBox["\[Rho]", "8"]}], "+", 
      RowBox[{"217056", " ", 
       SuperscriptBox["\[Rho]", "10"]}], "-", 
      RowBox[{"124032", " ", 
       SuperscriptBox["\[Rho]", "12"]}]}], ")"}]}], "32768"], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["u", "6"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], 
     RowBox[{"9", "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["\[Rho]", "2"]}], "+", 
      RowBox[{"121", " ", 
       SuperscriptBox["\[Rho]", "4"]}], "+", 
      RowBox[{"728", " ", 
       SuperscriptBox["\[Rho]", "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}], 
   "1024"]}]], "Output",
 CellChangeTimes->{
  3.771345007319716*^9, 3.771565152880014*^9, {3.771565198402199*^9, 
   3.771565205470788*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"b9aec710-6974-4be4-a83f-9d9071b74f18"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"gmin", "[", 
            RowBox[{"t", ",", "U", ",", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "5", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", 
         RowBox[{"1", "/", "3"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\""}],
             "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PadeApproximant", "[", 
              RowBox[{
               RowBox[{
                UnderoverscriptBox["\[Sum]", 
                 RowBox[{"k", "=", "0"}], "8"], 
                RowBox[{
                 RowBox[{"Coef", "\[LeftDoubleBracket]", 
                  RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
                 FractionBox[
                  SuperscriptBox["u", "k"], 
                  RowBox[{"k", "!"}]]}]}], ",", 
               RowBox[{"{", 
                RowBox[{"u", ",", "0", ",", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "]"}], "/.", 
             RowBox[{"\[Rho]", "\[Rule]", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}]}]}], "/.", 
            RowBox[{"u", "\[Rule]", 
             FractionBox["U", 
              RowBox[{"2", "t"}]]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "5", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.771345134381372*^9, 3.771345238754568*^9}, {
  3.7713452954373817`*^9, 3.7713453448055267`*^9}, {3.771345990157563*^9, 
  3.7713459971806*^9}, {3.7713460513204803`*^9, 3.771346055312216*^9}, {
  3.771346104108643*^9, 3.7713461152400713`*^9}, {3.771346194546282*^9, 
  3.771346211866336*^9}, {3.77156522034243*^9, 3.771565246447689*^9}, {
  3.771565410663207*^9, 3.771565484285173*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"cb3e279d-7cc3-4f38-92d1-cbfaf9cae77c"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{4.081632653061224*^-8, 0.0002856604710383269}, {
          0.0005827660898796174, 0.03413477296282887}, {
          0.0012575006171516125`, 0.0501333335824916}, {
          0.0018402258907046993`, 0.060637237579376016`}, {
          0.002422951164257786, 0.06956749709834613}, {0.0030976856915297816`,
           0.0786447813579917}, {0.003680410965082868, 0.08570909334516502}, {
          0.004263136238635955, 0.09222952761539074}, {0.004842794537065078, 
          0.09828317268127487}}], LineBox[CompressedData["
1:eJwdmXc81e8bxhGFRPZIIpEkVKIUl5UiaRhJUiSiUmmThtKiklESUZIS2SOV
[encoded data, 16287 characters]
tndgw2hfri5jNQVVQ2HvvzuycW+X5X4bBQr+BzIohQM=
          "]], 
         LineBox[CompressedData["
1:eJwVkXlYzHkAxnO0MY8OZ9iZJDmSxzob0vZuj6PkjKRtZ1DaVErJI6FRSoNU
W6JLyrnSk0KZ0YoOHUzHNGOu3/yGFmF10LA15fj+dvaP93n/ev94P5/pARFb
fh9uYmLia8z/fdthQ6i3C4HlUiG3/KkOxdU76E5XgqKVA11ykQ77poY9jfUm
CA5wlL2ZoEOf30OzRB+C75FHhkWa6iAQFnqZ+hFkVXh2JXXRiGHfqTvPI5i1
u7ukTkWjvSmqxmMnwcJIzuMXtTQk/BMLKX8C3pk+jv4WjeM2Aw9KAwmkhfbf
ZNk0tE/Flf57CM7X+AmLEmh8KKTafw0lyG5OMVuzl0ay7Yp7TWEEZ/evLrDw
pZEkWj/LN4LgWXhD3u2VNEpSiw1eUQSfZ4kdPznS+MRdsGLEQQKrQxeHeJNo
9La6lWQeIiieO7JfPIzGtbRyp5AjBM57I+NburQosG+4MRRLsDsugzEotTBI
hddL4ghC2Xe0+motNh/1uLozgcBizyeO/KYWRbNYl8clEQhs12TkZGrhJ0jN
j0kmoBZWRqiCtKiaey5z1XmC3kmL3K3GaDFBtS3DkG3kJ2vqnNJPoTmr6cfW
PAJzxdecDh2FxnlUCv8igVLX2q9ppBDb62m9+BLBrb92vQgopRCdyDv1+ArB
14oPqTNzKEjn2wijrxv9aPPZl+IpzNF2JDoUEejPmjp/D6YQn3T5uK6YoC7A
mufiRcH8kJmn/y2CtMitPxicKeQFh497W0aQYH5yUrY9hXEWFy563iXY2vP2
noslhfJ1y69+rCAo2Np/WGjQYJ4+aL63mMBDFLp68KUGLfNNlwxVEmy0pJeP
kmjAcalbxaky/n2t70kXaWBR7IaV1QStMwI9m3M1iBrBTT1ZS3BCdTVl8IQG
zL/528bUE3RPP9pZGa5BTJ7k78hGAh/3XdrT2zWYrAl+O/EpgeiBRNrpqkGG
IGv/kWaC1XaVe2PnaLDGLLwCbQROgypOsIUGj0rycK2dgJWhPVpvUIO75Ylk
1DOCtpxuauRLNXroAvM2JQE/N0Sc3KhG4PGWnEUa4/7P9JepZWrooxb5i7VG
fgdovku2GscCcxxcnhPkbhHMlhxTg+VD9DUdBD1N3QJukBrVHYolwlcEy7h6
39Hr1LBfLkmQdBr5zgk3L12iRn108KmId0Y/bqFO0VPV+JmdNV7xnqCz9kZL
/nA1JObfaN8eAms725G73qvgw/hfe/6BYOVnqy5GqsLrvqawAD1B4OL3HrEi
FXhZ/YbGzwRjK44e5hSoYGXb4pwyQODfN4xfdVyF0w1DDX2DBAfGu9VNDFFh
knhn2sGvxj29yoFsVGFPPbsw9ztBkHhT0d1lKizIc5wWZ8IgoPGjJW+qClVn
Mt6NGMEgKmxtYDujxFqBoeyUKYO33rp37DdKqPbxY8xHMehcxWW5SZRIHlz8
QM5iUC34GCssUeKjl8Noa3MG5Rc9bS3OKZH+R5NFlSUD/9nPMn0OKTF6aX+u
7TgGZV925C/iK/HoUbPuzQQGo7LW66tclbCbXDt3rjUD1grXTTdnKnFyvyhm
3xQGTi/jIvaPUWKze8PgVjYDpYatGN6jwJOeT4n3bRhc+a1xGkumwJQvZed0
tgz0Gdme9fcVeCV9NKFuBoPkusSHomwFbv3DuWCxnkE7SxqfUiZHW9GmkKiN
DEbyuobXpMsRuKV3ZqkXA/7mFe6iIDl+MdvWLfBmwFOzHre6ycGuqrq9YTsD
UfBPXWlsOQYj7aM5fgwchxW+MgzIMNauYNlYPoNjabu4NlIZSrWfTR7uZOBa
lvnD/WIZzhaMl3/zZzCj4crjtjMy/AflK/DC
          "]], 
         LineBox[{{1.9719594070500728`, 0.23465694592500785`}, {
          1.9725428701911636`, 0.2322520054418687}, {1.9780342879896655`, 
          0.20814110195932387`}, {1.9787207152144783`, 0.2049125237079944}, {
          1.9794414638005315`, 0.20146320688855976`}, {1.9800935696641035`, 
          0.19828737795494622`}, {1.9807799968889164`, 0.1948850798934927}, {
          1.9814664241137292`, 0.19141874234069034`}, {1.982152851338542, 
          0.18788486475886104`}, {1.9835257057881674`, 
          0.18059854857633048`}, {1.9841778116517395`, 
          0.17702723311775814`}, {1.9848985602377929`, 0.172990187737927}, {
          1.9855849874626057`, 0.16905176871825026`}, {1.9862027719649373`, 
          0.16542358936579063`}}], 
         LineBox[{{1.8752313690556592`, 0.4753095383371921}, {
          1.8758574006209332`, 0.4742527768124575}, {1.8765163812159587`, 
          0.4731362964068816}, {1.877175361810984, 0.47201556630058383`}, {
          1.8778343424060093`, 0.4708905398806321}, {1.8784933230010348`, 
          0.4697612000580378}, {1.8798112841910855`, 0.46748943371741675`}, {
          1.8804702647861107`, 0.4663469772516909}, {1.8811292453811361`, 
          0.46520009242511956`}, {1.8824472065711868`, 
          0.46289282500105566`}, {1.883106187166212, 0.46173241482749666`}, {
          1.8837651677612375`, 0.46056743772767333`}, {1.8850831289512882`, 
          0.45822364446318875`}, {1.8857091605165621`, 
          0.45710380685052326`}, {1.8864010901413388`, 
          0.45586117899841017`}, {1.8870600707363643`, 
          0.45467284005221414`}, {1.8876861023016382`, 0.4535394916572849}}], 
         LineBox[{{1.9636536376298386`, 0.26633787985253304`}, {
          1.9643057434934106`, 0.2640026580369217}, {1.9649921707182232`, 
          0.26151928554495507`}, {1.965678597943036, 0.2590092800506333}, {
          1.9663307038066082`, 0.2565994378075238}, {1.9670514523926617`, 
          0.2539062570130525}, {1.9677378796174745`, 0.2513115515729616}, {
          1.9684586282035277`, 0.2485548578195671}, {1.9691107340670997`, 
          0.2460312741692633}, {1.969762839930672, 0.24347888353862157`}}], 
         LineBox[{{1.988443956853951, 0.1515047234554082}, {
          1.9890857663091506`, 0.14726804518225706`}, {1.9897035508114822`, 
          0.14306783225577033`}, {1.990389978036295, 0.13824699826000694`}, {
          1.9910764052611079`, 0.13324716985524823`}, {1.9917628324859205`, 
          0.1280473681268971}, {1.9923806169882519`, 0.12317577590392016`}, {
          1.9931356869355459`, 0.11694049530170245`}, {1.9937534714378775`, 
          0.11157519041485597`}, {1.9945085413851715`, 
          0.10463841540932989`}, {1.9951949686099844`, 0.0979003193138736}, {
          1.9958127531123158`, 0.09140696436683436}}], 
         LineBox[{{1.9993478533201015`, 0.03610891332168296}, {
          1.9999999591836735`, 0.0002856604710383269}}]},
        Annotation[#, "Charting`Private`Tag$7040#1"]& ]}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw12nk01N//B3BSEkWWhJQk2oRSKS1PRVSkFKH6qJAUWiytpE2hpEVSkSxF
[encoded data, 14274 characters]
8IgI664MniprTEHxiQR9g3ERQnyDmZWCeDzWkBkUiUT4//8v/j/Bfe3c
          "]]},
        Annotation[#, "Charting`Private`Tag$7109#1"]& ]}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                  Selectable -> False], ",", 
                 RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[
     Rational[1, 3], 0.3333333333333333],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   ImageSize->{730.521875, Automatic},
   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->{{0, 2}, {0., 0.753828232188389}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           
           Line[{{4.081632653061224*^-8, 0.0002856604710383269}, {
            0.0005827660898796174, 0.03413477296282887}, {
            0.0012575006171516125`, 0.0501333335824916}, {
            0.0018402258907046993`, 0.060637237579376016`}, {
            0.002422951164257786, 0.06956749709834613}, {
            0.0030976856915297816`, 0.0786447813579917}, {
            0.003680410965082868, 0.08570909334516502}, {0.004263136238635955,
             0.09222952761539074}, {0.004842794537065078, 
            0.09828317268127487}}], 
           Line[CompressedData["
1:eJwdmXc81e8bxhGFRPZIIpEkVKIUl5UiaRhJUiSiUmmThtKiklESUZIS2SOV
[encoded data, 16287 characters]
tndgw2hfri5jNQVVQ2HvvzuycW+X5X4bBQr+BzIohQM=
            "]], 
           Line[CompressedData["
1:eJwVkXlYzHkAxnO0MY8OZ9iZJDmSxzob0vZuj6PkjKRtZ1DaVErJI6FRSoNU
W6JLyrnSk0KZ0YoOHUzHNGOu3/yGFmF10LA15fj+dvaP93n/ev94P5/pARFb
fh9uYmLia8z/fdthQ6i3C4HlUiG3/KkOxdU76E5XgqKVA11ykQ77poY9jfUm
CA5wlL2ZoEOf30OzRB+C75FHhkWa6iAQFnqZ+hFkVXh2JXXRiGHfqTvPI5i1
u7ukTkWjvSmqxmMnwcJIzuMXtTQk/BMLKX8C3pk+jv4WjeM2Aw9KAwmkhfbf
ZNk0tE/Flf57CM7X+AmLEmh8KKTafw0lyG5OMVuzl0ay7Yp7TWEEZ/evLrDw
pZEkWj/LN4LgWXhD3u2VNEpSiw1eUQSfZ4kdPznS+MRdsGLEQQKrQxeHeJNo
9La6lWQeIiieO7JfPIzGtbRyp5AjBM57I+NburQosG+4MRRLsDsugzEotTBI
hddL4ghC2Xe0+motNh/1uLozgcBizyeO/KYWRbNYl8clEQhs12TkZGrhJ0jN
j0kmoBZWRqiCtKiaey5z1XmC3kmL3K3GaDFBtS3DkG3kJ2vqnNJPoTmr6cfW
PAJzxdecDh2FxnlUCv8igVLX2q9ppBDb62m9+BLBrb92vQgopRCdyDv1+ArB
14oPqTNzKEjn2wijrxv9aPPZl+IpzNF2JDoUEejPmjp/D6YQn3T5uK6YoC7A
mufiRcH8kJmn/y2CtMitPxicKeQFh497W0aQYH5yUrY9hXEWFy563iXY2vP2
noslhfJ1y69+rCAo2Np/WGjQYJ4+aL63mMBDFLp68KUGLfNNlwxVEmy0pJeP
kmjAcalbxaky/n2t70kXaWBR7IaV1QStMwI9m3M1iBrBTT1ZS3BCdTVl8IQG
zL/528bUE3RPP9pZGa5BTJ7k78hGAh/3XdrT2zWYrAl+O/EpgeiBRNrpqkGG
IGv/kWaC1XaVe2PnaLDGLLwCbQROgypOsIUGj0rycK2dgJWhPVpvUIO75Ylk
1DOCtpxuauRLNXroAvM2JQE/N0Sc3KhG4PGWnEUa4/7P9JepZWrooxb5i7VG
fgdovku2GscCcxxcnhPkbhHMlhxTg+VD9DUdBD1N3QJukBrVHYolwlcEy7h6
39Hr1LBfLkmQdBr5zgk3L12iRn108KmId0Y/bqFO0VPV+JmdNV7xnqCz9kZL
/nA1JObfaN8eAms725G73qvgw/hfe/6BYOVnqy5GqsLrvqawAD1B4OL3HrEi
FXhZ/YbGzwRjK44e5hSoYGXb4pwyQODfN4xfdVyF0w1DDX2DBAfGu9VNDFFh
knhn2sGvxj29yoFsVGFPPbsw9ztBkHhT0d1lKizIc5wWZ8IgoPGjJW+qClVn
Mt6NGMEgKmxtYDujxFqBoeyUKYO33rp37DdKqPbxY8xHMehcxWW5SZRIHlz8
QM5iUC34GCssUeKjl8Noa3MG5Rc9bS3OKZH+R5NFlSUD/9nPMn0OKTF6aX+u
7TgGZV925C/iK/HoUbPuzQQGo7LW66tclbCbXDt3rjUD1grXTTdnKnFyvyhm
3xQGTi/jIvaPUWKze8PgVjYDpYatGN6jwJOeT4n3bRhc+a1xGkumwJQvZed0
tgz0Gdme9fcVeCV9NKFuBoPkusSHomwFbv3DuWCxnkE7SxqfUiZHW9GmkKiN
DEbyuobXpMsRuKV3ZqkXA/7mFe6iIDl+MdvWLfBmwFOzHre6ycGuqrq9YTsD
UfBPXWlsOQYj7aM5fgwchxW+MgzIMNauYNlYPoNjabu4NlIZSrWfTR7uZOBa
lvnD/WIZzhaMl3/zZzCj4crjtjMy/AflK/DC
            "]], 
           
           Line[{{1.9719594070500728`, 0.23465694592500785`}, {
            1.9725428701911636`, 0.2322520054418687}, {1.9780342879896655`, 
            0.20814110195932387`}, {1.9787207152144783`, 
            0.2049125237079944}, {1.9794414638005315`, 
            0.20146320688855976`}, {1.9800935696641035`, 
            0.19828737795494622`}, {1.9807799968889164`, 
            0.1948850798934927}, {1.9814664241137292`, 
            0.19141874234069034`}, {1.982152851338542, 
            0.18788486475886104`}, {1.9835257057881674`, 
            0.18059854857633048`}, {1.9841778116517395`, 
            0.17702723311775814`}, {1.9848985602377929`, 0.172990187737927}, {
            1.9855849874626057`, 0.16905176871825026`}, {1.9862027719649373`, 
            0.16542358936579063`}}], 
           
           Line[{{1.8752313690556592`, 0.4753095383371921}, {
            1.8758574006209332`, 0.4742527768124575}, {1.8765163812159587`, 
            0.4731362964068816}, {1.877175361810984, 0.47201556630058383`}, {
            1.8778343424060093`, 0.4708905398806321}, {1.8784933230010348`, 
            0.4697612000580378}, {1.8798112841910855`, 
            0.46748943371741675`}, {1.8804702647861107`, 
            0.4663469772516909}, {1.8811292453811361`, 
            0.46520009242511956`}, {1.8824472065711868`, 
            0.46289282500105566`}, {1.883106187166212, 
            0.46173241482749666`}, {1.8837651677612375`, 
            0.46056743772767333`}, {1.8850831289512882`, 
            0.45822364446318875`}, {1.8857091605165621`, 
            0.45710380685052326`}, {1.8864010901413388`, 
            0.45586117899841017`}, {1.8870600707363643`, 
            0.45467284005221414`}, {1.8876861023016382`, 
            0.4535394916572849}}], 
           
           Line[{{1.9636536376298386`, 0.26633787985253304`}, {
            1.9643057434934106`, 0.2640026580369217}, {1.9649921707182232`, 
            0.26151928554495507`}, {1.965678597943036, 0.2590092800506333}, {
            1.9663307038066082`, 0.2565994378075238}, {1.9670514523926617`, 
            0.2539062570130525}, {1.9677378796174745`, 0.2513115515729616}, {
            1.9684586282035277`, 0.2485548578195671}, {1.9691107340670997`, 
            0.2460312741692633}, {1.969762839930672, 0.24347888353862157`}}], 
           
           
           Line[{{1.988443956853951, 0.1515047234554082}, {
            1.9890857663091506`, 0.14726804518225706`}, {1.9897035508114822`, 
            0.14306783225577033`}, {1.990389978036295, 
            0.13824699826000694`}, {1.9910764052611079`, 
            0.13324716985524823`}, {1.9917628324859205`, 
            0.1280473681268971}, {1.9923806169882519`, 
            0.12317577590392016`}, {1.9931356869355459`, 
            0.11694049530170245`}, {1.9937534714378775`, 
            0.11157519041485597`}, {1.9945085413851715`, 
            0.10463841540932989`}, {1.9951949686099844`, 
            0.0979003193138736}, {1.9958127531123158`, 0.09140696436683436}}], 
           
           Line[{{1.9993478533201015`, 0.03610891332168296}, {
            1.9999999591836735`, 0.0002856604710383269}}]}, 
          "Charting`Private`Tag$7040#1"]}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw12nk01N//B3BSEkWWhJQk2oRSKS1PRVSkFKH6qJAUWiytpE2hpEVSkSxF
[encoded data, 14274 characters]
8IgI664MniprTEHxiQR9g3ERQnyDmZWCeDzWkBkUiUT4//8v/j/Bfe3c
            "]]}, 
          "Charting`Private`Tag$7109#1"]}}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> Rational[1, 3], 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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 -> {{0, 2}, {0., 0.753828232188389}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.7713451423582706`*^9, 3.771345243039317*^9}, {
   3.7713452873125143`*^9, 3.7713453424660683`*^9}, {3.77134599352704*^9, 
   3.771346000363168*^9}, 3.771346059117455*^9, 3.7713461185991697`*^9, {
   3.771346198939508*^9, 3.77134621521343*^9}, {3.771565224908457*^9, 
   3.771565248550221*^9}, {3.771565413840457*^9, 3.771565487224943*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"63ea1fe0-760e-4fd3-91c9-fe0edac5b441"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"gmin", "[", 
            RowBox[{"t", ",", "U", ",", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SubscriptBox["n", "1"]}], ")"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", 
         RowBox[{"1", "/", "3"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<U=0.2\>\"", ",", "\"\<U=1\>\"", ",", "\"\<U=2\>\""}],
             "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", "=", 
        FractionBox["1", "2"]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"k", "=", "0"}], "8"], 
              RowBox[{
               RowBox[{"Coef", "\[LeftDoubleBracket]", 
                RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], 
               FractionBox[
                SuperscriptBox["u", "k"], 
                RowBox[{"k", "!"}]]}]}], "/.", 
             RowBox[{"\[Rho]", "\[Rule]", 
              RowBox[{"1", "-", 
               SubscriptBox["n", "1"]}]}]}], "/.", 
            RowBox[{"u", "\[Rule]", 
             FractionBox["U", 
              RowBox[{"2", "t"}]]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"U", ",", 
             RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox["n", "1"], ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.7715652819263077`*^9, 3.771565286614294*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"4ecc5377-a364-4161-8180-3b280a2dd9f1"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV2Hk8VF0YB3BLyRYRiZRKm0K0aFM/oRRJlvYiUtKikpRKUmhDu2QLSdkJ
[encoded data, 13969 characters]
Bg==
          "]], 
         LineBox[{{1.995231006039287, 0.09754300020037165}, {
          1.9959157171960376`, 0.09028562328817241}, {1.9965678230596096`, 
          0.08277883160432316}, {1.9972199289231818`, 0.07451362738473755}, {
          1.9979784310066, 0.06355310697569093}, {1.9986957474565292`, 
          0.05105672074749609}, {1.9993135319588609`, 
          0.037046754363624645`}, {1.9999656378224329`, 
          0.008289939594768888}}]},
        Annotation[#, "Charting`Private`Tag$5460#1"]& ]}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJw1m2k4lO/bxy0VIUWlSFRKkpZfiZR8hbInW9JCSYqKkhQlESKFSlKJog1l
[encoded data, 20679 characters]
PbcAK5EYobKpSLyS5J9YWFjA//++//8AH4A9Vg==
          "]]},
        Annotation[#, "Charting`Private`Tag$5524#1"]& ]}, {}}}, InsetBox[
     TemplateBox[{"\"U=0.2\"","\"U=1\"","\"U=2\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                  Selectable -> False], ",", 
                 RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[
     Rational[1, 3], 0.3333333333333333],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\"", TraditionalForm], 
      None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\)\"", TraditionalForm], 
      None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1.5, 
         FormBox[
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   ImageSize->{861.7031250000001, Automatic},
   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->{{0, 2}, {0., 0.8138650363163404}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV2Hk8VF0YB3BLyRYRiZRKm0K0aFM/oRRJlvYiUtKikpRKUmhDu2QLSdkJ
[encoded data, 13969 characters]
Bg==
            "]], 
           
           Line[{{1.995231006039287, 0.09754300020037165}, {
            1.9959157171960376`, 0.09028562328817241}, {1.9965678230596096`, 
            0.08277883160432316}, {1.9972199289231818`, 
            0.07451362738473755}, {1.9979784310066, 0.06355310697569093}, {
            1.9986957474565292`, 0.05105672074749609}, {1.9993135319588609`, 
            0.037046754363624645`}, {1.9999656378224329`, 
            0.008289939594768888}}]}, 
          "Charting`Private`Tag$5460#1"]}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJw1m2k4lO/bxy0VIUWlSFRKkpZfiZR8hbInW9JCSYqKkhQlESKFSlKJog1l
[encoded data, 20679 characters]
PbcAK5EYobKpSLyS5J9YWFjA//++//8AH4A9Vg==
            "]]}, 
          "Charting`Private`Tag$5524#1"]}}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> Rational[1, 3], 
      Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
       BaseStyle -> 16, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"\!\(\*SubscriptBox[\(E\), \(c\)]\)", None}, {
        "\!\(\*SubscriptBox[\(n\), \(1\)]\)", None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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 -> {{0, 2}, {0., 0.8138650363163404}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {"U=0.2", "U=1", "U=2"}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Bottom}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.7715652897268887`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"e364ac39-b73b-4c0c-89e8-e5e310c1890f"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Can I find the exact functional in closed form?", "Title",
 CellChangeTimes->{{3.769749535101581*^9, 3.7697495391650763`*^9}, {
  3.7773484899868383`*^9, 
  3.777348498674739*^9}},ExpressionUUID->"54454a89-2c8d-4ddf-98d9-\
8412b172378c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Epsilon]", "\[Equal]", 
   FractionBox["\[CapitalEpsilon]", 
    RowBox[{"2", "t"}]]}], " ", ";", "\t", 
  RowBox[{"u", "\[Equal]", 
   FractionBox["U", 
    RowBox[{"2", "t"}]]}], ";", "\t", 
  RowBox[{"\[Nu]", "\[Equal]", 
   FractionBox["\[CapitalDelta]v", 
    RowBox[{"2", "t"}]]}]}]], "Input",
 CellChangeTimes->{{3.769749264184759*^9, 3.7697492744393377`*^9}, {
  3.769749388966833*^9, 3.76974942347818*^9}, {3.769749480470373*^9, 
  3.76974953147082*^9}, {3.76974991852349*^9, 
  3.769749927723466*^9}},ExpressionUUID->"0780168d-693c-47d0-bff4-\
dd0bd1ff0c0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["u", "\[Epsilon]"]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "1"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "+", "\[Nu]"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["\[Beta]", "2"], "\[Equal]", 
   RowBox[{"c", 
    RowBox[{"(", 
     RowBox[{"u", "-", "\[Epsilon]", "-", "\[Nu]"}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.769856907491734*^9, 
  3.769856957206769*^9}},ExpressionUUID->"957faca2-2398-47c9-bb03-\
6053968fb684"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Rho]", "\[Equal]", 
   FractionBox[
    RowBox[{"Abs", "[", "\[CapitalDelta]n", "]"}], "2"]}], ";", "\t", 
  RowBox[{"\[CapitalDelta]n", "\[Equal]", 
   RowBox[{"4", 
    SuperscriptBox["c", "2"], "\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Epsilon]", "-", "u"}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SuperscriptBox["c", 
    RowBox[{"-", "2"}]], "\[Equal]", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Nu]", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "-", "u"}], ")"}], "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]]}], ")"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7697492821883307`*^9, 3.76974929981513*^9}, {
  3.769749592277866*^9, 3.769749608405692*^9}, {3.769842070462558*^9, 
  3.769842073438758*^9}},ExpressionUUID->"12fd4d04-5d0a-40d8-b533-\
dbe466c2101b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[LeftBracketingBar]", "\[Psi]"}], 
            "\[RightAngleBracket]"}], "\[Equal]", 
           RowBox[{"\[Alpha]", 
            RowBox[{"(", 
             RowBox[{"\[LeftBracketingBar]", "12"}]}]}]}], 
          "\[RightAngleBracket]"}], "+", 
         RowBox[{"\[LeftBracketingBar]", "21"}]}], "\[RightAngleBracket]"}], 
       ")"}], "+", 
      RowBox[{
       SubscriptBox["\[Beta]", "1"], 
       RowBox[{"\[LeftBracketingBar]", "11"}]}]}], "\[RightAngleBracket]"}], 
    "+", 
    RowBox[{
     SubscriptBox["\[Beta]", "2"], 
     RowBox[{"\[LeftBracketingBar]", "22"}]}]}], "\[RightAngleBracket]"}], 
  ";", "\t", 
  RowBox[{
   RowBox[{
    RowBox[{"2", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
    SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}]], "Input",
 CellChangeTimes->{{3.769841802182992*^9, 3.769841846847291*^9}, {
  3.7698420472232018`*^9, 
  3.76984206210172*^9}},ExpressionUUID->"491932cf-5df4-4c5d-90d1-\
e7e7984e47c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], "+", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["V", "ee"], "\[Equal]", 
   RowBox[{"U", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{"V", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "\[CapitalDelta]v"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
      SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
  RowBox[{"\[CapitalEpsilon]", "\[Equal]", 
   RowBox[{"T", "+", 
    SubscriptBox["V", "ee"], "+", "V"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.76984184954419*^9, 3.7698419288661757`*^9}, {
  3.769842024390863*^9, 
  3.7698420690548353`*^9}},ExpressionUUID->"2a6911eb-a8ba-4552-98c1-\
548452180c06"],

Cell[BoxData[
 RowBox[{"\[CapitalEpsilon]", "\[Equal]", 
  RowBox[{
   UnderscriptBox["Min", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}]], 
   RowBox[{"\[CapitalEpsilon]", "[", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.769842098165579*^9, 3.7698421461091003`*^9}, {
  3.7698424077719917`*^9, 
  3.769842410283205*^9}},ExpressionUUID->"98f5b336-8037-48d3-8869-\
17ecdcb7022e"],

Cell[BoxData[
 FrameBox[
  RowBox[{
   RowBox[{"\[CapitalDelta]n", "\[Equal]", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
       SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ";", "\t", 
   RowBox[{
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
     SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}]]], "Input",\

 CellChangeTimes->{{3.7698422009081163`*^9, 3.769842212245055*^9}, {
  3.769842404899975*^9, 
  3.769842420122011*^9}},ExpressionUUID->"56eb8e62-587a-4a96-a2e8-\
8921cb6868c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "\[CapitalDelta]n", "]"}], "=", 
  RowBox[{
   UnderscriptBox["Min", 
    RowBox[{"\[Alpha]", ",", 
     SubscriptBox["\[Beta]", "1"], ",", 
     SubscriptBox["\[Beta]", "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"T", "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "1"], ",", 
       SubscriptBox["\[Beta]", "2"]}], "]"}], "+", 
     RowBox[{
      SubscriptBox["V", "ee"], "[", 
      RowBox[{"\[Alpha]", ",", 
       SubscriptBox["\[Beta]", "1"], ",", 
       SubscriptBox["\[Beta]", "2"]}], "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.769842225590481*^9, 
  3.769842252260337*^9}},ExpressionUUID->"0cccfbcc-0c89-44cb-9fb6-\
0fa02b5de69e"],

Cell[CellGroupData[{

Cell["Hopping term parametrization", "Section",
 CellChangeTimes->{{3.770375099639124*^9, 3.770375104330186*^9}, {
  3.77037514477409*^9, 
  3.770375146600873*^9}},ExpressionUUID->"c6c951b2-6dbf-4587-bcd8-\
d50a1c2fcf35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "g_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", "g"}], "+", " ", 
   RowBox[{"2", "u", " ", "t", 
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["g", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["g", "2"], "-", 
           SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
      RowBox[{"2", 
       SuperscriptBox["\[Rho]", "2"]}]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["g", "2"], "+", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}]}]], "Input",
 CellChangeTimes->{{3.769749802523831*^9, 3.7697498795468903`*^9}, {
  3.769749929219894*^9, 3.769749931162633*^9}, {3.7697500459946003`*^9, 
  3.769750046578343*^9}, {3.770374350851*^9, 3.7703743540347137`*^9}},
 CellLabel->
  "In[1143]:=",ExpressionUUID->"21d9de25-b0db-4f50-86c5-9d5c83945bbd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"min", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Minimize", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "g", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "\[Rule]", "1"}], ",", 
            RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "g"}], "]"}], "//",
        "N"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"g", "/.", 
        RowBox[{
        "res", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", 
       
       RowBox[{
        RowBox[{"res", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
         "//", "N"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
      RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.770355348192564*^9, 3.770355411408017*^9}, {
  3.7703554904566393`*^9, 3.7703555593208637`*^9}, {3.770355600629633*^9, 
  3.770355614226286*^9}, {3.770355800639642*^9, 3.7703558217746773`*^9}, {
  3.770355976864441*^9, 3.7703559849572887`*^9}, {3.770371708970953*^9, 
  3.770371709183662*^9}, {3.770371761399919*^9, 3.770371761641489*^9}, {
  3.770374520045517*^9, 3.770374528003614*^9}},
 CellLabel->
  "In[1144]:=",ExpressionUUID->"65d055cd-99ee-4f1c-b46a-11f49be48b85"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.8944271909999159`", ",", 
     RowBox[{"-", "1.2360679774997898`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8944818727546856`", ",", 
     RowBox[{"-", "1.2348975352786735`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8946388354813966`", ",", 
     RowBox[{"-", "1.2313907127654453`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8948774141157846`", ",", 
     RowBox[{"-", "1.2255607733578913`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8951650023277479`", ",", 
     RowBox[{"-", "1.217429024142825`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8954594662121281`", ",", 
     RowBox[{"-", "1.2070237210137134`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8957119477447252`", ",", 
     RowBox[{"-", "1.194378717270685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8958696772685011`", ",", 
     RowBox[{"-", "1.1795319889365852`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8958784934950795`", ",", 
     RowBox[{"-", "1.1625241577955332`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8956848859924613`", ",", 
     RowBox[{"-", "1.1433971060343395`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8952374901616379`", ",", 
     RowBox[{"-", "1.1221927434898864`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8944880535829751`", ",", 
     RowBox[{"-", "1.098951957352983`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8933919469574254`", ",", 
     RowBox[{"-", "1.0737137491800688`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8919083160804028`", ",", 
     RowBox[{"-", "1.0465145467217705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8899999722250839`", ",", 
     RowBox[{"-", "1.017387667870317`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8876331064047389`", ",", 
     RowBox[{"-", "0.9863629094273495`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.88477689569542`", ",", 
     RowBox[{"-", "0.953466232633754`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8814030519695466`", ",", 
     RowBox[{"-", "0.9187195189197243`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8774853475815296`", ",", 
     RowBox[{"-", "0.8821403719333465`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.872999139735713`", ",", 
     RowBox[{"-", "0.8437419447741636`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8679209054963746`", ",", 
     RowBox[{"-", "0.8035327739862583`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.862227792253806`", ",", 
     RowBox[{"-", "0.7615166039631148`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8558971833641151`", ",", 
     RowBox[{"-", "0.71769218682915`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8489062750560903`", ",", 
     RowBox[{"-", "0.6720530435058617`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8412316580344558`", ",", 
     RowBox[{"-", "0.6245871714810035`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8328488950734688`", ",", 
     RowBox[{"-", "0.5752766836983292`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8237320839234629`", ",", 
     RowBox[{"-", "0.524097360847956`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8138533927213983`", ",", 
     RowBox[{"-", "0.4710180959603678`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8031825524864427`", ",", 
     RowBox[{"-", "0.4160002052715591`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7916862878388877`", ",", 
     RowBox[{"-", "0.35899657234438803`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7793276623619421`", ",", 
     RowBox[{"-", "0.299950582662351`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7660653084243888`", ",", 
     RowBox[{"-", "0.23879479223767908`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7518525019168162`", ",", 
     RowBox[{"-", "0.17544925449008486`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7366360288934853`", ",", 
     RowBox[{"-", "0.10981940211989485`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7203547714809507`", ",", 
     RowBox[{"-", "0.04179334077474352`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7029379112915959`", ",", "0.02876164766656246`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.684302604502044`", ",", "0.10200368336033264`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6643509144735504`", ",", "0.17812237705420578`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.642965679133366`", ",", "0.2573470762799487`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6200048119883008`", ",", "0.3399582749852519`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5952932322138834`", ",", "0.42630380180815924`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.5686110809543881`", ",", "0.5168224827025729`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5396758775496078`", ",", "0.6120799867232916`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5081142847445731`", ",", "0.7128255437374857`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4734149311671227`", ",", "0.820086683549543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.434843907035091`", ",", "0.9353388476168183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.39127876246106436`", ",", "1.0608383757060977`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.3408372870616952`", ",", "1.2003666550668077`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.27986487687909506`", ",", "1.3612586747878739`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.19897004169248153`", ",", "1.562339566468089`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "2.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770355379536401*^9, 3.770355418067244*^9}, 
   3.7703555334015083`*^9, 3.7703555668294363`*^9, 3.770355610818757*^9, 
   3.770355647029393*^9, 3.7703558265265503`*^9, 3.770355989934174*^9, 
   3.770371716157469*^9, 3.7703717690130787`*^9, {3.7703745238063602`*^9, 
   3.770374533112028*^9}, 3.770384311032898*^9},
 CellLabel->
  "Out[1144]=",ExpressionUUID->"2159faae-7d81-471c-8fe0-de79ff306d10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Levy", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Minimize", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "g", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "\[Rule]", "1"}], ",", 
            RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "g"}], "]"}], "//",
        "N"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", 
       RowBox[{
       "res", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], 
      "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
      RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.770384233845168*^9, 3.7703842764501762`*^9}, {
  3.7703843091844807`*^9, 3.770384318646904*^9}, {3.7703844161286583`*^9, 
  3.7703844164968843`*^9}},
 CellLabel->
  "In[1146]:=",ExpressionUUID->"9d038f75-ded6-4da4-b473-a9988db83c39"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1.2360679774997898`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "50"], ",", 
     RowBox[{"-", "1.2348975352786735`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "25"], ",", 
     RowBox[{"-", "1.2313907127654453`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "50"], ",", 
     RowBox[{"-", "1.2255607733578913`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "25"], ",", 
     RowBox[{"-", "1.217429024142825`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "10"], ",", 
     RowBox[{"-", "1.2070237210137134`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "25"], ",", 
     RowBox[{"-", "1.194378717270685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["7", "50"], ",", 
     RowBox[{"-", "1.1795319889365852`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["4", "25"], ",", 
     RowBox[{"-", "1.1625241577955332`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "50"], ",", 
     RowBox[{"-", "1.1433971060343395`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "5"], ",", 
     RowBox[{"-", "1.1221927434898864`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["11", "50"], ",", 
     RowBox[{"-", "1.098951957352983`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["6", "25"], ",", 
     RowBox[{"-", "1.0737137491800688`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["13", "50"], ",", 
     RowBox[{"-", "1.0465145467217705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["7", "25"], ",", 
     RowBox[{"-", "1.017387667870317`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "10"], ",", 
     RowBox[{"-", "0.9863629094273495`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["8", "25"], ",", 
     RowBox[{"-", "0.953466232633754`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["17", "50"], ",", 
     RowBox[{"-", "0.9187195189197243`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "25"], ",", 
     RowBox[{"-", "0.8821403719333465`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "50"], ",", 
     RowBox[{"-", "0.8437419447741636`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "5"], ",", 
     RowBox[{"-", "0.8035327739862583`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["21", "50"], ",", 
     RowBox[{"-", "0.7615166039631148`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["11", "25"], ",", 
     RowBox[{"-", "0.71769218682915`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["23", "50"], ",", 
     RowBox[{"-", "0.6720530435058617`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["12", "25"], ",", 
     RowBox[{"-", "0.6245871714810035`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", 
     RowBox[{"-", "0.5752766836983292`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["13", "25"], ",", 
     RowBox[{"-", "0.524097360847956`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["27", "50"], ",", 
     RowBox[{"-", "0.4710180959603678`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["14", "25"], ",", 
     RowBox[{"-", "0.4160002052715591`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["29", "50"], ",", 
     RowBox[{"-", "0.35899657234438803`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["3", "5"], ",", 
     RowBox[{"-", "0.299950582662351`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["31", "50"], ",", 
     RowBox[{"-", "0.23879479223767908`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["16", "25"], ",", 
     RowBox[{"-", "0.17544925449008486`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["33", "50"], ",", 
     RowBox[{"-", "0.10981940211989485`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["17", "25"], ",", 
     RowBox[{"-", "0.04179334077474352`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["7", "10"], ",", "0.02876164766656246`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["18", "25"], ",", "0.10200368336033264`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["37", "50"], ",", "0.17812237705420578`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "25"], ",", "0.2573470762799487`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["39", "50"], ",", "0.3399582749852519`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["4", "5"], ",", "0.42630380180815924`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["41", "50"], ",", "0.5168224827025729`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["21", "25"], ",", "0.6120799867232916`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["43", "50"], ",", "0.7128255437374857`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["22", "25"], ",", "0.820086683549543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "10"], ",", "0.9353388476168183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["23", "25"], ",", "1.0608383757060977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["47", "50"], ",", "1.2003666550668077`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["24", "25"], ",", "1.3612586747878739`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["49", "50"], ",", "1.562339566468089`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.770384279452022*^9, 3.770384323272213*^9, 
  3.770384421182428*^9},
 CellLabel->
  "Out[1146]=",ExpressionUUID->"a1472abb-da2d-4e4e-acab-444dd5b34f17"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "=", "1"}], ",", 
         RowBox[{"u", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "t", " ", "g"}], "+", " ", 
             RowBox[{"2", "u", " ", "t", 
              FractionBox[
               RowBox[{
                RowBox[{
                 SuperscriptBox["g", "2"], 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "-", 
                    SuperscriptBox["g", "2"], "-", 
                    SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
                RowBox[{"2", 
                 SuperscriptBox["\[Rho]", "2"]}]}], 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["g", "2"], "+", 
                  SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}]}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"\[Rho]", ",", 
              RowBox[{"-", "1"}], ",", "1", ",", 
              RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"g", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "\[IndentingNewLine]", 
        "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"min", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Medium"}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"Levy", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Medium"}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Root", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", "432"}], " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["\[Rho]", "4"]}], "+", 
           RowBox[{"80", " ", 
            SuperscriptBox["\[Rho]", "6"]}], "-", 
           RowBox[{"768", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"240", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"144", " ", 
               SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
            SuperscriptBox["#1", "2"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"8", "-", 
              RowBox[{"72", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            SuperscriptBox["#1", "3"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["#1", "4"]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["#1", "5"]}], "+", 
           SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.770128916968545*^9, 3.7701291441144123`*^9}, {
   3.7701291879812527`*^9, 3.770129197171255*^9}, {3.77012927118311*^9, 
   3.770129312093254*^9}, {3.7701296966049833`*^9, 3.77012983518848*^9}, {
   3.77012986997206*^9, 3.770129875589943*^9}, {3.77012998308843*^9, 
   3.7701300153006697`*^9}, {3.770130045591978*^9, 3.770130067574484*^9}, {
   3.770130126663423*^9, 3.770130157205965*^9}, {3.7701301997089043`*^9, 
   3.770130256375443*^9}, {3.77031451710737*^9, 3.770314551909052*^9}, {
   3.770314645755912*^9, 3.7703146533792467`*^9}, {3.77035582730647*^9, 
   3.770355870598301*^9}, {3.770356151684104*^9, 3.770356182155067*^9}, {
   3.770363505798993*^9, 3.770363507410572*^9}, {3.770363723558613*^9, 
   3.770363731317477*^9}, {3.770363862588332*^9, 3.7703638927495937`*^9}, {
   3.7703639926987057`*^9, 3.770363995031155*^9}, {3.770364075657816*^9, 
   3.770364102435101*^9}, {3.7703641431133432`*^9, 3.770364143750718*^9}, {
   3.770364184140699*^9, 3.770364190019437*^9}, {3.7703642231344748`*^9, 
   3.770364227624208*^9}, {3.770364297384602*^9, 3.7703643012351427`*^9}, {
   3.770364401201964*^9, 3.770364405830385*^9}, {3.7703644597733927`*^9, 
   3.7703644614483843`*^9}, {3.7703645824091043`*^9, 3.770364584885293*^9}, 
   3.770365204234007*^9, 3.770367474937028*^9, {3.770367591327022*^9, 
   3.770367637414587*^9}, {3.7703676918687763`*^9, 3.77036772902442*^9}, {
   3.770367846890003*^9, 3.770367899601215*^9}, {3.770368163647591*^9, 
   3.770368184417494*^9}, {3.770368217841505*^9, 3.7703682610851994`*^9}, {
   3.770368347455324*^9, 3.770368349850045*^9}, 3.770368526341693*^9, {
   3.7703685800353622`*^9, 3.770368595521796*^9}, {3.77036883046472*^9, 
   3.770368854950062*^9}, {3.770369258656804*^9, 3.770369273609886*^9}, {
   3.770369582680231*^9, 3.7703695863932323`*^9}, {3.7703696266925907`*^9, 
   3.770369627528777*^9}, {3.770369708474483*^9, 3.770369734789874*^9}, {
   3.770370057006731*^9, 3.7703700914233227`*^9}, 3.770370128097443*^9, {
   3.7703705150352793`*^9, 3.770370541380187*^9}, {3.770371713596178*^9, 
   3.770371764884719*^9}, {3.7703720704098186`*^9, 3.77037207098066*^9}, {
   3.77037242932125*^9, 3.77037243279978*^9}, {3.7703724780599127`*^9, 
   3.770372478543988*^9}, {3.770372524229458*^9, 3.770372554308427*^9}, {
   3.770372646777398*^9, 3.7703726508493223`*^9}, {3.770372819832122*^9, 
   3.7703728241592703`*^9}, {3.770372876324524*^9, 3.770372883759719*^9}, {
   3.770374538574603*^9, 3.770374605919489*^9}, {3.770374635984799*^9, 
   3.770374738871607*^9}, {3.7703748499501762`*^9, 3.7703750020664463`*^9}, {
   3.770384289414452*^9, 3.7703842916864233`*^9}, {3.770384530858617*^9, 
   3.770384531284012*^9}, 3.770384565491939*^9},
 CellLabel->
  "In[1150]:=",ExpressionUUID->"b720e1ad-c893-4e83-b33d-2ff0521eee60"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], 
       LineBox[{{2.040816326530612*^-8, 1.999999959183673}, {
        0.000015355283783083483`, 1.9999692891966492`}}]},
      Annotation[#, "Charting`Private`Tag$2800523#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAASmXo0cDpVT6THwv1////PwRDGnDf
GTQ/S/9Zn3z9/z8zn5icsxlEP+pqOwD5+v8/S83Xsp0ZVD9wPrbl8PX/P1dk
972SGWQ/fgaRP93r/z/dL4dDjRl0P4cZLi+o1/8/oBVPhooZhD9KQDYDB6//
P4EIsyeJGZQ/Svd/0ehc/z9YWaGv8PGkP1KjfWrzpv4/C/+BXEcerz95MdQN
TPj9PyVR7ujDi7Q/hr4CXr5I/T93zjk/mPS5P45CCHqshfw/F7QR3gEBvz9H
V7ylhMv7P7biQ8zPPMI/jDqHA6f9+j/Cap0bWezEP35IzK3LL/o/9SY9D61t
xz9IJ/JB42z5PwL5qxAbJco/+iTdp/6W+D82/2C2U67MP3Lc2TSezfc/zIQ0
zsYqzz+eGJAsdAf3Px+Q6/mp7tA/BOE+7/Yw9j/r99/e1TDSPwh65lWMa/U/
pOq7yg6O0z/pGv0IRqD0P26XTyNqk9M/SADtOWid9D83RON7xZjTP0YuggqP
mvQ/yp0KLXyj0z8lGLQM7JT0P/FQWY/puNM/PD2HxPGJ9D8+t/ZTxOPTP3sg
nhoodvQ/CGSKrB/p0z8Rxqb7HXT0P9IQHgV77tM/9cWZHU5y9D+cvbFd1vPT
P/yg5bfgcPQ/ZWpFtjH50z8SG1EQX3D0P85Aj2Lf+9M/MeaLVEhy9D8HTgmJ

        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#2"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzn1Qy3EABvCWdynJ64atiMo5b6XjznpKUcelE/NyKqG85G1I4jhkV3rR
VXMaQiVvV9ahFpcxWnGTWjXC97Qwpeb3a7OtWlM/88dzz33+ee7x2Hk4Mt7R
wcFhsT3/e038ryZFlyBAzHOyMAyD4cEcoZbtB87z8PzTgwx8b0kKnrBDoO8e
294/wGDt+9bHN9gboYi2xBksDDbH9cnz2HFw5easIHoGXxemBV9iJ0K+Z+ns
wlYGhZMjUjPYIrztUrZ0SBmcH/3EK519GXMTwzl7oxhs2VpUbjCWoMDwRa0s
GYITcz4qlFuO1vRjBadNg5iznv5Vk1kB4W1uUkzgIE40LIfE/AxqXvlNQfJf
TK2Y0MZivQR3f8NL0VMbZN+D6xtXvEahb5h3/I8BvE64MX3rbyWULGlUkPMA
LHP54x8efANFcV1VRpAVjtZS1+lzVLhcKSpqju2HPxMr2yCtx5CwU9Kb2Yd6
kV9D3bxGXDBO8DM+7QUvR299QKuhFm+/wmq2QN+nbfuwqBluAcnSLVYzSrqr
VS7ZLeDf9ze7uZgxOmkyq9PWArd8p7KVShNcZt7r0ek0kB1wKH3kZULWvsrd
hZ4fofOpoZIj/6A3sFS392wrftYGZeQfMiJxibJiSs0nSMVvhofdMkArVWY2
eXxBWmqI4VxeD2wJmus+pwjEm/P4Gk8aG/2jcxecJfCWS2ZcdadRxupI9RUR
VByvtAhn0IiR9B3hZxOMpNtPbJ9Eo2rXuT0rxQQzhR35J11puC4cEx0qIbgr
oGQPx9F4VcsJW19MoL14fN2hETQ4ubf5m+4R1O8M8mE50jgaNd93WxnBldAm
5+ohCu+8Kr1jHxGMitRNLbJR8DTxufEygkUu00qe9VM486JuYkI1wYXSb6px
vRQ+pkeMOawgMASqeXdMFBYIPg0dqyVQxczqzjFSSHPfYU5WEXhEFIfoeii0
67u6zjQSbApIcpfTFJZVHdWmaOw+yZevtTs3xaZJ+0zAe2+Vd9rdHS5SZbUR
rF6VslRg3wtmOytyfxA8CJgnO2D/I0n4Wi3+SbAuO9F8bRiNf/PKoCc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#3"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk3k01Wkcxt2mxYySCF1qRFNjC0mhMR7cjBIzJZKyJa6lhDI6NGgx1tKI
meGQsnSbRrlDVyIiSxnHlpQR3ftm/K41S2Urtzvv/PGe93zP+Z7n+TzPe15N
nxAnv0UyMjJO9Px/2/sNPa0ddrG8oiE3LZVKsZijFipim8AtTpD6k0SKrdcy
c+6yd0K+gFc990GKPa3dpVfZztCP9uudmJbC1Xe2+grbF5Vazio9o1K8Mkzg
XGKHw0PdI/n3bimuK/8Qn8yOQ5RSTlhDsRTnZO9+ncTOwPonvELhYSkOuuXx
J6cKkeg4sjks/xPkpOfc7b7kI/6OsNxzXIKN+8aH6lMEiDDhl0ebSnC6zRyZ
7yuwXjv/ACdoAaqCVUIWqwb5JalrMws/4l4/p6Xdog6ZZQEPVzd9QF3QVXW3
sQbEtA0bFA/PY3rTtyvvBD/BYqHqkkDleSyaL1JQ39iMh2dfzyTozmG71Pve
/uIWhBctlPjumUVLnEnbY912DJX0mF0JnoHGL6Pzt8Y7ENBqU8qOmsborEj4
3KgTxMN2ZjLjPQpHHjTLpz6D719Zgxuy30E2Qpk1+PEZ4mI6fbwc3kF+3c2J
gYEuNKZE7HO48RYXA8u41796AU915VbL2inMWBUNBMR2w5Y1dfl90yTCjRsE
KvX/oNbGoNG6aQKi4oaUp5ovkbT5bPpy0Rt8DOrK1onqRYhcsOkx2TEcVtlR
mcv0Qj7wkUJ65Cj0rJd94j7oQ6Cqyg5fjxHY5Wv6l6gK0a4Rdl4mbwin13lp
vXYXgdN3OTd57SB89hod6DsigoPVtlyhyiC+v8BK7uaKMLZp3GrbqkFsGi6Y
ag0VwZgsuzSyZBBdgqHayjgRdHd/pxIxIYaRw0mvjNt0f2ma3pp6MYaifs6x
WxDhRGyfpOW4GCMH9ALyZAi+2PWvdoK/GN6TSos0PiOY1NW3s/URY88GZpua
LEH44mPZra5iaCUlXFVQJNAyXBGswBGjw7nluGQjwcU3cvdPqImhP+Yi1+1I
wDNfpmPcyuC+s0NN8l6C8x2uwUZNDDjVNqcs9xM4+6XBtJ7BoVTD3hsHCbSF
erFeFQySjD4vCj9K9bv2l2vyGKzOknpqcymftxbvWB6D66wZxb4AgrhmE+/a
HKrf2R/FOUGwnjd7IyWdgTi8yl4xkmCEX98hOMfg5KvST41nCPSbh5y9oxlI
bG+VRsYQCC+XGahFUn3V39ReX6CzbsiuB6GUryJkhJ9K/RRc0h97M2jT5OYe
TaN5VMbl5twpb7K7k2oGwUsbBbalG9U/vLsyJosggCUTv9yJ8km0kh0LCaps
W0jPTgb6XLYl6yZBm6593QtrBuVtK98KbhEURp/3m7ZkYGO6lBdwm4AbFBVp
ZkH9ri24reUTzBmWKhSYUz/Zdys6Sgi+HLxzz8yU5gsdfnRBQLA9g0mRmFD/
HtGPpuW0D//soBljms/6hc5oBcEf2s5rdLYwSPyz5VVuFcHbcn5SjiHNq1Sf
5lRD+4+qtnYzoLxnKmyX1hEs92rqDdxMeQf48xUNBL6/OvX06tN+HXj0exIE
NQr6a+nMKcs5otlM/R8XPDOi+23r0pWft9D3+mbEwZHqHYpP+juxncCTsQvf
ZUR5x2OjLToJEiP6LU5tZRDmGrFlsosgt9xF6YgZg4Wa40xBNwFJ8vX3sKK8
2kezXF/SvjoP9djvZVDBnS/Z3UugaB5TFe7F4D9JYZ2O
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#4"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3s01fkWJ9yOFPKIQxiEyqFWyVQeH68ScpPHIERKoge3zJSrx9G4zZRn
MsbyygkxGUQxyRglIxmJUqrveTi/n+l6h7zTOfd3/9hrr8/a67P357PX3obh
Md4Ry2RkZI4x8f/sHjHY82jIzz7TQGlGKpVC3lknVsS2wpn+j0nnv0ix9WZO
/j22C+40Z2XPL0rh8byvtoDtC/9DBvg4I4X/kbmmTPYR5HIcSt+MSCHY9INz
KjsOfRmb2lL7pCjS3HflGjsJEqNH4QVVUiSy7pldZWehIcH+ilOQFAGBvOqJ
yRIUzrx1eH5TAiVpYrCrfjVsQp5vyxz8ApP944NPku/jWv61ktMWX3C2awdy
phvQdvllRviBJWjdXy2UlW1GlvetnyzSPqOecu58YduClvIz2879soiW6ALd
wNFWtHevy/3yeAEzpnYqlSefwrr3XXT0wDyWLVSo6pp04JRBHps3PgdraVi9
T1UnuF26eUXyc+hMsupq2/gCgu0pyT/rzsIgY2Thl/Fu2K9oTj+qO4OROZHw
9eaXuKMW7zS0YRolw40dymmvcHBcbsrN6BNY32nK/vfzK0ycaPdhvZiCsl7Z
x4GBXiwkLP8Qoz+FlKi6o0Xr3mBXVITMkPkkZh0qBo5d6sPgSOD2iyYTiNvS
en/Nk7ew7Bv0Eh0eh6iqNbnH8D3iJ1N5VMAoPkf35m34N8ETQWHq7oPDCFqz
82Hh3wQxDdqpgpYhmDsulxxt5MO8KHCkKnUQrrcMI2u0hFDau2+dGu8DzuqF
GomDRagLinc1owbAGfVT6vPsh07Cktt+GxrcPydCIkk/wnne1uS1GOoqE6zW
xX4c4AXq3LkihnxzXrVxvhgdW5rEwUr9eG/rskdUKIZl8cbv7RT6Uf1wtD+X
J0Z5qfsOJ4kIB+rt1NTKxAhz17tF/S1CTaUoTqZWDA6Mxk7UiXAw33in4KkY
reVnMu/5ifAgvqI1+5MYvRqXOefyhEib8wnxnhXj7pT0J40MIQ5/uzSzakGM
+yeSFBqShFD+l6fZfyRicMeGvHROCRFx7OPVM4oUHqn6cBwdhVDz37rPy4DC
9qmR/dZDAhy3anyn6EGhU9Iul+UgwKPu178+8KRwrOdu78/WAmienLgU6UUh
K93lmzKOAM2lJqZ/+lFYWWFuOqwtgLpWxmluGIV1y4Th8lN8NC4cUZr7loLV
+r/GGm/zoZp9SVh6jsKPEb+N3ijgI2JLbo1vAoV2BVP3hCw+VI6/8K/lUrDd
qecff5mPw/wdJSeTKXBdDPk2oXwoNSvbDRQx+hUq1m9ay0dY0AbVG8UUVJuy
z63X4KNuzpl2vM3MOxtW+fVKPkI3x1+9WUFh2uCiVu4SwT0e/fpAPYNrN/Zw
hQQse0m5YgPD13dbZtNHEPJe+/yDRgr5up7XVbsJlqv/02jNY2YfyVNOq1sI
gpIenOr5i8JSSo5jUhnB3a9eOXK7KOxJd46y4hEoNI1pbOqhEJvoFsXKI6ie
MWpMeUMhQKYzxzCdQD7TLs3mHeOn3pIfdZUg0DLg0DChEJypZ8L/nkAuMnX5
HjGF32dvu++OJwiQK38/S1MoT97u7hRHUHmzpbL0A4X5Wm5hbAyB/9s5H7lR
Zp9jmiWnjhL8GqdmVjtOoahp2MAlnEB2tcVi2CSFtWPJ2f4HCSrcwov+mKXA
iq654OpPYMUxtMcChb0VZcmhvgR/KPeT5s8UerUVt/2+n8B1sjDeQUJh0FYq
PbSPoPtViNZjGRolMZ5Lfp6M/vq1dY5yNGy535ECDwIqh3i3KNAIu8RTdnAn
OJ6QO+HEopEyLzvq7EYwHRKY9mQF80cG1sKaPQQXHLQ5LqtoFKko824w+B/G
fc9aVWjkfFOTMc3gDIXsyF1qNOK+Oq5GMXz2oK9CmwYN1R51oxPMvFsd6sW7
tWjsVVTTvM3o4VS+dHjKZuoe7KoyL4K69OtC17U0XCQPq9IYf/anvc6369OY
d1uxLTGQ4Kmvio6bIY3+hMy4mlACr6+7fntmTOPuqovU4UiCd+xUP3dTGud5
u00XYwnClzw+daynEZz8YRfrAsGIcMV1D3OmHzH+dDmFIO7xM8tOC8bfymrX
Hcw9SIp/7Ny7mcHFi+VpzQQ/XHGNfr6FRq+E8jCTEPjMTCRabGX4MW0bY/X5
+B9Zo0xT
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#5"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdkwk4lWkbx1UqIZEsR5Y0ZOjUlEylL/71yT62aVPZaiSakSUNWj40pYXU
GGUPpSlSyDKiRBhy3rNwcBQdy3nPQaQj2Z3OvPM91/Vcz/W//vf93L/nvq9H
/1jQj8cXysjIhFP739Ph+GBLzdB+y0Q9hQmpVApZK63gHpoZ6JKzkeclUmzJ
Sskooe3BzHyt//SsFI5M3rNM2j7cW9FxZXRCioO+Uy8Tab5QzljTxB2W4v13
V6xu0MJgMd/rdpEnRbaaS+x12iWUqxonBT2VIkauxOgaLQldjp5n4g5L4X4o
p1A8lgu6Yfu2soyvUJDGeNjqFmKXe15WU58Ehm6jg3VxpQieDmwq05cgnGWO
lC/PUd5tN/fedh4apSr8BQtewW7moCItbA7l/VYEe+drpDWc5E9ensXrk5mr
D43U47/yS8x0k2Ywsc5ixZPARjiYR6nJFExj4cxj5dWGzchfw5NO5U1hq9Sn
fO9TAuXKbGNRySSIS2asv03YOM6TXr9RPQG9W8MzeaMcrO28+ehO0RcMT/Xw
2ze14pYJbCeLx5H7oapZKYGLT74/GJDpnyH3q9qCgTkuEjV/rFfc8xlKOg8/
kWQbzp775knltTHEB5T5ZRt0gL526wvimhiTux6T/lE85L8xkt4bGkWYaX2p
el0nOJ/Vve0HRtDztD6uRf8d1icFVj6s/oC5k23pxme74K05kpj55yCOqO+o
vCvsguIv2tatCwaxfvfSr35V3Sgs9zoy/VwE23v6J4o1+OC5fZ9S9YREuI73
2j6PHgyFK4e6svtBH9mvwHPqhbytrELokj5EN4g9T3T1woNp6BA1x4fqCrFc
/Wwvun+7cjjaiQ/ZV+mF32T0QTF01vj82Dv8bFb1dpljP2q8pv/in+Phsf2x
7OrJfpBqIVPhbm0wo+tbYqYfSRN0lw02bahW6u16NdcPj467QtGONnC4nhq1
MgLsyi4g/Qza8MXzUEKdvAB2FUNNaVNcWIa6nm/SFaBTV8Wed5eLLf9fAjRl
Ga2k2XDBSbN0b7URYP4nxUK2uBUTw1rKojsCKL5ZpxuQ24KkzIHGjFQBek0e
Bd1IbcEWl9KovRkCiCtCDZ4ntCDkmdOnmhwBOEfNJ9dFtuBjRDQrvUAA14RL
Ek/nFggXi+LdXgvQVs3LspvloF2veNnLjwJsdz36MtWdg7CWC7WnxQLsHOi6
yHLmQPU3h0iTcQHcGy/sXm7NgZtIMJg8LUCw+QutvM0cMAvUm0IXkbjltvW0
pwIHDebnY7+lkahgJrrmxbBRttd2UdIeyn+/3lXlJAtXHSsua9uS8BcOWGUc
ZsHDyljugT2Jb7Xm43Y7srBwi8LycmcS0xdiC7rpLDivZKt3upPoXZ/81meM
iUHOARPtQCo/58SaZdFMVDU1FuQGkZDr/+QaFMpEQs327zaEkvCJFT2b8mXC
rEjLzDKcROeli2khDkzE3ORb+MSQSPGzoOtoMKHl7OeWe5uEeHPN/UUVBD5a
87j0FIr3durvAwUEaizsDpSlUXwPft86l0PAb4PJkb+zSLiWBR0ujydQojjq
O5hH3d9+c0W2L4FYWe+B4AISHK+QQMMjBA7PswNmnlI8V+fChW4EZEaKT8mX
UvxrEvy1dxH4gXEmgl5N4qpn+9s0PQJ6daLZ0hoSg98/tDTRJPC58uAFizoS
25/FPpFVIZCab37RuYni3bjb7sEiAr/cy5flNVPvydfYFCJhYFfa6iveTCpf
V5LzxxQDomuSuOBWqn67TsfQCAPPY04pzbSRCD79YrnhIAPxkT23YngkHtHX
NTYIGPAOcVWVf0fFF6pGcHoYMA2ovZ3YTSLbU11s383A4qOmmqt7SKy5yT+2
7S0Dne730+73/cu/MuxuBwMFrqt06CTFt3Wh9eU2BqLsLmeViij+krRLn1sZ
aPXy99g0RELm+scdYy0MGJxxpBUMU/1KEZREUTo8bmOH0SjlPyr6z5+Ubs5R
+eO+mPKrlGcDqXztii8ueuMkIrwTVPu4DASxeIrpE5Q/mtgiT9V/TVa+UZ8m
4W6zlDvVycCquczYxFkqvpFvW07x+6nEWClJSNjtL91xoI/qh5GvzHUpNU+n
+pEhEQOKlrYvFy8UQi7A1CH2IwNe+0zOxsgK4aM//j+rCQaKTi7fJlkiRIW1
U4XFVwYWxYjHI5YJIXY5Y3BHjsCBZG7RFwUhiiwuO4StIvDoSXlgsJIQMpEu
gqVrCczWpZqMKAsxuDH6dNxmAk7vzg+cUKW0ZaSKnRWBbLF3rkBNiODiAKX0
g9T8l1gd9dak6jl1s7+eIrBHZ51ul5YQnfz9XrTrBJK3LOs6oCNEis3Po+15
BD7YjyS36lH81bKZt9kEdvqw9zmvpXRc/lCyhEDCr89Umg2E6I36Oiy7nYm+
+NssayMh/BsSjp27Sv2X+xFxtcZCZDsqR5tqsFDvX3zWx4TSRRPO9YEs/APG
xtqg
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#6"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdlQk01Psbxpm6km6WsjSlKEWFsrXZntJCo/51SZaklCKixdZ2Q6ESNbfc
ji6zMJF9X7IkTIh0ibKUNGQmGXvJbu63/5zzO3Oe83ze532/3/P+zm/liXNW
pyhiYmL3yPPrn3aq523ZNxtTusqCUZFIhLk7l57/TDVAnG2Rx7UZEfRZUTE5
1F047lCmOz4pguWblmwG9RDGWG9T+kdFsHUZe/6A6oJT+xTtGoQifNp4a2cE
1QdXDSb/8mkRga1wIDSMGgxj3X1RW9NFCJLM0bhDjcSS28KyDHsR7OxjM4aG
n0D2yZ9HRFGzWCAKcjRfkQFVZyfNp20zWPPHQA/3bi5uKenVpyyegf+/2xD1
oxC051zll7rTUMqV6xAXf4F7frUjC2ymkN+1s67euAKyh99dbDwyiQp3xjL7
vpeQ7Tsm0350AqPqJjJpntUYjDpZcPPMOCgTKbLL1tRiyEE3zNV+DJtFx/Ot
0+swK7Y0N8rmJ+qCDf6tWl+PPC//b85Wo1ChCyeSBhpQ9LNjpdKmHxCOfe54
r9MItvlvqVJrv+NJb3Gt9L0mvCk7UGZPGYGkn4L416kmqHc/bePED0N6+dPB
7u53MJlY/mKGN4TwM3mn2aubkWk+UqifMIif21O63QJasFYxt4ru1A8fvZe5
itxWHCpuO6W9Q4jP6S/vvl35AZ4/hlPFpnsw5f4uet2Vj/iuwGtMeSXAEUXD
Iib/I8YlUzvuLhNAc8e82dPF7TCRW6ymwu2GedxK1yylDsRbiIfSYrrgv/zY
qk7Hz9jkt+ifVfE8aPXZLGjZz0PJIu1E51ufEFg5dNT1Iw/TOY8CYyw+YLHM
kOTLSR6ecVco0OltmPsiOkMtphPGiTdrPk6/h4dBcdt8yy7s6j0gPWTWiJS9
J9ilP7vQyjmZVh3xBvr//33BPH3/Mm/j1xgVLpUVPPqC28PRrpNnqpFnbT4n
clc3Mrt4160MyxFgEcLKFXTjoN7Vx1yJZ2h0cnPU+dYNtpzG7FVeAVb7WlJT
hd0Ymi2RsCwqQG2s3EPOUDd05JPuaHsVQH6KEfpgkvBHE5UkW/KRmJbveV6a
j/Oa2nV6aXnoHW9MCljPR8jDKckehVw0LOox0trMR9nX36R9zuZg1brX40+3
8qFq4BZP25sDX6TnqRkRf16ymIl6Dpae9dm4bDsfgRdV63152XCpFFOTovFB
z4oONzmcjXF/qlTPUT6OW3RtO2yehZWfaK2cED7EIisKKm+kI6zCKMPmNh/s
PfJaM6bpGHmqFTrvLsn33nzozlQaKi5KG3jQ+eCd8NPi+KbBRbLxvl404U3N
+kc9U5Gob29enkn4jgsbB88lQ5ZKW+GdQ/jquqtdusm4PGs4ujqf6IfW5w1/
JIFWo8y5XUz6/3ixbPmVJAideLMHqsh8we4PG8ISsSHMNb/jI8nXrRRXK0/A
o3N2EfQOPrbbByWJhSVAdGivi1knuY8Y1gd76wQ0qGguShCQ/M5pYcjXeFzI
G/D0HCb8kWuyEwrxyOX5rpmWEIDnUuWlHMGBctXp6bT5ApR1FeVznDgISbFt
Ova7AIH8iNAaHQ4O+20L4soJINby55zp5jiMLZhpD1MWgM1kFR7UjMPx4f4c
YxUBtotTRlUocXjV3BE2sJLUDxp+TWiLRVRs2VYrDcI/Vi3qDYuF4ZbgSKqe
AKrG0fcLf7LRfIK6mWEgwHGVqE6JZja876W3qG4h/GwERS6fjVR+69K1xkS7
vRV6XGLDQs6rJMWUzC+1b0ulAxt84zlOG3eQfg7Zjn0mbKyI1I7dvIech16/
sUCCjaIXFWZFFsQfuJ5b08qCrdC228SSnOfzyZKeeBboZjc0dh8kvNUXLnM3
C1peSjWvrAi/3s5v/xIWah6nuu+zIf4mmtVgHxOU4eY0awdyXnvJbWYxTDCV
zx5ocSS830SpjD8TRhbiww7HSP4p6rX5h5ho9X70oMOZ+BeuhEKfCR+WpsEJ
F+KPbKmtkGdC9nXZe/5pkp/iS40fZyDtp43/mTPE1xoxmehggLZKuKTfg9QX
HP29qZoBwf7AovNexK9Ov2yew8CNywqOP86TeUrzss/GMqASnzzj7018rtFm
hwcMlDSANeVL6kvnjqwNZcBu+t32gEuEn7fs5PdrDIxquHdRrhLeq73wvR8D
D6xFN0P/JLyYDWXAm4ENAZFrpAIJ3x7+h6MPA6+T11VH3CDz+oaPm11iwK25
1E0uhPhuoudVAQzMpRyS+vsWyasNU5G5y0Cs9reUJWFEK6rF7PmHAVP76/tj
wkm95IhkdBoDH4IXD6rcJ7owa8SkkgH/zEQ65y/SP7Nu4alOBuTbTfQ0Ikn+
cuozGoWJzHlNTcmPCK+ZeX/DWib26bv5bnj8635N1A5bM/HNaUYxO5roKJPy
hcFMhIY9eLaJSeo75D2TiphYla/hUMgmmltHCR1jorSzZMqYQ+ZLaIiUMmLh
yEIrRlk88b3cFyWHsDC+9avprkTS750rjd/CQqTLNV51MvHX8LLUqWzo0OVu
WKaRfc6K8OfS2HhTnKBWn0H2Oe4aTz2IDfevRpVW2aQ+47KwpIQNicVvTzfn
/tof1SbKLBtxpqclHQrIPgfXa9/dHQu4TyV9KiT7vve7+5zIWLT/Tbd0LiH+
yJ49Rr2xuFS+pr+7lOQHuats3BsH+f6ie27lv97X0nzF7DhkLTmo08cl9c7q
zVfUOfjfLv7bc1XErw23PZzIQe+5K97fyXdJ1Umrnmb4BKHRMgr+r8l8O3Ps
Jz4/gVr1k/zJNyTfOPAyhxmPspFtdtcbiBaue+5xPQGOK+onxJvIfQVZsHQj
nkKaejGv+D3Rs8bq+ZJJKF+scMG3leS7HhVuME/BUkbrmOEHMn99+IIZiQz8
B5W4dxA=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#7"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwdVAs0VdkbRxpS3o+6RJgYSlGUSD5FJek1KlcqBukhoZSmFwqVyhhUJvJM
SgrFjcR3z8nEeKdESNK995zSyDOvuP89/7PWWWd96/d9+/fYex89r4Bf90lJ
SEhkk/e/r9M+9hX/8w7bmHkzh8ViMUjbawZ+4FiAdWTXrjOTYjBPTUx+wnEA
KZtdvSPjYthY1/L4Nmc7+FeuTPk6LAZXn5GyOI4PNL+u0qvtEcN704v21zjB
cDFVv8S7RQxp6luiojkRkFuwzXr4oRjCZZ/8cpmTAJlLf07J4IqB65ae19d/
B2x/ZPKDE6Zgpjh893qdPNj5QLqR1zAJBtt62RdXCuH1hQvLoqUmIaTeChKH
SqDEyjutQ+MHzC5U7pSURChWXnTNzXQCeN32tQ02NMwZbx1rNhoH+tBtLbev
FdAaHewfMncMhg1XKT70r4QWnd/kCzmjIDX2QEnLoBoU6NPWhmPfYbnYk+fy
qBYc6uKrTwiHoTbCov7lggaoeN721LdpCObF9ozd722E1hJJlcbMQegZ+dDZ
bNYEdukc3adRA3DnS2m1Qsxr4KZ4R7Jb+kH2hLokM/EajrsE+wz92wcK2tnf
BII3cN7ExdFUpw+uHizyTZv/Foqld9apTOuF73YPBAdCW+CeTsrXwuQeCF5a
UajxohViErJ/H/L+DB8eVVx5pdcGAeO+7RlSDEwcepNkfKodnsQMmFoUCcBd
w/pZirAdsqIaxjwkBLBwtcyUb2kHyE8GR6QmdsP6DL39BbM7gTE5nDB/VxeE
aHvof9z9Ad4Wny4fTOoAk687ZrZs6gIJL2GiX0ErhP3dt2d/excs1bu/1nlr
M6gq9slWjHeByZMtiZmxb0Aak/J+Tv4Ih2s0vTubG8HPovTdjI3d4PiyRDOj
6x94sMErrfx7N3j29mcZXqXB/P/PJ5jG7dX5os6H4R5NJdGNT+C5WphqIF8M
RS7rpyU4CID/Z8ZlJW4WhDpGphaKBCChnxoQNC0QP4823Q9dIATerS2hS8XX
Ue+9U2tmpBAkym/c/DE7G6PplXk7LgnBLjDMlBOQjQPZJlEyV4TgKV44W/5l
NtJHFSz8YoWgG33J/NSxe+gj2/TH0iQhpKWEae2rvY/3zN3WU/mkvhZvyT2R
i4uj9/M624XQWGnVUPwmH60tIxI4S0VgF5mey+UX4VsvzvLbFiIIS+bOivpU
hMdiHrXoWoogLYGKS/qJh7nCVk0jGxHwM7LizjnzUCdhUfrydSJQ0smldVt4
KNX/9qHLLhHESukVP2WeYk2OceW18wR/7B3/y3AJHnhbfkA5kqzf6eytqv4M
paW2y12/KIK+nZzT3RbP0Nbt3KbkqyLwvDNEGwc/w3yZ169zbhA8W8PFtf8Z
Jvic6arMIbVC6nxJUSnu1mkYk3wtgq0ek9wJXhkqcI4WlTYTPrl/7Wyay5BS
VQ863kr6lc1jfx0sw6CDrrPXtImAswclp8uUo+EMd5Z9L4LGkPKOycXl+G1Q
9LaBJf5kQpQd7pTj+X+mntyeEkG+4UimaRSiRUV6gKskA31WWnOvpyMy5Q4L
laUZMNu2crjqOaJzYXRGxAwGtgbmFv81gKieqvGnnxoDjVX9y9lFfLwXvPiI
1QIGqm5tG5WJ4+OugFfGgyYM2OmuTpuZwkf5Q8HCXFMG5jyOTO+/z8ejHs92
6y4jfEOB1t4UH1c6rdsoY8dAoP5NpaZePvY6fP6JWkPmvVU73o/xMQ2u0qfW
knnf5tYqaQqllzVZ9TqRfrf96daaFNbP22vUvIOBLo/8/WH2FIZpSgpiuAxw
Sx5UndxEobn6nVRHdwYcZyqFO7tSmCj3ReO5JwMnmXXVFw5R6DV8fHqmH/Hn
czJF7w8K1frmULuPMGBUvOaJ4CaFlV9Kz2gEMcDPN3A9l0ahSZfk0OUTBB8N
/GNpAYXD1de6A8MZkNVW945upLBjZvOBHxdIHrd9maAWCmnnud8uRjGwwkxz
llknhbH1ORMpVxi4ZJnqvqiHwhOKA+ELYkjef+2T8+uncM9WK1leLOF73ud5
ZoTCBU2VanXXGWDpo5Ua02hUUlVM4iYSfxqqv6TI0jjislNPcIvw2+jWDcvT
WNEsWDSRykCrsMVSZQ6NORomhVEZDPlfzZdvnkvjn67HrFWyGCj+uHaDjx6N
e99JrjfO+c+PacEnYxodNDfUFeYyoHvuVdqrRTQudI91scsj/Z86z15cQqNK
csu7mgKif+O4vPQyGkc7dDxdCwmev1Vu3QoaO7V9Rd08BhK1hDrOK2n8e+/D
w0dKiN6D9Z/VbGnMTR0aGCslfg76jqfY0RjXtfL3yHIGRgcONLJraDypd0Gs
RJE8PCXb+xxo9PCqjkx+QearK0KK1tG4LlN5ltFLBjxn3ey3cKTRRMCNe1JF
+I+dDPXfQPQZpM2BGoIXWdnvcaJxbB+TUl1H9vuEqqPURhq77i422NlI8vLQ
Cd9F6pfM8QcfmwjudK/Sm9S5RmVL/JvJ+S7yeqdF6viD0sWjLUTvdN+dYWS9
UzkbbSPaGEjLlsYYwufZE1eh+J7sr+uBIAeiZ51Jm1PSB3J+5QfvphC9i/z1
Xhl2E/1au4NuET9qjw64PhYwECYIe2pB/I735r1fxZD7sPnDkkNA9JmOeP/z
mfCde+RraUNjZaDtl+1fCR5/KSuR5PuoIDKwq5cBicHrUtEWNCYM1H736yd8
ckbbZMxoPG2udnZkkOhze6Q9ayGNXsHu0y58J/tJfb0bb0CjY1HGZYUxkm/E
jreJ82g0/f5Z8dYE0dfmbanBoVHDcskNgylyflXq/p2uQuOPkJNzCyRYcl92
5PwmR+OnYsywmcbC6BLFFH0pGqvHfjKums4C1zrfb/UYhfnWm/NcZAl+tVCD
943Cm6evL/sgx0J+Qf23ECGFPpM/r/muyEIjt9TneT2FTrZ+VeEqLGxtmmlv
TFO4JPTxZnl1FgL5krFPCymcwx97kzibBd1jz/zd7lI4JbHafb4m6Z8MDhbf
oFCw+tLHvLkEL9tzNDGKwprzDftXzmOh1XWFtvJxct+l9wb/Op+FKuMjZ9Zv
JvPes5e9MmSh2CP2PlgRPS8ah7cYs3Cvfc725/oUVutH8+oXsmC3JFbxlhyF
ZuftQzYtJvjvdify+vh44+MPy1ozFjyPqmXVvOHjDzveqJM5C4kyvMWFPD5W
iY1OOa5gge3hF5cf5eNij27rSmvCp5qsNNeZjwnlSRNrV7EgEfr44UM9Po5r
73heASzw9YL8jwkRPc8qnLVfQ/ytLVh74Qziy47KVbQD4TN1Ts+fjmhiEz5l
t56FPlORVtqZcoxLskbcQPL0Cl42o60MR8YHQ22dif4W+RndimW4e9dDu7LN
LJgJBrRrxkuRLvGVtNnGQtqmw/EBeSV4eSqg353Ufd35Uz0rSvB/Y8N/Pw==

        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#8"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwdVQk0Vl0Xlk8hY0kiMoQPSYUyNGxFUSpTJaFUEipDUZQ5RCKJkpDUX0SS
KfPxmfnwvu+95qhI3nsNGTJG/Of/71p33fWss88+z/PsffaVveBqfomTg4Mj
G7//+x65RLEq6JP7oqT5ppeXl4FLX8Ltq7gm/KluPujzZxk0XsQn5oobwK0c
4YTZ38tg3NyRkyR+AuSWNhwbnl4GS/vZshhxe9A6bNxbO7wMvdvu6UeKe8Bc
bv7b4x3LkCJqEnpfPBhKr0YvprxfhkCe3L/DxWOhtLVN3txyGU5bvfwwPvEa
Gj8y8+qjloBvOdDGcNMH2G+uNmpW9QcUzH5SVRF5AOc1krRHF+FWiw7ETxWB
lXKYwu3pBRDLW/NlxQoEZk9StxVxLEBBv34TY08lPDjGmFo1NA+VzkkbrUaq
YciY2XiwaQ6mFfcKvb9WBy9ns8cMC2eBcz5DeKNCI0zJVF4zDp6BXct2BRZZ
TZC5uitc5Ow0NAVrttSqMCB/4y3rCu0pkI4enk//yYT4Rfu9ITOTMDz79Uvb
dgKWVJNlfeom4PVQSaNgFAleNzq8v/mOA89N0RXsBRK0EkMCD60fB0Gpt2MD
A62wzihYV8DzJzxwyndIkW8HL6PeogTJEZjRyxhw9O+AU5IF4aFPaPBQr85b
X9UJQw/IRd0DbPiaVR3Bku2G/Of8tdY1A7Dg3Ppc+fZn2MGsGNt6rh+s1+sW
J//4DOXb4s8av+qDLfu5lxxKemBn2ou9gVu/gWGq7OWPYl/gTRZXoUPeZ7gl
dU6uz+YrrM4v88/x6gDVkZN8Hce+QXVECZ+9CwkBNeO2lz9/A5VHbl0hgwwQ
ERrnqf79DSpuGUdnWbcAF3r+YXNiHxidDCrMyKqFK5olXbzG/bD9tHNwuUUZ
ZBy+kFI+0w8B1GhH541M0Pj/8x0Yj3IflBumwvSwhPDgk+/Aobqv+IeII+Rb
GP4VazAAdld+eUUdeYf8jUJe5A0OgPCU3Jlp+yJEzxHp/io/QOCit1SUejmS
7T3S+SrkB7gl7X/KtKhEulrBseLqg8Aj2O++YbYO2WxizK8gB8HUakuiW34T
EhS/nl/SNgjMf4qsKuub0D8iou6enYOwwTA3maenCbk7WYod6B6ESs/fnQVU
E1Lktaao3kGor+p7eJ2zGY39GmxnUIMgzEpGxcebUVDDUm7S0iBUSHF4rPnR
jNI81Fx0VNgQoJ586jYPA51xZSn/UmXD9tCgXn0JBhJw9viRuY0NMvMCmhyq
DHT9XLGNzE68LjAjaGbCQLuPHDLm1mMD1T+WbhbHQC3SZ5XaTrLBZl409ZwQ
E003Rva7BbJhJNe94uJjJurha3NcvMsG7TWlV3sSmKjyqOTYvVB8/nDV4eOp
TBTd8m4hOYINXP/cdZX6yEQqRN265jg2HBUJO+nYwkRnu1YYKr9jw5Tlp6C3
3CxUy/bM6CPYUG+7b+iOBwtlKpXtuNbGBr1Z/ciVd1josRNX4VwHG2KdKujQ
QBayG46pFurF+4/zx7lFsdDvnx9697Ix/6H2tV/estC2GVooYQHzL/T7JtLF
QvFcZz3M5SlI03u11VWTQEsXxXayFCkwcHL0zdMhkH0Vc9pEmYKRiJpXY/sI
tD1I/9YxNQrsq5kShocJVL+sdNtImwKecjsVL1sCzf7+5b/vKAVeky0azXcJ
ZHPmvV7ZcQo4ggPj7cMIBLRcxHkzCjyso2M0IgkU5dUVpHOKgh6eu83f4wik
OFMeomlHQammZbb2WwKdmgiPUPGgIHvOwcOnjkClpvpH02/ieL8Pr4z+JZBc
9iK/kjeOv3J9dBWDQD9dXKMU/Ch4sJF7q1U7gUJGTjySCaNgj7xEjskAgYaM
Bc1f3KfA7VqKcBqbQKYZdWs3RVIwLu6tMjFEIEln3diNMRQoUYrNJyYIlMeW
fro+Eevzuaxt84dAEoZdlnHJFMytrOnX5CBRwJuYDeteUtCazPVqkZNERy+t
TFjzBue/ped9modEOdXlZ6LTKIh3jhAdWU2iDfJeG4UyKGjardt6TYBEA/1D
ifzZFGg2lOfqriXRkQOvbSNyKNA7WnksZB2Jsl/ablqdj/3nsF8sXU8iHzvm
C+5iClSdPTwnJUjUj8LtQktx/QK608ckSWQkrS+7ElHwetd/ajs3kUjkS34q
ZzUFPtRDz2tyJIri9/X9VIv19e2L2i1PotW7DU5fbaDArkDZdVyBRKFOfBqy
TRRwWda/jvibRJzxhEB7C/aX599P/Mok8qt9Rt1nURB2cFT1hgqJfk/ZVUEr
BXldNcHlW0h0c7NS8lQ7BbH8sbt/qpJo0mzMK70L91MCb8MKNRK5BBRYnO2h
gB/WpMxhPJTlqybyFet9+EiN2EYih14D3vo+ClIYW3ojt5Ooj49/wGcA87sz
I7hlB4lsdMnyHWwKCiU1ZNMx7nRMeDZIYz4iy87c6iQ68fS8x/MRCox6lvYc
xJhZo2RiOkZBtO1ffecxPjo1prxyEvtXkPbMBuN6uU9cxVNY3+zoS02MDcz8
vrrM4vzKNao0zo/8DxZv/k2B/NcEe2+MdbP44zoXcb1jW50HML+CHtI1chn7
PWtgqYyxOt/zIwc4aRgXi9MyxHqydC4ozHLRQF1/KbgX61VxVObI5KbhanwD
ybuVRG+ejHfbrcbxgjuuZ2L/5Go+5YsK0KA0PFa3Gfub9MsvulGIhthzO/7j
ooT7R+7QFf+1NGww3fdvhCKJYk0FDmmK0pCZ4z7sjesp7N8qQ4vRULpn3Rst
XO8H758vJEng84Mkw6ukScTTc6HdXIoGnuNMQUkpEgWvVvnILUNDhat+IuB+
4tCZiCiVw/k6P/iripHozuVCB3cFGgqFUn9+EyHRTJz/fkUlGjSvTv1lLUyi
69WHJD+r4PyPY8ri+UnkLNvGMthOg9unMM9TXCQaNEnMnFen4bTSgTrWMoEu
+F28l7WThsRef1vuBQJZfZ7Ys2E3jedl0NYn4wRq5S0Sa96L96sPmdP4Pppq
B0wG6tGw6P00fAjfX6M4wbThg9iflDJLqoNA1VVtQSlGNMwVxtb2MAmkN5lo
e9IY+ykd+N2lgUBaJltEkCn+bxdnlVgWESjHd3L0hgUN9lPGa19lE0gts6he
6RQNzBha1RPPG0VeI78Ya6w3zFI1+jGBUrWErAzP0qB6ddXxejy/Njm0ayza
0eADnlcu+RIoITZJ8ONFGqK3dvnbuBNofZU9fcmBBuGrH2Re2hMoZmJLtYQT
5p+cqatgSSBBmV/JjCuY35OYsk4jAq30DTyh447jezaqBirjeTMxMo9u4PqE
ijXcFMfz1+H0i0M3adjzzmOPAw+B1n2uMmj2osFRJVZHY4aFqk22DVncoSGs
cdePkn4W8qhOeNjti/kv8at2NLOQvM6qnecDcL50GQfzTyzU+t69mx1Eg42h
Vt9oMgsFy/X6u4Rgfy41vLAMZiHNp0YK0/dw/f0jOTdfZqEBvrzGO/dpSMt1
ZBQfYqHYAGk3zki8zm4SNZJjIYPp+6LhD/E6b0VWwBwTTTnNFAvF0HCCI0NI
u46JXn85b/ckFvfvNV8ttftMdMKieaXUUxpMu1cMnd7FRPXPFU/dfUZD/cWS
9G4BBvovL9zaEg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#9"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwdlQs0VVsbholKpEQ4kuPewZH8blHyiS2KXJMUQkiFVI527oVU5JSEipL8
SeVSEV00pZ1CuWfbe61wZLPXSkiukf3P868x1ljjGXOO+X3f+75jLlX/o66B
i4SEhF7g99/vjkB+Wy3lbpGqLDEpEAhA1HpNeK+CERjNfdaJ+SUAw1s5uU8U
GKAU6qY3/VMA9h/Zj/MUdsGIm9ZNalIAHgHTNRkKAeA6dkO19qsAPm9Isb6o
EAEZifXPDNkCyJd1OntBIQm0xPnOxiUCOC325I/zCpkQTV00LnQXwB7P22Vj
3wvh8d7JW6kpCyAhOO1l+3sZKKlfO3PuyS/QdBnhv0mtgJkQNWH19nk42WwG
ORPPIPGX40OTpjmQr1jVIyyMQDlPVXrk7U942m/9ocW8DpYUlZ43vTELdYfz
FD2HWRB+fImcUfAMTK7bsrIk9B2Y9RrXBcA0LJp9IKWo2QhWAZS4xcQkmAh8
n7qVfoA9TeVNVtUT8CHJqLlepwX6Z1ieHbE/QPnS19nikVbwyZKD7Zrj8HW6
t+eTfjuk19juZfSPQSH9onFFegfcC2Dl7hQbBbFIWeGhuQ4I25eVvGr9CKxQ
KhodGOiEs1H6h5d7DUPaocqgfI0ueOXQamX+hYIpywcDwfFs6JScsF+zZQgi
DFgVcm+6oVC0/1TLxwHoLWWltqlywfhq8wDHpB/mDnfe0I4iwMSe8XBPRC/s
k9v0/CaPgLOh5ZaOY5/hz61LF4JekCBuOX7OeZgLtgWqBx/J98Dg1Eyaq3oX
nFTar/aPVy9INza0anxoA91hdwn2zj5g/hjWS3dvgoS3Y94HiT44UeRxPM6c
BTIrx8RYP/tg7FD73u/FdSCKbpSp5/4DzuozsZufVsIRoxecZfb9UFvU5uRf
cRUebPfPfzXVD31Dcpu8Gu4gw/8/XyD6iiHbQrEUTX5dIzWY9QUSFkdNL7lU
hSrdbEUyGQOgtfiqowu7DsXbJd+qGBwAvqvXqmuyDYiaaS+O1+EBz2BqEtKa
kOrnHd13knmQsOvhWwWyGW3amJSpYDAIaRxe4ujeduT1e8uscAdmGYfUwp5O
dOyQh7wVdxDCP8cYt8x0osnGi/3hp4dASDm6XmcXG5ESn4LnE4eAOf/6PMuL
jeoc1o6mnB2C+WbHp56BbHSp+f7czdQh0I34YR4ZyUY67e9Wf7w6BF5Xe6+f
zGEjH46wrfb9Idjz9I9dOQQb1Q/99eCfdrwuNkYZ+3SjHFGfCFcNPjhrcRkD
bhy0cEDeuG0dH1aPWq6R3sdBAW9aJ520+RByxTlwkz8H6Z+xPrlTjw+ZknxG
VDgHvRdoRdmZ8kGjfuOZp2kcNP3zR7yFAx90F2KTFVkcZEGppfq58CGn1EGt
oY2Ddn8/n6oTwQf9F6mNwXpc9NLZ2qE4EvPGr6xuIy5SK59frnWKDw/v23pa
beaikbCj6ZpxfBDLPrlhkR0XJQ/vuqxyjg+MOqNiQz8uqhhSzpbL5cOlqjDY
ncFFMj2VBYtYfBj+76dxj1EuSl8eG1tVzwdzls6U3yQXiW9m7AlpwP1/eyBy
YI6LFuW0S3Y184FZJSS8YymBxl1GmcUcPvxmQncU/06g1rdaTs6jfPDN+ZFd
YE8gh4lR7cXjfJhX0X8p60Kg92pVos8n+BCh8qQ3bjeBULzNc/WffNC6vJJj
4EegUjN/zWlRCip2FEUoRxIoreTGXN4aCux44dtn8wgkRvp3uSpR8IEpR9UV
EChJXOfRUhUKRL25xqeLCBR9sDromCYF9/K//kWUE+iw6qc2hj4FWiVFHSJv
CGR3dcW9rzYUrG5hlS3nEYj15tOZfDsKAn5kfllNEchyPNfb3Z6CeUknSalv
BNro9KcMcqYgQoao65kg0LpldnEZ+ygQKhWX54qQaHHs6V1mxyjIT9hupa1M
oorvw7PoBAUz5A1dRTUSBQTtubUtkoLccfsagQaJWE4baLdoPF8Ok5GvQ6Ik
tc/xYcm432lv3iZjEhll22lOplDAVI5b9GojiQYkKhqjL+D16EM5BptIxJi8
IHv+b8y5X86NWpDo+rV/Hwo8xdYteWCL65sXOuvkUuBbzP9esx3Xf7Ryqvwm
Bbo6pSbV9rj+9UHLV3coiMlfZh7jRKKIla6DjLsUOD/NyLZxIZFGUk1q0z0K
Hj4LtFhwJVFiaGZXdwnez+Nmme8mkUG/IHp/OQWWHm2c1x4k6t99RHXwMQW1
o4UXjD1JZGVpFfKjioLlyz9uH9pHovGKklVRz/H+hIQeDW8SFWgrVAnVUMAq
qvzm5EOiRTJjwivqsJ4lSSdDfUn0OGVfUSaLgrGy70f2+5HIf77eQfEdPu9o
cPMWfxJJHzMYv92Az0sM9xA7QKI6Xl621gcKpCYf17zCfHzvsi1lzdivSH6l
bwCJ1Foi+o3bsB619ePfMLdb96W87KCAsfSbRlAgic5U26+37qLAlNny8z1m
g/VV7Q3dOA9lt1XkgvB8t9WYzgQF3fKWljsxZ8ilK7E/U2Ck/ptwGGar1Nk6
7z4KQratFGNiHhcEBA/04/6KgqcPYy6IaJU8wqPAIbA4bBtmV2rzk+9DFJwL
ihYXxyzsU7SHSWO909MDKnH98nbphYVhrI8NU8YOs69t3J3kUQom9C/ff437
l3pJ2S0fp2Dtr9Znqphr9d1HMiYoSFO49/Egnj/8v7VXFKYpGDBnh13Beqms
0TXLn8X6pjHUCrGerenZPevmcf43Ngdfw3oniIgklSzg+bzWoOP7SaTPDNM2
EqbBSyggbwP2p2+Y0/xchAbnbsbJFi8SXfKzidi6hIYPz6NfuGB/LbvKFd6L
0RDiV9ZRif0f27EWOUrQUG2+XmMO5yMfpQR8kqTBYUmhhCrOj1CxT1m/NA2r
L3rNS+B81Q+zw27J0lAblLXxJs5jmr6LntdvNAwEm1qI7SSRfLV1ySclGuz6
Gl/vx/km516GZKjQMEz5r7dnYH3BRNdJnYY9VW6W4ltJpPdO68F7LRpYjFuP
FsxINCFecDj5TxpiDuVk/8eERM8dFXWs9Gjoi7U2MDQgkU2XZPELQzyfnA0v
V5tE4mtSgpkmNKgs3BEIa2K9vIW0jM3wPDkKrRtUSOTFG79bakGD1Pnysh5Z
nC/tkKAjW2lg1P9c6SVFIn4IT1OLQUNFTAPrujiJTkywC29vpyEn3v2q2wKB
TE1dAnwcaPD9pSfdME2ghehGdUUnGgo1+Lemxgh0QaSmIHMXDZnDZr/C+gnk
bGvi7+JBQ/4Jv54nXALJpZaprthLw4y5M13YTqAC6YL8lP00vJdpN4x9TaBn
qik3ow7TwL/coJ9xnUBxgUI+G0NpWNut6fn2bwIxik8pTRylIUCRDItPwve1
fkhu6F9Y7xirP0JDCJQVwdunw6RB11SReXk/gbyqfRSHorBf4N2r5EogPrhc
903A9V66H9pmjO/rxEZPpUQaLj1q2NqkSaCId9YK3GQaWiWq9M7LEkjgaJLj
lor9mZnTOTrORayMMg+pdMybs++F93LRhS4t+Y+XsL9+xku8m7hIzkcxa1sW
7v+wotvpW1xE3s50F7mGz4tkpYSncFEBT1K29gYNzENv6itDuShYO6Uz5iYN
ohHP78m6ctH6UKFMs9s0TIiWB9jg/+N4+Sm3qTs0aA3uvTIgw0XVE+PST+7S
0OmSYHVijIPiTEPajxbTYFnWydjawEGMGN5l3Yc0CDmWyzjncZB4rY8LVUqD
6cVQGfkjHNQq0i119xH2r/+dxfwGDsqydWn1r6Bh+YGDscRgN9qX2vi3chWu
N/Ll2tIz3Wid7O/mWc9oSFqtkt1ZzUb/A7l5Og0=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#10"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwdlgk8VdsXx03v0UCSjKmUCi9D5UnqWZmlDNdcISEhGUollIjo8bxIkhJd
[encoded data, 4148 characters]
6oN+kT70P+eE10Y=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#11"]& ], 
     TagBox[
      {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwdlnk4Vd0Xx5HmUqYMpQwZKiRNL8ky3CIqcwg3FQ0yFFEpKYlKA3WVMg+F
[encoded data, 4392 characters]
UGrpR/8DylY/hQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#12"]& ], 
     TagBox[
      {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd1gk0Fl0fAHDbmxYtItmXSApFSFr8RVmKLCklJJU2e1lKKNlCvUi2hPBm
[encoded data, 4819 characters]
GGgUf+/VsKLH3556kLKWgSwjdJMXjrChyGZhvqtgEv0PASA5xg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#13"]& ], 
     TagBox[
      {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd1nk8lUsfAHCkKCIlspQsERFFidKvkCVtSlpEiESFSiqyJIeyhRAiKkTc
[encoded data, 5307 characters]
qqPof1WSCug=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#14"]& ], 
     TagBox[
      {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k8Vdv7B3AaDAlJZZ5FaKBQiCcpocyKMotrzJQyZahQESndCJdIGRJl
[encoded data, 5490 characters]
s2LNQv8Hhegpmg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#15"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd1nlcTG8XAPBUKkmL0qakJKQSpSQ5CJElFdpXhRYtFIq0ENkS7Ys2pdKi
[encoded data, 5673 characters]
Eeh/ExPM+Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#16"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k4Vd33APBbhCQiZY6QUkiForISlSFEJJIpNHxfURkicykkL5E5JJIh
[encoded data, 6039 characters]
e6i8pZyOfC7re7hgf1PaceFnLB39H+gBWE4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#17"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k4VV0XAHClQslUZjIklZAMKcp6i1dSKRqMmTKlZCjJPLyRBpFkDolk
[encoded data, 6344 characters]
JAxr2cHOx0z0P8hOvRM=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#18"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k0Vd8XAHBJUUTGIkOGKIRUpGRXJFRkKJE5IomiVDIWUiGVTPWlhFRC
[encoded data, 7015 characters]
n80qTFQWPXOytZ0BHuJvVKb6GMjX56LF9w4GcF81//45hoH+B1z8sG0=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#19"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k8VF8bAHBFkqRkSSIpqWz5IVvlqQgpipQWa6HIWikVoZBEqyQJKYps
[encoded data, 7930 characters]
rYdc+yp+kxC/ue3ZEXn8/v9o9aWTJGTwam1VHSXR/wCYR0+s
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#20"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13lcTG8XAPChKPQrFWlPSUiUREgdlKQoLaQURZGkIlmilRSRhDYkaVXa
[encoded data, 5917 characters]
aKTTuOh/1tNL1A==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#21"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k8VF8bAHBFkqRkSSIpqWz5IVvlqQgpipQWa6HIWikVoZBEqyQJKYps
[encoded data, 7930 characters]
rYdc+yp+kxC/ue3ZEXn8/v9o9aWTJGTwam1VHSXR/wCYR0+s
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#22"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13k0Vd8XAHBJUUTGIkOGKIRUpGRXJFRkKJE5IomiVDIWUiGVTPWlhFRC
[encoded data, 7015 characters]
n80qTFQWPXOytZ0BHuJvVKb6GMjX56LF9w4GcF81//45hoH+B1z8sG0=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#23"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwd13k4VV0XAHClQslUZjIklZAMKcp6i1dSKRqMmTKlZCjJPLyRBpFkDolk
[encoded data, 6344 characters]
JAxr2cHOx0z0P8hOvRM=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#24"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13k4Vd33APBbhCQiZY6QUkiForISlSFEJJIpNHxfURkicykkL5E5JJIh
[encoded data, 6039 characters]
e6i8pZyOfC7re7hgf1PaceFnLB39H+gBWE4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#25"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd1nlcTG8XAPBUKkmL0qakJKQSpSQ5CJElFdpXhRYtFIq0ENkS7Ys2pdKi
[encoded data, 5673 characters]
Eeh/ExPM+Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#26"]& ], 
     TagBox[
      {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k8Vdv7B3AaDAlJZZ5FaKBQiCcpocyKMotrzJQyZahQESndCJdIGRJl
[encoded data, 5490 characters]
s2LNQv8Hhegpmg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#27"]& ], 
     TagBox[
      {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd1nk8lUsfAHCkKCIlspQsERFFidKvkCVtSlpEiESFSiqyJIeyhRAiKkTc
[encoded data, 5307 characters]
qqPof1WSCug=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#28"]& ], 
     TagBox[
      {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd1gk0Fl0fAHDbmxYtItmXSApFSFr8RVmKLCklJJU2e1lKKNlCvUi2hPBm
[encoded data, 4819 characters]
GGgUf+/VsKLH3556kLKWgSwjdJMXjrChyGZhvqtgEv0PASA5xg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#29"]& ], 
     TagBox[
      {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwdlnk4Vd0Xx5HmUqYMpQwZKiRNL8ky3CIqcwg3FQ0yFFEpKYlKA3WVMg+F
[encoded data, 4392 characters]
UGrpR/8DylY/hQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#30"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdlgk8VdsXx03v0UCSjKmUCi9D5UnqWZmlDNdcISEhGUollIjo8bxIkhJd
[encoded data, 4148 characters]
6oN+kT70P+eE10Y=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#31"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdlQs0VVsbholKpEQ4kuPewZH8blHyiS2KXJMUQkiFVI527oVU5JSEipL8
SeVSEV00pZ1CuWfbe61wZLPXSkiukf3P868x1ljjGXOO+X3f+75jLlX/o66B
i4SEhF7g99/vjkB+Wy3lbpGqLDEpEAhA1HpNeK+CERjNfdaJ+SUAw1s5uU8U
GKAU6qY3/VMA9h/Zj/MUdsGIm9ZNalIAHgHTNRkKAeA6dkO19qsAPm9Isb6o
EAEZifXPDNkCyJd1OntBIQm0xPnOxiUCOC325I/zCpkQTV00LnQXwB7P22Vj
3wvh8d7JW6kpCyAhOO1l+3sZKKlfO3PuyS/QdBnhv0mtgJkQNWH19nk42WwG
ORPPIPGX40OTpjmQr1jVIyyMQDlPVXrk7U942m/9ocW8DpYUlZ43vTELdYfz
FD2HWRB+fImcUfAMTK7bsrIk9B2Y9RrXBcA0LJp9IKWo2QhWAZS4xcQkmAh8
n7qVfoA9TeVNVtUT8CHJqLlepwX6Z1ieHbE/QPnS19nikVbwyZKD7Zrj8HW6
t+eTfjuk19juZfSPQSH9onFFegfcC2Dl7hQbBbFIWeGhuQ4I25eVvGr9CKxQ
KhodGOiEs1H6h5d7DUPaocqgfI0ueOXQamX+hYIpywcDwfFs6JScsF+zZQgi
DFgVcm+6oVC0/1TLxwHoLWWltqlywfhq8wDHpB/mDnfe0I4iwMSe8XBPRC/s
k9v0/CaPgLOh5ZaOY5/hz61LF4JekCBuOX7OeZgLtgWqBx/J98Dg1Eyaq3oX
nFTar/aPVy9INza0anxoA91hdwn2zj5g/hjWS3dvgoS3Y94HiT44UeRxPM6c
BTIrx8RYP/tg7FD73u/FdSCKbpSp5/4DzuozsZufVsIRoxecZfb9UFvU5uRf
cRUebPfPfzXVD31Dcpu8Gu4gw/8/XyD6iiHbQrEUTX5dIzWY9QUSFkdNL7lU
hSrdbEUyGQOgtfiqowu7DsXbJd+qGBwAvqvXqmuyDYiaaS+O1+EBz2BqEtKa
kOrnHd13knmQsOvhWwWyGW3amJSpYDAIaRxe4ujeduT1e8uscAdmGYfUwp5O
dOyQh7wVdxDCP8cYt8x0osnGi/3hp4dASDm6XmcXG5ESn4LnE4eAOf/6PMuL
jeoc1o6mnB2C+WbHp56BbHSp+f7czdQh0I34YR4ZyUY67e9Wf7w6BF5Xe6+f
zGEjH46wrfb9Idjz9I9dOQQb1Q/99eCfdrwuNkYZ+3SjHFGfCFcNPjhrcRkD
bhy0cEDeuG0dH1aPWq6R3sdBAW9aJ520+RByxTlwkz8H6Z+xPrlTjw+ZknxG
VDgHvRdoRdmZ8kGjfuOZp2kcNP3zR7yFAx90F2KTFVkcZEGppfq58CGn1EGt
oY2Ddn8/n6oTwQf9F6mNwXpc9NLZ2qE4EvPGr6xuIy5SK59frnWKDw/v23pa
beaikbCj6ZpxfBDLPrlhkR0XJQ/vuqxyjg+MOqNiQz8uqhhSzpbL5cOlqjDY
ncFFMj2VBYtYfBj+76dxj1EuSl8eG1tVzwdzls6U3yQXiW9m7AlpwP1/eyBy
YI6LFuW0S3Y184FZJSS8YymBxl1GmcUcPvxmQncU/06g1rdaTs6jfPDN+ZFd
YE8gh4lR7cXjfJhX0X8p60Kg92pVos8n+BCh8qQ3bjeBULzNc/WffNC6vJJj
4EegUjN/zWlRCip2FEUoRxIoreTGXN4aCux44dtn8wgkRvp3uSpR8IEpR9UV
EChJXOfRUhUKRL25xqeLCBR9sDromCYF9/K//kWUE+iw6qc2hj4FWiVFHSJv
CGR3dcW9rzYUrG5hlS3nEYj15tOZfDsKAn5kfllNEchyPNfb3Z6CeUknSalv
BNro9KcMcqYgQoao65kg0LpldnEZ+ygQKhWX54qQaHHs6V1mxyjIT9hupa1M
oorvw7PoBAUz5A1dRTUSBQTtubUtkoLccfsagQaJWE4baLdoPF8Ok5GvQ6Ik
tc/xYcm432lv3iZjEhll22lOplDAVI5b9GojiQYkKhqjL+D16EM5BptIxJi8
IHv+b8y5X86NWpDo+rV/Hwo8xdYteWCL65sXOuvkUuBbzP9esx3Xf7Ryqvwm
Bbo6pSbV9rj+9UHLV3coiMlfZh7jRKKIla6DjLsUOD/NyLZxIZFGUk1q0z0K
Hj4LtFhwJVFiaGZXdwnez+Nmme8mkUG/IHp/OQWWHm2c1x4k6t99RHXwMQW1
o4UXjD1JZGVpFfKjioLlyz9uH9pHovGKklVRz/H+hIQeDW8SFWgrVAnVUMAq
qvzm5EOiRTJjwivqsJ4lSSdDfUn0OGVfUSaLgrGy70f2+5HIf77eQfEdPu9o
cPMWfxJJHzMYv92Az0sM9xA7QKI6Xl621gcKpCYf17zCfHzvsi1lzdivSH6l
bwCJ1Foi+o3bsB619ePfMLdb96W87KCAsfSbRlAgic5U26+37qLAlNny8z1m
g/VV7Q3dOA9lt1XkgvB8t9WYzgQF3fKWljsxZ8ilK7E/U2Ck/ptwGGar1Nk6
7z4KQratFGNiHhcEBA/04/6KgqcPYy6IaJU8wqPAIbA4bBtmV2rzk+9DFJwL
ihYXxyzsU7SHSWO909MDKnH98nbphYVhrI8NU8YOs69t3J3kUQom9C/ff437
l3pJ2S0fp2Dtr9Znqphr9d1HMiYoSFO49/Egnj/8v7VXFKYpGDBnh13Beqms
0TXLn8X6pjHUCrGerenZPevmcf43Ngdfw3oniIgklSzg+bzWoOP7SaTPDNM2
EqbBSyggbwP2p2+Y0/xchAbnbsbJFi8SXfKzidi6hIYPz6NfuGB/LbvKFd6L
0RDiV9ZRif0f27EWOUrQUG2+XmMO5yMfpQR8kqTBYUmhhCrOj1CxT1m/NA2r
L3rNS+B81Q+zw27J0lAblLXxJs5jmr6LntdvNAwEm1qI7SSRfLV1ySclGuz6
Gl/vx/km516GZKjQMEz5r7dnYH3BRNdJnYY9VW6W4ltJpPdO68F7LRpYjFuP
FsxINCFecDj5TxpiDuVk/8eERM8dFXWs9Gjoi7U2MDQgkU2XZPELQzyfnA0v
V5tE4mtSgpkmNKgs3BEIa2K9vIW0jM3wPDkKrRtUSOTFG79bakGD1Pnysh5Z
nC/tkKAjW2lg1P9c6SVFIn4IT1OLQUNFTAPrujiJTkywC29vpyEn3v2q2wKB
TE1dAnwcaPD9pSfdME2ghehGdUUnGgo1+Lemxgh0QaSmIHMXDZnDZr/C+gnk
bGvi7+JBQ/4Jv54nXALJpZaprthLw4y5M13YTqAC6YL8lP00vJdpN4x9TaBn
qik3ow7TwL/coJ9xnUBxgUI+G0NpWNut6fn2bwIxik8pTRylIUCRDItPwve1
fkhu6F9Y7xirP0JDCJQVwdunw6RB11SReXk/gbyqfRSHorBf4N2r5EogPrhc
903A9V66H9pmjO/rxEZPpUQaLj1q2NqkSaCId9YK3GQaWiWq9M7LEkjgaJLj
lor9mZnTOTrORayMMg+pdMybs++F93LRhS4t+Y+XsL9+xku8m7hIzkcxa1sW
7v+wotvpW1xE3s50F7mGz4tkpYSncFEBT1K29gYNzENv6itDuShYO6Uz5iYN
ohHP78m6ctH6UKFMs9s0TIiWB9jg/+N4+Sm3qTs0aA3uvTIgw0XVE+PST+7S
0OmSYHVijIPiTEPajxbTYFnWydjawEGMGN5l3Yc0CDmWyzjncZB4rY8LVUqD
6cVQGfkjHNQq0i119xH2r/+dxfwGDsqydWn1r6Bh+YGDscRgN9qX2vi3chWu
N/Ll2tIz3Wid7O/mWc9oSFqtkt1ZzUb/A7l5Og0=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#32"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdVQk0Vl0Xlk8hY0kiMoQPSYUyNGxFUSpTJaFUEipDUZQ5RCKJkpDUX0SS
KfPxmfnwvu+95qhI3nsNGTJG/Of/71p33fWss88+z/PsffaVveBqfomTg4Mj
G7//+x65RLEq6JP7oqT5ppeXl4FLX8Ltq7gm/KluPujzZxk0XsQn5oobwK0c
4YTZ38tg3NyRkyR+AuSWNhwbnl4GS/vZshhxe9A6bNxbO7wMvdvu6UeKe8Bc
bv7b4x3LkCJqEnpfPBhKr0YvprxfhkCe3L/DxWOhtLVN3txyGU5bvfwwPvEa
Gj8y8+qjloBvOdDGcNMH2G+uNmpW9QcUzH5SVRF5AOc1krRHF+FWiw7ETxWB
lXKYwu3pBRDLW/NlxQoEZk9StxVxLEBBv34TY08lPDjGmFo1NA+VzkkbrUaq
YciY2XiwaQ6mFfcKvb9WBy9ns8cMC2eBcz5DeKNCI0zJVF4zDp6BXct2BRZZ
TZC5uitc5Ow0NAVrttSqMCB/4y3rCu0pkI4enk//yYT4Rfu9ITOTMDz79Uvb
dgKWVJNlfeom4PVQSaNgFAleNzq8v/mOA89N0RXsBRK0EkMCD60fB0Gpt2MD
A62wzihYV8DzJzxwyndIkW8HL6PeogTJEZjRyxhw9O+AU5IF4aFPaPBQr85b
X9UJQw/IRd0DbPiaVR3Bku2G/Of8tdY1A7Dg3Ppc+fZn2MGsGNt6rh+s1+sW
J//4DOXb4s8av+qDLfu5lxxKemBn2ou9gVu/gWGq7OWPYl/gTRZXoUPeZ7gl
dU6uz+YrrM4v88/x6gDVkZN8Hce+QXVECZ+9CwkBNeO2lz9/A5VHbl0hgwwQ
ERrnqf79DSpuGUdnWbcAF3r+YXNiHxidDCrMyKqFK5olXbzG/bD9tHNwuUUZ
ZBy+kFI+0w8B1GhH541M0Pj/8x0Yj3IflBumwvSwhPDgk+/Aobqv+IeII+Rb
GP4VazAAdld+eUUdeYf8jUJe5A0OgPCU3Jlp+yJEzxHp/io/QOCit1SUejmS
7T3S+SrkB7gl7X/KtKhEulrBseLqg8Aj2O++YbYO2WxizK8gB8HUakuiW34T
EhS/nl/SNgjMf4qsKuub0D8iou6enYOwwTA3maenCbk7WYod6B6ESs/fnQVU
E1Lktaao3kGor+p7eJ2zGY39GmxnUIMgzEpGxcebUVDDUm7S0iBUSHF4rPnR
jNI81Fx0VNgQoJ586jYPA51xZSn/UmXD9tCgXn0JBhJw9viRuY0NMvMCmhyq
DHT9XLGNzE68LjAjaGbCQLuPHDLm1mMD1T+WbhbHQC3SZ5XaTrLBZl409ZwQ
E003Rva7BbJhJNe94uJjJurha3NcvMsG7TWlV3sSmKjyqOTYvVB8/nDV4eOp
TBTd8m4hOYINXP/cdZX6yEQqRN265jg2HBUJO+nYwkRnu1YYKr9jw5Tlp6C3
3CxUy/bM6CPYUG+7b+iOBwtlKpXtuNbGBr1Z/ciVd1josRNX4VwHG2KdKujQ
QBayG46pFurF+4/zx7lFsdDvnx9697Ix/6H2tV/estC2GVooYQHzL/T7JtLF
QvFcZz3M5SlI03u11VWTQEsXxXayFCkwcHL0zdMhkH0Vc9pEmYKRiJpXY/sI
tD1I/9YxNQrsq5kShocJVL+sdNtImwKecjsVL1sCzf7+5b/vKAVeky0azXcJ
ZHPmvV7ZcQo4ggPj7cMIBLRcxHkzCjyso2M0IgkU5dUVpHOKgh6eu83f4wik
OFMeomlHQammZbb2WwKdmgiPUPGgIHvOwcOnjkClpvpH02/ieL8Pr4z+JZBc
9iK/kjeOv3J9dBWDQD9dXKMU/Ch4sJF7q1U7gUJGTjySCaNgj7xEjskAgYaM
Bc1f3KfA7VqKcBqbQKYZdWs3RVIwLu6tMjFEIEln3diNMRQoUYrNJyYIlMeW
fro+Eevzuaxt84dAEoZdlnHJFMytrOnX5CBRwJuYDeteUtCazPVqkZNERy+t
TFjzBue/ped9modEOdXlZ6LTKIh3jhAdWU2iDfJeG4UyKGjardt6TYBEA/1D
ifzZFGg2lOfqriXRkQOvbSNyKNA7WnksZB2Jsl/ablqdj/3nsF8sXU8iHzvm
C+5iClSdPTwnJUjUj8LtQktx/QK608ckSWQkrS+7ElHwetd/ajs3kUjkS34q
ZzUFPtRDz2tyJIri9/X9VIv19e2L2i1PotW7DU5fbaDArkDZdVyBRKFOfBqy
TRRwWda/jvibRJzxhEB7C/aX599P/Mok8qt9Rt1nURB2cFT1hgqJfk/ZVUEr
BXldNcHlW0h0c7NS8lQ7BbH8sbt/qpJo0mzMK70L91MCb8MKNRK5BBRYnO2h
gB/WpMxhPJTlqybyFet9+EiN2EYih14D3vo+ClIYW3ojt5Ooj49/wGcA87sz
I7hlB4lsdMnyHWwKCiU1ZNMx7nRMeDZIYz4iy87c6iQ68fS8x/MRCox6lvYc
xJhZo2RiOkZBtO1ffecxPjo1prxyEvtXkPbMBuN6uU9cxVNY3+zoS02MDcz8
vrrM4vzKNao0zo/8DxZv/k2B/NcEe2+MdbP44zoXcb1jW50HML+CHtI1chn7
PWtgqYyxOt/zIwc4aRgXi9MyxHqydC4ozHLRQF1/KbgX61VxVObI5KbhanwD
ybuVRG+ejHfbrcbxgjuuZ2L/5Go+5YsK0KA0PFa3Gfub9MsvulGIhthzO/7j
ooT7R+7QFf+1NGww3fdvhCKJYk0FDmmK0pCZ4z7sjesp7N8qQ4vRULpn3Rst
XO8H758vJEng84Mkw6ukScTTc6HdXIoGnuNMQUkpEgWvVvnILUNDhat+IuB+
4tCZiCiVw/k6P/iripHozuVCB3cFGgqFUn9+EyHRTJz/fkUlGjSvTv1lLUyi
69WHJD+r4PyPY8ri+UnkLNvGMthOg9unMM9TXCQaNEnMnFen4bTSgTrWMoEu
+F28l7WThsRef1vuBQJZfZ7Ys2E3jedl0NYn4wRq5S0Sa96L96sPmdP4Pppq
B0wG6tGw6P00fAjfX6M4wbThg9iflDJLqoNA1VVtQSlGNMwVxtb2MAmkN5lo
e9IY+ykd+N2lgUBaJltEkCn+bxdnlVgWESjHd3L0hgUN9lPGa19lE0gts6he
6RQNzBha1RPPG0VeI78Ya6w3zFI1+jGBUrWErAzP0qB6ddXxejy/Njm0ayza
0eADnlcu+RIoITZJ8ONFGqK3dvnbuBNofZU9fcmBBuGrH2Re2hMoZmJLtYQT
5p+cqatgSSBBmV/JjCuY35OYsk4jAq30DTyh447jezaqBirjeTMxMo9u4PqE
ijXcFMfz1+H0i0M3adjzzmOPAw+B1n2uMmj2osFRJVZHY4aFqk22DVncoSGs
cdePkn4W8qhOeNjti/kv8at2NLOQvM6qnecDcL50GQfzTyzU+t69mx1Eg42h
Vt9oMgsFy/X6u4Rgfy41vLAMZiHNp0YK0/dw/f0jOTdfZqEBvrzGO/dpSMt1
ZBQfYqHYAGk3zki8zm4SNZJjIYPp+6LhD/E6b0VWwBwTTTnNFAvF0HCCI0NI
u46JXn85b/ckFvfvNV8ttftMdMKieaXUUxpMu1cMnd7FRPXPFU/dfUZD/cWS
9G4BBvovL9zaEg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#33"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdVAs0VdkbRxpS3o+6RJgYSlGUSD5FJek1KlcqBukhoZSmFwqVyhhUJvJM
SgrFjcR3z8nEeKdESNK995zSyDOvuP89/7PWWWd96/d9+/fYex89r4Bf90lJ
SEhkk/e/r9M+9hX/8w7bmHkzh8ViMUjbawZ+4FiAdWTXrjOTYjBPTUx+wnEA
KZtdvSPjYthY1/L4Nmc7+FeuTPk6LAZXn5GyOI4PNL+u0qvtEcN704v21zjB
cDFVv8S7RQxp6luiojkRkFuwzXr4oRjCZZ/8cpmTAJlLf07J4IqB65ae19d/
B2x/ZPKDE6Zgpjh893qdPNj5QLqR1zAJBtt62RdXCuH1hQvLoqUmIaTeChKH
SqDEyjutQ+MHzC5U7pSURChWXnTNzXQCeN32tQ02NMwZbx1rNhoH+tBtLbev
FdAaHewfMncMhg1XKT70r4QWnd/kCzmjIDX2QEnLoBoU6NPWhmPfYbnYk+fy
qBYc6uKrTwiHoTbCov7lggaoeN721LdpCObF9ozd722E1hJJlcbMQegZ+dDZ
bNYEdukc3adRA3DnS2m1Qsxr4KZ4R7Jb+kH2hLokM/EajrsE+wz92wcK2tnf
BII3cN7ExdFUpw+uHizyTZv/Foqld9apTOuF73YPBAdCW+CeTsrXwuQeCF5a
UajxohViErJ/H/L+DB8eVVx5pdcGAeO+7RlSDEwcepNkfKodnsQMmFoUCcBd
w/pZirAdsqIaxjwkBLBwtcyUb2kHyE8GR6QmdsP6DL39BbM7gTE5nDB/VxeE
aHvof9z9Ad4Wny4fTOoAk687ZrZs6gIJL2GiX0ErhP3dt2d/excs1bu/1nlr
M6gq9slWjHeByZMtiZmxb0Aak/J+Tv4Ih2s0vTubG8HPovTdjI3d4PiyRDOj
6x94sMErrfx7N3j29mcZXqXB/P/PJ5jG7dX5os6H4R5NJdGNT+C5WphqIF8M
RS7rpyU4CID/Z8ZlJW4WhDpGphaKBCChnxoQNC0QP4823Q9dIATerS2hS8XX
Ue+9U2tmpBAkym/c/DE7G6PplXk7LgnBLjDMlBOQjQPZJlEyV4TgKV44W/5l
NtJHFSz8YoWgG33J/NSxe+gj2/TH0iQhpKWEae2rvY/3zN3WU/mkvhZvyT2R
i4uj9/M624XQWGnVUPwmH60tIxI4S0VgF5mey+UX4VsvzvLbFiIIS+bOivpU
hMdiHrXoWoogLYGKS/qJh7nCVk0jGxHwM7LizjnzUCdhUfrydSJQ0smldVt4
KNX/9qHLLhHESukVP2WeYk2OceW18wR/7B3/y3AJHnhbfkA5kqzf6eytqv4M
paW2y12/KIK+nZzT3RbP0Nbt3KbkqyLwvDNEGwc/w3yZ169zbhA8W8PFtf8Z
Jvic6arMIbVC6nxJUSnu1mkYk3wtgq0ek9wJXhkqcI4WlTYTPrl/7Wyay5BS
VQ863kr6lc1jfx0sw6CDrrPXtImAswclp8uUo+EMd5Z9L4LGkPKOycXl+G1Q
9LaBJf5kQpQd7pTj+X+mntyeEkG+4UimaRSiRUV6gKskA31WWnOvpyMy5Q4L
laUZMNu2crjqOaJzYXRGxAwGtgbmFv81gKieqvGnnxoDjVX9y9lFfLwXvPiI
1QIGqm5tG5WJ4+OugFfGgyYM2OmuTpuZwkf5Q8HCXFMG5jyOTO+/z8ejHs92
6y4jfEOB1t4UH1c6rdsoY8dAoP5NpaZePvY6fP6JWkPmvVU73o/xMQ2u0qfW
knnf5tYqaQqllzVZ9TqRfrf96daaFNbP22vUvIOBLo/8/WH2FIZpSgpiuAxw
Sx5UndxEobn6nVRHdwYcZyqFO7tSmCj3ReO5JwMnmXXVFw5R6DV8fHqmH/Hn
czJF7w8K1frmULuPMGBUvOaJ4CaFlV9Kz2gEMcDPN3A9l0ahSZfk0OUTBB8N
/GNpAYXD1de6A8MZkNVW945upLBjZvOBHxdIHrd9maAWCmnnud8uRjGwwkxz
llknhbH1ORMpVxi4ZJnqvqiHwhOKA+ELYkjef+2T8+uncM9WK1leLOF73ud5
ZoTCBU2VanXXGWDpo5Ua02hUUlVM4iYSfxqqv6TI0jjislNPcIvw2+jWDcvT
WNEsWDSRykCrsMVSZQ6NORomhVEZDPlfzZdvnkvjn67HrFWyGCj+uHaDjx6N
e99JrjfO+c+PacEnYxodNDfUFeYyoHvuVdqrRTQudI91scsj/Z86z15cQqNK
csu7mgKif+O4vPQyGkc7dDxdCwmev1Vu3QoaO7V9Rd08BhK1hDrOK2n8e+/D
w0dKiN6D9Z/VbGnMTR0aGCslfg76jqfY0RjXtfL3yHIGRgcONLJraDypd0Gs
RJE8PCXb+xxo9PCqjkx+QearK0KK1tG4LlN5ltFLBjxn3ey3cKTRRMCNe1JF
+I+dDPXfQPQZpM2BGoIXWdnvcaJxbB+TUl1H9vuEqqPURhq77i422NlI8vLQ
Cd9F6pfM8QcfmwjudK/Sm9S5RmVL/JvJ+S7yeqdF6viD0sWjLUTvdN+dYWS9
UzkbbSPaGEjLlsYYwufZE1eh+J7sr+uBIAeiZ51Jm1PSB3J+5QfvphC9i/z1
Xhl2E/1au4NuET9qjw64PhYwECYIe2pB/I735r1fxZD7sPnDkkNA9JmOeP/z
mfCde+RraUNjZaDtl+1fCR5/KSuR5PuoIDKwq5cBicHrUtEWNCYM1H736yd8
ckbbZMxoPG2udnZkkOhze6Q9ayGNXsHu0y58J/tJfb0bb0CjY1HGZYUxkm/E
jreJ82g0/f5Z8dYE0dfmbanBoVHDcskNgylyflXq/p2uQuOPkJNzCyRYcl92
5PwmR+OnYsywmcbC6BLFFH0pGqvHfjKums4C1zrfb/UYhfnWm/NcZAl+tVCD
943Cm6evL/sgx0J+Qf23ECGFPpM/r/muyEIjt9TneT2FTrZ+VeEqLGxtmmlv
TFO4JPTxZnl1FgL5krFPCymcwx97kzibBd1jz/zd7lI4JbHafb4m6Z8MDhbf
oFCw+tLHvLkEL9tzNDGKwprzDftXzmOh1XWFtvJxct+l9wb/Op+FKuMjZ9Zv
JvPes5e9MmSh2CP2PlgRPS8ah7cYs3Cvfc725/oUVutH8+oXsmC3JFbxlhyF
ZuftQzYtJvjvdify+vh44+MPy1ozFjyPqmXVvOHjDzveqJM5C4kyvMWFPD5W
iY1OOa5gge3hF5cf5eNij27rSmvCp5qsNNeZjwnlSRNrV7EgEfr44UM9Po5r
73heASzw9YL8jwkRPc8qnLVfQ/ytLVh74Qziy47KVbQD4TN1Ts+fjmhiEz5l
t56FPlORVtqZcoxLskbcQPL0Cl42o60MR8YHQ22dif4W+RndimW4e9dDu7LN
LJgJBrRrxkuRLvGVtNnGQtqmw/EBeSV4eSqg353Ufd35Uz0rSvB/Y8N/Pw==

        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#34"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdlQk01Psbxpm6km6WsjSlKEWFsrXZntJCo/51SZaklCKixdZ2Q6ESNbfc
ji6zMJF9X7IkTIh0ibKUNGQmGXvJbu63/5zzO3Oe83ze532/3/P+zm/liXNW
pyhiYmL3yPPrn3aq523ZNxtTusqCUZFIhLk7l57/TDVAnG2Rx7UZEfRZUTE5
1F047lCmOz4pguWblmwG9RDGWG9T+kdFsHUZe/6A6oJT+xTtGoQifNp4a2cE
1QdXDSb/8mkRga1wIDSMGgxj3X1RW9NFCJLM0bhDjcSS28KyDHsR7OxjM4aG
n0D2yZ9HRFGzWCAKcjRfkQFVZyfNp20zWPPHQA/3bi5uKenVpyyegf+/2xD1
oxC051zll7rTUMqV6xAXf4F7frUjC2ymkN+1s67euAKyh99dbDwyiQp3xjL7
vpeQ7Tsm0350AqPqJjJpntUYjDpZcPPMOCgTKbLL1tRiyEE3zNV+DJtFx/Ot
0+swK7Y0N8rmJ+qCDf6tWl+PPC//b85Wo1ChCyeSBhpQ9LNjpdKmHxCOfe54
r9MItvlvqVJrv+NJb3Gt9L0mvCk7UGZPGYGkn4L416kmqHc/bePED0N6+dPB
7u53MJlY/mKGN4TwM3mn2aubkWk+UqifMIif21O63QJasFYxt4ru1A8fvZe5
itxWHCpuO6W9Q4jP6S/vvl35AZ4/hlPFpnsw5f4uet2Vj/iuwGtMeSXAEUXD
Iib/I8YlUzvuLhNAc8e82dPF7TCRW6ymwu2GedxK1yylDsRbiIfSYrrgv/zY
qk7Hz9jkt+ifVfE8aPXZLGjZz0PJIu1E51ufEFg5dNT1Iw/TOY8CYyw+YLHM
kOTLSR6ecVco0OltmPsiOkMtphPGiTdrPk6/h4dBcdt8yy7s6j0gPWTWiJS9
J9ilP7vQyjmZVh3xBvr//33BPH3/Mm/j1xgVLpUVPPqC28PRrpNnqpFnbT4n
clc3Mrt4160MyxFgEcLKFXTjoN7Vx1yJZ2h0cnPU+dYNtpzG7FVeAVb7WlJT
hd0Ymi2RsCwqQG2s3EPOUDd05JPuaHsVQH6KEfpgkvBHE5UkW/KRmJbveV6a
j/Oa2nV6aXnoHW9MCljPR8jDKckehVw0LOox0trMR9nX36R9zuZg1brX40+3
8qFq4BZP25sDX6TnqRkRf16ymIl6Dpae9dm4bDsfgRdV63152XCpFFOTovFB
z4oONzmcjXF/qlTPUT6OW3RtO2yehZWfaK2cED7EIisKKm+kI6zCKMPmNh/s
PfJaM6bpGHmqFTrvLsn33nzozlQaKi5KG3jQ+eCd8NPi+KbBRbLxvl404U3N
+kc9U5Gob29enkn4jgsbB88lQ5ZKW+GdQ/jquqtdusm4PGs4ujqf6IfW5w1/
JIFWo8y5XUz6/3ixbPmVJAideLMHqsh8we4PG8ISsSHMNb/jI8nXrRRXK0/A
o3N2EfQOPrbbByWJhSVAdGivi1knuY8Y1gd76wQ0qGguShCQ/M5pYcjXeFzI
G/D0HCb8kWuyEwrxyOX5rpmWEIDnUuWlHMGBctXp6bT5ApR1FeVznDgISbFt
Ova7AIH8iNAaHQ4O+20L4soJINby55zp5jiMLZhpD1MWgM1kFR7UjMPx4f4c
YxUBtotTRlUocXjV3BE2sJLUDxp+TWiLRVRs2VYrDcI/Vi3qDYuF4ZbgSKqe
AKrG0fcLf7LRfIK6mWEgwHGVqE6JZja876W3qG4h/GwERS6fjVR+69K1xkS7
vRV6XGLDQs6rJMWUzC+1b0ulAxt84zlOG3eQfg7Zjn0mbKyI1I7dvIech16/
sUCCjaIXFWZFFsQfuJ5b08qCrdC228SSnOfzyZKeeBboZjc0dh8kvNUXLnM3
C1peSjWvrAi/3s5v/xIWah6nuu+zIf4mmtVgHxOU4eY0awdyXnvJbWYxTDCV
zx5ocSS830SpjD8TRhbiww7HSP4p6rX5h5ho9X70oMOZ+BeuhEKfCR+WpsEJ
F+KPbKmtkGdC9nXZe/5pkp/iS40fZyDtp43/mTPE1xoxmehggLZKuKTfg9QX
HP29qZoBwf7AovNexK9Ov2yew8CNywqOP86TeUrzss/GMqASnzzj7018rtFm
hwcMlDSANeVL6kvnjqwNZcBu+t32gEuEn7fs5PdrDIxquHdRrhLeq73wvR8D
D6xFN0P/JLyYDWXAm4ENAZFrpAIJ3x7+h6MPA6+T11VH3CDz+oaPm11iwK25
1E0uhPhuoudVAQzMpRyS+vsWyasNU5G5y0Cs9reUJWFEK6rF7PmHAVP76/tj
wkm95IhkdBoDH4IXD6rcJ7owa8SkkgH/zEQ65y/SP7Nu4alOBuTbTfQ0Ikn+
cuozGoWJzHlNTcmPCK+ZeX/DWib26bv5bnj8635N1A5bM/HNaUYxO5roKJPy
hcFMhIY9eLaJSeo75D2TiphYla/hUMgmmltHCR1jorSzZMqYQ+ZLaIiUMmLh
yEIrRlk88b3cFyWHsDC+9avprkTS750rjd/CQqTLNV51MvHX8LLUqWzo0OVu
WKaRfc6K8OfS2HhTnKBWn0H2Oe4aTz2IDfevRpVW2aQ+47KwpIQNicVvTzfn
/tof1SbKLBtxpqclHQrIPgfXa9/dHQu4TyV9KiT7vve7+5zIWLT/Tbd0LiH+
yJ49Rr2xuFS+pr+7lOQHuats3BsH+f6ie27lv97X0nzF7DhkLTmo08cl9c7q
zVfUOfjfLv7bc1XErw23PZzIQe+5K97fyXdJ1Umrnmb4BKHRMgr+r8l8O3Ps
Jz4/gVr1k/zJNyTfOPAyhxmPspFtdtcbiBaue+5xPQGOK+onxJvIfQVZsHQj
nkKaejGv+D3Rs8bq+ZJJKF+scMG3leS7HhVuME/BUkbrmOEHMn99+IIZiQz8
B5W4dxA=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#35"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwdkwk4lWkbx1UqIZEsR5Y0ZOjUlEylL/71yT62aVPZaiSakSUNWj40pYXU
GGUPpSlSyDKiRBhy3rNwcBQdy3nPQaQj2Z3OvPM91/Vcz/W//vf93L/nvq9H
/1jQj8cXysjIhFP739Ph+GBLzdB+y0Q9hQmpVApZK63gHpoZ6JKzkeclUmzJ
Sskooe3BzHyt//SsFI5M3rNM2j7cW9FxZXRCioO+Uy8Tab5QzljTxB2W4v13
V6xu0MJgMd/rdpEnRbaaS+x12iWUqxonBT2VIkauxOgaLQldjp5n4g5L4X4o
p1A8lgu6Yfu2soyvUJDGeNjqFmKXe15WU58Ehm6jg3VxpQieDmwq05cgnGWO
lC/PUd5tN/fedh4apSr8BQtewW7moCItbA7l/VYEe+drpDWc5E9ensXrk5mr
D43U47/yS8x0k2Ywsc5ixZPARjiYR6nJFExj4cxj5dWGzchfw5NO5U1hq9Sn
fO9TAuXKbGNRySSIS2asv03YOM6TXr9RPQG9W8MzeaMcrO28+ehO0RcMT/Xw
2ze14pYJbCeLx5H7oapZKYGLT74/GJDpnyH3q9qCgTkuEjV/rFfc8xlKOg8/
kWQbzp775knltTHEB5T5ZRt0gL526wvimhiTux6T/lE85L8xkt4bGkWYaX2p
el0nOJ/Vve0HRtDztD6uRf8d1icFVj6s/oC5k23pxme74K05kpj55yCOqO+o
vCvsguIv2tatCwaxfvfSr35V3Sgs9zoy/VwE23v6J4o1+OC5fZ9S9YREuI73
2j6PHgyFK4e6svtBH9mvwHPqhbytrELokj5EN4g9T3T1woNp6BA1x4fqCrFc
/Wwvun+7cjjaiQ/ZV+mF32T0QTF01vj82Dv8bFb1dpljP2q8pv/in+Phsf2x
7OrJfpBqIVPhbm0wo+tbYqYfSRN0lw02bahW6u16NdcPj467QtGONnC4nhq1
MgLsyi4g/Qza8MXzUEKdvAB2FUNNaVNcWIa6nm/SFaBTV8Wed5eLLf9fAjRl
Ga2k2XDBSbN0b7URYP4nxUK2uBUTw1rKojsCKL5ZpxuQ24KkzIHGjFQBek0e
Bd1IbcEWl9KovRkCiCtCDZ4ntCDkmdOnmhwBOEfNJ9dFtuBjRDQrvUAA14RL
Ek/nFggXi+LdXgvQVs3LspvloF2veNnLjwJsdz36MtWdg7CWC7WnxQLsHOi6
yHLmQPU3h0iTcQHcGy/sXm7NgZtIMJg8LUCw+QutvM0cMAvUm0IXkbjltvW0
pwIHDebnY7+lkahgJrrmxbBRttd2UdIeyn+/3lXlJAtXHSsua9uS8BcOWGUc
ZsHDyljugT2Jb7Xm43Y7srBwi8LycmcS0xdiC7rpLDivZKt3upPoXZ/81meM
iUHOARPtQCo/58SaZdFMVDU1FuQGkZDr/+QaFMpEQs327zaEkvCJFT2b8mXC
rEjLzDKcROeli2khDkzE3ORb+MSQSPGzoOtoMKHl7OeWe5uEeHPN/UUVBD5a
87j0FIr3durvAwUEaizsDpSlUXwPft86l0PAb4PJkb+zSLiWBR0ujydQojjq
O5hH3d9+c0W2L4FYWe+B4AISHK+QQMMjBA7PswNmnlI8V+fChW4EZEaKT8mX
UvxrEvy1dxH4gXEmgl5N4qpn+9s0PQJ6daLZ0hoSg98/tDTRJPC58uAFizoS
25/FPpFVIZCab37RuYni3bjb7sEiAr/cy5flNVPvydfYFCJhYFfa6iveTCpf
V5LzxxQDomuSuOBWqn67TsfQCAPPY04pzbSRCD79YrnhIAPxkT23YngkHtHX
NTYIGPAOcVWVf0fFF6pGcHoYMA2ovZ3YTSLbU11s383A4qOmmqt7SKy5yT+2
7S0Dne730+73/cu/MuxuBwMFrqt06CTFt3Wh9eU2BqLsLmeViij+krRLn1sZ
aPXy99g0RELm+scdYy0MGJxxpBUMU/1KEZREUTo8bmOH0SjlPyr6z5+Ubs5R
+eO+mPKrlGcDqXztii8ueuMkIrwTVPu4DASxeIrpE5Q/mtgiT9V/TVa+UZ8m
4W6zlDvVycCquczYxFkqvpFvW07x+6nEWClJSNjtL91xoI/qh5GvzHUpNU+n
+pEhEQOKlrYvFy8UQi7A1CH2IwNe+0zOxsgK4aM//j+rCQaKTi7fJlkiRIW1
U4XFVwYWxYjHI5YJIXY5Y3BHjsCBZG7RFwUhiiwuO4StIvDoSXlgsJIQMpEu
gqVrCczWpZqMKAsxuDH6dNxmAk7vzg+cUKW0ZaSKnRWBbLF3rkBNiODiAKX0
g9T8l1gd9dak6jl1s7+eIrBHZ51ul5YQnfz9XrTrBJK3LOs6oCNEis3Po+15
BD7YjyS36lH81bKZt9kEdvqw9zmvpXRc/lCyhEDCr89Umg2E6I36Oiy7nYm+
+NssayMh/BsSjp27Sv2X+xFxtcZCZDsqR5tqsFDvX3zWx4TSRRPO9YEs/APG
xtqg
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#36"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3s01fkWJ9yOFPKIQxiEyqFWyVQeH68ScpPHIERKoge3zJSrx9G4zZRn
MsbyygkxGUQxyRglIxmJUqrveTi/n+l6h7zTOfd3/9hrr8/a67P357PX3obh
Md4Ry2RkZI4x8f/sHjHY82jIzz7TQGlGKpVC3lknVsS2wpn+j0nnv0ix9WZO
/j22C+40Z2XPL0rh8byvtoDtC/9DBvg4I4X/kbmmTPYR5HIcSt+MSCHY9INz
KjsOfRmb2lL7pCjS3HflGjsJEqNH4QVVUiSy7pldZWehIcH+ilOQFAGBvOqJ
yRIUzrx1eH5TAiVpYrCrfjVsQp5vyxz8ApP944NPku/jWv61ktMWX3C2awdy
phvQdvllRviBJWjdXy2UlW1GlvetnyzSPqOecu58YduClvIz2879soiW6ALd
wNFWtHevy/3yeAEzpnYqlSefwrr3XXT0wDyWLVSo6pp04JRBHps3PgdraVi9
T1UnuF26eUXyc+hMsupq2/gCgu0pyT/rzsIgY2Thl/Fu2K9oTj+qO4OROZHw
9eaXuKMW7zS0YRolw40dymmvcHBcbsrN6BNY32nK/vfzK0ycaPdhvZiCsl7Z
x4GBXiwkLP8Qoz+FlKi6o0Xr3mBXVITMkPkkZh0qBo5d6sPgSOD2iyYTiNvS
en/Nk7ew7Bv0Eh0eh6iqNbnH8D3iJ1N5VMAoPkf35m34N8ETQWHq7oPDCFqz
82Hh3wQxDdqpgpYhmDsulxxt5MO8KHCkKnUQrrcMI2u0hFDau2+dGu8DzuqF
GomDRagLinc1owbAGfVT6vPsh07Cktt+GxrcPydCIkk/wnne1uS1GOoqE6zW
xX4c4AXq3LkihnxzXrVxvhgdW5rEwUr9eG/rskdUKIZl8cbv7RT6Uf1wtD+X
J0Z5qfsOJ4kIB+rt1NTKxAhz17tF/S1CTaUoTqZWDA6Mxk7UiXAw33in4KkY
reVnMu/5ifAgvqI1+5MYvRqXOefyhEib8wnxnhXj7pT0J40MIQ5/uzSzakGM
+yeSFBqShFD+l6fZfyRicMeGvHROCRFx7OPVM4oUHqn6cBwdhVDz37rPy4DC
9qmR/dZDAhy3anyn6EGhU9Iul+UgwKPu178+8KRwrOdu78/WAmienLgU6UUh
K93lmzKOAM2lJqZ/+lFYWWFuOqwtgLpWxmluGIV1y4Th8lN8NC4cUZr7loLV
+r/GGm/zoZp9SVh6jsKPEb+N3ijgI2JLbo1vAoV2BVP3hCw+VI6/8K/lUrDd
qecff5mPw/wdJSeTKXBdDPk2oXwoNSvbDRQx+hUq1m9ay0dY0AbVG8UUVJuy
z63X4KNuzpl2vM3MOxtW+fVKPkI3x1+9WUFh2uCiVu4SwT0e/fpAPYNrN/Zw
hQQse0m5YgPD13dbZtNHEPJe+/yDRgr5up7XVbsJlqv/02jNY2YfyVNOq1sI
gpIenOr5i8JSSo5jUhnB3a9eOXK7KOxJd46y4hEoNI1pbOqhEJvoFsXKI6ie
MWpMeUMhQKYzxzCdQD7TLs3mHeOn3pIfdZUg0DLg0DChEJypZ8L/nkAuMnX5
HjGF32dvu++OJwiQK38/S1MoT97u7hRHUHmzpbL0A4X5Wm5hbAyB/9s5H7lR
Zp9jmiWnjhL8GqdmVjtOoahp2MAlnEB2tcVi2CSFtWPJ2f4HCSrcwov+mKXA
iq654OpPYMUxtMcChb0VZcmhvgR/KPeT5s8UerUVt/2+n8B1sjDeQUJh0FYq
PbSPoPtViNZjGRolMZ5Lfp6M/vq1dY5yNGy535ECDwIqh3i3KNAIu8RTdnAn
OJ6QO+HEopEyLzvq7EYwHRKY9mQF80cG1sKaPQQXHLQ5LqtoFKko824w+B/G
fc9aVWjkfFOTMc3gDIXsyF1qNOK+Oq5GMXz2oK9CmwYN1R51oxPMvFsd6sW7
tWjsVVTTvM3o4VS+dHjKZuoe7KoyL4K69OtC17U0XCQPq9IYf/anvc6369OY
d1uxLTGQ4Kmvio6bIY3+hMy4mlACr6+7fntmTOPuqovU4UiCd+xUP3dTGud5
u00XYwnClzw+daynEZz8YRfrAsGIcMV1D3OmHzH+dDmFIO7xM8tOC8bfymrX
Hcw9SIp/7Ny7mcHFi+VpzQQ/XHGNfr6FRq+E8jCTEPjMTCRabGX4MW0bY/X5
+B9Zo0xT
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#37"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVk3k01Wkcxt2mxYySCF1qRFNjC0mhMR7cjBIzJZKyJa6lhDI6NGgx1tKI
meGQsnSbRrlDVyIiSxnHlpQR3ftm/K41S2Urtzvv/PGe93zP+Z7n+TzPe15N
nxAnv0UyMjJO9Px/2/sNPa0ddrG8oiE3LZVKsZijFipim8AtTpD6k0SKrdcy
c+6yd0K+gFc990GKPa3dpVfZztCP9uudmJbC1Xe2+grbF5Vazio9o1K8Mkzg
XGKHw0PdI/n3bimuK/8Qn8yOQ5RSTlhDsRTnZO9+ncTOwPonvELhYSkOuuXx
J6cKkeg4sjks/xPkpOfc7b7kI/6OsNxzXIKN+8aH6lMEiDDhl0ebSnC6zRyZ
7yuwXjv/ACdoAaqCVUIWqwb5JalrMws/4l4/p6Xdog6ZZQEPVzd9QF3QVXW3
sQbEtA0bFA/PY3rTtyvvBD/BYqHqkkDleSyaL1JQ39iMh2dfzyTozmG71Pve
/uIWhBctlPjumUVLnEnbY912DJX0mF0JnoHGL6Pzt8Y7ENBqU8qOmsborEj4
3KgTxMN2ZjLjPQpHHjTLpz6D719Zgxuy30E2Qpk1+PEZ4mI6fbwc3kF+3c2J
gYEuNKZE7HO48RYXA8u41796AU915VbL2inMWBUNBMR2w5Y1dfl90yTCjRsE
KvX/oNbGoNG6aQKi4oaUp5ovkbT5bPpy0Rt8DOrK1onqRYhcsOkx2TEcVtlR
mcv0Qj7wkUJ65Cj0rJd94j7oQ6Cqyg5fjxHY5Wv6l6gK0a4Rdl4mbwin13lp
vXYXgdN3OTd57SB89hod6DsigoPVtlyhyiC+v8BK7uaKMLZp3GrbqkFsGi6Y
ag0VwZgsuzSyZBBdgqHayjgRdHd/pxIxIYaRw0mvjNt0f2ma3pp6MYaifs6x
WxDhRGyfpOW4GCMH9ALyZAi+2PWvdoK/GN6TSos0PiOY1NW3s/URY88GZpua
LEH44mPZra5iaCUlXFVQJNAyXBGswBGjw7nluGQjwcU3cvdPqImhP+Yi1+1I
wDNfpmPcyuC+s0NN8l6C8x2uwUZNDDjVNqcs9xM4+6XBtJ7BoVTD3hsHCbSF
erFeFQySjD4vCj9K9bv2l2vyGKzOknpqcymftxbvWB6D66wZxb4AgrhmE+/a
HKrf2R/FOUGwnjd7IyWdgTi8yl4xkmCEX98hOMfg5KvST41nCPSbh5y9oxlI
bG+VRsYQCC+XGahFUn3V39ReX6CzbsiuB6GUryJkhJ9K/RRc0h97M2jT5OYe
TaN5VMbl5twpb7K7k2oGwUsbBbalG9U/vLsyJosggCUTv9yJ8km0kh0LCaps
W0jPTgb6XLYl6yZBm6593QtrBuVtK98KbhEURp/3m7ZkYGO6lBdwm4AbFBVp
ZkH9ri24reUTzBmWKhSYUz/Zdys6Sgi+HLxzz8yU5gsdfnRBQLA9g0mRmFD/
HtGPpuW0D//soBljms/6hc5oBcEf2s5rdLYwSPyz5VVuFcHbcn5SjiHNq1Sf
5lRD+4+qtnYzoLxnKmyX1hEs92rqDdxMeQf48xUNBL6/OvX06tN+HXj0exIE
NQr6a+nMKcs5otlM/R8XPDOi+23r0pWft9D3+mbEwZHqHYpP+juxncCTsQvf
ZUR5x2OjLToJEiP6LU5tZRDmGrFlsosgt9xF6YgZg4Wa40xBNwFJ8vX3sKK8
2kezXF/SvjoP9djvZVDBnS/Z3UugaB5TFe7F4D9JYZ2O
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#38"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwVzn1Qy3EABvCWdynJ64atiMo5b6XjznpKUcelE/NyKqG85G1I4jhkV3rR
VXMaQiVvV9ahFpcxWnGTWjXC97Qwpeb3a7OtWlM/88dzz33+ee7x2Hk4Mt7R
wcFhsT3/e038ryZFlyBAzHOyMAyD4cEcoZbtB87z8PzTgwx8b0kKnrBDoO8e
294/wGDt+9bHN9gboYi2xBksDDbH9cnz2HFw5easIHoGXxemBV9iJ0K+Z+ns
wlYGhZMjUjPYIrztUrZ0SBmcH/3EK519GXMTwzl7oxhs2VpUbjCWoMDwRa0s
GYITcz4qlFuO1vRjBadNg5iznv5Vk1kB4W1uUkzgIE40LIfE/AxqXvlNQfJf
TK2Y0MZivQR3f8NL0VMbZN+D6xtXvEahb5h3/I8BvE64MX3rbyWULGlUkPMA
LHP54x8efANFcV1VRpAVjtZS1+lzVLhcKSpqju2HPxMr2yCtx5CwU9Kb2Yd6
kV9D3bxGXDBO8DM+7QUvR299QKuhFm+/wmq2QN+nbfuwqBluAcnSLVYzSrqr
VS7ZLeDf9ze7uZgxOmkyq9PWArd8p7KVShNcZt7r0ek0kB1wKH3kZULWvsrd
hZ4fofOpoZIj/6A3sFS392wrftYGZeQfMiJxibJiSs0nSMVvhofdMkArVWY2
eXxBWmqI4VxeD2wJmus+pwjEm/P4Gk8aG/2jcxecJfCWS2ZcdadRxupI9RUR
VByvtAhn0IiR9B3hZxOMpNtPbJ9Eo2rXuT0rxQQzhR35J11puC4cEx0qIbgr
oGQPx9F4VcsJW19MoL14fN2hETQ4ubf5m+4R1O8M8mE50jgaNd93WxnBldAm
5+ohCu+8Kr1jHxGMitRNLbJR8DTxufEygkUu00qe9VM486JuYkI1wYXSb6px
vRQ+pkeMOawgMASqeXdMFBYIPg0dqyVQxczqzjFSSHPfYU5WEXhEFIfoeii0
67u6zjQSbApIcpfTFJZVHdWmaOw+yZevtTs3xaZJ+0zAe2+Vd9rdHS5SZbUR
rF6VslRg3wtmOytyfxA8CJgnO2D/I0n4Wi3+SbAuO9F8bRiNf/PKoCc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#39"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAASmXo0cDpVT6THwv1////PwRDGnDf
GTQ/S/9Zn3z9/z8zn5icsxlEP+pqOwD5+v8/S83Xsp0ZVD9wPrbl8PX/P1dk
972SGWQ/fgaRP93r/z/dL4dDjRl0P4cZLi+o1/8/oBVPhooZhD9KQDYDB6//
P4EIsyeJGZQ/Svd/0ehc/z9YWaGv8PGkP1KjfWrzpv4/C/+BXEcerz95MdQN
TPj9PyVR7ujDi7Q/hr4CXr5I/T93zjk/mPS5P45CCHqshfw/F7QR3gEBvz9H
V7ylhMv7P7biQ8zPPMI/jDqHA6f9+j/Cap0bWezEP35IzK3LL/o/9SY9D61t
xz9IJ/JB42z5PwL5qxAbJco/+iTdp/6W+D82/2C2U67MP3Lc2TSezfc/zIQ0
zsYqzz+eGJAsdAf3Px+Q6/mp7tA/BOE+7/Yw9j/r99/e1TDSPwh65lWMa/U/
pOq7yg6O0z/pGv0IRqD0P26XTyNqk9M/SADtOWid9D83RON7xZjTP0YuggqP
mvQ/yp0KLXyj0z8lGLQM7JT0P/FQWY/puNM/PD2HxPGJ9D8+t/ZTxOPTP3sg
nhoodvQ/CGSKrB/p0z8Rxqb7HXT0P9IQHgV77tM/9cWZHU5y9D+cvbFd1vPT
P/yg5bfgcPQ/ZWpFtjH50z8SG1EQX3D0P85Aj2Lf+9M/MeaLVEhy9D8HTgmJ

        "]]},
      Annotation[#, "Charting`Private`Tag$2800523#40"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{{2.040816326530612*^-8, 1.999999959183673}, {
        0.000015355283783083483`, 1.9999692891966492`}}]},
      Annotation[#, 
       "Charting`Private`Tag$2800523#41"]& ]}, {}, {}}, {{}, {{{}, {}, 
      {GrayLevel[0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6],
        LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA2e2/xSWf7D9Q6S8378bzvyMUy3KY
n+w/Mu3+6iPC87/Q+IOf4aDsP73Pfr/Gs/O/kc1x9dWi7D9gUg2d5Zvzv6Wv
MBMxpew/ZVA+25Z6879nykicmqfsP4UA9Br4T/O/22ZGGqyp7D/UdJvbLBzz
v8gUq+L2quw/cRhR71zf8r8jCdhfCavsPwuraO6ymfK/1H2bWXOp7D/zIozD
WkvyvyW3zBfJpew/r4/RYID08b9+phlppZ/sP8tMy6VOlfG/HiRWtaqW7D8w
59937i3xv3kQE0+Diuw/EVWPCYa+8L9/ucQ44XrsPyK1jUo4R/C/JF5bi31n
7D/DSr/ySJDvv1uV6KIXUOw/2hLgncuC7r+ouFksdDTsP0+g/nkmZu2/np7S
JlwU7D+E6/1xfjrsv5E7U+Sb7+s/6jBiG+//6r9w5BMQAsbrP9wfMV2Ktum/
DNYtvV6X6z/zPawRWF7ov0wyaX2CY+s/WdTgmlX35r/YhRd+PSrrPz0eYWJ1
geW/X8Vzp17r6j+/YmA8nvzjv4c127mypuo/VFfUpapo4r8bwCNjA1zqP1Zh
GNRnxeC//0MvRRYL6j+EVX4VKSXev9a0dOWrs+k/DlIxU7+f2r+UtV57flXp
P30YZsLM+da/NM7WkEDw6D883LztYzLTv4sNyWSbg+g/VNeO59OQzr+JwGT6
LA/oP0w9EgUfdca//eOkuIWS5z+SO5LUHx28v1HnIHMlDec/4t6iz+9lpb/k
tYOld37mPwyHbYCxc50/w+xck87l5T/CqhrU6Ry6PzRpV9lcQuU/oRkRzLbM
xj/qgIrCLJPkP379Fd9feNA/tEbbVBTX4z8kPURa4MHVP79wfGSkDOM/70u7
vY9I2z8q9JrdDzLiP0RxoU3PieA/VoCQWAZF4T+kZ7DEKJbjP8t3c+N4QuA/
sGPDg3fP5j+rQbMjbkzeP1dft20mPuo/OijliXvU2z94KSa8S+7tP5nvGBS2
Ctk/wP0fqTH58D91/UsyR9DVP5yIa6qzNPM/eapfX07p0T90wxktt8f1P7/6
+a7Zd8k/3KLzxVf/+D8AAAAAAAAAAAAAAAAAAABAsfO6FQ==
        "]]}}, {
      {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
       GeometricTransformationBox[InsetBox[
         StyleBox["\<\"\[FilledCircle]\"\>",
          StripOnInput->False,
          FontSize->Medium], {0., 0.}], CompressedData["
1:eJwBRQO6/CFib1JlAwAAADMAAAABAAAAAgAAANntv8Uln+w/UOkvN+/G878j
FMtymJ/sPzLt/uojwvO/0PiDn+Gg7D+9z36/xrPzv5HNcfXVouw/YFINneWb
87+lrzATMaXsP2VQPtuWevO/Z8pInJqn7D+FAPQa+E/zv9tmRhqsqew/1HSb
2ywc87/IFKvi9qrsP3EYUe9c3/K/IwnYXwmr7D8Lq2juspnyv9R9m1lzqew/
8yKMw1pL8r8lt8wXyaXsP6+P0WCA9PG/fqYZaaWf7D/LTMulTpXxvx4kVrWq
luw/MOffd+4t8b95EBNPg4rsPxFVjwmGvvC/f7nEOOF67D8itY1KOEfwvyRe
W4t9Z+w/w0q/8kiQ779bleiiF1DsP9oS4J3Lgu6/qLhZLHQ07D9PoP55Jmbt
v56e0iZcFOw/hOv9cX467L+RO1Pkm+/rP+owYhvv/+q/cOQTEALG6z/cHzFd
irbpvwzWLb1el+s/8z2sEVhe6L9MMml9gmPrP1nU4JpV9+a/2IUXfj0q6z89
HmFidYHlv1/Fc6de6+o/v2JgPJ7847+HNdu5sqbqP1RX1KWqaOK/G8AjYwNc
6j9WYRjUZ8Xgv/9DL0UWC+o/hFV+FSkl3r/WtHTlq7PpPw5SMVO/n9q/lLVe
e35V6T99GGbCzPnWvzTO1pBA8Og/PNy87WMy07+LDclkm4PoP1TXjufTkM6/
icBk+iwP6D9MPRIFH3XGv/3jpLiFkuc/kjuS1B8dvL9R5yBzJQ3nP+Leos/v
ZaW/5LWDpXd+5j8Mh22AsXOdP8PsXJPO5eU/wqoa1Okcuj80aVfZXELlP6EZ
Ecy2zMY/6oCKwiyT5D9+/RXfX3jQP7RG21QU1+M/JD1EWuDB1T+/cHxkpAzj
P+9Lu72PSNs/KvSa3Q8y4j9EcaFNz4ngP1aAkFgGReE/pGewxCiW4z/Ld3Pj
eELgP7Bjw4N3z+Y/q0GzI25M3j9XX7dtJj7qPzoo5Yl71Ns/eCkmvEvu7T+Z
7xgUtgrZP8D9H6kx+fA/df1LMkfQ1T+ciGuqszTzP3mqX19O6dE/dMMZLbfH
9T+/+vmu2XfJP9yi88VX//g/AAAAAAAAAAAAAAAAAAAAQL/nuhc=
        
        "]]}, {}}}, {}, {}, {}, {}}, {{}, {{{}, {}, 
      {GrayLevel[0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6],
        LineBox[CompressedData["
1:eJw1UVtIk1EAHkEP2QUUBTVzZCUKRV6CopxfD4Kilro0S1bqxAuE5EjRjIaV
dqOaSAlqVt4esjDLUiv15KaTcDnF2UqXTtecm7u5uVJIzX//vw8Oh3P7bmcv
/zI3ewuLxQrfHNTsQqL+8FGL1E6uebZFz5Y+Rphp3bBP7Fo3o1cuJNIOO+n2
r1hM6m5DBndnvbbOdf4e2YmRU9WldlJbQ+EjKljLvisJrvt9UBTWTR30sxNj
ErXTD4F3koU3Y2PeD2D7qzzzuxobcVM2FXDchmAPeCBJi7MxfF/xRjSWUba8
RIJ5IrEjSIbh+OGW00+WGP4RhOhmis2Hlkjz5mtl0yjcU0TbbvdZGb0xBHx4
GHss2krCnRiHJJbYYiotjL4Ckx7q+uGbZiJxBG0qTCDhxfrVwBwT40eJ8sU1
gfC4kXCdgj9gCOHvtmwYGH8/oWKHXrjfqSezpRThJOyc1+7nLi4wflU4r1DX
pvydJwLKXsEvcPwz+UU3tIz/aRB+RsSzfxpC/4YayamKlta8OSaPGmczvRW5
g2oSQwugPEXoFXxgmsk3i13c0DPk+SSh1HiiOVz3zhHLVr8zeTWIUPWYssLG
CR1Hg2TlI9145QiT/zfiOR5b2UVSwqbs+GtRdaJKwd7Tw/Shxdx0o9yS3UJy
nJjHjjv5ZW+v1IPuRwdxq69C7/cJFJtnmw4NPu6yTpkUdF8LEK55zaSXjOIP
RedYwH5OVJq6fwJ0f3pY4j73imKm4KyHY0CUoOGU/J4adFwDmnPbB4KqNXDa
q1hEe5bkVrF8HnS/RqSmd+UHRhrwTUbBiJLgwJ44swl03yZ8WWO/DF21whnX
04yndy+1dhyxg+7fjEKJz6GuIQecdDwLVI32wdSNFdD/YWVm1sn/2Yyveg==

        "]]}}, {
      {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
       GeometricTransformationBox[InsetBox[
         StyleBox["\<\"\[FilledCircle]\"\>",
          StripOnInput->False,
          FontSize->Medium], {0., 0.}], CompressedData["
1:eJxFUX0slGEAv2r9kT42xobklsrYsny01cr59YeNoXCRsiuc+diaxWKkdVPR
16ozKxtS+fojNSmFCk/uOGsux5wU4rjOuXMf3OuKLXTvva/12549e75+X89e
4SV+2hYOhxNkG5tsYzPnP2J0h46YZRS56twUNl34CIHGNf0+yca6Hp0KEZG1
UKTds2Q+tr0Jyfyd1ZqqjfN3SIsJGS8vpEhlBY0PKOEsuS9Hb9zvgjK3avyg
B0UMsfRON3JcY82CKQv7vgfbX2aa3lZYiMNoXTbPoQ+U131pYqSF5fuC1+Kh
5KKlReIrEEusPnL0R/U3nHq8yPIPwF87lW/yWyT1ttejdYNwjBdvu9W1wOoN
wev9g4ijYQskyI5hSCOIJbzUzOorMeakqu6/YSJSq49NYQTRz9eueKcbWT+j
KJ5fzREdMxC+XfA79P7C3eZ1PevvBya4AefvterIdCFNOAaK98rx7IU51u8E
zilVlfF/ZkkObS/7J3ieKcK86xrW/ySIMDn46V81YX5DhbgEZUNj5gybR4Uz
Ka7KjF4VCWcEUBwvcvE9MMnmm8YufsBp8myM0GoC8QyuuaZL5Cvf2LxqBE90
GFMDhwkTR4240Yfa4dIBNv8vRPGctnLzZIRL2/HUoOx4mZK7p4PtQ4OZyVqF
Oa2BpNsxix23s4reXK4G048WkkZ3pc7jI2g25yYtatwc5a1yGZi+5iBadZlK
KhjEb5rOOof9vNBEVfcImP50MEd+6hSHj8NeD0+P0Jyak4q7KjBx9ajPaO7x
KVfDbq9kHs2p0pv5ilkw/RqQkNSW5R2ix1c5DQMKfL07Ik1GMH0b8XmV+yJg
ZQH2uM4mPLlzsbHlMAWmfxNypW5+bX1W2OkEZkzUUr0J68tg/mOBnTkn/gHn
gK98
        "]]}, {}}}, {}, {}, {}, {}}, {{{{}, {}, 
      TagBox[
       {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
        LineBox[CompressedData["
1:eJwV1Hk4FegaAHC0nSLbTbIla2p0mLSNh94mlazlWAaVuLbLNeFBliZLI1mO
Uow9u+RwwrGvnzgdKiQjyk7WY4svUlzuN3+8z/v8/nxXuX+70xz5eHh4vEj8
k/Udp983zpif1Z9RO73IwWi7jqTHsMQJ2LN+YX6BWCM9MbVU4gJwtSOE/vG4
tGKIr7IxqKONp3PEBu29rKcSZrARl57IJVaky+RuyVrB+SHPrSniDX37BDtl
G+hs8uoaJ+aGdrPt4u3A2CtXZJT4N4dv9U8kHEDryK76AWK2jmRlc6oTLCgn
dfcSqytoF3+VdYG4ymuWXcSpfLb5Stn/hRNqVy63EVPG7mVZKN8CBtcr5xVx
zUhXe7OZBxReeePWQOxx1UH/erwnsNtomRXEg2oPdKIlvCF8Zd04lzgu/UCj
0jUf8GPItKYQ6wsxtBpSb8NmhBfzMXHFQtvJRVl/8NNqqLtD7GZjw3pgFwCG
N8sm3YnlOxaph7LvQLDh6B/2xA+ZoiomyoHQETY2f5n4okxOzoxzENi4VrVq
EgdykoVfmgWD+sVWIVXiE6dUo63iQ8DjVtKYAHGG2JWwSIlQULwhndLyCqM7
7Qlsi5pQGIoc6C0jtrg/wqdw7T7oFw8FZxILrHgG1aaGwe0Iprg/sV93nN+c
bAQcxAmWcsSm9MGKqsYImD4Y+W03MfWC8kqoXSQMebfyLbPJPEsrPWWyo4Br
o2bTSGwS2+dqrPwQztA6VSyIVQ0U8iVbHgKnyuioJjFlm9vUpPMjaC1QSJQh
vlm9WYLMYoC7d6RqrBkjsSMxVMv4xzAf3iboRBxCKT0cIREHTD5ZQZMmjI7q
Pg5necSBvGMPU4W46777TH9LHIxMqWRsvST7s021gHr7L+hpY/xRQMz5Xw61
uysetiv4iK03knpx/ElZehJM/vK51R9hVP6zT/zlz0kwgOtjLxHbeJh+89RM
hmB55xJR4qJ5oWr2dDJ8NNKYeN6AEW06XMv1YipY+EuqtddjlDgYoFO+mQac
Aw+urNRi9Ku0Vc6QeTrs0RPVqyTmWp/eQWGmA2OB8Zcf8cE5f3vmsQzYmBNT
+V6DkbvLKSWegQxg+xkfX67GSNSh6HnumSxgSRqNNFdiZGmVWfRlKQfmPKfZ
EyyMFvvN9mRJ5kIyr0h1AnGYDcXRVCcXApvW9+sRl9q7S1bE5YKiz1FhRglG
gre07985/Qx8yj3WHIoxenXvk/XOu3kgLDaQ08DE6HihyE5pCgPSRItjeJ9j
9Jr6yrZdnQGcxlpORh5GtiV+tYFWDHAbPuYMxNEVwx6jDAbs3HF9KuAZRtON
zP5nRgVArw+a4OZglPZBr+Tn2ELYTt0YfJGJEf9WyHXdg0XA18XP5SSTfrn8
ZqN6qQg2v9LrzYkVu1VtRW4VgdOjLd7xJIzO5vfa99cXQeHs+8HNRIyq8+PL
K6nFELj6afRYAkbzpnN1Bh3FkLGfT84zFiPz5wlvvfaygG5glk+PIvd9456h
kxwLzGwD8nYTj4n+3m55kgVvtjmIh0WSft89/077Bgti/n5qeDcCowjafNcu
JgsWpt33Oj7AqH7jfF+KYSkEPmlekPgTIyWThenmqDIIrOOxlwjASDJIV9M5
swzSEnt2+PljJMzMiNpTWQZabXZ8PX4Y/aCYUk3GyqD4BqLE+GLU2VjpNXSm
HISrGAYb3hgFqIdsrk2UQ6HUKqvcHaMOoX37qOcqgRbtYlzogJFvxy+Q+LUa
LOQDdhYYkvlRyydeU2rAqSBred4Ao5xodfq6dA24+Z6/qk783vDwJ5uLNcCp
FLAt1cPop7f7vJTia+BjZ0cX6xJGwy2Lz1ina+F4xbG9Cecw0n2ZK9geUAfL
k5riKxoYiZeJDPHyImCEzyTvliD/akyn7Z1WE9Tw2fJq9C6jJtenUlZzbIhb
9tZppC+jFWVtIebvLbDWd8+w6uwy4vteICyl9AbWV18bLIwsoVNbthWmL9pg
+qxF4nzwEmoLPdHBOfoOIq99zxSQWkKyMbPf8xc6IY3yYWwt+wua/TY89EG9
C9ZMaMXrql9QDrf2jeDDv+HPQyAurruIBGXyFsfHu0H50NKgtcoCoruUO2Uo
9sCTQbnV3YLzaPVcwfh/gnohQZwhXP12FnkfZ5ftb/4InclaYp8ecdHwC3bU
e7k+iNFLHTh3ZAatu3anHAnoh74DYanFVVPop193bTrVDsCwvjRnP20S6WbJ
OZeID0Hf4GyIZP048pW5KT96fRg+xta15Wl8Rqpz5vy9RiNQdHiHtVP2KPqX
0BcK+8cIjAxfpZm9HEbbUUqRQuoozPG3xAVaDqBGmkCgOnMUpPgPW/v+6Ef/
B2CH8o0=
         "]], LineBox[CompressedData["
1:eJwVzX881HcAx/HzoyHlx9VqkcxRY+ZHKinT22NdfusxMv0YkmWPNJTScs2P
6PSQ/FoZwlSu9MOPS46aB52H2Yw9VszPyo8550bc9+PXOed+rf3xejz/fFlE
nAmM1KTRaB7v+9+0Lc5LUU/HMGcan/3T8Ft+pXfEnRdLArA3sTQCSnr5kmkT
I1HBOB4Qf/3R3i5+/SFPrXymEFuOsRZ22nXwU7zSb/NEQuzQeGgZt9TCtxj2
GeSkTyDMoMw1EbX8vbvZ+ZucRCj/dth09mQCQra8kmn0iJCZUsyPaKiDpDNb
cDb1X1y+MJ4QadqGIu2w+ECrSZiMRt28tu4l1o3Ul2u2TaLYwb6f93EvViWl
Bu2Jm8LRIHMj4cRr0B6FcQX0d3B3LLcOvz6Kc8XcbHrrO5wzD33LVAnQbJuh
axw7jf2WNZeCj4hg7HPuszSDGegbfp/rWjWFIbuuHlbTDLay49h9WWI8KYOV
MEyM+eSdWhv4swjlOhubqcSo5IQ2nhXMo+HYskEXjYL1YFSW98w8DD5oXHNF
i8J00XbxJ0vzaAlx053SpeBYoEiX6C2AsZqp5q2jELJx2Ltv+wJEJwPEfjYU
6m5YeNamLSDWJLojMYhCa0H73V02i7icfjd16DGFKoadl3a2BGsv6vicqKbQ
KUrYJy6UoPhUDF3EpcCQBc6NlEtQ57uHQ3gUSp3PUkPPJRAZd7dp8ikUJw2s
8ZiQwLeMpmvTQ+GgT1GzEEvY8Ox4zgU5BWLU6L1DuQTOw9+CV5QUZv3UVIye
FI7FtuYpNIKMy7E59R9K4Z0k5WasIggVSxOj7aVI3J/bXWJIkOfoUJEcLoXg
1Yv1rZYE9NbblpHtUlRPmpUY+BHU1LYJzMuXkfFzevjIQQL5dqEZ4+kyTgaK
t9YEEDhV0M+7ty5jc1PTE//DBKkDhoxewTIyc7/+PSuCwE53wCl6qwynnG/N
rWYR3Es7YcSolYE5TXv25geCt8HNKd6/ymB+51Ti42SCHEWjR2mfDP16Ljo+
bIK0yITsjhUZDgz3b76WS/A05HzpGc8VMNjrvXQq3v9/tP2janoFKpfEtQMP
CRQ3q3fHaMjxWjz+d0UlQXzVxY+SN8qRd7gu1KOWwPRqUvldphzqTwPPpzcR
7PUXBrA4crwZ/cXlKz7Bl9/dsj/QJEdDvoXKqpXAiFtSkNMnR6xqNqOtnUD2
wP1as54CQ925ZVo9BK9sOH6dLAWeX5V+09NHMKk/ymsuVCDf9bgNZ5DAVsnW
vN2ggO99e94XIwRuj2Y0iqQKbDtWwKKPEXQtvPRd3KSEpqFqn2CcIMRq8Oif
bko0JvzVkTpFsBwsfD6eqUSB3a7cgBmC648zL/XwlIgTlAZZEIK+9kh37pgS
foXaJnNzBNYCg+uudBWs/aJHWxYJglWO7+57qqCt0XsvT0rQ3UEtTl1R4Z96
19PhKwTVzCifiU4Vmk5zHByVBNn+h9g3tqlRaK4vUasJaj9/wTyiUuM/nyVP
Nw==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2800683#1"]& ], {}}, {{}, {}, {}}}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.9999999795918367}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.770355872261179*^9, 3.770355994213119*^9, {3.770356161299719*^9, 
   3.770356183198484*^9}, 3.7703635086693563`*^9, 3.77036373241635*^9, {
   3.7703638637380342`*^9, 3.770363893668839*^9}, 3.770363996094578*^9, {
   3.770364077708891*^9, 3.77036410334166*^9}, 3.770364144615231*^9, {
   3.770364185121153*^9, 3.7703641909484863`*^9}, {3.770364225664957*^9, 
   3.770364228595983*^9}, {3.770364298821583*^9, 3.770364302193626*^9}, {
   3.7703644022898617`*^9, 3.770364406636064*^9}, 3.7703644624180098`*^9, 
   3.77036458594361*^9, 3.7703652055238237`*^9, 3.770367475986598*^9, {
   3.770367594146365*^9, 3.770367638285632*^9}, {3.770367693396255*^9, 
   3.770367730109771*^9}, {3.7703678486080093`*^9, 3.770367900570922*^9}, {
   3.770368166263565*^9, 3.770368185546075*^9}, {3.770368219388887*^9, 
   3.770368262115637*^9}, 3.770368350998098*^9, 3.770368527582162*^9, {
   3.770368582871828*^9, 3.770368597117581*^9}, {3.770368832838286*^9, 
   3.770368856432308*^9}, 3.770369274883645*^9, 3.770369417027514*^9, 
   3.77036958753059*^9, 3.770369628796056*^9, 3.770369714200222*^9, {
   3.770370072564649*^9, 3.7703700927857637`*^9}, 3.77037012939207*^9, {
   3.7703705190643797`*^9, 3.770370542627182*^9}, {3.7703717179747343`*^9, 
   3.770371771521769*^9}, 3.770372073603142*^9, 3.770372435467249*^9, 
   3.770372481111739*^9, {3.77037252674378*^9, 3.770372556988658*^9}, {
   3.770372650478367*^9, 3.7703726535834093`*^9}, 3.7703728267858973`*^9, 
   3.770372886615588*^9, {3.77037454494834*^9, 3.770374607975988*^9}, {
   3.770374640620676*^9, 3.770374685501883*^9}, {3.770374720890595*^9, 
   3.770374760857505*^9}, {3.7703748535041*^9, 3.770375004412045*^9}, 
   3.770384296482171*^9, 3.770384428857444*^9, 3.770384534259406*^9, 
   3.770384577330803*^9},
 CellLabel->
  "Out[1150]=",ExpressionUUID->"5ba3e55f-4f61-4c18-8d02-473f36b9068f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Asymmetric limit parametrization", "Section",
 CellChangeTimes->{{3.770375122553125*^9, 3.7703751247203217`*^9}, {
  3.770375179953327*^9, 
  3.7703751803113403`*^9}},ExpressionUUID->"8e46ec45-1cee-44ac-b2cd-\
b1840387e7c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "l_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "t", " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"2", "l"}], "-", 
        SuperscriptBox["l", "2"], "-", 
        SuperscriptBox["\[Rho]", "2"]}]]}], "+", " ", 
     RowBox[{"2", "u", " ", "t", " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["l", "2"], "+", 
        SuperscriptBox["\[Rho]", "2"]}], 
       RowBox[{"2", "l"}]]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "\[Rule]", "1"}], ",", 
      RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.770375865308197*^9, 3.7703758724529877`*^9}, 
   3.770376060761716*^9, {3.770376128732225*^9, 3.770376144110969*^9}},
 CellLabel->
  "In[1090]:=",ExpressionUUID->"47d0fcd0-2291-407b-91dd-3b63b965f056"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"min", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Minimize", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "l", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "\[Rule]", "1"}], ",", 
            RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "l"}], "]"}], "//",
        "N"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"l", "/.", 
        RowBox[{
        "res", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", 
       
       RowBox[{
       "res", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], 
      "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
      RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.770355348192564*^9, 3.770355411408017*^9}, {
  3.7703554904566393`*^9, 3.7703555593208637`*^9}, {3.770355600629633*^9, 
  3.770355614226286*^9}, {3.770355800639642*^9, 3.7703558217746773`*^9}, {
  3.770355976864441*^9, 3.7703559849572887`*^9}, {3.770371708970953*^9, 
  3.770371709183662*^9}, {3.770371761399919*^9, 3.770371761641489*^9}, {
  3.770374520045517*^9, 3.770374528003614*^9}, {3.770375297883061*^9, 
  3.770375320476803*^9}, {3.77038119829884*^9, 3.7703811991970863`*^9}, {
  3.7703819270243587`*^9, 3.7703819444386873`*^9}, {3.7703824483514843`*^9, 
  3.770382510692024*^9}, {3.77038255519604*^9, 3.770382589743485*^9}, {
  3.770383972001628*^9, 3.7703839801197987`*^9}},
 CellLabel->
  "In[1131]:=",ExpressionUUID->"4ed89e32-1e98-4e9d-a6a8-bedf7a7f8d84"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.552786404500042`", ",", 
     RowBox[{"-", "1.2360679774997898`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5533433317264026`", ",", 
     RowBox[{"-", "1.2348975352786737`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5550040965935858`", ",", 
     RowBox[{"-", "1.2313907127654458`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5577394278194735`", ",", 
     RowBox[{"-", "1.2255607733578913`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5615030004577419`", ",", 
     RowBox[{"-", "1.217429024142825`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5662346897559806`", ",", 
     RowBox[{"-", "1.2070237210137136`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5718643828559101`", ",", 
     RowBox[{"-", "1.1943787172706852`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5783158511980421`", ",", 
     RowBox[{"-", "1.1795319889365854`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5855102837307218`", ",", 
     RowBox[{"-", "1.162524157795533`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5933692276712552`", ",", 
     RowBox[{"-", "1.143397106034339`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6018168308314735`", ",", 
     RowBox[{"-", "1.1221927434898868`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6107813956176547`", ",", 
     RowBox[{"-", "1.0989519573529827`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6201963282015025`", ",", 
     RowBox[{"-", "1.0737137491800683`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6300006003969463`", ",", 
     RowBox[{"-", "1.0465145467217705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6401388469988043`", ",", 
     RowBox[{"-", "1.0173876678703175`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6505612093452224`", ",", 
     RowBox[{"-", "0.9863629094273494`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6612230160657665`", ",", 
     RowBox[{"-", "0.9534662326337541`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6720843706396893`", ",", 
     RowBox[{"-", "0.9187195189197246`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6831096959834174`", ",", 
     RowBox[{"-", "0.8821403719333467`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6942672702821873`", ",", 
     RowBox[{"-", "0.8437419447741638`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7055287759349764`", ",", 
     RowBox[{"-", "0.8035327739862577`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7168688744324857`", ",", 
     RowBox[{"-", "0.7615166039631148`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7282648136339827`", ",", 
     RowBox[{"-", "0.7176921868291506`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7396960696216948`", ",", 
     RowBox[{"-", "0.6720530435058614`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7511440225339152`", ",", 
     RowBox[{"-", "0.6245871714810035`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7625916640576786`", ",", 
     RowBox[{"-", "0.5752766836983293`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7740233332507332`", ",", 
     RowBox[{"-", "0.5240973608479562`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7854244768015948`", ",", 
     RowBox[{"-", "0.471018095960368`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7967814295361697`", ",", 
     RowBox[{"-", "0.41600020527155873`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8080812108002925`", ",", 
     RowBox[{"-", "0.35899657234438814`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8193113321830316`", ",", 
     RowBox[{"-", "0.2999505826623511`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8304596118069617`", ",", 
     RowBox[{"-", "0.23879479223767902`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8415139900135539`", ",", 
     RowBox[{"-", "0.17544925449008483`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8524623406176028`", ",", 
     RowBox[{"-", "0.10981940211989455`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8632922708672726`", ",", 
     RowBox[{"-", "0.041793340774743726`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8739909016419507`", ",", "0.028761647666562883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8845446169651712`", ",", "0.10200368336033275`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.8949387681484873`", ",", "0.17812237705420544`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.9051573120553333`", ",", "0.2573470762799488`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9151823537738062`", ",", "0.3399582749852518`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9249935490751127`", ",", "0.4263038018081591`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9345672970458782`", ",", "0.5168224827025728`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9438756096597851`", ",", "0.6120799867232916`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9528844649981467`", ",", "0.7128255437374856`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9615512945857927`", ",", "0.8200866835495435`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9698209258846944`", ",", "0.9353388476168181`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9776185334051141`", ",", "1.0608383757060973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.984836103784858`", ",", "1.2003666550668082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9913022595204866`", ",", "1.361258674787874`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.996695078080777`", ",", "1.5623395664680904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "2.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7703825706980867`*^9, 3.7703825952438927`*^9}, 
   3.770383986083816*^9},
 CellLabel->
  "Out[1131]=",ExpressionUUID->"85129868-2e24-4ec5-881f-783f76ebb2a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "=", "1"}], ",", 
         RowBox[{"u", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"f", "[", "l", "]"}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
              RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "\[IndentingNewLine]", 
        "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"min", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}], 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Root", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", "432"}], " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"864", " ", 
            SuperscriptBox["\[Rho]", "4"]}], "+", 
           RowBox[{"80", " ", 
            SuperscriptBox["\[Rho]", "6"]}], "-", 
           RowBox[{"768", " ", 
            SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"240", " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"144", " ", 
               SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
            SuperscriptBox["#1", "2"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"8", "-", 
              RowBox[{"72", " ", 
               SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
            SuperscriptBox["#1", "3"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["#1", "4"]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["#1", "5"]}], "+", 
           SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.770128916968545*^9, 3.7701291441144123`*^9}, {
   3.7701291879812527`*^9, 3.770129197171255*^9}, {3.77012927118311*^9, 
   3.770129312093254*^9}, {3.7701296966049833`*^9, 3.77012983518848*^9}, {
   3.77012986997206*^9, 3.770129875589943*^9}, {3.77012998308843*^9, 
   3.7701300153006697`*^9}, {3.770130045591978*^9, 3.770130067574484*^9}, {
   3.770130126663423*^9, 3.770130157205965*^9}, {3.7701301997089043`*^9, 
   3.770130256375443*^9}, {3.77031451710737*^9, 3.770314551909052*^9}, {
   3.770314645755912*^9, 3.7703146533792467`*^9}, {3.77035582730647*^9, 
   3.770355870598301*^9}, {3.770356151684104*^9, 3.770356182155067*^9}, {
   3.770363505798993*^9, 3.770363507410572*^9}, {3.770363723558613*^9, 
   3.770363731317477*^9}, {3.770363862588332*^9, 3.7703638927495937`*^9}, {
   3.7703639926987057`*^9, 3.770363995031155*^9}, {3.770364075657816*^9, 
   3.770364102435101*^9}, {3.7703641431133432`*^9, 3.770364143750718*^9}, {
   3.770364184140699*^9, 3.770364190019437*^9}, {3.7703642231344748`*^9, 
   3.770364227624208*^9}, {3.770364297384602*^9, 3.7703643012351427`*^9}, {
   3.770364401201964*^9, 3.770364405830385*^9}, {3.7703644597733927`*^9, 
   3.7703644614483843`*^9}, {3.7703645824091043`*^9, 3.770364584885293*^9}, 
   3.770365204234007*^9, 3.770367474937028*^9, {3.770367591327022*^9, 
   3.770367637414587*^9}, {3.7703676918687763`*^9, 3.77036772902442*^9}, {
   3.770367846890003*^9, 3.770367899601215*^9}, {3.770368163647591*^9, 
   3.770368184417494*^9}, {3.770368217841505*^9, 3.7703682610851994`*^9}, {
   3.770368347455324*^9, 3.770368349850045*^9}, 3.770368526341693*^9, {
   3.7703685800353622`*^9, 3.770368595521796*^9}, {3.77036883046472*^9, 
   3.770368854950062*^9}, {3.770369258656804*^9, 3.770369273609886*^9}, {
   3.770369582680231*^9, 3.7703695863932323`*^9}, {3.7703696266925907`*^9, 
   3.770369627528777*^9}, {3.770369708474483*^9, 3.770369734789874*^9}, {
   3.770370057006731*^9, 3.7703700914233227`*^9}, 3.770370128097443*^9, {
   3.7703705150352793`*^9, 3.770370541380187*^9}, {3.770371713596178*^9, 
   3.770371764884719*^9}, {3.7703720704098186`*^9, 3.77037207098066*^9}, {
   3.77037242932125*^9, 3.77037243279978*^9}, {3.7703724780599127`*^9, 
   3.770372478543988*^9}, {3.770372524229458*^9, 3.770372554308427*^9}, {
   3.770372646777398*^9, 3.7703726508493223`*^9}, {3.770372819832122*^9, 
   3.7703728241592703`*^9}, {3.770372876324524*^9, 3.770372883759719*^9}, {
   3.770374538574603*^9, 3.770374605919489*^9}, {3.770374635984799*^9, 
   3.770374738871607*^9}, {3.7703748499501762`*^9, 3.7703750020664463`*^9}, {
   3.770375328139941*^9, 3.770375358633322*^9}, {3.770375399465125*^9, 
   3.770375405443839*^9}, {3.770375634072958*^9, 3.770375645082638*^9}, {
   3.77037568643219*^9, 3.7703756867521152`*^9}, {3.770375729575653*^9, 
   3.770375762094234*^9}, 3.770375824483232*^9, {3.770375875377166*^9, 
   3.770375878498308*^9}, {3.7703760091547537`*^9, 3.7703760128476763`*^9}, {
   3.7703761422929564`*^9, 3.7703762559820538`*^9}, {3.770381205930064*^9, 
   3.7703812067393837`*^9}, {3.7703813264753323`*^9, 3.770381389123374*^9}, {
   3.770381493860591*^9, 3.770381497266385*^9}, 3.7703815423353148`*^9, {
   3.7703821143901033`*^9, 3.7703821474347057`*^9}, {3.7703822380004807`*^9, 
   3.7703823426825657`*^9}, {3.770382390343185*^9, 3.770382392254636*^9}, {
   3.770382648007146*^9, 3.770382660079822*^9}, {3.7703838922496777`*^9, 
   3.77038395883893*^9}, {3.770384007861253*^9, 3.770384007998954*^9}},
 CellLabel->
  "In[1133]:=",ExpressionUUID->"128c88d3-cf4e-4c6e-a5bc-a6b11016fe20"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k4lN8XAHCUIoUkRfoWoUgSpZVjV0TJriwhoY20WBIKIWuWJETIlizZ
[encoded data, 7381 characters]
UUHK3oWZgYGG/gfJ1cPt
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k4lF0bAHARWV5rVEh2FZISySu3kkoiJGv2LAlZiyjLa09IiFJkK7Lv
[encoded data, 7442 characters]
DEe5NiiowTnroPwaBQYv7PM78ZeCHgqz/dzYoECJfqOq5woF/Q8V5sEc
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#2"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k8VF8bAHBFUv2sURGJopKQpSR5KJWlhOwhJNFiSyLJElmTbMmSJZQ9
[encoded data, 7747 characters]
hQYf0wyl4yZo6Jnwlp+rqzQomBBr+zRKQ/8DeOksMA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#3"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k8lF8XAHBbpWQJEZHIUkiyV+pUkhDZQhJCSNkl8iuUvUKRhCxZyhKR
[encoded data, 7930 characters]
6H+DMU8W
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#4"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8ld8fAHCUIpGkpVQilaSlNOhDSDK+digjRBFZFUVGRtlFUqkQskU2
[encoded data, 7991 characters]
Hllm8ryko/8Bnp57MA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#5"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c81d8bAHCRMr4hkYiMqIyEjAYeW1YRIWVkVKhICw0aZBSSpJLssjKy
[encoded data, 8113 characters]
kbJPYZUGrRRqUqUDDT0X5fz57x8NiEdmxxZO0dD/AJr5g44=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#6"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k8VF8bAHBSIVmyVJREKEsIJesjKolEKCprkrRZ+0VRyb5EhSSVhOzr
[encoded data, 7869 characters]
41r4948BeQzGw1QBBvofzwvdkQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#7"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13c8ld8fAPDQMMoKlUhEQ5LSLj6SbLJHZkZEQ1GRr6KMlJaVJNl7Ze+D
[encoded data, 8113 characters]
Ij/SUKVL4kG5FTy+Hdtye2to6LUY18Lfv3SYCDdWFaimof8BNiPhXQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#8"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwd13c81d8bAHAlq5CESiQqlYRoS09akvG1V2WHSBKVkUhGCiFJkbL33qsj
[encoded data, 7930 characters]
jZeWWaXBp1v2ZMaNWfRGZNPC37/4+/q+fT12bRb9D7pxUVs=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#9"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13c81d8bAHCFItnj21BSElkNURlPQkRkr5CUXSpUNFUqqSQkSWRX9t6O
[encoded data, 7747 characters]
BpW5JyjsW6GB3l1tw+yZGfRGjGvh718aXO/X3fZrcgb9D6O70Nk=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#10"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13c81d8bAHCjgUKhQRqovg1JEQ15SBkZmRlZ2VFKKDMUDZVKREVlJpvM
[encoded data, 7991 characters]
pf+ygBB/dWfxMhNFbV31498/FlTEljdrXmKi/wFUxLh/
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#11"]& ], 
     TagBox[
      {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k4lN8XAHBRshQSQlGW+ka2IqTlpBRC2bKFZC3abEUbKippk2QtZM2+
[encoded data, 7869 characters]
sybaDHq5mX/u718mHDrISRenzqD/AT2RQTc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#12"]& ], 
     TagBox[
      {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k8lF8XAHBRkUqyFaWQ/EqSSns6JVmSsiRbtixJUUlRWqSUXUUSsm/J
[encoded data, 7625 characters]
mqetw0L/A90M1zE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#13"]& ], 
     TagBox[
      {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k4VO8XAHAhoS9lz1aRFKmERNRpURKVVHaSREUilLWkSGVpsVXITvad
[encoded data, 7442 characters]
WD27vMyCCYNnqbVJo+h/mOilpQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#14"]& ], 
     TagBox[
      {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13lcDV8bAPA2ikil0EKLRKkkSaEeihYlUaSQJIkf0YIQKkobhWwV2iQV
[encoded data, 7747 characters]
0P8AXPbIGw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#15"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13k4VN8bAHBFQmWPREJUSpIQFa9QyU4qZUmLLZSlhSJJUlnqK5KtklLJ
[encoded data, 7747 characters]
QOWmiTxTZqG4jasml5ZIMDq8zEFAiYX+B3sm91o=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#16"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8lf8XAHClEiLRUqhUssK3NMwjSoqSLVkVJStCUUoUiUglDVEyslf2
[encoded data, 7625 characters]
Wzmv78MFBvofeJHJ5g==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#17"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8Vf//AHCaRpQdGSkNklRSEa+iUMhIVkJGJFRGqZRRpFC+JaUkPmb2
[encoded data, 7320 characters]
xVcDGOiVDO/UygobUkX6Pdn+DPR/331AZQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#18"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8Vf8fB3BUiOyRSkOojFBfSda7NMgoDVmFJCqpSKVN0qCiSJmRUvbe
[encoded data, 7259 characters]
gqrG3PuGgd5t5J9eWmLDtu+CuQ0BDPQ/8Twf1Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#19"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8Vf8fB3A09G0oO6OIkiRUGkJvRdmJMkMqUkQlpGlEi6SSnezKLDvU
[encoded data, 7137 characters]
QCVOiYpKf9kQ9Fzf3COMQOESayaXlthwRaP057pQAv0PtAdQ9w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#20"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8Vf//AHC0B2WkjDKiIaOPNIy8IkV2UiRJhczKTFpUVBKKhpkRyaZs
[encoded data, 7198 characters]
D/N6JIY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#21"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd13c8ld8fAPC0ZETKHoWijNCSlU+hQikrhCQkUbYiFSkqEmmjYSQjWnZy
[encoded data, 7015 characters]
iWN6aYkJtxT1z/1wI9D/ACQowwc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#22"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13k8Vc8bB3Ck9FVJdlGiSCIqlShPSYhkyZZsIYlSKdKqlJIKSYu1rKWS
[encoded data, 7015 characters]
hbuK4gfo6JnMkon5eQ4YujQJtOrR0f8Awh763A==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#23"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwd13k81M//AHCkSJErlaOoSBL6JN+ivMqV3FeRK0kSEYVI0kUpSUJuQim5
[encoded data, 6832 characters]
uGHF5OIiB9Suws29QnT0f1UiY0s=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#24"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd13c81d0fAHBKkafISEUpqR5kPdGifDISkYwGhSRJCpVIaZlJSEKZZZSo
[encoded data, 6710 characters]
wWt/0iM6hYqeb/pnYmGBi/N/4XBhJRX9DzYHqKY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#25"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd1ns8VN3XAHC3yqMiuaQQoX7ILRVFtSRJbrkTkiR5KCUqoZQoSZIkd5GQ
[encoded data, 6710 characters]
g321vWK4dwD9H/9LJYY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#26"]& ], 
     TagBox[
      {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd13k8lN3bAHDEQ4SsZStK/RBSKYW6ECIqiRZbsiWRQkVFkq1S5JGyJVmS
[encoded data, 6466 characters]
Qr+WlzkQELl5qzQ/Ff0fgzzePQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#27"]& ], 
     TagBox[
      {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwd1nk8lO3XAHCJFCFLhcgSNURRQlSHkiU8EYoeNNnTqiSVkEiPFiWpLFlS
[encoded data, 6466 characters]
AA26nOQ=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#28"]& ], 
     TagBox[
      {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwt13k8VN3/AHBrpLKlbAmhUJYnFcnTx1Ypkj1lSbbsEYWyRzy0IIRQaSHZ
[encoded data, 6466 characters]
Stiu3373oTuy6+ZWV3E+kwfXrlnsQ/8HU2u5SA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#29"]& ], 
     TagBox[
      {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwt13k8VN/7AHBbkSyRikqh9FURyd7yyBJFRWmTaEGlIqJUKlkLRVLIEupT
[encoded data, 6466 characters]
8mFJWtCE/zcqil27eGx+HsdjlHa96isV/R8NhyVb
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#30"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVl3k8lN8XxwnxJRTKlixRdlNJkjoqUVGhSFmKUpSyVr5CsqcNX5WQbIWy
[encoded data, 6344 characters]
Frjwd9JDNBy1oCeKIhNLS9jf5HhBm7IW9H9Gf4fd
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#31"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnlYjF8bx9uIaFFJSVS2ES0/UircWiSJFiq0byQlRYS0KhEqElpoIRUt
[encoded data, 6405 characters]
Wrds6t8/7O9to//iZT36H2YCsz8=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#32"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk81N0Xx8dSliJbRRKKflQ0pSh5HFtSqUihLIkWSbL2yJIt7ZaKsiRL
[encoded data, 6161 characters]
spn8lw8yY1FbFA5Q0EPVJRMLC3wILn4p529JQf8H6Q8zAw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#33"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVl3k4lF0bwCdryS4iFK0qaioqVDeSiEIpvYWkhUTZW2UtvaksqUTJUomS
[encoded data, 6222 characters]
IF02/5PqRip6vGzh2Nwcrnfxo2Oey6nof7GZMnc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#34"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnc8le8bx49RhJQURcqovhSlUlJykZMVRSqVGUmpZKRkb0oZEbKdQVMI
[encoded data, 6161 characters]
OeJXddmcC3njSN+mPIfc5JT+V92FJKwX5CwsIBfFDhZ5OZP/AfHRNU4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#35"]& ], 
     TagBox[
      {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnlYTPsfx4e6ohIJFVqF0iIULZd3KZUWLbYuWkkkokLaS8UtbkUUOTPT
[encoded data, 5917 characters]
UX5nXWAWoiX4OAsLpD+w+Bz3wyz8H2yKUNQ=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#36"]& ], 
     TagBox[
      {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk4lG0bxgmR8KYoRFFeu4wSbTpVEtlVlrIllSRbm0hkaVXprbRLISpF
[encoded data, 5795 characters]
dHpagCLT+EvpuSz8DwxFDKI=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#37"]& ], 
     TagBox[
      {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwdlnk81Ovbx21FiKgkJUslSTiliOojHG0qS8WRLSHJiUqlRSGklSJZEqIo
[encoded data, 5673 characters]
qEesGKnsZ+D/AEJEMyY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#38"]& ], 
     TagBox[
      {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
1:eJwd13lYTd3bB/AihIo0IPU0mEqDQqjkG5FKQiI0apbIUEoDzWahJE1SqVRI
[encoded data, 5978 characters]
JJ7Ke6KHKmnclZ87MDVF6u/NEi8m3xP/B29trIM=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#39"]& ], 
     TagBox[
      {RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVl3lcjN37xyeytNJiS0kJaSEqJPqIpAgtvkJ7ZA3pKTJKi8JDovgllYSE
[encoded data, 5734 characters]

        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#40"]& ], 
     TagBox[
      {RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV13k8VV0XB3BKERJCHqmQikgSpfHXoFJUSFHJUJRH0kRknpsoRUIiQ6aE
[encoded data, 5551 characters]
H5GX6ik=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#41"]& ], 
     TagBox[
      {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwV13k4VG8bB3BLUkKRJFKhBVkq0sq3kBCVFlrsEaks/ZCEVKikqCTJFtre
[encoded data, 5307 characters]
78wPulUsUq8LZ/yanBQgwrrCNY9N4f/W7L5b
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#42"]& ], 
     TagBox[
      {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VF0YB3ChLFmyJEmLpUURaaPFLyVZSntaRERahJBKspUWLdQblRSl
[encoded data, 5185 characters]
LRziooPJxiZiIc4fvsbKayb1aerYvpERIVSpbt2oFgr/Ay8gih4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#43"]& ], 
     TagBox[
      {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwV1ns4lNvbB/CRdFQhlXNJ2VRk90Yl9SUSkiKbnZxpZ0slUUgiKaGkg/wk
[encoded data, 4880 characters]
7sqFwzMzAohHiFqsncXG/wM3dB3t
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#44"]& ], 
     TagBox[
      {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VPsfB/ApJZQ1VCqU5ZLQxk2Ld0plK0tFyb6UoqLSgkKhUl0qUVKU
[encoded data, 4758 characters]
xQQDo9U2tWZkfyeozB6emmKwVupSEEX8fyEhwNE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#45"]& ], 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VfkbB3BZJiRF+qFCSiaEslN8kojsWypSRBmyZCrSRqWEhimjQqGo
[encoded data, 4880 characters]

        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#46"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk0VusXB3BChiIkISVDLlG5kpB8kRtSbqiozNQVkfRTGhQyJTJcCWmQ
[encoded data, 4453 characters]
0oKxuTkKva/c9pkT/x8xPW+s
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#47"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VdsbB3AlRPcqUplKRCkZUhTKtyQZUj9laJDiRlIoQzdJNxJS4ooU
[encoded data, 4453 characters]
ppD7o8InW99ggsZnhYm8pcQpajOGJydpxPrvmbuD+P/ICUxB
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#48"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1XlUTVsABvAQGRqUmwZDSqWkJPQIfSQ9kqFeT0lKKRJNlKGnR0goMj0S
[encoded data, 4209 characters]
vWg0hhkcpOFbF8OZRPwfkaIS2A==
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#49"]& ], 
     TagBox[
      {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0nk4VG0fB/AJRZuMlCKvLIkk8kTafEWpJEULPclWoiJayFKibFFpRZKS
tUJCUdkaW6VFQiVRKjmzHdp0ZsZ47+ePc53rc53vde77t2h5BTh5y7BYrHLy
/Pe2ku1Y8T6Twovd6eE6v0dQn9ZnVZ1F4fYhr74FxSM4NMmpb0UuBUX9UW8D
YkegG12V2JxPYdezP+WnfEbQ9ld/vtNtClyfAZf2dSM44X+x410hhTqlNY7r
F47AtHck3L2YwvuTf/VkdUbQu2WvVl8JhfU28d2eSiOwtrL2+1lOwamtp+ml
UIofZYXssIcU7to9HrW/R4obBtPLWVUUtrwzrG9rkUJm8sAoRQ4Fs/fhV47e
k6IkblvexXoKR8cXLLqaL4WXpNFevYnc18NVZJIuBefb1RT95yRvkd4eHy3F
8Yq1RjYdFKyPLYlQ3SqFqVF569N3FIrpifp9DlL0ZmqHbPhAYceLrD56hRTW
iQxn+ycK+ptGD+XMl2KUW55LCJdCkKvm89UTpShuVZZK+RSsogqXXZaTwmNV
RFYMTf5vpTt9kmQYtSabhed/UUBVvPFO3jAiZWWjC6UUOHcW5iQ0D4N10+1O
rzIXFlkpeHZ2GI38t/uuTeFCpFpTa3NyGKdMHOe5TuPi0BS9nraoYahW2BS2
a3DxqWyQWnxwGPOa9G8/0edin94jI1nnYbh++5FbZMlF8oTizDHaw3igFZcR
tocLOUfHzwp1EkR4s9wW+nPBHjSMiKySYMXNUI1fAVw8c+rqk6mQoMXEL90/
iAs7SZTz7EIJ+uGY5hHJRWz1vUIqRYKpburJtslcTA8MWm0SIMGBtDunlTlc
aBqz4rt0JCiXpMVx6rmQWXbmS6imBBK32KgDTVzcmLWuUkNdgjid7UGtz7l4
qihMCVGWIL1g3Pbzb7m44mI2GDJKgoZq77nKAi5mlnEWXvokxrQv6s3saTxE
Xgg2b78hxvaV8g2P1Xjo1eC56FwT40bej+r9GjwkzKydG3xFjLl+T0tea/PQ
cd+zxuCiGMt/B6edM+KhavHUsKYYMfbIt+5m2/Bg2SU7vX23GFWG8QrsfTxI
B/b+lC4Qw7xN9cX5QB42St9lKZiKUXwk75zKQR4GK77HTTEm571oVJsWwsPL
nMwOCwMx4gNGG2ke5+F7oplcjoYYTqXHHY2SeaCrjaMmyYvxffHRtDXVPKSY
zf6j2CWCx5cJ7s21PLA0NXYEvxehMzFdZ10dD3oLnh351CHC865HBRue8JAl
OZ1f+VqEkghRtXMrD47SihMXm0Q4wjn8xbuPB2XfnuCaUhHYdgfmHlfkQ3aa
y1HBaRGuP540fjGbD6uz+WsPJopgsqiQGpzMh2pBdos4XgQH/f5cz+l8NPjP
+qESLULCGDet5bp8THNtXOYTJoJc3ZqprMV8xFIPvE/6iPBniRYrwpuPtUtv
84ptRIgpre428+XjWZnJlPjlIqgYulYJ9vDRZnX7midE+EctJWx7IB+Lxga9
VF8iQuDfCb+XhvPhEW61ucBUBKrsLyU+y4fSFP7spdoidBm1vAmt5KNaZdon
BVkRrvHYR2Vr+KDyW1mrR4ngdXOj3unHfATX+A/HjzCgdN+GXG/koyDvcbSS
hMEf9W6NphY+Kn735pj9ZsAex/dR+cbHmCCF8W+/M7Dtk5cUTRSgMTK/yP8l
g7HZa3IslAQIDHN8/e05g+eeiQ4cZQGcZa/luzcz2PhRMbNdVQCPks5AlycM
PNqm2Eq0BOg+bWjnxmEQztE5u8ZcgDud+xY9vM+gOAO6X90EMLWjzAuuM/gZ
9lPe01MAy7pL2e7XGJg75/E+7hDgn/x1qSoZDB5NmlT61leAn7W3FE9cYci9
upc3HxCgbd3QzAPJDD54HXUviRVA6YmjceopBmNmP0qLLBIgYfPKNmkogzWy
ARHDxQLsubwp6XMIg1M92l5hpQK4Zax/0HCY1J+aYHCoQgA1XrDz+SAGM8b+
W+HDEcBcrvnW0v0MTHl/2x06BLAtmKnT7stg+x1ztoZUgD4x25K9lcH9f/8q
trCE4Nietp/gwkBxzMMJJ2SFcMtT+K3gzKDWdZkCpSBEoNiVLb+Zgfa4FSNl
k4WY3OjgPdWRQd9OR4G9gRAXA3n8yDUMLJUm80YMhfB41eNwaTWDlEdt/SXz
hCiZ3mF1exWD1couX6ctIOd17G/9sJLBrRq3D18thfjsaZu+3prBPjW/p0c2
CTEUwVoXtYT0q8GoydhZiC3ZZnuLFjPQ3E/X924VIlTpnNLHRQxamg7UrnYX
YmlnvtDSgtQbFFquskeIbd2qXBUzBkOvYnMKjglxMHtqwFhjBpExmVFdt4QI
zl3lz9ZlMPGwvJ1noRAzL+/fFqrDIM3XX7nvjhADJ3ad69VmULp2URZdJoS2
aMebCi1SL/t1vUwNyQvKcg9pMlibwVIweCPE9boxKw3UGbxL2tVS2C5Ea/js
hBw1BjujnqeavhPiz059ZR3iiJ2pBks/ChEvn0tpTSf7NMdk7frvQti43S2a
p8pgarn7mSCxEBtTFDZFT2aQld+wRTQshF22Rq4KsUmaoeYxFg2P+AbzXGWy
H0eH7sSPptE/45XyCzaDIzZJr69MopGT+qPIQIlB76tqFY4OjdS0TOv/TWQQ
8Fj3o60ejaQMC0/OBAaSkoScZn0a6f43H/oQT0neYt5uRKPk7jKN++PJvFyF
zv0LaUTZb7riOY5BYb/GFUV78j12hsNPeQbxV2M8uh1odF2IKbxBvNNJMKvI
kca+prXnNhLPqKwsXudMY2EF/fXBGAYJSdsaT3nRyPhUdy91NINdK+oSXb1p
nImxnL+J2JqZ4zjXl4ZpkqExm5jxEn1o9qfh+zD4bpIcA1/zy4PjQmlYHCx9
miHLYAWPVd4ZTkMr66rTLmLN675HbkXQeFVm7WpM3DHWQt4umkZw9cBAgwyD
kuprz6fH0WizvxR+gfjMQfnz1Eka3/sNY72IV37smHEyicZxxQC10cQzz1v2
upynoetXlfVuFOmXbW6e/iUaiseWFxQSlxUHmT5Jo7H3l/liV+Kz3h+HUq7S
WLp9Q40Z8V61lVU+12n4x9EcJWLtaJXV8rkkn6O6spnFQGpxZOLbfBphTQ51
t4jfC7605t6mUTnGtyaR+Kxz6XbbuzRG5+SYOBH7TVDXmVpGo2dDRM5C4tWP
j/d/u09joCQz5X/EI3OcDsZU0nh2YdHPgZG/6Ox5YLG5hkZtkK9rF/H9i1pS
XQ6NH2+2WD8lPr/mZN2vehqzG75klxPvkw7E1zfREGrRJ/KI7UpdHC4+o+Ea
vbUnlXiWb+3knS9o9K6SK08kZmnov/+nhca4k6/HRRJ3vU7KkH1D4+is7M4g
4orYoR1v2mmUPnLX8ye+uMTdIOsdjc5b/QJv4sCBRuGBDzSKlHXnexCvzZlX
Zt1N5v1miN5GrPdvcqjyZzK/03ZzthLLTJJa9n6hcSNT9pMzcXedt1xJH9lH
k/FsF+KHIS+eRlE0DqvbVf2XTzYyS3Lkk7zMra+uxPt70zdp0TRabKfEeRLb
p8ipDQ6S/VQ4nO1DrG/v11P7i/RT79HSAGK5UW3ZZ4doJFu/XB9C/Onekj0e
Ihp+D69+PE5cuSfL2GSYxoJC1b4zxCma43+PjNCwZ+bsTif+P8hM83Q=
        "]]},
      Annotation[#, "Charting`Private`Tag$2768988#50"]& ]}, {}, {}}, {{}, {
     {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->Medium], {0., 0.}], CompressedData["
1:eJwBRQO6/CFib1JlAwAAADMAAAABAAAAAgAAABMJIB1tsOE/UOkvN+/G87+/
LycT/bThPzPt/uojwvO/yH6A85fC4T+/z36/xrPzv52URVsA2eE/YFINneWb
87/MTPIj1ffhP2VQPtuWevO/xZpLNpge4j+GAPQa+E/zv5+gw4i2TOI/1XSb
2ywc87+D7XQ+kIHiP3IYUe9c3/K/UAsDEIC84j8Kq2juspnyv1CgaXbh/OI/
8SKMw1pL8r86UNNeFULjP7GP0WCA9PG/qtvlbIWL4z/KTMulTpXxvwkxV/il
2OM/Luffd+4t8b+4SeUE9yjkPxFVjwmGvvC/1EmYdgR85D8ktY1KOEfwv9bi
xb1l0eQ/wkq/8kiQ77+rrasrvSjlP9sS4J3Lgu6/TpsBFbeB5T9SoP55Jmbt
v3eJet0I3OU/huv9cX467L8scpH+bzfmP+swYhvv/+q/ZOJgFbGT5j/WHzFd
irbpv8OmZv6W8OY/8z2sEVhe6L/wVawC8k3nP17U4JpV9+a/SiiAF5er5z86
HmFidYHlv0jPazBfCeg/v2JgPJ7847/wjiqiJmfoP1VX1KWqaOK/z+PUlMzE
6D9YYRjUZ8Xgv4LnKoMyIuk/h1V+FSkl3r8SYL3EO3/pPwdSMVO/n9q/Ycec
IM3b6T9/GGbCzPnWv2z8HmbMN+o/Pty87WMy078fgysJIJPqP1LXjufTkM6/
iYJHv67t6j9LPRIFH3XGv2LGQBpfR+s/fDuS1B8dvL/cdsgcF6DrPwDfos/v
ZaW/KrhxxLv36z+Gh22AsXOdP/b7NoMwTuw/yqoa1Okcuj9U2aOgVqPsP5UZ
Ecy2zMY/3mmgdwz37D+A/RXfX3jQP6626oAsSe0/Ij1EWuDB1T8MPEkSjJnt
P+xLu72PSNs/KSQXrfnn7T9DcaFNz4ngPwhjX586NO4/pGewxCiW4z9oEsGP
B37uP69jw4N3z+Y/pIR1OAfF7j9cX7dtJj7qP6bW9OTFCO8/dikmvEvu7T/F
B56ppkjvP779H6kx+fA/A6I1AceD7z+eiGuqszTzP7TsIoS/uO8/dcMZLbfH
9T+FHY4T7eTvP+Ki88VX//g/AAAAAAAA8D8AAAAAAAAAQD0tuD8=
       
       "]]}, {}}, {}, {}, {}, {}}, {{{{}, {}, 
      TagBox[
       {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
        LineBox[CompressedData["
1:eJwV1Hk4FegaAHC0nSLbTbIla2p0mLSNh94mlazlWAaVuLbLNeFBliZLI1mO
Uow9u+RwwrGvnzgdKiQjyk7WY4svUlzuN3+8z/v8/nxXuX+70xz5eHh4vEj8
k/Udp983zpif1Z9RO73IwWi7jqTHsMQJ2LN+YX6BWCM9MbVU4gJwtSOE/vG4
tGKIr7IxqKONp3PEBu29rKcSZrARl57IJVaky+RuyVrB+SHPrSniDX37BDtl
G+hs8uoaJ+aGdrPt4u3A2CtXZJT4N4dv9U8kHEDryK76AWK2jmRlc6oTLCgn
dfcSqytoF3+VdYG4ymuWXcSpfLb5Stn/hRNqVy63EVPG7mVZKN8CBtcr5xVx
zUhXe7OZBxReeePWQOxx1UH/erwnsNtomRXEg2oPdKIlvCF8Zd04lzgu/UCj
0jUf8GPItKYQ6wsxtBpSb8NmhBfzMXHFQtvJRVl/8NNqqLtD7GZjw3pgFwCG
N8sm3YnlOxaph7LvQLDh6B/2xA+ZoiomyoHQETY2f5n4okxOzoxzENi4VrVq
EgdykoVfmgWD+sVWIVXiE6dUo63iQ8DjVtKYAHGG2JWwSIlQULwhndLyCqM7
7Qlsi5pQGIoc6C0jtrg/wqdw7T7oFw8FZxILrHgG1aaGwe0Iprg/sV93nN+c
bAQcxAmWcsSm9MGKqsYImD4Y+W03MfWC8kqoXSQMebfyLbPJPEsrPWWyo4Br
o2bTSGwS2+dqrPwQztA6VSyIVQ0U8iVbHgKnyuioJjFlm9vUpPMjaC1QSJQh
vlm9WYLMYoC7d6RqrBkjsSMxVMv4xzAf3iboRBxCKT0cIREHTD5ZQZMmjI7q
Pg5necSBvGMPU4W46777TH9LHIxMqWRsvST7s021gHr7L+hpY/xRQMz5Xw61
uysetiv4iK03knpx/ElZehJM/vK51R9hVP6zT/zlz0kwgOtjLxHbeJh+89RM
hmB55xJR4qJ5oWr2dDJ8NNKYeN6AEW06XMv1YipY+EuqtddjlDgYoFO+mQac
Aw+urNRi9Ku0Vc6QeTrs0RPVqyTmWp/eQWGmA2OB8Zcf8cE5f3vmsQzYmBNT
+V6DkbvLKSWegQxg+xkfX67GSNSh6HnumSxgSRqNNFdiZGmVWfRlKQfmPKfZ
EyyMFvvN9mRJ5kIyr0h1AnGYDcXRVCcXApvW9+sRl9q7S1bE5YKiz1FhRglG
gre07985/Qx8yj3WHIoxenXvk/XOu3kgLDaQ08DE6HihyE5pCgPSRItjeJ9j
9Jr6yrZdnQGcxlpORh5GtiV+tYFWDHAbPuYMxNEVwx6jDAbs3HF9KuAZRtON
zP5nRgVArw+a4OZglPZBr+Tn2ELYTt0YfJGJEf9WyHXdg0XA18XP5SSTfrn8
ZqN6qQg2v9LrzYkVu1VtRW4VgdOjLd7xJIzO5vfa99cXQeHs+8HNRIyq8+PL
K6nFELj6afRYAkbzpnN1Bh3FkLGfT84zFiPz5wlvvfaygG5glk+PIvd9456h
kxwLzGwD8nYTj4n+3m55kgVvtjmIh0WSft89/077Bgti/n5qeDcCowjafNcu
JgsWpt33Oj7AqH7jfF+KYSkEPmlekPgTIyWThenmqDIIrOOxlwjASDJIV9M5
swzSEnt2+PljJMzMiNpTWQZabXZ8PX4Y/aCYUk3GyqD4BqLE+GLU2VjpNXSm
HISrGAYb3hgFqIdsrk2UQ6HUKqvcHaMOoX37qOcqgRbtYlzogJFvxy+Q+LUa
LOQDdhYYkvlRyydeU2rAqSBred4Ao5xodfq6dA24+Z6/qk783vDwJ5uLNcCp
FLAt1cPop7f7vJTia+BjZ0cX6xJGwy2Lz1ina+F4xbG9Cecw0n2ZK9geUAfL
k5riKxoYiZeJDPHyImCEzyTvliD/akyn7Z1WE9Tw2fJq9C6jJtenUlZzbIhb
9tZppC+jFWVtIebvLbDWd8+w6uwy4vteICyl9AbWV18bLIwsoVNbthWmL9pg
+qxF4nzwEmoLPdHBOfoOIq99zxSQWkKyMbPf8xc6IY3yYWwt+wua/TY89EG9
C9ZMaMXrql9QDrf2jeDDv+HPQyAurruIBGXyFsfHu0H50NKgtcoCoruUO2Uo
9sCTQbnV3YLzaPVcwfh/gnohQZwhXP12FnkfZ5ftb/4InclaYp8ecdHwC3bU
e7k+iNFLHTh3ZAatu3anHAnoh74DYanFVVPop193bTrVDsCwvjRnP20S6WbJ
OZeID0Hf4GyIZP048pW5KT96fRg+xta15Wl8Rqpz5vy9RiNQdHiHtVP2KPqX
0BcK+8cIjAxfpZm9HEbbUUqRQuoozPG3xAVaDqBGmkCgOnMUpPgPW/v+6Ef/
B2CH8o0=
         "]], LineBox[CompressedData["
1:eJwVzX881HcAx/HzoyHlx9VqkcxRY+ZHKinT22NdfusxMv0YkmWPNJTScs2P
6PSQ/FoZwlSu9MOPS46aB52H2Yw9VszPyo8550bc9+PXOed+rf3xejz/fFlE
nAmM1KTRaB7v+9+0Lc5LUU/HMGcan/3T8Ft+pXfEnRdLArA3sTQCSnr5kmkT
I1HBOB4Qf/3R3i5+/SFPrXymEFuOsRZ22nXwU7zSb/NEQuzQeGgZt9TCtxj2
GeSkTyDMoMw1EbX8vbvZ+ZucRCj/dth09mQCQra8kmn0iJCZUsyPaKiDpDNb
cDb1X1y+MJ4QadqGIu2w+ECrSZiMRt28tu4l1o3Ul2u2TaLYwb6f93EvViWl
Bu2Jm8LRIHMj4cRr0B6FcQX0d3B3LLcOvz6Kc8XcbHrrO5wzD33LVAnQbJuh
axw7jf2WNZeCj4hg7HPuszSDGegbfp/rWjWFIbuuHlbTDLay49h9WWI8KYOV
MEyM+eSdWhv4swjlOhubqcSo5IQ2nhXMo+HYskEXjYL1YFSW98w8DD5oXHNF
i8J00XbxJ0vzaAlx053SpeBYoEiX6C2AsZqp5q2jELJx2Ltv+wJEJwPEfjYU
6m5YeNamLSDWJLojMYhCa0H73V02i7icfjd16DGFKoadl3a2BGsv6vicqKbQ
KUrYJy6UoPhUDF3EpcCQBc6NlEtQ57uHQ3gUSp3PUkPPJRAZd7dp8ikUJw2s
8ZiQwLeMpmvTQ+GgT1GzEEvY8Ox4zgU5BWLU6L1DuQTOw9+CV5QUZv3UVIye
FI7FtuYpNIKMy7E59R9K4Z0k5WasIggVSxOj7aVI3J/bXWJIkOfoUJEcLoXg
1Yv1rZYE9NbblpHtUlRPmpUY+BHU1LYJzMuXkfFzevjIQQL5dqEZ4+kyTgaK
t9YEEDhV0M+7ty5jc1PTE//DBKkDhoxewTIyc7/+PSuCwE53wCl6qwynnG/N
rWYR3Es7YcSolYE5TXv25geCt8HNKd6/ymB+51Ti42SCHEWjR2mfDP16Ljo+
bIK0yITsjhUZDgz3b76WS/A05HzpGc8VMNjrvXQq3v9/tP2janoFKpfEtQMP
CRQ3q3fHaMjxWjz+d0UlQXzVxY+SN8qRd7gu1KOWwPRqUvldphzqTwPPpzcR
7PUXBrA4crwZ/cXlKz7Bl9/dsj/QJEdDvoXKqpXAiFtSkNMnR6xqNqOtnUD2
wP1as54CQ925ZVo9BK9sOH6dLAWeX5V+09NHMKk/ymsuVCDf9bgNZ5DAVsnW
vN2ggO99e94XIwRuj2Y0iqQKbDtWwKKPEXQtvPRd3KSEpqFqn2CcIMRq8Oif
bko0JvzVkTpFsBwsfD6eqUSB3a7cgBmC648zL/XwlIgTlAZZEIK+9kh37pgS
foXaJnNzBNYCg+uudBWs/aJHWxYJglWO7+57qqCt0XsvT0rQ3UEtTl1R4Z96
19PhKwTVzCifiU4Vmk5zHByVBNn+h9g3tqlRaK4vUasJaj9/wTyiUuM/nyVP
Nw==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2769120#1"]& ], {}}, {{}, {}, {}}}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.9999999795918367}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7703822798828382`*^9, 3.7703823462266283`*^9}, 
   3.770382394063806*^9, 3.7703824624684353`*^9, 3.77038249510159*^9, 
   3.770382575690296*^9, 3.7703826239005136`*^9, 3.770382661692338*^9, {
   3.770383908231895*^9, 3.770383960580617*^9}, {3.770383995294565*^9, 
   3.770384011952156*^9}},
 CellLabel->
  "Out[1133]=",ExpressionUUID->"7768c230-8e27-4f80-b050-095d135f9316"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{"f", "[", "l", "]"}], ",", "l"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.770375533480034*^9, 3.7703755561785393`*^9}, 
   3.7703756622875977`*^9, {3.7703762679540777`*^9, 3.77037627450047*^9}, {
   3.7703812451124973`*^9, 3.7703812558973513`*^9}, {3.770381306038788*^9, 
   3.770381318802061*^9}, 3.77038144852057*^9, {3.7703814803203382`*^9, 
   3.770381508542975*^9}, {3.7703823502165318`*^9, 3.770382405863929*^9}},
 CellLabel->
  "In[1112]:=",ExpressionUUID->"5dd200c9-8576-4bb1-9ead-711e9df276ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[GridBox[{
      {"\[Piecewise]", GridBox[{
         {"2", 
          RowBox[{
           RowBox[{"\[Rho]", "\[Equal]", 
            RowBox[{"-", "1"}]}], "||", 
           RowBox[{"\[Rho]", "\[Equal]", "1"}]}]},
         {
          RowBox[{"Root", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"-", "432"}], " ", 
               SuperscriptBox["\[Rho]", "2"]}], "+", 
              RowBox[{"864", " ", 
               SuperscriptBox["\[Rho]", "4"]}], "+", 
              RowBox[{"80", " ", 
               SuperscriptBox["\[Rho]", "6"]}], "-", 
              RowBox[{"768", " ", 
               SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"240", " ", 
                  SuperscriptBox["\[Rho]", "2"]}], "+", 
                 RowBox[{"144", " ", 
                  SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
               SuperscriptBox["#1", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"8", "-", 
                 RowBox[{"72", " ", 
                  SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
               SuperscriptBox["#1", "3"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               SuperscriptBox["#1", "4"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["#1", "5"]}], "+", 
              SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], 
          RowBox[{
           RowBox[{"-", "1"}], "<", "\[Rho]", "<", "1"}]},
         {"\[Infinity]", 
          TagBox["True",
           "PiecewiseDefault",
           AutoDelete->True]}
        },
        AllowedDimensions->{2, Automatic},
        Editable->True,
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.84]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}},
        Selectable->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.35]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    "Piecewise",
    DeleteWithContents->True,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   RowBox[{"{", 
    RowBox[{"l", "\[Rule]", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {"1", 
            RowBox[{
             RowBox[{"\[Rho]", "\[Equal]", 
              RowBox[{"-", "1"}]}], "||", 
             RowBox[{"\[Rho]", "\[Equal]", "1"}]}]},
           {
            RowBox[{"1", "-", 
             FractionBox["1", 
              SqrtBox["5"]]}], 
            RowBox[{"\[Rho]", "\[Equal]", "0"}]},
           {
            RowBox[{"Root", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Rho]", "4"], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Rho]", "2"], " ", 
                 RowBox[{"Root", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "432"}], " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"864", " ", 
                    SuperscriptBox["\[Rho]", "4"]}], "+", 
                    RowBox[{"80", " ", 
                    SuperscriptBox["\[Rho]", "6"]}], "-", 
                    RowBox[{"768", " ", 
                    SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"240", " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"144", " ", 
                    SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"72", " ", 
                    SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "3"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox["#1", "4"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "5"]}], "+", 
                    SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], 
                 " ", "#1"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                   SuperscriptBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "432"}], " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"864", " ", 
                    SuperscriptBox["\[Rho]", "4"]}], "+", 
                    RowBox[{"80", " ", 
                    SuperscriptBox["\[Rho]", "6"]}], "-", 
                    RowBox[{"768", " ", 
                    SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"240", " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"144", " ", 
                    SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"72", " ", 
                    SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "3"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox["#1", "4"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "5"]}], "+", 
                    SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], 
                    "2"]}], ")"}], " ", 
                 SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "8"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "432"}], " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"864", " ", 
                    SuperscriptBox["\[Rho]", "4"]}], "+", 
                    RowBox[{"80", " ", 
                    SuperscriptBox["\[Rho]", "6"]}], "-", 
                    RowBox[{"768", " ", 
                    SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"240", " ", 
                    SuperscriptBox["\[Rho]", "2"]}], "+", 
                    RowBox[{"144", " ", 
                    SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"72", " ", 
                    SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox["#1", "3"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox["#1", "4"]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["#1", "5"]}], "+", 
                    SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}]}]}],
                   ")"}], " ", 
                 SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"5", " ", 
                 SuperscriptBox["#1", "4"]}]}], "&"}], ",", "1"}], "]"}], 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "<", "\[Rho]", "<", "0"}], "||", 
             RowBox[{"0", "<", "\[Rho]", "<", "1"}]}]},
           {"Indeterminate", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{
           "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{1.}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}},
          Selectable->True]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770375544814234*^9, 3.770375556807272*^9}, 
   3.7703756630465508`*^9, 3.77037577630795*^9, 3.770376117831931*^9, 
   3.770376274970351*^9, {3.770381240199341*^9, 3.770381256325898*^9}, {
   3.770381306524642*^9, 3.770381319275289*^9}, 3.7703814497480087`*^9, {
   3.770381482506709*^9, 3.7703815097738333`*^9}, {3.770382352911484*^9, 
   3.7703824070277777`*^9}},
 CellLabel->
  "Out[1112]=",ExpressionUUID->"c0c7b3a5-0f8a-4202-94c2-e80936352f50"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["electron-electron term parametrization", "Section",
 CellChangeTimes->{{3.770374383708254*^9, 3.770374387922638*^9}, {
  3.7703751576267157`*^9, 
  3.770375168331292*^9}},ExpressionUUID->"2a884fa6-b0b4-4c7c-b720-\
15880681a355"],

Cell["\<\
Let\[CloseCurlyQuote]s switch to spherical coordinates which naturally \
enforce normalization\
\>", "Text",
 CellChangeTimes->{{3.769857007960127*^9, 
  3.7698570322738447`*^9}},ExpressionUUID->"693015be-a910-4ea6-9619-\
85dcf087e76b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"2", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
    SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}], "\t", 
  "\[DoubleLeftRightArrow]", "\t", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["y", "2"], "+", 
    SuperscriptBox["z", "2"]}], "\[Equal]", "1"}], "\t", 
  "\[DoubleLeftRightArrow]", "\t", 
  RowBox[{"x", "\[Equal]", 
   RowBox[{
    RowBox[{"Cos", "[", "\[Phi]", "]"}], 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "\t", "y"}], "\[Equal]", 
   RowBox[{
    RowBox[{"Sin", "[", "\[Phi]", "]"}], 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "\t", "z"}], "\[Equal]", 
   RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7698424853795223`*^9, 3.769842545562788*^9}, {
  3.7698571943550053`*^9, 
  3.7698571973956957`*^9}},ExpressionUUID->"028d484c-db46-4015-8458-\
8c8ace5ad7be"],

Cell[BoxData[
 RowBox[{"\[DoubleLeftRightArrow]", "\t", 
  FrameBox[
   RowBox[{
    SubscriptBox["\[Beta]", "1"], "\[Equal]", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Phi]", "]"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "\t", 
     SubscriptBox["\[Beta]", "2"]}], "\[Equal]", 
    RowBox[{
     RowBox[{"Sin", "[", "\[Phi]", "]"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "\t", "\[Alpha]"}], "\[Equal]", 
    RowBox[{
     FractionBox["1", 
      SqrtBox["2"]], 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}]], "Input",
 CellChangeTimes->{{3.76984257360249*^9, 3.769842600108346*^9}, {
   3.769843045360422*^9, 3.7698430669678698`*^9}, 3.769856661049491*^9, {
   3.769857189055613*^9, 
   3.769857193525071*^9}},ExpressionUUID->"c678be2d-804a-4acc-99b0-\
de50424c85b9"],

Cell["\<\
Within this coordinate system, the kinetic energy, electron-electron \
repulsion and external potential read\
\>", "Text",
 CellChangeTimes->{{3.769857040919272*^9, 
  3.769857078977706*^9}},ExpressionUUID->"9206cb06-9437-43fc-a835-\
5791e46adedf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T", "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     SqrtBox["2"]}], " ", "t", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", " ", "\[Theta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
      RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}]}], ";", "\t", 
  RowBox[{
   SubscriptBox["V", "ee"], "\[Equal]", 
   RowBox[{"U", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ";", "\t", 
  RowBox[{"V", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "\[CapitalDelta]v"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.769842644691029*^9, 3.769842676065867*^9}, {
  3.769843115311166*^9, 
  3.76984313516693*^9}},ExpressionUUID->"a9aac6cc-ca05-4d64-babe-\
91420ab98f6d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[Beta]", "1"], "+", 
        SubscriptBox["\[Beta]", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"U", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"\[CapitalDelta]n", "\[Equal]", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
         SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}]}], "}"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Beta]", "1"], "\[Rule]", 
      RowBox[{
       RowBox[{"Cos", "[", "\[Phi]", "]"}], 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", 
     RowBox[{
      SubscriptBox["\[Beta]", "2"], "\[Rule]", 
      RowBox[{
       RowBox[{"Sin", "[", "\[Phi]", "]"}], 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", 
     RowBox[{"\[Alpha]", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        SqrtBox["2"]], 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], "}"}]}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        "+", 
        RowBox[{"%", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
        ",", 
       RowBox[{"%", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
      "}"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"U", "\[Rule]", 
        RowBox[{"2", "t", " ", "u"}]}], ",", 
       RowBox[{"\[CapitalDelta]n", "\[Rule]", 
        RowBox[{"2", "\[Rho]"}]}]}], "}"}]}], "]"}], "//", "TrigToExp"}], "//",
   "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.770310971545632*^9, 3.770311003088539*^9}, {
  3.770311087496522*^9, 3.770311088167938*^9}, {3.770311204846015*^9, 
  3.77031121686025*^9}, {3.7703118286627817`*^9, 3.770311880021471*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"e79ceedf-732c-4e34-8fe4-426dcc35cfb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SqrtBox["2"]}], " ", "t", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", " ", "\[Theta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
      RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}], ",", 
   RowBox[{"U", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", 
   RowBox[{"\[CapitalDelta]n", "\[Equal]", 
    RowBox[{"2", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770310975283208*^9, 3.770311003501313*^9}, 
   3.77031109017209*^9, {3.770311207584177*^9, 3.770311217359182*^9}, 
   3.770311296973083*^9, {3.7703118322684937`*^9, 3.7703118805090723`*^9}},
 CellLabel->"Out[98]=",ExpressionUUID->"42cc8be3-30a2-4fb4-b443-14f46342ad72"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{
       SqrtBox["2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}]}], ")"}]}], ",", 
   RowBox[{"\[Rho]", "\[Equal]", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770310975283208*^9, 3.770311003501313*^9}, 
   3.77031109017209*^9, {3.770311207584177*^9, 3.770311217359182*^9}, 
   3.770311296973083*^9, {3.7703118322684937`*^9, 3.770311881002561*^9}},
 CellLabel->"Out[99]=",ExpressionUUID->"b3f2899d-1e7e-4dae-abf8-6a4e8f4146c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Equal]", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ",", "\[Phi]"}], 
    "]"}], "/.", 
   RowBox[{
    RowBox[{"C", "[", "1", "]"}], "\[Rule]", "0"}]}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Equal]", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Phi]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ",", "\[Theta]"}], 
    "]"}], "/.", 
   RowBox[{
    RowBox[{"C", "[", "1", "]"}], "\[Rule]", "0"}]}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.770311318030675*^9, 3.7703113289038887`*^9}, {
  3.770311359899845*^9, 3.770311374740252*^9}, {3.770311450276998*^9, 
  3.770311450870775*^9}, {3.7715747639256897`*^9, 3.771574778172269*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"cdde2f73-f556-4227-908a-bb4a5f469559"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      RowBox[{"ArcCos", "[", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"ArcCos", "[", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7703113240321503`*^9, 3.770311329334465*^9}, {
   3.770311366210664*^9, 3.7703113752994337`*^9}, 3.770311451376164*^9, 
   3.771574779197666*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"b9e0f9f2-dcc4-472d-8ea5-a1b09b281547"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", 
     RowBox[{"-", 
      RowBox[{"ArcSin", "[", 
       RowBox[{
        SqrtBox["\[Rho]"], " ", 
        SqrtBox[
         RowBox[{"Sec", "[", 
          RowBox[{"2", " ", "\[Phi]"}], "]"}]]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", 
     RowBox[{"\[Pi]", "-", 
      RowBox[{"ArcSin", "[", 
       RowBox[{
        SqrtBox["\[Rho]"], " ", 
        SqrtBox[
         RowBox[{"Sec", "[", 
          RowBox[{"2", " ", "\[Phi]"}], "]"}]]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", 
     RowBox[{"ArcSin", "[", 
      RowBox[{
       SqrtBox["\[Rho]"], " ", 
       SqrtBox[
        RowBox[{"Sec", "[", 
         RowBox[{"2", " ", "\[Phi]"}], "]"}]]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", 
     RowBox[{"\[Pi]", "+", 
      RowBox[{"ArcSin", "[", 
       RowBox[{
        SqrtBox["\[Rho]"], " ", 
        SqrtBox[
         RowBox[{"Sec", "[", 
          RowBox[{"2", " ", "\[Phi]"}], "]"}]]}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7703113240321503`*^9, 3.770311329334465*^9}, {
   3.770311366210664*^9, 3.7703113752994337`*^9}, 3.770311451376164*^9, 
   3.7715747793461933`*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"5c5a57ca-23cd-49b4-8574-01d78094d0e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{
       SqrtBox["2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}]}], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"ArcCos", "[", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], "]"}]}]}], "}"}]}], "//",
   "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{
       SqrtBox["2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}]}], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", 
     RowBox[{"ArcSin", "[", 
      RowBox[{
       SqrtBox["\[Rho]"], " ", 
       SqrtBox[
        RowBox[{"Sec", "[", 
         RowBox[{"2", " ", "\[Phi]"}], "]"}]]}], "]"}]}], "}"}]}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.770311987048621*^9, 3.770311988877342*^9}, {
  3.770312761492845*^9, 3.7703127648405333`*^9}, {3.771574798102633*^9, 
  3.7715748034285707`*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"7379f121-1df1-432f-8e4b-af6c226c3c25"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", "t", " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "-", 
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "-", 
    RowBox[{"u", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.770311984983343*^9, 3.770311989818273*^9}, 
   3.770312766102787*^9, 3.771574804679285*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"85937eb2-1bb9-4f5e-b9e9-1cff49e699f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "t", " ", "u", " ", "\[Rho]", " ", 
   RowBox[{"Sec", "[", 
    RowBox[{"2", " ", "\[Phi]"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   SqrtBox["2"], " ", "t", " ", 
   SqrtBox["\[Rho]"], " ", 
   SqrtBox[
    RowBox[{"Sec", "[", 
     RowBox[{"2", " ", "\[Phi]"}], "]"}]], " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     RowBox[{"\[Rho]", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
     RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.770311984983343*^9, 3.770311989818273*^9}, 
   3.770312766102787*^9, 3.771574804952211*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"cf01f6fa-be95-462f-aa57-8d3b6d4b252e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{"u", "+", 
        RowBox[{
         RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             RowBox[{"\[Rho]", " ", 
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "-", 
           SqrtBox[
            RowBox[{"1", "+", 
             RowBox[{"\[Rho]", " ", 
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}]}], 
       ")"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "4"}]}]}], "}"}]}], ",", "\[Theta]"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "t", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             RowBox[{"\[Rho]", " ", 
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
           SqrtBox[
            RowBox[{"1", "+", 
             RowBox[{"\[Rho]", " ", 
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], 
        "-", 
        RowBox[{"u", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "4"}]}]}], "}"}]}], ",", "\[Theta]"}], "]"}], "//", 
  "N"}]}], "Input",
 CellChangeTimes->{{3.770314257158298*^9, 3.770314373078603*^9}, {
  3.77031473412119*^9, 3.770314741836935*^9}, {3.77031479233566*^9, 
  3.770314815018423*^9}, {3.77031487675154*^9, 3.7703148847545767`*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"393269bc-bd73-45ab-80c5-ceb9e07007f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.7247448713915889`"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", "0.5235987755982988`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.770314260169808*^9, 3.770314305841403*^9}, {
   3.770314350676011*^9, 3.770314374984372*^9}, 3.770314743957213*^9, {
   3.770314804717328*^9, 3.770314816187608*^9}, {3.770314877778783*^9, 
   3.770314885929282*^9}},
 CellLabel->
  "Out[197]=",ExpressionUUID->"a6ca555d-1cf7-4efc-9e3b-56c986aedf9e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.060357111621661`"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", "\[Rule]", "0.6461266350525996`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.770314260169808*^9, 3.770314305841403*^9}, {
   3.770314350676011*^9, 3.770314374984372*^9}, 3.770314743957213*^9, {
   3.770314804717328*^9, 3.770314816187608*^9}, {3.770314877778783*^9, 
   3.7703148865010633`*^9}},
 CellLabel->
  "Out[198]=",ExpressionUUID->"9c917fcf-4cb3-4275-bde3-32bce3caf787"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"min", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Minimize", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "t", " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SqrtBox[
                 RowBox[{"1", "-", 
                  RowBox[{"\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
                SqrtBox[
                 RowBox[{"1", "+", 
                  RowBox[{"\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
               ")"}]}], "-", 
             RowBox[{"u", " ", 
              RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "\[Rule]", "1"}], ",", 
            RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "\[Theta]"}], 
        "]"}], "//", "N"}]}], ";", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{
         RowBox[{"\[Theta]", "/.", 
          RowBox[{
          "res", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
         ",", 
         RowBox[{"\[Pi]", "/", "2"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"res", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
         "//", "N"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
      RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.770355348192564*^9, 3.770355411408017*^9}, {
  3.7703554904566393`*^9, 3.7703555593208637`*^9}, {3.770355600629633*^9, 
  3.770355614226286*^9}},ExpressionUUID->"0b296406-def5-4295-9b09-\
805345385cc1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5535743588970377`", ",", 
     RowBox[{"-", "1.2360679774997898`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5580076735912257`", ",", 
     RowBox[{"-", "1.2287649782510355`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.570819447674565`", ",", 
     RowBox[{"-", "1.2070237210137131`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5907683954616997`", ",", 
     RowBox[{"-", "1.1712956078259347`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6163362351745704`", ",", 
     RowBox[{"-", "1.1221927434898866`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6461266350525996`", ",", 
     RowBox[{"-", "1.060357111621661`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6790497612317301`", ",", 
     RowBox[{"-", "0.9863629094273494`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7143439691513855`", ",", 
     RowBox[{"-", "0.900658071270539`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7515267814191012`", ",", 
     RowBox[{"-", "0.8035327739862582`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.790333917785218`", ",", 
     RowBox[{"-", "0.6951000727876492`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8306705511305916`", ",", 
     RowBox[{"-", "0.5752766836983293`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8725811562545335`", ",", 
     RowBox[{"-", "0.44375421463624803`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9162386906270519`", ",", 
     RowBox[{"-", "0.29995058266235086`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9619545845211089`", ",", 
     RowBox[{"-", "0.14292641840471904`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0102160122170032`", ",", "0.028761647666562053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0617684779914527`", ",", "0.21733030513889748`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"1.1177908761395954`", ",", "0.42630380180816013`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"1.1802987230224822`", ",", "0.6617105494519643`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.253258368118596`", ",", "0.9353388476168182`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3469808025072676`", ",", "1.277422946975614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "2.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770355379536401*^9, 3.770355418067244*^9}, 
   3.7703555334015083`*^9, 3.7703555668294363`*^9, 3.770355610818757*^9, 
   3.770355647029393*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"9c14db69-ac0e-4f65-a417-2db08dda7c32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"t", "=", "1"}], ",", 
           RowBox[{"u", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2", " ", "t", " ", 
              RowBox[{"(", 
               RowBox[{"u", "+", 
                RowBox[{
                 RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"\[Rho]", " ", 
                    SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "-", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Rho]", " ", 
                    SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
                  ")"}]}]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "t", " ", 
              RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"\[Rho]", " ", 
                    SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Rho]", " ", 
                    SuperscriptBox[
                    RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
                  ")"}]}], "-", 
                RowBox[{"u", " ", 
                 RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"\[Theta]", ",", "0", ",", 
             RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
         RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"min", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.770311464000741*^9, 3.770311479000958*^9}, 
   3.770312025786541*^9, {3.770312057939768*^9, 3.770312064200095*^9}, {
   3.770312783505554*^9, 3.770312952263651*^9}, {3.770312984088627*^9, 
   3.770313093380691*^9}, 3.7703132414104967`*^9, {3.7703136235938263`*^9, 
   3.770313623718665*^9}, {3.770313742025963*^9, 3.7703137802163687`*^9}, {
   3.770314623412835*^9, 3.770314623649373*^9}, {3.770355425518313*^9, 
   3.770355467586473*^9}, 3.770355580485289*^9, {3.770355622574527*^9, 
   3.7703556568037853`*^9}},
 CellLabel->
  "In[288]:=",ExpressionUUID->"2f6f533b-d037-45aa-91af-162901d9b70c"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk0lV0bB2BDhgZFSZHM5K2UwluG/Igo3soQSkhEUilzoYESkuiYUoaj
[encoded data, 4758 characters]
Fuok2eh7M0GFS2KH5hPjeWn2/+f+v+F/5LqviQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381370#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8lFsYB3BZIl03XJSSLUtRpFIUPaEoSopkzVLKlq1SlhJJbsoyIRVJ
[encoded data, 5307 characters]
90Y=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381370#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Ak01XkbB3DbRDVNFC0koiRpMb0t1m9JERNSujOaMLekyFaiJLSMvUjy
ki3KRaKRqZjor6LB3Gu5DLKHCNmy/P/Xcn/vfZ9znvM7n/Oc85zfec5znnVs
DxsnCTExsRhR/v+9oMazMuvgQudpwA5vVhelp6BrvHeAC3nb7TP09U7qqZXt
FtUZLu56DC1686iDWhvutUpsMQ8JXJVgM8kOKrrstmSXEg9hajsD1wa2UxIk
e4TS5oHN4bVt/L6d8tb98DHVkIfEqfVhchltVN/F7rJASx6OmCzWrT3YRlV9
UUyEJw8fFu39Jze5lTJQ3x2scp2H/m5cDrVupfJOHvUid3lIiigpt5JupWL4
EaZUAQ8uE55p9wJaKKklWT+mlvGgq03MDxm1UD6mZcqB//Lwnb2ym7VYC2VX
PDdhRPOgn2kU6BL+kVLjuD18o1cNznqz/A3Pm6nYrrCIFItq3LM52O0a2Ewt
UOL4BPxajVssG++mw83UYFTHT0YB1ajqYTbwh5uo51esBCVvq+HxcD/S9zRR
6/907U3mVyNiqu0PyyVNVNxISM21nmqsru8vftbdSPmdKs0w/K4Gmx3lV52P
aqSMD+vYlJjVQDfReZ4Z/ZeqV12eU1xTA8P+5z4HKhqomVOuee3utZjlhHmw
XvMpR7mJy8U+tQj2S5eoT+FT5W/89icG1EJ8p+ZU4A0+Fb06vPnnO7WQg5P+
OXM+tbEmS6Ihtxbr7fyv2rXVUcf0+o5Xfa3FJRtDr07pOipP9jfy0qUObI+0
esOxaopdctw6+gwf9ObMJ6rGldSPL1ctW+3Bx+KUwi9uyyspiWct9Wm+fFzQ
U7Pv7K2g0h/aswpC+YjJmCzWDq2gum+esW98wofD+K+R7Nq/Kba5z/k1o3xo
lXst5535QLGb7odm+dZjNkfBKDPrPXVqvKG0NLQBOZ4+7QfbiqnI7a88OMGN
4KX3FRouzaAkSl/tvuXXjNR/561VfnsAOS2L6s74FtQMhKdMFRXCLNX40VhM
GzjEe09aSRlWjnIPBr7qgNDUmgzX8vDg77/EJc91wUI91VefXQ8D5X1E9fQn
PN5w2tI5rgmbu2R7r3l3Y+Maow2K29qQm7Xs7IsLPbgffCNGfl8X/DtO1m8O
7sWiG1WSssnd8DLYY5ES+xmjJzJu2Iz3YibVhD0U3YdVgrgDbJV+1Ho+cPRN
74eeO2v3rP8AdE3VhO1pXxB0PF7qYv4QKg/oZu1NGsDVkLrBS83DyMhP0O3O
GUTIK079oPwYFNS1XeyzhyB0kbj/SWMcfHGZG6uLv0Lxo+Lppxbf8ELmIqe2
chj7xCICvjlNQFtB1oVdPoJLV1iZRc6TGL0zLb+jcRTbFrvusLo8BfWQkG0e
LmPwuWYjbucxjW671hbj/jHcWR6iVfELDbPP9YIX7uOIGrVzSLZkcPmC09kV
w+OQEDcbstgkgOXLRPMVPt9gS+2/1bloBiNzLv6S099QmNcQydTNIK3p+p/u
FyeQ8sihNC9sFjNnDR2vzE4gI/v3IOf9c1Cev3vCy28S95zu5p3rmUOfaUSV
jNQUvoQk6Gddn8d7DS7WRkwhaJt/t/ISIVxkOFLrFk7DUaitfydIiFcP1xu+
vzuNY83ekkeGhVhPTK6+vTeNYe7DYx9GhIg+6VRE3Z/G8SCr53pjQpxV5Ows
TpiGTNnXGNUJIRRjN259kSbqZ7etv4sRwj9ESyUzfxoFs4e4O6QIjN23i0fU
TeOXG8FL1RQJqvUNym3kaHCqTnSt2U8QXnhp9uByGvyCuFxLEwLTnc909BVo
lPA/RwYeICjdqpaivprGo+Dw6x2mBAXrZHwnVWmcfnRp392fCOKlGzTjttNQ
N4FslS3BqXrXyI9WNJaSrqhQZwJV64x3vCM0/KfOByedJWjjdjBvj9LYau9z
+9k5guMfjjg9YdE4zOJz+a4EZkW7ja460FDJd176gyfB1lTJsTUeNIbZcwms
ywSMS+JRxzs0XmYf9d0VShDl90g6MJrGk8zhvfvCCDTCc14nx9CoGZ0dMQ8n
sM1+rd4aR2PdRmPGLpLgeX/rhG0qjRx62Ru3aILzp9fEWvxBo7FocrF9PEHX
yeSGXXwaye077c9lEvi6ZYTaNtB4fmY+xTqL4IdruQbejTTimbJ3u7IJDJNK
Hue30LjQpFVAnhA8aGn31u6hUbrnP7tu5REcY61VUJuk4bMttpj1gqDCOtV2
yQoGKzZahmm+I3Ap+/xGehWD+N7H33eKvGSPtqaEIoPs+Ia42PcENipFM9PK
DCYOZ1BzZQStw/zUrg0MPNb8yn77N8FI+ILBgp0M7v/E71PiESiUuwXY2TIo
84kpU2giKNzzZ/8xFgPNi6Urc0W2ezpjbfULAwSt9NrfTJByL0Td5CQDUr51
l9tHAk12WsUWJ0Z0T0IWvmglMCANy8QvMeAu1KtT6CJg6xpkZsYycO9LqlL6
QnBumDfVFscgs5V6myayZ5qDybIEBgFD80EaAwSBC29+8k9m0D9YzNIeJEj6
WKlkw2GQcLPPadNXgsYrrOi5Vwy+xO6SGBglaN8y0KHzF4N56YgrJ8YIej/5
bXEuZuB8+59CrsgTh1Kq6kpF/zkkE5UzTiCr+Fkqs1I0Tzm9B3YTBOZ/Xbhy
pJWBsHOVVsA0wRF3qYrgdgZvexxU2kX+WS1uRXEnA+O0q216NIFzeFGBRi8D
k/yted9EvmUnNjL7lcG4ts+zowKCiB9iDHRGGSg62vZkiRzzTj3izDiDrN8X
dM6JnKZlqlk3xcBKunNL2gzBm5nbbI6QQWO+56bWWYLyPJX8VjEBFFL7EjXm
CLjsfCIrKUATR6fRU+TWqoakq9ICaJw0TxefF+33A6Uma1lRfSY9Xl5IQCxz
NwQvEyA+p/3QcZEXSML7tbwAh6Km38WJLO/KltNYLYA+Kr+XJwRKKpMOJ5QE
4LkHt1uLrFb/e160sgBD/9X0iRRZK2TlfLmKALmZ+Y0fRNbRz7aYXSfAcLo6
EQX+B1JS53M=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381419#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4FW0UAHBb5auUPVuWJCWpFFHqlFIqIVtCkiLJmmwhkaVoEUWhZElo
[encoded data, 6039 characters]
Duzcl31yUWEeuubjBzgcDvwPr5wtMw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381419#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0ns41PkeB3CMGiqbS5TkEkvKJXYJ0XmX5H4oJRmp1qkn5NJNUpStcFbl
Uq1cBqkQFVEipZ8lJ5RSDeM2mRmkbOU+8xvie+wfn+fzvJ73X5/LyoBwrwMy
UlJSsXP1T1/U857uu85BZrxheFViP7Wb4f69NJ2DV0yLxW9291O+l5hxhTc4
+KnSavPS233UTtV6jdw7HGw5oJfnur6P8so5U572gIPLlod0nAeFlOeq9S5J
VRwIH8vuSb0hpNwfTPbG1XKwzExXofs3IeVsU3YippGD04k994WGQmpLXYhC
RCsH9rbVLm4TAsrezfB2SAcHPmVco7X1AsrWP/ed32cOSqLqPysGCSjrT6zA
7SMc/DvCVAgIKItwNeJKc9ARNzplsVRAmf5+2Xi9XBu6zrPUc17xqTULXOrN
FduQzRW2U4V8atVVWdbqZW3IZP3v7ewFPqWTfzphmWEblP/8qyLMnk+pNAUJ
RU5tkPeyeTpzuZeiFR3THya0wfNNaZBLB4+ayJBeeze5DY2mqzek5fOoUd2a
hpvX21BkYDYv7xiPGrKwGE8tbMPywi3qLUo8irdL1+PwyzawR+u0ir17qLob
swwTZjtMw1MXu4i6qEtmleEF8e3Y81MURza2g2r+hfspIqkdC+P+Kub4dVBy
lmL/LWntYHyZtRVYdVAXbKzc+/PbYckqqSke4VKn7SsNdRva8azXIKJzP5cK
3lEpyGZwoZeTrJe9s51yOlm5/c9YLvpb3Nw2+nIomdpKqwunOpBxTpSWVdVK
FSsoF8yc60DKuLFbTWYr5eUXsiTyYgeCHv0snoxupW6JdEaD2B3IrWMPFG9q
pRxMEos9n8/lMQtTLdLfUvGZuzU1ZDoReXvvoaymFmpBhDSj/I9OFF58rnLB
qZlSWuP2pje9C2d4raKxjHrKOdf+1siVHvj8xjRx55VSS4dfO56t/IgYv5RN
70xykfmyWpoRxIejByvHx/w57DQ3EZ39Arw4G3Kb59oEI75if8xxIaL5S3IP
qL3H/TvKgRVH+zAvcDrsswYX0R/9PxjF92NGwtk2GduDI3bWbjnXBmD0cqab
JeBjKtch4O+UT+h21vB8vLUPrYcz90XeHERoy/n88OEB2DjpzvLyPmNbepur
0e7PaNpic2cj+wtGZItK7j0eQn5Zho3w7hDiuG5SvnbfoKpnHLyn6G8siJoV
rUoaxntpuXPqz75iTXzO+Z2MUVTIHStobfqGzpOvCgN/HYOxqmJwQMN31HHZ
7D+cxzGcJFrya/sw/KM9XhmGTkAvIWFtePAIHqX3b9Y8MQkhq7vLfnAELJYA
R46I4DzwQVIRNop02w1NY5FinDx6IFDt2yiYsS89UgJoeDzOclU7MYYE0aas
3h0SfP8RHM0QjSGMIc/UN5pCHvf3R2HHxrHjqoeK3+gUpgI37IuaHsfmlq59
YdXT0JxJ9TtyagL1SofvRgT+wCeni81yspNgMqy1MlVnUG/wGloXJ5Evs1Qu
rHQGwXIFsivlRQhRT12uYjaLyhs/b6hPFYH50sNPUjyLN7Z2DV5KYrD9WHkc
BYLEqohpRxUxDh+MDLZZTOBkWWpuqyoGv2m+Q7YiQa2pbo6euhj/6nM3DFAh
eLhSLnJCRwxzttEj/jKCdCbHMM1MDK3X8m8f6BH858OhS52eYigYtdaxrQno
4Kzt+5LE6J5W2J23lyD51C3m2RQxPLWuKvftIzBIvPs0+4oYzebq9/QCCLyL
nup1p4mxSHomIW8/Qflg97h3rhjT2yWC5CCCkP0rrrk9EGPXygpVq2MEfP9s
zrr3Yix//cSqNI4gMjT/v94cMQrz+9a3xBP8FHPf7ni7GE9+6dIeSiDYwK65
XdYlBm96YbJOIkFmF++4cZ8YVTfZ0rFJBDt8tFR1J8QIC4gzk79O0Lg111tB
jQalrXrOoZAg+MXAc+YyGjXF2rMmdwgUrI0NZZbTcL9mGqtWROCl/WRKpEkj
2Msxrb+YoPvb+1y+Pg1eSJd8RAnB98T5Qw8taUz13l9wsIJAtSH0DMubhsy6
np3JdQRV1o8Gd/jQSDxqf9G3noB1b2qrpy8N+VVmDbovCHKuJug5+NPwdUtz
KW8gMAzIazQ5QMNNDdcaGgnsCEdZOoIGf6DWtOYNQYCNXWHhNRpZh1KCRjoJ
gr61TPak0VhhkKVe2kVwOG+vg3IGDYOZdakh3QRn5c8LorNpnGOt4Pb1ELA7
mzS8CmicDz1dU99L0B7lk/Kjkka0ccO48wABz+TLR/NqGkZSQSsm5twvOGVy
8BmN8PlXFuV8Ihh3yWl+V0vDb+jY5u+DBIrLB2QLm+bmo2MWxg4RuFYfjdrW
TUNV3mxe0DDBtjDZxngejYyQvQVSIwS7dNPUnvXS0K/SXnx9zgcTnzw06Kcx
YeZrVTtKcIEl9X36K42b071CxgTB86nLAQWz/+xH4c5WmqChRLusW0qCah3L
es6cXweUEUWGBBvtlQp8JHP3aeawTzMl+Bo7Vuc7NfevmRrcrYoSTNSW+3r+
ICAe9/XjlSUI128vb5rzfAaOP10iAT+08YP9DMGSQwFKBuoSdD0xDDWfJdDQ
ntjrpyFBcGzOQMGcdT/ElaRoSiB5MKavQQjWJCydadCWICJwtWnSnM1ti9ym
V0pwpdtxlsz5/3CENAU=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381468#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4lN8XAHCi0iJLRMi+RCqVPTrJWnztKfvyDZFEJURFKVJJkvAlIpKU
[encoded data, 5978 characters]
0TfmKzJLsGyUNchms+F/kBXb8Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381468#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkns41HkDxUlv2NrNlNvoImwqtdjXW0voLIkuSEpFjWoipQsqqYhQpihr
pTaiIbpIqcilaH+9FZGUNUq/Gdcxkmvu8xvGfF/vH+c5z+d5zl/nHANugLvv
FCUlpeBJ/d8/jvuNah2n4eJZX1h4+Sv1nHY2pk7S4C6QZwwK2ynuortJlpE0
VDxueeY4tVM/BCur5F2k8dJ95zq7ZgmV92pH0NJEGlYbFiZsvSihvDQKm7NS
aGzsPb43cJWEmuKt4To/czKvm3aVNd5G5eT4l/6VQ8OW38Nd/aKN2iJ7Y8J6
SkMpnB1XGd1GyR31k2NLaXjtbKiqdmmjnMWC4DPVNBTq5a6zu8TUsJmpZPQT
jeIlrsZxJWIq9cwF98AmGgxveiYdL6Z6dW3N9n6n0ar+rtF4pZiK33jn21qW
EMprpmWF8FupFWlK216xhajaWOpmF9pKNXV5lVkbCnFgnWVI87ZWyixm5i1T
CyGKTQ7M4cxupWpKT+7Q9BDC+cU4/6fEFoplsuFD83UhvuibT5nh2kx9VeWz
KtKFkJ8tswvTa6aetw9ueXxPCIdAP1FkRxPlk5EiOlssxM7zmaYropuoYt2u
bwZfhKhP+nS84GUj5a16UcVHR4QWndOKELcG6oGk3PLbVRFG/X7IWfSIpiJf
6YXVpIkQ0Spb58qjqa3pR6ji2yLYq57pzN1FU0o7tR0vFojQ2SPWYbNoarPA
d7PJJxFmaGqzAk98ocb+O/XIIc0GBD8oMFi1vp5ay7fP7E9sQEDc3q1RGp8o
XkVNY9SNBix/G+1s1l1HlQ9462plNYDNyPnK5XXUGofQy1YFDfgn5qBwdlgd
Zd+ZHxJV3wAT3VBxY6eAsrFY6Kw5txEzbr33j6+qpczfqo78drsR90v8rptl
1VA63987RhQ1ISKjIyrYrJJKeftcWeVACxYbiLPWrSqgbObZkQU+rWix3zOg
xfsDS1s0JGeOi5F6zrPqdtcLPLw3a3/B0TboO1mdVLr7DmFNHMHSGAka6jmt
5uECBNlYbriZ1I63b34ZW+BPY4zvwO1O+Ipp2soWKvVNqAlM2R1yqwM9vY2C
6W5iWDkZKhozvsHF6nAch5Ggco3Vvd9TO3FzHWt5x4UO3H6SbCXO6cLvag+H
1NZ0Qctomb93djcSA9f/5F7eg1pltSh2aQ/CDUdWLgn4jgK1Y3dqKnvhX+T3
SDHRj2VaGv7csj5kWWbaS4wH8T1+VNPi83fk9dzP79k1BCMezyzAvx9nB+dO
0wodhthLJLTv6AfH0tT2Em8Ea9sFsoIjA7At+itykD+Kk0d992v3DqD/X93/
5KRI4Vp4Y732iUEYXtIMb0lj0Cf3D1MZHcTjn0+0H4uWIaM+8umRY0NIsZOk
O24fw9h+292nxodAyR3GPpqPY97EnzuCTg8j63yg3lDPOL46xb1TmzoC9rG6
oNnZcrw2fo/5cSOoXMJR99w0AX+1O1MN1EfBXrKKs7p5AkXpP9u+/nMUXYuU
+Zz9CnywtilzZ0mxZf6Vp1u/KBBbHDzuOFsKPZ734z5aAaflj3611pIiKLvv
+XmRAi9NDW8asaXg6/1H/rhJgXwDtZDhBVI8S//NVC5R4Lpq3eJr5lK8YR12
8h1QYK/g4CV6oxQ3CgunR6kTMP43Nu+Ol6JP88pA2wqCP05nqkYkSDGl/Un1
TksC49ickrREKbp1tsTVWRF4ZJcYia5JYfGG3H9pQ5DXIRry4EuhvHJqaJw9
wSGfuUkbHkvRknd2a7cLQQsnrW5FrRQBon+XCfYSVLjxPX7UZqAVuVrD8RKB
/5v2v1V1GSxe1l/EvUzwo+WyxVP0GHCay33C4wnc9Z+Njc5jUPSyvTovgUDU
W8tvWcggZU9S48yrBH2x07rylzPwjLHtT0kj0Co7HO7lweBGAKt2+CFBseXT
ji3bGHg7yNmDuQReD8bcNnpO7pxesa/vEcHNKzwjBw6DVVVKMyVPCBZzMyp+
8WXANviQ/LqAwIbUzVIOZhDOqF7f/IKAa2Vz924Sg4Uj+yyKqggO9FaPNFxj
YCEeF+S+JwjM2OUwK5lBrE2S9e1qggj16NawyV+tSK7dFf+RIJWunON+h0Fp
wS35JgHB51PbEuRFDM49eH3hppBg/fOjpzaJGCzdHixz/kaw6cjUiphGBhPp
n8/M6yTYbnhNu7SZQZd5dGXPJPvFPss3ljAIdKku5HUTnPNS6hvvYWD0LKkz
t4/g77HL3DsKBj6kKP/VMEFZrv4TkZIMye5luREjBO+5T4iGigwPV/sGWY9O
9vuuLjVUVQb7WUddHkkn/5Eyp95NQ4ZXWtv3XBgjIK4PF8bMkuHQvsRk63GC
aSo4XqIpQ2pbXHLvJGse5LKM2TK0Ha7rd5kgmKM/vGvHHBmulJitlU+yoeB8
bsI8GfoKuX7ZCgITns5Emb4Md0uOuXoQgl+tszeMG8iw3PbABJnk/wHsduuE

        "]]},
      Annotation[#, "Charting`Private`Tag$2381517#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4lF8bB3BZIr0KIVu2hJAlLSq6I1LxU2hFSKEkW9YiKWlT9orIUqGN
[encoded data, 5429 characters]
9rWVC/XKXDDUUfYzmOaB4ban1nOqXOCue9nN4/Hg/6+VMWI=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381517#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkGdUlGcCRlGJwB4LRZEmRRwkBiNZXQUpjxIUj7JKtVAsI4QqVQ1YFsyC
GFw7kAAigtKkKKAQozuvUqQoySwgbZhhBgYQpQ7CfDOUd8mPe55zz3l+XSN2
qIvvYgUFhaAF/tqH3C3LLxfxEXOr1PbJnkESOp68ubGYjwnDiaiVowOkRHt9
oFcFH/Y3p1r0DAbIqF3Zo1EOH+amPNMVOf1kU/DOntg6PiKKvrL1su8nwcl/
aGtw+bjr2B4XOiEmRRwvt5wOPkz8+E6xeWLyefDTje0iPq46h21X9hGTjWrR
DQ1DfOgfmj4ayxKTgB1Kil4SPkJed8wNfOoj+aeSbUflfBSH1N9OKO8jGypK
y9WXCXBB8YVRvGMfWe/5KcPzWwH8ss/+9lVyLzkVF9Uxsk2AlnMfXpUG9pLs
4qUasRAgXnrNJW5XLzFSML76yEkAeoqXukMiIvo5nhEjEQL8Qmy2d3uLyJqx
93tiKgX4p7v1DMtVSH69TU4OEQHe7V7ZfX2rkGhtLbvoWi/ASbnKMg/NBY/+
pWxDpwAldWNRuhU9RGcJW58rF8Dtw/maUa6A6K+RThna9iDaQOTma8QnJjDK
qarpgUq54G6WWhfJFWm8NmvqQX+jSZNPXycxiVvKS/nQg2JJ168hzzvJhobP
qkEDPXB9+rdDBz06SdLXnhwVRSHmHv/vhU5eB0kpZ20sYwlRVNs+Xby/naTV
/b5oSYAQjK6ZMOhFKxkXPo0eCxbiR0Ofu4eTWomDPHeCFybE7DG2sk9oK/li
dlf0LEqIPwcmwWe1kgN3gt78cFUIJ/fgqu+TWshib73LjXlCnIkevh97rpkE
SS4p3BkQouZC5WvTA1xivXYXNfQRoY+TeOLe2XryjVBVfOlML951fSeuSXxK
ivPV/Z9H9KEQbtWsvFxcFHi3fHNFjHrJY8/vJ6oRbm2x/35SP1w4kkeTT7iQ
Z9qzP98aQMy34QUPXreBG5Z24sfsQTR1S07ZmPBh6bBunp/1EQ5xUm77RREa
dlvm77w3BMY250O1gxg5pamWvYWfYGbl/PW8zSBWG5sFHiv4jLoO1hO/iSE0
L1L+SfvVMPQCNlxqez+M58qRudyGEQywT0YaXh2D2WrVQHbtKPpVXfb9sGgC
YzemV21pG0OolwcJOyiBcULC5tDAcax4TErtLk2i14PXZTc4DvOl5Ua26V+w
t79F9jxkAvk7ZppEtVOIivD11xyZwIp7sZpz3GkcqEjfp3lOgkpJ7oYj/VKM
zgZeXDItgUVvS+PpLgZZ7ZefhUROIj3EdlyFI4Pc3+ZE9MwkurWSe7bkyrF2
7rZn+PkvsHS+PpQcNoMBh2uNyopTyNeaUW61mkW1yXvoX5uCY3nMxgLJLAKV
cxWNVKYxafyzkeT6HCofrLepvj2N4kd9nKOsefxhZV3roiaFpyi17Er2PJjA
dNcTN6RosGsa/Lic4ub5h0oxt6TY5269M3UlhUli4cuMO1I8PpYVtVeNwr3g
pTEvRQqWzpafH66iKBvkTbpnStFe/sbUUZci2Ecvaf9TKZC8ycvPlELondG6
rVmKgKPbTtfuoqh3ynRfrsmgTSPY1iCcIrCmn6OkxaBEP/V4aATFcgsz08U6
DOZGl8VzIilcDF7Ip9cy8Nar7j56joI30pwpZDHYmmhP4i5QjCYu/VT+DwaO
hg8PFsZTrK49/S8PdwYf12ukWqVS/GbxbNDtMANPC99dwWkUHkVyp4NHGexj
DY+kp1Pcv5tgbO/NINM8zZXJoDBlZ9Vv8mUw2BzvnJNNYU1b1RedZWDqb6fF
LaRgW1rn5SUx4D1L6/T/L0XASNNUdwqDnMg3JJVDEZZ13F49lcHrrUeCGwhF
jMq/RRczGOT/1KvFqqK419mg65LLQPldPWl6S9EWffjWbOXCv0pvr/hPin2/
R0Q78xi0llacNBFROIco1l/hM6gKr1tr3ktxZF2K5qseBhnKvAcWfRR+iS/K
TcQMdtgYz+7up4jzUBidGWZQev6jkssQBUd+nZ07z8DuP9rnN09Q1JYYlPIU
ZDjS41fAklC8Z5dS1SUyeLxlPdCZXOjb2HrvgpIMLi9XiBWmKJg03XYnVRk8
j4e+5TAU9EAx64q6DKqNGn8vlFEsXYIzL1fJkKXk55sip1gVxFYz0ZbhpreV
ccAsha7Bl+OeujIEsZuKneYo1rXEl9xaK4OuhrnC9nmKjQlr5moNZLAzCtbR
oxTfWRXsnzGSYc+hxFm64P8Hwv+Xew==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381566#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd1Xk4lN/7B3AhaRHRZkmhkhYqpQ23NUUJSWX7WLILTbKUPohQJMqSrbJm
[encoded data, 4941 characters]
uffrp+Bq2K/LeycEsOtQidmM0hQEfmvoEwgE8D9dDYfn
        "]]},
      Annotation[#, "Charting`Private`Tag$2381566#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs8lPkCh206i3VYLCoSKdoiqdijom9a7fbZNmGzLtOWppud2tzaLpr4
FEuHk8Ou+lTqoI5LbWbRlMNZfopxKVNMojXofWcGmzIuc3tnXN7T+eP5PP89
fzxLuXFhh+YZGRkdeM//vfahZcu5RxQC772Kva8eJjGWvW2BTRT6OPGCMweG
ycMV4i1erRRun1XZqFuHyF8Dm/7j8JTCuGbILZEzRA5E13qbPKdAiaNW75o3
ROqSfitXSShsLXpFZwkVxOpSiQvVQ+Efw54M/7iCHCktuNrRRyEBvAWLvRSk
geRZ1Q5SGKi+k+U6JSdHp84Z/TxM4YO3siWfpcvJY/MTp1NGKWyulpN1oXKy
0I03wVNSUAfW3wx1kZOWiG+pz7UUUp36mbdNMuJS79Wo+QuNFonTxRJHGTnZ
s9xPZkbj7JrphK/VNBGPO1Q+s6DxTx/+un4xTZJdTYrK7GjEfyY9nJBGk+7M
16lRbjQ0VZc8dFqKrCp+qdu2ksYEO+oZ8ZIi5+uexq1bTUOg66reLKSI11jN
PnNfGv1R6pTMJIpcDMtFfRCN1TWGjnvK18TfKZB1Ofi+n93VKHUeJNv3dCdy
Y2mEFt58ZKwYILsLjgzfPkbjJ+xMbi0fIEcX5Yjdf6Qhuax3MfcZINftpAWe
GTSO+ZvXq0P6CWPxo59fOQ2L7M72yqI+IpwrT9j1jkb0ysUkJa2XNAb4D+VO
0Hi1bGS3ze5e0sF/HilR00h3GihTLO8lcoMG4bM0PNraNm9p7SE2uq2WHEsZ
xKc0gkrLHhI/3n/3sLcMvqesdefLuokHZaU4d0KGVM03LSJDFwkecXl88rQM
LR0vUk26u0i80rsoji/DhK+vaWxFFxHOhOzZny5D096O52kxXcR/UV53UL4M
rkkDLQ5tneTrMGuRuVCGkdN7bsn9npNjzdal11Qy5Oy8a8wKnpCKcpvYB4ly
xBSn78i3eUz4g9+98MhQYGHQSt/WQT5J8Pfb8a/8Ifg+WmH3cXA9DIVB3Le5
w+i5kvZ9yv4OdMZfjzl1awQFnOliSchLbPjSdW6g+E9cjEsYq62Ton3bhvIt
N96AT6Ksm99QKKm6tkH26ygEAc1Un7MCdss8eXvvvEWFy+3gVLMRSD4wvbDo
93fw7BIX6h1G8cA0qbSzfQwHozJPxZiMwdPOiscVKSGhDga8uTeO8Ryt7fqe
cdw3X7s9ZuMklmVmronjTaDNQxWRcXYKsmhp39aRCdhbxEfm/arC9qEX+gfH
J7HLLlIz8acapxMPxdqPTYIzONLYNV+L4IcFX9mfnMK/+R9rBat0UM7w+Mba
KXg7Hv5b7hoGxb3nhceTVFCm1UT5uOphiA2IOTOtwk5V7qqNDgY4zeZxEpLV
ODxsJjVXGTD8ZfYT0/kamP42KrwinkaTeweWZGvQsDfx1vJfZsAzLZ2/1EyL
tsuXN45vmkVN0fKApjwtVlRw7VvpWTzb5C8Ks9bhF/1S3y+OzYHhFXwTk6ND
5QXJiWuKObSFFIZb2DPgGCW5PgpnwWseajBZyGCd4tmKbREsLPw8P53nwOBN
+3nvtkgWYc61Bq0Tg89tlTueclhIxySFlBuDUnflXdF+FsqsD0fv+zK4GvTp
R9k/sLAT/ZASHc4gs+RQeGQ6C+4G/7KyfAYJ97g5swIW34+JNf1XGOBcllds
JYv44n1BNtcYNAxk5HdVsUg1S6P5Nxk4Tn9SXSRkceOPdsewUgbrk5f5eNex
6DkTkTtTw2DP3y9E2YpYfFWXeCZUymDJQW7U5B8sQo/Pb8sYYFCZ3tnoI2UR
6XrF/vfXDJ4u1ihP9rM4klV7313BoNEmvVA3yCI92kg5/Y7B9R5B2KicRYPh
Erd0jsE7x/Vml8dYiATOVVIjPZpLtlDNShYd3CrWylgPoeRqimr8/Y8n3TfO
muhxiBNqvXOKBXPdsTfESg/jgHm5k1oWbHCFW4aNHlRw2q0FDIsPjXHiv7Z6
dGiL+f56FrZHudbui/SoDJJnXphm4eis3sdx1EPb5Fh7e4aF64ufBLlOesiz
naqbZlmsylwwK3LWI7lZlSibY7F2050d00v1SKu4M82yLP4H5hVk/Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381615#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Xc8Ve8fAHBZlcqKSraKUskoI/TJaumr3CRJVkkZESElLUkqSduIVEZD
[encoded data, 4758 characters]
hKB7ZfF0mfo4KHgELbAYE4KBea79pOY4MENbO4RCIfwPV5QjZQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381615#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs0lGkAxoWVrRRKqkmiCyubVVFCT0qr0o3SrlzS7FaaXKOLZWtJnIMc
t1VCyO6g0q5KdPNWhky3Uy5Rwvi+QXJLmfHNuLxr/3jOc35/Pb/zGPEDXQ+q
qqioeE3k/45Z9/PncwkMzlRMnn5Jr5PM042UOycxiMvWVQsw7iB2c5PrHdMY
xKiynavypcR7Yd5N+4sMfg9JlHitl5I/TEqSrLMYzPTZW2/Yy5Iryx8HWOQy
OPXR4apFHktEVm+2mf7F4Eni/jnvPFnSadduZlTIoH6aVXWkAUs0HQc1511n
kHeb3lnAMGSbq07V1NsMtH2LHkeFMiTA3ShfvZyBm6TazcuBIUk+lpFj9xno
t9vyV2szpD7AxX6gksFrJi1JebOdeMYnl9bWMVi1e+ipvWY7OZ2Sl/q8kUHW
xUOnl0kkJDejJFjUzGD7KXctZbmESAvefH+HZbDf6keO85MQP5GOMOMrg0bz
G7zl99pI4nOj6JThib2mI60mx9vIv7WW/PgRBl0WTyRmlm1kSOKy4Hc1FodM
2aN611tJxFhyus9MFkL/kS3W11tIgrVurMlKFjetix7JXjaT4kJd39JjLCoO
zH/eHdREohuIg9pJFlNissZ4a5uIp6o/zyWcRXRhd3+xWhOZ4vn0Ve9ZFuGv
pog7LzSSQzMirBb/yWJnyuBpgegtWXiiQzW1jEVM5ooF8mUNJG1jeXbQKAuD
54/nHzKrJRGtXnXLYqSIivb7MM9LTIac7LMPxkkx/cnewL1TxcSvZP7hnEQp
Pg6npz+7W0M8opuVuhekWNqb8MJdv4asNXM3VhZIITR8+kyloZooju8JrhFL
EbYmMYt1F5ETWs4zDmp1wLa6tWPrNEKC7dY4X07rwLaw8GzLjUVEmePI70nq
RKyT6QWXX27hddAln5NXulAsXKm/6Z0YNk7G4y15HzFnkZ9v0Yx6iDfZFK7P
6oaR6sYt+pXv8XdJhg1z7RMcRS3SfyUS6C0yF3gX9WB60Z72dg0paidpRs19
0Avt/tzQ1N1dKNUMEb4W9yHfYe4TLvQTzPW0BfyqfojjN0Ss3tyHgUT5rJVv
ByB4uPfXxYafsSg21iJQ8Bkic61rCaGDYPY1v9/Q9RmX3/DEh8u+YHNHnaI0
YBA52S2JP2gO4dSxg76z+wbxz0CBureVDDvuZG6dfeILwvX8p9r4y9E/KohQ
k39B3xuv1ZujhpHXGHk7IOQr4hJ2lzpFc1D62vuEjXyFwNfjm1MJChiMJXsE
/zaETLXhEkWIEp1O8c801WUo5lZNmuE9gsqlL7AgXobNu34Rx68YhUBTqG70
rRwaDzLLv+keRVnuYvvKZDmuNh5wCs8ewytbuypXnWE0fyeVhViNgxNk7vZJ
HMbbAfV/PtwbR82uHDet2RyiUgOP8dZSCEQdFZPnTPBx8846WwqtNeamqvM4
LO6CZ7w9havhXaXcgEPPrZCdw+spmvtqcyRLOIhvu7pWOlH0x2l8umXFoeG+
7YtlbhR6Vf6n97lxOB9pIFwXSMG3sSsoSOOglar70i+X4kjfS9mHdA7qHbKH
OlcogvL2O+pmcHDOmRxamk9x5tuz7RHZHDJSGi0UQoqsd2Keq5DDK4F+V3Ax
xduwn5JGyzjUnK/1ML1HsfXesTCXZg5Byxtzi2opXALUa2JaJny8PbaY1FP8
bJw++0EbhzJfx/L8BorDcXdvLZVyaP0S3H2xiSJ6n0r/SC8HyyO/XQptpahQ
nucLxzn0bYpzGOymqLphWNKsosBUo9duHj0UL/glVFtNgYglNpai3ok/ntVn
hU9WwOVkgX3KAAV3ide4S1sBaHjfMJRR0B3FS2J0FZBtXzJ2Rk6hoYbQ+7MU
MHl0cmbbMMWso3ydpXMVSO78mp6hpOAZDu334ClwpGyNumyEwrju3I0kAwXk
Petsdo5RmMXqj1UZKtC+fZZ14TiFpW2R84iRAqkV1UpKKf4D5dQYTA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381664#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk41N0bxpWppGQrkqWMpVLaLBHepySFUpaKkqQsibGTpUShInsqW0WW
[encoded data, 4697 characters]
tvS76Q==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381664#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVxXk4lHkAB/AJ7VKRK+UZR7T0PKrtaUkm9F2tKKwcaZMOqx25kmtzpEMr
noi0iZSalFihVqRTv+2YmKmcucv5DjlzDN7X9e7uH5/no+d11IUvw+FwXP/z
/yY/26YbbaUwYvmAtzqWIu2WZqqZ2ygsmjuwRVjYTUr9JAN9OyjIm5zkF6/q
Jsnpfwo3OVLQCJBRcnraRfhvIDjrQqF8k0YE49lFLEYHI+p2U9A13TKVr9JF
1HWuuuh5UAjcrxLmK+okr8KlC8sOUZjgTjfn2naSjOys9kU+FB5zVHZuXdJJ
gmocn+wJoJD2k2Lcg7oOorsmL0AaRmHes3M+2reDRLftr1sTRyF28CW92bWd
SG0tr/MTKFgGWUdFzbSRgCKtw4JkCgdfNzhV3WkjHrGt06rpFDT7+PPKnDay
2chdfzqXwsradiV++SfC/L4ruEJE4d3yfJUdyS0kqN3YXKaSQvH66wm29i3k
y3a1hRa1FL538BpaotBCmri1V+63UDiiRgeL45rJ45c7/0kboMDb13jBKqGJ
HFO0X8pXlKBH23zrNwUNZPiYUfMNFQl+qNdy8wlpIN4dCreblkmg4MR7ZsZr
ILuLK0wddCTYKJZNWl5RTza62xwwXi/BYhftkaj+j0SabVW4wFkCd7NLiwtQ
R4ItzOxvpErAdWE5NTrVhBOYeurCFQlueOZHfO6uIsmCkeLTmRKcExalhyZU
kbsyeVqHsiWIeyVXmNdUSboqNIdXl0hQfD8nUz3yA9nlNpNSVCfBviNiMakQ
E9PAFw1vVHug9LIv8f01IZkWWHsNpPRA6HoyNUv0iFQHXfUMv9WL8GrB37dr
C8Cz1Z//nPUFXd4TBYbh5RBt4/31Y2YfRvavHPA1qcOdogxeV34/7Hrco8u7
W7Bs1Vq/A3kDKNFbYvGwrQO1C+TPaD4fhGXO2dL4QAoP5UNzqkVDCHmlHJon
7sXaZcp+XsJh1LvEhD2p6sfX5El144av4K5pX3B6agir4uPXH/UbwUB1d2KJ
9wi69ra2bO0dwVKTpg7vslFsl9QxDwNHYer2Nu6M/jgiQvg+GkOj6F9RI1v0
qxSOpdfsNI6Nob78N/d1BRMYnvWLlp0cgxt/3m6gZhJZjTElgaHjUPGfyXvQ
PYVpH0vPyJlxmPv5rg6dpaE9d9EjOEqKQ7NW56fGGPTYJorl5SZAVgw49AxO
47Xhe+gkTmCdhpYorXoGfvI5cnoKk+h0UFOaTp3Fo5vfWb6+OAn/bBuxzZ45
VJpbCF1UptDcl1nSPzcH2u+aq2fyFDQmW8rSUuZR4SRwU9SgcSLbgOXqsPDi
WeTmptLIYZrVCy+y8B36MPEpjUbnqSi1pEssgrIOWqtm0LB3v9zgf5nFKYU/
OqOv0+CKvO8aZLDIbBZxXXJo9NGl5xJusmiI/CVl9hENQa/dBs37LOyehkQ6
t9IQSoaj7N6xcA6Uq4j7TGMkyXyl7AcWe/TTNJ630zAWpCY+rWRxOOFJsSFF
o9A1u8SglkXsXs7wzCAN5xiR81ATixfTSV458zR0y8bfWPWwEN7TLWrlMOAL
amp6elm89ypilWUZrJXk3knoY9Eq/ph5/FsG/dXHb1UOsqCvchudlBlsfBc5
ZjvOgnUsNIhTZXD6ba1Zt5TFN7IIe6bOYGjyls2JSRbq/l4qhpoMTuj1Py5k
WHB1pQc9uAxUB2O0rWdY6NedvZeizaDwfO2O5lkWRvHL54S6DBpzBi2PzLPY
YJ5nP6PH4NNEB8OyLP4F/frU3g==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381713#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4Vdsbx4WkQZlSOiTnRl1cchUp7hs395QMmakQIlGmylBRCt26dSKV
[encoded data, 4392 characters]
XQjajzYMi0Qi+D+xtG5Z
        "]]},
      Annotation[#, "Charting`Private`Tag$2381713#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs01HkAxUceKbWNR3rIVpTaHkoPdvK4rVW2xGLrJL2YpRjrWatEySNq
VUdZlddalEcdWluoyHeLab02NhbRFJP5ERGG8RuD7+qPe+6553z+uPcu5/s7
e87gcDh7p/XZuzxlG90+SGDkXVnjESMmuedW1Lr0SeB++2im10AnMf3jPN31
SQLHtYWTm1w7ibDzzWZzqQQltSuznQc7yF5tnte6MQm87AOtvG51ELFNYqq+
QoKuKtm3hnYdJCB4qOELKoFhQfLEMtUOMpVjr8pRZpBn5q2QXXxHLr/O4w2p
MUhJNi9V5r4jizXU/MSzGXxd01pSm/aWmPqVN1dqMUg1KVJDtYhUpi/WKNZl
YNxu5XrcU0Sc/w1GzuLpfN5aX19VRPy2bMi9ZMDAJPZgYrL9G5Iznh7isImB
KFpju56ijZium8iHKYPrb4efWd9rI5WHXcQbtzGYM+Srr364jXT8xbXTtp7u
s08wzla+JgtjI5a0OjFI+Gjj9SmrlWQ/EjlW72Ng2xI5x/NIK9nSy7vw5ACD
vvpnNa8WtRJH++H+VHcGqkWbvvdIaCGXtH8k7oEMuKsCD22Nbybj6Tb8vngG
dVZbNcPzmojVmOV1k0QGN7vusNaCJhLhYPb8VBKD0y7isaS1TUR98isDlUwG
oXMrgz/ebyTzXeeJlzyY/m/bZaXM8ldko06bu8N/DLSPn31OBxuI50V/98JF
3TjuWnegYH0taQhIdjuV2Q2Z5bWtt3aWkzXxXMXJ7G6M7OB66KQ9JVH3YxKD
7n7mD7+YO1JGTAeCanz/7MZvUx63A7NKSZqP3RaP591w8a1c+2rmYyI4NjHT
STzNtzRufih5QFQOHbm/xqAHsDO/k9GWRXi2BlOijB7Uf8g2W6CVieodvNzt
qR9gGqi13viREHcKk3jie71YeNPFSBzciPmG6wRH8vqwq0I8GcNpxysl9chF
ZR9R4ef3foZbJ4rUT2Q3VPej0nLYuJh2Yd18roAvHADdz7fNt+jBp6sync3N
n3BhdY1sTUofDGNjN/gLBtET+VRUkz4AsWt7m3X3ILihszVelw7iO0mjvMhv
CL2hrg1RpsM4HeTppds/hFU5l0RZF6VwKE7ZrRs8jNW6gpZbzAgGJgRhyrJh
/JxY7J+vL0NGS8RDvxNSzAuLq63CGMa9LN1CFFLYNsbeTfFmoT957WDgmREY
W8dI4/zlYGzjatRVRqF6rqW7JGQcFUZ1+DJuFGe8zeOGf1JAoJ6tsnyWDP0J
S9JiMYGS31dYVlyTwfGKmYZUcxIvzS2EzppjKPLKfREunAQrSPnB7eoYbkxy
63I8p1DlmL5vri6LJqUUtQIlCj7PIifnVxbt9dKrDyIpvPv/GX1zg4W8ekZ0
fTRFQMZRG60kFj7aLyx6YyjCZ0V1hqWxuDaRKdeLo0h9Xa3nnM0iS74nMyCB
ojlkf/xEyfSuPn7Z2yyK3U+CQpzaWRQLnc+/rKBw8lOpihGxEF/ynlUhpHAx
uKFb9o6FUfhal+K/KY7/8viBURcL3vvRnUm1FNGunAHFRxbNo3E+jo0U5eNX
+NlTLHw5OzqixBTCgqWF7Rw5Di9zrvPooqjjF1KushzC9NXhNgxFe01TauhM
OYzPhvE4vRRssl6LI1eOQL2GGd5DFNQhf2WMlhwXFGartksp1JRxslRHjrRl
Stq6oxQ6PnxNo0VyXOxX+aacpdBbOnL0oJ4cPnePRcWPUxg0XiiI15fjTPOp
K+4TFGtiF0wKl8oRYbbnqMkUhYl5np1iuRw698ZYSin+B/VVzfE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381762#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk41dv3x8mQBmVKIbmIW65ChSgWQpdc19AgMpZyKZniKkPKkJToK0Ui
[encoded data, 4148 characters]
qMVtXm5U4IJob2HlyXkeaB0oOLKoyIXOzdaDPB4P/g+gdQHj
        "]]},
      Annotation[#, "Charting`Private`Tag$2381762#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVyXk41HkAx3E0G9V6IlFW1hqSx6q2TbUe9PGgi1aOtrXkSI6MjRzdqkdC
l8KTFrmXcW1FkUS+coR50GAihmpFvyH3MX7D8Nv2j/fz+uOt7Rno4C0nIyNz
6Gv/67+6rqQ6mkLNEUNLh+8+ElPvGvP26xRsf00WKTl+IFcqK06tj6HgMljH
pb70kRqV0gy3OAoTMcd1z7L6yHL/R/zsBAqaN+qS7u7vJQdqcmW+JFGo2ix9
OJ0tJLfVM3/alkYhROWo3J/KQsI/lexxNovC+DNnQcyNHmIQq7QQyqXwObHg
W8GaHhLxOCohuIBCokbbfEBWN9k5Fsw7+YSCTa2+MJ//jqT62xh51VAw4p0M
dXbqIuKbr1qPvaZw+EfLUHnZLmJXsMvPnUeh+3jhcH9hJ2EN6aQ5t1OQdTIk
vvKdhOMjlbfvp6DwsrWovE1A6iKDs2w/U9Aq/WRWFC0gmjki04PDFFImLE6/
3S0g/E+CoH1TFHr+WIz1Luogu449FJrJiaAoPhP9TXo7YR11e2zAFqHjQ56f
OINP3C4KDujriRC5V69wpReflCVbD2w0EEF4y/V94SY+4XTvVNf+WQQ77tUN
csfekLYjqyPWWYhgtWj8ZPpuC0mzrz7C8vz6ZwLPjajyiPE+9lJfpgi791z2
9UqrJUZ/86435IhwWC27wMmslmxhglWK80VwiMsKrOqtIeyyWv1rxSIYyK9P
f7uhhqza5O1o8EqEmmgbHzqzmvQtz8s781EEmRcso09hFST89WbH1VpDeK4i
9onyLyJNe4zzzFOGoHvvkmdmXyxyipOM+wuH4bJDOeG9yWuo6hhy3PK/4LLq
AZ3hlA60yypcVa8cQbxSY6eyQS9KFUK4/KZRhD4LnxEt74ehqhLHs34M2eGp
L60jBzF+R7x2e+c4vBuLDjHaQ9CJjt4ayJlAedAPCvHOI+h3FvZYUBNQ03hT
NOcxjv2DHZLSgEk03Duk7WcxiXPB3ifURifhvtI1juRNwfbZA2u1M1Mw2X7H
ykZjBmNSTtgy8RTq4rmceK9ZZHaFlwSETONys4d+2V9izJ8w8zi/MI1Z18pf
LDvmoLkY5xJ0YQaUY+6A7hCNz/tu8RRYsxBe2p6zijWPWr1mfH9rFqf1dS6Y
yi+Ao8Blaa8QI7BF0cVVtICyDF2z2jgxOsxjusCTotXEtN5BeQ7/NI2zZW8v
guY8cPS4M4eO5IbkYeMlNNql/6aoRmMyz8y6fGAJnsamubn3aChGVCSEhDDw
G22Z7b1PQzo+ktJ8msGpTHerNUk0EhNnfXTPMbiyIuLfsFQako0CS34Yg5Tu
Jg0HLo293YStHsWg8/zvsdIyGk/JicjARAbWL4LP2wtpjJa7Hd9aycA+gNUY
1UcjOKdxyKOKgRP7vlrlBxrPzYN2xFUz8L1Z/lRvgIZ7cNuGsToG15xlxhZG
aNjsXbclqYVB1XyMJ3eJBiVvf7LkPYP6R1rFQhkJUjNj7Ns/Mmj2LGaUlklw
m+0uHetnIOQJUi7KS3A4SZ2rSzGgkzW67JQkmCt3Oxg+zoCxfbgxao0EKftL
fBMmGSxfhtCKtRK0ZjhY500zWOvvqaynLsF693pv3hwDDa0ZdxcNCaTvGtK6
JQzYHZGPYjUlWGEVmE4tMDCIXrdYryWB12C778wig20m+TYL2hKMqq+kGYbB
f9Ocpsw=
        "]]},
      Annotation[#, "Charting`Private`Tag$2381811#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXs4FP0bxhVJReUQSZJ1SFt5pV5nPeVNIkkURQklp2ippJQOjh0kKkmI
CuWNUk4pvjlLSFIvSrG7Mzuzu21hseu0v/n9Mddcn2vmeub73M/93KPte9zF
b7aUlNQ76vr/PXhRQ+m7BA74HCj/sNJjAFn51W3uSuRA8iHb8YzGAXTh7RvG
0iQOxNZKkgSHB1GdclmOVwoH1H3OtPrUDSLZ4OLOx3c4kHbBKUV+ARPZ1xVI
8e5xwKO5MjnJjomuq+carc/mwPWyz6ekzjFRJyPD+/RDDsxpeZKXUchE9JuL
J0/mc0BPO37XvC4minkefye8kAPbXyTTHcaY6HvH1F+MYg703+nhsNVYyEQQ
3hrykgMfdQLngCkL3VQgjwSXc6DYTul9/h4W4q49JAmo4sBAmKeyB4OFsoJ3
bDxSR73vWz7p84iFxq7Wdvg0cSDRb0vprDcs5FxoGniolQOXLxfVxX9iIRlS
J9ujiwNLpKpzH0yyUNDRqbm7mdTzkDY9mW1s1BAX/tAJ54BwkfwrlhsbaeYR
Vo5cDsi1nLlk4M9GnazuMLthDqTkByvMiWcjuvQOedsxDkwk1Ls+u81GsbTa
fJsJDpytadbuechGpj5F36xnE8CvPhb6pZqNbl7UibCUJeBNpmltSSsbcR/c
W2w+nwCpb5cOGfzHRtk/4mw3KhGAZIu/jQrYSOaA13M6jYDzTr28s8sw5BXV
bW+gT4AM4rvc0cVQRYYDW49OQKm3HNPPEENBvSbq2sYEFCWzL27YgqFPboti
1GwIoFWcXI8OY4geEae5ZBsBr42WRbUGYyj2zmSFkgMB5I5VRZknMGTWzeEr
uBBwd7zSOPMyhrJ3v3OT8SUgSSnbzygbQyKGydCsowSA/+m/Mx9jyOXms2uS
QAIU7bj83kIMzfmY/m4ijADNBq1TH8up8woWeopOEZB1I2b/lbcYqlSIGx09
Q4CcsZ6Teh2GjjmG0YcuEdDv6K+B2jDUFMxpEMQRoD9pW/71E4a0rh08xL9C
fa+bjTd/xVDXe/vbnBQCekMz1lsMYMjcjjbTn0uAbr3a7/AhDG181JrYnEfV
j7HYuW8UQ4aScOWSpwTwVj+grRBjiFZRbxBbQukdygzZKYWj5crHXoWUEZDx
I3a0QhpHqsdVNrm/JiB4ynPpnLk4WrDKz5VeS8DvuXd17RVwJBuj8EO5kYDw
Pa0zmxfjSOpnWcB0CwF7CT03TWUcCdNkozs7CchJHTaJW4qjftknTyIGCLhV
n7dak4ajHl/nDd5sSt9HZaFbdXHUVSOqticI8LvHcHfVx1FThP3n5X8I8F6Q
eGI1HUfvuoYOygqpeb7tch5ag6Mqwwzi9zgB7SOf9B6uw9FznDtdJyHgn9y6
YWSEo0KbW4nPpEmYWJYcs84YR4+zLZXT5pJgZMOzjtuAo+wJVtaFBSSEuyYE
Nm/EUbrbdYPARSTU1Tk6Cv/GUerLja9clEkIkw6ly5vi6PrCfmsrNRL2Z53a
tsgMR/FBcS16GiTUpu8ZnKb4UtM610VaJBxxYFj0mOPoHO1rv4hGgnHC8+Rs
CxxFREcHMPVJqN+eoLnbEkeMPv2RD3QSFN7Lav2hOMjk4/kyQxLOL2e1R1nh
6EjqabkHxiQ83n3ZV0ixl0DrVqIJCdkasioe1jja59CiGW5BglDBbWkRxa75
jCeem0h4Err68S+KnWarb7C1IcH18WKexiYcbfeqrTbcRvW7NVrLjGKbqsDt
Sx1IEDV9DLeh2EpV6fMsJxK8WXuXWFJsEl51kLebBNr9AyY0io06fInuvSSk
jBrLiKj6dPqCEzX7SWhnGD97S7Fe/KvpgoMkqKxp8mBQvJLpmZjiQ8JAc5il
MsXLNskoR/mR0KrcE5lH9aOS8SzrSCClT1Ct1SqKF47tMXAKIWHrT+0X6ZQe
ci7TL03DSAharzUppvSbXZxnrX2KhPEYVdsdFI/7jbkIz5GAF2Qdr6H0H67N
7u+/SAK6sO7+ADUvvqZdQHMsCXKXaz1HTHA08OXu+YzrJOxoc6bzqHn3rd8s
F3uTBHlG9/lOyg/dSURqyG0SLOpPDeVTfnlva/5kcyYJN9T+qV5F+SmyOdrw
Qg4JC7c7lpYa4sjAvqG0+jF1HoF8oxHlv3jHXbUWRST8JXu4c2w1pV/Hbbsz
JZT/pk+rbTHAEbarr72ijISxqzsVoyh/b3X169tYQ8K6/sTiGmofhN2F3ifq
SJBdI0hvWYmjR25/8JImEh6wNRrqVlD9e0SNGH4kwSyafThxGbUP3inyqweo
+spt+w8oUn5ifk31Z5PAarj0k7cQR1pHlqvnEyTECXfmHZPHUbR/gZ7OEAmh
uwqP2lD7bBVavUlzNhcigsXftkxR+RlFMhR1uZBRkDZawMLQ0WnD8V0GXDit
u855H5UvqhdOnr+xlgvMqsykye8YOnlZcmXB31yY/2mevAaVR8ZXljyas40L
0pERl941Y6g4bcsXsT8Xjueo3a94QuXf0gRPs2NcSJ6jrZdD5aVCRttgBIML
5lNmfedyqPzLcheMRHJhU69QQTmdyufHIXMFV7hwEDoSS+MxlFdyz5z5Lxew
XbTIPh8q3yc96T3PuRCS46LtfRBDRrYrNDpecSHOOMzn+z4Mve15OPX6DRdG
fA98rdyFoc+Sf1HKBy4UOtzum22NoVlONbZbeFxw/+G/AluCoYNc5u4cOg9u
NHcsXFPLRrSNeTZphjxQv1h5Nv0NGxHn/TdcN+aBAHtUP13GRicV+SqRFjy4
Mitv4YtCNrpmNvrfLgceaPY3nSi9xUav4+d6SQJ5kBk4cf2fI2y0RGdtkNdT
HjypbPn0XEL9z1OvuT0t4kHJ6sbr90UsNH82z0ZYwoMef/dP0UMsJDX4VONq
FQ8eeXWprWWxED97VXvZBx5YLjY6S2tioYZlOkYKAh7kKtl6xl1loZNKy8be
GPOB4Vx9wk2BhbpmyV1Wf8sHB+IHN3lqEAmK7nk5v+PDmLtcVs3IIJrnscYy
oYEP+dIhJTh3EG1+6SQUtvFBVadDWad3EBX73jna2c+H+g0pW3aWDaJr9bQd
CRKqvhZtU/CxQbQ1zlpl1OYXNFX6WPG/DKAyuRP5ne9/gWKejXnjup9o7ZLF
Qb6NArjqmG6wVbEP/b4xprLh629o+LBjXg/3M9JJSPjreNAfKJlSK3u97wNi
enzrs+H8gfXpjurZV96i7dhncVnoEKTd/eVpIBMJkeF+Aaq/hmCL05fnsVgN
OJXfd1CNGIbEZGfTZ9KdIJgKOic9NgxldwOWDEn3QO5/l0pDT4xA07TpPSW5
AZgIsPY+MzkCDu8Y9n/OsUFzOsUz7KwQZNd6td8pJwC3u9YqJzMKUqkqRq7u
v6Bevw1WXBuFkwF9pRXCPxAkly+jPW8MCiQLzs5TG4GKHF3r+pQx+NgrVW7n
NwodllaNLorj8ONgCHxJGAdR0H1X7xvjYGb+TF37nhhanB/sVVAVwYthrD+1
fRJ8za0KCm6L4NyUckNN5zQE/mof/Z4mghwbh2PZvdPAyD20VemeCEZzleaf
Z07DhXkxg+eyRPCVH6BjKpyGzN73Gi75IvAyul+ZrTYDX8+435yqEEF6Sm+L
hdcMOFSFn9n9TQRJ29wO53JnYHeoTEt8vwiW2nx08RqZgX20NNW3P0Wgqh+9
ctnUDPhfff1Kny2C+aK7rjcUJBDrISWY5ItAezhSJtBIAjUTSb75MyJwK9f9
jZ+SQGOxVsk3KTFkDW8OTomWQJtviWSxtBgSK2WrLBIk8K21OzNqrhiMhorb
rqRLQJSh8Z/zYjGsfeD+Uv2NBCRORXrxSmIIWJT3vKpeArLScPKNihiiE3+c
8WiTgEqwr6K+uhiiUs3C0/oloKElPOSpIYaJ79xsY1wCtM9xxTc1xZD06Nmd
doEE6Alq041aYtCeadrrPy6B9ZZPd0xqi8FhecwPiUQC/wOsPHaO
        "]]},
      Annotation[#, "Charting`Private`Tag$2381811#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVyXs8lXcAx3GF0WSv3E4zyy2ZnbysJEvUN6KsmmspnVw6hVIui4rcJuUw
UifSSxESsaKZS+nix2To4pI7Sam1PYfDyfV5cDzb/vi83n989PhBLj6LZWRk
HP/rf6OVjCMW9Ch0pNaky/j2kUj9rgFanwJnp2GRd3QvORUdfWTIkMLxYt/Q
gLU9JLjPcOI5l0LiLYOb4bxu4m/eElVhQiHUYOh1XnEXOXz5tGK2KYXDFs6D
KzldxHNUJzXBnMIuj8tSvwudxLUguJC3mQIvLUQgzOggDos119nZULjxVGDt
xu0g9p61T0y2UXCXFJ4/X9NOrDiq7YscKLjGWSiPMq/Iqvgy6W0PCmnH+HHD
l9uI7hAvQXiQwl6VoIH1aCNfbZZTi/ChENe+Y2uYuJV8Mb3byCGAwpb8mBo4
tpIZn2mXyUgK70PUePX2zaTJzqJwSyaFwjNPB6Pkn5GwhmiTmBwKvvJl2zrD
m4jRD0/Ln9yiYFY5rtk71kjidznWbiymELTvo0362wZi6+rTZ1ZN4cBv3hMK
7fWkxlu49Nu3FF5IoqotJbXkfgQVrGIgQtaTgAiTnAriKzWZcTQSocUte1NW
QznhxIRGpRj/9w84JJtKykjoWTZRab0Iy81WSypsfyemiRp58ttEaOTq8N5P
FpOSdOtOxk+EuivCvtlvckl+aYbF0B0Rgu8+TzIbT4b/HI/bc0+E4oQ3gwJL
IdbYaWs1l4nQY/nu3B9zqXjcc3O+6pEIu8sLD1SfzEA7e4cIn4vwfXudxMno
JhY5VNtZD4vwMDmvcGnHXXiIhpxzuMPw3Souy699AI2Vxv6eRcOI/ZLoVpn8
iVeLFM9qPh7Be/XjqUadHahQDClobRKjeX9rhmraAIw1lvnz60fhOvqPl961
IYylTKuv6xpD24jaJbXYj1gpEHwX5C/B19F+dalTFIb29/fZ/C2B4+KsO05r
xLD/q52pCPyE7XKMR91WCcJO+BzhiD/B8FeBtWrNJzhUXt/BOTUOlTPuKQ/s
JzA67x8pOz2Oq9HuYrf8SeR2x5YHhkzAfKNB9wnRFGaPbPIOn5vAVNvmnosb
ZrBCKuT9dGYSu7UVBMpeND5uT3qmKDeF09zeyR+TGNQZvoB20hRuJAQcmr8x
C3/FAjm9JdMY4LTJal6cw/0cg011wmlkca8+GPx5Hs2WVvUuKjOYnbXJNXWW
gva/7uqdMgOSlxJrqryARqfsPcocGvRIf4NuwwL4Fla3b6fRiFD7oPTmEIuj
4pdTr9Np2GlIok76sgjO9bJVzaBxy6+nVOkoi5glce8is2gEp13xMgtkkdnb
pOVSQKNFurrzVBiLrvC9l+bv05C3O2hVk8xix8MT4c79NLZssM30KWfhHCjX
GD9AQzZm+GRnJYt9+umcx4M0LHlu6rZVLPx+qSoz/EDDt6g3e0U1i3P7ZUbn
RmgkhjtO1jawqJ69wC9YoPEy7vOilj4W9SU6pf0yDDxf3+tbPcDiBb+UXSbL
wDG95FX8IIv+Zx2ZEQoMzjXrciw+sKCvaXU7LWMw0lYlThGzYB2KV8WrMriu
prTn3RiLz2QR+kidgaJ7YpzpOAv1Y3wVQ00G/Jgw87ZpFlo6k148LQZnD+k8
0mZY6LefL7m0gkGns5fCsTkWXMFyab0OAz2Bq1allMVay6Kdc3oMhvcun2FZ
Fv8CstmeLQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381860#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4lVsbxpGv0EmGzMkhUkLaRCo9kSmVQjQ4mY6pHRlyioyllOEQdYhU
SigdJKlTZHGQIaSQMu73JfW+ezBu9jbt835/rGtdvz/Wcz3rvu/1LHWvIEcf
ESEhoTJq/X+PWa0buaxOwJDhi8jO+30oSuPLIE+DgO2GT8a/RvajCzEx/vgm
Aj7/YRpMvz+Agvs2TX/QIUB5y18RswcGEd34Y3SlPgGLU4+93NoHkXfGRbEH
NAL+mtIIpe8aQm4ctVs3jAmwobs6/31nCJ2wa1YN3UUAM+yMuBFrCDkVBj9x
3UuA//vmR1Emw8heRMnQyoIA/X6fuq1Rw8jWre6dvjUBF+R3H6RXDSOLt2ds
Fe0IaFKOrJCZHUZ75GW6hO0JONaQ8chHnoGMQ9+eZjoQ0HyPFF9twEAGHV4/
u50JEApXv61ny0BaCRVLRacJIPzMbVPCGOhX3PVGuicB64lPE2KJDKS8V1Q2
0oeAnrSRWwm5DCQ5e2yzfSABRf/Qr/XWMpCY49ILkxACSjV9Y9o/MZBIaYGZ
+h8EOJjTKiRwBprzmXWciSJA10n1drIQhqbq7g8OxhFwKUlwelQSQyxVG/+m
qwRIZrkJStdjiNGTFZ2TQoCTe7HLG2MMtViZPtmXS0CrV3DlSR8MhTfF6Mfm
EfDcKv0tFoyhzQcaXr57TEByo9bWhUgMJRw6UrerhIDyWvn9szcxZNxx2yai
nACxtoYpRg6Gvh/pa39dSYBK/iVa0GMMWTr59BnVEBAwmiN77RWGZrqLPc7/
S0CFHC1IFmEo32VirPw91V9rf59jE4ZETkVO638kYE/sI9mJLxiq9Uj/ZQuD
AD1bCUdiCkPB+JcMv1ECAs2VB6z5GFLzXq9U+JOApwkrhP0FGIrxK9LaOEnA
fuNJ1UUJHOkTrGeeXALOrrd3C5XC0SCdRsvjE3DxkHf7Czkc7Tn3bq+qCAmZ
n2o5WWo4Yo2LNLquJIEz/cwBNHF0N8T2YI4ECaLYJ+tXm3E0H9Z1XEGWhHfS
ofkK23H0dFZxyFmBBG3/RhvRHTg6Ee7mfVuFhB2mufyGnTh6HUkES2tS56fY
Me8BR75L+nNHNpOQ1a22Q3w/juRjw6JTdUn4c1Ug2miNo7ArgsTVO0gY4u54
PnIQR5qiVlJ2piS0zK95kWSPo65rSZk3zEhwz7mDfnHAES1RLv9/1iT0RkmO
PHbGES7husXSjoR4rrBr9XEcpafklV2xJ6Ge65lffhJH+yTHdtQ5kuDiK+F2
zRVHE2lbqwUuJGSkHtbeeRpHedIhFntdSWgrNMlsdcPRkVuvmqPcSTBz6thj
5oGj5XWL9lW/k2DhdOjJTU8clWaa9/D9qHrPTno2euHITfG6684Aql7SPlb/
7zhak9OGXQgmIUBLraXbG0fVKjL+lWEkdFXLhz33wVHAveOc6XASUkXCfYJ8
cbRe7V4YLZqECTG2tIwfjj7k4fPBl0l48yOPvEPxJY3Nl8uukaBi5nNa1B9H
Oo8DV3ESSXAt7ek+RnGfVsWfuqkkpCRG/JNEcWIRT/ZsBgn+hSMBhRTv3LI3
52kmCRvyO52eUPyzOP7XnzmUvpn7225SnKXbUrjpAeWn40OaB8XWpZJ6Pvkk
LFi2MuQpnt12rCK/iARxVUP9SqqfgvJsU/wZCYa0xaDdFNMXXHW+lpHwfd47
4CV1HwOrDSodFSTc/y4sokTxbCpjdcNryi/2WPAZ6v7VXx8tvqkiQRHPmyug
9Lmi4cMuQyR8vGLR1UHpZxugPVRQT+VDOgRGKX27BM9Q+gcSYnX1y3soP+4c
OPf8+kcSuDGHtV+4U/rfMngY3UXljW2wNoryj9xUeeVMPwm2cS2rvlF+Pw++
eN59mATjAtfYgFM4uvDW1Nt5hISkXTHGnBM4EravsTJnkrDfdLvWOypP77Pi
jE3GSWgdl6qSOIajFMxCW2+ahK+O2w7bOOJI8Y8mMaUFEqyCdRRTqXxuy+38
MCHBhL6MHVwXKs8z3zOqxySZsDaUpaZuiaO325xLBmSYICM4f7vfnNK3/ltq
szITFA6lTKmb4eg0iTvk6TDhlpBJHI+GIw2jAotMfSb8Wqy9aGtA+RXtZ5hC
Y8Kz+q3DSXrUe5FmrQvfxYSykuHfRrRxlLyT23vEjgm7An8WkSo4epOwyk1w
hgnJcdPWAcI4iulssecGMuFcd6EbtkTNJ+UUYIYwIX9lXPGBeQx1lkip90ZQ
/e3sNZ+h5s2PbqXR0kQmKA7WrH05giG5jbp0t6dM2B4ovjz5L4ZuZiS7PC1h
QoDe6kDbGgxJiDAtZsqZ0NPhdzH9DYaEsKcqSW+ZcFd6vHahjJrH97XbKz8w
gRbo0WiYi6EG5Y0GazhMeBEU7G4ViqEwGeXZKhoLeM2nlKLlMDR+OQJfacIC
x5fxGUfXYog++bXDYTcLtFkLmkriGPLozCr6sZ8Fiae/dScuMtChVLmTss4s
OIy5SzKp/2GjhHQ1/SILMrp80ZsSBvosLHZFqZoFG2RsDcZ2MxCnJNvtaC0L
Cr7AYI4RA4mf2rr7egMLnoizH1jrMdC+F/YzM20seBxfnha/gYFKvf7y7Rxk
wQU9BaPbQgyUXK9x8LqABVvPLOjREoaR5TWzdVwLNsRf9bqMxQ+hSrHzhZ0t
bJC1OaC52WEAjUVdZte0s+FO6zOhERhAipNpRiWf2FCzPqQ+XX8ARX37+9/E
b2xYE/JI48PqAWRZPDZkQbBhDxbmUNrYjz4fPKVQKcYBmWLN5L0m/Wgi1fxG
tg0HbsmbGjZI9yFdOSm6VyMHLvesKtMu7EXjqbPrDL+MQ+7RBtnFoU9o4/Xr
24LoE2APvld5HU0IP9XfZ/FjAkzuapGKv71Ctt+7+JXnJuFHqYtcRuhdCA/1
8ZdnT0JT+EaM014H9q/u2slfmAL20aniAIlPwFmkR62YnQLlOx/cVzK/wsPe
yy/PnZ+GhxM9Xp8DGTDvb+YRsTANZfE828M9o6C6lO4acmkGvucESBWvIGDM
JrlVTJQL+qZ6Gvuy2VC/qQ02JHOhbnWmcqHUJNDFCkXVxWfhrqXM6zv60/A6
T9OsPn0W3seltXiGc6Fj955GR+k5sPk4gy9kzgGPftfJI3UONqxQ10l7zIfm
ow+c18jzQMfdzUehZwG8TPcUFd3mwbtM8+zn3Utwht3OHcjkgbqUET1ucAmC
H7pbymTzwKYxYvuRsSWIFY/Hou7xgKwTziPmliD3W4uKYyEPjJjrf0qrLMOX
iOM3F1/zICwtLXqb5zLYvQ2NcOjnQeLO0KRs1jI4nBNtThjkAe3+55fW3GU4
oZEpXz3MA8XspndTS8vgl/SmYtMoD0Y9ov1t1grg6ikhzgKLB3hV7C8j2wVQ
M/+nV+EyD2rAj8QvCKCxVK28X4gPfq/HCqJjBdDmVS6QWsEHl2gzI4UbAuhv
7c6NXMWH+far762zBcDLUek9KsWHuEyJkqwqAQjsS7QSZPgAk13k5gYBrFwB
YVXr+HC27D73nzYBrDvrJb1JiQ8H1Y4E9QwKQEVtxt1VhQ9/B9cOeI4JQKPr
WulNVT4MeNutY3MEoHNdYalRjQ/DKw3lLs4JYPvupwcX1PngG1E7JBAI4D/3
DeSY
        "]]},
      Annotation[#, "Charting`Private`Tag$2381860#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVx3881HcAx3HFY+RROj9LV2dUbD1UIm6k3o88UsYjk1YNdXTL5FbHItHq
sVK5jbqSZvmR1MK08qNCSn1nh3AVdT14hJ3dpV/fL0e48/369Vn74/V4Pl6O
4rjQ6JlGRkabPva/uW4j1qF1NAr2hwwr41RUqlP0QDlF465GcNvvxTMqYJ+L
ukhBQ3E2wlfGtFMW1e+f5j2iMb1uocduYTulIn9SmUoay3nx/CSfNuril9IK
WRsNSpt+vNn5KSXKcrtyVEVD2psTPnvZE4p2rkqN7aYRGq8MaopSUhXxhxIi
e2mUzJ2h5clbqaR73nu2vaJRnmzqX9TQQs0Ifui/nqHxXna542hAM9X02zEv
4SANxvOge1fWI+q0xs9l+QiNZO3wrfS+Jmr+wUdm9hM0qg8FWddnNVIr89uV
Q+YM3NUL2SKBgtpFa7cULmPAL1k9r0/8gHJaXeSXvYLBa/m6iBVhddS7ozEe
p90ZbNjVsu9W6H0q0bLfJtmHgeaC3KI1uJbK+ELf+VUggxMFewdkMVVUbZqp
iMQymPrF/NsNs25QtotdJaJSBrw3/meoMBF17nzG9tKbDNQ/10gUsWEwn8n4
jVYyqLJWVb72SoSRppSffo9B9nTuWECXDP0FLk+qlAysXYWq6YQcNCxY7DZH
xyCrq2Lbop5SJFotMNx378ep7NnFgthaPJ9hlmpf14/DkraKXO9mVJklFLe3
DCBtaiBivk8HXG15EnGjDq6DFZeFlBqDcoONR8cgqq9uDJMUv8JimWxlnGQI
edqr39nueQtteHeX39shdGaWWXzdQyPgtYqrkn7Adc9r65dKdUg+EL3XbuAD
dmk3C/qUQwiuzgu0SxpGSIp8smHfMHSTkiPGhmFcP1k6GqgewZXO43ekCSNo
dRHQ+V56jO9dG5UyMQJNua9zzEUDFk1lRvxweBRlk6n+ovYxvNmU0Wpmogcv
ZWePwoKDwvkxBBl6WA7mbMrzGIfErNjEcZYBes7TAI8J1BQuWavI/PjC37MO
eE7i6RrfxlDLMWwe8h5usZkCK8nbGiUfQ32G78mA3ik0h1zeNseOhfF8lfqv
P6Yh9vYtKbnAoiB6MObfrQSxA0/0PdksdogOvavZThB/JXKDVQ6LO4W1n8vD
CH6adUJz5BILe9dOnVckQf7LFn5oMYuN3uK0FAlBR8qOc5M1LK55i2YqjhEE
3juQsqWbxaefXRqMuUGwRWrSnPYPi+rzSXXzygm+ccq2q+tlMSf81OamSoKY
9Nrbzn0s2oR36xxqCE6GG+km+lk01Nx4rqgneDh+Rlw8zSJu7jtDewdBY5lD
ZbcRB3+hse3+lwSPxZWEZ8xhybQ7Z9pD0N36Iv9HUw4eu4NsfDQEbC6/M4TH
QRpVf/EsQ0CCby5Ns+LwoF5LO+oIPjFG4n0bDpOWlia3hwhsvhdbOttzeL/H
6vQzPQHfYTQygs9h569LJkQsgZPqVNm5RRzCeH+vYsYJlsnmTTU6cFCXmLsl
TRGsWlMaNOHIodBfYCCE4D8SEl+Y
        "]]},
      Annotation[#, "Charting`Private`Tag$2381909#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk4lIsXxycUuiWSIheR5bb8UFoUdS5S2mS5KspyJ7IVsiTXklSWslRK
kUoLUpZS6iY5ruWSZRJTzLyvRCHzvoOsM7b5zf3jPOf5/HPO93yfc44m09/O
Q4LBYDwSx385w3BE0a6MB899uhsDO1sxRsuDX4Q8uGx+vqrR/hNandD7kl3F
A41hpZvecp9R7lU/63YtDwQSz4J8r3/GVtFTvNrAA5Xqwu+ejDa8tdvvWdwH
HoTeMQxddLQNXVIN70e28uBkSneDcX4bancMXw1q44H/I+mgv0fakKdbEuNN
8GBfbuqHPze047OA0CDXTh70toybh/q34+nSLe4O33jQ3XHarju7HedYl1ua
UTxYMa253Eaag//ejN60eVCsv/ZX3GnEwcQuc73/jfCg/sBaIukoB5VDamVU
pnjQtLpinuZjDn4pTxDKiXjQsEangqjn4COZfTwpSQreGHVW1FEcNMhsbhia
T0HDbLdM/W9cHO25VtYrR8FczU4jVUsulho4FJCLKUjutPqp4sbFnVWc5Lrl
FHgrD707fY2LCxZmni1Xp0DbrCh4Mo+LLQddAl5qUbBCaaowtIKLzrxu26zV
FEwEyzBv8riotSHbPE2fArlbX+bbz3LxR6SnUeJ6CnDV3Z6tCgQGK9BLzmyl
oPLe4eJXGwjceqRwrt92CjwzVp85akkgIztg/Jg5BY2SbmZ2DgReNh5rO7CH
Aqcfk8/3BBFoE/O6ztKaglWP1S84nSNwaWPYGxM7CtSyLWrZyQQ+cJ3N0HOi
wGr9Zj/1xwR65VVcVnOhwDmd1TnxgkD9kZgIRSYFtt7V9AEk8E2stIvIm4JC
1pnmRDaBUc3vrcdOUlBtWZwQ9oXAHcsTgTpFwX2JmvzRPgKbC+Q128Io8Mo9
+PKhkMC0iRaFpkgKht/yeR1zSDxqdkOi6hwFSiP8jS9kSexjq3wvTKCAzOmX
2KpMYr46yX6UJJ43eF7hkDqJgV53azKuUqA1vrl6nw6JxsVur67cEPtjwEux
WUPi7JRWbmw6Baf1TM1mDUmstuy5GXGHAuN5DwYPbSLxUkpufOB9Ciocj992
NSFRaeVaH5c8Co6k3o2O3kHilWuXD+YVUOC4a0p72IrE+RKU+ehzCnalLVNc
sJ/Ei6f2GMArCrqzlBybbUhkdOWpXiqlwMK8d+D3P0gMt5GV+VROQWzBjdeu
h0gcR69RjSqx3y5nY/SdSDxlUPfVp5aCOSm+C4qOkkjf1WsqaaAgZ/0txjcX
Ej3l4t4wminYuq5I2OBGYndkb/ZeNgVGF5/G+DJJdOZbXktrp2Asu3BZ1TES
249mR3WRFHgk1uqy3Um0b5TyXdtFQX9EvnyWB4ksE/dDoT0UZOV4rfrtOIm7
n1ZZVPZTUJM0+/dJMVcvX2m4cIAChRWM6VNihksxvx4epiAR1LQ3iblU2CXz
cJwCCM87/FZcb6O32Rh/kgLpeyqvJcT8rD2ry1hEweKSMPuF4v5rrBis85I0
/CpFGpNivTmvXUtZ0jRIJf3jHfAniZp6mKOygIbR8Iiv9a4kZqapp7rL0xA9
mZhCO5O4bF7U2aIlNLyvEfz5+QiJ10I6fCeVaXj47Y5JgiOJC3tMD1uq0WDY
EC2cK/Y3/o/MHVc0aVhrvTRwv9h/yeopQ0KHhneXEkLcbEmMMjqipruaBl29
2SawJjF48fLxt+tpOKlYn3B8F4mD58K6522mIVXHy6PIgkSfn+0sWxMaeGsl
42qBRLfmm7l9FjTYjq928NpMIgETqeutaHj1MMlueD2JB4sORkfuoyFpaHiz
tT6J+5KVHBUdaMgREWujtEmsnQm2dHGkoeisp6+9BonmJ9nr8pzFLH9gaFpF
vL/7UufDcRqcV2yX+CBH4sr5CmU+oTTAd/5U5DiBd8MCHpeE0/CgmG0qNUSg
cv+H64xoGsqWOHGY/QTK1SWfTIunwfGY3cQTgsDJiws0KtNpkIt8ORpYTmDL
HJkYlTIaJMPp1yaRBA4UpLvYVNBQu+jQjQfBBMo6rTGJq6Yh7qMP9PsS+Hux
9ehoo3heqFu/zInAQuaN480dNLjVbGDPiP/P5SqtvXEiGrZJbosy6uFijv9L
vXJJPpga+U//zeVipepOqTFpPtCp8le1mrk4GeT9jinPh8bo430PSrnopf3M
YLsmH/bfdz/tkszFHRe3LRkz58Pu+KCMQUMuuq37MLRmFx/CitNmP2hzMbzD
rYm5lw+bSMM3N5W5WLzxQmyzPR9u/+Xc2yHi4IreesFTdz7YFhtTu5s4OL3z
cAczlg8XfkT9qD7GwRKZoJzm93xIufTPxn3R7dgbcY5f3sSHBylV6zwC21H5
Z8qGgo98cHyy8uUJ93aM4ORXJnD4wOqverLLqh13POn9Yt7PB9lVsj8MFrVj
y16nZSUyA7B/kb5iR3obDiWbxafvGgCHE/lvtzz8jGuV5H2YNQOQYaOfxU1g
o2LR2/zs9wNwqVV0r/A0GyetPAd/NA1AS/5146BjbKyLKA/2/zwAuYRGCMuU
je7fT5yN6BuAyqwYgjXQindevL+eJjsIHdZcnpRNK8rZncf6/YNwJuSTZL50
Cw4mjy8x+jwIlvZOGX/dYeHKuDgDf58h8H6mr64ZXIXdTgTXvG8IuEzJuqiS
ArTqaRWW+P2EE9EP9164/QTOBHp4LeX/hKzMiEheZjVYv7q9Z+npYdBKT2T5
m7XAwLRPhOT4MByP8GUun+LA/bZzL/2CRuBho7Gfas9XmPTa5hY2NQKnXjq8
izLtAbWZq0dO/TUKUjYMc2/nfujddbleRmrsv9PTYfXwoUq3EdQvj0GPe2qw
5Lqf4COTI6UpOw4V843KOLtH4HWW9raqq+OwZ+6hi4HJY8AyMa2xU5gAW0vz
86GPJ0Dgc9veLXkCQuKKeGXPhVBnc89h4VIB7CB+kfmnYwqYW0xzc68LoHW7
3ycTzgx485vGyDQBDK/p9RB2zUDAfdcdi9MF0Gh0l1/Cm4Gzsue7Iu4IIA0q
O9dMz0Am572qXY4ADnyL3/KLxix8Djt0Zfq1AAbVPyjfdJ+FPaWBYbaEAPr6
uMZfBmbB1k+qLrZDAGE6MlvCJmbhsFba0rJOARTJbldWZIjA89KbF7rfBcBi
VwZYKIjgghNjYIoWQB5fPyTNSATlk0nMnFkBbFL9uHLuGRHUFGo8JxhCeB6f
WZoULYJG5nORvKQQDF1DtZUSREDUszPDpYWgtsrNb0WGCAQZqm028kLoPKfz
729lIhBZF+jELhbC/e/XvuZWi2CeJAS/XSKEj22qdTpNIljiy1TQVRGChUX8
lNoXEahqjLoeURXCla+Dlrd6RaDVerHwipoQPA+HOykMimB13LKZGg0hpAhO
GCdMiGCdSd7eKU0hxOhKd4pEIvg/78WT3w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2381909#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkX041AcAx6W2lORdmeyi0optkbU12RdnSdcksiSh67p0jRoaopWGo5dL
b3pUkk3eQpNh7Y5f87K8NbqMSa4Sh57fz1t3/H6cfrM/vs/3eT7f5/n887Xi
H/E5oK2lpcWbzf9t36zpUwSQCIwx+Gjh8keEW1i7fcFeEvmcNzmrM+qIqufr
P1TtI+H/eUeIXWEN8cW2ywshJBGiuTSwecOfRJl0fCJVROJah2mqSE0Qn9j6
vG4PJ5FZorfyVU0VkX+9tJUTSWJbhLRcTkiJFQsNZaJoEhEDzXvtXj4gbsUe
zS+PI9FltYZxXfY7sXSo9YrWKRLGcpV2Z3gFsbhBEpaeQkLnyqD+Ac8yYipp
Eacmg4TdUNBEzrq7xDH1YV29WyTCHHzhlJJPjAqaJ3f9TMJv8k4if+QOoeSe
aaMKSfQ6ZBWuGrhNyOfonDaXkRDYfGUYffo8MVycEeT9cNb3KBAB4kRiQYCt
k7iOhKhfFDWzO5pwue+lUrWQmHY2PSMoE6KEf1XY1kOifuN2/ZkLl3G21pon
ZkmUPTL3tz5VAPckZxO1GwXLa0WdlJ4UIfato7YeFORVoi2ZSiniekIe83kU
hP7axkurZbj/WWJymy+Fb9ft0pUcqsZyZRN9V0BhQ4JLQFbXQ2g2+/fwkynY
fGCbely3DuU6kbltjRSUOfJQmtMEZXwCVf2YwgtXk97B6CYsHbvgWPxkdt/O
NbzU2oT4rqKa1C4KB395WWD0YzPcC5UKtyEKigKF9mBnC+S8gCXlOsPoW+Zq
W3iyFaMS15QMj2Fs/WPNVoGPHHamBiJ+/TAu189nbB06MSKZMFnfMYIszw1e
d4+8xAqx+NMjolG4c1euVlzoQ29A9zO3gVHoFpVX3fAbxJb+p0x5+BhSXn+5
T/4xiZiIA6Fm1BiyX3sHe6WNwKvixlazH8bRL9PnCRPHMKwRxc+dGId5lule
fb23yO5M+C088i1Ci8f4PsdVmAp1DomdfgvJ10MVvDE1LGcu7vl+lkvKsp/1
Ok1C6XG2SWeeGr5Gyyuiz9OotWnBh2fViDCWKnbWMRDp5M6zWjCBJQ1zzBzb
p1B5e6Vz7cUJxJSa8U8MTONvp031PoaTaKw8cSy0QwNadMM3RDKJ/S6L+5X3
ZtDgneWnZ0YjkPor4bvUd+Bv3JSXd4XGCY0Ddz+XxSHqsfp5Oo2RUXF7/GYW
R7OD3Y0yaCT3u6y66sni5IKfXsVn0kiigt6r2c7iZlejhU8ujduKttpFgSw6
YnelaSppnEvQ+Amj2NkfImJ3dNNY7+ZXuTaHxY7weQ3JPTS4oY1Ry/JY+Fun
m8le0Fhj26xeVMji4JkHZTZ9NH6N0Oa+ucciMUBreJqk8U2w4eJ0KYvqqfP8
3Hc0jGOSku7LWdSXcEq7tRgI8zzPpf3DooVfyhrMZdAd9MQ/7F8W3U3tN+Pm
M6C0ZNwVChb0dYtObwMGjsGTglNDLFiv4lXJRgwq49oyd5Is3p+LKKkJA7I0
LXP1CAuTw3xDG3MG/SO7xxtVLCw4quA9FgxkqiKPjEkW1k+TStIsGcToxQkO
TrFYK14yU89hkBU5tMVxhoW9UwFv2opBeIylmmVZ/Aekpnya
        "]]},
      Annotation[#, "Charting`Private`Tag$2381958#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkntUjfkXxo/KdKF0c5RuFBVqaOSSRpuiEEqG7uL8ukdRkqZm3FIR0WgO
lRKhohiSUNrEKc50Oed9Q6TQdJms9/uWrufocub8/thrr2etvZ69n8/ac3lR
HkEKHA7nnLz+323+Hu9s92FghUVFyyjvFTrua7Yp9mdA+be02pbrQnz6canx
0B4GnmbuH89fUI8rN19Qg2AG7IMWrtqwtAHLKgdGToUzIHNYEH9eqRF/XOTx
T3MkA+YBnOtHyxqxKPtek0kMA3EmD22LNjWhmZpWVXgcAzfveeRripowL35/
UXkCA/378yfrzESo19uUyTnKQE5c6MYObxFe8Fp8zDWJgdQ9geob0kSo8Sp9
Hz+VgTcBVh6lj0R4agXr/eUMA+Un97Vd7hChUuEWZ6sMBibOrfJOUhXj95PT
TWqyGDi+UXP2WTcxxg5HTFPPY6B+vWX40igx9gf+Pep5jYGplL15xxkxdjud
FpFbDHjXhVRwXohxT1lv1cq7DOypOHX4YasYP5puLD5RxsD4Uad4hUExUlNU
jutXMeDg1MKvNqKQLc3a5f6MAb2oiquyJRSq+iyyT3nJgL66Q8wyJwrX3N86
NFTPwJns8KwngRT67fosWiRmYNDwxNx5BymMU4su5b2R87e2s644TuEd3p/B
ojYGFkZ1FRzPpVCoYeGk3MHAmCYd1VBMYdeTRyYO3QxI1iffCS6nkBOyafzg
VwZ8O6/37HhGoaHOx5bbLANmT0tnXRNSuBL3lXcMMNBd9uDptmYKf4mQZeiP
MsBftrcnvI3CtBemrikyBtwjZiv1EwpvRj2wqFYkYO/VbBs8TGGNgbPSsDKB
qm1hB33GKWyve/d50XQCxZ2zTcUKNH6PCXvK0yTg2Pfat1GFRu6csawsXQKB
YSsVd2rQaFN/5pBIj0DX15qaCB0aNx823q5sRMAi+pqWjh6NofP+Wuwwl4Bn
zssVboY0JonWTo+dT2Ak2Xmb2RwaryTS/95eQMBHLXfbH2Y0PrEMEnRYE9jv
H/PDFXMa3zaPXNX/iYCx64bZmxfQOHA09Xf35QSqO0Xcy4toVLee7ZuyikBh
q3lIhjWNlu9vr6h2IND6T533j4tpXHdyte6wI4Gn7eGmsUto3G3T1L/IhUDE
xJ3WEBsaE9p2N/BcCcw8X5Sq8hON/FMDxVluBITCrVxvub6/LClZtJ3AxYgG
P1+5bvwy83/KXgSkrVVztOS692whOPgROGPipJso91NaZWcYu5uAX4FJS658
35xuoeR2oNxfWDAeJ7/n5z/83nSEEuj5lKUw/UcaPR3Ye/r7CKwfMfDztaIx
+uuRdPcDBM4r+O0LWUhjOl8rIiWWgH/srrM2ljTecixwqY4n8Cyk6IfK+TQK
WNt5w78R2OvTMWuqnN+4s1cbL5nAEylH8EnOW2+w93HWaQJzOdpF0fo0Lr2S
wBelE0jIibwvnElj+Giem8NFAh4kmteoTmNywRKr2BwCnF6bqYmqNF51q1Ep
uULg8idb4YASjS2FXc/1iwhMyQvYBWMUDm2Py3MvIcCPtyPcEQpncFQTUv4i
kDngY1zZT6Gzl5Xt8CMCk4Yb8vZ2UViuEnNT9JrAr6mlm07VU9ideIxUN8j/
aUup0K2WQr1v52xLxQQKjqQVs0hh4vuSmlPvCZQFWl+quE/hulvd7Y698nzJ
PZpJfAopV59Z5Sos/H1I/epeTwqVnoXuKpjOgsev3FXftlK43DbuRoYmCyba
2ct3OFOYbZi5NFKPhaH2jXVVthTuIQ1uFpYsrH880KKjSWF/+trULBcW1uS/
u2T5XIymiu5NKa4suCTppQgfivGXuF3cQ24s5Bg41LmXiPFRQMJ1D08WZr04
vn7aRTEeWVL+bFoIC52xuUsgQowalKX0t2QW6CeC5rcaYrSaqRnOE7DAKHSY
2K4Toc7dypIbr1mIq7TWv7VMhN83hPT928DClet6usoWInyVWH0w6i0LoWud
mg+pijCwc++RxB4WxmdkRgdlN2Fu2etMvmof2NKVy1LyG1HD4wQKt/RBYkR/
qDCtHvvSR3SXvu0Dv9EFqu+YOmT6jWusP/SBwkuBl82rOvzq4RJl2S6ft1aM
jSyow07upddG3X3wQcs7P8O7Dj/k2f2uMtIHLq07Th95WYs8z+pBVq0fGnbz
2rh/CnBLyBT/lwv74XMdv0Td9AWapaQsjgrvB8Oe/GL7jkrs8Gn94NjTD7b6
W52OLufjhi5aWh75DfwXfo7JsCiHw9FBoVzyDe4Hl/zUMlkHWx/mbOIeGoAe
txtc1wc0sOPhiYojA2AVTNTMV7fC1XfHHkTGDEKojpVR/IEv8D109e74sUFw
UNukt7m8C4wmMnwP/DoENy4InmvU9kK3S5pQRWkYku3DCp47sPDCvB6M04Zh
qkZJwomd3yBc5abSXNUR0OYl5/uFDUJF/rzVLzJG4N3G1NTewmFotP9Z4KE1
Cn42tXdzq0ZBEp6zfXf6KJxe7AS9z6Twyv3KDnWuBGoPbXF/1DMGPLufCwsz
JTBANRyNbZ+AMNIw/JEvAd54sLZxzwTsvxqwTjtLAuO5QZcFfRNwRPXEl8Rc
CRgZHuRrTZmEy+9fG3jclMCaZo56rtkkvI33PD9eIYEplQk7joVOwqYn0fHb
WiXQvLOpK/7bJGyLVHqV3CaBaZVlCpzvk+BlyudWfZKAY8wSWZKCDEJOPy4z
75TAOs9PF9J0ZJDkw2HHGAlo7jjHTVsmg+rvZ3k3JyUQkBL6xiNeBoI7Jvda
OVIQvnl0rvaYDOp592SailJwnPQ3sjstg1Zh8+UEZSk0rci6OztHBpJsg3fu
mlIwGTyc3VQlA9nW0vnJ2lJw0p75wU4ggx8U4WClrhRSLUj3tQYZ6EbwtMz1
pZCU5Bx0oF0GBiZDAb4GUsi46/jmbbcMTOmTd84bSWHvxf0z7PtksDBl1oTA
RAoGveo6eaMysLEvdh2bKwX/MK9PMpkM/gM/2b2w
        "]]},
      Annotation[#, "Charting`Private`Tag$2381958#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjGlM02cAhxEYh5sOsRQWrhUFEdFpQTcn5BeVBQZDsQxxgByNpl11IMpg
KMIWFAhOFKxERDlkgEbWgawiHhwiEyqnVFxbcTgvJPQtgi3/P9c79+HJ8+l5
eMIEwV5jIyOjgPf8b25o5D4zY4IWr/U+5a6Xm8seB/X9ZUowptQqPKOKmx8G
RdjKLQjsVKukR3840WzaIo6u+IiAP6UYuzgjad7gnVKZb0Xgcb/CaXXzjxBf
Pj6WwSFwuNcaHV2Si/MOUq94OwK32xxPlxwpuk5fOhzlQHDwqxHXVr9izJvW
tQZ+SlDa7+ul6y1DnLZ7+wp3gpFbCXbPb1ahIO5JoY0nQcQp/9i+zCu492h0
yGQtgXGPkp/uXQP3JvP9w58TtHbEnAmoqcV43uacIv/3fV6DcmWiHC4mIb3Z
QQSy4fwcacF1fJsSzU3eTlBZlLRLJmvAjZgjvwnCCb7211sk/d2IjLXylg9F
BNHb4+Sy6TtY/NCdPZpFMC+WV3+gvAtPGyuJsP39b7T/1MLGTiz941ZNZSfB
hHPPo5KVCkwHiHQj3QRz9sfyk4sU6EhrSkoYJNj1QL/HLOUB9rzYn5H2moCE
uNXxPbpxsb5TWmipw9D9X3v5X/ZhsSCzWRGsw3G/s+fUOwegyzNwvAZ12CB1
sphepMLYuNPd1Wodska6wio2qDAq8E9wf6rDAb+7KV4xKrzgnut0fKVD2Npl
OyxrVVCXbEy3MOhgt0/bUBCihjC8aZIsHMf9WpFN6EkNgkULdt/zGMfPNXcW
mE8NYVl29mcJknGEmZdX+AY+w78RGvWW1+NI7x5ctC7jJQJeDrDy+Ld4E1f/
RWf9G/x0cK+Yq32LnQVlvKNRWmy7XhzITZ5A/dZVK57njoPMStJMDBNY11V5
1WbNBMof//Jn/KFJWPpEfjxwbRLTYt/Y1JlJyHbzOM6b9XCcy49MPPwO6qVa
G22pAa/8TygsTPUwc69PtDNj0ObWBacTeghuyA84h7CQWFSZ8iwNkDZFZ/MS
p9FQtty3Ld+AHkd+W1ThDHo2+bQLlkzhiSo2NP/sLBhJcWhs3hSqh/0519Ln
0BFSGraIy4AVRbSNiOch3OhTXS1l0Fe+1zqAT/G9tlv/pJDBd2vK+FXrKQ6U
x/hZFzGIkJVZmWykyLDMfJZ2kYFmS55ZIyguqDrtBVUM5Gsin9oEUwymhp+e
bWCwvIiNOSOiCLx5MHWHhsFVa0lrSTHFjnjTjqwhBsl2j14pSyh2uRRyb//D
wNZg3Gt5iUKU21jv9oKBLvabkYTLFMcijMjMGIObGqetq+UUTdMnhVXzDOZ3
Cpr291C0y5zrNEYscsIPLTvVT9ElrKNWJixch/XBtUoKjUJ54Yg5i7xAxSRR
UzDn7R+HWLGI74/N3v2agm773TXLmkVQi69D8iiFmQmSbnFYBFspU05qKTj7
hEvcPmGxPlWdeWOSwt75XUykPYtDpeXeXQYKl4HjstOOLC5s7qt5ylJ4ZNvO
tTuz8OYVjOlmKdZtuhI0w2Mhtl36jlKK/wAdFFUe
        "]]},
      Annotation[#, "Charting`Private`Tag$2382007#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk01WsXx03XkKtSnJSQIZ3bVabiCu2Sa0hUSrpoUl1DcopSpKyMoUTL
qxSlDEUoU8iwz++gN64m4xuahCPy/I75HNN5z/1jr2d913rWd+/9fT7r0fRk
OZ+UEBMTixbVvydjn/spaQkCl/5R2BKokocZnQ7vX0kRkBE/qdVZUYQtDm4r
ymQJvC6UPZvpUopSbO/Dmb8S6InKKexUf4Emmy5kJy0lkH84774gqhy9n0T9
DFMiULs1O0K5qALvrk429lchEGh9ZCyquBKbEx+FeKwm4O0jt6El+SUuSBVR
O9cQiDPf/LbwcBUaBKOsmQ6BezZrHYqUqvHYyJvd65gEDrxeENd9WY23jvWk
KOsRoGr8cyL31mB9+9AnSQMCnfMYVdpTg1P2Ap0xYwIXuFYTJodqkVkr4/fV
lEBqoPaIVVstuhkxSt6aE0C5B1SnFeL1HJ2ZaiBw8BHqNOUi8hK2X0u1JTCo
/0dIjSEbtST3vItxINDq6ar21J2N+y8cZgTtJlBhwBgaDGdj9LDfoRP7CKy7
Jy148piNFUcuZTm7EjCNsWStaGLjUGvs8DZ3AvZBY2fch9i42u6Okf4RAu4b
bvTdlqUwzKCMLe9FQLKT1jgHFD7PqpOZ8SWgYB5wzf4ghb0qLU6D/gSmNVR8
IlgUKt34+p+OAAJjg/ktJlEU2ojTPfVBBH6dzZO5kErhxfPz2iUhBILl1Ipd
8inM+yF/6uEVAiv35yt+r6FwcQtTcDmaQF3GKMf6E4XbbEy3+cUR4Hoxm4yH
KQx4+WeMWwKBeuYCU4ZPYdbG/W/tbhHI3MWYb5TkYMcjT2XTFAJBw6zs6MUc
lF1x1mPtXQJJkT9abVQ4uCU+LHP5fQKuVZi2XJODfsIbQ+KPCKw2dIqcZHIw
PTDNkJdNoMDJKX5Cn4NvuXkXP+cSWHLtlZmKCQfFPESMFBA4Ktv+xMucg0bv
/ytdVUTA0Dkk/gdw8IR1h2NuGQETzQiTrB0cTKnoS75dSeDd3/mP0204+Fpv
vDuqhkBCrMr1bjsOzmSIa5+jCDgO/mZzfCcH9ZSX+no2ELATto6ZOXBw+bOq
/OxGAlpGZ+yOivSMnRc9+IZAx0MbISW6/613mZFeC4EirlvBCXuRf2jtOVYH
gZpboxmOthx8xvAtL+4iwDxzvf+qtWie58ozk58JbGUH2Ulv5+DlnZSF2XeR
/7oRjy8Wovn7/MJCuQT2VAyHKf7BQYcrotCGCfxp8bQ7w0i0r0q9lCRPxFN1
u2+SHgdXFrNsbSYIGAQGzw6sFeWzSzUulk/gRADbMFudg9z+V83NcwQ23AqI
e8cQ5RkWsGSpOA2fCmwO+YjeJ72kMTlFjgbLgURt/iyFkY7nOz8q0NBamKMx
PkqhH3fNKrVlNOga5Of5cCnconrxQeYqGgZ0Hm5ve0+hZpl274A6DYPWWy+8
qadQdvc7nfXaNERXtiTtqqCwI1w37/nvNHSG9zb2p1NYs7rl57g+DYu2bDwk
lSji58VlfdNNNJy3Uqsruiria6ittMZC5KdjrUUdF/HoHIFNjjRYf7e042pR
ODm8UWKxMw1su8glxYoU9kR1We89QEPWpz7rVWIinisNmzoP09D++ZllYzcb
bTS/tvWxaPDZhuVNCWy8wrMYWkiiIS/N94NcI+LJuEE9qxQa1LjLD6TeQ9yl
k8yKuktD21rvuuunEVcdHJ6Qz6Thevex44+XIL7AVKFKKQ1df83t+barFumE
KSXjDhrs91rp8fKr8SdPnbOhiwZTg3RLs5BqHHK2ZTE/0zDx3W1E0bYa+xh3
GtUGaIja/qUw6EsVdt03uyI7RYO0QrKhnnwVerrWjpNFPDhfrqG/fnclOnqJ
H6pfz4OSo6r92TfLUDsmRp/ly4O0a/nFW43zMKBj0xVPPx6E5ckzHLJzkb22
t9nFnwfGKbLy7YxcPFxv4WsRwIOZTZ+bT/Af413xsSy5EB5kntZdE1uWjctC
PVZlxfLAqydcL1blIUqcNfzl4xNRfwnBk2CVBOx16+6y4vLAv3qHnyo7Fez6
WwVl/qMQ/Pw3x5T5WrgYcNKbMTIKS1oWPWWtawanF/d2MoLGgF/4kedxvh3I
nG+o5NQYKM21tw/V9sDDzqul/oHjYPhks7aJSi/MeFseDZ4dh7gPu9bU7RgA
tfkk97MhE5AY7xP0ZtsQDNjGN8lKTYLfTMP8nRzRv6TbDOrxIv19ef6a8FHw
lc2R0pSbghHZLNfBG+NQnqFjWZc0Bbu3RhYfaZiEt+YWDc6K06CYpdPf2zoN
fN97+44mTMO6tpS/fVoE8HrPAxcFBh+eNThLbBqfBU8zi8ePk/lwycV6Orhv
HnxG3kz2pPAhZ+D2wUUj83Dm4RHrZal8GByjSlIn5yFMLuJbaDofnG967i+T
XoC0j42qzjl8cMtwY35lLkBHsGviXDkfNobe85I8vQA7XwYE7+3mQypz5mnI
xALs9Zd6Hf2JDy1i9lWDcwtwUCuFUf2FD1av+/JcfhGCV1xliW4fH26Y/2+d
HkMIkW5iZPYnH8pvxoT/YyqE2pkbnjkLfGjYqbaoNUQIDYUaRd1iAoizP4kb
I4TQ7FkkXCopAIH3X3ax8ULobmpLuyQjgG2rNFu2pAmBf1e1c89SASiMGjy7
WSMEoVPB2uhlAijgdw9/axCCtCScq1ISwKuC4Umjt0JQOuWpqLtSAAm/r2B9
+CwEVY2JI+6qAnDf/KhHnSsErdaowkQ1AXz0P6N0ihbC+pgV8w0aAlAurVR+
MS0EQ/Nch1lNAfTzy74IhUL4P3OWeyo=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382007#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj30wlHkAx9dLhd4k48qGqKiQqdRRu30v1ZEku8dUpNVOLiFv3RA1qstL
p+uFyiBFd110UxmpVtk6b3usoTYs2e1yCadOnsduy/Ow2+/cH9/5/POZz8zX
URwvjDTmcDi+U/ufgS/f5lZLKIgG8tT2ihpc37vNZ181Bf66DeEhIc+QoaUz
SqQUxndu0eQN1CLmfHFTXy2FBHXpsOmueghd/CycZRTWK9kDLikN8K7TBhyW
U4gpNlQeO96IxWElF++2UXAQTLPcEiUDdWHMem3XlG/dZf3SqgnDtH29u4rC
omk7lohamvBR6Bu//C2Friubb4jSmtFvUyC3G6TALrf7qG2SQ3XDO91sjIJb
7RxuqFsrXnPEriYTFBqLAlPuSluhFOe8NhgoCNb6OC3yb0PU5SOFrDGNiKG8
Gl74C4h3P9eOWNBQbsj2lXgqcOCs0H94Fg3Z0bSET0cViHgyWPphDg3598ld
wgcKhHPnBvZb0ZhR5jz02u0V9vSKyntsafCXvuxRL2zHzkNG4Y0raZRcNTnd
19OBgIKrVXVuNB75VWap5nbCX77C4o9VNKDV58Zu64Sfq1DyZA2N310OCmIr
OuFD/TKvYgONJH5LsMdJJbxStv5Z6E/DRWm5YnRuN5ZkZ3vER9PYs/o9p8FY
haQuz3RxLI1g3vW6EA8Vapf1tYbETf3Zfr5RGqbC/kZeNC+JxnrukgcWD1Uo
MtLcMk+jcWRxveSpWA2rE/tsb/1EY3rpNfMv1W9gnLh6Wk85jfTNsyTNAb3o
C1WrfP6hcYo3a92c+X3wG+hgH8WNYssLxcX9PYM4lhQZZfNpFCkR0QW/vv+I
wMfX/G2SNRB4DSxwoEcwoo8+YTKmAb/6lffZjaO42X36YdxRLcruBuXK1RpM
RPEjUie1MPbapCjL+Aw7Q25YYtpnHPww05awOgz6nmsxM9Uh/dy7hGfJ42hw
boX9OR2UNWfyTykZRJvdNnU0H0Pa1suFb80mICldym/IHcOPY3vl7psn8WIj
TyacN476aseCAoEeTPS17yIujKM3z/W52w4DmoNKQmbbMHAO7t438O0XiL15
ZWVXGLxzygqJXExw+FOb7k0+g9qqb1xnLiVIuCnaalXIQNonlVa4EJw0P/Pu
xHUG0xc8nq9bRVDcI+cKbzOoau/IT+ATdKXuvqSXMOj/2ZvrGkrg/zQpVaBm
EMTLia3IIxDEmTZn/cXA1nPExj2fYI9Tvo20l8GhyAVn7hQSHMp5UuXczyBR
kHnzRilBRihnZHKYwX4jD33qfYLnE+fFt78w2GSWHKyTE8juO1SqOSxU44Vr
RG0EreJKYmnCwl70m7JJQaBu6Sw+PoNFzhA/5mo3AVPE7Q6yZCFzsVA5DhCQ
wHvLsqxYZBwz9J8eIphugh9qrFkUeyU+/vtfAusY8TznhSwyvy6/V6Qh4Dp8
FoVxWYw0t3fodAROHZn3L9mxsIgPqNvFEqzM/sogc5jqz96eXK4nWL3xzo5J
RxZlpXoNIQT/AcCaThE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382056#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUns41PkbHbdCUaFpixBS0SYqhJyyVq0tMSWU3FaF3Bqt1aRk8yuRVL9y
bRhjcim5pVyyUlGJVqJyCSVNF+X7cZ8Rvr/5/fE+7/M+zznvOc9532U+IawD
0gwGgyOp/3eH5p5LFeUUSgzyw8d9K8F1+9XGvYJC0ZywtYelKxAzQmIyqykc
9l1x52FYGQ4nXHvSV0uhSiXmD7XYUrBWbFPUr6fwwvpDropWCTY+GNnu30BB
fCUhJPpHEbT3ZSYWPKeg8fmujdqiQsiP2b+kWii8PWGcVRteAOrCuNq61xRO
R24xuqV4E9+I5sOfOyncdWifX/A2H19ZW0NW9lBw0Fvrz3ieh09lIRq6fRQS
Jx9L67/JRT8zpWGpkILJu44R3kQO+iJqw3/6SiHkWtlwkWEOejs/66oOUmiI
NqlffOQ6OjM2npQfp+Aouyh4ZqUA7QwfQ5lJCkKXVu+bKdl45RPXPj1NIYYp
UypWzYa/T4fNFIPgFL1aXpTKh99/g1LF0gSzSy8/aFvFx8E6KTIuS2B5MsWr
/WEWDoxdtRudRRDN6zby9s2Cr74Bd0ieYGehy7NepSz4uNSMDCoSdP192qmt
hgfvWJb9t7kEB9VvrmoK58GrUsj7okxwPapQ02sDDx5fORPC+QTKsjvvHhjN
xH71eQ79KgTPk0xses9lwn17tuC9GsHn9PjgywaZ2HvC7EcPk8BCiiU9/CoD
boWNTm9/kvB/xIVFxmfAtdczr2MJQV6gflKVfQb2zB+dea1BoCFjx7FWzYDz
lljnNk2C3D1ybH4/F7vZGgUt2gSyLfvNY2u4YGUXSzfrEDjlDa1L4XHh1Gbr
1qRHsH4Op+VUHBeOch1FDfoEcwp3D48d58LBNGjWk5UEjAm7wOKjXOw4JLW/
zoAgwFEhJUgyb0+5evvBaoKkkMvfBjlc2DesUry/hsAvKfC6+CwXv03+41W9
luDDdz57TzoX2wxZ5ZUmBKW9c41byriwcxcqla8ncH00kG/exsWvCRzfMlMC
veExVw8xF7Y1yvdKzAnuXVE0Z+plwIbiLyiyIKhs6E803Z2BLdpmfgVWErzA
8nnyuQxsdmqsybcmEIw0u6nVZcD6b8+FuZslflzFEbEymdh0e+SwwIaggsla
8XJrJqz6zz7MsiVw8ft5+sXFTFgs1FicaUewg3lB9WBPJsz/sn2cak/gWeZo
GPILD2Z57RrJ2wneaTUa14fyYNoRGHbFgcBGrkDPiMfDOsur2oksguKYfZSS
XBbW0B85MXsJzutkLKz+mIXVazkt0e4ETOGhc2wdPgy9lVdGeUj2HakXC734
WPnI9NUxHwLFumY7YR8fumfPGoUEEFxad2KDy2Q22K/Xn/QJJNCtP2l5zUaA
2uV9Tc7BBP4WJjJO5wXwqLMKsGITlBzixBLd60iTGhYocAgcOEu1vP/IgUqk
+xLBOUneKuHqvpr58G5U8E+OJ8DdminF4/koXlJeHpcg0ZNKvd7cng+HygXO
Ry5J/vtL0F/85BuIG3+caJ1K8Ge0b6esTgGkjxjLdeRJ7v9nbfo/B4vgVNuz
q+kGgSGtl53UWgTevPP8+wUETy/LLC/QLoZ1oRA5xQQFPcb76xOLwRlI54RV
EJjlK2mahJVg+MAsovRUklfU2IqBHbfRt7er0+YTgVoEdaP093LM3eSS6/VF
oreFDjG7Uo4NWq1hJwcIYsX53lrd5Yj98GxuFSXxP+CrvjC0AkaBVdbGIol/
VWm5qLRKRJ5I5WspDKFxlYn2ZUY1FvJcAqYMhvDEfeKG3ZlabPvYKr4TPIQ5
v2156iX1GBHsA37M70PotOkPMqp+AYe76fbM8GHoaZi0dgjeYHAqIFJmfBjz
lFVeOSb3IOtNdFlw2AgiuGxh4/s+TPpt8jr2YwQuMyOOhoNCLJ2+tO8IZxQT
gsLPnJdfIdwa/0xedgyytwyjZJdReKTfBM34MTzaZeu59c4QAuRzZJcpjGPb
O8u8tIoRlPP0Nj26NI5Qc5FV4acx/GtpVc9aMIHZumkeA4MTEAWk7/K6MIHG
rpruMqEYTx0znZWYIuyIF8WfYkzBZ6NVbu4VEUytzt0OHZiG//fnY2+TRHBi
PVP5ODKN0CxPW5VUEY4+qA5ynZpGlMLp95FcEaw1vFStlGZwraNBnZUjwuvw
nbMm1szg9TGXi1PlIqxnpL2wYM/Avop9zKlLhOgBV4PRiRk4Bcs+PdMtgvDF
Ol87Bg1XnSRmda8I8V2/RCXL0zgUV3lbv1+C961yNl1MI2YvY/DHNxG062YH
HbSgUTOZ4JMzI4Lh+ryExEga9YVaJV0MMVSrORHNMTSafEro+TJiqF31N1NO
oNH1rO3a8dlifHFzWxPLpSFKU3/jOF+M7t2lX4JqaNAOt5afURHjzvtkD8Fj
GrNkcPSemhgL2Mysjn9pqB32WaC/WAz2/Yz4zb001LVGPfepi+HbIG/C/kRD
p/U/hReXisELbeLzKRoGZxdN12uJ4bZoSXfLBA1jy/zffywT44KZzjuapvE/
ugXW7w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2382056#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkFlQU2cARsOikCpTopAOpJCClTK4IFZF2b4qIIxlFMJiC07FKJBSFCHK
oiwqyioYO+iAoBLpgB0LKogUpbQBUfYtSMRojQRQxOVe1hu2v/Thm/N0zsNn
IYwUhGizWCz3xf1PX6MWX18ZhaGcGKSUdWNJ3ILOpnoKeZsm3BozeuD35Jbg
m0cU5NcyrXv85Sjm/ig1fUzBUfrZaNpbOcZCllIGTRQm8nwO2h3qxfaqShet
FgoC60PXw3p6IdE9kD3RSmE2I513xv4p1hc/tFF2UrieIog1/fQUiWOi+I5u
CgsdWVqmbn1o285tkskpuLiquq5d6kO46mjITQWF6nt/r9u2QYEaW/N7Bf0U
OvP8zNknFNBPbtW+oKRgPvKwZ0CmQImZVdHxVxS2mf5FTns9w0Cg8vmONxT6
0gqr43z6sdx5b2nwCIU0B8HtzZf6sZkvFyeNUpDF7hl8quhHurpl+YNPFMSz
Tcc+D3wO24gHLnbM4h9mBgZf+SmRkJh/g8+mET0TOm9v/RLGRXvD52xo/MoZ
pR2cVXA5I99iuo5GRbPqfEiACqJDe3S22tKI1DcxPBypQq21R6H4Wxqe5vVi
rlQF4d0tHe8caZQSk7ER7dcorzfe2O9Foz0zBhtlr+E5JNdUHaFxtbX6PGut
Golrck7ePkqjsuAPUfp3alREec7fjKZRlRLhzfJXg7dQyyqMoTFxR7JWlqjG
R26J3pkkGobF21dld6iR6xlnvDuHhpNF4Ez84UGobn1pN1xGg/HT9muXDiEu
OkTE/UDjw3FxiuHoG+y+X7CLGzOGAMtin/Ux7/FxLjxBZ2oModwu+wgbClLF
6XtHxOP4SSKrkix6MyLn4PjZcdREvheeuj8Os/mLQVEnJhD/xGPBaOckhj2y
WvR1JzHkt8oh4sUUGqzaYJ41CV+9RvetAgbh+iW6FuwpLOGzg8rzNagu+tq5
4eIUrtiLM24Mz6DD0alRwJlGjOtbzln2HJjwAt/gnGm8aMhn3zCaR5P3dX8D
LgO5qHDDJ8sFCLc5lZbmMrjW+6gu2YDg5w/tky8uM+g00RVGcQiOSve7rchn
wNkQVnfAmCCZnfI64SqDc9xTxS5mBIX9zTxBCYNuF9/VI2sJ+uL3SuaqGfD/
ETloeRHsehAd76Nk0Ky9xh0ZBD5HdJtSXzKYcrVJ0s8m+MHyMrf2FQPX2Jux
XRKCsMyaSqtBBv8ynLJ9eQRnA1kfZ98zkFbYWoeWEtTNZAtLFhg4PsvKdW4k
aCzn31WyNLhT1kaPNRG0Ce8SQx0N5OqAlaVtBMqW3sKTehpMTjv9tqyXgLnC
U3gbarBzxzLdxwMEZHfZ6tQVGnD1BJlRwwRLdXDsoZEG0Qmdfbx3BEa/CDlW
Jhpod4Y2RNAEPP7E/iCeBss58wdXThJYys+VS8w0SG2vb/2TIbBJ+2K+ka+B
ZdTUzL45AjvH37+ftVjsn+qjCSH4D5zcOv8=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382105#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUms0lYkCPTiR61Unj8Yjk6g7uiVDpiH2uKsHMeTRPQbXa7zGKzEKYWSK
hpthJfcWt2jmelzlLpReqos8xvc5Ts5BOkglNXl93zke3/E433V/7LXXXmv/
2HvtvT3spHeEMofDiVnH/9lHt8fHp5XCH5IZ892Fz7EhVaFi20bBf6uhc0aP
EL5ddd67nlF4UqK2rLlfiF/0v6k07KRwztvVZaahD9IIVUqrm8JjvzpyZFcf
nO82OSn1UFCV1oc03xegiBt6aZ6gUGl3TI0IEOCVj/bI+14Klnoh3m6aAuz9
5ZGlpI+CfeB9mwNdvciURqcJnlNgxJEBl/J7QTrrd7eKKFCuFWkS314YFbfr
3x2gUPas25xn0YuY8cSImiEKj+KmakOWSTyw2nanbJjCTemHaTMxiY0/EMo/
Syhk2ysbDDSQ4AtSvXJGKeRbEr4al0lUmeysSHlFQbJf0yTuDImFONFs9GsK
jfx041tBJA61ZDsGvqUgfO7qUOBC4rLG3r95vqOgkSQK77cl8cZf8vLP7ylM
nTF+4bWDhKYjvzrkdwqfp6umVvFI7DcVJWdNrftbTDMPcEkEKXl+VT6z3k99
69LYEoGLb3s0H85RCDJObUuZIdDYcWR4iKZQUqzXNTJBYKS67V8LMgq99gaB
S6MEVPOdkrYsUrj3xVp33QsCVnEPnawZCrvHToy+ERPw87DT8FymcOVxwLW8
fgI5+xqH4lYpTMyMfMx9TuAWb++v+QoKe+SVkX3renC+NrGGQ2P7/c9MvUQE
OEMWjp3KNIoXVb9fGyDw2YNK9Qkuja6TeTOdwwS8y0wGldRotB4pNq4cI5CR
efWmqTqNYGo4K3s9b1Ww3klHDRrql9sj/acI9DkXOwRo0aj+3WPSXEaA2aG1
MU2HxtaZ2pbBFQJmqj+JSzfTqElnDkdtIOH+gVt5Z8t6HoobL9AhkdKTHd+v
R6MxqOQ614hEd2GqqrYhDbNvJ43abEhIE+f7dxvT6NzXHnvQmYSRT+IN1200
Dl/xexzrSSLBIPrABTMaZy6pHxLFk9Cr4MesWtLwfR36m30jCacckZ3hHhpj
4ajre0YiOtxT5YAVDVksjzc/RKLlj0fLk21ouJ9N7xhhSYQ12Ak+OtA4GbvP
QHiiF/Vtep8Pu9P45MeylKcGArz4tVix6EHjxXcFuWPWAijlaRG6XjRUVQZi
Qt0F8HXbEH78BI0lpQ+bC3IEWBHNX+n6Kw2kZuw5KBPA5Z1IfjeBhmGdhW/z
RB8ydxee/U8ijbKqFL6+khCNp1zWapJo6Bz6KV2qI4SRooVTfprGyrOaDo29
QszqV6nlZNHQbt2g1xwrRIlLqp5H4fp+g+PXf54WYrzO2HryNg2nMqvzcqV+
pCZFROvP0LguPDZ7N16Mi26zUfZzNJxrfcSc82L83fxMVBBNYzj/4+nga2I0
D16MrFqgkR9qd4TfJYbM/la4nYLG1FzFuT+ZDSBBRRbyFx0p/utrq+smGcC3
JdnflFpLccPmglGY/xA8msuO6Z+WYpg3G1F54SVmV2MyVBal+HQHr3M2dRyV
Q+fuJCTL8LV/DJ8/+hbL0Y4haSsy+P8j8P6up+9hslYccCp9HkmtplUrOVOY
PFrQs5G7gC+C62teNs2hfSeJbQULKJ6+UmEppRGzsYq7XX0Rr02yMi2mZLhX
Ye7YXryIZJ6VgeGmRQgcDnZ4b15C/m27Xf/WZsDElPmEFC6BuTqve1YhR/fx
Gye09BlkjG1L19q0irAvD1ZXlzBQ1pzbcVm2hu9mehdGShnUB8d0TK6sIbEy
+BDvKoOmW9oRX3IV+EH9x9cZ/2RQ1OlTJtFVoHz4NyPvKgZXPw0lttgpMJjG
L1q9xyDxWtxp71QFjj1MSvOSMLgZyXmnvKqAVwK3O3eUQXxvRLktl4WfWal+
yysG4kFbuwhNFlH5D5p2TjBweXldq92YxXl/zuzKNIOvcoptTjmyeLJ8KaxK
wWBaqaWsNItFR71pg4Qjx+GLTbzmXBZkWAO7SUUO0+DAIHEhC0mPuPysmhyV
fvxErRssmGtGQ8c3ydHO14o69ZQF63HbIpcnh6yoNjavi13/Nb5/pCuHg4e5
U3kfC93YsM07P5Ej4MnXrm2vWBiZzgcHGMnh+MYlW/SehZnoQn2RiRxmcY/O
vZ1jYZlnsNZhKke1kHCXLrGwdqh1W9kux9HyinGWZfE/gWJovg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2382105#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVxXs4lXcAB/AjLMTjksvWSSLpmc4zbKVx8FWPPW2YxyVzvzM6nsfcNpfc
jx3KxOlyVEepzRhLm2kuqbnlicKkcmbmbh4W8h4c78vht+2Pz/MxDv/CM2oX
i8XCf/7/TGwIphspNPTXWJeqjGNerb2lu4nCUeHPtcp949jvkc5ta6HgKtPk
W+ROwKPs2KPmVgr+vJE1r12TEIwtO/zyiEKiZDhyr+0kWg/VtP/YRiF+bv7Q
TuwkVs5GnPq+g4Iqrzd//fok/GSSj651U/jBUd96cGkSF+0uPRE+oZBSkZHc
qzuFzjzXT4p6KZxO8UqB7RQ4mh2uWf0UNuOH1HNypxDmfW4g5XcKSeJd0eLv
piASH3dPeE5B7+2wmdHHUyBHar0iX1EwCmH3HlaexpDjZX/nMQpj7qVf3sya
RmpiVIz+EgUD4Undb4JmUOiyHG37hsKleqcy6/QZlJmmRAdTFLI4uicui2bQ
OFz4edU6haCGZ7GJAzNYtb0bab1DYdazp8eUO4s4xdXQzzSlKHldssFX+xsR
V3L8RFZSdF4o/pYUzcGtUeys/5UU3SZZxplOC4hZDSd6qVKwHyxatfosgG9p
fl8vXQqFOreji7wFNNc2G+plSRFVr5pzRLgAk4pXK3sFUlzbF7hHZWwBsgLN
Mm2RFLMV5edLE//BLT/+jHqjFKUiraSyq6+xLOdlKMqkcPUJCjvfvoQ7ktz7
cUmrsLEIjRuXrGAzxj40bWsVQ4IVX06fFIbbwoCE9DVo1R2rGMlYw9zpoqcq
SuvQ+bPlJ9pKhi6zPhwoWofSnsqXeZ0b4KlUKRmryvBecCr34UEGTbdN7buE
MvS7bQZW529igGvX7am9gVunun591roFmif2Cr24AVbzyTFmRI4e9wpvDX0a
z3niHG/5NsJt7Kqrr9DY/Uat3o7Zwdml/vW/RDQcbFh3s7d3EH8nxEnnOo3K
QX5ghwJBtip/KuMmDeUO3wlHNYLykV62ZxWNOXvLZEs2wXCaT6m8iYaCJGnf
kB2B84PENI9RGifyDQKMswk84pR6BGM03ldsuMrlE/iaiPQfTtD4mNEoOVNA
EH2hpcFslkbqDU5bXglBvj9reWuRRuH4h4aDFQS/bRaHV+3Q6HvB0bFoJ+i+
Z1Q/ymJwYGE04Phjgr7weqKlyMDFQx5j20Mw+vRl+bndDMin7QOOgwT0DbbE
XYtBo0bloMMkAXGrOyzQYRBsz3HgzhK8pYjkVl0GZT6CBOt5At3YcG2zdxhk
2k6bv7tCwDZaCwlgM4j4ILP+4BqByYuv75UaMridsp/o0wTmBQbb3UYMNv5Q
11WXE1hxa1y2jBkUO4pXCCH4F3IEDfc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382154#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3lUjXkY7igtRtMeWuRWrjTNmSw5SjxNCm2ohmTrdrUjsoTQamlE06Yo
lTRliaZQsme5ihZbpPndbkKLGS2/71LfTd1v7vzxnuc8532f5zx/PC9PuM0n
eJySktI6xfyPv20OwIdqiqlVGt4npO3onVB7U3SDQmhbVnPMrR0m3jEL7t+k
uDpT9ra/UQzvnLl3a25T1K+caDg+UYwj7f2Lrt6lGN4WkmzgIcZti4u1Zfcp
5oQ3qr4wE2MwfJNzyQMKuwLB56hRAssK08cFjxR7/oRPXRIC/6FW11MiirJl
1nc7RASpjhl16XUUjeo5TXEVBA8TPd1SnlKU17pI+QUEw/WqDYcaKA6U5FoG
pBLYaD3wjG2iCLxQM9AUTxC4an/znucUFkanZ9vsJsjOs1sZ9ZJCfW+myGkz
wbPOgZcRrymyJD09YiEBN+OSb9AbitQEF1HbOoK5kUFvNrRShNxOqjRcTRB2
faqfXxvF+L7dkj3eBPkj796tJBQBy6uCu7wIXjllrnVvp5A11p5w9yBQO+ol
XtxBYe/VYH/SjcCxSW3jwk6KeMHHvVXLCLbrPeyY95GiWBpnk6/gJf4HAm27
KN5oPqmF4v7vwnkfZ/ZQeAkimHR3gh+7B4MsPlO8bOIX/u5JsNimrNvkX4rL
4fEFpisI9u4IDjPso2jLmVHk6kOQ7NEf6jBA8Ufu+NEVivw5lntCN1KKAZ+R
/KG1BKVjXEiilELTVpg8S0BQ/TY5pPQbBT9o01ZZMIHoL52QZ8MUmS+M8pZu
IWhJzg3ul1GESlo/G+wkkDpcDponp9AdcC0xSSQYp28XtFaJQa5L+pD7MQLd
vrubYscxGKxsNOnKILAtfC58osqg5aiKwLOEIFJZKlitxcA1nUQnNBMcFO8X
xOgwML5j11naRnC8SkVQoMdg0dR3PNMugrJQw4DuSQyEgWFWjKI/vQ32G6Kn
Megu52Vwv4ixKSveP3sWg9Bh8YjaOTF2bNXwvzWHQXbxBgO3SjESl2Sskdgx
uHD4csW9WjHOssV+fAcGVllhdc7vxZCsr1tV7czgqbwwNo3XjjXTf/R568ug
K6A3N+pyO5ZX57kbRjPYsr4pd75EgjCpkDPYy6CevytTl0qQZGt93SCGwRwz
s4OqKh2ouVRjahCr0FsbNzhYd8C88M2g3hEGutujVjfu6cDQUa0cnWwGy15N
OXXhh/co8E/6OLGawcOY1Pta196jfzTigPIQgwjf+dF6Jh9Q1JpwPXKnFM1F
xZnOP3VhJGyhYN93KXYF9jkeb+iF6Vj6uqiYrzC/n+PdJviC7qUpz9RVviE9
n9aWzR3EI34jpqZ8w+QdVZqJjgpf9VIVnsYQwoxaf/a1+oobZy0XPkofQuT6
zenlTkNoXuAo8tEZxk7VxaVn57JgI/J8BanD4MYizZ4bjSj+vnCVpiELZsaY
Q7L5KIT2jufPZ7G4Z2Bk5TA2hvC+pm/ibBZP2/75FDJeju1FAS66p1mcY1cX
Z2jKEaeR1Hkgn4UkwY3XYyrHmbanxj6lLP4MPKV2aJEcb/f5pY3eYNHR71Z+
PE4O91s79nkTFtcTrvS9UuLgHalSf6SdhbLnbD2JOoc15tmGdzpY5Pc2m/Rq
cwg9dvMa/xOLky9L37HTOBxaq9T//QuLOaP2bRN/5XBv5ISwVM5CW5QySx7P
QVRuVkmUZAjqkVsPJ3NoFFZy2soyZGtIZf1pHMizljP71WRwsrujT85yYHON
W1dqyxCiF25ZUsuBW35l+hFdGUzDYyqy6jmoKmPXbX0Z9HkNE5JecNDfLNTh
T5Gh7lEKf/17DsZmXwPWGcvQEmXTvaSXg/nrw+VppjIcVI/cbjvIwfropDGR
mQzm/PDHk1kOsxZc9PjOk8EiYV4nx3H4Dyq8/Tk=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382154#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVxX1Qk3UAB/DFwLHdSYCEOsIdHGIhsnYYhyF+qzNDJwgIKlKC6zhxgTBe
FIQOTNDIIPDEItAYJozuFBYkJ6Ie4IDm4kw5xIEQiRsYbvY8e3keXvar/vjc
x0+WFZ/mxOFwIv7z/zNXktoEGgrPSx2j4esNyPnwdoVggILQOsa7rDDgm5Ky
bYIhCg+FjwTlPQa09EhpvpZCmtQ7WWUxoI/1VPF1FLJCFZtmA4yYCNN/wh+m
IN0/9WtRrBG2XKUH/wGFG79kSCcLjPBQpw+4PqTQbq2UzFw2YsdGu9h1lILV
c1rc/9yI1PQ7M7wxCq8f/ParMN4siq6W1/H0FGZU8riGDbNoF3lxeZMUDnOi
Q7VpsxB6SUZdDBT8ukfSQvSzMC3Ji7k2ClfF6ge2a3NIOiB9m7VTSLAMKs4O
zOFex8ZRE0thUvneu08m51Annxfrlyms1J/W6NxeYPtY5rN2FxrM7lNZ2zJe
oL4je9ehN2i4i+19AtHfiJIfX3NzM42PFFtq2Yx5KB+f6jyWS2PYRdMWpTPB
oHlnqiqfRkXM7drRKROCO6f4bSdoyF6L4OyjTbhRHZliLqJhDvINDRKaodvJ
8rPLaJysF+ZuOmIGcys7RVFLQ91bumfAYUZMY4ogr4uGKlzp1nT+FRbSI1ML
F2m8n/tWwpWf/4Hvck2y4qQFjDbhfnMlDcPH57SuzlZ8lpyZ2JZhRX+gDuvO
WRFSMOG5SmSH3LXZ2Y9vwyWVdmLwewZdjQGR/TU23G16pSxbvYDhiK2aeA87
ktkdTF/aIhh5/d7UKjtUXzpp9tYtYSj2x8SV3gx2j/259uUfy5Bt2drScoFB
k1A9zX3mwNGXv1snLjIIuGATNxodyFambPesYzCYeDwkYt6BEv7p6eJLDALv
NUZmWh1oePKbT3wzg97WFW29PILRwv3VS10MzuvjJMHBBLu6cwrjxhmwVaF7
BHkEccech848ZRA2Ev3pFwUEB/wvevdMMZiMqt5gLiY48vXNjsAZBvFwo4bL
CcoOckyL8wyUK/KPlnxHcGehUtbsYLAqbF/YT90Emusi9TiHxTon/83cuwQ6
mZq4c1ncf1NkSe0nGNeONBTxWITMSXrW6AiYH3wex7qzsIwdOlH4lIDEXFt/
xpPFXzVJNcPTBCu4yLvlxWInU53tbyDw+lzmEbiWRRE/snTAROAjsqQk+7CQ
VuSrvWkC/0fl16t9WYQfzmlNsxMEnV29rBGxkHTWpncsEkgiWqWLfiyiez4w
E0LwL5cz8bg=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382203#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUXlUjHsYzm1aJsutDEXIOIQrLUqWkeciopxug2yl5mSbxpXsEcVtpUzJ
rSuTJZG9pK6OfZ1o46JbqblI/SZLJb9vqu+j5rvjj/e85z3nOc/7LOLQTYvW
/mRkZBRgmB+7OXdFgYWa4qIq96vIRIsts+8csCileHJ0U9m4JwQpMXEzLZ5S
qGoqstyyCM7d9mWE5RR5k13L+kQTPOSszwsrKca/OCguUhBoPOqDhM8o5rRk
brQMIujammMl/IcidppxwAl/AqtCean5S4ovz0VHkrwJHNudo8yrKbwmM5Y+
vxLMm9DtbF5DYVlwoyppOoFMfrfZrI7ifuOcRIEHQdTZ+CyzegNee3/LoUkE
me8X+plpKAJqNRq9M8FVe5Gx2RuKC9P/rZc4EZQHNZSYvqN4ZDJv7MSJBCTr
9O+m7ymUGtm1e44ERrVhYtNmimMbdp9uMtxDRa41JlqKATNOHk824N2l7EGT
DwY/Lo5elw18vynvweQThW2JR5XEhUBRkaATtFKUDqq76WrQE2fud0HQTkED
ik8muBOcmDsoWNBBER054avbFIIbf2isBZRizcw+TW4Gf9X3cp8Y6yiK7Sf5
7PckaO9R7DHuoujjvTDeZhbBiuW+47luivJZbRvfeBE8LppQ085RTBXJSpvm
E2QpWp3reyn6UZX9cSmBoLRS85yneF72INJ3KUG4+MoBdR8GufYH3zsGEnjV
bWy6asLAY7K2LWYtQYGbX1qeGYM11Uv3thn6G5rq5JktZPDTKkVHfARBx9wv
mYn9GWguxTe47CFQFUX4BA9iYCb6y3peBoHpz9LuxTYMlkS5iBtVBBEK1zML
hjBQdhZKsk8b+hTTXvfhDNIX9KaHXyWgyq2Ffccw2BY89LyiimC+YoftDXcG
JRdPNA3pp0WReqk634PBMDO5ZolIixHiKVvOTGWQvz4m6cwwLZja7orUGQx8
dziO3DdRa8h3V8w6Lwa2Qz0XDfPXQjdyj3bgEgb3nR3lGUe1yKndXxy+lUGY
vWxvrHsLtGqXt8rtDJ5Z6Y8kowWOxW+FBTsZuAxw8snxacH1NM+QL1EM6u3K
7+pkLahcwAkj4hhUFwZJPJQtYG9FhGzOYNDZXuTx/VML/E6FWGwrYcAol9fE
XP6Ab3JP2a7vDJpWp/h5L/iE4b2HAzfv1kGytMdk9qE2aL2Ty80FncgO+Ppx
9aUOPHKoxIjkTow8GX02VUWhMM8TiIVdkKW8y1i5XYeSU6M9Hx3ugnzngxS7
vV14JpmhXmTVjZsXX0/bvpoFq1Atlim7kbUi7HGK5zc89T8Z0H8wC2mYtNV2
Wg9Cp804d+5PFmNT+Q095nqEtVV1ajJZ6AqWXeMs9YjICfGyzmKx700032mr
R4wwtnHPcRZ9t024+HmcHtmvy+wW5bEQFB0fXTFfj5pdy9J6SljcqZNXrEjS
w+fmll3SBhZZE4Or8015SMMFTxP+M+hSOxslD+CxfFTm4Ntvf/w/Zb1uMI/1
B28UOTSzGFgR2mLrwCNupVH791YWanmC++a5PO5+OxSap2fxcVN69OdYHup8
+8IGIw5XNzPZfyfzqAwt5C2NOUQ+7p8efYRHQ3l1dpQZB219ZE+/XB7sMbta
f0sO3k6R1+0e8uD9roxJsOYgXUbDNWU8TI2x7ZaIw8tEzy7VCx6iDaFWDkM4
5Fcs2WjTyMPOXhcSaMdhlWBc4KsPPEa9is9PG87hrLJ+oLKDxy+JNr1qew4j
JRGZ3iwPV8kF3+9iDpdoayPP8/gfwNq7+w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2382203#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkX1Q03UAxmdjIK8BciOYY6BJCVEHXnC8+RgSJB5jMERUaLQzEEVkYp4Q
UrwpiiCUYQSmdLzkeWCKJyAkpnAgB4TyZtAEEvFOgb3w3fitjX2jP557/vjc
PZ8/HjfpsZgv32KxWIFr+b/1p4bdPA3LuCiWZ6YWLiGiw2PHV6vLcPK6klbU
s4Rq63dcZXQZk9ncYxarS1iQcFhH1xFEns4aMd+qQNBt9fQhNgG/9WRIW5QC
F0xmug5yCBI2OudtyVRAHjd4NcmMQJUTlh51SYFcfaMk3pJgap4f9/qJAkOR
PyDWmqBpW13wypICgmv5AtHbBAFHh+dKOUo8CE2cDt+wtu+5MbDSVQl2mb3E
j0fQJd/1baxYidgZun0bn8Bm8rvObIkSdT6LLh8JCGa+dyrOPKJE2ETvc/fN
BPXPBhpe5ytR7Hr6c64nQWvrzZf+vylh1fIqURNAIK4X7nvDUSGBMxasCiLY
/fHgezttVWja+5C/uJ3gPGUtFzurIDTUyOdCCEzDnoTPfqhC+acxiaMRBHER
d56Pxang8KwzoWU/wd3sZoN/nQr81YoDsmyCG7ltD7381Pjsn8j2yzkEVqFa
2dMdapzoNXe8n0vgHHwhJD1Cjf6KvKcWBWv+5CKmJFGNk+6yXXUlBGYpQu+D
BWoMR4n8JmoIfrRycWwcVCP/F5sNwV0EDZ+kZAQkLmM+vKR/vYkGudxz9vVp
BI/cB+BSokHB5IKN1x4tDq9vMHEz1+Llr3zOWc0KWq+9G/yoQot93VF9vMs6
DAUG9cTYreD9DtHs6Do9mMPV4qSyFRQmmYy/EBrQJ7q6x5rLoFCaKk6uXYXU
P6ix8RIDQVTT2I3HRqQuDmr+rmSQNR65s3nIiIxaSah9FYO6Usv4myNGfGNe
MJtzhcE9oeZUk9yImr8e82IaGAyO8BurVEaMZ+0tN7QymO+VbfVxooi4dzwr
eoqB9ovy1JQUiuh0k74zcgYfdOs6kUYRv6mS2znNgG++uY8ro0g5397iPsfA
e6jP7I9sisL9rCX9AgNR2psA0zKK+/+WShuMDGrZ2jnxHYqeZsGtKZYOmv67
asd2igHpLWrL1sHgf+7B5O8UU/2jNV+b6RDHyfo5oZeC+Yk3IbLVwULmdjx6
koIKm7acsdehxNfqouU0hSkbJzocdEj29c3ofkHhcERq5+60xtlJeT6LFDwB
kRzg6VBln3b7lYpi00hRczlfh56ZP69Xayk8zjqu9gh0a3/YHRLqKbwDr+/W
u+nA82hbpJTiP9RI4rQ=
        "]]},
      Annotation[#, "Charting`Private`Tag$2382252#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkX001Xccx8UVQos87rpuNDe6LZXJloe3LWYYkyVOiJyFmMRwNEUekkOJ
mmvKPJ0iM5acZmQ0d9KEVUimiDpzLL+fpy/9frj3t7s/Pud9Xv+93u+PWVis
7zFlJSUlV8X9n6vJj8zEa4twqQ5nSo/S8Li73TlRtoif5twXDG1oXNM22hLH
LcI5/MM0sRGNmRBVpZh1BLbpaZel6jQcbi+MR6oQnIjZnVEnp3CB97LjK1WC
DpqXM/CWwotDfeWhagSOyyNSx0UKO2tb04I0CG7UxP4WMEchdbUmJECTYEz3
1tNumkK/VxEOahNsKAps91SwsCJD6PMOAVMumvhFwScXYjlPHYKZUJnZ1CyF
ey7B426bCerZN+LOeQo6xR4d+/UJKv8asbQhFMKm7cphSHBEVuBipfC5bW+R
Zm9MkG1hXCdZoaCSrxtixycQNg0Oxir8D77knGwEBMfUklXrlGlc30OZWgsJ
WgO8KajR+HS4e0y0lUDQ120VqENDYnWn3dyCwC35Tf+QAY2plKoy020E1UcT
0i+b0MjZcuaIgZjAJDE95ndLGs/io5x03yfQ3WcUvcOahlWXv+lGa4KvrwrG
e2xp9BzfM6ZqQ6B2KeLj4v00tJqmgpf2EYT7+Ih3Kv4TpDrkOO+g6JelLV+I
pFHv3ymgnAh+HnAr+fskDe+10hevPyGQXmy8opVOo8DVN3jQQ7F/TF7+SBUN
vWdtQU2HCVa3Nes4v6EhkBUGxn1LENhQwm/OncVnk14txacJ4hvyX+lLZpHQ
rWHYnqrwezz+R1blLHoK059syCS4yfZGF/46iyRRnPv1PIKJjMfi4KlZPPrC
x264lCDPNdejY+scMqo2bnbsIDgVYeYnzpnDP255Peq8Jcw3nG0hwfOQinph
mreEuy0/UjzzRUSpV/PMNJZRG35L78wYQXPFe47SwmX0vowMSe5bRr+9Q5ev
zlu4Tk8bNlcwYKKufRma/xaPPyi9nBK1ggc+5X7aBgyeX+f5ax1aQ9hHDjU1
3zEotB+YWmckx3Gqb+m5hMFMWWZgp1COk5UhLrolDIzilcfTt8mRppE5cfoH
Bh03pZvke+UoHfmT71vNIOLIQ/m/fnI8PeVfsNbMIHFX5DrJFTk8WuNPHRhl
4Lvr4SXLjRwOnOA9yH7B4Ps5m3sP9DkEmEsM2sYVfLFoNELAISK3pUn0msHo
/jv9VTs4ZB1WoldnGIiGLmRrenJoX7kYVi1nsFTi5VRznkNXg7BxVImFRRJd
ZHuJQ29YI7dJhYXG3qP3OyUcRnsGS1PUWMiS7OpHbnBgrvKHfTaxcI/X/IaV
cuC86y2ydVl4s2VxqQ85rFdBwl09FjvqZVAe4KAXHaYjMmZxP/Ka2/pJDnwh
CQnks2h792pq9jQH84FzDQUCFk8+f3VWdZ7D9vOGsi4hCxN9f69MhsNu+1rP
VTMWV6qGJjmOw38/eTsa
        "]]},
      Annotation[#, "Charting`Private`Tag$2382252#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzn1Q03UABvAxBYMOZbjgFHCCCOELJGUHJ/T04kuAEi/xEmSjhbwVQsRZ
aMCRgm8BkzxyvAiOu1GIU1ACJbwQdiKMBaHzcAh5QZ2RELDv7wXYvs4/nnvu
+edzj7ssK+qQUCAQBFjyomfGmws+KSHw6f66KafcCK3E4/yUZdtMHfHNrTLi
/U3sU6vTBK7SeerYakSPlxYbzhK8e3T4e2WPEaFlE6FOpQSLI/8WrP7DiCEy
H7O6nKD4K+cbn00YMd677gtzBUHDG1EXrDkjOFnqhfEqghsdaXKFJ0FB/9EG
fQ2BKLb7d1c/Amv/MrXuIkFncuNoViCBo1Vb720lwaRvVqfiAMG2OuHcxSaC
y0ppb1IuQauN03JlM4Esc+O0Lp8g8LDPqnI1wc448aPNJwn2Bke4FbYSLJ/R
zPygIPjUUBsivUUQKQodPNdFUOkcqJT0E/Q96RJphQxcC/dfcdZa/mblNwe9
zKDhb2nHGh3ByAkolGsZXGsr0dFhgrKkjJEPPBkMRN9fnBi1+J3+JQF7GAjk
WdH1Ty2/giWvHytmkPGSaqW7rcXJ8ReYBCwGhKdK37O4Y7XXM71tWWwzpTul
2DNImWMnw0QsZue2v3pZxMDsoIg97s4i19AWtnM9gwXh3sfqd1jkqzUVIVsZ
pOoW2uyKWMg/nNqYc4DBfJPqVMgyi/Z6z+CecwySB3+Z/ugfDrpdQZooi5tw
9+OE5YJFcBnV0UllLPaZNumNs0voi6iLsXfiIM1WrqlINkEWGNTYeJ7Dm7NN
tr5NZqQ/GyRjlRzi73n6XLtqRvYl6W5HBYeDP+Y9eq3NjELb40++reVQ/+Xb
zPbfzKgZvecSpeJg6hBuddaboc+Lky+3c9iT+Eq4yooi9FZOXqSBg19iQHlX
HEXk4ZV9JY85BNgdql57kCLeo9Lp1wkOA/F+MWkyitQzN697TXIgKdYP7DMp
TiQIZpb+4/Bs6KxbyHcUtxdLZSozB/ZqmLyomUKjlrQYBDx2eMeN3Wmh0Mpa
qMMKHrHVlX8J2ykM/fdrjq3icWRB7F3YTcFVuTyMcOCRsf+uIk1PQcOvbC5x
5HGzf8vDOgOFzQrkdop52O0+rX/wJ4X4c5nIax2PRHH1hremKVwkRmmiC4+f
igTp2f9TeIwUq+VuPPLWa765RCi2nHQ2aSQ8uh3vhA8vUuzY9XPYkjuPfa1D
05RSPAcE1tqQ
        "]]},
      Annotation[#, "Charting`Private`Tag$2382301#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj3swXHcAhRexCYZiEsSGRdOVth5Dm07U6ulMXwlJg6UyNcVuPSo1EvKw
nptBpKhHRHeSIJRmDWEFlQeJzDSospRWaSKYNPKQhGSb+7t7L2tvt3+cOfPN
fHNmjrvsUHiCKY/HExvzf6/Mt+XFFBGQ5UuWToUUNEKP6odGDnPpnxnIobD7
dd2SSTHBWL5r1fwRCrdFGriWEnRFFCTz0ygEly8EO5QRiEjKkOQwhQnyb6RN
BUFh5N9zV4wc9RVfyj9NEJPnuzht9OcHtqYYqggeDIiL84178V7eGXQ1wUWf
VbOaYxSenfkwf0VJ8FR+q9JKTiF9TVL26CxBX0exbDCLAiNLOjt/nuA9J5J5
M5dC3khW03QtwV9658RnJyiY+5erxy8QuG1qPbHb+MfepGegv5HAbF06kV1K
waveVHuhleDJMdUNWQ2FLr6DXtlGEPKHTl5XTyEg9c2NFWoCv5I06UoThU+D
Ql0UXQSfZEunNW0UpLN1e2J7CbRz7onRtygoHQMahSMEFSnDS/zHFLYp9rY7
agiS8ml/n+cUmh7FXnttnOCXH8K2xGopXO4pGucmCZJPqXbdW6MwKplaXbhD
EBet8w60I+BVHpI0LBH8bPnSXBJEcHCTaoO7BQ2x413njnMEo6bflX1kReN4
Wt8OQQOB13qyQ6I1jXiwk6Uqghda7x2X7GjIH98ty+omODrbE7LTmcbcdlte
6RhBrnqwas/bNN53Ii/iTWlURjx0S99HY8rTyqIwlcbVhu1Bt0/TuKY76TO5
T4fxQPFguJ0OCQvrJGGdAXOwRhJXrkNF3tede9tWMRxaH2ntwOCVzeiTcoUe
sgBxc3M1g1+tZT37vQ1IXh4j95QMwj5ID7j+rgGHf4z92P4cgysTGf+4iw1Q
WBTcz6ljcDzjs7qXwQbU3vlNEK5i4GtzoLTgGwOmM6Mq9VcZ2F60pHObDAju
Tc8Mm2VATnxR1OvEISx1w3DRHIPy7Mab5m4cDngoHW4sMJCK9Ev7PTkklVzv
Fi0yMPHVCe7v5FD4JW9l7TmDDO5VHx3OoX+1TKYyMNhCAn5a/p7DoFrYOctj
4dd+JsezmoNG1snZmrHwPKL0j6vhMDsyVZu9kUVrxpDfeAsH5rxgJtSWRYyf
KKJ2iAP3efsbRfYsMlq2aTVjHPhmONq3mcVioTBOP8Vh87cyO9FWFpfdFOqo
BxwEQio2WsCiu5ouKXjKwePPk+pKFxaK3zveUWs5vHXKcX1QyEIu39U8w3Dw
C2wJWXNnURXuushxHP4D1CgB6g==
        "]]},
      Annotation[#, "Charting`Private`Tag$2382301#2"]& ]}, {}, {}}, {
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQbWi90vu34k/7IsWVz////2/vtauoMvD2D/uG6z3p
O0z/21+rDJ/wZ/sP+8Pe2UvPnPtnv+9Xb9Kyfz/sJ88SPVU6+7/9nJsnpYOW
/bAvmFD07tmsf/YtUQzvfr/5Ya++Y4nx3oz/9gJST1mWn/xhr+ZizJzB9N/+
xyzp6wECP+0f3n7d9/Dsf/t6zuaHNXN/2GuE/Uy+0fDPPr1r52a1Jz/s33ys
93Lx/2//2XPeqYsHfthHrm1cufjFP/vbp67MqWb/ad+zPyVg65b/9jtXCoSp
r/9h/1aOmfvxln/2C7XcNS5+/WGv9yOSX7npv73uK237mks/7KNnNM+TlPlv
L5KdJKgm+dN+/9W0ol/P/tvj8n89if7PJ+B/DRL9/xrN/1Fo/u8m4H9dNP/H
oPn/ANT/AKVCHEc=
     "], {}], {}, {}}, {{}, {
     {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->Medium], {0., 0.}], CompressedData["
1:eJwBZQGa/iFib1JlAwAAABUAAAABAAAAAgAAAAC+65LhtuE/UOkvN+/G878z
uZ/oMtvhP//uQHcFqfO/d9t1JSdE4j+EAPQa+E/zv7GWQB+T5+I/KvmYdqC9
8r/zQ63EBrnjP7CP0WCA9PG/oAPUwxGt5D/Y78cEOffwv7gZm5DGuuU/wkq/
8kiQ7796MzPi59vmP2qIH+Aw0uy/+WuI5IEM6D/bHzFdirbpv3jTOVtqSuk/
2z4CgkI+5r/iZVto2pTqP1VX1KWqaOK/wwInUS/s6z9XytQTeGbcv2xWcs3T
Ue0/Oty87WMy0799LBj7VMjuP+IuZLJpS8K/jOHlQ9gp8D+Xhm2AsXOdPw1a
jvEA/fA/dymAvHrRyz+GloyveOLxP/9Lu72PSNs/I0bu6YDi8j9hDyqauyzl
P4kfiKVYDfQ/dykmvEvu7T+evPG9O431Pyi5RgtTcPQ/AAAAAAAAAAAAAAAA
AAAAQD+ks7I=
       "]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.770312795856073*^9, 3.770312952987482*^9}, {
   3.7703130317439337`*^9, 3.770313094480289*^9}, 3.7703132424392033`*^9, 
   3.770313624846313*^9, {3.770313744698464*^9, 3.770313781178895*^9}, 
   3.7703146245542297`*^9, {3.770355465236412*^9, 3.7703554684140167`*^9}, {
   3.770355575722951*^9, 3.770355581569278*^9}, {3.770355647712842*^9, 
   3.770355657773674*^9}},
 CellLabel->
  "Out[288]=",ExpressionUUID->"3b99ee28-8c1f-4ea1-be3b-cf235cdddbe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "\[Theta]_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "t", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{"\[Rho]", " ", 
             SuperscriptBox[
              RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"\[Rho]", " ", 
             SuperscriptBox[
              RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], 
       "-", 
       RowBox[{"u", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "\[Rule]", "1"}], ",", 
      RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "'"}], "[", "\[Theta]", "]"}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "''"}], "[", "\[Theta]", "]"}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.770370981109158*^9, 3.7703709972216997`*^9}},
 CellLabel->
  "In[844]:=",ExpressionUUID->"2ca6f794-25d0-4963-9928-90b0d7432079"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "-", 
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "-", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ")"}], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Output",
 CellChangeTimes->{{3.770370987860178*^9, 3.770370997857563*^9}},
 CellLabel->
  "Out[844]=",ExpressionUUID->"a10fdc11-cc14-4674-aabf-c4ae3066c201"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[Rho]", " ", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "-", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "-", 
     
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]], "+", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]}]]}], ")"}]}], "+", 
     
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"]}]}]], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
  SqrtBox[
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"]}]}]]]], "Output",
 CellChangeTimes->{{3.770370987860178*^9, 3.770371000238378*^9}},
 CellLabel->
  "Out[845]=",ExpressionUUID->"83843267-3f32-4589-ad6a-041fbe0584d0"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.770370987860178*^9, 3.770371017982283*^9},
 CellLabel->
  "Out[846]=",ExpressionUUID->"35c9293f-0dee-4c85-aed5-efd2de8e464e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Other transformation", "Subsection",
 CellChangeTimes->{{3.770310943982175*^9, 
  3.7703109474772997`*^9}},ExpressionUUID->"9376d2f0-32a6-4da2-85ad-\
73fb9f0a7514"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[CapitalDelta]n", "\[Equal]", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
          SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"2", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", 
        SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], "\[Equal]", "1"}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], ",", 
      SubscriptBox["\[Beta]", "2"]}], "}"}]}], "]"}], "//", 
  "Last"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[Beta]", "1"], "+", 
        SubscriptBox["\[Beta]", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"U", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], "}"}], "/.", 
   "%"}], "//", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"U", "\[Rule]", 
      RowBox[{"2", "t", " ", "u"}]}], ",", 
     RowBox[{"\[CapitalDelta]n", "\[Rule]", 
      RowBox[{"2", "\[Rho]"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7703104732808332`*^9, 3.770310568328499*^9}, {
  3.770310607186297*^9, 3.770310615547188*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"9ab596fd-6938-4e90-adc7-0b55096b0879"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Beta]", "1"], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SqrtBox[
      RowBox[{"2", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", "\[CapitalDelta]n"}]]}]}], 
   ",", 
   RowBox[{
    SubscriptBox["\[Beta]", "2"], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SqrtBox[
      RowBox[{"2", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "-", "\[CapitalDelta]n"}]]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7703105004113007`*^9, 3.770310568641981*^9}, 
   3.770310616340547*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"e10434b2-0b95-4f46-b5d7-7dad0b230c29"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", "\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{"2", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "-", "\[CapitalDelta]n"}]], "+", 
      SqrtBox[
       RowBox[{"2", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", "\[CapitalDelta]n"}]]}], 
     ")"}]}], ",", 
   RowBox[{"U", "-", 
    RowBox[{"2", " ", "U", " ", 
     SuperscriptBox["\[Alpha]", "2"]}]}], ",", "\[CapitalDelta]n"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7703105004113007`*^9, 3.770310568641981*^9}, 
   3.770310616356429*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"1e8c9885-acfa-4bb3-bb84-87efd6309706"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "t", " ", "\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{"2", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "-", 
        RowBox[{"2", " ", "\[Rho]"}]}]], "+", 
      SqrtBox[
       RowBox[{"2", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{"2", " ", "\[Rho]"}]}]]}], ")"}]}], ",", 
   RowBox[{"2", " ", "t", " ", "u", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], ",", 
   RowBox[{"2", " ", "\[Rho]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7703105004113007`*^9, 3.770310568641981*^9}, 
   3.770310616535944*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"680be03c-25a1-4e69-9965-40e8716a4ac4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "t", " ", "\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"2", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "-", 
           RowBox[{"2", " ", "\[Rho]"}]}]], "+", 
         SqrtBox[
          RowBox[{"2", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"2", " ", "\[Rho]"}]}]]}], ")"}]}], "+", 
      RowBox[{"2", " ", "t", " ", "u", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "2"}]}]}], "}"}]}], ",", "\[Alpha]"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.770310660982407*^9, 3.770310705502776*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"2850b64c-b05a-4557-a337-081edc81b07a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.19175889456610973`"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", "0.47685922806195946`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.770310696810246*^9, 3.770310706040159*^9}},
 CellLabel->"Out[25]=",ExpressionUUID->"08df942c-acd8-46b2-a274-a9f6ec004724"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["f", 
      RowBox[{
       RowBox[{"1", "/", "3"}], ",", "1", ",", 
       RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7701288196089687`*^9, 3.770128819712036*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"43d37ca7-133d-40a3-b103-35a124ae1e58"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.1917588945661097`"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8328488950734688`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.770128808388275*^9, 3.77012882553545*^9}},
 CellLabel->"Out[29]=",ExpressionUUID->"a74635f6-149b-4bfa-ac23-8c7146f331c4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Equal]", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}]}], ",", 
      RowBox[{"b", "\[Equal]", 
       RowBox[{"2", 
        SubscriptBox["\[Beta]", "1"], 
        SubscriptBox["\[Beta]", "2"]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], ",", 
      SubscriptBox["\[Beta]", "2"]}], "}"}]}], "]"}], "//", 
  "Last"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[Beta]", "1"], "+", 
        SubscriptBox["\[Beta]", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"U", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], "}"}], "/.", 
   "%"}], "//", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", 
      RowBox[{"b", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}]}], ",", 
   RowBox[{"r", ">", "0"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.770310526331841*^9},ExpressionUUID->"1b414770-56dd-4b7d-a741-\
92fa704bbdf0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Equal]", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}]}], ",", 
      RowBox[{"b", "\[Equal]", 
       RowBox[{"2", 
        SubscriptBox["\[Beta]", "1"], 
        SubscriptBox["\[Beta]", "2"]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Beta]", "1"], ",", 
      SubscriptBox["\[Beta]", "2"]}], "}"}]}], "]"}], "//", 
  "Last"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], "t", " ", "\[Alpha]", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["\[Beta]", "1"], "+", 
         SubscriptBox["\[Beta]", "2"]}], ")"}]}], "/.", 
      RowBox[{"\[Alpha]", "\[Rule]", 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "-", 
          SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
          SubsuperscriptBox["\[Beta]", "2", "2"]}], "2"]]}]}], ",", "\t", 
     RowBox[{"U", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "+", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}], ",", "\t", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Beta]", "1", "2"], "-", 
        SubsuperscriptBox["\[Beta]", "2", "2"]}], ")"}]}]}], "}"}], "/.", 
   "%"}], "//", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", 
      RowBox[{"b", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}]}], ",", 
   RowBox[{"r", ">", "0"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.769857314450885*^9, 3.769857353721746*^9}, {
   3.769857487222851*^9, 3.769857528370942*^9}, {3.7698577655814238`*^9, 
   3.769857767622053*^9}, {3.770128491992016*^9, 3.7701284951419153`*^9}, 
   3.770130313749648*^9, 3.770130359530979*^9, {3.770130399749569*^9, 
   3.7701304079294243`*^9}, {3.7701304943323307`*^9, 3.770130500463496*^9}, {
   3.7701307098561087`*^9, 3.7701307301593647`*^9}, {3.770310297641574*^9, 
   3.770310344397914*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"750caf5b-ce73-4484-8823-7006b87e4da9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Beta]", "1"], "\[Rule]", 
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}]]}]], 
     SqrtBox["2"]]}], ",", 
   RowBox[{
    SubscriptBox["\[Beta]", "2"], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SqrtBox["2"]}], " ", "a", " ", 
       SqrtBox[
        RowBox[{"a", "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["b", "2"]}]]}]]}], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["b", "2"]}]]}], ")"}], 
        RowBox[{"3", "/", "2"}]], 
       SqrtBox["2"]]}], "b"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7698573543345623`*^9, {3.769857488373275*^9, 3.769857528728146*^9}, 
   3.769857769343775*^9, 3.770128495835578*^9, 3.7701303142616587`*^9, 
   3.7701303599998426`*^9, 3.770130408355855*^9, {3.7701304952564287`*^9, 
   3.7701305009051027`*^9}, {3.770130715351952*^9, 3.770130730853087*^9}, {
   3.770310310634082*^9, 3.7703103449300127`*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"703ff140-c39e-43b5-b2c0-5ea117768048"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["b", "2"]}]]}]], " ", 
      SqrtBox[
       RowBox[{"a", "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["b", "2"]}]]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "a"}], "+", "b", "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["b", "2"]}]]}], ")"}], " ", "t"}], "b"]}], ",", 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"]}]], " ", "U"}], ",", 
   RowBox[{"2", " ", "a"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7698573543345623`*^9, {3.769857488373275*^9, 3.769857528728146*^9}, 
   3.769857769343775*^9, 3.770128495835578*^9, 3.7701303142616587`*^9, 
   3.7701303599998426`*^9, 3.770130408355855*^9, {3.7701304952564287`*^9, 
   3.7701305009051027`*^9}, {3.770130715351952*^9, 3.770130730853087*^9}, {
   3.770310310634082*^9, 3.77031034508578*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"f2774bc1-6b85-4c20-b022-c2afb1e85a6c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{"1", "-", "r"}]], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"Cot", "[", "\[Theta]", "]"}], "-", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}], ")"}]}], ",", 
   RowBox[{"r", " ", "U"}], ",", 
   RowBox[{"2", " ", "r", " ", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7698573543345623`*^9, {3.769857488373275*^9, 3.769857528728146*^9}, 
   3.769857769343775*^9, 3.770128495835578*^9, 3.7701303142616587`*^9, 
   3.7701303599998426`*^9, 3.770130408355855*^9, {3.7701304952564287`*^9, 
   3.7701305009051027`*^9}, {3.770130715351952*^9, 3.770130730853087*^9}, {
   3.770310310634082*^9, 3.770310345249099*^9}},
 CellLabel->"Out[12]=",ExpressionUUID->"46d0bf27-0273-413e-be66-3586e4c2e6a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "r", " ", 
       SqrtBox[
        RowBox[{"2", "-", 
         SuperscriptBox["r", "2"]}]], " ", "t", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", "U"}], "2"]}], "}"}], "/.", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"ArcSin", "[", 
        FractionBox["\[CapitalDelta]n", 
         SuperscriptBox["r", "2"]], "]"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"U", "\[Rule]", 
      RowBox[{"2", "t", " ", "u"}]}], ",", 
     RowBox[{"\[CapitalDelta]n", "\[Rule]", 
      RowBox[{"2", "\[Rho]"}]}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", "t", " ", 
       SqrtBox[
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], "-", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}]}], ")"}]}], ",", 
      RowBox[{"r", " ", "U"}], ",", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}], "/.", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"ArcSec", "[", 
       FractionBox[
        RowBox[{"2", " ", "r"}], "\[CapitalDelta]n"], "]"}]}], "}"}]}], "/.", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"U", "\[Rule]", 
      RowBox[{"2", "t", " ", "u"}]}], ",", 
     RowBox[{"\[CapitalDelta]n", "\[Rule]", 
      RowBox[{"2", "\[Rho]"}]}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", "t", " ", 
       SqrtBox[
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], "-", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}]}], ")"}]}], ",", 
      RowBox[{"r", " ", "U"}], ",", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}], "/.", 
    RowBox[{"{", 
     RowBox[{"r", "\[Rule]", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[CapitalDelta]n", " ", 
       RowBox[{"Sec", "[", "\[Theta]", "]"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"U", "\[Rule]", 
      RowBox[{"2", "t", " ", "u"}]}], ",", 
     RowBox[{"\[CapitalDelta]n", "\[Rule]", 
      RowBox[{"2", "\[Rho]"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.769857630276078*^9, 3.769857665865945*^9}, 
   3.769857800326988*^9, 3.769857919852832*^9, {3.769858365250284*^9, 
   3.769858367757081*^9}, 3.77012857858502*^9, {3.770128730540558*^9, 
   3.770128737280095*^9}, 3.770128945077916*^9, {3.770129170338011*^9, 
   3.770129183647987*^9}, {3.7701306001432753`*^9, 3.770130685451221*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"d5c9734c-e330-43b0-b7de-ce79cefddd1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "r", " ", 
    SqrtBox[
     RowBox[{"2", "-", 
      SuperscriptBox["r", "2"]}]], " ", "t", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"ArcSin", "[", 
       FractionBox[
        RowBox[{"2", " ", "\[Rho]"}], 
        SuperscriptBox["r", "2"]], "]"}]}], "]"}]}], ",", 
   RowBox[{
    SuperscriptBox["r", "2"], " ", "t", " ", "u"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.769857667545249*^9, 3.769857802271044*^9, 3.769857920406864*^9, 
   3.769858368256866*^9, 3.770128580117004*^9, 3.770128738770852*^9, 
   3.7701289457032433`*^9, {3.770129175091962*^9, 3.770129184113677*^9}, {
   3.770130620074644*^9, 3.770130685902586*^9}},
 CellLabel->
  "Out[169]=",ExpressionUUID->"c637adac-bf6b-4fb3-bcbf-fd7fbe64c5f1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"1", "-", "r"}]], " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", "\[Rho]", "+", 
        RowBox[{"r", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            SuperscriptBox["\[Rho]", "2"], 
            SuperscriptBox["r", "2"]]}]]}]}], ")"}]}], 
     SqrtBox[
      RowBox[{"r", "+", "\[Rho]"}]]]}], ",", 
   RowBox[{"2", " ", "r", " ", "t", " ", "u"}], ",", 
   RowBox[{"2", " ", "\[Rho]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.769857667545249*^9, 3.769857802271044*^9, 3.769857920406864*^9, 
   3.769858368256866*^9, 3.770128580117004*^9, 3.770128738770852*^9, 
   3.7701289457032433`*^9, {3.770129175091962*^9, 3.770129184113677*^9}, {
   3.770130620074644*^9, 3.770130685916531*^9}},
 CellLabel->
  "Out[170]=",ExpressionUUID->"f586235f-cee6-48bf-81a2-385e01e95159"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", "t", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"Cot", "[", "\[Theta]", "]"}], "-", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"\[Rho]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Sec", "[", "\[Theta]", "]"}]}], ")"}]}]], " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Sec", "[", "\[Theta]", "]"}]}]}]]}], ",", 
   RowBox[{"2", " ", "t", " ", "u", " ", "\[Rho]", " ", 
    RowBox[{"Sec", "[", "\[Theta]", "]"}]}], ",", 
   RowBox[{"2", " ", "\[Rho]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.769857667545249*^9, 3.769857802271044*^9, 3.769857920406864*^9, 
   3.769858368256866*^9, 3.770128580117004*^9, 3.770128738770852*^9, 
   3.7701289457032433`*^9, {3.770129175091962*^9, 3.770129184113677*^9}, {
   3.770130620074644*^9, 3.770130685926627*^9}},
 CellLabel->
  "Out[171]=",ExpressionUUID->"3b8e70b3-b594-4b53-baaf-14b2f97ea8ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["f", 
      RowBox[{
       RowBox[{"1", "/", "3"}], ",", "1", ",", 
       RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7701288196089687`*^9, 3.770128819712036*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"c4c8eb47-d7bf-4d7a-9f7c-d1e24a1a3500"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.1917588945661097`"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8328488950734688`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.770128808388275*^9, 3.77012882553545*^9}},
 CellLabel->"Out[29]=",ExpressionUUID->"f5f0c1cf-8ff9-4019-b5f7-4464b4712ff5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"min", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"res", "=", 
      RowBox[{
       RowBox[{"Minimize", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SqrtBox[
             RowBox[{"1", "-", "r"}]], " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{
              SqrtBox[
               RowBox[{"r", "+", "\[Rho]"}]], "+", 
              SqrtBox[
               RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
           RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "\[Rule]", "1"}], ",", 
            RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "r"}], "]"}], "//",
        "N"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", "/.", 
        RowBox[{
        "res", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", 
       
       RowBox[{
        RowBox[{"res", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
         "//", "N"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
      RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.770355348192564*^9, 3.770355411408017*^9}, {
  3.7703554904566393`*^9, 3.7703555593208637`*^9}, {3.770355600629633*^9, 
  3.770355614226286*^9}, {3.770355800639642*^9, 3.7703558217746773`*^9}, {
  3.770355976864441*^9, 3.7703559849572887`*^9}, {3.770371708970953*^9, 
  3.770371709183662*^9}, {3.770371761399919*^9, 3.770371761641489*^9}},
 CellLabel->
  "In[871]:=",ExpressionUUID->"3e9eec7f-5001-4f5c-a93b-fb72ae906f22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.276393202250021`", ",", 
     RowBox[{"-", "1.2360679774997894`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2770331051153488`", ",", 
     RowBox[{"-", "1.234897535278674`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2789434790986737`", ",", 
     RowBox[{"-", "1.2313907127654458`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2820970274368389`", ",", 
     RowBox[{"-", "1.2255607733578913`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.28645049025633534`", ",", 
     RowBox[{"-", "1.2174290241428252`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.29194760570527156`", ",", 
     RowBox[{"-", "1.2070237210137134`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2985225891093825`", ",", 
     RowBox[{"-", "1.1943787172706852`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30610368280020833`", ",", 
     RowBox[{"-", "1.1795319889365854`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.31461641459731304`", ",", 
     RowBox[{"-", "1.1625241577955332`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.32398633297529167`", ",", 
     RowBox[{"-", "1.1433971060343393`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3341411184166945`", ",", 
     RowBox[{"-", "1.1221927434898868`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3450120749064838`", ",", 
     RowBox[{"-", "1.0989519573529827`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.35653507236739107`", ",", 
     RowBox[{"-", "1.0737137491800688`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3686510427195176`", ",", 
     RowBox[{"-", "1.0465145467217705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.38130613828992516`", ",", 
     RowBox[{"-", "1.0173876678703173`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.39445165169106416`", ",", 
     RowBox[{"-", "0.9863629094273496`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4080437793785431`", ",", 
     RowBox[{"-", "0.9534662326337536`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.42204329250968453`", ",", 
     RowBox[{"-", "0.9187195189197244`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.43641516161485633`", ",", 
     RowBox[{"-", "0.8821403719333466`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.45112816734863104`", ",", 
     RowBox[{"-", "0.8437419447741636`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.46615451850324546`", ",", 
     RowBox[{"-", "0.8035327739862584`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4814694902722486`", ",", 
     RowBox[{"-", "0.7615166039631149`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.49705108994954006`", ",", 
     RowBox[{"-", "0.7176921868291501`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5128797533031596`", ",", 
     RowBox[{"-", "0.6720530435058614`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.528938072293954`", ",", 
     RowBox[{"-", "0.6245871714810033`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5452105532243042`", ",", 
     RowBox[{"-", "0.5752766836983292`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5616834034994849`", ",", 
     RowBox[{"-", "0.5240973608479561`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5783443447412143`", ",", 
     RowBox[{"-", "0.471018095960368`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5951824498506633`", ",", 
     RowBox[{"-", "0.4160002052715589`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6121880016666937`", ",", 
     RowBox[{"-", "0.3589965723443882`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6293523710307666`", ",", 
     RowBox[{"-", "0.29995058266235086`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6466679123055492`", ",", 
     RowBox[{"-", "0.23879479223767908`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6641278746717738`", ",", 
     RowBox[{"-", "0.1754492544900849`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6817263278335379`", ",", 
     RowBox[{"-", "0.1098194021198946`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6994581010935791`", ",", 
     RowBox[{"-", "0.04179334077474355`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7173187351248771`", ",", "0.028761647666562598`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7353044461822105`", ",", "0.10200368336033261`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.7534121030006533`", ",", "0.1781223770542061`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7716392172733403`", ",", "0.25734707627994863`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.7899839494809267`", ",", "0.33995827498525166`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.808445133117963`", ",", "0.4263038018081593`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8270223223056745`", ",", "0.5168224827025734`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8457158709112534`", ",", "0.6120799867232919`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8645270566133161`", ",", "0.7128255437374857`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8834582729418942`", ",", "0.8200866835495431`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9025133308435003`", ",", "0.9353388476168188`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9216979503141133`", ",", "1.060838375706098`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.941020614595099`", ",", "1.2003666550668082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.960494214273032`", ",", "1.3612586747878748`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9801398249265262`", ",", "1.5623395664680897`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "2.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770355379536401*^9, 3.770355418067244*^9}, 
   3.7703555334015083`*^9, 3.7703555668294363`*^9, 3.770355610818757*^9, 
   3.770355647029393*^9, 3.7703558265265503`*^9, 3.770355989934174*^9, 
   3.770371716157469*^9, 3.7703717690130787`*^9},
 CellLabel->
  "Out[871]=",ExpressionUUID->"7d32ddff-a276-4ab9-8286-a064b4787da9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "=", "1"}], ",", 
         RowBox[{"u", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{"1", "-", "r"}]], " ", "t", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SqrtBox[
                   RowBox[{"r", "+", "\[Rho]"}]]}], "+", 
                 SqrtBox[
                  RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", 
              RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", "r"}]], " ", "t", " ", 
               RowBox[{"(", 
                RowBox[{
                 SqrtBox[
                  RowBox[{"r", "+", "\[Rho]"}]], "+", 
                 SqrtBox[
                  RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
              RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"\[Rho]", ",", "0", ",", "1", ",", 
           RowBox[{"1", "/", "50"}]}], "}"}]}], "]"}]}], "]"}], 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"min", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SqrtBox[
             RowBox[{"28", "-", 
              RowBox[{"10", " ", 
               SqrtBox["5"]}], "+", 
              RowBox[{"4", " ", 
               SqrtBox[
                RowBox[{"60", "-", 
                 RowBox[{"26", " ", 
                  SqrtBox["5"]}]}]]}]}]]}], " ", 
           SqrtBox[
            RowBox[{"1", "-", "\[Rho]"}]]}], "+", 
          RowBox[{
           SqrtBox["2"], " ", 
           SqrtBox[
            RowBox[{"1", "+", "\[Rho]"}]]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SqrtBox[
             RowBox[{"28", "-", 
              RowBox[{"10", " ", 
               SqrtBox["5"]}], "+", 
              RowBox[{"4", " ", 
               SqrtBox[
                RowBox[{"60", "-", 
                 RowBox[{"26", " ", 
                  SqrtBox["5"]}]}]]}]}]]}], " ", 
           SqrtBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"5", " ", 
               RowBox[{"(", 
                RowBox[{"7", "+", 
                 RowBox[{"5", " ", 
                  SqrtBox["5"]}]}], ")"}], " ", 
               SuperscriptBox["\[Rho]", "2"]}], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 SqrtBox["5"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"15", "+", 
                 RowBox[{"7", " ", 
                  SqrtBox["5"]}]}], ")"}]}]]}]]}], "+", 
          RowBox[{
           SqrtBox["2"], " ", 
           SqrtBox[
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"5", " ", 
               RowBox[{"(", 
                RowBox[{"7", "+", 
                 RowBox[{"5", " ", 
                  SqrtBox["5"]}]}], ")"}], " ", 
               SuperscriptBox["\[Rho]", "2"]}], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 SqrtBox["5"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"15", "+", 
                 RowBox[{"7", " ", 
                  SqrtBox["5"]}]}], ")"}]}]]}]]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Rho]", ",", 
         RowBox[{
          FractionBox["1", "2"], "-", 
          SqrtBox[
           FractionBox["1", "20"]]}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Red"}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.770128916968545*^9, 3.7701291441144123`*^9}, {
   3.7701291879812527`*^9, 3.770129197171255*^9}, {3.77012927118311*^9, 
   3.770129312093254*^9}, {3.7701296966049833`*^9, 3.77012983518848*^9}, {
   3.77012986997206*^9, 3.770129875589943*^9}, {3.77012998308843*^9, 
   3.7701300153006697`*^9}, {3.770130045591978*^9, 3.770130067574484*^9}, {
   3.770130126663423*^9, 3.770130157205965*^9}, {3.7701301997089043`*^9, 
   3.770130256375443*^9}, {3.77031451710737*^9, 3.770314551909052*^9}, {
   3.770314645755912*^9, 3.7703146533792467`*^9}, {3.77035582730647*^9, 
   3.770355870598301*^9}, {3.770356151684104*^9, 3.770356182155067*^9}, {
   3.770363505798993*^9, 3.770363507410572*^9}, {3.770363723558613*^9, 
   3.770363731317477*^9}, {3.770363862588332*^9, 3.7703638927495937`*^9}, {
   3.7703639926987057`*^9, 3.770363995031155*^9}, {3.770364075657816*^9, 
   3.770364102435101*^9}, {3.7703641431133432`*^9, 3.770364143750718*^9}, {
   3.770364184140699*^9, 3.770364190019437*^9}, {3.7703642231344748`*^9, 
   3.770364227624208*^9}, {3.770364297384602*^9, 3.7703643012351427`*^9}, {
   3.770364401201964*^9, 3.770364405830385*^9}, {3.7703644597733927`*^9, 
   3.7703644614483843`*^9}, {3.7703645824091043`*^9, 3.770364584885293*^9}, 
   3.770365204234007*^9, 3.770367474937028*^9, {3.770367591327022*^9, 
   3.770367637414587*^9}, {3.7703676918687763`*^9, 3.77036772902442*^9}, {
   3.770367846890003*^9, 3.770367899601215*^9}, {3.770368163647591*^9, 
   3.770368184417494*^9}, {3.770368217841505*^9, 3.7703682610851994`*^9}, {
   3.770368347455324*^9, 3.770368349850045*^9}, 3.770368526341693*^9, {
   3.7703685800353622`*^9, 3.770368595521796*^9}, {3.77036883046472*^9, 
   3.770368854950062*^9}, {3.770369258656804*^9, 3.770369273609886*^9}, {
   3.770369582680231*^9, 3.7703695863932323`*^9}, {3.7703696266925907`*^9, 
   3.770369627528777*^9}, {3.770369708474483*^9, 3.770369734789874*^9}, {
   3.770370057006731*^9, 3.7703700914233227`*^9}, 3.770370128097443*^9, {
   3.7703705150352793`*^9, 3.770370541380187*^9}, {3.770371713596178*^9, 
   3.770371764884719*^9}, {3.7703720704098186`*^9, 3.77037207098066*^9}, {
   3.77037242932125*^9, 3.77037243279978*^9}, {3.7703724780599127`*^9, 
   3.770372478543988*^9}, {3.770372524229458*^9, 3.770372554308427*^9}, {
   3.770372646777398*^9, 3.7703726508493223`*^9}, {3.770372819832122*^9, 
   3.7703728241592703`*^9}, {3.770372876324524*^9, 3.770372883759719*^9}},
 CellLabel->
  "In[935]:=",ExpressionUUID->"49f61b9d-5609-40fe-a637-283298280434"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw9xXtQDHgAB/BKN6K5yOMMLmYpb8e4rjscX3eZixJTMjGXNClc98I1g5u7
YU3rnZqbhqiI8my0aDN315LJDqOJ1OY2bu1m21tbu/Ur17aK+mF87R+f+SiS
f45N9fHy8op+4+2Rqfa6my2rFr47daFv+JjN5tGhePdifHoyN7/Mcxyi7hmu
FnhOQXyK+/ofntPxZNbe8EzPGSgcuWLPAc85UPqVTd7vuRir15xSd3S+XwN/
qUyIGKfmlQiJabffOqjhOmy7Pxe5XX/xuxilCTR5e1fyWlyzhNfUflnF61GV
VjB2jVPHG+CatGDIpR/vcAN8ekqGjg2p5o8RJpOurSyt4UbUZITevz2tlpsx
PtvRc6H9AW+Cw202PZxdzy0obq2oDjis580ICDonrNYGbsWh78o3FAb/w23o
XlRi3bTTwJ8hfY5O89GtRm6HuVR3sE7xmLfiZVpD3tRf/+UOTP9qYP+GCiN3
IuK0YuOVUSbejm1B6yY8TTBzgRnOVf6G6CbegeFDOvx0vU28A76VeeqJ+U95
J74PrXg0KMrCn6NkaXLhjW4Lfw6XY8xQ25Fm/j/KV0YMyFls5V3YuUR1UmOz
8i4onkQ2Fqn+4y7M+zwjZ/QcG+9GwrjaHm+9jXfDVZ1p2ax8xt3I9U1Mjw22
8xcYbio/7aOz8xf44Hdl3NwtLbwHXhcS1ZZhrbwXW4+rM4dVtfJeXJ++zy/w
Jwd/icDIrTN2Bzj5KxhnPtDv0Dr5K1w+gWBrYhvvw1p1WGBQfxvvwy7VKaXx
YjvvxyV7UF7AMsEl9hWokkzLBZdIiW0LKY0RXOJjrfZydLzgEgeyvr19KFlw
iU1hxzoH7xBcYkLGiCUDzwou0f/Fbx8azgsu8aituf5sieAS2fFla7+5IriE
nBb7i0oruISxLuvEAL3gEn/uca/XPxRcImf+uqlFjYJLRJ35RPO1SXCJv7ff
u6tsEVziyMzPsmKcgktsseTHKYTgElOW/WC+2SW4hK93Q3G2W3CJpvL5aUm9
gkto04pmze4TXOLoeH+XlIJLvAYcDH8T
        "]]},
      Annotation[#, "Charting`Private`Tag$2600986#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VF8bAHCKSEKSUPjJ1iJJWSuPrcVW9qVkKVEUUqEoEV5poUjWiJTI
[encoded data, 7930 characters]
/g/xrzby
        "]]},
      Annotation[#, "Charting`Private`Tag$2600986#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns8lPkCh4kKya22HNcdB8uGSqXo8q0VKrqhrVRSqi05uVRbU9kiOgrR
LmNI0qCSNCraWsNPmgY1iJE7MaRxfQ3GkHhP54/n8/z5PIzDAe5HZygoKAR9
5/+W27ndeBsSD5MEqYbJgTpSExHQ01waD6Mc0x3FWbXkIn/rlpnGCbCV2IR/
fikipkpW2Ta/JyBy1WSAxWwREW5QU99TkYAt2jdm8c/UkLNXJP6hpiyoKVZb
qI5VEyMiqHh0kYUzQQu7DSKqiWAqw6a2hgX3Bq2KOKNqErDmauyUZSJ0+KVZ
1sUfiO7FQ0PmoYkoixVo+R//QE6MGz5jLmbjx6NiDddbVURn5Ted9Gts+PkI
mG7TleSfs02nha1s/GmfuPJgcCVRH2GtMI5OguP4wMhN/wqSv/Qsa1NnEmYK
Rv39pULiHeghD3JIRu1fqxdVXBAS7oDmK74kGVo7nzHCk94Td0nkGj+nFJhe
DmT7TJeTSfPf7vyVkoK3stGx06nlJOOo0zRvJAUec5f4SNaXE5lYsViTcwe7
Frz+xTu6jLBbLzjmT6fCvf1cs55DKdlgsDejbdddjCix3fN6BKTXa+VMlZy7
ONxATwqTBcSon+mbY52G4e5d7raKAhJwws5MoSUNl978QLRa+UTnCPdh5ioO
eIFt39wEJeTYVaO9Dkc4qBmVSbz+W0IKODGqVbEcHIl/EGa1uYQc6TjpN97N
wR/Xb69VqHpN8r0trFwT0pGm+s2zRFxM9uy9xx2SZsDk19LxNLciQjV7qnH0
MvFxMJNl2VNIrnmrHPVwzIRdicHjsGuF5LlvgN6L+EycYERG3XrDIxqn1kZc
XHkfprdext12LiBvwxq9ZoU8gBJLsvGp/0ti+1h7loHKI/yxwcGPx3hO5tCh
+12MuFDreB/6zC+dsE/s9rZy5kLSGBPs2c4hprVWPtqnuLikKww+9SuHrMuq
920u5MKizEuqtPEeeZXFyv/bJhebGKImzc2pZMCjn+damYs4m7gVriMJZNfD
xPen5z7DlaPjHwz2niNmOwclb6LyELesTy5LYuNcpT3Yo6+wpUzosd05Hwvz
tNsUFQmELou2fbZ8jRdiR2HVmhLU7z/7WldcihK/O/p7+/lICCla8m1tJWTm
azVz/lOKM0yzBbOVajBjIltL3+wdWHpmy5QXfIQd7fPC44kQe2TGJrE99RCG
L68U/FyFJeVSOed+E4zj+iayBj8gwaz6cmdiK/rkn9o+LqlBXs/JmeEW7cjo
LXincVMEc331vrK7HdAwfEB1ddVCXrc0W0mjE9En8o+lmdYhx2l7R++hLoyt
z+46frke+vvMdOZUf8YZW37egjcNqLqu1/W7+Rd8esKPqmY0waFrJGpdogST
frW3LS80g+Eb8pOzQi8WbZg9faygBbbiaUunHX1w4TB+e7qwDYGdl/8sK+jH
OcODJh37P2Hu8OIv1zUGYdW/a0791nY8f1EepO9FYZ7mkAr/azumzl8QpfsM
QZnc5v47pQMMc9bGGSpSnFxe0KjqKgZv2OvF0kIpsjcfTisaE2OH4j5P8alh
yPr0tLpZnUjxjzZjzh9BvoeLUvzGLowHbyyVlI7g8qaIu3ndXdAtutHuFjAK
RuuWhvSIz7hCitW3z5PBYWV4/L9su2GRe4lp+1aG/UZVE4qibigH2gYYnhyD
7F2MODD0C3wCPB8PGcnBVvY+424qwdAMflOdQI55bfmcGXwJbB8zM0+fHMfM
kFBP+6Ae/LhwPVvVaAIKWd5csU4vjq1TmebzJxCczI3RKenF8doGOpr5FYWL
IlW0T/Wh6YbT88WLJqG9JdgqTKMfT7OyyuZXT6LF+oOIyeuHdZ9u9oaIb8hN
hWmX9wBuip36Wq2ncIBrp204PYCkefnXX4mmcCXiXmjLo0HUNd/7khc5jRyJ
4W0NNwqBn7JjriyjEXknwqdtGwV9t/cvw+xoHHEfMHuyk4L8UYdjhD0NAx4v
d+tuCtlFqVejQONG7D5B9GEKy8d6hlNcaRy3S5KqMSmEuDzaVOdLwyR8/qbZ
9ylssw41fhNPY3rVpbn1DykkG853bEyk0TjQWXM/mwKrTDdsKJlG3O7nB5yf
UrBXZcWY3KNB/+x+OoJH4dqs6DJWDo2W6thUJRGFIvEaXp2Axstrcl/RRwqa
h1YoqL2jEb/6oGV6AwX1Vbms9RU0XDNt8n5po2Bsv93xlYjGP+crykN7vvdi
Ohol7TRY1itid/Z//ymsNXbpohEkTvFkUBRwPrmX+4WGW6KynlRKYfUYU8G8
j4aFm/+n4lEKpndL0nMGaSgr1mbEySnktFgobBum0Z6/2s/nK4VRQYr2D2M0
eH7pi5dMUZDOGxox/0oj0XiOjKYpDL1Wl0/QNP4H0WCy2w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601033#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13c8ld8fAHCaEhISIpSkJZVRkg8iEpVVWsrIjswGZYSvECpESFmhbLId
[encoded data, 7381 characters]
JxyXWqPB1uzXOgWt6/BOePviv380+Fu5pTVl7R/8D+5aXlU=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601033#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVyHs41PkCx3EybZaNqGeVSEISIaeE1Mc52rWIDtJFpdmSok1JSqUL25RE
dBJKIRm3qSYabA19W005JJdmGLdcpsHk9ptZd8nv7Pnj/bye52144Lj3oTlK
SkrH/+7/Gg9oZP4UmY03JtsE1YpPhKv7xrPyXjZsWjwrdYLbCcPBht7zLhtH
C8Y3MA62kV27H3LlimzsmswX+mW3Eqptu1qWLhvap8/U22m1kqv+qod8nNlw
ZKh1sRNbiF43nzB+Y6PfqcrcQr+FPD94XLckiQ3B8twtSc+biVvvivDD5WyI
Vvpl/NermXQdaapb3MuGzPoPnV3jYqIRsol1fkMOTmZdvH/PU0zYcnmnBTMH
8b5zPfqUxMQxLNuhIyYHHhnC85klTSQ4Ql3u1JqDrqBV18Wrm8jb6Ba/7y7k
Yvged2DIspHsnRtfXMrORdqViayUURH565rTgqDaXJz+YUeQkC8iy+Nz3743
yMOh/JaiRE8RiUwJt75VkYdh9+CKx9FCYvNY6zs91QJIBkPnF+l8JFWWb5kf
rAtgv2WEwxlqIMzCCP7F3QU4Z76n2UXQQOJLOk90FxSgJlrV1COsgcheP2nL
8eCgk58R1yeuJ+mNroVrbz/Gmsal9tEhdUSdjtrrsoyLjhW3jvmeeE9Sg3b6
W/zMhS5b+sjO9j0xFlkwtUK4UMu/oH1zpppszhcfbCvngs8qt2PFVpMX+cnF
pZbPoPmA/Y3JqSJDPoNl7rXPMHffzXH5bCXxzUt5Hza/CL62rj+kdguIidew
7M0NHnY8lXmfKHhFdC+5OBx+yMNM/0xA+L9fkQVPMm+olfKQNxt0RzReTqZV
fSy9JDww8qx97m8pJ/WvS8M67IrhtEnEt5LyyTnrqNnJnmKIkq6nHLN5QWo1
Fy2ydCpFwJ0sy1gGj5yptUfq6AtEeivfecDJJjo8rQ5lZYKIJcccY6xSUSJx
rqlzrEBctyv3/doSVAQ/WLp7UAD7RawPLZcrMLZyk+aTY5VoUExuc9epwpwp
zoKlJtXQEOgsaZ2ugy3NLPF5WoNVa//s2a8vRM2VdbXvVv/9/Rp9EvWaYJA4
MJU/XI+Zc2MTPI8WDEx0djRaf8TwRU5jpGM7svv51Ro3hShzbk5r2N8JDf1c
SioV4Xb4kbCa9d2ICyoOzDRuQvTooJV2ugTjThzpkUtizFuveaPEUIpTNgLe
j2+aYW7Uv37O9R50PhXcaDBshedddveoeh++BovSzM61YWbxx1gBSwbzf86b
DeS3I37Jw4BU6Re4ZBkeLtTpQNEUJyRw/wDO6O9f0b23E6smCpmVZBAWg77q
Yo8uBKuY7zVbPIyFmnJVwXQX1Jjr+oriKDBIGtfofjfcCiIs+WFyHF3Hb/ne
XYIKbY6pnZUCHNcDma/GJdCQFDjJehUYG9Bd0Jv8GSd0vUMVt/5CsY+LStIW
KfovZ2eauI/g0i+sDF6vFIqV+ql1EyMw/OTW/IjVg4ivlbW9maNw2HAlaYlN
L2L5zFH7XWPYu6xuSlnYi6c23yzNVMYxVh0vORHVB/d/BB09UDaOVIb/KW9j
Gcx4nhmeQRNY2FGcNUcgA4/n5dqiPYm5F6K224d+weumneV11ZNQyvfnSrT7
8Vk/2in99BRO3uPGa1f040zg4Qjaehrl5jGqWiEDaK8+5u8im4aW20mLaI1B
9IiNnB7e/or2NfXCs2WDWCp/uZnhOYNn6TCW+g9hu+Nce+HMDPZxbbX0Z4eQ
tzFjq3f+N1xmPYxqLxjG50fi0NjAWTyR6adpbKVwvELnmlyXRswDFrPDk4JP
qa+eyTIaAd5DJk+9KNiUXgv1M6ShV1b2zGMnBdUEg+OVpjRiE/a8iztAYUGs
sxtnHY0jtncVamcphIv3yDM8aay4suiXeTkUpk2T0y78TmPWLnK+OI/CnbzF
Rq1XabQMff6Yw6EQ0/ifbrtYGok7n+/7uZDC7wbPzn5LpEGv9g5jlVEYD1If
yUmn0dr5ws6XUChM2KmyJItGSZLhrHEFhZtG3yfcZNMImZXHCCopiAN/Wsx6
TKO9ISFdRUih2Izbl/eSxh9XJw4KGyks36VfhFc0kjbuN3vUTME0rM7w0580
3NmWvH91UKj+9KuyVRWNlX7JZ7W7KQjnH2T21NCYozm7WfKZwo6p6/ty6mm8
jPhQFfWFQmBxK7Y100hesz7Ba5CC5EuElmM7jVDJ/e2GFIWM5TFDm7pobE1h
6CoUFLRNPzD9pDRWbf2t8/UohfitDvK7MhoMZVF24gQF84VvR9SGaHQVbwxm
TlNw3sAMqFLQKAt+ZGX9jUJs0qlI/QkaKQbqYzRNofF86uQITeN/O0GvIg==

        "]]},
      Annotation[#, "Charting`Private`Tag$2601080#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13c81d8bAHCKQqWUhChKpZKkIhoPvsouGWVFVhkZIRQSIYWoVCQtI3uP
[encoded data, 7442 characters]
3u7d9HdtjQbzGZtHk/6twf8AefyEyA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601080#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzX881HkCx3GkKOVXyp7CY0opSVY/6Jd3zSmtsXt+ls3PiMqVklpxpWbR
tkU6WbrITal21ZnxY8bk58ePKVfk988ww/iZH/NVGRppvrf3x+vx/PPFCDzr
FqymoqJy6c/+b5JdpeLWCy4SPbNsK5P7iVhh9PtgHRcqnqa5O/r7yIXL9aqp
ci5mxA2FCtc+okWzfRxNeLiouo3JkEjIvVNH/CwP8lAR+s+i00wJMWu1DNAL
42Eyk18vKxaTPHu1wJnfeDC7O0/G94uJfXZHUHcZDzeTy9emt/SS2uU5wRVD
PByT5/2ScaaXWKKyoHlRLlK/HVbz0O4lRdmpAqFVLkKzNlSk+fcQFX/2jmfM
XDDDbDY81O4hBw1OCzMO50LeY8jcWtlNWmL2F7FjcrHUc5OZ95ZuMuk+Ucqq
z0WjeazdrPk7sm1xx157aS6M7OeSu8a6SHR5Zbn1TC4Ye3ifPXhdRGNjWsUK
kzyEMVxis/Z0EYZyv0hyJg9eq2YmVoV0Es8/0mojluXDy/yib+xwO8nw/dk5
hJGPol6PLTNF7USqf+at1/Z8hI8uNNO+3U7OXmE27PXNx50lKb/o27WTX90m
mzVy8jE6qTlUk9xGyuaZ79KdCxAT4VJd7ddK1rnKRqtv8TERxF4dv6uZGF11
3HXiIR8BXkuHKcNmopvDubVEyMdk4qGSR/ImMqfpbuUq5eOE/ZPYrrwm0lgh
jBDbCWAVKNLx29xEoq3Zys9DAkx9U1wVv6WR1OsYGFjtE2IN90He+rw6Elm/
E/emi7DdfVGLpcUrom0lGHqtWQzlxIBq8fxL8jjROuHL6mKE/s3z6dmGl6TJ
2bzL70AxTiR+9nG7+JJsqjWIWJdajFV1Xt6jVSIiqaGe5tuWQGL/kTV9vJo4
Vj7RfhtdCl+LweOdlRXEkK8nVlUlcDMKKotOF5JC6V/rGvZUoU+YaWw4fodU
hT5Y9eOECLpTqc6ckWzI1+/VyTlTA6/wtYaXhkqgpniuu2rdG3Cac/YoHr7E
Djqg0J1bB4Na/8uc2DrUxW2rf2XRgPOa11OY15tgemdckS1rxFKvF0G1ilaM
z0rEbdbNMFh7fUZu2onHYyVvtG+3YCymuf1GVDe0jX+nBgdbMXY0nlsiECPh
lCCEY9aOup9Ufhrr6MPMvueDJ6924LTmlEHYOSku2Ij4K6s7keR7t0z8fgAS
ruhWE+MdYuTmyp1Xh/AltDV9Y3Q31ovCkhcsGcGm/RrKkJIeOI/5s1oiR+H4
iHEiz1CMC7e9S3TUxhBp7L+m30cCXpglz/LcOCwnPLU6vu9DpH7CN5FtE1iu
M6UpmuvDiP3ysxeOyKBO0nlrM/rh1P04y6Wcwt+3lXQtZkkxJtAK+cKZwvPv
AjnlM1LsbjB3zff7APm4ke5w6gDYNt+936rzEQJ3xwUpDoNwtV561qb+I64e
iv83f3gQJYSlY37tExi9Tp1Z8UPwCbeNP2I1jV22cSl/sRkGxyI22mR8Gj4m
DQrVlmFYzL4+sSJdDvmbROk59ggy3+d8Ff44g3vqfhfczEaRbWOxNEdrFsvF
gkdqolHcnN9rsqF4FguvsD12hr/HD8KSVHbkZ6hk+/Gk+mNQsfX2C96gwPn7
vET9qjFU+1z9dGxUgbJNNzT1wsah39Wt6vpkDnpO5y1/1p5AmmA6hHH4C3o2
N7ZElU6Azvr2QOnKeeRmwmzQbxKbTcKTSO08fHk79IyVk5gp/I0zEPMV1+If
snueySCM/c/+ow5KLIvUcDqWIwNd9IDl4KjE/ZNn9Id5MoxE3c+2clKigLUz
i+LLkOBAgtVdlBjWaxKpERkcnmjNF3grwcpU0dzYIsPbAvcHZhFKrBT63774
RYbGyw5THo+UyBk1Ttd2ppDDCE7wUaNx40F8gPgHCqcK76ZUL6Rx3G1yHdeV
wtEKUrppMY3VpaW53x+h0H13xU1ah8bNJO9XCYEUXFyvyAXGNE7u+NeHJVEU
JprLbEN20nAYVxG++wcFKswtdGAPDVPOycvPYig0ZjADAvfRaF9sp+EUR+El
268l2JHGgd721b8mUejU/SSI86SxJs7gkMZTCm0Npf7bz9NQ2l1e1vEHhYXa
ZYc7L9LomhxofvqcQunJIE5MFI07Rwp8D+ZRGI7R7W27RoO2cIuIL6XwQXdh
DT+JxjtJkZ0nocD9aLbs0l0ahSkMpVkVhfkD3IR9aTTClFM3RDUUyouThdJM
Gj1NSZkLWij8t79hcxSXxovrs0EtbRRuieNuR+TTSNntvzGrk8K6xeUjkYU0
WE+s+EwxBUOX9NVZ5TTWH02N0u+nwJw1ldRV0VDTUdpLByhsj+tJWlRDo/jS
29fs9xSUx9Rd+Q00UjdvT3KdoPC0OVW0pZVGuDTDg0H9+WM1vX7TScM5Td3o
wwcK1w2D+Im9NDY4n5ZUTFMQvLjhHC+loa7a+vjOLAX6cbJhzQiNPsHu0IA5
CnasjGVXJmmUhmZtsf5K4Z7m1sTl0zTSTLXkNE1BNmermKRp/A+vfvuc
        "]]},
      Annotation[#, "Charting`Private`Tag$2601127#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13c8V10YAHA0SNmSsiK0JHlFFA8SEpWVVcpIpagQCtleMovXCKUIKXsm
[encoded data, 7137 characters]
iYfROtQ4Zx5VWKPBP2XIo7djHZIktv/a2KCB3KcHnG/XNuB/76P0rQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601127#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVknk4lfkDxS/phxZbUowyV4hkmRhtozNDltA0kdIMEtpopY2UlBrpNjKJ
QiokMVK63KxfyyUhua6IrNeSJfel7Kb3nX5/nOc8n//O83wO2/OY4z5JFosV
+C3/77zdDLf2HBfPBu4qrTTtJtrbxf1l17lI/rvFSMpfRNSCbTYceMjF6Qi/
zTafu4hCxoPr83hcXHqXcPmHW11k7ofp1owaLtzz75433txFZmScDLeLuPBW
VZVlM51kxOyf4LFJLu7zLpazSjpJr/dcQczCbFinLX+jGNZJ6op5/u3rshGJ
XybS2J2kXKxQHvJrNlp3r/Yp6+0geeo+Ktre2RjYI7zaxekgj86q5/pGZONp
f0BiaV87CTQOoad6sxEhqNrcWthGjrm3bIufzcaCytp/PQPaiDfH5CEUc7Df
MVwkMGsj2/p7La/+lIO+ipzb9TmtROuB3bVFt3LgMix3yqDyA6mVV1Y2/JmH
uDDTMSmNFlJmfmSfwJkHTnjGFG+4mbz0rcg56csDqyrEXquwmSS9Ors7P5qH
eTpWrrLuzeRscFuC7TAPQdqyklaP3xNNKkXPK/Yl2s6rHitxbCJnatfjzlgu
CmIcLjmMNRA5w+ze1zJ5eDJPFLJL2ECSbxhzZtXzwP+ydjg+q4EIHFY2u1vl
obG+WLb+RAPRr1b2147OAzeQKeB/FpKOV1RK1tp8FLiNLuv9Wk9sSh7JvQks
QIuZr52DiYAs4Sq2S0gQDLhK93ImqokrZ3ZHjwrBiL4Xy6C0miR691ZXrCYY
NFxSRt+oJqsX5+ZedyH4raw2x1Snmlic9ri9+BlB8tIox2aXKmIWvyslyqgY
gV7ueVcrKsle9xS31PZiSOntcWdIOckRWda8/akU1l/dHg0sLialPve+2/2J
jztHSVqyXioZ1zGXzzjyCnUvjCUvpN2C5HS6wnfaVXBIMzfK/ebJjPHIcXpa
A1smPc03rhQ1oaa1FaveIstLucUi9zU0bg5NPxHXQffHv/0So+swNNnR/s64
HqGjg7qsSSGSB/Or5P4SYs2BD/zvrzVBbtljqqenAXSn7p2gyRZwDmXvf6DV
CF/FTYd91dsx8XN6z8HgJsi0bRnUKejEyTV8rkrZe4zMlC7RtRWh4yn/uoDd
AhHn5Fb7kW7M+jTE6QV+QKDv+9d/cHqh/4s0vT+/FRfnlwd4yX6ETSL7wPMl
7dBc6wirpH6cWbZHs8u1A/fk5XO3aAxi9Sfn+U1bO+FEP7V8GDmERfIjMvyZ
TmwKHnphyh6GFInLXBHfhTjncDerKDF8TfObZe1FuN+wT+yiNIL0LZ4PiiZE
SNp5qpHdOILxITWFvuhu8A89ZmlzRpHtZDMnanMPJBQdHk389hnBtlfuc/t6
sEpC1cRc5gvYbXbvk6704mjebdsb+V+wYW1olOqaPrg27ULt+TG4Ln87LSHs
Q3r+QoX6NeMYr7ohOh7yEYcrCxS7J8ZxR8r9pKNWP+p5ay17MyawqD07UZLf
DzPLN5E79k5i7vmQHetPDOC0iUuLstYUWE/cM0VKgxhJOq6j2DIFv9jMG0ql
g0gtjHf55/40CvXDZBSPDkFKwiDUynMGinZ+qy/JfcI2/zzJiKWzaDWoEwYU
fMIa9qpD3h2zeJYArR73YdhYdO9PiP0XbplmisvoYRSlxfAP7fiKi1cehrSm
iXGhctCPrUlj4Rlpu70ZYjRIvXEw0KYRe/CIUl+mGMIsfvR6XRov7NcnUVwx
KsucLzoZ0uhTFPAliRjPJpcLOBto2CewZPSEYhTXWuWpONFQ4e3569SsGObx
OvStUBpJqeU7Z76KcfSqhfzzP2kYx+prBLMoWEfvq6kNp7Hl/GRm2FwK31/z
d14QSSPIMkIQJ09hQHR4NOIeDdHbIuXSFRTUCinpghwaGf3L4uQcKIT0tiWU
DtAIu3fFo/1XCm7+litdh2l4Ow5rP91OYcu+UqPJERrqBQXPtu6icP1Jyccf
pmiER/xRwfGkMHhuo1r+/xgcNLs7Oi+AgkF3ns9KLQabh1i8lnMUBB7Wl9tX
MtB4cDAo7QKF39UE4zH6DBpl10nbhX7bt+rMBiUTBlZtjerXIig4zZ4r0bFg
oBmqbCudQsFzZ9uCAQ8G9LqghU2pFIRHikLrvRk0D3fXp6RTODRt7Ft8kMHN
XS/crJ9TSJD1O552nAGzytH/SgEFPddrKuQig5aO3HXOhIJJiFmKMJRBThSb
1ir9xpNZBlQYg6P0SBj/FQVNvdwV5pEMWgURCXOEFPar1t61TmTw8uqkl/Ad
hSDqdmpyCoOojXv0kt5TkCztnKOQzsD+kSHXop1CeNGLEmUuA53fowOUuihs
mFaek/WSgaQ8vUnUTaEo9stl70IGeWffvA4ZoBCx/tTeJa8YRBv8GLH9E4Vu
48t32DUMTojid7ApCtF1jYPOAgYOMVJqo6MUPvMy/EkjA12Hwx3FYxRYtuE4
1sp8+3VD8s1JCq8oInlJxKAze6OPxwyFP7fV8owGGBT4JBkZf6UQySkZkBll
EKMxf5xhKEgtPTn1kWHwH0cvDWE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601174#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwd1nc8ld8fAHBCqWQlUYSSlEKSUeojKTLKXomSUiiSpPC1RUgiZRURklXZ
[encoded data, 6954 characters]
AWX2KTKy63g+TbIq6W0b8EZk+5+/f/F4qvVUP63/hf8BsBSLJw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601174#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj3k4lHsDhlVCKlvRV0hSypJ2JdXjkyJLixZboeWraC/laDnSyRdSfBGS
1EGOFktZMot+GnMqisHYY2ZMQzWMt2Sn9z19fzzXfd3Xdf/zGO8/6f6f8UpK
Spd+7f98Zldm8PIuC827zX2MnslIml79sHoqCxWBD5zj7GQk0cHKJSefheVD
wurEyE8k+sz1lO3lLFTXBwkO6H8iVx9KFH0iFlJs77S486UkuMoGSX0s6Jfd
DhsKkRINq8KOcjU2Sh+ZqZivlZKMm0uiRw1+OTchOn+ClNS4Lmj23cjGREvF
vsDUdnLkWVporBcbp2zK9KxPtRN68mxT3nE21l9Zqurl0E4s3k8/Oz+BjcX6
C08e7pUQnnnsTI8nbEgCFBqt7yXEM2pyacQrNoo+u457kSkh4ZvHT+3uZONq
IeEO+kmI+C2V+WIVBxdSHgm2ccXk/IKjbjIXDipVhtwOh4rJlOudP3T9OahK
StVp2yAmNpva7EIiOPhduWJmdLWIxPErWtDMwaWUpucDA23E8fUjjcoLXEji
uSa3jrUS0RzjQvoWF6xypyqv9a0k6EqKz5J0LsbefPxfiVYr+RNxWXHvufDu
XaNr/fIjGS25Yu9tUIKH54qUfdQ/kly2z/nPJSXIbBB9qPm7mcwo0BaNG0fQ
GdPRu/tyI9kTPbpTpkdQPOtK9nrPRpJ2sOP9G0sCXaUZfseWNxJLXRbrhidB
rfGuxXHyBmJ/3v+Obh7Boxc9oTKfBmKd4pEZv7gUfYolISc315N9vpl7s0Sl
yI56dL/LSUiKpBs+CNbyUPzNIGj5IQFpcAr7ftORh6Ftw9VHlwrIQM4rPVd3
HuJ75ftqx6rIqos2+94d5iFtpWn3gvgqUjxt8UDpbR7yppS86+BXEpbDrDkv
vvCwzCmCs87qA+FmfjsbH1+GArOM1h2G5YQXeF/fq5uP5MsnguReZaTfdJ1m
9vG3UN5kXv16bj4ZP/xUS39+BZTqIsPN0wFrxr9oR84HlHbQKgMNefhwbUXV
G3MBhsL9LA9YlcIotmv4cU81AmMiax/YvkPXoFhUv6QWa4MVr3VCBMiQcyo0
bgmxM1a3Pz5KCA3DvyiZrA6Rjso2yYsaER1QeOjhvAaki2PDloa2YMDuqexI
aCMq6yc6hqmKELSMX6BX1gT5k4yNX9MkEOfwb9QYt8BfwInz8pViNLDuntmF
j3BewJfrT5HB4t+q9CFOK3aaZxXlJHXAMc348PMZIvzW0hMbZv8ZwYZ+c9v3
iKFqpLn/8YcvsOzeNbnRTYLb2lr+dq5yTNP8psYfkeBgxPXGpK9dUCb3ck1S
2jH74LmKCQEKHF3BaZ7kIkWm8a413ioUnm7e//DVgBRX19Utm+H2Df1ds7Q6
Ez5hRST2Z6l9R+EOxwnxDjLc2RSl6SX8jlCn8AcFnTKYmnEPjMb0wrjNuSk9
vANvtMtYZ51+YM2qa/Ezl3VC1/e99iqtPuyZLRgeJ+yEnknauy0VfeivuCk9
FfYZKoy5Rn1cP5KUfYPc533BsXplM/nWAUwTFaaN53/B2QaLNne1QUy8HLbT
5vRXePLHtEOrB6H02DdXqiNH4nVD+6QbQziTnHtThycHp0NysmH3MEosItS0
T3RBPNbw3NBoBNrOZyyvanRjaoRp2aeWEbQuqhaGcLvhZHt8w+Bfo8hLxTyZ
rwLb/MzNjgaMYW+utbYhrYCrt163xOwnroT/Gdb6pAcnLFr+1cb8xNRgVed9
2T2YVD0mUJ9AI/nIcZ3O3B7kKDlMs1Ghke9ik04V9OBh6IhD4hQando1/PGk
B96l/eHeM2m4pCqpmQl7sJIXZUIvo6H30u/WudEeLHcdsS4/RCM96+/dIz97
oMwXBE0JpLEk2cIoVImCwrU0cttxGpsvD+ZGTKRwafKOTR/P0ri0IabmniYF
nuLlsdErNKSCV9N5JhQ4nq+FAfdoZH8xvKfhSqFS3Yw9p4ZGxP1wf9EWCjf4
N+u662gcdFfMz9lOgXvHTsBuomHA5ea5eVDYe2Lozh4JjagYnzfR+ymsj1Y0
FVM0jljf/a4eQsEi8GJ1uwYDhy6lly0XKRy2LJHW6jAwenjk0pPfKYh+VnS8
0WPQMGm1qvM1CpsH3OYVz2awsa3BIDKGQoTPgzSeFYO516Y7qWZSECvp2SVu
ZUCvvjS1MetXz5uz7e0OBs2KT7WZTynMrx2Wj3kwiPXI37vpOYWD6upfQ/wZ
MObuZ8O5FJoXH83jn2bQImat3kUo3PLUzDA/z6Ao3piex6NwNfvolrsXGJyg
v0Xw31IoMDR0jPuDQWtNTOoEIQWW2toVWgkMiv87eEBYT2GY+qFVm8wg3tbP
LL2JgkmRZUzGAwYuj6wK7EUUFrFM9P94zMDUOyFEp53CtKcME5fDYLwmvV76
iUJqr00wyWfA/q2yPOwrhdCaU2XBrxgkLFoZs72bwuVwkVyLz+C0NGWnMUVh
lushtqicgWui8qzv3yngTK4uJWCw0PWYuLSPgv1C4RaPBgbK4+oyYgcpRF3z
c7FtYyAptA30H6GwdUX0lHYZA25g+uIlP3/9lens+qlgkGg0uZ9hKHwLqOtv
Zxj8A5OcInk=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601221#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13c4lt8fB3AZJdl8RVGSpMxKRsNHki2ZSVJJREZJpZAIX5X5S0NIKKGQ
[encoded data, 6832 characters]
6rBYhyrPTDX1NTpsUTk9J961Dq93b1vY2KBD/IdvETlrG/B/YuBWgw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601221#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjmk4lXkDhyUNbYSoIaHBKJq8KkXyiyTZKmmRLFExkjZRYjAoRahEIS2W
LKHFOuR/cCyVfc/uOJ2yPhh7znmm98N93d/u65a3v2h+lp+Pj+/mT/5vq386
Yg7nFyFPcs9ZK5+vxOLRs0EXZhGKKhw6EgfYZHBS6n5cWxGEsl/UdTqwia9F
5I664SK4OccuSRRgkzVZot2LFhFEujtcOpHTT06F/LBgSxLECl8za3TpJy/P
fP1crkqgM1UhuE+ln3zTrtVL0SPwy/Tx/ptiEVWJ/PzgEwTqZds8NfJY5MrI
SzVXVwJOtuEN7wAWyS0LeXUogOCWgiUz5wiL6LnbPZJ4Q+CqstpEb66PBJkZ
rZgtI1gYlLH6t6aPVCtt82/vILDcJWFhkNRHXg/559UuZkDolbSovGUf0Yg9
nhSxhYH2OuM1O6t6iWVQVV+gFgMKD5Zs0E3rJV5uujIe+xhInTCwEQnuJcUm
KhGWVgxsinIXLzfpJSZcnt/62wxMTFSv7MvoIadtkqyTuxmwji4rNPqlmwQY
ST95MvCzl1bsHNXURZI0wpvuTjKQfL1lMii+iwwLexpfWFaMpsrL8Xv2dhF3
YqqprlGME0MzPvZ3OkmI3NTqwnvF0HLx4riodpAc1t6qWu0SpAp6zsfktpEW
Q7/xe/tL8K4mKez8wzYynVEkaWJeApOtHievX2wjO25qnq50LIEuY8ZKX7mN
5IlvmWY8KIHLqeBlAbGtJF9fSu7d9xJc3Z7o/ja0hRQmjV2NiCgF+30xSh82
kRLnp9KWw0yMclI61vHVk/cD58/bTDOxOHT3yR+cOpLgpFXgwFeGiLUFTiPV
dSTwXOtJ19VlSLfms1keW0cM7UWj/bXLoH/AbVZZs47UWgauzQgpg6eB0kHf
kRrSaXhBYvHmcniZCSRZL3wmU0q7RdIvVMA81PV1l0s54Z9LWyWt+AmnvA1j
JYZziAZtl3MkowpyLsk2/ub3SVXAtpryTbXw/Z/clINlCmTDh+ZSRuuQ9fjs
20GZIgzN9HQ3qzXAtz/DXrS5HAmDBZ+EQxvhGUGM3SZqICzzimKzm2C38GKl
jUUjQv7MPvdcoQVyDNFkqeYWTO9JYzv5tGJAO/jpdHA73NSZWZKlbeA2U482
TXShJ4MZXC/fjl8Oprr5V/bih3NTzEbPDnSmheYGBLGgoivIO1fQiWr38mwR
RTb2v5R3fLumG+pRVfc1er7CQ8Z2Q9+pHjRNmN6p9fgG1eGjy1tNe+E5/U7j
m8AAxEXGhJjzvdDXqrDSfTMIARKT+VtsH7r9Ky13aA/j/LaCL0uNWci3VfNN
5Iwg7YD986JpFpRaGDTrFoWpIalVnMh+vF2mmfg8YAzZR/YvjtBn41m87CMc
HYePYeCzLA4bZg2ee4zWTEC+y6gtPvArypcONk81TUBrR0DEr+ocSJ++tsPg
5b84tb52blEjB2vEIz94np7E1Kd7rEt+3zCbc2HmL7UpPBawcTNX+I5Vc8lm
GeNTEO/OfsnP/I58SbMJycxpLPH2s9C8PIBK77DgbK8Z8KXYZLLEBmHX3fr7
uPYsrkRn3hMrGYSixVBL68o5fFAJEhJ1HYJibN/Who45iBpdUf1beBjVb7S1
fn06j87NdY03CoehsTzc4uKlH3gTBwW2zQhS/nBRld+5AOtMDVEZ3gh2veZo
7aMX4Bv4wq8zdRTbk/R33e3iYqWHoNHp9FE8k3Xs/dLLRbTTBTFO5iiGi0o3
b2Jz8d5YM57KGoV9AD5WDXLBEa1n8pNR2Gnw6UjNcmEcxye0sXEUKR8er20T
40Ey1zb02o9RzLISxCcMeYhPLjs2zx2F451V4VYmPKhFq8j68FE4cjBXuPwg
Dwe8ZzKDllD483PZhrhjPHjtDauPEaGwXUl+ndUZHli1RatLfqPgdN3LcYUv
D+nfZWKETSjUK5s3uOXxEPQ00K7bjIK9h9ijq4U8nDEfUcw4TEEzye2xG4OH
dYWFb0yPU/CZ1o7xruThbphVeYg9hcO3F4zS23hw0ngyvuwGhYLPBSkP53jQ
H+LLbb9JIYVzu6aIy4Pscyev1L8oDDyQuzmyiEbL0p2CRgE//4rVOUeX0djX
1bLuThgFCWVu6TFpGhsCVhsKJlEwcXS6r6NDg7fTa2VrMoUcbt+xbD0aX0b6
G5LSKOStry5V308j/Ph7a4O3FHSsTGf0DtGgN5lfDSykoGy+3pZpT6O9J3/n
UUKBv2S49aYjjZwIeZ5CCYXwMr6K3S40XHljQcwKCqGNKkLsazQ668PiFjdS
+D1Kkb/5Do28WzMOjc0U4ue/NM2H0ojYZbsxvo2CbrTps20RNIwT/8jS66Yw
ud/q0EgcDaWTkTfE+ijUHM395UoCDX4Rng6rn8Kn6OMJkqk0/rle/dFvgEJ6
OrO8KZtG5ObtYYeHKSR2LUhyC2hcZsVayFMU6hw3Pz9TQsMkSkBqfJyC7YCn
yLqPNJRNXHoYkxRWfNTmadfREFjUlBA+Q+Gk3JJbE600erN3OdvNUwhu2JoV
3kuj0Dl+ixqXwkPv3ffHBmlEyS6fomkKBs3dYx00jf8Ag7Ucwg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601268#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nc8V98bAHCrQhGSjGQkFZpfIdQjKYUKKRVJpaWtQUXISEZmQ2ZIdiQz
[encoded data, 6710 characters]
g9zq6eVlJhS65HYkLy7D/wDd2g2n
        "]]},
      Annotation[#, "Charting`Private`Tag$2601268#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk2k81HsDxYcUqYT2ECKpJElo4XRdIsnzRG4LIRVCHm2WNrnhUbdwNVFk
CaEFFdpMftcY6yX7GoPB2OdPtrLM/3ZfnM95db7nvDnKTv+zOivKYDCu/dS/
3pPGS28YzEd0nZFeqhGfcM7LaOiN5CNZs+etcW4P4R8PdlGfyYeJX4e9tEoP
Wbh/JnHNAjbkf2QnybO6iYa2F1dSho03Q8H2D127ieW6njWzcmzoXLqZZanU
TS5InrAZVmPDrvGEUWx7F2FOfgnnbmfDZJ9a+9XkLvKO92t55V42GBudPzw7
30UazAJG75uycT+fitTc00UmM/JWWlixcfj49eari7qI3rVdp0pc2MjQzPYo
fMsjH5Ztm/wrgo3RDXY7Vq/gkSY/Dzn/WDZ6Ug1aq0Y6yff25/sM0th4uLhJ
O7yik+i/Uv3j42c2HEVcLlXc6SQfjdcqve1jY3Kj9m/eizpJy4ujJl5jbHCC
9//Xf7iDTEs/dNMU/pt3r1xT1UF2ty3NebGsAKbJpba8yA7y6cp88yTDApTW
U3+KbO4grJSRS0xmARi2OLSCwyWtizUfW8UXIO7emE8zk0tmL7rnSb8ogKFM
SYWaM5cYgC9xnxRAufpT+AFJLslr/BobNFCA8NuhzrrH2giRKC723sdB6VBu
3wPxVsJ2i5U7PsTBKyc5i+bEZpLV7+5uP8lBVImZgVpAM0l23Z17mlGIKnGd
iWSHZhLk3HjCc3khsri+IzsUmomZk0z07b2FCO412+Yf3UQqjwetzrhXCPcL
H0NXxzaSVrPzK+ZtLYLmzlt/ln+uJxNqBkvTzxcjSnrLtwLrGmLIMyq+61sM
b4nKK3l6NSQ41szf9XYxanrzbavkasjK5UcolcfFmDQQ19/VXU10RdwroznF
sNer/rrKu5r4fn0UFiJXAi9D99nq2CoyGza+9ExpCfqmy3/3mqogoj9eSstt
KANL0JQUUVlMdGnHd9YZ5VDnGQz3JH4i5YE6X4o2V0LJkJFU5BhPFMMHfzwX
VMErXGNayiIFg1Pt3HqtGtxbNurS35OL5IHcMqnQWqj9ovKkOa4IUgqpVHd3
HVp6ZrK/fPmCe+dynBNUG+CWWngsfm0tJve97Hb1b0Sfaq5FvWgjLmtzslcW
NEHfbTNrJqIF7RmcP6qVW9CVc/1MrC0XM251MZuufoVE/uvxAkYntvwiLnTO
bYXd7Fn9mnQeTBOVXd6s4qIlJdi3zLcbPgoO6zvt2rHCvCtLV4kPjSGbRY2H
OsBa7/FDKbcXy5aOSHCmO7CxTj6t5HI/xEhMpsqTTigmHvYJXjIId53c5oUH
eZDNiNppUjiElwecEvImedg4dOOI/EUBJgbXSvMju6BfUzPWRlPIsTadxzTu
RuGE03howwj8zYLis/ndeF/y3lMmbhTKbeZNSUE9MLCLK5pz/IbdeoHMNdp8
vPQpM+7bMQa7dZU/RGr5eOcRGWj8fQwTZfd5XgG94BQ3WVeXj+ORmP1lK9U+
jA7Itag8mMAybk6iKKcPpz5yXZg2k5h/I+DIrgv9sNQ3MUtXnwLjuX0mT3YA
lg6iS2QFU7gYnXlflj2AAZ7MRCrnOz5vCZGQ8RzEHUvlYNtHPyBjflHjd6kh
+BzVqFN3mEbr1qpaP9YQljyzERbpz+B1HFS77YcRsLcsPXfBLE5m6sooCIfx
XFUsP6JuFreCnga0vhDAO/RE7YbcOSzxETc/lS6ATiK5GpU3h2jX87L8TAH8
jK7zF7LnkHVwVxKVLcBTb7floyVz4MtUc0SJADmemVKlDXM4GMeQ2FQrwHhU
wN9Pv81h5XuH0CszAhjPb2cs3iJEUlrhb9NzAmx+cLU6RlMIregtiv4MCjcH
/Ss1tIU4cGMqM2Q+hTWt/3e22iXE9V/DqmOWUtixN+LuK1MheJV5y9kqFJLa
xzyenhEivU8hRsqCgtp2VjUrXoiQ2CBHriUF9UUdRwVJQpyxGt6QcfgnT1LR
f32aEPIs1utDRykkRBSPR7wW4m6YbdE9JwpKsvxbkflCuOo+HpX0o8B3lNm2
p1sI40HG+5ZrFDzZ5wIT+oRQTHC9/uImhYwHFd8XDgvRsFBf3DyQwuXvWRX9
E0KYtDXI3wmj8Ldda0inOI31gcvNxFMozEgdj2jToCHUv76kMY3CQ3a8Vsx2
Gs3DXTUpL3/21Xo/cNSlEX406+T+NxRMetNMxPbRoDdbXQpiURDTutvLsqbR
0v5R34ZQmCuNX1J0jMY7prJQlU1hnuR/3L6epOEpHAnhFFOwUzY303Sl0Vod
FjevloIWU0GMeYPGh+Cp07X1FFK3ac0p3KbB3OOwKamJwhOnAhMSQuPgM81s
Iy4FhQWjgVZMGmonIv1kOymM7T9rfDCahuhSoSGvi4J83yWjcwk0PvlWlAb0
U2CVrfuwNZ1G5NadYYeHKASFm17pyaJxgffkiDJF4XTERpHeTzQsosTWjo5S
GExJrzVh01C38Gj/a5xCboVnpWIZDTGRuuTwKQo6LHuT1BoaHTl73BynKRiJ
RtkYttJguSX9XE7BWmufA6+XRpTiogn654+Zq1b119M0/gEK0x17
        "]]},
      Annotation[#, "Charting`Private`Tag$2601315#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k8lN0XAPAhUiqUXhEiqV+LkETZjkTJlkRapJIotElkK0rSIpKKbJV6
[encoded data, 6649 characters]
suTv/Dzeb2ooZMzOw/8BcLZRdw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601315#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHlUjfkDxm+YKVIpydK+MZLl10kb4ykaWgctJCJlSQuKCVMRKhV1Q9rQ
okZIJclafcm9bVp00yJtdymlum+ZFkrvO35/POc5n/P88zmPpscxh4MzWCxW
8M/8v7/KFivMDOKAtF5d1MjrJaF+xtkDoRxEe5tsuqPdS9IbT9bcv8zBlKj0
tkJyD3lt+njkcAIHnfSgqrpxD+lOo5SWZnAQM/zX4bReEWH9unK9KIeD3SXP
My+ki4iGr/f+O085CNV0eX12v4hY8LIj3N/8ZO4xw5fLRMTDpCdHrYaDUktT
W+mvQnIhVauhvZmDxD49j3tESMq8byvvGuRgqFV+aY6HkBT2+/jsHefgm677
8VVmQpLlZfbKk8WF3wJ2kcl8IQk/1OJ6VJGLC77ZvPVVAmLlIZ9ycT0XMjU6
Hu8sBMSU39UfuZmL6IAIXxktAdFzzzON3cZFmk/tb1IzBWTuXtuPSQe4cN8m
8WmsnE/qd4UvyrvChYvJu/fJznzyutXRqzCBi2UOhzRCzPjk0U6t58/TuXDM
1al5r84n15zJzrdPuFiw5br48UA32bH9e0JrOxfMhE1ex6Vu0m7lt2DmynIo
vnGL2Hy7i9RWrDsoZVyOkpTiL/DvIqWb5xTJWPzc/zEyffhHF0mzzHZa5FyO
6Vzhgzqqk3iY86+vDCnHNzVZyQ6rTtJn7KzgUluOv8t4m/KlO8jY0t/lcv0q
EJR7ol2mvI1sEGysiD5dAQ0n3fEX6W0k4rbVOa+LFYiea1eUEdRGlBSdKO3k
Chi4LNRXN2gjRhI+9SmcCnhd9ztXkPGRnP6UxI5UrkReetxV++hW8oM9Kneg
qhLD3bu46UHNZMb3nHnKutVQqrMe2EB4RLl2479YXY0mN6sJURaPGGZ8bDpg
Wo25UdqXUqN55KC15M08+2rwIz3dbXfwSGWyh+7GwGr0hbX6RIgbCNtssdmR
imqcqLVc7qLVQFSCIzyfHXkH/XtWBhf164kR4/7UMa8GJsffevlurSI1YYZ1
5Xr1SJcfk7p0qYSoxw18vy9+D43GQH7N1gwyMNHV2bSGh27zI04uP+4g68ur
atnYRqxJTdF1XlQMWdVsSiT6AHP3GhSXlePKkaJD6TrNcBh6OaaQWIdx8xyR
17kW9JHq6CqvRpw04DxRetsKR9Vs61jdFnTlcS43aLahLNaVhSWfMOX94eby
vz/hhmzTqvbPnVhhIUkfetUOlV8fW64y4GPLHc3DBQs7cdvtrnG8rBCnVPdp
8fd0IXKjpoU9VwT9QWfpFvtunOWxZY4d7cV8uWEpzmQ3UoXDf74x6sMscjNf
+xYfsydfLLva3g8fw1cfZ9sKIE6KeNyTMYAca4/00nEBPJ6uY+J2D2FsYMm8
3gQhlv6tkNQzKkaR45aZ8ZYipHVZB+rtHMY5q/C0J70iaD9LcDXWGYFmh01r
ZngPhpSED08OjsDMOCx+sUEvDs3fPiLF/Yo9avXfJRp70TN72bfk2H8xVh0j
OH7+M1inlWWKvUaRNGvvSQedPvinRPmuNxzD/M6iOzM4fTjRGONZOjWGX0LO
O5n698MwMO6L64dxsO7vzRcofMFao6Lm4dQJBKTkxyiUfYHc/Qrx70HfULIi
Ukr+6ACkttcMFjh9h7xNgP4F2UFozL5bJ605ifaV7xvPFA/CPuVB8DfWFB6l
Qke0dwglIc/erW2aglu+kbwqPYRrzxYGcu//QGh4xvn2B2JIBfpWPkyahswp
SZv9uWK8GB2JMr81jRQvP4XefDHeho6taEqbRqGtaSb1RIy7LHMViexp9Mo3
cGYQMRbucPjhWTQN21SW1PJGMbT6vrq58Kah9Gxf7F9TYmQ5Bu1RlKGReY+7
Y3JajMR7RSnV82isSVmhfo5FIZed/L8LijSsQybyI3+hQD2qPzumTCN4E7vh
phwFRZX3hkN6NAT1pYpl2hSMJZJDl1rTyO1TvSlrR8HuyPeE8QgakbfD3Tv/
pCA9sI21+zKNAw5DunnbKeTwvHzK2DRUiosf2e+k8PJzQHxKEo1o9u7yKx4U
TCc3hAY8oOFllDwy5wwFlQWL2c11NCwHWM/agigcd7AzCWykoZ7uFfzgLIVr
i+YnLWml0TzbRNImjMIDWqgWwKfxR0ezShSbQmXVJdv9ozS0whStJO9SKAkI
qQlQZkCbBMu03KPg0rbC75QGg49DQt7dHAoV2UuGw3QZxO0sdNtcQMFRuPxU
8WoGjJ7DifBiCpkFtZK5lgzaul6YOBMKy8xd5kjZMHgar0nrlFEIp1/M8t/K
4Cg9HMmpoBBVViQ47sqgvYGdOrORQt34hrV2/gyeR0x4NjZROHDiRozZKQbx
6/Ytz2yl8IGMxm4KYWD7z6onGzsprJoobymIYrDUNeGMAp8Cz6GQrxbHYIYc
vUEg/Pmn9NGwpwkMXp6urTrfT2FT6+7u81kMElauZW8fpPDRLNG1KoeBv+CW
kyb10+/KLBwsZGCXOGvJyAgFvoWowecVg9/sfLtej1K4rO9hwbxlMEviQ1bc
BIWY+MrFu2oZdBet83afpLAyMfNGfwuDYu/M1WumKWSpcc7yRAwS1aXHGIbC
sB3dUc8w+A9Flx1K
        "]]},
      Annotation[#, "Charting`Private`Tag$2601362#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k4lN8XAHCkkoRUpGhBki2VJVkOJYQWIkuUVEiLQpZK1iTbKBJJKcpS
[encoded data, 6649 characters]
nEpB9uI/+B9bxBY8
        "]]},
      Annotation[#, "Charting`Private`Tag$2601362#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVznk8lPsCx3FUltzsrzotkyxpUVI5tNzrK7RppdRto5Ckm0plOyRrKhqH
SrIcoY5IchIt6ifJMwZZxpKhwRiyjHkke80859w/Pq/3vx89l3MOJxXk5OQC
/un/Wlou8febSUGdaZWzmfuVBD2bsgrSphAnlp6rsu0hXqsqYkNZFO5oX3rs
y+smzk8TOq4toRCwfPw3UWA32bvS3TRmNYVLgzpm9Wu7yaYnZlfjNlIQDPYX
bf8uImuMp9UmbKbQ/CS7nPNSRAyy63RT9lA4euTw4sZQEdFZlnYu/RCFLLZK
pf9eERk1+o967lkKZjEm9jojXcRSaE3d8KMwvG3hheyPXSQyZVuwRxiFJf7P
DI8kdpHZOvtpg0QK+z58nMVs7iLm8mdq7pdRcG3lz3XJE5Irxeev+dVQyB7P
bHSKFpJyXx8c4P/z52nQ8W9PITkoCcnTHKJgVPhbwKGlQuLXeo8dNZ+DqXDP
qPQnnaTkbupWdyMOah99OraY3UmUHTIZm9UctA3L/7ncu5MkcvLOMVs4ULRQ
fZW2vpO8flG+x8ebg9gZRxUTqjvIT/aIulsFB72xUzebZnQQ2x1T1KYGDjJZ
Q5F2be0kWlHuqm47B/qXzQpP5bYTVpDqEH+Eg/hPTWPq9u3E0lO/1n5RBfQf
J1vmpAhIsO3eWPhWoHnLQ3ts/0IUJnM05i/mwrajgtXawifzq62/YxUXObWa
bM8iPjF70NLotp4LGfVL/bI7fHJyu1LS011cbHXJsTGz5xNOostiax8uMnXi
I09UthD2hrkbTlNcJM2o3O1DfSYLAiNdi05X4kD1oKk1v4mYM8cL9z2twvG3
annWDjyyc1dJ6OaXVcisshJPWvCIa5LuHovSKrRXF058YPFIrIXg67ymKtj6
HHzF7qsnfeeOzBVKq5C/yTlZLrSeJHc4Bp7fVY1SOjNwUWEdkS+1s44RV2Oa
4LAEy2tJVbjZp/LlNYhmnQqqvcwlurEDk48ltXgp6E/2TXlLBsbbBY2m9ZAz
cZv5OTKDZPa/4ard4qEkLql8IjUTaqw/aZGoAR4L92uMDBYj+vQL9zTDJiQ7
5TvZfyzHmFWOyCO4GYHHx3sfXazBpTVlBbM/fEaF23ht7iMe2p+W3azT4yO3
Upk+xG3GD8+GpGUBrUiZkuiK37fCeJOSzP1NG2a9rpkX7tKOrel6p/LnCLDU
eI6s6Y9O+LKc9TuPtsOSeTJ5wb0LK8SOqs27OmDYWXBsy8JuaKsPKZdNdcAO
1348H+3BdJKUZ5DcCaGjryud1YszZm9aVHYIURq2t2FFYD9ytrukvRsTIjld
wXHYWozRgXkaPXe7oGD1PFerdxAv9m2ddttWhCvG6SZfc2kEb4v4o6BHhLVL
Lem0x0PQ+2L3OSOiG4Xuv5+09v2GDRbht+eu6UHZQG5PnOMwji6smZTn9SB8
9ns1D8PvGOXGCM+HfEU+N2K3yfQR3JvudMnBsBf+jLZiX8MItAUv0hXKejFW
szv02oNRzAgK2b/+Qh80/uWV/lfwGOQeO+UJtfphJjBXCdszDu/7eTFapf1Q
OfMjIXb1BN4aRylreg3AOQCnqzUmoWnnvSJUTYw4xZur3ggn0bayludfLIa5
zSKBlDOFZ6kwFDkNwuhZf/CNjB84lmeuyZINQuP0c7OWKz9xNeJBSFu2BGqH
zovn+0gxy1fJ7kSuBKphOV11/lLc9zir1ZMnQUr6neaoICme71ifQRdIYFeR
9H4yXIoezboyBSLBCa+Ssa/xUuxIlVNexpNgn72iYCJfitlFzrcu/5DgOivU
W5mWIiPr44EpqQRxqsUbu4elML1vrBssR+OXieGoD2NSbA8az4uaQWM/N5AK
l0kRaMOuS1KnEZ1VHDlPTQZhzTudUgMavSyRSeJKGXJ7WUlqO2kUKocO63rJ
EJUScVywm8ZfGZRrkbcMbg6Di5/a01ANeWjh4CvDguLiZ7sO0rikfN0p7qoM
N9hHyqNdaBgsStiEeBk8zBO/zfSncWbNDbHrKxlsB+SK+L/RCHX8r5blOxl0
0zwCs6/QCDl7N5L1QYYmlXVKduE0vpiGaw1WybD5S9OC62waNuO/H2nokEE/
XGeb0iMadsYj5KcKA9m6wFnNWTRurlaN36bOoGWwq/5RDo2I0VfuqToMYg8+
P7Yln4bfe00jT10GzHKHixHFNAJ8hy7H/8qA3/5qnSOh8f3WsZtWGxkU3taT
GZbS0LooPiy1YuAlG4oqo2h01DjmZO9k0FbHTp3Go3HNXPfGTzcGLyPHXXmN
NDw5h8P2nGFwe6PzsozPNE4Vrw0pucBgx0OTAmsBjVXx+i4zgxkYHb7rr9VJ
48Eiibw4goGCusxS2EXjvOrMe9JoBq/9qitC+mjcn18ZVpvE4O7KX9n2YhoN
2uFzsjIYXBAm79ejaTSqRhYJchjsTJg+79s3Gn3uRj4xBQyW7vxfe8kIjVa1
LzX8twymyzdkxo7TsJfwY5U4DDpebPQ8PkVj2EZxThyPQbFnxipTKY3MCX5u
SSeDBF3VUYahcdZLq6aCYfA3YkQT7w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601409#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VN8bB3BbJSSppAWRSokoEeIZspOsSQsR+iZFklKkJFGkRVIioULZ
[encoded data, 6344 characters]
puxWmSdA2dA5kqxfgGcywhOLiwQ40Ob3v59fhP8BaEGFLg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601409#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjHk01XkDh5FSmWw1RTFepVLK0mSpTn2MV0i0SQtKSchbQmlIZUuJLG2m
UAnVRbYiCv2MDO51Zc8a916XrPdLhdD9/ab3j+c85znncz4azmf3nZSSkJDw
+8n/zU1wVpgdz0bZf9401mz4TCXpu3m9TmbjrRuJXubVR/UPn9a6m8nG/CU7
Gowmeyk9lg/Pu5CNPo+cIoXEXsrvhN/93e/ZcLFO8Liwu5cq/e3KnvUf2LD0
IL5jsr3U3PbQubJtbATxv09xPgipPfdulPb3sGEfMdV8Jk5I8WXv6aVOsSGQ
HBLa6AmptZXx/cHSHDBHBgvsJIWUT0hSkpM8B6HffU0im3ooqakMhWUrOegO
2G9wPKiHWlZj+hW6HNgresTrOvRQG5+0Nbts4iDv8LIjK4x6qJM7ZBKybDi4
LVIyVPwioKoeOK80vcCBd4dbVae3gIrZrLL5VCUHLxoO9+tG8ymWXI5qdD0H
ao68HvY5PlUqMGdednBwWisy+Z/DfOpLxPnyH4QDTeMtgXWr+NSBjtpdscrV
0DWzr6gs51Gql66dKDhVjRNKdM3DBTzKYI+aeee5atxZ1FoURLqpXZp5WpJX
qmFyXO60Tnk3Fcjlj1jdrsat9a3Jrz27KYHqVr+ut9WQkGH/uqaqi0or+Xpz
9i9ceP9u4XA+4hNlyBx7bZvFBa3s8lTTpIOytikN2V7IBfdg06wfah3UiQT1
3UZlXBTNuecn+aOdijXq+rz0IxddVemWdwrbqYGzDioCMRcZDtcdin9vpxJ5
dpe8bGowMeCmHqbfRkmWWZlGDdfg14aAr53mLRT36sYPFWtr4RwfWRz9dyO1
Wb5a6pZBLV6wiG1YaiPFenDcyMGkFqsGTBxvX2+kQrOik4hdLUIVykpENj/3
rf0+ysG18PHkTqZ1NFAs7YdLPFpqkViyyW1yup4yHQjJmWNaBx95tdTrFnWU
euzQVJqoDsLx9hF9dQ41NNnd1azXgPtCa5WDuu+o1MEijlx0IxSi5jSvfpJE
yak9J0JhE0xCpd5EuD7HzVP5rkmaH1FVsTnN92QJJkwyhO6BLZAesfgq5lfi
/IbyvMXvWzFtcPiAv1IdurPKI+s12qGfbXdI4N6EGY+mhDUXO1DiORllFtUK
7T9kaNeiTlg8y+1buP+nkzXccpd0IbHP1atYm4c/1ZyW8x278ZvzpwIiJcC6
YTvZFhseGKce6V84PVgoPzq3fJqHC6Hf+lVzeyFNJWSvSOTjXFW2iq7PZ/xv
Y1HbvJ0CvGVxvQttB5Cxwznp3YQALxO01w2tHsL40FKFvrgehD/i2ixtG0a+
rcWsu2ZCtOaMm93JECHQMuxxXp8QXkNWZvo6o9D4ZNWaEtaLeaN/bLeRHMNm
o6t3VTb0IcBA7cbZ3jE4/lY7JdnYh+VpxS/i33zBOCdK4BX8GTvNtzktfvwV
96WPnt+n2Y/RjsN9Kr7fsLArP1mqvB9ZxUwJ33wcsy8H79/kPYD0wedLWGsn
IJF2NFugNIjyrY35JcwEfOKzo5TKBnHRQOdk3OdJlGiHz1X0HEL1hb8zn3K/
Q9HKZ12I3DBeWte91U2dQuf6ukb/4mGkOnBm6mKnkfMImsKjIyiVbLmf5z2D
I9mGimr0CBw79fPZtj8QFPYkuDNdhFke5t/P2oqx4E8Zq+OZIkS4PTWzPChG
vPsZpb5sEcQTJE3DQYxXOzelkDwRFt5kc1ucxehTrC+XokS4plPZvNdHjJ2P
JOauaRThsWeLadAtMRYXOEX7zohw5ZHyxd46MVJY/xyYFovwrq6C9DeJoRev
rR4oQTCT3LFI1CrGjsuT2eGzCbpdFoaLeWJc+m9MfYL8zxa5tuqPiSGofbeo
bAXBIDdqbEKRRma/WoKcNcEdLdNUQzsa4Q/DjnXtIpjXbGohaU/DZd/Iyqy9
BB30cGbtURqqxcU5NgcJ7CNPrfZzpxER41Bx05ngyALjrOkAGu6GD8bm+xOU
b1/tyE+hYTYkUdAeQKAzf2TdBIuGepL7pfQrBJe7jgoVsmh8nGcsY3WV4OJ7
+aZDhTS2f/qoeiPm53/G9IxxDY3lVxdZyjwjcPYu4/t/p0EbX1rQwiKYk9au
toCm0TbS0/Asg+DVl8f+GbMYxB58dcQ8l2DYZ69AVp4Bs3bfubBiggrvy12e
qxi0d78xtqMI4Jtr5rmOweu7GrRmGQEvJFQrcAMDT3o0vLySoLjkwpn2bQw6
62MezWokuBqYRVIOMSi8NnmisZmAtfxMk4MTg7tbnNaktBIk+OYuM3BlsPOp
Tp5pF8F803xDh/MMVtnH+SvxCQ7dVy7LDWAgJU9vE/QQ7I+Tf7o1lMFbvxp2
8ACBS9FJvvIdBnHrDWL2DhMsDkmfDEpg4C1I3K9BCCJDG97vS2Vg/Zf00rEx
gmO0pVZ6JgMt69Pdpd8IXnT3fsktYCAt2ZQaO0mwZuvoxpdlDHj5WzyOTRPs
saz0N6plUOyRoqsnJojjFbJedDH4S112nGEIvlXWFL1nGPwLQ24ShA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601456#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VVsbAHCFm1SSVAih4QpJrhKVV4UksyMNNBhSriJTFBmSSkWDyhxR
[encoded data, 6344 characters]
/Sm5Qw2L8GrLqsmlJQJqkzbXf1hYgv8BUqPk5A==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601456#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwViXk4lfkDR2/SWCr7lBoyJjW0yEiomekjk5KlLBmNkKV002KNNMpUNKIi
jLIkUcaWLWSEr6RN19aVfb2ufXndyhLd9/31++M85znPUXXxsDomwmKxzn3l
/74sOBvsqcHBwoXsqr3aQ+Tj9hId3w0cGHd7v44SGyLLpA6sjNPhwEL97moJ
m0GyjjfwuXwnB3UeeY4/TgyQncWBnTxjDqZlXK/JJwwQ2zB5ImbNgZVlpyTn
4ADxdMy8v8mBA5Fsb3rbigFyTXtXsOVxDpriS6J/7OKTlG9a3fy8OPjVtc/Z
Kp1PuDlLNlWGcBB7x+eimjGfjF9OlBqI4OBmSn945Xd8Imq7VSARz0Gng0/4
IUE/0WWciq1zOHDWm/e7eL+fmJlXXjYq4WDK1FT+eGA/cU1QOaBXxcH+07EN
5w71k0i97qHVzRxI3mu2zJTvJyMeh1fxhBxUbZdIXRbDI4m9NoGe5rXIu9K5
OTq/jxRoFhm72NbiGW90idXtPvI6UOHbg861mFOS+t77Qh+ZVuQ+0jtbi6mi
hdXVJn1kv6VFD51Yi7VG1gOGI71kUZWJ4Y3xWrRb211ftrWXKMpkSgXN1KKk
dkDKVLmXaDpKdHiy6vBI9DeLcrFeYjf/yuegQh0qIwRWp0t7SKG20cPvfqkD
XWp6JV2hh7ilQjwzvA4mMi1vbVu7CCdYp+7lhnoYPL3FbI3sIDuk34rc2laP
GZ+lV/927yDpcc56hw3q4T3s+EDOqINcybmZTNnUg7kor/l2vp3saB32VrxU
D18trko6u52kb7y70r2lHhYn7BkD8zZiOHI57xvDBog6OH3J1WkhKpFjnzMm
G2D1p05d6hEuqXAOyij42ADJUw4FV3ZzieNW+T+ezjVAvMlrv58GlyQ27yjh
iDRC9NXb0aiP74iicpgftaIRnQW7Qh+EviNymeofddAI9mseW6S4kSypPjZO
Ihoxz/opPFqpgYzN9nS/13qHQH+BtKJaDXkw+rRG6iYXnsPdFacVyoiU8r8U
n9+Ev16kdOh4xZHrJ4rcktWa8b303PN63QzMGGTx2UEtcPLndwxLV8JXu7pw
xfNWsBate6P/+jV6cqrDG1XbkdNQM6T2oQEL7k0JGuc7cL7wRdX8nvfYuEuM
dnvaicn2TP8s3TbsTVE9nr+yG4JVcorxLl3wVz7yQ599D8ZPzdXMxvVi07jN
0hbzXvDd2uVkvXiQl54Sr57vhZvEy2I2mw9RkpC7NrEPaWeCyhr1BnFS52mb
hCkPK0ZrA5TUh5G1zyW5YoaHL2v5R9dIjmJ6bLXMYGw/sk3jxLJejaHIeu/i
mN18DN5K8ZX7dwJBxiH3Cgf5SKp/ez7KlYJql0lrasgAduodfRMQNoUdesEx
q7QHsaPjzpOrvgLYr6n/vIg7COOwbA+l/R8wXXOD53lpCFsdXfydt3/EHVFH
Xyu1YRTOz7ArFD5BvrsoRaR6GBIR7Qcqxj5hyYVLB7d7jaD692hLzffTYGU4
5vLkRlFRmuf2T+4MvONzb8hVjaL02zk7o7uzKN8YKi57ZgxpfyyV0Q6dg6yJ
96bLUuPIP88ecj72GZ2bG7gBZePwVHPwPHloHnlJUOM7TiDS+FZBDhbgkKsr
q0xPYC5lfWiU+hf8FXL/UmfmJDYb5v39UEuI5f5iJs6PJkHU7psl6wgRzz4t
N5g7Cattr/Yk6gvx2HR7KlU4Cb+TUSO3DYQYlG2sFiGTKPMwt0myEMI0iSWu
wZ2E/Ukue8xTiBVPjtw8uzCJQBmNqPQCIVLTX/w+L5xE5MWFtnfFQmjFb1QJ
YlHwFhZ/oUuF2HdhNjd0CYWX1een7J8LEfhbRGOC9Ncu73HXahKCV1+hULWW
wgWfyE2/zgjxaFg5QcqMwuIXM4f0f6ERejfEqXs/BUFRpb3uLhpHrSbW5VhS
SMoICdHfQ0OprCzP3JZCaxErf58FjbCIwy+vu1AoSiu+m3KUBls3TiAZQCHb
4CrP7CaN3WOsJ+1/Uli0xyMqMZqGSjI7MPMihby6rGcf7tBoltAXMwmmYPr5
XtDjVBpGXc1K1yIoSAm2ON/4j8YPwQrGYmkUliXIxg8P0qD1A5e3pFN45hcT
+HycRttE/7u0LAo6krlJmR9oRNo+dtiTT0GGNbQlmabBbLDyCSmjkLFbpP/X
lQzae/7TtyEUArfc6YlQZlAco0qrVVHQTb+3ZnotgzP0VGj1Kwpbqk6P0loM
OhsjkhZzKYgri5jsMmNQcnXWlfuewpjmhjOO1gxifj6ikdpKYTLcwSbZjoHp
Q81Cw24KvuujnFJPMFhvFxsg10fhid+EnocXAxFpeiev/+vvsuWcDWBQeq72
zaURCu8nZn6yC2MQu3lbhOU4hYZ/+gysoxl48RIPqlIUVg2WPqlMZGB2W3S1
QEBB/exu02dpDNTNTvVUfqIgWr1xTXA+A9FFTQ8iZymYq6VcP1TOoLfoZ3en
eQpLs3vs2moYlLmnbtESUnBZfkIjtoPBbZWl0wxDoco1LbWcYfA/4RH7IA==

        "]]},
      Annotation[#, "Charting`Private`Tag$2601503#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k0VVsYAHBToWROKCXKk5BESsNXooQKqRRRkkSZEpFKSEqGIpmTUoZE
[encoded data, 6222 characters]
7nHzIjxbt/z3378E3H5be+3twl/4D134aqs=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601503#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHk41XkDxZElExmyluXVNtnKU8o2daQiS5tsMxWlGktD2ZIyWYZGCU1j
ypYUIRRTylrfSaJR3bVuutZ7XTey/HgL4b33N94/znP+OJ/nnOc5xgEnPY7L
ycjIxM7r/85IGjEKqWMg+qJ8peOGj4Rnoq949AkDBmnfLVHIFpORmHMczzYG
fE+caTHTFBO5Vn6BE5uBztwX6pLaAaKnaXfCppMB711tHR4/DxDLgBxr0wEG
tiueijlqOkCcqr8u0KcYUP7Dz1CdEpGDUh+W6gwDYQ2/xRfUiUiEe20+LcdE
zu97Z76kiEhqrnbwhAoTrXqaUb7eInJzMHpjvzYTvPS+bkcTEXmdbMVoNWWi
ujw4ZuO7fmKn9kru941MuJ10mwsp7ydlOUesDzgw8c0tjd3Oif3k1/sZhZQX
E1k6ny1tNszzHYMRuolMdPeo1BwpFpKygPhSYRoTMg6lCuIkIdEe1eqqvMaE
gdjexixASCZkt+3YWsnEbLltevPyed7shk7IeyaKo96az5QLiPbjDe5WQiYi
z+cEuGUISLJDe4J0hAnHlquu6hECUl0+F+Uiy0JZa86zPjsBSSNrerq1WXAe
T3JbwO4jjkNJ1YqOLJy+qrtlkUofiV3LaD/hzEJzbZmi+VAvqY7UG2C5s3D5
UcPVxw29xFBapZfnw8LXX+J9lvn3khmN7qR1oSzsfr1jzfPKHlL9vbWXbzYL
vhfqVVV+6CZGV4Zn7o6xMPLjYOayj3zy9Ej83QefWfjPOfmvwS184rdhyQ+N
X1kob3jtNHCLT/J5dnWv5djgBSgf9D/EJ7oGl05T2mxs6elVded9IBrlaz5b
gY3m0eu6YcwOotByfIRksmGzWiNdxOeR4enenneWHJSf04ra6sAljwMzm103
ceC+pyIqfjmXJLzfUkLsOcgunUvgynOJdu2N0LtOHJznFjQ3/cMhjqcP/C/u
IAfjXZv3pXtySO4Xnt7KVA40M9NsJkPZZOfEG8+IXg5OWTSXKB1ikuJPje2L
M7hIzradGmp8SRYblFIi0Vu8rGhY63upnlwOfvRT4UoeElJbp2o0ssiUQ4Uo
KP49EiLvF2s9qELU+pYa7ecd0B3UNGo2fYbe+y1pbGM+5MnQG8Xn7ZgLeZtn
crYT59UCRxOG2TDbqiT9qbELV5uiV0cq8eB82zjwL50eMNKMH7/y4yPGwH+5
4GAvSha91Njo1QPzEa9F73f1Iew3H5V0DQGWqI0vbJntg6BIxW98af/8Tl7V
inwBnHfC3GVGhBNWjR+U3YRwaB4v6PsqRoVLQOHTKSGUe1wNVw0NYnJ46bfi
a/2YlNkTfeLhJzza77wga7sIpne3/alTOIL4nSk3a8QiXA40tMwIGoNxt2tH
UcoAGPwM+3KNcdhZJ2fprRdDkB+b+FRuAgcNmTOyXDH41vHhPMEEJtvThacS
P+LyBmbGHOe/yJb3i/JYOQi6TqG75eFnLOl5dFuuZRB+oVSG6pUvUPgl0dM2
fAj1lrV51vGTkLnrVyXU+AS3cMuFUr8pRORWpWs0f0KUY9HcVY9pPDFLXage
NozUA/vPBm/7CnXXCPOkxSPQCZPhuqyeQZcFixvbNILppmMZrUazqC7ASpHf
KHapya+LVJ3DoapN6gbSUQhtXb5dJ5lDQsqtxK7yMbR5DGvWq0qgGqPkeuTe
GFwslM/y1CXIDQrVEFeNIXpZjeWklgQP3WyLqJoxlNRRtzcZSiBWZ7fIkTF0
JRqqt6+VwK1AZqEJdwyz+TWq1nsl0K71z4ieG0OiL3myO0uCorIX3rOSMRxm
MmQLsyWwzDUzipehwLA/7v45XwKXX6arUhUoPNgcoVV4R4K4bZnsPDUKY3pt
x5bUSiBkPtVsXkFhfafYNJgvwb1Bg7zF7hQ2Be0tXb5CitQbKYd7dlN42hnk
4LlGimMeo6vu76Pw0V7r8CULKfSbmqp3+VCYrVcsk7eR4lLmgdbLARS0/Pdw
rXZJEbQpZ+KbWArai8rCi89IsX1YppZ/jsLJG4N2685LYVQYFFd+noJJYp7+
s1+l4CnbKLkmz+d7bxvNZUixo5unfzGTQk5p/33mHSmWJ2vuVCqh4B3r5Oj8
TgqpTZzq+zIKnrrVaiGdUnwY7eeUVFAoOHdxc65Aiis+Dw85/UVhIUsnZdWY
FLSpR2RKEwWRW5gurUSD31tv40Uo1MnJzhQtpvE4y1i6snm+b9pbeEiLRph0
PLWljYLXlGGH9goaXezMggVcCvSUfCQXNOouTB/lvpvvU9O38namkWXvb1LU
QSEw/N4y2T003O6srXHsofCsUlUo8KOx+sdrsRoCCi3Fr06tCKQhpybdIuyn
EGrXtvrOSRoNZ978kzhEwdZ8fekfiTSuWWzM3DdCQdB4eL1hGo1wYb6nMUVh
weB433d/0nC/Lr90YmL+76G47zk3aaxx/7n37y8UdOMC/t5bQUNe9m3xlWkK
Vdfsl87W0uh7ZB9yeJZC5Y0X+2NaaTSFFK2zlFBQsoj7GNdB47rRokmapnA9
WPVCLU3jXxYz95I=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601550#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13lcTN0bAPCRCmmT3iSFEtJCaBHqoT2ylBAqaUOyJZLyK1SKFi8hhVLZ
[encoded data, 6100 characters]
3DsDpb7p6/SnSfi6ySxJQJ+Bh8vm//n7lwTHNBvtN9N/4f8G/zYM
        "]]},
      Annotation[#, "Charting`Private`Tag$2601550#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0Hk8lfkCx3GJERWVUpmMRKVkWpi0zPSdSmWJkKXFUFJM3ZBpsSWKUjed
5pWxtpNCOYi4l/yKo315nnPs2+Gc45DtcZKd57ndP76vz3/vP74GXv5Oh5WV
lJROf9//a9+8OF+RSuEZz16tvUtOXKbNT7v0iMI2a5/kzXpyctXRu7T7CYVO
46HAvIw2Uh7Pr3V8SiH6VU5elWMbGW0Y/fqsiELRMhttvlobWW2wffqCUgom
peYei17JiO+Rv5dGllNYV7Cq/N4VGbmT1bhZ/oZCaIPXw+zdMlLdt9Td9hOF
NMcmc6eFMmIZWnp9Th2FNRbea6UvpST0hXpWSDMFf6+Bu8P/SEmeqkuFWErh
9LGmlPpjUqJ/vWsko5cC7Tq+y2SBlJQePJeR108hfKhDVjEsIR5m2nuLhykk
VwU2uFdLyM3qDUUflGkIFbzny+MkZJ7eldOMDo3APo+YiHkSMivTuN8cNGz2
ySWVG1pJbmjJ/d8saRzWWxcwvrCVONg5OG23prHmvlTjrFor4fWdyXXbTSNl
Xu6j4KoWMs3itX+ID43HeS9MJp1qIaqCw92E993XXJ3YcU5M0v4ZSXkTR8M9
d6001llMLH1ibekkGhF6FvZxy8TkvEZBpiSVhmDP6daiymbCOqj8qVpEY1i5
zmzuymYy3HS/zaaFhsoPaYkWXxtJ15C4uWqVEI2ZOT5x6fXkmQ+vzGatENQ1
hevtiHoSUbMpnWwUYrTE3b9pXz3RKbx1PGO7EFE6h7sGterJltP7x8PchbAS
nUgIDasjyd+q5xvFCGHfcWj2FI9aYqX46BwoFmLQ7GLdr5uqSVpn8TvNayIY
v7wpK3YTEr+EXYZHb4hgle39/tYGIbGwlIZWJIqQb7yn4YaekLy7pWEalirC
IsXAzWIpTRQOe3lfikTo+zVQ3h9Ak02Fg7sFUhECvEY8G69RpO7C6qbg9ZVQ
SeEvLcj+SDT1HjIyWSXmudyZWrLkNbn6Z8GRu0bV+P191xKqvJAM/p4l8z1X
AyXrhrPeQ3+Rk2sE+TrltRgu1fDpO5MHcbbg37RBPYy2WZbM8yrH2NHKlGUh
DXgjjlR63/0BJpvV2CPFjYiJejxfUSbEjvsGPrlzmxF2YedWZ+sanNHzXNTq
LoaOw29BIT4NWNHtMrXGrgXZLqPrTfeLoa3VN0Uw2oLuyd96+l+3QoWk8A1v
tsLrRW5Ff4EUx8yL69RtJcjRivI9W9GGLGuvu6WDErzTDA27KmjHQJfuDHm8
FMKfToQPp3xBwe4dk+MsZVgxLC20i+/COavoO/lyGVr6xgVTj/XAoMmmNjW6
DR8a/C+GmTHYYBEVN3+NHAY5rz6N8vrg/tPnkUkiOby1rSblnFRg4F2sJCCy
Hcr7lIw+H/uKRBWPk05GHUik/Fx1nfqh3VxwX1nQgS3bit+Wmn2D6tlI5/Un
vkBJ7eGRAuMBKGV48CWzOiGU2X/unD6IwGR+7KyyTpjfO7nmpNoQnpvETJnp
14WZNZf3bWGHMNMmcMV5zW6kSB3MxfJhNJpSouCSbnhd8HFpkI8g5zaMZB49
6CjYZTpeP4o/+Gtn6rE9gMbL0GR6DBHR9yIbM3vxWbupP71zHNPPqNkcfNKL
DqHh4vbecST7Hp8l5/ei/UdPgXH/OJ7ark9l8ntxRM/JI2dsHPKZtECZ9KJ/
884IetoEbG8rTVkm6oW5s+4Hz5UT0Cn0vHZqrBd5q6a1VJ6aQOqjCtfRiV7o
xGnusguZwKpkE/1zSgySB3b3vQ6fgPXZIX6MKoMfLfnd5ZcmELaVR6doMcjb
Hv2pJmkCks+ls8sMGVD+Y7pBpRN40qGXormTgSKLmtavziLmVvSBZnsGJrwT
p/ZosfB26lmc7cggZCz2VdlsFgtKSnLs3Bi0Pxq/m67P4gpv/6urXgxo5clj
2b+w8F2bpNAIZlB31VXe5sXCskupsD6UwYyy4+qPfVno3/UNywz/7tUkNQf7
sahWX6dmE8UgfcmeTNMQFtuaqhdc5jHwTXgyMPE3i0VRs63U0hkM3ehaFFfO
gl0XNr3mEYP4gTlLubcs6nqkwvQsBsPh154EUSyuuz39Y3sugyTDSKvkJhbc
cqe/oksYXLazVc0dZlEv/s86F8JgzP2tfgbH4lmcAWtUxiCoVnlq0Q8c/Ni+
GMFrBqVVB8QL53BopHm3J4sYtB5SX7/XjEPRxaFDoqrvXmgCu3kjh7iNnstS
axnEmOxwdN3KwfbBz/lbmhm0fDj/dI4zhyX74oNntX7/N+BywEd3Dspa7CaJ
lEGB4mfBu8Mc/hv08W3kFwZGhvlHBUEc4k1/4Tl2M3ieRE9uPc/hhOSmswHD
oIlZfvFSLIedCSq6CgWDwgcjTo2JHIx3/kv84huDFQd5W+Y+4KAyqTLt+hCD
FN2f9sfncWgp2Hj0wCiDcLfekRllHEqOpq5cNcHgzCF+woEqDgn6Uwc4joGb
v59XLsfhf/zzBy4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601597#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VVsbAHBJJZSiQUpFlCJ1ZYy8KjJ3yVD6hFBKg0jmQiGJdEullIS6
[encoded data, 5917 characters]
kQdB
        "]]},
      Annotation[#, "Charting`Private`Tag$2601597#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3s41HkfFbVUOyxZxeqiJpuNkjZUXielm0tv0XVVSjfkUl5qySVtZLtN
bVO5xBYSlbCIUN/SqC1J8xvXYjAzhgx+WJdi5vdb7x/nOX+c55zn8znPc0y8
At0OqaupqQWO4/+cHJJzLEUhxI9TfhU/vy4ndW57Bw/SQtjxp0Y2idtJCHcg
zX9QiCUzMzsW+LUT/eEY9xNfhVAu1j0XadBOCl4bakQxQrwzMnW8+15G3BOy
/zqnQWFe7wLDrTwZGfB18LqiRUF8ZL7p0DYZuWpXq5vAoXCBm01NNpERS22f
F3f0KPg99FmbTEtJQN6VOfnGFCKF6SnVfCnh/Mb9UGpCoeNIcWair5Q83Foc
JTClsO7euvi5q6VEMdIirrWk8CRKT3F9SEIeH+GVO1lTKNl8xnXRewk5XW+f
QVZS+OblWMbkTAkxKEr2z1pHwaVwxbccTwlZfcJDGb6bQvn+vllv6ttI4mCd
ITeOgtW1YvXHHa3k0MFYVfwlCqUivn1TZSuxrFnWxrlGITXaapF3bit5lc/P
HEmmoFSU/pMc1kr6g9xsKvMpSG9m9HCmtZIN/VVbg1ooFLQ5bA9KFZNp+yNs
O2QUptxZmGsULCbiD+bGu7so7Jz+5odF68QkOPeCdO0Qhc1OB8rjFM3kz8CN
QYZTRSiJ9CoqXtFMhnsEvOfWItR8cbxT1fmJpHeVvtW+LMK75jBe54lGEnDz
v/N8r4nQl7zkqYtbI7FxlJ6qiBfBag6nssWikbxNnmIRnibCPqc73/PaG0j/
5l28z8UihDvtLhrb3kDsi4bdBdJxf0nhUV+HetL425Lm0OU1iLdWrg+2rCXa
M+/RMlkNfllWEfnMU0gu+hQevs2tg75G4YkZ374iw6seyLyj6rE55OqW84H5
JNhKUGDwsgFqlhrUS344Wh4JLghNPkLL+e+8NQeKMOZbk2QW9gnFfyz1E7+s
wEIHTeZwaRP2HfB6/Meb91ifanIkb7oYt69nZTXPqsHJmZ5z23a34G1JLXeG
dwPMu7dNrXdthaPx/E1LzzRhmk6flmC0FRJP6sK1gFZMJEk58261waO+euV0
fwmO/lzaONlZAolZSODOSzI82Oh1+9mwBK3mnEYqSY4hhdF38htSWOfFmktP
d6LQfb0G31EG7bTYyO2/dyFqQ8yfBXIZpnMTsp74dsOk2akhLaYdg0MPX3DR
ixU2Z/mGVnIYpl8fMTbuw+5Z1V8niOTwqVZuuvxNP4beXpIci+4AVaH5VaAx
gPiJe4PduJ3wIrEn79MDmCYuTFUXdCKxpMDwed0/mBQRvXX58c+Yu8maGy8c
hFrW3hyJXhciRR7Gm8qGEJSYc0mvvAuLd861ay4dxtOFcVq6AQoUenrz/ioe
ga5TkPkZ7W4c3F/qbHjvC5osPohCy7oxP63sUGr2V+SmgCvb2wN5isXpNZmj
2JNjrTuT6cGAU0FZ9d0xnI65E910vxdVEWUuR18rwTmp6bQ/uxccZ0HY+0ol
Er399eQ547rCdunSD0rkOy9Powt60Wfrs31CoxJyXaFAnfTi3Sv9vtwuJZxT
1LTMRL3IPXXfwEtbBYMiz8shY71o9GSKbHaokJZZsX1U1YtHh8/E1HuoYJm4
cHaUGo0qd9O80H0qbIwYyYmbRKOHz99Q4aNC+BqeMEmHHt/f7Mth4SpIqp/p
l8+jkZz+ZMqRVBWyO2cmabvQYJTbujL6VIhLjtkn3kTjo12B16phFQ669cx/
tIWGoKlyfsuYCsZlZbmuO2i463zSt9BkcJ7n8eqiFw39JO8M7VkMvK0T+qeE
0tB6ZT9Jx5WBo0Kt6OMpGrVChzffuTOYfds7/H4kDTvZxUajXQzqJttqOp2l
sW30e3bDIQZrm+uMf+fRiCg/ZmkQyWDuWf0Nmhk0TOcdPl6Vx4CxDefUZ9JA
iZg9XcygsUdKZTygcckofakjYXBlR/6edXk0bmHkvfIdA/Ynt//FlNEoG/17
tttnBh9bnthuI+P9iERUch+Dx3wThltO42iB1xz1LwwCmL44wWsarnLrxB80
WTQJeSkaIhrCD9Z7hKYsimNHDohqx+9VWCfMWcyCv9LTLK2Bhqb/+XcpNiyc
7y4qWC2m4eH89cV/NrIw/eVGqF4bjV3mP1n6ubFQ12HsJVIavZV699s9WJT8
WvUm+jONGde6bikCWdywWMbb0k3D7JyTLDGMxXHJra0mNA1OgJVcHMPC5eZE
o/5+Gs4jcWLxVRYLXPxang+O5zc4atansJg4oSb9ygiNe+3TX5tns2gtXOm7
b3T8/4drxHefsijzTVtsqaKRwj+vWEWxuDl76hDL0jhfvMj2AcviXxHzvYY=

        "]]},
      Annotation[#, "Charting`Private`Tag$2601644#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8V9kbB3ChaLEbUZZIkmyDSORRUYQGyTJjiYwwkoxICEMia0haULZK
[encoded data, 5917 characters]
H5zPtFmDGt8CDc1VHNpj9tLrOtbgjtzWn+vrpOU3tr1YXYf/AdO31Nw=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601644#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkns8lHkDxSWJ2tTQeqVG65It0sWGiTiSLRFFum2LskorIRQ2SptaL2oi
RSq5tLRJU68SmfYnTaubpGfEZFxmRlPEPOlCZJ5nvX+cz/nj/HM+33NMgyP9
dmhqaGhEjOn/bvi/oNNLfqAw+CiibshFSQb7Rfxaewqq3YKpdQmvyb2A2Bi7
ZRRmfGfoyVN3k4wG801XllPY5hhlEVnUTTY5U46zV1GonvKNuXRjNzEr/90k
ew2FqL31cUnTu0n/LFtNXT8KsiU5vLhWBanKkL1O2kQhVsvuwdxCBfEOdy0P
DabgLa069maZghhJ6ZPSUAq92Xe/ED0FkXtdjPXdQ+HF+JU/VMjlJN6acXKK
p/DB0nZeE19OLvXWPNY7QSHe/aORdFhGInLWmoedGuvHfeCT1SIjDu6KAw9y
Kbwh/+jPrJSRxxcm2SQWUwgRpzWG7JORgXVb+D1VFNbXBHglfe0iLrcH14sU
FBjz+LYQky6iE5J2dXYPBbci85IorS7yYprJhAMqCuFJVsJzzZ1kR9iPlYuH
KTgu2zajI6qTZHCzjS7qibGszDnpY3kHkRxZ3J6wVAwl58AeD5d2UrTogV2z
ixjXo4uUXP12Et6++cQidzGE2zOmr1VKiYZDMt74iCGt5une4UuJZe+zQv8Q
MR7KjLdEKttI7LrwnQv5Ymj99Sk2s/AV0eOW0t3dYiR6yjim7q3EdeORdkWP
GLka9LEAs1YSzQ96IleJYZTf61ar0UpejjMq7foiRormT9qDd1tIvjI1UPpN
M96u6+jjOLaQBdfDGqglzXB1ywrL5L0k3isWlNWlNMN9YPfHI15ikvHrrZ0F
Fi/x1rhhuaTyORl0LevedagFIrvgV22n7pNYW9FNw/utcG309Lg7KCCd10Tp
Taav4Fp9av+LtvP4GiY+N++3NhRURN/oOSuE9fKJzM4aKUYND+XdelaPVUWm
oTf+04HNtZOdeW3PEccNMpP93AmzOKO+J+ubMb9vw+QW7y6c0PkqysqRwGDq
ex3RSBd658VI0md2QIucE5ifl6EsdXWNhCvD7iU1El0vOSpdfoklaxUoWx1c
8PegHLUmEd+HRLzG53fG05RnFLi6NKavfPsb3Fq/any2ezeEtamTHsb34JDH
0Ys3ld3gVP+m7Rz6Dqbtnq3FR1/jIScrh1nVD0eHlOwZtkqsGIxL1/ah8bNJ
4/A4SomYHSXa/jnv8fnxcXnU4TcYMTEQ3c8bQK5WYKyfxVvozuIsDsr4AIOO
W0WaorcoswpcyMR/xISkw/5L9/bA6vsBbmPCJ2j8FSiQ6/fi8xzelhlhnxGd
JziuX9eLhixp+r3IQdy1TtXhRLzDa8sOP0H0EDie0fN/1+vD4mhJk2rnF0ht
nlMJwj7UGzZ/MIgdxvV8WHQH9iMybU6x274RBAjsOVymH2TaYPKjhK9IPlp4
WHpFhfrq7ww1L41iStxEz+3lKqS2bd+fenkUebv26CsFKmRZ5SVNKx9FhdfS
YvqmCit5/qfnVI6O/bxJpElUSK9fcjDk4Si88jV05lEqZG4ttXXsH4Xh7aAT
+76q8IcgsC2Gp0bx5QcbR9QqPNOc5urkrMaiPOvZhzRoODyVLZjgpsbqpCFB
6gQasVWRVIGXGokr+E3nptLgLz4b/CVQDXnj39PrzGlYH1yksD2mRvlb7jm9
NTT8FCuTnVrUSL1wdFvH2C4XwuU+uu1qhPj1z7nmS+PkQuqxVK7GLKHwuvcm
GvamIQGnVWqk8bf+kxFM4/GA5WpfbQa77M8OTEqgYfHwThzXgYH7O43brw7Q
aMu6YrXVmcHsgl2JVw7SYPdXiApXMHipy5vomUKj5p69wnMdgx/bX876L59G
mkHCcsMwBmYp0z0mltC4szrce+AiA4aXOKXlMo373zbf6y9hIOlXvCgpo5H1
h4gdKWdwclNFwMobNHySrbZ4CRmwVn4xR4U05tqfetIlYfCqs5q3gdA4bvXu
YLKMQWW2KWNRN5ar0nMdexhEMO9TRfU0hjykmROGGUib+PnjKRq7Wp5mOhqz
qDo29AvVTCNQMP/eezMW2U5B84pbx3hzPmyQWLPw+nPBTbcOGk8TS/s3u7Cw
/OlMgr6Mxrd01HlmFQvNqYyLXEHDP937xSdfFnfiGx4d7hnjV9GxXieUxRkb
O75vHw3fFJthz2gWe+Xn/U1pGmZPW+1tDrJYk6NlPDBAY2bbU0tJGou5a8I7
az/RyDV99Cs/l4XWOPGlk0M0ki0uNwpLWXTdcgrbNkKjkJOeYVfNQhhWvHCR
mkZt1KeT3EYWObMnf2ZZGte2X9X+k2XxL2jzphg=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601691#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VV0XAHBTGRNRVKRQESJJA1lEIUOZe8vQi1SSIhlChFCGKzRIhiLJ
[encoded data, 5734 characters]

        "]]},
      Annotation[#, "Charting`Private`Tag$2601691#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns41PkCh10PIYW21CFNVC6RZKOoj0olsd3YPCVZlVu13VRsSkLPpMIp
3Yg6SYWEmG7kW7KbFMJvhhiMMc3KZb7p5FLM73faP97n/et9npcXtG/jLjUV
FZV9P/jHx/nLW4yPMVBfZ3LD8dxHMtmzyN80hoFPnga3QSIjkiF3QWQ8g4Pq
0QP8vTKSm9U8njnD4I/jBufdp8hIxPo9wfOSGQQfrRUV1naRpUquPDGVgfGo
2ZOrSV1EK/fiFPk1Bro2W3X2+nSRNPXSquu3GZi4eR+I6JOSnYW/8EZyGEx/
kDOg91xK7LZJozYVMKhaYKNQS5GSl4/G2eg8YzDLXP61yEVKEndkxO0iDFw1
Iwv7jaTEZ+J88YvKH724KeBUfyfpDvM7f7SOwdAHvWyr251E3/QulckYTKuL
0cw16SRuv8a1dX1i4L++YibDSsjB5O1vpQoGy5P6J6V0SohI1fiuZITBd6eL
vtfuSUimnB8g1hMi0KElc6arhNgVhtc0OgphL1oVKupuJ4GfVpU2LBJC0lP9
PvFpO7kw0zynfqkQfdm6i18mtpOh1Nb4Og8h3l3cV3HTrp2UR3m5vvUXwu8d
nVF8rI14r7DLq4gXouKOMtfUUkxOROtce3lGCJUJDn7WXCspFMhPv0gSotnP
1Cde1EomWd4IKr8qxPt/V2sZn24lYr2J057dF0LPtqv1THcL2SMa4BcxQojd
a/TmPf1AzoUJgm9aiODxQeby9WQT6XHL5+tai9C8JzNM1b+JrDbOzj0yTwRR
wtyFrk5NRO11qsJrsQiuynw/J4WIRFlEHPm2ToRaoX6rbYCIBHc4nN54TAQT
nd6zJ1YKyTLfwmyNBhECnIxG7to2kiG3PFloTBPs43IsHqbVkgiHypLJr5qh
Z6UqLb71knQ8qDxbz2tBythRr/sat8loOJNu9UcrAlcMCkarc2CzTIsNLhXD
a92XVJfTL7D6Fi+kaEo74jV9+0YGqnHUdPvMTv8O2A3HWByf3YC5fb66Td4S
JI3NqjG+KoLRhM/ald8lkO4qMbrs0QoNkl5gfr0TwR0C3oGkDux2LP0wbq0U
Li8zGzt1pchbE3SzfEiKQL/aJZdcZBjsnTZRfrkLh95V/evNEjkEm1arp7rL
EL1vcJv1zm7EeCTcKJHLYF3q/GxeYA94bZ7NWQkfcc5sks9D7z4sdopPneog
R+AXTcHE3xTwn173TbVRDpOa3SLJ7M8YrD4v3R/7N4pN578vsB/AVY2AiI0W
3QgxcT4yw/ILjNoFt9Qqu7E+U+unndP+B83jsT6LDnxCnlesuwfvK1RyAgqk
hj1Ys/6nBtcpgziYVnDesKIHgro5943Mh/Dchq9t8HsvHA978mznDsPA8+Dc
U/p90Gz5T5fv7BGIbd83RpX14UT23eI5i7+hMBMWsoB+7A3d8uDLsu/YVrDQ
wJTtR1PPPctT3qM4mfDfWHGuAmn7/fRDTo5h/FEtz9/yFVCvimydmDCGtNC9
hvICBWb02u4pOzOG4rWLsmiJAm4pZgrji2OQG9RXqhEF/so4a9idPYa1mSra
Vo0KSJiO+bK3Y5j8eHvS4VEFtlRuLkqYqkTWvT9//a5UYHeqV2/EdCXs02zM
YlQoHsr5rcHmSqw5PlzA16Q4JJits8lWiegVyfXpEyhe+bxq916mhLSufFKF
OcUi84c7msOUyO82Tdf3orALWduT/1wJfkZCYPsvFM7anv6Fr5TYubF/1oMN
FLq1N9qfvFHCpKys0HszRUqtdpFYqERi8ta/zgVRdNZr/hyhUCJ04bUBnSiK
ywuWVOnzWLj3qjxuOUZRvD+E8OewMLsZGp17gmLs7pxFenYsROOctTzjKZZV
CFh7FxYr20QmZ5IpvG6401FfFjPjJ3lo3aHwCJpfrjzPgnWOHt90j+LCpwfR
Ky6x+NDf1XAnj6Jgh7t1+nUWKZuLt60qoshQ0TaIz2PBWW88lFBGkX8/bPPW
ahYtHU+dfQlFhEVo9LoGFo9SeaxFxY9/60zh9hYWv7Of+ZWvKarvX3Jt62Eh
rk/OVG+k6HdyjLw4nsOT08M7GoUU3Rk7zYsmc0h12W6V1UxRN7LqjsYMDmuz
7UqWt1M8Nl6jHbyAw+wtl6MMOymubPVMjVvCQW0Cu1TaRaEMSrIaXs3hWWTN
m9hPFG0fxdemBnC4bPtz8oY+ikf1cv/PYRwOSK/78CjF68jarANHOHhd0Zg2
MEARHTU3vDqOg6XXno4XXyksJBbPcYGDhipzO2WYoszTrmPlLQ4SgUt44HcK
1ZTSRFLCoSw8a569kqLq8LP5Q285XDHTHeQ4CubQkppMjsP/AWcWqxY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601738#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8Fe0XAHBbuyUlSWRJpULyai9HUtlfJEpClKQIed+yRdkrKalsIUtJ
[encoded data, 5734 characters]
OajwytmmO0vC+bJAk7Ifc/BYZdno/DwJc8M73xXPzsP/AI2/tw0=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601738#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3041XcfPkklNZWsLSMPqUmorKhs3Vot5iW9KduKpGQqtExZ5aXhEaIt
ZEhGZKTjPRV9i2M2Uuyc88PZcZwXL+ng5510zvk95/njc33+uO/Pfd3XfV8f
4xOBB05psFisAPX8f0dpdfpU1vGReeEzj92TPYQyP0YqGvj4vPQLpdS7h2id
3FZc3sRHnBuv7+6gjGy/82FG2Ws+6sISKy7dlpGz1GhsKY8Pq7LFR3L2yUjW
klchJZ18lIhOLTmnKyOtjoUn2SI+Xs5NSv5UICWbn56wL37DR1BmuVD0o5T4
TuywejDEx6XYfTI7RylJs/zEoGiMj728KoMBAylR3OVOFyj4mL3os0jSLCFW
neze+3MoaC+0kLPzJOS4bgI3fz6FpRHhn7VESAgnajf73lIKEw1f8vy2S0jC
95W+2aYUKmpezQZUi8lb++LYReYUPOTFa21ui4nDx3mFIRsoSOxi9B+HiIlG
Y/Kwy3YKfbwxcY2tmISaBoe8c6NQVvXb6JrIbuLbbR1z4DIFYZOCY/qqi3Cq
zAtqIyhU29w6I03vIiaJJk1mMZQ6v5I6W78u0vW5rg5zk8Iqo+mVv2h2kUPp
oylF+Wp+flad3y4h2elekqf5DwUbaVjICF9AsiwKGgPbKezbEFg29oeAKOZm
DwiEFDJfaNU5hwlIdVmSZWk/BbM0zd9nPhUQq6WBlceUFB7M2DsyYZ3EoNmy
ocqsHXquY0Mrt3eQKfuiHr/wdtwzMdPIEfBJzT15xsWodti7yCUF1XxyTcvi
YMz1dlzZdDqFl8onOq0PXuTeasfiFVuWph3kk7VeD7NE99X8NetPkVc8cvhq
qceh1nbU1CpknzRzSeXjRy9h3AHrb57ZaXW2kWBrTsWK+g5sNtc2dAx6Sbof
cuLbjAVIu7ZhTFZaQ9778zLW/fQvnrsNyf/KTSTrdy5Q+T4VgjWdINpYVQqH
HOPTpR+J4KfXnC+T1OOioZeJ5Gg3xLXXm0hlCywG3Re1u4rxU9uWt7XhXCxf
MqLFmRUjTSpbbO3dAU2SwV6dKYGTQ+vGqddCnNn8tHOhsxReWS/SG5+LUfT1
iexnU1Jgf0/CHQ0ZJuX6S/tSZXiRtXpOol4vKg86zE3e3YN7lU2Kcad+hDtG
363o60HevMMthu4DMO5y6siN7oXB1mbzLjc5tttGJa+07sOWPaXdmueHcHTV
63dzuH04pSgqM/anMdl0QxoU2Y9Yd1acf8MI0jQ9gw+YvkFLrbOEWzeK5aLK
HA3OG1xu7+0VPBnDvKuRh7adH8CAymGKbhwH6w9PtlT3LV4+P/ff+/UT+CGd
fUO37i0KdqTpN/AnUbs+VmtZgBzCcW6mUe8Uljn9YHFNZxAJRVbyXb3TEFq2
ckNrBuEwI2rlMTMoyYJpj+cQvom67+iiM4tjbJtlhqohGD/OeTr+n/eIiP49
Ulg4jMcx/eUpRxX44OICJ+/iYTTMX27l461Aut853T72MAo8o2OtfRUod96W
S1cMwyk+YJIKVKBvWRtHgwyr/3XkiO3PCjhnsbTWcYeR6fev/LtCBVY88kr8
8f0w/G/tPfv9rAK5BQ2HZ5XDGB30IhGMAhvT1xuFs2hQmxZOpmsq8fXVaXbs
PBoDUXY2HTpKXNmV1JaxhIavYaDPxdVKSF8/06tbTePXMA+DQ65KFL8xzNBx
oVEgCtd/n6tE7J3o46K9NKZD9KKsC5U4eWBozcP9NLxvBHkHlShhUFNT4nqE
Rs6EyypWrRJxSd/9mXCCxqhRVEowpYSfzW+j2qE0dpu7eoq1VdgtZz0SXKax
6PSTqdRlKhhl+10pDKPxpGmi+MjHKlALty5wiqLh+Kdnx8waFb7qogyuJ6n1
9gyIOTtVMInSc1yQTyPY0I49clkF1dYrH7QX0KiWjZhG/KxC55Dsn/wiGoVD
nBKTeBVuHik/tqeUhijl7/l56Sow5gcuRNfQuJNwbpY8UUHQ/XirO6ExZJu0
eGG9ClXJxirTOhox2LQ6qFmFANVILKeRhluc/ftsoQrCtqSsuVwaXzXzsgQs
BtUx0z5cvvr+xdlvj2szSLbzWpfbofY7lXHSSI+Bc55VxZciGmahu7g+ZgzW
fpsaqiuhsf+j+f3vrBloLFHtkMpoeF4ruCH/gsGTSy1/Rw6o+4kbP7PKnUGq
5Zak/YM0Us5EG8Z5MzgvzTxkTNMwrT/sWhTAwOW2pv7oKI1NqXnC0isMzFzO
dj+foPFS50Pn/ngGmnN4925O03hWzvJozGQgrrTzPz5LwzkHHrtKGNT4527Y
qFTj9doXmv5icNto0STD0DgstIpPYxj8D6wjwns=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601785#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VF8bAHAk2UKoJIWSylJ+IiI9kspSYWwRWZM2CYVUJElREpWyTbZK
[encoded data, 5429 characters]
4ucCPFSV+vvvHzG/mN6nV/P/4H8Pqfde
        "]]},
      Annotation[#, "Charting`Private`Tag$2601785#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjnk8lAkDxzXLxxWWlJJZjWsJZbeD8uanQ7mVbIdcy65KUUlbvBQy0mle
WTZEzty0kWjylIi2NjTyDDlmxjRrxTxqRcfMM9v7x/fz/fP7ZYUe8f2ZoaSk
dOgL//eg8CEvSINEtbGW+6lNYsI1a9fSAi0SLZnJJtybY0RppPcGjQUkVgU9
33hjxRjBcNkafGIxibtamsyKfhERYuSUJGCSEDcEL426LCJa/1lT7GFKIiM/
vlbPS0QYPbXtuGNJwruA6dWrJyLiisz/Yq0gITqYdc5gWEiQsUz1y6tIhM15
zEoqhUSGpZZXmBOJPBOb9HxvITGtUD7yfDOJULvg3bWmQsKblHHWuZGIMK0Z
ivskINRTJ/t0/EjcXH+qJKZaQIQHimfj9n75+cag3uecgGhfPbRYEkTigd/g
PqcwAZE49jSAe5BE+bLXhe+YAmLWuUp84AwJ/dJRI/91owS35E3uyRQSfEvX
6XlKo0Syms3O1PMkHJiwL+0cIbR7qh8WXyURM2F1qWTvCGERXJs/cpPE0Vf6
+g7nholdCbf2+PV86XWLY1XmDRGNzU3PwOKjkhPpZO0+QMQxP5z1tuAjxtq8
IJs1QDgnOTgGWvPhWlPwxOMjn3jm2lwRt4aPacN685QKPiEmW1Ib3fhIXPjw
DxUtPqE/e9/ZOpoPtcKRy6qj/UTM9+0Nix7xYem6XMPpZh8RvnrZjf918aG/
x4XnktxH7Fkbf3H+cz5+i3jScSqwj3BcvzqUMcBHql35wkD9PoKxqURHKuVj
Wc1GE80UHpG+IyWiw3AAv9+S/OdQxAui8uiWZTHRA9heG/Yy3qeHGK1tv9jL
GoTN1HfClU+7iM8RfblWca/wQGdJ19UPjYT1RlU6/N4QEqN+crzTfgLbilj7
bxmMQJCwL3iJ+C5OMoNNhAGjsGvYlszlPYbN5A+apJcA7U22Qje3HizQmVZr
/yRAwBXnvDM/voQykVtnmifEu4nM15AP4NDqewPqHiJkik1XXBgcQZVb6I3W
WRH8Dt/LuNImxPs3hl9Lssagsa8oZt3rMTTu3PZV5hYx5itsUtg2EpxxZRc0
SMToqIhfnuwyDtawO7+Y/Rrftqm1aHtPYL19SuaS7yXgqV9/kZIwiYBvuj/O
40kQ0qp5/+RZKd7/cVl0NOkv2NckvuvdM43flINifM3G8dzCyCUg4C0WjDQW
MdrHEdEV9Yub/zuoJCT5rTv2N5pPfmipj/wHShVBdSK9CYyFZs5tPTKD6Jy6
y3ptEyg0BPPxufe4b52mphv1Br6BikOx12eh6x5tk6w9iUaPbnZN8RyGbHt4
sdxJeJb59uh2fEB9PszEQVNQsW/K3jb4EYF1a3WZ9BQexu4cNpj5hER2YdJQ
pRQ/azE2nHeQQeukqvuPNVLoPfOpjNsgQ86BSD1JnRQrZ6v0ozbJcNtjXTHV
IIX8ouVHf08ZJLq97QxCiqDfdRu8QmTwyFdSs+JJ0cRizualybCoKfjKic9S
bK+fYCx9JUNxeceuT3IpOEuXNPsLZLDLsTY+o0RhzCzg9PXXMrglzNWlqVCo
YKvst5mWIX5zem+uDoW+6P7Fx1TkEHW36reZUhj+7sX+Ijs5asaZudqeFLL9
1PqML8iRdp0dMuJNwVNlnHOJI8dPvlPmtTso7Kv5xVwpWw4jLrfeazeFDe8z
UmXFclxI3/f4UiiFa7ZDET6tchxYe+2tRiyFTm86Nn1Gji1vlJoG/0vh0l3p
4rOf5TC+cSC+8jSFuanq40kMGv3qDqruKRTehSf1FnxNw2W43+h8OoW2DOWc
KFsaJin6rqplFOjc7snOgzRoh3gtspxCt+wwp/AYjYGpsRdlVRSsdB9Fp8fS
4Oy+Hbj1FoWhM2W21edpKJb7HmdzKfTLDHrnV9EYHG12+IGgING7tqvqNo07
mSzarI3Cr5pHbx/k0oiip9PaOyno5Fxd5POcxlBvev5XPApFnaWntWdo3E2d
C+O9pJDVZjgpk9PIdAy2KuZT6HqrZmappoBH6YqGTSMU6myuyLczFbDwz4rV
E1JIdd3tG2KpAEOHdhKNUbA9Xv20Z5UCLaf+fJL0N4VNFRvvLvRUIMt2TfqO
SQr3ORaOBnsVOCbK82NRFO6sfrF1IFwBz2xlw7dvKZTZnyq7ckIBS8/Dow9m
KLCcX/my2Qooz+sr4cxRkH4bftU5WwFBo2NEyCcKk/7GkQ+qFOBGFK+0k1Pg
rB+eudahQLax5nuFgkL55kfIUCjwL+nVffc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601832#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8Vc0bAHAhW1GWNpEsoUhCpc1TUlHImhZ7yxtJ0VXZsiTJmtdSUSJL
[encoded data, 5368 characters]
kGiHeajxzt2iP0fOv8zgfefPebivsuTPwgK5Xu1enLK5BfgfudnOWg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601832#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkns41PkCh93aaiOZ2i3WJYXNNqSOSBefOESoE9FlVUpWSFaOE4qoxzgq
dmrXqpDktmJrtFGd0/DFQSW5jNtvxrjM0GgKP1qX0sxvtvPH53mf99/3+ZgG
/ujzg4aamtqpz/s/R6UPWnR8KLRtr0y7HzNEIm9vmRbspVDn+cj8J90hYqcZ
/7vkAAVxlfY3G69IiSKYf3ziMAUby/eXnTZISV2TwkAVSMGsQWpbLZeQVOtt
Ap0QCrv3c5KKSiVk988JlwxPUSic2nFCfFpCls1UbV8bRWGGrOjibZMQ0UFm
1iHms9u5yVk6EpJX5chzj6fQEjJ9z3tgkLA5xCg4hcKjHN0yzuVB4rKsdi4v
i8JR141/6LwZIF/Gqv/Bu02BKvZ1eJI/QNp6nUKrCykE8dKm3QMGyKGCup7e
+xT4fxqcj+7rJ9Eb6iu+/h8F35yyjNi3fSTYdmXetecU2D5fNYvK+sgBu/gr
2i0Ukta0TIRH9JEtm20DNYQUZNvSZjtmxETDuVB3fJxC+YGzkTMsMeF6J4c1
GAhh96GLVxchIkl7B/22rxTC/U5z8+RWEYny2+r01FyIjO5Hh4oXici+g1PL
H9gIcfXuwmdXSoXE8FhQQ84OIUYTH1S/HKNIaaTLyugoISZaf3ymTOkhOVF5
i+gYIZ5rN9SW+feQ9GjFTGiCEFK3E3dLbHpIZGzFq4BUIfi3ejpSeruJfZLZ
Oc9cIfIDUrJybbtJPVere1WTEOw7Teym951k4H79lXZTEQyMI8/syRSQtjGt
0Q3fihB7s9L5bpSA1LBdvTLYIgyrG5uv+YeA5JU2aO+3F6HTTV746wIBCSxu
TBd7iTD6kmo1TmgnslvPuSMxIkQ/2XsmMryNjKU1/6J8JcLvD4MfC2qbyaew
zmzLs70o/N66UWjUQNY6zWeCn4qhdqlK84sfyolbvumJB8v7kSTiDitZ+Ygx
ClglOTSA1Dsn7+y2IGCP+i3q2TWIEM/E3HO9L7BUd2JB/dwgxEudjp91EUCL
ZPNW50iQfPKi5UVWD07aPhUu9JTC15w10W4iRtnOwLzqGSlC5XljbmcHMf3O
YIkscwg1lwJKpPelqNzrppnhMoxvN914sXrBayS6c25XyIbBdRL61NmMwLTP
gyrgvIa+I7+rwU2OzfbJGfobZFhstH6neco7HDJu/ajeIUMJh9EIvTmG6aZ0
aeSFERzIjR5M7KJxQ+tItI/ZG0SJAsxvTk1gaX9lvkb9G/gbTsl/+TCJeQkX
fB1Oy7Foud9kFOtPqN09wpOy3mL9v2v7vjCYQlQWL51V9xYedu5X5zlMo2pt
6gK9iHfIi4hgsf1moOcRxb64eBS1FiFBKcdmIbZq64jjj8IqxT6h89IHlOfC
bPjIGBY6l1iJiz7iMM9Oz4gZQ9p7afVI4xySOHcuiEvHwTsqSN+6TAGdmPke
x+6NY8XmJ5t99BXICjnFkvHG4X37snqYsQIPPR0K6IpxpPt+nLm9RgGZXnu9
BhkHNWftaLFNAc9ctQWWHeNwLNqTnR+swNePA37616dxDL20WJP5VIGCkoZ9
c8pxJC7R+ZmpUcAma61JohqNdbKH9mGNCuxMmOWlzqMh5syFerYrEP93bnu2
Lg2B1GjEbkQBaWv1srrVNMK/8QsiS5W498Yoe7EXDc0sWeGKSCVSb3GO9u+m
0cq8WvH0jBJBPmPm971pZGo0Pw9KUMKQzy/ftZ9GnMGGGy2XlbjM9W9MC6SR
o+mfrF6sRIjdzckv42ioNjdb6/cr4fJO7bHoHA2Nv7k6e7xWwiQvJL70PI0w
tWBeyqgS3Qs3zfdIpnFx3RLT1Z+UcO3rNrzEpXFebnJmZgWDVcnL3OcX0zgY
Jze5sJ8Bsylep6eEBve7nVFFAQyEY0OC4jIaWhPlVgMnGFzd//Dwjgc0/Dct
PXA9loHqO59/cvg0OpxfCJHNQDTwn01+hEaE674g20IGjzJMGbM6GqIPbdke
9xhEMBOp9c9o7NTW4L8mDMTt3FzNDhpLrp6MtRph8CRl9njH51+23ZPs4Ewy
yNgSYFlA0SjbpX/MSMHAs8i6wrn/c78xX1M2SwWL7zPjWBIaH8r0kiqNVNDQ
ZRylQzT4R2tvFVmq8N/YVy8uyGnIr2sfYpxVyLTayPUepfHSmF2cuUeF09Ic
X1OaRk3X8l/njqjgdV3LYHKShm5ekTQgQoU1XuEDNVM0RrRk8/UTVdBS7yy8
OktDOBs+WH5NhcHKLWFH52hcS1nsYPebCvywgnU2ShqSLnfvoDoVrpssmlap
aDhWrX97RaXCX1cLosc=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601879#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VPsbB3BbUWmS3JIoeyrFVaGbepSISJZEJUSLpSuhW4lIo2RP0iaU
[encoded data, 5429 characters]
68467iEl/+MLTEwlBCxxmRcS0SWF26sWjM/OEtCZe1arQjIL/weobjwL
        "]]},
      Annotation[#, "Charting`Private`Tag$2601879#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkXk41XkDxS9pSJYsk3i1KO+gNOOpUbSdd5KSpWIsqUgykaaiV0Opobq2
IkSLJVka2aIaMjNuvpFURpax/q7rutc2FPdLiem6y+v94zznOc/nec754xj5
nnb5QZHFYh2f0/999ZIBeW4ag3W9RYtjivrJxkjjcIcsBgf5WfsChUJiejny
WH0eg7obnttazwqJAZvn/F0hg6n336YUrBIStWirrZxSBiIbZvMCvoDIYlJN
N5YzOPPwXrJNtoBMxE3oPPmdgWL3uSSFAAERXnOUmxMGMad+ejW0XkDqEpU6
VzYwKGls5L8o7CNPk31q7jYzUOoJDuU595GCFE7Jkg4GduHBTdVSPrl2O+SK
hoBBQ7EoacKbT1zuDVqIPzEwryjuUN7WS3bk/Mfw7CyDxrgu9YtiHrHMy1Se
YHGh2tzwIfI3HlnywJU/tJCLOyl8I44Vj/SV1l1rNeLCu3366YldPaRlXGls
nQkXPgZf2pdo9JDn5raOqeZcqAklIQ2dXJJd9FLNYyMX+8ce1Acd5xLf/PoE
niMXnIktHc63GTJ893Xi36FclKd4VFGNbjIe35gifctF9N6h2QinDsL/U23K
u40L3Q/tmXrGHaRJ1cn1efdcthm3/yhuJ6Wxb3WvDHDRmLZoaVBhOwliN91U
+TzXzy4PdF3QTqbCW27rGPcg1usMO7PtLzIb2J5hdr4H0QJd1amrLcR1g1fy
1xE9eHT6xOrFgS2kRGE4ej27B2ECM0+P3S3E+85M8Nbrc3zZkfmWKi2k5qWB
nXNuD/y0tvjnajSTmBVHpsIaepD5S3SC35dviU7nuONrAx5c9dNa/Xa9IWu+
U5Ydq+Ihc9xm0/CKWrIr18j/sR4fSQ+aDvi4ZZPQpYdXCg/1IWmtxYTJwTKY
j7kt7HISgH1yhXJOfS10NCdU6sQCWF2vTO/8oglKJKNsVaYQJW7CRa2q7Tjx
bRWzwKEf7hV70184MSje7ZtdPd0Psa7kSuM+Pj69N1g0fGsAAxs/dZ8OEqLi
+13zUncMYpPZAS7lDSDCLupe+fAg9FhWeaaLh2HUa9+dFzUE23Vm3/+4ZQSb
NrJT9dcNI3Pns8HAq+9waFnzZ4W2Ydhv3q98vXgMnxoS+oMu/Y3K5+oj2tMi
3FHyDnExHsH287kax65NQIdfkatYN4LaZkOLjJuTmH/xkqt18CiedO0+Yfj0
A1iF3mX92u+gXC8caHnxEWfSyxK0a99hMr6rMGh0Cs/WxKponXoPDudorYna
NLTsz5hf1hiDoNfBpGbZDHhrW9rOccbgcmNPo9aef/AoC8aD3uPYt/XZR1bw
Z3iVbdBaKhtHToiJ5qE0MSKjci7xikQ4tt1pbRGdhXqosv2RhyKIgoxPDk7N
Ij3gpPZwmQh1tb0DK8Sz+NXBOo+Wi6DSHJCcrSTBsFZrnSIRodo3pLxKXwKH
LJaKWZsItW9Wt/rvkGBx5eHrZ2dFGFSz3t6ZIUFewUt3sVSENvfESv8cCSzS
1yyPYFEo+rFvSvIl2H1xpix2PoVaaneNxRMJLtgktmZoUjAt5GTdawn6m6t1
a1dRaJvEv8+fluDhyNIMDUeKW7kivtBNiti7UT78PRQstvVPfxySws9l/N+l
zhQRTvGl6UelMORwHjl5UKxTrXh1JliKq4kH6+N9KVJiR8/FJEgRsCFtUvUc
hTijyuv8Kyl2vGdVcsMpjt8x9RptkmJ5dsCFop8pxjMU3Pw6pehcYKVsz6bY
GaTZFDEkhW1vp2FcIkVO/qk8TyUZVrJ17ZTzKewq09/o28ogs7qg3lVAoVcQ
6h7nJAMzPvBXfjFFZtWVME13GZI8fvXa+ZiiWz98vZ+/DPLVLv+N4lDomvRO
uF+Tgdv3u5UboQg0OLgsN1WGp6lGMuNaiot5nq2LsmQ4JZuIrXtFESv/Ruz7
WAZea2LWvLa5/YyUVkuuDL9Fzxxt66AY2fKmemZQhtTNh83yuin2O/b9LKUy
OPzydfl2PkXpn7Y1H7+Q46sDt85pCykMC2/N+0dbDkVN2bb+gbk/9j4pCFgu
xx9hb99cGqWIlCYbdVnLcWutZaLzGIU6s36rsp0cwf2ZrkaU4qVlqrmGhxyO
t5UMJicphnZsumvsL4ep4499z6coHqnZJ+WEyaGk0H4/aYbC2jbtsl68HIKK
zYE+Yoq7NzxX3s+VgxOY942FlGJTes2/zIgct5cv/CSXUxzYfT8uSi7H/wD7
MIXn
        "]]},
      Annotation[#, "Charting`Private`Tag$2601926#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4Vdv7APBjCJWrDJWkRCoKuRLuDW9XZEymKEmuJknKVEm+IiQVknnO
[encoded data, 5185 characters]
VVr5a2mJhMrmn17VC0vwf4zouRI=
        "]]},
      Annotation[#, "Charting`Private`Tag$2601926#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs8lPkCh4U2bevO2myF0p6kdayiizrfEqdCRIp2qdhuW7pIJamNFsmR
2fbIdaJcKpLRJrn/WqFVOS6TwbwvxtCQNL8StZh5Zzt/PJ/n8/z7WAQd9d6r
rqamduAT//fv2ZEW/n1iDFdndugI+khRXJPRL/1iXLhdXnjUoY9kPtE+OTAk
xm8R3j5tJRLC+8yj3UUuRmN/ZdxCfwmJdEm0v/VejLZRVu2EoYQci/7fVa0J
McrautwUt3rJ7sc6H37ixDiRvy/mZ/te4qXuuf2ZBgOZceD41897iF1k85eJ
OgwOxDV4mGj3kPlEN4waMnjr2d1p8qCbGHKeHVtmM5C6Byd+EdhNxiJaUgwt
GSw62mNeVsuSgQq9v05YMeDbT6/JC2NJ+8QWP5ENgzN7zkhkNiwpDWv9Km0l
g0cOdbfO5DDkdGhb2jxPBrevlNc4XReTqYMvMqzOMEi2bzm3v7WT+DgEXLE5
z0Dr9XI9g6xOUjhNFrs0moFErjcZcLiT7Ez9GLImkYGR1rEvqmd1kj/qTTd6
ZTMYvjhj6bBHB7loHjh2+ikDnZS0sT+G24mh6I37n6Ys5hVtczAKEpLgG6ec
msxY+HzWIyCOQlIXrFreZsmC7V1jk2ssJKc09BewNixe5D/XNXzaRrpsl01Q
JxYV+Y2SffZtJOs/Z/JMDrE4pfLXUBi1Eut1M7h9lSwUGfvjlw40keKCO//o
fMRiUUhJ1H/5TWSZ0RavTQ0s/MprHq7e1kRWD6bmWrd+au1M/X1PnhOPy4vd
3spYSGK33RgrekaOd21ODTfohvnyxMWm8Y2kPCTJLuGnbpS49+VcOFhPNmRb
7L9n0oPULsHOe4GVJGzurvl9/r1Qa75Y/yMXQpaMbJvVsVmCtY2bU+YcKYWh
7lutukkJnEPi/F5aPYEmyRAs4Pdh93nbLUm9LTi0rLJrppsUayNfrSjYJcKd
TUHXaz5I4bGn9MnWZAbjr031ZMn9kKYM7o1ZJMGDrRs0kpwHYJd4V8jkS3F+
Y0xWiWwAxqJZsezYACy6XTtzYl7ier7okJf1IFYtj06abScDLzfcuuHSK/jP
a56YJpQhS1fvxtHy1xh/ell6LGoQ920t6icN5EjV3HnC23IIqyIOP04zfwvD
ngfZ6nVDmGifDFr93TtMPxflszLkFeZEBbzn+Y1CLX+nQGowjJmrEtcnBL/H
8XTBZYPaYYwW3rg3mjqGaus4Lf0jr5F9xGnhD7Xj0Hc9vuSCzgi2ho7aeTIf
wH7bIgyvGkHZDqvKav2/UJwJy4Gdb6Bue0y/0HECAQIH/bncG4g8pg0FH5pE
ZMyNKLZADt7ljSueP52CdtgM18C7cgjNZXutW6aQfuCwgUzwqQtDBxPap3Df
bWUOLZFjz8x1Gr6SKcj0W+vUiRwtFoKjWh+m4JappmUllOPP2IolgxYKfPlw
V+LJKTlCBk12iyIUyLldv31SKYeLpuvaK1EK2KZbm51Xo9ixw6bU86ICm859
FMRNp7huGcbv+E2Bs+t5rRm6FB41+RNGBQpIm2uMahdQuF11v+TTpcDdobkZ
Ou4U124X8sIclYi7FrO7x4OibLbGo1gnJfZ4v1lY5EXx/RrZh2ublJhTVVW8
2ZfC8Znxxpe+SsTzfmhICKIQfZ6V231CiQMOae8+D6eIjuEXCYqVcH6t9lAc
QbFnXezXAWVKmF0/cLbgZ4p6bb65ySMlRDNXzHCNpjAI+C7/92YlXLpFcy7x
KLIq6udcpUrMjzbaOOMmRcqh2jU8Ow7cirPaHbcpNBHDd3Xk0PWmv+3mHQq/
F+k1c505/Op7P+Df9yhejuxYr7edg2qxd2hMFcXw0JLnnhEcxL3lK7aRT39+
4W8YjeZQmmTBWdZSJCz0taxI5HCEextX94Sisl9aVZfNgW3lZWoIKZqzM4oX
NnEoi/34o7CdYsHhsUvenRySHHdZ5XRS5L1Mf9zQz8Etz6bEqYciPjTC5eYU
h2++Tw436KPo1uvf/o2WCuq63L+k/RRFpebhXxmrUHG6qTHqFcVW50vVmbYq
JH9rz/MaociMf/x0P1QIkfJ9LCjFSZMF1MBTBfcUTdN37yj25vm1MrtUWOQe
3PtojKJxUl1j3nEVNKe9yP31I8Xm4qDi0FgVJA8cD+6epLjTVxA9M1OFqoM5
/7RVUiTzV0kGK1VIMZs1rlJRUDOHuedVKvwNocp1TQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2601973#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8Fd/7AHBbUkpZPhXfJImyJiFKnrKESMgWkqV8SiKRLBUKoUKyt9hT
[encoded data, 5185 characters]
4N+VFap/++Tm8qUV+D+1Co4I
        "]]},
      Annotation[#, "Charting`Private`Tag$2601973#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjXk41XkDxa1DKbJENVSuEmFqqrckOS3KWGpCpSlRhuZOvdMiRmbMUNFo
scxLtis7heoqCaW+RkYLvbay/u61dlO4X97Icu/93fH+cZ7znOec53OMfU65
+SkpKChwZ/R/T1+46JS+OYP8FsMNq7K6iZF1pFXrTO7pmjeY/GM3+VlZ24T5
isG5+eGeAfldpP6/yQt61jIQS7+fyhwXErMUjqbImgF3e35HnZ+QhPkVKg9u
ZjAnUiMi6YOAtK9eN0W3MfD/euzLzb8IyBpphXjMgUF1nd5OEz0BufJ8R/+U
C4MiHcnqxSUMsfXyqFf2YBB2y7ZCUY0h1827q9U9GWg+S7xk8bCTiMe4j+Ye
ZWDL8zW4ze0k6Vd/yTU4wUD/bRNVa+kgk/uVeYanGfTfL5dsie0gezjXYo0D
GVj6zvG+4NJBlMpv/GoRysDT5/Z2z1ftxE9U6Yo4BtHPe5aHtbYRi61q7LHH
DHTW8fpfm7SSooLCFW2VDMLFh+tuDrWQdXp7XB1rGIRMGjg6PGwhtu+Tciwa
GTSMJsbwnVvI7qiVziMiBgFP26nN72+Jf/uupGAdAbboHrxbIG0m5Wfi11z7
UYDpKtXHxdsaiV2ntafspACWfzTnxC1sJFX2goiTAQJkXIqyLx5pIK8MTNv3
hApwK3VnVGF6A2GelIbOvy7A0AutzgMKDURhdmddWuXMPry+ySzxNXHIMv7h
noEQdYN5bLPqS7IuSdO0xlCIPX94j3149oIsjZb0dxgLccD45axNF16Q6eC3
PiqWQsRqlC+4Kn9O7rhe9vLYIkQFl8TXSmuIruLoPhlXCFvbT+bLFP8mXd6V
9o6PhLgmXK7/wPIvEmTkzenx7MJA3fKxsYFiYjm0T6N1Vze6J+W+Vz4lQldr
RL16uhtl72bPG7tNoEJ4fJPUHmTclX8006rFiXWP22c59yI1jr/T5ttmFDr6
ZDz93Iv+3Slp6ZVtGB9cNE+U0IePxw4+bS8QoMTdQTnevh9bJiFK+akHod9E
pD8Q9cPjHj+2tbYPxgKntuyId8isPK2fpSuCzYbw+IVrRLiydmR19MUBeC6u
n1JsFsGCOWJwseojxl9F9Z4+/x43xXkHayyGkaTiFeC2bAAXEuKOzOZS6ApL
spSqB+D/rlrybe0IVH87v3fjmQ/4bM9/cHtqFAr5XvxenY/wrfJxNdL7BP8U
fpTODJezRXwrwGEMTywi1bVPDiKnrnRBcdA4tJ38LS9oDmFq3D1kaeJnMFYN
zcEVQ6i2OWRe+2YCRWlY1u81jOihBfVNqlM4zF+vbcQO46nl5TLtzdMIi8g8
zxSIcbb/Z7fUXAnmBqk5Hb0jRlBBZ8PSQglSuD/piPhidOl5VN4skqDYeWM2
fSDGp+Pv5z15LIFIu7FaiYjhWaC874smCZzTFNTNm8XI+9zyZpFcAv1S7+hA
iRgXld2s/jwkRfatv/dPy8SoUbfsDjwqxeoUiyWhChT/UVTZ7/WDFI6/TfAj
VSnUwyZrbM5KEbI9ppGnRZEjqwk2uSpFb/1TvSoTilclTaefPZbizoART9OF
ImvDF0Fvl8oQeSPiiHA3RdF9TuWXZjL4ug0vv+tK0RwmDjy+SgbDioqiXR4U
BfIqRY6dDFdiDtVc86HocrfQV/CUgbs+eXR2MMXxlVsjS5JlsB9UKO34lSLo
+WKamSnDkgxuSMHvFGvnTETz8mVomWWt5hROwbcI3FFWLsMOQYvh5ZgZ3vzc
rNwOGTjhet+o5VEU5v0vVbiEBWsdMrf11sz/fd4ZkRmL9uG+prxCiu1S4Ua1
NSxiPYoP77xHYRV+vTPJnoV8pdvZiAoK0/s94ytOsOjoKrfeRyguVB49xwlk
8TDemF1WReFx7NQm+1AWJ9mRyOrnFN9lu79Qj2fBNMakKTdTNGgML5AQFmWX
Jr5vfkuRYZVZEVfLIn6Tt3l2G8UoX7g3qJWFc+5XD7YJKXiDdGLrCAvTgwnB
Oj0UXLKy1U7GQkmLtevto7C54RRWPFuOR+devzz/gcI7w77OfYUcCVb/inEd
omDteEql6+U405u615hScJYm5Ks5yOGSqLJodJTCnTd5LPyAHGYu/+6qHKP4
q2/EL+qEHCqKb3JiJygO9gT9WR0mR3fJpuNHpmf6ugy+X7IcFcezV62WUey8
Y8rJKJMjcYnGuFxO0Vk+mn1OLsc/olJ/jQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602020#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4VPsfx0VFCpElImXLUnHLLZV8WihrllKSEC20qCwVCRVdSnRLsqsk
[encoded data, 5185 characters]
s/A/Amu/tw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602020#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns41PkCxoe06eLeJg7J5di2xjl2WeyxpzfSyrXIZUu5lqRWbm1s7UqZ
jlx7euS+paV9RKilQxZfhF337LhOfjNM0rg0P6xLGfOb4/zxPu/zPs/nfZ6P
fuBF9zPyLBYreD3/7w9d2SsT4RR2+O3PCV7hk2Y7ihMWTaGgJixCVUCRr8vj
KwSxFMKnDD30FSjSoWk8cjSOwp4Hh2PvBIwS1/gO+eYECk/EJuHM8CvCnQ5j
myVRyNU01Lfzf0W+8dDwKkqnMJb9oPfGAo+M1lfHfXyXgihZbnwhhUf8Pzn5
6GYuhatvP6vvMOGRN7dZ3JX7FJSbNMX93BEiDnIw5pVQ2PaU1WXNHiGsLa+6
7jVSyDYXjnzPGiYJUXHLKm3rfjmMlcZvQ2QzZbg7vpPClkdycpcuDxH1Jxei
ggYpZGTpenxYHCRGXozWntl1H1Zse4dsgNj/rH/2qSYfrvlp078f7Cfm2crG
bTp8mA9lffSxRj/ZnSaZ4OnzMds/WiYWcslq7ECgApuP4gBbe9MELilzu+Xr
fYCPTBWfvb5dfxINuXlPaQgfBsthZtTFPiLwa7RzqOVjImf6zMhYN+nyLNvg
S/g4MHS5byWjm9Q45TZHtvAR46jpEOfQTe5YRh/I7+FjbHiXeWNlFzmksucr
WshHSveZEz0pnaS0Id3s7lYBFo/I3Yw50k4u6/oZjJ8UYHY478bDba0k8Kip
12iAADEmnmaizhbiekMuaShYAMVy6oug5BZiPFU43x0ugH/dv2lmSwvprxI1
1iYIsPO7K6HV214QU+dIv4zHAoii2V0pWk1E9D0n335tnS86P675qJawZz23
DrmMYTc7dGp+pJhoqMwptqyO4ZpKE7G5XgEFkldhmD+O09c0XpybfoHz5r+N
bHYSwiDCZrhM4yVKHQILGpaFKArYb/2wfQBLM9qqk5mvIV+Rr01N8fDsmP2G
DLsJSBR9ym4ZjyHuMOd+1eQEHtRbiAZyhNCnHIcLOW8wWPart+/iBP5lmZCh
9fkkAj87eeTDd29xclfvBznuJFJnnOeM2qaw1JEqDI9/i57tze/nMYtsBd9o
dyMRfEy9jSaSxNDgP/tZvkWEtRDHl8VBc9j4Q7zHlxFT+CbY9KpLzjxYj3wr
hOrT8Iq2nD1du4DI3IpU9eZp1Kjk8kcX/0L9vkRFtbAZsC/Fn9JmL0HNMZJ9
XXkWlgqPHQ3dlzFq8pIbWzeL8udaJfuyVvDkHowmfN/BP/RvUed63+NUhYWa
LrO+XY/vs1FexTXOg/jREjGSPuFmaFyTQOnyJseAMjEaolZ66zkS5IZ8qz5Z
IUaZTWROaLIElU5fFtJVYiS4WK50ZkowqdbXIk/ECE+0aC0vk8DpHkvxU64Y
Mf62kWuvJNhR7Zd2SSJG/H3qNct6DYXFrV6rUjG0lI7xVGzWYJq7Ty+ORUPn
gkuTgf0aHH5YqUjcSOPWrHyBx7E1XD2Y3penQqP/QGHE9Pk1CHsbtjcb0ig5
ZxEu/mkNZSLdPGVnGpfm3NaWN0qR+BPHn+9K4/bLCVG0khSn3d/9vdyNhorz
QrFkuxQ6dXVPXLxpHDxqkmhkJEVSuk9bSiCN1LO8tGlbKUIscua3xNLYeDZi
U+J1KexmWNW8KzTuirNYVUlS6BWEXC35kcaAdkn/uztSDG622uSYQGP8jww6
pVCKQ9Sgzq10Gt8W6Vf+p1UKg4Tthzf9QqNgyKdbQYkBY3VVaaiYRm5wWvvx
HQxG3r3+85dSGjXJczN/6DG47V156uunNOQ/mtOSfM5Attc9ilNH49D9qLbR
Ewx4gudWnoSGVfXZnaZnGPw3Q58xaqZR7ziV+vgigzBmLrHldxrvDzZXsjkM
RvvS723g0tihpjpZ+SuDmpsrQdwBGr6lHLvnDQwyrP0+LRxe9wnZaabUycDp
4T+qbPk0hFF+rNYJBsYnMmPVx2noLU43YoGBvAqzX/h6/W/rqmrFkqE2prs9
foqGbJdvz6KuDJkmX6S7zdKIPZ73418mMkQI8z30aRoK9UOqM/tlcM5S0J6f
pxFDOZnqusmwx/mCoHGRBq8/oVR8WgYFuf6i2ys0+kzqvtp8RYaxZ9ah/qs0
2pr2vqnOkKEutPCfplIaS1NHfdyeyZClt3VJJqNhm9yjEymT4X+3YWdI
        "]]},
      Annotation[#, "Charting`Private`Tag$2602067#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVl3k4VG8UxwctosbeKqKSok2LEo6yZU1liyxliUJ2KUKhqFChElJalags
[encoded data, 5002 characters]
KZuehf8Apf9IEA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602067#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk2lU1PUChgeQgEhWFyKVy1oiJAkKBqeXlJBlpFS2WGYUlCBJVk1uoOBl
NxaNkIuIEOBhSYHLmMj2I2SJDsgmDuvMwNAwyPIfFCSZ7dqH9zzfnvN8eQ2D
Ik6eU6TRaCFv9w9tI5cVrjVycKH21tk/H0wRLrPdybWJg+JVJ+MvNyZJn9d9
JQbhIL3qp8JVxUnS6F7YEd3JQXJaop9K4ASp+DwtKa2XA4Ztmv2O0XFy0zbW
segpB04mEd/5M8bJVcsz8rqRt/6s6WzLV2Mk3NijrWuMA6uOaMPo3DHyheZH
DtQsB5e6M9jO02xyQHm7WEnIgUg1Kao8k032iBWa9JY5sAlsXaqyZ5O/BZO2
RzY4oB8IL3l87zmpacux/lmdi5uP2DHKBaOkgBX/skqLC8n1/CttvqMkuTqs
vm07F2er8noW9UcJI//ofqEBF7HbF8j+smdE+8KGub0NF9U/HLy70D5Cvt/N
NJoJ4EIm3yHfNB4mQV9ZeU+d4eK9V2Y9DmtDxOM/CpnsEC7mqgsc3ukaImYL
Zav9kVx4/jLc8X7oEHnGErY3JXNht0b7vKlhkFjRo5l5v3Jx2X3ZeKPpKRH+
O6XomISL0xGvlkKHeskL732hpTQeeDdY/ObUXnJapKtooMSD1rpGeaxDL3E3
/uugvioPvgk2lRpVfxCjjLQ7Wjo8DNrEG9Sk9pBBz75wqSkPejNq/qITXcRi
yUudfZwHUUaFefme30mjJ51kfsVDSf/OCDm7nRxtPRLz2SkeCm7yU+7caCd+
2fsnK3x5CP06THBHuZ1kWKnVxAbzEFkZ52Q200oEsS1uOnE85BZseCiVPSYl
UqPM4+Vve1u0fteLrSe6miLVzk0eaN1pmqxziWQLuV1rXDSDwfGsLBX3Rpy3
aR5Xc58F7cvLdp869qLGNaik7fUsPA0rFiWVw1hf1NcS5PPhMtFw0Ux1DA9P
HVPKc5qDUz8/T7diGlddUu6yBHMIWZswReAMDKfdxspS/sJP1n7Lrn18fGqb
nPf+AQGG2EGKusECBOwZeKMwIkCEM3/qxhMh1v/Mmo1Mmsfr/IxLsx6LKNjC
iD1pIsSVLtfgI1XL0OU8/EWxU4iQnf/LNF2joJyQ5Hk4agFLT3Z1H7NdBa2K
UTur8wIle7/uAfMlogtrs3Q6XqC+xjBMo/QVWvelq2pfWMTHO9ut47hr0HaL
trimsQSXK32LR997jSnLwZG4liWUD/vTB3w3UFcMkznGMvyEznrBBX8jsPaQ
9m7ZMpjid1RXOW+QmFKaNFW9AovW+cvmfmJs/V7F7cz9FYiyKwWbTDEKQ7/T
EdSu4JRUj/b0nBgN7ofLKNYKrp3y8ImPEkOgPdSpSFYwWSFJ30wXw72Yprp3
ZAWRNvJdKY1i7HjEzL4oXkGYW7i9gb4EZZVd3pvSFRxmXRH5/ksCq8J9Bldp
FHbYTz7JN5PANWGjNl2ZwrzbTRUDawnij+YM3dakEJv5eCGYLsHsQNu2DmMK
MbENMwNXJbgv3H1bg06BVZFryH4hQfqdlNMcDwr0AGeXrJcSnD25bPrgBIWD
a+tV9E0JdrW01B33ofCk8vpWoZoUmTn+3T8GUdC6PhdVsFeK0EP/XX03joLg
V681o/NSOC3SHk38QCHBX900J0YKg5LQ+OorFALMR0fU4qV4rman4pZMwaFW
XmaRJcUX0893ZeRQePlNdKJtnRRGydtcVO5R6DuXHi17I4XMLn4ru5LCkGKr
d6mSDOPL/OF7NRSKLn2Sz9wqQ65PQ6BzPYUHA2c41oYyyM1PxqS0UNArrgw8
7ybDBPexnReh8AHjXV89Lxl+yzOUmXRQMHBSCBQxZbggE6V39lDgdxnxLS/J
MDWUU6w0QqHZUbf7eIUMjakbwSOjFH7UDOO318uQZ8/cWzZGIftwgE1qmwzu
FR+zjnAoPPVKYFqOy2Dmlx+nM0PBMdt734fzMihqyj6b5VOwEAz4lK/L0HS5
vzdpgUJ/zJhJ4jY58i0P5pxYouA7/2HzB6ZyRM0WeRpSFL4J+Lmt+ZAc9Ftb
9FdXKfj8xhKUu8rxET2c2/72B3Vx6nWODDm2KDwrz92g8JqIHjpelIP30P7b
05sUQu6W+shz5Gj5tmy/lZRC0Hjy5ma9HLcM1NflcgopjAep5+Vy/B/immOo

        "]]},
      Annotation[#, "Charting`Private`Tag$2602114#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk4lWsXxlGJzGOOlEiKJkWDkpWoI1JCkkKhjkwhOkSJyBjVkVBJGUrK
[encoded data, 4880 characters]

        "]]},
      Annotation[#, "Charting`Private`Tag$2602114#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkns01fkaxrdbUS7bZjqrRgk1UcJqKmSOZyoJWze5tVMh54RUqJmTYcTk
PhPNYRByiUoZNhGR+mIUmtix3ZL4bUVC++fWhX07+/zxrnc961nv+nz+eA18
z7n8S5HBYPjJ5/872aJCQZFBweuyc0rz6QEy4b7Jv0CeG4b35LdXviTe0zqK
+koU8qd3Wf1U2k96E8XZOSoU7ELdUjWW9BO20ei2VaoUvDPN7bIj+0hDfTsv
YxmFq6U378yr9pHt7tUBX2lQUF+5eJeZ10sME+OvM1kU/HaUDwyN9JBMw2DL
ZF05b8j1if2VHqJZ79m5/B8UggY0DkhsesiC0ERlqR4FcZz3rZbCbvLC9XmQ
ZD2F7ur23WW/84m9sGpJuDGFtPXNJXOH+KQ+/nr+l40Uineu7W3V4ZPbdWe7
58wpOERcb8vN7iKRa7W/m7CW8yU7CyxrO4nplNvyvn0U/Gs05nNXvyAPXJ1J
0kEKnnONWRZdPLL70a7ztocp9FsFBP8QyCOcZPNXNz0pMAoTNlbndpBEC7WS
CyflvIOM2gzddjJ2od6JFUYheM2vxVzTZyRfYpi0r0h+P5WCx0PNxPTfK20V
blMYdwyx5CQ3k5oOrdmqOxSsinPMAmybSUee+IgeV94/tzjfk/cXkezsNZms
pdD619cON041EU5cYlsCT+6L4BWb1BqIjta0avMiBWbjmdZTzBrS9Sgp3lFC
wcL77FaT5Gry36D1S3gyeW7r0fJQryasZxylAWUBDirl9M6o3Ses2CcSWlOA
70v2ixfUKglTlDX7tZEADWxPA3urMqL+bs/gebYAUVrDHaOKuUSZZHONcgRg
1FlkjKdn4/TWhy/V2CP4PoKvtaGhESWOvvmPP42gSL/OsKioAx8nVzHH0t8g
dPS79lBJN+4f3quUZvcW+cplIcmvB3DJITavauwtQnztWhTlf2Dw2qm/MHYU
8amC1J5rI9hhGZO2cssYROE2x0rtR+G1hregwB8Djx33crD2HT4+uzISHP0O
JG95/JDHBDKVj19wWTeOe4GNGlebpqAzdP+GYvM44irqttzQo6Hyc7Srdch7
xPyI2ED+NBh3jnNHWBPgGHIuxyrOIjSLe4XVNIHeV/GR4+w5PNqUoKp9dhKx
M5zhqt/noe0UavqL5hS2Jn7rEfTkIwY3v+CH1U/hnsqUe9HKzyjPxbq3xz/g
YcHt8ArvLzjG3a69WvoBHTtyNVdwFxAVWxA9eFcIY6NtDf3fiqDxn6VOPqVC
7E8PEPCsRcjyP8Ma4wpheIP83QYRKtnWhXSVEEPJqWueskUY0+5sViRCWCUV
1ApOisDOZaia8IUIcbewL00TYUXNieQfREJMjZe7jX4RobD4ifuiRAjf0IgD
TjIRLLI26V9i0AiwzfyjUkUMx58/cxNUaBRp97BTWWJE7E7pzNaiYe72zivR
VIwR3mPdJiMaLjp7s3x8xCgdX52t6UyjUHT0QjBPjITrsd5D+2kIitXDTvSJ
4efyYX3ZIRp7j35a6zkshl59ffk+DxoxV865nqLFSEo5+vQ3X3k/W1yjzJTA
f/u1mWVhNK7xFKqjD0tgN8moGQinMTvwsNPMSwL9fP+Iu5E0WsIZzEk/CXrV
rJY6xdCwDWEqpf4owZ7XvXqJKTQuH+GPlmdJYBij67D0Fo2fLt980zImgdQq
QqOvmIYkMCmqdlqClx/edN0qoaH3d2B5y6IEVz0qj9lX0LjnsLoJWlLINrqc
j62n8WCOk/XCWoqB4VorN0LjyJl/GvfbSVGdZiBd10TDh9L9U/2gFGel0wnN
LTQMW8svqZ2SYrAzJVeJT+P268UtTzOkeBD3+SS/hwaz57lxcZEUaTYnTAr7
aTyLdJQOV0jBvmlWtWuIRmuj6/uL7VJ8w0kPYwnkPppfFOdeSaGoJbUdeUOD
dXrY69OEFHUX29ui39M4oP2H+vwyGdI3b0s5NEUjijfFMtOTIWQkx9WAplHd
5b75opkMzhnKq2ZmaJz8xnLDql0yGDsHDTfM00jgRm3/xUMGZYXuoquf5b4L
nyYCzslA3bcJ9F6kQYJ/22Dzqwz1gYXmFhIaJzJFPjllMmToL/8ok9HYb8Oh
/GQy/A8+iU3q
        "]]},
      Annotation[#, "Charting`Private`Tag$2602161#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk0VV0YxiWKZCYNSkSl8UpJJW+lZCxk6EOmVFIJUfkSkeGSSEklUZ8o
[encoded data, 4697 characters]
AsrcU1ZzxlmI/XivfOaXCbimJPZ7cpKFh3LinPLxSfgfaFjdRw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602161#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHlUk2cWxgOyaVkD7RRBAUELIlOtVFmUp2WxKOhRKkLDiLiMIqUK1rGl
IssgGumCzjDQIgaURYVqxCC4BF+XMIgbSxCUIfIFkriAeQFFC8n3ZdI/7rnn
nuc+v/Pc67Fld8zfTXk83iZj/dl/tLx+R13J4MZgncqmqpdUsHMKVlcx8PYk
N+MW95IF251DTE4ziP9xf+9j+x7S9NBuvOEsg+g/yjdLkh6R0KUWNcm/Mzhj
iGqEvJs8LNd/5SpmcLnpXokkvpsIrF7bdNQz8Je0OR56KSeatBc38xoYmGk7
JZ/nywn7eY/P8BUjryci8O6DLiKsva8QSRmoPJwXLs/oIk6Ot4/FEAZvnm1Y
m+7dRRaoxJNXZAzS/P7Tzj/aSQSHjrQJ2xmM1jp8wP7QQTTa7APLuhgIBf5+
fkEdJD1u36LRbuP+R81r6ybaidB7629xfQyYShfNYl47aby7bOc8NQP76MRs
5uMHxNFu1Eo2ZfRfNHUbedpGupoLDq9kjfw5Wklsbhv5V+pci3aD8V6ldm+j
Vxvh3xVM6zNT4rn68GdLdt0h/PwWltoqsVDtMjPkvVZirysdd/FU4s6xj77a
uUNGrJ9F9H8bpURHd++Ki7aEmJHjYs8yJXKGTgX/Hl9H+paFRw6IlOCNzz5c
sLyWiK+OMKUnlWBaP3Xf7nmWCBqX8/mnjbpp2lrz8RpSf25gL++iEu6qNcMZ
padIYplnkKLVyNv676C984vI5Yw6WfFr4+wz1fi18Ai+9r/2ZHrUIDp6rbn4
5ouoW7ml4vrbQeT0la5L2NaKieGZ9priIZh5tQtEzZ249OUX04rCVRDuyXxz
WtuL7Mj88gaNCvd5kSeb9yngoVj1uDJfjXkrz/H0AiWClh4scv5Eg9DAfYej
3FX42+z2SRO5BlPJR82VpzWYuPvzYFruM1i4CnabC17gV7PEvTFez2HKEguX
nmE4Pr10ylT2HJIdiwIDPtPC/EDu+sD0F/g+IOJI5jej4J1NFA/yXyK07X95
llVj2FMq/pl/6yUUzRJRxMQ4mn2FVg67hsFbP2YtDn0Dh1V7FvzTdgRlLbKr
eQcm0O/XIc+QjsD3tdVE8ZO3uCCClyrxFe6vzyHh3n9go3iJwyzuFVztSu5V
Zk0iJ/9kbn+tFrqQlg3v2+hg853lqs3ntMiakX95saMOpcnf8DViLW5sH+XF
OusgiQqspA1a8CNtUyrm6qBx6JSZEi3aKtyqE0J0iBLxrHzkWjx8fP5EapoO
HzRt+uUfOi0WWShqonp1qDzTsmGK1UJd2vVdv0KHhaW+btk8injfLbfTVTqs
PPBOLDSnMHdP4teO6ZAZVth53I7ih/uxp7601mOw/brTLU8K50CTR2Whepx7
Puu4bTTFpVkmeqlED+GJ/KSnayjO9zkcU1/TY1vMq7nn1xn9Njs++VCmh6tU
emF1HEVwU42orFuPgsKE//60haLn4QaFz1s9kpf8NjYjg8Ji34Ww8mAW4cO8
pr79FOITeTa/hLNwq0jOrM2iKLzXXP7TahY90wMsVx2kqFrmFHZtE4sIRY/r
kUKKbcoEAT3IYs5Bp0jLGorqL8zcN8pZcAGZNr1nKEZanOJFChZPXg111dRR
7P5QupF9xuJonGTjinqKrGyttQvLwjA/5tt8KUUDbthP9+HQN3AlIJZQqN/Z
Lkr159BY5MF53aIIu7N5KQcOu7hRoayVQj9j/m5pHIf+zkLRNDnF+IghZWYB
h8uH3m2VP6Ioy05LSS3hUBS8yafyMcXtoW7uL9Ucoqr/2hD6lGJNT3VI9U0O
8wTFGXwlxdWGhGknOziY2nEhg0MUsenjb30ZDle/f9CW+4LiwfuTv64xMaDY
79PCdSPG/NMHrng7GpA+WLbegxr/zygls+cZEF1iNnNszKjvWLFrf5AB3tGp
AzfeUEyFdarq1xpgZtJddfQdxSRbdCFvpwHMpeCUpCmKIBmXlHLIAGlK5ccL
2T95OWr/OgNK3N6bMBgo6kmWd6LBgP8Dbu4sdg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602208#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4Vd0XxyVTiSQUL4k0UlQqpFappJCxZBbSpN5IUS9FRUilkgpFkZAy
[encoded data, 4636 characters]
z8L/APMdt+I=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602208#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs81Xkax486cjkhNIaGxdBt0/BK0yq1n2mo6DAjl9Uqh1wmGczoMssS
TptIR+yMjWROJjvlko4SFdYvt1yL48jEUn7HJdfzRctxOZc5+8fzel7v1/N6
3s/z+lgGfecZuobBYISo6v+95MyjkfYjNJjvv8pb19RDuTmU+EtcaMgSNqSV
KkXU+veHBs6xaRTa/+anv1VEdfxryG/ZnYZLprC7Mr2b4jnH9SV40HBmMq9f
1O2m3D58dJzpRSPnJk9wmy+kWHfKeq/60AjJ0PS23Suk2jzYPnrHaUx/2/pN
5H+7qDTlqCjLj8Y2zTfn7/yji9L2/0R4O4DGG/+fpK4NnVQbq/LrzUE0jkd2
zDNtOqm0Ko9XxSE0MjXbi3i5rygt4yvtFWdopBb36thfeUlpimab2s+p5oMW
L1PS2qkW7jXnYz+o/vepi2MZtlOpdlsaemNU/kr7g+v5bZTG9RPP6YsqP6/4
fltVK7XO9UWVNIXGbPhy8x5WC8Wkbgms8mgs+b8vF801Uv37nV3e8WkERh+O
UOc1UoKq6aHcX2g4MO7c4mxtpPwqDxgY3KPRIi9K8TrVQD0sfXee8YjG+F3n
NB26juLkWe0bbKbRdXDtK+sNtdTT2JLGGx9oJDmbecdnl1PXpV7+nos0vvig
o9i89IgKviBb0FmmwdDbllDw10eUbrT71mSFaj9fqq5h/pAKDSNXz2mJMXSN
+2IitJQy8LX/2sNcDMaCWbHRUgH17e7qPi22isucuoxqvqOed72+/9RdxRan
/1ls7099FDmbeNpDxXZ6hzVF9qB+3bylyUfF9hnBz/efheHHmWeTAlXcVpyt
vngV1cshLOkFMZLChxNGUn4Gi9I9MJIvRr7TgZ9iOh6gxDUov3ZRjMA4Tvm+
m7VYmNq0YezGMAKnpCkT4R2o8DqyNst5BGXOdbLBjh4kuiTffjw2gh9NNA+v
8vthOXj0TUHyKFqDIthaOkPY96fLWSa7xnDAh1XEkIhx8g+dy2qiMSgWq+7b
8Eax0JYu/p77HhaOO6sPeo8jh8k572k9jgfbuHas4UkYvq24s6ZxHMLWjh37
OTNQv8j13hs9gd1N0Sf3qc+CUcQRiA0mkXWqMSzDaQ5ncwXpBvWT2D1omrSS
N4//7EjV1I+aQtSu0fWH5j9A/+hZm0u60zDpMZ+M3L2AgZ1dotiaaZQHq3Vm
5iyijA/rEdUd70SOBYtI4S/Yo2+mmEEgD0E892UkJf/CHSiWoN6szLZ3dAU6
f9M4eqpUAmO/3gjT6RXkhkUajAkkaOe6PAidX0E5e28BeSzBhb7+YDXlCsb0
hY1rKAnupl+6zzFeBZvP0NwukkDch/ln7FUYPQm4fmFVgoSbwX2uFasoKGz6
y4pcAtP5KkuNmlXY5e4wT2QQ9L9zNGytX4XrRakgVZ1go1HX/hNdq4h3yhDe
0iPYs3Wpu2pqFeLO2o31VgQN0w6b/m4lQ+m42S1dN4JrZUbWldkypP6cHPj2
KwLbtR+vN8mXIcRzZvODYwSxKV+EXymUwbSmpszdl2D+SV0O95kMaRknXvCC
CL7XDRWqDcgQtufmnHYsQVyUheEPVnI4TzGe9McRxDREBdyzkcM8Pyy+OIHA
1zHpk4nP5ejVctA4epmAs45vnu8ix6HBXtOrGQSfarPpmSg5Pr280UXjLkGN
1zd1zyg5FA7xOr8VEhSua0xjt8nRNzPcfbeEIJETESDrkSPTt9z/8EOCTTk/
FtZNyqH8o+e55BoCE2avYoOxQpXTMwcfiiAQJ150WSlQmWWpsK4nEArVztTZ
KhClmE1tbCbItOW4OrkoMCDM4K8VERRt9z19JF6Bp1ekwaLXKt+l8GrtNAWy
HAO2F7whMHapCN6RowD7188ef/mWwKhSrUlQocAWvxuxBrQq7/Mpgs+aFFij
p/izeJggkl/d/OVrBapiXrZyJwisGZml6VIFbuz8POPYNMFtG/cnWtpKRIvz
vC0JQVg1lVhqpoRbNnPT3BxBb2qLQfMuJba5Rbx7/j8CSVMYXrkqwVTr+Xem
lGBxmV/LC1ZiqMIxPHCF4GRFzNI1rhI14QW2dnKCMQO0NNxTItuctaBUEri2
3fP3VSrxO9sYRfY=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602255#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVXk4VWsXPxlChAwVl0TyUbpESshyb5RMHUMlISQp6ka6uClDEoVUqKQ5
[encoded data, 4331 characters]
PcvwQEl0ZmWFBkMjp4WKpRX4H0/FIYk=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602255#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs81Pkax8elkzjuYgtNrNqiNluyI+f42M62ibKSKNsgq822y25ap3WS
S4vGVuh0Q7ksJZkTWpcVww+NlMolDW0umZ9rg/mOLWbNdef88byeP57X6/N+
3h+78O/8j2gzGIxQzfx/17qdnU+bFoKVuY+X9d5zyjAh+BJTLIRN21FXx9xu
ipZrbxiQCPG9iGM11NZF1cVx+VffCrHaMmy35+1OKkO6j+2/IEShqHV72L1n
1JexinnDRSFKg85eCBc8pVhvb2Y8lgvB4YQ61hs8pYyO7/kgVSWEnrHgouTz
J9SYeJ7y1KKRpf9BE7Ogg6r/Nv+AQocGZ8T16x3Sx9SRSJJ+YhmN5pjAh3/y
HlHbJq7Zb/o7jbCd/Y0X1z2iTCI8G0RGNLo3/VKrl9NO8UIvzhy2oJF0JaQx
Nu0hZRa05XM/Jg1nlxzBOIdPTb0YmDSwp+Fl0PePD034VKN/SlK7A40/JcqV
DTkPqEhfwT0PRxqVSTsVOlWtVNOOkxYbt9IYORNzekDWTH3j0vD7Mh9Nvt5k
elp2A9XcLfhf3R7NfYlNue+remp5lCTxqB+N1aw3R0W29RR1a83atv0aP8rp
XkBZHWVulRWTFKb539LzE7e+GqphMcJAGkvDz2lm3Pq7SsqAMvrnWKHGl+3G
5BbkUNxd4YVNCzQKN9+4FbnlNlw22HlgUcOvvDD8wrkUTUYjA5Rcwzc8m5e+
8Q66e9lWLYxRrO7MSu9z4OId+2DGA/1RNNsmr/Q0qIBHjF/8o1WjyGpiXrpx
qArduR4Hnn82Cr+yJ07f9NZjfnqlycTVUazzPdpom8ZHzb6dOpc/HUOr5NxZ
8696kOiVWlA9MYbzVHRU8pV+2A15vyxOHYdvSlfniQND2PZxyuUVmydgbfyf
vG13hTi0qmtRq3cCpzjjusKIMcx3XKC/T55EjF5B9tYdk8jWDfnB32EKec+c
b+yfegPz4Zoibf4U7rp0DQzFzmDJ6eQAt+NvcP89bl2JCwHjTkgFbSbCA/WC
7tCIBDG5FRfMWkUINg+5/WL7H2h04uiZRk+DPc8V+Ba+hal3zIYzRjMItHxa
oi96h8GN3b1xvBmU/5vD+TFwAZX5cBgLmYU0yilbUi0Fu8LV1FY1C7MqkXez
9SKSUn9JHiwTwzX77QqTJhkMTy71PnxXjDMBM4MJfBlyI6PMJirEsPpovEXS
IUOVj1sxqRbDcvOGFcP9MkyY9vC1KTHUOsbWI3My+OQz9Nb3inFwUaV/bq0c
lr+FZsTKxfh4eRu3779yFJe2BcqUYhyK2WLdkiOHc64TM5FBYFhXFF5ZKMeu
09IKzhKCbvbt9rxyOeL/ldlz3ZigKC5ufW2HHHRXk0Xr+wT7JJfs5nQUuDtl
e91oN0GlfmlRwCkFOHmpYcO+BHsFrF//+EmBCP/ZNeV7CVoPNxVdP6+ADY9X
uSeI4AvjI58Y5yvwc+YXD8+HE9hHLxtMbVEg0jVnTj+O4FFnsA7DQIlPpxm/
vTpFUDD65P4PFkowCyPjyxIIbKKkHJmtEn3LWEu9Uwj6g0+2uX+kxI6hPpv0
TILphLXSkgNK2KdYeC0tIWg+kT79kquEihVv2F9KcNh9jT+vVonfZ0efl3AJ
jhUvX9LcokRWUBX7s3sEupOpppteKqF29D+RyiPgeiZ4jP1NhVev77P2Uxre
HrzSMleh9rKdyqGVoKqm2sefqUK0SsLhtxMMR5T55LJUGOzJzNfp1fQV9H7P
rmgV6tKkX/YKNP3anxYmxqtw2T10ffFLAqMiWxOrcyr43PqwevswQe27wLwr
d1RYG3w1zkxIoNU875VzXwVtY5UHPUpg2XdtM6tDhfofnz1OfkOgvzRqoXxW
hasbt2bunSEI5fCHOxlqHKdvBNgRAquvyjPsl6ux+5ruyrk5jc/rVZ5yRzXW
7f72dfM7gsSfXxcLtquhq/XiZpaU4OLBUO5PbDVGatyPhck0fYvWt+fHq8E7
VrzJWUlgWmSzzeumGteYBvNqNUGbt3uCn1qNvwA5pyIy
        "]]},
      Annotation[#, "Charting`Private`Tag$2602302#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVHk8Vdv7PuZ5TEqJSLPKrSSRVxJlSlIkhUYlIrr4mQvpVgghJCVdhchQ
[encoded data, 4392 characters]

        "]]},
      Annotation[#, "Charting`Private`Tag$2602302#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUHs01HkcHa+jEhvZdiuP6KVspVKpdt2Naj1rky2RR20P1a5CDyKpg6YW
YzdJ5JWySSJvwlfem7OYJinJ8hsNecw320hmzG929o/P+Zx7P59z7z3X5OBJ
l8OqHA7HWzn/757Gvt5AHoP0yo+TX937m2h/edKhJY5B4qSzes5YCzn4+Krh
+esMzDbGBug7PiOlznc/mCUwWKBvk+g6/y8yc6i6rjORwSyro0u7DZvJgajX
CVHJDHyvzjhhbt1ESkwlx9alMgg/9/vZ5oBGokV0vutPZ2A3sMnkUEkD8fFY
Nut6JoOy3mQmW6OBFE/YCrdkMXB7dWbtPq964m0RfDUth0GQcOPcD4vrSGGG
sMO9hMGprgKmRFJDplmz96eXK/20L9o6B9QQz66vQ8ueKP0ajCyWigjRnL3D
dM5TZb5/K1avllYRj4gyP34LAx/P15zT7hUkf4FgS3grg3YH1eT9oeVEo2pU
fxVfeR/eMFGUUUbyxk2fRL9k0Bvj7TAwXkLUjsZo2vUp9Vo38HJJIcmxP5he
/YnB9/XSiG9DcojlNybWmGRQM1l7h7/wAanW6X1DZMo8Rm5/rGy7T9oFnl89
5QjB+fN0bu+KLCLx3BdbN0MIn/BZy/nTMoh1wI+hzUZChGsPxo/fiCbtSdZu
z7crcaFl15bKBIwPz5slShCifWin7khwCeJTBppu31Lq3VMdoWqlWLuz6OLu
20L8qJ+zhhtTCv8CZ1qTofxvqPAITSvDaFB4a/JDISzGDxxOqa7AOw1R9K5a
JaZPZnweqkaH8ePpVaNC5PureZlerkPx7h/U4rf2oyb2wR/G61pw0S4yrUjU
D7M0nlmy3QuYvHV4lRn5DgZbNKa0j3Rh04aI+LlrRAicl9N3xL0X+43aJlUE
IiQGnloStkqI8WcxzKlLAxi19Sg0MFfy6l6nXRYN4gZ/T1J2/yBm9xTfUa0f
RF15n2R+1DA0Llxy3ej/Hn9uyPRscRODk+2Vx+gNoW0/PzEz5AMCkvJi9GqH
MBSmfiVRNIYqc+40Xb9hFP0mKU1x+ghdh4BvLuuMoNjPvdAyVYLuFe2C4MoR
ZG/TMlg9+xPyU7Go32sUraY3j/UET8Azb72uITuKM3a2Kivff0Z4ZMal7gdi
XFtw9reSG1Jon9N0OJArhmPbsbgdt6VI8v1VT5QnhtaAScf7O1IUOm7MpEVi
cJfWb1+eL4VIl1+vSsQ422wuETyTwjGVM22ZQIwQrflBLzgyzCn1jj0jE+NI
ZG3jwEkZMu837JHKxVjXH2XEOSeDRZK58UUORfmJXy4Yhslgf2Eij6tB0TfZ
kXE0WoZQWx4/+QuK04Zz3mzOloFpq9avXUjhviQk97NQhtxBw2QdJwoDpya3
OK8pcFMifXp2UPy6rzvo+NEpHHIZXfxoF8WS+Kx3O09NwaCyMt95L4Wx/7aW
7y5P4RrPozH6IAX3burlR1lT8F1/a2xGMMXPoDbr/53C1mFOaVcIhW9anQ+V
TcE43Tf0QRhFL1fVpkJDjpfTrTQdIihEjEPFlblybHv70uAqj6JKr/O8vo0c
phH6dppZFJ8iN1kV35SDtQrV7rxPceihl8/wHTlejwqfZ+VQbJOen2v7SI64
vYWe2x9TmM1O3+rVIIdiuUtgZCVFK1NgGTYuR9c/5VY/EYo9asUjUhUWJfEm
7KJaiv1aovMPdVj4sR+49U0Ujwo67avMWHTzealqAmV/h+dJDH1YlEVN/Czo
oChesdau2Y9F/GbvZZmvKG4tco3rvMDC8d7KIpseivlvryTuTmGxxD0hWK+P
Yo7/4/q3uSxUv2CtGSHF3QJLl+mERUXQ339dek/xdORzT56QRcKKdbxdIxQC
u7CmMxMs/JnbriaU4olbaVbITAWcbqrPGxujsMdH8ZcLFTBz+uWfGgnFlR6e
TeNmBdRVXtyNm1D2Q2aKjuxVoLd483EfKcWr2JNRGecUqDyeucpCTqFREev6
NF2Bm8Za4woFxT2VQK69QoH/AEc+KBA=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602349#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4Vev7xh3EJmNFiAzpHFMaaVCeFEWGU+kImRJFSYX6UjtDmeooQiGV
[encoded data, 4270 characters]
8OfU1Z0LkKS6dHJxkYa4kH1bP8wvwv8BwVIkTw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602349#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkXdUlHcWhocW0BykyBIlGEVxVbCQRYQBw5uIImVAKZbEocSwAVkbiAkq
BIgOxYgDSiSAIDjAIhaQFhMHPhhRLLuOSHFgsfENTZz5QQAxU77Jt3/cc89z
7vue85xz7fYeCv6nPofDCWfn/9vDpjsrwJlGTF8Gl17bQZnv+8Ak0IXGkp7U
/B3md6lC/7sVj11pOJ2Ljqqsu0MtW3vKa5s7jfc5oXHnKiTUNXOv19KNNGq3
WlkzVBvlMqWXsh00fDhZegumWqmWnlbbzi9oyEyPe510baWeFHrufupN43Nu
rs22B83Ul8namWBfGhNi3oHYXDE1GCE+3+VPI/WXUs9j0bepaXt3afd21odH
zZa6/EYtrHHxfvYV209e7u/g2khdzp2md4WxflbNVe1bG6jVCfVpsgj2Hp/0
TV1YPeXJ/bS5L4rt/636YU/+TWrvndXrBw7SaD3s8C/7xGvUeMV4Jz+OBufy
K1f8r5pKyKw+9PwIy9eFJqGbr1AZASuvvkhk87G1lz9aUUlde7Zs6esfWT+r
5G7vFaXUzLiN+fAFNv9W5pyae5LKKx7puFjAcll3pc2BE5TztoaUkIssr1eG
Lio/RMXVBZDWMpZrg4xnw/hQJKY+LrrGMgzzCkazMGQ0fCZIwvKeguqpdWXo
WXxzTrOC5S3SHZ/l1aExZKtB3mY5Vtan8N9tkyDT/5bAdqscbtFmp28LJeB7
rTKp8JUjcmhs8w6pBPrOH5o2BbJ5kWe9SeAdBFpKrWW75cj5z9XpH3zbMfpk
p4PtATk4e1X5H3PvwSbw26Dyn+UwL6+zd2AeIMVHcKlhWI7uFTI394InsHvu
JxMJhsC0cO/GfvoM7q6n8hb+YxgyQep3P796Dv4n0j/1uoYRtvTc3NOjrzHz
MHvwcNoI6DVVVJHBEH4xDE8Ith+F2nvnlZDeEcx/0XhZv30UG/lVZTez38Ao
OS2UGzcGHj9hauKoApwr4TWDlm8g1/TPCOZPIL6wJttS8gbxG8f+YDIm0eyY
aWJxcBy6orFy1bs/YOEXv/rHeW8h0e0rbt0+jYE1T7qOid/CaGHtBwWPZ1Bb
Ant5uALyeUZnfv9sFmE1GywWMQrciHlY3Nb4HqmCsrSBaiV2ZvMibu9XwfR7
Y7+vrysRlS35LvmICoUxByyHa5QQvXo0vum4CvX+XBFpUCJ6+fyFsgwVhi06
2/UpJTxKQxtXi1TwL+GYrOpSorecvzurXwXrXyPOHlUrERndkRXHU0NUdXen
SqtEE3fppVshajgVOi5O4RDEiozHDfeo4Zs8W5NpRNDZKD1+fZ8aSV7CziIz
gtT+L0c+z1BjUNpiJVlGMDRkG55+R43ro4uK5vEIwtqmHCO/0CCzWBD5IpDA
eUM6/3s/DaKCFctvBBEcPp3rXRiiga1YXBuwi2COU1Ci4bcanBbuuXdmL8F9
mTDqyE8axGwomJx7jIARRjlZ9GmweZzza/8JgvZA90dmtAaLS2OSqn8gqFlj
0LtEoUHvHDdjv1MEjif6W5L0tNjyvNc2S0jwLqIqd52jFktPWfkYVxJE3teU
+JzUgnFLMn1WRXB7JPD+07Na9Cnop5VXWX+bJY9SCrXI2VUf5n2TwCXhUpVv
nRY6h+AjAjFBgMSouY/Wov/lb247KALbzPOzTRNaNOXZMfYSAvu2dWaPtFoc
ZCYy2zsIFjyoLPr3AgYDncISgy6CUoHnDSqIwa302W+6eghmIhwnX0YyyPOI
WCWSEaScOD9332EG/hVrGza9IKgqOblqOIfB37+6cMzyNUG6j2XL+zIG+maM
5yBN4OH+bryunsHvif99kDZGMMttTc/uY3BhjYsw6C2B0ZyJNrWCQdzgxVA7
QjD33llek4EOvHxDm8lJ9n8tRwesPtZhJW//y9ZpgkX7O6xL1utgqNddnjNL
sMXOtHZ9kA6vGj1iI1UEptLdD8/F6yCOFa1z0hKoncXWa4t1yF/84YxOR/DT
cOjxTTod/gLErhFX
        "]]},
      Annotation[#, "Charting`Private`Tag$2602396#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVXs4VdkbPqHoJgpFITGF3EKhi08l95RrGOVaaZKQiolcUlEZjTGEaqIL
[encoded data, 4209 characters]
+ZWTi4uYz+nB6Dr+IvwPA5DhvQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602396#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjnk41HkcxyfTRrXIZDuVdSREy6oou70rVq6I1bZKk6x6bCVSnprSobDS
YdY6QnRMBzqGpUjyk5UabYtIskaamWZHZnxpk5rjN/vbPz7P53k9n/fxsYqK
C91qwGKxuMz8v83v8W3NX0jhoUn0VpU2UOKsgADDbilYPZ+eB+6pp5K8Z7Dr
e6SIzDKftJPUUrM/yGr3iqXg84PDf8mooWqvVSQs6JdixcuyLcG/3qHCww87
SiRSxHfVii8+r6I+TgqQnH0jRX/DxN0OXpVUXt30gmCFFG3U9qCWvyqo55YV
E++rmPucWVURQbeove2HHuwZluJCy4O17t3XqanH/XmO/zL8V9E586RSKkQu
VeR9ZP5R/WP8kX2Fenpj2uMEtgxHjwXT1mX51E6u9IjDBIYLfV77tudQk6eU
u/cbMVy3wdHKOIvy2+N3bY2JDKz3vrQBL5V6uDQpzX4mwzOWdTb7/IzoQd/l
r2YzvJGwZ7APgF30xYecuYyfvzW4Pf84VrKEW9m2DNuMu73Zm4/7za+9+xbK
0DDBSWBBncPt71ezs71lWCEaE12dW4b0gJpUi9UM2znGv4+7jggvB6MrfjJc
KAtOaay/AQO3ycZ3gpi+nNYe13VCBHFap3X/KEObwju63O13KNp+cLSIZfQe
y4rdpldjVtC2kMs5Mqx1PJm+cF4Djvimnq+Sy9Bv5xZ97NRjPOPGRLgMyMDf
8lLn+uQxbBMDZt4YZPSeJ3k1E0VouWj2m2CYyW+MWxmYJoK5pigtS83kP2zI
LTrUgpKbd2LjTd5gvyijNHTrn2jjKDydlryB09HEuFHjNliJ/bsFqW+wYvKl
g6LCDixzT8me+bUci6Kd3MOf9iBibuuncR1y/DH/0XJlRj9GW05L4pP/wV3b
QBL7RIqz47l7Q20V+PQ5qk3uyTG17/YlgyYFnC1k69QZA/jsUHLY0t0DGEtQ
/C7PUIJVyhVKOG+Re9l6xGotQUKB8DSn8S2affKzK+xGcH9BupHZrkHcEMR0
2Zx/BzP/BKdjJkpUPuj+8uC49+h1buvg1Slhv8/e7UT6KMqLYSvjqlB/Tazc
xhrDJuESszm0CpaHc7+PTv6Io6kXk3vLhrAq1Pe4iZcaxvsM/bfcHIJ9cVSO
xk+NgphYjlw4hB0cibVyrRqVAUsFpGoI/gnze19w1ZCbtTcZUEMQbtpi9PcB
NQKKWUYOHUNghRlMKaxUY1r15jOJGkY/yG/ZZq+BoOThD2rdEA5WNp0Qf6WB
S8ECyyMsAm3eImG4uwZ+h8aE6Z8RRKeFpUT5aJDkldleaErwwY7dWxOtgaS1
3rzRhsCFlcg7c0mDm4o5hSaBBPXxi7vu2miRXpQa2RdEYHI8xdXUWYvoUNW8
WyEE94ytq+KXaGFRV1e+Zj3BcA97Z7ifFhmZG5tPRTF+D4npkzgtYpbkj0zi
EdwadXJLp7TwHmRV9xwkEMlDkp6KtLC8EJNUdpjgnINKOq9Ti66JHob+KQRi
hwVlnAEtvhN3WZzIJGjNK08ZnqqDdYq5r+FVAvUa1vpTu3SgPZKMX5QQZH07
o3/HAR1eqqTPrl4naHq2PTMuTQf++spNPhUE3ELeu7fFOugdQ/ek1hH0PeZO
GWnXoefVXY91FEFni3Kdyysd7mRb0baNBGvafkwrUeqwix5Ob3pEMPPA9Alh
RjR62zOL2R0EY0tfbHT0olGTNvZTx3MCw/XNkY2hNLI9NzsIugkWd+x2ehRF
I+DKwqpVfQTtvIVhfik07Dbk8jivCULP7tomz6FhYEovl0gJIr7hRbqW0Kjd
/1SUPMD0v62o9G6lkeu8ODNESSDp+tSySUZjt+RcmBUhiDRtqG5V0wjMGz9r
ZIRg/LuCI6McPewDd75qeE+gMnEVb3DWY/y4zsv8MQIbs3LzQX89+m97bo9U
E+x/N6iOj9WjbrvgKxcdwaNyKvJ0vh55lpNH9XoCQWdpiKdej/8AvkgLEg==

        "]]},
      Annotation[#, "Charting`Private`Tag$2602443#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVXk4VWkYF4oo2drIVhSiUIkavUoz1lGkUhE1tiaMdTA0tkiyhTKRNqqb
ZCm0UJ/94rrHltwW6z33ugb3RPZ1vvnjPOf5Pef93ve3vOcclYt/2LoKCggI
0PH1/122PEVVtosNHtI5tyLOVKHuVEtLERYbdO7y/1pXXI3Cjm4S+vCFDcbW
x6fPatUi+SnyXUA3Gxo0nw8rb6pD754W++3sY8Mmx8Miq4k6dObM35oDA2yY
Ya2+rOpaj2bELAf+4bDBLDe8JnuwHmVUbMw8xmODs2nwpOA5OtL3Jm1WDbOh
dUjwW1U1HXUqFa9+P8oG9ZPpj9VUGlBA25Uq/+8YJ+yQJIIakEy0RYjmDzw/
//IvfHoDerl3o27/JOZnmt3nI92IbLhsXsYMnr/h+9e19o3oe0bRA+t5NkSQ
r4rt7zSiZPMr9iuX2MCb2lfV+KkRMfM3NPgJkSAwSBZkmzYhz/PscI1VJAQn
WidlhTYhccmi/X2iJGy6pxo/n9+EzP3Nn/4qQQLrVtv7AlEG4qlucBKWwvXk
32/s9zDQtU8DG8plSHjz/NUFWQcGqjMMi1XfjOvz16oa0RjIZdjsUK88Cerv
bUP7GAwklL1+6pYiCWaUUbcgn4EOCxS6CqmSEKGV0L9hVzPqKw5VeLedhJSO
C9LaVs0o/DezTh8NjMXtWOKXmtH7+v6jPbswnit/6XC/GTkEFyyk65LA40Q3
8d40o3mN0BLLvSTEuf301retGRkmyqq+NcT8RMsscpebUekJU6H0oyQ8qFO0
TrRhojjLNzFbTDHfX2Sz2i8ykYOJhuhjcxJ87nSDrz8TCe4RX1tmjfsXNAm1
pDJRp2ZY8iEbEkQNDxRlPGQi2tZRKfoJEpRXinxuLmQia+mWDSx7jPWO70xs
YiIVMeM7zudIMOAekFPuYqKJFcXyQ47YX1uDjbvZTJQ1lqo8dxH7KW7EImaZ
yHtIKCfKFfPf9V7UTZhAR/oD1MQ9SCh6Ia8WK0EgXuspzS1eJFTeqb3iqUKg
8gZ6fu4fWE+I8BYDTQIlVRrs1vYjwf5mmleGHoH2FsntPRSE825j18gdIZAI
7UZZfQj2v2HO3sScQF/uLxgcC8N60bNa0eMEikzuMXKOxH7VuNv6ORDI7tqx
Sl40zif4pKPcRQKph1ce8Y0loc8yVdrdnUDzf+rWzcaR4Hw38MBZTwIR3o9M
o25gvbdNEid9CPTQTaZJLAnPr5p8dSCQQAHnr1qlpZDQqjJttjOEQKanJgn5
NKy/9yOrIYxActZuNrm3cL6HyQHZCAKN/tzVofXP//x7PktGE6jSyOxUaSb2
xzpQ9UMMgdL2vWUZZZMws/2LgmIcgdy0Nc/V38fzF0w26MUTyFAtq9v6EQk6
LR4n5m8QaI3CGueuXBKOW41LhiYSqE/2yoDTU1xfNBzxMolAr9bwXXjPcD4v
NZofJRMoVthp0Ccf8+3Kl/41hUBnF1ouzRbgfbi5dPklxtoTxiORxXh//K8P
dmAsMFLsLVaCz38eSfj/eQd761hqGQk0sHI4hvGTr2n+8m8xn+xM6+e4f0iH
8FROOdY32n+SjudbMQKDtT7get1rjrmYn1INd66kkgRjlRsWJgkEGn93+opR
Dd6/Qvp8LtZX/7Jhua4O93ugadGE9d/JM4yybsD6zoyKlsQSyPNRnnBXE37/
1jat/O0qgYwz5a85MXG+vrtWsyIJxL2+eMOnHftXw925Efv/NtJbYvYj1qtl
XDMQTKCEkN6UyC4SGvyjbIJwfnqXqm6lfsP567Ell7wItPKC3ib5XryP3Ijb
Y5cIxLLPyczpx+dXWlcUuRIo3CzmfgkX+zs/6pqO96n9vIeDzhDm+9JCuuM0
gVQDLTfnD+P9OiDyrt+WQE0PpdJyvuPzoweUfM0IJDufHZs6h/l6X0t308X5
SkWaSCxiP0QdY/fsxHx3uAjEL+P+qx/7fFQl0Hk7zb8ihTlAW7FpPm0jgWgv
yrx8JDhg/EBncf08E83V3NEckeSAen/f56QfTPTrl7BBdxkO9Nmnr+0dZqLx
VSYXnDZxwCzv4QqRb0z0k3OLnfVWDuicDbsU/o6JWqV5B7X0OWDwjCXs5MNE
WzUYM08NOOB8siYjyI2JAqGgdNtBDlSaHPvm6cBEcp4Bu+WNORDsejGbb8pE
LnUC28QsODDzprbwlAITzQRtFuM5ckC57En7eFUzUum2YOXEcKDoh4f7xA8G
iq8+WHgyDs//vYocIRlo/KlWrMgNDgi8una4tpOBqv0k9l5O4UCrx4lgydf4
eyvanqyXxYGI7wU1qsEMRNtzxrSqCPeLjv7z0kQT2hXvXtbzFfNtYhvm4P/B
7T/sE1N6OPBmfa1DZ00jWrYzdznSj/vTRGaGixpRq9JO6SdcDvBOPNpGj29E
vqV8L68xDrB4d0UNjRpRSV+g2sIqLhwfOui6I7sBHdh/NX2zHhd0Dr8MXzCn
o08XN+tn7+WCuvm1ev99dOSfVNClvJ8LEUURhp+U6Sifw5JT/4kLxvujKIfp
eqSYrv1Q/xcusHRcHvrn1CPBsU8vTpzlQgoz80HndB1i5GnQE6O40DBV5NVz
sxY5KLbMrujggnPpP/GSSVVIYrNfaXknF2jlut15flWoSma9byCLC3EjNKRz
ugptX32Ox+vG9QGlLstKVYj6wf3UwuNCa9/J0GdFlSiqcelV9hIXKpd6swLv
IkQL2OVtqDkIlR/Uw/Qny9FkU+KAT+QgFBEp6jF7S9A/wucDbFV5EKEQo3uo
MwXJ9JQ+EqzlgbPhSG5Vbh6svBJpZ+g7BHFxb5P+1akCgWfnCwek/4VWQ2Xh
NoFm8MssTJSu/hdoRbZGTK+P8H5nnKiU9zCYWe3Y0n7+K0hZ+GlFSYxAgvJh
lvqhfvim3doRUjECH48JPzgejXO9B6rk+VFIGfz5YcXcEDgW6kspLI1ChZDu
9IoJPpSdnZFoFeDDxYXrz/XFKZBY9W5NtBAfRjv3KIdupaDSwUh0SJQPcvoN
H/bYULBV7OhyiQwfUu5LrXcvpIDrYjNqpcGHhhUV7cH7v4O3nGdjmB0fxBTj
r9ctfof6Om367tN82J5UbxUmNgZKvlTtwBk+fAia22u0cQxa6X6VZk58iGJk
tHbrjIFeYMhr2d/5YBzJbbnrMgbTLbGP88P5EBympqBOjEFEzMPIb3l82HJW
VflQ3jisDRKxuPCCDxHpDoahr8ch08NLmlvIB5rVUb/a2nF4ZWmYQ5XwYX26
Ij20dxy4Um21ggjrEXGuiFz/AyzvCYhqdPChsuK1rPjVH7DhtVNS4DwfnFMk
eMaeE5BDqzs1t8iHtRlJbsdDJ0Anc6dSuAAF29dEvfeNnwDzK9OFcSspqN6v
N/svbQLCTJLbstZRkBj7ZRviTsBAywfZ6m0UqM9wTXXcJuEFTyFLwoqCdGbJ
rpo/pyAuO8a5x5qCiKuXJJnxU+BiO6pWgH3WjL0Pi/emYEtFRdGvpymwknmu
9ZE+BfHJ5+oTLlJQdiVsKUh+Gjz074yJhVBwN984LZsxDUeHBV5/CaXgJ/cn
2qkD06D0wCMs728KlNel3qyanYZPqw1ELK5S4GW9cI6lPgM/d3/acj2ZgoQ+
cY5K/AxsvSprJvKEAunJG5pR52ZhySBsbReNAt+vinS7oFn4PMpuf/KcAouA
psm0tFlIOf3K8ZdiCvj2zzd7M2dhWdPWP6aCglX7xGvNTefgS+9bg5MI8xHY
sXm/+xyUpassqVZT0E6v9mNemwPvpe9xtXQKtORuVKsy5uBbW/I9oQ4KDsiE
qKk7zMOb2OnfOjopmFX7USEUPQ/pB500clgU6CTqNig+nwfLx7tKjvRQ4LFC
oCR3eR62n70dIt1PQdbHB46XtRZAcN3SoQE2BX9dV5jVPrcA74KZjZFDFMin
pVyYRAtwW3tfss0I9ndQL5Q9tQC+A3ftVCgKRGltZ8p1F8EqQ1hubIyCULNv
ZdG+i6Bu5dlbOUHBiYQtpS2vF0F4xcfclGkKlqpdmD+LLEFf6cHfnecoCHJM
uSPpugQVv+fs1lmkIC/yZk1MzxJkKIlPLi9TUJzzYqJxcRn+AzelpTk=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602443#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHlczHkYx8c4ilzlyFFCx6IiNq0MPi3ZqBElN0mSNrIVUVGaVKaSCV3S
gcoRmbGVIzFTjdBuKkORDjLTpmO+pU2Z4zf72z+e1/N6vz7P53l9nmeO5x+u
B5gMBmM3Xf/3eP33cZ2hUnyKOhTFXl4obMxWLdt4SoqIiJBnJtv4wnupfk8a
wmndvqTV4dBtIYfXstKDI8Vs54Hi3pl5QrezG0UdZ6Rg3Cmttwm/Jpx3WrQ6
IIb2dxvxM5IyhMrji5//4Ephl2CQxH2aInx95LpDZDzNnXWPElwuCK95T6oa
c572P+pK0ARwhcfco9iXEmke/TralRcmnOHs7ZKbTHPud8n+YzvRs7ZBYpFG
c3OrvdX9ExCtXLe1OJ3mi46H2DOj4G25YFdlthSiHKalzcAFFI6Ve3XcpvP8
ZKVT6HoV7L+Cgi2e0fPFoZfuhBbAqKJdUSSi7+ux7c8ewce3km1hKyvofEw/
ZoO9AJfzbSOdX0ohUMmkoyvuoz1WHe//hta7Rg3rvVGE0+uis4va6X0VK1ic
WSV44+6z2+qrFBNNzyfWVJTAJMhp+t0uOs8iX7eug09QdU33Uk6vFJvepdr9
ebcUk5WZMRcVtP99aPvR+ULcKnjg5z9eBv96iq2vLEOtXgfLwkaGYLGf+duI
SsxpdnyfEy2DnWmHy+GXrxFXzuJv4cowz9roQ9PYGny7aRGjFS/DuqASpqFL
DcoDx1sfSpSBsUF/3IQPNfDSfsNbckWGIkHQPu+jtbj18w6HMoEM7ExvG4Ow
OiyMO/ig5SO9P6Z/wcpICZb/EpU0fUk77Go1293cG7B7Vs2PYZJ2rDB2TGUZ
tmCgKqHNn/MPmMvDDleHtSFthPsxV5MOTDxnHlrEk2FSS/F1prgDvvpTPcUn
OzAyjONmG/AVZT9GJs9N6QLjtju/Ta8TOuWeQu8AOQLT+Ql65Z2Y9XzJx7Xl
vXhqztXWPdKFT+LOhFf236DrGGgROb4bfAfqu5mgH02WtZKQ0m40UoNcid0A
BFkwkbr3IDzE+rio7Dv28G10DakeuGWfeal0GkJE9DVOU74ca7au5WVOU2Dc
CS3HfQVyhA1UZD8wUiDdx0+vnS/HvfyA9RIzBQqdbHNIkRycUVNS9Jcq0K5b
J2YK5Zh8WeFR7aKAUxZDe75EDtHj+d1D8QpMfbj3fJBSjlWsoTOPhiuRc+v5
VoVajtF/K/r36ihhlW5udJpB8LuOlWLsJCXWhw3yuSMJsj7/MA6eq8SpNby6
KxMILp5fHZv8qxJtNc8mlxsTVCa35g7nKFHQYXhlPJvgBGtU/oWRKnAzoz1a
nAlWHE3wMZuggpdrj+k9FwK++Y6nL6apYFBaKtiwjUD9wjhwsYUKcbxdlec8
CYKmVVTlb1bBx+Zy35gQAjPD2rgLeSrYdzEeNp4k2JfpIJklUMHoqs+p/HCC
qzUNncISFepHL9NyjCLY4BnOsqtVYW1zvUEsj2D194xkZ5UKc6Mmr9O6QcAd
KrgfvEMNatmpcQ23CLw2+xjwD6jxoefLmxt3CHQ23qTGBKqRuK1wz2/3CWYL
mpiseDU0C1yPRpcSZHyIzXsqVKOx9fGyLUKCGXb78zyq1XiQNIcyKSewnBKU
t+qjGkeoXq74BT1/xCS7dFCNpjpe1nAJwdDN+GfbrSk8ihncL3lHIPo8N8bX
nkISa+/8nPcE/ZvEk3rcKDjlLSxa3UKgfGeaFnyCgtnOlBC9zwTTMhr9r8dS
YE6gVrV9IWgWb02LyKBQElz9ivOV4PrSsWV1Ygoplkt5Lt30P9+pTqY1Ugho
y3CbQwjqWxlicR8FduqIGX19BLk7KpRFYzSYxz7cKvqXYHNcr5bCVIMRw97m
Jg4SEIfulrP2GnwqZvl6KAgShqqdlvtoUOqbs8hKTWB7tbKnOVmDVCOdAY2G
QFvZp2Ot0eA/1qoFEg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602490#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk8VP0XxyWpJGsqokm0aBElSQ/HE0qWyhIlIXkk2bdShBahQouIh4pI
i6VCsvRlZu4tKoTwRNaZIcvcGYSx/r6/P+7rvs7rnvM5n/M+53WVXXys/hEW
EhIqxc//37dWtcYOXGLB0W32ZOv1QvTz8YzOkVAWVO60D2V+fo/ykrzKWq6w
4ImevUGWdimKjO/Qc45kgcYd8xO7m8uQzc0jlf3XWBCxmCboV6xAm8Mr9/tF
saBrmJTOVv+IpoM1CUE0C3isTas2KiJU651x8OotFhjE/eR+5yL01E22RiyO
Be4+CcdMbStRoON18/sJLFj9ZfxsyetKpHDYzfJZIu7XMvV3snEVGjZuadyW
zIJWi5TqoZgqVKlnYluUwoJ6K/ceZnUVctu+5ST5mAUFjy4nT+vR0d4Nqb8O
Z7Dgs9yvNOUAOhJXEndueYbrw0y+nMmio3fiXNf+Fyww2WkhuUeYgaJEnPp8
X7MgWlVgqbGdgexn6s4J8liwzhPk5G0ZSGjojbdYIY6z9pcfymCgxt71/HvF
eH5n7ZE6goGy2+4HrPmA/Sh0XGb0MZD5l6CL2z5ifmGvmw5vYiIagzNVWMmC
zQ7LnCWNmWik1C5Mj4F56+Uaxp9mokcv9149/JkFUj+IHeJJTOSZ8VKkpQbP
Y/QmfkMBExmkrLnp9I0FOWsCYM9nJuLEzN7ybcC8ju0Y8/3DRB8ivSUETSxI
zpd7mitGoNshnQmRLSw4npuzUpxGoJ3nqhLvteN9h49ZHDUmULjJjceFHMz/
GS2IjCZQg6O7g8ZvvJ9bWv+lJhFINchM/vUg9nu7cdn3LALVPJW+n8nDeq1m
Lt6VBFIsGTtCG8X1ugZZnV8J5FPbIp76B89b7DxHbyXQium0qHtT2O8nGp3i
EshNOtJQYhbzO70oxUBAoA+bXIVi5zF/gco5mYUkcrTZcilShA3J+ov4xnIk
KvBYvmdWlA1HHXxqc5VItDCSN3pxKRtMhGd5GRtIlJNb7OUrgfPpVC9okWiK
8WjLkBQbKtt+/RzSJZHFz9C+s7JsqJc9eVbzbxI94Tk965Vjg7uNZZvkQRKN
iBqedlrNhpLFyn6x5iQyUtq4tk2BDbzxAfNMSxIl7VraZqvEhhwDRpiDLYkG
Dg0lNdDYkGBVN/fenkR/OdfZHF6P4ydHS947kigu+K10jSobCl6kRZxyIVH3
7cRa401s0CkSU3r1D4m0Mi/eqlJjg0YCY3+GO4miPpw00duG/QcnJRmdJ1Fr
nf6iD+pYT7vk7X0vEm3lKNO1NNkQcd1L6a4Pia7MiIQX7GKDwZkKa30/EtXL
9O/bps2Gz+fFiH/9SbRe7cvkcx1c/yanKTeAREGQV6SyD/fnnfvpH0iiz8fu
+j/WY0N/urLKMI4VPAN3rDFgw/HLynylIBJ5XrUberifDV1S+aGiOEbJui9k
jHH/Iv+x5zhfJl/JLe4gzvfuCluIY1dCSEXMlA2b16fuVsD9itt6O2+Y4/1c
atgxjP0tHSH/XXCEDZPVqRfDfEnksOTliTBLzNPiwIqv3iTKW3tnpcAa+1n+
av4/TxIJ7fZtDLTF872+qJHjQSJrM+sE3nE2rD5xOXEP5pV9WtvC8yTel2b3
yhjMc/KCvFj/KcxP9/LDNMzbNG6GPOOM/WyfpoKcSJT2rPNapwsblhxUF8g4
kGj/96zZ5rPYz5cPx9JtSPSgL7rUygPnKynvjTtKor7Z8xdqPfF+CsuHjPE9
3N6yk0/4Yf3eqFxJQxJ1GMjl/R3IBimtWyoq+iTStJv0qAjGPPKr9i3YS6Lm
ax9ZhZfxvf1IHqOpk0j5l2lr5g18v9m6KwX4nmPp+/KPRWO+Mzn8Hgl8f8+3
RS2+hecPa6ffX0wiur+E1vkEfL8uF8UtJgnkuqQhfmcq7n9TvlSjhUBfh+lu
rDS87/D0btdaAu1ufKf38Ame74SV8j8EgUTTEwcFWfh73Myur28JlLPrxMGq
Aqx3c3La8BaBpORN1wa8Y4PvN3Pr/ggChczp/lEtZkPr82HRU8EEMq1WzIwu
w/OVn/X+4EygQceuuSMk5iFiSTPbRSD12LPFHW1YP0AQpFnPRA99jt9J6MD1
Saf3STGYaN7mkOv+bvx9QG4BWcRE9bStMtkcrGd7hP8+hYn8irheXnzsp7yP
+dGFiQq7gjbMiHKgUtBgmD7IQLp7rj+Q38kBIZ2UBwk9dNTsIq+dpsUB9zWb
gqUb6CggLq9l3R4OfE5ToQVX0dFrdqvC5r84wLv7ynvwMR2tfbD9qfYBDjgT
LkGxJ+lImN+ca23PgVa3lc1l36rQl5dqn+5c5UBB+DL9zvRK5LC2TrCgkQMG
i/Wb28bKkIS8f1HZD+ynM8mRxyhDVbJyfkGtWI9mrdt4rwxtXHqyv/8Xrh+P
yRbRKEPUKKe5rp8DUqxuszXupehq9dy7tDmsF3GoRq+uBOUEqnvv3dIHT4yN
Jb0uFaE/NXd6fCP7IGJUXcc36TVKFnEMtFLtB6G5mtHreR4g21GUIczsBw21
6hClgjewKCzSZq/fb1i9Kj2CkmGA0AvH/B6ZATBQbOm8mP0N/FPy78jQByCw
npfopfoDKrZGL5H2HgRP8YkHqrNtIG3qv+2qxBDU9vYErbnWDe3b6xtDyoeA
bDDSkv2I/1PpoMpyHAabDqOJmG0DcCpfW1ppbhjUslIuGClRUGw/KVEvxIXy
AR9VGy0KJERLxa8t5EKaklt8gBkFlQ56S34v4ULWoI9sTwgF68WM5gtlubAw
UiAb2UIBx9Vy2FyNC/dkxtX4pjzwVvCsDrXhwu51XwpkpPhAEts/7bDjAv2b
XVaxIh9ofhSz5wQXujoXlLmq8aH+k3+liRMXflcnZHXu58POoJD3Kzy4YO9c
I2kdzIeJuqis1+FcED2jbnGgkw8RN55Gtr/kAu+w4ptNpSOw/MJi09O5XIhe
8viu1acRSHH3kuHkc+HSlYLYmKYReGe2N5Mq5EK7Qd8hRWoEONLfmcKIC01a
te9bVUfBLF1oiVojF8Y1Rz2/3RuFle+d4oKmuXA2Q8OuIWQMMnMI26lZLuSk
rz5dGz0GGilbaeFCFHSd4+1uTxqDQ2ET+dGLKBDXqTBULx6DUMP476mSFGRn
PT7zbnQMeuo+rqCrUKC/nOV5zf8P5PYrpUqYUxByiLuLiByH6LQbzh2HMceo
rS+LE8fB1Wp4Q54lBVdkdc1qX4yDYnl5gYUdBbkbm/MDGsYhNv4keduFgqat
J56+3TAB7tqP+GJ4LxUV0rKiPybAaFDo/c/LFCiXxER2Dk4A7Yl76MsrFKyj
8cJHhSeheanOYtPrFHySHK1u0JwE41/NijHxFLgOue19eW8S1l9fYbI4m4KS
zZv0V50RwJxO6PKWHAqeJRpVVF8RwH/DvQ3ZryjwXpDr0J8igAS7d6cOvME8
qu6NhjcJYH6LVcCNcgqmyh5P1llMwc/ODzrHEAVbVCsakr2moPiB8pwqnYLn
V0qnlsZNgfccL5r5iQJGu8SdFd+noP17fPrCRnxnszqqAaenoSRq4kzjDwqS
j13NWR89DQ/2OalltlKg0RusJ1UwDWZZ6oX7OygwKJo/ry0yAxvtH4bIdFPQ
LdbnWqMxA8KSc/o9vRS8m3aSPe40A6UXv1VH/qaA2FPmkcuYgYfbd8dbDlGw
0OSK1ampGfDr+ddGmaJgpKXk5ojWLJgniSjw+RQEaR297x84C5vNPTsrxyj4
Nm3K9C6dBZEFTc8SJihI7Q0Ij106B11F+zycpyjo12I7DLjNQblH5g6NWQoe
6ZlENnXOQRJt2Z/5eQr8NKnor7Pz8D/tCT6Q
        "]]},
      Annotation[#, "Charting`Private`Tag$2602490#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjnk41HkcxydHJi2FassilDSSEFLKWxa5uugkZ/ZJtmxUi2e7VKx7VDqc
qybHCkNFOYrkii1pciRHyYxz5ktLMczM/vaPz/N53s/78/68X1q+v7n8IkWj
0dyo+X9LrDyd32twQZsq27+snVk14jB2+91KSqt3z1cRh1Rt9W7Zt0ub0h+4
MfSGUCT8/lCpaTWlT/lxQmPi8Tnu5htbXS6sttUl+wzehAkrNPYFg4tLU0+K
y43TEFnmbr9Nn7rv6wq48C0TnS2WsmUGXGTeuybvlsHCOp5WjYkR5Q/T7/PV
svFWechC34wLb/sOV93KPGgzmqdzzLnQvKLs28DLx1kUlqyyoPLWaieOiwqh
euLMhp+suBg33q1oeq4YfnW0VfKO1D8BbhQxSjAdskJ+yIOLojVBo2tLK+CY
MFd/1JviY0gzKsMqkX6/70qfL9V3L8f+9ZZnsG7NErUfo/pS/FJJyXPE6RlP
1AVxkajpFJT9qhpaPY6drAguOrtsDK5ceImYGgv2/iiKp0BtqfSHl/iaox8p
F8vF8samsgbjWtQEK5r8msgF/Z9mxpaBWvjR3zGNU7n4NHNIHIB65G48vONF
EcWbkj+Jj40wiDlW2vuR4ktyZ2VVv8aWTVeTVhjzYOjTMBN5kIN23xVm6SY8
6Pv8Wb81hIPTCYUdmpt4oD9cRe+7xUE+t1N17VYe4jYWfx1u40Ajaf1dMzvK
Xzrmqun6HlIT7QWubjyECu8wrR3b0JzHaIi/zIOmqqNslX4Hjmi0zMzj8GCi
x1q3vLkLU03x/afCB7G4fEUjVD7jjoznGZfVQ2goTNZ5sHsAKr0l96Rqh9C1
+EyAtMcgZM+H79scNIzEIoOdt2+OgPa3J7tfeQTJ1fsSfaP5CE5hxyvXjKB7
T2KEqds4nq2LoisFjqLQK/hU9OAElByD9S8rjsGvwK057Mi/6F7/lhNWOYYQ
b9Npq++TKMrA6gFPPs4OS71MD/8GD7aZkrqYD9vwrM3Hl07jUsTd8O48AdjS
Ppau/BkohMg5+hQIUGFeGJQ8OYMU/5PKPLYAGX497l9mZ/DIaTOLPBbAytX+
6mV5IXhKrbVSVQIsdJ46T3SFcMqg0RkcAQrI/HzmUSGWPfFKODsrwPZC9cD9
vUKwcusOCEUC6DUYlhjwhDBMWbfyIo1g/FB+jYJACIfz39lRsgSdDoKEHpEQ
535mtqYuIggJXHC3Xn0W/S3Pl9SsIhjiHY5t95xFwZB6qqIzwfFJkW0XbxZR
6RHevbsIfnA+8JI9Pgs/F75O4V4C7fgfd1wXzkKtsrJo50ECtaZlpRcV5xDD
dK+P8yXwz72wa/6mOfibJU/IhxHM01FV0o6dg80o7UnXHwTVMdFvpm/OYWWm
/7m8CwTdu4QKA5lzaF9gLud4leC6jtonYekcbHva1aKZBGdOqjZiYA7aV5fY
y2UTXJzvPypjI4LY/JxCRy4BrU23/8YeET7wv7zLfkCw3Tg328FDhMSDjzzs
iql8xeNyoxARJHoupyMqKV63tAXmBSJ09ZWZ768iUNGJ/8uqQoTSJC3x6hqC
e7IOrpGvRAgUj0fVNhB4LjfK6+KJ0N3KzJDmEIzdWtJroyPG08jvRzltBF5P
+WnvTMVIsvBisDoJRJ+vG7XZieGUZfDYupfAbkC5PTBAjDVut8KUPxOMLHs6
rXteDKlFYsv+LwQZ7NnR1EQxykNfvwofJkiz5Ecblotxa70pc+8YgXVH/7ec
t2IE9aft0yIEzJH63mtDYjjfllGdmCD4piBatEdKgrXOJ/qqJwlcaU/ZoRoS
yMx7fz/xO4FNT3gc3VKCTyUWAd5Cgsyx5uIxXwkqA1gbDEUUT/ZDZ43rEtxe
uXBKIiE44XUgW18iwX81TOYJ
        "]]},
      Annotation[#, "Charting`Private`Tag$2602537#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVXk4lO0XHlsoJaI+S/YWoVS2ko60WtqklIRPxE+RZElJ9lS2vsa+RChR
yG7eyYMsSVm/FJWtZuzzGsk+4/d8f8z1Xuc65z73fZ9z3nkV7a+bO/JSKJRy
/PvvuWxoY/avHAOq6dPSBlkJaNR4PL5DngH9NUIHPnano312rRYnlHD+96ZN
m/uyUZR3kdgHFQYYCju63pV8iQYiYlsOb2FA+sCXz6uf5CGtzFuPalRx/Y/s
Lpns1yis8uIxA3UGUGSyFwLdCtDX1v0CldsZoCmupHgwsBCpMRVrtXYyYG2j
ovATnTfIf4n/XuFuBkzKjGXofXuD2sSH9dV1MF6JaSPmUYSUVJvnXugx4JSM
Sc0+ThHygvxSZX2Mfw89Vv7F6P3Zxx5PDbAeSafEopliJH3Nc4eMIQMUkrO8
TJxK0LUgy/E4I4wPnZ+aaytBKGHvS/HDDIip+0fCXasUOdRTlFeaYP5sCJsb
LUVl3372hZrh/IZep5n9ZUh4qiGF5yTuL5f6IzWqDOXLRa6fP8OAgH3vL25T
KkcUbfdOz3MYzzfnl3ClHJ0xPRMzeR7Xv24wrn9RjuZ8pFYOX8L8fJMNSooV
yCRqqeGyHQPs8uhqeRcqUGpWX3CfPfabaU4+i65ARu3ZnC4n3H/Nx8kr0xWI
OhROM3fB8QrqwevKlWiIc9Wn5RqeZ7t7ve2pShSxbRe7/gb2u+pk/fmsStRr
KJl/wBPvwzr5YURzJdppOefy1hvzedz/3/JkJeoKrvpVcgfXr9XcOKJDQ6pJ
GRma/nieEVctAyxpyK8wxOZVAAMKi8pfxXvTkOIPk6+Zobj+rmmpXyENPazV
LzgbjvXw3x5K/URDUy/UwwQf4fvJUtLWHaGhWo81WldjMF/qt2FBWQJtO7+8
cuMTjPdR0T2/m0BPDCYHWmKxfn+hf8yNCeQg1BG9KxnHOn99uX6DQB8naq/8
SsX8p4QfPA8mkHZnsUFcOr6/4dzxfCqB0iqyJI5l4v2sy3jxOItAK9Jix+az
cf2BM5PnignkFhxWm5eD+TgpsStqCPTF2SfxUh7W+75DIOcTgQxPOLuL5uN+
6zXOGnUTKGf3haM1hXj+218e/P6TQGulTORuFmM9LFcjvwkC+XL3/lEpw3yl
1be2zhBo8Kfax64KXG8V+57JIZBJk2xmOMEA9/baDjo/HRXlr769twr3V2Is
FKykI2kq99R4Nb6PA9Mu9aJ0FORLbkl7h/dTGLeeV4KOxmz6uScbsN5J7SqX
DXRkcaj9M08T7m/cw+aTpiO6au2r4mas/0PHug4ZOlIRLQ52bMF+xzQudsvS
UcR0ptWG9v/ehxVdGzfS0XQ3dWdTJ95HdO7VTJy/hEKF7nThe3RM7HXF+IYs
7z71bryfFMeWACk62v7Qqaz3G84v3qzsW09HcdfPR8b0YrzXU27kOjpatjB2
MBrAcWBtbxTW77x3r/70T+xHcqs/A/trk1cTf87E85FiMqgCdKQnIDtiOYL9
TCsJpC8TKH1UpFp4HOurPlokPE8goTZOHMHC9aEKr/5lE+hGKcvVlc2Atpqx
JL5RAvUk9R2Sn8bzc7YSSxwgkFFAm0z7DK53C4yM/0ogcdOiJq0lPG/7CI3u
OgLd1sxMZ3Jxf8pZlgKNQD8lqT4JPExQ4KpN9uQTqKTfa9PSCiZMnmVr5ccR
SLbhytJrYSa0XcuIbn5AoNA8y05bESYUCipbX/Yj0DnvPYHvxDDeu7pH2I5A
s6s43x/KMiEg0zTEQZFAduyJ4n3yTNAU4Q7fX0ug9129D1mKTLB7mZi0e5mG
EjKq9cy3YL7NuxdVv9HQXt0QqtQuJvSjuZ1EJA112UvppGoxIT0otCrvNg3d
jMr/oqCL8/HFzQZONPSK8VV66z7MN+TpYwI0JEfVyNA5gvX6xR1RHKtEvOyu
12esMN7a95/IXZUoTfbayS/WWM/X28oC0pVI/xgP28qWCTF3tqip81Qiz6dq
WvYOTKjupIQ+aqlAzOMBNHc3HK+rGHnmWIGac1UbI4OY4D6yglMfWo6cu6qc
xUIxHk1IhjqXI35ei5Wx97G/XrUPHJNytP+C//GUCIznD1KTEy1HhYKdnblx
WO9+0Uuq1DJEdfDrb8zF8zRMzep6XIqs5VrneTqx/kd30h7bFKM1Uh6lxGec
T6zrPKxTjGrWSd7w+sqEtQteuuWri9Fm4YvDwz+wH9q0WidRhMjfzK7WYczv
Jv1tQaIIBTVxi1O52L/TuR5rohDleG5327NtCNJzGMyA0jz050PkoHvgEFD+
KvQO/JiKvq/67LwUPAQBwWVOuZRUVGsmS94PG4Lq09VNm7RSUExL7mLaI5wn
vFasT0xC2zoaJT7FDoHh0e7VY1bxyKab56hqLu534taDL1UxqGHIK2+gA8ch
6m/vWjqjBH4bT3OVYTAMKzA/rZME63pLn/HWDUN/AtqT8rgMBO4GWuy5MQLh
7atpIVvqgfLSpmBQfBTWip/JuePZCh5JBZHitaOw1B3PkR77DG/VwoXE3MZg
PNLI3znnO4iZeKgHrRkHqqn020ufBuC7RlunL30cUgZ5RWQ5+H8gDVR+2UwA
v1a/R/Pfo3CpQEdsI3cCLjncFDtsTEKZ1dyaNgoLzMS0GtTtSFizgiYSzMcC
x7O/dFV8SPydMBAaEWLBPReNeqNsEpRWHlouWccC1w6PAQWeSWA6nJ4wU2XB
9vYzB97YToKb9LUmPwsWhIQ/K4xRZkNDvUbjDksW/NVc5KKgyQb5G2Td4AUW
pEyaGNH2saGt0aP6mC3mKw/IFjnHhl1evuUSLiwYcRxt2/6ADbOtYdmv7rFA
q+ZuiT+bDQGhGYHfc1lADahakGiegtU+giZ/v2bBLvqwufrXKUhydhVnFrDg
lPgt+knGFBSb7skkS1jAzx99hFieAqZYex0vYkH+0rGJrdq/wTSNIqTayYJt
Iy2+/s9+w/py2yivRRbY61ofNAifhsyc+nMLHBYY3TIIUomfBs0kNfl7FBLe
vZXy3/h8GozvzhaEC5DwS7E3/3DdNPgdjG5PFiXhcmyCrTfPHxhsrZKoVSbh
h/At56R7f+D18MbkNWYkzOhbZXtGzkB4aqhd7wkS7r1xlzTLmAEH84lN+adJ
mM4TijAunQFZOr3wuCUJ9b99t9F+zMDD6IsNEfYk9EmSLyM1Z8FZJ5G90peE
tQlFLjx9s3BojFLec4cEPys6+fbPLMinO/vl+pMg66b8vkRkDrqE9QRNQkho
G7QWvKA/B4d/dMk+iCahIfSdXHnyHCiFSBwTfE7CiKxMvOLVeeDq+a3+kkNC
Z83N2Tdh89A98bPjeR4JEX/xUfKfzUOMZfGlI29IGH7ixeR+m4flbeY3Q+kk
VKmhDJrFAvT0VeqdRSRYP9tRY+25AGVURa5KLQmzKlGuz6kL4MadDK9rxHc4
czjC9ssCfG+PTuPrJEHuG98RUadFqAibvdz5mYReuetCMZGLQNW3Vc38SgJf
8tTl46WLYJq9vcSoF+tLTxJcI7wEm63ifMUHSGC4boBr2kvAK8rdP/gT3/Fi
TEvN5SWg3frUFDhCQkCBhk5a4xLEaWhHnx7H+7jquUOEuwQ3BlMsFEkSvC4+
Jaz0OGAWzy/NZpMQV8WvGOXDga1m1/qqp0lgmusi7bcc4Of5NytmloTbo8cr
2Ku40F+q72K3QIJVcuDRfmcu0F0yd2hySIiPSVXQHeBCvPyqP8vLJKidtD/U
ylmG/wPDwhzE
        "]]},
      Annotation[#, "Charting`Private`Tag$2602537#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns01HkAxYdU2jai0irCekQelbPksduV2s6EbKF0hKRsciK0PSwVQiKP
kzm0LFtprWey3jVRyBBlNBnyfs2PPOZLtHaY+c3aP+65f9x77udqeV908pFl
MBjOy/rf/d0dKwrrBGCIWP15SzmIDCHbs+oFCE9TYmZmFGDSc5D+qXE5H7xx
00W2BC4H2jtkmgWwcQ7VtrIuBdugrrC0RQBNgf/n8A3l0FEsveXzToAZxb1V
pmUVuDuf7ba5XYAjmn8gYWcV5j+ydjfzBPDirNyUklQNj9po+VD+Mm/Enn2l
+xlM4s5V9Pcs884YWsDmBVIvnkhI7hdg1/mcB/u9aiB1OXTWdmi5r21Jq1yp
BVfDUDmHEiBW4YO7UsNLBJUL/f1nBfj3uVb6X0/qUDZ4WVe8isI3bnkt3C2N
UGv8WVy0hkKXinOQVUQjogtceae+phArp9XmQTXi+BXLiHolCsyHLCWVIg4W
1kp649QoXGPF3x8wbobVniiWqimFB2s7+Q6rWsH3VjXP/I5C8mgBsT3RikuJ
Tzo19yzvLUQWFuS1olDQtUX/ewpNKU3PKbu32MYyfmh+kELgwkRh8O13kJ3l
Fzm7URgN6EkRXOaiJd+AkxBJwWbrrfjvq9/DfVubSIZH4bG+/r5fR/n48iZh
ODBiDHENfpw7kn7cl/P8xUlnHO9K7tmw54axob/8kWzDOOaY5Om+HRRWXo9w
sQz6BBN35vsLMZ/AyPMsHlaegHveYW3N1CkEpxcnKNdNwGL356CcHoIXhrHy
SgGTkD/X9/dYzCyU7IKNIhWm8Gh7zMjmVXPoNebyQthTsLHwqE8smMfTLOiM
ek5Ddd2c+1v8A49icyV1ehr3pZLjsX0LCI9+GNGbLwRzklOj8kqEdVdX250u
EiI45bxXfJMI6b7+ylSxEGqcS/wVXBFK7S2zSZkQdQr9gYwBESil9gbZWiEs
16s2GEhEsM9iyBvwhKjJsKCYVotQqTyVeHlJCJPCqqsGVYvIzn19fFEihLDc
fMjs5SJ2pRtq3GQQ2LnE7mM2LeLQ9YXi2JUEubrKzJtdiwjbn9SeoUhgadNl
aSlaxHBbzcY6bQKhT/T5L9ZLKBpXz1BwIMhvu20axVlCbGa0V78jwYmA63MZ
7Us46zSt++QogY2DtdGrniWosdlPD7sScN19fMxmlhCXdLLxrjdB8JvXAW2q
Yvia/zb7VQjBsBF3wihQjAOTjMruUALOUNoLx1AxNB74huXfIDAKr+ZEx4jB
X2Ox2i6KwImu9jXPFOPHPr7anSQCHclMRlWLGN9GbWSuziFosDEgeiYS0BZh
6zpzCUito/16awk+To+8zykgMAtt52oxJUh2LfU4WEKwrTe3/rW3BNIdTpei
2QQqGkFFrukSdA9UWxyrJbD9XDHOyZWggqVF69QRzIqP+V6tlCCAnolt4BBU
bi33y+mQoLc9KWsFjyDqjdfg2CYaVTELZ3gdBA7dc6vm9WiwrE8ZZHct/4/X
1A2xoGH/p0mZbT9BuvpzYz0PGnpuqSHKQwRtgpOngwJpyCrSe4dHCI6ozMrd
iKLx7Nrb5ohPBLslGx3di2mkGpslHZ0iyLauab3dSCNo+HcXLUJwYMUIMR2g
4ZAmt2V2luBefq1MvYiGvsOFgZfzBH2bO8N5KlLIyXx4nLxAsLfk8Q9+e6QY
LLf281okGFu41xHtIQXbL3vnLgnBwcRavkOiFGkaa79IpQSyYanqulIp/gP2
+bzM
        "]]},
      Annotation[#, "Charting`Private`Tag$2602584#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4lOsbx4cUKmQ/SVFIiDolW+VGKllSKMVYkyRESEJNpCRZCllKw8xI
llSWzpE8Q7LUORkcS5tQxigzr8nYt9/z++O93utz3d/ne3+f+36v693ofd7h
tDCJRHqOn/+/A8mHq0sbhqA/dcRzY2EBxEYSmnlvhoASRsmz+PEAfrn3L9o3
DQHza8Vjw6i74GTZ3iXUOgQkrTMbfgolQK1WQ2nFe8wdj+K6NKJBXaoi7vQH
zNoHFZOun4EkAc1FsR0zxX624pgFEnxM/7O1E3P1EaU0i0DkhuLForoxP5US
yaJHoib6xW9bP+L+xhW+Se+vIb3EM9V9nzF7x9MFjjdQ5vkTd1L7MMfEdfCj
E9GS0yEfiwHMazM3dDsmIz8Tk92C79gv2WPlbX4qYqnoyBSycX3Fu52J2XeR
0XLlEeeRITBTdF1/TCMdUX+uZoqPYi4wr2i4n4FCqniBgXx8XjfgUpVxFvqU
881SRYDZNyBqKSAbWVBY69on8Tze97ZnJOcgGZsXrfrzmG/ffNqQ/wBd3k6j
shexPu5x1s2Mh+i7fHpElhAbKFcuRApF56HK/nCN+RVsoG469VlVhoqUm3zn
y8TZYLbD6mp1KBXFlzh3eqxmA8lMZ6ski4qOXzS+9kaaDf0a9qNyl/NRnav2
iXA5NjDnqHqmLflos/m6bZqKWB/xWEdFpgBNrVr4kqiM9e4Kru+yC5Ann1ux
R4UNnswPN0d7ClBLd18ibyM+DyYqETI0tL22zYuqjrl42ePkQzSUlc80ctBk
g6q4ifaxGBoi3XwuJaKN80lsDftZRkNnAwrYVVtxvd/fMuAzDZkYXk9fuwP7
v5mwpunSUbf3WoOH+lh/kKK05QgdhSY/7VE1xP7h8o3Hg+loTc2+SLoxzvdb
Wc08mY5Kh3qVtuzB8+k5oz79hI6spINqS0yxfqd9z+03dDS0Z5n7NnM8r7f7
Y1Z9pqNYv6ylF/twf65oVvwYHW1I1803OIDvn5YyKSrCQDWowaLGCvuNjjIf
yTOQ8y/nH3ttsJ/9xriTGgwkUODG19vhfGR5Q/OdDJRqEau5/wj2d6i38wYG
2hqk2NrigPMF5L5sPsRArdml/rbHcL8lt9EoBwbyfWu+muWM+6nt+p1wkoGE
+d1lji7Yb97LZ9qdgfKUA+x7yLjfOs/ITm8G2m0lxHfxwP6QJaZ2moF6QzPv
9nnheUUVpxCYwx7p6Hv7YH/WCUNzzGveM7uGfLGfk1KvyikGKps8FnH2LO63
133xrgcDWW/69Qf3HNb7xPPyXRiIbUepCQ7CevOsIkcnBoqNlCcLgjEz6349
tWUgFUbxQkQoPv/5inHNPgaqZcGjuXCc72xTb5QxA52Y/8/s6iXM+o29M7oM
NKHpPygchfPN3JM12chAdx2X4m7EYL865nYLWQZ6X6zVfCcW+21OqkfjdOTX
XecnHY/vNzuRC4N0JCLstDLjJva75aX9oI2OTE9esXuQhP2EnvgvFtLRp+uy
hEoKzl+9xkIijY4inhWl0tKwXrh13arLdPRMtLOzOBPr71XSf1jRke1Ov3C9
bKy3HjnXokdHI+4LCi9y8X6blvuVyNLRpmpNl7+peF8TTtyYTzSU7hPd31yM
z5/IGXtJxt93qnSsTRnO+9fBsWkTGvr3VaFaWznmCbtQpz9oaIVsu293Jc7v
qjbnyypAl+o1uD/qMCta5RwyKEDkDW0zQp1Yn1EQavWZiiTXXqh61YXzpo/Z
RxVRUb2sfEh4L64rvP7UFkZFm8VdOZyvmNfJmXFWUhExzu5u42D93X3xu1zy
UGzrYsXDRZyfSJecycxB+o35552FhoEiQZGoV8xBw3WWOtIiw3h/FpIy97OR
bWViwXXxYSCppx92S8tC8o8U0s7JDQPTd2rPdFgmKgrTCzLWxlzeMio8l4Zc
zrdrjW/F+pOm+wdOpyEJ/7Ch0m24PqXfGdmWii541JBVd+F+wr1VzXtT0G7r
AzaiZljfIT5f75aIPqi4b+k6huuPhhNX6VDQxLs7g8HXcN2B8oNacAa+rOry
m4/D3H/itK5EIDTYKhM3b2C2rzAKhhBI/VA8l3cbc2ZcV+uri6Dd0Sz3bwb2
a1ttZk1QwP2j0EGtYlx/+cbGyScJmobDSwY6MAvp8V5Z5kCWiHuYgzoHSLXp
avoni2HxlOKu9s0c8JTRSilsKgafN6wJey0OMJe5mQbpl8D22H0RdnocoE68
DJ1fUwotS1suWxnhumbbXxIfymBqdvyqqS0HKD6GS5ySZ3Ccf+u2dhgHgu+H
J+52qgTZvqoC4UasV1UKPqVUC8tjrjkZh4xAcJG14XRkM5CeuJcPyvwEUkJY
7+G/WXAhp/yOTMNPqDSQPRzX2A2vdRLEpIN+QYu1wY4b3l9B2vrC1ljJUaiJ
85Kmrx+EL7qszsjaUagTlxrjmrHhWR6o/3DnguX2J0UDOT/BrdxAev0iF2bs
D/pZXyKg2mVakkXigY+nL2tFCgGSK2pWxy3jwWHpRxMdDAKY5L1iI2I8uLe2
aSSnk4BNKy2XKmV5cESd6TypOAZsn6NcWy0eeLjVeHwMH4MgpYDWaCcevL4S
wiMb8aHprW7zNmceDNh7dXVb8kElhGgcPMkDsYGSbpejfGA1X2BaefBgWY1Z
3DV/PuwIj3wp58+DnPpGeduHfJhqu8EovcoDIRGpuV8iv4ESn3/tSzEPKIUX
V2z4+hskIkStvcp4kDDp4an68zfk+AXKsMt5EE5Na9Sb+g0VNsY0opIHdbpc
3WDpcWBLtzcKIx54i3oZ3DowDjZ5JDGtTh78c4kzsrNiHBReeiSHz/Hg3BRZ
OuO+AGhFb4/PLvCAPJGz0rdQANtzdFSukgjwfX3phVWVAA7FTJUnLCfg+diw
pGWnAKL3pbTnShGwI8GArLRmAgbb6uQa1AiI7nnoeePOBJRx1udK2hKgnk0O
7M+ehISH8Z59hwnQ3JYl96BsEnwcuBpPjxLgoOD6IKZ+EpRra5/ZORPQnY7/
gyOTkJji2pTkjfewVrxeYc8U+Blk81dGEqC7Y8N87sgUWP4ivfwURQDFtfOZ
MWkaVKh+0cVXCOgs0Y+UVpyGbnEjUevrBFxRK227uH8a9n/tVr6F9y42o/rY
kTENm67LWYkWErC3w4xTHDoDi0bREj1FBLBGVecUUmbgI/d7R2EJAR2iYYa8
4hlIda5wO/CcgBaWGHf8+wwsaTuExtcS4B7yY0aaPAufvv1tdAwR8G6nKzcx
ahaq0zcuqjcQQE5syC/OnYWgxbGExmYC2g5mbZPom4Uv7Sl5y/B3VvZaVnVZ
4Bz8dWPqVGcXARm9dkYO9+YgfbeHFq2XAGWOBPlLzRzYMPQqLfoIEJ9L0vlT
ch42u2RGygzg/G08++Mm8yAstWg6+J2A1Fy2dbDfPNRc+rf12ggBfj5PHf95
Pw+ZurtSjo4SkPT5maNAaAFCBh84bSQIaKA0fp/avQC290WU+HwCqkZNBR8v
L8AW24BvTAEB44ZuPZrMBRAR+o+eOkXAb3c1kyuSi9Bftdvfc5YA1YHkLIH/
ItT607ZtXyDAStbCsHxwEe6rrJpYWiLgfruGdsfCEvwPQIC1qg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602584#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj3k81HkYxyUhba5UOuRIB6W8OizZ7VOybeuoyFE5u6eDkNbYaB0plauS
iqgcJa0jFDGLLKa0msYwyRWyP+OaLy1hxvxmZ/94Xp/X53m9n+fzPPqHzzoe
k5eTk9snq//1AHevTdRxCuppf3vr5ZZD/V1V8z8yX3UoUtm5iYXcb85BJ09S
EERucfVfVQUbg0Ht4dMUVl+u91bZ9hqUfViZn6+MLzVMLTesRkTwfPcxPwrm
jCgl4VA1dLNyJEHnKJS+aUs7mf4X9k83bfudSaFrN6NF2leD8VWneuQvUEjI
2kkdCK3FzX3SyMuhFBj8R6y+OXV4l2PEjo2gEGYweeOZNlvWr2BoRFG4m/zt
o8tdNhTknVRuX5HdX88v2a71BlsPXLS/HyPLr9lU4iP/FgVKPF5OEoXJ2iIl
5ap6JB4N6WLnUGDqh42oUA0wTdCIsM2VzYs4czqs36Oh/PFyTj6FAi+f68np
76E4j3ucXyzjvy5Yp+rGAfP1iuHeCtm+7BK9OO8PcF/GmZrBo7DWrD6QXcyF
6qKAF+XNFN5Ue3Bcurl4PW++//kWmb+TXXpzbiNWznYTCDoonMl7V7nkWCPI
vxSfI6Cw34hklqnzEPGWLkqlKbQ/8VSd5d6E7MB1vhbGfQh5WqZp18DHeH1s
j194H7bVjW3Usm3DXQXPQEdDASIiB35wO9uNeZ0v0uVrBOhapO4Q2t6LWaHh
Thb+/biaqPZb6FEB5J565vdoDmDU18VGkDiIgOT8WM3qAWRrsZl+k0L8uSZa
WcN3EIFWCnnWBqPQsAlYG6E6hBMrVpXF/vEV7SYfeMGsISyrYKaf8hhDQRoM
ez2H4Xww1Hbe9Dg88s00dOhhzPw59aVJ5gTCoh6Ft+cIMbnJi11/awpzg5Rs
DuUK0Tq2z/FsyhSSGT6aVL4QSyOH3y/MmEKRrUUGKRZi/cAgJ7BwCpQGt0a+
UoiE6M7D3twp2KbJKRvxhOCYiC1V1EVYUOIVd14sRMGtS1o6N0TIyK51EUmE
WBy+R9vzngimyWt0f5cjmIq7uCPrkQi/hE7kR88iyON3B+4sFCFkRzw3RY1A
6Kts/JEnQg+nQqt6OUHbhOd5W20xcgU6Kap2BJXfuR0KfSJGdGqUd+dugpCE
B0s+PRfjqOPwijwHAtNze6usWGIsZbEK7F0J3KdTN2/ninEt3q0u5jBBfV1/
1rhYDIbZvVGVYAKxWqBehtM0rAflSlovEIQvcm3T8J6G7kNGSM5FggTj6Kik
09PgzzZXsrlEYMj7Nbs3Yho/dfCXXo0n2HDdrPBZ4TQMLmntUnpMYBW0VZm3
UALaPGTux2wCh7KNrdorJPg0/KXx8TOC5wypWfQGCRJcizx2Pido/vH7XUP2
EkiNHc9FsQgeZttnal6RoPXzK3PnSoK3mzZ+GLotwctEfdqwmiC/psVPOUsC
X3okuoZNEGf3uH9BjQTt3Pi0mTyCV+PL+BaKNEovTxzhNRNEWUcvZi+kkWjp
ZZTRQvCg2yyGa0TDNmtdsVUnwRfxlsY7e2isPJgUrNlNYP3ZeS3zCA15NXpr
zxfZ/01WL/WYNMqYDW/D+wmOkvq4PZk0kkw2xzsMEYzELOrYwKLh33PfSZ8Q
KGp4W2Y007C7o7B4dJTAIOda+OxRGqvtznyuGiOI2fUpXVFNCoUZTZkJEwSF
4m8PnppK0fXC8pS3iCBg/J78zP1SsE5lrDeVyPjaCxknrklxR3fOuFRKcCNl
xEdHKsV/2fq+LA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602631#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk4lGsYxiVJsm+VFi0qS5ZTJy3K7aCOLB2kEkI7ShSOEpEtSnGUksyY
oSQlspNEtlYGh7SQyMxYZj5LdsZ5zx/f9V2/676f+36f9/vjW3XU0+aEsJCQ
UCZ5/n8farAyCz/JxkCW7hbFiGLIvC9v7v6f3wVs0vUtQubofj83Nza8ZK7X
u8Xkw2x132LeaTZYPpPvpYdzwbYMLvE6S/wxCZvvlOUg5KKi4y8vNlwa1yzV
rHwOlYcZM37ebHRYjoca8LJRykLylC8bun/rbHTbmA276X8Ngy6wwbg00pq7
OAsj6907hS+xYajz0qCGl4m4fbOhEYFsrPwsf0qz/Sm0g26vFQ8mOk3T+Xb3
E7zPUK+9EUL60rR5JUJP4NpS5iobTvwj6iYyWhkQEbYVj79KdKkMoyjXx2Bq
9TxZfI2N4E3ZigHP02Fw6LJlUjQ5n7T2vUjRdHwJk6dUYkh+n2Hy1ZOP4Jed
Hpv6D+Fjpz9eZqUhe35TU8YdMu8REb341UNYbHL11b5H2M2xx9noIXqcZpRy
7pO85Nji7x8eYHXBevtiBhtCVvuqGSOpKPtROrUjlfht+95L3UqFg6QNrfwh
0XFXcaFeKm4fD+iozSB9q1kS3tdToBsrG2KeSfx3POT37UzBxxdpa+qz2Cj3
vbo7fZgJd45+tU0O6fsqu1j/GROi8g0nW/KI/qgqrPUMEykGJ8XsC8n+E7w4
ax0m4D71uK2Y5I9rdvmPMHChYi3vZxmZn0dPNIxmQIFXctO1gpzHPGdlvCMD
zxdb6fZXku9jd5S2QJeBvSbdDZ41hJUODgSJMtDr6e89/Ib4F8q1Fr5KRsR9
aUW/9yR/y/Z9oheSsab2QcHkR3J+Q5vK4s3JKB/aZneZRfyi5+NSx+lwXFE/
MaeJ6Idluu+W0yG15Hz+i2aiD96YZxdFR4W84jnfVqJLXYxNOUiHj1TRBp2v
RK+hNZtq0rFugQOX20Z48VDzChE6WucKUlM6yP5KCpJTP2i4JmA4O3YRfXyz
YUEVDTsmjJcqsUmeV6O15lMaqGF2Sz2X6EGJS7Yk0JDCj4qL6iPzS1cZFkXS
YNuzYa8xn+yT9nl5TCANoj/rF8wMEC5bSKP9TUNR+/nqgmHCi06vqPWmwf2z
4hWvUTIvIeEy4EPD8n+LdmhMkL6Df5+cvUgDq85hvGuK+Lvop76G0BDyVpBL
E5B+nYTCMzE0/F7F9Dw4h4Nyq7qCpGQaOGUmmrIiHAiFpFfsz6UhsZjDfifK
geG5s6tC39FgkXctJWwB4V37BDLdNAieaTkZSBC/93WbfmE6sh+zloxLEd1z
f7uwKh1HH3g3P5cl+bXflxmb0qGYrPTPaQXCNhPbkjzpeHOv2GLtIg6C9fzF
BPfo8L/tKPZ9CWGVAxN2tXS0R6UE2agQ1lXqK9NIRmzYLn2J1ST/pWFSpksy
jIO4o9WqRHfc89rxXjLSfbTPbtPgYKVCfOLxBQzYezaoD28gfla7UKE6A5Lu
Pt1PdThgRPcutTZn4LxziePKzcSf4Lp+dxwD+ma7zecbEr99cDRTmwm+SY9o
hRHZz4ipRrdjgoHo1/67SF+5r2VJKBMimxu38c2IPn1uBG1M1Kk4qTXvJ3lR
J5ZJ01IQrDzn5007wkZKR+LrU7BJ8UGyqQOZn5vQsHRuKhLEe5VKXYiu1xu7
1CMVR0d856WeJvezZItytMUDjLy70el1hfi9XxYz9dLwbWGz63QoYenj6055
p+G1xTLqagQHHW7hYT+z0xBblzFFv07O0+ufN6v1CBqNtQof40neny98I3TT
4fR5zp/qGWQ/W9fDrvszUMPxffKjkeRZTXlkKmThqdrL3zyaSV6cuHPQiSzc
chMpGv9E7sst4XRbQRZc+uKqpNs4GKDNG0vSysYkP6ttJ4cDl4pjilrN2dAZ
7ZFOnOLAq+5IWpFuDhJEnHxsVLmI/WR5v1wpH4JjizY3rOOi448mY/Xd+The
yRr5S52Lga4zwW9986EbYuxnqU38KR/pWc35eDOr5m+6lYuV7qJiCxMKMDY5
HGRgQXjJLe+adUU4MBh1XcOHi/L9V6xK3V9Avj0/RbiKiwSzGyLaf1TgpkRg
YGENF0LsQP3rRyogrm9id+YtF5HlKTbCIRUQTmiUbKnj4sKRE607KyswZE1d
ePyZC1OZICvu7tdgVav9ZUVx0Tr8p/60TSWiM+9P0ZR74DWmeqIgsBrzAq/Y
bjvXA5kGE6V65XcQeuyU1SnXi9ajxm+amxtwPjHrhtzrXrzZsEJ5e94nvNSM
FJM92wcJWl7uiFY7ZM3ObwiR6sczXf3wRp9OfNNiNV0s7cfv47wmDfLfyKZD
9acTD/GiliZGrb04nKUnu1zAw7Xq3449zqBQYD8uxRLiQ4Vll6lXQUFKtEQi
dC4f0XfoBU2fKJQ77hTrEeNDT1qxlC48gNXiJrN58nwUDGn5uOkOgH3cmmeh
zsftOmud2BsDOKt85m2ALR9SSe2hiXsHUVOtVatzkI8khxe10/aDUDlHVXUe
4iPFxXmN26lBsGrPl5s68+EyfTTAJXgQG30vFiq482Fb2GL0IWcQY/URD58G
Ee6r/Jq5ZAjB4cwr3zL4iOuXcXAeGIKk33yzI5l8vPVbL2c+M4REVw85dhbp
F47/YCQ+jFzzbalUHh+KrLYPB1SHwZZtqBJ+xcc7jdZHCoeGYU4XElNv4mNo
Ze/J+dXDUCp0vuk7xUeOxsa0gUe/kJpefWByho8VltG5jwt+QTdRUyVIiEKp
QbOLT/Uv7Akcy4qcR2Ey50kiun4hwDim4b40hdwuya48lRF01pcpvF5D/NO5
EQ5JI8jkLr8vZUFhu5yFrPKjUUTSwl3a91KwtNw6U1gyiuM2vLXPrCnMGM0y
L9WNYllpabblQQr/2Hpm+I2O4lqMQ030UQr9NlX9h03H4Kp3b1D8IoU/Zn/f
8/PXGEz6hAq/XKIQYXNX8cjCcagwXAMyLlOI5DzJWbR6HC0Lts43C6Pg2HLk
+zarcexqa1kWFUPhQHdATXTWOFaHKZjOT6NgOyp5tSxgAoKtAZKf0imE25hw
5yZM4DOvqzHtCQWlpyK83NwJxB7MPbz7OQXnRHaoW/8EZjVsvMNLKfSqpd3/
fmwSX74Xb93/ikJw9c3CDaGTKLi9SqD6mkLH7LVSldRJnBUMRFbVUlBs0l+z
rnsS3xpi6HObKNz0pZwOeE+hKGLsWFMzBU6oGtPr3hRu6zurp7ZScAqL31NV
PgXzh9p5Ru0U8iTmnE6Tn8Y6+zsX5X6QfYMY7TcxDWFpgUFnF4X3Gs+D3Tym
UXLh49srPRR2LOLJ7WRN447W5hjrfgrryrJylUVncK4zyXYVRWE88MytOszA
4q6I8uAghfkdTlvsL89AzeLM9/JfFN7ECVWZVs5AZM6/D2LHKJy6cnf7JlkB
OvL13V0mKVTvVuWpewhQ6p6qoztDQdpfkWbwU4C7KgtHZmcpsEq/7GyemcV/
3Hh+0w==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602631#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkXk01XkYhy8xyFLWIkb2ENUZOpZz+rRIDVfljqWSm7Rps95ORCNLUrIU
latCrpE0QkUpjbpHkV03orFkqZ+K+9VkGXedO3+85z3POe/5vM97XpPgMMZB
eRqNxpDV/31Ha+i070IKU/K/KQy7vobkvh1znRqFaN6VlbdpTai826n/rwaF
8NG+9gL6GwQXR3VXaVIYXxr3c5RHM3QL9C4f05HxJeWL181a0MSupVssoUCz
b1Nf87kFp3P2KA/pU9ghtzPJiN2KwQtF8QxjCk7i3DTvwTZkJW92VTOlEPQ0
PbuP1Y5N8eOzr8wp9PrZvrRS7EApyz7U2YaCw5au7V6qndgd1mX9YyWFMQVG
QTK9E+pHWZ/+XEWB1WFgNJvWici9T/csd6TQkDjcu/6nLrh6uHsqrZf5Hdl3
VX+iC+3GzBXdvhSaCrWTEjJ4OGsgN5axU5bfUq34pZ6HX3SLC7YGyPYz1Xub
pnjIXfhVry5I5lvEKFH1fofgmZOKnGMURD6s8y5q3ZhpTh8JT6BQXOvxWBze
g37V7hBRkoyVjIP82D3g0g3J+RQKPrU3mREve5DVXibMT6OgbFlfObP4PWze
Nuq0XaVwvOWHzaHy92D2yW2xLqOwfJeVxvKBXrymTt4bfkvBLd3kgaPx38hV
YLIY5uMY95/IcvQegvZgdZF8wzjIiFbj6cOjUDyT4OMc8QVLdofrelnL/nCX
WTGi9RWzWVaHGxK+IjKvIl2L+xWmzSFKnsp8PLdNVdYM/YaSxF0urU+moOkR
uTJRYwILKJ6z+/Z/0G/XyYupm0CyZbTeCbVpVObDfIw5CW1uKtuiZgaBFWs1
jSSTaNfbX25+ZA5nz91O6C/jg+VAdtEPzkP9lJLHvnI+jNgvkkxPzCMv5ITW
5wo+aN3iZyLWPB56OnPIIz5KWIcuPU+ex2fNrgb5ej5CbnXaRhbPwzOfpmzN
46P4bLPbo7F56D3em3FSyEeuScs2nSMCcEpf+QnEfBTQpHlpEQKszrM1jqcR
5Ng5QOW0AL+ematIVSSw2imeW5ImQNymzK4biwiG681sU8oFGOn4S4drRpA9
VaP14ocA5eNGNzToBEFGcYmVKUKk3joXNLiNwCwwzZJxWYgDjEmL+94E7+an
V8jfFMKwrq7Sy59g3QdtbkaVEBczA15fCiaoc3eJPTggRMha9veFMQS1d9i6
UU4iuH2jPf4QS3DbML5xtZsIxoUhcWW/E1T7h5kp7hChR8VJySOZYENB9vT0
YRE2D/QYXsgkCFhzwFeFLYJpss5WpRKCAi+LWCFNDIlTnPr7Ulme/QWdQg0x
+iZH35bcI9jayikMMxQjy/9hoHuVbL5G/2qukxhSG0bUuTrZvW4Cr8AoMT4M
1Tr51hMs49wVcRLFqMkxkZhzCQbzfQLsr4gRKplKbWgkiF2WXmryQIz+rsz8
BTwZF60/tWZWjCcpc/t53QQmSbHDG5UlyHHda83pJfgmzW/oNpDA8w/7RxsH
CVQiKjqfbZDAcve1GK1hAlurdq6DnwTyiyTrRkZl/i53muKOSfA0uu1NwhcC
t1TycQFbgmt2jpneEwQDaQ62nCoJIkZu+pgQAmJj6DLQIgH9uoLB9+8EVdNL
z/88LsEK+vGhF9ME0eV3ctWVpFCQe1ecNUfw6ZQmj2stxcdq16NBAgJTtY7F
+xhS1B3lrFotJjC/rxVzPEWK68aqM1IpwbxQPltXKsV/pLObqg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602678#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk4lOsbx4coR7KNSJtIQrY6LWj5diwtUlkKpwXhSCU7hbKmaBHlVEdF
0qbloKS8M5gmpE46Y205EpPMjGVesi/D7/n98V7v9b3u5fvcn+t+Hm2vQKc/
pBkMxj3y/f/v8D5gYLe8AA7BaRzOjkpM/m3svkFBALOck6r+Fa9RkMfTHFEU
gJMXkdL1Dxded0IbC1VIfDqllqPNxexs9fQjaqS+v2Cr8o1XqP6rxH6JhgB+
3+TMZhu/QlTGPrlvmgLwjFb8rK3hwOji1Otr8wU4Xpif6BTFQUvK7VgnLQEe
MA3qlM04SDtlu1ZBR4BFocmyd7+UwzpWOFSpK0Dry/dNhQfKMRR57mnsUqLl
m1sP95fhQZhJgIWhABuZwZUeqWXYE1hr0G8kQJrLP+pHl5dh1uGwH49NBWDI
j569/18pOD4aOb4ryHnD2jq2ny9FiAe1b9EqoqetXFpuVQrdPfvnfFkjwK2e
LUGhk2w07WI0XLYUwNN7ZstQGRtr7TZtm7FRAOVTMtNF9myIbUTTX1kJECT8
bvRck41bOM+NsiW8lswzn9HJgpOlaczKLYSXck9LbikLMqvqLMR2AhRYttm6
ZLBQbBo+eH87iWt1KdJHWThkOKfwgAPh9bEiw9qOhQ9a7vqNu8l8NesMUuRZ
iJsr1Z7qRuo1FHetEVP4dfad7C17BYhzdbg9t4FCh9LmvdLuJE59cJvDpnBN
vlOd7Uniie/bNO5RsJO9UBfuTfgdnJEufYmCZMo01dSX5K8TBL6OpVAwVrdV
5Efy1yUrbw6k4DUYLpt7hPDUP+8b7UlBrXfOq30BhI8z785OZwpvOlkn1IMJ
j307tIo2U4j64W7OCyX1qy+YZa6nYNQqNZASQfiLtHUGVlJo+XIn3zqS6LUN
Gs+NKaQ1bj4iiSb8XihIeEspWPE69V7EkHovhK1bTGHw3QV+UDzRmqrV3VoU
mmc2+k0kCtD7fSyrbwEFrv18+sxpcv7WJQuliM674B3OTCFxrkMbk+i0Dw/H
s86R/kdm83UWUohQ+hlvmEp4PksIXrqIwn4HC7niNKLPWK2YR/xs0uNSf7tM
8p9tYI7oUTCse6NW8yfxT3hh93IZBWWm0nW3a0Q3cRxdllMYdnbRbs8k/k/n
tb5fQ+bLuHk/8Cbp5+gtVAeFisZ24/Fskt+SlGFK+DxUNyo6fZvMXx9vpepA
Id011FL1LuF790A89TsF989Smw0ekn6zcursCH+buVtrih6Tfbq8tNUwmsKy
vWnOG/NJvNoiiHOGwkjzQk/XItL/1ulnktvEf4FvB7+YnH9M72xWIYVK9yf+
ASVkv+xu6Ak4FC61ro1MKiP1PyXbvNsoHNdOnFJ+Re5bqqww7ScFD693STde
k3yfg0f3yLBg1O526Vk10fNuBhUbsFAlCH/UVkf2x6Th27ZoFh7rly4/2kj8
UtpuqKSzcPmQzMuRj4T/YBbf4z4Lnl2XKpS+kv0Y9WdfaGRhTJz/db2A+D9f
zhhZw4bpkEgpc5zk//41KIZZCvU1y68smSQ8Sjau6TMrxcSx4/MLGULcSjAJ
rt1Rinej0w2qZYXwFKwbbThXCh/JYqshJSGUr6hYV8qX4ZqMe5iTrhCc4b5i
u3nlmPTWWFWrJ4TZF287pw3l8HnNG9xpQOrbN8o9Je+JWYL1se0mJN/pWk5E
Xjmqp/SjtpgLwdM7xItZyMHwWH/sBnsh4sZX5T4p4cClL+WcYZgQbpHxKYcU
uGA7WNvnRQghl944ydXhQqdgQkE/Ugh9Jd3jGyy4EAcEpi6JIf3qD6dl+nKR
1L0rfVGyEH43T1m3cbkoEmhdVb9B/NdPXxgd/xrMlue3pSuEMD+ofj1rdiVS
FU6efFElRJDlQBJzRSXk19q4+b8V4qWfbmMeea+lr9XNavogREEIq98iuRI/
HenjeZ/JvJr6t75PVIJXqb/TgRai99AzV8vuKpx/cn385lwRPi0a/kOKXw3Z
k/G7LIJFeGDVvkC0uAZFfd2j5aEiFBTbXnK1rYGPr1v2pggRGB0jxl99a1Cx
07TTOVqE43m1D4wf1uCUztfYgCQRqv/ct5u//ANkqs0f5f4lgv5jaf80238h
zeyVUuSKsGtr+7v/ynhg5Lnn81U7YeaVyXypUY+QzPwLqtxOuC1JPLmy/BNK
lyXLqQR0Yb7z9vVSit+gYhdilKDYDTl3J2/lBj6ajXn1kexuREibmWR/7kBB
FnTb3XvQ3JY0ETO3C/vzV6ssmOxBlCg/6m0rjeI9I4o8hhhn6O+rFw/TUJxO
KSROE+Od8x97q6b3grNvvZxITox4yrJk84Je6MjbTBUxxfj1p3rCI7tedPg4
9tgbiKFc8jlb5n4vAub6vz2xS4y468z2UN8+VFUavzF1FcOn53wgO6QPWsF0
Bf93MYza5qgoxfaB9yaEs8VDjFB6dW/d1T6sCI98oXZYDGvVf+5/fNuH4X9P
330cK4ZC07TLnaY/EZeUE9/8UIwdj7Zbjsv0Y9axGXYHnohxLGV90AeVfmT6
HVXtyBcjtVF0+8nCfjzbZpFLF4lhuHdebJp5PzpUaiuky8VwamNQXf792JbF
kDOoF4Nn/zhP41M/1F94pIaPi/EkyH73kZIB5D6odBmTiFEVpntdvnoAZpnL
tGIZNGx0J4NZTQPYenI4P1mWxgxHiuc0MIAT1hdrryvR2HNma7aH2SD4/5ap
cRfT6O6t5S9/PIgnwgXXFe1phFHW+1Y/H0LyzSTPlh00tiiWeRZVD8HHqWfJ
3440Dv8oGHBtHsJ8NrtguyuNDHf9PUyZYZy9uLfqvBeNh8ZyhhG7h+G3+q8+
+UgazvN+O9HFGIFNF+PFl2ga0iqBs2w1RqB1y+/EwxgaLuf5+p+MR9D0i/kM
u1M0PPTMwp7uHYHt16b5KRdprJJkvgumRqBzSm3LjHtkPpWrdYdOj2LS/MSs
jw9o3Nm4oSUpZxSfe77X3XtE42+d5qmZpaNIc322f1MhjeFHCnL+g6OYMnQK
TWLTMOQlfjTxH8OXbyXmu8tpSHboLNt+bgzFGdqTulwar2p1E5UfjSFgsje5
4g0NtrLczaLuMTTXXsyaVk/DXKnuF9Wocbw8Pexd30jjtlPIWH/2ODLWehjk
fqJx+ZzRpVlvxrHtrkmRVQuNcmZ9XLjmBPT2XIlUbaOhr3vQfoHtBKSVJjfw
v9PAaZ2wopAJUMdr3saLaIzYeBUONUzgivGqi47dNNJyErST5CUI5t/YpU0T
vcbSsN1aAvurMnP7+mhYOd76wEyQQN/e/xtngIacvBT/RpUEMlINd9LIvQlu
NYlRU5tE6/O1hz3HaGh+SndJDJwE+3CuqZmE9Btoihb8mMRVrZmDU1M0Nmm8
TvwkmcL/AHsXOw8=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602678#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkH0w1HkAxvdEW4zEGTUSt5K8VZpiyOVp6mrEVt7C9bKk3FBRevOa4hJO
nV6cnIQSvckyCOWlkLauOrtLar3VKr9Vdr8pbu3bb09/PPPM549n5jMPK/yg
f4QOg8HYMp3vzfP+smhBJYVbJq4RtkOv4LjjfMBaLoVAze0rRdZdMCnsfftP
NYX5194Glwu6MNVvGRZcSyG3Y3VGti8fgwt/GxHfpyApWXFo1QM+nnDuHYhp
pHAjqj7IcL4AFcUTXxUPKZTUMI9Q0QJcfOeRkN5CwWnrnax3zQLEs37Xzn1M
gW3au8J7thCh4c/TC9spNO03q2L6CeH0IeRiDY+ChTyK1dcrRCd17O57AQVn
X60N70U3KuyaV0T3UDiQbTfmOLMHl6J0G6Z6KdQOMY0DPHsQ9vlih9HAd86w
CbnbA6WMO7CGouArMll/IvE1lv83alSgotD9otJNNNWLfF3OUX8bCc4++eqX
XyYCvWeeC99WgqMl84ysXoqwt71rcqv9NGf2S/dPiOCctj5u8zIJZqV2D3HW
9YGntUv0cpNgLNtc1N3XB7ny20lPtgS1D4fjF88cQNB4VrbD0el90co5VhjC
j4N113U6JPjYaDD6svo99E6kBrrHjkJRot9U9OwjGLc5XLHJJ2w9+EjvVNAo
Dhdwz5m0fUJauW1aHlOKZsfMWcYxn8FdcujSr5u+wNj7sFPanDFMFAosk6Tj
6F/aJUxoGoNvRVD73IZvqCqCzQeOFM6xs91vRk9iF9fVeCEtxdkAyc9OTnKc
Sr+W2n9HhvT6tfqxLgoYxjG9d9+T4dVchiBxjQIFkdEmI1wZJK2eHZkbFKjx
cS8ltTLYxrRxqrcpMGLM79BplaE2gT3lelwBnyLGLHuhDEfKPY1ZDQqY1Yf+
eUwlw9Odu09JoUTprSdBSo0MfvGeM696KeFc4Gh1kkFQyS4xDfBTYtMJOTdT
j8CjhnIVhiuRvD6Hf8WIQBtjWWF7Rgnxvy2mbYsIvBdcbnZ5pcQ9ycIrc9gE
zDgPC90IFTKvpocNbiHgJfuKpQdV2OsvXVzpRzAjdyJpJFEFi6amqs3BBIVr
9Kv0LqjwR86OzrPhBNt5DjXMFhUiXf8e108gEJSf7spYoMYvnxn1oiQCc7kl
P2+JGlYlkcl3UggiPY67N69U4/VsN6b3aYLU4uK4ALYaGwZeW2TlEIjFdG9L
ihrWp029mOUEqgsOqpxRNWi3ZMPeWwQZw4Oqv+RqvJUOC8rvTvtKnTg8PQ3O
B9fs2lhNkCBJKXhorYHWwf9IehOBw+TzYftQDURDjW7bWqd9rX9SD8VocD+X
Rdu0EXTmXzfoT9Eghv6S2fF0+k+f+6sfFGvQz88pmiEkKON94LV/1KDhjHyP
sIeg5EJg284pDXI9Qu1L3xCEWDbmJxnQ8ClbVrtukMDMrrM9cyUN2+15CSbv
Ccaq65yKvGjoGNGe4mGCqFXRdVkcGg/iXz5LHSXQkXZzY8/RyFvqkuM3RsAy
Ny/jl9OIFRcGsgjBsvgdEaLHNNiXdc3Hxwlax9tY6kEaduwDQ48mCOrkdmbD
NA3dH7pvnJcTxGu066uttXhX57EvTElwc1S6sZCtRdO+0uXOGoI3I9H1IWla
XLYymNRqCW53Xc8w1GrxP+sIm6I=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602725#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUnk4lOsbnhCONVJpO5aiaVFKdSS5lZIjKam0W0KitGhRKERppUVkSymH
JESlkvzQ983YGllzLKH6ZjDzYcoY6/l+f7zXe93X+zz3/dz38+q5HdvmIcNi
sTKY8/+bY9s7Z+YLCkXP8uKVvaqwcG+Uo2UWhdjrAaWbDSuhmdDwtTyHwjfx
PwHK0yow2Pyni1MehQgflRjtI+Vone35s+M1Bf80zs00QRk+Hcg84vuWqT9U
92/HhTI8f/irX/qeAjslXctgbhnufFt9LryQAq/NMNekjgt/vUvjk/5HIe1B
9Q2fSC6c3crCE0oo8E2iZsk7cGGdoqHCJihoC4SKRdpcLPq+604uh4JX9VBE
+g8ONA2StVHO9F873av0hgOpB5VUVkmB5dXY6HiDA4I6ndH+hUL+i+Pe7ZYc
PGd/WHq0juGbOHDFX4eDu4fl8gcbGL2k40fusjg4/2yTRVgTw+9YRko7Sbh0
3ylVb6EQpem0KoBLwnpRk218G+Mv9H2NMJuE0VG9asMOCrojeZJFcSSGRFkt
aygmz4cFeXdPkPi2RHKQK2DyKtU5FO5Mgjxu0bW9h+Ezq6mstyfxIif8+DcR
BUuV6QF+IHGvv2LAp4/hn104bLOURICJVpBEzPSvrblnPZeE26m9spcGGL0S
tsp+bRI2rx5fVZNSSE4IPHdBlcSSAYF63DCDVT/+mSRLYupfS+8bjDF+H7Gt
s4cIjJz1n5XD4mOSvY7Bs34CnfkfH5vL8sF6N7MkpJtAmVR+PmciH7qRVKfR
DwLZZvZZjop88PUyfz1tIxATEL2iTYmPb7sOD7c3EbhQ0PzeW5UPYz/3iKZ6
Au6jc9YNqPORrOSZHlFDwNbChxOiyYeNq0frDx6BpRdf2qtO4aPXKUS9p4qA
dpG0NnYaH4q8yWHRlQTGWGv3zp3BR4T++6bmCgLf10a0Z83iY9cEM5kPDC4P
/XxotQ7DX6VpspSpf1kyVUTo8VHkQgqWM3yxcgdObZvLYN/09pLPDN/BaSuq
DRm+NLZDVTUzXwnv95b5fLgsLpjhVMv41b/2umoh8x6rxdvTQMA41Ors5sV8
REmGjOoZf/fbR/6qMGbmDfKaTrQy+Vm+HrQ1YeqftiTM6yTglnzsLXcF48+h
/4eEIsAZZ5+3MeVjq/F0q+VCAoudO8xIM0bP8bZeE5P3vcL44Q1rmPzPhyhT
gwRcgtSCrNYx8+bdzV4kT4JoJtcUr+fDdPT8BFdmn4vMQ8YsNzL6UeGXxVok
JEPiixZ2DP8p9uaFBiT27cm0/GDP6M8351UYkSh+6znB3IHZn4yN4qeVJG75
fw1dtZPRMz/W8vJvEoYDheHLXZh9Td7pucuPxI0d/ta5bnx4Zb11vnSBRH/e
UoVlHnzkn9GcIr1KotDvScQSbz78CyzTPz4isbPv6vUFp5j+CJlTsbUkCrZa
2aWf4UN7xXqJpJ2EfvaICvscH40cHf0HNAmR77FbBhf4GJyUey1BmYPwnu23
dSP4sNRYJ3vLmoM8SidmagKTz6tlJw+SHMzY+NUpOomPYOHkE2caOQhOvaOt
9Yj5b72proUCDuw8JsZppDJ5lMUkdqlw8b2jK0Elm8nvQb/ckx1cTG599Vim
lNmffIatfi8Xt1SCgt4QzP++VyKWTCyD0ur1u45wGb0mVzWZWWWQif2iWl/F
+PF55ZdjU4Z+B9o//SvDn7gj1/dJGXif2Fu20kw+y9uXD7mX40Zm/HDiDAFM
A0PbbipUQrHZrX7bbAEaFQxvz5hTiTClBTkKusz7scLNny0qEXAo3/OEgQCc
fIX6rDOV8Narq15vLECyhwu9gV8Jm2i1tO4NAgSPTUqI+lKFiUEh21edEGDw
XUSplisPeX090o9+AsSSXB+N4zy4e+56aH1GAN0aduasizyUblnS5RggQHas
cdGBRB7C9Fsu+oYLUGHyMTSyiQc5jmlGygMBtj7U1Y5xqobM5N4JasUCqOR4
+P/c+wWs9ANZHZpd0FUkpjpdrwXR0+D7cEoXAjes7J33sBY3jB0W79Nm8Fdz
NYXcWkzLt8qsm90FdnboCN1Ui8UkO4PD7oKKwxO+z8I67PvRn/rCgsHNVLL8
5zq81buSdN67C6zvT7sf6zbgZFzWTc3iLvBC1Oue9XzFh4URihq+3dCSOjfG
yX6Dhu3JRaFqPVBxER6mzDvRbMSrOVfQg8Av66wcjSlkJ2Hu9wNCzJRML9/i
1g3xebGCq6sQ36O3efzw68ZKp3+6Ww4KQW18FxUW3o336uq5DV5C6GrcItrS
ukEEt64tPylEfHn0d6XebvzrFuT88rIQ+Xa6w2uCeyA/731c8Ash8lQzL/mm
CbE/a6XG7DEhctqm+Ear9uL1nkE1HkuE66WGP59q90JN/p3KJVkRIg/NXV84
pxdF+9YoChRF2OXCEcib9UJfaf143mQRXooTjko9e/HT3UFoN1+EKNeY28eL
e+E74wg3cLsIFY7jC2cH94H4ZEQucRJBW03p9t83+qBzgi7t2C1C6EiecnBs
H3jkySIbZxFSOifFK+f0Ydnpc2+0vEUo3Xko9WFHHySfLz99flEEp/z3rbyN
/QgOfxTS/EyEfEH47pkzxVA9q2DrmimCsfpKqmaeGHFeRzV/Zokw6UmiT+xy
MXI3rUqh80ToXO3SuMFejJ8a1aUyH0W47VrcsSJUjE1JLMX5NSJ4zdORXO0R
Y+ob51unh0XY0r13nmHFL6Skfdo5NCrCsPynK+lNv2Act1DnIovGvHQjbwvB
L/wdJMmKmEhjp/uJnET53wi0iqyOV6chMrG4vmrdb3R8LtQqnkNDd/Kyw4Yf
fiOTPztezY7Gc3eptX3pACISw11a7WloZZn0pTcMwH2b0OCFA42X0TXjC7oH
MKugIHuzE40gja6aZE0JrkXuJW640ZBftMr8zEEJvFY+6FM6R8OBMtElVAex
vpv1pimARlj9m3+lcwahk+wV+OwCjVTibIOn2SDq/zBVsA2jsfJAhlR8aBAb
WupnXY2kkbxh9YgWMQj9MC0bhVQasmU1HwqipBgzDVRtSKPhGGN66XmGFF+F
nV9SM2icCSriTCSliHLK3W+dQyOx5soKpXEpxhds8wsvoDElvsRQ9fQQmtre
mu74SGNgyg5f6d0hvL6nNza3mMbZqizyau4QfMd6I0pJGrfNjUpKfw2huToy
SbaGRlZRRrNlyDDyL0sO1tTRaB54l/wzdRj3VjvPT2mkIffpkXFx5TA2PV2c
t66VBrWDjv9HZwSGe+6f02yncdPOar/SphHIqI9ZdHTSCKnfcn63/wje+Vdy
QwQ0tv/hFcNqGsF9oxWRDj00CnUyw83UR3GiI2G7Hk2D0x+pCJtR2MXIzejr
o9HEzryicnkUbLsjbUW/mPnoJQfml41CbkLtkygJDY8RbqDhtDF8e7Xa22WI
hqqyrL/cyTEUeKcsMR5l9OvGDj6nxhCjo/x7fJzG7pYuVvPoOP4DqHuQ7A==

        "]]},
      Annotation[#, "Charting`Private`Tag$2602725#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj2s01HkAhifGoUmJlaRE1rQoUYdy2by7lCOGTYOskolq21I2tbvj5BJF
QzJSIVNWyK0VexDbsZLQVqfLuDY1IVr9XWZ+6Lbm8p+1H97zfHrOed5VkTE7
9msxGAzO3P4nL6TwujKQAq+iw/Rbdg9sllm23eFSeJFx+WbRxx5k8SUpriEU
eib+rvQ/14sP/TleTaEU3qbnczXqXoRt4jA37aKg5550JZTXh9ZcnY6GcAqX
osxzq5r6sPpTS6oTj0K0wu4pk9WPzGC+d10kBZ83LU9sQ/oxU79ed8N+Ciqn
cIVLYT9ajpcKHA5RKJIOJUxbv0DIdPo5uxMUQtnpv202laB5uxen8hcKi8vt
dy8JlMCqVqVvEzfXe9ZGu1IggfxoTBY7kUL8SIA3/4MEqZNBFywFFPI9ykZN
7r1E/TuLPJOrFPhLYgxi3aT4YqChWKudwpl/nbU5AwPI0k9IaOykYOzZ+po/
fxAs9y2h0Q8pOPZ4K3hOg9DK71rY95SCdOSYTnT6IGYCCb9SQqHQ4/RKrukQ
nnfYfLedUGDyBJtz7gwhs1qkvGY2hhmHV9x95A10EpKDXI+N4dGRBRb7170F
o3JPzbDROJbGau4H61GILag5b9Q2Dm7ACemtqQn8tUagZ3h0AnYyVqGglMDQ
N3ZtyqJJKE8nZ5qlTUNq/7w7rnkSugemyksj3qO2ENZv98jwvNvPxdLqI8Jr
Nhqa0zJ0zfcUzkx+wqnU68nSKjlESbszmMxZLPxV13dvtRzOkXz/LfqzKDh4
xGi0Ro4Uy6UhAuNZ1Pm5lpB6Ocb1dv5kzp7FqKG4XeuuHDI/XlSC9yz8Chl6
tt1yLHdbsNgqYxYmjRFZPyvl6KKczyYtUaCkoiNEoZZDU9yS+eNKBRwL1lgk
MQgc1yp8w75SYFvC5xqBDoELvXHvdlcF4r2EYpEBgdGNOruccAWGn7UYt31J
4BRckyYoV6CaMhct4hBcuPjNtu89lRBcS+UNBBB8nfd723l/JfbtkLFvBc75
E4Zp4lAlVjQ31/rvJKjfx04UxCiRIdzVmRlJUNXb7dB6TYmDG69Ms+IItBNn
lA/USmyZYDS+PEnQpklU2bFUsCg6GF+VSPD+3BV2mYkKffNddH3PELQXX/Ci
HFTY+rpvRbqQwK1ccrshSgWrM8Y+umUElabiyXixCrRL/ML+CgKzfwyC3g2q
IJGNdJXdJCBx8ReT5Cpk76wL9/6DoNFN5OGlr4bGbsfx1GaC0UeXX/3gq8bL
wT9dgu8STLCW3cwOU+P2pVW0dRtBawg65x1W4yg9JWh/QBClo2wSZ6ohFQsL
tbsJArIrikd61GhK+xzV3UsgC7Bn6VFqXHKPsC15QZC/XvHktlINvxvr6j0H
5nojHh9+b01jdVhunNEbggN1j6sr3WhoGdAewyMEBT5FPpsDadzhP3mYPEZQ
Fug0LkymkWvvLAycJOBy9/Q1iGgcG74atIoQPDpZSnIaaXDymGbT0wRjMe82
iXpp2HCiB1s/ECx79rjz1CcazHk9pdmf5/7i/smY5RoMNbgf4ikItJwCNtR6
a9B8qMTBUU1gkjLlbpuoQZ7Fgo8aDcHMvdKtOhoN/gOaN3lY
        "]]},
      Annotation[#, "Charting`Private`Tag$2602772#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVVHs4lVkXP4lIIlIaKXcdGoWpiPn61bikmMotpiFSGp3xqXQ77kcuSe6f
IYSkkZJbhCQklzTkPeigVJL0HpfzEkU4fO/8sZ/9rGevvdb6XfZWdT9t6yHC
YDBS6fXv7nY4M3vOhsTPzF5Ls9ZOMH9Qqa+yI8G+FXixYF0nYtm9l3ceJsGJ
EPLV73dgqjvRtNKJRLH+pi3p7h04Ymgtavg7CdHoevsz2h2oSxZrfOhCovXZ
OXPbWS60vtWEb3Mj4WXVEqjfwUW0A9ui1J3E+dCpc1ZFXHwp0xc38CCh5PW4
gRPPhZP8SHPxH3T989lNUhe4qDl3O3Iri4Sli1bfMWcuNDpd9hV6kbgv2bJ0
rQUXUQYKkrqnSfSfrvTu1udiPIF4kX+WRGU1+w8PZS4OT1y9pnOexLbQkpJr
0lxUHzK1vnuRhEbbQ0/lRQJqxfNSTF8SARGZ7fPjBCJlytty/UmcaeTUig0S
EHifjtUMIrHK9yhHpYeA/UvmwdscEmbG8qM72ghU6Q7IqIeSYPzS1Lj9GQGV
mHQiO5zEbWcbQ6kqAuGj9gkqkTR/SxtY+SUEhq2kbbOiSDD1eo2W3SNwKL9Z
bmMMCWc1r8+rcgiUS4Z03ogjEWlsPFV3g4ASyzhpfSJdv+RnvlQKgcstk/Zp
SXT8NsFoNIEAySxY80MKCSnjPzc6xhA4EHmSl5JKQk+He8XiKoGyz8opa2/Q
+Ng2wtJwAop7ex3/yiQxmNYfn3qZACc3cZ18NokuO+eXE8EEhsSsexNzSIx/
NCmsCCRg7SGWJptLYnfHqqghfwIPGmqOxOfR+Yoxcn5+BNZpsNfL5NN4YrkW
3r4EgkL1+2IKaPzGHV61bAKDA8M3pIpJTF29I8mi4/2/3Ha59oDEfPvd/n/j
4myXjZIPab/VGA/W0PHaJQrvIytIhL3SMDlO1wtwI7LEq+h+DwIMHeh+A7VX
3SKq6fqYtEuk57FUNlUVq6XzD0TpraPnLQya/xD6lNbPOStuMIjA6ncPb4k0
kEii9th95RCIlQoMrGgi4eYU2x8YSkDSxMzJq4XWp2pCxTaCQMSpFT+ptpIw
Wvmk9TTNn8j1jpW8lyRuOm+r7oqm8TWlklFcEio9zE9B8QRmp9yeoYvmX6zN
ySuJwBcbin23l/Z/gP7A8gwC3pxyu6N9tN8sjieWZ9P6FwZuWf2eRN60RG1W
LoEPK6QGAwZJjMosZKrS/iAamQcPUSQaNq3IevKc5n+K0hb7QuuZfbltUzuB
52oVolVTtP87NQwaXhGoDTavUp8lQdpLXIr7SOPf6a45LcqH2XZrFYclXOh4
ajPui/PRwAp+u305F7nJ46/dJPkgZDSC98hykTEZFP9Cho+eTNuTPFX6fRak
z2Uo8qFkXzI7YMaFRJ87z3YDH2SvVt+yA1yESeqUiKvwMbPlwbZDjlz4/1F5
8qwmH6Knny4cYnHBUn3FNdPjw4tlPjCXwIXlX9J5I+Z85Ome8br2mQuxwBD7
nWf54ISeev06rwNlE6Pfa8/xcUJBmv2trAMnTjplWVyk++fkbmY+7UDDwa3D
dv58rGvyW9XW24EwtbfB3uF8xP9zpVBBqhOiz43yc1L5qD7+yCnqfCdEVo8v
ka7no9JX9MQHuy4w7h4tGpAbxv2Xeyx3WPDQNNrtnbVmGBLqu64ZOPEQrWez
xXndMNwiGVd2s3hQqDQteLVhGA2MFNeEWB62NDPznzOHQWRo3xHt4cH505fc
wl30fbGazere3XikeiXTjzUMZuKvfW9ye+CTVhQjVz8Mzs2G5Hd73+DJ5kgJ
We8RyK3e56wQ3w/Z/T4/XpYexXCucha75CP6dIlO3+pRuCmPluXGfUZxJjQG
j45B8050yK3iEUz6TYofOzaGWwo/OH5/OoIdjndG3h4fQ4/fF95vnSN4LCNT
2u05BnWWFsPo2wiaOO/2/OMzBgvrPibr51G8cQ90fRAxBr3UmLKiF6NYtulx
GqdwDDbhCdprqDG4FO2Q3bAwhvkwQaWh7jjKj8xIEwwBlAJO3WIajUN6WZVU
6FIBBGpn2Kqm46hz/o8EX0KAiwf/VN382zjUJM0Wy1YLUPOgYyorfBxDJ2zG
rLUFMB46+Eipfxzeil4tAfYC1PlP+nWnT6CpUbd5q6MA18tsuwfvTED5LNUw
8JsA24rL9s+XToBo9qmzdBUg6ePQy32tEzC44FshzxJAWG3Qekw4gen2iL/v
Bwuwaq/M27RjX8AJzw7puyeArlDPYdJgEisvie8/ViDA8mefH8ZiEmme/5Ub
KhLA54ypxA7rSZRa7cyhygQ41/iCcddjEkOy3AaRWgEi14e8UU+dhFUmQ0K7
U4DWMnmTaJEprK1wjb0wJ4D0P3F/7+ufQk5e4+FZoQBibvcKCwVT0EvbrBzM
oKCTy9fRFE5hX+B0UaQYBXmTtEt7Fb8iwDSOmy5DYTfeJXs6fMVAe418vToF
XmJKoHP7VxSQG9KlrSlcl47ayen6hsiMcLd3ByhEeOXXlH/+hhO2Y5qFNhQ0
H4X4y819g1J1dfGvjhT401Iq/1GbRlTc703R7hSMlia2+vpMw3NH6oSkLwWf
y482xqyfgdkIo+K1P4Vlw3Wy1/VnoHzTM+BeEH1ubzj9Zu8MeMuNxPeHUbCP
lZlec2EG5m95SlfjKDSxKwOiO2agFiZvKZ5L4dKPSjEv0r9jwShgZXceBRY7
40lU+Xf0jn3syM2nwPgU1l7K/Y54x1IXixIKVxefdzksn8Wiju258GoKxhon
nkcFzeL1+0dGDrUUbs0q/L4nYxblSaoLGvUUZpNahGnVs/BeGI9saKaQxD5s
5CGcRR83LnNpJwXzx0/qqcg5VEZMH+98RWGXR+0Kh8I5JJm4auf0UMj74Kol
6JqD1d9byn55R0Ei7KfmvVrz0DqS7Cv3gYLb3Kc0N5t5iMgs7Br4SOGU1UKy
e9A8qthtLSF8CpXKhvnH388jWXd7nM0oBRGJIz+aygtxduCGvSpF4ebuO7wh
ayGsU0QVJyYoBHdrH7GKEoJp7fW+borCNvNq76k2IUSXdN2On6agarT+f96K
C+h/aMJym6XAjrhbWHJ+AdWsnK16Qor+LxY84/kLSFFe8XVxkUIM2/Xxe+Ei
/g8g8+wo
        "]]},
      Annotation[#, "Charting`Private`Tag$2602772#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj3841HcAx69LseLkEs+aknQbSvUURlbvEiZsRSkPkW4VmTF5at26yEKI
6Fm5lVhSzc+OJ0UeS5NS7RkdJc6506l2Xz/ug3Dux/du9sf7ef31ep7X246b
EHyYyWAwAmb3P2fa5zt2TCkQGG0ZfpHRC++gZFm8SoFF0Wc/i2ztRXOKT6O9
RoEqrwt3tVwxNt0xvdyjU8DlZLR9nFiM+5KuhFyDAmcud0zytvZhw8JCfy8m
hbLMVxnm1/pwx4PLURlRWKFLWpc41genGEdGlTGFZy1HOTxIcLtgTBy1gIKp
5/Da3dkSFH1Mzn9hTqHuxC1OklU/cqoLtUVLKTio9//oYCmFiYTbHbyMwqJa
3WTuTinSFjjVGq+gMCJIpCuzpDgV3XAkkUOhx1fYcE4jRazda5H3egpjinbr
L0Qy+F1mlQ37UPDdvG8NRziAeadT93gkUjBx+/VxmaUcdeMj6uYkCpoga8FB
BzkOHQn93fcEBXFnTjvjKzlad64b2n2KQvHN8+FTXDnSVvanxKdTSLY9Wvdc
KIfRM/fK0isUNuxfLC/2GQRz8dgcVguFhvzroqlD78AojxTK2UOIi34aYZP6
AceuCnPZLUOwKvFkyR4M4c/VmSYW8cPYm1tTPlmihIX/sTW/sEYwaKZhCqzH
IXF+2cVrGkHsjYr3LsyPqCnGqneRo4jILg8Z75xEhNDNYpl+FH9kebBZldM4
k16SKqlQoiNZtujJyxmY/WTsf7BaiWffzy/f3DuDqzE/sD8IlXDqt7re+HYG
dwM8SkmdEgFJvPd/Tczgg4WoldmsRKPo4gnjJWoEFDNMHLuU2BY7reOHqWFV
f+DCca0SX07scBZQapSWPdmroZV4kaY9/HBCjfVXV9umMAimzfsyRrRq7Dit
EmbOI0hLqJqMYGnA354nKjQneJrd3fnbRg3kHQ8tW+wJ5j0K/Pd8igbVimWF
rECC8nrFaNZyLTKL0qOk3xKc4w/YmDppcSh4lHMniMB7o59ZsasWNk1NNd/s
I3BRRXdNBGqRnRf+NIdL8FioCY3jaxHjdmV8AY9AGVGfYinTwnuYUS8+RbCj
rbakfVgL2+sx/IpkAtUZ/5qSGS26P3E39k8jKOpmMwvYOvj0d9tk5RH07HoU
1fm1DivTLP2MbxM0ezWEVzTooHfnm70pIwh8MFrMb9Ohd3Sw83bl7N+2UI/k
bh3y992N8K0lcAurjv10SgeDU3BSehNB+2m26VxXGmLZA/eQ5lk/VRx5w4fG
/Ut2+lUtsz2JZ6Ny9tKI149ltrYRNHBoOoRHQyLKK57bRRB/qXxu6mMaDRmq
77peE5QJbPxc39C45HnAsbSHQBMizjg5TCPg1to6LylBGG2yXLlEj8/DCnjs
twRbOiY9/dfowTTXb5EPEnDycpaf365H48l/nqdSBC3CVxd2H9ejwNk1L2iE
wDqrl++Tr0ei/NoeO0LAdTHi0lV6BAqMlo6PE6zessv54996OATGyR5NEgwc
6KGlo3oYzXl1M19F8HPtPfH0YgMG7nnGRmkIjEI3JAi2GtAUW7puPU1gL9m5
ScwzQGC7cMpgIKhZkv9EpzfgP/WnfQU=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602819#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk3s4lOkbx4coSZSUcyLKmSVSqa82TcJWpKIDQq21xdLulpyL0NYq2bRO
JW1sK+ctYlMah07bQe87swwVKu+YmdcYh3H+vb8/nuu5vtd1X9/nvj/f+zEM
ivA+Is9isS4z5/+37N+5Zq9G+jF8zbPN6W8eXL3i34eP9UNJvbmAvZCHxoSt
D1ZO9CPwwEYD3Xwu1pep/Mab6kfW0xwFYx8u7vHbIy7O9qO0717bVT0u7Bbk
un8tT4HPNlyUTpMoWxdkMqZAIW1rXNq9pyTMQ81YpfMoJKZXz7j+SeL21cGO
QGUKvArHCqWLJIya7/+9dCGFUwVarQ4/ksiXxl96psZohcfm6/1JaBmxv09Q
p/AiLqu3xJ1E1q6F7DVLKSRL5TWt15FYlPBuBaVJIeRkyrVUMxIX7uZO5utQ
cDYw0kzUJaHEDyK99Sm4vZviD6iSSFY2r5y3gsKt1bm/3J5DgrVO8kuDEYUf
qZHYy+MEYr6tPRppQkH2w4krmYMERn9L2LzKlHnf7vLeK/0EojhsvU5zCn0r
ya2JHwmIhxaOZVhRKDVg7XbrJBBmSLxxtWX8Ti2O5hMEPu/MKx23oxDrPB5q
84ZAUHxwapkDBYXSm2yHlwS6S82Dgp0ohEYXRfU+JeDXKXHW2kDBkvvPIdtW
Au/m12m+3MjwsjEIWdJMYJdT4lCSC4XB4eay5CcEXhzd9tJxCwVOHlc7romA
22+qJQNbKVwYGlk++pgA5wlx5oYbhWue3CaK0S5DeYf2eFDIEl1I8WbqG1aE
OCnvoJBnJbfHgvFbu9NiSeMuCj5RO5IiOASq4oZEJ3YzfmtvVum0ELAurWsz
3cv0W3v8g2kbgTsdiUVdvgxv7crtV58RWDXfLT7zAJP3iGN4ADPfzbVqftv8
GX7h+UpJrwksP0raTwUy/MvV5svaCeRk5atWBlMQZmRfeswlsOxJCHXkKIXX
X4aEHQzPTIkFR+c7CsbbO7M2fyCgukJa8Op7Cm0/VxpL+wgoxiX5rIukoLXM
Q8uaJlAjEY43nmC0LzHjPUwg5KjvdfbPFDSUXihUMflydtoIdscw+/Lwh2ta
isw+GHUlhKdQeOf0vDpoOYk12W4mI6kUVLpzu+1MSPQtqHkWc57J76bOUntL
Eq4j55emZ1BYsX80u3E9CYU2p7+KfqdQ61PPFfuRqHG+tcs8j8lHYSltHEQi
pFJttKKA4eX389DZMBKcnM8uD4so3IjIfV4XQ+Ls8SySd5eCaa3jdcl1EvJL
BuVUm5j938O2X8D8p6rUA8VZHAoNsmG55HESQVMtnrqtjHY6EKenwEXTp/xs
0xdMv4YbntzR5uJMrYfVFpKCU6+L81dsLuT8i31PCSh4bjS8lXWLC9af/uU9
6gIIByr0C3/koUXIDb++VIAfio6tv3KWhwu2XtYHtQTQ6HlUcD2TB83aLXcJ
fQFiXeR2zK3kwbrV9K82UwGMe2YUFWkeDn4aul22SQBepq9uTsR/qDNMLTgd
JkDNnN364qQOROWUX1RvEqBioiXEvo+P+1M5qU0cAV4sq7q4QsbHlP+5pKhW
AXwLK9gGKl1IXXnop7cvBNCLLLT1WtOFvFLlQ5lcAW58TA1LSelC88Mjluoi
AabYCReNLbqh1av7fLHWAEpWP94mPfMe/1ikKS0OHwBrjduJ7K8+YrF7lOUZ
VSFkIVdC+Gv6wLd63R7dIISlvsVQ/PgXVBTAuM9fhE03FAur5wohPS2dd/iw
CN84DkY0aQrhuK94oCtYhMJ/61U6TYWoV1Or5oaKYPLw8H9mHkK0JHZvfh4l
wtaE8c+bLgnRGRQXUHVOBI/wgBO79ESYu7o+J7FMhOok+9YQZzEOlTsu1p8R
YUapb0/NzkHc2y9Tfc0SI8Xuw7Ok/YNQnftA5ewcMYztHjnuOzKIRwc3KlFK
YgSGNZjpxAzCSNl1tmaJGCpsF0X54kF8DvESeZqJoVVPJB5lSRCuc+xprA/j
Z98vHamToKXZqtVmnxh+Pu/aPjRLYBBJc3r8xGjS76wl3kjwujXqkVuAGDaK
jzZ3UxLY/RR9XyNMjHrTvohjOkMYe3Xuj9IEMZbzBzwz44aQmFKYxL8jxo5o
X3eOpxQLT85zP3xXjDSX9jj4SZETelz9c7kYBx0Cr7cckaLaY10RXSOGDve8
+Xi8FJ8Xv+HIN4pBBxoND1VK4VHAUjJrF0N//jJtX51hLLsf8OtPk2J0dx6P
VBodRlFJ896JaTFOp5e4eiqMwDbHwiCBRWNRTVVsofoItseNlacp0qjxXqmR
ZDOC2C0Zb3LVaGit0lXSCxtBz6uHGk0radTpWhqwekdwt18/V9WTxq8Fw4Tk
0yjS8lMCu3fQaFzjOjkrG0WIt8ikzIsGR9/E3F5lDHoNDRXf7KOR5zDHSMV+
DOczDrRcCKLRYSeTKzozhlDH3yXK0TT44tOrA8xlcB1g3e+IoaH8lc7gRhcZ
DG6Ext6Jp/H22Gm/PXtlIOc7zXNPpvHyO9Lf4awMW7tIvfQMGpfTES99L4NR
sobbvNs0Hlat/nCneBwzTrELuSU04pd4165tGsd/ot63t/+iId8S/9SyaxyX
9lUfYlfSyNFOuxuiMYFZc+8TKQ00NLVu59WnTaDjfZ3TnkYay3vLfZyKJ3Av
y3DGuInG7jgo72uZQPjMYBqnlUbrK9/3xXMnwX+TUTCnnUZATEqS9eVJ1J4b
C24nmHm+iKJ23JtE1oYAsyIeDW3+ce0b/El4/GFd83U3jbbG2ehgqyms2n81
Wv0jw9/FvdvSdwryajObenppKJQsmu1MnsKDUy+fJlE0kp3tOeafpnDVyiHD
S8hojyzbP7WnEdmT52NI05CUbf7S5zUNz2wFHYmExsl09mPer9Mw9Tz2/tEw
DddFvJuKb6ehIPfu1qUxGgL19duk+jP48PeGsMAJGof7vt1+6eQMGsKKbGyn
aUQGBrtlD8wg22DByOws438x9kHv9Cz+B8b3prQ=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602819#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj2s01HkAhoemRlvGoVaXbdJY21KRdTax9vTKpVp0YXelFHJrjkqb1uZW
JIpi9UGIGllC5Bpb2THKTqjUJlE5ZGYM7X8wP7dqLuY/az+85/nwfHjOyw0+
7hOmz2AwPOf2P5kdDpXFVylYHujdHr/6HRq+L9mz7hoFi6fCupXLBxFaZ/Sx
lj/nI0MzAvMGsXRtfMHmIgoiqmnLQoYYovwRZ2ExhXpz68x4azF+NfIZcSul
kGO7dfNLXzEsUpovPS2nwAxdXOd0Woxzx7J731RRsIlNMnz7txh2Ul18YC2F
BkPe3lcyMaS+R7gj9RSiPAILrzIlcHF2OTp9l0KH+5UzG7ZKoL9kQo/dSqGt
Z+J9VJ0E9Rf8y7JFFPpy+3WmnRIEz7Z5fdFOoWIN477LiAStw9dzLTsprGnc
Oe67Qorke57Wrr0UZLn6NxEvhV5AmV+MnIJ6gK3nbzcExq2AGqmJHDl5fgxl
ogxtY68jCz+XY7WgvDLqigwZtt42B5bLUc+aYr2okGHZPdeqHo4c3e7bL9n3
yGDTblnZYSlHmKLd8YnlMA4MT5VWb5Gj4/VAzK2nw7jPvcCPi5DDPD2vcnDe
e0Tl12SatMpR5q0bjt9NoXl9moFx5ChS/WKU65PHYewRtSGZPQa36yUrLhRO
oN/6RXesYAwMvVFBEH8KtXxYyALGYWIXwEbiDA7W2Btz6HGE7ymKngr7iKTU
orP9FQrw5V4DBwuUMDzF8jhUpUCk60ynSYkS+bxjJiM1CgjTfrHrvK3EHU/H
YtKgwNqwggIvoRIjxl0i/RYFspOfFKZKlPDkMwysuhWY7yJ0fm+pgundwN+j
NQrEBXvsmP5LheLyR75qrQJmXD3V/kcq2OavN0tkEPwoWvbg8XMVfjj9qSZt
PsG352YMmiUqJLhmdRUYETiecvqgZakh/Ue4tPVLglNJN9JZvmpU/cspYHsR
fJ1xyTRcpUba9dSgd7sITDJeZTnO1yDUZ/yram+Cw0XNLhxjDVYJBLU79xIE
9WQyl1lpcDHLvy0jmEC9O6ZdvE8Dnv3Vyc9iCaKMU6K3tWjgNsq42xdPIC3w
ivDv1MDsBi+h4gyB/jP2kotvNehd6MDySCGwNni+2GFGA/eB3lXpWQRuAY0n
ptbNwjxl6Q5WKQFHlBin5s+CdkgwfF1OYDt0q8ShehZvx4dellYSpN/xry5r
nsXlvXcObqsjWCVR3zYfmIVunc/JVAHBk+XmJ6SrtegbvO/wcwuBkOdfP7tR
iz+zubRFK4FNhbNp6FYtIumJNFH73J+LuzJtw7To78riz+smKOY1ctLqtLh3
/lNIdw/Bb9U1h7oeaZHtFGhV/IYgKVQYVN2nhedNmwaXdwTTLZyPhxfQWLs/
J9ZEQlB05EbTcQ4NfSN6i3SIYElTHBWyiUZTzLPHZymCUcdFBjU8GjnWm7K8
x+b6fg/JyRQaJ6TXfuISAqvwECP2HzS8cpkrJycJxkzzQlQPaVh6HR18MENw
s3KB+4yMBlPvVcnlTwSRCZP2WKyDuNEpIkhNwA3P2ef5nQ6CiOKNtloCpnyc
eThah1yzRR90OgL789/Q07QO/wHpoXQc
        "]]},
      Annotation[#, "Charting`Private`Tag$2602866#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUnk4lekbtrQoWVNKNZbUUCkZLUJ3RUYyQokpW8KlHJIlSyU1isGkZGik
jWyDKIrqhPETuZSRtXzH0rF0vo9zPg461uP3zR/v9V7P9Tz3cy/vq+lxzt5L
SkJC4hZz/rsXvN+dn/kXibtDx7aZdXeh1OSJ7aZ0plYcVe1W6oLnM4XvxQ9I
ROc0vuys4EBl48V7ux6T0NksOhMQzUFN2uC+ikwSuRKVD4njHAQr2A+aZ5Oo
6g+2vb6dA+3ot/ENuSRu7XuWqqjMQeukznb7fBI+VrW7VogI/OaX3P65kJm/
57swt4eAAXf+olsxiQDeAq8NDQS4x301B5+TKFDNklv5ikBSQ3st6wWJfUv3
tqvnETiw7wBrrIyE5dT6h7NpBISlhUoRr5n+l/g/g28SyNBdXSbxloSKsoXv
id8I2D+Ido6pZPQYjVbFhhOQWj4iKV9NQuZJw9HeAALPY07mJNeQ0P9YW2Bx
hoDHbK31mjoS7KdJP2Z5EFA+byB8XE8iwVRlF8+ZQPXA/VSdDyQe3X3RJnYk
EHhiiWlRI+Pv6JMVnUcJaP0bzN3xicmHW/6eZUug2aw3ht3C7D+ktyf/FwLX
yg/rmbWT6DcZnog7zPjXK2uu/8zoczidJmXF+H+sFWZLkNDWufl8ySHG/8qb
6zq6SAS7XU25a8n4j5+qduklMbtyo10uUwvnPX36uQx+VivOgJnPCG6S8x0g
YbJtU9B2Zp89aVwy+o2Eu5R8+UOGT9I1xymMInHsofr5MEZPcbOyWDzM5P8s
SLXsCAH3nyMzr9MkPOvZEY72BBTZpOUyIYP3iCh3cCBQpe8gSBpn+M7/bPjU
iUBAVtWd1SIS48Nrb7sw+WiobTF6NMW8n41nvrs7gShp6ehCMQmn/cfjjjP5
6of56xpKUojW+DJt5k+gd/hL42tpCiOsF2ERQQT2tRevfi9Dobjg8/1XkQRG
rNZW2shSaNJcpVoRTeBRZYxnmxwFtvR9E+l4AhJ5rkVcZQr9evEelncJ1A53
+D9cQcFy5U6HrocEEvTttjqvojAeUG3wMoeAarlZYds6CgVO1Q5byglsrdPJ
f69DwXxvS98MQWB8acbZ65sp6Oy6pnx1gMBrmzWbDmyloF9QmGdKEzjYLpf3
5icKzg6m2k7SHDgPCLOf7mX0y1r9I9TjQEuX5e27n0Ju0qzxciMOeKyBDTrm
FLTH3iZ4mHMQNN7x5PEhpr+i8ae4kxzESb/NSD5GYV9Gksy3eA5eacY8iDjL
8J1JbTQa5yDSS8J1lx8FkySlPwWSXTDPC183fo5CQNmIX51CF5r0Wel+IRQM
pfae7tvcBR7s0tyjKFinZcWXeXVhpeuaFIsUCqyDtkEhPV0ITCv6Q7magszp
Ru8pXjfKZtNiqmsofDAp8ts43Y1Z1xtXA+sohBVdOsKS7UHMepeQ5g8U7nY6
9e/f2oP0gqUuSR2M3zXzDgohPXhX4bVFmU/BVlnGN0a6F6v61jQorRrCnsjV
Gm33e/F2c6yMkv8QhDcr7veNfMXOVtWPSQFDSFj15LPTzFcUX8q5rRI0hLjD
Au32hVxkfKxVWxU2BJ7S7708NS5izy3UU782BE/LovP+B7mwL7lmp5cyhMB3
oZXf73Hxbc/ltEMVQ2gM+EX+m00flKwCt1yTH8ZOhSuSfQ394Og1tYSzh2EQ
GmN6L4CH4gfQ7nfloz5V0mS39zDGIsYWnzrFh2+ERaHwAoNzzBnqOs3Hi+KL
GmUxw3ijoFDS4cOHWZyXoWveMGqjuvc3BPJxwsl460b+MAiPy27Pb/AhzHLO
z77Ax6If36RFPeVjPsHA+/VtAVyKdiqtE/OhY3Dwn5SQEbw8MSnfJCGA5eLQ
D8ZRI5Bf9HrZb9ICpGfHdfPiRlDlbCpDyghwgSeyPvloBFpLzedLlwvgbz/a
mtEwgkFPO761rgA5Gl+s6tePwl+NVX/pmADlaot+H+gcRe07vbptjgLc9bC9
nDc4CvXzdA33VwGuhfGSQ4WjaKoLrLJ0E6DA5XK0wVIhDELCy1TOCvAqsL59
wx4hRP/eyCq4IsCCzTpqqulCRF1/fJXztwCyW5TsuT5jkAtdbHWqUIAdo6Ii
o5AxpPn4KQ8WCWDTwJ5OvzqGksNGmXSpAI72iS0xaWMYVPpUI1UpwC1D/lrh
hzEcfiAho9siwKJh64RdhuNYWeZ2M2RGgNY9yzZkyk0gM/fd8ek5AVBkdLR6
zQT00zarX5GgcXK5+LNQdwKHLouKYhfS6NE05MZaTOCSWeKnewo0Rh22L7gV
NQHuvxUq1etp1G5S1Dg0OYFC3rp78tY0XN4V/9U8+R2x96+7d9vQaFr2NalU
VgRPe/6Gp3Y0IjPdvd/8IMJaNrv4F0ea+ZedysYHRYhLPFmb4EFDanVQ29pk
EXx2/jW6NJzGhyVGbzz2TMJ8SKKs8yINlS9sHyXbSag/8rn0dySNbpszpya9
JtG+ZPdiq2gafAurCxeSJnGwq33t74k0TKNCZFiCSWhFq1guzqZxzlvR4GLp
FMS7L8l15NLIDDY80dQ4hS/8vubsfBoXSiJl/iCncMuxxMXiGQ21maJ+O41p
zG+yD7rOprF+4ql7+Z1pdPa82u1QSWN/YUnE92fTeJmsKdauZvzWOvu1NU3D
XzwSW1PH8FlOjmUozoDzKfGBdAuNiv9dLFRMm0H5DdHpljYavBqifKBiBsnG
brqZn2noy4XspPpncDhra+mBbho/2TZ5y+6YxcYTKeHKX2m0Bu5XueI2CykF
8V5uH43E0LfNrfGzeB32sf4qyfRtXY+cHppFit6ORLthGo4srRXh6nM4z00/
pknTqOuxrDF3nIN16gK10VEakglHjCvvzEHHmtVTNU5j5NTqY97tc1gg2frk
loiGxPMdf7M1xeh9YXzWfZqG9qvZjuwIMdhnM7fpzzH41NDH7/hipKrLTszP
08j74dfFvLl5/B9ywKhr
        "]]},
      Annotation[#, "Charting`Private`Tag$2602866#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkHs01HkAxadUKhFzSias1ZOi2h6M0+aeNlRIWGVPrSHFSqLlzG5KooiV
PGJVtGNK2l5MoaRG7RFbUnlMJRJjZgz9hvmmJsyM+c3aP+65/9zzufdc29AY
/7DJDAbDa0L/O/fbRt+4DRTCk0YT1cJe/Nz3+Wq5K4Ut+z+Uck0lWGAfFX5g
IwXTYVaWMESCgai+xXZuFL4x8vB1KJKg/DanT+ZBIcOk9JrohQRxqvYrl7ZS
mE9sonerJWCz/fZxvCnwRazzBxZIQR99vtByOwWxT5kx2SJFhkHt5fwACinS
1cH7c6Tw3ewU6hdIoe1VUOv0CinMTwtsTXZRcJrN5Ga0SXGZeZmfFjyxV6ed
22QqQ41tGu9IJAXPpXtEqhQZEsMYHOeDFAJ6Byqu8GVwux5vrYqhcOLN/ebe
hzK0rIq6eJBLgWV60mjpsAwD8CsMSaIwTR87iRfYB3OOZYFHAYXEl8yHnhZy
xBYKzjDrKNhKHO1Nj/Sjerwwra6eQvGtll+asvoxzjmVHPuUAnPtsGtMST/S
FgZx215QaP2bExP3oh8Xb80MOttOQTHa6HzcegANj8IcmEMUzqrv3pkvHICF
1LLJzEKBxKTi83bKj6hdnj7dLFoB+Q6BOHPNIMw8Yx1OmAzCyuWo8TPWJ3Q5
tojihYNgjDR/mrb6M27zsEjGGYJrv3tl02IVggROZtb0ENg/Gs7tthpBUuql
5K4bSjB/+5rA2TsG498NPfeUKeGQ+2FtQNQYCiMOMuUCJeblFXF9uGOo9HIp
IVVKVDqVt/imjUFu1lo/+bES3fnh1Vk3x+DFY0y3FynR6fP8Oq0ag3l1cBZX
q8R9xU93XDPVKLnWsFOjU8Ktli+n/lRjVeFym+MMAgidObxiNbYeGxWkTyUQ
Dy7KsaxUI2FTdmvRbIImDX0mtlMNSfOjOXULCUzMiwIqlmlQNmBdZOJN8MVA
qBK0aZD+V2pItw/Bq1ILs45uDfb5Dy0u9yMw5ezpYSo0sBIKb28LJJDnpm5/
YKBFRvbufzNDCZIPaYR967SIcLowPDN+gg/TOQ48LdwUjOrOowQz2Lme/Jta
2PAjEm4kEsS15+lX1Gjxdgbb0DOFYNnxeTnFr7Vw//DW6o9sAqFYbETNGseC
lDlbDK8S+O/LC9ucMg6anWDcfo2g6kbFppG8cXQMSduu3iRYHf8+r71kHDmB
lUEedwg40mcrv68fh36Zf1yqkED5Xr1TbqhDZ08Ne8djgvqq04+SWDrcy7el
F9UR5N9a0xy5XIdo+lN6/dOJvprwL26+OnS1ZvMMRARuM48peng63D81ulf0
hsD9zCzn+kod8tcH25e8I4jw27BkY6MOXqUrqn7oJsjs8ir1GtFhya6CeGYv
gVQ2t2OqCY3Js2lXiZSg1jE0uGoJjQeHXzYmfyRIP//EJXc3jQLHddl+gwRv
34ldvztM41fJxQBbMvG3pMP9XgEN73NT5g8PE7hkNCXyq2nYeUf1/KMiOFlm
fK/qPY0pk15fyRkliG6w2+Y6RQ/x3fWRIRoCSQPrwpM1eggjS1au0k3kOf4P
Gw/pcc7G6KteT8CK0kopWo//ABWWe7I=
        "]]},
      Annotation[#, "Charting`Private`Tag$2602913#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkns0lHsXx6cIL8n1pEiiRBfVW2+iy/kml9xSJOniWsoROunkpCJCCaWL
NWW6yCVFGqJzUrklUkqRTiTyzGjQMzPPwyCDMd7n/PFbv7XX2nuvz/7sbRx4
2CNoKovFOs+8f/9j895sO7qBhDybe8X+IQ97BZI87q8krpd5TewI4sFkUeiB
QzYkQraqVZUv46EvVGBqbkcidWB93KQ6D9xiX8F3BxIyaXWyxk8CR4dac7Oc
SLx+16Bs103Aysp9v68riffb9BSHWwjITzbMN9hKgigpurGmnkBtlW13qzsJ
t6iyk1HlBJIVKrLTPUlcEbWYepcS2LbZMtB9JwkH67ikCw8IzEwpMp6xm4Tr
RjwU5BLoeG/Oa9hL4lPdhTqrTALZ2tl3zvmRuHOzJ+Egh0Cwl4G/XSAJlXV6
9d5sAss46UZTghg+e4Fs5AqBoU71roqDJPpuxOn+7xKBp8bnbp8IITHP36FE
foFATBDLd00YCfM56zNdUgnY5UcZDh0mQaXl7dVMIaAqlnQUR5BIGixqtk0m
0LQi9GbYMRLtJgK1b+cJsP8Q7Fl8nESsZ5x6GxPvLfM16D1BQilcJW8Jk28i
a23PiSZhtbrYo4WJ++DO8Y8lsd7h9YIGpj83vmGXYTyJxcMNhWoMzx/1trPb
E0mU1ev9uHqRwFq1ijZ2Eon0IPYaP4Z/0s3y+vYUEjNXc51CmPlqrxTt1LzI
7Mdznn5JOuP3s7le4yUSlfkh31ddY3z6GrAd2Mz8nDlhX28yPrPSdyhkMPdw
Ynq+7F+fAvVfqm8w+856/sEth4BFGCvdOouEh2Z1SkwBAUlx1PafOSRKopa8
9uYSKBuSaJfmkehoT1/jU8L4OiW4vLSQRL9Z47yuZ4yval/3H1yGX2ma6u4q
xpdCm2beIxLeJwOnjL0ksCelIc3oCYk5xtdrcxsJRHCKLmjXkAj/VBCfzCfw
RMY5V1NLgp9WuEraS0DmezYuop5E7vxVGWfEBM7N9zn28R2JuX497aSUwM1C
VZ8rrcx96N3YJNXkoa4yaKm2mOGnZIVX7XlQNXZfWEOTCDT/b26yKw/b4tfP
i5AwvhLq/mRv56F9s47uxxESBY+e7xUG8EA1VY9fniqEQ1tpUNxpHmZ1G7zV
miXENy5/i3ElDz72ynUv9IVgC6OjbF/xkH1PUnnEUIjY1k63yPc8LA19U9Js
IoSXv3SFehcPNsORnMsWQsjaRp+PsfgIUf74m5Yt0+8LlVC8mY+KJUkqWuFC
JLzWa+B08WH5Sa/xyu9CqHg/u9XZx0fxqXuXdY8KsaLC02+JhI/sxlf6s44L
MSR+GdKr2I2kw9MsjM4w+R/tRF2Lu+FResbdgi2EZ5q35qvj3ehdG81xqhQi
ma9yVXvOd2g5Ryw9M0OEz7pOiR9iBLjzQkNtrZYInvHzl0amCLDC+uGPAR0R
9EdzV5ldF8DNvC8vYLYIzn+aeN1/JECykq+xzQIRTLxjUhcKBFB86TSTtVYE
yZrIXZpuPfi5zpgVEyTCShWb0gtmveiwaGqJKhehpKr3+7rRPhTfxoLvvmKo
Wlu9y28WYfDEoHJAgBiaFJEk54lgufOesHOfGNyU3675SER4rqFR2hosxnjP
yPu1OmK8iv1m8zZCDLv92cURO8T4GhjtV3JWjBnLT/cRX8VQMnvOieWK8ZeR
o5PCAAWfIkstQ7kYVkNPmzMz+/H3bumMJhaFLVmZ338p6McMpWfT4xUozHbY
r5f+uB/Vezeo/FCh0LCgSzP/TT9MVO0mH+tQ0K9mv7Mc6kfPfnex6yIK3eXn
2sTOAwjXD31zypOCv+amSuvJAbyqs6hfvpOCypEta5tVJTA6Qtfyd1HYKNza
FzFTgqb6iGpHPwpDTQHL/7GQYOWxqCe6IRT494TNej4SjHw4e7fwNIWyo2lU
foUEsYlZcR0FFHTzAtZXnBuE+p/KzgEPKXhzK5aJrg6CExym3VNE4Sp1WdPs
ziBKXaxz6McUIrkDhi/KBtGj1Vw7tYoC64szcZ4chMttlsqiFgpJt3OWpW4b
wswnfhePjVPYGmO4J9xsGDn367zGJigccJvL3b96GCs4S4xOs2ikbkjfEmo7
DKfokaKkaTRCPBIPFPsN45RtWvMNDRrvHdtUdDKGwf9QqVszn8aRDu/ZsRo/
8bDP8MYMV6b+kAvhpz6CpFuJ/t/caCyoVpqrNW8E+z3Eplx3Gl5rtin1rhzB
nPLy4i07aRgZZdkr7hpBctqeV6mBNBIeO3Pm3htBsGXGgGoUjX3chI1vXKSw
E7KetJ+kMXVfraltgBRGd4JPFcTQuD7rrWwoUorP/7FSdk6gkalYU6KcI4V9
5+c559NodJaHZRrLpTBJ0HVUzqPh6HR4ZkDNKORWp9Rb79PguphFRnWM4ou4
+2PeAxp+CU23pD9HcWlnqY/DIxrSe1unbbQYw+Rij6OJ5TRu5zvF38kcQ3vX
U6sdVTRsmop+51SM4e90Y/mCGobfOmhiVccYwuX9SbX1NK5ldBVEGIyjoznt
tkILjagLTTpFOeMoOzuyr+UfGgd52vUrX48jfZ3fopw2Gv6OoTHd4nG43F32
eNM3GuxC4oHnBhkW7mZHafMYn46z/A4dlGGqhvxXfjeN6d0flvtfleHZ8cY3
cT9oSLLsbOZKZGBbrE5zF9GoCra9W2M6gSP8m57GNI3ji49M6PpMwPWaov7A
AI1NyxWmTc+YgLlraFf1EA23Ub6rydcJKE75lHtphEZ07OreT6ZyEH+tC/Ef
o8HX0smciJajPCRn+YoJGq7hdQ7G/XJcM1IbnpykoeF18KFoYhL/B4qQeb0=

        "]]},
      Annotation[#, "Charting`Private`Tag$2602913#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUHtUjHkAraGHSE2FpCRiRw/rsag87loJPXZNHtmwhXVMg1BtWypShok0
mkMxrU6ZqE2UhmS3zWNlhdCk2LS1Na/M18xva+s073b2j3vuueeec+8912vP
4ch9NAsLizAz/ue6wEnHdvcqseG42zvBTSlqltYHR/YpkWRZ3T9TIsVIoXA1
TabE7Vl46b1YhiBdXkCtQonckBnGx2wZMnceW7xHqUTNTqbwhUCGpsZ9fk4q
JV5sdR+QNMlg58Wc94Qo8Wi4e3WVSoZN2StnJQwpQVknD1s7y9G53tlFPKpE
GlvLSNkuh/rtI30+jYK3R+ZsfrscS5ZUjayxojBrfTO3Y0iOlEuFZNCGgkQU
+zrNQYFx0fESpj2F5bdtnT9br4CrZMZLuiuFOsZo06o7CuxaZ9P02I3C9jyt
pOuFAtfKhxqPelAIbnav95Mq4HewubZ1NoUP5a5vhqb0Y81IsiDf39xX1OWb
m9wPto04jr6WwnzGsO+ZBZ/wmy/Xlh5PISSZP3iFo8Syd9Na+EcolIy/vLzz
svmH9PJ8l0QKzKSKKROqlLjW8szNNYWCl7fo8BdiJbiHrfw9sygkqNsTW8w7
IkVZTP8CCnYl26joWgqKoAzBxkYKZ2YeZ/SKB0APTfDLmjyA53fUpRMNanT5
v21LbRiANOebuDMPBlFTDG/pdyoMfdT23Hz6L3ZVL6N7mFT4ctXUlfWvR5DJ
KT3ZValGFBU63Y+hgf2PNqG7b6lh/erqAdYiDQSsQ07yajVmOkZv/jlIA1FY
oJDcNfvn270DIzSQ01uf0h6q8cot7hY/QYOwYgvb+W1qiBKPRK9q1GDq/Zi8
H/RqlFy3ZVlHayGsaNqmM6qRNFoZbtirxUKBr+cJC4KXDpeLtIe02JgxWs21
IrixpV5jl6VF+lpea5EDAedeXmxupRZ9bxpdnswheHWCf8jHqMWtfo+iyeEE
3wY5pU2p1IF7lRPb/TVBcd4c4ZU6Hb6PVM29zSQQsGOGF/yug3tDQ01EFEFV
BK8nr0uHs7wdz3L3EMhDhbmLHPVgLbsyaJdK4DY9uyM7TY9gyuJ+ZxpBWWLb
w505eniWsNIrjxM46qXDmwr16JgQYBN6iuBcQbA9T6THur863HN4BM/LttSe
UOkx+5TLBpsbBKF1HytiWAaYAtLt31cQTMqPmshJMeBPlUR84yZBf1lCRjfX
gAtRol0hdwjsEk7xAyoNGPOJTOQ0EKh8Qk7LiAGdPQ8Ctj4kSN2/Yoc1zYi6
i14m7ycE7pwHSakuRsSb/uE+/cPcH8BYFx9kRFcrr3hcmzkvY6kV65wR9adH
97a1E2QejTqvLjHi4oqY+cIPBAUH+W+c7hsRdn3B3a+6CeIuTS3JkBkxL7og
1amXYG7T1qghoxE0B9PqPglBdWlpwd5pJvyS0tJ88hNBj5ePozTChAL/pTzm
AMH+7l8/sg6YcLTvpy1ehID2rNxZctaE8MLxboODBHpnyw3vq0xghB/seTRM
wBZvNDqKTRhv+a7swihB22KpXK434e97K9ixOrOek3NkxG8MDWzh5wuNBIGW
m1/rDoyh0HPiyNgYAd3dmdVrGsN/5UZ1rA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602960#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVUnk8lAsbtZQJlSz1lfJJiRSuVCK3zhWyF1JK9qVQKdzuTUlouaWydEVJ
KmQLCaNCsquLIsWXUOadscw7M68lhsG48/3x/M7v/HOe85zzqHmfdvSTEBMT
ixLN/7HMaPF5r3428u6c70+/yETR9ldmjgw2zGyjTI/tZ2IiOWO3BIuNY9Zl
qoPKTOwUxBoWD7KxiVmg0zlLINL1vL43mw39Qhtbj0ECDVV+2gpcNhqP2jj0
dhKQUXPQqKXYiBTf+/XFewL2l39dGzLGRjjTI266isBdlqbyugk2Vlh50jXL
CHRbKCp94rMho2k40VtIQDVPuCRawIYwtvD41xwCvovZNP05NibrVW4PZRDI
DfoizphnQyLE/hbrEQFeW/VMggSJrDyHwuJUAlu35k+YLCSh8ey3NYYpBM7d
TaZGaSQW/J3m6n2PQBU/eviJDIn6si8WaskEJF2CCIclJMq5LKvjSQQsK4/0
ii8jkemU3rVRxGP/a971QoFE/LgXzVXEOyL12r2WkzAcy94zJeIridXN8itJ
LHaulZ4U6bmZ0xpqlEk81kus33efQHr2WFWwCgl1+y0PZ0V+BqX7XqmtJfFP
wJCXQORX++T74vZ1JFroYqdMRfcEfyjNj9pAQledFd/xhECZ3uOsLRtJBA6/
p2VnEjCZ+CMlQUfkl5qOlXlG4Jqzd6KJHompy6y8RFF+La/tYkf1SdivOKh6
qJjAoQj1aAdDEkmvPYrOlhN48EMuXNxYpB8YG/dR1MePPTNnX+wiUdTzcc/h
OgKBtE8B8qYkPPuXmVMtBJ4HvPGpMSdR+1b5tKCdwM/mHLdgSxK/OZaq6HYR
uBR/yaHdjkSMjGK7NINA4iodo4TDJJzGlx0KmSbwZvP1RfJBJLS/3avdocuE
wef/tN45Q8KXnvL2yzbR/4VnJyiFkmDrGFTEGDOR3tqovPIciZA3vsM7rJi4
fnqhjmo0CTNp7Zq//ZhwLIl20EkikSZ3WUIynYnBnRdTrKpILAqbXsPQZMGT
WOzRXE3CXda9qV6Phe6bqevt6khUxR5cVmbEQktPRb79OxI5Yb9z62xYKI4Q
VDl/IpGnorz6xhkWwmv/JPwGRH5DT/2VVsmCvHWIdvRSDnTrfmRZuA/gcY2c
7E55Dsw6Lrk9CxiAnlHB8KgiB/5S6fQ1Zwewb+NQltcqDpxu3pnXvDWAGCl3
NRN1DhoDebLfywewoM5qhdhODlKUNfRqlAcxaawmFuHHgWB7h8wcMYgenbaO
sEoOhmSfzqalDOMRKX9R8i0HV06HHF6bMwzv3AMat2s4sOcq8J7RhzGs3nXu
caNo35HGpv62YUyu7lNpauNAtdXK9B2NDXkZznElFgdlr5uMo/5kY+8AbbZw
CRedtFZOkbuo9zSoM9252E37YNpry8X4+XGalxcXnixZuWJXLgycs8leHy6s
U/YWJZzkokJOrqTLX4T6RxKDb3HRGNln0hzChc6r9qbSFi6+eV/0KL7GhWTu
mVD7/TxIaVakRBZyIdiVK67mRsHtuYG8ipCLr0czQwc/jKDMZWppmxgPTmKM
Exu+jmCpVPniy5I8OH44kH+CGEG1665Fw4t4uBKhayg/NYJ1MmbzpYo8MOql
B2vURjHg68C11eJBRaCT3fDHKIKUT74Pd+Lh3oGLg7WaY2hs0Gn6xZmHrmur
/TW2jkE1mKpnHOHhCV9hW+LuMbQ1hVRbevBw1cBPPO7gGPTPhr1UCuRBS3d5
q+SVMfA/Xnuaf4mHyW1nLIWMMURefRLVk8fDGKfKhModx5I/adZeBTzckepq
p+jjSPE/pTDwnIfwLQdcZmvGUWJjlEGV8hARqvTBqHscA/Lt9RJvebB85Uu3
kv0JmzSxRVodPCQ3H7D+dvonVrz0iD07w0NqSPPNHtMJZOQ0HBLM8WBbLHie
6TABvZTNqpfEKNyhm6+K8JiA1UX+8+sLKahb7SrwuzCBcNO49gdyFDL79duW
lk6A8bFKqXY9heLvZgFSWpMoGFJ5sNSWwp7+Cxbkej6uP7zq2bePQnXHhc3H
DPjwdeRuKHSgQMX9jFloxceaysoiO2cK4QGa6+lBfMTEHW285U3Bxdbq7mgF
H/4G90dlwih0Mox6OtynYEaKvey+QEG4lmut+PsUVB/7h+dFUKiQLt0Xc2MK
ndKGNOsrFOru6+7QoE/BvLdzzY04Cp52Lf52ctNYd0XJkpZFYWAiseR2+zSE
huFLunIonNNz1vMhp/GVS3zKekZB/sLDvLSFAsQ7l7jtfUHh1wJXTVdjAeY3
OYZeraRgoVU0lZovQPf314YH31Ko3K+tYvuPAGWJakL1WgpFy1vj7w8JECQc
uV7fRCFSUbrYWHMGPe1xaZIdFHrSyllahTN4dY3v0/FFlC8zNcPp0wwSjT20
Mv5H4Ub3isZc/gxsnuqW7umjsNE08qnL3llouCSFKfRT8I7NaZc9MwsJOeFu
BkHhfAbjc9KDWZSfa30fNUxBP8zir+DpWSTpbI9z4FAwWh5lk6I9h2BGqpMa
RWHbOwMff5852CYvUB4dpZAwMmLQljaHjbYnv1f/FOU5TW+w/DGHBeKfM+P5
oj6YW1WsNgnxg24c6Cmg0CdeYvkoSojKwIxf9OYonKhjv34xJkSyquzE/Lzo
HvXjFaNz8/gXDiQ2Wg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2602960#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjns41XcAh0/RVJSOzKYxO7ksM41tGc7ah7Ie1xZNVh6X4kTSSoVcSyHJ
0JOEhNweaaaQKEm0SmmTk+tUG8Y5fuf8vp1cTuf2O7M/Ps/73/t+OHsO+vAW
s1gs14X9zxsOH3py0igM66SKuFenEN9h1rz2NAV2nbaxUkeA2fCm+MozFJx7
ne90uQlwgO0CiywKAQUP8szjBZhs5WvUZFN4/8XV0oxKAYL3hDy2PEfBc986
XdunAvg0nvS2zqdwpfY8ZztbiKf+egb1BRQORVlRL22FcNEsH7G5RMG+O3ne
wluIb3zvh3xdRoG3pHTVnSwhjKTqaG4thaShrSc2KoSYckwqcmun8PGMzGq+
cxrB4zpBTzso/FXqY5ozMo2Rs8WmXl0UGgt9TCnJNHpG7/y67TGF+eLow3IT
Cg3J8na/PgqBu9fcehxHIbEzdpw3SSFip8OXSy1EYLsf/vzkShG0LySbOESI
UXZfV9uRLUJRy9Hs2ONi2DjUCSWrRSge18guzxNj6zpB9W5DEVJ9uXkd7WJk
vhfIcTYT4doH4fVWejQ0u9wMWI4iuPU+PG/WTGOey2El80T4qPVJ/6o5glHr
Xn5cmwgNhsar66wluF4Cs4lAMei+UOein2YQUG/HNmbEKBmYuPssbg4n0q6k
jNbSeHVuIzUpkGJFrJb77joae+P3D0e9laIo/IDeZD2NMXde4CKlFI0eDhWk
iYZjWFfUet13mGQ/f7D4Ho1zWlMNnRvewaOEtdSSTyOjeyp04tQ7GNwKyo5W
0MjUWx5WYyZDRc3vO+QqGvavDw3S62WwKbIyOc4i2H94Gf9bBxnckqT1GUsI
9qW5SoiXDImbc55f0iVwTYgqbY6VYezPdv1OU4KlxbfPTPXIUCcwvrTSkyDS
qarA/LgcGZfTgl9tJdiuvaVDO0uOUB+x+W/eBMUJGmkahXIYtbVd9/IjsDM6
0GXZKEdmjv/DrD0EapfBzUECOcLtCiXL4wgKenuOzu5QwIVi3RpJIJDn0W/s
eQqYlIUn1iYTlHEuny48osDAMnst99QFn8JZ0pCrwPcvB4zO5BAkHdx3jNej
wNpUfVetaoL8uY3nWR5KMPaJKwZrCGICexoq/JUYFo/3VV8jMBraeTYxUolc
v8aALTcIdol8n4xkK6H+zOdIWhuBjr64vmZAiZHXrfa+9wjKpel1fkIlmvM4
jFknwdCzf8v9lUr8zLzJePCIwOlQhEGCqQqjz3NKNPgEPyRUms7FqNCSLg3h
9xMoT6XctPhFhTxukGXFEEHL6VwvRYUKHlXrmza9Wuh/ovHVMF8Fi135cXr/
EBiWtDvpiVVYrMt8NzZO8HZZSNg2LQa3jz3rThESTMfN2WaCQb71hhxvEYGl
14UYdQCDqLHiHzmEYDCL7Z2QzMDzouYaiYTgJv+PyfQrDNZ5Rr7umF34W3Dx
4ewjBpqLXlTmSgkezXic+HSGwd83uRHBcgK36LNVfeZqtEVUfGGjIpi5m8J9
s1eNiybac2o1Qb9hb8wgo8Z/3DdjDQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2603007#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHs0VXkfxt0GISJTRIkMUagZl0g9KZWkUpGZFIlWXq9EphqFLlIig6aX
qBBCckkMueRapCbJSSKpHO3j2Pvs7eA4HAdz3j9+67eetb6/Zz2f9V3PT//o
yX3HZKSkpMIk5/93qa2Wi340iSCT68E5dzg412BYYXCNhPNawWiXCwfj/uXn
cq6TGHtameNgysEJdUcY3SDRrmLD1tLkgKhiyeb/SSLmXm/tuCwHR476vjRJ
IlEwj5FJEhLoURq78egvEtvOCCLe8gjsK7u81yyZxMFlE1/nEQRee2osKrlN
YjbCz7PrCwFHuazeNXdI2G88eXaol0Bd4dqMJ/dImE79pqPaTcDGvdHXMpNE
izjPf9l7Ao9nXFdWZJHIlNG5JnpHwDT3K2XzgMRQUJ9sbAeB7N3BpVV5JHrX
3tCuektAVzh3en0BCfk7WdFnJTo5I8HuWSGJZeSeykqJVnPSm9tYIvHvXmwb
JHkfM1Lc3FBKwnLBqs1JEn+Z1I0xm8slOvOQrxaLwHmHdpfnFSS0giq3iyV5
xrmH1bdVkXCb2BNlLckbdJPX1VpDQsU6NbCxhwDHLiJtRx2Jjyr3ZlL6CBxh
q3i/biAxKW1d87eEvzfu7opdzRKepuHMRWwC//TVFLq+JJHu0d781zCBbdE7
QzpfkSjucmt6SBOoN/tk5faGxHPjRwcmRgk8iRTVeXSSUBxIizcRE1hlHBvV
857E8IiYpSzNQc5bbSfPbhKbsl5TOvIcpCy3fefVJ8lH1SbXLeAgvOks+xhB
wtW1MoRtzIEgQCGfM0TC6WwxW9Gcg6CFKYH/IUlU96jSrpYc+PhVCAJHJPvU
TWt0dOBgm7xA4XcRidy465uzDnGg7nxq9WVVCrmpWbWJtznIbFRTtlOnsJr9
aWTVfQ7W2BZx+QspiLglRQMPOdi9cijXR5tC35xNXGYNB7HyXvoOhhQGb041
7vnKgVzzjkVSdhToqcQ3uuZDmFivLxV5jMKYteGzDT1DiC6r67fyp1B/5ptc
wuAQNFcdesYLoCC1RInHZ4bwy5KUc4eDKVCb26UpeS6CJ1UE9ucpJGT52xdZ
ccEtn+ROJ1I4zzr2bHsyF31mHaywWgqsZO2M1b7DyCDVI2TrKXjHBfmknBzG
0Yf7jeIbJX4xTb2q4cPgGnb/kdlCISlSu23F/4YxodO/tLWDQoyjfcxg6zDU
lajjmt8lfG3p+6otJL0gFMTF83kwvvA0IF6RwuN0GA568WCmkX7Bs5+HsXNj
Cj4+PGxiRQqieDxYe+SRn3158C5Psnkq5qFGTa2s25+HOE0jS0cdGi0X+x1e
n+JhmUdp9vCvND4djfB+cpWHL9pLb535QEPeuCbtYjEPKn6xzc96GRwusVZf
OstDZ3Cy+vIf+Kg4OKnaIUXjw6vDG7TU+FCVr1aJkqWhvDVpQkubj4ZDGxS5
ijQCnPU2WZrxYaDkOFe+kMbPebuiWO58EH57eS4mNAp9Ti1uyOcjaElgW7gb
jYYTRXjqPoqWF2atFh40On7VUP18ZBR6Iczzgd9oLLANcFMJHEVH66kGJ28a
iQeiU2Mvj+Ln02GVmgE0ytXzdyk+HoXw7dUHhRdoLD+05rvO/DFcjL5/qa+A
hmnTpQSPjjHMP6vg7FMkme+fTNHvG0Oa/wkNooRGfGRXoZAzhrKdttlMOY20
giWhL+fGQKi/ey5TT0OjOP7DnMU4dqZLKZqwaBhmtG1g3xzHokrvP09P01AK
HbRJ8BUgO//FAdEMjbmQkpUGIQKsSVuld0GKgcoXI6+WSAF2RAhLYn5goGm1
4OqWNAHCtyS8u6PGIOD4QP7iTgEG3tZpNq1g8FL6/jffrRMoGlp6R9WFwe36
2NDv9kLJPxp9pH83g1pv6y6DPUL47eP9VLyXQX782qtXfITQra19vMuDQaJ8
6S9PrwoRm+DZcuMog9aCjv2iTiH8rVP5SmEMbj5QDvsUOglHUqqy9zwD2VA5
956YSehl+ocXRDJoaLY9rpo+iQ/z1ik4X2EQ4/rfDT+1TWLr5w+61xMYdJ50
FdsbTMHgiqaTQi6DSJvxoC0DU5hdFz6/O5/B/WMG19qnp9DDY3fmPmKQVxzx
ou5HERI9yg5vK2XQVa2sxnYWYc50X2h0LQPGq6J9sFqE3i9V69zrGcy3Ntdx
+ChCxS39WcMmBmXm6rvsJkQImh2Jed7KYDd3hZ2F5TT63iWky7Ik/O89rQqr
piFh9mV1MShQNHr1++dp3FrvbZL9kQHHU5b0kxFj5wPz8s39DFhpjj0OrmIY
HUwO0/jGwIDKs4wKE0NGbXbjAJvByu0j9ak5YlT/8abtEpdB4YST+znpGSSb
WSXspRj08jMsdSxnEDJw102fYWBzd1LsETADlxS5JXw+g9jg6TiDBzNY6RL4
pWGcgW7fnkne9xnISb/PSRQy0H5pXmVqMYuvf68POCJiwPZKEKdGz6I2INti
zQwDl/3GIxcFs0jRUxbMzUl6KMtxFM7M4V/HqQXe
        "]]},
      Annotation[#, "Charting`Private`Tag$2603007#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjH841HcAxy9srFIR6hEzTZ4kaYn5cY+3zZFCja1fi4qyTKms9YT83JxJ
cSwltFYpOyzV2Kj5UWmp1KOckLjWqavrPvf93Klz3I/vrf3xel7P65+Xc/ye
6AQTDoez4h3/u7tcJTVxIyi0/W2fdPw1hOoT4kvv2mkB199qvhy+yT5tiYsJ
ihVjWc/2yNH1XFT1kSeBJMM4xaJGjnUxKemDnxC45BQOTe+TQyqasbFkOUHg
iSh+nkEOs86Vdhx/ggqpq5dfGMFR/5dvm7kEOpmPRXcSwfw/8kR7QPDDy9I5
pkcIgs50lDzlEcS0DPeFdRNkZntP61hDsOoA7+VAkALjAc6crAQCP6PXoXA7
BvzGdrF3IkHcxtn2VZ4MbNxj2hTvvrXZSY4NYQy87MvTY/cSXKg8PcsjncHe
ielq7kGCfKdQvWSIgaxpQqYrIUg2rUlzOEYx7PFAlNZK0N/0ndD8oBK/yq0y
TTsIxlY/UljwlYiv/dK16DqB8IUw21SghMxlIPX0LYLlheaRL84qMT5P7Nj1
gOCLsbWHtt5Vwmoq2WHzgqC9ftnuDXNVCJWa6xssFRje3tK06LIKl07B5flm
BWpk3/jPfjKG2Is+Vo6sAvNOfHvYZ54aOfwzucN1DKZeOZ/tfU4DywPmq+Iu
MFj8o7XIvkGDysRka+lFBpXL4mvNWjRoDPerpk0Mbs+1XSjt1kBq9fCmSQeD
B6m5uZI3GoSf4li4iRgcf+Oxo5c3AbvmLcX7dQwON1BvL/kEqoX/rNMaGERG
hvSK1BNYWunulM2hWCMOt8zgTGJlpuZiwXsUWVP6X4/aTiIjWPCwaibF655o
nu1nk5D0tNvc+JiiNyhd6FwxiQuvHKtmRFDkH9C1caO0KPiFv1W8mkLdFc0t
3qzF9mjFgoYoigK/wU7VTi0cWlsvRa6nKEy6O6LM16JQsOnWkXiK2yURb0ba
tEj0qVBNTaM4qu6sZz114Mk5zUMHKTJzTW40B+rgdDoxoy6Lom5RwrWiSB36
P/A1X5VHEegxK79spw4hI/0OhwQU7RvvzfSo1WF+nk2YeQ1FhR0/9p67Hqxv
huWAkCI5VpgzztXjsWK0t6aeYtfC9603rNajZH1jbOhligW7r4TdT9HDuCh6
H7+VYiCwsEjytx5DT6/4ru2g+HnQM9+tR4+/ypxZlxsU14JKebcleuxmlQU3
uyhygv1KXacZMPxQcMpURHE3rmNJeJwBLfmabaJHFGd/2v94WaoBZQFb3KoH
KUxHxbadAgPCzy9p+lxMoSuyF7hfN8D16+Np1s8ovg9x9fd+YoDJTDZQMkpx
1a1CHzFuwNXU+3dyZRRzrNIdNi1lcdzDWxBFKLiNDdt61rBIkZz8yplS/N7n
Hh2TwiKi3MxepaIICHR6LjjGYmHErqfX3lKMlCbM4bWxMJvSd65EQ/F2SZnJ
KxmLf/8MSNqqpdg7wK1b8aERrUnVnksNFKMh9cEn44wod5qmNhop7rR+qr7H
GvEfO2xYQQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2603054#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3s4lfkW3lGk2FKOOVMZQ6hdidNFinqjptx7UOR+iZP2VOgyk1upyeVQ
aDR0G5Gii6TcSkpj3JpuaodGLo3Mdnz7932fzdbeYW/nO3+sZz3v86y13rXe
tZZxWJRnhBqPxzvM2f/98zypWE1AYKvqtknoonBj7HxvOYfTkpPsP1VTsNlv
/ThyOYGde1licCqFlgHRpW8tCdZE5TNnoih4B8TEvf8XwRd5TrI4mIJYxPfN
Xk1wQuLy6t0OCkdcStc6riXQPKTh1eZKYfrvTga89QTl5sVVM7ZRyFk/KKux
I6h5kpoz6kDB5P4pURQIOndf6dm8icI9gcn9xQ4EU45r+h9upLCpsD67bwtX
35YaWsLh1/8MjMrbRqCrtu/jAQ4HZY+7bXcmaJix2yAGFBjN88s13QgifPUt
59tTSDy+Znb9dm4e16X1uzZT0Ja/HfrBk6Dr3Sbfb7ZSuHwgunXFToKsUxZ/
BTlRWCbWKRH7EGhciODPcaNQG3g7Od+PoElRxhd4UHBqdwz3DuTwuSRc3Unh
vavYgR9C8O+s2/LDfhQ+2xrzjkUQXPDf4zAngkJyxZPeNZEElRtrdF4LKegv
C3hMCwkCvJ0LRdEUVs3PiwuMJghdcabiSiKFaIX2mF08wYajZU7DFyhMRd0S
yRIJiqpuLkgtpJA5uO1+aRIBpTyk436TQmnHyaiFKRx/cIBjxEMKQ5WKoYls
gtYmWWnmBwpHl+e2VuRw89vnf4kboDDz2qqS73MJ9niaLTtNUzDPORD+4RKB
WJG5/mueBGExA721xQTdfr1WTeYSdFu0iWLrCPIKov1+j5XgikQvUb2e0ytm
Zc/fP3HxN73Mz/xGYNGySdMoU4Ih086jBc0EgrfJUtFVCT4v6DVsaSPgqWu4
4aUEerPIHv2/CYSmK6v7zAi2ijUny3RobBLSIT0DBFrXnK7bzKGxQ1RlHCQl
eBGa4d4wl0an2GMdqyTw6uEXtn9FI6lVpuXA+ZB3/9g6aUzjVdD1shJnGvEN
i7KdrGmcbHa4FVpJozwfpgNBNAws9ykFOQxG40Y1Q0NpLNtTGOBSyMDap0TS
s5uGyfLPjXF3GTzS1a3ojKRhF0Xnq79g0JzUa//8II3Pblq6j2ew+BCWGHw/
heObqHv2Ip6FxuJHF5PKaBxem+9ptW4YTupRx5TlNJxVz5O/tR/G6T6TsLgK
Got/Tmn9ymkYeufTBYcf0Agw9Epb4DuMhVp+D/Y00BBssXA5GjuMlRJFu3sH
jXaTvWbpj4YReNdaz1BFY11XsdLqOymq/RT8Nh4DC/XqvS/cpeBr1Gr/pM4g
KLVtMHqXFE8DNswcmslA5n3Svv17KUxmbZmqnMegf4l5hnaOFOJwD9pVwOAX
4w32+CTFgfn7niXs4PLbMrT1MkbQ3GTRYunDIPr1qwTxLyMwimEb+30ZZB/2
etBcMIK2loNPHYMZrPW/011SPYKVR2Jr9IUM3pj589j+Echfp1wvPc5g9hWR
ZdGGUSQlF57ovsUgXc1TffvkKHR+1HQOvcOAsT2S16Epw8XI/XPFnO7mCstQ
4TwZKlzWFbGVDMJzQrRqlsog1nvTqFbPoGd1/pdBXxlc8nkzBSIGM+Nz+xpr
ZTCoCc48MsGg7JsR7x9Tx1B0o8l7XMmAza5wfX5uDFYXlxkd57HYxRvOsbo6
BqdE+d00bo/Hfn43zerxGBI2Z725pMtiibzTUEs2hv7XT/QbFrHgP/TQCYn4
jDv/NbzEd2WxsXFzunSXHGm/Jof0urMQFuT2DgrlCPekzco8WCyoOhuolijH
wrq6cjcfFqo/o1eUFMqRnuXffDqMRX1bWdgzIkek9QXprFgWDvPdpoIyFNgi
4dV0cXdktX+uxtwCBYwKIhNuHWORPb17YKJSgQ4tG03nUywEyhum8X0KfNfT
sfA/WSxiTct3Bq39ApNT+o6axSyi40yb+2RfoLJJ0Om8wcLwSLLEgD+OP+lP
b4tvs/j4ocnz/uJxZPtUBG69x+KHr800lgaMY2qp56HkOhZbL9tpN/0xjq6+
hzY761nce/nSv3FwHNXnjFWmDSxWHc+bFTxjAgdUw2mNLSxq07b0nXWYQPeb
rHx1EQsyNG8wpnkCD1Lku0XtLAouNvS+GJrAOdtgQdF7FmZ77be58ifhcn1F
pUMvi3L9+CE7/0mY++XGzv2LRVb7yQfTTk1CTVe1sf8Ti8Fg519zyyZRe/Tl
sxNDHF9qplboLCVyLdZkeRAWJUu9KaGdEjH9l3cYs1x/LYt8NA4q4Zo3fb5U
ysKgIz7IpFSJJa77+p7KOP18zjZZECWmT3t3LVvOIkK76tHZ1Sp8rLIVhoyz
8PwUYT0tXYU6YZGllZLF6NmuS5cVKuQZzR6bmuL+3K01XKmcwv8ALCfEsQ==

        "]]},
      Annotation[#, "Charting`Private`Tag$2603054#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk3841HcAxzHcUtKdX1PsTiEx/Vy65WlvG5lDFomnWjjqydNataxHhXYq
RbWwyi0V86t6NKnYlEQ7ip4pGepSfoSs5vu9z/1Q9/t7u/3xft7/vt/P+/X2
TNkVu9XKwsJCYNb//m13jJe0i0I4L7nu/kEZliVe+GHVYwr2XNvdLa0yvJ8z
5NHxhMJhXpRdqEGGpufcjrW9FNi29V5L/AmyxcLdA/0U9iVVvFsVRxC8vtJt
i5TCOc6iqs79BNaOryX0AIWILF8f6gJBxxOfHRmDFMSiNvlXLQTHT6U5W45Q
aIxfmB48RMC2o7Y5vabQlH5o2yF7Ofo6Atil/1DYWT71iuMuxy+5u5rm/0vB
d/HJmCg/OT62VM0IIhRS8vi246vl+ESjvSHUmvv85Nqy84AcYRMswzV7Gmyp
4HT2SzmmVQmq+bNo7M9ftjHsjRxdwhPREg6Ns+NLirQqOdYNzizvd6Uhelxk
6zVdgeQ+5zCDJ43U3qb3VXwFMiXzCgWBNMLpcpOpUIHrpfAaT6SxYe1w156V
SqgOqFhCIQ3tE99VJaFKBCZcnhxMpdHNex7SHK3EHQeH+mdpNIodfR/KU5R4
IBr64q89NDay0tbwTijxIiU76eZRGnmCPa23B5SwnX+nRHSNBnV9qOFyhgqb
6wLZHgyNCO9QF17tFES55Tkva2RwZZYzXQlq2GewIoS1Mtws89NwU9QoSfuO
M1Enw9243UszdqhRH/lZJWmQ4VDh1VtLc9SYYPe0W5l3nijcGjtSo0ZkqcWH
C3plKAmLdVhgUsOlMenUXr0Mzu7ibZ6/aVB55X68zijD27WtfX6NGiwu8ef+
aEEgEc+WBkk0EGSr6/JsCI4Iyz7dK9UgK6Sg57wDQckKm2yBjRaj3S1Oknlm
Tjaw1l9M1qL2jcf5mVEEW3XjbolcHfIu5iYPRRNUGzOjfAN02BJLe1+LIfDo
Wz5qHaSDe3Pz9TUJBEu9c1aq43U4XrDpwckUgk5bh8nuAh3SAs8p7Mzcjeto
ySsbPUInLRoHMs1caRM0c5z14P6allVzkICTWfci3UuPp9P4rIgjBOetLo6J
QvRYPfjUPb+AYIo9ZbXksB5zjziFsy4RFN2rqlhhZwDDz7J/doWgonpG6Ls5
Bjynx/6+dJUgrn+MQwUYUJhQvznsBkHp0J1dRbEGmPxi03ObCYr1/sGeZQYM
DN/mr28lyK+T8u3rDfjjjCfjJSG4e2776LoOA3Yy8rz2DnOeu8ab0xUGvOwp
KP2gl2DmQGIcJ8KIW0fVqb39BDmnf85vERpxJihpQaWUQJf8aL7bASMiqxc2
fGn+EV8Qds+v1gifjcX7Oa8IRiSuKqdOI6wcmM9HxwjuO/IkLuNGNO179DDn
LUFkuYuTO49BccDyghiKoOejYU5FMIPvRy/EeRKCIBI3uS6VQZTYerZCQRA+
K6StPY+Bb9SO4XtTBF8rvY89vcHA2rKvqlBNMNHWedVmhMHI70Hbk3UEbqpj
0XwXE5q3Vy5abCSYKzo7e3KTCWLu9HcmE8E34n3NfzIm/Ae3WmNL
        "]]},
      Annotation[#, "Charting`Private`Tag$2603101#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHs01HkfxyfUuMSQ6Z5m6bLpsutpsWo27/Wki0JMF7uVGF04KirZMlH2
CauxB/uspZBdj3TRuCXF6EFWTftIlEg2qlnZTb/f72sYZgwzs7/nj+/5nO85
33O+7+/n9fp+HMOiRQdNOBzOQXb9vx5uC1zc/ZhCQJ28XXaIwWf78k+ue0KB
32QMkLgzGJvf56Bop2CrmNZ9Zg4D+UuBIqCDwsASrxiBOYOEHPGxnk4KZ2IX
aWR6Gl/uLJp7oJtC5A/STQ/HaJjZv2uieyikV5fFBQzTULQvPXKql4Lg5ulF
MkJDmh4xc8obCiFC5s1Jhoa/b0m9VElh6uHLlw6xeztLKpz/joJrT1pWAHv+
uWKVXcGfFORLZqbYqGhcTI6WfzxIwXf3+ZSkERp71lfur6Qo1Go/z8pn7184
ZWS6kFDY9eDGmLeOhrLe9U6zisKOhX7Log00iuO/CfFXU2ifcJzJM2UQsbbG
vHuMQnWeOHMe+76V2vFK8TiF/Kg1JNWaAakW7vkwQSG00OG/InsGt2ISzGIN
FDZJ3P51fC6DNYQTlGpK4/QPtzgXlzLYOMCdLLOmkeMqL+B5M7C44lPsYUsj
pUHtbuLL4LE4zb9pBg3nxLiy5TsYbO+1KeycTaN+1nYT/kEGoc9nbpx0pHFs
u/QvuwsMzjQtyvRxp3Eo1qz5ZDcDz8SDazo8aDx7LFqrVzIw8bym3CuksVQU
k1BMM0itXe527Esas8/npYtMCbIr/tGTvYVGYY/QytqFoKIAi/v30SgzF1lk
pBOMSEa4YjEN8+92+P47l8A96NqH3v0sR0lSmuwqQR2PV/UigkZWdu6LxQ0E
DxP7vFpO0NjUrvNzUBH8HpYQciuFRuDdMe7ZlUOY9nFdbmIZjUsp54U38obg
Yxp9Vl/B5g+ruzz4nyF8/9opTFLF5u33NHUrGYLdRanzyRoart7c2v6aISyw
2F0T3kRDXmfLK+8awuoP2k7/Lhp/Hn1UP2ivQnC5u50DyzE7+IQNlaXCnd1a
m3YOg/77xHXysgo20+TTz7NcO77adn3WNRUa964zf89ybd8ZnxxZq4KTpbfx
NstxvfTH/PQ+FQYOBNK+zgxES+aktC4fRtS8I7/Fs1wGhkpj97cM4+GDVYpP
gxgU3LevaekchuA4aVZ+zeCR5rtTeDOMdsWJxs0hDBY6OZT6jA5jdWzcXX4k
A7M7GxSDghFo2lKKZecYJG7za4s+NYLE5MJvX5Ww+Q5Y9Qtc1LA+xd0iLmXg
MvXVz4FCNXIjjs4YKGdQHGr2PmOjGlVb1xSR2wxWOExkrg5WY8DuabNJA4NB
89av7NPU2FrAMXfuYODfYhwPfq/GrLsh6bETrCcepd1zK0dRdP3BLp2e9TKg
nPtR/ShcclcIznEIVlY8qfi8ZRQ+CZry1KkEw4UXduW/G0X8+oyneTyCFZ0u
F7zmj0HZVs9vWsR6sDmHcZOOofQvhzwbXwIznnHUKk6D1MvJoX3+BLPdj8pK
pRocENFLygIJchrzJDH5Giy4d6/CL4jA8tyyK1GNGkgz9jz8Powgs9lo94Wl
FhHul1SWcQSerbZtC69q4f2Bc7fnDMH/bgR7SeRaCH6JiC85S6CMrHSd3qZF
l4UHd0sSwdf7EhJ7tFps6O1acCGD4MfR6bm7to3DKYm/mct6a7otrYu20MHg
EW/94jpBx+23m5qddHhJ//Hs6k0C+lmtlUGoQ2ZQVfDGSoK3kdXh5dE6GJeL
YpLvEey9LxaVv9Kh53Wtx07W+xecQX/vcR3uZDkaFjexeYTpU2NmTSDKMJTa
rCCYWyI7/Eg0gVdPMwpMOwi+cWnIffZ8AjUpmv0dnQROtuEfVWomkCUMcS7q
JrCpTZRVzJ/E1uJPbv+zj+C4rLHgp/BJLN2dHTfjLcHrUPuk1oxJmPAMnso/
CLb6Rb1sq52E/HTrb9++Z/vZs+WLUL4e2avcMgIpgp3dN39v2KDHcWX+DkdC
IH5SebZYoodvjtk8FftPTwQu4+mr9Fjme+R1o5qAO3tagsuIHmZTnl/J1LBz
QMV/+staA95UCyNDdQQS80K+Kt2Ae5FFn7roCc713o+fM2lAjsBq1GgkWNfy
q5eZwYi/Ada7UO4=
        "]]},
      Annotation[#, "Charting`Private`Tag$2603101#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkX841HcAx2+ow9BTubbpzEMlFFk9oVq9K7H8yB7iNMtO2DLzq1o1v3mi
+dGQKVFqm/SDxCIuGWnY9MPO+ZGSH2lOnny/H9/r6s65+97sj/fzel5/vp63
ZWis39c6HA7ns/n9zyCJSFodR4HmcmyeOjDoTBvZ8fAwBaP0yIbtAgb6wYWr
dh+lEBQS/vdULAOvTe4GHccpcO52G9pmMsjjqaZ3JFDwcb7p7nKOgZipFrck
UbDauqdh8jqDpd0H6rekUlD9u+3kpSYGgkreOVE6hYmhzW0XHjAYCk0W3jpJ
oSiinTv7isHH+MR1XTYF/kvesh8VDEKWT1jfyKUgCvxuonWBDNJeb7qigMKn
H90oCbaUYWYXP7mklAIbY17BE8iwcPXd0rSbFMT7HLScOzJ46MamaGop1F7a
HD3TLsOpUavQhDoKpVcXFj4Sy7D4XI7t9yIKPKUk4/NXMvANgkQH71MwOdPe
UrrsDda/Vvb7DFDo26s3PBn3BsE1TovNWQonsh025VvI0RCkNBFzaEg87SI3
rpHDZGGT0QldGodjy6YGnOS4t3+r/pQ+jbW98R1GPnJYGe7S1i+loe3lfeiZ
JIc03JfytqWxT/cPidOgHDFmUV1J/jQG1wtnFXlvkZb5a/rzShpRU0/FVtp3
MD7O9TxQTcPJ149rYKhAaUT0EmkNDTupq0hmqkCd16ZyUk/DbCxhWmyngHRx
T7tOK42ugSbhXYECXhc5+ra9NLZXBn4jrFFgWaMw7+gcDfs8iW5NuBLl1zoE
Kg0NmdG1y5vjlHAsXWORyiE4q2r66XGiEh7JipqsBQTXbUYGDX5WIsk1v+f8
IoJHNsekY21KjP/TYnp/BUGVnU6Ho+Usql+ZnzfxJvgtmx88NDmLrLLMkBEf
gq/WVQk2vJtFuB+16qYvwZmesrEyPRX4zc21ewIJnmVr225YqpCT/2XnqVCC
GSNBa9t+FSKcShjDeIIufedi4RMVdr3mND5LJLAThf1pP6mCxS8RSZUpBPG3
jDzNFCoMGLhwPTMIJC8KH/h9MAe34QF+dj6BoPvYbNgXc7DKMN3NvUKwHfaH
QifmwLokGT+5RsDXzcvpUMzhKfVScqWKIDzgTGGYoRoFgXXB7r8T8PpczIMd
1dDa+R3JbCYYvmPOr01V49noHZeAVoKluQlxe4vUaCiyZFfeJ0jpyEr2v65G
DDuT1f4XgVtuydrcPjWe9+Rf1O2d7028OHbPUQPRSUVYbz+B9dv1p908NCja
IrQtHySgv10+nBKqgVeFQ/3OEYLOuNXxYcUaWAedjV/ygiD60TjjWqeBziJ2
2/hLgqIj2g3uYg2afnjclT5F4JXWyT1swuKs/cZ832mCoION3BWOLA6NX/C3
JAQmQpcsU38W3sV6ZgxDcHUl1300gYWNd9ToPfn839bV7dEVLPTe67tcoCAY
NRt649nPYuz2lsgQ1bzTvs7xxlo0R5avc9QQPIxSC1oCtCi2eP+tVktwpHHB
6dusFv8BHCZWIg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2603148#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkXs01HkYxsdlo3EpwpbImi2R2kqbDYdnReWWdSslDkmbdSkpteSWsJSw
uSQircuxIrZcpjiRMmrbymXTkgibrr/fd35uM8bM2Nk/3vOc55znec/nPa9h
4DGPw/IsFstTNv+rTy93ojaCQvmTVbxbqxnwEodtn0RScPX77YaVCgNlv0tr
HKIoBEYqVErlGDhb7FzceZrCpguZ3ZslfGRqiz7bxlDY5Y/QIhEf3Uxt971Y
Ct1To/ahc3wse3awwSqBwhPhEksLmd9brV3APUuhwGyP4yOZL0h9fGZrMgW1
v56pMLL+q8A4/1upFPoTt7gUiPlYhc12G9MpDNcquFVL+QhY+dao5gIFX8X3
1stlPGWCArZJJoUa03U5/QoMJvpc6IpsGV/XwfVDixgY17N6OTkUwsQ7ywzZ
DEIzGhqv5VFYG7L/TakaA769XtyVQgpXj33St9BmsMWwO0CnmIJPZvEapxUM
TknO2edco5CG13eS9RnMN35SuVhO4WBL6lCoEYNFa1sKE29SaNF6Wd5lwcBR
4Vi8pJ6CiM+9/86GQcYIJzDmNgVL0esYjj0DjYLzJie5FHiDgyHjrgz0Fvtw
j3RQcP9BeTD6MAOzT8IXrv0UuA3tuwLzGfjVmWvoS2X/MPu5yVlxEk0+QvVu
Fo1sO7nfbVUnob7oruo5BRon5ezITq1JtPtaK39QpuEWc3EgfvUkOGz7hYZl
NDzCPQ+U7pjERJA75WJC49CjzW6Xzk/iqG7Y41gvGrtz2Q8erJoCr3ND10Zv
GvyIi9XRxlMwOE4eju2X7Zu0WmptNoXursh2B38aebd6gz7vmIJZVHSzVggN
1dLveVT4FATPUytqEmgkBdalJbVPITHl+tmhahq8V99ZekVMQ+20ktPBWhop
FlcOs89MozA4XHOijkb+TzZzT1OmcdvZoow00GBrdDTGFU1jQqPnoXwbjbQN
KzcndU3DuYSlbNJHY/mMcMGcMwOdZv/MqHkaXrNmVpbjMyir6twrktDotQrX
HSAz2FRoapDAImBzmkbTxTNwjBPUpX1BMKYWI8/RmUWsXVZP0RKCyibOgJnT
LMae39Pq+JpAc7vXG/WmWdS+1y9SdyEYN397faxEgLTilIBhV4KWirQo3XoB
gjyoNTfdCbhOvjGn7gug19pav9ubwCakyrnkXwHOZx3gZQQSvMuziehcL0Sw
+RWGHS3LP9/fuK9TCPtPrObBMwSF+9yTHAeEMCgNjq2OJ8jdKv41ghKif/E2
JadkgswRiXWwzhx2vO7XS88iMNJN7zMLnQMnWctBqVJ2z+gL590cEaTbYtVe
VhFELJf7s95ShAFqvLfyBsGKE1ZVpzxFyPa+7bfzDwLfyHta1qkiLKzzOJHS
SvDxUdXSfYwIgyN3tu1pIwiKL1OPUJtHU66hdHUHwXZfJ4Wv1s3jqJSf9rCL
YNLxuuD44XkM9WSVKPQR5Akc+7zfzoObKjjU94Igo8grt0JJjFwrf5Oyfwhu
6tnkLDUVw7nim4btwwS24QZ6bVFiGPnkR2uOEiRp/fLes1gM+SVSm7Fxgodt
3J4anhh3f376+OwHAuNw+aFeAwnyN2zNcv9M8KP2s6CjbhIcH7vqZUgIhmz0
PyYlS+ByWVGXYWR8OoJ2YasExi5hI+3TBKPNCd7fzkugKPd3ebaA4HiLQ9hF
WyneNFqFBIgITDPWjubmStEaUrZxk4TA44iQaLIWcNlAZWZhgcA60vVLVekC
/gPbX7Ra
        "]]},
      Annotation[#, "Charting`Private`Tag$2603148#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVj31Q03UAh8dbE9SpuDydKE5Fm0lxVxLly+dO0OE20O0Q30KIKHdE1uyk
xBV4gYAow+JFEHmREA40U94RJUjQdQGN6UJ5seZuh5f7fR0bY2z7/Rb98dzz
7/PwE7+QfeLJYrFC5/jfseeSxJlcCkWFE91nD1mQ1uJDH1tGYd/g6jp3mgXa
hAcO3goKg0vOWx8WWbB5Qa59YCWF8tb1F8yNFmS2iWwZqynI5JOlU90WjCUu
sL7Dp7BmQP179bAFWziDZuM6CsnpdMWnBguMSVKTREAhQ/T9S9/XrDjOS1Er
YyjoyzSKasqKjKzqM2MNFFIicHJxvg0Lv2aLPrpBYWXU63enS20ok3/ub7xJ
4eDQtuDRWhuaxO/XkGYK+Vp2bN1dG4xLNPc9uynwRnYKRSYbxBWseQIthdqj
kXkGyQyWtcXnn3TO9VHZzQ0cO2rq+2Id9NxfhGT0Fc+OkLI3A9NZBCOLl87b
vtGOPd/O3MzxIYjccOmDSdihDFdpLi8iCH0iKFMp7NAP3eP2riPI0U01SXV2
3JhcdZkjIWjp+RJxdbPIuZKVMBFNQKU6o5NbZ5EkMwX9LCVQmvYV5fbNIqCr
65eoAwQ/2Iv9PAyzOKc60n8+kUBciQ4D3wF5aKnZ7xQBa8A/L/CqAxH/stqe
niZIG4oPuXrbgcAqubLhO4Jd2ZK88N8c0PmGsUWZBDuihIzR4MCucV1Arorg
8cW1xkcCJ9ZmciPZ1wh+VHtvbL/jBBOmXPhXPcGUeKhyfNCJJ6bnw9caCTxi
TlyH3omCA01xu28R3Dt9p73f1wX3JtlXWV0ES0v/YO/90IWnzzrC9ncTKITv
RvQrXGgt5DPrewkq/zy0tyLbhePMq5z7Dwj6JuYfudDswphGVeGlJRiXjgqP
cWm0n535WPuYYIVmd6o+mEbh1nhBzQjBic7U0eWRNMS1bzXvnCBYvqdDz0mn
seFw8Sn/fwiq2Nphn3IanouYHfrnc/1ZsgJBJ43ObwbUZ14QCCuDtvc4aBQH
b1FJXxJsCunn9q5ioNCXx/AJgdctty8vnIGkxJtnNhM8pN7zk3/G4A1JyrNf
rQSu67qAqhIG3h6PfiqYIdivebEtTs3g75atyQkOgumA3KAeLze6kmveDqEJ
OuPX3NZHu1ESOH/a7SZobKnn1DNu/Af26c8q
        "]]},
      Annotation[#, "Charting`Private`Tag$2603195#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkWs01HkAhodENrJknZ1BluQkq5wtbQpvtbnMkD0uayoJLXZWUcRZt1z2
aJIjY8tyom2LdEQq902KLZmT0gXRxdK61uL3Y/9jhhkzs/bDe54Pz/PttTx8
zC9Ck8ViuS3tfwbmhHtlGRMU/CnV1vZlkNywXPmDCcGlvqdZBS4MekLFcg6b
oFRcGz+0lcGXemfmu0wJxgeL8vu2MMhq4kkz1hDU+3DFLEcGA4f1JJstCTr3
STOyl3rHVc9mx9cS3NcYCdR2YpB3R0Qv2BDEmBt1uzozGA/3nfa2JfAx+1e9
cicD109XT6rtCBbUQWP+exgU3e39ULuRgHO+vHMZl4Gn0b7Rz7cQ5MQImiL9
GVy+xx5+spUgMF4jRHs/gwXBu6E0J4LTiRPNY4cYVLYeejfqStDc+0//3iMM
NI988aZoF0F747OJrlgGQSbDfbw9BP42SdMpiQz0oiO6b3MJMvmOxYFCBjGc
o49TAwiEmhOrO8sYdDyyF2/iE/BefMtOrmJgEUvbh/cTpMacafGsY/BCHNfm
GULQY3b6d5eHDL5KSGoyjiKI1G9Ljx5lIHsuLL+RTmBaM3nvgJ0EGaeuZA5U
EvSahakMH0ug/5MOL6ya4GrOx9L33RIUC6KNxm8RXHzdb9I2IEGdl1MZrSeI
Yt0MrpmRYNzwZbtmK0FhSn5IMHsOXpdYK2x7CDRMp33fR8/BpCkkL0FBYG3f
EaxrLUVZxaNAuZKAsn9MWOEghUOxnUU6i6Leybaf4ywF96TsVvZyipQ8r43J
AVKkfiN6WWJAEV4b9vN6oRTDz+8bP1hLIf/6RHP8tBTVH8xLVnlTBBy8Ef+0
S4bs306FDvpQhJ61HIsblCHcb3rdTV8KVDbauFIZzFpabu/lU5S6CxzcDeeR
IwrqyD1M4Xos7s1m/jwEWy/MfpJE0T01qgifnMeeSVbT2xQKavdM0Kmah8Vl
QWplGsXBKWZDpNEC+nS36fCyKHYat3A9ti/A7a8+szMiCrfdpg9HchdglWXs
qXONgq+2zzoHOVTbUvX7KygqjkeNRPDleDM90n2tisIqb/uT4mNy5PPrgt1r
KM5ed4t0viKHeoPfiVMtFINyLRu1rgJvh+5s+66V4m10Gu/kOgUaCyxV1g8o
2jm8c7/sUiBGNZPdLqYom2iaKU9RYOCl6NKyHgqDqvKpmXkF/hDKvu95RdH8
a5xQxFlEwY4Q27LXFE/XOdl6uCzCq3xj/e5BihMBYQYZwkXYHChMMvqbYk2s
uZVv9SI0DVSuwyMUvdrxVkOvFtGc2PU48yMFezQtM8BeiUJ7R5HvFIWK/fC8
drASscMXAywphaOfbYlVvhLeRVqc2dmlP1cW3M0VK7He++hQm4TC40XUTKmW
CloavVfzZUu+4bpJLVeF9w07okLlFDPHuZ2OJSq0RJVtclBSDE1GOLRqqVFk
sXJOraZY5XWa+5lKjf8AGPVFsg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2603195#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkX0s1AEch4+8FHMm0psmSktJ0ts1m0+pJOnFTYxe7jovM1ovZ4ahNNQx
dXrxljIhNRSSuFxqjaxW2aW8JYrW8nZfl7j336U/Pnv+fJ7t4yQ4y400ZrFY
bnP7z/eBrkuCm+WollW7Jw7M4L276Ra1RI7e3P6eG6oZhK6M1aVK5XA76xLh
aTOLXzayNuOXcqwbqRVNucziQAlrvmuXHA6+e/t+Vs/Cvol3LV4rx3XvdIP1
TSXKH7YHa/Ry7BQms9n3lPC4vd7xIosg6BRIzWqV2J+qrBWZEpKj4gXj75RI
2S2WFVsTbn71di4wVmG4s9Xu9SqCX2uDkblQhUe/VxSzAwiq9hzecJAaoruZ
/MFDhBDx9kZ2pBoR3EmXx4EEboINxz9eDQeptO5gCGFtXNo9RZ4a2eJjb3IE
hNstY+aLe9WI3laksEgiVC0qLkvka7BnnNXUn0zI5k80qs9r4FganVJ1gSAR
N5wrTNegewHH3D+DwPcSjW5+oMHeb90OWWKCsJ5lazGlgXOGnZ95JaFCHOYp
ydKC4aRY9Tyc82/9vq//rhZ9kyOfKqsJrbbbxjlPtMgNaTjhW09oXpjSIf2q
hWEdNy5TSpDlSce4njr0D0k4R18StmhSN3X56fDslhOz+jWBXRFp08TT4Qwz
JWrrICzwH7zQcU2HAZm4ZF4XwfJU0JT9tA7Nl5XhXV8IFlYzu15Y6XHLi+da
3ks4fDWhxcVVjwP33Z/6DBIcF9fXFQr0WBOWn7TwB6HyzJHZgTQ9jK0Z7+ER
QlROuF1YqR7PEz+8vTQ61xP8tkY2okf+hq3iwAnCH4eik7z5DM4P3wlyorn/
nBLyTmxkEFBgskyhIKjtY3nCUAZrA04PvfpLqIldLrlzhYGJ0eeKXCWhry5j
aXYLg++NXjF8DcHn49LjaSoG0pjyjR56wnSZ9se0rwEFjpYzBgNhR6eZsJAx
4B/Qk3bv
        "]]},
      Annotation[#, "Charting`Private`Tag$2603242#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0f9T0wUcx/E55WZqfDE1zkAYZjUK4hYBd3K8SmyWbCpflDI7Fl8MCCkR
LzynSadGQGxcBCKTPBEamASKMGiJIEjDTSW+uEwRp5ES+7zD87PvX7Ifnvf4
A5789M+SsrgcDifqaf+rSxT4b1MzOKVM7jDcZKEL94q0dTOormyTrB5m8UHw
p84DGgaHuntE6iEW034jA9xeBku1/ca3tCwK5kd/+3UfA4tqOOyEjoXniXLr
kgEG+RfGO14YYVE+zV1VeYVBe5Gy5ZMJFv6G7OnlWgaR3D9Pb7nNolF7rfX4
VQb84ui/uowshL9EfhF0jcFjkW9hySMWCfWchYJRBttdFc+HWVkY5DtvnB1n
UKUtSjB5WGQW644JDQycCp2PiWfGwcxjgtg7DMS/CrKq/c1oC41I2Pw3g1lF
fm9orBkrutIq9joYFKonRWWlZjSoBrfZXQwM+nM+piozIo6/GvQlh+BdkNG8
6wcz3jtg+bnEiyDds1iq7TBDFi8fqfMhnNF5yqamzDBev7isfzUhZUb6hjTO
grMPA+u8xYSr9s7Ph72tKDlxRDq5iVApXh+4d5UVmUmmNa2JBEZWOrMh3IoA
jaZNkkpg9bk52ZusKJV/eKU8nbAj3TWoUliRHVU7t2gfoXYlK54NtGH9P5yu
W/sJOx8UhskibAg6mS1rOUhYEbB/Mj7eholnYngbDxOKpQ9mDuXY8M6diYBv
5IRh36Ixo9qGkMPL3uU1EYQhUddjs+xwx8ievaki/GafqxDJ7PjDdP/3pjOE
MaG5uf07OxSp5z8StRM6F26ovXjZDk9o0p4jGsL70RO7NwscuHW3O2ZrLyFL
HyxxxzvQWcV3v9hPuJeS2f92mgP57n9LBoYIgwU7jK01DtwekdfPHyWkfRWQ
VO7nhPqoJWN0nKB87dQlkdCJqrVpggYDYZ4jr2V5ihMJjeEd6yYJfhublHl1
Try0vXrf0nsExQ1X87o+J7g+7jjjfcJPqedz9A+d6CnSa4sfEUIe73ouMM6F
6rA35YmzBJ73x2tUeS7sNipT+ESQBHduKat3QVyzYOXcHMHrpOL7xjEXXhHn
3b30hNBzWciT+LqxYN7YaYWFkCz8UdCX7MbUhbW5UjuBv2RIltHghia34fUI
F4H78lFZ8SIPaoIWsx7P07/J5+qC3R78B1d70fg=
        "]]},
      Annotation[#, "Charting`Private`Tag$2603242#2"]& ]}, {}, {}}, {{{}, {}, 
     
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAmjgySjlc7z+PZTTU1Qn5P9MljDvt
XO8/vjKyiu8V+T+u2vMAvV/vP95HdgJiM/k/io9bxoxi7z/aVW1R9kv5P2g2
mfEKee8/KK1dkhv2+T9E6wC32nvvP/56c+6ACvo/H6BofKp+7z8VQLIJ3x76
P9YJOAdKhO8/nR4ol5xH+j9F3dYciY/vP9xo7N2cmfo/IoQUSAem7z+o+fq6
3kL7P/44fA3XqO8/xEj7msdY+z/Z7ePSpqvvP7cWUnjnbvs/kFezXUax7z/N
BjXu3Jv7P/8qUnOFvO8/lnoWVyX5+z/a37k4Vb/vP1cr87FLEfw/tpQh/iTC
7z+Y6A9S1Cn8P27+8IjEx+8/0v1l6ixc/D/c0Y+eA9PvP0XyxfMbx/w/uIb3
Y9PV7z9MiQFZcuP8P5Q7Xymj2O8/oiK1Q5AA/T9LpS60Qt7vPw2+IaKDPf0/
JlqWeRLh7z+ocKIzll39PwIP/j7i4+8/d9Tgze1+/T+6eM3JgenvP8/6oJFK
xv0/li01j1Hs7z+NHyv76uz9P3HinFQh7+8//I8OGRkW/j9MlwQa8fHvP4Ge
dPCDQv4/KExs38D07z8bWRY/OHP+PwQB1KSQ9+8/AvEFqvqp/j/gtTtqYPrv
P1woW1w+6v4/vGqjLzD97z/45wYk7Tz/P5cfC/X//+8/q3HZwoT+/z/Fhhcl

        "]]},
      Annotation[#, "Charting`Private`Tag$2603289#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwViX0s1AEch8/bSmots2mtTSfXYpGa7GT5LEkmVuzM5t01RyRdpJSs8lJe
1mF2QvMyLyuZobyOsVhNWPIeznlZekFfF43f7+5+l/549uzZwxfH+Ubo83g8
wQ7/XSw87ekURJhxFW6EGDAYFeQ4r+10u+rPi3zdNuqnN3hdoYTfJnXmD3d+
lizwQ46YUN6e65Sxl4HErTc7KIIgTUmS3DFn4MrY+JyIIsQmlo1nHWXAiNmZ
gVhCjMh2zciFwZi5uKLkFiG1N2DZyotBw2C/JCae4OJnvdAdwCDKsUi1J4nQ
VyGtOpfEwG2F1zr9gPCrwe77gUwGFuVRybUpBONh0ZULRQwmjIW7PNMIj+ZK
PzV2MLiomDicKSOcklwPl+uxsEwz89hVQ1g4WN03UsaCEybvm3xFUOavJLg3
s/i6tjRS84bAv108aznAItf/bbB7I6F1fnhQsM1CZ+Mbn95JEFt72yj91ZhW
tgv9ugl1r+9L+FI1Wgr4nNV7Qnok85nNUuMmt/6s7yNBPy71UlGPGrNfZKUG
owRs13YqHDRoy9i6NjpOeO7h3WQn0qDAOdS6coqw+6pKkJegweVqu3euc4SV
oRaFXrsGxwLkSaYLBFtNdGqgQgP9/ZzL4hJhfdUsMdxAi457Q/2PfxLsFNuO
6X5ayG3PyHxWCZuJU9/ET7SQLr4U8YngO9nGS23SwqvQ8JBKRXCI/5HVtazF
ca8byp5NQkhmqzL4CAdDvbGq3C3C2btR0rxwDvPNztFhLCH6fFikvJ5DZ3Tl
SXst4WlJRXaIqQ6FFiZ/dTqCKemM7Dkd/gG4t0LD
        "]]},
      Annotation[#, "Charting`Private`Tag$2603289#2"]& ]}, {}, {}}, {
    GraphicsComplexBox[CompressedData["
1:eJzt0/1TEgYcx3FUfCgcZt6w7NBMrcvc5pkDa6uvXphpZWa5cjPaip7oLDLL
zc0zPL0e0E4Ne9LUrLtdMiEXUJ3a15TyIk4jy7QYChIioqKGohis7ff+A3/4
3Ps+f8ArcN/x5APOBAKB9Wn/NeGAQdk8mLK+LIBkcTgcyPW4t+L8Yj647Ff+
VbXHgbtTb4rMY7fhgZv2uGutHUkOblqcvwjK3VNLJu0fMWT7iKGVJ4Y2Sg/b
b+dHzGpfA1c/PARZImkl7cos+oq91U5OCCVOTZ6X+m0o1W5QdHzfAn8kqmbp
VBu2sG8sSTXJoLRROPvwhxm0LF/nVZfeBs/4eCr8+jQ6TwsWLAmRg/mbSo6L
3Io0x8/SHUIFcBb9pPEnWlGRH9n+NLQDeP4nqnD9FAYUD03fGXkB3da9+lbW
JA5N9apfh7+E+Y+fT0nKLHjb2CAnX+yE2D5Zzrf1H5BM/XNUp3sFv46FetQr
JrDwiORgdXAXKNOcWTgxjpPRAt3h3DfAYR8dCCOOY2aETExp7YblndLSk0vH
sFco4ykD30L4k7xLlBAz2tivyldmv4M4LJlwJI/gqhh3+8EGFXyR+oTekGnC
uJrAQ/W+ahAVXm5bzTJiFnXvMk1aL5xiCaOI6QYMM6WQ3mztA89f5pdGn9aj
j5fZQzbTB25ns/5WxOuQiOWioAoNRMq/OyOla/FoZEPPvM1aqCC1a4Q9vSiI
31f9aFILqpAN+WR4h5YhvwX6y/3AeFDzpfFtF0p2xLnwGTqI+vE1J8imxNxN
BVVivQ6sxZXW/bfkGPhPQvetgvcQne0r8dv4GNfS8/mLI/TQTIsKsjEFmObf
Me3U+ekz4rMoidfAIi/ScrgDYNZnP60TNMJVIjMzOdgA1nj7uiS/Z+CjltQ4
ywzgKfparCO8BNcc7s41Jwah4vQ8Jn9ZNxDuMEXahUa4G0GLVVDUkHFdVLSw
xQh2O12az9ZC06pzHt7HhqB5ReuuGP178E7ICMsjm2CGVzmhTBkE1VcvOn9r
NIGPRnJhW9Iw3K2EYB1zGJIjinPGa82wR0TzptqHQfmIl7SraxzOFNzkqmpH
IOPa/dyTZy1QZ6CWk7eMApHhOvB7tRWu/O9gFEILmxi77Q6Y8zHnY87H5338
C7iSW4c=
     "], {}], {}, {}}, {{}, {
     {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->Medium], {0., 0.}], CompressedData["
1:eJwBRQO6/CFib1JlAwAAADMAAAABAAAAAgAAABMJIB1tsNE/TukvN+/G87/h
TZgP6brRPzTt/uojwvO/IlIKwDXa0T+/z36/xrPzv2H2yLDgDdI/YFINneWb
879/vuRvNFXSP2ZQPtuWevO/xpOpAkWv0j+FAPQa+E/zvwvkVX3+GtM/1XSb
2ywc87+r+LPmM5fTP3IYUe9c3/K/Mrze4qwi1D8Lq2juspnyv8S1HiwxvNQ/
8iKMw1pL8r/pTvZtkWLVP7GP0WCA9PG/aLOchq0U1j/KTMulTpXxv9157Hp4
0dY/MOffd+4t8b/RdgeL+pfXPxFVjwmGvvC/twhu3FFn2D8jtY1KOEfwv4Vx
9yOyPtk/xEq/8kiQ77/eF/GnYx3aP9cS4J3Lgu6/AtG03sEC2z9QoP55Jmbt
v7dRp9s57ts/hev9cX467L82RkStSN/cP+owYhvv/+q/Ban2wnnV3T/dHzFd
irbpvyZur2hl0N4/9D2sEVhe6L8+kPFfr8/fP1rU4JpV9+a/u/bmzIJp4D86
HmFidYHlv/+TQ4kP7eA/vWJgPJ7847/dCfFmXXLhP1RX1KWqaOK/cI8XeU/5
4T9XYRjUZ8Xgv52uz//LgeI/h1V+FSkl3r9UYKgQvAvjPwpSMVO/n9q/dS/F
SguX4z+AGGbCzPnWvyWXZ5WnI+Q/Oty87WMy07+gMtfngLHkP1TXjufTkM6/
4HjCGYlA5T9NPRIFH3XGv0TAW7uz0OU/gDuS1B8dvL9b0KP09WHmP+feos/v
ZaW/AGyFa0b05j80h22AsXOdP3CXnjCdh+c/wKoa1Okcuj9ojNmy8xvoP60Z
Ecy2zMY/SQBQukSx6D99/RXfX3jQP/xVbGuMR+k/ID1EWuDB1T+6Q+tTyN7p
P/BLu72PSNs/zKxrhPd26j9IcaFNz4ngPye06LoaEOs/p2ewxCiW4z+kKVWl
NKrrP7Bjw4N3z+Y/gVC1SEpF7D9YX7dtJj7qP9qoBaNj4ew/fSkmvEvu7T+N
dSyzjH7tP8H9H6kx+fA/VoeRQ9cc7j+eiGuqszTzP7GYyVxevO4/eMMZLbfH
9T+NIbIxTl3vP9+i88VX//g/AAAAAAAA8D8AAAAAAAAAQMOevrI=
       
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVkns41GkDhoWSStTqQPUpp2wRFmld5RnsptSm1RpWbdpaciyVcuhAkuRU
qxVlU2ipLV2Rj+jLG2qdmRlDzscxzr8Xg8E4fO0fz3X/fd/Xs+XkWTsXaSkp
Ke8v+5fBNhJd79dcWKSM6tJ/RIT1plxaKZuLBzf7auM+isjChocNWblc1AWY
eu0uEpFrw7tCpwq4YFnzfW6/F5Erdy8136jiwo1VWqaeLSJ+9aO3Hw5wEZMT
89YuWUTOnOwTlmjysNL664D0yyLyS2DdE/UHPHQUdSzSNBCRQ7s4X3nG1UJj
39HhuMgxksxpeywJ5mNl2b1bnSOjJJbvtHv4dB2SnfVtdjiOknhX8edzJ+sh
0/JoOTtzhMzz0qPMD37GUE3x0gvKIySgyp+VtL8BIbdDrPV4DIk1ypV1tmzE
Miur/7VfGyYKvvJdp7c14eWmn6+/wxD50/JKgYx2M4a45tHpXQMkelA6u1ep
BeGvPJQ5D/rJRilxnq64BU+bT5lG/NRHSMpyIjvaiqxqh0LTESH5qGbcqtnU
hg+BWzkuT3pI67arM5/r2+HTeN8lxkBAyjgqypdOdyDf8qLYubiL2E9fM9Vs
7gBnMvTArEcnGXTzbUp07MSJVF6uVlc7yfokup1b1QljM76i9PpWcsNdJu/P
g13YZ18/ZLS0iWgU7/f5pqwLskN+cxJJPRmXVzX22tONWXVW+CJVPqmJD/Q7
+64bXmnzt/QZDmle7VKy1lAAjveYQLWxguRYhT0+81QAnQcWg5Utn0jiO1Px
nS09MKj5GO9xs4Bkbr5w1P5+D5TY4waOkkzCrTSHQFmI4ANrAnSi7pIPOyxe
aPwuxImeZdZafqnouFqlIbe4F8GLFUVlNAfLlAc2ZIf0gtWn4LGrrAgu8Xc3
L57qRam8fal5SRnucLwzlnj2gb8QnqXmykHx4eY8bm8fErjrM2Rs+dAp4PFY
x/rBanr+MkOxAfHnnTwDmvoR3k/6UyxaYKrspcQ+PID764ot2Vs7kOaZvae7
eACuoReqS0y6oLYseuBbi0FEvHN2EdwSoCyOphrnDMJXQW/kWIUQV926WqaM
h5B1qGKDg3M/pEaXJ3lnDmE3Ux26ZeUQsl2JZ5jWMFTUN/o75TE4ryGT55Y6
jHGpKeHVoRH8WsVZTdczYNnsaNgUNgY1vbpxrSgG5n+pfWJbjyM/6OikSgyD
5pmLRwJtx8HmdYoV7jKYtbJfkeowjig/ZmbiHoNzM0o6sm7jmCqUW/RPIoMx
abNdS26Pg8s2U3B9waCtKrHwq8px3Ah+rJVWziB8fwLJYE/gP7VaWx9WMjB7
eBgxzhPI13qpE1PN4I2m9+8X3SYwUv52+yUeA6fj+0YcAydwbA3PcG8Tg2d/
INg3aQImf8uaC/sZSGn7blHsm0BvrTtbW56Ca/z2pOv1Sew8pN43tYwiL8Az
MiliEmGlTQEVKyjGcmMV2u9NQvv9gUc+ShQtZxSDAtIm4ZqmJ8hfR1Etyqlf
WzkJof/oOVttigIV98XLVcQQbAqI9reiqC+N687JF8M4wVDtwPcUah4ZjUaf
xAhdPfB6kzVFfpv+8fc1YmjKHeUX2VB4XHDkTQrEODWye4OCHUXSX76DS5Wm
0FUk9Tz5BMVZo6UxTW5T6Dgd/rH8KsUUXbVk7dZpFNxhP6gNovA6Eti11mQa
ibmaZ1quUyQPLbIyspoGW65wHXOTwr1c/7tC52lUpU17rIqhCPNvqt37cBr5
PR6rHJO++Lcb+eavmUGCwrfCE08oQqJ31NRrzeCSidw79xSKWE5p+6adMzC8
mfrb5TSKbzIPcgwdZvBMsyU36RXFtng/30eJM4g79cPxngIKO12VxXv1JTgf
ucGI+UDhH5nAH7GU4PCbfjlxEcVbv7rfBtkSrJAJy1xaQrFX9cmujiAJQlIK
ZHVrKFr7nyvZ1Utwojyq0ZhLIfz+aZb0sATmY06v9tRSZDSUfm0gO4tpC7GD
7WcKg7DgdVrGs/Dp1H9xvp3C3Mjyh/8mzuKQ/HzQ5U4K1yWRvFu5s9huWPlT
aDeFQv1CjDV/FsJgt/m43i9/uOlwQaI0h4/PdtYm9VM47i5iGRvOIYUj+yx9
kGL4yB5Wr90cftmc/GMepchuzFiRkzgHs31ntYtGKVhWf1wJLp7Dep89knIR
xa/CixU7mTlMxi/n1E5Q6L2Off9o4zz4pPFpi5jib7Off+y2nUdWb3pAz/SX
XtGqApmIedxRvHSIkVBURUW8aqueh5fpdxriOYo2keD5eZ0F2DivnlpYoNjO
MwlymF/A/wGmRar8
        "]]},
      Annotation[#, "Charting`Private`Tag$2603421#1"]& ], 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVkGtU03Uch0FABDUnTEVEUUHqoGgq54DV/E5TQwMETMILUpQwmSCh4RVE
UfKCDj0hgoYKHjhmndxcjInuC15aQ3bYBnId98tgyP4N6PffnejFcz7nefF5
8yyLPxJ1cJqdnV3YFP9v1g7zquQnSpCyg9d8zLQh+2ntNIZQCXzNG47e3YaT
i4paBCIleKZ/nS+Y8szR4AsGiRLGGTnSwCk/k5feni1XwnPBnLxgNxseb9Jf
LtIqIeTTv/kshg1T4ocGpb4qUEckBW2cZcPYU+/uLy9UwSbJthAPRxuGByvc
ufkNwIiy73qmt+IDRec9c1YjTOTHMCq7rHizce9no4nvwGNLQShbbsWCBLr5
h/gmCGMfitxZaUWbqjx3Y2gzDK2WXhwuteJJ+Ql28fYWYG71HOrKnfqvFznG
bW6F5H1jpp0/WnH2MZfeRP820J6pYWQcsOLdzWckDn7twDoaXqfYYsVrI9OE
GoYaYq8slplWWtHLjhavotXAPXFlXOFmRSyZiY76DtjlXbWkkFjwtXdgh29b
J+SwjOs47Rbs8M8wNTd1QWt1WLf1uQVlioXM9MRukCSd5QUUW3C3MTPIt70b
HH49sOxWlgVHOMfa7sT0gNSDXL0eZ0HBm/HLInkPeIcVLG4FC2YfchDfDe2F
Trnsw5+8LOjzanvqOlkvXMka+6DbYMYJF8/Aw6w+eGSqufGiyYz1BaeOH6nq
A9G8YM5fT8zY7nZQOn9tP9xseRiZnGvGis9z7qU87IcRd3fnsUQz3qkKonnL
BuCtmzAvCczIX3p03+5bAxCvriwVeJhRWbcR+pmDgGUpoupRE1av3vTY58Yg
XIpcGHL7pQm7M+Q+zk4aaJzctjut0ISuTO0i4XkN1AZPzG/hmvBgQd5SJ4MG
Xss30HvYJuQpkn+fzh2Ckkrb7RamCV9FtIuVmiHgD+9nPuo34kcSlYq9fxic
tmZKpRVGLEjbyz3ZNgzI52fOuGDEIOZhRnSEFoT1cXv5u4xYxhWy+l5pYca/
diUJPkb0dr2m3bBpBCau1dTY6wwoy6dKAytGYD97TB9UZcAMTq/aEPgevMS8
1cuzDWinn1mczH8PrAl7T/svDShMQG7OilEYz43HP+YZMM3HQcwpHYVjRf57
VG00fitXuFEeOkhzkpPOEhq9A95NrMjVgcyW2czk0qhpOBTt50LBzATvc5kB
NHYnXnpdm0FBnep+6PRxghJedGHDWQoWZ793mNQTvCPyTVGfo4CfVF9O/0Mw
2rlmge4iBZ6RMX8O6QjKy4xJc69TcJv3vUamJfhsIGluTDEFxKu57FIvwfzv
wg4MSCg4MefBdVpJMO3qovW6agomb/3cPKogGPF02Jl+SUHDb66z++sJznLI
4c+QUtAzeJqlkBM8XyJxXFVPwfovvhGWywim9qx5nNZFQSn1izGqhmC4i+3s
6R4KmG+5riHVBFeurfvqQh8F8yv4ziwkOJjFseVrKPBfUCr1e0EwdumDSDFF
ATvHJdZYSfCTkCN+L/UU8OIuKkdFBD1SWebacQqibEfX9VYQbMTWh2qagiUD
ZeJaIUGBpvzkgJGCba3DXZKnBHlz0sN1ZgoCRu6OCQQEDwdt8aGtUz1SUV/G
J7gjzs0wOUnBBozoKHpC8D/jwcYV
        "]]},
      Annotation[#, "Charting`Private`Tag$2603421#2"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.9999999795918367}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.770355872261179*^9, 3.770355994213119*^9, {3.770356161299719*^9, 
   3.770356183198484*^9}, 3.7703635086693563`*^9, 3.77036373241635*^9, {
   3.7703638637380342`*^9, 3.770363893668839*^9}, 3.770363996094578*^9, {
   3.770364077708891*^9, 3.77036410334166*^9}, 3.770364144615231*^9, {
   3.770364185121153*^9, 3.7703641909484863`*^9}, {3.770364225664957*^9, 
   3.770364228595983*^9}, {3.770364298821583*^9, 3.770364302193626*^9}, {
   3.7703644022898617`*^9, 3.770364406636064*^9}, 3.7703644624180098`*^9, 
   3.77036458594361*^9, 3.7703652055238237`*^9, 3.770367475986598*^9, {
   3.770367594146365*^9, 3.770367638285632*^9}, {3.770367693396255*^9, 
   3.770367730109771*^9}, {3.7703678486080093`*^9, 3.770367900570922*^9}, {
   3.770368166263565*^9, 3.770368185546075*^9}, {3.770368219388887*^9, 
   3.770368262115637*^9}, 3.770368350998098*^9, 3.770368527582162*^9, {
   3.770368582871828*^9, 3.770368597117581*^9}, {3.770368832838286*^9, 
   3.770368856432308*^9}, 3.770369274883645*^9, 3.770369417027514*^9, 
   3.77036958753059*^9, 3.770369628796056*^9, 3.770369714200222*^9, {
   3.770370072564649*^9, 3.7703700927857637`*^9}, 3.77037012939207*^9, {
   3.7703705190643797`*^9, 3.770370542627182*^9}, {3.7703717179747343`*^9, 
   3.770371771521769*^9}, 3.770372073603142*^9, 3.770372435467249*^9, 
   3.770372481111739*^9, {3.77037252674378*^9, 3.770372556988658*^9}, {
   3.770372650478367*^9, 3.7703726535834093`*^9}, 3.7703728267858973`*^9, 
   3.770372886615588*^9},
 CellLabel->
  "Out[935]=",ExpressionUUID->"2e03b5a5-5f07-449c-a9dd-ef116a2d44c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    FractionBox["1", "10"], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      SqrtBox["5"]}], ")"}]}]], 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"7", "+", 
      RowBox[{"5", " ", 
       SqrtBox["5"]}]}], ")"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"15", "+", 
      RowBox[{"7", " ", 
       SqrtBox["5"]}]}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.770372803130533*^9, 3.7703728069459267`*^9}, {
  3.7703728620662203`*^9, 3.770372869793894*^9}},
 CellLabel->
  "In[934]:=",ExpressionUUID->"d5a29181-6189-48b7-aec6-e63b16eb648a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"5", " ", 
   RowBox[{"(", 
    RowBox[{"7", "+", 
     RowBox[{"5", " ", 
      SqrtBox["5"]}]}], ")"}], " ", 
   SuperscriptBox["\[Rho]", "2"]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     SqrtBox["5"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"15", "+", 
     RowBox[{"7", " ", 
      SqrtBox["5"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.770372805179224*^9, 3.770372807405408*^9}, {
  3.770372863814337*^9, 3.770372870309092*^9}},
 CellLabel->
  "Out[934]=",ExpressionUUID->"1c15bc66-d866-4789-8f76-b80c777d3614"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"7", "+", 
      RowBox[{"5", " ", 
       SqrtBox["5"]}]}], ")"}], " "}], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"15", "+", 
      RowBox[{"7", " ", 
       SqrtBox["5"]}]}], ")"}]}]], "//", "N"}]], "Input",
 CellChangeTimes->{{3.770372793024324*^9, 3.770372796466979*^9}},
 CellLabel->
  "In[928]:=",ExpressionUUID->"5316aac5-4fd9-4320-89d7-71765868d254"],

Cell[BoxData["0.14827790731256835`"], "Output",
 CellChangeTimes->{3.7703727970143833`*^9},
 CellLabel->
  "Out[928]=",ExpressionUUID->"ebc895ab-fadb-4985-a32e-8fe64e5e51a3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "10"], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     SqrtBox["5"]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"7", "+", 
      RowBox[{"5", " ", 
       SqrtBox["5"]}]}], ")"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"15", "+", 
      RowBox[{"7", " ", 
       SqrtBox["5"]}]}], ")"}]}]]}]], "Input",ExpressionUUID->"62140f06-94ea-\
453f-8e7c-40045eaf15d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "r_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SqrtBox[
      RowBox[{"1", "-", "r"}]], " ", "t", " ", 
     RowBox[{"(", 
      RowBox[{
       SqrtBox[
        RowBox[{"r", "+", "\[Rho]"}]], "+", 
       SqrtBox[
        RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
    RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.770373043695044*^9, 3.770373057349721*^9}, 
   3.770373091620208*^9},
 CellLabel->
  "In[943]:=",ExpressionUUID->"338ca9ff-fca1-4d88-8f79-92470a3d71f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "r", " ", "t", " ", "u"}], "-", 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]]}], "-", 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]]}]}]], "Output",
 CellChangeTimes->{{3.7703730546863203`*^9, 3.770373057763072*^9}, 
   3.770373092103426*^9},
 CellLabel->
  "Out[943]=",ExpressionUUID->"859a8204-bf35-49aa-a37e-36c9e0d53642"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "r"}], ")"}], 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]], 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]], "r", " ", 
   RowBox[{
    RowBox[{"f", "'"}], "[", "r", "]"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.770373059378385*^9, 3.7703731286790133`*^9}},
 CellLabel->
  "In[945]:=",ExpressionUUID->"fe63d5f3-bb86-48c8-b824-ad1330eae32f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SqrtBox[
     RowBox[{"1", "-", "r"}]]}], " ", "r", " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "2"], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   SuperscriptBox["r", "2"], " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "3"], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  FractionBox[
   RowBox[{"r", " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]], " ", "\[Rho]"}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "2"], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]], " ", "\[Rho]"}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "-", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", "r", " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "2"], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   SuperscriptBox["r", "2"], " ", "t", " ", 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "3"], " ", "t", " ", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  RowBox[{"2", " ", "r", " ", "t", " ", "u", " ", 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]], " ", 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", "t", " ", "u", " ", 
   SqrtBox[
    RowBox[{"r", "-", "\[Rho]"}]], " ", 
   SqrtBox[
    RowBox[{"r", "+", "\[Rho]"}]]}], "-", 
  FractionBox[
   RowBox[{"r", " ", "t", " ", "\[Rho]", " ", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "2"], " ", "t", " ", "\[Rho]", " ", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]]}]], "Output",
 CellChangeTimes->{{3.770373062823682*^9, 3.770373129116735*^9}},
 CellLabel->
  "Out[945]=",ExpressionUUID->"7e8f62cf-6a68-49fe-80cf-8effe9c9fb63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SqrtBox[
       RowBox[{"1", "-", "r"}]], " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{"r", "+", "\[Rho]"}]], "+", 
        SqrtBox[
         RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
     RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "\[Rule]", "1"}], ",", 
      RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.770372133728613*^9, 3.770372136919168*^9}, {
  3.7703721797827473`*^9, 3.770372183416602*^9}},
 CellLabel->
  "In[936]:=",ExpressionUUID->"6f466741-f511-4081-9a04-9a2dd60fcc5d"],

Cell[BoxData[
 RowBox[{"2", "-", 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"r", "-", "\[Rho]"}]]}]], "+", 
     FractionBox["1", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"r", "+", "\[Rho]"}]]}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]], "+", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]]}]], "Output",
 CellChangeTimes->{3.770372184009364*^9, 3.770373040122628*^9},
 CellLabel->
  "Out[936]=",ExpressionUUID->"1b2f4423-1b16-46e8-aee8-a7f6d08683e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"r", "/.", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Series", "[", 
          RowBox[{
           RowBox[{"2", "-", 
            RowBox[{"2", " ", 
             SqrtBox[
              RowBox[{"1", "-", "r"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{"r", "-", "\[Rho]"}]]}]], "+", 
               FractionBox["1", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{"r", "+", "\[Rho]"}]]}]]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{
              SqrtBox[
               RowBox[{"r", "-", "\[Rho]"}]], "+", 
              SqrtBox[
               RowBox[{"r", "+", "\[Rho]"}]]}], 
             SqrtBox[
              RowBox[{"1", "-", "r"}]]]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Rho]", ",", "0", ",", "2"}], "}"}]}], "]"}], 
         "\[Equal]", "0"}], "//", "Normal"}], ",", "r"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
  "Last"}]], "Input",
 CellChangeTimes->{{3.770372157223114*^9, 3.770372190018989*^9}, {
  3.770372236495417*^9, 3.770372286495523*^9}, {3.770372323161824*^9, 
  3.770372331307181*^9}, {3.77037239346554*^9, 3.770372402421762*^9}, {
  3.770372686009503*^9, 3.770372772769168*^9}},
 CellLabel->
  "In[927]:=",ExpressionUUID->"e488845a-7957-4e46-ba65-20ac373a4bf2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "10"], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      SqrtBox["5"]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"7", "+", 
       RowBox[{"5", " ", 
        SqrtBox["5"]}]}], ")"}], " ", 
     SuperscriptBox["\[Rho]", "2"]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{"15", "+", 
       RowBox[{"7", " ", 
        SqrtBox["5"]}]}], ")"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Rho]", "]"}], "3"],
    SeriesData[$CellContext`\[Rho], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Rho], 0, {
   Rational[1, 10] (5 + 5^Rational[1, 2]), 0, 
    Rational[1, 4] ((7 + 5 5^Rational[1, 2])/(15 + 7 5^Rational[1, 2]))}, 0, 
   3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.770372163632841*^9, 3.770372190827243*^9}, {
   3.77037225824677*^9, 3.77037228735636*^9}, 3.770372332104518*^9, {
   3.770372400049357*^9, 3.770372402814777*^9}, {3.770372674688751*^9, 
   3.7703727736927032`*^9}},
 CellLabel->
  "Out[927]=",ExpressionUUID->"a5220683-1227-4444-8df6-f4c8e00fbfdc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Root", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"9", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "-", 
        RowBox[{"12", " ", 
         SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"48", " ", 
            SuperscriptBox["\[Rho]", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
         SuperscriptBox["#1", "2"]}], "-", 
        RowBox[{"128", " ", 
         SuperscriptBox["\[Rho]", "2"], " ", 
         SuperscriptBox["#1", "3"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"64", "+", 
           RowBox[{"64", " ", 
            SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
         SuperscriptBox["#1", "4"]}], "-", 
        RowBox[{"320", " ", 
         SuperscriptBox["#1", "5"]}], "+", 
        RowBox[{"320", " ", 
         SuperscriptBox["#1", "6"]}]}], "&"}], ",", "3"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Rho]", ",", "0.", ",", "1.", ",", "0.1"}], "}"}]}], "]"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.7703724655671167`*^9, 3.7703725172153597`*^9}},
 CellLabel->
  "In[908]:=",ExpressionUUID->"57f5972b-e964-4d0c-a21b-a8b95aef209a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", 
   RowBox[{
    RowBox[{"-", "0.010138570697409439`"}], "-", 
    RowBox[{"0.0638015462131851`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.029971145273932232`"}], "-", 
    RowBox[{"0.12224553921090692`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.052414259465787046`"}], "-", 
    RowBox[{"0.17437096906776628`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.07500586125726076`"}], "-", 
    RowBox[{"0.2220549700163288`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.0970404189569588`"}], "-", 
    RowBox[{"0.2666783657114028`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.11834229827440614`"}], "-", 
    RowBox[{"0.30910276135574755`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.13889995164254246`"}], "-", 
    RowBox[{"0.34987819833622863`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.15875318988887072`"}], "-", 
    RowBox[{"0.3893727997370772`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.17795558875594755`"}], "-", 
    RowBox[{"0.42784425801144627`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.19656138396272363`"}], "-", 
    RowBox[{"0.4654800046080476`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7703724680780077`*^9, 3.7703725176328573`*^9}},
 CellLabel->
  "Out[908]=",ExpressionUUID->"e935e104-a629-4e83-a349-206999d05dde"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", "]"}]], "Input",
 CellChangeTimes->{{3.770372445669264*^9, 
  3.770372462624144*^9}},ExpressionUUID->"ec4dc4c4-ce1b-4a01-bc01-\
4e855b843196"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAASmXo0cDpVT5Lo3+Wel9hPYEIsyeJ
GZQ/hMvUYvkENT9YWaGv8PGkP4HMM1MUj0o/C/+BXEcerz8naP/yOyJVPyVR
7ujDi7Q/QE2zfZ2wXD93zjk/mPS5P7suJ2VCPGI/F7QR3gEBvz8sKtqRzZpl
P7biQ8zPPMI/oPsPlnDtaD/Cap0bWezEP6WQHOf01Gs/9SY9D61txz9Z7CFk
jzVuPwL5qxAbJco/5jcYork1cD82/2C2U67MP4ni8em0EXE/zIQ0zsYqzz9F
P4uCZsBxPx+Q6/mp7tA/suGkBu9Qcj/r99/e1TDSP6x9HXKdrnI/pOq7yg6O
0z9phBfgsOhyPw4dp+/k5NQ/NrRci1b3cj+MabVmoCTWP5oA3mW74HI/9kCr
5Gh/1z9F0l3nb6JyP3QyxLQWw9g/O8BuIYhGcj/frsSL0SHaP+33uwgbwHE/
+2rUmyl62z9rlQT/3RpxPytBB/5mu9w/oboEyMdkcD9HoiFnsRfeP2XItD2f
BW8/dx1fIuFc3z88ALuxhS1tPyzsVQvXTeA/kXd2+eIyaz8TD/AIxPrgP0/G
dvSy32g/BL+bryOc4T+SKjQPrYxmP2s0u9kJS+I/IVLLZBLgYz+rSWKgvvbi
P79m7fwmG2E/9esaEOaW4z95fHIW4s9cP7VTRwOUROQ/gznq8VK5Vj9/SIWf
tObkP2Hr7rT911A/Id1K2KOF5T/wRU1SltNFPzo3hJQZMuY/IXjAU3Q/MT9c
Hs/5AdPmP69qt9oMxB+/9cqN4nCB5z9aE35FO+NBv5gEXnRSJOg/tXZXUeUY
T78T3rWiAsToP2jX67oYHFa/BX2BVDlx6T9enVllnE5dvwCpXq/iEuo/hxj7
fgYLYr9ymq+NEsLqP0q+oxkVvmW/vSuICBFu6z/CCR9a6WRpvxFKciyCDuw/
qCQ7RfLPbL/cLdDTebzsPxNrO+o8Q3C/sJ4/JORe7T+aU8R7Fv9xv12vNhEd
/u0/vb6jlMKxc7+AhaGB3KruP1+PBbo7iHW/regdmw5M7z9KJmeppT13v5cf
C/X//+8/U7RQHoEjeb+E+4wp
    "], {}], {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7703724512152357`*^9},
 CellLabel->
  "Out[899]=",ExpressionUUID->"af8d6f41-aa72-4ca8-8828-01f86c631c73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"1", "-", "r"}]]}], 
        SqrtBox["r"]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SqrtBox["r"]}], 
        SqrtBox[
         RowBox[{"1", "-", "r"}]]]}], ")"}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", 
         RowBox[{"2", " ", "r"}]}], ")"}], " ", 
       SuperscriptBox["\[Rho]", "2"]}], 
      RowBox[{"4", " ", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       SuperscriptBox["r", 
        RowBox[{"5", "/", "2"}]]}]]}], "\[Equal]", "0"}], ",", "r"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.770372171002899*^9, 3.770372200905469*^9}, {
  3.770372293532527*^9, 3.7703722978504963`*^9}},
 CellLabel->
  "In[897]:=",ExpressionUUID->"0e274ecd-7be2-4c5f-a446-15ef62349302"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "5"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "6"}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7703722984422417`*^9, 3.770372415903677*^9},
 CellLabel->
  "Out[897]=",ExpressionUUID->"47c435ec-7727-426f-a512-1e2aa72963e9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "t", " ", "u"}], "-", 
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{"1", "-", "r"}]], " ", "t", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}]], "+", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]]}]]}], ")"}]}], "+", 
    FractionBox[
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{"r", "-", "\[Rho]"}]], "+", 
        SqrtBox[
         RowBox[{"r", "+", "\[Rho]"}]]}], ")"}]}], 
     SqrtBox[
      RowBox[{"1", "-", "r"}]]]}], ",", 
   RowBox[{"{", "}"}]}]}]], "Input",
 CellChangeTimes->{{3.770372141424664*^9, 
  3.770372146585616*^9}},ExpressionUUID->"32554c2d-fb03-4463-8608-\
b256f3b2f7b4"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "10"], " ", 
     RowBox[{"(", 
      RowBox[{"5", "+", 
       SqrtBox["5"]}], ")"}]}], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"7", "+", 
        RowBox[{"5", " ", 
         SqrtBox["5"]}]}], ")"}], " ", 
      SuperscriptBox["\[Rho]", "2"]}], 
     RowBox[{"4", " ", 
      RowBox[{"(", 
       RowBox[{"15", "+", 
        RowBox[{"7", " ", 
         SqrtBox["5"]}]}], ")"}]}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ","}]}]}]}]], "Input",
 CellChangeTimes->{{3.770371819439808*^9, 
  3.7703718264439898`*^9}},ExpressionUUID->"ef317173-a93c-4515-888b-\
355e6c153567"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "r_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SqrtBox[
      RowBox[{"1", "-", "r"}]], " ", "t", " ", 
     RowBox[{"(", 
      RowBox[{
       SqrtBox[
        RowBox[{"r", "+", "\[Rho]"}]], "+", 
       SqrtBox[
        RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
    RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "1"}], ",", 
     RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "'"}], "[", "r", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "''"}], "[", "r", "]"}]}], "Input",
 CellChangeTimes->{{3.770370800179674*^9, 3.770370832544985*^9}, {
  3.7703708839078093`*^9, 3.770370887480035*^9}, {3.770371126371628*^9, 
  3.7703711269973593`*^9}},
 CellLabel->
  "In[848]:=",ExpressionUUID->"c193faf0-94d0-4cd1-9eda-1bd600a0e769"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "r"}], "-", 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SqrtBox[
      RowBox[{"r", "-", "\[Rho]"}]], "+", 
     SqrtBox[
      RowBox[{"r", "+", "\[Rho]"}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.770370824982334*^9, 3.77037083293252*^9}, 
   3.770370888023937*^9, 3.770371128275324*^9},
 CellLabel->
  "Out[848]=",ExpressionUUID->"cd3d21c6-2a42-425f-b2e5-160086740462"],

Cell[BoxData[
 RowBox[{"2", "-", 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"r", "-", "\[Rho]"}]]}]], "+", 
     FractionBox["1", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"r", "+", "\[Rho]"}]]}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]], "+", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]]}]], "Output",
 CellChangeTimes->{{3.770370824982334*^9, 3.77037083293252*^9}, 
   3.770370888023937*^9, 3.7703711282934*^9},
 CellLabel->
  "Out[849]=",ExpressionUUID->"800d6aeb-7c13-45b5-b7b7-81652fa8cbf0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"r", "-", "\[Rho]"}], ")"}], 
         RowBox[{"3", "/", "2"}]]}]]}], "-", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "+", "\[Rho]"}], ")"}], 
        RowBox[{"3", "/", "2"}]]}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"r", "-", "\[Rho]"}]]}]], "+", 
      FractionBox["1", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"r", "+", "\[Rho]"}]]}]]}], ")"}]}], 
   SqrtBox[
    RowBox[{"1", "-", "r"}]]], "+", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"r", "-", "\[Rho]"}]], "+", 
    SqrtBox[
     RowBox[{"r", "+", "\[Rho]"}]]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "r"}], ")"}], 
     RowBox[{"3", "/", "2"}]]}]]}]], "Output",
 CellChangeTimes->{{3.770370824982334*^9, 3.77037083293252*^9}, 
   3.770370888023937*^9, 3.77037112830396*^9},
 CellLabel->
  "Out[850]=",ExpressionUUID->"ac116342-cd9d-4dfb-b07d-b3de0a85ae72"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]], "+", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
      RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"t", "\[Rule]", "1"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"1", "-", 
       SqrtBox["5"]}], ",", "2"}], "}"}]}], "]"}], "//", "Normal"}]], "Input",\

 CellChangeTimes->{
  3.770370291699477*^9, 3.770370335855857*^9, {3.770370402321209*^9, 
   3.7703704044131613`*^9}, 3.770371884358925*^9, {3.770371932555735*^9, 
   3.770371984831217*^9}},ExpressionUUID->"f277dfe0-f680-4763-a97e-\
19a93db5f220"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SqrtBox["5"], "+", "r"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"2", "-", 
     FractionBox[
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]], 
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "-", "\[Rho]"}]]], "+", 
     FractionBox[
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "-", "\[Rho]"}]], 
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]]], "-", 
     FractionBox[
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]], 
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "+", "\[Rho]"}]]], "+", 
     FractionBox[
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "+", "\[Rho]"}]], 
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]]]}], ")"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SqrtBox["5"], "+", 
     RowBox[{
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]], " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "-", "\[Rho]"}]]}], "+", 
     RowBox[{
      SuperscriptBox["5", 
       RowBox[{"1", "/", "4"}]], " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SqrtBox["5"], "+", "\[Rho]"}]]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.770370284460053*^9, 3.770370292098475*^9}, 
   3.7703703364114523`*^9, 3.7703703720263863`*^9, {3.770370402684472*^9, 
   3.7703704048327417`*^9}, {3.770371934804008*^9, 3.770371955806089*^9}},
 CellLabel->
  "Out[875]=",ExpressionUUID->"74342588-c622-4cfb-827a-10d844565241"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Minimize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox["5"], "+", "r"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"2", "-", 
       FractionBox[
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]], 
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "-", "\[Rho]"}]]], "+", 
       FractionBox[
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "-", "\[Rho]"}]], 
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]]], "-", 
       FractionBox[
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]], 
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "+", "\[Rho]"}]]], "+", 
       FractionBox[
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "+", "\[Rho]"}]], 
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]]]}], ")"}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox["5"], "+", 
       RowBox[{
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]], " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "-", "\[Rho]"}]]}], "+", 
       RowBox[{
        SuperscriptBox["5", 
         RowBox[{"1", "/", "4"}]], " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SqrtBox["5"], "+", "\[Rho]"}]]}]}], ")"}]}]}], ",", "\[Rho]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7703719416495*^9, 3.770371973097464*^9}},
 CellLabel->
  "In[877]:=",ExpressionUUID->"af9ece52-2500-49fb-9df7-883bcfdce94a"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.770371969988421*^9, 3.7703720222353983`*^9},
 CellLabel->
  "Out[877]=",ExpressionUUID->"be226551-d155-492c-bf44-cf108ab0cd41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SqrtBox[
       RowBox[{"1", "-", "r"}]], " ", 
      SqrtBox["r"]}], "+", 
     RowBox[{"2", " ", "r"}], "+", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       SuperscriptBox["\[Rho]", "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["r", 
        RowBox[{"3", "/", "2"}]]}]]}], ",", "r"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.7703704236892023`*^9, 3.770370429489294*^9}, {
  3.770371880443901*^9, 
  3.770371882157949*^9}},ExpressionUUID->"99d196b2-3d3c-4a9e-96ed-\
113f822e9319"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "3"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], "+", 
   RowBox[{"2", " ", "r", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "r"}], "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "r"}], ")"}]}], " ", "r"}]]}], ")"}]}],
       "+", 
      SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], 
  RowBox[{"4", " ", 
   SqrtBox[
    RowBox[{"1", "-", "r"}]], " ", 
   SuperscriptBox["r", 
    RowBox[{"5", "/", "2"}]]}]]], "Output",
 CellChangeTimes->{3.7703704301441793`*^9},
 CellLabel->
  "Out[814]=",ExpressionUUID->"ecc8b661-e581-49d9-a5dc-db2baae562ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       SuperscriptBox["\[Rho]", "2"]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", "r"}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "r"}], ")"}]}], " ", "r"}]]}], 
           ")"}]}], "+", 
         SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", "0"}], ",", 
    "r"}], "]"}], "//", "RootReduce"}]], "Input",
 CellChangeTimes->{{3.770368909999619*^9, 3.7703689286409903`*^9}, {
  3.7703698917965517`*^9, 3.7703699433774023`*^9}, {3.770369990064557*^9, 
  3.770370020763137*^9}, {3.770370140925076*^9, 3.770370195274397*^9}, {
  3.770370227703664*^9, 3.770370312097769*^9}, {3.770370377276308*^9, 
  3.7703704482101593`*^9}},
 CellLabel->
  "In[815]:=",ExpressionUUID->"0a7f6615-5565-4dcc-a13f-9fc3468c4587"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "5"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[Rho]", "4"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Rho]", "4"], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", 
             SuperscriptBox["\[Rho]", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Rho]", "2"], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"64", " ", 
             SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"320", " ", 
          SuperscriptBox["#1", "6"]}]}], "&"}], ",", "6"}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.770368915647943*^9, 3.770368928964561*^9}, {
  3.770369889430805*^9, 3.770369934684569*^9}, {3.770369991069962*^9, 
  3.770370021300021*^9}, {3.770370157401001*^9, 3.770370196577239*^9}, {
  3.770370246420699*^9, 3.770370312607994*^9}, {3.770370379332292*^9, 
  3.770370448556443*^9}},
 CellLabel->
  "Out[815]=",ExpressionUUID->"8ea8bf40-635f-489e-b13b-64c91af70974"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"r", "/.", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", 
          SuperscriptBox["\[Rho]", "2"]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"2", " ", "r"}], "+", 
               SqrtBox[
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "r"}], ")"}]}], " ", "r"}]]}], 
              ")"}]}], "+", 
            SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], "\[Equal]", "0"}], 
       ",", "r"}], "]"}]}], "//", "Last"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7703691084425087`*^9, 3.77036911873083*^9}, {
  3.77037045828475*^9, 3.770370506997445*^9}},
 CellLabel->
  "In[819]:=",ExpressionUUID->"864182ee-48c8-4d12-a5f4-5709700f5227"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "10"], " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      SqrtBox["5"]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"7", "+", 
       RowBox[{"5", " ", 
        SqrtBox["5"]}]}], ")"}], " ", 
     SuperscriptBox["\[Rho]", "2"]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{"15", "+", 
       RowBox[{"7", " ", 
        SqrtBox["5"]}]}], ")"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Rho]", "]"}], "3"],
    SeriesData[$CellContext`\[Rho], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Rho], 0, {
   Rational[1, 10] (5 + 5^Rational[1, 2]), 0, 
    Rational[1, 4] ((7 + 5 5^Rational[1, 2])/(15 + 7 5^Rational[1, 2]))}, 0, 
   3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.770369112043393*^9, 3.770369119042398*^9}, {
  3.7703704619534807`*^9, 3.770370507673958*^9}},
 CellLabel->
  "Out[819]=",ExpressionUUID->"4ea179ab-7c92-4ce2-b7a2-b22b96779953"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "t", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]], "+", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
      RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", "0"}]}], "}"}]}], ",", "r"}], "]"}], "//",
   "RootReduce"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "t", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]], "+", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
      RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", "1"}]}], "}"}]}], ",", "r"}], "]"}], "//",
   "RootReduce"}]}], "Input",
 CellChangeTimes->{{3.770356014866179*^9, 3.770356017001772*^9}, {
  3.770356062978519*^9, 3.77035606372746*^9}, {3.770356219162531*^9, 
  3.7703562218192673`*^9}, {3.7703563329563303`*^9, 3.770356364983839*^9}, {
  3.770360760637063*^9, 3.77036079364745*^9}},
 CellLabel->
  "In[427]:=",ExpressionUUID->"5540ae46-0bbd-42b2-a8c9-71e8a5d30686"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "-", 
    SqrtBox["5"]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "-", 
        SqrtBox["5"]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.77035606489177*^9, 3.770356065483933*^9}, 
   3.770356278919186*^9, {3.770356335133616*^9, 3.770356365355825*^9}, {
   3.7703607647354*^9, 3.770360794211659*^9}, 3.770363444529682*^9, 
   3.770363802435606*^9},
 CellLabel->
  "Out[427]=",ExpressionUUID->"b39d9bca-5afe-442e-9c5e-d66fc2cca67e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.77035606489177*^9, 3.770356065483933*^9}, 
   3.770356278919186*^9, {3.770356335133616*^9, 3.770356365355825*^9}, {
   3.7703607647354*^9, 3.770360794211659*^9}, 3.770363444529682*^9, 
   3.770363802574666*^9},
 CellLabel->
  "Out[428]=",ExpressionUUID->"1fbb8fb2-a6d6-4ba9-8fb1-1a3123cada33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    SqrtBox[
     RowBox[{"1", "-", "r"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{"r", "+", "\[Rho]"}]], "+", 
      SqrtBox[
       RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.770367922871909*^9, 3.7703679612003613`*^9}, {
  3.770367997382325*^9, 3.770368001254977*^9}},
 CellLabel->
  "In[633]:=",ExpressionUUID->"d3408dfa-badf-407d-8d06-f45bbaf922b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SqrtBox[
      RowBox[{"-", "\[Rho]"}]], "+", 
     SqrtBox["\[Rho]"]}], ")"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "r", "]"}], "1"],
    SeriesData[$CellContext`r, 0, {}, 0, 1, 1],
    Editable->False]}],
  SeriesData[$CellContext`r, 
   0, {(-$CellContext`\[Rho])^Rational[1, 2] + $CellContext`\[Rho]^
     Rational[1, 2]}, 0, 1, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.770367928908155*^9, 3.770367961580634*^9}, {
  3.770367998704728*^9, 3.770368001765325*^9}},
 CellLabel->
  "Out[633]=",ExpressionUUID->"f8bd486f-dede-4d40-b045-8de69b30d6db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        SqrtBox["5"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"5", " ", 
          SqrtBox["5"]}]}], ")"}], " ", 
       SuperscriptBox["\[Rho]", "2"]}], 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", 
         RowBox[{"7", " ", 
          SqrtBox["5"]}]}], ")"}]}]]}], ",", "\[Rho]"}], "]"}], "/.", 
  RowBox[{"\[Rho]", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.77036935226329*^9, 3.770369360280531*^9}},
 CellLabel->
  "In[735]:=",ExpressionUUID->"581c7571-3220-471d-82da-c23f349e02c2"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.770369354873263*^9, 3.770369360856999*^9}},
 CellLabel->
  "Out[735]=",ExpressionUUID->"9acf7527-3abb-4db8-8032-4fabe60cb32b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Minimize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"1", "-", "r"}]], " ", 
         SqrtBox["r"]}], "-", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{"1", "-", "r"}]], " ", 
          SuperscriptBox["\[Rho]", "2"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", 
           RowBox[{"3", "/", "2"}]]}]]}], ")"}]}], "+", " ", 
     RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "\[Rule]", "1"}], ",", 
      RowBox[{"u", "\[Rule]", "1"}]}], "}"}]}], ",", "r"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "t", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]], "+", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
      RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", "1"}]}], "}"}]}], ",", "r"}], "]"}], "//",
   "RootReduce"}]}], "Input",
 CellChangeTimes->{{3.77036794248555*^9, 3.7703679695757513`*^9}},
 CellLabel->
  "In[630]:=",ExpressionUUID->"ea26d5a0-682a-48df-a56f-0698612b8381"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.770367951264279*^9, 3.770367959141625*^9}, 
   3.770367998110351*^9},
 CellLabel->
  "Out[630]=",ExpressionUUID->"4e41670a-6d68-4704-8a18-a0b7374e0b24"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.770367951264279*^9, 3.770367959141625*^9}, 
   3.770367998186431*^9},
 CellLabel->
  "Out[631]=",ExpressionUUID->"085108c4-5f1e-40f2-83f7-dc47f1d6b736"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"2", "-", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox["5"]}], ")"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        FractionBox["1", "10"], " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          SqrtBox["5"]}], ")"}]}]}]], "2"}], "+", "b"}], "\[Equal]", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7703641261175833`*^9, 3.770364137671137*^9}, 
   3.770364178361227*^9, {3.770364241779769*^9, 3.770364242353159*^9}, {
   3.770364284926425*^9, 3.770364289862114*^9}, 3.7703643218379393`*^9},
 CellLabel->
  "In[478]:=",ExpressionUUID->"89a71f0e-76ad-4f3c-919e-53b40ee13d59"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"b", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "15"}], "-", 
      RowBox[{"19", " ", 
       SqrtBox["5"]}]}], 
     RowBox[{"5", "+", 
      SqrtBox["5"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.770364138079892*^9, 3.770364178802505*^9, 
  3.770364244219048*^9, 3.7703642906366177`*^9, 3.77036432398282*^9},
 CellLabel->
  "Out[478]=",ExpressionUUID->"4f8d6ecc-d897-4c7e-bff0-075656fb8af8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"1", "-", "\[Rho]"}]]}], ",", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"1", "-", "\[Rho]"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.770368270208548*^9, 3.770368290983314*^9}, {
  3.77036836029222*^9, 3.770368381700404*^9}},
 CellLabel->
  "In[673]:=",ExpressionUUID->"ac1bc10d-88c9-4fec-a2c2-62908db81bff"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlWs81Pkex8clpGLJVqMQ4aSI7WJzlK9CLDobkYpFpbKKUiS7LhEltkhe
al2KXAoxyi3Xr9XQKhqXcRdmMC4z8/9xcreZ03nweb1f72fvZx/1s1fsz4vT
aDTvb/s/rc+Pt9ZOOJp8jI1cEokISpopXx2k74XGqLfONSsE9zx7klJEN4du
KevCoK8EbZq73qTSHSAuNXzP4hJBJ4/56ni6B3T5bX0+PUvws/5ds/t0PzjH
QtUhPsG073++E02PAL+2VTFFXQTDZIr+dY+eAGI/3OzdwyB48lQ6Y2o6EyaH
s+MLTxBcIwpzsVRlQE4kja0tQVDLjhp/F1MMEudMes4VUhjwyQiezJSD3W3n
llRHCjcWKwyIiSHMzcqyKJEQS7lmTawDdZC8dSxjOV2IdV6pm08JmGDjeaDm
T3MhzmoflM/3fg88iXX1PgIBii/mfbdZ6wNIXo0QS4sRoKHIvfR4QRNoVLqM
rzcQYFPE3k8NO1hg+kwj0aCDj2px/MUcqgUe2VvNmvjykT8/ONBh0AbH2YYF
hYp8zJys/CD3oB3cHxbZlOVOopzKCzIywob8HqnDSmaT+MevJRfSNDshyeHq
nvmhCZwzzRvxDO2C6tMahRy/CfTbzSze8K4btpnuknCWm8DBAmZMq3ovLMt9
aXVPHcdlL3ayzm99YDKbmX5ddxx3HpJeuVDZD7vmZfYa/jWGls/VL77eOAA3
oi32v7MewwAVNw2OyyCIivNSxXp5qCtwXNN1dAgkodrs2K88XC8/JcNcGoJD
q93kbwlGURKTGdtSOEAzOloU4D+Kl/ZW9qy24cJAysaHgdMjmPfT2bSaOS5E
Bv9Yn315BGf5yt/xEofB+5Y8lSUcxpLjlhIJ5iNwyaARTdyHMdQq8lkxbwTC
Iw4YhXdzUf2zdXdG5Cj0NajXp//MxX//GJFA380Di2uL7ldKOeiiyloUa+fB
09WqT/I1ODj74T73atgY5NyKvpkTNIRPJF397DXHQX/VkVHpskFcP1DyXJw5
Dh4pPrvVfAZwVXCYg5HvBNx9drSEs9CPtBxXBldxEmzbl7Qqo/vwWhLjvmLd
JNDm+ILtYz1YvTNKRsGHD/f/m2qbod+NCtbXdMPlBLCsFPDiSkAn9uu1tAdW
CaCZI2Phe5WNhU9Bc8RVCOEX5i54n2zDXxiGCiorQnj9MGDmnnQLlp5ekGuh
UVDqKz4YsshCOamKtbclKJBxFRr1DbOw1uWgzIQMBQ56mdkX37JQQ9ZcVLye
gnvr7EUf3VnI87AT2up88xvaZ7ILPqGP8uXGIAcK/OTeDmYdbMaGer33+k4U
BHswapa0mlHNlzC5pyhgT804HpBrxpb312qt3CjwoC9TEQNNuNs/sEzJiwJj
JzUv7ZAmnGfdyXoVSkFn3peKoPKPeCsyPaw/l4LJW56yHaofcF2AtPWZfAom
lnMX6VIfMMnTW5HHoMDZ/6udpbARi2yMMkgxBS16IbqnKxuRp9DKFEcKNttk
1Z880Yg2T2kyOu0U/LBHs+jG3b9xQ5nbA/9lCmTP92oy2xsw42X9iaWvFIg6
5mKulzWgQdJOtVAagfBjnb+Lkhrwp+B5RtQqAhH9Ot25ZxowyCy2NVmegKnd
ySkQ1iOXVaNUt42A32fvvb3/MDF/XCVZzpZAJe/ehuCFOoxKjXQf+A8BalGJ
c76tDj3shVoFdgRe9jfO017V4ZaqqsKjTgQMH3V6HnGtw+hY54Y/zhKIVuY7
smv+Qk/DP6dlAwnwWw/2dnnXojmfVtb7OwHdoRnT5kO1qJbmGZQbQmBsa6K8
9fe12Ll6v7R1BIHzZhYlj/wRLT53brkXS2CftSr190o1akQoWUlnf+vtswtX
YVfgyv6gdV0vCUxuX1775WIF9giH27LzCEgIO0yllsoxzqnolyOvCRy5osWK
2lSOoh321yOrCFz3ELXOGZdh72D5fkckQPSmJipqSrE0QX1Fs44AZ0OWZo1J
KfqsTEUx3xOo6+THl+8rwf7W2KcS7QQUTehtIQtv8O2d+XPtHQSWuNO7rVzf
YIKxm05GN4HUeGWDzprXaJO1q/jwAIHjcZd6e7wLUft0YqAih4D/Yb3hx/4M
FJdfMeEOE5BqNDnWvJKPFTebG8MmCMjojXpqsHMxUW9frJ2AQAPPae2DTTno
y01xUCcEBE0vfvvH+AXaPpZUnp4msMWnux73ZeF228uDtTMENkk51kYuPEdJ
MXZm3DwBEX1rH8c7DYdKjL3clwi8CtWRMGQnYZVXhr7BVwLbW3cEpi/E42O1
NbPffgssvS7eDi7XwP8BYDzBdA==
       "]]},
     Annotation[#, "Charting`Private`Tag$2488538#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlWs81Pkex8clpGLJVqMQ4aSI7WJzlK9CLDobkYpFpbKKUiS7LhEltkhe
al2KXAoxyi3Xr9XQKhqXcRdmMC4z8/9xcreZ03nweb1f72fvZx/1s1fsz4vT
aDTvb/s/rc+Pt9ZOOJp8jI1cEokISpopXx2k74XGqLfONSsE9zx7klJEN4du
KevCoK8EbZq73qTSHSAuNXzP4hJBJ4/56ni6B3T5bX0+PUvws/5ds/t0PzjH
QtUhPsG073++E02PAL+2VTFFXQTDZIr+dY+eAGI/3OzdwyB48lQ6Y2o6EyaH
s+MLTxBcIwpzsVRlQE4kja0tQVDLjhp/F1MMEudMes4VUhjwyQiezJSD3W3n
llRHCjcWKwyIiSHMzcqyKJEQS7lmTawDdZC8dSxjOV2IdV6pm08JmGDjeaDm
T3MhzmoflM/3fg88iXX1PgIBii/mfbdZ6wNIXo0QS4sRoKHIvfR4QRNoVLqM
rzcQYFPE3k8NO1hg+kwj0aCDj2px/MUcqgUe2VvNmvjykT8/ONBh0AbH2YYF
hYp8zJys/CD3oB3cHxbZlOVOopzKCzIywob8HqnDSmaT+MevJRfSNDshyeHq
nvmhCZwzzRvxDO2C6tMahRy/CfTbzSze8K4btpnuknCWm8DBAmZMq3ovLMt9
aXVPHcdlL3ayzm99YDKbmX5ddxx3HpJeuVDZD7vmZfYa/jWGls/VL77eOAA3
oi32v7MewwAVNw2OyyCIivNSxXp5qCtwXNN1dAgkodrs2K88XC8/JcNcGoJD
q93kbwlGURKTGdtSOEAzOloU4D+Kl/ZW9qy24cJAysaHgdMjmPfT2bSaOS5E
Bv9Yn315BGf5yt/xEofB+5Y8lSUcxpLjlhIJ5iNwyaARTdyHMdQq8lkxbwTC
Iw4YhXdzUf2zdXdG5Cj0NajXp//MxX//GJFA380Di2uL7ldKOeiiyloUa+fB
09WqT/I1ODj74T73atgY5NyKvpkTNIRPJF397DXHQX/VkVHpskFcP1DyXJw5
Dh4pPrvVfAZwVXCYg5HvBNx9drSEs9CPtBxXBldxEmzbl7Qqo/vwWhLjvmLd
JNDm+ILtYz1YvTNKRsGHD/f/m2qbod+NCtbXdMPlBLCsFPDiSkAn9uu1tAdW
CaCZI2Phe5WNhU9Bc8RVCOEX5i54n2zDXxiGCiorQnj9MGDmnnQLlp5ekGuh
UVDqKz4YsshCOamKtbclKJBxFRr1DbOw1uWgzIQMBQ56mdkX37JQQ9ZcVLye
gnvr7EUf3VnI87AT2up88xvaZ7ILPqGP8uXGIAcK/OTeDmYdbMaGer33+k4U
BHswapa0mlHNlzC5pyhgT804HpBrxpb312qt3CjwoC9TEQNNuNs/sEzJiwJj
JzUv7ZAmnGfdyXoVSkFn3peKoPKPeCsyPaw/l4LJW56yHaofcF2AtPWZfAom
lnMX6VIfMMnTW5HHoMDZ/6udpbARi2yMMkgxBS16IbqnKxuRp9DKFEcKNttk
1Z880Yg2T2kyOu0U/LBHs+jG3b9xQ5nbA/9lCmTP92oy2xsw42X9iaWvFIg6
5mKulzWgQdJOtVAagfBjnb+Lkhrwp+B5RtQqAhH9Ot25ZxowyCy2NVmegKnd
ySkQ1iOXVaNUt42A32fvvb3/MDF/XCVZzpZAJe/ehuCFOoxKjXQf+A8BalGJ
c76tDj3shVoFdgRe9jfO017V4ZaqqsKjTgQMH3V6HnGtw+hY54Y/zhKIVuY7
smv+Qk/DP6dlAwnwWw/2dnnXojmfVtb7OwHdoRnT5kO1qJbmGZQbQmBsa6K8
9fe12Ll6v7R1BIHzZhYlj/wRLT53brkXS2CftSr190o1akQoWUlnf+vtswtX
YVfgyv6gdV0vCUxuX1775WIF9giH27LzCEgIO0yllsoxzqnolyOvCRy5osWK
2lSOoh321yOrCFz3ELXOGZdh72D5fkckQPSmJipqSrE0QX1Fs44AZ0OWZo1J
KfqsTEUx3xOo6+THl+8rwf7W2KcS7QQUTehtIQtv8O2d+XPtHQSWuNO7rVzf
YIKxm05GN4HUeGWDzprXaJO1q/jwAIHjcZd6e7wLUft0YqAih4D/Yb3hx/4M
FJdfMeEOE5BqNDnWvJKPFTebG8MmCMjojXpqsHMxUW9frJ2AQAPPae2DTTno
y01xUCcEBE0vfvvH+AXaPpZUnp4msMWnux73ZeF228uDtTMENkk51kYuPEdJ
MXZm3DwBEX1rH8c7DYdKjL3clwi8CtWRMGQnYZVXhr7BVwLbW3cEpi/E42O1
NbPffgssvS7eDi7XwP8BYDzBdA==
       "]]},
     Annotation[#, "Charting`Private`Tag$2488538#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {-0.9999999897959183, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.770368283104776*^9, 3.77036829139898*^9}, {
  3.770368365383689*^9, 3.7703683822089367`*^9}},
 CellLabel->
  "Out[673]=",ExpressionUUID->"d3f38375-f85b-4080-973e-b8ce9133c3e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "\[Rho]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SqrtBox["5"]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "2"], 
    FractionBox[
     RowBox[{"4", "-", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox["5"]}], ")"}]}]}], 
     RowBox[{"1", "-", 
      RowBox[{
       FractionBox["1", "10"], " ", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         SqrtBox["5"]}], ")"}]}]}]], "\[Rho]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "-", 
        SqrtBox["5"]}], ")"}]}], "]"}], ",", 
    RowBox[{"f", "[", "1", "]"}]}], "}"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.770363450063698*^9, 3.77036347915561*^9}, {
  3.770363536423809*^9, 3.770363709874524*^9}, {3.770363754294034*^9, 
  3.770363769317905*^9}, {3.770363819605863*^9, 3.770363820699188*^9}, {
  3.770363938831894*^9, 3.770363985330222*^9}, {3.770364049461981*^9, 
  3.7703640655172997`*^9}, {3.770364121353889*^9, 3.770364121760092*^9}, {
  3.770364237905362*^9, 3.770364261359673*^9}, {3.7703644187785482`*^9, 
  3.770364421712253*^9}, {3.7703644733948727`*^9, 3.77036450140591*^9}, {
  3.770364558149637*^9, 3.770364576458148*^9}},
 CellLabel->
  "In[496]:=",ExpressionUUID->"1b4bb8b5-2c72-47ea-851a-9dba5bb2318c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "-", 
    SqrtBox["5"]}], ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.770363961039034*^9, 3.770363985706874*^9}, 
   3.770364065979822*^9, {3.770364215030232*^9, 3.77036426168824*^9}, 
   3.770364315595896*^9, 3.7703644220272703`*^9, {3.770364473963245*^9, 
   3.770364502288925*^9}, {3.770364563951126*^9, 3.770364576917033*^9}},
 CellLabel->
  "Out[497]=",ExpressionUUID->"0f0e457b-4757-4090-b7a5-28ca381bf332"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"10", "\[Rho]", " ", 
   FractionBox["5", 
    RowBox[{"5", "-", 
     SqrtBox["5"]}]]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.770365164711493*^9, 3.770365167183897*^9}},
 CellLabel->
  "In[539]:=",ExpressionUUID->"220433e9-a8c5-4fe0-abe4-660f4ac4e8ed"],

Cell[BoxData[
 RowBox[{
  FractionBox["5", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"5", "+", 
    SqrtBox["5"]}], ")"}], " ", "\[Rho]"}]], "Output",
 CellChangeTimes->{3.770365167593266*^9},
 CellLabel->
  "Out[539]=",ExpressionUUID->"bac8c52d-463c-4a54-9ff0-ed1b9231cb0b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "10"], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     SqrtBox["5"]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"7", "+", 
      RowBox[{"5", " ", 
       SqrtBox["5"]}]}], ")"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"15", "+", 
      RowBox[{"7", " ", 
       SqrtBox["5"]}]}], ")"}]}]]}]], "Input",ExpressionUUID->"f5920e24-f04b-\
467c-b842-4557bfaff1b5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", "\[Rho]_", "]"}], ":=", 
  RowBox[{
   SqrtBox[
    RowBox[{"a", "-", "\[Rho]"}]], "+", 
   SqrtBox[
    RowBox[{"b", "-", "\[Rho]"}]]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "-", 
        SqrtBox["5"]}], ")"}]}], "]"}], ",", 
    RowBox[{"g", "[", "1", "]"}]}], "}"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.770364682106235*^9, 3.770364722317223*^9}, {
   3.77036475638727*^9, 3.7703647626704884`*^9}, {3.770365084281814*^9, 
   3.770365180371677*^9}, {3.770367259140451*^9, 3.770367311767028*^9}, {
   3.770368032998887*^9, 3.770368039283681*^9}, 3.770372017927457*^9},
 CellLabel->
  "In[878]:=",ExpressionUUID->"7cd1cbf8-a21b-46b7-a622-10951106a0c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SqrtBox[
     RowBox[{
      RowBox[{
       FractionBox["1", "10"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         SqrtBox["5"]}], ")"}]}], "+", "a"}]], "+", 
    SqrtBox[
     RowBox[{
      RowBox[{
       FractionBox["1", "10"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         SqrtBox["5"]}], ")"}]}], "+", "b"}]]}], ",", 
   RowBox[{
    SqrtBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "a"}]], "+", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7703646974856157`*^9, 3.770364722828594*^9}, {
   3.770364757057626*^9, 3.7703647630666*^9}, {3.770365086701041*^9, 
   3.770365180883381*^9}, {3.770367268349998*^9, 3.7703673121044827`*^9}, 
   3.770368039660561*^9, 3.770372024052246*^9},
 CellLabel->
  "Out[879]=",ExpressionUUID->"37fe6722-4907-4f6c-b528-01e97a3dd3e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "\[Rho]_", "]"}], ":=", 
   RowBox[{
    RowBox[{"a", 
     SqrtBox[
      RowBox[{"1", "-", "\[Rho]"}]]}], "+", 
    RowBox[{"b", 
     SqrtBox[
      RowBox[{"1", "+", "\[Rho]"}]]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"res", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"g", "[", 
         RowBox[{
          FractionBox["1", "10"], " ", 
          RowBox[{"(", 
           RowBox[{"5", "-", 
            SqrtBox["5"]}], ")"}]}], "]"}], "==", 
        RowBox[{"1", "-", 
         SqrtBox["5"]}]}], ",", 
       RowBox[{
        RowBox[{"g", "[", "1", "]"}], "\[Equal]", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}]}], "]"}], "//", 
   "FullSimplify"}]}]}], "Input",
 CellChangeTimes->{{3.770367339965982*^9, 3.770367446574767*^9}, {
   3.7703674872445517`*^9, 3.7703675614557953`*^9}, {3.770367798937578*^9, 
   3.7703678174692097`*^9}, {3.7703680432850943`*^9, 3.770368141578104*^9}, {
   3.770368194422386*^9, 3.770368199363662*^9}, {3.770368309908614*^9, 
   3.7703683198355503`*^9}, {3.770368414416993*^9, 3.770368450586837*^9}, {
   3.770368488883877*^9, 3.770368503513096*^9}, {3.770368558902196*^9, 
   3.770368560392832*^9}, {3.770368606955874*^9, 3.770368628973783*^9}, {
   3.770368782131487*^9, 3.770368809732465*^9}, {3.770369159174429*^9, 
   3.770369250318253*^9}, {3.7703694006278954`*^9, 3.7703694388679533`*^9}, {
   3.770369493194891*^9, 3.770369539153059*^9}, 3.770372030907764*^9},
 CellLabel->
  "In[880]:=",ExpressionUUID->"bdd2ece0-4de2-4782-b12e-f65ea62c1065"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"28", "-", 
        RowBox[{"10", " ", 
         SqrtBox["5"]}], "+", 
        RowBox[{"4", " ", 
         SqrtBox[
          RowBox[{"60", "-", 
           RowBox[{"26", " ", 
            SqrtBox["5"]}]}]]}]}]]}]}], ",", 
    RowBox[{"b", "\[Rule]", 
     SqrtBox["2"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7703673910228863`*^9, 3.770367446982045*^9}, {
   3.7703674898192787`*^9, 3.770367562011962*^9}, {3.770367804881208*^9, 
   3.770367817949255*^9}, {3.770368046359651*^9, 3.770368142072946*^9}, 
   3.7703682009462347`*^9, {3.770368313562025*^9, 3.770368320372563*^9}, {
   3.77036843205802*^9, 3.770368451096135*^9}, {3.770368498324264*^9, 
   3.770368503965906*^9}, 3.770368561013113*^9, {3.7703686085739822`*^9, 
   3.770368629440127*^9}, 3.770368766481385*^9, 3.770368810322048*^9, {
   3.770369191950976*^9, 3.770369251522026*^9}, 3.770369407897594*^9, 
   3.7703694393900547`*^9, {3.770369495828824*^9, 3.7703695575919237`*^9}, 
   3.770370049675899*^9, 3.770372031590873*^9},
 CellLabel->
  "Out[881]=",ExpressionUUID->"199e32fe-dab8-41b7-9d4b-b0e71d5e96c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "\[Rho]", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"28", "-", 
        RowBox[{"10", " ", 
         SqrtBox["5"]}], "+", 
        RowBox[{"4", " ", 
         SqrtBox[
          RowBox[{"60", "-", 
           RowBox[{"26", " ", 
            SqrtBox["5"]}]}]]}]}]]}]}], ",", 
    RowBox[{"b", "\[Rule]", 
     SqrtBox["2"]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7703720458582687`*^9, 3.770372047742238*^9}},
 CellLabel->
  "In[882]:=",ExpressionUUID->"b67024a0-d370-493f-8f08-f8f5cfe0af3e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SqrtBox[
     RowBox[{"28", "-", 
      RowBox[{"10", " ", 
       SqrtBox["5"]}], "+", 
      RowBox[{"4", " ", 
       SqrtBox[
        RowBox[{"60", "-", 
         RowBox[{"26", " ", 
          SqrtBox["5"]}]}]]}]}]]}], " ", 
   SqrtBox[
    RowBox[{"1", "-", "\[Rho]"}]]}], "+", 
  RowBox[{
   SqrtBox["2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", "\[Rho]"}]]}]}]], "Output",
 CellChangeTimes->{3.770372048242724*^9},
 CellLabel->
  "Out[882]=",ExpressionUUID->"2eeb3489-629f-4103-a9d5-a63ac2cd5db5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        SqrtBox["5"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"5", " ", 
          SqrtBox["5"]}]}], ")"}], " ", 
       SuperscriptBox["\[Rho]", "2"]}], 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", 
         RowBox[{"7", " ", 
          SqrtBox["5"]}]}], ")"}]}]]}], ",", "\[Rho]"}], "]"}], "/.", 
  RowBox[{"\[Rho]", "->", 
   RowBox[{
    FractionBox["1", "10"], " ", 
    RowBox[{"(", 
     RowBox[{"5", "-", 
      SqrtBox["5"]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.770369386407669*^9, 3.770369394941937*^9}},
 CellLabel->
  "In[736]:=",ExpressionUUID->"90bb66f1-7e68-46c6-bee3-cab494058510"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"5", "-", 
     SqrtBox["5"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"7", "+", 
     RowBox[{"5", " ", 
      SqrtBox["5"]}]}], ")"}]}], 
  RowBox[{"20", " ", 
   RowBox[{"(", 
    RowBox[{"15", "+", 
     RowBox[{"7", " ", 
      SqrtBox["5"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.77036939535046*^9},
 CellLabel->
  "Out[736]=",ExpressionUUID->"bb037751-9959-4322-86cb-53c0b882a286"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", 
       SqrtBox[
        RowBox[{"1", "-", "\[Rho]"}]]}], "+", 
      RowBox[{"b", 
       SqrtBox[
        RowBox[{"1", "+", "\[Rho]"}]]}], "+", "c"}], ",", "\[Rho]"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.770369458928591*^9, 3.770369477670397*^9}},
 CellLabel->
  "In[744]:=",ExpressionUUID->"f0d09489-40ed-4c87-bd70-57d5df59aa3e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["a", "4"]}], "-", 
      FractionBox["b", "4"]}], ")"}], " ", "\[Rho]"}], "-", 
   RowBox[{
    FractionBox["3", "16"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Rho]", "]"}], "3"],
    SeriesData[$CellContext`\[Rho], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Rho], 0, {
   Rational[1, 2] (-$CellContext`a + $CellContext`b), 
    Rational[-1, 4] $CellContext`a + Rational[-1, 4] $CellContext`b, 
    Rational[-3, 16] ($CellContext`a - $CellContext`b)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.770369461388801*^9, 3.770369478129759*^9}},
 CellLabel->
  "Out[744]=",ExpressionUUID->"40be8bdd-e42e-4838-a300-86df1453828c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["a", "4"]}], "-", 
    FractionBox["b", "4"]}], "\[Equal]", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.770369485849436*^9, 3.7703694882596807`*^9}},
 CellLabel->
  "In[745]:=",ExpressionUUID->"1be0986b-ab83-4b90-9569-d68fe7cd907c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"b", "\[Rule]", 
    RowBox[{"-", "a"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7703694887263823`*^9},
 CellLabel->
  "Out[745]=",ExpressionUUID->"a0105835-1d2f-4c30-bd85-ef33614a878b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"g", "[", "\[Rho]_", "]"}]], "Input",ExpressionUUID->"1b780b0a-caa3-4379-9d69-3a1e6d2af6e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "'"}], "[", "\[Rho]", "]"}]], "Input",
 CellChangeTimes->{{3.770369196641571*^9, 3.770369201597176*^9}},
 CellLabel->
  "In[722]:=",ExpressionUUID->"c4529749-e823-4228-b422-c4983b67d7ef"],

Cell[BoxData[
 RowBox[{
  FractionBox["a", 
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{"1", "-", "\[Rho]"}]]}]], "+", 
  FractionBox["b", 
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{"1", "+", "\[Rho]"}]]}]]}]], "Output",
 CellChangeTimes->{3.770369202015788*^9},
 CellLabel->
  "Out[722]=",ExpressionUUID->"7885a11b-1cb5-49f0-9c6d-e98e3646b66e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], 
     SqrtBox[
      RowBox[{"1", "-", "\[Rho]"}]]}], "+", 
    RowBox[{"b", 
     SqrtBox[
      RowBox[{"1", "+", "\[Rho]"}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      RowBox[{
       RowBox[{"5", " ", 
        SqrtBox[
         FractionBox["2", 
          RowBox[{"5", "+", 
           SqrtBox["5"]}]]]}], "-", 
       SqrtBox[
        FractionBox["10", 
         RowBox[{"5", "+", 
          SqrtBox["5"]}]]], "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"15", "-", 
            SqrtBox["5"]}], ")"}]}], 
         RowBox[{"5", "+", 
          SqrtBox["5"]}]]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      SqrtBox["2"]}]}], "}"}]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.7703681525470057`*^9, 3.7703681572858267`*^9}, {
  3.770368206700478*^9, 3.770368210516891*^9}, {3.770368334877243*^9, 
  3.770368339623489*^9}, {3.770368513763983*^9, 3.77036851762368*^9}, {
  3.770368566057849*^9, 3.770368571586041*^9}, {3.770368634318568*^9, 
  3.7703686380704527`*^9}},
 CellLabel->
  "In[691]:=",ExpressionUUID->"7b3bfc94-3551-4d09-a12c-23bfbf12c0d3"],

Cell[BoxData[
 RowBox[{
  SqrtBox["2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SqrtBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "14"}], "+", 
         RowBox[{"5", " ", 
          SqrtBox["5"]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{"60", "-", 
            RowBox[{"26", " ", 
             SqrtBox["5"]}]}]]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Rho]"}], ")"}]}]]}], "+", 
    SqrtBox[
     RowBox[{"1", "+", "\[Rho]"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7703681532220297`*^9, 3.770368157988049*^9}, 
   3.770368211785964*^9, 3.7703683400449257`*^9, 3.770368519537122*^9, 
   3.7703685743770437`*^9, 3.770368639101359*^9},
 CellLabel->
  "Out[691]=",ExpressionUUID->"322ab48d-88ba-468a-b8f5-55478395e062"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "-", 
   SqrtBox[
    RowBox[{"a", "+", 
     SqrtBox[
      RowBox[{"\[Rho]", " ", "b"}]]}]]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{"14", "-", 
      RowBox[{"6", " ", 
       SqrtBox["5"]}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"5", "-", 
           SqrtBox["5"]}], ")"}]}]]}], "+", 
      SqrtBox[
       RowBox[{"10", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          SqrtBox["5"]}], ")"}]}]], "-", 
      RowBox[{"4", " ", "c"}], "+", 
      RowBox[{"4", " ", 
       SqrtBox["5"], " ", "c"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"5", "-", 
           SqrtBox["5"]}], ")"}]}]], " ", "c"}], "+", 
      SuperscriptBox["c", "2"]}]}], ",", 
    RowBox[{"b", "\[Rule]", 
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{"60", "-", 
        RowBox[{"26", " ", 
         SqrtBox["5"]}], "-", 
        RowBox[{"15", " ", 
         SqrtBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"5", "-", 
             SqrtBox["5"]}], ")"}]}]]}], "+", 
        RowBox[{"7", " ", 
         SqrtBox[
          RowBox[{"10", " ", 
           RowBox[{"(", 
            RowBox[{"5", "-", 
             SqrtBox["5"]}], ")"}]}]]}], "-", 
        RowBox[{"50", " ", "c"}], "+", 
        RowBox[{"18", " ", 
         SqrtBox["5"], " ", "c"}], "+", 
        RowBox[{"10", " ", 
         SqrtBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"5", "-", 
             SqrtBox["5"]}], ")"}]}]], " ", "c"}], "-", 
        RowBox[{"6", " ", 
         SqrtBox[
          RowBox[{"10", " ", 
           RowBox[{"(", 
            RowBox[{"5", "-", 
             SqrtBox["5"]}], ")"}]}]], " ", "c"}], "+", 
        RowBox[{"15", " ", 
         SuperscriptBox["c", "2"]}], "-", 
        RowBox[{
         SqrtBox["5"], " ", 
         SuperscriptBox["c", "2"]}], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"10", " ", 
           RowBox[{"(", 
            RowBox[{"5", "-", 
             SqrtBox["5"]}], ")"}]}]], " ", 
         SuperscriptBox["c", "2"]}]}], ")"}]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.770367833345251*^9, 3.770367833588003*^9}},
 CellLabel->
  "In[608]:=",ExpressionUUID->"9c4266d1-5234-417b-b2a7-0d0b23912c6d"],

Cell[BoxData[
 RowBox[{"c", "-", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    RowBox[{"14", "-", 
     RowBox[{"6", " ", 
      SqrtBox["5"]}], "-", 
     RowBox[{"3", " ", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          SqrtBox["5"]}], ")"}]}]]}], "+", 
     SqrtBox[
      RowBox[{"10", " ", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         SqrtBox["5"]}], ")"}]}]], "-", 
     RowBox[{"4", " ", "c"}], "+", 
     RowBox[{"4", " ", 
      SqrtBox["5"], " ", "c"}], "+", 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          SqrtBox["5"]}], ")"}]}]], " ", "c"}], "+", 
     SuperscriptBox["c", "2"], "+", 
     RowBox[{"2", " ", 
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"60", "-", 
          RowBox[{"26", " ", 
           SqrtBox["5"]}], "-", 
          RowBox[{"15", " ", 
           SqrtBox[
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"5", "-", 
               SqrtBox["5"]}], ")"}]}]]}], "+", 
          RowBox[{"7", " ", 
           SqrtBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{"5", "-", 
               SqrtBox["5"]}], ")"}]}]]}], "-", 
          RowBox[{"50", " ", "c"}], "+", 
          RowBox[{"18", " ", 
           SqrtBox["5"], " ", "c"}], "+", 
          RowBox[{"10", " ", 
           SqrtBox[
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"5", "-", 
               SqrtBox["5"]}], ")"}]}]], " ", "c"}], "-", 
          RowBox[{"6", " ", 
           SqrtBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{"5", "-", 
               SqrtBox["5"]}], ")"}]}]], " ", "c"}], "+", 
          RowBox[{"15", " ", 
           SuperscriptBox["c", "2"]}], "-", 
          RowBox[{
           SqrtBox["5"], " ", 
           SuperscriptBox["c", "2"]}], "+", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{"5", "-", 
               SqrtBox["5"]}], ")"}]}]], " ", 
           SuperscriptBox["c", "2"]}]}], ")"}], " ", "\[Rho]"}]]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.770367833943138*^9},
 CellLabel->
  "Out[608]=",ExpressionUUID->"68396fca-2c69-4578-ae4a-ae7c3369b3fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "-", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"\[Rho]", " ", "b"}]}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      RowBox[{"14", "-", 
       RowBox[{"6", " ", 
        SqrtBox["5"]}], "-", 
       RowBox[{"4", " ", "c"}], "+", 
       RowBox[{"4", " ", 
        SqrtBox["5"], " ", "c"}], "+", 
       SuperscriptBox["c", "2"]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"3", " ", 
          SqrtBox["5"]}], "+", 
         RowBox[{"2", " ", 
          SqrtBox["5"], " ", "c"}]}], ")"}]}]}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.770367576712673*^9, 3.770367580125554*^9}},
 CellLabel->
  "In[583]:=",ExpressionUUID->"b497e088-ec28-4370-80b4-0daf66830f10"],

Cell[BoxData[
 RowBox[{"c", "-", 
  SqrtBox[
   RowBox[{"14", "-", 
    RowBox[{"6", " ", 
     SqrtBox["5"]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       RowBox[{"3", " ", 
        SqrtBox["5"]}]}], ")"}], " ", "\[Rho]"}], "+", 
    RowBox[{"c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "4"}], "+", 
       RowBox[{"4", " ", 
        SqrtBox["5"]}], "+", "c", "-", 
       RowBox[{"4", " ", 
        SqrtBox["5"], " ", "\[Rho]"}]}], ")"}]}]}]]}]], "Output",
 CellChangeTimes->{{3.770367577335993*^9, 3.7703675807006617`*^9}},
 CellLabel->
  "Out[583]=",ExpressionUUID->"f849a289-6709-4ce3-b519-a38b1ec0daa9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"c", "-", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"\[Rho]", " ", "b"}]}]]}], "==", 
     RowBox[{"1", "-", 
      SqrtBox["5"]}]}], "/.", 
    RowBox[{"\[Rho]", "->", 
     RowBox[{
      FractionBox["1", "10"], " ", 
      RowBox[{"(", 
       RowBox[{"5", "-", 
        SqrtBox["5"]}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"c", "-", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"\[Rho]", " ", "b"}]}]]}], "\[Equal]", "2"}], "/.", 
    RowBox[{"\[Rho]", "\[Rule]", "1"}]}]}], "}"}]], "Input",ExpressionUUID->\
"0568fde1-7a1c-4c43-b64a-1870dda13331"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"1", "-", 
    SqrtBox[
     FractionBox[
      RowBox[{"5", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"\[Rho]", " ", "b"}]}], ")"}]}], "2"]], "+", 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5", "+", 
        SqrtBox["5"]}], ")"}], " ", "\[Rho]"}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      RowBox[{
       FractionBox["2", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"11", "-", 
         RowBox[{"5", " ", 
          SqrtBox["2"]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox["5"]}], "+", 
         RowBox[{"5", " ", 
          SqrtBox["10"]}], "+", 
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"5", "+", 
            SqrtBox["5"]}]]}], "-", 
         SqrtBox[
          RowBox[{"5", " ", 
           RowBox[{"(", 
            RowBox[{"5", "+", 
             SqrtBox["5"]}], ")"}]}]]}], ")"}]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       FractionBox["2", "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "5"}], "+", 
         RowBox[{"5", " ", 
          SqrtBox["2"]}], "+", 
         RowBox[{"3", " ", 
          SqrtBox["5"]}], "-", 
         RowBox[{"5", " ", 
          SqrtBox["10"]}], "-", 
         RowBox[{"5", " ", 
          SqrtBox[
           RowBox[{"5", "+", 
            SqrtBox["5"]}]]}], "+", 
         SqrtBox[
          RowBox[{"5", " ", 
           RowBox[{"(", 
            RowBox[{"5", "+", 
             SqrtBox["5"]}], ")"}]}]]}], ")"}]}]}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.770367460226447*^9, 3.770367464047727*^9}},
 CellLabel->
  "In[570]:=",ExpressionUUID->"aea5cbae-d4ea-4176-8056-88fe7d970278"],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{
   SqrtBox[
    RowBox[{"5", "+", 
     SqrtBox["5"]}]], " ", 
   SqrtBox["\[Rho]"]}], "-", 
  SqrtBox[
   RowBox[{"11", "-", 
    RowBox[{"5", " ", 
     SqrtBox["2"]}], "-", 
    RowBox[{"2", " ", 
     SqrtBox["5"]}], "+", 
    RowBox[{"5", " ", 
     SqrtBox["10"]}], "+", 
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{"10", "-", 
       RowBox[{"4", " ", 
        SqrtBox["5"]}]}]]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       RowBox[{"5", " ", 
        SqrtBox["2"]}], "+", 
       RowBox[{"3", " ", 
        SqrtBox["5"]}], "-", 
       RowBox[{"5", " ", 
        SqrtBox["10"]}], "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"25", "-", 
          RowBox[{"5", " ", 
           SqrtBox["5"]}]}]]}]}], ")"}], " ", "\[Rho]"}]}]]}]], "Output",
 CellChangeTimes->{{3.770367460967506*^9, 3.7703674659642344`*^9}},
 CellLabel->
  "Out[570]=",ExpressionUUID->"8caa85c8-068a-46f2-8f59-c3fca43f6f62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["\[Gamma]12", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Gamma]12", "2"]}]]}], ")"}]}], 
      RowBox[{"2", 
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]12", "2"], ")"}]}]], "\[Equal]", "2"}], "}"}],
    ",", 
   RowBox[{"{", "\[Gamma]12", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.770367092700186*^9, 3.7703671703964987`*^9}},
 CellLabel->
  "In[548]:=",ExpressionUUID->"48bb5e3b-7698-4792-b841-ba76f682e588"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.770367120665207*^9, 3.7703671709914427`*^9}},
 CellLabel->
  "Out[548]=",ExpressionUUID->"eb7a9e2c-b796-4690-a70a-96ff7738ef3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       SqrtBox["5"]}], ")"}]}], " ", "a"}], "\[Equal]", "5"}], "]"}]], "Input",\

 CellChangeTimes->{{3.770365143204015*^9, 3.770365147765109*^9}},
 CellLabel->
  "In[536]:=",ExpressionUUID->"ce2b9246-2c58-44ab-8ef8-c4ac72249bd2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"a", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["5", 
      RowBox[{
       RowBox[{"-", "5"}], "+", 
       SqrtBox["5"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.770365148171775*^9},
 CellLabel->
  "Out[536]=",ExpressionUUID->"1c07b2e7-e56a-4655-a8df-005e1053db95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SqrtBox["5"]}], ")"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7703644514474277`*^9, 3.770364452189714*^9}},
 CellLabel->
  "In[484]:=",ExpressionUUID->"9f08302b-de48-447b-889b-8eccca1ead36"],

Cell[BoxData[
 RowBox[{"-", "2.4721359549995796`"}]], "Output",
 CellChangeTimes->{3.7703644527770967`*^9},
 CellLabel->
  "Out[484]=",ExpressionUUID->"30115af6-039e-47c1-865c-b3bd38b84ce5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"r", "==", 
    RowBox[{"1", "-", 
     SqrtBox[
      RowBox[{"(", 
       RowBox[{"5", "-", "\[Rho]"}], ")"}]], "+", 
     RowBox[{"3", 
      SqrtBox["\[Rho]"]}]}]}], ",", "\[Rho]"}], "]"}]], "Input",
 CellChangeTimes->{{3.770363848735752*^9, 3.770363856782395*^9}},
 CellLabel->
  "In[433]:=",ExpressionUUID->"acdc3120-7cd2-4be1-a025-db48db84fbd8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Rho]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "50"], " ", 
      RowBox[{"(", 
       RowBox[{"29", "-", 
        RowBox[{"8", " ", "r"}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"]}], "-", 
        RowBox[{"3", " ", 
         SqrtBox[
          RowBox[{"49", "-", 
           RowBox[{"96", " ", "r"}], "+", 
           RowBox[{"44", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r", "3"]}], "-", 
           SuperscriptBox["r", "4"]}]]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "50"], " ", 
      RowBox[{"(", 
       RowBox[{"29", "-", 
        RowBox[{"8", " ", "r"}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"]}], "+", 
        RowBox[{"3", " ", 
         SqrtBox[
          RowBox[{"49", "-", 
           RowBox[{"96", " ", "r"}], "+", 
           RowBox[{"44", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r", "3"]}], "-", 
           SuperscriptBox["r", "4"]}]]}]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.770363857158559*^9},
 CellLabel->
  "Out[433]=",ExpressionUUID->"696a4516-4677-4403-8d89-b6fcd177c4a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"SeriesCoefficient", "[", 
    RowBox[{
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", "r"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{"r", "+", "\[Rho]"}]], "+", 
        SqrtBox[
         RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", 
   RowBox[{"0", "<", "\[Rho]", "<", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.770363020250284*^9, 3.7703630711029873`*^9}, {
  3.7703631223133183`*^9, 3.77036314864209*^9}},
 CellLabel->
  "In[367]:=",ExpressionUUID->"463cce86-9881-484a-ad42-5536c18f254f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"-", "\[Rho]"}], ")"}], 
   RowBox[{"-", "n"}]], " ", 
  SqrtBox["\[Rho]"], " ", 
  RowBox[{"Binomial", "[", 
   RowBox[{
    FractionBox["1", "2"], ",", "n"}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"-", "n"}], ",", 
       RowBox[{
        FractionBox["3", "2"], "-", "n"}], ",", 
       RowBox[{"-", "\[Rho]"}]}], "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"-", "n"}], ",", 
       RowBox[{
        FractionBox["3", "2"], "-", "n"}], ",", "\[Rho]"}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7703630358319473`*^9, 3.7703630412103367`*^9}, 
   3.7703630715851316`*^9, {3.770363124343219*^9, 3.770363150308407*^9}},
 CellLabel->
  "Out[367]=",ExpressionUUID->"03382504-961c-4cc9-8aed-0a014a540882"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"-", "\[Rho]"}], ")"}], 
   RowBox[{"-", "n"}]], " ", 
  SqrtBox["\[Rho]"], " ", 
  RowBox[{"Binomial", "[", 
   RowBox[{
    FractionBox["1", "2"], ",", "n"}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"-", "n"}], ",", 
       RowBox[{
        FractionBox["3", "2"], "-", "n"}], ",", 
       RowBox[{"-", "\[Rho]"}]}], "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"-", "n"}], ",", 
       RowBox[{
        FractionBox["3", "2"], "-", "n"}], ",", "\[Rho]"}], "]"}]}]}], 
   ")"}]}]], "Input",ExpressionUUID->"70da6a63-e49c-4bcb-b525-318e84bebfa4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Gamma]12", "2"], 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Gamma]12", "2"], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]]}], ")"}]}], 
       "+", 
       RowBox[{"2", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]}], 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]12", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}], ")"}]}]], "==", 
     RowBox[{"1", "-", 
      SqrtBox["5"]}]}], "/.", 
    RowBox[{"\[Gamma]11", "\[Rule]", "1"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.770356555068618*^9, 3.770356628900216*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"b5c79f3e-2db8-422b-8355-88f0e94f5baa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Gamma]12", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
      SqrtBox[
       RowBox[{"5", "-", 
        SqrtBox["5"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Gamma]12", "\[Rule]", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", 
      SqrtBox[
       RowBox[{"5", "-", 
        SqrtBox["5"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.77035658616306*^9, {3.770356623907096*^9, 3.770356629854948*^9}},
 CellLabel->
  "Out[318]=",ExpressionUUID->"205915b1-1ed6-4032-8a13-fcae014ec638"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Limit", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Gamma]12", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Gamma]12", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]]}], ")"}]}], "+", 
     
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]}], 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]12", "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}], ")"}]}]], ",", 
   RowBox[{"\[Gamma]11", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Gamma]12", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Gamma]12", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]]}], ")"}]}], "+", 
     
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}]}], 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]12", "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]11", "-", "1"}], ")"}], "2"]}], ")"}]}]], ",", 
   RowBox[{"\[Gamma]11", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7703564020329313`*^9, 3.770356450436941*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"3d48881a-6348-422c-a531-174bbe6d4cd9"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "+", 
   SuperscriptBox["\[Gamma]12", "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", 
      SuperscriptBox["\[Gamma]12", "2"]}], ")"}], 
    RowBox[{"3", "/", "2"}]]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[Gamma]12", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.770356411229156*^9, 3.770356451007021*^9}},
 CellLabel->
  "Out[314]=",ExpressionUUID->"be300c02-45a6-4327-b798-101cd7fe9357"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Gamma]12", "2"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.770356411229156*^9, 3.7703564511418953`*^9}},
 CellLabel->
  "Out[315]=",ExpressionUUID->"cf771962-12bf-4a20-92e9-071352ff10dd"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "+", 
   SuperscriptBox["\[Gamma]12", "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", 
      SuperscriptBox["\[Gamma]12", "2"]}], ")"}], 
    RowBox[{"3", "/", "2"}]]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[Gamma]12", "2"]}], ")"}]}]]], "Input",ExpressionUUID->\
"66161722-4cc0-488e-8a50-d58cc12d7fb6"],

Cell[BoxData[
 RowBox[{"Inverse", "["}]], "Input",
 CellChangeTimes->{{3.770356105152774*^9, 
  3.770356110904348*^9}},ExpressionUUID->"af723c0f-20e9-4738-b67e-\
3c687014e15c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "10"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", "\[Rho]", "-", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"4", "+", 
         RowBox[{"2", " ", "\[Rho]"}], "-", 
         SuperscriptBox["\[Rho]", "2"]}]]}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7703560778581944`*^9, 3.7703560843827333`*^9}, {
  3.770356134032835*^9, 3.770356142899762*^9}},
 CellLabel->
  "In[300]:=",ExpressionUUID->"0fe4e8f1-8656-4973-8449-67de46de2675"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtVAk0VP0bHmsju7SMNUIpTVMmSdxXCSUqSySaiEwk8ZHQVyhTKUI0GLKN
pbl2Bln68oU6lZEslSWkya7JF0kL/59z/vece+55zvM+z/u87++en8bpC3Zn
hAkEwgP0Ln+tzoy9aRw/hhH+/4iaKfkPkqjAa22NcTbdjelnpqRXkvYD3csr
wxecMb6KVuQlncPASk09mOPlix3ivat4QHJYrpczxEIxrRjVvCV15+V6I8qj
69hvK49kdx0aIOsAnmcMNhHV1ezOdEc44vd5u0TMyXP+8T2S57JeXtM4FWs2
U6ppSvdaxpqXBJkYZYNJ2ay6N8LWJZRqNpYu7MbRZp9b5oN9egow4vC1HEcd
P6DqB4p4uBdhdUMdvCYHf5Svx2BlQRnmf9TTypUZsNz/bMORSuzDtptmsaQg
xJOCNQxrsaTMdY3aLheRn55/26UGzEoWN/4nPXg53/oX40+w6i+tOwXqoah+
YcamognzpdEqbrqHofl0pGqqWzDNNgF5Pfsy4ms193Y9x+4WK2yy1bmKsK53
xYlWzFw1N3ecHr7MFzKb2rCrz1hy/zpEgL6+JPFVTjtGNdCLdWZGon4UfX+r
Tixr9ZEbt0lRKE+uoQmlB7vMS252rIta9gta8aIXc2QMCW9wYaB5N/g6+/Vj
UnMB4fXpNxDP4SQMDGIhXUkhU+rRyK+fkYl/wuxjPlQ/aoxG9fbnSRw+Rt6v
Mxflfhv58627ij9j/MqaAFX2HTRP2DXJl6OYbWKvz2Gdu8hPouSizRSmd2gD
R+n53eX9Gk9fmcaIIr6jI/Q4hEeHcrhfsFO1i+VPHOJRvfRVD9ZXbLVuPPk4
MwH5GxrOwjcskli5MZqUhHDD6qz1C9hmy4RbFf5JKJ+aRN+vBayDcWG87/ky
v6buce9PTEtEr5AcfB/lkTofyv6NPfuTS+7qYKL6ex/dKQSQ+sbcqR6Tivr5
9Rqai0LV9ovMA59Skb6vRrxdFGj+9vMBRiyEpQryXcWgdFq2tnmMhfwMD7he
Fge7sVvGPubpSH/4YlobEVI+hJlVLWYgfl300VZp2KvinDtwLBPp2Zo7gmRg
4sQuMWJxJuJdxPmqsqA2FepRvDUL6CMJqq575OCCt4E2oT8L9CsTsmUz5UHB
s/RhnmEO8KztEkcTFOG4c3bp15lclP+43IKWMgj6HFbmKOUh/mqB7V1luEEj
nrE3ywNCxBO1wB/KUOlxQak6KQ+olUkRcq9VQMbPhHF5Vz6wSNLvKhlq0HKt
54T4lQL0/wxEHJTSgB1F8uIqRBx4Ui25Oya04AW5xY1HwYHQaKF+eos2uJWH
1F91Rti00WnOVxtiqwf9P+I4sJxTpyxmtGGssbgv36YQeDFyUsxFHcjoPli+
PbEIqN8yHQe36ILkUqSrpVopyiM0M9++FVK8nWh6FqVoP9yP0qpk0OrSc5P3
Q3ygksR1bzJgnHcefY8R1ueO3hbZBrUcZlUNuQztZ9MWohoFpu2nGg61laF5
Wp4Fn9oOxx4mvwqUrkDnIak0KkaF9JPXrL00KtC+FtOGtlNhWOE87/jOCpRv
/qwEjQoXrux7bXKyAvVT6B2rpkK03XTHimLEF0V0DvjshMe/9/WmWVcCXefc
Qm6fAWjbfhlrusNF+xHquTW0G5TCLY3o2Vw0370N7DVGIFecdWdlDeL1ampm
rY3gJ9GebDvMRfojZSZ1RtDeWBM4YFiF6iVjvJL3QBglcvHH5yrg+UoZybua
QJusoiLZtAZ4ri4hJ26awqW23ZAyW4v0hZ3mMftBhlz1+QWxDghliYOThfsh
N5YS80sF4aFunPNqP7yx3thDM68D+ndmmK+kOWx5pRiozUQ8weuDTIw5DD4X
5Ffsqgc6k8tuSbAAy3/zZHhhDcDyftXzX8kBWMuVHxASegK8/sFWCYoNVA+b
tb42forOp9v0iJIDPPV5oOw81QzU6/XdUY4nYE7HRLb4/HPQv7NqYHWAGwgv
FMopa78EQpAMz+i0JxgsuVXbl7QCvW6yruX8WWiNorY92/wa6LdL+pLrfUE9
fnKB86UdWGLXFWM/+cPk/OBAN6UDeEE/oqt8AiF3ov6lzN1O4HFLjpw8Hgwy
qgUCPr8LCCqxTolnQyHGu8orS+st8PL/BGT7/Q3fTQv5Z8PfAc9t7ZQjPxyC
djRz1zS9B7oKiSKcFwmDJc133mj0Au/b8KJ34nX45dOVphvWB9T5OC+NeAZs
2bti0au+H6gp36Xcw2+CZY4GvXztANB3+K3ilkTDJdVTmh9dB4EQ6LbuJe8O
6E0dk3xnMwSEw/xx9lwsrJL9Smz+OQQ8hdnIeUo8iD5JK92Q/hEqVVwawlwT
4By1vkfi0DCwFIdcxYvuQeHB01n/fB+GiBP7VgUQkmBuUkluhPkJqD+kPWst
70OVvaVI0n4+UI3uNkAVE8IPMDK5Iwj/vv+SppgCGh+s3rMZn4FuI1zUcTEV
jHZFJZF2jMBosdg8vsQCV7XXC0KdI0Dv7v7VEpIOcy9jh/0jR4FqTL4grZIB
KaK0IDutMSB83MSmoXtp1UBVjnDzGNjMUuf/ZGaB2JVIh90B41Cp7MUPDs8G
AodWOqwwAd8Mmv06HHLgL1ZprMLTCeCW9Iwa72XD4y23iPJ+k9ArJUVnkXNB
3uovvWsyUyAdMplcLZcH/VvbO0MbpoBXbmrxZ2U+lGWAFp82DRttx2f8FvLh
ZKmBvOriNBTs27i6aLQAIhjZkf34FyCUF/B1BQ+heEw1TcZaAL2bpvc8HufA
rQcMt4HDAjDlzPjofOGAp920domtAOhGYbNx/3FApaGhzMZJAEE6a9d6/uLA
7TiXZzGnBbDx9BWWnDQOZw1SZ1aGCqCgeCQ1DN1zmlGKB1bkI/2z9LB7l3BY
NPxb+t1D1K/mx4L43zj0TH/qyC9EfmZvOy9H4BDvVHnSolwANt9XJ3tF47C0
2S6Q0YBweL6LaRoO/W/iMkQ6BRCrIfJB9AkOj27Me3R2C4CbHSga3oRD0p5T
uuz3CGucubHwHIdDeWTuvgEBREi8ShW041AXwnsROS4A6lj24uAwDsytO+Ns
pwTA6iL9dB3FIWA43UFDIADpdIWjvZM4bLL2HWycRfsovyH5dhYHUaGu3Ph5
AYz+FApwWMBhqGqPj9tP5Ld2kdL5B4cGH/Y2yh+kF7t8yE64EJLVJeeWlgTQ
2BTS+Ea8EP4HGxOmzg==
       "]]},
     Annotation[#, "Charting`Private`Tag$2391302#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0., 0.05278640245922572}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.770356084792018*^9, {3.770356134544322*^9, 3.770356143511516*^9}},
 CellLabel->
  "Out[300]=",ExpressionUUID->"9ffec83b-d0f8-423f-a1e2-ae43ef4e1d2b"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "t", 
       SqrtBox[
        RowBox[{"1", "-", "r"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{"r", "+", "\[Rho]"}]], "+", 
         SqrtBox[
          RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", " ", 
      RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "5"}]}]}], "}"}]}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], "-", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}]}], ")"}], " ", 
       SqrtBox[
        RowBox[{"\[Rho]", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Sec", "[", "\[Theta]", "]"}]}], ")"}]}]], " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"Sec", "[", "\[Theta]", "]"}]}]}]]}], "+", 
      RowBox[{"2", " ", "t", " ", "u", " ", "\[Rho]", " ", 
       RowBox[{"Sec", "[", "\[Theta]", "]"}]}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "5"}]}]}], "}"}]}], ",", "\[Theta]"}], "]"}], "//", 
  "N"}]}], "Input",
 CellChangeTimes->{{3.7698577222036953`*^9, 3.769857728371703*^9}, {
   3.769857812579679*^9, 3.769857817293008*^9}, 3.76985792688951*^9, {
   3.7698583766911488`*^9, 3.7698583836476297`*^9}, {3.769859625740506*^9, 
   3.7698596308162193`*^9}, {3.769859788906003*^9, 3.769859866884253*^9}, {
   3.770128595201679*^9, 3.770128667646657*^9}, {3.77012874866327*^9, 
   3.770128751176725*^9}, {3.7701288213382*^9, 3.7701288996980133`*^9}, {
   3.770129854949966*^9, 3.770129882912075*^9}, {3.770129914133232*^9, 
   3.770129921473894*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"3079dade-4212-4852-ae2e-a66f9705c255"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", 
    RowBox[{"u_", ",", "\[Rho]_", ",", "g_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     RowBox[{
      SuperscriptBox["g", "6"], "/", "4"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
     SuperscriptBox["g", "4"]}], "+", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     SuperscriptBox["g", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         SuperscriptBox["u", "2"]}], ")"}]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.769749074538455*^9, 3.7697491466002913`*^9}, {
   3.769749182137764*^9, 3.769749202368525*^9}, {3.769749628430831*^9, 
   3.769749633965741*^9}, 3.7697504193282146`*^9, {3.7697940950168333`*^9, 
   3.7697941046920424`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"47098eaa-c301-497b-b033-5a7d8a32dcbc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", 
   RowBox[{"u_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"g", "/.", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{"u", ",", "\[Rho]", ",", "g"}], "]"}], "==", "0"}], ",", "g"}],
     "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7697925903529882`*^9, 3.769792637199944*^9}, {
  3.769794120379509*^9, 3.769794121684064*^9}, {3.7698414051648397`*^9, 
  3.769841410850704*^9}, {3.769841444403775*^9, 3.769841464322302*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"5ee6ce72-ef44-4e03-bc52-4c70b4bc001b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", "4", 
    "\[RightDoubleBracket]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Rho]", "\[Rule]", 
      RowBox[{"1", "/", "2"}]}]}], "}"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.769792711810236*^9, 3.769792712580525*^9}, {
  3.769793258727881*^9, 3.769793264978808*^9}, {3.769841518723165*^9, 
  3.769841520801928*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"bbd51da8-3e19-45cf-9e35-f657c5c0f246"],

Cell[BoxData["0.8328488950734688`"], "Output",
 CellChangeTimes->{{3.769792709939661*^9, 3.7697927130894547`*^9}, {
   3.7697932522289333`*^9, 3.769793266044853*^9}, 3.769793919800589*^9, 
   3.769794081086926*^9, 3.7698413256213207`*^9, {3.769841513902238*^9, 
   3.7698415211259737`*^9}, 3.76984166338842*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"c05e0271-9a11-4a60-b06e-8a53f9b4578b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"P", "[", 
    RowBox[{"1", ",", "1", ",", "g"}], "]"}], "==", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.769793198144259*^9, 3.7697932194251204`*^9}, {
   3.769793296944726*^9, 3.769793304173388*^9}, 3.769793869601375*^9, {
   3.769794127075485*^9, 3.7697941296947536`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"21f0cbc8-757a-47b7-8eba-b91d42a2eccb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.3515775842541429`"}], "+", 
      RowBox[{"0.43113551899421687`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.3515775842541428`"}], "-", 
      RowBox[{"0.4311355189942171`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.3515775842541429`", "\[VeryThinSpace]", "-", 
      RowBox[{"1.568864481005783`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.351577584254143`", "\[VeryThinSpace]", "+", 
      RowBox[{"1.568864481005783`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.769793220011045*^9, 3.76979325317179*^9, {3.769793299017099*^9, 
   3.769793304619994*^9}, 3.769793344185461*^9, {3.769793842771435*^9, 
   3.769793870016448*^9}, 3.769793921383347*^9, 3.769794082280046*^9, 
   3.769794130364052*^9, {3.769841326874785*^9, 3.769841343012429*^9}},
 CellLabel->"Out[8]=",ExpressionUUID->"9ebf38b7-42bb-4c18-8900-1374ed6075e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"P", "[", 
      RowBox[{"u", ",", "\[Rho]", ",", "g"}], "]"}], "==", "0"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"u", "\[Rule]", "1"}], ",", 
      RowBox[{"\[Rho]", "\[Rule]", "1"}]}], "}"}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7697937125596237`*^9, 3.769793761122312*^9}, {
  3.769793844714628*^9, 3.7697938672014427`*^9}, {3.769841333189975*^9, 
  3.7698413349076853`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"dbd86984-b154-440f-baaf-9dec9e028893"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.351577584254143`"}], "-", 
      RowBox[{"0.43113551899421687`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.351577584254143`"}], "+", 
      RowBox[{"0.43113551899421687`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.35157758425414287`", "\[VeryThinSpace]", "-", 
      RowBox[{"1.5688644810057832`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.35157758425414287`", "\[VeryThinSpace]", "+", 
      RowBox[{"1.5688644810057832`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7697937131362743`*^9, 3.7697937621339397`*^9}, {
   3.769793845951527*^9, 3.769793867595078*^9}, 3.769793922248815*^9, {
   3.7698413278498163`*^9, 3.769841340631589*^9}},
 CellLabel->"Out[7]=",ExpressionUUID->"8652c11a-3eda-4fd2-a291-f7fcf254f84b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"r", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", 
     RowBox[{"Length", "[", "r", "]"}]}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"d5567f4c-535b-4bca-bed7-fde3f430be9a"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.769793950038518*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"7b0bd822-395c-4044-a842-551412d893fe"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.769841385213715*^9},ExpressionUUID->"4cfff343-bf56-4574-9844-\
7b63b34027fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", 
   RowBox[{"u", ",", "\[Rho]"}], "]"}], "\[LeftDoubleBracket]", "1", 
  "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.769841437116569*^9, 3.7698414388345346`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"e29a9593-075b-41af-93c3-58e72e12f6b4"],

Cell[BoxData[
 RowBox[{"Root", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["\[Rho]", "4"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Rho]", "6"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], " ", "u", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"8", " ", "u", " ", 
         SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", "#1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], " ", 
         SuperscriptBox["\[Rho]", "2"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"12", " ", 
         SuperscriptBox["\[Rho]", "4"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "4"]}]}], ")"}], " ", 
      SuperscriptBox["#1", "2"]}], "+", 
     RowBox[{"8", " ", "u", " ", 
      SuperscriptBox["\[Rho]", "2"], " ", 
      SuperscriptBox["#1", "3"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        RowBox[{"12", " ", 
         SuperscriptBox["\[Rho]", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["u", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"]}]}], ")"}], " ", 
      SuperscriptBox["#1", "4"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "+", 
        SuperscriptBox["u", "2"]}], ")"}], " ", 
      SuperscriptBox["#1", "6"]}]}], "&"}], ",", "1"}], "]"}]], "Output",
 CellChangeTimes->{{3.769841432938861*^9, 3.769841449428337*^9}},
 CellLabel->"Out[21]=",ExpressionUUID->"aec9885d-6c9a-45f4-8d31-063fb57b5dad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Minimize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "t", 
         SqrtBox[
          RowBox[{"1", "-", "r"}]], "  ", 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{"r", "+", "\[Rho]"}]], "+", 
           SqrtBox[
            RowBox[{"r", "-", "\[Rho]"}]]}], ")"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "t", " ", "u"}]}], "/.", 
       RowBox[{"t", "\[Rule]", "1"}]}], ",", "r"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "1", ",", "2", ",", "1"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.769964107429474*^9, 3.769964153460167*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"a9e1165e-ea73-471a-afe0-3a84e1232b54"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.769964140265679*^9, 3.769964177310896*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"958485bb-951b-4482-a938-f224b921020d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", "=", "1"}], "}"}], ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "\[Rho]", ",", 
       RowBox[{
        RowBox[{"Minimize", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["q", "2"], " ", "t", " ", "u"}], "-", 
           RowBox[{"2", " ", "q", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              SuperscriptBox["q", "2"]}]], " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox["\[Rho]", 
                 SuperscriptBox["q", "2"]]}]], "+", 
              SqrtBox[
               RowBox[{"1", "+", 
                FractionBox["\[Rho]", 
                 SuperscriptBox["q", "2"]]}]]}], ")"}]}]}], ",", "q"}], "]"}],
         "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "1", ",", "2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "1", ",", "2", ",", "1"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.769847641673624*^9, 3.769847676458802*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3df0cd8e-7ba8-4531-8fe7-2d29ae372127"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "\[Infinity]"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2", ",", "\[Infinity]"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.769847641111518*^9, 3.7698476772886543`*^9}},
 CellLabel->"Out[22]=",ExpressionUUID->"3dfc2c77-e5bb-4f67-b27d-419ab9e57a6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769792640621706*^9, 3.7697926493596067`*^9}, {
   3.769792690770544*^9, 3.769792727123399*^9}, {3.769792774917027*^9, 
   3.7697928673720293`*^9}, {3.769792909019096*^9, 3.769793072562764*^9}, {
   3.769793111005632*^9, 3.7697931447941732`*^9}, {3.76979318180264*^9, 
   3.769793183367679*^9}, 3.769793945210142*^9, {3.769794140210774*^9, 
   3.769794142399776*^9}, {3.769841376727005*^9, 3.7698413870056562`*^9}, {
   3.7698414234764338`*^9, 3.769841425418851*^9}, {3.7698414792203693`*^9, 
   3.769841502411181*^9}, {3.769841533523394*^9, 3.7698416314346247`*^9}, {
   3.7698476215977488`*^9, 
   3.7698476308207893`*^9}},ExpressionUUID->"dc644195-e9ad-41a5-b086-\
7ed1f2b37bf9"],

Cell[BoxData[
 Graphics3DBox[{{}, {}},
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->800,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{Full, Full, All},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.769841574696342*^9, 3.769841632210881*^9}},
 CellLabel->"Out[39]=",ExpressionUUID->"e0bdb352-1e77-4290-9645-c811b5f572e3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"r", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", 
        RowBox[{"Length", "[", "r", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]], "Input",ExpressionUUID->\
"4865a237-ef93-4783-aead-69d82a6d8af1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["f", 
      RowBox[{"1", ",", "1", ",", 
       RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7697499413957043`*^9, 3.7697499610915823`*^9}, {
  3.769750012947307*^9, 3.769750019083115*^9}, {3.769750074051838*^9, 
  3.769750108603065*^9}, {3.769750159450975*^9, 3.7697501861049023`*^9}, {
  3.769750318802202*^9, 3.769750320095459*^9}, {3.769750360961224*^9, 
  3.769750371624485*^9}, {3.769751649046699*^9, 3.769751650605627*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"c7b8fdea-8583-478d-be12-78036f368150"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5752766836983292`"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8328488950734688`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.769749948712681*^9, 3.7697499617703743`*^9}, {
   3.769750064520186*^9, 3.769750109383935*^9}, {3.769750159923346*^9, 
   3.7697501868957043`*^9}, 3.769750320603259*^9, {3.769750361883934*^9, 
   3.769750372422509*^9}, {3.76975164485275*^9, 3.769751651352551*^9}, 
   3.769791683042017*^9, 3.769843780725547*^9, 3.769847039301456*^9, 
   3.769857853235078*^9, 3.770128796219039*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"52dfe59a-f65f-4f83-9b10-b89ab24d5da8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", 
     RowBox[{"1", ",", 
      RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], "\[Equal]", "0"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", 
       RowBox[{"1", ",", 
        RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g"}], "]"}], 
   "\[Equal]", "0"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", 
       RowBox[{"1", ",", 
        RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g", ",", "g"}], 
    "]"}], "\[Equal]", "0"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", 
       RowBox[{"1", ",", 
        RowBox[{"1", "/", "2"}]}]], "[", "g", "]"}], ",", "g", ",", "g", ",", 
     "g"}], "]"}], "\[Equal]", "0"}], "]"}]}], "Input",
 CellChangeTimes->{{3.769751418319653*^9, 3.769751458366938*^9}, {
   3.769751578576105*^9, 3.7697515826781683`*^9}, {3.7697517117912607`*^9, 
   3.76975171504522*^9}, {3.769752008508903*^9, 3.769752014779024*^9}, 
   3.769791672384102*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"d6befea5-edd3-4a4c-a262-c461a1809b1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.7954035498236839`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.37846502430466705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.17000816205561733`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.2555139205552498`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.9025013479435103`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.2555139205552498`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.9025013479435103`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8328488950734688`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7697514247063007`*^9, 3.769751458726712*^9}, 
   3.769751614229424*^9, 3.769751715424708*^9, 3.769752015142362*^9, {
   3.769791675896721*^9, 3.769791683539646*^9}, 3.769793280360806*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"030b0933-0c61-4f3e-8df7-7c22766d3e8f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.6597943962137325`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.2739806373768705`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.18120716959283995`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.6717585707183245`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.18120716959283995`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.6717585707183245`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.571360694404923`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7697514247063007`*^9, 3.769751458726712*^9}, 
   3.769751614229424*^9, 3.769751715424708*^9, 3.769752015142362*^9, {
   3.769791675896721*^9, 3.769791683539646*^9}, 3.769793280379157*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"9b51bc86-44cd-4bff-9dea-ef533f7d8eab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.5095880907034771`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.12057780007384578`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.4247434731188307`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.12057780007384578`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.4247434731188307`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.2684324905557855`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7697514247063007`*^9, 3.769751458726712*^9}, 
   3.769751614229424*^9, 3.769751715424708*^9, 3.769752015142362*^9, {
   3.769791675896721*^9, 3.769791683539646*^9}, 3.769793280390409*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"17f5ebd7-c3c1-4b27-bfe2-971d0c3c7137"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.2714417616594907`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.13572088082974534`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.23507546124511974`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.13572088082974534`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.23507546124511974`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7697514247063007`*^9, 3.769751458726712*^9}, 
   3.769751614229424*^9, 3.769751715424708*^9, 3.769752015142362*^9, {
   3.769791675896721*^9, 3.769791683539646*^9}, 3.7697932804008007`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"dbe18b9b-9644-437c-8dc1-5d84490bcb0b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CoefficientList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["P", 
       RowBox[{"u", ",", "\[Rho]"}]], "[", "g", "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["g", "2"], "+", 
        SuperscriptBox["x", "2"]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SuperscriptBox["g", "4"]}], "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["g", "3"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["g", "2"]}], "+", 
        RowBox[{"d", " ", "g"}], "+", "e"}], ")"}]}]}], "//", "Expand"}], ",",
    "g"}], "]"}]], "Input",
 CellLabel->"In[21]:=",ExpressionUUID->"6da217c3-be12-4aac-b6a6-9a483285b02f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "e"}], " ", 
     SuperscriptBox["x", "2"]}], "-", 
    SuperscriptBox["\[Rho]", "4"], "+", 
    SuperscriptBox["\[Rho]", "6"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "d"}], " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"2", " ", "u", " ", 
     SuperscriptBox["\[Rho]", "2"]}], "+", 
    RowBox[{"2", " ", "u", " ", 
     SuperscriptBox["\[Rho]", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "e"}], "-", 
    RowBox[{"c", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Rho]", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["u", "2"], " ", 
     SuperscriptBox["\[Rho]", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["\[Rho]", "4"]}], "+", 
    RowBox[{
     SuperscriptBox["u", "2"], " ", 
     SuperscriptBox["\[Rho]", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "d"}], "-", 
    RowBox[{"b", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"2", " ", "u", " ", 
     SuperscriptBox["\[Rho]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "-", "c", "-", 
    RowBox[{"a", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["\[Rho]", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["u", "2"], " ", 
     SuperscriptBox["\[Rho]", "2"]}]}], ",", 
   RowBox[{"-", "b"}], ",", 
   RowBox[{"1", "-", "a", "+", 
    FractionBox[
     SuperscriptBox["u", "2"], "4"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7697918174797487`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"6c80b8bf-c8f4-4e8f-8960-0f7574dccd92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"CoefficientList", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["P", 
          RowBox[{"u", ",", "\[Rho]"}]], "[", "g", "]"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["a", "1"], " ", 
            SuperscriptBox["g", "3"]}], "+", 
           RowBox[{
            SubscriptBox["a", "2"], " ", 
            SuperscriptBox["g", "2"]}], "+", 
           RowBox[{
            SubscriptBox["a", "3"], " ", "g"}], " ", "+", 
           SubscriptBox["a", "3"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["b", "1"], " ", 
            SuperscriptBox["g", "3"]}], "+", 
           RowBox[{
            SubscriptBox["b", "2"], " ", 
            SuperscriptBox["g", "2"]}], "+", " ", 
           RowBox[{
            SubscriptBox["b", "3"], "g"}], "+", " ", 
           SubscriptBox["b", "4"]}], ")"}]}]}], "//", "Expand"}], ",", "g"}], 
     "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["b", "1"], ",", "a", ",", "b", ",", "c", ",", "d", ",", 
     "e"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769791696367091*^9, 3.769791813124956*^9}, {
  3.769791845369442*^9, 3.769791856813035*^9}, {3.7697920048238983`*^9, 
  3.769792046505773*^9}},ExpressionUUID->"6c8e6feb-f184-4467-93cf-\
b867476110e9"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.769791752356474*^9, 3.769791813629053*^9}},
 CellLabel->"Out[20]=",ExpressionUUID->"1439c8a1-d279-41bf-933d-49d1554bd64c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", 
     RowBox[{"u", ",", "\[Rho]"}]], "[", "g", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["u", "2"], ")"}], "2"]}], ")"}], 
     SuperscriptBox["g", "6"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], "-", "1"}], ")"}], 
     SuperscriptBox["g", "4"]}], "+", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     SuperscriptBox["g", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"3", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       SuperscriptBox["u", "2"]}], ")"}], 
     SuperscriptBox["g", "2"]}], "-", 
    RowBox[{"2", "u", " ", 
     SuperscriptBox["\[Rho]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}], "g"}], "-", 
    RowBox[{
     SuperscriptBox["\[Rho]", "4"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7697504225944*^9, 3.7697505289662743`*^9}, {
   3.769750565528165*^9, 3.76975066429338*^9}, 3.7697509962840433`*^9, {
   3.769751300914822*^9, 3.769751307179183*^9}, {3.769754019606031*^9, 
   3.769754039500619*^9}, {3.769754137612887*^9, 3.769754172452591*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"83b87e30-a54f-4a86-9434-07541284cc2f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.769750443362281*^9, 3.769750529333398*^9}, {
   3.7697505700685053`*^9, 3.7697506648980713`*^9}, {3.769750986403057*^9, 
   3.7697509987099247`*^9}, 3.7697510791058893`*^9, {3.769751303523016*^9, 
   3.769751308095502*^9}, 3.769754041038148*^9, {3.769754162467993*^9, 
   3.769754174115981*^9}},
 CellLabel->
  "Out[173]=",ExpressionUUID->"c699681a-7408-4f25-b637-7a3f764c7371"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["r", "2"], "\[Equal]", 
      RowBox[{
       SuperscriptBox["g", "2"], "+", 
       SuperscriptBox["\[Rho]", "2"]}]}], ",", 
     RowBox[{"R", "\[Equal]", 
      RowBox[{"g", " ", "\[Rho]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "g"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7697524488079023`*^9, 3.769752499649335*^9}, {
  3.7697525599044743`*^9, 3.769752560118855*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"eec8d853-025d-45f9-9d74-d509511b7377"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "-", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "4"], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}]}]]}]], 
        SqrtBox["2"]]}]}], ",", 
     RowBox[{"g", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SqrtBox["2"]}], " ", 
         SuperscriptBox["r", "2"], " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "-", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r", "4"], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"]}]}]]}]]}], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "-", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["r", "4"], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}]}]]}], ")"}], 
          RowBox[{"3", "/", "2"}]], 
         SqrtBox["2"]]}], 
       RowBox[{"2", " ", "R"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "4"], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["R", "2"]}]}]]}]], 
       SqrtBox["2"]]}], ",", 
     RowBox[{"g", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "-", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r", "4"], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"]}]}]]}]]}], "-", 
        RowBox[{
         SqrtBox["2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "-", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["r", "4"], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}]}]]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]}], 
       RowBox[{"4", " ", "R"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "4"], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}]}]]}]], 
        SqrtBox["2"]]}]}], ",", 
     RowBox[{"g", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SqrtBox["2"]}], " ", 
         SuperscriptBox["r", "2"], " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r", "4"], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"]}]}]]}]]}], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["r", "4"], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}]}]]}], ")"}], 
          RowBox[{"3", "/", "2"}]], 
         SqrtBox["2"]]}], 
       RowBox[{"2", " ", "R"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "4"], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["R", "2"]}]}]]}]], 
       SqrtBox["2"]]}], ",", 
     RowBox[{"g", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r", "4"], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"]}]}]]}]]}], "-", 
        RowBox[{
         SqrtBox["2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["r", "4"], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}]}]]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]}], 
       RowBox[{"4", " ", "R"}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.769752481500514*^9, 3.769752500180037*^9}, 
   3.769752560549706*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"8d3e1778-b488-4a34-9fb4-515a7499454c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["g", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["g", "2"], "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
     RowBox[{"2", 
      SuperscriptBox["\[Rho]", "2"]}]}], 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["g", "2"], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "\[Rule]", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", 
     RowBox[{"g", "\[Rule]", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.769752447080559*^9, 3.769752447545535*^9}, {
  3.7697524905372963`*^9, 3.769752506754842*^9}, {3.769752600185113*^9, 
  3.7697526762783957`*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"c76b6a7a-70f4-40fa-a1f2-1f854dfe6c23"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"3", "-", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["r", "2"]}]], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["r", "2"]}]]}], ")"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.769752493503448*^9, 3.769752507543591*^9}, {
  3.769752609593133*^9, 3.769752677197219*^9}},
 CellLabel->
  "Out[166]=",ExpressionUUID->"5c2c80b4-64a0-4298-bbc9-0e8fd7f6f7eb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["h", "\[Rho]_"], "[", "g_", "]"}], ":=", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["g", "2"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["g", "2"], "-", 
          SuperscriptBox["\[Rho]", "2"]}]]}], ")"}]}], "+", 
     RowBox[{"2", 
      SuperscriptBox["\[Rho]", "2"]}]}], 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["g", "2"], "+", 
       SuperscriptBox["\[Rho]", "2"]}], ")"}]}]]}], ";", 
  RowBox[{
   RowBox[{
    SubscriptBox["H", "\[Theta]_"], "[", "r_", "]"}], ":=", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"3", "-", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["r", "2"]}]], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["r", "2"]}]]}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.769752428600481*^9, 3.7697524392239323`*^9}, {
  3.769752696350314*^9, 3.7697527045510902`*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"7222bf2c-99a8-48c5-a253-94a761d6d205"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["H", "\[Theta]"], "[", "r", "]"}], ",", "r"}], "]"}], 
       "-", 
       FractionBox["1", "u"]}], "\[Equal]", "0"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "2"}]}]}], "}"}]}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{
  3.7697527111741343`*^9, {3.7697527710959806`*^9, 3.7697527757651367`*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"21289cbb-d33a-423c-8324-5de1e3653ad6"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.7697527153126717`*^9, 3.7697527773169107`*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"1dd7c7da-19e3-4861-9c1f-a62900eeb174"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["h", "\[Rho]"], "[", "g", "]"}], ",", "g"}], "]"}], 
       "-", 
       FractionBox["1", "u"]}], "\[Equal]", "0"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "2"}]}]}], "}"}]}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7697507868049383`*^9, 3.769750825244507*^9}, {
   3.769750900501114*^9, 3.7697509307230997`*^9}, 3.769752406681958*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"8a64287a-7458-4b8c-ad58-d65854a5b228"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.37846502430466716`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"-", "0.17000816205561733`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", "0.8328488950734688`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.25551392055524985`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.9025013479435102`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", "\[Rule]", 
     RowBox[{"0.25551392055524985`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.9025013479435102`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7697507898308363`*^9, 3.7697508258030367`*^9}, {
   3.769750916826145*^9, 3.769750931146068*^9}, 3.769752377392754*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"e8a5d5a3-ea35-4e73-8da9-79c568f43648"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["h", "\[Rho]"], "[", "g", "]"}], ",", "g"}], "]"}], 
       "-", 
       FractionBox["1", "u"]}], "\[Equal]", "0"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"1", "/", "2"}]}]}], "}"}]}], ",", "g"}], "]"}], "//", 
  "N"}]], "Input",ExpressionUUID->"bcd94a8a-7897-48bd-9455-37da54478ae6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", 
     RowBox[{"u", ",", "\[Rho]"}]], "[", "g", "]"}], ",", "u"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", 
     RowBox[{"u", ",", "\[Rho]"}]], "[", "g", "]"}], ",", "\[Rho]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.76975132003237*^9, 3.76975133799391*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"a36f76f4-68fa-4561-8df8-bd6e20b1c0be"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["g", "4"]}], "+", 
  SuperscriptBox["g", "6"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["g", "2"], " ", 
   SuperscriptBox["\[Rho]", "2"]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["g", "4"], " ", 
   SuperscriptBox["\[Rho]", "2"]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["g", "2"], " ", 
   SuperscriptBox["\[Rho]", "4"]}], "-", 
  RowBox[{
   SuperscriptBox["\[Rho]", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Rho]", "2"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["u", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox["g", "6"], "4"], "-", 
     RowBox[{
      SuperscriptBox["g", "2"], " ", 
      SuperscriptBox["\[Rho]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["g", "4"], " ", 
      SuperscriptBox["\[Rho]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["g", "2"], " ", 
      SuperscriptBox["\[Rho]", "4"]}]}], ")"}]}], "+", 
  RowBox[{"u", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["g", "3"], " ", 
      SuperscriptBox["\[Rho]", "2"]}], "-", 
     RowBox[{"2", " ", "g", " ", 
      SuperscriptBox["\[Rho]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["\[Rho]", "2"]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.769751323950766*^9, 3.769751338490199*^9}},
 CellLabel->"Out[84]=",ExpressionUUID->"cad5e6d7-39d7-4da0-9fd5-9f1cb1c28674"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["g", "4"]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["g", "6"], " ", 
   RowBox[{"(", 
    RowBox[{"4", "+", 
     SuperscriptBox["u", "2"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["g", "2"]}], "-", 
     RowBox[{"2", " ", "g", " ", "u"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["g", "3"], " ", "u"}], "-", 
     RowBox[{
      SuperscriptBox["g", "2"], " ", 
      SuperscriptBox["u", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["g", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}]}], ")"}], " ", 
   SuperscriptBox["\[Rho]", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"2", " ", "g", " ", "u"}], "+", 
     RowBox[{
      SuperscriptBox["g", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["u", "2"]}], ")"}]}]}], ")"}], " ", 
   SuperscriptBox["\[Rho]", "4"]}], "+", 
  SuperscriptBox["\[Rho]", "6"]}]], "Output",
 CellChangeTimes->{{3.769751323950766*^9, 3.7697513384933157`*^9}},
 CellLabel->"Out[85]=",ExpressionUUID->"75d68554-6b55-41f1-b121-347b315c9ee0"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[ScriptCapitalP]\[ScriptCapitalT]-symmetric Hubbard dimer", "Title",
 CellChangeTimes->{{3.771205861440907*^9, 3.7712058664457693`*^9}, {
  3.771205958757778*^9, 3.771205960876582*^9}, {3.785043242055691*^9, 
  3.785043251205803*^9}},ExpressionUUID->"e75b218f-09df-4601-b6e9-\
d148180ea962"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{
           RowBox[{"2", 
            SubscriptBox["v", "1"]}], "+", "U"}], 
          RowBox[{"-", "t"}], "t", "0"},
         {
          RowBox[{"-", "t"}], "0", "0", 
          RowBox[{"-", "t"}]},
         {"t", "0", "0", "t"},
         {"0", 
          RowBox[{"-", "t"}], "t", 
          RowBox[{
           RowBox[{"2", " ", 
            SubscriptBox["v", "2"]}], "+", "U"}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["v", "1"], "+", 
         SubscriptBox["v", "2"]}], ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"1", "0", "0", "0"},
          {"0", "1", "0", "0"},
          {"0", "0", "1", "0"},
          {"0", "0", "0", "1"}
         }], "\[NoBreak]", ")"}]}], "+", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           RowBox[{
            RowBox[{"-", "\[CapitalDelta]v"}], "+", "U"}], 
           RowBox[{"-", "t"}], "t", "0"},
          {
           RowBox[{"-", "t"}], "0", "0", 
           RowBox[{"-", "t"}]},
          {"t", "0", "0", "t"},
          {"0", 
           RowBox[{"-", "t"}], "t", 
           RowBox[{"\[CapitalDelta]v", "+", "U"}]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}]}], "/.", 
    RowBox[{"\[CapitalDelta]v", "\[Rule]", 
     RowBox[{
      SubscriptBox["v", "2"], "-", 
      SubscriptBox["v", "1"]}]}]}], "/.", 
   RowBox[{
    SubscriptBox["v", "2"], "\[Rule]", 
    RowBox[{"-", 
     SubscriptBox["v", "1"]}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.743416199862018*^9, 3.7434163097907667`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"079743cb-f4a2-4c2f-9984-e349fe4c91c8"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7712059192427483`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"fc82173d-e151-413c-a17e-191b4cb744b7"]
}, Open  ]],

Cell["\<\
\[LeftBracketingBar]1\[UpArrow]1\[DownArrow]\[RightAngleBracket], \
\[LeftBracketingBar]1\[UpArrow]2\[DownArrow]\[RightAngleBracket],\
\[LeftBracketingBar]1\[DownArrow]2\[UpArrow]\[RightAngleBracket],\
\[LeftBracketingBar]2\[UpArrow]2\[DownArrow]\[RightAngleBracket]
\t\t\t\[DownArrow] \[ScriptCapitalP] = site flip
\[LeftBracketingBar]2\[UpArrow]2\[DownArrow]\[RightAngleBracket], \
\[LeftBracketingBar]2\[UpArrow]1\[DownArrow]\[RightAngleBracket],\
\[LeftBracketingBar]2\[DownArrow]1\[UpArrow]\[RightAngleBracket],\
\[LeftBracketingBar]1\[UpArrow]1\[DownArrow]\[RightAngleBracket]
\t\t\t\[DownArrow] \[ScriptCapitalT] = spin flip
\[LeftBracketingBar]2\[DownArrow]2\[UpArrow]\[RightAngleBracket], \
\[LeftBracketingBar]2\[DownArrow]1\[UpArrow]\[RightAngleBracket],\
\[LeftBracketingBar]2\[UpArrow]1\[DownArrow]\[RightAngleBracket],\
\[LeftBracketingBar]1\[DownArrow]1\[UpArrow]\[RightAngleBracket]
\t\t\t\t\
\>", "Text",
 CellChangeTimes->{{3.7709928960965157`*^9, 3.770992996780879*^9}, {
  3.7712060368080997`*^9, 3.7712061716780777`*^9}, {3.7712062019332647`*^9, 
  3.771206235439892*^9}},ExpressionUUID->"cc6381b1-d269-4739-acd6-\
022b42dd72b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Epsilon]", "2"], "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[CapitalDelta]v"}], "+", " ",
          "U"}], 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], 
        RowBox[{"\[ImaginaryI]", " ", "t"}], "0"},
       {
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], "0", "0", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}]},
       {
        RowBox[{"\[ImaginaryI]", " ", "t"}], "0", "0", 
        RowBox[{"\[ImaginaryI]", " ", "t"}]},
       {"0", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}], 
        RowBox[{"\[ImaginaryI]", " ", "t"}], 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]v"}], "+", "U"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "]"}], "//",
    "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.7709931637513514`*^9, 3.770993176590556*^9}, {
   3.7709932777367*^9, 3.77099327942887*^9}, {3.770993331447741*^9, 
   3.7709933322409363`*^9}, {3.770993413457896*^9, 3.7709934163221416`*^9}, 
   3.7709936625721397`*^9, 3.770993722454412*^9, {3.771206428657599*^9, 
   3.771206431871594*^9}, {3.771206519978797*^9, 3.7712065229706783`*^9}, 
   3.771206569353891*^9, {3.771206628498452*^9, 3.7712066691935263`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"bdc80fef-6fc8-4f09-8b2e-f6d88347d013"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "+", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "+", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "+", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.770993302172084*^9, 3.770993332749916*^9, 3.7709934168909473`*^9, {
   3.77099365044234*^9, 3.7709936630184927`*^9}, 3.770993723283189*^9, 
   3.7709937649233932`*^9, 3.770994014549814*^9, 3.7710006872846107`*^9, 
   3.7712064325327187`*^9, 3.771206524187331*^9, 3.771206570707638*^9, {
   3.771206647351513*^9, 3.77120666969728*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"f463f8f7-a5fa-4b1a-8e5b-a8ea5823670a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "=", 
         FractionBox["1", "2"]}], ",", 
        RowBox[{"U", "=", "1"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "[", 
          RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E(N=2)\>\""}], 
          "}"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "=", 
         FractionBox["1", "2"]}], ",", 
        RowBox[{"U", "=", "1"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"Im", "[", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]v", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[CapitalDelta]v\>\"", ",", "\"\<E(N=2)\>\""}], 
          "}"}]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.770994016421832*^9, 3.7709941054050503`*^9, {3.770995492452344*^9, 
   3.770995499495879*^9}, {3.771206446269553*^9, 3.771206500861327*^9}, {
   3.77120654089363*^9, 3.77120660388011*^9}, {3.771206653082106*^9, 
   3.771206657227775*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"fd945fd1-c085-43ab-9601-e5ba3dd810b1"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
          "]]},
        Annotation[#, "Charting`Private`Tag$5742#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Xk01ekfB3D714+aynA1ZSrkDjWilFC8vxmjmBZSKcnOqGRpWiyJkYzt
iquFElFCJCH3WrJzkTXMDVkSLZb7FZESft95zvmc57z++ZzP8zzvcx5FB4+D
ziJCQkJxdP23z/7hftfMw9NgYPG/RSHE6RfVFuZ+6NR56i7QbhIMnWIxbWD+
0+DwLO1MuZ57XQku0JyyEJ+gPZH3W6Qb0x3dh2tvvaW9Su3f4kX+WXju0r3b
TlvfO3xzfcIFaBdkyZXTtuMZpLHtfRGbv044g3YQY0rBmnkZu/Rv2EbRfplr
Uc+eDoSNudRmT9pO3erBX/hBuDAZcH4/7WlhSVgXBaNWaeZXtf/mVRv8Wp4Q
ArNhN0sh2vLmJfkqAaGY0R/63L5AId37pke4fTiqNluLP6D9gmc6bMGMQo74
/gBd2tkXZcysxaKx9Qvvw8I8hYsRAY+jpqOhmWZYU05bMu+Y6xSfDelLenxd
2q21tTUq9bEwruYs+fSdQny3lvLRouvYIKP97AHtDSI/9JUk3ESjqratMO1J
Ob8dFOsWFDW5do/mKBSrfYhTDIiDZPGOzgO095pXWoTY34aM9B756G8UPO5d
qD/ATIRngt/i8CwFnfy3zCD5JGg8WhZ/lraQk6qhldg9/KqXljr3hUL9xRtJ
kdP3cMBtUF6UtlWSh9UnfgpC527Yvf9MwUCNGRZudh8ivINsS9pKea85yvX3
UblFfnv1FIXRWhO5I0UP4P6qsIs9SeGSQLm1KOEhsub8r4hP0O/l3b1gIZeG
VzLX9h2jKBiJxKiPs9LA2PQkPENAYSljIXxtQDpuuSjaYJxCov6r34PtH+EH
0emT5AiFisjI4n3MbHz9sZcR95ZC6UhXo3RGNv7XlJeaNEihZM8vffUbn6BO
10Xy/hsKx0Xshe6vzMH1cTeTu/0UDpfOKa1d8xR/Z/xVZNtDwVR7s6u8Wh50
bqVZK7yksGeY73nhVB5yYuw3vmmlsPv6ZZ/OzDyssfijObmFnnfyRXjspnwo
LG+MZjTR95Ht8njZ1mcIbXD6XzOPghYzYZIABx0WCm3nSihs6TSccwnkQGxi
8d1MEQXN4I+itRUcHBLJbTtXSGHToLZcsBEXlakFKk4FFFQT27YLmRZiT2Vz
/fIcCgoMwn/2UDHGTm5dnpJCQVziLPHxVBkkPKyUUoMpfDAJWDaVVgad0p16
1UEUGliR8vNDZciaInL7AynwwttjQzXKsSO3qkLan0KEjOB+QkY5ZD70Oumc
pyCrpFxdfbcC8aGaHW+dKDB3scTkQqowGNpkHryLzv/bWMnbD6ow4BiUpgE6
v1dvL1lbVQW19x32/J0URurSZNWEqlHyRFFcQYfCE7PK9fq+1WA26izx3UTn
ze6LkbN7Dd4WZ+0PW0XBJMD+6rMjPLwO2+g1Qwmw5VqFcfI5Hv6t123bOS6A
QpKiJIvNg0PkQkXAiAATpW/CnZp5GMn6fmRuSICbC/bRPxrXIbts79H6LgGG
/B3ueG2rR1NGuWRFpQCBlxyfqsu+wPpum0+KbAE4Ps69qW3NkMlKr6lhCvDQ
4DR/1WQzdH3jjN4p0f1EvdquybTANCJ2QGStABdYl2p8LFpwuTflL015AbST
Yx/v62yBWUOi0glCgONDA6W+bq3oO5PJnn83jm7pZdeUPNvwu7/yO4f74+iy
Oq1x9mI7DHfkrV66Yhzhg7vdboW042XwKuWYJePQO7U+o+RGO2RavFbKSI4j
wadXichvx6NKl3apxTHYxR1gJEy0Q2DiyeWPjeF9p9Z8zckONMoyiwd4Y5g2
+97wk3UnfEVO7C7xG8OK3SyXCpKP+qgnWtI9o1je4Zy7/XgPinQiTCJOjEB5
nVvGVYd+/Gvp2nWV9wE6vWde7GK/ge/8a2Nb8j0qvgXu7bjzFuptwYURd4bh
WlZXVxo0DHbhZ76u0hDiHdNWydm9R5YoXtjWDkL96JuZBeeP6FH5Gso++QZ9
UweaSZNR/LO4cL4AA5js/0mTcXgc7/8aSw/W6kN0pu+flpYUUg0rmT6qr8Fc
JrnP+84EwhxXO3m5daPAMzAzKukTbu5cejD12St0qMQS5uxJOLQ6hwjT51p/
pV31RPwU4vbHisw2dULXrH9r0p3PYHrP3lgS1IFez6sGrMhpHMyd93J1bkeu
7rGlNTEzKAiML9pi8hKMI7yu9KtfINL2vdzzUBswKBRTeW4W7LDTrsPnWxHP
cF3K9P6Ko37COhq/tiAo8eQ/2059A5+T5uKX3oS7zXG1UZ5z6Fj33Uag2Ah/
99iJn89+h+HcisTa5w0YtVddecxhHgmGEnur/6lHxPyIWJ/LAtx1tdjZ++pQ
NLab+sFqERHb5Z8G76BzrqIzqLdeiEwxUy9XRi1c1Rw1YlOFyJzcIba6QQ0q
jhz327VGmHRNEYtdeqIaWkdHMmSThcn0+ZUzuRer4HbFmK+/WoTMmRaPNc2u
RKiL5DfhWBHy1RUr8/dTFXj+s/3iiKwoWapn3qCzrQKFCyGiG6JEyfWzRoPG
rHI05/02wlohRpa/uHSovbIMNetcaiPZYiT3e5jVyeBSBHMOJ7+REic13TTs
tE8/h7XSa5vjLHFyrPfsa0fTEswVaKzeSEiQwaeqz3SZFuOS6MfGG5clyG0N
qs9yrIvAWK9rryJEkGyJwyXkn4W46H7ks5QPQfJz7nxMZHGhoO1Ux/QjyD2Z
etKjYVyUz3slGPoTZEqM8rftIVxIsVhGvn8TZLa9wKDjMheJmdXXP4YRZI7U
RhuGJxe1H7Zsq7tNkBkZtyrKD3Ih67jswtUSgpTwHWRnreSicMPPpsmlBBnt
bD2xQo4Lm8kNa56XEyTxaI2s9wou0v82rv1cTZBdM/ceG0txseOeP8OpiSBN
uclK43McOPSOFhj2EeTh9tkhm34OiNSv4TYDBHmXcGO19nCQ5UbY+g4SZDWv
ctbwFQczc0pE7juCrNlqJL+hjYPwVVaWihRBRuUUnxGu4kBj8M+N+p8I0iTf
4xefMvpfyDi/eHSKICfSj6d8KuZgjW5MWvQXgjw4KtEzlM9BlVCSX9ZXgnyo
ah1n+5QD17qsA3VzBLlMW47R85iDJdFFykPzBJm/fd7C8hEHTy3rviwuEqSj
Y795x0MO/g+VjsO7
          "]]},
        Annotation[#, "Charting`Private`Tag$5742#2"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
          "]]},
        Annotation[#, "Charting`Private`Tag$5812#1"]& ], 
       TagBox[
        {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
          "]]},
        Annotation[#, "Charting`Private`Tag$5812#2"]& ], 
       TagBox[
        {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0mk4VX0XBvDDwT5KiRAqZTqGEinSU1k7CZXQQKaKkoTQhAyRqcKRIZ6E
kDKUlMiU/LfMKZI4RYj0hLMPIvP07vfDutb1+3Zf91qyZ9yPnuOl0Wil1Px/
Tx9ySzFz99AtNLYc8CnioDAHJeVmpgn0ZUe7+FL+ONzvzGKeAr29Wyf8KD8T
70z7luwI+JVdoQGURwv2Rboy3eCf0Py1wZSlVdrfLLEvQ2BmQsktynu8w7c2
JHuCyciwDYuyXZ1uVqy9DwzYIf57lIMkxtfZMm/AjV8ripIof351rCF2IhD0
zXpdH1N26FALmWIHgffJvap5lCd4GGBbFgLmr7SHS/6fV6VvhkgOA7Wu9yXV
lNccKS9UDLgNF8wZ4S2Us70T3MPtw+GO76x9D+XGuoO/jjGjAHq3MBcp53mJ
mtnyRUOxe6SocDEHeUUEPI+aiIZfB9r4ZSkzCqycxtmxsCL0Ao8R5U+1tTWK
DXGwO4AteJJyYsc2ecuye/Bo6prUFcqqvCu7y5MT4FxKnMkjymPivrtGWP9C
7YvdV99QfqMycF824D6ELnNOb6NsfOTdsTD7B3Dp4gvRFSUc5J7m2WDKfAi6
XdnHblPWKfzJDFqTCkFVW0tyKNMclPWs+dJAy1ZU8QPlBq/41MiJNCgrNZcU
K+Ug61R36z/sRzC7cM3pJWVdFeadcLMMODtosLqDslzB92L5hgxgBvnX8ZVx
EKf2gLhF2WNwUyw0PknZb1j+U1lyJnwJe9Ik/Ya6l3fH4jHxLJipnqs3pqzP
G6PGZWVBnBOtKYDyConF8A0B2eBS/H56gPLDPV/3h9g/BZi8215XzkGVkZFv
DjPzwCHDqKe4goMqhr59WJ6TBy7TkvtpiIPKjZS6Gza9AP8gzYEDlG147WkZ
ki/hs+C13z8om1fMyW2QyYeCtKHP6ys56KD2Vqc1KgWQyHs+q7WKg4x+sT08
nQtgn90thkY1Bxneu3G97VkB6GWY57Io6481hsdtKYS1eNBb4xqqjzzH58Lb
X0OplYhIRy0HbWMmj2FQDA2q01+3vucgzTa9OcfAYjBSc4p/RFkjZJBeW1kM
kvnaSWKNHLSlT1s8RL8E0mQaQuYpKz9s2UE7WArqerxdnR85aJ0E5j99/A04
GAit+tbCQfwCl7FBZwT7tYV0Wjo4aOBAgPB4FoIg902f7Ds56D0rcs1CP4Jr
C6EJ45TrwlvjbqsTIO48/UK6i4MiRIczknMIeJtnreDVw0FicvLV1SmV4Byb
G36hn4OYe1l84mFVsN6rAnRGqP//Gcd48LgKIqIWX4xQZoQ+ENpQVQUbA2vs
skc5aKg+S0yFVg3pL66FrR/joBdm7xT2+FSDtJf3X4kJ6t/spvTPudWAcaHS
iMEcBx0IsA99bVEHxqsdtNIYJNK8W2mQfrUOFFpFH/gJkmhdqiyDFVsHR6VN
jayXkWi0ojfcoakOttceCZESIlHCon30aoN6+HKjKypLmET9/meSLmk1gFr3
TBzvGhIF+p3NVxNrBPOVzeWlTBI5R1ZdltJshKoB/wZCiUTHk+W385s1wsU2
P50GZRIplf8s+h7RCK7f3uLdqiRqmjtbHkH/AK9cCBEpdSqPr0Pd4NgHoPfL
Xv28g0TF1891PWlpglm57BPWB0mUqevClh5rgvwKj+ScQ1Q++qWWu6LNYJJ4
ImPWmESeLL+a68eaYbcczKebkkg7Pe754bZmiM/9NcdvTiKb/h8VPq6fwN57
814FOxJ1LBe+K+fRAu7HVt5650Wio8MiQicDW2Ct1uWLxtdJ9P6T2J1/o1uA
kZWy56sPicripYOF8ltgmdrVtAl/Ej3YwPSa/NMCQhft7xmGkMh6257T7698
hohRTasDMST6Zu2iftmrFZZy5KM/5pIovM/Q9d+wVojuXv7QO49E/zgr5JTH
t8L5iV2+ii9JlHy9Sw4rbAVDaM4KKSCR3X1TieTRVniqYDhgWUai323bFmou
fIE1J6pnrepJNGE2/17Ktg108WT+2l9UP1+/YuDSBjIq2ZLPf5PIwu61voNP
GzzdTqxPGCRRibtbRd79Nli57TSvG5dEflE/8ve1tQFfyqFjWhMkon+ovn/R
pB0Kc8d45Pm5SMSQ5ViJs2Eq2/DXTSYX6eeUw6YjbDCVeR3KVuYi7+WkZLw9
Gy4F7khQ38RFP5oPNjoFseFsb7DQb3UuemnJ0FhVzYYlz82XruzkIjPn4JlT
hl9BsihAjX6Yi6JZ1yPnD38DB0vbVwKeXLTqy7lXO2w64ZqQsMO3Zi7CuXuH
jrt0wo2NAr9rPnORh4CM3GXfTuB5Hc/7uo2LWnTaY3KTOiEzTkEgqZOLYlMM
Lsl+74T46iGzsN9cJH5eSWP5ye9QN1fo07HERdKzA8+7T3WB8WbGMz/NYSS/
0TUn9EwP0GN7VMtSh1Fkt2w661IP1PdnGotmDKPJZPb9+MAemNSpR66Zw6he
at/tJw97AE6yEpWfDyPX1dLnazp64D/dMonysmFkQ3eIDVL5AQb995YfbR9G
TyZFzN6l/4A4PeHxHcIjSKfrYuPe2F4wSmV/br01gipnA42/JP2EodXG2lHm
o8gJ1ddXBP0CeWOf+SXuKEo8myUtbvcb7Ox/FjpE/0Fqlr2Ti+cGIcuqBjMx
HkPd46ZN+AEOWO5v/GLDN47GeqQ0JMy5MBOHDZu0jqPoZz7nT5wYAc0iIRun
x38RU5hx2DtpFCQko2iPXSZQkUfgs6jUP4B4g/u8DCfRF8U47EjsGCT/1+QW
tWYKKQS3Kp9MHIfqO1IKL+em0E6znu2pSX9hfuaT+t+uadTlEarLipyAhHfP
g5pezaBXO61W1MRMQptudp9B0iySsKj7lh06BQfv6otUXJtD0EeLeXd1GuYV
oWPd4XmUKOG0guk9A0O36qemdyygoIcXbmk5z4I2T2G1utgiSmm6XxvlMQcu
wbjub/oS8neLG11/eR7cLRoIndElxLFXlrQ6swCGGTt/ljrSiIiFIb5ux0Uo
l3VLkOyhEWWk4chK6yXw0H5a9tmUh2hX1On7R4GGh10NiMys4CGcVM6qxz2h
4Z5bPTxgBy9RaWHju1eGB/9+vZopks1LbLMcyhFL58GnT/u8ey5HJ1yDDdh7
1vLiFSpe0pfj6cRtR8YsTxwvLn38NK4lwEe8XW+/NCRGx4/UuW+tD+QjShfD
6KpRdHwxsWOl8zgf0VSwb4glwofvM1q5rNedn6jZ6FgbGcuHp8hY/DEZ4idC
is3Te5fx43+S1SKKbAUIW7nvp2xY/PiggS9t+qsAMVekvnYTJoBvDRrMUj6M
EX70wQ/xNwTwVW4bN+xCGCGhsNNekYbhiR54z6ZdDMLLzeLvsusY3imh2DWX
xyDWaTvUM30xvP1j5XGefAZBLFxK1vPH8KSUo80CBQxiGYul73MTw+nWJh9F
ihnEw2fV9wbvYPjLlamkEmIQtQOaWvUPMDxvzeaS480MQuyssGdoOYZL9WoE
vBxhEKWq6w+mV2A4W3j/8aI/DOLUmKrMWwLD76js3lw+ziCybxrU/q3G8DBa
S3/dFIPYleYv4fARw8c9w7x7lhjEmS5OkV43hpdXPFURXiVIYE9mwk/9wPBQ
j7zN4qKCRK4rdtqnD8OjMyM114oJEpNzctir/zB8dXi7gZKkIBEubX1CdgTD
xdNiYmCjIKHed37Tnj8Y7thv/Wy/nCDxJefakuU4hruGztYdUhAkZHbGZEVP
Yfi6D2WClsqCRBUt1Td3BsOtLnRsOaUqSDjV55rWz2H4xaNNFg6bBQmh6DL5
/gUMd6Mn3HTeIkjkn6ifWlrC8JhpjRceGoLE/wDzBPdU
          "]]},
        Annotation[#, "Charting`Private`Tag$5812#3"]& ], 
       TagBox[
        {RGBColor[0., 0.596078, 0.109804], AbsoluteThickness[3], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0nk4lH0XB/BhcM+UEtkrZZtQEpX0VM6vEi2SFrK0mJokZKnsRLZKRpZ4
khFSoaREtmTJYKTI1oQQ6bHMPdbs23u/f5zrXJ//vtf3HMWLzicvC5JIpEJi
/r+njzolmjq76OcaW/R75/EglLFRrZ5mAj3pkQ4+hL8O9dozaedh/z7tCV/C
r6Tak1tZtoBu7A7xJzyScyDckeYE/4RkrwkiLK/+/cMS9zoEvIgruEN4r2eY
dg3LHUyGh6yZhG2q9dOi6d7Qb1Mq/JBwoPT42rO0W3Drz4q8BMKN707VRE8E
gIFpt+Mzwow2zeApbiB4ntunkUV4QoACZ4uCweyd7lDB//Oq98yUsUJBs+Nz
AZuwzIniXFX/u3DVjBLWQDjdM845jB4G93xm6V2Ea6uP/DlFiwDo3kJbJJzl
IWF6VigS8p3DJcTyeeBx3/91xEQk/DncIqxImJJjaTfOjYYVIVcFDhH+VlVV
qVoTA3v8udRzhOPbtilbFD2Ep1NucjcIawiu7CxmxcHlxBiTp4THpHx2DzP/
hao3e25+IPxBvf+Rov8jCFlmn9JC2PjEp1Oh9Mfgeu2NxIoCHjgnu9ccpz0B
/Y70U3cJ6+X+pgXKJEFghXZBBmESQ22/lVAy7DgrofqFcI1HbFL4RDIUFZrJ
ShbywCrJ2WqU+xRmF9zs3hLWV6fdCzNNhUsDhqvbCCvl/MxXrkkFWqBftVAR
D3hVh6XMi56Bk2qu8TnCvkPK34pYL6A59Hmd/AfiXp5ti6ek0mCGPccxJmwg
GKXJZ6ZBjB2pzp/wCunFsPX+6eCQ/3m6n/CTvT8OBtNfAkw++F5dzIPy8PAP
x2hZwEg91JVfwoOSwdYvyzOywGFa9iCplAfFhzZ21mx6A36BOv2HCVsL0kmp
sm+hkerW94uwWcmc0nqFbMhJHmxcV86DI7radjLqORAveCWtqYIHh/5wXdzt
c+CAzR3KVjYPjB7e8mp5lQP7U80ymYQNxmrDYrbkwhoU+NG4kugjy/a12Pb3
UGgpLt5WxYNtNNYYBvlQozH9Q/szD3Ra9s/ZBuTDIU272KeEtwYPkKvK80E2
WzdBspYHW3p0pYINCiBZoSZ4nrDak4adpCOFoLVfsKP9Kw/WSmN+06c/AMNQ
dFVrAw+ERa5jA/alcFBXVK+hjQf9h/3FxtNKIdB50zd6Ow8+M8NlFnpLwW0h
JG6ccHVYU8xdrTKQsp9+I9/Bg/sSQ6msjDL4mGWl4tHFA0klZTY7sRzsozPD
rvbygLaPKSQVWgHrPEpAb5j4/98xlMfPKuB+xOKbYcKUkMei6ysqYENApU36
CA8GOWmS6iQ2pLxxC103xoM3pp9U9nqzQd7D86/0BPFvNlMGl50qwTh347Dh
HA8O+9ND3ptXg/Fqxo5kCg46D8oNU25Wg0qTxGNfKg5rkxQpzOhqOCl//JDV
MhxGSrrDGHXVsL3qRLCcKA5xi/TI1YYcaL7VEZEmhkOv38UE1x01oNk5EyMo
g0OA76VsTclaMFtZX1xIw8E+vOK6nE4tVPT71ZRtxOE0S3m7sGktXGvx1atR
w2Fj8e+8n/drwbH1I+rUwKFu7lLxffIXeOdQJi6nReTxYVQPjH0Bcq/izcad
OOR7Xe543lAHs0rpZ6yO4PBC34ErP1YH2SUurIyjRD6ya8MDiXowiT+TOmuM
gzvTt9LrVD3sUYL5lOM46KbEvD7WUg+xmX/mhM1wsO79VeLt+A3onpv3qdjg
0LZc7IGSSwM4n1p555MHDieHxEXPBTTAmh3Xrxl74fD5m+S9fyMbgJKWuPeH
Nw5FsfJBotkNsEzzZvKEHw6P19M8JkcbQPQa/aFRMA5W2/Ze+HyjEe6P6Fge
jsKh1cpB67pHEyxlKEd+zcQhrMfI8d/QJojsXP7EMwuHf+xVMopjm+DKxG4f
1bc4sLw6lLDcJjCC+rTgHBxsHh2XZo00wUsVo36LIhz6WrYtVF5tBpkz7FlL
Dg4TpvOf5c62gD5iCVf9Ifr58QMDhxZQUE+Xfd2Hg7nNewOGdwu83F62Lm4A
hwJnp5KsRy2wctsFQSc+Dr4Rv7IPtLSAUOLRUzsmcCB/YT+6ZvIdcjPHBJSF
+SBuxLQtR1yYSjf6c5vGB4OMYth0ggvHFd6HcNX44Lkcl42lc8E1YGec1iY+
/Ko/UmsXyIVL3UGifVp8eGtB2bqKzYUl982uN3bxwdQ+aOa80Q+QzfPXJB/j
QyTTK3z+WCswLM6+E3Hnw6rmy+92WreDm6gYo7WeD4i/b/C0Qzvc2iDSV9nI
BxcRBaXrPu0g8D5W8H0LHxr0vkdlJrTDixgVkYR2PkQnGroq/myHWPagaWgf
H6SubNy6/NxPqJ7L9W5b4oP8bP/rzvMdYLyZ8spXZwiUNzhmhFzsAnJ0l0ZR
0hCEdyqmMF27gNP7wlgidQgmWdxHsQFdMKnHKXV8MQQcuQN3nz/pAjjHjFd7
PQSOq+WvVLZ1wX/6RdLFRUNgTWZEB6r/AsPeh8tPfh+C55Pipp9SfkHMfrHx
nWLDoNdxrXZfdDccSuI2Nt0ZhvLZAOPmhN8wuNpYN8JsBOxKOZySwD+gbOw9
v8QfgfhLafJSNn1gQ/+dy4gcBU2L7snFywOQZlmJmRiPQef48Tp0mAcWB2ub
rYXGYaxLbqu0GR9mYrAhk6ZxiHzlfeXMmWHQyRO1tnv2F2hilGOeCSMgLRtB
euYwAXkuAa8ikkahVDCox8NoEppVY7AT0WPA+q/OKUJmClSCmtTOxY8D+56c
ytu5Kdhl2rU9KeEvzM980/rbMQ0dLiH6zPAJiPv0OrDu3Qy822W5ojJqElr0
03sME2ZB2ry6NT1kCo48MBAvcZsD6CFFfbo5DfOq0Lb22DzES9utoHnOwOAd
ztT0zgUIfHL1zg77WdAVyGVrSS5CYt2jqgiXOXAIQvp95CXwc4oZWXd9HpzN
a8r0RpaAR1eTtby4AEapu34X2pLQ/YVBoU7bRShWdIqT7SKhItxoeKXVErjo
vixqPC6Avqvq9fyjQkKhN/3DX5QIIDv1S1oxz0nIXdvFBXYKonJza599CgLo
pxebJp4uiLZZDGZIpgig6Qven14rkZFjkCF37xpBVKLuIX89lozu2lJmBWIE
kfzpC2iHiBD6uI6+NChJRieqnbU5AUKocDGUrBFBRovxbSvtx4VQXc6BQaa4
EDpwaOWybmdhVLnBtio8WgglKpiPmgwKo+B8s5TuZcJolKV5P++sCDqr9PO8
NVMYDRj6kKZ/iKC5PK01mzARpB04kKZ2DEO+5IEvsbdE0CqnDet3l2JIWmUX
XZWEoXgX1LVpNwV5OJn/XeaFoXZp1Y65LApaq8vg0Hww9P1r+WmBbAoqW3Bl
7ffDUELiyXqRHApaxmQaeN/GENnK5Kt4PgU9ecV+OHAPQ29XJuEbSymoql9n
B+cxhrJkNhecrqcgyUti7iHFGJLr3ur/dpiCCjXWHUkpwRBX7ODpvFEKOj+m
ofCxDEP31PdsLh6noPTbhlV/2RgKJTX0Vk9R0O5kP2nGVwyNu4d6di1R0MUO
Xt7+TgwVl7xUF1tFRdjzmbDzvzAU4pK1WUqCijIdsQvePRiKfBGus0aSiibn
lLB3/2Foddh3w42yVBQmb3VGcRhDUslRUbCBirR6rmzaO4oh216rVweVqKg5
w23JYhxDjiGz1UdVqEhhV1Ra5BSG1n4polqoUVEFKckncwZDllfbtpzXoCI7
TuZxzhyGrp2sM2dspiLRyCLl3gUMOZHjbttvoaLsM5yppSUMRU1vfeOylYr+
B5dYmtQ=
          "]]},
        Annotation[#, "Charting`Private`Tag$5812#4"]& ]}, {}, {}}}, InsetBox[
     TemplateBox[{TagBox[
        FrameBox[
         StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0., 0.596078, 0.109804], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3]], {}}}, 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"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.596078, 0.109804], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.39738533333333337`, 0.07320266666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.`", ",", "0.596078`", ",", "0.109804`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0.596078, 0.109804]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0.596078, 0.109804], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox["\"E(N=2)\"", TraditionalForm], None}, {
      FormBox["\"\[CapitalDelta]v\"", TraditionalForm], None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 3}, {0., 0.9999999999999964}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
            "]]}, "Charting`Private`Tag$5742#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3]], 
           Line[CompressedData["
1:eJwV1Xk01ekfB3D714+aynA1ZSrkDjWilFC8vxmjmBZSKcnOqGRpWiyJkYzt
iquFElFCJCH3WrJzkTXMDVkSLZb7FZESft95zvmc57z++ZzP8zzvcx5FB4+D
ziJCQkJxdP23z/7hftfMw9NgYPG/RSHE6RfVFuZ+6NR56i7QbhIMnWIxbWD+
0+DwLO1MuZ57XQku0JyyEJ+gPZH3W6Qb0x3dh2tvvaW9Su3f4kX+WXju0r3b
TlvfO3xzfcIFaBdkyZXTtuMZpLHtfRGbv044g3YQY0rBmnkZu/Rv2EbRfplr
Uc+eDoSNudRmT9pO3erBX/hBuDAZcH4/7WlhSVgXBaNWaeZXtf/mVRv8Wp4Q
ArNhN0sh2vLmJfkqAaGY0R/63L5AId37pke4fTiqNluLP6D9gmc6bMGMQo74
/gBd2tkXZcysxaKx9Qvvw8I8hYsRAY+jpqOhmWZYU05bMu+Y6xSfDelLenxd
2q21tTUq9bEwruYs+fSdQny3lvLRouvYIKP97AHtDSI/9JUk3ESjqratMO1J
Ob8dFOsWFDW5do/mKBSrfYhTDIiDZPGOzgO095pXWoTY34aM9B756G8UPO5d
qD/ATIRngt/i8CwFnfy3zCD5JGg8WhZ/lraQk6qhldg9/KqXljr3hUL9xRtJ
kdP3cMBtUF6UtlWSh9UnfgpC527Yvf9MwUCNGRZudh8ivINsS9pKea85yvX3
UblFfnv1FIXRWhO5I0UP4P6qsIs9SeGSQLm1KOEhsub8r4hP0O/l3b1gIZeG
VzLX9h2jKBiJxKiPs9LA2PQkPENAYSljIXxtQDpuuSjaYJxCov6r34PtH+EH
0emT5AiFisjI4n3MbHz9sZcR95ZC6UhXo3RGNv7XlJeaNEihZM8vffUbn6BO
10Xy/hsKx0Xshe6vzMH1cTeTu/0UDpfOKa1d8xR/Z/xVZNtDwVR7s6u8Wh50
bqVZK7yksGeY73nhVB5yYuw3vmmlsPv6ZZ/OzDyssfijObmFnnfyRXjspnwo
LG+MZjTR95Ht8njZ1mcIbXD6XzOPghYzYZIABx0WCm3nSihs6TSccwnkQGxi
8d1MEQXN4I+itRUcHBLJbTtXSGHToLZcsBEXlakFKk4FFFQT27YLmRZiT2Vz
/fIcCgoMwn/2UDHGTm5dnpJCQVziLPHxVBkkPKyUUoMpfDAJWDaVVgad0p16
1UEUGliR8vNDZciaInL7AynwwttjQzXKsSO3qkLan0KEjOB+QkY5ZD70Oumc
pyCrpFxdfbcC8aGaHW+dKDB3scTkQqowGNpkHryLzv/bWMnbD6ow4BiUpgE6
v1dvL1lbVQW19x32/J0URurSZNWEqlHyRFFcQYfCE7PK9fq+1WA26izx3UTn
ze6LkbN7Dd4WZ+0PW0XBJMD+6rMjPLwO2+g1Qwmw5VqFcfI5Hv6t123bOS6A
QpKiJIvNg0PkQkXAiAATpW/CnZp5GMn6fmRuSICbC/bRPxrXIbts79H6LgGG
/B3ueG2rR1NGuWRFpQCBlxyfqsu+wPpum0+KbAE4Ps69qW3NkMlKr6lhCvDQ
4DR/1WQzdH3jjN4p0f1EvdquybTANCJ2QGStABdYl2p8LFpwuTflL015AbST
Yx/v62yBWUOi0glCgONDA6W+bq3oO5PJnn83jm7pZdeUPNvwu7/yO4f74+iy
Oq1x9mI7DHfkrV66Yhzhg7vdboW042XwKuWYJePQO7U+o+RGO2RavFbKSI4j
wadXichvx6NKl3apxTHYxR1gJEy0Q2DiyeWPjeF9p9Z8zckONMoyiwd4Y5g2
+97wk3UnfEVO7C7xG8OK3SyXCpKP+qgnWtI9o1je4Zy7/XgPinQiTCJOjEB5
nVvGVYd+/Gvp2nWV9wE6vWde7GK/ge/8a2Nb8j0qvgXu7bjzFuptwYURd4bh
WlZXVxo0DHbhZ76u0hDiHdNWydm9R5YoXtjWDkL96JuZBeeP6FH5Gso++QZ9
UweaSZNR/LO4cL4AA5js/0mTcXgc7/8aSw/W6kN0pu+flpYUUg0rmT6qr8Fc
JrnP+84EwhxXO3m5daPAMzAzKukTbu5cejD12St0qMQS5uxJOLQ6hwjT51p/
pV31RPwU4vbHisw2dULXrH9r0p3PYHrP3lgS1IFez6sGrMhpHMyd93J1bkeu
7rGlNTEzKAiML9pi8hKMI7yu9KtfINL2vdzzUBswKBRTeW4W7LDTrsPnWxHP
cF3K9P6Ko37COhq/tiAo8eQ/2059A5+T5uKX3oS7zXG1UZ5z6Fj33Uag2Ah/
99iJn89+h+HcisTa5w0YtVddecxhHgmGEnur/6lHxPyIWJ/LAtx1tdjZ++pQ
NLab+sFqERHb5Z8G76BzrqIzqLdeiEwxUy9XRi1c1Rw1YlOFyJzcIba6QQ0q
jhz327VGmHRNEYtdeqIaWkdHMmSThcn0+ZUzuRer4HbFmK+/WoTMmRaPNc2u
RKiL5DfhWBHy1RUr8/dTFXj+s/3iiKwoWapn3qCzrQKFCyGiG6JEyfWzRoPG
rHI05/02wlohRpa/uHSovbIMNetcaiPZYiT3e5jVyeBSBHMOJ7+REic13TTs
tE8/h7XSa5vjLHFyrPfsa0fTEswVaKzeSEiQwaeqz3SZFuOS6MfGG5clyG0N
qs9yrIvAWK9rryJEkGyJwyXkn4W46H7ks5QPQfJz7nxMZHGhoO1Ux/QjyD2Z
etKjYVyUz3slGPoTZEqM8rftIVxIsVhGvn8TZLa9wKDjMheJmdXXP4YRZI7U
RhuGJxe1H7Zsq7tNkBkZtyrKD3Ih67jswtUSgpTwHWRnreSicMPPpsmlBBnt
bD2xQo4Lm8kNa56XEyTxaI2s9wou0v82rv1cTZBdM/ceG0txseOeP8OpiSBN
uclK43McOPSOFhj2EeTh9tkhm34OiNSv4TYDBHmXcGO19nCQ5UbY+g4SZDWv
ctbwFQczc0pE7juCrNlqJL+hjYPwVVaWihRBRuUUnxGu4kBj8M+N+p8I0iTf
4xefMvpfyDi/eHSKICfSj6d8KuZgjW5MWvQXgjw4KtEzlM9BlVCSX9ZXgnyo
ah1n+5QD17qsA3VzBLlMW47R85iDJdFFykPzBJm/fd7C8hEHTy3rviwuEqSj
Y795x0MO/g+VjsO7
            "]]}, 
          "Charting`Private`Tag$5742#2"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.790588, 0.201176, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
            "]]}, "Charting`Private`Tag$5812#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.192157, 0.388235, 0.807843], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJxF0XlI0wEUB/CfeUwkM8FGeeH5y5QwKssV3qFomVa4ebWaurlszSXlmebR
rGwbHgWZef0hKkqQkqLlVR4LcxGORGqaS6vNyjOvNVdBvvfg8eXz3/vy7OOS
z7K3EQQR+nf/5dpJfmV4ssCb+D+FCXtd3pKnfbY88nM6SUwywfOtASIeyQfn
U5esY8kc8PBQyMw5UgJOrkl9HUZWgftEoueh5BOwoVEKRZXUAw6+yRI+ow+B
2zPYirp3MvB49GX3lLRRsHmQmNPnOwbeKWe3HI35AHa04zUK4ybBnoorw36l
U3jPRu4pecVnMLdHKu3OnwGXx9db7rr4Fbw/cmplk60CTyyFyXyDZ8GLk3sO
UCN+gIubMhMZjDkwaWYcml4xD24T5DZJqhfAcucyypnSRbBTwajL+fIlMC18
8nB1xTJYIRB6i0W/wC20KNOBkhUwlT403iBcBfsoiZKX19awH5VrSqav4z+r
Lt32SNoAV8oeDkoEGnA2v2zeJuU3eJblsjsqTgu+p1UbTHA2wZ3fg+Z2ROvA
7509lcecCN8tc/fFu5fVofvoMVl+tnrgQ5HqRotaNK8gcMzLahv4Dsd4Q68M
3WXD0qkt9MEdm4X6rhK0rDVALTY3AA/YcQZFpehb7RG1UyaG4FiHj8wYMVrT
5m7lRjEC39BXvXmQg6Y60VjOBAWcxqcvm2SgrY8kSMksdK/26mP/bLSJWHwi
Mw9d1dR/X3UXPfjtoIf0Edoi3ixV+ALd4WoTUtuNZi662nb1ohvyAgeX+9HH
a7KpCSPoOMVsm/8EmlK3XsT8hG7mUS5kKtErGgdKyxd0kWU0w34O7a5MdPNa
QMsbr+sil9C2tJL64lX0K6I6q3kdzZU2h0k16O3FnY7TWvRThnRVp0P/AZXN
GWk=
            "]]}, "Charting`Private`Tag$5812#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[1., 0.607843, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV0mk4VX0XBvDDwT5KiRAqZTqGEinSU1k7CZXQQKaKkoTQhAyRqcKRIZ6E
kDKUlMiU/LfMKZI4RYj0hLMPIvP07vfDutb1+3Zf91qyZ9yPnuOl0Wil1Px/
Tx9ySzFz99AtNLYc8CnioDAHJeVmpgn0ZUe7+FL+ONzvzGKeAr29Wyf8KD8T
70z7luwI+JVdoQGURwv2Rboy3eCf0Py1wZSlVdrfLLEvQ2BmQsktynu8w7c2
JHuCyciwDYuyXZ1uVqy9DwzYIf57lIMkxtfZMm/AjV8ripIof351rCF2IhD0
zXpdH1N26FALmWIHgffJvap5lCd4GGBbFgLmr7SHS/6fV6VvhkgOA7Wu9yXV
lNccKS9UDLgNF8wZ4S2Us70T3MPtw+GO76x9D+XGuoO/jjGjAHq3MBcp53mJ
mtnyRUOxe6SocDEHeUUEPI+aiIZfB9r4ZSkzCqycxtmxsCL0Ao8R5U+1tTWK
DXGwO4AteJJyYsc2ecuye/Bo6prUFcqqvCu7y5MT4FxKnMkjymPivrtGWP9C
7YvdV99QfqMycF824D6ELnNOb6NsfOTdsTD7B3Dp4gvRFSUc5J7m2WDKfAi6
XdnHblPWKfzJDFqTCkFVW0tyKNMclPWs+dJAy1ZU8QPlBq/41MiJNCgrNZcU
K+Ug61R36z/sRzC7cM3pJWVdFeadcLMMODtosLqDslzB92L5hgxgBvnX8ZVx
EKf2gLhF2WNwUyw0PknZb1j+U1lyJnwJe9Ik/Ya6l3fH4jHxLJipnqs3pqzP
G6PGZWVBnBOtKYDyConF8A0B2eBS/H56gPLDPV/3h9g/BZi8215XzkGVkZFv
DjPzwCHDqKe4goMqhr59WJ6TBy7TkvtpiIPKjZS6Gza9AP8gzYEDlG147WkZ
ki/hs+C13z8om1fMyW2QyYeCtKHP6ys56KD2Vqc1KgWQyHs+q7WKg4x+sT08
nQtgn90thkY1Bxneu3G97VkB6GWY57Io6481hsdtKYS1eNBb4xqqjzzH58Lb
X0OplYhIRy0HbWMmj2FQDA2q01+3vucgzTa9OcfAYjBSc4p/RFkjZJBeW1kM
kvnaSWKNHLSlT1s8RL8E0mQaQuYpKz9s2UE7WArqerxdnR85aJ0E5j99/A04
GAit+tbCQfwCl7FBZwT7tYV0Wjo4aOBAgPB4FoIg902f7Ds56D0rcs1CP4Jr
C6EJ45TrwlvjbqsTIO48/UK6i4MiRIczknMIeJtnreDVw0FicvLV1SmV4Byb
G36hn4OYe1l84mFVsN6rAnRGqP//Gcd48LgKIqIWX4xQZoQ+ENpQVQUbA2vs
skc5aKg+S0yFVg3pL66FrR/joBdm7xT2+FSDtJf3X4kJ6t/spvTPudWAcaHS
iMEcBx0IsA99bVEHxqsdtNIYJNK8W2mQfrUOFFpFH/gJkmhdqiyDFVsHR6VN
jayXkWi0ojfcoakOttceCZESIlHCon30aoN6+HKjKypLmET9/meSLmk1gFr3
TBzvGhIF+p3NVxNrBPOVzeWlTBI5R1ZdltJshKoB/wZCiUTHk+W385s1wsU2
P50GZRIplf8s+h7RCK7f3uLdqiRqmjtbHkH/AK9cCBEpdSqPr0Pd4NgHoPfL
Xv28g0TF1891PWlpglm57BPWB0mUqevClh5rgvwKj+ScQ1Q++qWWu6LNYJJ4
ImPWmESeLL+a68eaYbcczKebkkg7Pe754bZmiM/9NcdvTiKb/h8VPq6fwN57
814FOxJ1LBe+K+fRAu7HVt5650Wio8MiQicDW2Ct1uWLxtdJ9P6T2J1/o1uA
kZWy56sPicripYOF8ltgmdrVtAl/Ej3YwPSa/NMCQhft7xmGkMh6257T7698
hohRTasDMST6Zu2iftmrFZZy5KM/5pIovM/Q9d+wVojuXv7QO49E/zgr5JTH
t8L5iV2+ii9JlHy9Sw4rbAVDaM4KKSCR3X1TieTRVniqYDhgWUai323bFmou
fIE1J6pnrepJNGE2/17Ktg108WT+2l9UP1+/YuDSBjIq2ZLPf5PIwu61voNP
GzzdTqxPGCRRibtbRd79Nli57TSvG5dEflE/8ve1tQFfyqFjWhMkon+ovn/R
pB0Kc8d45Pm5SMSQ5ViJs2Eq2/DXTSYX6eeUw6YjbDCVeR3KVuYi7+WkZLw9
Gy4F7khQ38RFP5oPNjoFseFsb7DQb3UuemnJ0FhVzYYlz82XruzkIjPn4JlT
hl9BsihAjX6Yi6JZ1yPnD38DB0vbVwKeXLTqy7lXO2w64ZqQsMO3Zi7CuXuH
jrt0wo2NAr9rPnORh4CM3GXfTuB5Hc/7uo2LWnTaY3KTOiEzTkEgqZOLYlMM
Lsl+74T46iGzsN9cJH5eSWP5ye9QN1fo07HERdKzA8+7T3WB8WbGMz/NYSS/
0TUn9EwP0GN7VMtSh1Fkt2w661IP1PdnGotmDKPJZPb9+MAemNSpR66Zw6he
at/tJw97AE6yEpWfDyPX1dLnazp64D/dMonysmFkQ3eIDVL5AQb995YfbR9G
TyZFzN6l/4A4PeHxHcIjSKfrYuPe2F4wSmV/br01gipnA42/JP2EodXG2lHm
o8gJ1ddXBP0CeWOf+SXuKEo8myUtbvcb7Ox/FjpE/0Fqlr2Ti+cGIcuqBjMx
HkPd46ZN+AEOWO5v/GLDN47GeqQ0JMy5MBOHDZu0jqPoZz7nT5wYAc0iIRun
x38RU5hx2DtpFCQko2iPXSZQkUfgs6jUP4B4g/u8DCfRF8U47EjsGCT/1+QW
tWYKKQS3Kp9MHIfqO1IKL+em0E6znu2pSX9hfuaT+t+uadTlEarLipyAhHfP
g5pezaBXO61W1MRMQptudp9B0iySsKj7lh06BQfv6otUXJtD0EeLeXd1GuYV
oWPd4XmUKOG0guk9A0O36qemdyygoIcXbmk5z4I2T2G1utgiSmm6XxvlMQcu
wbjub/oS8neLG11/eR7cLRoIndElxLFXlrQ6swCGGTt/ljrSiIiFIb5ux0Uo
l3VLkOyhEWWk4chK6yXw0H5a9tmUh2hX1On7R4GGh10NiMys4CGcVM6qxz2h
4Z5bPTxgBy9RaWHju1eGB/9+vZopks1LbLMcyhFL58GnT/u8ey5HJ1yDDdh7
1vLiFSpe0pfj6cRtR8YsTxwvLn38NK4lwEe8XW+/NCRGx4/UuW+tD+QjShfD
6KpRdHwxsWOl8zgf0VSwb4glwofvM1q5rNedn6jZ6FgbGcuHp8hY/DEZ4idC
is3Te5fx43+S1SKKbAUIW7nvp2xY/PiggS9t+qsAMVekvnYTJoBvDRrMUj6M
EX70wQ/xNwTwVW4bN+xCGCGhsNNekYbhiR54z6ZdDMLLzeLvsusY3imh2DWX
xyDWaTvUM30xvP1j5XGefAZBLFxK1vPH8KSUo80CBQxiGYul73MTw+nWJh9F
ihnEw2fV9wbvYPjLlamkEmIQtQOaWvUPMDxvzeaS480MQuyssGdoOYZL9WoE
vBxhEKWq6w+mV2A4W3j/8aI/DOLUmKrMWwLD76js3lw+ziCybxrU/q3G8DBa
S3/dFIPYleYv4fARw8c9w7x7lhjEmS5OkV43hpdXPFURXiVIYE9mwk/9wPBQ
j7zN4qKCRK4rdtqnD8OjMyM114oJEpNzctir/zB8dXi7gZKkIBEubX1CdgTD
xdNiYmCjIKHed37Tnj8Y7thv/Wy/nCDxJefakuU4hruGztYdUhAkZHbGZEVP
Yfi6D2WClsqCRBUt1Td3BsOtLnRsOaUqSDjV55rWz2H4xaNNFg6bBQmh6DL5
/gUMd6Mn3HTeIkjkn6ifWlrC8JhpjRceGoLE/wDzBPdU
            "]]}, 
          "Charting`Private`Tag$5812#3"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0., 0.596078, 0.109804], 
            CapForm["Butt"], 
            AbsoluteThickness[3], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwV0nk4lH0XB/BhcM+UEtkrZZtQEpX0VM6vEi2SFrK0mJokZKnsRLZKRpZ4
khFSoaREtmTJYKTI1oQQ6bHMPdbs23u/f5zrXJ//vtf3HMWLzicvC5JIpEJi
/r+njzolmjq76OcaW/R75/EglLFRrZ5mAj3pkQ4+hL8O9dozaedh/z7tCV/C
r6Tak1tZtoBu7A7xJzyScyDckeYE/4RkrwkiLK/+/cMS9zoEvIgruEN4r2eY
dg3LHUyGh6yZhG2q9dOi6d7Qb1Mq/JBwoPT42rO0W3Drz4q8BMKN707VRE8E
gIFpt+Mzwow2zeApbiB4ntunkUV4QoACZ4uCweyd7lDB//Oq98yUsUJBs+Nz
AZuwzIniXFX/u3DVjBLWQDjdM845jB4G93xm6V2Ea6uP/DlFiwDo3kJbJJzl
IWF6VigS8p3DJcTyeeBx3/91xEQk/DncIqxImJJjaTfOjYYVIVcFDhH+VlVV
qVoTA3v8udRzhOPbtilbFD2Ep1NucjcIawiu7CxmxcHlxBiTp4THpHx2DzP/
hao3e25+IPxBvf+Rov8jCFlmn9JC2PjEp1Oh9Mfgeu2NxIoCHjgnu9ccpz0B
/Y70U3cJ6+X+pgXKJEFghXZBBmESQ22/lVAy7DgrofqFcI1HbFL4RDIUFZrJ
ShbywCrJ2WqU+xRmF9zs3hLWV6fdCzNNhUsDhqvbCCvl/MxXrkkFWqBftVAR
D3hVh6XMi56Bk2qu8TnCvkPK34pYL6A59Hmd/AfiXp5ti6ek0mCGPccxJmwg
GKXJZ6ZBjB2pzp/wCunFsPX+6eCQ/3m6n/CTvT8OBtNfAkw++F5dzIPy8PAP
x2hZwEg91JVfwoOSwdYvyzOywGFa9iCplAfFhzZ21mx6A36BOv2HCVsL0kmp
sm+hkerW94uwWcmc0nqFbMhJHmxcV86DI7radjLqORAveCWtqYIHh/5wXdzt
c+CAzR3KVjYPjB7e8mp5lQP7U80ymYQNxmrDYrbkwhoU+NG4kugjy/a12Pb3
UGgpLt5WxYNtNNYYBvlQozH9Q/szD3Ra9s/ZBuTDIU272KeEtwYPkKvK80E2
WzdBspYHW3p0pYINCiBZoSZ4nrDak4adpCOFoLVfsKP9Kw/WSmN+06c/AMNQ
dFVrAw+ERa5jA/alcFBXVK+hjQf9h/3FxtNKIdB50zd6Ow8+M8NlFnpLwW0h
JG6ccHVYU8xdrTKQsp9+I9/Bg/sSQ6msjDL4mGWl4tHFA0klZTY7sRzsozPD
rvbygLaPKSQVWgHrPEpAb5j4/98xlMfPKuB+xOKbYcKUkMei6ysqYENApU36
CA8GOWmS6iQ2pLxxC103xoM3pp9U9nqzQd7D86/0BPFvNlMGl50qwTh347Dh
HA8O+9ND3ptXg/Fqxo5kCg46D8oNU25Wg0qTxGNfKg5rkxQpzOhqOCl//JDV
MhxGSrrDGHXVsL3qRLCcKA5xi/TI1YYcaL7VEZEmhkOv38UE1x01oNk5EyMo
g0OA76VsTclaMFtZX1xIw8E+vOK6nE4tVPT71ZRtxOE0S3m7sGktXGvx1atR
w2Fj8e+8n/drwbH1I+rUwKFu7lLxffIXeOdQJi6nReTxYVQPjH0Bcq/izcad
OOR7Xe543lAHs0rpZ6yO4PBC34ErP1YH2SUurIyjRD6ya8MDiXowiT+TOmuM
gzvTt9LrVD3sUYL5lOM46KbEvD7WUg+xmX/mhM1wsO79VeLt+A3onpv3qdjg
0LZc7IGSSwM4n1p555MHDieHxEXPBTTAmh3Xrxl74fD5m+S9fyMbgJKWuPeH
Nw5FsfJBotkNsEzzZvKEHw6P19M8JkcbQPQa/aFRMA5W2/Ze+HyjEe6P6Fge
jsKh1cpB67pHEyxlKEd+zcQhrMfI8d/QJojsXP7EMwuHf+xVMopjm+DKxG4f
1bc4sLw6lLDcJjCC+rTgHBxsHh2XZo00wUsVo36LIhz6WrYtVF5tBpkz7FlL
Dg4TpvOf5c62gD5iCVf9Ifr58QMDhxZQUE+Xfd2Hg7nNewOGdwu83F62Lm4A
hwJnp5KsRy2wctsFQSc+Dr4Rv7IPtLSAUOLRUzsmcCB/YT+6ZvIdcjPHBJSF
+SBuxLQtR1yYSjf6c5vGB4OMYth0ggvHFd6HcNX44Lkcl42lc8E1YGec1iY+
/Ko/UmsXyIVL3UGifVp8eGtB2bqKzYUl982uN3bxwdQ+aOa80Q+QzfPXJB/j
QyTTK3z+WCswLM6+E3Hnw6rmy+92WreDm6gYo7WeD4i/b/C0Qzvc2iDSV9nI
BxcRBaXrPu0g8D5W8H0LHxr0vkdlJrTDixgVkYR2PkQnGroq/myHWPagaWgf
H6SubNy6/NxPqJ7L9W5b4oP8bP/rzvMdYLyZ8spXZwiUNzhmhFzsAnJ0l0ZR
0hCEdyqmMF27gNP7wlgidQgmWdxHsQFdMKnHKXV8MQQcuQN3nz/pAjjHjFd7
PQSOq+WvVLZ1wX/6RdLFRUNgTWZEB6r/AsPeh8tPfh+C55Pipp9SfkHMfrHx
nWLDoNdxrXZfdDccSuI2Nt0ZhvLZAOPmhN8wuNpYN8JsBOxKOZySwD+gbOw9
v8QfgfhLafJSNn1gQ/+dy4gcBU2L7snFywOQZlmJmRiPQef48Tp0mAcWB2ub
rYXGYaxLbqu0GR9mYrAhk6ZxiHzlfeXMmWHQyRO1tnv2F2hilGOeCSMgLRtB
euYwAXkuAa8ikkahVDCox8NoEppVY7AT0WPA+q/OKUJmClSCmtTOxY8D+56c
ytu5Kdhl2rU9KeEvzM980/rbMQ0dLiH6zPAJiPv0OrDu3Qy822W5ojJqElr0
03sME2ZB2ry6NT1kCo48MBAvcZsD6CFFfbo5DfOq0Lb22DzES9utoHnOwOAd
ztT0zgUIfHL1zg77WdAVyGVrSS5CYt2jqgiXOXAIQvp95CXwc4oZWXd9HpzN
a8r0RpaAR1eTtby4AEapu34X2pLQ/YVBoU7bRShWdIqT7SKhItxoeKXVErjo
vixqPC6Avqvq9fyjQkKhN/3DX5QIIDv1S1oxz0nIXdvFBXYKonJza599CgLo
pxebJp4uiLZZDGZIpgig6Qven14rkZFjkCF37xpBVKLuIX89lozu2lJmBWIE
kfzpC2iHiBD6uI6+NChJRieqnbU5AUKocDGUrBFBRovxbSvtx4VQXc6BQaa4
EDpwaOWybmdhVLnBtio8WgglKpiPmgwKo+B8s5TuZcJolKV5P++sCDqr9PO8
NVMYDRj6kKZ/iKC5PK01mzARpB04kKZ2DEO+5IEvsbdE0CqnDet3l2JIWmUX
XZWEoXgX1LVpNwV5OJn/XeaFoXZp1Y65LApaq8vg0Hww9P1r+WmBbAoqW3Bl
7ffDUELiyXqRHApaxmQaeN/GENnK5Kt4PgU9ecV+OHAPQ29XJuEbSymoql9n
B+cxhrJkNhecrqcgyUti7iHFGJLr3ur/dpiCCjXWHUkpwRBX7ODpvFEKOj+m
ofCxDEP31PdsLh6noPTbhlV/2RgKJTX0Vk9R0O5kP2nGVwyNu4d6di1R0MUO
Xt7+TgwVl7xUF1tFRdjzmbDzvzAU4pK1WUqCijIdsQvePRiKfBGus0aSiibn
lLB3/2Foddh3w42yVBQmb3VGcRhDUslRUbCBirR6rmzaO4oh216rVweVqKg5
w23JYhxDjiGz1UdVqEhhV1Ra5BSG1n4polqoUVEFKckncwZDllfbtpzXoCI7
TuZxzhyGrp2sM2dspiLRyCLl3gUMOZHjbttvoaLsM5yppSUMRU1vfeOylYr+
B5dYmtQ=
            "]]}, "Charting`Private`Tag$5812#4"]}}, {}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{"E(N=2)", None}, {"\[CapitalDelta]v", None}}, 
      FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 3}, {0., 0.9999999999999964}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3]], 
        Directive[
         Opacity[1.], 
         RGBColor[0., 0.596078, 0.109804], 
         CapForm["Butt"], 
         AbsoluteThickness[3]]}, {
        HoldForm[
         Placeholder[
          Style[1, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[2, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[3, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[4, Smaller]]]}, LegendMarkers -> None, LabelStyle -> {}, 
       LegendLayout -> "Column"]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.77099401693705*^9, 3.770994067491127*^9, 3.7709941058471518`*^9, 
   3.770994263234439*^9, {3.770995492810238*^9, 3.770995499852001*^9}, 
   3.770997389566435*^9, 3.771000689222254*^9, {3.771206437371719*^9, 
   3.771206453237711*^9}, {3.771206501488174*^9, 3.771206604424498*^9}, {
   3.771206649795062*^9, 3.771206670826882*^9}},
 CellLabel->"Out[27]=",ExpressionUUID->"2b7d2849-241d-4bc6-9d31-5dcbb0a7634a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Asymmetric Hubbard dimer in the complex plane", "Title",
 CellChangeTimes->{{3.771205861440907*^9, 3.7712058664457693`*^9}, {
  3.771205958757778*^9, 3.771205960876582*^9}, {3.785043242055691*^9, 
  3.785043251205803*^9}, {3.7850433260217247`*^9, 
  3.7850433467180977`*^9}},ExpressionUUID->"13ed8a0b-1929-4952-9c55-\
170bbabc1ee8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Epsilon]", "2"], "[", 
   RowBox[{"t_", ",", "U_", ",", "\[CapitalDelta]v_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", "\[CapitalDelta]v"}], "+", "U"}], 
        RowBox[{"-", "t"}], "t", "0"},
       {
        RowBox[{"-", "t"}], "0", "0", 
        RowBox[{"-", "t"}]},
       {"t", "0", "0", "t"},
       {"0", 
        RowBox[{"-", "t"}], "t", 
        RowBox[{"\[CapitalDelta]v", "+", "U"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "]"}], "//",
    "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.7709931637513514`*^9, 3.770993176590556*^9}, {
   3.7709932777367*^9, 3.77099327942887*^9}, {3.770993331447741*^9, 
   3.7709933322409363`*^9}, {3.770993413457896*^9, 3.7709934163221416`*^9}, 
   3.7709936625721397`*^9, 3.770993722454412*^9, {3.771206428657599*^9, 
   3.771206431871594*^9}, {3.771206519978797*^9, 3.7712065229706783`*^9}, 
   3.771206569353891*^9, {3.771206628498452*^9, 3.7712066691935263`*^9}, {
   3.785045854286395*^9, 3.785045872934876*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"80cc617b-8d43-4deb-9582-eb0c7abc5a76"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["t", "2"], " ", "U"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["U", "2"], "-", 
          SuperscriptBox["\[CapitalDelta]v", "2"]}], ")"}], " ", "#1"}], "-", 
       
       RowBox[{"2", " ", "U", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.770993302172084*^9, 3.770993332749916*^9, 3.7709934168909473`*^9, {
   3.77099365044234*^9, 3.7709936630184927`*^9}, 3.770993723283189*^9, 
   3.7709937649233932`*^9, 3.770994014549814*^9, 3.7710006872846107`*^9, 
   3.7712064325327187`*^9, 3.771206524187331*^9, 3.771206570707638*^9, {
   3.771206647351513*^9, 3.77120666969728*^9}, 3.785044647952959*^9, 
   3.785044881119413*^9, 3.785045693444018*^9, {3.7850458552032747`*^9, 
   3.7850458735450087`*^9}},
 CellLabel->"Out[56]=",ExpressionUUID->"b675e011-9ce9-4975-a90f-73d304abf7f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      RowBox[{"1", "/", "2"}]}], ",", 
     RowBox[{"\[CapitalDelta]v", "=", "1"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Specularity", "[", 
          RowBox[{"White", ",", "30"}], "]"}], ",", "Gray", ",", 
         RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], 
        "}"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", 
            RowBox[{"Ux", "+", 
             RowBox[{"\[ImaginaryI]", " ", "Uy"}]}], ",", 
            "\[CapitalDelta]v"}], "]"}], "]"}], "\[LeftDoubleBracket]", "2", 
         "\[RightDoubleBracket]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Ux", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Uy", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Red", ",", 
           RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", 
            RowBox[{"Ux", "+", 
             RowBox[{"\[ImaginaryI]", " ", "Uy"}]}], ",", 
            "\[CapitalDelta]v"}], "]"}], "]"}], "\[LeftDoubleBracket]", "3", 
         "\[RightDoubleBracket]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Ux", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Uy", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Blue", ",", 
           RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], "[", 
           RowBox[{"t", ",", 
            RowBox[{"Ux", "+", 
             RowBox[{"\[ImaginaryI]", " ", "Uy"}]}], ",", 
            "\[CapitalDelta]v"}], "]"}], "]"}], "\[LeftDoubleBracket]", "4", 
         "\[RightDoubleBracket]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Ux", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Uy", ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Green", ",", 
           RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", 
        RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"Placed", "[", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.785045917974431*^9, 3.7850459296381273`*^9}, 
   3.78504603944388*^9, {3.78504608297202*^9, 3.785046213465311*^9}, {
   3.7850465704495373`*^9, 3.78504678343108*^9}, {3.785046819782449*^9, 
   3.785046820036922*^9}, {3.78504789390261*^9, 3.7850480264610157`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"559e131a-77c2-4494-8cbe-6e8c5470d5bf"],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[0.5], Opacity[0.2], Specularity[
     GrayLevel[1], 30], SphereBox[{0, 0, 0}, 1]}, {
    GraphicsComplex3DBox[CompressedData["
1:eJx1mHlcjlkbx1sok2T52EKWLK81GYNR6rnt21hextaUbZo0lB7vDJpkpDTM
[encoded data, 4392 characters]
iTioYxPVW23G1uZq/gblHSbw
     "], {{
       {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], 
        StyleBox[GraphicsGroup3DBox[
          TagBox[Polygon3DBox[CompressedData["
1:eJxdmXmcl1UVh98X1xEIZRtExRlA1thjB9kcNhGGHUQYZFCRZUAQURYZHBBL
[encoded data, 4331 characters]
U6dvq+fyX25Pjbo=
            "]],
           Annotation[#, "Charting`Private`Tag$14298#1"]& ]],
         Lighting->"Neutral"]}, {}, {}, {}, {}}, 
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0EtKglEABtDfR/ksHYTDpKGDhAIpRFdQEAU1qJkDIQc2rRXoCmoFtgJb
ga2grMzSbBJEm+hcHJz7fdwXl7vVujrpxqIoOmZfCb1i+JFFylRpcsgFHW7o
c8c9DzwSLjjiWa3JDcb6C6+8MeGdKR8k7DnlU2/LJDN9zhcLVs2d8a3vyRJP
+oghA27pcc0l5xzQYJtN/qg7W5C7Msu6vkaeHL9hb1iTOzJNRk+TCm9hhWR4
O/EwH1v+3z/m+iD9
        "]]}},
     VertexNormals->CompressedData["
1:eJx1eHk0le/bvUippEHSQCVFhaTSnCuVKRFS5jKUkkRmKUUokjmFUCGpzPN4
[encoded data, 10858 characters]
GpUMaEmh5g8FMFHewCjs9mtf1GqrHvsSz4D/B8tCazk=
      "]], {}}, {
    GraphicsComplex3DBox[CompressedData["
1:eJx1mnlcVdUWx1EUTByyQjJNRTEcshxeZsrzHIdSQq1wKtEGRZPEqdIc8mmi
[encoded data, 5673 characters]
Aq/T4A==
     "], {{
       {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], 
        StyleBox[GraphicsGroup3DBox[
          TagBox[Polygon3DBox[CompressedData["
1:eJxNmgn8llMWx5/7llJpTyXtJWLGqCRLQ6XQrLSgCSnKkkq2GDRIlqYkwqRI
[encoded data, 6649 characters]
zv8DPmB7Xg==
            "]],
           Annotation[#, "Charting`Private`Tag$14339#1"]& ]],
         Lighting->"Neutral"]}, {}, {}, {}, {}}, 
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0E1KAmEAx+Gx7EPt6wRGBUWFdoGEoGUF0q7ahZtc1KKCXAQGQp2gTqAX
0BatFOoEpVn2YR1BCKJdz+Dimf9vXubdzMz+0fZhJAiCHS5E2DmPnp1imjQZ
NtkjT4Erbqhwy0P4vbtVnvS5XaOpWzzTZtbZHS+6aed41R3emPde5z28Zxf4
0J90+WLRWYNvXbTrPOp7apS55pIzDthlg1VSJPmj5O6kPbUrTOhxxkjwS9Z5
3J7YFDE9ygg/bDkbtsd2mSEdZZABliL9//sP0k4qOQ==
        "]]}},
     VertexNormals->CompressedData["
1:eJx1eHk0lt33vigNNJFQIUOkUQOiOI2KzIpIA0qRSkQZkkyRzGPGZCjzlDEc
[encoded data, 14335 characters]
vhKKcaBDc922XxT0tOCokHk9FRvqfTWsTS/DgqsvUXT6Kej/AWccQro=
      "]], {}}, {
    GraphicsComplex3DBox[CompressedData["
1:eJx1mHlYj2kXx9vENEReJlFkGa/GlrHNVDyPrRHDWMcyIYaEGhkSTe8gwgwG
[encoded data, 4514 characters]
NjlbP9yj/wNyC+Jo
     "], {{
       {RGBColor[0, 1, 0], Opacity[0.2], EdgeForm[None], 
        StyleBox[GraphicsGroup3DBox[
          TagBox[Polygon3DBox[CompressedData["
1:eJxNmXe811UZx79HhkwFQRFIBREUcHAZggNZV7gMZamAskRkyd5CslEER+Iq
[encoded data, 4392 characters]
Yn4bw9Wfs449fjtsTtV9m9Wh3GJ+/g/snJOs
            "]],
           Annotation[#, "Charting`Private`Tag$14380#1"]& ]],
         Lighting->"Neutral"]}, {}, {}, {}, {}}, 
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0DtOAmEYBdAZQXn5oDCUEjsaqAjGRFaAIcFog52JBRba4gpkBbACWIGu
QFaAiPgCbUyIm/D8sThzbybfNzP/7F/cnFzHURS1OFBCL7n8yDxFKtQ55pwr
bukxYMQDY2K7TZ70qtxlqj8z44Wke6fM9Uu5zqv+xjsffLJgyRcpM2d86zVZ
YKI/cs+QPnd06dCmwRFl9vjl0O5OOJfMsa1vsUmOLBnS4b2swq65jfAcmQnf
HM5BgrUwG///vz+k5iDy
        "]]}},
     VertexNormals->CompressedData["
1:eJx1eHk0ld/bPqVJlJIoIpKhNEkl4jZkChnqg0KmJBTSpJTIGEKZE5Ip8zyG
[encoded data, 11163 characters]

      "]], {}}},
  ImageSize->{937.6735780750627, 476.8},
  ViewPoint->{1.668286241888984, -2.8041307840528686`, 0.896477306489722},
  ViewVertical->{-0.235693832335477, 0.2329900925904504, 
   0.9434850471277801}]], "Output",
 CellChangeTimes->{
  3.785045792710889*^9, 3.78504585724308*^9, 3.785045891792234*^9, {
   3.785045923361828*^9, 3.7850459313467627`*^9}, 3.785046041221805*^9, {
   3.7850460843224792`*^9, 3.7850462151953087`*^9}, {3.785046571764153*^9, 
   3.785046785443297*^9}, 3.7850468218032312`*^9, 3.7850479167593*^9, {
   3.785047950388239*^9, 3.785048028140559*^9}},
 CellLabel->
  "Out[114]=",ExpressionUUID->"a66c16b9-7055-4d96-ae38-ece1104a9a96"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "=", 
      RowBox[{"1", "/", "2"}]}], ",", 
     RowBox[{"\[CapitalDelta]v", "=", "0"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Re", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Epsilon]", "2"], "[", 
         RowBox[{"t", ",", "U", ",", "\[CapitalDelta]v"}], "]"}], 
        "\[LeftDoubleBracket]", 
        RowBox[{"2", ";;", "4"}], "\[RightDoubleBracket]"}], "]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"U", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Opacity", "[", "0.2", "]"}]}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Web\>\""}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{
  3.770994016421832*^9, 3.7709941054050503`*^9, {3.770995492452344*^9, 
   3.770995499495879*^9}, {3.771206446269553*^9, 3.771206500861327*^9}, {
   3.77120654089363*^9, 3.77120660388011*^9}, {3.771206653082106*^9, 
   3.771206657227775*^9}, {3.785044654608601*^9, 3.785044729675317*^9}, {
   3.785044764988731*^9, 3.785044783004488*^9}, {3.785045000163924*^9, 
   3.785045012763007*^9}, {3.785045279387266*^9, 3.785045453793168*^9}, {
   3.7850454908169727`*^9, 3.785045593229607*^9}, {3.785045626305575*^9, 
   3.7850456363573513`*^9}, {3.785045676278257*^9, 3.785045688182308*^9}, {
   3.785045728743188*^9, 3.785045825501775*^9}, {3.785045971892192*^9, 
   3.785046076179545*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"3f73bcc6-5be3-4025-8ba7-9ad4a12991b9"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.790588, 0.201176, 0.], AbsoluteThickness[3], Opacity[0.2], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BcqyKTFWwKwBT7GiY7
/AfARfzx16FoCsDERqVcdvgHwOJFLDAuZQrAJt65yezwB8AYIfsaR14KwOoM
46PZ4QfAzxC02nlQCsBwajVYs8MHwDa/KwjjNArAfiXawGaHB8AAiXxIxP0J
wJqbI5LNDgfATpxN0cOPCcCf34hvUQkGwIIoDo9nogjAFtBTTykVBcAIEFDI
TMYHwMhQU0TLJQTA6lk16BLwBsBIKSV0IyIDwNaK4EKZCQbAOq5cps8vAsCm
HNExdjQFwPqKZhMyKQHAx/k7BdJPBMD196SVXicAwOcl4lTycQPAxCKSNL5t
/r900MG8h6UCwDsFf7MrZPy/QcMfZOrKAcCUQDc3QX36v852bWP1AQHAY5xY
5eqf+L9GWJY6KkAAwM+nHgkBmva/hM4t86Xj/r8eDLAxv7b0v7lE82edav2/
CiDmz+mq8r/d/w8Yedv7v2xUhZioqPC/loNpMSBe+r9gw9/LHpLtvw2vO8Cc
BPm/Ij3+UcWB6b+HrWu8wpn3v6los+G7tuW/URA3KgJT9r9q87Fci5rhv9jh
95nB/vS/Ln4FWQYj27+Do1vOar/zvxN51AuWm9O/q1MlRTqj8r/XZGwqr+PG
v3RUiP+RfvG/d3oqjsmVrr91DfjEKnzwv6qPOECkMK0/L6QnwM4Z77+OaYHW
YILHPwkeK1EsMu2/DfRMO6xR0z968tTXXIjrv+B0xjR2hNs/KUl3dwza6b/u
uU3Cd8jhP1VmtvcfUui/poehYGSJ5T/JtrNWsv7mvyX2qxN4m+k/Tv4Mp6qp
5b/esh+9O2jtP8dAM4xIg+S/VZfgiOuQ8D9LWks+vHfjv56ljL1MlvI/R21c
2lxr4r8EW23tBXn0P0g6A6QOhOG/zmCpp1KE9j8Hk98kepzgv7UNGl33bPg/
eRaQepCp378mmiHoB0z6PxmMYdp0Pt6/+naE/atT/D8pepoDwdHcv+v6Gw6o
OP4/Pz+FTmmW27+gZ4fUGyMAQNQjCPKNWdq/kEHMjBklAUBlIqazZjnZvw5v
q0LDFQJARwby20M/2L++RLi9thoDQOCwasuaQte//W1fNlYOBECfUgSfp2bW
vwEH0pkr/QRA9KqYK7Gc1b82SHLCSgAGQKxNuJOWz9S/+tys6BXyBkBfwiv5
QxzUv0RsyJBN9gZAo432NDwZ1L+N++M4hfoGQJlHdUU1FtS/IBobifQCB0Bb
WlPjKRDUv0dXiSnTEwdAbjf7CR0E1L+U0WVqkDUHQLkps74q7NO/LsYe7Ap5
B0Dc+3Kq4bzTv3hVOpRCfQdAltOP5vO507/B5FU8eoEHQIFGx+0Gt9O/VAON
jOmJB0AodltcL7HTv3tA+yzImgdA6Vb2sYml07/IutdthbwHQDRMSv5jjtO/
EkrzFb3AB0A/gFfJgovTv1zZDr70xAdANLnjWqKI07/v90UOZM0HQFisVtDj
gtO/FjW0rkLeB0DDlrv8b3fTv2DEz1Z64gdAchTV85R007+pU+v+seYHQHqq
K6+6cdO/PHIiTyHvB0CpeXFxCGzTv4YBPvdY8wdASa3RdzBp07/QkFmfkPcH
QB7uUEFZZtO/GiB1R8j7B0CXBqjNgmPTv2OvkO///wdA8N+PHK1g078gQHoc

         "]]},
       Annotation[#, "Charting`Private`Tag$7834#1"]& ], 
      TagBox[
       {RGBColor[0.192157, 0.388235, 0.807843], AbsoluteThickness[3], Opacity[
        0.2], CapForm["Butt"], LineBox[CompressedData["
1:eJxF1H0s1HEcB/A73P1G3FoXW6eJs9MO08M8DeXLFDMmDrGUWx4zN83kqdE0
QqGboTottTwTSVkq7vLUSTrFMikPiXmMuNztzkNaX5/fH++9/nvv/dfb5GKc
X4QGhULx3sk/wxqFy9vbhGTX/WqWmeMGadfpipBEJanZWGvv4grpvO7U45FJ
0ssxNkHNnaTpnK+SyGxSUalpYT+DtGw8J85Xmw4aDPB8uPo0UHqG59bH0QI9
uJwEU7amxBLr0BBSKTuiIXHCqm5GMo9zqRI19o+ivPjCYYpEie1iF1q3C7bE
3VhH2rVmi/ANsAjZ2bmkqcTF2LD7QdPzZUpQVmWkTRWtg0a6T4+JW+SgjvGM
bK52FYz1z7pbXb0iFmD5neN9RoVL4lAs+8SWb3fGHFgT3Tz5umUajFlrCrkl
mgSt0mnBdNNRkJkytKekdBAcDo81b5zqAZNSzQt6ixvA2tv2qPzoE+ddCy5l
fOFffwfqyb0c630HwYmEHuvEzFHwV6t3R5J0EqzMfsQPz512rsBy1uuYyaVz
4NizQ22O0UtgwJ2JnAXhCvigIq/Nq2QV1DonWKKlyMGP/Joqv8x1537sCz3W
eUWsEjQTmcwSXipQlZi5WcfbABdUhoxq+y3wYVT2kKEpBe0qdPmQd4BDBRlx
da6d+hqIiW13e9nWwtIENwWhtoEMLZBKfL5nsUlq6xHf4Umhg6pv9bP6q3S0
9/t/3WKlQu91OorD5qun7LNUpMYsw1y5BgG6n83lDjJJiz5FxAhtSK16jBZ1
UkiTAxyKXNNI3/4McErNIPXXzM+byyUQD3sVqS2lIlLpq2FB1hsCvcfu81zT
b5MQ6CA2ZITRLu/a6cEuK04xwvsJ9BtrYPO8wXWMQCwsv0sWmPqDQFHYGt7C
VtMMgZqwTvFsH5NlAtlhb1BPKoLWSAeEwWVCBYFkWJbxFXepemcPFv8WisH+
BQ6qU3k=
         "]]},
       Annotation[#, "Charting`Private`Tag$7834#2"]& ], 
      TagBox[
       {RGBColor[1., 0.607843, 0.], AbsoluteThickness[3], Opacity[0.2], 
        CapForm["Butt"], LineBox[CompressedData["
1:eJwtlGs0lAkYgMdl5tv5YmpXahvlumMXm9RxW9L7ku4c41ot2tmQsiOlCHvU
sUtMW2ZWdJkuVsm1FFpbFt+XpOki1igrLSZpTcyS24z7tufsj+c8/56fj9nu
GL8IbQaD4f2B/xx2UzI0P0/Qw93i5TcEclg8zbV0nSHox+w7mQ5hcmjYeC0k
XkPQPpNOF+si5GDZdffR4DBBH15KnmiNksM7vd6rHQqC9jbJqNKKk8OBKIcd
lfcJ2qSg4liySA5HeS/pPekEXWNk4DZYIQfpBYusJg5B5zP5k+VEG+R2Z8T4
sln0wk3WM7dkbbCkxd/HypBJX5xXPDQSPQcZ39/zCU+XXrVlkYmb3wvYbMU7
bGGuQwv0OuPKXNvBpSykoHmVNr3z0NVge96fMHVij8EaKy36YHxp5rx9B4yr
83N2fc6gxTHKyUsBL6HBPMu+LnqOEmseGGyI6wRX5rFKm/AZyoyp7Z/f+Aqy
0cnJPXmKsr2dua6A2wVhF3f0vcvVUJf4fChI6YbmQmO2lnSCivI2bttyugeM
9W6tpqrGKIeDx4U1kQogTd82K0tGqALKX2L87WsQBqSdKyoapgJ2yVYPRfWC
4H73E+MsFVUtPXube+QNmLvN+T5IUVKDKzos6fI+KN5bqfi9qo/S/FYdu3no
LUSNlof8JFVQG1vc2tW7+8H2KHMny6KTGk63P+CnUoJBYtuCMxfkVFOUILU4
YQDaw4XWN3sbqQpxnL2zpwqOJFlnPsopo9Yf0n+v4QxBidgZ8+1uQPYZwx+E
8cOQuS/lheCHh+BYE7F+t+g96I95uV73lQNW1SadPzcCPYcb7eNTO+Gpu0pm
8WwU/rnrXX9EpgCzRdp/bdMfh4L0PEG4qA+cc0uCF3hOAG+i1CDhghK+SgoJ
/fmKGroqTGpd96qgNbH4s/pxDQSe7ckYkAxDiier6JHXFFy+drLW68wIuL+q
tp5+Mg26wdEqZuIYfKHZD/qus/BMUFzolzoBvtbLqsWtc/CrPjdULdRACbu7
9oYNAy2lZv3Eh07OXIi4VcXAqfjU2VL/Gag/4WDCadDCgSkjTpHzHIRe67Iz
E2vjL5HpbUYWDFwulGV579dBifvTk8t4WtjOdA/b6KWLnJhSj/uG2vj8plVd
6Qom1nneqa3i6mCPlLeU1GHhbPQ3jkEcXeRrwNqmk4VaROt5m1ld3LV8A3Xv
FoGOm2PrtzJY+LevMttN+hFOvbrebzjCQo/A1sjLcWz0FMok3hMsHHGLXBqX
yMZT073OaVMsTMrPUmxLZqMp10g0pk3gvrS0B5OpbNy0XWQlNyBwZZ3scVA2
G7P/iIiSOBDY6ri23rCSjbaNxoNkIoEFvGizwmE2JgS6ZHskEzjqo/dxyhgb
770JXJuUQmBOE4cbrGFjgM6pk0oRgRaxnyYsZJD4PU5/KZMSGLTAJSxxIYmy
6vbotBoCt+vmqXxtSfxk66hhLU3gYhfjmJVrSAzp4NSNNRAo4n/HZjuSOKTe
wAlvIvBoEz+DdiNxicPtMo8uAscLt5XZeZMoaGgOSnpNYP+ereN6viQW+w/M
lb8l8L2sJUAZQOLaWHMfsyECY/P4oVdCSDyutU69Y5RAOydn1jEBiS2SnbkS
NYHish8fBoeTyDWN2ySbJlBhap3nvJfE//+FX5eanzYUkvgvEY08Wg==
         "]]},
       Annotation[#, "Charting`Private`Tag$7834#3"]& ]}, {}}, InsetBox[
     TemplateBox[{TagBox[
        FrameBox[
         StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"],TagBox[
        FrameBox[
         StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.790588, 0.201176, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1., 0.607843, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[3], 
                    Opacity[0.2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.790588, 0.201176, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5270586666666667, 0.13411733333333334`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.790588`", ",", "0.201176`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.790588, 0.201176, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.790588, 0.201176, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.2`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.192157, 0.388235, 0.807843], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.12810466666666667`, 0.25882333333333335`, 0.538562], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.192157`", ",", "0.388235`", ",", "0.807843`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.192157, 0.388235, 0.807843]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.192157, 0.388235, 0.807843], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.2`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.607843, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.4052286666666667, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.607843`", ",", "0.`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.607843, 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.607843, 0.], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                   RowBox[{"Opacity", "[", "0.2`", "]"}]}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->16,
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameStyle->{{
      StrokeForm[
       Opacity[0]], 
      StrokeForm[
       Opacity[0]]}, {Automatic, None}},
   FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}, {
      Charting`FindScaledTicks[
        (Charting`SimpleTicks[#, #2, 6]& )[
         SlotSequence[1]], {Identity, Identity}]& , {}}}, {{{{-3., 
         FormBox[
          RowBox[{"-", "3"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}, {{{-3., 
         FormBox[
          RowBox[{"-", "3"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          RowBox[{"-", "2"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          RowBox[{"-", "1"}], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox["0", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox["1", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox["2", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox["3", TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}}, {}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.4, 0.5], 
     AbsoluteThickness[1], 
     AbsoluteDashing[{1, 2}]],
   ImagePadding->All,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{-3, 3}, {-3.3027755255656484`, 3.3027755255656475`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
      (Charting`SimpleTicks[#, #2, 6]& )[
       SlotSequence[1]], {Identity, Identity}]& }],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           RGBColor[0.790588, 0.201176, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3], 
           Opacity[0.2]], 
          Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///B8BcqyKTFWwKwBT7GiY7
/AfARfzx16FoCsDERqVcdvgHwOJFLDAuZQrAJt65yezwB8AYIfsaR14KwOoM
46PZ4QfAzxC02nlQCsBwajVYs8MHwDa/KwjjNArAfiXawGaHB8AAiXxIxP0J
wJqbI5LNDgfATpxN0cOPCcCf34hvUQkGwIIoDo9nogjAFtBTTykVBcAIEFDI
TMYHwMhQU0TLJQTA6lk16BLwBsBIKSV0IyIDwNaK4EKZCQbAOq5cps8vAsCm
HNExdjQFwPqKZhMyKQHAx/k7BdJPBMD196SVXicAwOcl4lTycQPAxCKSNL5t
/r900MG8h6UCwDsFf7MrZPy/QcMfZOrKAcCUQDc3QX36v852bWP1AQHAY5xY
5eqf+L9GWJY6KkAAwM+nHgkBmva/hM4t86Xj/r8eDLAxv7b0v7lE82edav2/
CiDmz+mq8r/d/w8Yedv7v2xUhZioqPC/loNpMSBe+r9gw9/LHpLtvw2vO8Cc
BPm/Ij3+UcWB6b+HrWu8wpn3v6los+G7tuW/URA3KgJT9r9q87Fci5rhv9jh
95nB/vS/Ln4FWQYj27+Do1vOar/zvxN51AuWm9O/q1MlRTqj8r/XZGwqr+PG
v3RUiP+RfvG/d3oqjsmVrr91DfjEKnzwv6qPOECkMK0/L6QnwM4Z77+OaYHW
YILHPwkeK1EsMu2/DfRMO6xR0z968tTXXIjrv+B0xjR2hNs/KUl3dwza6b/u
uU3Cd8jhP1VmtvcfUui/poehYGSJ5T/JtrNWsv7mvyX2qxN4m+k/Tv4Mp6qp
5b/esh+9O2jtP8dAM4xIg+S/VZfgiOuQ8D9LWks+vHfjv56ljL1MlvI/R21c
2lxr4r8EW23tBXn0P0g6A6QOhOG/zmCpp1KE9j8Hk98kepzgv7UNGl33bPg/
eRaQepCp378mmiHoB0z6PxmMYdp0Pt6/+naE/atT/D8pepoDwdHcv+v6Gw6o
OP4/Pz+FTmmW27+gZ4fUGyMAQNQjCPKNWdq/kEHMjBklAUBlIqazZjnZvw5v
q0LDFQJARwby20M/2L++RLi9thoDQOCwasuaQte//W1fNlYOBECfUgSfp2bW
vwEH0pkr/QRA9KqYK7Gc1b82SHLCSgAGQKxNuJOWz9S/+tys6BXyBkBfwiv5
QxzUv0RsyJBN9gZAo432NDwZ1L+N++M4hfoGQJlHdUU1FtS/IBobifQCB0Bb
WlPjKRDUv0dXiSnTEwdAbjf7CR0E1L+U0WVqkDUHQLkps74q7NO/LsYe7Ap5
B0Dc+3Kq4bzTv3hVOpRCfQdAltOP5vO507/B5FU8eoEHQIFGx+0Gt9O/VAON
jOmJB0AodltcL7HTv3tA+yzImgdA6Vb2sYml07/IutdthbwHQDRMSv5jjtO/
EkrzFb3AB0A/gFfJgovTv1zZDr70xAdANLnjWqKI07/v90UOZM0HQFisVtDj
gtO/FjW0rkLeB0DDlrv8b3fTv2DEz1Z64gdAchTV85R007+pU+v+seYHQHqq
K6+6cdO/PHIiTyHvB0CpeXFxCGzTv4YBPvdY8wdASa3RdzBp07/QkFmfkPcH
QB7uUEFZZtO/GiB1R8j7B0CXBqjNgmPTv2OvkO///wdA8N+PHK1g078gQHoc

           "]]}, "Charting`Private`Tag$7834#1"], 
        Annotation[{
          Directive[
           RGBColor[0.192157, 0.388235, 0.807843], 
           CapForm["Butt"], 
           AbsoluteThickness[3], 
           Opacity[0.2]], 
          Line[CompressedData["
1:eJxF1H0s1HEcB/A73P1G3FoXW6eJs9MO08M8DeXLFDMmDrGUWx4zN83kqdE0
QqGboTottTwTSVkq7vLUSTrFMikPiXmMuNztzkNaX5/fH++9/nvv/dfb5GKc
X4QGhULx3sk/wxqFy9vbhGTX/WqWmeMGadfpipBEJanZWGvv4grpvO7U45FJ
0ssxNkHNnaTpnK+SyGxSUalpYT+DtGw8J85Xmw4aDPB8uPo0UHqG59bH0QI9
uJwEU7amxBLr0BBSKTuiIXHCqm5GMo9zqRI19o+ivPjCYYpEie1iF1q3C7bE
3VhH2rVmi/ANsAjZ2bmkqcTF2LD7QdPzZUpQVmWkTRWtg0a6T4+JW+SgjvGM
bK52FYz1z7pbXb0iFmD5neN9RoVL4lAs+8SWb3fGHFgT3Tz5umUajFlrCrkl
mgSt0mnBdNNRkJkytKekdBAcDo81b5zqAZNSzQt6ixvA2tv2qPzoE+ddCy5l
fOFffwfqyb0c630HwYmEHuvEzFHwV6t3R5J0EqzMfsQPz512rsBy1uuYyaVz
4NizQ22O0UtgwJ2JnAXhCvigIq/Nq2QV1DonWKKlyMGP/Joqv8x1537sCz3W
eUWsEjQTmcwSXipQlZi5WcfbABdUhoxq+y3wYVT2kKEpBe0qdPmQd4BDBRlx
da6d+hqIiW13e9nWwtIENwWhtoEMLZBKfL5nsUlq6xHf4Umhg6pv9bP6q3S0
9/t/3WKlQu91OorD5qun7LNUpMYsw1y5BgG6n83lDjJJiz5FxAhtSK16jBZ1
UkiTAxyKXNNI3/4McErNIPXXzM+byyUQD3sVqS2lIlLpq2FB1hsCvcfu81zT
b5MQ6CA2ZITRLu/a6cEuK04xwvsJ9BtrYPO8wXWMQCwsv0sWmPqDQFHYGt7C
VtMMgZqwTvFsH5NlAtlhb1BPKoLWSAeEwWVCBYFkWJbxFXepemcPFv8WisH+
BQ6qU3k=
           "]]}, "Charting`Private`Tag$7834#2"], 
        Annotation[{
          Directive[
           RGBColor[1., 0.607843, 0.], 
           CapForm["Butt"], 
           AbsoluteThickness[3], 
           Opacity[0.2]], 
          Line[CompressedData["
1:eJwtlGs0lAkYgMdl5tv5YmpXahvlumMXm9RxW9L7ku4c41ot2tmQsiOlCHvU
sUtMW2ZWdJkuVsm1FFpbFt+XpOki1igrLSZpTcyS24z7tufsj+c8/56fj9nu
GL8IbQaD4f2B/xx2UzI0P0/Qw93i5TcEclg8zbV0nSHox+w7mQ5hcmjYeC0k
XkPQPpNOF+si5GDZdffR4DBBH15KnmiNksM7vd6rHQqC9jbJqNKKk8OBKIcd
lfcJ2qSg4liySA5HeS/pPekEXWNk4DZYIQfpBYusJg5B5zP5k+VEG+R2Z8T4
sln0wk3WM7dkbbCkxd/HypBJX5xXPDQSPQcZ39/zCU+XXrVlkYmb3wvYbMU7
bGGuQwv0OuPKXNvBpSykoHmVNr3z0NVge96fMHVij8EaKy36YHxp5rx9B4yr
83N2fc6gxTHKyUsBL6HBPMu+LnqOEmseGGyI6wRX5rFKm/AZyoyp7Z/f+Aqy
0cnJPXmKsr2dua6A2wVhF3f0vcvVUJf4fChI6YbmQmO2lnSCivI2bttyugeM
9W6tpqrGKIeDx4U1kQogTd82K0tGqALKX2L87WsQBqSdKyoapgJ2yVYPRfWC
4H73E+MsFVUtPXube+QNmLvN+T5IUVKDKzos6fI+KN5bqfi9qo/S/FYdu3no
LUSNlof8JFVQG1vc2tW7+8H2KHMny6KTGk63P+CnUoJBYtuCMxfkVFOUILU4
YQDaw4XWN3sbqQpxnL2zpwqOJFlnPsopo9Yf0n+v4QxBidgZ8+1uQPYZwx+E
8cOQuS/lheCHh+BYE7F+t+g96I95uV73lQNW1SadPzcCPYcb7eNTO+Gpu0pm
8WwU/rnrXX9EpgCzRdp/bdMfh4L0PEG4qA+cc0uCF3hOAG+i1CDhghK+SgoJ
/fmKGroqTGpd96qgNbH4s/pxDQSe7ckYkAxDiier6JHXFFy+drLW68wIuL+q
tp5+Mg26wdEqZuIYfKHZD/qus/BMUFzolzoBvtbLqsWtc/CrPjdULdRACbu7
9oYNAy2lZv3Eh07OXIi4VcXAqfjU2VL/Gag/4WDCadDCgSkjTpHzHIRe67Iz
E2vjL5HpbUYWDFwulGV579dBifvTk8t4WtjOdA/b6KWLnJhSj/uG2vj8plVd
6Qom1nneqa3i6mCPlLeU1GHhbPQ3jkEcXeRrwNqmk4VaROt5m1ld3LV8A3Xv
FoGOm2PrtzJY+LevMttN+hFOvbrebzjCQo/A1sjLcWz0FMok3hMsHHGLXBqX
yMZT073OaVMsTMrPUmxLZqMp10g0pk3gvrS0B5OpbNy0XWQlNyBwZZ3scVA2
G7P/iIiSOBDY6ri23rCSjbaNxoNkIoEFvGizwmE2JgS6ZHskEzjqo/dxyhgb
770JXJuUQmBOE4cbrGFjgM6pk0oRgRaxnyYsZJD4PU5/KZMSGLTAJSxxIYmy
6vbotBoCt+vmqXxtSfxk66hhLU3gYhfjmJVrSAzp4NSNNRAo4n/HZjuSOKTe
wAlvIvBoEz+DdiNxicPtMo8uAscLt5XZeZMoaGgOSnpNYP+ereN6viQW+w/M
lb8l8L2sJUAZQOLaWHMfsyECY/P4oVdCSDyutU69Y5RAOydn1jEBiS2SnbkS
NYHish8fBoeTyDWN2ySbJlBhap3nvJfE//+FX5eanzYUkvgvEY08Wg==
           "]]}, 
         "Charting`Private`Tag$7834#3"]}}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& , 
        Charting`FindScaledTicks[
         (Charting`SimpleTicks[#, #2, 6]& )[
          SlotSequence[1]], {Identity, Identity}]& }, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}, {
        Charting`FindScaledTicks[
          (Charting`SimpleTicks[#, #2, 6]& )[
           SlotSequence[1]], {Identity, Identity}]& , {}}}, 
      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 -> 1, Axes -> {False, False}, 
      AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> 16, 
      DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> {{
         StrokeForm[
          Opacity[0]], 
         StrokeForm[
          Opacity[0]]}, {Automatic, None}}, 
      FrameTicks -> {{Charting`SimpleTicks[#, #2, 6]& , None}, {
        Charting`SimpleTicks[#, #2, 6]& , None}}, GridLines -> {None, None}, 
      GridLinesStyle -> Directive[
        GrayLevel[0.4, 0.5], 
        AbsoluteThickness[1], 
        AbsoluteDashing[{1, 2}]], 
      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 -> {{-3, 3}, {-3.3027755255656484`, 3.3027755255656475`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, 
      Ticks -> {
       Charting`SimpleTicks[#, #2, 6]& , Charting`SimpleTicks[#, #2, 6]& }}], 
    
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         RGBColor[0.790588, 0.201176, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3], 
         Opacity[0.2]], 
        Directive[
         RGBColor[0.192157, 0.388235, 0.807843], 
         CapForm["Butt"], 
         AbsoluteThickness[3], 
         Opacity[0.2]], 
        Directive[
         RGBColor[1., 0.607843, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[3], 
         Opacity[0.2]]}, {
        HoldForm[
         Placeholder[
          Style[1, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[2, Smaller]]], 
        HoldForm[
         Placeholder[
          Style[3, Smaller]]]}, LegendMarkers -> None, LabelStyle -> {}, 
       LegendLayout -> "Column"]], {Right, Center}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.78504599729522*^9, 3.785046076794483*^9}},
 CellLabel->"Out[69]=",ExpressionUUID->"a5514e63-27e4-463e-a62a-f18bad20fa96"]
}, Open  ]]
}, Closed]]
},
WindowSize->{2560, 1395},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 13, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"ce675d1c-5dcb-4f22-90a4-6e534413b220"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 159, 3, 123, "Title",ExpressionUUID->"df6838b3-416f-41aa-8feb-92b063181cb8"],
Cell[742, 27, 309, 6, 4918, "Input",ExpressionUUID->"f66e47c0-50bd-4108-a130-4d3b6eef42b2",
 InitializationCell->True],
Cell[1054, 35, 575, 12, 7271, "Input",ExpressionUUID->"ff79391f-b0b3-409a-a00a-941dbaf24736",
 InitializationCell->True],
Cell[1632, 49, 444, 9, 10065, "Input",ExpressionUUID->"fde18561-43e3-4c0a-a95a-b9d4cbabddc8"]
}, Closed]],
Cell[CellGroupData[{
Cell[2113, 63, 211, 4, 89, "Title",ExpressionUUID->"9c2617bc-7813-4cf8-b99a-7080e4a61068"],
Cell[2327, 69, 250, 6, 44, "Text",ExpressionUUID->"413c3c81-85ff-4454-bff8-cf56cbfb864e"],
Cell[CellGroupData[{
Cell[2602, 79, 228, 4, 84, "Section",ExpressionUUID->"78a3f160-dbc5-42fe-84c6-fd027d5630f1"],
Cell[CellGroupData[{
Cell[2855, 87, 162, 3, 67, "Subsection",ExpressionUUID->"c05480aa-12a8-42bf-9ddf-40acaf6125b5"],
Cell[3020, 92, 151592, 2492, 29882, "Input",ExpressionUUID->"a33c358c-7ba2-498f-8b48-614f780939eb"]
}, Closed]],
Cell[CellGroupData[{
Cell[154649, 2589, 132, 3, 46, "Subsection",ExpressionUUID->"cab6fe9a-e87b-498f-ac4e-77c3e76c081f"],
Cell[154784, 2594, 201043, 3302, 29501, "Input",ExpressionUUID->"45745601-6db0-4b70-9341-555e7abea2c4"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[355876, 5902, 171, 3, 84, "Section",ExpressionUUID->"3294b450-814c-4252-b8db-ce6dbf524a45"],
Cell[CellGroupData[{
Cell[356072, 5909, 159, 3, 67, "Subsection",ExpressionUUID->"8a627e6a-7231-48ee-864d-8b72abff9de8"],
Cell[356234, 5914, 207483, 3407, 3656, "Input",ExpressionUUID->"21f0b41d-04fa-43c7-b2fc-a17549826a12"]
}, Closed]],
Cell[CellGroupData[{
Cell[563754, 9326, 165, 3, 46, "Subsection",ExpressionUUID->"ad1bf883-f9e0-409f-913b-f1973489bf37"],
Cell[563922, 9331, 895, 23, 44, "Text",ExpressionUUID->"4459c1e2-9521-4527-9764-2f8dbbbb58c6"],
Cell[CellGroupData[{
Cell[564842, 9358, 2834, 82, 100, "Input",ExpressionUUID->"fc5e52d4-dd9a-4ca1-9e17-f8a5864a3c7a"],
Cell[567679, 9442, 203, 3, 42, "Output",ExpressionUUID->"0b127627-1c73-48f9-ab29-e3a88449cea4"]
}, Open  ]],
Cell[567897, 9448, 174, 3, 44, "Text",ExpressionUUID->"f0ec1282-5519-4bc3-bbc2-15b58bc40878"],
Cell[CellGroupData[{
Cell[568096, 9455, 1115, 25, 100, "Input",ExpressionUUID->"e8bc24ca-d63e-4317-8f56-29725dd33e93"],
Cell[569214, 9482, 2433, 66, 46, "Output",ExpressionUUID->"7325c05a-1fb2-453d-a7a2-02fd26c61e7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[571684, 9553, 2353, 62, 92, "Input",ExpressionUUID->"0c9257e5-9766-4e50-b0f4-e8be9fba566e"],
Cell[574040, 9617, 65328, 1241, 468, "Output",ExpressionUUID->"2bff8305-057b-48ab-b1e8-07cfccf6869a"]
}, Open  ]],
Cell[639383, 10861, 241, 6, 44, "Text",ExpressionUUID->"22b2083c-b560-418d-951c-765afd1b6a38"],
Cell[639627, 10869, 2029, 54, 117, "Input",ExpressionUUID->"304058af-372f-46d3-8990-35bbe8a5fcf0"],
Cell[641659, 10925, 1287, 39, 51, "Input",ExpressionUUID->"971084cf-62a0-43db-aa6f-7e6c17a43b0a"],
Cell[642949, 10966, 650, 20, 54, "Input",ExpressionUUID->"227afb56-178f-4bea-b36d-6bdaf2eb91d9"],
Cell[643602, 10988, 909, 26, 41, "Input",ExpressionUUID->"e479baef-6cfa-4814-bea8-7e485d5c874f"],
Cell[644514, 11016, 1611, 47, 61, "Input",ExpressionUUID->"090a6ff9-5f7a-43eb-b4ab-d74d1d2db662"],
Cell[CellGroupData[{
Cell[646150, 11067, 3695, 95, 101, "Input",ExpressionUUID->"f7b3d1c9-0446-4aff-b152-c4559f8aaacd"],
Cell[649848, 11164, 90128, 1657, 464, "Output",ExpressionUUID->"59445f38-e32b-4a57-8b16-6f3ff68215fb"]
}, Open  ]],
Cell[739991, 12824, 293, 5, 44, "Text",ExpressionUUID->"37633d4a-ef6d-4b02-b125-d807d25aec95"]
}, Closed]],
Cell[CellGroupData[{
Cell[740321, 12834, 222, 4, 46, "Subsection",ExpressionUUID->"5980089a-4796-4e89-ad09-eb2ed79c7425"],
Cell[740546, 12840, 225, 5, 44, "Text",ExpressionUUID->"953be7ff-41e4-45b1-a015-d0df66d05f83"],
Cell[CellGroupData[{
Cell[740796, 12849, 1315, 37, 100, "Input",ExpressionUUID->"e10914c2-dd3a-4e3d-a7ba-72128c1b66c6"],
Cell[742114, 12888, 447, 7, 42, "Output",ExpressionUUID->"fc20dc24-2f5b-4cd2-9bcf-5f2517830577"]
}, Open  ]],
Cell[742576, 12898, 189, 3, 44, "Text",ExpressionUUID->"0aa98ec7-45ee-4f15-aaba-dd950dc870f4"],
Cell[742768, 12903, 482, 14, 70, "Input",ExpressionUUID->"809c61c9-1ba6-4e7b-b63a-0ed86b799897"]
}, Closed]],
Cell[CellGroupData[{
Cell[743287, 12922, 170, 3, 46, "Subsection",ExpressionUUID->"420a5ce7-27cf-4527-9e92-4daed855756e"],
Cell[743460, 12927, 181, 3, 44, "Text",ExpressionUUID->"557c8ba6-1d1d-4cf7-a468-5e8c31f78047"],
Cell[743644, 12932, 727, 24, 67, "Input",ExpressionUUID->"4542e745-01ed-4ef4-889f-c6a0d5a4929d"],
Cell[744374, 12958, 264, 6, 44, "Text",ExpressionUUID->"ffd9111f-fa01-4727-a27f-ab4f269ba6dc"],
Cell[744641, 12966, 562, 18, 72, "Input",ExpressionUUID->"a36bfff4-4fe9-42b8-923d-de65e596948c"],
Cell[CellGroupData[{
Cell[745228, 12988, 5412, 133, 252, "Input",ExpressionUUID->"997027d9-afe0-4319-bbe3-96bac538d02b"],
Cell[750643, 13123, 100632, 1861, 452, "Output",ExpressionUUID->"acd72116-bdea-4f1b-9f9e-26c8407d320e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[851324, 14990, 166, 3, 46, "Subsection",ExpressionUUID->"0862c07f-daa4-4812-932b-3ce330901d36"],
Cell[851493, 14995, 215, 5, 44, "Text",ExpressionUUID->"1a3a041f-de38-457a-87bb-117432cae34a"],
Cell[851711, 15002, 294, 8, 38, "Input",ExpressionUUID->"b51e004f-dc0f-43f7-b593-78f2b9132979"],
Cell[CellGroupData[{
Cell[852030, 15014, 4009, 101, 194, "Input",ExpressionUUID->"bda7b5be-1178-40e5-a42d-56cdb2173a50"],
Cell[856042, 15117, 132591, 2359, 468, "Output",ExpressionUUID->"2d60aed5-45ac-4352-94b2-563ed063b894"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[988694, 17483, 257, 4, 84, "Section",ExpressionUUID->"9f4be37b-e6e0-4921-a71b-a9f742d754e3"],
Cell[CellGroupData[{
Cell[988976, 17491, 160, 3, 67, "Subsection",ExpressionUUID->"c4a8ead7-0b01-451c-930e-3ebdda71579a"],
Cell[989139, 17496, 199, 4, 44, "Text",ExpressionUUID->"43ee682f-30bb-4b4e-8cf5-95bc6e56dbf4"],
Cell[989341, 17502, 929, 28, 59, "Input",ExpressionUUID->"d95c5275-4764-4c06-bd04-5f4d569aa907"],
Cell[990273, 17532, 1167, 37, 58, "Input",ExpressionUUID->"c21529df-2611-4475-8d6d-6fdd48f339e9"],
Cell[991443, 17571, 783, 26, 40, "Input",ExpressionUUID->"5ebe9b84-c77f-456e-be78-14624dd0d391"],
Cell[992229, 17599, 861, 27, 59, "Input",ExpressionUUID->"4341c551-840d-4b3a-90da-2f3ebcada409"],
Cell[993093, 17628, 785, 25, 59, "Input",ExpressionUUID->"c9ad7c3d-87e2-4c67-8ebd-e78ec6a0e597"]
}, Closed]],
Cell[CellGroupData[{
Cell[993915, 17658, 197, 3, 46, "Subsection",ExpressionUUID->"b9942fac-b310-40fc-a252-5af154a937f3"],
Cell[994115, 17663, 605, 15, 57, "Input",ExpressionUUID->"e5e46080-a532-4fe1-9b12-79ad30ce7b76"],
Cell[994723, 17680, 650, 20, 54, "Input",ExpressionUUID->"b6225627-e2b5-4862-8fee-a5ea25b96f89"],
Cell[995376, 17702, 980, 28, 57, "Input",ExpressionUUID->"f9e3bdb2-6a80-4fe1-a0b9-bb1078d87028"],
Cell[996359, 17732, 1214, 37, 39, "Input",ExpressionUUID->"b1a83f2d-55e0-4f5e-b2de-c28734917f10"],
Cell[997576, 17771, 1013, 29, 41, "Input",ExpressionUUID->"47790058-3d54-4086-948d-a404883e0cf2"],
Cell[998592, 17802, 549, 14, 51, "Input",ExpressionUUID->"96037672-4cc5-4d58-b59c-d498cb67eeee"],
Cell[999144, 17818, 725, 21, 51, "Input",ExpressionUUID->"e9207388-c781-435c-a3e7-d2dd7c1af9e6"],
Cell[999872, 17841, 656, 19, 53, "Input",ExpressionUUID->"21121967-f922-420a-8f58-d15289c6a536"],
Cell[1000531, 17862, 1024, 30, 60, "Input",ExpressionUUID->"271e0136-a935-404f-8672-a7b2270cd2af"],
Cell[1001558, 17894, 482, 15, 55, "Input",ExpressionUUID->"01c7c3a6-1c6d-4d4a-9b48-30f99a9cf3db"],
Cell[1002043, 17911, 1040, 33, 87, "Input",ExpressionUUID->"cd4179ae-9f5c-4029-baf1-3a429e44cc0b"],
Cell[CellGroupData[{
Cell[1003108, 17948, 169, 3, 56, "Subsubsection",ExpressionUUID->"d5ff460b-3d7e-463e-8e87-adcf8aa3c4df"],
Cell[1003280, 17953, 186, 3, 44, "Text",ExpressionUUID->"30f99f9e-c2ef-4d85-99b7-051a6f1d4ed0"],
Cell[1003469, 17958, 2091, 51, 187, "Input",ExpressionUUID->"4af9f5f0-e6ae-4f5e-b1cf-86451b81b862",
 InitializationCell->True],
Cell[1005563, 18011, 1981, 49, 187, "Input",ExpressionUUID->"b2cb20b3-cf66-43df-b9e4-85c66b517b43",
 InitializationCell->True],
Cell[1007547, 18062, 260, 6, 44, "Text",ExpressionUUID->"1aac2966-d99c-46a8-8598-d9e0ccb22d52"],
Cell[1007810, 18070, 3341, 83, 273, "Input",ExpressionUUID->"94db21b7-fcd6-4e0a-b9a5-6d344f8611f3",
 InitializationCell->True],
Cell[1011154, 18155, 330, 5, 44, "Text",ExpressionUUID->"04bacc0e-7ab7-4450-b4ac-b0b10e0f7e8c"],
Cell[CellGroupData[{
Cell[1011509, 18164, 2406, 60, 119, "Input",ExpressionUUID->"268b8e5a-eb2a-40c1-af3d-47e7345ef184"],
Cell[1013918, 18226, 101023, 1871, 471, "Output",ExpressionUUID->"a3311dbe-77bc-4e50-8c68-84225301dd58"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1114990, 20103, 167, 3, 45, "Subsubsection",ExpressionUUID->"64aab028-6769-4d68-8f66-0174c0ae5c5d"],
Cell[1115160, 20108, 180, 3, 68, "Text",ExpressionUUID->"685f89e8-3ebd-4a92-a93a-10bd0a374974"],
Cell[CellGroupData[{
Cell[1115365, 20115, 2269, 63, 185, "Input",ExpressionUUID->"513ca180-6193-499b-b046-820a3ded2d4c"],
Cell[1117637, 20180, 119161, 2188, 700, "Output",ExpressionUUID->"bbeae9d4-e664-4b4d-8dec-cf4e71f98c57"]
}, Open  ]],
Cell[1236813, 22371, 195, 3, 68, "Text",ExpressionUUID->"acef0eb6-59f8-4a4c-87a3-f3ce45fa858c"],
Cell[1237011, 22376, 1080, 35, 95, "Input",ExpressionUUID->"74c0177f-05fb-4684-8eda-6933d1fbb8bc"]
}, Closed]],
Cell[CellGroupData[{
Cell[1238128, 22416, 163, 3, 45, "Subsubsection",ExpressionUUID->"279fd5b3-b101-4014-a2cd-a2312d797303"],
Cell[1238294, 22421, 189, 3, 68, "Text",ExpressionUUID->"1cb50b86-d0d1-4d84-9129-9468853babf7"],
Cell[CellGroupData[{
Cell[1238508, 22428, 2039, 56, 221, "Input",ExpressionUUID->"6be25bb8-7d9e-4ec4-ba5f-fccb3c01d363"],
Cell[1240550, 22486, 142048, 2512, 692, "Output",ExpressionUUID->"75397e57-f897-4ca7-acdd-706ff9cd20b6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1382647, 25004, 238, 4, 45, "Subsubsection",ExpressionUUID->"4019d2a7-2eff-42eb-998c-bb5c25641bc0"],
Cell[CellGroupData[{
Cell[1382910, 25012, 4644, 125, 2600, "Input",ExpressionUUID->"f53f57af-3ae0-4740-b122-7ccce7283087"],
Cell[1387557, 25139, 135470, 2399, 3960, "Output",ExpressionUUID->"8fa879dd-0c88-476d-be23-26d0455a8cc8"]
}, Open  ]],
Cell[1523042, 27541, 156, 3, 339, "Input",ExpressionUUID->"bde5b5a1-664f-4792-98d8-71c368e1a3a2"]
}, Closed]],
Cell[CellGroupData[{
Cell[1523235, 27549, 238, 4, 45, "Subsubsection",ExpressionUUID->"b006a78f-5c2a-4a56-8ed5-681ac1bd5cea"],
Cell[CellGroupData[{
Cell[1523498, 27557, 3845, 102, 6754, "Input",ExpressionUUID->"dfff4665-dc22-4fa9-a94f-99a2ce1ada81"],
Cell[1527346, 27661, 111368, 2017, 10534, "Output",ExpressionUUID->"de414289-7935-4c13-8aff-1a5987e6b958"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1638763, 29684, 189, 3, 45, "Subsubsection",ExpressionUUID->"9391275f-419e-4780-bf5a-704aa9d9fd2c"],
Cell[1638955, 29689, 195, 4, 401, "Text",ExpressionUUID->"0218b203-95a9-4fa5-b0fe-e5b617c8a5c4"],
Cell[1639153, 29695, 1199, 36, 800, "Input",ExpressionUUID->"4c21cb09-8d5e-4aaa-9762-9762e69e05a7"],
Cell[1640355, 29733, 334, 7, 401, "Text",ExpressionUUID->"50a1fda8-1377-4469-89b6-fac30b3f57d3"],
Cell[1640692, 29742, 1306, 44, 379, "Input",ExpressionUUID->"4ec52247-b681-4bc8-9c6c-8b4ac8b2ad46"],
Cell[CellGroupData[{
Cell[1642023, 29790, 1202, 37, 800, "Input",ExpressionUUID->"3799a252-a997-4e88-9f74-ac215a76eca5"],
Cell[1643228, 29829, 312, 9, 382, "Output",ExpressionUUID->"dfbb54e5-83f9-4b32-b8db-a76f0c22e1c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1643577, 29843, 1965, 59, 379, "Input",ExpressionUUID->"81aa1813-6a49-47a4-a7eb-a5de6fa57eae"],
Cell[1645545, 29904, 988, 27, 382, "Output",ExpressionUUID->"26cff213-1645-4a31-801f-14b8b972f3d6"]
}, Open  ]],
Cell[1646548, 29934, 207, 4, 401, "Text",ExpressionUUID->"f4a27aa6-73c9-4dcf-8ee7-37aaf9296606"],
Cell[1646758, 29940, 852, 26, 512, "Input",ExpressionUUID->"179f71a2-3a7d-467f-a335-5c427712a037"],
Cell[CellGroupData[{
Cell[1647635, 29970, 898, 28, 501, "Input",ExpressionUUID->"0fd0c53a-40f4-4206-8782-637a03964009"],
Cell[1648536, 30000, 336, 9, 382, "Output",ExpressionUUID->"700654dc-d710-4b0f-b925-1c7a02c71a5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1648909, 30014, 3663, 104, 909, "Input",ExpressionUUID->"e2d8831f-ff7e-47ad-acf0-58a98021c378"],
Cell[1652575, 30120, 921, 26, 382, "Output",ExpressionUUID->"07bf00a1-57d9-41f5-bcc8-979850a65268"]
}, Open  ]],
Cell[1653511, 30149, 199, 4, 401, "Text",ExpressionUUID->"0d54fa00-36e6-44e4-ad63-700a95b9378d"],
Cell[1653713, 30155, 921, 28, 562, "Input",ExpressionUUID->"6d9ca4dc-3f63-4e01-85f3-7d40d87e0a7e"],
Cell[CellGroupData[{
Cell[1654659, 30187, 965, 30, 562, "Input",ExpressionUUID->"200bba2b-58de-43b2-8269-7a3f6fc51691"],
Cell[1655627, 30219, 334, 9, 382, "Output",ExpressionUUID->"8a16cc8e-49c1-413f-93d3-76e9d94b6f55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1655998, 30233, 1749, 50, 379, "Input",ExpressionUUID->"698ec944-d0f2-4a5e-9a23-ed903f13e9a0"],
Cell[1657750, 30285, 1024, 28, 382, "Output",ExpressionUUID->"656b5ba2-df67-4684-a95f-2c7a4fd7ec8f"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1658835, 30320, 180, 3, 46, "Subsection",ExpressionUUID->"303856df-d695-43aa-a8eb-8d8afd0855a6"],
Cell[1659018, 30325, 6991, 136, 332, "Input",ExpressionUUID->"ab80b4c1-ea43-428f-9b95-a5289c2baae7",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[1666034, 30465, 4240, 100, 80, "Input",ExpressionUUID->"b43ba148-6596-4d65-98df-c1c1324eff93"],
Cell[1670277, 30567, 560, 9, 29, "Print",ExpressionUUID->"6ac6122d-4de1-482b-a0b2-60f372bb7ef3"],
Cell[1670840, 30578, 4030, 58, 42, "Output",ExpressionUUID->"8bd0a44f-0198-4769-92b3-c610788b005c"]
}, Open  ]],
Cell[1674885, 30639, 298, 5, 44, "Text",ExpressionUUID->"94f4f5f2-8f48-4d6e-95eb-c0682823b89f"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1675232, 30650, 160, 3, 84, "Section",ExpressionUUID->"180da75d-d6da-4294-83be-eb5cb0a1711f"],
Cell[CellGroupData[{
Cell[1675417, 30657, 160, 3, 67, "Subsection",ExpressionUUID->"a00b16b1-ab0c-4a1e-b569-0c62efa79adc"],
Cell[1675580, 30662, 618, 18, 40, "Input",ExpressionUUID->"3acf86f8-9f34-4569-8969-b727485524ee"],
Cell[1676201, 30682, 698, 22, 40, "Input",ExpressionUUID->"35c0dd23-5c05-4c69-be85-39e26f970bf2"],
Cell[1676902, 30706, 420, 11, 44, "Text",ExpressionUUID->"eab1f64f-b139-4ce9-95de-d2d5fe4bae39"]
}, Closed]],
Cell[CellGroupData[{
Cell[1677359, 30722, 193, 3, 46, "Subsection",ExpressionUUID->"a236afb1-fee9-4e78-a9e4-6831b606a674"],
Cell[CellGroupData[{
Cell[1677577, 30729, 168, 3, 56, "Subsubsection",ExpressionUUID->"024417bc-e010-451d-ae55-f0bed56a179d"],
Cell[1677748, 30734, 317, 5, 44, "Text",ExpressionUUID->"f0121dc7-aa56-4e4c-8058-a1ccd25d1659"],
Cell[CellGroupData[{
Cell[1678090, 30743, 646, 18, 76, "Input",ExpressionUUID->"ba093f4d-a2f9-483c-99a4-38f2629c2e17"],
Cell[1678739, 30763, 664, 21, 60, "Output",ExpressionUUID->"deb587d1-9ecf-4a74-9e06-c6fe2985f68e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1679440, 30789, 1160, 31, 56, "Input",ExpressionUUID->"e678ba71-cec9-4f03-a62f-15534828a18c"],
Cell[1680603, 30822, 30295, 616, 455, "Output",ExpressionUUID->"8dd14e5f-c6f7-4b59-87b0-f2b4f70904f9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1710947, 31444, 168, 3, 45, "Subsubsection",ExpressionUUID->"43e9e156-6daf-4b0d-a592-349c739bfbc7"],
Cell[1711118, 31449, 428, 7, 44, "Text",ExpressionUUID->"79ab1d7b-9b43-4b3d-bbaf-94749aec9d31"],
Cell[CellGroupData[{
Cell[1711571, 31460, 1397, 36, 100, "Input",ExpressionUUID->"b47f43b9-e08f-4146-aca4-41feebc64ae5"],
Cell[1712971, 31498, 2121, 63, 46, "Output",ExpressionUUID->"cd0e13c7-64b5-4632-9171-d6afda7c9ba3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1715129, 31566, 1209, 33, 56, "Input",ExpressionUUID->"e21b7a77-5baf-4e2c-b6c0-9dddfab8ce49"],
Cell[1716341, 31601, 46111, 919, 471, "Output",ExpressionUUID->"a8093895-8274-4865-8c1d-c07c036e90df"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1762501, 32526, 170, 3, 45, "Subsubsection",ExpressionUUID->"6d7f18d4-ca7e-4c08-8eb7-07edba359cb6"],
Cell[1762674, 32531, 363, 5, 44, "Text",ExpressionUUID->"0cf9a26d-d009-41ea-b936-ac8253b071a2"],
Cell[CellGroupData[{
Cell[1763062, 32540, 955, 24, 76, "Input",ExpressionUUID->"96c573b8-4728-47be-8f86-84d20e06a734"],
Cell[1764020, 32566, 922, 25, 60, "Output",ExpressionUUID->"bec4f94c-b0b4-4ce0-bd10-249e09fd9107"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1764979, 32596, 1207, 32, 56, "Input",ExpressionUUID->"807b5abe-8687-401e-8a38-fd6203dd59f5"],
Cell[1766189, 32630, 30307, 616, 455, "Output",ExpressionUUID->"09777b64-c405-4ef1-bb07-6015dd038556"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1796557, 33253, 206, 4, 67, "Subsection",ExpressionUUID->"5c156f20-0c25-4edf-a176-12c9195773f5"],
Cell[CellGroupData[{
Cell[1796788, 33261, 3082, 74, 92, "Input",ExpressionUUID->"baae6a57-cad7-4552-84c9-22c1af1dda01"],
Cell[1799873, 33337, 44828, 853, 484, "Output",ExpressionUUID->"80f2c3aa-fa68-4b72-bf34-6fba0153c91f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1844738, 34195, 2603, 67, 92, "Input",ExpressionUUID->"d03a7fa2-4303-4809-a0a9-85fbe19fcf16"],
Cell[1847344, 34264, 40531, 765, 503, "Output",ExpressionUUID->"ea4845b1-e61f-4704-a3db-19f042eb3d3b"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1887936, 35036, 205, 4, 84, "Section",ExpressionUUID->"bc463980-c48e-4957-b0e2-f7eed60379bf"],
Cell[CellGroupData[{
Cell[1888166, 35044, 160, 3, 67, "Subsection",ExpressionUUID->"1327d8ef-169c-473d-baa5-57b93b1ce40f"],
Cell[1888329, 35049, 152, 3, 37, "Input",ExpressionUUID->"140dfe44-96a6-4d68-afa0-c925c6ebd0cb"],
Cell[1888484, 35054, 871, 30, 37, "Input",ExpressionUUID->"16593550-51f7-40f1-bcf3-968eefc8cfb7"],
Cell[1889358, 35086, 909, 26, 41, "Input",ExpressionUUID->"a54dfec2-13c5-4395-99a4-444f652e0d73"],
Cell[1890270, 35114, 1035, 30, 61, "Input",ExpressionUUID->"ab9356f9-3b07-4988-969d-c8a4e5b4f1d2"],
Cell[1891308, 35146, 1398, 45, 58, "Input",ExpressionUUID->"c3fcf9f5-be21-4465-b855-8e5084647564"],
Cell[1892709, 35193, 1694, 50, 59, "Input",ExpressionUUID->"ee0ebd02-7d71-47b4-94db-ddbe40e9c375"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1894452, 35249, 167, 3, 84, "Section",ExpressionUUID->"8c9e7f85-86f9-4d58-8452-87ef6a061143"],
Cell[CellGroupData[{
Cell[1894644, 35256, 214, 4, 67, "Subsection",ExpressionUUID->"980a7e6d-bd19-4600-b4cb-9a57b9755c59"],
Cell[1894861, 35262, 3924, 103, 440, "Input",ExpressionUUID->"7f0ab1df-cb07-47ca-a7d2-742c8e63246e",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[1898810, 35369, 2155, 58, 93, "Input",ExpressionUUID->"0d8d5a1d-a624-4e5a-a88f-2a5139b32b34"],
Cell[1900968, 35429, 125437, 2268, 388, "Output",ExpressionUUID->"e3e46511-b13b-4d00-8eb5-d437da28bd1c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2026454, 37703, 219, 4, 46, "Subsection",ExpressionUUID->"2f1de1f1-6580-44f8-88f7-1b2d3d66f1aa"],
Cell[2026676, 37709, 5799, 164, 619, "Input",ExpressionUUID->"fb936d0d-0a9c-48e2-a3fa-badf662d5b20",
 InitializationCell->True],
Cell[2032478, 37875, 789, 16, 57, "Input",ExpressionUUID->"a6c5b061-41a6-4643-b035-928a6e448a94",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[2033292, 37895, 2304, 60, 93, "Input",ExpressionUUID->"568cd414-9d19-434f-b427-e417b145bda5"],
Cell[2035599, 37957, 275350, 4762, 388, "Output",ExpressionUUID->"d856ece3-bbda-4d68-b1fc-6b1d63912b77"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2311010, 42726, 212, 4, 84, "Section",ExpressionUUID->"2d732461-e080-475e-bf57-fed536d4f106"],
Cell[CellGroupData[{
Cell[2311247, 42734, 215, 3, 67, "Subsection",ExpressionUUID->"8ddee78c-5bb4-4949-8b92-2a7aec4c33a4"],
Cell[2311465, 42739, 184, 3, 44, "Text",ExpressionUUID->"8ef63c15-76ab-4b2f-b3b8-36a924df49f8"],
Cell[2311652, 42744, 388, 12, 39, "Input",ExpressionUUID->"e178aa09-d4f3-49cd-b965-c7a2d8cdad36"],
Cell[2312043, 42758, 169, 3, 44, "Text",ExpressionUUID->"2a3dae70-4ba6-43e0-9efb-54ae070a13dd"],
Cell[2312215, 42763, 479, 15, 89, "Input",ExpressionUUID->"2d1d8bec-283f-4199-afc4-4f57bb13c89b"],
Cell[2312697, 42780, 183, 3, 44, "Text",ExpressionUUID->"a9012494-a587-44cc-a026-548f13429b1c"],
Cell[2312883, 42785, 727, 24, 67, "Input",ExpressionUUID->"9df146aa-8f5e-4e68-be0a-e4edf11a794a"],
Cell[2313613, 42811, 264, 6, 44, "Text",ExpressionUUID->"e3f5b9bd-a23a-4c61-b878-2cc8289a4934"],
Cell[2313880, 42819, 562, 18, 72, "Input",ExpressionUUID->"7f846e03-a85a-4b66-97c2-5c1eb5f423aa"]
}, Closed]],
Cell[CellGroupData[{
Cell[2314479, 42842, 225, 4, 46, "Subsection",ExpressionUUID->"824703b8-61e0-4c51-b95f-74bfca7fbbd5"],
Cell[2314707, 42848, 494, 12, 40, "Input",ExpressionUUID->"a274a7e8-4f8a-4495-91ca-0335d2cbd62c"],
Cell[2315204, 42862, 760, 22, 40, "Input",ExpressionUUID->"52e27f75-079b-4136-ad42-15df8825aad3"],
Cell[2315967, 42886, 1341, 38, 67, "Input",ExpressionUUID->"9502801f-a70d-4615-beca-24e2a5866944"],
Cell[2317311, 42926, 1640, 49, 76, "Input",ExpressionUUID->"f6b2f29a-73a7-48c2-bb0c-8d5348e0c4e6"],
Cell[2318954, 42977, 4763, 149, 207, "Input",ExpressionUUID->"e0bb891c-b197-476d-9f41-a18ebddee1ff"],
Cell[2323720, 43128, 619, 15, 73, "Text",ExpressionUUID->"ab2d1fe7-1655-425b-8575-aa43ab7378cb"],
Cell[CellGroupData[{
Cell[2324364, 43147, 10500, 263, 382, "Input",ExpressionUUID->"f40d7644-8746-4fa3-8415-a7d69e2ce758"],
Cell[2334867, 43412, 15188, 285, 476, "Output",ExpressionUUID->"d463315c-9f13-4df8-b210-ee9c5b43e6b2"]
}, Open  ]],
Cell[2350070, 43700, 12521, 307, 447, "Input",ExpressionUUID->"5636393a-75a9-41e0-9fe9-4d7ddc283dbe"],
Cell[2362594, 44009, 259, 5, 44, "Text",ExpressionUUID->"09a173da-a547-4578-8e93-c039fc11a09c"]
}, Closed]]
}, Open  ]],
Cell[2362880, 44018, 147, 3, 84, "Section",ExpressionUUID->"201fd9e1-9505-4edd-96dc-e4f52fbb9f32"],
Cell[CellGroupData[{
Cell[2363052, 44025, 182, 3, 65, "Section",ExpressionUUID->"22ad422b-1c63-4387-b39b-ae28fdf5346e"],
Cell[CellGroupData[{
Cell[2363259, 44032, 307, 5, 56, "Subsubsection",ExpressionUUID->"5fbde334-5dd4-47a9-b95d-b2f04b2d880e"],
Cell[2363569, 44039, 478, 14, 69, "Input",ExpressionUUID->"8aa04527-2f73-4dfe-b2d3-6c34d4af00f6"],
Cell[2364050, 44055, 1459, 48, 53, "Input",ExpressionUUID->"fcab0c08-ff08-4b4c-a4eb-9305129ad892"],
Cell[CellGroupData[{
Cell[2365534, 44107, 3040, 80, 124, "Input",ExpressionUUID->"eb9b0f47-3089-4da1-9f88-992578a6b1fa"],
Cell[2368577, 44189, 461, 10, 58, "Output",ExpressionUUID->"7cd33377-380f-4b1c-857e-0f6a4046c590"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2369075, 44204, 3307, 87, 151, "Input",ExpressionUUID->"0defd66f-3f47-41dd-8d2f-bbb3c6762027"],
Cell[2372385, 44293, 345, 7, 42, "Output",ExpressionUUID->"4621985e-b072-49be-8a5f-d83ef42dd8df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2372767, 44305, 3372, 90, 151, "Input",ExpressionUUID->"9f34b4a2-2485-4ed3-b53b-9adef8e6be08"],
Cell[2376142, 44397, 639, 18, 82, "Output",ExpressionUUID->"efaac885-6125-41ad-b449-5c1ee6dc5b2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2376818, 44420, 3726, 101, 185, "Input",ExpressionUUID->"cf94ef6e-f3e0-4d14-a88d-c0e09e0c6011"],
Cell[2380547, 44523, 578, 17, 59, "Output",ExpressionUUID->"173a1938-20db-4134-aa13-2dacdf69c15f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2381162, 44545, 4183, 113, 185, "Input",ExpressionUUID->"29ab293e-a86f-4d8f-a46a-edee4caf787f"],
Cell[2385348, 44660, 839, 25, 82, "Output",ExpressionUUID->"837f6493-c57a-481a-b89d-2b714a9753b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2386224, 44690, 4820, 132, 219, "Input",ExpressionUUID->"8893a596-0b1e-4ee0-99fd-14c102caf2c4"],
Cell[2391047, 44824, 609, 19, 46, "Output",ExpressionUUID->"97cd80ff-fabd-4b4a-9dd8-f67eef2daac0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2391693, 44848, 5329, 146, 219, "Input",ExpressionUUID->"30cb09ee-2c3f-4111-9bd8-1b5ba8a6b078"],
Cell[2397025, 44996, 971, 29, 82, "Output",ExpressionUUID->"16be732e-4dd7-4f65-898c-0fef0566634f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2398033, 45030, 6262, 171, 219, "Input",ExpressionUUID->"9c0814d5-79e2-4445-9700-585c40388f34"],
Cell[2404298, 45203, 781, 24, 46, "Output",ExpressionUUID->"4c6ba3ec-deba-48a0-af28-bc531a79add3"]
}, Open  ]],
Cell[2405094, 45230, 1665, 58, 41, "Input",ExpressionUUID->"9fd86964-f39e-4e97-8987-420ae1052b24"],
Cell[CellGroupData[{
Cell[2406784, 45292, 6971, 190, 219, "Input",ExpressionUUID->"08260735-d204-4d21-b1d6-2b355bf1355e"],
Cell[2413758, 45484, 1241, 35, 82, "Output",ExpressionUUID->"83409988-f161-4e7c-b9f3-fed9f35ea06e"]
}, Open  ]],
Cell[2415014, 45522, 4435, 142, 158, "Input",ExpressionUUID->"b11707bf-4667-46d7-8fe1-a32880fe044f"],
Cell[2419452, 45666, 5098, 154, 158, "Input",ExpressionUUID->"961a4c58-2765-4201-a425-f8fd7bd0a747"],
Cell[CellGroupData[{
Cell[2424575, 45824, 3731, 107, 107, "Input",ExpressionUUID->"bb9770ca-a634-48fc-8766-3a0ba572819e"],
Cell[2428309, 45933, 3544, 110, 106, "Output",ExpressionUUID->"8726a488-4cc6-46e9-ba80-d0ebfa3a633d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2431890, 46048, 465, 12, 69, "Input",ExpressionUUID->"695e4dee-056a-42db-a9b8-370aa0ad1595"],
Cell[2432358, 46062, 3513, 114, 115, "Output",ExpressionUUID->"36b91705-495e-48b7-bc24-2453358f018e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2435908, 46181, 4048, 99, 219, "Input",ExpressionUUID->"13d78832-7413-4773-a443-a1a8bfaef30b"],
Cell[2439959, 46282, 87122, 1531, 364, "Output",ExpressionUUID->"bad64102-49e4-4124-a54c-ead6ae18fea1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2527118, 47818, 3442, 88, 219, "Input",ExpressionUUID->"865e2d14-0653-47d1-93d0-3d966a0ecae9"],
Cell[2530563, 47908, 85024, 1501, 418, "Output",ExpressionUUID->"0c3cce7b-7ad4-44d0-a745-e9b441020b79"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2615636, 49415, 334, 5, 45, "Subsubsection",ExpressionUUID->"d51784c9-b964-4791-8d84-9071b2152cad"],
Cell[2615973, 49422, 683, 18, 69, "Input",ExpressionUUID->"e6f818a8-12e2-4335-b3f6-eb9371d173ee"],
Cell[2616659, 49442, 1459, 48, 53, "Input",ExpressionUUID->"15a8f8ae-f983-4f82-9999-23df6f4cac5a"],
Cell[CellGroupData[{
Cell[2618143, 49494, 1689, 53, 51, "Input",ExpressionUUID->"a1ae75af-5d12-4c6a-b65d-9dd855958594"],
Cell[2619835, 49549, 1575, 50, 54, "Output",ExpressionUUID->"cb3e8067-3af2-4965-b17a-8e03e03cbdf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2621447, 49604, 3177, 83, 153, "Input",ExpressionUUID->"13750e84-2f47-4ac5-9b9a-9f92308866bd"],
Cell[2624627, 49689, 958, 27, 73, "Output",ExpressionUUID->"799d10fa-dcd9-43cf-8cf5-8fa4dd55dce5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2625622, 49721, 3354, 87, 175, "Input",ExpressionUUID->"284a7afb-7d52-4ed1-8061-78cb1fa54834"],
Cell[2628979, 49810, 487, 9, 42, "Output",ExpressionUUID->"697817c2-1cb5-4da3-8a5b-a4b3ff332e95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2629503, 49824, 3585, 93, 175, "Input",ExpressionUUID->"9e16a9e3-dc3a-4ae7-a93a-623f6a58f8a6"],
Cell[2633091, 49919, 913, 26, 95, "Output",ExpressionUUID->"fd28437b-4989-4a67-8ff6-4d1c05abf9ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2634041, 49950, 4049, 110, 203, "Input",ExpressionUUID->"73d5a561-4504-4f8b-a6b2-382333b749c1"],
Cell[2638093, 50062, 374, 8, 42, "Output",ExpressionUUID->"05a85ce7-3b3b-478a-b1fd-e3682f0baeab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2638504, 50075, 4201, 113, 238, "Input",ExpressionUUID->"83f30656-9612-4c1e-b5c3-c9f9136988a4"],
Cell[2642708, 50190, 1341, 40, 95, "Output",ExpressionUUID->"6323ca38-b931-4350-bba5-73b078619630"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2644086, 50235, 5362, 145, 238, "Input",ExpressionUUID->"d88e7b3b-c224-4809-84c6-df4b10158f80"],
Cell[2649451, 50382, 250, 6, 42, "Output",ExpressionUUID->"084c2821-a874-4e5a-b494-29027d5fa693"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2649738, 50393, 5329, 146, 219, "Input",ExpressionUUID->"802062f2-8860-4d4f-8b05-7212b3cd0cc8"],
Cell[2655070, 50541, 971, 29, 82, "Output",ExpressionUUID->"35f7bc39-6102-47fa-9018-5c53120fd411"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2656078, 50575, 6262, 171, 219, "Input",ExpressionUUID->"deae5109-cbc1-4174-848a-d1765ebc13df"],
Cell[2662343, 50748, 781, 24, 46, "Output",ExpressionUUID->"cc33bf8c-ba0c-4ab7-bee8-88554857502f"]
}, Open  ]],
Cell[2663139, 50775, 1665, 58, 41, "Input",ExpressionUUID->"127e6c10-46ff-4618-a51a-6701b26315b7"],
Cell[CellGroupData[{
Cell[2664829, 50837, 6971, 190, 219, "Input",ExpressionUUID->"e76a113c-3c55-467b-96b4-dbfd6b19b1df"],
Cell[2671803, 51029, 1241, 35, 82, "Output",ExpressionUUID->"f473cdd7-9453-4bca-af61-1d33a1f84b70"]
}, Open  ]],
Cell[2673059, 51067, 4435, 142, 158, "Input",ExpressionUUID->"3951dd02-4142-4bd2-9bb3-d8e93a3b6391"],
Cell[2677497, 51211, 5098, 154, 158, "Input",ExpressionUUID->"c72a366a-2f39-401f-8da6-2fdca6bb1b52"],
Cell[CellGroupData[{
Cell[2682620, 51369, 3731, 107, 107, "Input",ExpressionUUID->"00a05152-7cca-4e39-a644-d6cd860a1506"],
Cell[2686354, 51478, 3544, 110, 106, "Output",ExpressionUUID->"b113fc37-77c5-4f9b-8b4a-18accb40a762"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2689935, 51593, 465, 12, 69, "Input",ExpressionUUID->"ae13deed-cd58-450c-b33f-da2e0d4ae89b"],
Cell[2690403, 51607, 3513, 114, 115, "Output",ExpressionUUID->"b9aec710-6974-4be4-a83f-9d9071b74f18"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2693953, 51726, 4048, 99, 219, "Input",ExpressionUUID->"cb3e279d-7cc3-4f38-92d1-cbfaf9cae77c"],
Cell[2698004, 51827, 87122, 1531, 364, "Output",ExpressionUUID->"63ea1fe0-760e-4fd3-91c9-fe0edac5b441"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2785163, 53363, 3442, 88, 219, "Input",ExpressionUUID->"4ecc5377-a364-4161-8180-3b280a2dd9f1"],
Cell[2788608, 53453, 85024, 1501, 418, "Output",ExpressionUUID->"e364ac39-b73b-4c0c-89e8-e5e310c1890f"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2873705, 54962, 243, 4, 89, "Title",ExpressionUUID->"54454a89-2c8d-4ddf-98d9-8412b172378c"],
Cell[2873951, 54968, 605, 15, 57, "Input",ExpressionUUID->"0780168d-693c-47d0-bff4-dd0bd1ff0c0b"],
Cell[2874559, 54985, 650, 20, 54, "Input",ExpressionUUID->"957faca2-2398-47c9-bb03-6053968fb684"],
Cell[2875212, 55007, 980, 28, 57, "Input",ExpressionUUID->"12fd4d04-5d0a-40d8-b533-dbe466c2101b"],
Cell[2876195, 55037, 1214, 37, 39, "Input",ExpressionUUID->"491932cf-5df4-4c5d-90d1-e7e7984e47c2"],
Cell[2877412, 55076, 1013, 29, 41, "Input",ExpressionUUID->"2a6911eb-a8ba-4552-98c1-548452180c06"],
Cell[2878428, 55107, 549, 14, 51, "Input",ExpressionUUID->"98f5b336-8037-48d3-8869-17ecdcb7022e"],
Cell[2878980, 55123, 656, 19, 53, "Input",ExpressionUUID->"56eb8e62-587a-4a96-a2e8-8921cb6868c8"],
Cell[2879639, 55144, 725, 21, 51, "Input",ExpressionUUID->"0cccfbcc-0c89-44cb-9fb6-0fa02b5de69e"],
Cell[CellGroupData[{
Cell[2880389, 55169, 221, 4, 84, "Section",ExpressionUUID->"c6c951b2-6dbf-4587-bcd8-d50a1c2fcf35"],
Cell[2880613, 55175, 977, 28, 87, "Input",ExpressionUUID->"21d9de25-b0db-4f50-86c5-9d5c83945bbd"],
Cell[CellGroupData[{
Cell[2881615, 55207, 1405, 35, 90, "Input",ExpressionUUID->"65d055cd-99ee-4f1c-b46a-11f49be48b85"],
Cell[2883023, 55244, 6035, 151, 147, "Output",ExpressionUUID->"2159faae-7d81-471c-8fe0-de79ff306d10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2889095, 55400, 1027, 28, 90, "Input",ExpressionUUID->"9d038f75-ded6-4da4-b473-a9988db83c39"],
Cell[2890125, 55430, 6118, 192, 195, "Output",ExpressionUUID->"a1472abb-da2d-4e4e-acab-444dd5b34f17"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2896280, 55627, 6975, 147, 519, "Input",ExpressionUUID->"b720e1ad-c893-4e83-b33d-2ff0521eee60"],
Cell[2903258, 55776, 187566, 3186, 478, "Output",ExpressionUUID->"5ba3e55f-4f61-4c18-8d02-473f36b9068f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3090873, 58968, 230, 4, 65, "Section",ExpressionUUID->"8e46ec45-1cee-44ac-b2cd-b1840387e7c7"],
Cell[3091106, 58974, 876, 26, 61, "Input",ExpressionUUID->"47d0fcd0-2291-407b-91dd-3b63b965f056"],
Cell[CellGroupData[{
Cell[3092007, 59004, 1677, 39, 90, "Input",ExpressionUUID->"4ed89e32-1e98-4e9d-a6a8-bedf7a7f8d84"],
Cell[3093687, 59045, 5792, 145, 147, "Output",ExpressionUUID->"85129868-2e24-4ec5-881f-783f76ebb2a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3099516, 59195, 6575, 126, 393, "Input",ExpressionUUID->"128c88d3-cf4e-4c6e-a5bc-a6b11016fe20"],
Cell[3106094, 59323, 351425, 5884, 478, "Output",ExpressionUUID->"7768c230-8e27-4f80-b050-095d135f9316"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3457556, 65212, 605, 12, 37, "Input",ExpressionUUID->"5dd200c9-8576-4bb1-9ead-711e9df276ca"],
Cell[3458164, 65226, 11344, 278, 155, "Output",ExpressionUUID->"c0c7b3a5-0f8a-4202-94c2-e80936352f50"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3469557, 65510, 234, 4, 65, "Section",ExpressionUUID->"2a884fa6-b0b4-4c7c-b720-15880681a355"],
Cell[3469794, 65516, 246, 6, 44, "Text",ExpressionUUID->"693015be-a910-4ea6-9619-85dcf087e76b"],
Cell[3470043, 65524, 968, 26, 39, "Input",ExpressionUUID->"028d484c-db46-4015-8458-8c8ace5ad7be"],
Cell[3471014, 65552, 786, 20, 76, "Input",ExpressionUUID->"c678be2d-804a-4acc-99b0-de50424c85b9"],
Cell[3471803, 65574, 258, 6, 44, "Text",ExpressionUUID->"9206cb06-9437-43fc-a835-5791e46adedf"],
Cell[3472064, 65582, 925, 27, 40, "Input",ExpressionUUID->"a9aac6cc-ca05-4d64-babe-91420ab98f6d"],
Cell[CellGroupData[{
Cell[3473014, 65613, 2252, 63, 93, "Input",ExpressionUUID->"e79ceedf-732c-4e34-8fe4-426dcc35cfb5"],
Cell[3475269, 65678, 952, 24, 47, "Output",ExpressionUUID->"42cc8be3-30a2-4fb4-b443-14f46342ad72"],
Cell[3476224, 65704, 1040, 27, 47, "Output",ExpressionUUID->"b3f2899d-1e7e-4dae-abf8-6a4e8f4146c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3477301, 65736, 1146, 33, 70, "Input",ExpressionUUID->"cdde2f73-f556-4227-908a-bb4a5f469559"],
Cell[3478450, 65771, 860, 25, 59, "Output",ExpressionUUID->"b9e0f9f2-dcc4-472d-8ea5-a1b09b281547"],
Cell[3479313, 65798, 1388, 43, 47, "Output",ExpressionUUID->"5c5a57ca-23cd-49b4-8574-01d78094d0e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3480738, 65846, 1886, 57, 92, "Input",ExpressionUUID->"7379f121-1df1-432f-8e4b-af6c226c3c25"],
Cell[3482627, 65905, 870, 25, 59, "Output",ExpressionUUID->"85937eb2-1bb9-4f5e-b9e9-1cff49e699f2"],
Cell[3483500, 65932, 807, 23, 44, "Output",ExpressionUUID->"cf01f6fa-be95-462f-aa57-8d3b6d4b252e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3484344, 65960, 2392, 69, 103, "Input",ExpressionUUID->"393269bc-bd73-45ab-80c5-ceb9e07007f2"],
Cell[3486739, 66031, 514, 12, 42, "Output",ExpressionUUID->"a6ca555d-1cf7-4efc-9e3b-56c986aedf9e"],
Cell[3487256, 66045, 515, 12, 42, "Output",ExpressionUUID->"9c917fcf-4cb3-4275-bde3-32bce3caf787"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3487808, 66062, 2047, 55, 92, "Input",ExpressionUUID->"0b296406-def5-4295-9b09-805345385cc1"],
Cell[3489858, 66119, 2568, 65, 69, "Output",ExpressionUUID->"9c14db69-ac0e-4f65-a417-2db08dda7c32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3492463, 66189, 3772, 87, 460, "Input",ExpressionUUID->"2f6f533b-d037-45aa-91af-162901d9b70c"],
Cell[3496238, 66278, 126165, 2185, 458, "Output",ExpressionUUID->"3b99ee28-8c1f-4ea1-be3b-cf235cdddbe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3622440, 68468, 1374, 42, 109, "Input",ExpressionUUID->"2ca6f794-25d0-4963-9928-90b0d7432079"],
Cell[3623817, 68512, 786, 23, 59, "Output",ExpressionUUID->"a10fdc11-cc14-4674-aabf-c4ae3066c201"],
Cell[3624606, 68537, 1624, 52, 92, "Output",ExpressionUUID->"83843267-3f32-4589-ad6a-041fbe0584d0"],
Cell[3626233, 68591, 182, 3, 42, "Output",ExpressionUUID->"35c9293f-0dee-4c85-aed5-efd2de8e464e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3626452, 68599, 170, 3, 67, "Subsection",ExpressionUUID->"9376d2f0-32a6-4da2-85ad-73fb9f0a7514"],
Cell[CellGroupData[{
Cell[3626647, 68606, 1885, 55, 97, "Input",ExpressionUUID->"9ab596fd-6938-4e90-adc7-0b55096b0879"],
Cell[3628535, 68663, 735, 23, 60, "Output",ExpressionUUID->"e10434b2-0b95-4f46-b5d7-7dad0b230c29"],
Cell[3629273, 68688, 767, 22, 61, "Output",ExpressionUUID->"1e8c9885-acfa-4bb3-bb84-87efd6309706"],
Cell[3630043, 68712, 875, 25, 61, "Output",ExpressionUUID->"680be03c-25a1-4e69-9965-40e8716a4ac4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3630955, 68742, 1191, 34, 57, "Input",ExpressionUUID->"2850b64c-b05a-4557-a337-081edc81b07a"],
Cell[3632149, 68778, 340, 8, 42, "Output",ExpressionUUID->"08df942c-acd8-46b2-a274-a9f6ec004724"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3632526, 68791, 407, 11, 40, "Input",ExpressionUUID->"43d37ca7-133d-40a3-b103-35a124ae1e58"],
Cell[3632936, 68804, 329, 8, 42, "Output",ExpressionUUID->"a74635f6-149b-4bfa-ac23-8c7146f331c4"]
}, Open  ]],
Cell[3633280, 68815, 1741, 54, 97, "Input",ExpressionUUID->"1b414770-56dd-4b7d-a741-92fa704bbdf0"],
Cell[CellGroupData[{
Cell[3635046, 68873, 2435, 66, 149, "Input",ExpressionUUID->"750caf5b-ce73-4484-8823-7006b87e4da9"],
Cell[3637484, 68941, 1395, 42, 97, "Output",ExpressionUUID->"703ff140-c39e-43b5-b2c0-5ea117768048"],
Cell[3638882, 68985, 1281, 37, 93, "Output",ExpressionUUID->"f2774bc1-6b85-4c20-b022-c2afb1e85a6c"],
Cell[3640166, 69024, 1021, 25, 47, "Output",ExpressionUUID->"46d0bf27-0273-413e-be66-3586e4c2e6a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3641224, 69054, 3464, 99, 159, "Input",ExpressionUUID->"d5c9734c-e330-43b0-b7de-ce79cefddd1a"],
Cell[3644691, 69155, 851, 23, 62, "Output",ExpressionUUID->"c637adac-bf6b-4fb3-bcbf-fd7fbe64c5f1"],
Cell[3645545, 69180, 953, 26, 101, "Output",ExpressionUUID->"f586235f-cee6-48bf-81a2-385e01e95159"],
Cell[3646501, 69208, 1052, 27, 47, "Output",ExpressionUUID->"3b8e70b3-b594-4b53-baaf-14b2f97ea8ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3647590, 69240, 407, 11, 40, "Input",ExpressionUUID->"c4c8eb47-d7bf-4d7a-9f7c-d1e24a1a3500"],
Cell[3648000, 69253, 329, 8, 42, "Output",ExpressionUUID->"f5f0c1cf-8ff9-4019-b5f7-4464b4712ff5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3648366, 69266, 1740, 45, 116, "Input",ExpressionUUID->"3e9eec7f-5001-4f5c-a93b-fb72ae906f22"],
Cell[3650109, 69313, 5971, 148, 147, "Output",ExpressionUUID->"7d32ddff-a276-4ab9-8286-a064b4787da9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3656117, 69466, 7462, 175, 442, "Input",ExpressionUUID->"49f61b9d-5609-40fe-a637-283298280434"],
Cell[3663582, 69643, 370160, 6334, 478, "Output",ExpressionUUID->"2e03b5a5-5f07-449c-a9dd-ef116a2d44c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4033779, 75982, 673, 23, 84, "Input",ExpressionUUID->"d5a29181-6189-48b7-aec6-e63b16eb648a"],
Cell[4034455, 76007, 589, 19, 76, "Output",ExpressionUUID->"1c15bc66-d866-4789-8f76-b80c777d3614"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4035081, 76031, 454, 15, 84, "Input",ExpressionUUID->"5316aac5-4fd9-4320-89d7-71765868d254"],
Cell[4035538, 76048, 174, 3, 42, "Output",ExpressionUUID->"ebc895ab-fadb-4985-a32e-8fe64e5e51a3"]
}, Open  ]],
Cell[4035727, 76054, 507, 19, 84, "Input",ExpressionUUID->"62140f06-94ea-453f-8e7c-40045eaf15d0"],
Cell[CellGroupData[{
Cell[4036259, 76077, 623, 20, 46, "Input",ExpressionUUID->"338ca9ff-fca1-4d88-8f79-92470a3d71f5"],
Cell[4036885, 76099, 528, 16, 44, "Output",ExpressionUUID->"859a8204-bf35-49aa-a37e-36c9e0d53642"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4037450, 76120, 428, 13, 40, "Input",ExpressionUUID->"fe63d5f3-bb86-48c8-b824-ad1330eae32f"],
Cell[4037881, 76135, 2529, 92, 70, "Output",ExpressionUUID->"7e8f62cf-6a68-49fe-80cf-8effe9c9fb63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4040447, 76232, 768, 23, 46, "Input",ExpressionUUID->"6f466741-f511-4081-9a04-9a2dd60fcc5d"],
Cell[4041218, 76257, 704, 25, 70, "Output",ExpressionUUID->"1b2f4423-1b16-46e8-aee8-a7f6d08683e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4041959, 76287, 1588, 44, 71, "Input",ExpressionUUID->"e488845a-7957-4e46-ba65-20ac373a4bf2"],
Cell[4043550, 76333, 1173, 35, 76, "Output",ExpressionUUID->"a5220683-1227-4444-8df6-f4c8e00fbfdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4044760, 76373, 1338, 38, 41, "Input",ExpressionUUID->"57f5972b-e964-4d0c-a21b-a8b95aef209a"],
Cell[4046101, 76413, 1508, 36, 42, "Output",ExpressionUUID->"e935e104-a629-4e83-a349-206999d05dde"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4047646, 76454, 178, 4, 37, "Input",ExpressionUUID->"ec4dc4c4-ce1b-4a01-bc01-4e855b843196"],
Cell[4047827, 76460, 2466, 58, 298, "Output",ExpressionUUID->"af8d6f41-aa72-4ca8-8828-01f86c631c73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4050330, 76523, 986, 33, 70, "Input",ExpressionUUID->"0e274ecd-7be2-4c5f-a446-15ef62349302"],
Cell[4051319, 76558, 6765, 197, 104, "Output",ExpressionUUID->"47c435ec-7727-426f-a512-1e2aa72963e9"]
}, Open  ]],
Cell[4058099, 76758, 903, 31, 77, "Input",ExpressionUUID->"32554c2d-fb03-4463-8608-b256f3b2f7b4"],
Cell[4059005, 76791, 706, 25, 84, "Input",ExpressionUUID->"ef317173-a93c-4515-888b-355e6c153567"],
Cell[CellGroupData[{
Cell[4059736, 76820, 952, 28, 100, "Input",ExpressionUUID->"c193faf0-94d0-4cd1-9eda-1bd600a0e769"],
Cell[4060691, 76850, 483, 15, 47, "Output",ExpressionUUID->"cd3d21c6-2a42-425f-b2e5-160086740462"],
Cell[4061177, 76867, 751, 26, 70, "Output",ExpressionUUID->"800d6aeb-7c13-45b5-b7b7-81652fa8cbf0"],
Cell[4061931, 76895, 1377, 49, 78, "Output",ExpressionUUID->"ac116342-cd9d-4dfb-b07d-b3de0a85ae72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4063345, 76949, 975, 30, 46, "Input",ExpressionUUID->"f277dfe0-f680-4763-a97e-19a93db5f220"],
Cell[4064323, 76981, 1620, 54, 85, "Output",ExpressionUUID->"74342588-c622-4cfb-827a-10d844565241"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4065980, 77040, 1630, 55, 87, "Input",ExpressionUUID->"af9ece52-2500-49fb-9df7-883bcfdce94a"],
Cell[4067613, 77097, 184, 3, 42, "Output",ExpressionUUID->"be226551-d155-492c-bf44-cf108ab0cd41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4067834, 77105, 688, 23, 65, "Input",ExpressionUUID->"99d196b2-3d3c-4a9e-96ed-113f822e9319"],
Cell[4068525, 77130, 852, 29, 72, "Output",ExpressionUUID->"ecc8b661-e581-49d9-a5dc-db2baae562ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4069414, 77164, 1169, 32, 46, "Input",ExpressionUUID->"0a7f6615-5565-4dcc-a13f-9fc3468c4587"],
Cell[4070586, 77198, 7007, 201, 104, "Output",ExpressionUUID->"8ea8bf40-635f-489e-b13b-64c91af70974"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4077630, 77404, 1186, 34, 46, "Input",ExpressionUUID->"864182ee-48c8-4d12-a5f4-5709700f5227"],
Cell[4078819, 77440, 1052, 33, 76, "Output",ExpressionUUID->"4ea179ab-7c92-4ce2-b7a2-b22b96779953"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4079908, 77478, 1693, 50, 81, "Input",ExpressionUUID->"5540ae46-0bbd-42b2-a8c9-71e8a5d30686"],
Cell[4081604, 77530, 607, 17, 60, "Output",ExpressionUUID->"b39d9bca-5afe-442e-9c5e-d66fc2cca67e"],
Cell[4082214, 77549, 444, 10, 42, "Output",ExpressionUUID->"1fbb8fb2-a6d6-4ba9-8fb1-1a3123cada33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4082695, 77564, 554, 17, 46, "Input",ExpressionUUID->"d3408dfa-badf-407d-8d06-f45bbaf922b9"],
Cell[4083252, 77583, 679, 20, 46, "Output",ExpressionUUID->"f8bd486f-dede-4d40-b045-8de69b30d6db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4083968, 77608, 766, 25, 84, "Input",ExpressionUUID->"581c7571-3220-471d-82da-c23f349e02c2"],
Cell[4084737, 77635, 177, 3, 42, "Output",ExpressionUUID->"9acf7527-3abb-4db8-8032-4fabe60cb32b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4084951, 77643, 1592, 51, 108, "Input",ExpressionUUID->"ea26d5a0-682a-48df-a56f-0698612b8381"],
Cell[4086546, 77696, 210, 4, 42, "Output",ExpressionUUID->"4e41670a-6d68-4704-8a18-a0b7374e0b24"],
Cell[4086759, 77702, 303, 8, 42, "Output",ExpressionUUID->"085108c4-5f1e-40f2-83f7-dc47f1d6b736"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4087099, 77715, 721, 21, 84, "Input",ExpressionUUID->"89a71f0e-76ad-4f3c-919e-53b40ee13d59"],
Cell[4087823, 77738, 479, 14, 69, "Output",ExpressionUUID->"4f8d6ecc-d897-4c7e-bff0-075656fb8af8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4088339, 77757, 530, 16, 46, "Input",ExpressionUUID->"ac1bc10d-88c9-4fec-a2c2-62908db81bff"],
Cell[4088872, 77775, 6485, 127, 288, "Output",ExpressionUUID->"d3f38375-f85b-4080-973e-b8ce9133c3e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4095394, 77907, 1479, 41, 137, "Input",ExpressionUUID->"1b4bb8b5-2c72-47ea-851a-9dba5bb2318c"],
Cell[4096876, 77950, 477, 10, 47, "Output",ExpressionUUID->"0f0e457b-4757-4090-b7a5-28ca381bf332"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4097390, 77965, 306, 8, 63, "Input",ExpressionUUID->"220433e9-a8c5-4fe0-abe4-660f4ac4e8ed"],
Cell[4097699, 77975, 272, 8, 59, "Output",ExpressionUUID->"bac8c52d-463c-4a54-9ff0-ed1b9231cb0b"]
}, Open  ]],
Cell[4097986, 77986, 507, 19, 84, "Input",ExpressionUUID->"f5920e24-f04b-467c-b842-4557bfaff1b5"],
Cell[CellGroupData[{
Cell[4098518, 78009, 853, 23, 95, "Input",ExpressionUUID->"7cd1cbf8-a21b-46b7-a622-10951106a0c5"],
Cell[4099374, 78034, 980, 32, 71, "Output",ExpressionUUID->"37fe6722-4907-4f6c-b528-01e97a3dd3e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4100391, 78071, 1662, 42, 87, "Input",ExpressionUUID->"bdd2ece0-4de2-4782-b12e-f65ea62c1065"],
Cell[4102056, 78115, 1220, 28, 71, "Output",ExpressionUUID->"199e32fe-dab8-41b7-9d4b-b0e71d5e96c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4103313, 78148, 618, 20, 69, "Input",ExpressionUUID->"b67024a0-d370-493f-8f08-f8f5cfe0af3e"],
Cell[4103934, 78170, 560, 21, 71, "Output",ExpressionUUID->"2eeb3489-629f-4103-a9d5-a63ac2cd5db5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4104531, 78196, 877, 30, 84, "Input",ExpressionUUID->"90bb66f1-7e68-46c6-bee3-cab494058510"],
Cell[4105411, 78228, 466, 17, 76, "Output",ExpressionUUID->"bb037751-9959-4322-86cb-53c0b882a286"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4105914, 78250, 540, 17, 46, "Input",ExpressionUUID->"f0d09489-40ed-4c87-bd70-57d5df59aa3e"],
Cell[4106457, 78269, 1063, 31, 61, "Output",ExpressionUUID->"40be8bdd-e42e-4838-a300-86df1453828c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4107557, 78305, 330, 9, 57, "Input",ExpressionUUID->"1be0986b-ab83-4b90-9569-d68fe7cd907c"],
Cell[4107890, 78316, 250, 7, 42, "Output",ExpressionUUID->"a0105835-1d2f-4c30-bd85-ef33614a878b"]
}, Open  ]],
Cell[4108155, 78326, 115, 1, 37, "Input",ExpressionUUID->"1b780b0a-caa3-4379-9d69-3a1e6d2af6e2"],
Cell[CellGroupData[{
Cell[4108295, 78331, 226, 5, 37, "Input",ExpressionUUID->"c4529749-e823-4228-b422-c4983b67d7ef"],
Cell[4108524, 78338, 355, 12, 66, "Output",ExpressionUUID->"7885a11b-1cb5-49f0-9c6d-e98e3646b66e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4108916, 78355, 1257, 40, 95, "Input",ExpressionUUID->"7b3bfc94-3551-4d09-a12c-23bfbf12c0d3"],
Cell[4110176, 78397, 859, 27, 76, "Output",ExpressionUUID->"322ab48d-88ba-468a-b8f5-55478395e062"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4111072, 78429, 2451, 81, 76, "Input",ExpressionUUID->"9c4266d1-5234-417b-b2a7-0d0b23912c6d"],
Cell[4113526, 78512, 2410, 78, 93, "Output",ExpressionUUID->"68396fca-2c69-4578-ae4a-ae7c3369b3fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4115973, 78595, 890, 29, 51, "Input",ExpressionUUID->"b497e088-ec28-4370-80b4-0daf66830f10"],
Cell[4116866, 78626, 688, 22, 71, "Output",ExpressionUUID->"f849a289-6709-4ce3-b519-a38b1ec0daa9"]
}, Open  ]],
Cell[4117569, 78651, 679, 24, 57, "Input",ExpressionUUID->"0568fde1-7a1c-4c43-b64a-1870dda13331"],
Cell[CellGroupData[{
Cell[4118273, 78679, 1766, 61, 73, "Input",ExpressionUUID->"aea5cbae-d4ea-4176-8056-88fe7d970278"],
Cell[4120042, 78742, 1021, 37, 71, "Output",ExpressionUUID->"8caa85c8-068a-46f2-8f59-c3fca43f6f62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4121100, 78784, 647, 20, 88, "Input",ExpressionUUID->"48bb5e3b-7698-4792-b841-ba76f682e588"],
Cell[4121750, 78806, 196, 4, 42, "Output",ExpressionUUID->"eb7a9e2c-b796-4690-a70a-96ff7738ef3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4121983, 78815, 376, 12, 46, "Input",ExpressionUUID->"ce2b9246-2c58-44ab-8ef8-c4ac72249bd2"],
Cell[4122362, 78829, 339, 11, 65, "Output",ExpressionUUID->"1c07b2e7-e56a-4655-a8df-005e1053db95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4122738, 78845, 328, 10, 46, "Input",ExpressionUUID->"9f08302b-de48-447b-889b-8eccca1ead36"],
Cell[4123069, 78857, 190, 4, 42, "Output",ExpressionUUID->"30115af6-039e-47c1-865c-b3bd38b84ce5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4123296, 78866, 412, 12, 46, "Input",ExpressionUUID->"acdc3120-7cd2-4be1-a025-db48db84fbd8"],
Cell[4123711, 78880, 1373, 42, 61, "Output",ExpressionUUID->"696a4516-4677-4403-8d89-b6fcd177c4a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4125121, 78927, 692, 20, 46, "Input",ExpressionUUID->"463cce86-9881-484a-ad42-5536c18f254f"],
Cell[4125816, 78949, 1172, 35, 59, "Output",ExpressionUUID->"03382504-961c-4cc9-8aed-0a014a540882"]
}, Open  ]],
Cell[4127003, 78987, 999, 31, 56, "Input",ExpressionUUID->"70da6a63-e49c-4bcb-b525-318e84bebfa4"],
Cell[CellGroupData[{
Cell[4128027, 79022, 1105, 34, 87, "Input",ExpressionUUID->"b5c79f3e-2db8-422b-8355-88f0e94f5baa"],
Cell[4129135, 79058, 616, 19, 58, "Output",ExpressionUUID->"205915b1-1ed6-4032-8a13-fcae014ec638"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4129788, 79082, 1782, 57, 173, "Input",ExpressionUUID->"3d48881a-6348-422c-a531-174bbe6d4cd9"],
Cell[4131573, 79141, 505, 15, 76, "Output",ExpressionUUID->"be300c02-45a6-4327-b798-101cd7fe9357"],
Cell[4132081, 79158, 346, 10, 61, "Output",ExpressionUUID->"cf771962-12bf-4a20-92e9-071352ff10dd"]
}, Open  ]],
Cell[4132442, 79171, 412, 13, 73, "Input",ExpressionUUID->"66161722-4cc0-488e-8a50-d58cc12d7fb6"],
Cell[4132857, 79186, 176, 4, 37, "Input",ExpressionUUID->"af723c0f-20e9-4738-b67e-3c687014e15c"],
Cell[CellGroupData[{
Cell[4133058, 79194, 614, 17, 58, "Input",ExpressionUUID->"0fe4e8f1-8656-4973-8449-67de46de2675"],
Cell[4133675, 79213, 4820, 98, 293, "Output",ExpressionUUID->"9ffec83b-d0f8-423f-a1e2-ae43ef4e1d2b"]
}, Open  ]],
Cell[4138510, 79314, 2368, 64, 81, "Input",ExpressionUUID->"3079dade-4212-4852-ae2e-a66f9705c255"],
Cell[4140881, 79380, 1700, 51, 41, "Input",ExpressionUUID->"47098eaa-c301-497b-b033-5a7d8a32dcbc"],
Cell[4142584, 79433, 591, 14, 37, "Input",ExpressionUUID->"5ee6ce72-ef44-4e03-bc52-4c70b4bc001b"],
Cell[CellGroupData[{
Cell[4143200, 79451, 596, 15, 37, "Input",ExpressionUUID->"bbd51da8-3e19-45cf-9e35-f657c5c0f246"],
Cell[4143799, 79468, 390, 5, 42, "Output",ExpressionUUID->"c05e0271-9a11-4a60-b06e-8a53f9b4578b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4144226, 79478, 417, 8, 37, "Input",ExpressionUUID->"21f0cbc8-757a-47b7-8eba-b91d42a2eccb"],
Cell[4144646, 79488, 1322, 32, 42, "Output",ExpressionUUID->"9ebf38b7-42bb-4c18-8900-1374ed6075e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4146005, 79525, 579, 15, 37, "Input",ExpressionUUID->"dbd86984-b154-440f-baaf-9dec9e028893"],
Cell[4146587, 79542, 1220, 31, 42, "Output",ExpressionUUID->"8652c11a-3eda-4fd2-a291-f7fcf254f84b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4147844, 79578, 312, 7, 37, "Input",ExpressionUUID->"d5567f4c-535b-4bca-bed7-fde3f430be9a"],
Cell[4148159, 79587, 165, 3, 42, "Output",ExpressionUUID->"7b0bd822-395c-4044-a842-551412d893fe"]
}, Open  ]],
Cell[4148339, 79593, 128, 3, 37, "Input",ExpressionUUID->"4cfff343-bf56-4574-9844-7b63b34027fa"],
Cell[CellGroupData[{
Cell[4148492, 79600, 300, 6, 37, "Input",ExpressionUUID->"e29a9593-075b-41af-93c3-58e72e12f6b4"],
Cell[4148795, 79608, 1779, 52, 46, "Output",ExpressionUUID->"aec9885d-6c9a-45f4-8d31-063fb57b5dad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4150611, 79665, 917, 26, 46, "Input",ExpressionUUID->"a9e1165e-ea73-471a-afe0-3a84e1232b54"],
Cell[4151531, 79693, 177, 2, 42, "Output",ExpressionUUID->"958485bb-951b-4482-a938-f224b921020d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4151745, 79700, 1332, 36, 83, "Input",ExpressionUUID->"3df0cd8e-7ba8-4531-8fe7-2d29ae372127"],
Cell[4153080, 79738, 593, 17, 42, "Output",ExpressionUUID->"3dfc2c77-e5bb-4f67-b27d-419ab9e57a6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4153710, 79760, 825, 14, 37, "Input",ExpressionUUID->"dc644195-e9ad-41a5-b086-7ed1f2b37bf9"],
Cell[4154538, 79776, 997, 28, 829, "Output",ExpressionUUID->"e0bdb352-1e77-4290-9645-c811b5f572e3"]
}, Open  ]],
Cell[4155550, 79807, 713, 20, 37, "Input",ExpressionUUID->"4865a237-ef93-4783-aead-69d82a6d8af1"],
Cell[CellGroupData[{
Cell[4156288, 79831, 671, 14, 40, "Input",ExpressionUUID->"c7b8fdea-8583-478d-be12-78036f368150"],
Cell[4156962, 79847, 669, 13, 42, "Output",ExpressionUUID->"52dfe59a-f65f-4f83-9b10-b89ab24d5da8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4157668, 79865, 1339, 39, 127, "Input",ExpressionUUID->"d6befea5-edd3-4a4c-a262-c461a1809b1d"],
Cell[4159010, 79906, 1113, 26, 42, "Output",ExpressionUUID->"030b0933-0c61-4f3e-8df7-7c22766d3e8f"],
Cell[4160126, 79934, 1008, 23, 42, "Output",ExpressionUUID->"9b51bc86-44cd-4bff-9dea-ef533f7d8eab"],
Cell[4161137, 79959, 905, 20, 42, "Output",ExpressionUUID->"17f5ebd7-c3c1-4b27-bfe2-971d0c3c7137"],
Cell[4162045, 79981, 831, 19, 42, "Output",ExpressionUUID->"dbe18b9b-9644-437c-8dc1-5d84490bcb0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4162913, 80005, 749, 23, 41, "Input",ExpressionUUID->"6da217c3-be12-4aac-b6a6-9a483285b02f"],
Cell[4163665, 80030, 1617, 51, 63, "Output",ExpressionUUID->"6c80b8bf-c8f4-4e8f-8960-0f7574dccd92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4165319, 80086, 1469, 42, 41, "Input",ExpressionUUID->"6c8e6feb-f184-4467-93cf-b867476110e9"],
Cell[4166791, 80130, 190, 3, 42, "Output",ExpressionUUID->"1439c8a1-d279-41bf-933d-49d1554bd64c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4167018, 80138, 1780, 53, 55, "Input",ExpressionUUID->"83b87e30-a54f-4a86-9434-07541284cc2f"],
Cell[4168801, 80193, 432, 7, 42, "Output",ExpressionUUID->"c699681a-7408-4f25-b637-7a3f764c7371"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4169270, 80205, 602, 17, 41, "Input",ExpressionUUID->"eec8d853-025d-45f9-9d74-d509511b7377"],
Cell[4169875, 80224, 5076, 170, 193, "Output",ExpressionUUID->"8d3e1778-b488-4a34-9fb4-515a7499454c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4174988, 80399, 1063, 33, 87, "Input",ExpressionUUID->"c76b6a7a-70f4-40fa-a1f2-1f854dfe6c23"],
Cell[4176054, 80434, 616, 19, 61, "Output",ExpressionUUID->"5c2c80b4-64a0-4298-bbc9-0e8fd7f6f7eb"]
}, Open  ]],
Cell[4176685, 80456, 1316, 44, 87, "Input",ExpressionUUID->"7222bf2c-99a8-48c5-a253-94a761d6d205"],
Cell[CellGroupData[{
Cell[4178026, 80504, 698, 22, 57, "Input",ExpressionUUID->"21289cbb-d33a-423c-8324-5de1e3653ad6"],
Cell[4178727, 80528, 196, 4, 42, "Output",ExpressionUUID->"1dd7c7da-19e3-4861-9c1f-a62900eeb174"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4178960, 80537, 741, 22, 57, "Input",ExpressionUUID->"8a64287a-7458-4b8c-ad58-d65854a5b228"],
Cell[4179704, 80561, 948, 23, 42, "Output",ExpressionUUID->"e8a5d5a3-ea35-4e73-8da9-79c568f43648"]
}, Open  ]],
Cell[4180667, 80587, 571, 18, 57, "Input",ExpressionUUID->"bcd94a8a-7897-48bd-9455-37da54478ae6"],
Cell[CellGroupData[{
Cell[4181263, 80609, 491, 14, 69, "Input",ExpressionUUID->"a36f76f4-68fa-4561-8df8-bd6e20b1c0be"],
Cell[4181757, 80625, 1488, 46, 69, "Output",ExpressionUUID->"cad5e6d7-39d7-4da0-9fd5-9f1cb1c28674"],
Cell[4183248, 80673, 1292, 41, 59, "Output",ExpressionUUID->"75d68554-6b55-41f1-b121-347b315c9ee0"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[4184613, 80722, 298, 4, 89, "Title",ExpressionUUID->"e75b218f-09df-4601-b6e9-d148180ea962"],
Cell[CellGroupData[{
Cell[4184936, 80730, 2834, 82, 100, "Input",ExpressionUUID->"079743cb-f4a2-4c2f-9984-e349fe4c91c8"],
Cell[4187773, 80814, 153, 2, 42, "Output",ExpressionUUID->"fc82173d-e151-413c-a17e-191b4cb744b7"]
}, Open  ]],
Cell[4187941, 80819, 1160, 20, 188, "Text",ExpressionUUID->"cc6381b1-d269-4739-acd6-022b42dd72b2"],
Cell[CellGroupData[{
Cell[4189126, 80843, 1997, 48, 100, "Input",ExpressionUUID->"bdc80fef-6fc8-4f09-8b2e-f6d88347d013"],
Cell[4191126, 80893, 2229, 64, 46, "Output",ExpressionUUID->"f463f8f7-a5fa-4b1a-8e5b-a8ea5823670a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4193392, 80962, 2566, 63, 202, "Input",ExpressionUUID->"fd945fd1-c085-43ab-9601-e5ba3dd810b1"],
Cell[4195961, 81027, 55181, 1087, 467, "Output",ExpressionUUID->"2b7d2849-241d-4bc6-9d31-5dcbb0a7634a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4251191, 82120, 338, 5, 89, "Title",ExpressionUUID->"13ed8a0b-1929-4952-9c55-170bbabc1ee8"],
Cell[CellGroupData[{
Cell[4251554, 82129, 1615, 38, 100, "Input",ExpressionUUID->"80cc617b-8d43-4deb-9582-eb0c7abc5a76"],
Cell[4253172, 82169, 2362, 66, 75, "Output",ExpressionUUID->"b675e011-9ce9-4975-a90f-73d304abf7f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4255571, 82240, 4963, 122, 324, "Input",ExpressionUUID->"559e131a-77c2-4494-8cbe-6e8c5470d5bf"],
Cell[4260537, 82364, 70026, 1171, 617, "Output",ExpressionUUID->"a66c16b9-7055-4d96-ae38-ece1104a9a96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4330600, 83540, 2012, 46, 90, "Input",ExpressionUUID->"3f73bcc6-5be3-4025-8ba7-9ad4a12991b9"],
Cell[4332615, 83588, 30805, 645, 471, "Output",ExpressionUUID->"a5514e63-27e4-463e-a62a-f18bad20fa96"]
}, Open  ]]
}, Closed]]
}
]
*)

