pade.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    673618,      14416]
NotebookOptionsPosition[    653632,      14123]
NotebookOutlinePosition[    654077,      14141]
CellTagsIndexPosition[    654034,      14138]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Quartic Integral (1.3.11)", "Chapter",
 CellChangeTimes->{{3.835189305514986*^9, 
  3.835189335521953*^9}},ExpressionUUID->"a14d8ac3-8c51-4e71-acf8-\
b02b18b41ff8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "-", " ", 
      RowBox[{"g", " ", 
       RowBox[{
        RowBox[{"z", "^", "4"}], "/", "4"}]}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8351790105358067`*^9, 3.835179080858039*^9}, {
  3.835182231024835*^9, 3.835182243743194*^9}, {3.835182830054308*^9, 
  3.835182841286289*^9}, {3.835183638158383*^9, 3.835183660363572*^9}, {
  3.835189303762583*^9, 3.8351893129135227`*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"c7cfaea7-bd1b-45ed-9531-812ab68afdec"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
         FractionBox["1", "8"], "/", "g"}]], " ", 
      RowBox[{"BesselK", "[", 
        RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox["1", 
           RowBox[{"8", " ", "g"}]]}], "]"}]}], 
    RowBox[{"2", " ", 
      SqrtBox["g"], " ", 
      SqrtBox["\[Pi]"]}]], 
   RowBox[{
     RowBox[{"Re", "[", "g", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{3.835179085086532*^9, 3.835182845780901*^9, 
  3.835183664519356*^9, 3.835183810761217*^9, 3.835189316934758*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"527d247a-e343-4118-9dfe-e82a9d7042a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Definitions", "Section",
 CellChangeTimes->{{3.835186903057268*^9, 
  3.835186905344487*^9}},ExpressionUUID->"9d398e50-098b-4020-86d7-\
f489c0c068c3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"quarticI", "[", "g_", "]"}], ":=", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox["1", "8"], "/", "g"}]], " ", 
     RowBox[{"BesselK", "[", 
      RowBox[{
       FractionBox["1", "4"], ",", 
       FractionBox["1", 
        RowBox[{"8", " ", "g"}]]}], "]"}]}], 
    RowBox[{"2", " ", 
     SqrtBox["g"], " ", 
     SqrtBox["\[Pi]"]}]]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"quarticIseries", "[", 
     RowBox[{"g_", ",", " ", "nmax_"}], "]"}], ":=", " ", 
    RowBox[{"Expand", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
      RowBox[{"Distribute", "[", 
       RowBox[{"Integrate", "[", 
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{"Series", "[", 
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "-", " ", 
              RowBox[{"g", " ", 
               RowBox[{
                RowBox[{"z", "^", "4"}], "/", "4"}]}]}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"g", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "]"}], ",",
          " ", 
         RowBox[{"{", 
          RowBox[{"z", ",", 
           RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
        "]"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"quarticIseries", "[", 
   RowBox[{"g_", ",", "nmax_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "n"], " ", 
       RowBox[{"Gamma", "[", 
        RowBox[{
         FractionBox["1", "2"], "+", 
         RowBox[{"2", " ", "n"}]}], "]"}]}], 
      RowBox[{
       SqrtBox["\[Pi]"], " ", 
       RowBox[{"n", "!"}]}]], " ", 
     RowBox[{"g", "^", "n"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.835183665212304*^9, 3.835183671008651*^9}, {
   3.835183738574719*^9, 3.8351837387175817`*^9}, {3.835183817536676*^9, 
   3.835183846944828*^9}, {3.835223880060371*^9, 3.835223906406279*^9}, 
   3.8352240679381647`*^9, 3.8352753644610367`*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"d0488ab9-49e6-46e6-bc4d-dceddc18279a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"boreltransf", "[", 
   RowBox[{"series_", ",", "u_", ",", "nmax_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"coefs", ",", "g"}], "}"}], ",", " ", 
    RowBox[{
     RowBox[{"coefs", "=", 
      RowBox[{"CoefficientList", "[", 
       RowBox[{
        RowBox[{"series", "[", 
         RowBox[{"g", ",", "nmax"}], "]"}], ",", " ", "g"}], "]"}]}], ";", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"coefs", "[", 
         RowBox[{"[", "n", "]"}], "]"}], " ", 
        RowBox[{
         RowBox[{"u", "^", 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], " ", "/", " ", 
         RowBox[{"Factorial", "[", 
          RowBox[{"n", "-", "1"}], "]"}]}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"Length", "[", "coefs", "]"}]}], "}"}]}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"borelpade", "[", 
   RowBox[{"series_", ",", "u_", ",", "nmax_"}], "]"}], ":=", 
  RowBox[{"PadeApproximant", "[", 
   RowBox[{
    RowBox[{"boreltransf", "[", 
     RowBox[{"series", ",", "u", ",", "nmax"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"nmax", "/", "2"}], "]"}], ",", 
        RowBox[{"Floor", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"nmax", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], 
     "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.835180783520442*^9, 3.835180802728932*^9}, {
   3.8351808429147377`*^9, 3.835180879290267*^9}, {3.835180945797674*^9, 
   3.835181034104151*^9}, {3.835181120754376*^9, 3.835181126409066*^9}, {
   3.835181344824182*^9, 3.835181354536615*^9}, {3.835181557006508*^9, 
   3.835181564406027*^9}, {3.835181629392165*^9, 3.835181645808226*^9}, {
   3.8351838997212152`*^9, 3.835183965347702*^9}, {3.8351840036046*^9, 
   3.835184041790368*^9}, {3.835184078303245*^9, 3.835184083694553*^9}, {
   3.835184120872197*^9, 3.83518414579214*^9}, {3.835184184105981*^9, 
   3.83518427305155*^9}, {3.835184308724936*^9, 3.835184545538764*^9}, {
   3.83518479065071*^9, 3.83518483251528*^9}, {3.8351849588319473`*^9, 
   3.83518495976618*^9}, {3.835185204350453*^9, 3.835185207932685*^9}, {
   3.8351852592235603`*^9, 3.8351853275197783`*^9}, {3.835185364569491*^9, 
   3.835185390305518*^9}, 3.835185463452262*^9, 3.835185566390662*^9, {
   3.835185612697913*^9, 3.8351856153271093`*^9}, {3.835187102847715*^9, 
   3.835187108814787*^9}, 3.83518765044599*^9, 3.835187682544567*^9, {
   3.835187786114962*^9, 3.835187793273179*^9}, {3.835187850244226*^9, 
   3.835187896469935*^9}, {3.835187936670733*^9, 3.8351880052067842`*^9}, {
   3.835188065698139*^9, 3.835188105705443*^9}, {3.835189942916823*^9, 
   3.835189943499433*^9}, {3.8352208918776903`*^9, 3.835220941659607*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b4f8f2a3-eae0-4b2f-90da-26ec15d5a053"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", "Borel", " ", "transform", " ", 
    RowBox[{"B", "[", "u", "]"}], " ", "as", " ", "a", " ", "function", " ", 
    "of", " ", "u", " ", "only"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zerosplot", "[", 
     RowBox[{"borel_", ",", 
      RowBox[{"color_", ":", "Blue"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "zeros", "}"}], ",", " ", 
      RowBox[{
       RowBox[{"zeros", "=", 
        RowBox[{"u", "/.", 
         RowBox[{"NSolve", "[", 
          RowBox[{
           RowBox[{"borel", "\[Equal]", "0"}], ",", "u"}], "]"}]}]}], ";", 
       RowBox[{"Print", "[", "zeros", "]"}], ";", 
       RowBox[{"ComplexListPlot", "[", 
        RowBox[{"zeros", ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"color", ",", 
            RowBox[{"PointSize", "[", "0.02", "]"}]}], "]"}]}]}], "]"}]}]}], 
     "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"polesplot", "[", "borel_", "]"}], ":=", 
    RowBox[{"zerosplot", "[", 
     RowBox[{
      RowBox[{"1", "/", "borel"}], ",", " ", "Red"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"borelresum", "[", 
     RowBox[{"borel_", ",", 
      RowBox[{"g_", "?", "NumericQ"}]}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "g"}], ")"}], 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "u"}], "/", "g"}], "]"}], " ", "borel"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"u", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
      "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.835180783520442*^9, 3.835180802728932*^9}, {
   3.8351808429147377`*^9, 3.835180879290267*^9}, {3.835180945797674*^9, 
   3.835181034104151*^9}, {3.835181120754376*^9, 3.835181126409066*^9}, {
   3.835181344824182*^9, 3.835181354536615*^9}, {3.835181557006508*^9, 
   3.835181564406027*^9}, {3.835181629392165*^9, 3.835181645808226*^9}, {
   3.8351838997212152`*^9, 3.835183965347702*^9}, {3.8351840036046*^9, 
   3.835184041790368*^9}, {3.835184078303245*^9, 3.835184083694553*^9}, {
   3.835184120872197*^9, 3.83518414579214*^9}, {3.835184184105981*^9, 
   3.83518427305155*^9}, {3.835184308724936*^9, 3.835184545538764*^9}, {
   3.83518479065071*^9, 3.83518483251528*^9}, {3.8351849588319473`*^9, 
   3.83518495976618*^9}, {3.835185204350453*^9, 3.835185207932685*^9}, {
   3.8351852592235603`*^9, 3.8351853275197783`*^9}, {3.835185364569491*^9, 
   3.835185390305518*^9}, 3.835185463452262*^9, 3.835185566390662*^9, {
   3.835185612697913*^9, 3.8351856153271093`*^9}, {3.835187102847715*^9, 
   3.835187108814787*^9}, 3.83518765044599*^9, 3.835187682544567*^9, {
   3.835187786114962*^9, 3.835187793273179*^9}, {3.835187850244226*^9, 
   3.835187896469935*^9}, {3.835187936670733*^9, 3.8351880052067842`*^9}, {
   3.835188065698139*^9, 3.835188105705443*^9}, {3.835189942916823*^9, 
   3.835189943499433*^9}, {3.8352208918776903`*^9, 3.835220941659607*^9}, {
   3.835222632235279*^9, 3.835222638817713*^9}, {3.835222694675416*^9, 
   3.8352227061315002`*^9}, {3.835222737476736*^9, 3.835222746124192*^9}, {
   3.835224102538988*^9, 3.835224105257257*^9}, {3.835224265639086*^9, 
   3.8352242714935207`*^9}, {3.835224927632977*^9, 3.835224965869981*^9}, {
   3.83522510174328*^9, 3.835225103493491*^9}, {3.835225136472088*^9, 
   3.835225180273431*^9}, 3.835225308812585*^9, {3.835225373110962*^9, 
   3.8352254096134853`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"05e965e8-764e-4a87-bca7-9c238611d28b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 3.1", "Section",
 CellChangeTimes->{{3.8351869347222137`*^9, 
  3.8351869371535788`*^9}},ExpressionUUID->"c30aebef-04e0-44a2-aa62-\
02db35c7d071"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", " ", 
      RowBox[{
       RowBox[{"quarticI", "[", "g", "]"}], " ", "-", " ", 
       RowBox[{"quarticIseries", "[", 
        RowBox[{"g", ",", "n"}], "]"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "8", ",", "18"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"Abs", "[", 
   RowBox[{"%", " ", "/.", " ", 
    RowBox[{"g", "\[Rule]", "0.02"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.835182197454167*^9, 3.8351822163256493`*^9}, {
  3.8351822582084007`*^9, 3.835182290160857*^9}, {3.835182373083558*^9, 
  3.835182417755034*^9}, {3.835182450118182*^9, 3.8351824827974997`*^9}, {
  3.835182533943531*^9, 3.835182539550811*^9}, {3.835182848304838*^9, 
  3.835182859015732*^9}, {3.835183679854206*^9, 3.835183683396121*^9}, {
  3.835183755559882*^9, 3.83518378303846*^9}, {3.8351838813698397`*^9, 
  3.835183882225403*^9}, {3.835186931755172*^9, 3.835186933409979*^9}, {
  3.835190442169084*^9, 3.835190445152769*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"3cb6836d-af32-4453-b615-f45693cc94c8"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], 
    AbsoluteThickness[1.6], 
    PointBox[{{8., 7.05986239690759*^-7}, {9., 4.869609353530535*^-7}, {10., 
     3.737504513656731*^-7}, {11., 3.159923553930355*^-7}, {12., 
     2.918434930387903*^-7}, {13., 2.9238027055011884`*^-7}, {14., 
     3.1583839754656395`*^-7}, {15., 3.659747292994453*^-7}, {16., 
     4.528402227643724*^-7}, {17., 5.959653996967518*^-7}, {18., 
     8.312842516566832*^-7}}]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{7.791666666666667, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{7.791666666666667, 18.}, {0, 8.312842516566832*^-7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.835182300783347*^9, {3.835182399204523*^9, 3.835182424495599*^9}, {
   3.835182460350778*^9, 3.835182505171899*^9}, 3.835182558274433*^9, 
   3.8351828770203943`*^9, 3.8351837099661617`*^9, 3.8351837851127567`*^9, {
   3.835183872949006*^9, 3.835183899568356*^9}, 3.835184705142426*^9, 
   3.835187162832137*^9, 3.835190471074628*^9, 3.8352239386844053`*^9, 
   3.835224299316228*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"9f801eae-66aa-4f3e-827c-9e53af74ac10"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 3.4", "Section",
 CellChangeTimes->{{3.835189203175028*^9, 
  3.8351892064063883`*^9}},ExpressionUUID->"4534cbc4-44bb-4b10-899f-\
d441be241323"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "-", " ", 
           RowBox[{"g", " ", 
            RowBox[{
             RowBox[{"z", "^", "4"}], "/", "4"}]}]}], "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"g", ",", "n"}], "}"}]}], "]"}], " ", "/", " ", 
       RowBox[{"Factorial", "[", "n", "]"}]}], ",", " ", 
      RowBox[{"g", "\[Rule]", "0"}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"%", " ", 
    RowBox[{
     RowBox[{"u", "^", "n"}], " ", "/", " ", 
     RowBox[{"Factorial", "[", "n", "]"}]}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"quarticI", "[", "0.2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"borelresum", "[", 
  RowBox[{"%%", ",", " ", "0.2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"quarticIseries", "[", 
   RowBox[{"g", ",", "1"}], "]"}], " ", "/.", " ", 
  RowBox[{"g", "\[Rule]", "0.2"}]}]}], "Input",
 CellChangeTimes->{{3.8351882473335238`*^9, 3.8351884059285507`*^9}, {
  3.835188480772534*^9, 3.8351884845791492`*^9}, {3.8351885206295156`*^9, 
  3.8351885774549227`*^9}, {3.8351886199688997`*^9, 3.835188667921111*^9}, {
  3.835188771131811*^9, 3.835188773107563*^9}, {3.8351888105893497`*^9, 
  3.835188810796514*^9}, {3.835188877439823*^9, 3.835188890214386*^9}, {
  3.835188920409402*^9, 3.835188966320174*^9}, {3.835189011010395*^9, 
  3.8351890153940763`*^9}, {3.835189081445107*^9, 3.835189150357336*^9}, {
  3.835189246522396*^9, 3.8351892666322823`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b327e757-c188-4897-befc-03e787410c68"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "n"], " ", 
      RowBox[{"Gamma", "[", 
        RowBox[{
          FractionBox["1", "2"], "+", 
          RowBox[{"2", " ", "n"}]}], "]"}]}], 
    RowBox[{
      SqrtBox["\[Pi]"], " ", 
      RowBox[{"n", "!"}]}]], 
   RowBox[{
     RowBox[{"Re", "[", "n", "]"}], ">", 
     RowBox[{"-", 
       FractionBox["1", "4"]}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835188291667197*^9, 3.835188316719955*^9}, {
   3.835188365906747*^9, 3.835188407579879*^9}, 3.835188487932507*^9, {
   3.835188555039299*^9, 3.8351885785367126`*^9}, {3.835188621977989*^9, 
   3.835188668848256*^9}, 3.83518877367209*^9, 3.835188821991433*^9, 
   3.835188892400844*^9, {3.8351889399339237`*^9, 3.8351889667923594`*^9}, 
   3.835189018146617*^9, {3.835189086380073*^9, 3.8351891211904488`*^9}, 
   3.835189152969934*^9, 3.83518921098494*^9, {3.835189249417074*^9, 
   3.835189268968986*^9}, 3.8351899830735188`*^9, 3.835223944880439*^9, 
   3.8352241202323313`*^9, 3.835224303544427*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"69ee3255-26a8-470e-990a-9b726ba79af1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"EllipticK", "[", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"4", " ", "u"}]}]]}], 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"4", " ", "u"}]}]]}]], "]"}]}], 
  RowBox[{"\[Pi]", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "u"}]}], ")"}], 
    RowBox[{"1", "/", "4"}]]}]]], "Output",
 CellChangeTimes->{{3.835188291667197*^9, 3.835188316719955*^9}, {
   3.835188365906747*^9, 3.835188407579879*^9}, 3.835188487932507*^9, {
   3.835188555039299*^9, 3.8351885785367126`*^9}, {3.835188621977989*^9, 
   3.835188668848256*^9}, 3.83518877367209*^9, 3.835188821991433*^9, 
   3.835188892400844*^9, {3.8351889399339237`*^9, 3.8351889667923594`*^9}, 
   3.835189018146617*^9, {3.835189086380073*^9, 3.8351891211904488`*^9}, 
   3.835189152969934*^9, 3.83518921098494*^9, {3.835189249417074*^9, 
   3.835189268968986*^9}, 3.8351899830735188`*^9, 3.835223944880439*^9, 
   3.8352241202323313`*^9, 3.8352243053509817`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c3cf47ee-6760-4bc8-804f-ff2eca17b5ac"],

Cell[BoxData["0.907984777430824`"], "Output",
 CellChangeTimes->{{3.835188291667197*^9, 3.835188316719955*^9}, {
   3.835188365906747*^9, 3.835188407579879*^9}, 3.835188487932507*^9, {
   3.835188555039299*^9, 3.8351885785367126`*^9}, {3.835188621977989*^9, 
   3.835188668848256*^9}, 3.83518877367209*^9, 3.835188821991433*^9, 
   3.835188892400844*^9, {3.8351889399339237`*^9, 3.8351889667923594`*^9}, 
   3.835189018146617*^9, {3.835189086380073*^9, 3.8351891211904488`*^9}, 
   3.835189152969934*^9, 3.83518921098494*^9, {3.835189249417074*^9, 
   3.835189268968986*^9}, 3.8351899830735188`*^9, 3.835223944880439*^9, 
   3.8352241202323313`*^9, 3.8352243053530893`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"8ed14695-ce3c-43ac-b056-0aebab784c72"],

Cell[BoxData["0.9079847774308424`"], "Output",
 CellChangeTimes->{{3.835188291667197*^9, 3.835188316719955*^9}, {
   3.835188365906747*^9, 3.835188407579879*^9}, 3.835188487932507*^9, {
   3.835188555039299*^9, 3.8351885785367126`*^9}, {3.835188621977989*^9, 
   3.835188668848256*^9}, 3.83518877367209*^9, 3.835188821991433*^9, 
   3.835188892400844*^9, {3.8351889399339237`*^9, 3.8351889667923594`*^9}, 
   3.835189018146617*^9, {3.835189086380073*^9, 3.8351891211904488`*^9}, 
   3.835189152969934*^9, 3.83518921098494*^9, {3.835189249417074*^9, 
   3.835189268968986*^9}, 3.8351899830735188`*^9, 3.835223944880439*^9, 
   3.8352241202323313`*^9, 3.835224305386177*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"86d629f1-4aa0-4fa6-b984-19ad281d1bd6"],

Cell[BoxData["0.85`"], "Output",
 CellChangeTimes->{{3.835188291667197*^9, 3.835188316719955*^9}, {
   3.835188365906747*^9, 3.835188407579879*^9}, 3.835188487932507*^9, {
   3.835188555039299*^9, 3.8351885785367126`*^9}, {3.835188621977989*^9, 
   3.835188668848256*^9}, 3.83518877367209*^9, 3.835188821991433*^9, 
   3.835188892400844*^9, {3.8351889399339237`*^9, 3.8351889667923594`*^9}, 
   3.835189018146617*^9, {3.835189086380073*^9, 3.8351891211904488`*^9}, 
   3.835189152969934*^9, 3.83518921098494*^9, {3.835189249417074*^9, 
   3.835189268968986*^9}, 3.8351899830735188`*^9, 3.835223944880439*^9, 
   3.8352241202323313`*^9, 3.835224305388051*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"b8e1648e-e41d-4b19-9224-4af1ee855e10"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 3.1", "Section",
 CellChangeTimes->{{3.835186973875898*^9, 
  3.835186976570648*^9}},ExpressionUUID->"abbcfd21-5b07-485e-abe4-\
913ad648c272"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pade", "=", 
   RowBox[{"borelpade", "[", 
    RowBox[{"quarticIseries", ",", " ", "u", ",", " ", "30"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{"pade", ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
  " ", 
  RowBox[{"(*", "zeros", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zerosplot", "[", "pade", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "poles", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"polesplot", "[", "pade", "]"}]}], "Input",
 CellChangeTimes->{{3.835184561539741*^9, 3.835184601259613*^9}, {
  3.835184655374648*^9, 3.835184659189163*^9}, {3.835184708671343*^9, 
  3.835184771065567*^9}, {3.835184854004609*^9, 3.8351848905634747`*^9}, {
  3.835184966119589*^9, 3.835185015806622*^9}, {3.8351852147413893`*^9, 
  3.8351852194601917`*^9}, {3.835187583636806*^9, 3.835187593795594*^9}, {
  3.835188119146991*^9, 3.835188134889485*^9}, {3.835193847834704*^9, 
  3.83519386628981*^9}, {3.835220958205841*^9, 3.835220973708273*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"c20a0ff7-f3dc-4525-ba96-b18db7954715"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAALj8W6v//77+3cjcx9C7vP2/5I4j5
+u+/Js4cKTQR7z+wszEm8/Xvv3VcAiqZ8+4/MihNYubr779TmHtEz7juPzcR
hNrM1++/Kk/vX9dE7j9A4/HKma/vv8zd/Ti7Yu0/UofNqzNf778Q6uxzXLHr
P3fPhG1nvu6/KeenRvZ66D+M63bX9Ljuv/TSxk6OX+g/ogdpQYKz7r9TaDB+
J0ToP8w/TRWdqO6/MJ7c3FoN6D8isBW90pLuvxpRsk20n+c/zpCmDD5n7r+y
PkABpsPmPyZSyKsUEO6/9040K/gD5T88broVogruv9h8UAh35+Q/UYqsfy8F
7r9Dgm+94crkP3zCkFNK+u2/eS78nneR5D/SMln7f+Ttv76uITyPHeQ/fRPq
Suu47b/eXpGwtDDjP9TUC+rBYe2/8uvFSVk84T+BZLW+q1ztv8LuvEbIHeE/
LvRek5VX7b9w2nKPCv/gP4gTsjxpTe2/KtAXyQTB4D89UliPEDntv9lDYw+x
QuA/ps+kNF8Q7b/E8gc3vXfeP1NfTglJC+2/+7M2WO4z3j8A7/fdMgbtv3nW
KJue790/Wg5Lhwb87L80PIylcGXdPw9N8dmt5+y//R0AroNK3D94yj1//L7s
v1BtZApq99k/JVrnU+a57L8ffizw/6nZP9LpkCjQtOy/irJjBdxb2T8sCeTR
o6rsvzULMhZVvdg/4UeKJEuW7L+7OvFTyHbXP0rF1smZbey/6GOa8iq/1D/3
VICeg2jsv0ffLHzKY9Q/pOQpc21j7L8tDKMEWQfUP/8DfRxBWey/NHaKJydL
0z+0QiNv6ETsv6vhDa63xNE/HcBvFDcc7L84iwrIofDMP8wSNXQ6F+y/bxN3
GJsUzD96ZfrTPRLsvw0MM+N1Ncs/1gqFk0QI7L+8ja+vdm3JP5BVmhJS9Ou/
qXqzhwa0xT8+qF9yVe/rv/o/rvhxvMQ/7fok0ljq679uI3XW9cDDP0qgr5Ff
4Ou/ovHxk8+9wT8D68QQbczrvxZvnHSKBrs/sj2KcHDH678/2oiZ6tG4P2CQ
T9Bzwuu/yw6/jVyTtj+8NdqPerjrv3b43DUv97E/doDvDoik678wAYnesHGg
P3K6uIOUleu/AAAAAAAAAAAous8u
       "]], LineBox[CompressedData["
1:eJwtiX0w1HkcgHfcSfTiJZSzlTbkSi6vR3PNJ1JXOk4oUcLKXU4vUmla2l7I
2zYq1Q2GbY87KaoTSYkPvdwJqxWryK7Y38uXUmF3beLmupl7Zp55/niW8A8E
xepxOJyNn/2vwx66pDkNBJvj7A9NX52GE7LIA0O1BGe3dgT0bJyGAl2jvqKK
oL7wtt/T91NQbcMrlN0kqKyxPXwwfwpIAtV893eCJmazrGLUnyDINI6Xfp6g
4+GUu9lPJmGvV0vtMRFB/wq9riHhJGREr/hxXzrBR2yI8dLVk/CgciQ5JIXg
LyazJB13PoJdUKKct4egbb7FILdRB2sFnfGWMQSzp2oSvNN1EF7spme0i2DC
5RTDGn8d5IxpnUaDCRrq7dsd/noCdLnJmQgErSRD59bOmwCW2zS8YTXBBdel
skylFrpLZ/i3uxHMWfwp9cN1LVTdv2Cq+JpgftIfC0Y3aGH/4NWCyXkEn+AN
/7xsDezcOzJ1ai7BMsMo3r0IDWzWukQaGhL0PS5SlDtrwMGoYemCf1jsG+O6
kVdqUDl3VbgTFhULD0m0nmp4XmdlXD/IojbIN0BpqobG9ZEHfRUsttfkcvlv
xkEcNuwe/JzFRdZ1jg6Scdh+ioMJD1g8Lb/1rY3JOLTLHDvKz7OYOjVZrNIf
gwfhia6uIhYxprNiJzMK5dTdy/fPsNjEZn3h9PcoZOp8wp8KWPRouOQizRqF
dTZhKmY3i/d8VjLlZqNQe+CMZokXi4GpDweKVn2AkrlKq7wBBnu9tbd7rUcg
dwcYePUxuHmLICN0+C2cLpOoe7oZ/Dl6WDpR+xb4PjHPrNsYXKt1D/5121vg
JZG0KzUM1p6LL9PkvoFixdj7UhGDuWs8H+fNGQZJhcFfd9wZFDOXg5VqBs5/
3FO1bRWDfhladWsTAyc3tEgmljOY7UTzknIYiHp9NtnLhkHJTNekD/YMLDY3
c643YlBYqeUYhdAgTuYWPu6n8WiN+599BSrIaT6eFdtLY6x32Pdp0SoQWvQn
zZDTqF48tKlwmQp23fpty8YWGisEEVz924OwUGVv0FZN47uF64/o4QAU+jkn
dmbRqFe068rSn/rBdpZfiyyNRu8bUoE9pYTyVj6v/QSNjin04YAoJdz/4dLz
5iM0xlu5kEdBCugJmHBpiP78AzXxpoteQZSxiahuJ43VF4ry54p6gTxzUNWG
0jiTPzQ/XdMDusDwi1X+NJ4cXyYXPHwJlsH142VeNDaaFa8I9OoG8bzuzaVu
NPq+HnCdypGDXde7kpJvaKxc01K+fKAL3LbahIjtaDwW5xmaKOiEoNDU6oum
NH4ldnJlkmXQO79w9oXZNB53TFj9IvoZRL+s3p1jQOPyGSVKdZMUEsIY86xp
CkvOGlkI+S1wbsemI8IhCmNfZAoKLB6BJZcvTaYobBONOHguaQJxn8DuWD+F
3hzzs9u/a4CbERXyQ3IKr33Zf1TacQc8Fj1ZeVBGoeeIj2t/XCXUKxVn9rdS
aLlua8T6umvQFmnsEddEYYbLlvCVwmwoeuzTad1AIed//gUkrXbf
       "]], 
      LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAH6KUjYrz4r/IaSZz/af9P3sDqndy
7eK/iM2JyggN/T9umV4GYOjiv2sxQMrWlPw/Yi8TlU3j4r9acroIriH8P0pb
fLIo2eK/GMfIgBlJ+z8+8TBBFtTiv7ZM7V0R4/o/MYflzwPP4r+tQj0f2ID6
PxizTu3exOK/mJCjs9zG+T8MSQN8zL/iv/lwjeyrbvk//963Crq64r+8GCbf
axn5P+YKISiVsOK/i45Xlgx3+D+0YvNiS5ziv+mblNmjTvc/qPin8TiX4r9k
OURLsAn3P5uOXIAmkuK/gu8F7JLG9j+CusWdAYjiv19oEdd2RfY/URKY2Ldz
4r8jBb0wUVX1P0SoTGelbuK/27rSNpoc9T84PgH2kmnivzD26usU5fQ/IGpq
E25f4r/KZ5wDYnn0P+7BPE4kS+K/dEI6eNit8z/iV/HcEUbiv1u+VBgmffM/
1e2la/9A4r+6jqE3PU3zP7wZD4naNuK/Hhv8CZ/v8j+LceHDkCLivzeoh58q
PPI/KCGGOf354b+rArf5TO3wP2GAzyTWqOG/y3ejGh4F7T9W2Z8+3aPhv1Bm
tjG2uuw/SjJwWOSe4b967mATPHDsPzTkEIzylOG/gKmPmOna6z8ISFLzDoHh
v+hd8omvreo/rg/VwUdZ4b/9v0eEaj/oP6NopdtOVOG/Dn94YN/u5z+YwXX1
VU/hvwZZLpOLnec/gXMWKWRF4b/+FQXkT/jmP1TXV5CAMeG/GSy92c+h5T/7
ntpeuQnhv5fl5xhStOI/8PeqeMAE4b87KtNf307iP+RQe5LH/+C/2aG2qFjn
4T/OAhzG1fXgv4RQOHGOEeE/omZdLfLh4L/yIb22CI7eP5e/LUf53OC/coyG
7/SZ3T+MGP5gANjgv2SEQx41n9w/dcqelA7O4L+Wd9Mr9pPaP0gu4PsquuC/
kgON/lcY1j89h7AVMrXgv/cd6rXq4NQ/MuCALzmw4L9rCahLSZ7TPxuSIWNH
puC/WLqrehr00D8Q6/F8TqHgv7Clo/VkFc8/BETCllWc4L/Aj+MRuCTMP+71
YspjkuC/SOQ4cCbgxT/jTjPkao3gv/RW9bTMhsI/2KcD/nGI4L9AzPUMMgm+
P8JZpDGAfuC/Vu7YvzjcrT+3snRLh3ngv8e7U0CUGps/jd3ZA5114L8AAAAA
AAAAANwn5nw=
       "]], LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAklZniteD3r/IaSZz/af9Pygz3bD9
eN6/llLh1DPy/D+6qEZ8M27ev6kB/mDNTfw/TB6wR2lj3r8GnBs51rL7P3EJ
g97UTd6/7jKzx5mV+j8Ef+ypCkPevyQbGDbLEfo/lvRVdUA43r89tpo4UZT5
P7rfKAysIt6/QPw9KCeq+D98PAGtmhjev3qUZeqzQ/g/PZnZTYkO3r+kL4U5
G+H3P8BSio9m+t2/DbHPnUwm9z/HxesSIdLdv0Q6q59W0/U/iCLEsw/I3b/Q
XCMAnIT1P0p/nFT+vd2/PCer0u439T/OOE2W26ndv1WwMpMipPQ/1KuuGZaB
3b+VCf0XEo/zP5YIh7qEd92/tSqjE/1M8z9XZV9bc23dv+yuvUz5C/M/2h4Q
nVBZ3b8IHPBbxozyP+GRcSALMd2/9gpLqlCX8T/udzQngODcvy0Lr+lofu8/
sNQMyG7W3L8+Oty9KQnvP3Ex5WhdzNy/7jy516CT7j/06pWqOrjcv4Kb+2Mg
p+0/+133LfWP3L83R3tsOMTrP7y6z87jhdy/7tZSP4FI6z9+F6hv0nvcv/oC
UCpAy+o/AtFYsa9n3L+z4fc8X8vpPwhEujRqP9y/4yg5STuw5z/KoJLVWDXc
v/k9p61YIuc/jP1qdkcr3L/eb8CxEpHmPw+3G7gkF9y/Kn7vpxZj5T/QE/RY
Ew3cvzVM5D6sxeQ/knDM+QED3L9THamScyPkPxYqfTvf7tu/u4LraMzO4j/Y
hlXczeTbv4WlZmJbG+I/meMtfbza278nidFME2HhPxyd3r6Zxtu/irdNHKeq
3z/e+bZfiLzbv7emImyoBN4/oFaPAHey279S9xSb0ErcPyMQQEJUntu/kVrA
kyqT2D+OMOF6apPbv0jb09rnY9Y/+FCCs4CI27/Z0ir1ThHUP2JxI+yWfdu/
TTrQsu2W0T/MkcQkrXLbv/8vUw0o380/NrJlXcNn27/J6oxWUCrIP6DSBpbZ
XNu/zvsxGeIAwj8K86fO71HbvypyFTtDo7Y/dBNJBwZH27/w9UytRR+gP4wo
xsuEQdu/AAAAAAAAAACf+q+3
       "]], LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAADi4EOVqS2b/IaSZz/af9P3hEFxmV
h9m/HpOnmDvN/D/iZLhRq3zZv+VXP+xNAPw/TIVZisFx2b+Cb05B4kH7P7el
+sLXZtm/xLVn6xqQ+j8ixpv77VvZv1iToeFh6fk/jOY8NARR2b8We8cuXkz5
P2Anf6UwO9m/RkH6a/oq+D/KRyDeRjDZvwsuEqG6pPc/NGjBFl0l2b+akmUJ
YiT3PwmpA4iJD9m/H45Nt8Uy9j+yKohq4uPYv4cvRhMBffQ/H9FguSvZ2L/Q
cCXoVhj0P4x3OQh1zti/2WH2g6O18z9lxOqlB7nYv7EvMCnp9PI/GF5N4SyO
2L/15GgDVn7xP4QEJjB2g9i/miTE0Goh8T/xqv5+v3jYv6qzB3pExPA/yvev
HFJj2L8+ZfWlNAjwP32RElh3ONi/UYlSfekB7T/qN+umwC3Yv2SxDfUzNOw/
Vt7D9Qkj2L/+mKMw9mDrPzArdZOcDdi/fRY+n0im6T+c0U3i5QLYv6MgBUXK
vOg/CXgmMS/417+hCzU3nMnnP+LE187B4te/iZM1O3HA5T9Pa7AdC9jXvxFX
uoEIp+Q/vBGJbFTN179k76WMAH3jPyi4Ybudwte/y+AkGto/4j+VXjoK57fX
v6Ggtsyi7OA/AgUTWTCt17+LIAkFqf/eP26r66d5ote/IiWmF2Xq2z/bUcT2
wpfXv49b/WUoj9g/SPicRQyN17/LOes+P+HUP7WedZRVgte/raPbNtjQ0D8i
RU7jnnfXv2oTnZ/vk8g/jusmMuhs17/KpW3j7su8P/uR/4AxYte/bLna53in
lj84uR2V6V/XvwAAAAAAAAAAveRNcA==
       "]], LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAk9jtUkjD07/IaSZz/af9P0ifTQ69
wNO/2M3+je5W/T/lLJUyv7bTv+GGFdP8OPw/Kn6l7uir07/6rgzevh/7P27P
taoSodO/KKivlTse+j/4cdYiZovTv5bP0auvTvg/PMPm3o+A078BhvwOEHn3
P4EU95q5ddO/OcHzHm2r9j8KtxcTDWDTv0U4NefWHfU/TwgozzZV07/4VfaM
Iln0P5RZOItgStO/mZQk96+S8z8d/FgDtDTTv/1AKe529vE/Yk1pv90p078k
q3bW1hrxP6aeeXsHH9O/Snwu5Hcx8D/r74k3MRTTv5LAig6Ga+4/MEGa81oJ
07/JAUsFpUPsP3WSqq+E/tK/TD/ACuzb6T+647prrvPSvyZzBnAdH+c//jTL
J9jo0r+MHAm2Vu/jP0OG2+MB3tK/Sfoh9l8g4D+I1+ufK9PSvwGNiqDR29Y/
zCj8W1XI0r/4Hd3Zw5/FP7TqaqMewdK/AAAAAAAAAADI+MtM
       "]], 
      LineBox[CompressedData["
1:eJwVj3s01IkbxsmmqESJKEq1yiW3col4i1yyKZRoV9G2SSpZWy4lUSqJVi67
rFU2l5SQVJrCm1szYy7WIHe7+eE74zLfuWEMaf3+eM9zPudznvOcV+/Hi96n
F8nJyaUs3P8zxz3KPiu8BWln9X/58uQLqCZtEDQFtWDYiZQPRse/gFSms/qe
dwuuEbBrueNz8O+59VaeDi14UCn496V354DWp31sjeFCf63Zu42mc/DCQyum
Z00LFsSC5dn+Wciq1Xz0SL4FO9PNte6mzUJwnvqwQTcb7dRvlvmvmAVPtdVL
yUY27mqP4mS0ysDmhprRqxdstHaYqcjIloHSTyo/OySyUcv68jqbHTIQtS/P
ULjERsWK2ybbv5FBj/OyKloAGzWrrny+1TkDz7Yu/eJtzcZ4fLI3PmEG0rIU
N67dzEY/hSMdTcdn4IrSYqd+FTbW7jUMKreZAfcx+btnRlgo4/Wm80VSsPCX
e27MYaHFocTmZRwpaLPm2cIaFnbRQ6z8X0phrGxWPSaThcmXXEadIqTQvkFm
vTeehS3vm6lvjkmhOlX6veIFFlLU6NmrHaSQHD6Zl7qPhfGT4aGHlaRgbEUa
F4qZ2O2iaFhYPA1BJtevU/qZKEetarVNnYZH+is5LCoT1QyOaMRGTcMqTdPI
qRwmDlp/ieG5T8P0dGid6z4mquaYZVydmgIzwfxqfxMmMsS2XnmDUxDCvR8U
tnbBN1/9a1fLFPR1lS3LHmegvkID7/XTKain8H1GMxgYFHAt8tipKZiriC2e
j2Xg5y29qQXeU2D5TGV21VkG1gt22zs5TkHxHyZ5dvYMrMnNUri4aQpSroaO
Jg83Yz6/Wn3HyCT42fNjTa2aMZVX8jk0ehLSLGNbnTY2Y2W6vkfz+UlgbFfZ
4qfcjP7+Z7OPBk6Cg64JPW6AjlbSjXvmXCdh89cLqzm36bg9bvOwr9Yk8D9M
PLnUSUPjrW1xxxoksJVyTZZYR8NUr6h1VhQJBFas8MgtoWEpuanColwCbX9t
FzVdp6HT4HJOYo4E3t64sFtzGw3r/C6EZl6WwM19E39ToqgoujvyfZGJBOrd
xg/tPEXFs5UOtv76EpDzGGOXeVDRuprK3qorgRgfHjN/ExVXOHcFz6+QQETQ
MC2F+RHD5SWOD/liCE7s/3By40fUShoJ9KsUQ1FyH/Qpf0Sa45HW3c/FMJTa
W3t0sgnDAlQumBeK4WR2d/V3zU1oLqCvdP9dDN8/63hreakJqa4T9eYxYjjA
ZL1QojWi0XJXbqGbGJL+ZpomvFzgDQFPLjqKgdbOKJv/sxHTdMaHnXeLwbmf
/lz8cyO23ZzfpGkmBgd+U3H/ukZ0Myr5y3WtGMxUa/MqLjbgrfc2vPejIlhz
pCz1mGY95sypTEp+E8FL/XvvnBXq8VPl4yu+aSLwnDkzZE7WYfdcwPK6FBEk
PdSzUabWobz5P4ueJohgnpvxz7uIOvRdFaLeHC6CkWtXTdZ/+oBHv3al7/EU
QeihB1k1Bogh25Or760UQbHEfTxTHrHi+Ne+0mUiGMz+Zk9ody2q5JUu7lgi
gqNDkYTu3Vo022XtYCEnAog+YRXHrcHo3dqz+kIhqOYbtTs+qcbWosAisk0I
L6eaVtK2vMNT4+TN138K4f6zx/UOMxR0GZCzWZ8thHMnrl9+zaJgjU+H351M
IWz5aNP7OGLBb6NUhdwXwm+ZJUXXaG+RqpjN+SlOCFd2PrDfcb4KvXqFBrqn
heAY7n/uYeUr1FASdAebC6GwdziFl1CGN3QPv6W3CaAnRuNR7o4yXHQxtsC2
VQAquq4vvAZL8Xea20ApWwARgcUcCpQiXbreKIcuAJfhEM0kWQm6mKfVpqIA
uHwyzzDsKSocKHwwVCIAw0WyynM/FCAvNrlN47YAjnutf9V7KgPpW9TDv4AA
xsWTuy43pqOSXVuuyF4AMb+1oMq36agYytvPsxPAn703GHtHHmCsWot2r7UA
XjE4TYda7+NAuU/Q36YCKJec38ztSUA9HR/u1w0CiGvf1r6uwR6vDjrEnZYX
AEX5akf95XR4Hcx92PMrCZaD8rrxfuWQcGDWXa2SD5sF72ds6xc+0kstEcrx
YX9+N+ugXz3cWFk05Ok7Ac4eqxQmX1OhyOb+cGbDOPwa0BlnVsWEgHsEJ8R1
HKgHdVZ4rmoFNucQfSVrDCb01sRy/miDBNNZ48yfxuDyJaOTv2p8gqV2ySLJ
4jHo7FP1DqJ1gcJ85yNO0SgERu8mlhzoBQfeLjP7I6PQYGSd1LB4APT0whpz
5UZBX6maW+D2L5xYvnFnWBUPdKrPOS9O/Axz1cQWxi88kJMteho+OAjvaEm5
iSY8mPaqOdH07RBwfK5tDRRyoXdnwLpvE4ZhOFL84M5LLoT5qqpt6huBzzpu
p2SRXNDKGPL7RocLrB+rDo87caHsh7wn4igeeHe80VNW4YKv/XU3Ws0oGOzn
K4r6Cag4cWGT7dwYrD0b8ub1CwKkyk4KFJ8J8BraGZ4bT4B3q52VThYfDIzT
BKd9CVC2W1ZXncuHrZvdlEuPElBX0POdfz4fEgKHHSU+BJhFRZ/MKeODd0a5
6s0jBKhsqErWauKDq3a0zmMvAujnLf63RsQHalCeePg7AvYsNUhVOUDC4dva
Xgl7FvZ/lmqXeZEwFJth2QIElPdSCz18SXjGZ1prL7BuedD75B9JOGbsk/nC
noA5n4IR5WgSbjColQO2BFTlb7BfUkRC5PiZiD2WBISuIKlFJSR4l2ZZpOwk
QD+y1tulggTGg5llPTsIyHA/HnyresFTtmlcsiAgXPhHukIbCQcV3O48NSXA
8IcQ3fwuEjpdFhtPmxDwuXHXU8cBEmTS5xP7Ftgzq6s2nkfCG41s6r/GBCxd
VLxfjyShwpH5j8kC47nI9g8SEsaOU9WvGREQ0eESECgjYa41PohhSIAJaIx+
/UqC1XJxu9YC/weNubKb
       "]], LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAaF9OwC4o1r/IaSZz/af9PxjhQGk6
Ita/0RXdU38P/T+0boiNPBjWv9RVuqGBJfw/UPzPsT4O1r/CExRq5037P+yJ
F9ZABNa/lvwoRd6F+j+IF1/6QvrVv2IdhFgMy/k/wDLuQkfm1b+C+Lo7iXX4
P1zANWdJ3NW/thr6ocXX9z/4TX2LS9LVvyZrJcr7QPc/MGkM1E++1b9/7XGy
KCT2P6CfKmVYltW/CGYgM/MV9D88LXKJWozVv41UddtGl/M/2Lq5rVyC1b+p
V01eRBnzPxDWSPZgbtW/Bd5h7b8c8j+sY5AaY2TVv/1orBr5nPE/SPHXPmVa
1b9w0mQdTBvxP4EMZ4dpRtW/pv2pjUkP8D8emq6razzVv0F4UV2eBu8/uif2
z20y1b+dAB7XL+TtP1a1PfRvKNW/a8YkwxG17D/yQoUYch7Vv9QVuXO2dus/
jtDMPHQU1b94QOJbIybqPypeFGF2CtW/HVlWjsu/6D9ieaOpevbUv9cN1iDH
n+U//gbrzXzs1L8Mp5jDcdrjP5qUMvJ+4tS/xG4Irj7n4T82InoWgdjUvyxx
F8ebd98/0q/BOoPO1L/wwjeOHpXaP249CV+FxNS/DFTy3+QC1T8Ky1CDh7rU
vxY4Ltl+H80/pliYp4mw1L8F2tARUNu7P3tBWm7rqNS/AAAAAAAAAAAMAg11

       "]], 
      LineBox[{{-0.2826376799758394, 
       1.8535131929444209`}, {-0.282232963543924, 
       1.7945144579101777`}, {-0.2815715271349237, 
       1.708611799602078}, {-0.2809100907259235, 
       1.6300086759324812`}, {-0.28024865431692325`, 
       1.5562368173361232`}, {-0.2789257814989227, 
       1.4152531500727696`}, {-0.2782643450899225, 
       1.344420425941647}, {-0.2776029086809222, 
       1.2708369416463745`}, {-0.27694147227192195`, 
       1.1922062658922818`}, {-0.2762800358629217, 
       1.1055870553690719`}, {-0.2756185994539215, 
       1.0068661715924836`}, {-0.27495716304492124`, 
       0.8898904918770324}, {-0.27429572663592094`, 
       0.7447479380214757}, {-0.2736342902269207, 
       0.5539860497378142}, {-0.27297285381792047`, 
       0.2834980765807373}, {-0.2725345528572435, 0.}}], 
      LineBox[{{-0.26492515634784386`, 
       1.8535131929444209`}, {-0.26446231608836934`, 
       1.7710173504988593`}, {-0.26384494747309517`, 
       1.668763034564872}, {-0.263227578857821, 
       1.568548468708182}, {-0.2626102102425468, 
       1.4646963386695173`}, {-0.26199284162727265`, 
       1.350259264224475}, {-0.2613754730119985, 
       1.215029430134081}, {-0.2607581043967243, 
       1.041174608002031}, {-0.26014073578145014`, 
       0.7918177743129964}, {-0.25952336716617597`, 
       0.3722438873091714}, {-0.25927804960922973`, 0.}}], 
      LineBox[{{-0.2540419979453619, 
       1.8535131929444209`}, {-0.2539670496287084, 
       1.8321066828778148`}, {-0.25334968101343425`, 
       1.6351767228617597`}, {-0.2527323123981601, 
       1.3399718557833586`}, {-0.2521279624660446, 0.6295685487958922}}]},
     Annotation[#, "Charting`Private`Tag$70214#1"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-1, 1}, {0., 1.8535131929444209`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835184593000876*^9, 3.835184601768243*^9}, {
   3.835184655916238*^9, 3.835184659533143*^9}, {3.8351847107699127`*^9, 
   3.835184721682351*^9}, {3.8351847618124723`*^9, 3.8351847732809134`*^9}, {
   3.835184836055081*^9, 3.8351848927984657`*^9}, {3.83518499356812*^9, 
   3.8351850187489634`*^9}, 3.835185224250073*^9, 3.8351856234070044`*^9, 
   3.83518717392955*^9, {3.8351875896280317`*^9, 3.835187600042857*^9}, 
   3.835187663125806*^9, 3.835187804057433*^9, 3.8351878615340843`*^9, 
   3.835187905807989*^9, 3.835187949119866*^9, {3.8351881307278767`*^9, 
   3.835188141038896*^9}, 3.835193872561871*^9, {3.835220962492255*^9, 
   3.835220979764625*^9}, 3.8352226500195627`*^9, 3.835223955967424*^9, 
   3.8352241244855967`*^9, 3.835224308898123*^9, 3.835224969488497*^9, 
   3.835225108118775*^9, {3.835225140056933*^9, 3.835225183048525*^9}, 
   3.835225314455366*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"26ce3b8b-49e4-4d9d-9f9b-87e31bc138a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "60.7103277494174`"}], ",", 
   RowBox[{"-", "9.339870953116703`"}], ",", 
   RowBox[{"-", "3.638881078057466`"}], ",", 
   RowBox[{"-", "1.9490135711007313`"}], ",", 
   RowBox[{"-", "1.2311270598657744`"}], ",", 
   RowBox[{"-", "0.8619155198289511`"}], ",", 
   RowBox[{"-", "0.6482042665700793`"}], ",", 
   RowBox[{"-", "0.5143543283671824`"}], ",", 
   RowBox[{"-", "0.42586605063501437`"}], ",", 
   RowBox[{"-", "0.3652208772141161`"}], ",", 
   RowBox[{"-", "0.3227994933718248`"}], ",", 
   RowBox[{"-", "0.2930136317260926`"}], ",", 
   RowBox[{"-", "0.27249746265521674`"}], ",", 
   RowBox[{"-", "0.2592025960151859`"}], ",", 
   RowBox[{"-", "0.25192885386006225`"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.835184836143208*^9, 3.835184892807562*^9}, {
   3.835184993602281*^9, 3.835185018753828*^9}, 3.8351852242548656`*^9, 
   3.835185623445119*^9, 3.8351871739953413`*^9, {3.835187589718444*^9, 
   3.8351875998845387`*^9}, 3.8351876629660273`*^9, 3.8351878038950567`*^9, 
   3.8351878613729973`*^9, 3.835187905644569*^9, 3.835187948959375*^9, {
   3.835188130565008*^9, 3.835188140879347*^9}, 3.835193872654749*^9, {
   3.835220962622758*^9, 3.835220979856984*^9}, 3.835222650061757*^9, 
   3.835223956079813*^9, 3.8352241245265713`*^9, 3.835224309007326*^9, 
   3.83522496952914*^9, 3.835225108160309*^9, {3.835225140097556*^9, 
   3.835225183087308*^9}, 3.835225314767267*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"e09c9b97-5a58-4153-abe4-979a9a3ff7a5"],

Cell[BoxData[
 GraphicsBox[{{{}, {}}, {}, {{}, 
    {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], 
     PointBox[{{-60.7103277494174, 0.}, {-9.339870953116703, 
      0.}, {-3.638881078057466, 0.}, {-1.9490135711007313`, 
      0.}, {-1.2311270598657744`, 0.}, {-0.8619155198289511, 
      0.}, {-0.6482042665700793, 0.}, {-0.5143543283671824, 
      0.}, {-0.42586605063501437`, 0.}, {-0.3652208772141161, 
      0.}, {-0.3227994933718248, 0.}, {-0.2930136317260926, 
      0.}, {-0.27249746265521674`, 0.}, {-0.2592025960151859, 
      0.}, {-0.25192885386006225`, 
      0.}}]}, {{}, {}}}, {}, {{}, {{{}, {}, {}, {}}, {}}}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& ), "CopiedValueFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& )},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "MessagesHead" -> ComplexListPlot},
  PlotRange->{{-8.68845650116084, 0}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835184593000876*^9, 3.835184601768243*^9}, {
   3.835184655916238*^9, 3.835184659533143*^9}, {3.8351847107699127`*^9, 
   3.835184721682351*^9}, {3.8351847618124723`*^9, 3.8351847732809134`*^9}, {
   3.835184836055081*^9, 3.8351848927984657`*^9}, {3.83518499356812*^9, 
   3.8351850187489634`*^9}, 3.835185224250073*^9, 3.8351856234070044`*^9, 
   3.83518717392955*^9, {3.8351875896280317`*^9, 3.835187600042857*^9}, 
   3.835187663125806*^9, 3.835187804057433*^9, 3.8351878615340843`*^9, 
   3.835187905807989*^9, 3.835187949119866*^9, {3.8351881307278767`*^9, 
   3.835188141038896*^9}, 3.835193872561871*^9, {3.835220962492255*^9, 
   3.835220979764625*^9}, 3.8352226500195627`*^9, 3.835223955967424*^9, 
   3.8352241244855967`*^9, 3.835224308898123*^9, 3.835224969488497*^9, 
   3.835225108118775*^9, {3.835225140056933*^9, 3.835225183048525*^9}, 
   3.835225314824905*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"cf369877-a830-4d12-b289-f8ba7fba3617"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "32.048846207534346`"}], ",", 
   RowBox[{"-", "7.146196420915289`"}], ",", 
   RowBox[{"-", "3.0918450880399346`"}], ",", 
   RowBox[{"-", "1.740730524635711`"}], ",", 
   RowBox[{"-", "1.1324712100797059`"}], ",", 
   RowBox[{"-", "0.808604708418294`"}], ",", 
   RowBox[{"-", "0.6168084031801341`"}], ",", 
   RowBox[{"-", "0.49476402928593904`"}], ",", 
   RowBox[{"-", "0.41317198867434723`"}], ",", 
   RowBox[{"-", "0.35682136313155405`"}], ",", 
   RowBox[{"-", "0.31722045061959303`"}], ",", 
   RowBox[{"-", "0.2893747191059782`"}], ",", 
   RowBox[{"-", "0.2702493485197158`"}], ",", 
   RowBox[{"-", "0.2579866718632972`"}], ",", 
   RowBox[{"-", "0.2514902100926919`"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.835184836143208*^9, 3.835184892807562*^9}, {
   3.835184993602281*^9, 3.835185018753828*^9}, 3.8351852242548656`*^9, 
   3.835185623445119*^9, 3.8351871739953413`*^9, {3.835187589718444*^9, 
   3.8351875998845387`*^9}, 3.8351876629660273`*^9, 3.8351878038950567`*^9, 
   3.8351878613729973`*^9, 3.835187905644569*^9, 3.835187948959375*^9, {
   3.835188130565008*^9, 3.835188140879347*^9}, 3.835193872654749*^9, {
   3.835220962622758*^9, 3.835220979856984*^9}, 3.835222650061757*^9, 
   3.835223956079813*^9, 3.8352241245265713`*^9, 3.835224309007326*^9, 
   3.83522496952914*^9, 3.835225108160309*^9, {3.835225140097556*^9, 
   3.835225183087308*^9}, 3.8352253149489803`*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"25ac06e5-b41a-484a-b8b1-85334154fcd1"],

Cell[BoxData[
 GraphicsBox[{{{}, {}}, {}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], 
     PointBox[{{-32.048846207534346`, 0.}, {-7.146196420915289, 
      0.}, {-3.0918450880399346`, 0.}, {-1.740730524635711, 
      0.}, {-1.1324712100797059`, 0.}, {-0.808604708418294, 
      0.}, {-0.6168084031801341, 0.}, {-0.49476402928593904`, 
      0.}, {-0.41317198867434723`, 0.}, {-0.35682136313155405`, 
      0.}, {-0.31722045061959303`, 0.}, {-0.2893747191059782, 
      0.}, {-0.2702493485197158, 0.}, {-0.2579866718632972, 
      0.}, {-0.2514902100926919, 
      0.}}]}, {{}, {}}}, {}, {{}, {{{}, {}, {}, {}}, {}}}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& ), "CopiedValueFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& )},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "MessagesHead" -> ComplexListPlot},
  PlotRange->{{-7.324238697320262, 0}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835184593000876*^9, 3.835184601768243*^9}, {
   3.835184655916238*^9, 3.835184659533143*^9}, {3.8351847107699127`*^9, 
   3.835184721682351*^9}, {3.8351847618124723`*^9, 3.8351847732809134`*^9}, {
   3.835184836055081*^9, 3.8351848927984657`*^9}, {3.83518499356812*^9, 
   3.8351850187489634`*^9}, 3.835185224250073*^9, 3.8351856234070044`*^9, 
   3.83518717392955*^9, {3.8351875896280317`*^9, 3.835187600042857*^9}, 
   3.835187663125806*^9, 3.835187804057433*^9, 3.8351878615340843`*^9, 
   3.835187905807989*^9, 3.835187949119866*^9, {3.8351881307278767`*^9, 
   3.835188141038896*^9}, 3.835193872561871*^9, {3.835220962492255*^9, 
   3.835220979764625*^9}, 3.8352226500195627`*^9, 3.835223955967424*^9, 
   3.8352241244855967`*^9, 3.835224308898123*^9, 3.835224969488497*^9, 
   3.835225108118775*^9, {3.835225140056933*^9, 3.835225183048525*^9}, 
   3.835225315007021*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"5a946d52-51cf-45d8-bdb8-7dc4b33b7db6"]
}, Open  ]],

Cell["Branch point at u = -1/4", "Text",
 CellChangeTimes->{{3.8351902376104603`*^9, 
  3.83519028185114*^9}},ExpressionUUID->"48b5f56e-e8b1-4fa1-9f98-\
02db91939242"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"borelresum", "[", 
  RowBox[{"pade", ",", "0.2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"borelresum", "[", 
  RowBox[{"pade", ",", "0.4"}], "]"}]}], "Input",
 CellChangeTimes->{{3.835181578493599*^9, 3.835181593653215*^9}, {
   3.835182649674616*^9, 3.835182659689596*^9}, 3.835182712516083*^9, 
   3.83518289321667*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"011cf19b-5489-41d2-9410-c22a38d9c584"],

Cell[BoxData["0.9079847774309506`"], "Output",
 CellChangeTimes->{{3.8351815813487597`*^9, 3.835181594487598*^9}, {
   3.835181639741591*^9, 3.835181650141617*^9}, 3.8351826243429527`*^9, 
   3.835182660092187*^9, {3.835182744446789*^9, 3.835182771670339*^9}, 
   3.835182893655589*^9, 3.835185030092927*^9, 3.835187176795697*^9, 
   3.835222669836684*^9, 3.8352239619035997`*^9, 3.835224127589985*^9, 
   3.835224311442156*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"9b2b8ed5-d508-4f1a-b3ea-880545d2411d"],

Cell[BoxData["0.8576085853876735`"], "Output",
 CellChangeTimes->{{3.8351815813487597`*^9, 3.835181594487598*^9}, {
   3.835181639741591*^9, 3.835181650141617*^9}, 3.8351826243429527`*^9, 
   3.835182660092187*^9, {3.835182744446789*^9, 3.835182771670339*^9}, 
   3.835182893655589*^9, 3.835185030092927*^9, 3.835187176795697*^9, 
   3.835222669836684*^9, 3.8352239619035997`*^9, 3.835224127589985*^9, 
   3.8352243114641438`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"1292b6cb-8b98-4e32-bc84-f3f3bdbf7e67"]
}, Open  ]],

Cell[BoxData[{
 StyleBox[
  RowBox[{"nmax", " ", "=", " ", "10"}], 
  "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.9079854376030722`", "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.8576207822712806`", "DisplayFormula"]}], "Input",
 CellChangeTimes->{{3.835182707235306*^9, 3.835182714898573*^9}, {
  3.835222774381826*^9, 
  3.835222781837015*^9}},ExpressionUUID->"910d9b83-d0c9-4f81-87f6-\
61cc552db653"],

Cell[BoxData[{
 StyleBox[
  RowBox[{"nmax", " ", "=", " ", "20"}], 
  "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.9079847775740948`", "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.8576086008255066`", "DisplayFormula"]}], "Input",
 CellChangeTimes->{{3.8351826843307667`*^9, 3.83518268436969*^9}, {
  3.835182723324916*^9, 3.835182729827833*^9}, {3.835222797661919*^9, 
  3.835222802429541*^9}},ExpressionUUID->"d754cb43-89a1-4130-bf6a-\
34fac1a78f2c"],

Cell[BoxData[{
 StyleBox[
  RowBox[{"nmax", " ", "=", " ", "30"}], 
  "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.9079847774309506`", "DisplayFormula"], "\[IndentingNewLine]", 
 StyleBox["0.8576085853876735`", "DisplayFormula"]}], "Input",
 CellChangeTimes->{{3.835182750069375*^9, 3.835182791540655*^9}, {
  3.8352228331509743`*^9, 
  3.835222837382526*^9}},ExpressionUUID->"c1219ff0-c7de-4636-b213-\
9689105e1f64"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Accuracy", "Section",
 CellChangeTimes->{{3.835187070774288*^9, 
  3.8351870733973207`*^9}},ExpressionUUID->"7300fc66-5a0d-4365-8d2c-\
e4dd6b1aae6a"],

Cell[CellGroupData[{

Cell["quartic integral and approximations", "Subsection",
 CellChangeTimes->{{3.835254974512436*^9, 
  3.8352549918076477`*^9}},ExpressionUUID->"d73b327a-6f0f-4444-8d92-\
598ab4b3c860"],

Cell["\<\
For the quartic integral I(g), Eq. (1.3.11), we define a truncated series\
\>", "Text",
 CellChangeTimes->{{3.8352212164851923`*^9, 
  3.8352212923729067`*^9}},ExpressionUUID->"483c7967-c654-436e-8612-\
b838352dabfc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[Phi]", "n"], 
   RowBox[{"(", "g", ")"}]}], " ", "=", " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["a", "k"], 
    RowBox[{
     SuperscriptBox["g", "k"], "."}]}]}]}]], "DisplayFormula",
 InitializationCell->True,
 CellChangeTimes->{{3.8352211232489443`*^9, 3.835221130096488*^9}, {
  3.835221173548667*^9, 3.8352211862342663`*^9}, {3.8352212961251507`*^9, 
  3.8352213960797787`*^9}, {3.835221924358567*^9, 3.835221933342375*^9}, {
  3.835222205973625*^9, 3.8352222070295753`*^9}, {3.8352223256811047`*^9, 
  3.835222333625269*^9}},ExpressionUUID->"ab398939-d6c9-491a-adba-\
d3091d1ef8d0"],

Cell["Then, we can use the Borel-Pade resummation", "Text",
 CellChangeTimes->{{3.835221407887951*^9, 3.835221502427155*^9}, {
  3.8352215917737513`*^9, 3.835221607877494*^9}, {3.83522179304395*^9, 
  3.835221803394484*^9}, {3.83522220956572*^9, 
  3.835222224525874*^9}},ExpressionUUID->"4625c5c1-dcd0-40e8-b705-\
e9e9446aaf33"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox[
     RowBox[{"s", "(", "\[Phi]", ")"}], "n"], 
    RowBox[{"(", "g", ")"}]}], " ", "=", " ", 
   RowBox[{
    SuperscriptBox["g", 
     RowBox[{"-", "1"}]], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "u"}], "/", "g"}]], 
      SubscriptBox[
       SuperscriptBox["P", "\[Phi]"], "n"], 
      RowBox[{"(", "u", ")"}], " ", 
      RowBox[{"\[DifferentialD]", "u"}]}]}]}]}], ",", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    SubscriptBox[
     SuperscriptBox["P", "\[Phi]"], "n"], 
    RowBox[{"(", "u", ")"}]}], " ", "=", " ", 
   RowBox[{
    SubscriptBox[
     RowBox[{"[", 
      RowBox[{
       RowBox[{"[", 
        RowBox[{"n", "/", "2"}], "]"}], "/", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "]"}], 
     OverscriptBox["\[Phi]", "^"]], 
    RowBox[{"(", "u", ")"}]}]}], ","}]], "DisplayFormula",
 CellChangeTimes->{{3.835221794235321*^9, 3.835222055161541*^9}, {
  3.835222297304538*^9, 
  3.835222298440099*^9}},ExpressionUUID->"4884722f-86d5-462c-8417-\
252c2a6c803b"],

Cell[TextData[{
 "and the Pade approximant ",
 StyleBox["for ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FormatType->"TraditionalForm",
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "b6ad3529-00f5-4244-96ce-31b5d39357b7"]
}], "Text",
 CellChangeTimes->{{3.835221804715788*^9, 3.835221807442707*^9}, {
  3.8352221727489643`*^9, 
  3.835222173421315*^9}},ExpressionUUID->"6f690985-a400-48cb-abe5-\
eb51a2427271"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    SuperscriptBox["R", "\[Phi]"], "n"], 
   RowBox[{"(", "g", ")"}]}], " ", "=", " ", 
  RowBox[{
   SubscriptBox[
    RowBox[{"[", 
     RowBox[{
      RowBox[{"[", 
       RowBox[{"n", "/", "2"}], "]"}], "/", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "]"}], 
    StyleBox["\[Phi]",
     FontColor->RGBColor[1, 0, 0]]], 
   RowBox[{
    RowBox[{"(", "g", ")"}], "."}]}]}]], "DisplayFormula",
 CellChangeTimes->{{3.835221533019755*^9, 3.83522157007648*^9}, {
  3.835221610997377*^9, 3.835221639198204*^9}, {3.835221735472897*^9, 
  3.8352217670257473`*^9}, {3.835222052633976*^9, 
  3.835222072826386*^9}},ExpressionUUID->"008aec34-4f6e-4f8e-9976-\
56379d6dfb21"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pade1", "=", 
   RowBox[{"borelpade", "[", 
    RowBox[{"quarticIseries", ",", "u", ",", "nmax"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pade2", "=", 
   RowBox[{"PadeApproximant", "[", 
    RowBox[{
     RowBox[{"quarticIseries", "[", 
      RowBox[{"g", ",", "nmax"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"g", ",", "0", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Floor", "[", 
          RowBox[{"nmax", "/", "2"}], "]"}], ",", 
         RowBox[{"Floor", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"nmax", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"quarticIseries", "[", 
       RowBox[{"g", ",", "nmax"}], "]"}], "]"}], ",", 
     RowBox[{"borelresum", "[", 
      RowBox[{"pade1", ",", "g"}], "]"}], ",", "pade2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"g", ",", "0", ",", "1"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", 
      RowBox[{"{", 
       RowBox[{"0.75", ",", "1"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<I(g)\>\"", ",", " ", "\"\<Truncated\>\"", ",", " ", 
      "\"\<BorelPade\>\"", ",", " ", "\"\<Pade\>\""}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"quarticIseries", "[", 
       RowBox[{"g", ",", "nmax"}], "]"}], "]"}], ",", 
     RowBox[{"borelresum", "[", 
      RowBox[{"pade1", ",", "g"}], "]"}], ",", "pade2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"g", ",", "0", ",", "20"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "1"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<I(g)\>\"", ",", " ", "\"\<Truncated\>\"", ",", " ", 
      "\"\<BorelPade\>\"", ",", " ", "\"\<Pade\>\""}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.835185809333576*^9, 3.835185915006394*^9}, 
   3.835185967010848*^9, {3.83518603401933*^9, 3.8351862577036657`*^9}, {
   3.835186303313808*^9, 3.83518639132323*^9}, {3.8351864214213667`*^9, 
   3.83518648662215*^9}, {3.835186612987105*^9, 3.8351866500106087`*^9}, {
   3.835186692356991*^9, 3.8351866967719803`*^9}, {3.835186769495266*^9, 
   3.835186823814855*^9}, {3.8351875226674023`*^9, 3.835187535370151*^9}, {
   3.835192624953985*^9, 3.8351926406338053`*^9}, {3.835192673355356*^9, 
   3.835192776941422*^9}, {3.835192852873295*^9, 3.835192889720615*^9}, {
   3.835192922537899*^9, 3.8351929934283667`*^9}, {3.8352243346253853`*^9, 
   3.8352243347593937`*^9}, {3.835224379866989*^9, 3.835224393512966*^9}, {
   3.8352244273797407`*^9, 3.835224458355101*^9}, {3.8352536269555893`*^9, 
   3.835253627058174*^9}, {3.835253686557362*^9, 3.835253686724187*^9}, {
   3.835260105965248*^9, 3.83526010621805*^9}, {3.835260142660679*^9, 
   3.8352601713957043`*^9}, {3.835265996615356*^9, 3.835265997697528*^9}, {
   3.835272935155117*^9, 3.8352729352895412`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"62617217-86f4-48e4-a61c-2ea8a6c858f9"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwd1Hs81Xccx3GHWmLJ0WjH6MzlmEupNTWr7F2pWNJCC7mOprFNl6lkKx05
ZElWpyiK0M1ZnVPO0QW5nVQeSaGhdHCYfr9z8c3moAv2276Px/fxeTz/+l7+
eNlEbfP/Tl9PTy+K2f/N1Y0W+rWOrtD7f1GY4mm5vZvjBn/zUPc5EwSfFeTm
l3FWIYLXWevxjqDfyp6/x2E9zMQPfg9/Q+DT1H79DGcjVkytPX9gjMA+0/r8
JDcYB+JD3haPELxbG53zrUM4kolH9v1hgsAto1XHOFsw3ngq3nyIQO5peaM+
Pwb1nPQyD0KwwM5DMsyNRfD0EtetWgJDZUrRJod4WIhFd6poghfz0z2PcBLA
HvMx2qskEBZ8WMML2YVdlzrkpT0Ea2eWLruTvxu8180lLxQE5YMPFxHuXtSf
mNO05jlB1hUzRz+H/Xizel+GQxtBofnXab9xUrE0V2Zh2UDwS1OOfNPtVCQk
2niHyQk2CXr07UIEkBRxU87VEbyv25FckZ+G+iffTJ9XTZDYJkzUcDNwULnS
fcNNAr/jz+LWO2TB+EZQ/d1SAr5h2ScZHCHCzU/fjM4mcPb6/dD17UJ4L3vs
V5RF0CLYRj+/JwQJbNf2ZjL/ZzBX5Lr7BFr94x23ZBA0jJe4trWcREzI/OSE
FOb8f04u4maegmVtYlJ9AkHuiyRP2cRZrOkmx9ibCYKCz4lfDZUgyVTS6foJ
gfEkP9RrjhiTP524W908CJ7fIFV/WIpvqYa3Cv4g9jz6ArnDt+A6S9KR6DaI
2VK2gsWqBi82Pat6SItypefD5mV1uCzZUbv/qhZ1cWc+CtbIcT/SxvvZdi10
Dh4zr/x0D20bQl/WLNFC/7XI9CNeI3ojgw4HG2ixeDKyPODqQyRmJxkFt2jw
MNXtUYNzM6qn+lrllmjAzVa/vjz4GOJpktiVuzRQj3Yrni5owatVfayZPhqU
qCoaTbJa0WlrQntyNTCxvkj6+9tw0a7gn1kjamTGymIK7f+EruGzTN4TNUaW
i/q/T25H2LpThcJSNRIWyqUW9R1o6HKN7E1Xo/uq/PATm2eQG7HW50Sr8Tau
Lc8p6TnuW6fFLFyhhsuKaRMxFV1Y9mHYHTtbNbyKbLZem61A5Fem+1NZauyx
jrDtDe3GmGh27Ls+FeZqvjFu9+2BqG/RjGf3VJg185Wh/E0P7H2GMj8tVWFK
dZ7YLr8XEbftfb2PqvCDW0XndB8lgmPfO/1ypwqir6IK74woESq2ZjUFqqBT
W5oOnOzD2XEnthNUkAV4GQhX9cMx3sjFkqdCsregQDrQj2vG0tvhM1SwebG2
o1jwF8YSrNKKRmgs+TxVyFk4APMI3Wi6gkbonObXrNYBWAWskWfep6FrPKLc
zn8JtjJm6vJrNHKnhCf421P4pVEweyyPxiyFrEhfTuFrM37EoXQaU/fxN36x
g0Zc9MB7rczUuxwuVpqpsG1YtvRNGI2dp8VHzOpUqCo76PLSm0aVyyFDdrwa
hrsHnIvcaLDX7pybYqKBLGW1u4Utja55j1v3VmrgvIB2CDGhITkL+/5wLfbR
vB+83lEIEy9mW09oEUAeOCpUFA4IzvG7SgehKXZz29BB4QplnWeyjsApVP+x
7z0Kh84IIhXrCVINyg/qM97ir+Vd9SO47mLmcaOBglVlpcQ3kKD2Uk3Nx4x/
OxrSkBlFIDXsNh5m3vn94lNDRnuZLh3fKsmro2Cb+oH3tAsE7A/65pIqChPu
v85ov0Sge/q+sIRxp7av5YKIYN1dud5mxtmBZWFrrhFMaJ+r5JUUJp39fxZU
Eqiqsll5FRS6nhw9a9BKEFIQ4e59i8LNtNHo1qcE7j7GY+M3KQiXRjgVdxDM
X+5eVcbY57yrdCXTLX6LWRCX8e3Epgd8pntBX0qbR8opnJy36Kifhrlve0DF
H4x3KPM32jDdXBIU/0cUY8d1P3bXMJ2N7DcteCRjes5qK8keJYgNzilMZdwj
WxoXyXRbnXHi4hLGlXHF8xeME6wUGUlfSSnkcI11k5MEir91dy8w/hcHziQN

          "]]}, Annotation[#, "Charting`Private`Tag$18718#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwd1Hs41FkYB/ApMaJNKexIaBKJXHKtVV8Zl1xrN2LcVoyKCrWxldiailQk
FFLGbcyYi0R0sdZlH11QSmFJZhNK6TkUK+myv93zPOc5z+e/877v+Z5lodE/
hc+m0Wje1P7vdAt//bhhxGdDne+9qW/fCOawNGNkDEv4qAXaan8lsODlXK5i
OCJoRU/j+s8E7g+6K68wvGEv38g/+pHAlzNVl8HgYLolN0ptnOC5aTIrlXEA
EzPuSocGCArUNiedZpxABuORuuYdgmOKVQYpjCxwFRHESSdY5XL+VGVMFqJV
wtWL0wg6TkaPPLubhS1+vd0DZwn05IzFJnEX0GVnuS88heDOlxKTpx0X8epd
04c4LsG8DxetdM7mQtTRzW09QJDz/DCr+ms+rpskRHn5E2zUYpf0+/CQVjDD
rPQjeONvI68o5WGULz6i4UugPXooTLq6ALu+LY98tZUgOsJ6Ba2vAD5+9tn5
ngSqnKtCvm0RWka2p5zYSLDjuDZ7HacISl0DySr2BLVFqXPbzxVhjatTQP4G
As6L3ZEfh4swwqHF3/uBoDp4pbH7hWIU9Bsd2mZNoJSY3SdrKIYcR1VGtyII
vqKQemC0GF9ylc7VWxAo9A2+u8IqQcLrJbEscwI/duHVsfESHJzCcZExAXnm
rVSkycenUOeXEiOCpGDF8K0sPqQ0OeebqwiqwqI1a7L4mPVExWF0JYHbMDN2
Zx0fHT47FdQp/72rq/37YT4uypz03A0I5ketPxlvUwpTVSNm7woC/tiYzDik
FIvpbQesKNv9UrKu/1QpbtCV6Tw9gieTvhfOXSuF8yJliQblyIPKY/a9pZgZ
1XEoWE4wa+YPt/ezBdDV2Fy1lnJOwn5+sZEAo7zOyUEmgQlNn+bjLcD0YOW8
YsrN3B5/hQQB/txvqxhLOVA+tfoGX4D7+jyFQMrvk+0XRDwUwLq20JJNOUVp
IlJzSoB9g1oP91LWTRU0t+oI4WFYrZ1H+YZKgG7CJiHqeVzuAGWvjPnxJvuE
aL/ZtMOJus/Q4qZOWa4QDi7pbs2Uj2THmp1vEqLqXWF9GFXPIk3DMw5vhQhZ
prKbSdUvutw39GFRGYzGlijI6RPY66Tb8+3KoHJL+Wc61b/uQlbetvAypNBn
2OZUf6P0pibpaWV409QwzjWk8iQQbblVUwbPwS7br9R88gyDxZGyMigNu/nz
qXmukSxU0FIUwWNZzaXDJgT3TZpDHpiJIL95A/uoGUHItYO1iWwRLoXmL7i1
huAfC2N1M64IzZM2fgbU+0mtkcW8EInATlw99MCGysvazNaMJyLYJZ88c3Ud
we1aZ33HzyKUGviifT3B6wbps1JPMQIFYS6djgS/sbZb+8WJ8bzOyrRpE4H6
ncXn5/LEkHP19PrkQSDZdO/t7btiZFvKeRz7kYDVGu+8Z0yMRlbelP82gl5P
08KlDAkY9JuuZwIIYh4NzDzcKIH5gt5w9e0E+Z2u18wzJbju0RHhtZfAyu+L
8staCbycliTMofLa1luxI2tQAtWUgusG8QShQZxGp++kWL3FlVlH5XtapqE1
ZSVFTcbjeS2nCdJDW+OEwVLYNvPGt2YS6A8lPmYnS9GjK0wKuUzg/WYo6fe/
pGhTqaxnVBC83ZP7Yu+scuwPYH7uuE3AJR52OqvK8aji6dKV1H9UMVE1fiy+
HC2q0wub+glcft3pYVFSDi3/3ky1UYL+aU3BYFs5etK4wcxPBEGOERM5feWg
/b/G8C9NkYlI
          "]]}, Annotation[#, "Charting`Private`Tag$18718#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwd1Hs01Pkfx3GX/NblF1Fqxxpz5BJdUIttK+e1NUU/2n5LpQsNP2Tb6dcs
rVzaSqxxKWFFKN2Ydu04mchtQ5PMj7LkWi5hNE32O9dPdkk3/L67n3M+53Me
/3w+5/P+42kb9m3AIT0dHZ0wev91bmlfqtfs5AKdvxeFBWyrKCnDHYGWwett
5gg+vVZYfIexFRyHoWavDwRya/ukOMedWCJ69CPnHYFf50DVFcZufGHQfPPM
GwL7TObNedZ+pPKC3pe+JvjgG17wH0cOEolXzsMpgr0RM025jAjMtBfxLCcJ
JGyrupbiSDQz0u54EQI3O6/bU6xvEGIkcPlaQ2AoSy4JdOTBWFR+r0lBMOqa
xj7PiIHzGz/jBBlB3rWP7zsEHcf5skGJcJzA10y46V5xLNzfdglGxwhqtR0e
hJWA7nybTu9nBFm3LJz8HU/D2PtUhmM/wXXLf6eeZaQgqLBmqVUrwfedBZLA
uym4EG+7/aCEIJA/rmcXxEd3CSv5xgOCf05HJzYUp+JFzx6jNWKC+P68eDUr
A09kW9Z/VU/gf2GYu9MxC611+1r+JyRIMryzIoORhyXWl+rDcwhW+vyYXhWV
hyl2t39JFkEv/1vFs7Y83A4d0DzPpOenv7rcJTYfThyeU0QGQeuswKW/9yKo
o66JMcn0+39e9GBlFkGujT/REkNQOHqCXTN3FftEr3LNDxDs239D9GpSgGM1
dUMuKwhM5pOCfWxEsOQatYq7tHDw11It56pRL4icG0vSIu7x5yic+hURRdYv
4t21WFZtPqarK8bm05eE4kkNamXsjq5ND5B9ZFY/sUKDB9wrn+xXS3Cu7mXn
cJQG045eZreOtmEiwKi7eYMGem/LF33i0I6e+kMWQfoaeM6H1u6q6IDkZUxo
UK8aHSnuj1tXdmH2VFriZYEarBzV21+03WALmNt8jquhmpGOPXHrhefa4wWW
fmoIlA3tpll9CGyz6NjBUsOU+TORy/vhz2y7wHqtQuY3NZHX7Z9ig0ufm3uP
Cq+/KJcfThxA6sl+y5+FKsSsk1QvbRnEY8+9ZCZNBWmF5FyP7TCO95lrq8JV
eM/tv+x84hlWpD0u27VZhVWbP5qLbBiBwcABqe9yFXxKbL+uXDYGa+uPK6p0
VYhjhix/HixFLfvMyFq5EqvVe0wGvhxHxtCebcseKrHY7JWh5N04Fj+veBUn
VGKB+LLIrvg5DkSqpguylTji3jBk5CfDqZxFjC3fKVH+r7Dr917LUHaw5c91
+5SYVlktmrj4AmVZUbxLUKJml49+3lY5vuqL/7XQQYnE7fxr1RNy2Nb+wFEu
VMJ21HewlP8S7ys2122cUWDDZyl5jHUTKBW6idykCgTbdL3V7ZvAFPNN49ZH
Cky3n5dFJf0Ok6d6YUZVChQu4MQE2FOY2GWW0FuswOKxmhI9CYXc9Py1MekK
GJxK2v15tALeqZVFvccU0PmFI5JZKHG0quMfC0MUOHZJdN7igRKDXk43zXwV
aFqVbmjOU4H7obR93EMBc99jq5NN1YgO79/GtVNgZE13X0KjGu+Mgr3bzBS4
fRX2co4GwRuX/NY+S+GgyNOcOaeB+H6maYKawhn+jaQRoRbOOVqewTCFWxTz
sukOAru15RzrRxTSr/BDx3bSHTG24fc8pBARoHGo8CfYJPWpTKVt3dh4+8u9
BHG2TVaTbRTOZge1ZoYRlFQtXdfaSuGwZ9GkcQLBYelv0dH0v5enLNn+0U8E
+fdjXTvEFObWn1w4UEagt8rFJJn2kOZF70/lBNWuyerPaOfsvXPQu5LA+OEH
cek9CvMrA77jNxI8Pe0g/L6JwkhP9lX9PgIfbfbZ1Q0U6lNnwvueEJSNisSy
uxTyNoY4lw4SeJwMeVdI2++mS/UWulvsXO4ZA9p34zsfJdHdG25gdI3VU7i4
xiPbX03AbLrulk87Wla825buptqwssCPttOO/0rv05391J8bW19H91y3X5Az
Q1BUa67l0R6v2cgNpbvNW48jDrQbuaWubrMEuSZ/aJ7VUihgmUzPz9P3H3KO
zaX9f1dnKgU=
          "]]}, Annotation[#, "Charting`Private`Tag$18718#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV1H0w1HkcB3ArhrhIHppVNCoXKroOJfTuKJyHaygjeciJrhNKZ0ZuUm2H
lLTqXHQoT7kkNqFxeYw9yijJ417ysDb299tdXzvR4mLv1x+f+czrj/fM5/PP
2yz8tF+kqoqKig8zX7ZnpLinhfLf2xzwQqFUEqi5Gp8ZZdvC3zB4t+kywbf3
cvKq2fsRYi547vyZwOvV4JN89mHsU39+/9I8QUCEovEWOwILnXdiDeUE722u
uGaw42Ew76WVKCQoMDyYeo2dDI38WiPjdgKOZvWWq+ws0NFFdcczCY4EFvJm
5CXYv/6c0HoLgbaSE+xuysNY6ZJjS/c0zH2nxW3pNXgRbXp8nDONhNcOyJn9
G+3qT2I4ttNYW6M3wmI1I2Vv9KM+uQxPha5d3U6t2L0x68qjShlao/LXBUr5
8HCjd9rEyTD3tbNuRUwH0vhOfE9HGVQXylevM+/EgENz7TdqMtgrw54equxC
VfIBp8xeKbqSbV+3W3VjbIq8cCmVYkOmZKFs+g1UE6clyQlSSBSjI/073qI4
ydh6wUeKErq+U+dGL96EnmexNkmhY/IXEYn6kHe1xKJpUYLrP9eeKNg8gPC2
G9KOAQk+7SsXnbw4CM7c6bIfqySI38mvMWobgt1MesUYV4LRSn56j9m/uHz7
mYFKjAT/RfXlWv76Duq+HcnrvCXY+p3G8on6YQycCt2aYS2Be5HZT1VrR7CX
M/G5TFeCBJNjG8eDRyFX0+AKPtLYJvXXHvQZg5X9PlaSgIa+7owmf3EMq9Nz
UgWNNNSac3mb8sahvGtlQ5XQOGVbL1jpJcTRBy/d2q7RKP8+vKDpkxCNW9gq
M3E05iTGqydvT6C+Z6r/YhCN2kPuK7L2i+C255Vc7ErjokfKvZpJEbgOdjo3
rGmYvfccKk75AKNskfEuYxp7diVnsXdOor+IJ+pQoxFs2r3A6p1Ege+8/1E5
hbnODOEZzhSCjcfEwmEKOWqh8X6bxajmy10PdlLQH6ktUuWLsSgVP/q9joJ6
EuewQxyFe5Xake/uU1ApC+UJ19DQ6/GLE2RROPsnL2NNK40Y/oTn1GUKjVvT
NPViJTilZR34nMnpeZ7ddllHitjT27ItwykMb3/Tm9ggRcZnZWGFL4XHd7FZ
FCrDB277P+UuFEJ49nomyzJcuJXU4WNL4VJKIWf44TScZy0eGplTqBCb5Op4
E7TMzrvvWUshLT8lbOQHgtwarF8yohDhJzOv9CUIjWr/1Mx4fUPDY58Aggtd
3KYDjK9xg9qvhxMoNBU5voYUTtrfkWslElSxnM9F6VPYmGzgoVFKcGd8RFCg
S2F59/lVgw8Ivop1iY9gLJBNvC0tJ7BdajewYJwZUB3iVkXAPmRzkqdDQWnl
90tKA0GhbfiRplXMvz3cuyt6CSzszoe816ZQl6o43ttPMDSVFFjIOMvxmGXx
EEH62ZtBkYy97lvXuIwQBHrTcTItCs/OvXrJoQh+a/OYWlpJ4fZ2O66vlIA/
2aTfyjhOmHfYjDA9Ewa3VMYW3tGjLbMEztlBjTqM1Vh9JZkK5r6EOVavJoWx
WseosEWCupk/vLMZN0QV2+xYIkgzdMoPYpy9QXvuS29ZKiY/bmD8P8RofdQ=

          "]]}, Annotation[#, "Charting`Private`Tag$18718#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.75}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.75}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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., 0.9999999795918367}, {0.75, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""}, 
      "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835186071106679*^9, 3.835186153979765*^9}, 
   3.835186238104073*^9, 3.8351862916726522`*^9, {3.835186323050202*^9, 
   3.835186408836932*^9}, {3.8351864802939167`*^9, 3.835186491243235*^9}, 
   3.8351866599013643`*^9, 3.835186707042355*^9, {3.8351867740532913`*^9, 
   3.8351868300942307`*^9}, 3.8351872699161263`*^9, 3.835187554638893*^9, {
   3.835192631895937*^9, 3.835192647000339*^9}, {3.835192681073732*^9, 
   3.835192783202744*^9}, {3.835192861809782*^9, 3.835192901605383*^9}, 
   3.835192934498454*^9, {3.8351929663794622`*^9, 3.8351930084807377`*^9}, 
   3.835223968472056*^9, {3.835224329411701*^9, 3.8352243364534388`*^9}, {
   3.835224382551262*^9, 3.8352243981504183`*^9}, {3.8352244383205748`*^9, 
   3.835224460403195*^9}, 3.8352288667485743`*^9, 3.8352536293109083`*^9, 
   3.835253687923766*^9, 3.835260107870026*^9, {3.8352601442900476`*^9, 
   3.835260172981164*^9}, 3.835266004163269*^9, 3.835272936930583*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"f61e2f4d-e6b0-419d-a4c3-f05cb7b08cde"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwdznk01XkDBnBcTUiyTFLJNiFLwq8mRM8XNYpGC6qjiSHcRjTpJE0LqhFa
hCQtsqVChUaL3jKWRlku2SJ+uFx3v1xr2aZe7/uc85znfP579P1/3xUoJyMj
c3mu/1uVzVOjVa4+oP6fFrxt0du2R+8PLFKqtfmpS4pv1WXn9fTioXKoIn/7
SylUkp8XKXUkgxm1xIyXKkV6+RXdeXo38dLWm9dzXApzaUDCN2YGvPY/fKO5
V4pulbtfZ9uzYS/7afcROylCHMJDv+jmwU3W5OkqOSn+amXfG3d+BHZvxClf
/hCmD22jR5iFiBsoZwexhrCJlWT4uf0pYtgH7hXeHkLLzMGUYd1SxGXYzZdi
CMff6VhKi19Bv/OD6QHTISy71lo36Pwa2z/8+m734iH4mxKGmPk3PjP0SI5k
ECceLSgdba+EydHZRrvMQczv6jce1K1B9oUe5Zolg+gofxMuEdTg7U4123kK
g8i/n1YlLq7FxoLrODcpgftRd1+Rcz0i9PLtfuyUIFXxVSqf2Qjp5uCz2zMl
UL/zXm6kvRnlk9mB9DoJZlSe5x2xb0FoRcW0h4kEA2dzdgxntmCSpV80pi3B
c2bkXelvrbgqLAl6IC+BN7XWbmimDQFbHO/80yZGVm1GmFj3EwzuHos1jBRj
PO2Zae/lT7AVU7HtR8X4iVnHaZ76BJvf5dvymGJIGF+8XrV0ghWue/zRTjFs
HNzt4mNpRHZ38jSNxfhQOCtnLO1FrmUEa/qjCOpQ9FlowUZ+c61fEEuEDUYp
drEBbBQgUU1YJULCeN7YySY2nrVuV7AuFmFtUlugf0EffC8+6au+LEJUrbmr
lS8HZYv2v8hzEeFh8QujguscxOzyk+6FCM1pTgzDeg7a9a8nLF0vwkrm3tda
tgP4fgeDwzISoZbxp4WMBhfnuweYM9+JoOnQpd5YzUMumpZTtUI8KYzvCrEQ
QXBR7ma2txAiddFlVz8RhBs2FZzxFML4uOvGVSki9HuHbfV3FyLTfkEWZ0qE
9ebJz1ychEiuuRzk/Y8YHaKXDtGmQhznXB1x+WUQydqJBkmzAmQsqDuvtnkY
sttCLibeF2Cjw6lfon2GccFg9fbQLAHow2brpBHDmL51tn7HHQG0mi/x6vOH
MV8165FZsgBJadu2xqmOIKtn1HpNpADnDRtUvnWNoMhgUabvHgGYaLopOTqG
4GJ7J4aKADLZn191XRrD7tAHe4sUBUiT16Zr743hq1flBv95AryvCdLJ+ziG
txqcja2zfKzynM0OtBtHxO1R3WExH4KDxo96ZCcwULle8rWWj+DkM2UfEj9j
bLEnc8NlPg5zTTglT6aQoOz5XfJSPtg+nxQqaqZwAd5vBIv58OiIs2ANTCHs
V8VxJ3U+bOr4f3CXTWPW8V217AI+GMW5qpqx01CMd9/1cJaHtNP6GyN8ZyC3
Y/fra2weKjSW3rRV/RfpvnlNr/N5UNL/07jXRoacFmvru7rw8N4+aU3kZhkC
ElcYv4mHC3vvrl+xS4b4jFs71jnyIJf40mXfIRmyzln1gKc9D9NfJcz2dBli
5fHUI9KKBzHt9bBRTpZEPdBPstDmoT7N2KS8XpY4nYxtGRrlIkG1zjTrVwbh
OtxwP5LLhX+X59+M+u+IS7VQMUWVi7B//vT/3ViJRLdpWh9LHkDxEWUPra0L
SUx5anqW6QCyTh0SWe5RJW5RCtqq1Rycy5jdOS5RI4wjGsKgMA5kWtjk9UkN
UsjsaL5lyIHRsaATnqaLSf6lkDMWnf0YmLixe8EbTRKs2muw9WY/XLnBZ5LD
tIjgHtNmyd5+uA8kmunoLCMRV08vydTuh6jKP/r94+VESyngfqmgDxZqH1c4
+64gwSs+lvf81QclTPjRYzqkKEKhNzimDy6D3l8MvPTII6P2igGvPnRUBsh6
m+uTscDB6jqTPjyLe+ujN6FPmhwVbV7J9SFoXji7ocGAaL14LBPSycaBo6ee
Kd/6gVysepp55Tkba5hmDdv8VhIvrRvj/BQ2GtXNF4TbGpLqu9pfv4Sx8Z8n
526bM4yIUar2wtJdbJySNd1R321EEkOjZ2yt2VCiT245XGJMzA5ujrytwQb3
vn5KxulVJEapMc1uuBcpq5bKl3qZkCVctbi3z3uReCvonZ+eKWk94BatcL4X
3in7G5T5pmR40+DLf3f2YnJT7lRGmRm537DGLV6nFxyu04nKWHOiFBt+cPFw
D7IdrJaz/FaTEIeE+F1/9+BxTLgac7UFcaVMLqy91oNYrwNujAkLcsl5T/Pa
33qwjs7Ki2WtIY0zJGHavgdpJrcfs9wsCdXwQKf/+x5ElV9Jcyu1JJu4BbkP
RN34eblXbu1KKxIzJp/oU9kNx8Pv9qnFW5Hgfql+TXo3MrT9V9ZPWJH5qjfa
jCK6sbLqQar7PmtiHnTpJznPbiSurjRtLrMm3r98yfa37kbQmHxTjSlFijTx
plalG/7Fo3rxVynS7D854TtEI+Scx6xrEkVGl0zzPwzSCPcoaVe+RpEPyBE4
zjluIjwhMZUiG/rZi1dKaDyxnZq5kU6Rv8Jf6wqFNKYqvn28X0CR8dCrQ+Fc
GonNylfevqPIvajMwFs0jVs5oQcv1FDERmGL8cI55xxrcN5SR5F0Z/IlqovG
c83E6boGiiw116oM7KRBe2scbGmjiNz+5QzrDhrGnKXO/RyK/BCgY8lqoWFZ
clLnHpcipcrX2sic7WK6pgL5FDmuZxFf0kxjm3F6kVBEkROqrGV3mmgcPaSn
MzJCkcPiAP6hRhqn7c9OPR2jyNqKqn97G2jELOxvPTZBkWSDtQaec04rzLk0
OTn3zxDX7Vk0sqPlma+mKdJ5o5VTVE+jYGeg0+lZipT9GEYM51xiUL1i41eK
/ByiXnCzjkbZmNHUt28Usct59oPKnP8L7fVVtw==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[{{4.0816326530612243`*^-7, 0.9999996938780977}, {
          0.006134358411192534, 0.9955168828179639}, {0.012268308659119763`, 
          0.9912489277865278}, {0.01840225890704699, 0.9871704548089307}, {
          0.02453620915497422, 0.9832637990544478}, {0.03067015940290145, 
          0.9795363372224464}, {0.03680410965082868, 0.9761066443108479}, {
          0.042938059898755904`, 0.9734969023967084}, {0.04907201014668314, 
          0.9734249519911682}, {0.055205960394610364`, 0.9806384460172736}, {
          0.05976319212352822, 1.}}]}, 
        Annotation[#, "Charting`Private`Tag$22294#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwdxwk81HkDx/EJpZUUNrSJ0cpoSLV/duXo+3tCbRJLtC0tEaayKUrolGpp
u5BHupyptZK00u3KVsaYDrVo7BjmNIchRw0eHs/zfb0+r+/rbRWxOyBKi0aj
nZnqf6/lpfn4zDsU1P/XisZWus+P9GQs1GM7r+GpMfm85jidfgpbY+r/8Hug
hkFW9R299izsOG5qJ8lR41rdWcvp9EvghAdL+PvVsFdHnptk5eO8R+lTk81q
/GOQNzHeVoSzpzs37XFR4xf3hF2fLEuhOet511ZLjT/fCa4PedyCrsu9g2HS
PozG+HQOsCoQYOTWHd3SB8+WzMUjbXdhuryvpOJKH1rHtmf3Wz6EOlEwR40+
7H9hsVxd+QjiYP3vtjH78NWFd80qjycIGUP7pnl9iGASbQWrFu5erqHFShWS
bs16+LGtAcIHDRauBSro8noYKssmNK2O9WebqtBe9zRBKWvCX3G0OzNmqvDH
jdxniko2bJrX9R3/rIRvvG+Y3IODE1+H7HT+oETOF49ypKxXcIx11dpYoITR
1ZdaA21v8cNTzxkiJyXGDKpL97i1QjVps27LEiVEx4p/6C9oBefxsepxcyWq
WUfy1DvewbGhcbxSR4lgytGlb+w9NszsbWt9r0AhOz9OYdmBGP3Yn92PKDCU
e4/ZdaYD3+6rVfTHK7CG1Sx8q+lA9fbM9kaWAkrtT0GPWj9gLG+ol+2vgLO7
r8uptE54VVfruTMUeF0xrsVQd0HYW/2EapPDCF+EznYQwN9El1bUIoerTbZL
WqQAC+YGxjMa5Tg3VDp44I0A9/2CluyvlMMx831URFk3Qpgf9pqeleMo2957
RZgQvkEBuqbfy/F75X2bsn8L8Tkx1YkNOd7mrtZezBHCebq14Nx3clizNj8x
WynCu5Tk0+sZcrC1TzjQjMVY1mRQ95uuHCbuPKNXzyXwFD0S97J7cbviFO8X
Bzlm111++iCkF3Ij+RnvcDkqNscbXA7qBWO/9yrbbDmWXd8yccKvFwVuswqF
Gjnq6sLWJnr0IqvpTHTwXwqQe4mxbLte7BeeH1i7RYVmiZ/VlxMy5M9qPm7o
1Y+QJ5XUhd9lWOV+cEtKaD8yAoxXxBXL0Blr56RO7EeDhn4/Mk8Gs7enJZw/
+uG2+ycr/2wZMnN91qXPHUCJc212UooMxxdzDSZ5AzBWFTkN/SQDC28uKeMH
0VjA9nc1lIFWNPKId3oQm3LsRz/qy5CrY97Jvj4I0yi/oxUzZXjZFG1R+vcg
Ss1SRr6lyWAbOF4U5TKEHb7+R46opZBtZ9ziTxtGpFVWmpQrxc6swzWvM0bw
42zTbmGGFLHiJcKq2xpQA9Y0saUUgtCOmfVNGgQ9OL9wvbkUG9vTHVpEGjDr
OU1VZlI4N0uTxV+Ngp4trMoylEK7smSuSdooDvuFWCdpS5F7yGpVYtgYwvnl
80RSCeqN519aOfc/MPnzDcfsTwn0rE4wupxpJOZbyWGRvwQv3TKXHfGiEZ3d
h9Kc/CT4dXPedwsDaEQuj8xL95FAK+PB2pAYGklI48gc10owOqFktV2jkavl
lwtL3CRQdAb9/kprGtF3bFgtZkjAyWUsqeNMIx+ezAhsnhTj3NxmZuFWbZI8
gcS7VWJE8AJrtTkzSEqQ591di8WI++tExG6GHknyjLnoVC5C5R79jWbrZhMj
XgHXbr0IhQdj5Mt/nEvC76beNFMJkZo/7j+kNCS8/XaCkjwhaK0C8uSAMWlj
jLnp/SSEzb7opEDmPPLsvqeE9aUQouGLm2Y9NSEdJScEPR098BbvPJwVZ0aU
KyUF+fk98BVl2FlYfEVS4monRnb2QP4sIuVl+QKyw9zLM9q9Bw6Gfy/0CFtI
pHWuqdvm9EAPw+GdgxakNdk41FvajbWq4E+LgugkuZ7EX6npRntD5LRgeyuy
yNTyqP2lbtxLbwylD1uRm59dD3kldSN6eoKAy11EVh23zrq4qRvb4g/e07/8
NSnub9D94NyNZSw7rk+4NZmvl9TDWNiNV0b2sxJWLibMADLvKq0bj2+nXrHX
tiEy3lVzT6kAB6cxf+D8Y0P2emxZNL9FAL3OA9/HVjFISDo9IL9KAPENq+z8
Q7akrDBMl5MnQLbtfJ2HQUvIHP7YzMXpAmRcjn4RTmcSekflOuFeAYKzf+bq
S5kkxzjyAXerAJ89SzT5NXZk7/0aLYWPAELx6qSGNHuye2Yhx9hVgCL3FQta
wpeSc3fKTJNsBSg/mWDIWupA1sS1ej41FSAtaNt67WEHwqP2bJbpCuDUWVia
1rKMjPBNA2/1dSF3yZXylvXLCSuxuJP7ugtH687mrn+4nJizGIW/VXZhw4Kg
Erb1CuK7qlohutCFf8W+CDE8tYKs2dBkRE/uQr55hDVneAV5l6fy0Pm5C9bP
bub4hnxDooyaSy56dCFjaQPzbc03ZCTzywtRdl2IHtR508SkSHxFn4vSsAsR
lR/pp85TpDrktqh9lI9fUjeOe2dSRCewK3DvlBM2VrXpX6BIxxbum9lTTh9O
OJeRQ5EvHDoHVmv4uL1SM3bxGkUCPuxil3/iQ1M/+feNMoo859rwTg7xkfFW
/2zjC4pkunVuRx8fl4t3bf+1iSJxutwYnoqP4n1cj++bKTLvsd3BxClXm2SM
NnMpcuwlvbZCyUdnsPH21vcUcTQp49EVfDCE8z16hBTJuzEnarqMj+VVByyu
iylSa3ZhaZGUD5eTPE2UlCIrE4K1MGUfxrU7vXKKbJhR9jpJwkd8DN1iYIAi
5WEGNJWIj0NuxzR3BykSORLD/G3KJ2f3vNs3TJH6x5qtjCnnVhSf/vyZIuxp
Vz+GC/koStFhPRqlCP9K2YbJHj7K/KNWHxqnyI6L3VVXp1y16PnCVRMUaUt1
tXWZcs2gjWZykiIequqbbd18/BefVFun
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV1Xk41PsXB/BhRNF0B78rSbYr+5JGtwjng1JSWmhDlGJEtPyiZEsSiqhU
0kVUsiR0qShCirGMPTSEfGe+Y8wY6zCI3/z+OM95Xv+c533+OM9R9zx/yEuc
QCC8FdX/e1q4p6TJmadWirxs1+VlPtR2qO09qhYMytIN2+wYfFj+VhmlphYH
k4nVefs/8CGtKkF1hdoTCGqJZ/0M4oMB/8zdZWoGtFyprlQ4xof+NelLi91Z
QFgr4XrBnA/nLAP9Z1VzAW+2b9UR58O/nYMvpm1fw3C//icPfAzm/fb2TVAL
QSpD0Z3aPAY7mu9tFHS/hQbPz0rFT8egY8EneVy1DIYfddsIYAyC6lQ28YvL
QX42Y52/3hgoPehs5Nl+gpjcmLVn/hwDTz1EHKV+huse9RVlXB5cfS1TNtld
A8rrgpbOP+OBFOOXNk+VBkqNigqRijzoqaoI5LJpYL3pUGHXSh7kZad8GS1u
gNCuAW1/IRccLzl6cGyboIt89oAbgwuPVpU/wqktILH/eqhkFhfk/qkXn+hu
h4/09nxtMy4srHmXe8GiA2wcHaX6DbiART4/MP6sA6rkXMgValx4Rw1P55/t
hK7Ez6rClVxwoZiajy10AWlj26QdYxQyGzIujqr2gkS6ckzkrVGYTinVG4jv
hYgiEvl5yCjYURuH24W9oOWq2otfGAUucfZweccPoKXyTXtcR2GbpaN5XEwf
rGAUpyPKKLQWLopr8wfgXZG9z0ucA3Kwyp1kNAhH3J7LFvzkwHatZPOYM4Pg
/fCOD72LA3enc6eutQ3CkIfPLrdaDpje6/LyzB+C+5aEuylZHIhoMNhj4jEM
H9xe7TI/zYGc4vda+Q+H4VxP1L58Vw60p9gQNzYNQ1ndl25jZw5oUo99UjTD
IKaGYXFpJwcaiDeNCPJMsC6ZJXbqcEDBkiHX8o0FL06fT6FPjsCbwjjGOSMO
GK8fal26NwIcOU78nlMc8E7Lz6uOHwHtoD1WOskcWHHXl5IYMwLPLGQyh4Uc
mLvCabQPG4H7tHhvl6+jkD14MNHs7AgEDSdO7HLjwX9lrWhsmxHIkGmMkt05
Dma9cp60RTZYWYa4XXcfh/10p9i8OTb0Behv4V8Zh3cvbsk+mGaDYvsdVlPe
OAhWWS4Gc9lwL2WvfSx5AihR4X+k9bEhaiN9zTJjAlqXOQLtSjZQoe0J99IU
BNb9xBjRbCBkCcoZd6bgtkKT4PENNqRIKPc1vJiCLtNV+scj2FBP81bJ/T4F
l4IyaZyrbNBxXszyMp+GflP5+/bn2MD20X79U2wGbKRTPUad2OB7P6yyNUkA
hpeZ+65osUF8Jmvgc64AbGb602v+YkPq0XpCYY0ApvO2NMmqs6FBWd42YVoA
Qpvm1I/r2aD/KqfO/tgsLKS6a1rIsoH7saO1RnUOtMJ613EWcQhg6g6XvBFC
V7m6e913HAbde1dW04TgOZPr79iJg1NPrFEzJoQiKiz1tOGwrREPZirNg1xp
yc25JhyIxS/JCjHzYOjr7nLyCw4poepWVzwWQHEFXaq5CIdq+XVPzMi/IcHq
lykvAQfThPrKnfq/QWm5+UT3HRyyJa9iB+1+w2zvQ4vaOBzihd+NfUN/w+Af
9yWzo3E4MpD8LZX9G2J2aG2PC8OBk0eeXqhagr+e76DR/HGQVr+pPbCNgK61
RJLkD+BQb3HPOHwnAVH3JkmedcTh1rH0rRsOERC6qNlftRcH8aQPu1z9CGjb
3wcVguxxmF/iUrvTCMiaFOApsMFhtO9wTou4GMqZu/LV4W8cmlK0dauaxNDx
RC/1v1VwuF1iauLRK4aqqzs21yjjsLvV2myJKYbCsWja/vU41Eq52VssiyED
Nb2w84o4fApKOvvBRByl67z7WCWHQ4GzMLfokTgiy9Q/zpHC4S65US/zJBH1
KVXXh0+yoGzrhlLHACLKUnDuXz/BAsz9PCyGEFHO45N+5XwWbC+Qdz76mIjO
FkRwFrgsYNu7hZHoRMQwVjVNwllgG8VrCd4ugZQ+Ti0t9LFgbuaPwEMKK5DS
hpCitnoWeDKcPxObJNGHbu7t1S9YIP10yP9iryR6oJFr/juLBW9dApQHWJII
3M2wsUwWEH/EBJeLSaFiy/+qdmWI7rannHJxqxR69X6jbMFTFrC61HJ+Zkkh
TEavKu4BC3xbuUllwStRyMMfH3hRLLj49abneW1plP/aTkuDygIVzE5SQJFG
hnPhb494s6BRfFVeKJJGFe0nGHe8WLARJUzEHZdGocEWhLnTLOgtf3j9xR1p
RBEIbnSfZIF1UXZ6L18amYRndbx1YYHs0/ofth9kkF0vnfzdkQXFF1Y7KdqT
kLRR7NWCbSxoSpUPLjhCQieoY/MzW0V5a5UybM6Q0P7x3ytBZKV1uqPnIkio
xvifr+1bWHCzemdUdSkJYY3PCgkUFhyRi/jXV2MNkorWrQo0ZMH8vxPyFQtr
0LMLDk1VGizIDPHjbDpKRh+VYxc/rWHBjYzFg9NcWSRF96h/w2MCoWMQfbom
j3Q7o7d/bWOC1mXvq856f6J9A7Tim++ZgM08PiJToYCsOsy+KmUxYQ/TN+z+
RUVUlKC6MjuBCY5Ykr6KihKqaycb/gphAueL5/X6gvXI4cm+BJI/E4xkv2+w
9diA+DLqgQ/cmSANM6f6plTQtSz9P90OMWEXz2VW47Aa0vDYnH/Ejgk9NWfE
XAzU0a2Cg7dTtzOhNLbWXW1GHU20rOL4bWaC94rAQTpdAz2bEL9nq8uE05dC
Slen/oXko6ziT6ozwZiqT997ShO9rNzQulmJCS1yBjKBZhvRE58wnkCOCR/f
3HhqQNRCaa8f2LxZzYQQMb0DTf1aSCknqtlJUpSv79rugBJt9E/+Z0YkgQnM
bPXkjFAdlBqQFeG7gEGyzjqJssO6yLk0O8NcgEFSqnfdKTU9FNvNPf16AgOX
5BP01bgecmDmSVzmYTC346Uwo1IfJVbcdlMbwWCYaXO1JsYA1QRxKhyZGGRZ
mqxvPmWIHH8YzXoOYVAQHShLNTRCyc1i1px+0Z86fNqBOGOE4r2HVAp+YLCl
LzM3ptkY1U6axR7uxiBF92lBs8Mm5LHgs/lEJwYRVQkpDmWb0Lfh26MObRjs
W3/4ZYOmCQp9X3jSn46BdUCdq2ycCfKdRZE/GzHIUPbUbJoxQVVD+c5baRho
fnn1yNF1M6osJV/s+Sbaz7BGr71yM4rqp55Oq8XAe0qijaZHQW41Q8I9NRh4
Fk+qxSVS0HbS3Vt/V2Fw7obT4p57FNRa0+RnKHKgU0n36gcURIxPO6QpcuxM
4N2kRxR0sGxKU07kN2bChcdpFKSoQ+3jfcZAWL38PTufgsbXkB+9FDmpfXVC
bR0FXRHLMFEQOfW5v88tGgWtdTq+myTy88t0292NFGS3mHJSQuR3CknzjXQK
wr5lP5ysxKDPRd6no4uCznpMyLaIrD28zvbXMAWRVbmHYkXeVHJN5QWTgrzC
myMjRDaPZgi9cApqlDZ6GyTyXu20ohEOBX3V9FvrJfIlPzWViQkK2lXeMGUt
cqhFpPDtFAXp/kw1MhM5mvSr8/IMBZ3Qwn03iZxS+PzO3JxoXuYkriJy1nUJ
avk8BXn8p1hHQeT8g142oYsUJNDl+JJELtH4tsFqiYISb6S9kRC5ckpLuLxM
QQ6VDVMLFRj8DxPTmmI=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.3}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.3}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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., 19.999999591836733`}, {0.3, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""}, 
      "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835186071106679*^9, 3.835186153979765*^9}, 
   3.835186238104073*^9, 3.8351862916726522`*^9, {3.835186323050202*^9, 
   3.835186408836932*^9}, {3.8351864802939167`*^9, 3.835186491243235*^9}, 
   3.8351866599013643`*^9, 3.835186707042355*^9, {3.8351867740532913`*^9, 
   3.8351868300942307`*^9}, 3.8351872699161263`*^9, 3.835187554638893*^9, {
   3.835192631895937*^9, 3.835192647000339*^9}, {3.835192681073732*^9, 
   3.835192783202744*^9}, {3.835192861809782*^9, 3.835192901605383*^9}, 
   3.835192934498454*^9, {3.8351929663794622`*^9, 3.8351930084807377`*^9}, 
   3.835223968472056*^9, {3.835224329411701*^9, 3.8352243364534388`*^9}, {
   3.835224382551262*^9, 3.8352243981504183`*^9}, {3.8352244383205748`*^9, 
   3.835224460403195*^9}, 3.8352288667485743`*^9, 3.8352536293109083`*^9, 
   3.835253687923766*^9, 3.835260107870026*^9, {3.8352601442900476`*^9, 
   3.835260172981164*^9}, 3.835266004163269*^9, 3.835272938173439*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"4377da02-b3e8-4876-8125-fd150d43e67f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", " ", "g"}], " ", 
      RowBox[{
       RowBox[{"z", "^", "4"}], "/", "4"}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"g", ",", "\[Infinity]", ",", "1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Series", "[", 
   RowBox[{"pade2", ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "\[Infinity]", ",", "1"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.835253858377163*^9, 3.835253858528162*^9}, {
  3.83525410681628*^9, 3.8352541509999733`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"728c44be-5efa-41d6-bc95-75afa3d1c9d3"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"Gamma", "[", 
      FractionBox["1", "4"], "]"}], 
    RowBox[{"2", " ", 
      SuperscriptBox["g", 
       RowBox[{"1", "/", "4"}]], " ", 
      SqrtBox["\[Pi]"]}]], 
   RowBox[{
     RowBox[{"Re", "[", "g", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{
  3.835253864529457*^9, {3.8352541267785873`*^9, 3.8352541554282827`*^9}, 
   3.835266043073412*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"f0ee44dc-163c-4e07-a6ea-2795ea932768"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Gamma", "[", 
      FractionBox["1", "4"], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", "g"], ")"}], 
      RowBox[{"1", "/", "4"}]]}], 
    RowBox[{"2", " ", 
     SqrtBox["\[Pi]"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"Gamma", "[", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", "g"], ")"}], 
      RowBox[{"3", "/", "4"}]]}], 
    RowBox[{"8", " ", 
     SqrtBox["\[Pi]"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "g"], "]"}], 
     RowBox[{"5", "/", "4"}]],
    SeriesData[$CellContext`g, 
     DirectedInfinity[1], {}, 1, 5, 4],
    Editable->False]}],
  SeriesData[$CellContext`g, 
   DirectedInfinity[1], {Rational[1, 2] Pi^Rational[-1, 2] Gamma[
      Rational[1, 4]], 0, Rational[1, 8] Pi^Rational[-1, 2] Gamma[
      Rational[-1, 4]]}, 1, 5, 4],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.835253864529457*^9, {3.8352541267785873`*^9, 3.8352541554282827`*^9}, 
   3.835266043114909*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"cafd8431-a9ea-479b-99cd-cc2acdfd7cec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0.4517089625409136`", "+", 
   FractionBox["1.2380429967223987`", "g"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "g"], "]"}], "2"],
    SeriesData[$CellContext`g, 
     DirectedInfinity[1], {}, 0, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`g, 
   DirectedInfinity[1], {0.4517089625409136, 1.2380429967223987`}, 0, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.835253864529457*^9, {3.8352541267785873`*^9, 3.8352541554282827`*^9}, 
   3.835266136812517*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"44935e27-4e61-41be-9dd3-800e61362a88"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    SuperscriptBox["R", "\[Phi]"], "n"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "32d3f62d-c7ed-41ce-9cae-a2339abe2a93"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "5bdab966-e0bd-459c-b5b0-36c6aa322956"]
}], "Subsection",
 CellChangeTimes->{{3.8352550187690353`*^9, 3.835255064081539*^9}, {
  3.8352551422518682`*^9, 3.8352551432597237`*^9}, {3.835255459685856*^9, 
  3.835255496766584*^9}},ExpressionUUID->"e48e727e-26bc-462e-9949-\
83fc95c0e436"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "40"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gval", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PadeApproximant", "[", 
   RowBox[{
    RowBox[{"quarticIseries", "[", 
     RowBox[{"g", ",", "nmax"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"nmax", "/", "2"}], "]"}], ",", 
        RowBox[{"Floor", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"nmax", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], 
     "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", " ", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"quarticIseries", "[", 
         RowBox[{"gval", ",", "nmax"}], "]"}], "]"}], " ", "-", " ", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{"Series", "[", 
           RowBox[{"%", ",", " ", 
            RowBox[{"{", 
             RowBox[{"g", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"g", "\[Rule]", "gval"}]}], "]"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "nmax", ",", 
      RowBox[{
       RowBox[{"Sqrt", "[", "2", "]"}], "nmax"}]}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8351894444863863`*^9, 3.835189455157716*^9}, {
   3.835189505696649*^9, 3.835189598665629*^9}, {3.835189634244598*^9, 
   3.835189785990614*^9}, {3.835224355625712*^9, 3.835224356232065*^9}, {
   3.835224831023395*^9, 3.835224859342945*^9}, {3.835225606381516*^9, 
   3.835225790008391*^9}, {3.835225892180594*^9, 3.835225907803267*^9}, {
   3.835225947885024*^9, 3.835226003941801*^9}, 3.8352261322269*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"79be7997-fd63-4cab-9bcf-e73d87b7f324"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], 
    AbsoluteThickness[1.6], 
    PointBox[{{40., 7.737125245533627*^25}, {41., -1.8262300882348076`*^43}, {
     42., -6.18243402856524*^44}, {43., -2.080894720259149*^46}, {
     44., -7.163987701983187*^47}, {45., -2.5235809232233454`*^49}, {
     46., -9.091281510841338*^50}, {47., -3.3478421415898144`*^52}, {
     48., -1.259597761672796*^54}, {49., -4.839814292501442*^55}, {
     50., -1.8982995843506702`*^57}, {51., -7.597205385289185*^58}, {
     52., -3.1010696956130305`*^60}, {53., -1.2904790444143424`*^62}, {
     54., -5.472402248550257*^63}, {55., -2.3636600558517764`*^65}, {
     56., -1.0393072391038253`*^67}}]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{39.66666666666668, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{39.66666666666668, 56.}, {-1.3681005621375642`*^64, 
   7.737125245533627*^25}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.835189485306932*^9, 3.835189604682663*^9, {3.835189645448533*^9, 
   3.835189767919037*^9}, 3.835189950754183*^9, 3.835223976113674*^9, {
   3.8352243445606813`*^9, 3.8352243571220007`*^9}, 3.8352248753169394`*^9, {
   3.835225613399788*^9, 3.8352256314986258`*^9}, {3.835225671614492*^9, 
   3.835225704168111*^9}, 3.83522579079438*^9, {3.835225893063953*^9, 
   3.835225901288875*^9}, {3.8352259543455877`*^9, 3.8352260197164097`*^9}, 
   3.8352261387178698`*^9, 3.8352288926108303`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"3e4dc83a-3e8a-4632-9146-b64e780e7a65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PadeApproximant", "[", 
   RowBox[{
    RowBox[{"quarticIseries", "[", 
     RowBox[{"g", ",", "nmax"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"nmax", "/", "2"}], "]"}], ",", 
        RowBox[{"Floor", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"nmax", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "}"}]}], 
     "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"polesplot", "[", 
  RowBox[{"%", "/.", 
   RowBox[{"g", "\[Rule]", "u"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.835193303100196*^9, 3.835193343845311*^9}, {
   3.8351933916426573`*^9, 3.835193550122302*^9}, {3.835193592372532*^9, 
   3.835193693006518*^9}, {3.8351937344884977`*^9, 3.835193756993002*^9}, 
   3.835224372730158*^9, {3.835224863359956*^9, 3.835224872574711*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"9dd5ef1e-37b5-47ae-a0a1-f248c93b4064"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.540662623819077`"}], ",", 
   RowBox[{"-", "0.3258838268679253`"}], ",", 
   RowBox[{"-", "0.1349868286944664`"}], ",", 
   RowBox[{"-", "0.07250124002399372`"}], ",", 
   RowBox[{"-", "0.044634583726836256`"}], ",", 
   RowBox[{"-", "0.029833738691954333`"}], ",", 
   RowBox[{"-", "0.021018800701925827`"}], ",", 
   RowBox[{"-", "0.015309178632596194`"}], ",", 
   RowBox[{"-", "0.011339022799355832`"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.835193615150771*^9, 3.835193633575184*^9}, {
   3.835193674681213*^9, 3.8351936986001*^9}, {3.835193739043766*^9, 
   3.835193761203559*^9}, 3.835223979065905*^9, {3.835224363456524*^9, 
   3.835224373407565*^9}, 3.83522487657417*^9, 3.8352250620444517`*^9, 
   3.835225113049444*^9, {3.835225145690811*^9, 3.835225187483679*^9}, 
   3.835228892773657*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"e0b8018f-1322-464e-b91d-0ab5a833bdba"],

Cell[BoxData[
 GraphicsBox[{{{}, {}}, {}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], 
     PointBox[{{-1.540662623819077, 0.}, {-0.3258838268679253, 
      0.}, {-0.1349868286944664, 0.}, {-0.07250124002399372, 
      0.}, {-0.044634583726836256`, 0.}, {-0.029833738691954333`, 
      0.}, {-0.021018800701925827`, 0.}, {-0.015309178632596194`, 
      0.}, {-0.011339022799355832`, 
      0.}}]}, {{}, {}}}, {}, {{}, {{{}, {}, {}, {}}, {}}}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& ), "CopiedValueFunction" -> (Identity[
       Part[#, 1]] + I Identity[
        Part[#, 2]]& )},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "MessagesHead" -> ComplexListPlot},
  PlotRange->{{-0.7917457992209189, 0}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835193313145124*^9, 3.835193345339532*^9}, {
   3.835193403322815*^9, 3.8351934870416803`*^9}, {3.835193539144712*^9, 
   3.835193552137361*^9}, {3.835193602451659*^9, 3.83519363354139*^9}, {
   3.8351936748238*^9, 3.835193698735277*^9}, {3.835193739182975*^9, 
   3.835193761341607*^9}, 3.835223979210688*^9, {3.835224363596384*^9, 
   3.835224373548108*^9}, 3.835224876712352*^9, 3.835225062115712*^9, 
   3.835225113118985*^9, {3.835225145761793*^9, 3.835225187554469*^9}, 
   3.835228892842265*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"f2838425-dfc7-4d35-a9ed-3a2bb986997d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    SuperscriptBox["P", "\[Phi]"], "n"], TraditionalForm]],ExpressionUUID->
  "7fd1abf1-bbf1-4162-99ee-922a87c34aa4"],
 " and ",
 Cell[BoxData[
  OverscriptBox["\[Phi]", "^"]],
  CellChangeTimes->{{3.835221794235321*^9, 3.835222055161541*^9}, {
   3.835222297304538*^9, 3.835222298440099*^9}},ExpressionUUID->
  "9f8e0c62-1280-4751-baa5-4f08a37c8f02"]
}], "Subsection",
 CellChangeTimes->{{3.835255084674954*^9, 3.835255091850224*^9}, {
  3.835255527539865*^9, 
  3.8352555473750257`*^9}},ExpressionUUID->"91fb3420-94ab-40ff-a7fa-\
6aa15a272dbb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"quarticIborel", "[", "u_", "]"}], ":=", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"EllipticK", "[", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"4", " ", "u"}]}]]}], 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"4", " ", "u"}]}]]}]], "]"}]}], 
   RowBox[{"\[Pi]", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "u"}]}], ")"}], 
     RowBox[{"1", "/", "4"}]]}]]}]], "Input",
 CellChangeTimes->{{3.83525511016374*^9, 3.835255132403948*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"24b09982-afdd-4198-acfb-854257024ea2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pade3", "=", 
   RowBox[{"borelpade", "[", 
    RowBox[{"quarticIseries", ",", " ", "u", ",", " ", "30"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"quarticIborel", "[", "u", "]"}], ",", "pade3"}], "}"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "1"}], ",", "100"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Borel Transform\>\"", ",", " ", "\"\<Pade\>\""}], "}"}]}]}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.8352551807489443`*^9, 3.835255228542487*^9}, {
  3.8352553130505877`*^9, 3.835255348683536*^9}, {3.8352554124291477`*^9, 
  3.8352554252537107`*^9}, {3.835255558929446*^9, 3.835255563727597*^9}, {
  3.83525568272447*^9, 3.835255684243517*^9}, {3.8352557369027443`*^9, 
  3.835255753157496*^9}, {3.835273103199046*^9, 3.83527310506931*^9}, {
  3.835346784856884*^9, 3.8353469098030567`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"218a7656-1c21-4490-9f7d-0c7988857c81"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV0Hk01AsbB3DcborGMqTJHbeZseSaFl3JteR5kgiTfflJ0nqjJFtdpG5N
cYt5J2sLqpdUp6TNtSWllEFojLHPjBmDSrK0IKV5vX8853s+53u+/zz0XYe8
96ooKSnFzd3/M/5bjt5FQ3XMktdGmnn1Q7BDiKq7Ngnf/BRnWUzqh2gOezjJ
i4S1J289c/q5H850XG+uTiehsDo3+/N3Gfy7fyRzJVkDoXi8JHVEBosy42kk
HU00sUrMvdIkA8lEA/XPFC10ZowO66TJ4N35IA32bS3085y+23RGBp9tPygu
N2qhfl0tOfukDNSSteTtatp4kFfD84mRwTr9gFubUrUxceZTBjtABlyHAUtj
Dhk1OvhjRxgysM/84T7wH10sTA3Pin8mBa+vkSohxbrowy6J6q+Swp4QeWl3
ky7uDJJP+JZJIZVZT32tvhiFOtq7/Yuk0FWbPlx5djFGH3aU8LKlEP3ZKPlc
kh72NkgTtoRL4YafW7XNMQpWXGNzbJdJobKqOrI0j4I+Xiy4qS+FJrq5kflj
Ch7m1txYqieFTx90U42/UXB2opJFJkkBkyWEVvxSpPsZmxRM9kFPWdTnwVh9
HLQjMkYe9AGJcpGZHk7FtTbR5RPmfZAlnH5TxqXi+J+sXZmmfUBNDywU3afi
320rc5DWB2ZqvxiYfqEiZbt8fbVmHzh9v6zx9JgBvsjO2mQ3JoHj0msTI9xf
8Y5h1BKb+xKIE3YGFRI0HNq4PodjLYHHvy+wKQ+joZ+gZCjidwko0v6gNCbQ
MCZ2Q0sgUwLJWy4Jx/JoOJsZY+hiIIGsuq1bbGU0vBD3aiBVWQL3K8T2gjA6
7nsdeCjjlRje5cnpSkcZyNToPWCxVwz+k+gxlsLA1B1jdVEhYnjucSVRksNA
Y/ea4dJAMeSpBHY+fsRAV3b2Lg93MXiGtnDiZxhY0DT98aWVGMosKqc+xhvi
AiuNkQp1MbAbuc2DcUa4+S812eFyEehPW8e/OmKCD9+RRzlUETxL1GBqnTFB
foJ4/YUlIghVlot8L5kgS+vYghtkEZSqcVBSZYKHBmbH+QtE4GkgUZ1QWo63
h5c4BX3phSQH9nm91OXIsvMbs33dC+OcxpKdV03R8gS1S5HUC3X0oNEpnhmW
KP6b5f2jBybm05RHuszwN0vV78EzPUAdGdCRvjPD2JmWwPDJHogqi7CuV2fi
10UJb9NH53o39umLHkxcaFMiV0h6ICb2lr51JxOLV5pM7q7pARpvyilhaAUe
7F9lZJHUAwnhWVe/z1uN3iHUNVZ6PfAE53NTEtfgOp+MInZwNyQ+XB7knG+B
1ts84rn3umDn2bckbr4lfsupgxxaFzRGlkpqLlihq+moLv1aJ0Q93WdfWGGN
ttEmLYmmnWAfU3lKu9QWYx1ejuXXdIALdzxgtWg9ku9pKl4GdkBXpYWr9VdA
SsPC56tm28HZWD19aBrxyr6hRpfidthAP/TijJoDvn9+N+PFtnZoeV0wPLZw
I+Z2RHQX67XDzBoX4t6vjpj0ZllR7mshhOZ9Ee5ZtQnFHcd2WXGFEFYZ5djH
dMKbGX0G5b5CWJiy49sDe2dkHY/81LJUCHakZdddYDM23xQYVw22wYOL8uBO
Gxc8ctK5yay0DV526m+vdnNFz9AQjuqpNjjYQPcKdXXDyst99RH+bVASkZt6
YDsLrfpfrnQ1bQNb6i/tew5uwebACp7qrAACEvdrG+53x+RVyW7BHQIgp63I
tk70wPzcxUsZdwVgzuxLUrP3xBPurwY1UwQQRy7aHFPliUdmJyMU+wRwzsd8
9ZmNXljtfpmyx1EA4wcNzv393Auf6osPbzMSAL2/lmzI8kbXv2bUe1UEkLta
oHmryRu9A3t3Fg60wrqTu3Vvu/pgfvrz3CleK+SvuGsX0OaDNUL2HdGtVvB7
sEMy5O2Ld5pbHW5wW6H7XNM1htgX9SydVMnRrXA8uiqye48fuuc9nN/v3wrh
q8jl0XI/jNyq+mWDfSuYOTLoFeH+GEbieXsZtcIai5x50hF/TOUsOMtb1AqB
Jtlj7P0B6HgdN3pM8sErxuVH68cAXGyo8jhTwofMS3uTf4omcO3R5mSVBj5s
jvgtzjaWwJQiecy1ej78cPgQFnOEQIX7+QOOcw4did0iTyBQZ3d9QjKPD/Zw
Wrf2FIHmJCOKeh0fhgcKCtjZc/teMUuvlg9oLn2iXEmgj/HVc2ur+TA5r/C+
dRWBaVHMpo7HfCjq3lcQVU1g1oyWTvyc9U6NJcmeEZhxuu9pdRUf3rf/YD1r
JNBt0DPb+REfzh816D0hItDZ/NHK4HI+sDxlTRUSAt9aDGgozVnZ+PqTcSmB
2546zRSU8SG8ZUXBjkEClf2Kx96W8sGBbheGowQGj/J8D//Lh+kviq1x4wSW
XD32D2XOxY21rPsfCdxdFvSiqoQPlFg3c9oUgf+Qzm5TmXPzZk0G8ZVAR5aw
/PpDPrAN2nTSvhH4fgQMXOb8x8fzP9fPzv1nvIEz8oAPH+q2TikUBIr8I+en
zfl/43udbA==
          "]]}, Annotation[#, "Charting`Private`Tag$3493#1"]& ], 
       
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVyXs41Ikex3HElsuUW0waNTNuNWNDznZMyvcbJXIv5YdTSbJYuR8hOnZE
MnI54qiVNpd22yIUkVTYUkMy487M+E1DV0UqtCk754/P835ez4cRGLn7iJKC
gkKCfP/v1jXLmouN1PGsrD2K5fUM9tsfXOquRcGmkmv+VZRnEJPNfZ3uRcHa
HQmvHVWeQeZA5ZOWfAqee7iu9eOCFG6GTRZ8r70ci53CJ3iTUtAoSKRTdFZg
o3bHSGmXFCTvH9OCszRxCVXdQzdPCq+K/Jdz/9BEh/3V1CeZUvho+3bxAl8T
8257cQt/loJahqasX00LUx+3OXjHSmGTgc+VHTwtJCLN2Gk+UsixH//BJFsb
vTRCnx5jSsGu4Jv7+BldDBrY4nG8lQSvz1FKB6t08VjdzNbxZhKCDsrqh7t0
UQH0e/Y1kMBjP6I9VV+Jp4L4wcRVEoba8183nV6Jxrp/WvMLSYj5aJyRm66H
7qwd+Z7hJFze69KyOYWK5VS7alxLQlNzS1R9CRU3ZPyWec2AhC6GpbHlHSrm
mpVS1+qR8OGtLs/kCxVn6jy1qRQSMENCaCauwtCK03rXZ8dgpCH640ScASo9
mb+6UDsGFGoxOz+chi7bMjpVrcbgbN/8i4YcGr6gO+hfWzcGtHzfClENDR+/
p3zwpY8BS2214bpPNFQJ7HwxuGIMHBcuLL+XYogLkztv+U5J4ARZ/n4yZw2u
zBY37K+RQELfoH8FQcc78XzHexwJ3Nm4bPOtUDrGzwxUlG2UwGKeDZWfRMc4
HZWyHLYEMtzO9U2V0NGPuLUh1VACZx/6udlK6bha60Veh6IEahrFdsJQBj5Q
38ke6hTDqxIZQ+E4E49farqZd0QM+2bRYyqLiUlOcYU9B8XQ5lGaLDnPxE9n
0EHPTwwlSr6Dd24zcb0NU1TnLgbPkO7sxL+Y2OlZILOwEUODddPcTKIRXreO
LrfUEAOXn/NkIsEYNW8yqzUaRWAwz0nsjDdFYohBizYUQWvycrZmpinOeUvD
TlBFEKIoE3mfM8XKrs+b83REUK+WjZJmU9xzWMO+VVUEnoaSpe8VzDDy395G
xOwopNtzi/R4Zuht5Wqyp2cUprP5Nw5dXIeKz8pJz1Oj8JDh/26ug4WPTAoq
zBVG4f13dMXJIRYeg+9vbVkYAdrkuA75ioUeIwc6POZHILohgvNInY0Xqk73
nJiW/y7ck8UebGzjN+orSEcgNu6KAWeQjd3iZfTsthGgd8w5Jj03Rwvz9vs1
p0YgKfzsxQVlC6xxXGcVv2oE7uJ3OVnJVqgvDGAlBw5Dcp2Z/85L1vh7pziZ
bBiCQ6dfUnIu/YCBpS9reawh4EfVS+7/75+onilbvqxmEKLv/WhX0chBtbFi
ZyXOINjFNqVp1duiIEt3jaxvAJxzpn0sRFuRrA/3jYgZgKEm612cz4BZbl/q
UgwGYKeJev7zecTulrVvNz7th22MyD8z1exx8P4qo3dp/dD9tOz1lKoD8rZm
75q174e/rJyJ62u2Y9iRSsFlxX4IKfnUF7RhBwam6Xw1eNgHoU3R28fYjlhK
RHz9x3/7QDUr4Eut3U6877sp6OT+PthCWVvpDE7ItLU+9S+LPqgtlu0f3OyM
xWY5DXXKffBg0OBAi8sudO6IqKIM98LRxwyvkF0uaHWfNl1U1ws3In7h/XTA
FXWDQ23W83rBlra6P+ioG6qpBPRkB/eCT3KYllGYO8quDHnTHXtBO8+8kJPs
gVlYb3nDuBcs2WPpanaeeMNx+I7i0l5I0L7qFNvsiWeodj6b3gghd4+lRaaD
F1Yn5n75qVsI00cNc//T5oWd+pZr224KgfGsXdvIdTfOqZmOmp0Xwi8WwhVX
unajKNE+LpArhE0/H9b9Y9cevMZ8zlcOF8Il8+otPr17UOXMrzfvegthb22A
5Plub9QOi2ofByEM53aVM8XeyI657mLJEsKJmOao4aC9yJ7Xsbi9UgjhG7Rv
xcj2Iqkfm+W3RAis7UxGY/g+ZHq5uLKmBWBlfV6ZnNyHNqop1BcSAfiaFk5x
w3ywRbXkaU63ALxinb8JZnzwYlaVVVSLAArOHclYEkPgu2D3AqVqAThFrE+w
jSNwMb1o8G6VAL7Zvw2NjSewvX/I5LjcIZNxbrIkAjkGDuSHawKwg5O67WkE
biMjuyauCuD1eFkZt5BAtzFOaucVAaAleVexicDe1A2OpZUCmFWuqOE0E1gR
Ef/AX+6rwz+WRbcQqB4S475Kbr20qXRpK4Fd4ykpZysE8Kb/m2srn8DEhcse
vHIBFB03HE0VEZgWdbgt6ZIAXD2lXY0SAl9y34zayK1oUnl3miTw0SmVxdlf
BRDebV4WMEHgxPzzQ7Fy2zO2hOI7AvV4xufDLwpg/tOiX8I0gXGgqMCWu4rf
7lozQ2CY3sHIV6UCoMa5WNLnCFTuKQwLlvuJ0wom8ZnA9Rlhs8Zycw17dfK+
EPhGpZEnuyAAm5kilUdfCczfnMwqk/vtQ7+5xUUCNTTrhQFy/w1u1IeT
          "]], 
         LineBox[{{-0.9248949692262155, 
          0.5724079325146811}, {-0.9070685925194126, 
          0.4681673680978983}, {-0.8760921437673802, 
          0.19961326602248514`}, {-0.8711821993527946, 
          0.10333116809945103`}}], 
         LineBox[{{-0.3246147316030835, 
          0.3464129362086169}, {-0.32232516418772966`, 0.5724079325146811}}], 
         
         LineBox[{{-0.6819828440867716, 
          0.5724079325146811}, {-0.6592570025031528, 
          0.274522365658421}, {-0.6522139244494196, 0.10333116809945103`}}], 
         LineBox[{{-0.5321360485185485, 
          0.5724079325146811}, {-0.5269706618307171, 0.46243045028654556`}}]},
         Annotation[#, "Charting`Private`Tag$3493#2"]& ], {}}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.10333116809945103`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.10333116809945103`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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 -> {{-1, 100}, {0.10333116809945103`, 0.5724079325146811}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"Borel Transform\"", "\"Pade\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8352552026741858`*^9, 3.835255228898427*^9}, {
   3.835255315247724*^9, 3.8352553489639063`*^9}, {3.8352554133160057`*^9, 
   3.835255425710059*^9}, {3.8352555553803263`*^9, 3.835255564290539*^9}, 
   3.835255689166807*^9, {3.83525573739747*^9, 3.835255754059774*^9}, 
   3.83527311069772*^9, 3.835346931437533*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c97087b9-50a3-4438-aa71-2722e86f3d25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"quarticIborel", "[", "u", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", "\[Infinity]", ",", "1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Series", "[", 
   RowBox[{"pade3", ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", "\[Infinity]", ",", "1"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8352556454057903`*^9, 3.835255700683672*^9}, {
  3.835273107503137*^9, 3.835273107565291*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"d3c160bf-acfa-4205-a43b-140a639a0f2b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Gamma", "[", 
      FractionBox["1", "4"], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", "u"], ")"}], 
      RowBox[{"1", "/", "4"}]]}], 
    RowBox[{"2", " ", 
     SqrtBox["\[Pi]"], " ", 
     RowBox[{"Gamma", "[", 
      FractionBox["3", "4"], "]"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"Gamma", "[", 
      RowBox[{"-", 
       FractionBox["1", "4"]}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", "u"], ")"}], 
      RowBox[{"3", "/", "4"}]]}], 
    RowBox[{"32", " ", 
     SqrtBox["\[Pi]"], " ", 
     RowBox[{"Gamma", "[", 
      FractionBox["5", "4"], "]"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "u"], "]"}], 
     RowBox[{"5", "/", "4"}]],
    SeriesData[$CellContext`u, 
     DirectedInfinity[1], {}, 1, 5, 4],
    Editable->False]}],
  SeriesData[$CellContext`u, 
   DirectedInfinity[1], {Rational[1, 2] Pi^Rational[-1, 2] Gamma[
      Rational[1, 4]]/Gamma[
     Rational[3, 4]], 0, Rational[1, 32] Pi^Rational[-1, 2] Gamma[
      Rational[-1, 4]]/Gamma[
     Rational[5, 4]]}, 1, 5, 4],
  Editable->False]], "Output",
 CellChangeTimes->{{3.835255659086301*^9, 3.835255664116889*^9}, 
   3.835255701470166*^9, {3.83525574084827*^9, 3.835255754954877*^9}, 
   3.8352731118228483`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"b5c0515d-2a40-4a1d-ad20-80f0a0f57f7c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0.21947138302954342`", "+", 
   FractionBox["6.989646068386856`", "u"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "u"], "]"}], "2"],
    SeriesData[$CellContext`u, 
     DirectedInfinity[1], {}, 0, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`u, 
   DirectedInfinity[1], {0.21947138302954342`, 6.989646068386856}, 0, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.835255659086301*^9, 3.835255664116889*^9}, 
   3.835255701470166*^9, {3.83525574084827*^9, 3.835255754954877*^9}, 
   3.8352731120181026`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"2df85622-6ec6-4406-aeba-1599b01926db"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Optimized perturbation theory", "Section",
 CellChangeTimes->{{3.8352664320054417`*^9, 3.835266438580639*^9}, {
   3.835275145846919*^9, 3.835275157812723*^9}, {3.8353190200368423`*^9, 
   3.8353190262278757`*^9}, 
   3.835325032973905*^9},ExpressionUUID->"2c04019c-09f8-4afb-8504-\
0f68f7c01070"],

Cell["\<\
We consider the delta expansion (or optimized perturbation theory).\
\>", "Text",
 CellChangeTimes->{{3.835333879395096*^9, 3.835334023574357*^9}, {
   3.835334074600897*^9, 3.835334121825431*^9}, 3.8353341956750298`*^9, {
   3.835334285293728*^9, 3.83533428722164*^9}, 3.835334351027936*^9, {
   3.835335469815187*^9, 
   3.835335471701545*^9}},ExpressionUUID->"5c2b8573-f85a-4aca-a63c-\
c76cbfc18fa6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "+", " ", 
      RowBox[{"\[Delta]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Alpha]", "-", "1"}], ")"}], " ", 
          RowBox[{
           RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
         RowBox[{"g", " ", 
          RowBox[{
           RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.835266456957431*^9, 3.83526648448658*^9}, {
  3.835266648867937*^9, 3.835266653586843*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"9370c048-3e6f-4087-ac18-5e19ef768143"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"\[Alpha]", "+", "\[Delta]", "-", 
             RowBox[{"\[Alpha]", " ", "\[Delta]"}]}], ")"}], "2"], 
        RowBox[{"8", " ", "g", " ", "\[Delta]"}]]], " ", 
      SqrtBox[
       RowBox[{"\[Alpha]", "+", "\[Delta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Delta]"}]}]], " ", 
      RowBox[{"BesselK", "[", 
        RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
              RowBox[{"\[Alpha]", "+", "\[Delta]", "-", 
                RowBox[{"\[Alpha]", " ", "\[Delta]"}]}], ")"}], "2"], 
           RowBox[{"8", " ", "g", " ", "\[Delta]"}]]}], "]"}]}], 
    RowBox[{"2", " ", 
      SqrtBox["\[Pi]"], " ", 
      SqrtBox[
       RowBox[{"g", " ", "\[Delta]"}]]}]], 
   RowBox[{
     RowBox[{
       RowBox[{"Re", "[", 
         RowBox[{"g", " ", "\[Delta]"}], "]"}], ">", "0"}], "&&", 
     RowBox[{
       RowBox[{"Re", "[", 
         RowBox[{"\[Alpha]", "+", "\[Delta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Delta]"}]}], "]"}], ">", "0"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835266477544025*^9, 3.835266493926243*^9}, 
   3.83526667164377*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"7b776316-2801-4c63-a0de-06d2afc9a6db"]
}, Open  ]],

Cell["\<\
The expansion is done with respect to \[Delta] and we will set \[Delta]=1 \
finally, as\
\>", "Text",
 CellChangeTimes->{{3.835333879395096*^9, 3.835334023574357*^9}, {
   3.835334074600897*^9, 3.835334121825431*^9}, 3.8353341956750298`*^9, {
   3.835334285293728*^9, 
   3.83533428722164*^9}},ExpressionUUID->"6f93cbeb-b7e4-45be-a969-\
2ebe63ead6c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["a", "k"], 
    RowBox[{"(", 
     RowBox[{"\[Alpha]", ",", "g"}], ")"}], 
    SuperscriptBox["\[Delta]", "k"]}]}], 
  SubscriptBox["|", 
   RowBox[{"\[Delta]", "\[Rule]", "1"}]], "."}]], "DisplayFormula",
 CellChangeTimes->{{3.835334141850704*^9, 3.835334226180393*^9}, 
   3.835334289173646*^9},ExpressionUUID->"75558cde-c8cf-4d84-936b-\
6488cf808e02"],

Cell["We use the condition to fix the adjustable parameter \[Alpha],", "Text",
 CellChangeTimes->{{3.835333879395096*^9, 3.835334023574357*^9}, {
  3.835334074600897*^9, 
  3.835334121825431*^9}},ExpressionUUID->"ef2e0b3c-0931-4a2d-a81f-\
7023ee084a25"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["a", "n"], 
   RowBox[{"(", 
    RowBox[{"\[Alpha]", ",", "g"}], ")"}]}], "=", "0."}]], "DisplayFormula",
 CellChangeTimes->{{3.835334141850704*^9, 3.835334180275571*^9}, {
  3.835334243541452*^9, 
  3.835334282622847*^9}},ExpressionUUID->"daf935e2-7201-49f6-a42f-\
34819840911a"],

Cell["(fastest apparent convergence condition)", "Text",
 CellChangeTimes->{{3.835346247392498*^9, 
  3.835346265840213*^9}},ExpressionUUID->"94e20afe-0453-49d3-893a-\
fc1216d62e90"],

Cell[CellGroupData[{

Cell["Numerical", "Subsection",
 CellChangeTimes->{{3.835345741298284*^9, 3.8353457575534573`*^9}, {
  3.835345793291163*^9, 
  3.835345794954164*^9}},ExpressionUUID->"fad32a0b-ed49-4ea8-aafa-\
605f287c4b17"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gval", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[Alpha]"}], " ", 
              RowBox[{
               RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "+", " ", 
             RowBox[{"\[Delta]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\[Alpha]", "-", "1"}], ")"}], " ", 
                 RowBox[{
                  RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
                RowBox[{"gval", " ", 
                 RowBox[{
                  RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"\[Delta]", ",", "n"}], "}"}]}], "]"}], " ", "/", " ", 
         RowBox[{"Factorial", "[", "n", "]"}]}], ",", " ", 
        RowBox[{"\[Delta]", "\[Rule]", "0"}]}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "0", ",", " ", "nmax"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "1.1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Flatten", "[", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"%%", "[", 
      RowBox[{"[", 
       RowBox[{"-", "1"}], "]"}], "]"}], "\[Equal]", "0"}], ",", "\[Alpha]", 
    ",", " ", "Reals"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]val", " ", "=", " ", 
   RowBox[{"\[Alpha]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{"Limit", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[Alpha]val"}], " ", 
               RowBox[{
                RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "+", " ", 
              RowBox[{"\[Delta]", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Alpha]val", "-", "1"}], ")"}], " ", 
                  RowBox[{
                   RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
                 RowBox[{"gval", " ", 
                  RowBox[{
                   RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}], 
            ",", " ", 
            RowBox[{"{", 
             RowBox[{"\[Delta]", ",", "n"}], "}"}]}], "]"}], " ", "/", " ", 
          RowBox[{"Factorial", "[", "n", "]"}]}], ",", " ", 
         RowBox[{"\[Delta]", "\[Rule]", "0"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}],
     ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "nmax"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "n"], 
     RowBox[{
      SubscriptBox["a", "k"], 
      SuperscriptBox["\[Delta]", "k"], " ", "with", " ", "\[Delta]"}]}], 
    "\[Rule]", 
    RowBox[{
    "1", " ", "and", " ", "the", " ", "magnitude", " ", "of", " ", "error", 
     " ", 
     SubscriptBox["a", 
      RowBox[{"n", "+", "1"}]]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Total", "[", "%", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[Alpha]val"}], " ", 
              RowBox[{
               RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "+", " ", 
             RowBox[{"\[Delta]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\[Alpha]val", "-", "1"}], ")"}], " ", 
                 RowBox[{
                  RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
                RowBox[{"gval", " ", 
                 RowBox[{
                  RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"\[Delta]", ",", 
             RowBox[{"nmax", "+", "1"}]}], "}"}]}], "]"}], " ", "/", " ", 
         RowBox[{"Factorial", "[", "nmax", "]"}]}], ",", " ", 
        RowBox[{"\[Delta]", "\[Rule]", "0"}]}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
     "]"}]}]}], "}"}], "\[IndentingNewLine]", 
 RowBox[{"quarticI", "[", "gval", "]"}]}], "Input",
 CellChangeTimes->{{3.8352681079364023`*^9, 3.835268210931485*^9}, {
   3.835268576591341*^9, 3.835268576829212*^9}, {3.8352686866743317`*^9, 
   3.835268689680353*^9}, {3.835268731299425*^9, 3.835268731385557*^9}, {
   3.835269094604377*^9, 3.835269120819767*^9}, 3.835269163750428*^9, {
   3.835269203774911*^9, 3.8352692696310253`*^9}, {3.835269349091302*^9, 
   3.835269349265122*^9}, {3.835269406932755*^9, 3.8352694073549633`*^9}, {
   3.83526948902386*^9, 3.8352696054394913`*^9}, {3.835269639554243*^9, 
   3.835269639688711*^9}, {3.835270576307188*^9, 3.8352705764174223`*^9}, {
   3.835318032522665*^9, 3.835318034097735*^9}, {3.835318075108919*^9, 
   3.835318084362117*^9}, {3.835318160103376*^9, 3.835318160237142*^9}, {
   3.835318229384968*^9, 3.8353182624080153`*^9}, {3.83532219427041*^9, 
   3.835322244385399*^9}, {3.835322307053442*^9, 3.8353223074515*^9}, {
   3.835322356421772*^9, 3.8353224731759977`*^9}, {3.835322653391142*^9, 
   3.8353226535489073`*^9}, {3.835322863524714*^9, 3.835322892611064*^9}, {
   3.8353229503105373`*^9, 3.835322951284657*^9}, {3.835323041521352*^9, 
   3.835323044319538*^9}, {3.8353362431485653`*^9, 3.8353362449238033`*^9}, 
   3.8353363293199883`*^9},
 CellLabel->
  "In[893]:=",ExpressionUUID->"6ebf7bc0-10fe-4b79-8e45-e895f35a387e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     FractionBox["1", 
      SqrtBox["\[Alpha]"]], 
     RowBox[{
       RowBox[{"Re", "[", "\[Alpha]", "]"}], ">", "0"}]},
    "ConditionalExpression"], ",", 
   TemplateBox[{
     FractionBox[
      RowBox[{
        RowBox[{"-", "0.037599424119465`"}], "-", 
        RowBox[{"1.2533141373155001`", " ", "\[Alpha]"}], "+", 
        RowBox[{"1.2533141373155001`", " ", 
          SuperscriptBox["\[Alpha]", "2"]}]}], 
      RowBox[{
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]"}]], " ", 
        SuperscriptBox["\[Alpha]", 
         RowBox[{"5", "/", "2"}]]}]], 
     RowBox[{
       RowBox[{"Re", "[", "\[Alpha]", "]"}], ">", "0"}]},
    "ConditionalExpression"]}], "}"}]], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.8353363407568283`*^9},
 CellLabel->
  "Out[895]=",ExpressionUUID->"f718e8ac-23df-4004-9733-c829b4f45edf"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlmk8lPsfhscYxjIYDgoJiTqESmT//tLmTKiQiko1ifSvkJYjshTJULbS
yHLIvkaOIrKGkO3IIRpLjLH0mMfYt07/F/fn/txvr+vNrXLxho0zkUAgvPyV
/zdHiKRMzHsBDZWT8271cuiJ79/MTQpMSJd12l/LkEPSZ6jH17yZYFLDaQly
lEMvja4Ksb4yIdOoO/3EDjmUuaB8JykuDhzKJbUX2jeiGo8wuy3y8fBRYEPX
UbWNyOLYmCi/dzycTmfdebS6AbVpm9d+740H1tIyldG1AfVPLuxKYyYADefX
6w/egOac6RLb5ZIgJyhsB2FWFklrKY7KUpKhe5/I2cFJGXQyvgmRTZJBz9BU
1fqzDIoTvRu/cDUZWrdl3jAqkEEqE522Pc3JcIpnYRrgJYO0M0JqmIwUsAxI
rHEnySALldmkTaKpcIsV5HF7rzRiRCSvUIxTQdHQ19xLSRq1/rQ+ueaWCv86
aP5TT5ZGJ1hZ4qymVPAuFGVc7P0NXXzp5JsUmgbTiqYEc//f0D2ZZoctIhmg
St1WZdgnhco+1HqM6mfAdZ1JQf5PUmjZpTwkk54BfMaE14S3UuhuWV6JdkUG
/GuSQHsWLYVuO0VIGbtnws+xBY7wUSnkmXWiybY7C1YNQ246t0qiIhvrIVn+
bJAon6mkVEoifOXQYq9ONsx+vXq7r0ASuVsbqJ9/nA0C6yKPpiIl0XWefOD/
THKguYDc3nxSErmZDhoGpeQCqc6H/HOcirLZPccs2nJh/8Pbm7v7qWj8aYeL
6Gou5HIvVDS3UZHrcM2zyBN5YMZQqqKWUNHlR2l4glA+rEjQ4+YeUNHFDres
kusFsG6mP9C2lYryirwpXoqFsHCq8XI6VxwNHvqu66xbCK+U1FRH+sWRdN8R
R/s/CqFpiRZ6+JM48uFXzDa4VQgXltPu+6aII0u7ysNrLYVwZq32DtNeHE3N
8T8I9imCke0pT3U/iiFNw/ClF31voPfV3cITpRR07vOccij+Bt6Zu5s+zKKg
qAvnLO6Ri8HyfmtrC5OClh/rxJ7VLQa7lnR2tjcFNX3t2LOFUQxdyWou0aYU
5OYj655j9Dfw149W9zeIoqzKJHYFswT+HG6zezslghJ7AtQZhSWQGmw3H8MS
QVE4/fKpTyVw6ZpgbUi7CPJW3c6eWSyBvSNjC4XFIoj26PXotlNv4b3ZmSLS
fRE0ZV09Ein7DiYSaGs+0iJoJ2t42Dm6FDxf7vjjylFhtHWhbotuTikMq8z6
Zu8XRhupGRcJtaVgPh2+trJXGPGZXx2OmymFktHIw23KwqgzjTfUdrwMYsUP
COvyhJDXNdKQIfU9BAnmNbbHCaG3q2oDYuHl4GmGOQfPklF2UZ7PgVflIJZS
sttokoziXfXk75WWg9bzmKbFITLy7zpwgjNaDnRegNDzNjKi5dKba8wqIApv
f2CdQ0b9jslv73ArYHwiyjH9EhkR32+KGLKtBBCaKvBkCaJZ91StjW6V8OVz
tbNjtyBiq+9otvavhHPqqzmWrYKoOcpYsDy3EqJi/PIsPggimp6WWTOxCqoi
xsZSEwWRtJhlcZpjFaQLNdQPnRdEGeWP/3IQqwYF6SVz6qQAIjiErtDlqsE3
KJh06rsAclgItb+mVg0X5L05GX0CiLI7jOJvWg3JmmUspxYB5Jnx5G7atWoQ
8Ny9rp0vgEyioo9xP1cDlbvf3OymAOpwSSAEP6mBg0EaC41EAbQiVXi+UKIO
2mrmL23TI6HN7RmPAxXqoMq+00Vfh4TMwxOLbLfVwWaPnWm030kohBxGmjer
A/51zutARRKSXb2caXS9DngVA4Y7BUlo9+gmbm1LHag0vC7w7uFHrm9D/Lof
f4TTr4tW4/350RfH84kr/A0gMZOd9eEbEd0d+/02n0QD+LkNlRn3EpH8TZ4V
Wb4B8B0y5PIuIjoXGrwmtbMBNBiy++qbiYjzLveMxpkGeHPQpoNQRkSrMkvy
p4sbgOQXrCYaS0Rb2yNjSy41gl2tA8fRloi8DtRGeHz8BOT52nzDLj606aN9
lFtNC3QtJxx7OUhAIaMJFk/D2kCiUX+XpiIBmfrof7Dd2gHqCrIlHhPr8P54
iZPKX51QcZV1rzBzDRQWnvY9JHZBl6Rq0KmEVfDj8A1kBX6B8MeuqgbMFVD/
Z29y40o37NWttKC8WYbX4Q2mvo49oF/mreE7vQRmMdMXeD29wOi3enpAawny
3TzO/zTpg4x8k/qnwYugGs5gt3zohxTet8WagQXoy7yiGWPIguuSfjo0iwW4
FZNMw+MG4Hyi7LP8unkQYb9bJIcPwp5gLuYM89A8bmU4DEOgqS18mNU0B1oT
B04bTg/BuOMuCyunOYiiCpl65A3DtAMqPovPAmfzotjsue+wqSchKSRiFpBt
ccpJpREAwhKiac2C0cNOWYP+ESANaN9S6uCBWoLiXXrYKMgUBN255ccDqf49
CTeOsGFAhi6ip8kDLvHPgvo1NnjpsK/QBmfAXV0pOS53DIpik8xl4mZg5kak
/VE3DnCe3d9gfnwGnJN3LlkrjENxgC/dlDoDXxdfOun0jQP58keN0hYckMGe
Nw5PJsBInNRxKAIHCy9tNtFsEobXr3jSTuJg0z3bz1idhMKKAtFvCjhYKXOq
nPKnoK7JZ9SPzQVaRIar9I0fcLNN1Lgjnwvjq43TB3dgUL5iFbHTmwt/Ht9w
qaYfAwVjY2YbjQuiLbvileKnwUX5hZquHBcOx5YP0rdxoVHL6tBIzzT0HpKk
z9/nQqLzF72JB9NwTdjy8NI3LmCRG+szNaZhCRRTkvVxMDcatlvrxX79hu8B
WgY4tJytyIrrwcDmR+aFUkMclPnOaBv8i0F23B6VDhMcXKfe1d/swsBh7shf
hP04eMrW7/7RikFZtnei09Ff+x0L49Ri4C3TE6foisN2fsjjz8dAfSrBO+sK
DpV8ZHZ6LgadNXQHvas4+C7vs6LlYKDhPi1ndR2H+Vdj6ZGZGHxtEmT6eOHg
TukM2vIKAyN/vdg+fxzWrXXGLV9gwLZfue0SiEPf1tMk3nMMorSq7XkPcHBj
2Fgxn2Ew8dVSVvQRDhGJDFd2FAZxepeeGYXjUPZ8tSYwHINDFI1b9U9w2PI8
5IhGGAYzw9N2Nr+8/UiM5usMxX75uCftFo3DWO36nEoIBvOX983OxeBA/07b
0xSMQYopuSvgOQ6DUliSZxAG1tKf34i9wKHIkWWg8BCD5YmoaCbzF98myZ+1
gRj8B2iHs6U=
       "]]},
     Annotation[#, "Charting`Private`Tag$2732709#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVj3k41Hsfhg1Oo1JZJqKELKdGSg6F8BHKvrZJ0iIpYcIQUtlycjDJMras
oSyvtCHU75v3YCyDYYaxhixDxE+Ikl7vH8/1/HFf93U9j/wVir0rPx8fX+B6
/t+x2Jdsi80NkMdVSelhS6GAiX3+hG0NMJHl+U6RKYWkfb9ZEaUboHvvnqEL
5VLI+Z/IX2JqDWDcLneCHCWFeJUlTmSnBuBNFdKU1KTQ6vYV6XNvGiC1PsA7
IHwHUmx/nFx+lQFkn1akrS+J6s+fp9RQGHCpPWbze7IkujGhaFIbxACWj06e
g6QkKl2rWGLGMUCXkyrFnZNAWqqDp8dqGNAT7JX1LU8CWf5DJpG2N8LPQo3o
IFEJRDX+b5x3XSPoDdrv/fcHCfnHN1JdWY1gTekKzuSRUOBQm8O5gUYoJlIJ
cV0kdC+4X+7YYiNUdRJXKl6RUNSbxTIRpSbYl+5qIulBQpmKe1kvIpogm/1H
MT4ijhiCsaJfjZrh2X7r4B1DYqjJPmFx2KYZfuuExca1iyFmdmoP53wzmB2z
d9z5UQx16BbkvPdthm2O1sXXc8XQABU7FPu0GY5+vs8ddBVD86O43X6BFsg+
7p0mOyeKdtWdiXevbYGkcuUUNVFRlDl8UCmB2QLz8Rb2JYKiSG5NqLKa2wKM
C5bXNJdFkMKR6gHh2RbQSxG3pnwSQeRC2X0vdjLhoOGMQEipCDoSy8O+UZlw
bprzRtBGBNmfDpoJ/rMVFOJ25Ourb0MPxzJMH8W0QQ26VK/1RBix5T0L7ye3
gVG+s6FGlDCSc9bddCu3DTKWGrnH/IVRRVdvs21lG5C8uEvxtsJovEHSRmy0
DXaJd3tu2iCM9nAYRU0y7WA6dcBXh7oZhVQYvrTya4efv2+lEi9sQnrBhz+c
VGSBXUD7W6KTEIq/U7NgSGbBHfIzRoaFEOIFGaqoq7Hge7i8t9FRIZQYaJ0i
osuCLb8c1N9LC6Fp/2s+zJMscOD5mF7vJaIn3nRlk3AWHKIRaqOdiGj12hJN
Z4QFq8a2+yNvbkDVduUX5bM7oKTXrIpeJohsK/NnivI7QNZ9JMQ1TxCN7066
o1G8zrWdtfRTBJHotG+ySXkHbJX7ZLUlRBC5RR5q82zpAL/JyGE5W0EkXl2i
X7XcAf2zBnakeQF0U/GpzEm7Tpi6+uruqK4A2vn9UV8EPxuc65tCJKcJaOhD
BuWBEBtkRQQK9IYJqCCyWCByKxtet4VXenQRkLpEg8rf0mw47kq9O4YIyFRz
7U6UOhtqc5CPAZ2AqL4eu2hX2BBgxk5KMCQg5qzpheRaNrSG5rZ45vCh+zzC
p8IwDqyYS6soTa9hZLTJkfaQA8N57lDau4axk8U5PjQOJHmr+xk3rnMTpeaj
aRxoradvSylY5/mmFcyXHPiDcj+m9/Iattfl0SN8iAPM2T7jj72/sI6BXQba
0AWNHldW3nNWMeXOIzmMn11Q/uN4KG/mB1YW26B39zwX4izd6lKbvmP6ibOX
v3F7oPtteXf02AJW6u596bduHzibqz7qSJzHFGKjx1s+9AP1VRJ+yn0O63t+
QyVRexCUOsX0JZRnML/EHHM87RMo75HrsVaYwjaNVy4TY4dg8twOz0XDCax5
0kp7BIaBfvWEW8rIKKY6ZXxOe3YYat4pXqcxR7B4ESE97/+MwNuywVdnGEMY
b/fylgXnz6BKXGXFHhjEDE6+yT0rOwr1D8rdood7MZ2IDgmt/lGIMPOcS1zq
xpQyZAJcYsagOtTIJPAeBxPr18igWIzDRsYV619bO7E5/sAX9b/GgZFsS49a
bcduKcvmpJVMgKeq78Kqfis2T3l8xsadB4HiC69To5ow1xy1Feudk+D2JSaZ
4NSA9S6nXzzYNwnmhs5Pw9X+xQy0NF470qZAu+D8/Fn/j5gp9cA4v/4X2Jfv
VRq1/B6z71roj179AoONQ2EKvysxKzkeulg6De51/Jzyl28w87hn10mUGQjz
4Ob95VyGTa4yZo/v/wp1XIOFPf3PsUA7yau1/V9B+XR+kZ5gLra55dAT2Sez
cLhVS9tOnY6ZJNcMufw5Bx9vH8MdzCKwnhOiLkv35iB1l4jXxgor8NxoabIy
MAe826N97Q4PYQVkcnMO45BmIX3oPh8dCiQ+h6pq4VDyrvoLnwod7GeeX36n
jcNf8nsH/E/ToShNQ56li8PthAQqFNHBcdEim88Ih3afsnGjk8lQVRSUedEG
B59IfUeZpykQtJ2bJnMdhwemVUcO6KSD8nRGUOENHHypz8L1XdKho9bFUfMm
DjayryOMYtKBfGtWysoLB3mH0Lcqg+nQ27QhNZiKg8fj3Xp+oU9AJ0QzuS8E
hxUeaM3VZcD4mZ/+bmE4jPH8sqy+ZkC86scz38JxyGy5u5wlkQlTvZYSm//G
oSBkmabglglpmleTdGJxoOUvvS0gZsEJYbJfPW3d5yiQSg5mwfzI7Cn7uPV/
9aOhBWezwDzuDsk9YX2f+Vha0LMsWLp2bGExEQfpV2FWp9qyIFePyA6l4/Ah
grJb4XsWWJOYr7ek4NB3o/ih77Zs+DEVn5CaisNXcZxkq5AN/wPrpOLw
       "]]},
     Annotation[#, "Charting`Private`Tag$2732709#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, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1.1}, {-6.45786130683533, 6.443767412318215}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.835336340800181*^9},
 CellLabel->
  "Out[896]=",ExpressionUUID->"fd664b09-fd0e-4267-ab05-e28ab19799cb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Alpha]", "\[Rule]", "1.029150262212918`"}], "}"}]], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.835336340839718*^9},
 CellLabel->
  "Out[897]=",ExpressionUUID->"1281d45f-88d9-4ecf-96a0-84938565187c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9857359723056021`", ",", 
   RowBox[{"-", "3.0450399732371847`*^-17"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.835336341121004*^9},
 CellLabel->
  "Out[899]=",ExpressionUUID->"f6f6be32-791f-460b-84ed-b0e30b1fd908"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9857359723056021`", ",", "0.0009226452461408982`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.835336341310728*^9},
 CellLabel->
  "Out[900]=",ExpressionUUID->"e4de6977-21fd-4d5a-ba21-bd3d4f62c333"],

Cell[BoxData["0.9861363814338965`"], "Output",
 CellChangeTimes->{{3.835268168033156*^9, 3.83526822081784*^9}, 
   3.83526858670695*^9, 3.83526870387061*^9, 3.835268750634907*^9, 
   3.8352691459929047`*^9, 3.835269183132395*^9, 3.835269289209302*^9, 
   3.8352693739655113`*^9, 3.83526943033919*^9, {3.835269502626791*^9, 
   3.8352695771032457`*^9}, 3.835269616162619*^9, 3.835269658933799*^9, 
   3.835270589055272*^9, 3.835318044162678*^9, 3.835318084977598*^9, {
   3.835318149091358*^9, 3.835318174095454*^9}, 3.835318250966961*^9, 
   3.835318281508965*^9, 3.8353222613830757`*^9, {3.8353223006876574`*^9, 
   3.835322326702302*^9}, 3.835322494091251*^9, 3.835322663330463*^9, 
   3.8353228854283648`*^9, 3.835322923991886*^9, 3.835323000140444*^9, 
   3.8353230560159473`*^9, 3.835336341314033*^9},
 CellLabel->
  "Out[901]=",ExpressionUUID->"fb487a55-9272-4c86-ab3c-ec18d99a52d9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"opt", "[", 
   RowBox[{"g_", ",", "nmax_", ",", 
    RowBox[{"printfac_", ":", "0"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Alpha]", ",", "\[Alpha]val", ",", "\[Delta]", ",", "lastcoef", ",", 
      " ", "fac"}], "}"}], ",", 
    RowBox[{
     RowBox[{"lastcoef", "=", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[Alpha]"}], " ", 
           RowBox[{
            RowBox[{"z", "^", "2"}], "/", "2"}]}], "]"}], 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Alpha]", "-", "1"}], ")"}], " ", 
              RowBox[{
               RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
             RowBox[{"g", " ", 
              RowBox[{
               RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}], "^", "nmax"}], 
          " ", "/", " ", 
          RowBox[{"Factorial", "[", "nmax", "]"}]}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"fac", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"lastcoef", "\[Equal]", "0"}], ",", "\[Alpha]", ",", " ", 
         "Reals"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"printfac", "\[NotEqual]", "0"}], ",", 
       RowBox[{"Print", "[", 
        RowBox[{"{", 
         RowBox[{"g", ",", "nmax", ",", "fac"}], "}"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Alpha]val", " ", "=", " ", 
      RowBox[{"\[Alpha]", "/.", "fac"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
        RowBox[{"Integrate", "[", 
         RowBox[{
          RowBox[{"Limit", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"Exp", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[Alpha]val"}], " ", 
                  RowBox[{
                   RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "+", " ", 
                 RowBox[{"\[Delta]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]val", "-", "1"}], ")"}], " ", 
                    RowBox[{
                    RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
                    RowBox[{"g", " ", 
                    RowBox[{
                    RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}],
                ",", " ", 
               RowBox[{"{", 
                RowBox[{"\[Delta]", ",", "n"}], "}"}]}], "]"}], " ", "/", " ", 
             RowBox[{"Factorial", "[", "n", "]"}]}], ",", " ", 
            RowBox[{"\[Delta]", "\[Rule]", "0"}]}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"z", ",", 
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
         "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", " ", "0", ",", " ", "nmax"}], "}"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.835269784204445*^9, 3.8352699478259087`*^9}, {
   3.8352699784187403`*^9, 3.8352699956583853`*^9}, 3.8352700274124413`*^9, {
   3.835270114406987*^9, 3.835270127902237*^9}, {3.835270272138941*^9, 
   3.8352702949539003`*^9}, {3.835270448895872*^9, 3.8352704563741426`*^9}, {
   3.835270653109502*^9, 3.835270722885592*^9}, {3.8352707829599743`*^9, 
   3.835270789247189*^9}, {3.835270836425231*^9, 3.835270859568769*^9}, {
   3.835270994389861*^9, 3.835271002212421*^9}, {3.8352760079883966`*^9, 
   3.8352760450299*^9}, {3.835316664952063*^9, 3.83531677699271*^9}, {
   3.83531777794851*^9, 3.835317791043313*^9}, {3.835317960889642*^9, 
   3.835317962922481*^9}, {3.835319041750618*^9, 3.835319042452731*^9}, {
   3.835333330158849*^9, 3.835333363254195*^9}},
 CellLabel->
  "In[834]:=",ExpressionUUID->"551e7daa-6820-4663-8256-cf90e814029c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"opt", "[", 
  RowBox[{"0.02", ",", "3", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.835270473223981*^9, 3.8352704771657963`*^9}, {
  3.8352760482291307`*^9, 3.835276048980619*^9}, {3.8353167871046667`*^9, 
  3.835316787255803*^9}, {3.8353183336503696`*^9, 3.835318334224698*^9}, {
  3.835319045268992*^9, 3.8353190461398582`*^9}},
 CellLabel->
  "In[835]:=",ExpressionUUID->"cce7978c-2392-4fed-b880-4ec4f28bf9d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.02`", ",", "3", ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]$1747483", "\[Rule]", "1.076914586864676`"}], "}"}]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.8353167926876373`*^9, {3.835317789054635*^9, 3.835317797825213*^9}, 
   3.835318005368935*^9, {3.8353183277802*^9, 3.8353183400518293`*^9}, 
   3.835319074297612*^9, 3.835319155565234*^9, 3.835333374875606*^9, 
   3.835333451866212*^9},
 CellLabel->
  "During evaluation of \
In[835]:=",ExpressionUUID->"9589fbfc-81d3-424d-a60c-b5019b35a6ff"],

Cell[BoxData["0.9861344683039575`"], "Output",
 CellChangeTimes->{
  3.83527050702137*^9, 3.835270578286304*^9, 3.835270649772339*^9, 
   3.835270730406588*^9, {3.835270798164784*^9, 3.835270812094829*^9}, {
   3.835270847294179*^9, 3.8352708681795177`*^9}, 3.835271014669677*^9, 
   3.835271100500288*^9, 3.835275387907833*^9, 3.8352760545715733`*^9, 
   3.835316731514431*^9, {3.8353167863729486`*^9, 3.835316792939025*^9}, {
   3.835317789314168*^9, 3.835317798087492*^9}, 3.835318005633202*^9, {
   3.835318328037718*^9, 3.835318340578443*^9}, 3.835319074884362*^9, 
   3.835319156158814*^9, 3.835333375526968*^9, 3.835333452411442*^9},
 CellLabel->
  "Out[835]=",ExpressionUUID->"4078f287-2c48-4d2c-a6a2-476e49407c74"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ParallelTable", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gval", ",", 
     RowBox[{"opt", "[", 
      RowBox[{"gval", ",", "1"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"gval", ",", " ", "0.02", ",", " ", "1", ",", " ", "0.1"}], 
    "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "%", "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"g", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.835269703061048*^9, 3.835269777956901*^9}, {
  3.835270009706327*^9, 3.835270083811468*^9}, {3.8352702089696302`*^9, 
  3.8352702091905746`*^9}, {3.835270304987412*^9, 3.83527030524128*^9}, {
  3.8352708958098707`*^9, 3.835270965307015*^9}, {3.83527105461514*^9, 
  3.8352710575333147`*^9}, {3.835275435222041*^9, 3.835275510542453*^9}, {
  3.835275544656724*^9, 3.835275549327368*^9}, {3.8353190720778418`*^9, 
  3.83531907329329*^9}},
 CellLabel->
  "In[836]:=",ExpressionUUID->"1d4f778e-d5ce-497f-9d7c-7a2a78f26a63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.02`", ",", "0.9857359723056021`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.12000000000000001`", ",", "0.9301847260690871`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.22`", ",", "0.8903137182636562`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.32`", ",", "0.8592637043468199`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.42000000000000004`", ",", "0.8338885312100343`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.52`", ",", "0.8124741861849835`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6200000000000001`", ",", "0.7939814257463021`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7200000000000001`", ",", "0.7777318991233179`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8200000000000001`", ",", "0.7632581562332768`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.92`", ",", "0.7502243787454766`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.835275559837226*^9, 3.835276071336515*^9, 
  3.835319175631741*^9, 3.835333470855854*^9},
 CellLabel->
  "Out[836]=",ExpressionUUID->"d47b32f0-6e85-4035-94d3-b778240a7b90"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0.02, 0.9857359723056021}, {0.12000000000000001`, 
      0.9301847260690871}, {0.22, 0.8903137182636562}, {0.32, 
      0.8592637043468199}, {0.42000000000000004`, 0.8338885312100343}, {0.52, 
      0.8124741861849835}, {0.6200000000000001, 0.7939814257463021}, {
      0.7200000000000001, 0.7777318991233179}, {0.8200000000000001, 
      0.7632581562332768}, {0.92, 0.7502243787454766}}]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Hs81Pkex3GDNrHJaNWOpVmXkUupbdWxlfOutNikDW1Y16XVsmeVjkr2
lEaGlGRriqII3czWTJlRG3KbVB5JoYNiMBz9fnPxzVmDLtjf/vF9fB7Pvz7f
7/ePl030roAf9fX09KKZ8/dcLDLMTxx3xAj/6jGv3kEYelru7uO4IcAizH3R
NMGXRfmFFZyNiOR113t8IBiysufvd9gCc/Hj3yLeEfi2dN6+wNmG9bPqLx+e
JLDPtr48ww3B4YTQ96XjBB82xeT94BCBVOKR+2iMIGjHRM0pzg5MNZ9LsBgl
kHta3mksjEUjJ7PCgxAst/OQjHHjEDKnzHWnlsBImVay3SEBC8Si+zU0Qe+y
TM8TnCSwJ32NDygJhEWf1vFC92LvtS55eT/Bpnnla+8X7gPvbWtZr4KgcuTJ
SsI9gMYzi1q8XhHk3DB39Hc4hHdfH8xy6CAotvg24xgnHWvyZQssmwh+bcmT
b7+XjqRkG59wOcF2Qb++XagAkhJu2qUGgo91ialVhRlofP7dnKW1BMkdwmQN
NwtHlBvct94l8D/9Mn6LQw5M7gQ3Pign4BtVLM7iCBFhcf5uTC6Bs/dvR2/v
FsJn7TP/khyCNsEu+tVDIUhQp3Ygm/k/gyUi131n0B6Q4Lgji6Bpqsy1o+0s
YkOXpSalMfv/PLuSm30OlvXJKY1JBPm9KZ6y6Yvw6iOn2N8TBIdcEr8ZLUOK
maTbdTGByQw/zHuRGDO/nHlQ2zoCnv8I1Xhcih+opvcK/gj2P/0K+WN/wHW+
pCvZbQQLpWwFi1ULXlxmTu2oFpVKzyetaxtwXZJYf+imFg3xFz4L0cjxKMrG
5+VuLXQOHvNu/PIQHVvDXtet1kL/rcjsM14zBqKCj4cYaLFqJqoy8OYTJOem
GIe0afAk3e1pk3Mramf5WeWXacDNVb+9PvIM4tmSuA17NVBP9CleLG/Dm42D
rHm+GpSpqppNc9rRbWtKe3I1MLW+SoaGOnDVrujP+eNqZMfJYovt/wtd05fZ
vOdqjK8TDf2U2onwzeeKheVqJK2QSxc0dqGpxzVqIFONvpvy489tXkJuzNqS
F6PG+/iOAqeUV3hknRG7Yr0aLutnT8dW9WDtp+H37WzV8C6x2XlroQJR35gd
Smepsd860nYgrA+TooVxHwZVWKL5zqTTrx+iwZVzXz5UYf68N0byd/2w9x3N
/qJcBcPaArFd4QAi79n7+ZxU4We3qu45vkqExH10/vUeFUTfRBffH1ciTGzN
aglSQae2NBs+O4iLU05sJ6ggC/Q2EG4cgmOCsYslT4VUH0GRdHgIt0yk9yLm
qmDTu6mrVPA/TCZZZZSM01j9j3QhZ8UwLCJ1E5kKGmGLWt+y2odhFeglz35E
Q9d8Qrmb/xpsZeysdbdo5BtGJAXYU/i1WbBwsoDGfIWsRF9O4VtzfuTRTBqz
DvK3fZVIIz5m+KN2ZupdjxArzVXYNSZb8y6cxp7z4hPmDSrUVBxxee1Do8bl
qBE7QQ2jfcPOJW402Jv2LEkz1UCW9rX7AlsaPUuftR+o1sB5Oe0QakpDchH2
QxFaHKR5P3t/oBAuXsW2ntYikDx2VKgoHBZc4veUj0BT6ua2tYvCDcq6wHQz
gVOY/jO/hxSOXhBEKbYQpBtUHtFnvCNAy7vpT3DbxdzjThMFq+pqiV8QQf21
urrPGR87GdqUHU0gNeozGWPe+dOqc6PGB5gund4pKWigYJv+ic/sKwTsTwaX
kBoK0+7/mdt5jUD34mNhGeNu7WDbFRHB5gdyve8Z5wZVhHvdIpjWvlLJqynM
OAf8W1BNoKrJZRVUUeh5fvKiQTtBaFGku88fFO5mTMS0vyBw9zWZnLpLQbgm
0qm0i2DZOveaCsa+l12lG5hu8dvMg7mM7yW3POYz3Qv+p7R1vJLC2aUrT/pr
mPt2Blb9zjhRWbjNhunm6uCE36MZO27+V18d09moIbOipzIKhqyOstwJgriQ
vOJ0xv2yNfFRTLfVWWeurmZcHV+6bPkUwQaRsfSNlEIe10Q3M0Og+L/uwRXG
fwFcOiiK
        "]]},
      Annotation[#, "Charting`Private`Tag$1756076#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.73714040132547},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.92}, {0.73714040132547, 0.9857359723056021}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.835275559837226*^9, 3.835276071336515*^9, 
  3.835319175631741*^9, 3.835333470930614*^9},
 CellLabel->
  "Out[837]=",ExpressionUUID->"9e8c5bf2-9b3c-495c-bd07-b4173b9508c9"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"ParallelTable", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gval", ",", 
     RowBox[{"opt", "[", 
      RowBox[{"gval", ",", "3"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"gval", ",", " ", "1", ",", " ", "20"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "%", "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"g", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.835271384352219*^9, 3.835271392543894*^9}, {
  3.8353190813504143`*^9, 
  3.835319082261939*^9}},ExpressionUUID->"212ef46f-54c8-4a4c-9538-\
649dc562f18c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nmax", " ", "=", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"optlist1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.02`", ",", "0.9861344683039575`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.04`", ",", "0.9740327626833248`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.06`", ",", "0.9632110717222165`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.08`", ",", "0.9533803627561077`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.1`", ",", "0.9443491363705213`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.12000000000000001`", ",", "0.935981625744258`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.14`", ",", "0.928176889885563`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.16`", ",", "0.9208571929232434`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.18`", ",", "0.9139610243976898`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.2`", ",", "0.9074386517161251`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.22`", ",", "0.9012491512877909`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.24`", ",", "0.895358351099655`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.26`", ",", "0.8897373603357869`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.28`", ",", "0.8843614911191879`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.30000000000000004`", ",", "0.8792094503209528`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.32000000000000006`", ",", "0.8742627222936661`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.34`", ",", "0.8695050896530963`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.36000000000000004`", ",", "0.8649222558546282`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.38`", ",", "0.8605015441385613`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.4`", ",", "0.8562316546526988`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.42`", ",", "0.8521024665037745`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.44`", ",", "0.8481048749349899`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.46`", ",", "0.8442306562722449`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.48000000000000004`", ",", "0.8404723550452172`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.5`", ",", "0.8368231889800783`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.52`", ",", "0.833276968517791`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.54`", ",", "0.8298280282304905`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.56`", ",", "0.8264711680539159`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.5800000000000001`", ",", "0.8232016026722351`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.6000000000000001`", ",", "0.8200149177155558`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.62`", ",", "0.8169070316834769`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.64`", ",", "0.8138741627073507`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.66`", ",", "0.8109127994221162`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.6799999999999999`", ",", "0.8080196753450115`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.7000000000000001`", ",", "0.8051917462602327`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.7200000000000001`", ",", "0.8024261701910174`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.7400000000000001`", ",", "0.7997202896077519`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.76`", ",", "0.7970716155757074`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.78`", ",", "0.7944778135912884`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.8`", ",", "0.7919366908931653`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.8200000000000001`", ",", "0.7894461850658362`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.8400000000000001`", ",", "0.7870043537791933`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.86`", ",", "0.7846093655295189`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.88`", ",", "0.7822594912657338`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.9`", ",", "0.779953096800274`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.9199999999999999`", ",", "0.7776886359171816`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.9400000000000001`", ",", "0.77546464410124`"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0.9600000000000001`", ",", "0.7732797328215897`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.9800000000000001`", ",", "0.7711325843115113`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"1.`", ",", "0.7690219467931384`"}], "}"}]}], "}"}]}], ";"}]}]],\
 "Input",
 CellChangeTimes->{{3.835273142671607*^9, 3.8352731530080423`*^9}, {
  3.835275343786673*^9, 3.83527535545892*^9}, {3.835319090118897*^9, 
  3.8353190915984297`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"45193b28-4084-41f8-9abf-694974c1d8d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nmax", " ", "=", " ", "3"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"optlist2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0.7690219467931383`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "0.6934194564149146`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "0.6475885614156349`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "0.6150099251296464`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "0.589922130723625`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "0.5696351699353551`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "0.5526775759370567`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "0.5381583006917874`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "0.5254978214385961`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "0.5142986475769007`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", "0.5042766729619094`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"12", ",", "0.4952220338003639`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"13", ",", "0.48697547278902853`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"14", ",", "0.47941338833949376`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"15", ",", "0.4724380071679842`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"16", ",", "0.4659707122295267`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"17", ",", "0.4599473860133505`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"18", ",", "0.4543150818862879`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"19", ",", "0.4490295945800399`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"20", ",", "0.44405365404042985`"}], "}"}]}], "}"}]}], ";"}]}]],\
 "Input",
 CellChangeTimes->{{3.8352731582389193`*^9, 3.835273162376109*^9}, 
   3.835273197017918*^9, {3.8352753141790733`*^9, 3.83527533176184*^9}, {
   3.835319094182047*^9, 3.835319095182279*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"8eeb7c63-6d42-4c40-a4ef-fa5eb475c951"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Show", "[", 
  RowBox[{
   TemplateBox[{
     GraphicsBox[{{{{}, {}, 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwd1Hs81Xccx3GHWmLJ0WjH6MzlmEupNTWr7F2pWNJCC7mOprFNl6lkKx05
ZElWpyiK0M1ZnVPO0QW5nVQeSaGhdHCYfr9z8c3moAv2276Px/fxeTz/+l7+
eNlEbfP/Tl9PTy+K2f/N1Y0W+rWOrtD7f1GY4mm5vZvjBn/zUPc5EwSfFeTm
l3FWIYLXWevxjqDfyp6/x2E9zMQPfg9/Q+DT1H79DGcjVkytPX9gjMA+0/r8
JDcYB+JD3haPELxbG53zrUM4kolH9v1hgsAto1XHOFsw3ngq3nyIQO5peaM+
Pwb1nPQyD0KwwM5DMsyNRfD0EtetWgJDZUrRJod4WIhFd6poghfz0z2PcBLA
HvMx2qskEBZ8WMML2YVdlzrkpT0Ea2eWLruTvxu8180lLxQE5YMPFxHuXtSf
mNO05jlB1hUzRz+H/Xizel+GQxtBofnXab9xUrE0V2Zh2UDwS1OOfNPtVCQk
2niHyQk2CXr07UIEkBRxU87VEbyv25FckZ+G+iffTJ9XTZDYJkzUcDNwULnS
fcNNAr/jz+LWO2TB+EZQ/d1SAr5h2ScZHCHCzU/fjM4mcPb6/dD17UJ4L3vs
V5RF0CLYRj+/JwQJbNf2ZjL/ZzBX5Lr7BFr94x23ZBA0jJe4trWcREzI/OSE
FOb8f04u4maegmVtYlJ9AkHuiyRP2cRZrOkmx9ibCYKCz4lfDZUgyVTS6foJ
gfEkP9RrjhiTP524W908CJ7fIFV/WIpvqYa3Cv4g9jz6ArnDt+A6S9KR6DaI
2VK2gsWqBi82Pat6SItypefD5mV1uCzZUbv/qhZ1cWc+CtbIcT/SxvvZdi10
Dh4zr/x0D20bQl/WLNFC/7XI9CNeI3ojgw4HG2ixeDKyPODqQyRmJxkFt2jw
MNXtUYNzM6qn+lrllmjAzVa/vjz4GOJpktiVuzRQj3Yrni5owatVfayZPhqU
qCoaTbJa0WlrQntyNTCxvkj6+9tw0a7gn1kjamTGymIK7f+EruGzTN4TNUaW
i/q/T25H2LpThcJSNRIWyqUW9R1o6HKN7E1Xo/uq/PATm2eQG7HW50Sr8Tau
Lc8p6TnuW6fFLFyhhsuKaRMxFV1Y9mHYHTtbNbyKbLZem61A5Fem+1NZauyx
jrDtDe3GmGh27Ls+FeZqvjFu9+2BqG/RjGf3VJg185Wh/E0P7H2GMj8tVWFK
dZ7YLr8XEbftfb2PqvCDW0XndB8lgmPfO/1ypwqir6IK74woESq2ZjUFqqBT
W5oOnOzD2XEnthNUkAV4GQhX9cMx3sjFkqdCsregQDrQj2vG0tvhM1SwebG2
o1jwF8YSrNKKRmgs+TxVyFk4APMI3Wi6gkbonObXrNYBWAWskWfep6FrPKLc
zn8JtjJm6vJrNHKnhCf421P4pVEweyyPxiyFrEhfTuFrM37EoXQaU/fxN36x
g0Zc9MB7rczUuxwuVpqpsG1YtvRNGI2dp8VHzOpUqCo76PLSm0aVyyFDdrwa
hrsHnIvcaLDX7pybYqKBLGW1u4Utja55j1v3VmrgvIB2CDGhITkL+/5wLfbR
vB+83lEIEy9mW09oEUAeOCpUFA4IzvG7SgehKXZz29BB4QplnWeyjsApVP+x
7z0Kh84IIhXrCVINyg/qM97ir+Vd9SO47mLmcaOBglVlpcQ3kKD2Uk3Nx4x/
OxrSkBlFIDXsNh5m3vn94lNDRnuZLh3fKsmro2Cb+oH3tAsE7A/65pIqChPu
v85ov0Sge/q+sIRxp7av5YKIYN1dud5mxtmBZWFrrhFMaJ+r5JUUJp39fxZU
Eqiqsll5FRS6nhw9a9BKEFIQ4e59i8LNtNHo1qcE7j7GY+M3KQiXRjgVdxDM
X+5eVcbY57yrdCXTLX6LWRCX8e3Epgd8pntBX0qbR8opnJy36Kifhrlve0DF
H4x3KPM32jDdXBIU/0cUY8d1P3bXMJ2N7DcteCRjes5qK8keJYgNzilMZdwj
WxoXyXRbnXHi4hLGlXHF8xeME6wUGUlfSSnkcI11k5MEir91dy8w/hcHziQN

            "]]}, Annotation[#, "Charting`Private`Tag$18718#1"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwd1Hs41FkYB/ApMaJNKexIaBKJXHKtVV8Zl1xrN2LcVoyKCrWxldiailQk
FFLGbcyYi0R0sdZlH11QSmFJZhNK6TkUK+myv93zPOc5z+e/877v+Z5lodE/
hc+m0Wje1P7vdAt//bhhxGdDne+9qW/fCOawNGNkDEv4qAXaan8lsODlXK5i
OCJoRU/j+s8E7g+6K68wvGEv38g/+pHAlzNVl8HgYLolN0ptnOC5aTIrlXEA
EzPuSocGCArUNiedZpxABuORuuYdgmOKVQYpjCxwFRHESSdY5XL+VGVMFqJV
wtWL0wg6TkaPPLubhS1+vd0DZwn05IzFJnEX0GVnuS88heDOlxKTpx0X8epd
04c4LsG8DxetdM7mQtTRzW09QJDz/DCr+ms+rpskRHn5E2zUYpf0+/CQVjDD
rPQjeONvI68o5WGULz6i4UugPXooTLq6ALu+LY98tZUgOsJ6Ba2vAD5+9tn5
ngSqnKtCvm0RWka2p5zYSLDjuDZ7HacISl0DySr2BLVFqXPbzxVhjatTQP4G
As6L3ZEfh4swwqHF3/uBoDp4pbH7hWIU9Bsd2mZNoJSY3SdrKIYcR1VGtyII
vqKQemC0GF9ylc7VWxAo9A2+u8IqQcLrJbEscwI/duHVsfESHJzCcZExAXnm
rVSkycenUOeXEiOCpGDF8K0sPqQ0OeebqwiqwqI1a7L4mPVExWF0JYHbMDN2
Zx0fHT47FdQp/72rq/37YT4uypz03A0I5ketPxlvUwpTVSNm7woC/tiYzDik
FIvpbQesKNv9UrKu/1QpbtCV6Tw9gieTvhfOXSuF8yJliQblyIPKY/a9pZgZ
1XEoWE4wa+YPt/ezBdDV2Fy1lnJOwn5+sZEAo7zOyUEmgQlNn+bjLcD0YOW8
YsrN3B5/hQQB/txvqxhLOVA+tfoGX4D7+jyFQMrvk+0XRDwUwLq20JJNOUVp
IlJzSoB9g1oP91LWTRU0t+oI4WFYrZ1H+YZKgG7CJiHqeVzuAGWvjPnxJvuE
aL/ZtMOJus/Q4qZOWa4QDi7pbs2Uj2THmp1vEqLqXWF9GFXPIk3DMw5vhQhZ
prKbSdUvutw39GFRGYzGlijI6RPY66Tb8+3KoHJL+Wc61b/uQlbetvAypNBn
2OZUf6P0pibpaWV409QwzjWk8iQQbblVUwbPwS7br9R88gyDxZGyMigNu/nz
qXmukSxU0FIUwWNZzaXDJgT3TZpDHpiJIL95A/uoGUHItYO1iWwRLoXmL7i1
huAfC2N1M64IzZM2fgbU+0mtkcW8EInATlw99MCGysvazNaMJyLYJZ88c3Ud
we1aZ33HzyKUGviifT3B6wbps1JPMQIFYS6djgS/sbZb+8WJ8bzOyrRpE4H6
ncXn5/LEkHP19PrkQSDZdO/t7btiZFvKeRz7kYDVGu+8Z0yMRlbelP82gl5P
08KlDAkY9JuuZwIIYh4NzDzcKIH5gt5w9e0E+Z2u18wzJbju0RHhtZfAyu+L
8staCbycliTMofLa1luxI2tQAtWUgusG8QShQZxGp++kWL3FlVlH5XtapqE1
ZSVFTcbjeS2nCdJDW+OEwVLYNvPGt2YS6A8lPmYnS9GjK0wKuUzg/WYo6fe/
pGhTqaxnVBC83ZP7Yu+scuwPYH7uuE3AJR52OqvK8aji6dKV1H9UMVE1fiy+
HC2q0wub+glcft3pYVFSDi3/3ky1UYL+aU3BYFs5etK4wcxPBEGOERM5feWg
/b/G8C9NkYlI
            "]]}, 
          Annotation[#, "Charting`Private`Tag$18718#2"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwd1Hs01Pkfx3GX/NblF1Fqxxpz5BJdUIttK+e1NUU/2n5LpQsNP2Tb6dcs
rVzaSqxxKWFFKN2Ydu04mchtQ5PMj7LkWi5hNE32O9dPdkk3/L67n3M+53Me
/3w+5/P+42kb9m3AIT0dHZ0wev91bmlfqtfs5AKdvxeFBWyrKCnDHYGWwett
5gg+vVZYfIexFRyHoWavDwRya/ukOMedWCJ69CPnHYFf50DVFcZufGHQfPPM
GwL7TObNedZ+pPKC3pe+JvjgG17wH0cOEolXzsMpgr0RM025jAjMtBfxLCcJ
JGyrupbiSDQz0u54EQI3O6/bU6xvEGIkcPlaQ2AoSy4JdOTBWFR+r0lBMOqa
xj7PiIHzGz/jBBlB3rWP7zsEHcf5skGJcJzA10y46V5xLNzfdglGxwhqtR0e
hJWA7nybTu9nBFm3LJz8HU/D2PtUhmM/wXXLf6eeZaQgqLBmqVUrwfedBZLA
uym4EG+7/aCEIJA/rmcXxEd3CSv5xgOCf05HJzYUp+JFzx6jNWKC+P68eDUr
A09kW9Z/VU/gf2GYu9MxC611+1r+JyRIMryzIoORhyXWl+rDcwhW+vyYXhWV
hyl2t39JFkEv/1vFs7Y83A4d0DzPpOenv7rcJTYfThyeU0QGQeuswKW/9yKo
o66JMcn0+39e9GBlFkGujT/REkNQOHqCXTN3FftEr3LNDxDs239D9GpSgGM1
dUMuKwhM5pOCfWxEsOQatYq7tHDw11It56pRL4icG0vSIu7x5yic+hURRdYv
4t21WFZtPqarK8bm05eE4kkNamXsjq5ND5B9ZFY/sUKDB9wrn+xXS3Cu7mXn
cJQG045eZreOtmEiwKi7eYMGem/LF33i0I6e+kMWQfoaeM6H1u6q6IDkZUxo
UK8aHSnuj1tXdmH2VFriZYEarBzV21+03WALmNt8jquhmpGOPXHrhefa4wWW
fmoIlA3tpll9CGyz6NjBUsOU+TORy/vhz2y7wHqtQuY3NZHX7Z9ig0ufm3uP
Cq+/KJcfThxA6sl+y5+FKsSsk1QvbRnEY8+9ZCZNBWmF5FyP7TCO95lrq8JV
eM/tv+x84hlWpD0u27VZhVWbP5qLbBiBwcABqe9yFXxKbL+uXDYGa+uPK6p0
VYhjhix/HixFLfvMyFq5EqvVe0wGvhxHxtCebcseKrHY7JWh5N04Fj+veBUn
VGKB+LLIrvg5DkSqpguylTji3jBk5CfDqZxFjC3fKVH+r7Dr917LUHaw5c91
+5SYVlktmrj4AmVZUbxLUKJml49+3lY5vuqL/7XQQYnE7fxr1RNy2Nb+wFEu
VMJ21HewlP8S7ys2122cUWDDZyl5jHUTKBW6idykCgTbdL3V7ZvAFPNN49ZH
Cky3n5dFJf0Ok6d6YUZVChQu4MQE2FOY2GWW0FuswOKxmhI9CYXc9Py1MekK
GJxK2v15tALeqZVFvccU0PmFI5JZKHG0quMfC0MUOHZJdN7igRKDXk43zXwV
aFqVbmjOU4H7obR93EMBc99jq5NN1YgO79/GtVNgZE13X0KjGu+Mgr3bzBS4
fRX2co4GwRuX/NY+S+GgyNOcOaeB+H6maYKawhn+jaQRoRbOOVqewTCFWxTz
sukOAru15RzrRxTSr/BDx3bSHTG24fc8pBARoHGo8CfYJPWpTKVt3dh4+8u9
BHG2TVaTbRTOZge1ZoYRlFQtXdfaSuGwZ9GkcQLBYelv0dH0v5enLNn+0U8E
+fdjXTvEFObWn1w4UEagt8rFJJn2kOZF70/lBNWuyerPaOfsvXPQu5LA+OEH
cek9CvMrA77jNxI8Pe0g/L6JwkhP9lX9PgIfbfbZ1Q0U6lNnwvueEJSNisSy
uxTyNoY4lw4SeJwMeVdI2++mS/UWulvsXO4ZA9p34zsfJdHdG25gdI3VU7i4
xiPbX03AbLrulk87Wla825buptqwssCPttOO/0rv05391J8bW19H91y3X5Az
Q1BUa67l0R6v2cgNpbvNW48jDrQbuaWubrMEuSZ/aJ7VUihgmUzPz9P3H3KO
zaX9f1dnKgU=
            "]]}, 
          Annotation[#, "Charting`Private`Tag$18718#3"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwV1H0w1HkcB3ArhrhIHppVNCoXKroOJfTuKJyHaygjeciJrhNKZ0ZuUm2H
lLTqXHQoT7kkNqFxeYw9yijJ417ysDb299tdXzvR4mLv1x+f+czrj/fM5/PP
2yz8tF+kqoqKig8zX7ZnpLinhfLf2xzwQqFUEqi5Gp8ZZdvC3zB4t+kywbf3
cvKq2fsRYi547vyZwOvV4JN89mHsU39+/9I8QUCEovEWOwILnXdiDeUE722u
uGaw42Ew76WVKCQoMDyYeo2dDI38WiPjdgKOZvWWq+ws0NFFdcczCY4EFvJm
5CXYv/6c0HoLgbaSE+xuysNY6ZJjS/c0zH2nxW3pNXgRbXp8nDONhNcOyJn9
G+3qT2I4ttNYW6M3wmI1I2Vv9KM+uQxPha5d3U6t2L0x68qjShlao/LXBUr5
8HCjd9rEyTD3tbNuRUwH0vhOfE9HGVQXylevM+/EgENz7TdqMtgrw54equxC
VfIBp8xeKbqSbV+3W3VjbIq8cCmVYkOmZKFs+g1UE6clyQlSSBSjI/073qI4
ydh6wUeKErq+U+dGL96EnmexNkmhY/IXEYn6kHe1xKJpUYLrP9eeKNg8gPC2
G9KOAQk+7SsXnbw4CM7c6bIfqySI38mvMWobgt1MesUYV4LRSn56j9m/uHz7
mYFKjAT/RfXlWv76Duq+HcnrvCXY+p3G8on6YQycCt2aYS2Be5HZT1VrR7CX
M/G5TFeCBJNjG8eDRyFX0+AKPtLYJvXXHvQZg5X9PlaSgIa+7owmf3EMq9Nz
UgWNNNSac3mb8sahvGtlQ5XQOGVbL1jpJcTRBy/d2q7RKP8+vKDpkxCNW9gq
M3E05iTGqydvT6C+Z6r/YhCN2kPuK7L2i+C255Vc7ErjokfKvZpJEbgOdjo3
rGmYvfccKk75AKNskfEuYxp7diVnsXdOor+IJ+pQoxFs2r3A6p1Ege+8/1E5
hbnODOEZzhSCjcfEwmEKOWqh8X6bxajmy10PdlLQH6ktUuWLsSgVP/q9joJ6
EuewQxyFe5Xake/uU1ApC+UJ19DQ6/GLE2RROPsnL2NNK40Y/oTn1GUKjVvT
NPViJTilZR34nMnpeZ7ddllHitjT27ItwykMb3/Tm9ggRcZnZWGFL4XHd7FZ
FCrDB277P+UuFEJ49nomyzJcuJXU4WNL4VJKIWf44TScZy0eGplTqBCb5Op4
E7TMzrvvWUshLT8lbOQHgtwarF8yohDhJzOv9CUIjWr/1Mx4fUPDY58Aggtd
3KYDjK9xg9qvhxMoNBU5voYUTtrfkWslElSxnM9F6VPYmGzgoVFKcGd8RFCg
S2F59/lVgw8Ivop1iY9gLJBNvC0tJ7BdajewYJwZUB3iVkXAPmRzkqdDQWnl
90tKA0GhbfiRplXMvz3cuyt6CSzszoe816ZQl6o43ttPMDSVFFjIOMvxmGXx
EEH62ZtBkYy97lvXuIwQBHrTcTItCs/OvXrJoQh+a/OYWlpJ4fZ2O66vlIA/
2aTfyjhOmHfYjDA9Ewa3VMYW3tGjLbMEztlBjTqM1Vh9JZkK5r6EOVavJoWx
WseosEWCupk/vLMZN0QV2+xYIkgzdMoPYpy9QXvuS29ZKiY/bmD8P8RofdQ=

            "]]}, Annotation[#, "Charting`Private`Tag$18718#4"]& ]}}, {}}, {
      DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
       AxesOrigin -> {0, 0.75}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, DisplayFunction -> Identity, 
       PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
       All, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
       AxesLabel -> {None, None}, AxesOrigin -> {0, 0.75}, DisplayFunction :> 
       Identity, Frame -> {{False, False}, {False, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "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., 0.9999999795918367}, {0.75, 1}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {Automatic, Automatic}}, 
       Ticks -> {Automatic, Automatic}}], 
     FormBox[
      FormBox[
       TemplateBox[{"\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""},
         "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                   AutoDelete -> False, 
                   GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
                AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
              "Grid"], Alignment -> Left, AppearanceElements -> None, 
             ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
             "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
           False], TraditionalForm]& ), 
        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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                   "]"}]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
        Editable -> True], TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"optlist1", ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<OptimizedPT\>\"", "}"}]}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   TemplateBox[{
     GraphicsBox[{{{{}, {}, 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwdznk01XkDBnBcTUiyTFLJNiFLwq8mRM8XNYpGC6qjiSHcRjTpJE0LqhFa
hCQtsqVChUaL3jKWRlku2SJ+uFx3v1xr2aZe7/uc85znfP579P1/3xUoJyMj
c3mu/1uVzVOjVa4+oP6fFrxt0du2R+8PLFKqtfmpS4pv1WXn9fTioXKoIn/7
SylUkp8XKXUkgxm1xIyXKkV6+RXdeXo38dLWm9dzXApzaUDCN2YGvPY/fKO5
V4pulbtfZ9uzYS/7afcROylCHMJDv+jmwU3W5OkqOSn+amXfG3d+BHZvxClf
/hCmD22jR5iFiBsoZwexhrCJlWT4uf0pYtgH7hXeHkLLzMGUYd1SxGXYzZdi
CMff6VhKi19Bv/OD6QHTISy71lo36Pwa2z/8+m734iH4mxKGmPk3PjP0SI5k
ECceLSgdba+EydHZRrvMQczv6jce1K1B9oUe5Zolg+gofxMuEdTg7U4123kK
g8i/n1YlLq7FxoLrODcpgftRd1+Rcz0i9PLtfuyUIFXxVSqf2Qjp5uCz2zMl
UL/zXm6kvRnlk9mB9DoJZlSe5x2xb0FoRcW0h4kEA2dzdgxntmCSpV80pi3B
c2bkXelvrbgqLAl6IC+BN7XWbmimDQFbHO/80yZGVm1GmFj3EwzuHos1jBRj
PO2Zae/lT7AVU7HtR8X4iVnHaZ76BJvf5dvymGJIGF+8XrV0ghWue/zRTjFs
HNzt4mNpRHZ38jSNxfhQOCtnLO1FrmUEa/qjCOpQ9FlowUZ+c61fEEuEDUYp
drEBbBQgUU1YJULCeN7YySY2nrVuV7AuFmFtUlugf0EffC8+6au+LEJUrbmr
lS8HZYv2v8hzEeFh8QujguscxOzyk+6FCM1pTgzDeg7a9a8nLF0vwkrm3tda
tgP4fgeDwzISoZbxp4WMBhfnuweYM9+JoOnQpd5YzUMumpZTtUI8KYzvCrEQ
QXBR7ma2txAiddFlVz8RhBs2FZzxFML4uOvGVSki9HuHbfV3FyLTfkEWZ0qE
9ebJz1ychEiuuRzk/Y8YHaKXDtGmQhznXB1x+WUQydqJBkmzAmQsqDuvtnkY
sttCLibeF2Cjw6lfon2GccFg9fbQLAHow2brpBHDmL51tn7HHQG0mi/x6vOH
MV8165FZsgBJadu2xqmOIKtn1HpNpADnDRtUvnWNoMhgUabvHgGYaLopOTqG
4GJ7J4aKADLZn191XRrD7tAHe4sUBUiT16Zr743hq1flBv95AryvCdLJ+ziG
txqcja2zfKzynM0OtBtHxO1R3WExH4KDxo96ZCcwULle8rWWj+DkM2UfEj9j
bLEnc8NlPg5zTTglT6aQoOz5XfJSPtg+nxQqaqZwAd5vBIv58OiIs2ANTCHs
V8VxJ3U+bOr4f3CXTWPW8V217AI+GMW5qpqx01CMd9/1cJaHtNP6GyN8ZyC3
Y/fra2weKjSW3rRV/RfpvnlNr/N5UNL/07jXRoacFmvru7rw8N4+aU3kZhkC
ElcYv4mHC3vvrl+xS4b4jFs71jnyIJf40mXfIRmyzln1gKc9D9NfJcz2dBli
5fHUI9KKBzHt9bBRTpZEPdBPstDmoT7N2KS8XpY4nYxtGRrlIkG1zjTrVwbh
OtxwP5LLhX+X59+M+u+IS7VQMUWVi7B//vT/3ViJRLdpWh9LHkDxEWUPra0L
SUx5anqW6QCyTh0SWe5RJW5RCtqq1Rycy5jdOS5RI4wjGsKgMA5kWtjk9UkN
UsjsaL5lyIHRsaATnqaLSf6lkDMWnf0YmLixe8EbTRKs2muw9WY/XLnBZ5LD
tIjgHtNmyd5+uA8kmunoLCMRV08vydTuh6jKP/r94+VESyngfqmgDxZqH1c4
+64gwSs+lvf81QclTPjRYzqkKEKhNzimDy6D3l8MvPTII6P2igGvPnRUBsh6
m+uTscDB6jqTPjyLe+ujN6FPmhwVbV7J9SFoXji7ocGAaL14LBPSycaBo6ee
Kd/6gVysepp55Tkba5hmDdv8VhIvrRvj/BQ2GtXNF4TbGpLqu9pfv4Sx8Z8n
526bM4yIUar2wtJdbJySNd1R321EEkOjZ2yt2VCiT245XGJMzA5ujrytwQb3
vn5KxulVJEapMc1uuBcpq5bKl3qZkCVctbi3z3uReCvonZ+eKWk94BatcL4X
3in7G5T5pmR40+DLf3f2YnJT7lRGmRm537DGLV6nFxyu04nKWHOiFBt+cPFw
D7IdrJaz/FaTEIeE+F1/9+BxTLgac7UFcaVMLqy91oNYrwNujAkLcsl5T/Pa
33qwjs7Ki2WtIY0zJGHavgdpJrcfs9wsCdXwQKf/+x5ElV9Jcyu1JJu4BbkP
RN34eblXbu1KKxIzJp/oU9kNx8Pv9qnFW5Hgfql+TXo3MrT9V9ZPWJH5qjfa
jCK6sbLqQar7PmtiHnTpJznPbiSurjRtLrMm3r98yfa37kbQmHxTjSlFijTx
plalG/7Fo3rxVynS7D854TtEI+Scx6xrEkVGl0zzPwzSCPcoaVe+RpEPyBE4
zjluIjwhMZUiG/rZi1dKaDyxnZq5kU6Rv8Jf6wqFNKYqvn28X0CR8dCrQ+Fc
GonNylfevqPIvajMwFs0jVs5oQcv1FDERmGL8cI55xxrcN5SR5F0Z/IlqovG
c83E6boGiiw116oM7KRBe2scbGmjiNz+5QzrDhrGnKXO/RyK/BCgY8lqoWFZ
clLnHpcipcrX2sic7WK6pgL5FDmuZxFf0kxjm3F6kVBEkROqrGV3mmgcPaSn
MzJCkcPiAP6hRhqn7c9OPR2jyNqKqn97G2jELOxvPTZBkWSDtQaec04rzLk0
OTn3zxDX7Vk0sqPlma+mKdJ5o5VTVE+jYGeg0+lZipT9GEYM51xiUL1i41eK
/ByiXnCzjkbZmNHUt28Usct59oPKnP8L7fVVtw==
            "]]}, 
          Annotation[#, "Charting`Private`Tag$22294#1"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6]], 
           
           LineBox[{{4.0816326530612243`*^-7, 0.9999996938780977}, {
            0.006134358411192534, 0.9955168828179639}, {0.012268308659119763`,
             0.9912489277865278}, {0.01840225890704699, 0.9871704548089307}, {
            0.02453620915497422, 0.9832637990544478}, {0.03067015940290145, 
            0.9795363372224464}, {0.03680410965082868, 0.9761066443108479}, {
            0.042938059898755904`, 0.9734969023967084}, {0.04907201014668314, 
            0.9734249519911682}, {0.055205960394610364`, 
            0.9806384460172736}, {0.05976319212352822, 1.}}]}, 
          Annotation[#, "Charting`Private`Tag$22294#2"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwdxwk81HkDx/EJpZUUNrSJ0cpoSLV/duXo+3tCbRJLtC0tEaayKUrolGpp
u5BHupyptZK00u3KVsaYDrVo7BjmNIchRw0eHs/zfb0+r+/rbRWxOyBKi0aj
nZnqf6/lpfn4zDsU1P/XisZWus+P9GQs1GM7r+GpMfm85jidfgpbY+r/8Hug
hkFW9R299izsOG5qJ8lR41rdWcvp9EvghAdL+PvVsFdHnptk5eO8R+lTk81q
/GOQNzHeVoSzpzs37XFR4xf3hF2fLEuhOet511ZLjT/fCa4PedyCrsu9g2HS
PozG+HQOsCoQYOTWHd3SB8+WzMUjbXdhuryvpOJKH1rHtmf3Wz6EOlEwR40+
7H9hsVxd+QjiYP3vtjH78NWFd80qjycIGUP7pnl9iGASbQWrFu5erqHFShWS
bs16+LGtAcIHDRauBSro8noYKssmNK2O9WebqtBe9zRBKWvCX3G0OzNmqvDH
jdxniko2bJrX9R3/rIRvvG+Y3IODE1+H7HT+oETOF49ypKxXcIx11dpYoITR
1ZdaA21v8cNTzxkiJyXGDKpL97i1QjVps27LEiVEx4p/6C9oBefxsepxcyWq
WUfy1DvewbGhcbxSR4lgytGlb+w9NszsbWt9r0AhOz9OYdmBGP3Yn92PKDCU
e4/ZdaYD3+6rVfTHK7CG1Sx8q+lA9fbM9kaWAkrtT0GPWj9gLG+ol+2vgLO7
r8uptE54VVfruTMUeF0xrsVQd0HYW/2EapPDCF+EznYQwN9El1bUIoerTbZL
WqQAC+YGxjMa5Tg3VDp44I0A9/2CluyvlMMx831URFk3Qpgf9pqeleMo2957
RZgQvkEBuqbfy/F75X2bsn8L8Tkx1YkNOd7mrtZezBHCebq14Nx3clizNj8x
WynCu5Tk0+sZcrC1TzjQjMVY1mRQ95uuHCbuPKNXzyXwFD0S97J7cbviFO8X
Bzlm111++iCkF3Ij+RnvcDkqNscbXA7qBWO/9yrbbDmWXd8yccKvFwVuswqF
Gjnq6sLWJnr0IqvpTHTwXwqQe4mxbLte7BeeH1i7RYVmiZ/VlxMy5M9qPm7o
1Y+QJ5XUhd9lWOV+cEtKaD8yAoxXxBXL0Blr56RO7EeDhn4/Mk8Gs7enJZw/
+uG2+ycr/2wZMnN91qXPHUCJc212UooMxxdzDSZ5AzBWFTkN/SQDC28uKeMH
0VjA9nc1lIFWNPKId3oQm3LsRz/qy5CrY97Jvj4I0yi/oxUzZXjZFG1R+vcg
Ss1SRr6lyWAbOF4U5TKEHb7+R46opZBtZ9ziTxtGpFVWmpQrxc6swzWvM0bw
42zTbmGGFLHiJcKq2xpQA9Y0saUUgtCOmfVNGgQ9OL9wvbkUG9vTHVpEGjDr
OU1VZlI4N0uTxV+Ngp4trMoylEK7smSuSdooDvuFWCdpS5F7yGpVYtgYwvnl
80RSCeqN519aOfc/MPnzDcfsTwn0rE4wupxpJOZbyWGRvwQv3TKXHfGiEZ3d
h9Kc/CT4dXPedwsDaEQuj8xL95FAK+PB2pAYGklI48gc10owOqFktV2jkavl
lwtL3CRQdAb9/kprGtF3bFgtZkjAyWUsqeNMIx+ezAhsnhTj3NxmZuFWbZI8
gcS7VWJE8AJrtTkzSEqQ591di8WI++tExG6GHknyjLnoVC5C5R79jWbrZhMj
XgHXbr0IhQdj5Mt/nEvC76beNFMJkZo/7j+kNCS8/XaCkjwhaK0C8uSAMWlj
jLnp/SSEzb7opEDmPPLsvqeE9aUQouGLm2Y9NSEdJScEPR098BbvPJwVZ0aU
KyUF+fk98BVl2FlYfEVS4monRnb2QP4sIuVl+QKyw9zLM9q9Bw6Gfy/0CFtI
pHWuqdvm9EAPw+GdgxakNdk41FvajbWq4E+LgugkuZ7EX6npRntD5LRgeyuy
yNTyqP2lbtxLbwylD1uRm59dD3kldSN6eoKAy11EVh23zrq4qRvb4g/e07/8
NSnub9D94NyNZSw7rk+4NZmvl9TDWNiNV0b2sxJWLibMADLvKq0bj2+nXrHX
tiEy3lVzT6kAB6cxf+D8Y0P2emxZNL9FAL3OA9/HVjFISDo9IL9KAPENq+z8
Q7akrDBMl5MnQLbtfJ2HQUvIHP7YzMXpAmRcjn4RTmcSekflOuFeAYKzf+bq
S5kkxzjyAXerAJ89SzT5NXZk7/0aLYWPAELx6qSGNHuye2Yhx9hVgCL3FQta
wpeSc3fKTJNsBSg/mWDIWupA1sS1ej41FSAtaNt67WEHwqP2bJbpCuDUWVia
1rKMjPBNA2/1dSF3yZXylvXLCSuxuJP7ugtH687mrn+4nJizGIW/VXZhw4Kg
Erb1CuK7qlohutCFf8W+CDE8tYKs2dBkRE/uQr55hDVneAV5l6fy0Pm5C9bP
bub4hnxDooyaSy56dCFjaQPzbc03ZCTzywtRdl2IHtR508SkSHxFn4vSsAsR
lR/pp85TpDrktqh9lI9fUjeOe2dSRCewK3DvlBM2VrXpX6BIxxbum9lTTh9O
OJeRQ5EvHDoHVmv4uL1SM3bxGkUCPuxil3/iQ1M/+feNMoo859rwTg7xkfFW
/2zjC4pkunVuRx8fl4t3bf+1iSJxutwYnoqP4n1cj++bKTLvsd3BxClXm2SM
NnMpcuwlvbZCyUdnsPH21vcUcTQp49EVfDCE8z16hBTJuzEnarqMj+VVByyu
iylSa3ZhaZGUD5eTPE2UlCIrE4K1MGUfxrU7vXKKbJhR9jpJwkd8DN1iYIAi
5WEGNJWIj0NuxzR3BykSORLD/G3KJ2f3vNs3TJH6x5qtjCnnVhSf/vyZIuxp
Vz+GC/koStFhPRqlCP9K2YbJHj7K/KNWHxqnyI6L3VVXp1y16PnCVRMUaUt1
tXWZcs2gjWZykiIequqbbd18/BefVFun
            "]]}, 
          Annotation[#, "Charting`Private`Tag$22294#3"]& ], 
         TagBox[{
           Directive[
            Opacity[1.], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwV1Xk41PsXB/BhRNF0B78rSbYr+5JGtwjng1JSWmhDlGJEtPyiZEsSiqhU
0kVUsiR0qShCirGMPTSEfGe+Y8wY6zCI3/z+OM95Xv+c533+OM9R9zx/yEuc
QCC8FdX/e1q4p6TJmadWirxs1+VlPtR2qO09qhYMytIN2+wYfFj+VhmlphYH
k4nVefs/8CGtKkF1hdoTCGqJZ/0M4oMB/8zdZWoGtFyprlQ4xof+NelLi91Z
QFgr4XrBnA/nLAP9Z1VzAW+2b9UR58O/nYMvpm1fw3C//icPfAzm/fb2TVAL
QSpD0Z3aPAY7mu9tFHS/hQbPz0rFT8egY8EneVy1DIYfddsIYAyC6lQ28YvL
QX42Y52/3hgoPehs5Nl+gpjcmLVn/hwDTz1EHKV+huse9RVlXB5cfS1TNtld
A8rrgpbOP+OBFOOXNk+VBkqNigqRijzoqaoI5LJpYL3pUGHXSh7kZad8GS1u
gNCuAW1/IRccLzl6cGyboIt89oAbgwuPVpU/wqktILH/eqhkFhfk/qkXn+hu
h4/09nxtMy4srHmXe8GiA2wcHaX6DbiART4/MP6sA6rkXMgValx4Rw1P55/t
hK7Ez6rClVxwoZiajy10AWlj26QdYxQyGzIujqr2gkS6ckzkrVGYTinVG4jv
hYgiEvl5yCjYURuH24W9oOWq2otfGAUucfZweccPoKXyTXtcR2GbpaN5XEwf
rGAUpyPKKLQWLopr8wfgXZG9z0ucA3Kwyp1kNAhH3J7LFvzkwHatZPOYM4Pg
/fCOD72LA3enc6eutQ3CkIfPLrdaDpje6/LyzB+C+5aEuylZHIhoMNhj4jEM
H9xe7TI/zYGc4vda+Q+H4VxP1L58Vw60p9gQNzYNQ1ndl25jZw5oUo99UjTD
IKaGYXFpJwcaiDeNCPJMsC6ZJXbqcEDBkiHX8o0FL06fT6FPjsCbwjjGOSMO
GK8fal26NwIcOU78nlMc8E7Lz6uOHwHtoD1WOskcWHHXl5IYMwLPLGQyh4Uc
mLvCabQPG4H7tHhvl6+jkD14MNHs7AgEDSdO7HLjwX9lrWhsmxHIkGmMkt05
Dma9cp60RTZYWYa4XXcfh/10p9i8OTb0Behv4V8Zh3cvbsk+mGaDYvsdVlPe
OAhWWS4Gc9lwL2WvfSx5AihR4X+k9bEhaiN9zTJjAlqXOQLtSjZQoe0J99IU
BNb9xBjRbCBkCcoZd6bgtkKT4PENNqRIKPc1vJiCLtNV+scj2FBP81bJ/T4F
l4IyaZyrbNBxXszyMp+GflP5+/bn2MD20X79U2wGbKRTPUad2OB7P6yyNUkA
hpeZ+65osUF8Jmvgc64AbGb602v+YkPq0XpCYY0ApvO2NMmqs6FBWd42YVoA
Qpvm1I/r2aD/KqfO/tgsLKS6a1rIsoH7saO1RnUOtMJ613EWcQhg6g6XvBFC
V7m6e913HAbde1dW04TgOZPr79iJg1NPrFEzJoQiKiz1tOGwrREPZirNg1xp
yc25JhyIxS/JCjHzYOjr7nLyCw4poepWVzwWQHEFXaq5CIdq+XVPzMi/IcHq
lykvAQfThPrKnfq/QWm5+UT3HRyyJa9iB+1+w2zvQ4vaOBzihd+NfUN/w+Af
9yWzo3E4MpD8LZX9G2J2aG2PC8OBk0eeXqhagr+e76DR/HGQVr+pPbCNgK61
RJLkD+BQb3HPOHwnAVH3JkmedcTh1rH0rRsOERC6qNlftRcH8aQPu1z9CGjb
3wcVguxxmF/iUrvTCMiaFOApsMFhtO9wTou4GMqZu/LV4W8cmlK0dauaxNDx
RC/1v1VwuF1iauLRK4aqqzs21yjjsLvV2myJKYbCsWja/vU41Eq52VssiyED
Nb2w84o4fApKOvvBRByl67z7WCWHQ4GzMLfokTgiy9Q/zpHC4S65US/zJBH1
KVXXh0+yoGzrhlLHACLKUnDuXz/BAsz9PCyGEFHO45N+5XwWbC+Qdz76mIjO
FkRwFrgsYNu7hZHoRMQwVjVNwllgG8VrCd4ugZQ+Ti0t9LFgbuaPwEMKK5DS
hpCitnoWeDKcPxObJNGHbu7t1S9YIP10yP9iryR6oJFr/juLBW9dApQHWJII
3M2wsUwWEH/EBJeLSaFiy/+qdmWI7rannHJxqxR69X6jbMFTFrC61HJ+Zkkh
TEavKu4BC3xbuUllwStRyMMfH3hRLLj49abneW1plP/aTkuDygIVzE5SQJFG
hnPhb494s6BRfFVeKJJGFe0nGHe8WLARJUzEHZdGocEWhLnTLOgtf3j9xR1p
RBEIbnSfZIF1UXZ6L18amYRndbx1YYHs0/ofth9kkF0vnfzdkQXFF1Y7KdqT
kLRR7NWCbSxoSpUPLjhCQieoY/MzW0V5a5UybM6Q0P7x3ytBZKV1uqPnIkio
xvifr+1bWHCzemdUdSkJYY3PCgkUFhyRi/jXV2MNkorWrQo0ZMH8vxPyFQtr
0LMLDk1VGizIDPHjbDpKRh+VYxc/rWHBjYzFg9NcWSRF96h/w2MCoWMQfbom
j3Q7o7d/bWOC1mXvq856f6J9A7Tim++ZgM08PiJToYCsOsy+KmUxYQ/TN+z+
RUVUlKC6MjuBCY5Ykr6KihKqaycb/gphAueL5/X6gvXI4cm+BJI/E4xkv2+w
9diA+DLqgQ/cmSANM6f6plTQtSz9P90OMWEXz2VW47Aa0vDYnH/Ejgk9NWfE
XAzU0a2Cg7dTtzOhNLbWXW1GHU20rOL4bWaC94rAQTpdAz2bEL9nq8uE05dC
Slen/oXko6ziT6ozwZiqT997ShO9rNzQulmJCS1yBjKBZhvRE58wnkCOCR/f
3HhqQNRCaa8f2LxZzYQQMb0DTf1aSCknqtlJUpSv79rugBJt9E/+Z0YkgQnM
bPXkjFAdlBqQFeG7gEGyzjqJssO6yLk0O8NcgEFSqnfdKTU9FNvNPf16AgOX
5BP01bgecmDmSVzmYTC346Uwo1IfJVbcdlMbwWCYaXO1JsYA1QRxKhyZGGRZ
mqxvPmWIHH8YzXoOYVAQHShLNTRCyc1i1px+0Z86fNqBOGOE4r2HVAp+YLCl
LzM3ptkY1U6axR7uxiBF92lBs8Mm5LHgs/lEJwYRVQkpDmWb0Lfh26MObRjs
W3/4ZYOmCQp9X3jSn46BdUCdq2ycCfKdRZE/GzHIUPbUbJoxQVVD+c5baRho
fnn1yNF1M6osJV/s+Sbaz7BGr71yM4rqp55Oq8XAe0qijaZHQW41Q8I9NRh4
Fk+qxSVS0HbS3Vt/V2Fw7obT4p57FNRa0+RnKHKgU0n36gcURIxPO6QpcuxM
4N2kRxR0sGxKU07kN2bChcdpFKSoQ+3jfcZAWL38PTufgsbXkB+9FDmpfXVC
bR0FXRHLMFEQOfW5v88tGgWtdTq+myTy88t0292NFGS3mHJSQuR3CknzjXQK
wr5lP5ysxKDPRd6no4uCznpMyLaIrD28zvbXMAWRVbmHYkXeVHJN5QWTgrzC
myMjRDaPZgi9cApqlDZ6GyTyXu20ohEOBX3V9FvrJfIlPzWViQkK2lXeMGUt
cqhFpPDtFAXp/kw1MhM5mvSr8/IMBZ3Qwn03iZxS+PzO3JxoXuYkriJy1nUJ
avk8BXn8p1hHQeT8g142oYsUJNDl+JJELtH4tsFqiYISb6S9kRC5ckpLuLxM
QQ6VDVMLFRj8DxPTmmI=
            "]]}, 
          Annotation[#, "Charting`Private`Tag$22294#4"]& ]}}, {}}, {
      DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
       AxesOrigin -> {0, 0.3}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, DisplayFunction -> Identity, 
       PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
       All, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
       AxesLabel -> {None, None}, AxesOrigin -> {0, 0.3}, DisplayFunction :> 
       Identity, Frame -> {{False, False}, {False, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "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., 19.999999591836733`}, {0.3, 1}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {Automatic, Automatic}}, 
       Ticks -> {Automatic, Automatic}}], 
     FormBox[
      FormBox[
       TemplateBox[{"\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""},
         "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                   GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                   AutoDelete -> False, 
                   GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
                AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
              "Grid"], Alignment -> Left, AppearanceElements -> None, 
             ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
             "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
           FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
           False], TraditionalForm]& ), 
        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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                   "]"}]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
        Editable -> True], TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"optlist2", ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<OptimizedPT\>\"", "}"}]}]}], "]"}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.835272968474687*^9, 3.8352730406299543`*^9}, {
  3.835273166288762*^9, 3.8352732199343767`*^9}, {3.835319102597597*^9, 
  3.8353191089207373`*^9}, {3.83531919153441*^9, 3.8353192026433783`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"28fb6c44-6574-40f1-8127-8ce09c572434"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwd1Hs81Xccx3GHWmLJ0WjH6MzlmEupNTWr7F2pWNJCC7mOprFNl6lkKx05
ZElWpyiK0M1ZnVPO0QW5nVQeSaGhdHCYfr9z8c3moAv2276Px/fxeTz/+l7+
eNlEbfP/Tl9PTy+K2f/N1Y0W+rWOrtD7f1GY4mm5vZvjBn/zUPc5EwSfFeTm
l3FWIYLXWevxjqDfyp6/x2E9zMQPfg9/Q+DT1H79DGcjVkytPX9gjMA+0/r8
JDcYB+JD3haPELxbG53zrUM4kolH9v1hgsAto1XHOFsw3ngq3nyIQO5peaM+
Pwb1nPQyD0KwwM5DMsyNRfD0EtetWgJDZUrRJod4WIhFd6poghfz0z2PcBLA
HvMx2qskEBZ8WMML2YVdlzrkpT0Ea2eWLruTvxu8180lLxQE5YMPFxHuXtSf
mNO05jlB1hUzRz+H/Xizel+GQxtBofnXab9xUrE0V2Zh2UDwS1OOfNPtVCQk
2niHyQk2CXr07UIEkBRxU87VEbyv25FckZ+G+iffTJ9XTZDYJkzUcDNwULnS
fcNNAr/jz+LWO2TB+EZQ/d1SAr5h2ScZHCHCzU/fjM4mcPb6/dD17UJ4L3vs
V5RF0CLYRj+/JwQJbNf2ZjL/ZzBX5Lr7BFr94x23ZBA0jJe4trWcREzI/OSE
FOb8f04u4maegmVtYlJ9AkHuiyRP2cRZrOkmx9ibCYKCz4lfDZUgyVTS6foJ
gfEkP9RrjhiTP524W908CJ7fIFV/WIpvqYa3Cv4g9jz6ArnDt+A6S9KR6DaI
2VK2gsWqBi82Pat6SItypefD5mV1uCzZUbv/qhZ1cWc+CtbIcT/SxvvZdi10
Dh4zr/x0D20bQl/WLNFC/7XI9CNeI3ojgw4HG2ixeDKyPODqQyRmJxkFt2jw
MNXtUYNzM6qn+lrllmjAzVa/vjz4GOJpktiVuzRQj3Yrni5owatVfayZPhqU
qCoaTbJa0WlrQntyNTCxvkj6+9tw0a7gn1kjamTGymIK7f+EruGzTN4TNUaW
i/q/T25H2LpThcJSNRIWyqUW9R1o6HKN7E1Xo/uq/PATm2eQG7HW50Sr8Tau
Lc8p6TnuW6fFLFyhhsuKaRMxFV1Y9mHYHTtbNbyKbLZem61A5Fem+1NZauyx
jrDtDe3GmGh27Ls+FeZqvjFu9+2BqG/RjGf3VJg185Wh/E0P7H2GMj8tVWFK
dZ7YLr8XEbftfb2PqvCDW0XndB8lgmPfO/1ypwqir6IK74woESq2ZjUFqqBT
W5oOnOzD2XEnthNUkAV4GQhX9cMx3sjFkqdCsregQDrQj2vG0tvhM1SwebG2
o1jwF8YSrNKKRmgs+TxVyFk4APMI3Wi6gkbonObXrNYBWAWskWfep6FrPKLc
zn8JtjJm6vJrNHKnhCf421P4pVEweyyPxiyFrEhfTuFrM37EoXQaU/fxN36x
g0Zc9MB7rczUuxwuVpqpsG1YtvRNGI2dp8VHzOpUqCo76PLSm0aVyyFDdrwa
hrsHnIvcaLDX7pybYqKBLGW1u4Utja55j1v3VmrgvIB2CDGhITkL+/5wLfbR
vB+83lEIEy9mW09oEUAeOCpUFA4IzvG7SgehKXZz29BB4QplnWeyjsApVP+x
7z0Kh84IIhXrCVINyg/qM97ir+Vd9SO47mLmcaOBglVlpcQ3kKD2Uk3Nx4x/
OxrSkBlFIDXsNh5m3vn94lNDRnuZLh3fKsmro2Cb+oH3tAsE7A/65pIqChPu
v85ov0Sge/q+sIRxp7av5YKIYN1dud5mxtmBZWFrrhFMaJ+r5JUUJp39fxZU
Eqiqsll5FRS6nhw9a9BKEFIQ4e59i8LNtNHo1qcE7j7GY+M3KQiXRjgVdxDM
X+5eVcbY57yrdCXTLX6LWRCX8e3Epgd8pntBX0qbR8opnJy36Kifhrlve0DF
H4x3KPM32jDdXBIU/0cUY8d1P3bXMJ2N7DcteCRjes5qK8keJYgNzilMZdwj
WxoXyXRbnXHi4hLGlXHF8xeME6wUGUlfSSnkcI11k5MEir91dy8w/hcHziQN

          "]]}, Annotation[#, "Charting`Private`Tag$18718#1"]& ], 
       TagBox[{
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwd1Hs41FkYB/ApMaJNKexIaBKJXHKtVV8Zl1xrN2LcVoyKCrWxldiailQk
FFLGbcyYi0R0sdZlH11QSmFJZhNK6TkUK+myv93zPOc5z+e/877v+Z5lodE/
hc+m0Wje1P7vdAt//bhhxGdDne+9qW/fCOawNGNkDEv4qAXaan8lsODlXK5i
OCJoRU/j+s8E7g+6K68wvGEv38g/+pHAlzNVl8HgYLolN0ptnOC5aTIrlXEA
EzPuSocGCArUNiedZpxABuORuuYdgmOKVQYpjCxwFRHESSdY5XL+VGVMFqJV
wtWL0wg6TkaPPLubhS1+vd0DZwn05IzFJnEX0GVnuS88heDOlxKTpx0X8epd
04c4LsG8DxetdM7mQtTRzW09QJDz/DCr+ms+rpskRHn5E2zUYpf0+/CQVjDD
rPQjeONvI68o5WGULz6i4UugPXooTLq6ALu+LY98tZUgOsJ6Ba2vAD5+9tn5
ngSqnKtCvm0RWka2p5zYSLDjuDZ7HacISl0DySr2BLVFqXPbzxVhjatTQP4G
As6L3ZEfh4swwqHF3/uBoDp4pbH7hWIU9Bsd2mZNoJSY3SdrKIYcR1VGtyII
vqKQemC0GF9ylc7VWxAo9A2+u8IqQcLrJbEscwI/duHVsfESHJzCcZExAXnm
rVSkycenUOeXEiOCpGDF8K0sPqQ0OeebqwiqwqI1a7L4mPVExWF0JYHbMDN2
Zx0fHT47FdQp/72rq/37YT4uypz03A0I5ketPxlvUwpTVSNm7woC/tiYzDik
FIvpbQesKNv9UrKu/1QpbtCV6Tw9gieTvhfOXSuF8yJliQblyIPKY/a9pZgZ
1XEoWE4wa+YPt/ezBdDV2Fy1lnJOwn5+sZEAo7zOyUEmgQlNn+bjLcD0YOW8
YsrN3B5/hQQB/txvqxhLOVA+tfoGX4D7+jyFQMrvk+0XRDwUwLq20JJNOUVp
IlJzSoB9g1oP91LWTRU0t+oI4WFYrZ1H+YZKgG7CJiHqeVzuAGWvjPnxJvuE
aL/ZtMOJus/Q4qZOWa4QDi7pbs2Uj2THmp1vEqLqXWF9GFXPIk3DMw5vhQhZ
prKbSdUvutw39GFRGYzGlijI6RPY66Tb8+3KoHJL+Wc61b/uQlbetvAypNBn
2OZUf6P0pibpaWV409QwzjWk8iQQbblVUwbPwS7br9R88gyDxZGyMigNu/nz
qXmukSxU0FIUwWNZzaXDJgT3TZpDHpiJIL95A/uoGUHItYO1iWwRLoXmL7i1
huAfC2N1M64IzZM2fgbU+0mtkcW8EInATlw99MCGysvazNaMJyLYJZ88c3Ud
we1aZ33HzyKUGviifT3B6wbps1JPMQIFYS6djgS/sbZb+8WJ8bzOyrRpE4H6
ncXn5/LEkHP19PrkQSDZdO/t7btiZFvKeRz7kYDVGu+8Z0yMRlbelP82gl5P
08KlDAkY9JuuZwIIYh4NzDzcKIH5gt5w9e0E+Z2u18wzJbju0RHhtZfAyu+L
8staCbycliTMofLa1luxI2tQAtWUgusG8QShQZxGp++kWL3FlVlH5XtapqE1
ZSVFTcbjeS2nCdJDW+OEwVLYNvPGt2YS6A8lPmYnS9GjK0wKuUzg/WYo6fe/
pGhTqaxnVBC83ZP7Yu+scuwPYH7uuE3AJR52OqvK8aji6dKV1H9UMVE1fiy+
HC2q0wub+glcft3pYVFSDi3/3ky1UYL+aU3BYFs5etK4wcxPBEGOERM5feWg
/b/G8C9NkYlI
          "]]}, Annotation[#, "Charting`Private`Tag$18718#2"]& ], 
       TagBox[{
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwd1Hs01Pkfx3GX/NblF1Fqxxpz5BJdUIttK+e1NUU/2n5LpQsNP2Tb6dcs
rVzaSqxxKWFFKN2Ydu04mchtQ5PMj7LkWi5hNE32O9dPdkk3/L67n3M+53Me
/3w+5/P+42kb9m3AIT0dHZ0wev91bmlfqtfs5AKdvxeFBWyrKCnDHYGWwett
5gg+vVZYfIexFRyHoWavDwRya/ukOMedWCJ69CPnHYFf50DVFcZufGHQfPPM
GwL7TObNedZ+pPKC3pe+JvjgG17wH0cOEolXzsMpgr0RM025jAjMtBfxLCcJ
JGyrupbiSDQz0u54EQI3O6/bU6xvEGIkcPlaQ2AoSy4JdOTBWFR+r0lBMOqa
xj7PiIHzGz/jBBlB3rWP7zsEHcf5skGJcJzA10y46V5xLNzfdglGxwhqtR0e
hJWA7nybTu9nBFm3LJz8HU/D2PtUhmM/wXXLf6eeZaQgqLBmqVUrwfedBZLA
uym4EG+7/aCEIJA/rmcXxEd3CSv5xgOCf05HJzYUp+JFzx6jNWKC+P68eDUr
A09kW9Z/VU/gf2GYu9MxC611+1r+JyRIMryzIoORhyXWl+rDcwhW+vyYXhWV
hyl2t39JFkEv/1vFs7Y83A4d0DzPpOenv7rcJTYfThyeU0QGQeuswKW/9yKo
o66JMcn0+39e9GBlFkGujT/REkNQOHqCXTN3FftEr3LNDxDs239D9GpSgGM1
dUMuKwhM5pOCfWxEsOQatYq7tHDw11It56pRL4icG0vSIu7x5yic+hURRdYv
4t21WFZtPqarK8bm05eE4kkNamXsjq5ND5B9ZFY/sUKDB9wrn+xXS3Cu7mXn
cJQG045eZreOtmEiwKi7eYMGem/LF33i0I6e+kMWQfoaeM6H1u6q6IDkZUxo
UK8aHSnuj1tXdmH2VFriZYEarBzV21+03WALmNt8jquhmpGOPXHrhefa4wWW
fmoIlA3tpll9CGyz6NjBUsOU+TORy/vhz2y7wHqtQuY3NZHX7Z9ig0ufm3uP
Cq+/KJcfThxA6sl+y5+FKsSsk1QvbRnEY8+9ZCZNBWmF5FyP7TCO95lrq8JV
eM/tv+x84hlWpD0u27VZhVWbP5qLbBiBwcABqe9yFXxKbL+uXDYGa+uPK6p0
VYhjhix/HixFLfvMyFq5EqvVe0wGvhxHxtCebcseKrHY7JWh5N04Fj+veBUn
VGKB+LLIrvg5DkSqpguylTji3jBk5CfDqZxFjC3fKVH+r7Dr917LUHaw5c91
+5SYVlktmrj4AmVZUbxLUKJml49+3lY5vuqL/7XQQYnE7fxr1RNy2Nb+wFEu
VMJ21HewlP8S7ys2122cUWDDZyl5jHUTKBW6idykCgTbdL3V7ZvAFPNN49ZH
Cky3n5dFJf0Ok6d6YUZVChQu4MQE2FOY2GWW0FuswOKxmhI9CYXc9Py1MekK
GJxK2v15tALeqZVFvccU0PmFI5JZKHG0quMfC0MUOHZJdN7igRKDXk43zXwV
aFqVbmjOU4H7obR93EMBc99jq5NN1YgO79/GtVNgZE13X0KjGu+Mgr3bzBS4
fRX2co4GwRuX/NY+S+GgyNOcOaeB+H6maYKawhn+jaQRoRbOOVqewTCFWxTz
sukOAru15RzrRxTSr/BDx3bSHTG24fc8pBARoHGo8CfYJPWpTKVt3dh4+8u9
BHG2TVaTbRTOZge1ZoYRlFQtXdfaSuGwZ9GkcQLBYelv0dH0v5enLNn+0U8E
+fdjXTvEFObWn1w4UEagt8rFJJn2kOZF70/lBNWuyerPaOfsvXPQu5LA+OEH
cek9CvMrA77jNxI8Pe0g/L6JwkhP9lX9PgIfbfbZ1Q0U6lNnwvueEJSNisSy
uxTyNoY4lw4SeJwMeVdI2++mS/UWulvsXO4ZA9p34zsfJdHdG25gdI3VU7i4
xiPbX03AbLrulk87Wla825buptqwssCPttOO/0rv05391J8bW19H91y3X5Az
Q1BUa67l0R6v2cgNpbvNW48jDrQbuaWubrMEuSZ/aJ7VUihgmUzPz9P3H3KO
zaX9f1dnKgU=
          "]]}, Annotation[#, "Charting`Private`Tag$18718#3"]& ], 
       TagBox[{
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwV1H0w1HkcB3ArhrhIHppVNCoXKroOJfTuKJyHaygjeciJrhNKZ0ZuUm2H
lLTqXHQoT7kkNqFxeYw9yijJ417ysDb299tdXzvR4mLv1x+f+czrj/fM5/PP
2yz8tF+kqoqKig8zX7ZnpLinhfLf2xzwQqFUEqi5Gp8ZZdvC3zB4t+kywbf3
cvKq2fsRYi547vyZwOvV4JN89mHsU39+/9I8QUCEovEWOwILnXdiDeUE722u
uGaw42Ew76WVKCQoMDyYeo2dDI38WiPjdgKOZvWWq+ws0NFFdcczCY4EFvJm
5CXYv/6c0HoLgbaSE+xuysNY6ZJjS/c0zH2nxW3pNXgRbXp8nDONhNcOyJn9
G+3qT2I4ttNYW6M3wmI1I2Vv9KM+uQxPha5d3U6t2L0x68qjShlao/LXBUr5
8HCjd9rEyTD3tbNuRUwH0vhOfE9HGVQXylevM+/EgENz7TdqMtgrw54equxC
VfIBp8xeKbqSbV+3W3VjbIq8cCmVYkOmZKFs+g1UE6clyQlSSBSjI/073qI4
ydh6wUeKErq+U+dGL96EnmexNkmhY/IXEYn6kHe1xKJpUYLrP9eeKNg8gPC2
G9KOAQk+7SsXnbw4CM7c6bIfqySI38mvMWobgt1MesUYV4LRSn56j9m/uHz7
mYFKjAT/RfXlWv76Duq+HcnrvCXY+p3G8on6YQycCt2aYS2Be5HZT1VrR7CX
M/G5TFeCBJNjG8eDRyFX0+AKPtLYJvXXHvQZg5X9PlaSgIa+7owmf3EMq9Nz
UgWNNNSac3mb8sahvGtlQ5XQOGVbL1jpJcTRBy/d2q7RKP8+vKDpkxCNW9gq
M3E05iTGqydvT6C+Z6r/YhCN2kPuK7L2i+C255Vc7ErjokfKvZpJEbgOdjo3
rGmYvfccKk75AKNskfEuYxp7diVnsXdOor+IJ+pQoxFs2r3A6p1Ege+8/1E5
hbnODOEZzhSCjcfEwmEKOWqh8X6bxajmy10PdlLQH6ktUuWLsSgVP/q9joJ6
EuewQxyFe5Xake/uU1ApC+UJ19DQ6/GLE2RROPsnL2NNK40Y/oTn1GUKjVvT
NPViJTilZR34nMnpeZ7ddllHitjT27ItwykMb3/Tm9ggRcZnZWGFL4XHd7FZ
FCrDB277P+UuFEJ49nomyzJcuJXU4WNL4VJKIWf44TScZy0eGplTqBCb5Op4
E7TMzrvvWUshLT8lbOQHgtwarF8yohDhJzOv9CUIjWr/1Mx4fUPDY58Aggtd
3KYDjK9xg9qvhxMoNBU5voYUTtrfkWslElSxnM9F6VPYmGzgoVFKcGd8RFCg
S2F59/lVgw8Ivop1iY9gLJBNvC0tJ7BdajewYJwZUB3iVkXAPmRzkqdDQWnl
90tKA0GhbfiRplXMvz3cuyt6CSzszoe816ZQl6o43ttPMDSVFFjIOMvxmGXx
EEH62ZtBkYy97lvXuIwQBHrTcTItCs/OvXrJoQh+a/OYWlpJ4fZ2O66vlIA/
2aTfyjhOmHfYjDA9Ewa3VMYW3tGjLbMEztlBjTqM1Vh9JZkK5r6EOVavJoWx
WseosEWCupk/vLMZN0QV2+xYIkgzdMoPYpy9QXvuS29ZKiY/bmD8P8RofdQ=

          "]]}, 
        Annotation[#, "Charting`Private`Tag$18718#4"]& ]}, {}}, {{}, {{{
         Directive[
          PointSize[0.011000000000000001`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         PointBox[CompressedData["
1:eJwtUmtIU1EAnlnmAyRCC7UWpokipplgCPYhleuHMSaUVrMXOitEZ5H5qpUw
M0pXJITaw3yB0laghppZzpEVvqesWuUr855776ZoEwKjdq/ng8PhcM75XucE
nstJzlgnkUiinUOYi3wMsunCSiwpT0xeqFjA2roBfvVPehPDF9Ah1XKKDgO2
7yp1qx2z0/02lP6eKNtaYkd1lYBOPFjeYgjYZ0eneL4Hk/KNb3TLNvAKgaEX
GtOpDbWtNnrfhHdlqzear9rgaalXx3v24+zF1qhw2CjfR0Qwtz50e9gQptQZ
HaEDMGg/XXG38NTPEFLLtRXvm3g0OG9b6kegveZb3JXPU71RDJ1MzH+ZxCNm
rwAzrIPZ1qKdPIpF/XHcfeo16vjDoc8R6lSYgEmTf2x1jIOX6MeCPUfk6lw9
h2RR8DPqcvvL4m5z1N8XWDcpbFBxmC4UCL9CHiVPzzrIUb/f4HpfP/E8iEOu
YE/9HRqP0+sWXTnazw9YdH2ykDkWEhFT8C5tykroZ2meKTCZHnkxLSwOrwkg
7bWiZLmcpfmmUbmtu/nyJRb3jEKAGRh7ImdbUliadxabE7p4XTyLtTiz6Lwu
jfUPZmn/P+GmWjUneLHYIdiRziGwNkL1b4lApDPOQRqz3ifJSpCpEvAL2Ukh
RYEmQvuZR1TVYGOBnuCFTDA4j2eucS7yh4T2xSBkZffRRzcJVgQ6B4Pq9tRu
ZRah/RHk5RQ/vpNCsF/8ACzk5Hhj8AGCGTEuC1YR1hsUSSDa03L421bnpw0g
tF8eLv4a70PuBIMDAng0FmREn3HqiPWpbVCUxsrMMwx8hbg+drwabo2rGWFo
/3acD0gPau9hkCbQKRcwbh+Ol+oZ+h6LeAuemGsY/Af+35OH
          
          "]]}}}, {{}, {}}}}, {
    AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0.75},
      DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImagePadding -> All, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0., 0.9999999795918367}, {0.75, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{
          "\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""}, 
          "LineLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), 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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"OptimizedPT\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    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]& ), 
          InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835273007949856*^9, 3.835273042596251*^9}, {
   3.835273176261362*^9, 3.8352732210410643`*^9}, {3.8353191053743353`*^9, 
   3.835319109389069*^9}, 3.835319176347507*^9, 3.835319291528244*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"2c6260d1-dca5-4906-9700-9a101e08a26d"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwdznk01XkDBnBcTUiyTFLJNiFLwq8mRM8XNYpGC6qjiSHcRjTpJE0LqhFa
hCQtsqVChUaL3jKWRlku2SJ+uFx3v1xr2aZe7/uc85znfP579P1/3xUoJyMj
c3mu/1uVzVOjVa4+oP6fFrxt0du2R+8PLFKqtfmpS4pv1WXn9fTioXKoIn/7
SylUkp8XKXUkgxm1xIyXKkV6+RXdeXo38dLWm9dzXApzaUDCN2YGvPY/fKO5
V4pulbtfZ9uzYS/7afcROylCHMJDv+jmwU3W5OkqOSn+amXfG3d+BHZvxClf
/hCmD22jR5iFiBsoZwexhrCJlWT4uf0pYtgH7hXeHkLLzMGUYd1SxGXYzZdi
CMff6VhKi19Bv/OD6QHTISy71lo36Pwa2z/8+m734iH4mxKGmPk3PjP0SI5k
ECceLSgdba+EydHZRrvMQczv6jce1K1B9oUe5Zolg+gofxMuEdTg7U4123kK
g8i/n1YlLq7FxoLrODcpgftRd1+Rcz0i9PLtfuyUIFXxVSqf2Qjp5uCz2zMl
UL/zXm6kvRnlk9mB9DoJZlSe5x2xb0FoRcW0h4kEA2dzdgxntmCSpV80pi3B
c2bkXelvrbgqLAl6IC+BN7XWbmimDQFbHO/80yZGVm1GmFj3EwzuHos1jBRj
PO2Zae/lT7AVU7HtR8X4iVnHaZ76BJvf5dvymGJIGF+8XrV0ghWue/zRTjFs
HNzt4mNpRHZ38jSNxfhQOCtnLO1FrmUEa/qjCOpQ9FlowUZ+c61fEEuEDUYp
drEBbBQgUU1YJULCeN7YySY2nrVuV7AuFmFtUlugf0EffC8+6au+LEJUrbmr
lS8HZYv2v8hzEeFh8QujguscxOzyk+6FCM1pTgzDeg7a9a8nLF0vwkrm3tda
tgP4fgeDwzISoZbxp4WMBhfnuweYM9+JoOnQpd5YzUMumpZTtUI8KYzvCrEQ
QXBR7ma2txAiddFlVz8RhBs2FZzxFML4uOvGVSki9HuHbfV3FyLTfkEWZ0qE
9ebJz1ychEiuuRzk/Y8YHaKXDtGmQhznXB1x+WUQydqJBkmzAmQsqDuvtnkY
sttCLibeF2Cjw6lfon2GccFg9fbQLAHow2brpBHDmL51tn7HHQG0mi/x6vOH
MV8165FZsgBJadu2xqmOIKtn1HpNpADnDRtUvnWNoMhgUabvHgGYaLopOTqG
4GJ7J4aKADLZn191XRrD7tAHe4sUBUiT16Zr743hq1flBv95AryvCdLJ+ziG
txqcja2zfKzynM0OtBtHxO1R3WExH4KDxo96ZCcwULle8rWWj+DkM2UfEj9j
bLEnc8NlPg5zTTglT6aQoOz5XfJSPtg+nxQqaqZwAd5vBIv58OiIs2ANTCHs
V8VxJ3U+bOr4f3CXTWPW8V217AI+GMW5qpqx01CMd9/1cJaHtNP6GyN8ZyC3
Y/fra2weKjSW3rRV/RfpvnlNr/N5UNL/07jXRoacFmvru7rw8N4+aU3kZhkC
ElcYv4mHC3vvrl+xS4b4jFs71jnyIJf40mXfIRmyzln1gKc9D9NfJcz2dBli
5fHUI9KKBzHt9bBRTpZEPdBPstDmoT7N2KS8XpY4nYxtGRrlIkG1zjTrVwbh
OtxwP5LLhX+X59+M+u+IS7VQMUWVi7B//vT/3ViJRLdpWh9LHkDxEWUPra0L
SUx5anqW6QCyTh0SWe5RJW5RCtqq1Rycy5jdOS5RI4wjGsKgMA5kWtjk9UkN
UsjsaL5lyIHRsaATnqaLSf6lkDMWnf0YmLixe8EbTRKs2muw9WY/XLnBZ5LD
tIjgHtNmyd5+uA8kmunoLCMRV08vydTuh6jKP/r94+VESyngfqmgDxZqH1c4
+64gwSs+lvf81QclTPjRYzqkKEKhNzimDy6D3l8MvPTII6P2igGvPnRUBsh6
m+uTscDB6jqTPjyLe+ujN6FPmhwVbV7J9SFoXji7ocGAaL14LBPSycaBo6ee
Kd/6gVysepp55Tkba5hmDdv8VhIvrRvj/BQ2GtXNF4TbGpLqu9pfv4Sx8Z8n
526bM4yIUar2wtJdbJySNd1R321EEkOjZ2yt2VCiT245XGJMzA5ujrytwQb3
vn5KxulVJEapMc1uuBcpq5bKl3qZkCVctbi3z3uReCvonZ+eKWk94BatcL4X
3in7G5T5pmR40+DLf3f2YnJT7lRGmRm537DGLV6nFxyu04nKWHOiFBt+cPFw
D7IdrJaz/FaTEIeE+F1/9+BxTLgac7UFcaVMLqy91oNYrwNujAkLcsl5T/Pa
33qwjs7Ki2WtIY0zJGHavgdpJrcfs9wsCdXwQKf/+x5ElV9Jcyu1JJu4BbkP
RN34eblXbu1KKxIzJp/oU9kNx8Pv9qnFW5Hgfql+TXo3MrT9V9ZPWJH5qjfa
jCK6sbLqQar7PmtiHnTpJznPbiSurjRtLrMm3r98yfa37kbQmHxTjSlFijTx
plalG/7Fo3rxVynS7D854TtEI+Scx6xrEkVGl0zzPwzSCPcoaVe+RpEPyBE4
zjluIjwhMZUiG/rZi1dKaDyxnZq5kU6Rv8Jf6wqFNKYqvn28X0CR8dCrQ+Fc
GonNylfevqPIvajMwFs0jVs5oQcv1FDERmGL8cI55xxrcN5SR5F0Z/IlqovG
c83E6boGiiw116oM7KRBe2scbGmjiNz+5QzrDhrGnKXO/RyK/BCgY8lqoWFZ
clLnHpcipcrX2sic7WK6pgL5FDmuZxFf0kxjm3F6kVBEkROqrGV3mmgcPaSn
MzJCkcPiAP6hRhqn7c9OPR2jyNqKqn97G2jELOxvPTZBkWSDtQaec04rzLk0
OTn3zxDX7Vk0sqPlma+mKdJ5o5VTVE+jYGeg0+lZipT9GEYM51xiUL1i41eK
/ByiXnCzjkbZmNHUt28Usct59oPKnP8L7fVVtw==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#1"]& ], 
       TagBox[{
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[{{4.0816326530612243`*^-7, 0.9999996938780977}, {
          0.006134358411192534, 0.9955168828179639}, {0.012268308659119763`, 
          0.9912489277865278}, {0.01840225890704699, 0.9871704548089307}, {
          0.02453620915497422, 0.9832637990544478}, {0.03067015940290145, 
          0.9795363372224464}, {0.03680410965082868, 0.9761066443108479}, {
          0.042938059898755904`, 0.9734969023967084}, {0.04907201014668314, 
          0.9734249519911682}, {0.055205960394610364`, 0.9806384460172736}, {
          0.05976319212352822, 1.}}]}, 
        Annotation[#, "Charting`Private`Tag$22294#2"]& ], 
       TagBox[{
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwdxwk81HkDx/EJpZUUNrSJ0cpoSLV/duXo+3tCbRJLtC0tEaayKUrolGpp
u5BHupyptZK00u3KVsaYDrVo7BjmNIchRw0eHs/zfb0+r+/rbRWxOyBKi0aj
nZnqf6/lpfn4zDsU1P/XisZWus+P9GQs1GM7r+GpMfm85jidfgpbY+r/8Hug
hkFW9R299izsOG5qJ8lR41rdWcvp9EvghAdL+PvVsFdHnptk5eO8R+lTk81q
/GOQNzHeVoSzpzs37XFR4xf3hF2fLEuhOet511ZLjT/fCa4PedyCrsu9g2HS
PozG+HQOsCoQYOTWHd3SB8+WzMUjbXdhuryvpOJKH1rHtmf3Wz6EOlEwR40+
7H9hsVxd+QjiYP3vtjH78NWFd80qjycIGUP7pnl9iGASbQWrFu5erqHFShWS
bs16+LGtAcIHDRauBSro8noYKssmNK2O9WebqtBe9zRBKWvCX3G0OzNmqvDH
jdxniko2bJrX9R3/rIRvvG+Y3IODE1+H7HT+oETOF49ypKxXcIx11dpYoITR
1ZdaA21v8cNTzxkiJyXGDKpL97i1QjVps27LEiVEx4p/6C9oBefxsepxcyWq
WUfy1DvewbGhcbxSR4lgytGlb+w9NszsbWt9r0AhOz9OYdmBGP3Yn92PKDCU
e4/ZdaYD3+6rVfTHK7CG1Sx8q+lA9fbM9kaWAkrtT0GPWj9gLG+ol+2vgLO7
r8uptE54VVfruTMUeF0xrsVQd0HYW/2EapPDCF+EznYQwN9El1bUIoerTbZL
WqQAC+YGxjMa5Tg3VDp44I0A9/2CluyvlMMx831URFk3Qpgf9pqeleMo2957
RZgQvkEBuqbfy/F75X2bsn8L8Tkx1YkNOd7mrtZezBHCebq14Nx3clizNj8x
WynCu5Tk0+sZcrC1TzjQjMVY1mRQ95uuHCbuPKNXzyXwFD0S97J7cbviFO8X
Bzlm111++iCkF3Ij+RnvcDkqNscbXA7qBWO/9yrbbDmWXd8yccKvFwVuswqF
Gjnq6sLWJnr0IqvpTHTwXwqQe4mxbLte7BeeH1i7RYVmiZ/VlxMy5M9qPm7o
1Y+QJ5XUhd9lWOV+cEtKaD8yAoxXxBXL0Blr56RO7EeDhn4/Mk8Gs7enJZw/
+uG2+ycr/2wZMnN91qXPHUCJc212UooMxxdzDSZ5AzBWFTkN/SQDC28uKeMH
0VjA9nc1lIFWNPKId3oQm3LsRz/qy5CrY97Jvj4I0yi/oxUzZXjZFG1R+vcg
Ss1SRr6lyWAbOF4U5TKEHb7+R46opZBtZ9ziTxtGpFVWmpQrxc6swzWvM0bw
42zTbmGGFLHiJcKq2xpQA9Y0saUUgtCOmfVNGgQ9OL9wvbkUG9vTHVpEGjDr
OU1VZlI4N0uTxV+Ngp4trMoylEK7smSuSdooDvuFWCdpS5F7yGpVYtgYwvnl
80RSCeqN519aOfc/MPnzDcfsTwn0rE4wupxpJOZbyWGRvwQv3TKXHfGiEZ3d
h9Kc/CT4dXPedwsDaEQuj8xL95FAK+PB2pAYGklI48gc10owOqFktV2jkavl
lwtL3CRQdAb9/kprGtF3bFgtZkjAyWUsqeNMIx+ezAhsnhTj3NxmZuFWbZI8
gcS7VWJE8AJrtTkzSEqQ591di8WI++tExG6GHknyjLnoVC5C5R79jWbrZhMj
XgHXbr0IhQdj5Mt/nEvC76beNFMJkZo/7j+kNCS8/XaCkjwhaK0C8uSAMWlj
jLnp/SSEzb7opEDmPPLsvqeE9aUQouGLm2Y9NSEdJScEPR098BbvPJwVZ0aU
KyUF+fk98BVl2FlYfEVS4monRnb2QP4sIuVl+QKyw9zLM9q9Bw6Gfy/0CFtI
pHWuqdvm9EAPw+GdgxakNdk41FvajbWq4E+LgugkuZ7EX6npRntD5LRgeyuy
yNTyqP2lbtxLbwylD1uRm59dD3kldSN6eoKAy11EVh23zrq4qRvb4g/e07/8
NSnub9D94NyNZSw7rk+4NZmvl9TDWNiNV0b2sxJWLibMADLvKq0bj2+nXrHX
tiEy3lVzT6kAB6cxf+D8Y0P2emxZNL9FAL3OA9/HVjFISDo9IL9KAPENq+z8
Q7akrDBMl5MnQLbtfJ2HQUvIHP7YzMXpAmRcjn4RTmcSekflOuFeAYKzf+bq
S5kkxzjyAXerAJ89SzT5NXZk7/0aLYWPAELx6qSGNHuye2Yhx9hVgCL3FQta
wpeSc3fKTJNsBSg/mWDIWupA1sS1ej41FSAtaNt67WEHwqP2bJbpCuDUWVia
1rKMjPBNA2/1dSF3yZXylvXLCSuxuJP7ugtH687mrn+4nJizGIW/VXZhw4Kg
Erb1CuK7qlohutCFf8W+CDE8tYKs2dBkRE/uQr55hDVneAV5l6fy0Pm5C9bP
bub4hnxDooyaSy56dCFjaQPzbc03ZCTzywtRdl2IHtR508SkSHxFn4vSsAsR
lR/pp85TpDrktqh9lI9fUjeOe2dSRCewK3DvlBM2VrXpX6BIxxbum9lTTh9O
OJeRQ5EvHDoHVmv4uL1SM3bxGkUCPuxil3/iQ1M/+feNMoo859rwTg7xkfFW
/2zjC4pkunVuRx8fl4t3bf+1iSJxutwYnoqP4n1cj++bKTLvsd3BxClXm2SM
NnMpcuwlvbZCyUdnsPH21vcUcTQp49EVfDCE8z16hBTJuzEnarqMj+VVByyu
iylSa3ZhaZGUD5eTPE2UlCIrE4K1MGUfxrU7vXKKbJhR9jpJwkd8DN1iYIAi
5WEGNJWIj0NuxzR3BykSORLD/G3KJ2f3vNs3TJH6x5qtjCnnVhSf/vyZIuxp
Vz+GC/koStFhPRqlCP9K2YbJHj7K/KNWHxqnyI6L3VVXp1y16PnCVRMUaUt1
tXWZcs2gjWZykiIequqbbd18/BefVFun
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#3"]& ], 
       TagBox[{
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Opacity[1.], 
         LineBox[CompressedData["
1:eJwV1Xk41PsXB/BhRNF0B78rSbYr+5JGtwjng1JSWmhDlGJEtPyiZEsSiqhU
0kVUsiR0qShCirGMPTSEfGe+Y8wY6zCI3/z+OM95Xv+c533+OM9R9zx/yEuc
QCC8FdX/e1q4p6TJmadWirxs1+VlPtR2qO09qhYMytIN2+wYfFj+VhmlphYH
k4nVefs/8CGtKkF1hdoTCGqJZ/0M4oMB/8zdZWoGtFyprlQ4xof+NelLi91Z
QFgr4XrBnA/nLAP9Z1VzAW+2b9UR58O/nYMvpm1fw3C//icPfAzm/fb2TVAL
QSpD0Z3aPAY7mu9tFHS/hQbPz0rFT8egY8EneVy1DIYfddsIYAyC6lQ28YvL
QX42Y52/3hgoPehs5Nl+gpjcmLVn/hwDTz1EHKV+huse9RVlXB5cfS1TNtld
A8rrgpbOP+OBFOOXNk+VBkqNigqRijzoqaoI5LJpYL3pUGHXSh7kZad8GS1u
gNCuAW1/IRccLzl6cGyboIt89oAbgwuPVpU/wqktILH/eqhkFhfk/qkXn+hu
h4/09nxtMy4srHmXe8GiA2wcHaX6DbiART4/MP6sA6rkXMgValx4Rw1P55/t
hK7Ez6rClVxwoZiajy10AWlj26QdYxQyGzIujqr2gkS6ckzkrVGYTinVG4jv
hYgiEvl5yCjYURuH24W9oOWq2otfGAUucfZweccPoKXyTXtcR2GbpaN5XEwf
rGAUpyPKKLQWLopr8wfgXZG9z0ucA3Kwyp1kNAhH3J7LFvzkwHatZPOYM4Pg
/fCOD72LA3enc6eutQ3CkIfPLrdaDpje6/LyzB+C+5aEuylZHIhoMNhj4jEM
H9xe7TI/zYGc4vda+Q+H4VxP1L58Vw60p9gQNzYNQ1ndl25jZw5oUo99UjTD
IKaGYXFpJwcaiDeNCPJMsC6ZJXbqcEDBkiHX8o0FL06fT6FPjsCbwjjGOSMO
GK8fal26NwIcOU78nlMc8E7Lz6uOHwHtoD1WOskcWHHXl5IYMwLPLGQyh4Uc
mLvCabQPG4H7tHhvl6+jkD14MNHs7AgEDSdO7HLjwX9lrWhsmxHIkGmMkt05
Dma9cp60RTZYWYa4XXcfh/10p9i8OTb0Behv4V8Zh3cvbsk+mGaDYvsdVlPe
OAhWWS4Gc9lwL2WvfSx5AihR4X+k9bEhaiN9zTJjAlqXOQLtSjZQoe0J99IU
BNb9xBjRbCBkCcoZd6bgtkKT4PENNqRIKPc1vJiCLtNV+scj2FBP81bJ/T4F
l4IyaZyrbNBxXszyMp+GflP5+/bn2MD20X79U2wGbKRTPUad2OB7P6yyNUkA
hpeZ+65osUF8Jmvgc64AbGb602v+YkPq0XpCYY0ApvO2NMmqs6FBWd42YVoA
Qpvm1I/r2aD/KqfO/tgsLKS6a1rIsoH7saO1RnUOtMJ613EWcQhg6g6XvBFC
V7m6e913HAbde1dW04TgOZPr79iJg1NPrFEzJoQiKiz1tOGwrREPZirNg1xp
yc25JhyIxS/JCjHzYOjr7nLyCw4poepWVzwWQHEFXaq5CIdq+XVPzMi/IcHq
lykvAQfThPrKnfq/QWm5+UT3HRyyJa9iB+1+w2zvQ4vaOBzihd+NfUN/w+Af
9yWzo3E4MpD8LZX9G2J2aG2PC8OBk0eeXqhagr+e76DR/HGQVr+pPbCNgK61
RJLkD+BQb3HPOHwnAVH3JkmedcTh1rH0rRsOERC6qNlftRcH8aQPu1z9CGjb
3wcVguxxmF/iUrvTCMiaFOApsMFhtO9wTou4GMqZu/LV4W8cmlK0dauaxNDx
RC/1v1VwuF1iauLRK4aqqzs21yjjsLvV2myJKYbCsWja/vU41Eq52VssiyED
Nb2w84o4fApKOvvBRByl67z7WCWHQ4GzMLfokTgiy9Q/zpHC4S65US/zJBH1
KVXXh0+yoGzrhlLHACLKUnDuXz/BAsz9PCyGEFHO45N+5XwWbC+Qdz76mIjO
FkRwFrgsYNu7hZHoRMQwVjVNwllgG8VrCd4ugZQ+Ti0t9LFgbuaPwEMKK5DS
hpCitnoWeDKcPxObJNGHbu7t1S9YIP10yP9iryR6oJFr/juLBW9dApQHWJII
3M2wsUwWEH/EBJeLSaFiy/+qdmWI7rannHJxqxR69X6jbMFTFrC61HJ+Zkkh
TEavKu4BC3xbuUllwStRyMMfH3hRLLj49abneW1plP/aTkuDygIVzE5SQJFG
hnPhb494s6BRfFVeKJJGFe0nGHe8WLARJUzEHZdGocEWhLnTLOgtf3j9xR1p
RBEIbnSfZIF1UXZ6L18amYRndbx1YYHs0/ofth9kkF0vnfzdkQXFF1Y7KdqT
kLRR7NWCbSxoSpUPLjhCQieoY/MzW0V5a5UybM6Q0P7x3ytBZKV1uqPnIkio
xvifr+1bWHCzemdUdSkJYY3PCgkUFhyRi/jXV2MNkorWrQo0ZMH8vxPyFQtr
0LMLDk1VGizIDPHjbDpKRh+VYxc/rWHBjYzFg9NcWSRF96h/w2MCoWMQfbom
j3Q7o7d/bWOC1mXvq856f6J9A7Tim++ZgM08PiJToYCsOsy+KmUxYQ/TN+z+
RUVUlKC6MjuBCY5Ykr6KihKqaycb/gphAueL5/X6gvXI4cm+BJI/E4xkv2+w
9diA+DLqgQ/cmSANM6f6plTQtSz9P90OMWEXz2VW47Aa0vDYnH/Ejgk9NWfE
XAzU0a2Cg7dTtzOhNLbWXW1GHU20rOL4bWaC94rAQTpdAz2bEL9nq8uE05dC
Slen/oXko6ziT6ozwZiqT997ShO9rNzQulmJCS1yBjKBZhvRE58wnkCOCR/f
3HhqQNRCaa8f2LxZzYQQMb0DTf1aSCknqtlJUpSv79rugBJt9E/+Z0YkgQnM
bPXkjFAdlBqQFeG7gEGyzjqJssO6yLk0O8NcgEFSqnfdKTU9FNvNPf16AgOX
5BP01bgecmDmSVzmYTC346Uwo1IfJVbcdlMbwWCYaXO1JsYA1QRxKhyZGGRZ
mqxvPmWIHH8YzXoOYVAQHShLNTRCyc1i1px+0Z86fNqBOGOE4r2HVAp+YLCl
LzM3ptkY1U6axR7uxiBF92lBs8Mm5LHgs/lEJwYRVQkpDmWb0Lfh26MObRjs
W3/4ZYOmCQp9X3jSn46BdUCdq2ycCfKdRZE/GzHIUPbUbJoxQVVD+c5baRho
fnn1yNF1M6osJV/s+Sbaz7BGr71yM4rqp55Oq8XAe0qijaZHQW41Q8I9NRh4
Fk+qxSVS0HbS3Vt/V2Fw7obT4p57FNRa0+RnKHKgU0n36gcURIxPO6QpcuxM
4N2kRxR0sGxKU07kN2bChcdpFKSoQ+3jfcZAWL38PTufgsbXkB+9FDmpfXVC
bR0FXRHLMFEQOfW5v88tGgWtdTq+myTy88t0292NFGS3mHJSQuR3CknzjXQK
wr5lP5ysxKDPRd6no4uCznpMyLaIrD28zvbXMAWRVbmHYkXeVHJN5QWTgrzC
myMjRDaPZgi9cApqlDZ6GyTyXu20ohEOBX3V9FvrJfIlPzWViQkK2lXeMGUt
cqhFpPDtFAXp/kw1MhM5mvSr8/IMBZ3Qwn03iZxS+PzO3JxoXuYkriJy1nUJ
avk8BXn8p1hHQeT8g142oYsUJNDl+JJELtH4tsFqiYISb6S9kRC5ckpLuLxM
QQ6VDVMLFRj8DxPTmmI=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$22294#4"]& ]}, {}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7PfZv3l5efYLe6iAw++T3/7XGjyD8jkclNIn
LuXe+QTKF3Aw2JbirbnuMZQv4jB3QUjCkgePoHwJh6mHDDqLrWB8GQdpa5tH
HesfQvkKDkmRGw9Ot4DxlRy0wpade3DhAZSv4nCA43u+UimMr+YgaBVwlUMZ
xtdw8Jhx++D2jfehfC0HhYBUndlaML6Ow5sN3HVb192D8vUcXBW75+fYwPgG
DiW3qy6VXboL5Rs67NlmrHk8H8Y3clj1b+OEemEY39iBSfjV/Gd77kD5Jg5v
ygtZErLv2AMA1Hpd1A==
          "]]}}}, {{}, {}}}}, {
    AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0.3}, 
     DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImagePadding -> All, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0., 19.999999591836733`}, {0.3, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{
          "\"I(g)\"", "\"Truncated\"", "\"BorelPade\"", "\"Pade\""}, 
          "LineLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), 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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"OptimizedPT\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    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]& ), 
          InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835273007949856*^9, 3.835273042596251*^9}, {
   3.835273176261362*^9, 3.8352732210410643`*^9}, {3.8353191053743353`*^9, 
   3.835319109389069*^9}, 3.835319176347507*^9, 3.835319291643594*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"afba73ca-ea0e-4aaf-a09c-598b6e69134e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"tab", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"gval", ",", 
          RowBox[{"opt", "[", 
           RowBox[{"gval", ",", "nmax"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"gval", ",", " ", "0.02", ",", " ", "1", ",", " ", "0.1"}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ListPlot", "[", "tab", "]"}], ",", " ", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"g", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"nmax", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"tab", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"gval", ",", 
          RowBox[{"opt", "[", 
           RowBox[{"gval", ",", "nmax"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"gval", ",", " ", "1", ",", " ", "20", ",", " ", "2"}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ListPlot", "[", "tab", "]"}], ",", " ", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"g", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "]"}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"nmax", ",", "1", ",", "5", ",", "2"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"tab", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"gval", ",", 
         RowBox[{"opt", "[", 
          RowBox[{"gval", ",", "nmax"}], "]"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"gval", ",", " ", "10", ",", " ", "100", ",", " ", "10"}], 
        "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ListPlot", "[", "tab", "]"}], ",", " ", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"g", ",", "0", ",", "100"}], "}"}]}], "]"}]}], "]"}]}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"nmax", ",", "1", ",", "7", ",", "2"}], "}"}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.8352756044973383`*^9, 3.835275636298357*^9}, {
  3.835275669892879*^9, 3.835275705491906*^9}, {3.83527583023568*^9, 
  3.8352758390573683`*^9}, {3.835275878085693*^9, 3.8352759237940073`*^9}, {
  3.835275987692369*^9, 3.835275988635776*^9}, {3.835276140910033*^9, 
  3.835276141059943*^9}, {3.8352763010825043`*^9, 3.835276347737588*^9}, {
  3.835276468190236*^9, 3.8352764806931047`*^9}, {3.8353191131279297`*^9, 
  3.83531912203898*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"f74348df-9a6a-4e25-85ce-5334277cd223"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{0.02, 0.9857359723056021}, {0.12000000000000001`, 
        0.9301847260690871}, {0.22, 0.8903137182636562}, {0.32, 
        0.8592637043468199}, {0.42000000000000004`, 0.8338885312100343}, {
        0.52, 0.8124741861849835}, {0.6200000000000001, 0.7939814257463021}, {
        0.7200000000000001, 0.7777318991233179}, {0.8200000000000001, 
        0.7632581562332768}, {0.92, 
        0.7502243787454766}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1Hs81Pkex3GDNrHJaNWOpVmXkUupbdWxlfOutNikDW1Y16XVsmeVjkr2
lEaGlGRriqII3czWTJlRG3KbVB5JoYNiMBz9fnPxzVmDLtjf/vF9fB7Pvz7f
7/ePl030roAf9fX09KKZ8/dcLDLMTxx3xAj/6jGv3kEYelru7uO4IcAizH3R
NMGXRfmFFZyNiOR113t8IBiysufvd9gCc/Hj3yLeEfi2dN6+wNmG9bPqLx+e
JLDPtr48ww3B4YTQ96XjBB82xeT94BCBVOKR+2iMIGjHRM0pzg5MNZ9LsBgl
kHta3mksjEUjJ7PCgxAst/OQjHHjEDKnzHWnlsBImVay3SEBC8Si+zU0Qe+y
TM8TnCSwJ32NDygJhEWf1vFC92LvtS55eT/Bpnnla+8X7gPvbWtZr4KgcuTJ
SsI9gMYzi1q8XhHk3DB39Hc4hHdfH8xy6CAotvg24xgnHWvyZQssmwh+bcmT
b7+XjqRkG59wOcF2Qb++XagAkhJu2qUGgo91ialVhRlofP7dnKW1BMkdwmQN
NwtHlBvct94l8D/9Mn6LQw5M7gQ3Pign4BtVLM7iCBFhcf5uTC6Bs/dvR2/v
FsJn7TP/khyCNsEu+tVDIUhQp3Ygm/k/gyUi131n0B6Q4Lgji6Bpqsy1o+0s
YkOXpSalMfv/PLuSm30OlvXJKY1JBPm9KZ6y6Yvw6iOn2N8TBIdcEr8ZLUOK
maTbdTGByQw/zHuRGDO/nHlQ2zoCnv8I1Xhcih+opvcK/gj2P/0K+WN/wHW+
pCvZbQQLpWwFi1ULXlxmTu2oFpVKzyetaxtwXZJYf+imFg3xFz4L0cjxKMrG
5+VuLXQOHvNu/PIQHVvDXtet1kL/rcjsM14zBqKCj4cYaLFqJqoy8OYTJOem
GIe0afAk3e1pk3Mramf5WeWXacDNVb+9PvIM4tmSuA17NVBP9CleLG/Dm42D
rHm+GpSpqppNc9rRbWtKe3I1MLW+SoaGOnDVrujP+eNqZMfJYovt/wtd05fZ
vOdqjK8TDf2U2onwzeeKheVqJK2QSxc0dqGpxzVqIFONvpvy489tXkJuzNqS
F6PG+/iOAqeUV3hknRG7Yr0aLutnT8dW9WDtp+H37WzV8C6x2XlroQJR35gd
Smepsd860nYgrA+TooVxHwZVWKL5zqTTrx+iwZVzXz5UYf68N0byd/2w9x3N
/qJcBcPaArFd4QAi79n7+ZxU4We3qu45vkqExH10/vUeFUTfRBffH1ciTGzN
aglSQae2NBs+O4iLU05sJ6ggC/Q2EG4cgmOCsYslT4VUH0GRdHgIt0yk9yLm
qmDTu6mrVPA/TCZZZZSM01j9j3QhZ8UwLCJ1E5kKGmGLWt+y2odhFeglz35E
Q9d8Qrmb/xpsZeysdbdo5BtGJAXYU/i1WbBwsoDGfIWsRF9O4VtzfuTRTBqz
DvK3fZVIIz5m+KN2ZupdjxArzVXYNSZb8y6cxp7z4hPmDSrUVBxxee1Do8bl
qBE7QQ2jfcPOJW402Jv2LEkz1UCW9rX7AlsaPUuftR+o1sB5Oe0QakpDchH2
QxFaHKR5P3t/oBAuXsW2ntYikDx2VKgoHBZc4veUj0BT6ua2tYvCDcq6wHQz
gVOY/jO/hxSOXhBEKbYQpBtUHtFnvCNAy7vpT3DbxdzjThMFq+pqiV8QQf21
urrPGR87GdqUHU0gNeozGWPe+dOqc6PGB5gund4pKWigYJv+ic/sKwTsTwaX
kBoK0+7/mdt5jUD34mNhGeNu7WDbFRHB5gdyve8Z5wZVhHvdIpjWvlLJqynM
OAf8W1BNoKrJZRVUUeh5fvKiQTtBaFGku88fFO5mTMS0vyBw9zWZnLpLQbgm
0qm0i2DZOveaCsa+l12lG5hu8dvMg7mM7yW3POYz3Qv+p7R1vJLC2aUrT/pr
mPt2Blb9zjhRWbjNhunm6uCE36MZO27+V18d09moIbOipzIKhqyOstwJgriQ
vOJ0xv2yNfFRTLfVWWeurmZcHV+6bPkUwQaRsfSNlEIe10Q3M0Og+L/uwRXG
fwFcOiiK
          "]]},
        Annotation[#, "Charting`Private`Tag$12756#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.73714040132547},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 0.92}, {0.73714040132547, 0.9857359723056021}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{0.02, 0.9861344683039575}, {0.12000000000000001`, 
        0.935981625744258}, {0.22, 0.9012491512877909}, {0.32, 
        0.8742627222936662}, {0.42000000000000004`, 0.8521024665037745}, {
        0.52, 0.833276968517791}, {0.6200000000000001, 0.8169070316834768}, {
        0.7200000000000001, 0.8024261701910174}, {0.8200000000000001, 
        0.7894461850658362}, {0.92, 
        0.7776886359171818}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1Hs81Pkex3GDNrHJaNWOpVmXkUupbdWxlfOutNikDW1Y16XVsmeVjkr2
lEaGlGRriqII3czWTJlRG3KbVB5JoYNiMBz9fnPxzVmDLtjf/vF9fB7Pvz7f
7/ePl030roAf9fX09KKZ8/dcLDLMTxx3xAj/6jGv3kEYelru7uO4IcAizH3R
NMGXRfmFFZyNiOR113t8IBiysufvd9gCc/Hj3yLeEfi2dN6+wNmG9bPqLx+e
JLDPtr48ww3B4YTQ96XjBB82xeT94BCBVOKR+2iMIGjHRM0pzg5MNZ9LsBgl
kHta3mksjEUjJ7PCgxAst/OQjHHjEDKnzHWnlsBImVay3SEBC8Si+zU0Qe+y
TM8TnCSwJ32NDygJhEWf1vFC92LvtS55eT/Bpnnla+8X7gPvbWtZr4KgcuTJ
SsI9gMYzi1q8XhHk3DB39Hc4hHdfH8xy6CAotvg24xgnHWvyZQssmwh+bcmT
b7+XjqRkG59wOcF2Qb++XagAkhJu2qUGgo91ialVhRlofP7dnKW1BMkdwmQN
NwtHlBvct94l8D/9Mn6LQw5M7gQ3Pign4BtVLM7iCBFhcf5uTC6Bs/dvR2/v
FsJn7TP/khyCNsEu+tVDIUhQp3Ygm/k/gyUi131n0B6Q4Lgji6Bpqsy1o+0s
YkOXpSalMfv/PLuSm30OlvXJKY1JBPm9KZ6y6Yvw6iOn2N8TBIdcEr8ZLUOK
maTbdTGByQw/zHuRGDO/nHlQ2zoCnv8I1Xhcih+opvcK/gj2P/0K+WN/wHW+
pCvZbQQLpWwFi1ULXlxmTu2oFpVKzyetaxtwXZJYf+imFg3xFz4L0cjxKMrG
5+VuLXQOHvNu/PIQHVvDXtet1kL/rcjsM14zBqKCj4cYaLFqJqoy8OYTJOem
GIe0afAk3e1pk3Mramf5WeWXacDNVb+9PvIM4tmSuA17NVBP9CleLG/Dm42D
rHm+GpSpqppNc9rRbWtKe3I1MLW+SoaGOnDVrujP+eNqZMfJYovt/wtd05fZ
vOdqjK8TDf2U2onwzeeKheVqJK2QSxc0dqGpxzVqIFONvpvy489tXkJuzNqS
F6PG+/iOAqeUV3hknRG7Yr0aLutnT8dW9WDtp+H37WzV8C6x2XlroQJR35gd
Smepsd860nYgrA+TooVxHwZVWKL5zqTTrx+iwZVzXz5UYf68N0byd/2w9x3N
/qJcBcPaArFd4QAi79n7+ZxU4We3qu45vkqExH10/vUeFUTfRBffH1ciTGzN
aglSQae2NBs+O4iLU05sJ6ggC/Q2EG4cgmOCsYslT4VUH0GRdHgIt0yk9yLm
qmDTu6mrVPA/TCZZZZSM01j9j3QhZ8UwLCJ1E5kKGmGLWt+y2odhFeglz35E
Q9d8Qrmb/xpsZeysdbdo5BtGJAXYU/i1WbBwsoDGfIWsRF9O4VtzfuTRTBqz
DvK3fZVIIz5m+KN2ZupdjxArzVXYNSZb8y6cxp7z4hPmDSrUVBxxee1Do8bl
qBE7QQ2jfcPOJW402Jv2LEkz1UCW9rX7AlsaPUuftR+o1sB5Oe0QakpDchH2
QxFaHKR5P3t/oBAuXsW2ntYikDx2VKgoHBZc4veUj0BT6ua2tYvCDcq6wHQz
gVOY/jO/hxSOXhBEKbYQpBtUHtFnvCNAy7vpT3DbxdzjThMFq+pqiV8QQf21
urrPGR87GdqUHU0gNeozGWPe+dOqc6PGB5gund4pKWigYJv+ic/sKwTsTwaX
kBoK0+7/mdt5jUD34mNhGeNu7WDbFRHB5gdyve8Z5wZVhHvdIpjWvlLJqynM
OAf8W1BNoKrJZRVUUeh5fvKiQTtBaFGku88fFO5mTMS0vyBw9zWZnLpLQbgm
0qm0i2DZOveaCsa+l12lG5hu8dvMg7mM7yW3POYz3Qv+p7R1vJLC2aUrT/pr
mPt2Blb9zjhRWbjNhunm6uCE36MZO27+V18d09moIbOipzIKhqyOstwJgriQ
vOJ0xv2yNfFRTLfVWWeurmZcHV+6bPkUwQaRsfSNlEIe10Q3M0Og+L/uwRXG
fwFcOiiK
          "]]},
        Annotation[#, "Charting`Private`Tag$12848#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.7661083118956945},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 0.92}, {0.7661083118956945, 0.9861344683039575}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.835275862038246*^9, 3.8352759478185987`*^9, 
  3.835276012241663*^9, 3.835276099493799*^9, 3.835276163647688*^9, 
  3.8352763712160788`*^9, 3.835276473222754*^9, 3.835276506905757*^9, 
  3.835319198267179*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"24988c0b-4591-4efc-89c0-3880a0580426"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{1., 0.7406644114272425}, {3., 0.610909971867166}, {5., 
        0.5518311555074324}, {7., 0.5144316570047636}, {9., 
        0.4874802365261007}, {11., 0.4666240057948301}, {13., 
        0.44973480554187073`}, {15., 0.43561940611219735`}, {17., 
        0.4235446029500113}, {19., 
        0.4130291458804451}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVznk81Psex/FhnI61BofIcowsWbL9dLP2+Vq6QscpS3moOCbbFU56JF0p
TmVLaUhZOrKTlKVDpSsndJRliJCbn5lhzPZDYTgaxHX/eD9ej+d/byrtV+9Q
SRKJFLO1/1dY8WCH+y0m4JsFrOQVAt7Xr0safmFBpUU8Y3WUACWQCVQwY8Oj
oZ7gMAYB9ga5dmkhbKgFuqKwk4CspRpRwiAbmod/lrZqJMA6eySUVjsJQTfq
JrtuEpDUY+phGcSBth2nnte4EfCw8blB7V0OpHgHf/EHAobyncn6fRz4SL2b
pb6fAL1w/1Y122n44QiZwzAgoId83YykzIVrE9Pha9sIUHUcVxro4kElDGpg
PUKoq88YjzIjQHBDsqAsQAiEEnHTI5gAob1r7WVfIRhe8DiwJ5eAqYBYd5qX
EEoc5Eo5YgL2m+Y0uzkLIaf7ZljAXzMwRrxwTDYWwgXO7QW3k3OQo0nXzV4X
QLFc7zXFg/MgcTjqBr1KAAccL51MDpyHVN29P0eXCgCPMdn3JX4eVgt/6zvy
uwDUhjJ5fY/m4XtK6WOTHAFk5x92T6csQClz0cr8igCu6fdv3xxfgAbdHSVB
xwUQDoMFs+dEENno4EzeLgBS2d8vxzNFcCy62r9BRgD5Upp4T4UINvw67Gnf
CeBdd5h2zagI3ihzDgyv82GP73pZqN0SxN9f/HF+hg+CCMPHTIllmO7YP7vR
w4fInMtt7+l/g0jFN9z+Jh9iuEacpjoxZMn7bstR5wM78L/S7d1iSIWAVwIV
PviMpZsxpsUQ+4vMkrMSH2x6+f/m7lqFdae3XRJyfCA3VlJU01ZBJsPL++E6
D/ITqQfig9ZA8six1jtsHrQrqxfYUr5BUVDNYOsjHshSrxuybEgocUaT6uHG
g3cO2eZXDpIQoPT6DFcepPo/2K/lTUKBS1ZOvU48kKS/cDtxhoT2uVBO+zrw
YHVjNvxjEQlZ+jz1uWLJgxnc7+GApARKqqZmm2nyoC/f0Oh1nwRyTkj78HmR
C1mUXuPSX8iI65jndbaSC7Rx3z/JfduQW5dQJpfChdi/rtN+NZRFySOqVudz
pqHxrLyPmrsCSnl9r6jUeBpKL50hLI5TkGeStCaliwNXi9ePLs0qIvJZZWFY
LAdIH9ioNUEZ1YePDRXqc8DgfNhFX2MV9Cgz6rLZpymYXs47JvdKFUVSWLru
BVPgwY28nBOrhgQV4TY7/afAa5puoq29C8XfTtxZojkFRCct+d0TDaQmG1LV
IpgEM8VRLZcgLRSpNfqa+cckyMJyMC7SRg3x0qzIlElwmwtY0fXTQY8NPrZP
+03CWEeIRIApFYlC57p6jSahOf1NoM4yFQ06ydi8lJyEsO/i2P39ukjt+RNS
1Cc2nD53qVm+cDe60fm05NYzNpiHm/QfDtZDfmp5S/xcNgwomcrF2eqjrgea
GyuxbPhP3dX7pmQDZHBPU6HFmw2XJIyP9E0YIHp08pqtFRtk8YRDMU2GyCTi
4JX7ymzgVlFzixP3oBTZgXy7eRbk7lGXavEzQju5iulvnrGAXhj2NljHGA2f
9kyWvsaCgNxT/fJ8YzTvOvfi21EWfHWtFBe3maCqfnPPDG0WcLjOFzvSTJFs
WlyEyjwTyhwtNRjBe1GUY1aG959MeJISpxi+1wx5YEap1neYkOZ32pO8bIYy
XY4PWf+LCfvw0po0hjkaWENZqw5MyDe6/4ThaYGw/mrtqR+YkPT6Vr5niwVy
5dZWVhMT8JOGX2WPniVKEUnRAzsmwCnm7QnFDEsUOfWF2l00AcWaNL2+ZUv0
PSVvxCB+AvQ6q+95nbBCpmGZ/5T0nQD63g7joTYrFHBypYxmNQFhIqnBbmMM
NajCq57tE0BrXNTJuI2hIdrX5aDPOERd9Vn3yMbQ4s5V/vs5HOJ8mj7K38HQ
eygXOG05fTkui34PQ/ZTbBW9WRzqbMVreUUY+iOu9UehEAdx++ZoVS2GlqJv
f47j4kAfkr/15i2GKpJKQgtxHArLoyNSuzFkI33IUGHL5ef7XQ71YqjIBa0k
jePwTJW+2tuPIXVTtY7QTzjgAcoRH0YwJHlKg2w1hoMhR91lioOh3SHaFowP
OFg0JWhXcDHUIn9nBG3ZLmVcHMrH0AUds4ymIRwOGxY1CAkMXaQwdv0+iMO5
MzraCwsYipkJ4Z8ZwCHR4TfxUxGGrNs7v7H6cUhRmBo+v4yhHF1rXd8t59eX
Z379uvVPH+46MHAoS5YKf7mKoU95w5yGPhxqj4Y6J65jqO0fsUh/y026XVoH
NjD0U5RSbUEvDm0iA/HmJobsypt3b9/y/wAaDFv5
          "]], 
         LineBox[{{0.001518265989916398, 0.2463425738833285}, {
          0.005192844969955365, 0.8427128188341118}}]},
        Annotation[#, "Charting`Private`Tag$12940#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.39482718668340105`},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 19.}, {0.39482718668340105`, 0.7406644114272425}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{1., 0.7690219467931383}, {3., 0.6475885614156349}, {5., 
        0.589922130723625}, {7., 0.5526775759370567}, {9., 
        0.5254978214385961}, {11., 0.5042766729619094}, {13., 
        0.48697547278902853`}, {15., 0.4724380071679842}, {17., 
        0.4599473860133505}, {19., 
        0.4490295945800399}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVznk81Psex/FhnI61BofIcowsWbL9dLP2+Vq6QscpS3moOCbbFU56JF0p
TmVLaUhZOrKTlKVDpSsndJRliJCbn5lhzPZDYTgaxHX/eD9ej+d/byrtV+9Q
SRKJFLO1/1dY8WCH+y0m4JsFrOQVAt7Xr0safmFBpUU8Y3WUACWQCVQwY8Oj
oZ7gMAYB9ga5dmkhbKgFuqKwk4CspRpRwiAbmod/lrZqJMA6eySUVjsJQTfq
JrtuEpDUY+phGcSBth2nnte4EfCw8blB7V0OpHgHf/EHAobyncn6fRz4SL2b
pb6fAL1w/1Y122n44QiZwzAgoId83YykzIVrE9Pha9sIUHUcVxro4kElDGpg
PUKoq88YjzIjQHBDsqAsQAiEEnHTI5gAob1r7WVfIRhe8DiwJ5eAqYBYd5qX
EEoc5Eo5YgL2m+Y0uzkLIaf7ZljAXzMwRrxwTDYWwgXO7QW3k3OQo0nXzV4X
QLFc7zXFg/MgcTjqBr1KAAccL51MDpyHVN29P0eXCgCPMdn3JX4eVgt/6zvy
uwDUhjJ5fY/m4XtK6WOTHAFk5x92T6csQClz0cr8igCu6fdv3xxfgAbdHSVB
xwUQDoMFs+dEENno4EzeLgBS2d8vxzNFcCy62r9BRgD5Upp4T4UINvw67Gnf
CeBdd5h2zagI3ihzDgyv82GP73pZqN0SxN9f/HF+hg+CCMPHTIllmO7YP7vR
w4fInMtt7+l/g0jFN9z+Jh9iuEacpjoxZMn7bstR5wM78L/S7d1iSIWAVwIV
PviMpZsxpsUQ+4vMkrMSH2x6+f/m7lqFdae3XRJyfCA3VlJU01ZBJsPL++E6
D/ITqQfig9ZA8six1jtsHrQrqxfYUr5BUVDNYOsjHshSrxuybEgocUaT6uHG
g3cO2eZXDpIQoPT6DFcepPo/2K/lTUKBS1ZOvU48kKS/cDtxhoT2uVBO+zrw
YHVjNvxjEQlZ+jz1uWLJgxnc7+GApARKqqZmm2nyoC/f0Oh1nwRyTkj78HmR
C1mUXuPSX8iI65jndbaSC7Rx3z/JfduQW5dQJpfChdi/rtN+NZRFySOqVudz
pqHxrLyPmrsCSnl9r6jUeBpKL50hLI5TkGeStCaliwNXi9ePLs0qIvJZZWFY
LAdIH9ioNUEZ1YePDRXqc8DgfNhFX2MV9Cgz6rLZpymYXs47JvdKFUVSWLru
BVPgwY28nBOrhgQV4TY7/afAa5puoq29C8XfTtxZojkFRCct+d0TDaQmG1LV
IpgEM8VRLZcgLRSpNfqa+cckyMJyMC7SRg3x0qzIlElwmwtY0fXTQY8NPrZP
+03CWEeIRIApFYlC57p6jSahOf1NoM4yFQ06ydi8lJyEsO/i2P39ukjt+RNS
1Cc2nD53qVm+cDe60fm05NYzNpiHm/QfDtZDfmp5S/xcNgwomcrF2eqjrgea
GyuxbPhP3dX7pmQDZHBPU6HFmw2XJIyP9E0YIHp08pqtFRtk8YRDMU2GyCTi
4JX7ymzgVlFzixP3oBTZgXy7eRbk7lGXavEzQju5iulvnrGAXhj2NljHGA2f
9kyWvsaCgNxT/fJ8YzTvOvfi21EWfHWtFBe3maCqfnPPDG0WcLjOFzvSTJFs
WlyEyjwTyhwtNRjBe1GUY1aG959MeJISpxi+1wx5YEap1neYkOZ32pO8bIYy
XY4PWf+LCfvw0po0hjkaWENZqw5MyDe6/4ThaYGw/mrtqR+YkPT6Vr5niwVy
5dZWVhMT8JOGX2WPniVKEUnRAzsmwCnm7QnFDEsUOfWF2l00AcWaNL2+ZUv0
PSVvxCB+AvQ6q+95nbBCpmGZ/5T0nQD63g7joTYrFHBypYxmNQFhIqnBbmMM
NajCq57tE0BrXNTJuI2hIdrX5aDPOERd9Vn3yMbQ4s5V/vs5HOJ8mj7K38HQ
eygXOG05fTkui34PQ/ZTbBW9WRzqbMVreUUY+iOu9UehEAdx++ZoVS2GlqJv
f47j4kAfkr/15i2GKpJKQgtxHArLoyNSuzFkI33IUGHL5ef7XQ71YqjIBa0k
jePwTJW+2tuPIXVTtY7QTzjgAcoRH0YwJHlKg2w1hoMhR91lioOh3SHaFowP
OFg0JWhXcDHUIn9nBG3ZLmVcHMrH0AUds4ymIRwOGxY1CAkMXaQwdv0+iMO5
MzraCwsYipkJ4Z8ZwCHR4TfxUxGGrNs7v7H6cUhRmBo+v4yhHF1rXd8t59eX
Z379uvVPH+46MHAoS5YKf7mKoU95w5yGPhxqj4Y6J65jqO0fsUh/y026XVoH
NjD0U5RSbUEvDm0iA/HmJobsypt3b9/y/wAaDFv5
          "]], 
         LineBox[{{0.001518265989916398, 0.2463425738833285}, {
          0.005192844969955365, 0.8427128188341118}}]},
        Annotation[#, "Charting`Private`Tag$13032#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.4312522416793125},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 19.}, {0.4312522416793125, 0.7690219467931383}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{1., 0.7716439322685639}, {3., 0.6517316060727439}, {5., 
        0.5944970841469241}, {7., 0.557423849354694}, {9., 
        0.5303164012033839}, {11., 0.5091214561044717}, {13., 
        0.49182243844277235`}, {15., 0.477273779240255}, {17., 
        0.4647642346093974}, {19., 
        0.4538229933178169}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVznk81Psex/FhnI61BofIcowsWbL9dLP2+Vq6QscpS3moOCbbFU56JF0p
TmVLaUhZOrKTlKVDpSsndJRliJCbn5lhzPZDYTgaxHX/eD9ej+d/byrtV+9Q
SRKJFLO1/1dY8WCH+y0m4JsFrOQVAt7Xr0safmFBpUU8Y3WUACWQCVQwY8Oj
oZ7gMAYB9ga5dmkhbKgFuqKwk4CspRpRwiAbmod/lrZqJMA6eySUVjsJQTfq
JrtuEpDUY+phGcSBth2nnte4EfCw8blB7V0OpHgHf/EHAobyncn6fRz4SL2b
pb6fAL1w/1Y122n44QiZwzAgoId83YykzIVrE9Pha9sIUHUcVxro4kElDGpg
PUKoq88YjzIjQHBDsqAsQAiEEnHTI5gAob1r7WVfIRhe8DiwJ5eAqYBYd5qX
EEoc5Eo5YgL2m+Y0uzkLIaf7ZljAXzMwRrxwTDYWwgXO7QW3k3OQo0nXzV4X
QLFc7zXFg/MgcTjqBr1KAAccL51MDpyHVN29P0eXCgCPMdn3JX4eVgt/6zvy
uwDUhjJ5fY/m4XtK6WOTHAFk5x92T6csQClz0cr8igCu6fdv3xxfgAbdHSVB
xwUQDoMFs+dEENno4EzeLgBS2d8vxzNFcCy62r9BRgD5Upp4T4UINvw67Gnf
CeBdd5h2zagI3ihzDgyv82GP73pZqN0SxN9f/HF+hg+CCMPHTIllmO7YP7vR
w4fInMtt7+l/g0jFN9z+Jh9iuEacpjoxZMn7bstR5wM78L/S7d1iSIWAVwIV
PviMpZsxpsUQ+4vMkrMSH2x6+f/m7lqFdae3XRJyfCA3VlJU01ZBJsPL++E6
D/ITqQfig9ZA8six1jtsHrQrqxfYUr5BUVDNYOsjHshSrxuybEgocUaT6uHG
g3cO2eZXDpIQoPT6DFcepPo/2K/lTUKBS1ZOvU48kKS/cDtxhoT2uVBO+zrw
YHVjNvxjEQlZ+jz1uWLJgxnc7+GApARKqqZmm2nyoC/f0Oh1nwRyTkj78HmR
C1mUXuPSX8iI65jndbaSC7Rx3z/JfduQW5dQJpfChdi/rtN+NZRFySOqVudz
pqHxrLyPmrsCSnl9r6jUeBpKL50hLI5TkGeStCaliwNXi9ePLs0qIvJZZWFY
LAdIH9ioNUEZ1YePDRXqc8DgfNhFX2MV9Cgz6rLZpymYXs47JvdKFUVSWLru
BVPgwY28nBOrhgQV4TY7/afAa5puoq29C8XfTtxZojkFRCct+d0TDaQmG1LV
IpgEM8VRLZcgLRSpNfqa+cckyMJyMC7SRg3x0qzIlElwmwtY0fXTQY8NPrZP
+03CWEeIRIApFYlC57p6jSahOf1NoM4yFQ06ydi8lJyEsO/i2P39ukjt+RNS
1Cc2nD53qVm+cDe60fm05NYzNpiHm/QfDtZDfmp5S/xcNgwomcrF2eqjrgea
GyuxbPhP3dX7pmQDZHBPU6HFmw2XJIyP9E0YIHp08pqtFRtk8YRDMU2GyCTi
4JX7ymzgVlFzixP3oBTZgXy7eRbk7lGXavEzQju5iulvnrGAXhj2NljHGA2f
9kyWvsaCgNxT/fJ8YzTvOvfi21EWfHWtFBe3maCqfnPPDG0WcLjOFzvSTJFs
WlyEyjwTyhwtNRjBe1GUY1aG959MeJISpxi+1wx5YEap1neYkOZ32pO8bIYy
XY4PWf+LCfvw0po0hjkaWENZqw5MyDe6/4ThaYGw/mrtqR+YkPT6Vr5niwVy
5dZWVhMT8JOGX2WPniVKEUnRAzsmwCnm7QnFDEsUOfWF2l00AcWaNL2+ZUv0
PSVvxCB+AvQ6q+95nbBCpmGZ/5T0nQD63g7joTYrFHBypYxmNQFhIqnBbmMM
NajCq57tE0BrXNTJuI2hIdrX5aDPOERd9Vn3yMbQ4s5V/vs5HOJ8mj7K38HQ
eygXOG05fTkui34PQ/ZTbBW9WRzqbMVreUUY+iOu9UehEAdx++ZoVS2GlqJv
f47j4kAfkr/15i2GKpJKQgtxHArLoyNSuzFkI33IUGHL5ef7XQ71YqjIBa0k
jePwTJW+2tuPIXVTtY7QTzjgAcoRH0YwJHlKg2w1hoMhR91lioOh3SHaFowP
OFg0JWhXcDHUIn9nBG3ZLmVcHMrH0AUds4ymIRwOGxY1CAkMXaQwdv0+iMO5
MzraCwsYipkJ4Z8ZwCHR4TfxUxGGrNs7v7H6cUhRmBo+v4yhHF1rXd8t59eX
Z379uvVPH+46MHAoS5YKf7mKoU95w5yGPhxqj4Y6J65jqO0fsUh/y026XVoH
NjD0U5RSbUEvDm0iA/HmJobsypt3b9/y/wAaDFv5
          "]], 
         LineBox[{{0.001518265989916398, 0.2463425738833285}, {
          0.005192844969955365, 0.8427128188341118}}]},
        Annotation[#, "Charting`Private`Tag$13124#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.43616627448722006`},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 19.}, {0.43616627448722006`, 0.7716439322685639}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.835275862038246*^9, 3.8352759478185987`*^9, 
  3.835276012241663*^9, 3.835276099493799*^9, 3.835276163647688*^9, 
  3.8352763712160788`*^9, 3.835276473222754*^9, 3.835276506905757*^9, 
  3.835319233623262*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"1a043f65-3aa4-4944-8f92-1b098768f245"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{10., 0.47645390388811154`}, {20., 0.408248290463863}, {30., 
        0.3719860219457732}, {40., 0.3479005448910655}, {50., 
        0.3301449335559306}, {60., 0.316227766016838}, {70., 
        0.3048675319566656}, {80., 0.2953226498217762}, {90., 
        0.2871275797170492}, {100., 
        0.27997203041412616`}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVz3k41IkfB/BhRVvNs4hcE4Op0Aol0uHzcUVuY/BFbVEjRyRXW2mROyln
xzqiohxPh0qpKG2yXVZ8HQ2ay4b8HJtjMha/2T/ez/t5/fN+nrd24FEmW5pC
oURI8l/XmEg7OIZQsbizUtpZbxA+UM1+lNknj4aeiVNvXgmhw0nxclu8PH6s
YYwNNAqhN3N8/ZViefRdyc5cqhfC4LKbtpv65dHIxlwQWiWEfxdUEgl/Bfzf
oiGn/7wQDMbnZmt9FTGprE1Xbq8QMtoaB728lXCnKdcuZFEA51f9Hk2PU0LC
tjiW/10ABY5x0qOFSthk01QUOCWAq6830RO7lNDNIWN/wrAA6puu+lezlPFs
qcGYVqcA/r6d1LHIXIMhNUdbhqoEYH3B7sVNN1XsnJBWnd8rgETHB1UdEaqY
o8MJjycE0LRMN38hWxWNqfndP7AEsD2eEuT5XhWl2kavM5wEsCXk6colBzV8
NETNrbUQAMPGxMfbWh3vX2iOfaMiAFkRbVxmKw2t5K6Nf+7hg21dVo8Ri4a0
Sx87l5N8OBMufuEXTcNCK2swb+fDorAn/+49Gs6fOp5U/icfRO15Fns3rUWt
qZmK6gY+DFcvT72/QRPtDUKD0ov5wDYSU02odHzs17JgxOaDc196haomHb3+
sGfnBvDBNF15F8WIjveOnRqe3ccHGa7xkb/c6SjUyNFq8+bDtfOH34YX0HFY
x5td68AH7hiZVq2hjRqNS/bahnzwrb2zpGugg+ql8+2Pv/PARZ/9zxp7Bm6Z
SDbAKzwQZ8U+HfBmIJNzUVR+kQe3xlNTbwQx8PIzJkW2gAcyDyrVNqcxUPil
sZ48z4MnlsNWLi0MPK4x5n0uhQfrWWF5yTbr0N3Z9WRAJA8oCce2TMJ6LNcp
jsrew4M68nTsm2166KUg6vOQkuynHgoU7NHDUz7ZkeIFLpSaObnN++nhTMxI
G2uOC2cvq+obntbD1sn+w0qTXDi4935/TrMeFhRuPdk0wAWlwWEbwlEfGaNp
zxsauBA35ak45G+Ap96Xv9sYw4UdigZ3ZBJ+xkrpjdmK3z7D4fm8kgrCGAU+
F1IGfvoMR18PbbnjshkL7kw8rCUG4Kyf7LqFI6bIiVqRW1XVDwdbTwWZBJuh
n1VLiYpqPzTLqXmE+W7DFnbdKvlLfWCikHhxJGY7ilcE+3ar9MGBqV0/ux7Z
iaxeOyXbGg6Ul7bQRNmWOJpc+MeSJQfun9/e18FEpKodiR3r/wQxT3a5lzhb
4Rb7EU5v+id4/rbiW6a/NY4Tbpq3TT5BiL1FYwhhg5X1el+9v/RC8S2Th2Gh
thi1V/tr2ZVeyJ1qTIo8bodCXfJtC7MXvlTHxgVH7cYk49kyVOqFV7vzLp85
Y4/0H+SfLXX2gJQbR3Ah0QHdwx55yxb1AMWqXqrsxB7Ut4qreMHugQwVkUtH
uiOmXhLfLd7UA5F+B1+Kkp1wxrN/Q9RCN/CTTA9BoTOKDLbaxr7tBqX8K5zM
chd8bBbXfO73bqiUNzjRWuSKGynvDt042g3NUVp2G2rckPpuR/iIdTeU0sto
u1jumNHq/Oypejc0xospwe3u2B6Vq/Fkugu0neT+1fXxwDXKLIeJ913w4C/9
rE+kB65mUUKVq7rg3OtFY/o+JjZXdVulJXdBfvRI6IF+Jqrp2NsUBXRBvLLm
Tzq+njg565q136oLqvSXvY3heWLtgMFgvFYXyE5LqTX/wkLl0etdHyldcNP4
3m+lQyxMSQw+nccjQT+w2nUh3AsnTc3L+ppJ6NvTUOc16oWfpYErVUlCx/WT
hhDtjclHAoKuZ5Dw/b7HTp1v3vhc88+JmXASlh5HPUyL8MEv89Wbf2WR4GS8
2y5+xgcfkTI6qRYktO4zCgmLJvDLdMBtKW0SFA8GPy2JJRAN1+UV0kn4Jbic
2n6cwITv2Un6Es9Gra4zjScwYqN9socWCYwMkXghhcDpA6qK19aSkFj3/FzO
RQJfr9nhb6dOwnY597sPGwjUTXiXVbCahLRVmdLDTwlkxwi5+hJ/VHjJUm8i
UM3DF54rkhBMM5377SWBQTNe9K8KJFwyUbV2eEfgvnivUJQnYdqf18npJzBy
bQptYhUJGKC2nsolMGwuel2qxFlBzF+BT+D+7lILDYl1jr2i3fibwNHx4mT7
lSR4pN1ih48TuNxysaTsRxKKs/iPrk4SyGjOpJhLPJyjvqLjG4GWqyDiw3LJ
n6Jzt81EBDqGaIaJ5Uh4X9ZCCZkj0MjUVpwjsUrlIrNoXrK/Latgg8SBNeYV
HxYIPOH1j0WTLAm370aKlpYIPBgc85Ul8f8BVHY8+g==
          "]], 
         LineBox[{{0.0046072166003016625`, 0.14707583005192815`}, {
          0.019725798189835074`, 0.629919057063137}}]},
        Annotation[#, "Charting`Private`Tag$13216#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.26905637077668276`},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 100.}, {0.26905637077668276`, 0.47645390388811154`}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{10., 0.5142986475769007}, {20., 0.44405365404042985`}, {30.,
         0.40607269053913164`}, {40., 0.38062314183237284`}, {50., 
        0.3617551039430688}, {60., 0.3469056075875776}, {70., 
        0.3347465371013354}, {80., 0.3245050840697214}, {90., 
        0.3156939937113521}, {100., 
        0.3079873497581075}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVz3k41IkfB/BhRVvNs4hcE4Op0Aol0uHzcUVuY/BFbVEjRyRXW2mROyln
xzqiohxPh0qpKG2yXVZ8HQ2ay4b8HJtjMha/2T/ez/t5/fN+nrd24FEmW5pC
oURI8l/XmEg7OIZQsbizUtpZbxA+UM1+lNknj4aeiVNvXgmhw0nxclu8PH6s
YYwNNAqhN3N8/ZViefRdyc5cqhfC4LKbtpv65dHIxlwQWiWEfxdUEgl/Bfzf
oiGn/7wQDMbnZmt9FTGprE1Xbq8QMtoaB728lXCnKdcuZFEA51f9Hk2PU0LC
tjiW/10ABY5x0qOFSthk01QUOCWAq6830RO7lNDNIWN/wrAA6puu+lezlPFs
qcGYVqcA/r6d1LHIXIMhNUdbhqoEYH3B7sVNN1XsnJBWnd8rgETHB1UdEaqY
o8MJjycE0LRMN38hWxWNqfndP7AEsD2eEuT5XhWl2kavM5wEsCXk6colBzV8
NETNrbUQAMPGxMfbWh3vX2iOfaMiAFkRbVxmKw2t5K6Nf+7hg21dVo8Ri4a0
Sx87l5N8OBMufuEXTcNCK2swb+fDorAn/+49Gs6fOp5U/icfRO15Fns3rUWt
qZmK6gY+DFcvT72/QRPtDUKD0ov5wDYSU02odHzs17JgxOaDc196haomHb3+
sGfnBvDBNF15F8WIjveOnRqe3ccHGa7xkb/c6SjUyNFq8+bDtfOH34YX0HFY
x5td68AH7hiZVq2hjRqNS/bahnzwrb2zpGugg+ql8+2Pv/PARZ/9zxp7Bm6Z
SDbAKzwQZ8U+HfBmIJNzUVR+kQe3xlNTbwQx8PIzJkW2gAcyDyrVNqcxUPil
sZ48z4MnlsNWLi0MPK4x5n0uhQfrWWF5yTbr0N3Z9WRAJA8oCce2TMJ6LNcp
jsrew4M68nTsm2166KUg6vOQkuynHgoU7NHDUz7ZkeIFLpSaObnN++nhTMxI
G2uOC2cvq+obntbD1sn+w0qTXDi4935/TrMeFhRuPdk0wAWlwWEbwlEfGaNp
zxsauBA35ak45G+Ap96Xv9sYw4UdigZ3ZBJ+xkrpjdmK3z7D4fm8kgrCGAU+
F1IGfvoMR18PbbnjshkL7kw8rCUG4Kyf7LqFI6bIiVqRW1XVDwdbTwWZBJuh
n1VLiYpqPzTLqXmE+W7DFnbdKvlLfWCikHhxJGY7ilcE+3ar9MGBqV0/ux7Z
iaxeOyXbGg6Ul7bQRNmWOJpc+MeSJQfun9/e18FEpKodiR3r/wQxT3a5lzhb
4Rb7EU5v+id4/rbiW6a/NY4Tbpq3TT5BiL1FYwhhg5X1el+9v/RC8S2Th2Gh
thi1V/tr2ZVeyJ1qTIo8bodCXfJtC7MXvlTHxgVH7cYk49kyVOqFV7vzLp85
Y4/0H+SfLXX2gJQbR3Ah0QHdwx55yxb1AMWqXqrsxB7Ut4qreMHugQwVkUtH
uiOmXhLfLd7UA5F+B1+Kkp1wxrN/Q9RCN/CTTA9BoTOKDLbaxr7tBqX8K5zM
chd8bBbXfO73bqiUNzjRWuSKGynvDt042g3NUVp2G2rckPpuR/iIdTeU0sto
u1jumNHq/Oypejc0xospwe3u2B6Vq/Fkugu0neT+1fXxwDXKLIeJ913w4C/9
rE+kB65mUUKVq7rg3OtFY/o+JjZXdVulJXdBfvRI6IF+Jqrp2NsUBXRBvLLm
Tzq+njg565q136oLqvSXvY3heWLtgMFgvFYXyE5LqTX/wkLl0etdHyldcNP4
3m+lQyxMSQw+nccjQT+w2nUh3AsnTc3L+ppJ6NvTUOc16oWfpYErVUlCx/WT
hhDtjclHAoKuZ5Dw/b7HTp1v3vhc88+JmXASlh5HPUyL8MEv89Wbf2WR4GS8
2y5+xgcfkTI6qRYktO4zCgmLJvDLdMBtKW0SFA8GPy2JJRAN1+UV0kn4Jbic
2n6cwITv2Un6Es9Gra4zjScwYqN9socWCYwMkXghhcDpA6qK19aSkFj3/FzO
RQJfr9nhb6dOwnY597sPGwjUTXiXVbCahLRVmdLDTwlkxwi5+hJ/VHjJUm8i
UM3DF54rkhBMM5377SWBQTNe9K8KJFwyUbV2eEfgvnivUJQnYdqf18npJzBy
bQptYhUJGKC2nsolMGwuel2qxFlBzF+BT+D+7lILDYl1jr2i3fibwNHx4mT7
lSR4pN1ih48TuNxysaTsRxKKs/iPrk4SyGjOpJhLPJyjvqLjG4GWqyDiw3LJ
n6Jzt81EBDqGaIaJ5Uh4X9ZCCZkj0MjUVpwjsUrlIrNoXrK/Latgg8SBNeYV
HxYIPOH1j0WTLAm370aKlpYIPBgc85Ul8f8BVHY8+g==
          "]], 
         LineBox[{{0.0046072166003016625`, 0.14707583005192815`}, {
          0.019725798189835074`, 0.629919057063137}}]},
        Annotation[#, "Charting`Private`Tag$13308#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.296525610990397},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 100.}, {0.296525610990397, 0.5142986475769007}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{10., 0.5191343199637398}, {20., 0.4488342598381299}, {30., 
        0.41071357213744825`}, {40., 0.38513056774085513`}, {50., 
        0.3661441320506754}, {60., 0.3511903350760048}, {70., 
        0.3389388446818922}, {80., 0.3286148055785392}, {90., 
        0.319729292893658}, {100., 
        0.31195506457175814`}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVz3k41IkfB/BhRVvNs4hcE4Op0Aol0uHzcUVuY/BFbVEjRyRXW2mROyln
xzqiohxPh0qpKG2yXVZ8HQ2ay4b8HJtjMha/2T/ez/t5/fN+nrd24FEmW5pC
oURI8l/XmEg7OIZQsbizUtpZbxA+UM1+lNknj4aeiVNvXgmhw0nxclu8PH6s
YYwNNAqhN3N8/ZViefRdyc5cqhfC4LKbtpv65dHIxlwQWiWEfxdUEgl/Bfzf
oiGn/7wQDMbnZmt9FTGprE1Xbq8QMtoaB728lXCnKdcuZFEA51f9Hk2PU0LC
tjiW/10ABY5x0qOFSthk01QUOCWAq6830RO7lNDNIWN/wrAA6puu+lezlPFs
qcGYVqcA/r6d1LHIXIMhNUdbhqoEYH3B7sVNN1XsnJBWnd8rgETHB1UdEaqY
o8MJjycE0LRMN38hWxWNqfndP7AEsD2eEuT5XhWl2kavM5wEsCXk6colBzV8
NETNrbUQAMPGxMfbWh3vX2iOfaMiAFkRbVxmKw2t5K6Nf+7hg21dVo8Ri4a0
Sx87l5N8OBMufuEXTcNCK2swb+fDorAn/+49Gs6fOp5U/icfRO15Fns3rUWt
qZmK6gY+DFcvT72/QRPtDUKD0ov5wDYSU02odHzs17JgxOaDc196haomHb3+
sGfnBvDBNF15F8WIjveOnRqe3ccHGa7xkb/c6SjUyNFq8+bDtfOH34YX0HFY
x5td68AH7hiZVq2hjRqNS/bahnzwrb2zpGugg+ql8+2Pv/PARZ/9zxp7Bm6Z
SDbAKzwQZ8U+HfBmIJNzUVR+kQe3xlNTbwQx8PIzJkW2gAcyDyrVNqcxUPil
sZ48z4MnlsNWLi0MPK4x5n0uhQfrWWF5yTbr0N3Z9WRAJA8oCce2TMJ6LNcp
jsrew4M68nTsm2166KUg6vOQkuynHgoU7NHDUz7ZkeIFLpSaObnN++nhTMxI
G2uOC2cvq+obntbD1sn+w0qTXDi4935/TrMeFhRuPdk0wAWlwWEbwlEfGaNp
zxsauBA35ak45G+Ap96Xv9sYw4UdigZ3ZBJ+xkrpjdmK3z7D4fm8kgrCGAU+
F1IGfvoMR18PbbnjshkL7kw8rCUG4Kyf7LqFI6bIiVqRW1XVDwdbTwWZBJuh
n1VLiYpqPzTLqXmE+W7DFnbdKvlLfWCikHhxJGY7ilcE+3ar9MGBqV0/ux7Z
iaxeOyXbGg6Ul7bQRNmWOJpc+MeSJQfun9/e18FEpKodiR3r/wQxT3a5lzhb
4Rb7EU5v+id4/rbiW6a/NY4Tbpq3TT5BiL1FYwhhg5X1el+9v/RC8S2Th2Gh
thi1V/tr2ZVeyJ1qTIo8bodCXfJtC7MXvlTHxgVH7cYk49kyVOqFV7vzLp85
Y4/0H+SfLXX2gJQbR3Ah0QHdwx55yxb1AMWqXqrsxB7Ut4qreMHugQwVkUtH
uiOmXhLfLd7UA5F+B1+Kkp1wxrN/Q9RCN/CTTA9BoTOKDLbaxr7tBqX8K5zM
chd8bBbXfO73bqiUNzjRWuSKGynvDt042g3NUVp2G2rckPpuR/iIdTeU0sto
u1jumNHq/Oypejc0xospwe3u2B6Vq/Fkugu0neT+1fXxwDXKLIeJ913w4C/9
rE+kB65mUUKVq7rg3OtFY/o+JjZXdVulJXdBfvRI6IF+Jqrp2NsUBXRBvLLm
Tzq+njg565q136oLqvSXvY3heWLtgMFgvFYXyE5LqTX/wkLl0etdHyldcNP4
3m+lQyxMSQw+nccjQT+w2nUh3AsnTc3L+ppJ6NvTUOc16oWfpYErVUlCx/WT
hhDtjclHAoKuZ5Dw/b7HTp1v3vhc88+JmXASlh5HPUyL8MEv89Wbf2WR4GS8
2y5+xgcfkTI6qRYktO4zCgmLJvDLdMBtKW0SFA8GPy2JJRAN1+UV0kn4Jbic
2n6cwITv2Un6Es9Gra4zjScwYqN9socWCYwMkXghhcDpA6qK19aSkFj3/FzO
RQJfr9nhb6dOwnY597sPGwjUTXiXVbCahLRVmdLDTwlkxwi5+hJ/VHjJUm8i
UM3DF54rkhBMM5377SWBQTNe9K8KJFwyUbV2eEfgvnivUJQnYdqf18npJzBy
bQptYhUJGKC2nsolMGwuel2qxFlBzF+BT+D+7lILDYl1jr2i3fibwNHx4mT7
lSR4pN1ih48TuNxysaTsRxKKs/iPrk4SyGjOpJhLPJyjvqLjG4GWqyDiw3LJ
n6Jzt81EBDqGaIaJ5Uh4X9ZCCZkj0MjUVpwjsUrlIrNoXrK/Latgg8SBNeYV
HxYIPOH1j0WTLAm370aKlpYIPBgc85Ul8f8BVHY8+g==
          "]], 
         LineBox[{{0.0046072166003016625`, 0.14707583005192815`}, {
          0.019725798189835074`, 0.629919057063137}}]},
        Annotation[#, "Charting`Private`Tag$13400#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.30044510593887047`},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 100.}, {0.30044510593887047`, 0.5191343199637398}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{10., 0.5199610162930426}, {20., 0.4496811220264985}, {30., 
        0.4115487419474323}, {40., 0.38594938039632865`}, {50., 
        0.3669465682244097}, {60., 0.35197742150901673`}, {70., 
        0.33971179463352674`}, {80., 0.32937478130793685`}, {90., 
        0.3204773434637018}, {100., 
        0.31269211830939425`}}]}, {{}, {}}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVz3k41IkfB/BhRVvNs4hcE4Op0Aol0uHzcUVuY/BFbVEjRyRXW2mROyln
xzqiohxPh0qpKG2yXVZ8HQ2ay4b8HJtjMha/2T/ez/t5/fN+nrd24FEmW5pC
oURI8l/XmEg7OIZQsbizUtpZbxA+UM1+lNknj4aeiVNvXgmhw0nxclu8PH6s
YYwNNAqhN3N8/ZViefRdyc5cqhfC4LKbtpv65dHIxlwQWiWEfxdUEgl/Bfzf
oiGn/7wQDMbnZmt9FTGprE1Xbq8QMtoaB728lXCnKdcuZFEA51f9Hk2PU0LC
tjiW/10ABY5x0qOFSthk01QUOCWAq6830RO7lNDNIWN/wrAA6puu+lezlPFs
qcGYVqcA/r6d1LHIXIMhNUdbhqoEYH3B7sVNN1XsnJBWnd8rgETHB1UdEaqY
o8MJjycE0LRMN38hWxWNqfndP7AEsD2eEuT5XhWl2kavM5wEsCXk6colBzV8
NETNrbUQAMPGxMfbWh3vX2iOfaMiAFkRbVxmKw2t5K6Nf+7hg21dVo8Ri4a0
Sx87l5N8OBMufuEXTcNCK2swb+fDorAn/+49Gs6fOp5U/icfRO15Fns3rUWt
qZmK6gY+DFcvT72/QRPtDUKD0ov5wDYSU02odHzs17JgxOaDc196haomHb3+
sGfnBvDBNF15F8WIjveOnRqe3ccHGa7xkb/c6SjUyNFq8+bDtfOH34YX0HFY
x5td68AH7hiZVq2hjRqNS/bahnzwrb2zpGugg+ql8+2Pv/PARZ/9zxp7Bm6Z
SDbAKzwQZ8U+HfBmIJNzUVR+kQe3xlNTbwQx8PIzJkW2gAcyDyrVNqcxUPil
sZ48z4MnlsNWLi0MPK4x5n0uhQfrWWF5yTbr0N3Z9WRAJA8oCce2TMJ6LNcp
jsrew4M68nTsm2166KUg6vOQkuynHgoU7NHDUz7ZkeIFLpSaObnN++nhTMxI
G2uOC2cvq+obntbD1sn+w0qTXDi4935/TrMeFhRuPdk0wAWlwWEbwlEfGaNp
zxsauBA35ak45G+Ap96Xv9sYw4UdigZ3ZBJ+xkrpjdmK3z7D4fm8kgrCGAU+
F1IGfvoMR18PbbnjshkL7kw8rCUG4Kyf7LqFI6bIiVqRW1XVDwdbTwWZBJuh
n1VLiYpqPzTLqXmE+W7DFnbdKvlLfWCikHhxJGY7ilcE+3ar9MGBqV0/ux7Z
iaxeOyXbGg6Ul7bQRNmWOJpc+MeSJQfun9/e18FEpKodiR3r/wQxT3a5lzhb
4Rb7EU5v+id4/rbiW6a/NY4Tbpq3TT5BiL1FYwhhg5X1el+9v/RC8S2Th2Gh
thi1V/tr2ZVeyJ1qTIo8bodCXfJtC7MXvlTHxgVH7cYk49kyVOqFV7vzLp85
Y4/0H+SfLXX2gJQbR3Ah0QHdwx55yxb1AMWqXqrsxB7Ut4qreMHugQwVkUtH
uiOmXhLfLd7UA5F+B1+Kkp1wxrN/Q9RCN/CTTA9BoTOKDLbaxr7tBqX8K5zM
chd8bBbXfO73bqiUNzjRWuSKGynvDt042g3NUVp2G2rckPpuR/iIdTeU0sto
u1jumNHq/Oypejc0xospwe3u2B6Vq/Fkugu0neT+1fXxwDXKLIeJ913w4C/9
rE+kB65mUUKVq7rg3OtFY/o+JjZXdVulJXdBfvRI6IF+Jqrp2NsUBXRBvLLm
Tzq+njg565q136oLqvSXvY3heWLtgMFgvFYXyE5LqTX/wkLl0etdHyldcNP4
3m+lQyxMSQw+nccjQT+w2nUh3AsnTc3L+ppJ6NvTUOc16oWfpYErVUlCx/WT
hhDtjclHAoKuZ5Dw/b7HTp1v3vhc88+JmXASlh5HPUyL8MEv89Wbf2WR4GS8
2y5+xgcfkTI6qRYktO4zCgmLJvDLdMBtKW0SFA8GPy2JJRAN1+UV0kn4Jbic
2n6cwITv2Un6Es9Gra4zjScwYqN9socWCYwMkXghhcDpA6qK19aSkFj3/FzO
RQJfr9nhb6dOwnY597sPGwjUTXiXVbCahLRVmdLDTwlkxwi5+hJ/VHjJUm8i
UM3DF54rkhBMM5377SWBQTNe9K8KJFwyUbV2eEfgvnivUJQnYdqf18npJzBy
bQptYhUJGKC2nsolMGwuel2qxFlBzF+BT+D+7lILDYl1jr2i3fibwNHx4mT7
lSR4pN1ih48TuNxysaTsRxKKs/iPrk4SyGjOpJhLPJyjvqLjG4GWqyDiw3LJ
n6Jzt81EBDqGaIaJ5Uh4X9ZCCZkj0MjUVpwjsUrlIrNoXrK/Latgg8SBNeYV
HxYIPOH1j0WTLAm370aKlpYIPBgc85Ul8f8BVHY8+g==
          "]], 
         LineBox[{{0.0046072166003016625`, 0.14707583005192815`}, {
          0.019725798189835074`, 0.629919057063137}}]},
        Annotation[#, "Charting`Private`Tag$13492#1"]& ]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0.30117717953252515`},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 100.}, {0.30117717953252515`, 0.5199610162930426}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.835275862038246*^9, 3.8352759478185987`*^9, 
  3.835276012241663*^9, 3.835276099493799*^9, 3.835276163647688*^9, 
  3.8352763712160788`*^9, 3.835276473222754*^9, 3.835276506905757*^9, 
  3.8353192913425083`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"55b5025e-2a36-485b-baf3-17001ff65bfa"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Symbolic", "Subsection",
 CellChangeTimes->{{3.835345776162526*^9, 
  3.8353458037226686`*^9}},ExpressionUUID->"2b9a9bdf-90d1-473d-840e-\
0588226490ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], 
     RowBox[{"quarticI", "[", "g", "]"}]}], ",", " ", 
    RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.835337528829802*^9, 3.835337540861577*^9}},
 CellLabel->
  "In[999]:=",ExpressionUUID->"e078d972-456b-4925-a3e9-66c222382278"],

Cell[BoxData["1.0227656721131686`"], "Output",
 CellChangeTimes->{3.835337541774146*^9},
 CellLabel->
  "Out[999]=",ExpressionUUID->"800b04c3-4359-403e-bad3-fb4e90d8a955"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"optcoef", "[", 
   RowBox[{"n_", ",", "\[Alpha]_", ",", "g_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], " ", 
         RowBox[{
          RowBox[{"z", "^", "2"}], "/", "2"}]}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Alpha]", "-", "1"}], ")"}], " ", 
           RowBox[{
            RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
          RowBox[{"g", " ", 
           RowBox[{
            RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}], "^", "n"}]}], ",",
       " ", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", " ", 
      RowBox[{"Assumptions", "\[Rule]", 
       RowBox[{"g", ">", "0"}]}]}], "]"}], " ", "/", " ", 
    RowBox[{"Factorial", "[", "n", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.835339537358468*^9, 3.835339620663063*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"26b778df-8b81-4ee1-9f41-0f29a81a64b6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"optcoef", "[", 
  RowBox[{"nmax", ",", " ", "\[Alpha]", ",", " ", "g"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], "&&", 
      RowBox[{"g", ">", "0"}], "&&", 
      RowBox[{"\[Alpha]", ">", "0"}]}], ",", "\[Alpha]"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]sol", " ", "=", " ", 
   RowBox[{"\[Alpha]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"optg", " ", "=", " ", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{"optcoef", "[", 
        RowBox[{"n", ",", "\[Alpha]sol", ",", "g"}], "]"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", 
        RowBox[{"nmax", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"quarticI", "[", "g", "]"}], ",", " ", "optg"}], "}"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<I(g)\>\"", ",", " ", "\"\<OptimizedPT\>\""}], "}"}]}]}], 
   "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"g", "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{"N", "[", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"g", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "4"}], ")"}]}], "optg"}], ",", " ", 
      RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "error", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"optcoef", "[", 
   RowBox[{
    RowBox[{"nmax", "+", "1"}], ",", "\[Alpha]sol", ",", "g"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", " ", 
   RowBox[{"{", 
    RowBox[{"g", ",", "0", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], "%%"}], ",", 
    RowBox[{"g", "\[Rule]", " ", "\[Infinity]"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.835335603458569*^9, 3.835335605890027*^9}, {
   3.835335635956121*^9, 3.83533571263631*^9}, {3.835335748718893*^9, 
   3.835335754757559*^9}, {3.83533578503986*^9, 3.8353357910548553`*^9}, {
   3.8353358361369257`*^9, 3.835335878104929*^9}, {3.835335918147583*^9, 
   3.835335992252322*^9}, {3.835336146466*^9, 3.835336157784374*^9}, {
   3.835336214363555*^9, 3.835336218593739*^9}, {3.835336253196102*^9, 
   3.835336301333601*^9}, {3.835336362862838*^9, 3.83533642135222*^9}, {
   3.8353364718024197`*^9, 3.835336480395019*^9}, {3.835336522547677*^9, 
   3.835336568468069*^9}, {3.8353366219113913`*^9, 3.835336660831544*^9}, {
   3.835336757699573*^9, 3.835336773417178*^9}, {3.835336925416822*^9, 
   3.835336964022538*^9}, {3.835337062467627*^9, 3.8353370877062883`*^9}, {
   3.835337233663537*^9, 3.83533723751082*^9}, 3.835337277904896*^9, 
   3.835337308441575*^9, {3.835337342633739*^9, 3.835337392538898*^9}, {
   3.835337441276783*^9, 3.835337547773937*^9}, {3.8353375856735277`*^9, 
   3.835337586895546*^9}, {3.8353379182496567`*^9, 3.835337925512595*^9}, {
   3.83533919145198*^9, 3.835339220492544*^9}, {3.835339450428904*^9, 
   3.835339450586851*^9}, {3.835339639481492*^9, 3.8353397276966267`*^9}, {
   3.835339787548217*^9, 3.835339793308136*^9}, {3.835347008078785*^9, 
   3.835347043518165*^9}, {3.835358362765985*^9, 3.835358382204653*^9}, {
   3.835359018072299*^9, 3.835359018142055*^9}, {3.835399268334755*^9, 
   3.835399319958251*^9}, {3.835399434233573*^9, 3.835399455434148*^9}, {
   3.835399535502692*^9, 3.835399536507963*^9}, {3.8354159364500303`*^9, 
   3.835415943440097*^9}, {3.835415997676676*^9, 3.835415998242895*^9}, {
   3.835417556200756*^9, 3.835417556342444*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"7d36bfdb-e78f-4bb5-8447-971ac7ef7c57"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", 
     FractionBox[
      RowBox[{"5", " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"693", " ", 
              SuperscriptBox["g", "3"]}], "-", 
            RowBox[{"378", " ", 
              SuperscriptBox["g", "2"], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
              "\[Alpha]"}], "+", 
            RowBox[{"84", " ", "g", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "-", 
            RowBox[{"8", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"], " ", 
              SuperscriptBox["\[Alpha]", "3"]}]}], ")"}]}], 
      RowBox[{"128", " ", 
        SuperscriptBox["\[Alpha]", 
         RowBox[{"13", "/", "2"}]]}]]}], 
   RowBox[{
     RowBox[{"Re", "[", "\[Alpha]", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417637643186*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"70ef7d55-72bc-43bd-967c-db84cd144110"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Alpha]", "\[Rule]", 
   TemplateBox[{
     RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"g", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}]}], 
     
     RowBox[{"g", ">", "0"}]},
    "ConditionalExpression"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417643724255*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"70f65f54-3aec-4cc4-ba82-731f06f9aa90"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      RowBox[{"11.313708498984761`", "\[VeryThinSpace]"}], "+", 
      RowBox[{"11.313708498984761`", " ", 
        SqrtBox[
         RowBox[{
           RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
           RowBox[{"16.56608810745101`", " ", "g"}]}]]}], "+", 
      RowBox[{"g", " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"202.36659691898518`", "\[VeryThinSpace]"}], "+", 
            RowBox[{"555.9587693131349`", " ", "g"}], "+", 
            RowBox[{"108.65465101088571`", " ", 
              SqrtBox[
               RowBox[{
                 RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                 RowBox[{"16.56608810745101`", " ", "g"}]}]]}]}], ")"}]}]}], 
    SuperscriptBox[
     RowBox[{"(", 
       RowBox[{
         RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
         SqrtBox[
          RowBox[{
            RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
            RowBox[{"16.56608810745101`", " ", "g"}]}]]}], ")"}], 
     RowBox[{"9", "/", "2"}]]], 
   RowBox[{"g", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417654349585*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"d57d034a-b571-40aa-abae-30e25c66bc6b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVz3k01IsbBvDhihbOlewmBlOhK0QLLe9ra2TJNvjaKmlkScnWQjf7kiWJ
NktUFDktFElIN3XbXPG1xGg2t5Sf5WaZGhe/uX885zmff55zHu0DR91YkhQK
5Zg4/7X9MMVpmcUy3J801HWtbhgmEo6M7mUsw9qr2Tb1D4ahRWqNxTOv5ahM
b+n8mDUM/rL5fUknZLEhkPo0zWYY3sttXiblL4+G7glTr18IoMtB4XJHvDx+
uEMfG2oWQH/m+NorxfLovYKVuVgvgOElt2w2sOXRyHoLP7RKAP/OqyQQvivx
fwuGA+xcARiM/5yt8VbAxLIOXRk/AWR0NA97eCridjOObcgCH3Jlr0bRYhWR
sCmO4f3gQ4F9rORooSK2WLcUHZjiw7WXG2gJPYrobJex78wIH+pbrvlWM5Xw
bKnBmFY3H/6+m9i14KaMIXeOtn+p4oPVOdtnt5xVsXtCUnXOjw8J9g+ruo6o
Yp7OQHg8wYeWJboX5nNU0VjuQu8vTD5YxFOC3N+pokTH6A26Ax9MQ5pWLNqp
YcMXufM15nygW5t4eVqpY925tpjXKnyQFlLHpTZR0VLm+vinPh7Y1Gb1GTGp
SL30oXspyYOkcNEznygqFlpawZZOHiwI+i7cf0DFubjjieV/8kDYmW/ut2E1
ak3NVFQ38mCkemlq3TpNZBiEBqUX84BlJJIzkaPhY5/2eSMWDxwH0ytUNWno
8QeDdT6AB2bpSjsoRjR8cCxuZNafB1Ic48N/udBQoJGn1eHJg+u5h96EF9Bw
RMeTVWPHA84YmVatoY0azYsMbUMeeNfcW9Q10EH10rnOxz+44KTP+keZQUfT
iWQDvMIFUVZM05AnHd0GLgrLL3Lh9nhq6s0gOl5+6kaRLuCC1MNKtY1pdBR8
bq4nc7nwZOeIpVM7HY9rjHlmp3BhLTMsP9l6Dbo47jkVEMEFypljppOwFst1
iiNzdnOhljwd83qrHnqsFA66Soj3Uw8e4O/WwzivnAjRPAdKNzs4z/no4Uz0
1w7mTw6cvayqb3haD19Nsg8pTnIg0K+OndemhwWFm061DHFAcXjEmrDXR/po
WmtjIwdip9wVvvgaYNy78rfrozmwTcHgntSZ37BScn2OwvdPcGguv6SCMEa+
17mUoV8/wdGXX0zvOW3EgnsTj2qIITjrI71m/rAZDkQuP19VxYbAV3FBJsGb
0ceyvURFlQ1tMmquYd5bsZ1VKyt/aRBMViZc/BptgaLlwd69KoOwf2rHb3sO
b0dmv62izZ0BKC9tpwpzduJocuEfizsHoC7XYrDLDVFO7XDMGPsjRD/Z4VLi
aImmjK8D/ekfofVNxfdMXyscJ5w175p8hBCGeXMIYY2V9XrfPD/3Q/Ftk0dh
oTYY6af9rexKP5yfak6MOG6LAl3yTbtbP3yujokNjtyFicazZajYDy925V9O
SmIg7Rf5p4vdfSDhPMA/l2CHLmENntJFfUCxrJcoO7kb9S1jK56x+iBDRejU
lW6PqZdE94s39EGET+BzYbIDzriz10XO9wIv0ewgFDqi0GCTTcybXlC8cGUg
s9wJH2+Obcu+2guV8gYnXxXtwfWUtwdvHu2Ftkgt23V3nFHu7bbwr1a9UEor
o+5gumDGK8enTeq90BwvogR3umBn5HmNJ9M9oO0g86+ulysqKzHtJt71wMO/
9LM+kq64ikkJVarqgeyXC8Y0fzdsq+q1TEvugQtRX0P3s91QTYdhXRTQA/FK
mr/qeLvj5OyerH2WPVClv+RNNNcda4YMhuO1ekB6WkKtbS8TlUZv9Hyg9MAt
4we/l35hYkpC8Ol8Lgn6B6r3zId74KTZlrLBNhIGdzfWeox64CdJ4EhUktB1
45QhRHli8uGAoBsZJPyoc92u890TWzX/nJgJJ2HxceSjtCNe+HmueuMJJgkO
xrts42e8sIGU0kk1J+GVv1FIWBSBn6cD7kpok6AQGNxUEkMgGq7JL6SRsDe4
XK7zOIFnfuQk6os9G7mq1iyewCPrGcmuWiTQM4Si+RQCp/erKlxfTUJCbWt2
3kUCXypv87VVJ8FCxuX+o0YCdc+8zSpYRUKabKbkSBOBrGgBR1/sDyufM9Vb
CFRz9YZWBRKCqWY/f39OYNCMB+3bShIumaha2b0l0D/eIxTlSZj25XYPsAmM
WJ1CnZAlAQPU1spxCAz7GbUmVeysILcTwCNwX2+puYbYOsdeUG/+TeDoeHEy
YwUJrmm3WeHjBC7duVBStoyE4ixew7VJAultmZQtYo/kqS/v+k7gTlk48n6p
+E9R9t3NQgLtQzTDRDIkvCtrp4T8JNDIzEaUJ7ZK5YJb0Zx4f2tWwTqxD9zZ
UvF+nsCTHv+Yt0iTcPd+hHBxkcDA4OhvTLH/D4MqVFo=
          "]], 
         LineBox[{{0.004126621138711076, 0.13172701824791672`}, {
          0.02025833726578384, 0.6469267958128277}}]}, 
        Annotation[#, "Charting`Private`Tag$17466#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVzHk81Ikfx/EhijaPxCjDrJCEtY4oZdPn4yhX7sFXSpbIkbKu1JJJS0Jy
FutKmyO5opwhKopSmWESfjPfMZZSuhMard8f78fr8fznreJz3NlPlEKhRCzv
//1rrFahR00CvePHB4sbBKAsbCoQbpfAlbaE2/06AVCL/N7L/SmBGaVyrwvL
BCABshY6nRLo+ZVbnFUggHfMYzNelpIo971T93mSADrENhvfdV+NgjtS3xN8
BHBwTSYnPnoNNo4m6QUrCOCJ1HZJsYPS6Dv2Td0/bwIGbWVyB2KksfLY4tHA
zAl4cX5WPa9AGjOCxjNPpUyAQLzcQmdMGoeVGPUPYifgu3ADk/Bch08Y5VPz
PhOgNTv/tcpDBiMOmGTX605A0kC7wNWNioZfLH1dnvMhbc3f4cpRVDySmfP4
bj8fsm2iRGdyqJhAE3c06uFDcY+OMnOIiu/HQo2gjQ+NHcWelQw5DA1oLmkq
5cNkzZnBJef1GGtkr7gthg9mF/fcLXeQx0Pj29wf6vCBaXPr+uAxeRxbb11s
psWHDvFNWcIL8jh6eXjtvc18MI6h+Ls8lscU1zjtYTofDALbfvphRcPwddq1
5j/xQc1c393NTAE/tQx4674iYeUcfVZsGx2jfnnk/a6CBIv6FI4ug446QSfD
qKUkxIcs3N0fTkfvoBH53SUkLE1wsupu0lFuInmxKI+EuWeZOw/o/IyS3pyV
l5JJmK6USGjYooSGfANJpxAS/HQXpPSllHF+qXm+YxsJ+0bPlcorKWNlb04f
fSsJhufkTCi6ysirf9t9WocEMa7e0aeOyri7WnGVwxYSrqYd6QvJVkay4e/Z
jTQSuG/ZiZWKKhhbFb0+RsgDj6raH5u0VDFZpP7wq4c8sNP0+7DeUg0DRZu/
GQTyYCElsm3cTQ1Fxpf8sv15UDGbkHDNXw2l36ylzvnyQOxWGW1roho+BELt
nhcPWndPm9o9UMMB246GSAYP1BnBmWfNN+Pp/qg8U+QBJe4Pg/egjtWoesCL
xoN6dmzkox0aGAhnZpWucqEi4bAP31oDMcOrP6KQC0XbbR0W92vg7K0+xkAu
F5Jz5TV/jdXAxkwqkXqRC74HGsbSuzRw8hmmGcRygSqYNidsNNE/rsdGy4ML
UZ9cZKY8tZB29PHVy7Jc+E1Gq1YsThtvFqVxzmb8D44sZhaWEnpopVu6cLZ2
HI73TBnU2m3F7+NPoezbGCTvX7lZeNQQzV1VHWVtxsC3909//YDteKKmsfVr
8yh0raI5BXvswPv5VlsCd4yC/jrmpVcRxti3libe3PISvD+ZaNsf3YVLQ0H/
ltm9hJKiB/S5C7vRwfp5zyw5Ag1pxqODzoh6db9p+TFHIKLVxLFwnylSREPP
DfwyAp19pR/Pe5phy/Uve7WGX0Cg5c72QMIca35/Y2uf8gIKKvRvBwdZ4MAF
UkERXkDGp/YzoSf24Manuant3zjwb2VkVEDYXpy2uPOmspUD9/dm5sbHW2JM
xEmviVMcEHF4yb/ItMIFpnsBYcYBimmjyJWT1niHbvsuRooDSRvm7AbP2eD7
Dl/7R8PDELrft3vurC2KbFqrKl42DOQZw8OQsw9HVmzIjggfBmpW3svzJXaY
+aF2/JP5MJRJa53szbdHU7OtikG0YegK27hnyw0HrA5n+sm+HYIi5St0E4Yj
ql9s0jZ9MATtMQuUgGeOKDOVZHu5eAhUbFd93+TuhIfmO/M1o4fg1lPNlBH2
sm+VdV1jDEFqz5Ke8kFnvBC/0Htcdwiywl8FeY85Y9BuOQOO1BDEyCmtVfVw
QVG36bLXb9lwXVO8L4LngpQRTaUDj9mw8rMIrcuLgR+6quaF1Wwo17t5umiK
ganpwXbSaWzQ9Km0F4a4YspS9mL5cTaMWrfUu8644ruZaLn1DDYM/nPqVwh3
Q4/GKgkxIzZ8a3DapfrRDUeNYtML6Gz40Rx2O/GYO1aNGxv5rGCDrd7ePTFf
3PGC6c53jdMs6D2oGxgcTmBYRpFp5DMWyPgGtBVGEigedMpq9bK9Akqknp0g
8KbN5P7ipyz4GiZbbxhDoA/10NVHAyxQS5pbEP5FoNnpf9qUnrCAWd+Zmn6J
wJ+PnZDrf8QC41WOdbdbCHyucsNN+x4LEtecF51uI1DJQ7q/u5sFz9d1MxQ6
CIxzaLfxWHYA3XD+dDeBOq2TwYldLLisL29m1b/8f9xgG9nJgs+ePNbLMQLL
L4+SuXdYgL/T1KW4BEbmN0nqLTvF3zkaSAItKpp39baxQPWP+/RrkwRetFC5
/6WVBU6JFX4hswTGxjkSLi0sKEghm4rfE5jTIT/yupkF0+kKqwc/Elg9+flw
/LKZ+ak12+cIvObPK7zZxILHVx5QAucJDImbsbFe9oayJef8RQKFQpEVZCML
fG4YlT4REmh3T6Unetk1daFzP34Q+KLOKlt62f8BNcF15g==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$17466#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.13172701824791672`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.13172701824791672`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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, 100}, {0.13172701824791672`, 0.6469267958128277}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"OptimizedPT\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417654722123*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"8d238287-2bb9-40f9-83b0-8ef968ac6c45"],

Cell[BoxData["0.01861782958826863`"], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417654766634*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"bf100f71-4a55-4b64-8826-c847a3242c10"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"1575", " ", 
      SuperscriptBox["g", "4"], " ", 
      InterpretationBox[
       TemplateBox[{"Root", 
         InterpretationBox[
          StyleBox[
           TemplateBox[{"\"74.1\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], ShowStringCharacters -> False], 
          74.05610331559343251228710869327187538147`15.954589770191003, 
          Editable -> False], 
         TagBox[
          RowBox[{"Root", "[", 
            RowBox[{
              RowBox[{
                RowBox[{
                  RowBox[{"-", "1824768"}], "+", 
                  RowBox[{"13824", " ", "#1"}], "+", 
                  RowBox[{"72", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
          Short[#, 7]& ], 74.05610331559343}, "NumericalApproximation"], 
       Root[-1824768 + 13824 # + 72 #^2 + #^3& , 1, 0]]}], 
    RowBox[{"8", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"g", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
       RowBox[{"17", "/", "2"}]]}]], 
   RowBox[{"g", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417670520446*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"4d663d1a-74f8-40db-91c4-af0e55d9ddcf"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Hk81PkfB3BHtGEtkSLH8JXRhGiT46d5f6x0SMiR30MbO67J2fFL2Qwi
Rxo0V46ElGNVrsgylWsod65iw7KGZCgG446d3x+vx+vx/Ov130vT85Kjj5iI
iMhtYf7fmRGekkbeVKJ7dyBBh1ls3tiLs3XF+UGYNi2RE4oRt97W3MbhfoeA
rQITURaJKMuoLJUaiAa29hUvAT6GmFmXpCGBSwAfOxEGe+EhUW/WO3mLfA+a
3Q8xglRLicOyWZsb/QxYG+9eCafWELXzdxxZW78PpO+DajJzLcTAoyFByxrp
sKzcbLzi3Ecs7xvNXbR6CJxTrhmvt4aJawG2Q3xyNjS29Cy9UZkgPhIdSli2
zgH8jsNHrO/PEI910Pct9T8Gd/5sY2nDPPFL2on6Rb9cWCKbxMZsLhMTvb//
urCeB1X/VC9bS2wSDQ3LV/hJBfCq/zTbPFgMetcvsuY0CmGgLZAkfUwSrr9T
N5wtewoPh239gmKlQIXZ1/bV6jlkyBKTsZ9/ghr3u+SZD0VQ80afWqmzEzwJ
SHyaXAJrFPtT0jxFEFu/+X6RUgoOlAXqMe5u6Bt1UVu0LoM4/TPfp+X3Quhz
6er5/hdwXq5riyKpCTaMz5Lzj8rhT3zLX1+mtUA1tN6Z71cBjAda1CieNtRZ
3ZibXX8JSh5spqnRftg+OIb/qlENskn/YZf7G8FA3ZuQmS/VsMdcIMFiH4Kn
+Wmc6TI26OqPRnUoHga7q3YePKvXkGdbH6UyeQRSdrBTJsm1EMDH4gbWLGDn
w2Yxfn8DSPlMFny2t4Z12crCyxYcyHoioxdndhzGo544zD3iwLm6YI62zgmo
JEdkzfo1wrvbFubT20+B28+Hzb+tN4F1q55DBs8Wclqzr0xrtADHZ7z1ItUR
FtNeEkYSW0CXmWJzW80JjpPbuD2rLcCr320UWeoEM+LLLuzeVvi0V6VnZsAZ
TI/amSfEt8PVAHrqpUOu0FWyIYaffQ8XXNJNy7bOQ2Srno2RRy88842+QJ70
hOKShMFAg0/A3ONxlJAdCGToTp+5ygVVDdLbAOp1EHm8xB6kcmFzJLVZofA6
pG1THWrN5UK2fZxLwdvr0Nziq174kQsnf8o5QBe9AbrOG499zMdhPJaZefn6
DfhyEf/8b9EJCLKc2uP7ayj4M8JrumifYUdtJPOq8k0IntjPrSiegkjFgvha
t3AYdf/rh/qWKZhDdwrZIeHgNHDHoGN8ClimDlY5tHAwbZv8fUKFB5fKZfFG
b8NBvCxPTimeBw7Go08vGEZAGkWTeMNjGlg/3o1YFYmEegXldDO5r2Bppm08
fOoWSGnG4EdM56AcLf6ZUR8FzRb0gxHWc0Dvzd+UbY+CuP9mmag5zsHzk9iR
sI9RIEarOnE+YA4s/bXpxOkoWNucIfdnzoGEcXXhFcVomB5y+eO9GB90X9h8
TvaJhvY0/P66dj6MHHIN7BK7DclybYSc3xbAINdZooIQA56DzrXi7UuwbPB8
nkqKgytNMZ6X8GtwPD20YrvFHSi7LOO059R32PQq0Ch4lQA5YQE8Q1cRVLUL
f1oLT4Xo7I2zizOiqGq4SeP+2UQQ6R1Fr2+Ko9mKb5FS55JA55pvqDNBAk3Y
H/1GcEyGcUHqOek3kkjd8uyZVe17YDPhH8648gMaW1sSZM7fA7tx2gF1dSnU
OTjcB8404HE8bzUXSSOxB+YaNjk0MJD/qGbl8SNKd4rk+n+lgRQISEMLsqjh
RCbP3oAOJ766LWu5yCEsJkyhLJgOAw3eom568qi33L47+Q86vLzT6I4TyCPJ
FcddJz/RwVciZLSzcyfynOOWSMowwOtq2EuZBwrIM7rrAP8IAw6SD3TakhRR
6N+ZNAl3BrzfqScdYrYLObemPvOIZcCr4ugMPXEllGBjlhxRwIAwUYJD+7AS
qjNpVRxvYYDU0M2TwRW7UUMKJ9p6igET+ZqsbMoeRO1eoqZsYwJLV3lbtYsy
8p8IirDEMYH2wPcdCaeCvlcVqXqbMsGNdaFTZlIFdTjfVUuxY8LKsbzV7Jq9
qPUaQQ7vwwTuxC+hDfGqqPwfhYmxUCY8Pmq0t4OkhlS361TxE5lQFBsiT9ZX
R5fJlSg6iwnxLl6nxQXqKEJf172ymAnGQzmF8R0aiDRmu8+8lglp+zOKOk7j
kAWF0/SygwmRdUlpp6txKNOE5hwyxIQze13yWrU1UaSb+YYUjwmWwe/Oyydo
osrcC/eXBUzIVvXUbhdoIjHl+G5NMRZocwpS7M5roTJrmbwuGRbQ9BsIPTVa
qLbtf/QyJRb4LmzrbiFgSGFX1bdmHAs8y+ZxCfcwlN9EKczbz4LAaKcNGzqG
xksW5dqFDnGq6JdhYugp+7fgeaHvCEKSaSkYekPSkAYCC4rNVtdTMzHEU4po
7xd6tX7rY/4zDN2KWr68XU+43yOT1PgOQ3DXy9HDgAUPngRdjGvBEDUGwmOE
fnKt0+pkG4a6Uz2yCoWuVKKttXViqK43hLMg9JCbwsXeDxiibBLT4w+yAM9V
thrjYuhDnHdIkSELDCtuqudOYEjfKF+iR2jz2MFVn0kMKTY5Ji4JbYvPLJ3i
YUjGaokCRizhL+LU+XwMmTwqnO4SmmIRtfpiAUONubEHBULH/jjWd02AIacX
I37Kh1iQVvKEurKCIVX/3Q0koR/f2kZmr2HIuHd1JFboZ2d9fqFsYEiX47VY
KHSF1ls14iaGolNdtzqErlnQWd3awtC+on6ReaH/BcNL580=
       "]]},
     Annotation[#, "Charting`Private`Tag$21336#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0., 0.019725590993329285`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.835417670560368*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"6c998c67-a25c-4a4a-88fb-f2009a32c957"],

Cell[BoxData["0.06785026853387625`"], "Output",
 CellChangeTimes->{
  3.8353356155689373`*^9, {3.835335664703393*^9, 3.835335679913597*^9}, 
   3.835335720515345*^9, {3.835335939591506*^9, 3.835335968629716*^9}, 
   3.835336000006734*^9, 3.835336166502441*^9, 3.835336261625886*^9, 
   3.835336296779427*^9, 3.835336431870915*^9, 3.835336487843128*^9, 
   3.835336539919108*^9, 3.835336573856303*^9, {3.835336627454705*^9, 
   3.835336644798123*^9}, 3.835336777090931*^9, 3.835336937203053*^9, 
   3.835336967698086*^9, {3.835337077431758*^9, 3.8353370952901173`*^9}, 
   3.835337248895805*^9, 3.835337282997563*^9, 3.835337313638507*^9, {
   3.8353374635495157`*^9, 3.835337492730323*^9}, 3.835337554337326*^9, 
   3.835337593963975*^9, 3.835337936991708*^9, {3.835339220059267*^9, 
   3.835339234947691*^9}, 3.835339312126164*^9, 3.8353394575579023`*^9, 
   3.83533974393673*^9, 3.835339808564766*^9, 3.835347051636819*^9, 
   3.8353583916382027`*^9, 3.835359024262127*^9, 3.835399342044139*^9, 
   3.8353994627937717`*^9, 3.835399542410746*^9, 3.8354159545831137`*^9, 
   3.835416006588832*^9, 3.8354175621424093`*^9, 3.8354176706820517`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"4cdf3397-f4c9-49c0-a498-9d2a578a681b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Delta expansion as a special case of ODM", "Subsubsection",
 CellChangeTimes->{{3.835405112626121*^9, 3.835405118889653*^9}, {
  3.835413624553769*^9, 
  3.835413651985067*^9}},ExpressionUUID->"f258716b-04d3-4884-8b73-\
271c2ccd48e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"\[Gamma]", "=", 
    RowBox[{"gp", "/", "g"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", " ", "\[Equal]", " ", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"\[Delta]", " ", "/", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "-", 
           RowBox[{"\[Delta]", 
            RowBox[{"(", 
             RowBox[{"\[Alpha]", "-", "1"}], ")"}]}]}], ")"}], "^", 
         "2"}]}]}]}], " ", "&&", " ", 
     RowBox[{"\[Gamma]", ">", "0"}], "&&", 
     RowBox[{"\[Alpha]", ">", "0"}], "&&", 
     RowBox[{"\[Delta]", ">", "0"}]}], ",", " ", "\[Delta]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.835405747603483*^9, 3.8354058147647533`*^9}, {
  3.835411114269968*^9, 3.835411215840159*^9}, {3.835411316292643*^9, 
  3.835411330779414*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"4269e276-6047-409a-b60e-83612bab5752"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Delta]", "\[Rule]", 
     TemplateBox[{
       RowBox[{
         FractionBox[
          RowBox[{
            RowBox[{
              RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", 
            RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Gamma]"}], 
          RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
         RowBox[{
           FractionBox["1", "2"], " ", 
           SqrtBox[
            FractionBox[
             RowBox[{
               RowBox[{
                 RowBox[{"-", "4"}], " ", "\[Alpha]", " ", "\[Gamma]"}], "+", 
               
               RowBox[{"4", " ", 
                 SuperscriptBox["\[Alpha]", "2"], " ", "\[Gamma]"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], 
             SuperscriptBox[
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "4"]]]}]}], 
       RowBox[{
         RowBox[{"(", 
           RowBox[{
             RowBox[{"\[Alpha]", ">", "1"}], "&&", 
             RowBox[{"\[Gamma]", ">", "0"}]}], ")"}], "||", 
         RowBox[{"(", 
           RowBox[{
             RowBox[{"0", "<", "\[Alpha]", "<", "1"}], "&&", 
             RowBox[{"\[Gamma]", ">", 
               RowBox[{
                 RowBox[{"4", " ", "\[Alpha]"}], "-", 
                 RowBox[{"4", " ", 
                   SuperscriptBox["\[Alpha]", "2"]}]}]}]}], ")"}]}]},
      "ConditionalExpression"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Delta]", "\[Rule]", 
     TemplateBox[{
       RowBox[{
         FractionBox[
          RowBox[{
            RowBox[{
              RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", 
            RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Gamma]"}], 
          RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
         RowBox[{
           FractionBox["1", "2"], " ", 
           SqrtBox[
            FractionBox[
             RowBox[{
               RowBox[{
                 RowBox[{"-", "4"}], " ", "\[Alpha]", " ", "\[Gamma]"}], "+", 
               
               RowBox[{"4", " ", 
                 SuperscriptBox["\[Alpha]", "2"], " ", "\[Gamma]"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], 
             SuperscriptBox[
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "4"]]]}]}], 
       RowBox[{
         RowBox[{"(", 
           RowBox[{
             RowBox[{"\[Alpha]", ">", "1"}], "&&", 
             RowBox[{"\[Gamma]", ">", "0"}]}], ")"}], "||", 
         RowBox[{"(", 
           RowBox[{
             RowBox[{"0", "<", "\[Alpha]", "<", "1"}], "&&", 
             RowBox[{"\[Gamma]", ">", 
               RowBox[{
                 RowBox[{"4", " ", "\[Alpha]"}], "-", 
                 RowBox[{"4", " ", 
                   SuperscriptBox["\[Alpha]", "2"]}]}]}]}], ")"}]}]},
      "ConditionalExpression"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.835405767063427*^9, 3.835405819621172*^9, 3.835411120121582*^9, {
   3.835411158221187*^9, 3.835411216247324*^9}, 3.835411331328477*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"455812a7-4362-430a-82f3-6cf0f257c856"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Delta]sol", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Gamma]_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Gamma]"}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[Alpha]", " ", "\[Gamma]"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", "\[Gamma]"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "4"]]]}]}]}]], "Input",\

 CellChangeTimes->{{3.83541141162808*^9, 3.835411420190268*^9}, {
  3.835411511417612*^9, 3.835411512199994*^9}, {3.835411995774809*^9, 
  3.835412020558077*^9}, {3.835572390909629*^9, 3.8355723979636507`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"ba180922-7e56-40de-8ec9-3ac00c0eafe9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Delta]sol", "[", 
    RowBox[{"\[Alpha]", ",", "0"}], "]"}], ",", " ", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"\[Alpha]", ">", "1"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Delta]sol", "[", 
    RowBox[{"\[Alpha]", ",", "1"}], "]"}], ",", " ", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"\[Alpha]", ">", "1"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"\[Delta]sol", "[", 
    RowBox[{"\[Alpha]", ",", "\[Gamma]"}], "]"}], ",", " ", 
   RowBox[{"\[Gamma]", "\[Rule]", "\[Infinity]"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"\[Alpha]", ">", "1"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.835411218402296*^9, 3.835411281361731*^9}, {
  3.8354113603420877`*^9, 3.8354113631962347`*^9}, {3.83541141832694*^9, 
  3.8354114305338697`*^9}, {3.83541151488967*^9, 3.83541151694706*^9}, {
  3.835412055593027*^9, 3.835412070895228*^9}, {3.835412518300976*^9, 
  3.835412579965579*^9}, {3.8354127375797997`*^9, 3.8354127578745613`*^9}, {
  3.835572409492964*^9, 3.835572410508596*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"440ce8f2-9040-46ed-923f-94da042dfb35"],

Cell[BoxData[
 FractionBox["\[Alpha]", 
  RowBox[{
   RowBox[{"-", "1"}], "+", "\[Alpha]"}]]], "Output",
 CellChangeTimes->{
  3.835411251647189*^9, 3.835411281918919*^9, 3.835411363899927*^9, 
   3.835411433016727*^9, 3.8354115200362167`*^9, 3.835412071474951*^9, 
   3.835412523476866*^9, 3.8354125804254093`*^9, {3.835412741824285*^9, 
   3.8354127586648827`*^9}, {3.835572393110629*^9, 3.835572411169032*^9}},
 CellLabel->"Out[41]=",ExpressionUUID->"2be4ccbe-f14b-4029-9d78-4db8f219c344"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.835411251647189*^9, 3.835411281918919*^9, 3.835411363899927*^9, 
   3.835411433016727*^9, 3.8354115200362167`*^9, 3.835412071474951*^9, 
   3.835412523476866*^9, 3.8354125804254093`*^9, {3.835412741824285*^9, 
   3.8354127586648827`*^9}, {3.835572393110629*^9, 3.8355724112054*^9}},
 CellLabel->"Out[42]=",ExpressionUUID->"58d5df72-2651-413e-aea7-615b42d45c30"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.835411251647189*^9, 3.835411281918919*^9, 3.835411363899927*^9, 
   3.835411433016727*^9, 3.8354115200362167`*^9, 3.835412071474951*^9, 
   3.835412523476866*^9, 3.8354125804254093`*^9, {3.835412741824285*^9, 
   3.8354127586648827`*^9}, {3.835572393110629*^9, 3.835572411539297*^9}},
 CellLabel->"Out[43]=",ExpressionUUID->"c7c29d19-863c-4981-a9a1-e0f308fcc7ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"optcoef", "[", 
  RowBox[{"nmax", ",", " ", "\[Alpha]", ",", " ", "gp"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], "&&", 
      RowBox[{"gp", ">", "0"}], "&&", 
      RowBox[{"\[Alpha]", ">", "0"}]}], ",", "\[Alpha]"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]sol", " ", "=", " ", 
   RowBox[{"\[Alpha]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"optcoef", "[", 
      RowBox[{"n", ",", "\[Alpha]sol", ",", "gp"}], "]"}], 
     RowBox[{"\[Delta]", "^", "n"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", 
      RowBox[{"nmax", "-", "1"}]}], "}"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"optg", "=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Alpha]sol", "-", 
            RowBox[{"\[Delta]", 
             RowBox[{"(", 
              RowBox[{"\[Alpha]sol", "-", "1"}], ")"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], "%"}], ")"}], "/.", 
       RowBox[{"\[Delta]", "\[Rule]", 
        RowBox[{"\[Delta]sol", "[", 
         RowBox[{"\[Alpha]sol", ",", "\[Gamma]"}], "]"}]}]}], ")"}], " ", "/.",
      " ", 
     RowBox[{"gp", "\[Rule]", 
      RowBox[{"\[Gamma]", " ", "g"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
      RowBox[{"optg", "/.", 
       RowBox[{"\[Gamma]", "\[Rule]", "1"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<I(g)\>\"", ",", " ", "\"\<OptimizedPT\>\""}], "}"}]}]}], 
   "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"g", "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{"N", "[", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"g", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "4"}], ")"}]}], "optg"}], ",", " ", 
      RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[Gamma]", "-", "independence"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "0.1"}]}], ",", " ", 
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "1"}]}], ",", 
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "10"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\[Gamma]", ",", "0", ",", "3"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "error", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"optcoef", "[", 
   RowBox[{
    RowBox[{"nmax", "+", "1"}], ",", "\[Alpha]sol", ",", "gp"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", " ", 
   RowBox[{"{", 
    RowBox[{"gp", ",", "0", ",", "10"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"gp", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], "%%"}], ",", 
    RowBox[{"gp", "\[Rule]", " ", "\[Infinity]"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.835405129635549*^9, 3.8354051330430593`*^9}, {
   3.835405677378661*^9, 3.835405734266861*^9}, 3.835411449175974*^9, {
   3.83541154718668*^9, 3.83541158297049*^9}, {3.8354116233720713`*^9, 
   3.835411639581051*^9}, {3.8354116780538893`*^9, 3.8354117168938704`*^9}, 
   3.835411752480748*^9, {3.835411892668849*^9, 3.835411908371583*^9}, {
   3.8354120782095327`*^9, 3.8354120971765423`*^9}, {3.835412370121583*^9, 
   3.8354123705838013`*^9}, {3.835412423250739*^9, 3.835412430714613*^9}, {
   3.8354127820686827`*^9, 3.835412809916801*^9}, {3.835412932616276*^9, 
   3.835412960263466*^9}, {3.8354149946627083`*^9, 3.835414996802114*^9}, {
   3.835415175442699*^9, 3.835415264944684*^9}, {3.8354153108747396`*^9, 
   3.835415330616707*^9}, {3.8354153945076838`*^9, 3.8354153946014357`*^9}, {
   3.835415664269204*^9, 3.835415667947592*^9}, {3.8355719015213327`*^9, 
   3.8355719730326023`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"42e2b8d7-cb38-42ed-b704-0b7bc9ac9b0d"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", 
     FractionBox[
      RowBox[{"5", " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"693", " ", 
              SuperscriptBox["gp", "3"]}], "-", 
            RowBox[{"378", " ", 
              SuperscriptBox["gp", "2"], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
              "\[Alpha]"}], "+", 
            RowBox[{"84", " ", "gp", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "-", 
            RowBox[{"8", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"], " ", 
              SuperscriptBox["\[Alpha]", "3"]}]}], ")"}]}], 
      RowBox[{"128", " ", 
        SuperscriptBox["\[Alpha]", 
         RowBox[{"13", "/", "2"}]]}]]}], 
   RowBox[{
     RowBox[{"Re", "[", "\[Alpha]", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"4bb987b1-a41d-4134-a3b4-809ba669c342"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Alpha]", "\[Rule]", 
   TemplateBox[{
     RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}]}], 
     
     RowBox[{"gp", ">", "0"}]},
    "ConditionalExpression"]}], "}"}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720105815077`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"d0f2c5f3-c651-4589-b03b-bf6b8c36a811"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"1", "+", 
             SqrtBox[
              RowBox[{"1", "+", 
                RowBox[{"gp", " ", 
                  InterpretationBox[
                   TemplateBox[{"Root", 
                    InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                    TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                    "NumericalApproximation"], 
                   Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
         "4"]}], "+", 
      RowBox[{"2", " ", "gp", " ", "\[Delta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"1", "+", 
             SqrtBox[
              RowBox[{"1", "+", 
                RowBox[{"gp", " ", 
                  InterpretationBox[
                   TemplateBox[{"Root", 
                    InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                    TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                    "NumericalApproximation"], 
                   Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
         "2"], " ", 
        InterpretationBox[
         TemplateBox[{"Root", 
           InterpretationBox[
            StyleBox[
             TemplateBox[{"\"10.6\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], ShowStringCharacters -> False], 
            10.5660881074510069055349958944134414196`15.954589770191003, 
            Editable -> False], 
           TagBox[
            RowBox[{"Root", "[", 
              RowBox[{
                RowBox[{
                  RowBox[{
                    RowBox[{"-", "2304"}], "+", 
                    RowBox[{"360", " ", "#1"}], "-", 
                    RowBox[{"24", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            Short[#, 7]& ], 10.566088107451007`}, "NumericalApproximation"], 
         Root[-2304 + 360 # - 24 #^2 + #^3& , 1, 0]]}], "+", 
      RowBox[{
        SuperscriptBox["gp", "2"], " ", 
        SuperscriptBox["\[Delta]", "2"], " ", 
        InterpretationBox[
         TemplateBox[{"Root", 
           InterpretationBox[
            StyleBox[
             TemplateBox[{"\"125.\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], ShowStringCharacters -> False], 
            124.67026955221433581755263730883598327637`15.954589770191003, 
            Editable -> False], 
           TagBox[
            RowBox[{"Root", "[", 
              RowBox[{
                RowBox[{
                  RowBox[{
                    RowBox[{"-", "5854464"}], "+", 
                    RowBox[{"252", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            Short[#, 7]& ], 124.67026955221434`}, "NumericalApproximation"], 
         Root[-5854464 + 252 #^2 + #^3& , 1, 0]]}]}], 
    RowBox[{"2", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
       RowBox[{"9", "/", "2"}]]}]], 
   RowBox[{"gp", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720355031757`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"343b40db-cee6-4ca5-8cd1-5213563a620a"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"0.35355339059327373`", " ", 
      SqrtBox[
       RowBox[{
         RowBox[{"0.5`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
               SqrtBox[
                RowBox[{
                  RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                  
                  RowBox[{
                   "16.56608810745101`", " ", "g", " ", "\[Gamma]"}]}]]}], 
             ")"}]}], "-", 
         RowBox[{"1.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"-", "1.`"}], "+", 
               RowBox[{"0.5`", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{
                    "16.56608810745101`", " ", "g", " ", "\[Gamma]"}]}]]}], 
                   ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
             RowBox[{
               FractionBox[
                RowBox[{"0.5`", " ", 
                  RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", "\[Gamma]", "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], ")"}]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "2"]], "-", 
               RowBox[{"0.5`", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Gamma]", "2"], "-", 
                    RowBox[{"2.`", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}], "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "4"]]]}]}], 
             ")"}]}]}]], " ", 
      RowBox[{"(", 
        RowBox[{
          RowBox[{"4.`", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                 SqrtBox[
                  RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{
                    "16.56608810745101`", " ", "g", " ", "\[Gamma]"}]}]]}], 
               ")"}], "4"]}], "+", 
          RowBox[{"21.132176214902014`", " ", "g", " ", "\[Gamma]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                 SqrtBox[
                  RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{
                    "16.56608810745101`", " ", "g", " ", "\[Gamma]"}]}]]}], 
               ")"}], "2"], " ", 
            RowBox[{"(", 
              RowBox[{
                FractionBox[
                 RowBox[{"0.5`", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", "\[Gamma]", "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], ")"}]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "2"]], "-", 
                RowBox[{"0.5`", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Gamma]", "2"], "-", 
                    RowBox[{"2.`", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}], "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "4"]]]}]}], ")"}]}], 
          "+", 
          RowBox[{"124.67026955221434`", " ", 
            SuperscriptBox["g", "2"], " ", 
            SuperscriptBox["\[Gamma]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 FractionBox[
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", "\[Gamma]", "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], ")"}]}], 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "2"]], "-", 
                 RowBox[{"0.5`", " ", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Gamma]", "2"], "-", 
                    RowBox[{"2.`", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}], "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}], "2"]}]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"16.56608810745101`", " ", "g", " ", 
                    "\[Gamma]"}]}]]}], ")"}]}]}], ")"}], "4"]]]}]}], ")"}], 
             "2"]}]}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
       RowBox[{
         RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
         SqrtBox[
          RowBox[{
            RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
            RowBox[{"16.56608810745101`", " ", "g", " ", "\[Gamma]"}]}]]}], 
       ")"}], 
     RowBox[{"9", "/", "2"}]]], 
   RowBox[{
     RowBox[{"g", " ", "\[Gamma]"}], ">", "0.`"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720355167713`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"520c1bd1-1c5a-4cde-9b1f-17685e170b5e"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVz3k01IsbBvDhihbOlewmBlOhK0QLLe9ra2TJNvjaKmlkScnWQjf7kiWJ
NktUFDktFElIN3XbXPG1xGg2t5Sf5WaZGhe/uX885zmff55zHu0DR91YkhQK
5Zg4/7X9MMVpmcUy3J801HWtbhgmEo6M7mUsw9qr2Tb1D4ahRWqNxTOv5ahM
b+n8mDUM/rL5fUknZLEhkPo0zWYY3sttXiblL4+G7glTr18IoMtB4XJHvDx+
uEMfG2oWQH/m+NorxfLovYKVuVgvgOElt2w2sOXRyHoLP7RKAP/OqyQQvivx
fwuGA+xcARiM/5yt8VbAxLIOXRk/AWR0NA97eCridjOObcgCH3Jlr0bRYhWR
sCmO4f3gQ4F9rORooSK2WLcUHZjiw7WXG2gJPYrobJex78wIH+pbrvlWM5Xw
bKnBmFY3H/6+m9i14KaMIXeOtn+p4oPVOdtnt5xVsXtCUnXOjw8J9g+ruo6o
Yp7OQHg8wYeWJboX5nNU0VjuQu8vTD5YxFOC3N+pokTH6A26Ax9MQ5pWLNqp
YcMXufM15nygW5t4eVqpY925tpjXKnyQFlLHpTZR0VLm+vinPh7Y1Gb1GTGp
SL30oXspyYOkcNEznygqFlpawZZOHiwI+i7cf0DFubjjieV/8kDYmW/ut2E1
ak3NVFQ38mCkemlq3TpNZBiEBqUX84BlJJIzkaPhY5/2eSMWDxwH0ytUNWno
8QeDdT6AB2bpSjsoRjR8cCxuZNafB1Ic48N/udBQoJGn1eHJg+u5h96EF9Bw
RMeTVWPHA84YmVatoY0azYsMbUMeeNfcW9Q10EH10rnOxz+44KTP+keZQUfT
iWQDvMIFUVZM05AnHd0GLgrLL3Lh9nhq6s0gOl5+6kaRLuCC1MNKtY1pdBR8
bq4nc7nwZOeIpVM7HY9rjHlmp3BhLTMsP9l6Dbo47jkVEMEFypljppOwFst1
iiNzdnOhljwd83qrHnqsFA66Soj3Uw8e4O/WwzivnAjRPAdKNzs4z/no4Uz0
1w7mTw6cvayqb3haD19Nsg8pTnIg0K+OndemhwWFm061DHFAcXjEmrDXR/po
WmtjIwdip9wVvvgaYNy78rfrozmwTcHgntSZ37BScn2OwvdPcGguv6SCMEa+
17mUoV8/wdGXX0zvOW3EgnsTj2qIITjrI71m/rAZDkQuP19VxYbAV3FBJsGb
0ceyvURFlQ1tMmquYd5bsZ1VKyt/aRBMViZc/BptgaLlwd69KoOwf2rHb3sO
b0dmv62izZ0BKC9tpwpzduJocuEfizsHoC7XYrDLDVFO7XDMGPsjRD/Z4VLi
aImmjK8D/ekfofVNxfdMXyscJ5w175p8hBCGeXMIYY2V9XrfPD/3Q/Ftk0dh
oTYY6af9rexKP5yfak6MOG6LAl3yTbtbP3yujokNjtyFicazZajYDy925V9O
SmIg7Rf5p4vdfSDhPMA/l2CHLmENntJFfUCxrJcoO7kb9S1jK56x+iBDRejU
lW6PqZdE94s39EGET+BzYbIDzriz10XO9wIv0ewgFDqi0GCTTcybXlC8cGUg
s9wJH2+Obcu+2guV8gYnXxXtwfWUtwdvHu2Ftkgt23V3nFHu7bbwr1a9UEor
o+5gumDGK8enTeq90BwvogR3umBn5HmNJ9M9oO0g86+ulysqKzHtJt71wMO/
9LM+kq64ikkJVarqgeyXC8Y0fzdsq+q1TEvugQtRX0P3s91QTYdhXRTQA/FK
mr/qeLvj5OyerH2WPVClv+RNNNcda4YMhuO1ekB6WkKtbS8TlUZv9Hyg9MAt
4we/l35hYkpC8Ol8Lgn6B6r3zId74KTZlrLBNhIGdzfWeox64CdJ4EhUktB1
45QhRHli8uGAoBsZJPyoc92u890TWzX/nJgJJ2HxceSjtCNe+HmueuMJJgkO
xrts42e8sIGU0kk1J+GVv1FIWBSBn6cD7kpok6AQGNxUEkMgGq7JL6SRsDe4
XK7zOIFnfuQk6os9G7mq1iyewCPrGcmuWiTQM4Si+RQCp/erKlxfTUJCbWt2
3kUCXypv87VVJ8FCxuX+o0YCdc+8zSpYRUKabKbkSBOBrGgBR1/sDyufM9Vb
CFRz9YZWBRKCqWY/f39OYNCMB+3bShIumaha2b0l0D/eIxTlSZj25XYPsAmM
WJ1CnZAlAQPU1spxCAz7GbUmVeysILcTwCNwX2+puYbYOsdeUG/+TeDoeHEy
YwUJrmm3WeHjBC7duVBStoyE4ixew7VJAultmZQtYo/kqS/v+k7gTlk48n6p
+E9R9t3NQgLtQzTDRDIkvCtrp4T8JNDIzEaUJ7ZK5YJb0Zx4f2tWwTqxD9zZ
UvF+nsCTHv+Yt0iTcPd+hHBxkcDA4OhvTLH/D4MqVFo=
          "]], 
         LineBox[{{0.004126621138711074, 0.13172701824791666`}, {
          0.02025833726578384, 0.6469267958128277}}]}, 
        Annotation[#, "Charting`Private`Tag$35105#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVx3k81AkfwHEKqc2LMo7RrJAO1jpSlE3fr6PC5B78qDzWlSsqR2oHk9ZR
SpIc66o2kg5CiBCFEMoMk+uZ+Y1pUyLb5Wp4PH98Xp/XW907zMlvhZiYWMRy
/3/mSJlKm6Y0esWP9hVWCkFNVJMnMpLG1XTC9Xm5ECgFftMKf0hjWpHCh/xi
IUiDvKVukzS6f+cVXs0TwidW6ITngdVI/dGk9zpZCI0Sm02euq1B4ROZHwne
QjiyNp0bH70Wq4eT9YNVhNAtY7Ra4ogc+ozMbvHPGYM++vrsHqYc3g1dCAlM
H4M356e25OTJYVrQaPqZlDEQSt621B2RQ64qo6I1Zgx+iJRYxKF12M24/W7O
ewy0p+a+33Nfj1GHTTMq9MYguadB6OJKQaNvB3ycXwsgde1f4WpRFDyafu3l
0y4BZNhErZi4RsEEqqSDcZsACtt01Vj9FJwcOW4M9QKobiw8VMpQwLCA2hs1
RQJ4++Bs36KTIjKN7TbsZArA/PK+p7ftldFrdKfbC10BsGyq7vSFKuOoonWh
ubYAGiU3XRVdUsbhrAHZZ5sFYMIU83d+qYwpLnE6AzQBGAbW/7RkRcWodTpl
Fj8JQNPCwM3VXAU/P+7x0ntPgtQMbUpiJw2jf+nw+lRCgmVFClePQUPdoNMn
KUUkxB+bf+oRTkPPoEHlvTdIWBzjXi1/SEPq2IWFghwSZl6l7z6s+zNKe3Gl
Mi+QMF4qnVC5VRUNBYarHY+R4Kc3L2Mgo4bzi7VzjTtJODicVKSsqoZ32q91
0raTsCNJwVRMTw15FZMtsbokSPD0Q3od1ND0/oZV9ltJuJl6tPNYhhqOVf41
tZFKAm+Sk1i6QR1j70UrMkV8cL9XtrRJWwNTxCt837/gg62W37+KBzTRb0Xt
rGEgH+ZTIutHXTVRfHTRL8OfDyVTCQm3/DVx7UdZyowPHySqiqnbEzWxDQjN
Z558qNs7bmbbqond9MbKSAYftjCC089ZbMbYrqgcM+SDWNwJw2nYgvdR47An
lQ8VnJjIjl3bMBDOTqne5EFJgq+3wHobml3x7IrI50GBEd1+wWMbTld1Mnqy
eXAhW1nr15htWJVOIS5e5oHP4cqRtOZtOPEKUw1jeEARjlsQNloYGtdmo+3O
g6gvzuvfHdJGpZCXN7PkefDbeu0yiTgdLC9I5Z678l84upCeX0ToI12vaP5c
2SiEtb0zLLPdjgujvVA8OwIXPKQ2i0J2oIWLhoO8zQj4tP/hbxBghNEPquu+
1w5D8yqqY7D7LmzKtdoauGsYDNaxMt9HmOALWapk7eMh8PpiqmMXsgclBoL+
KbYdghsFrbSZS3vRyfp12xQ5CJWpJsN9ToiG5b9p+7EGIaLO1CH/oBkuiR9P
6vllEJo6iz6fP2SOdXe+7dceeAOBB3Y3BBIWePP3j3S7lDeQV2LwKDjIEjsv
kSob4A1c+dJw9vipfbixN/tiwywX/imNjAo4uR/HLZ98LK3jwvP96dnx8Qcw
NOK059gZLojbDwkus6xQxHLLI8y5IGZWLX79tDU+odE/MWW4kKw0Y9uXZIPT
jT52HQMDcNzDp2XmHB2/achqSBYPAHl2hy9cO4gjK5UyIsIHgHI1Z+j8DVvM
+bds9IvFABTLaZ9uz7VDMN++IYg6AM0nN+7betceK8NZfvKT/VCgdp1mynBA
ncs1Omat/dDAnBcLeOWAP79LpmcV9oM6fdWPTW6OGDTXlKsV3Q9VvVopgxxH
PFJV3HyL0Q8X2xb11Y44YWb8fHuYXj9cDX8f5DXihOF7FQy5Mv3AVFCV1XB3
RgnX8eIPkxy4oyXZGcF3xqU3WqqHX3JA6qs4tdmTgfPN9+ZE9zlwW/9hbME7
Bv6ZFmwrl8oBLe9SO9ExF0xZzFi4HcaBYevHFS4TLjg1Ea2gyOBA399nfoVw
V/SuvictYcyB2UrHPRqfXZFtHJOWR+PAUu3JR4mhbnh/1MTYeyUH6Pr79zG/
ueEls92fqsfZ0H5ELzA4nMATVwrMIl+xYb1PQH1+JIFSQWes1izbM+CGzKtT
BNbZvPUo7GXD95PyFTuYBBKU/9zs6GGDZvLMvOhPAi1j/65X7WYDq6LpYlom
gfKhpxS6Othgssqh/NFjAvvU77rqPGND4trzK8brCVR1l+tqaWHD63UtDJVG
ApPsG2zclx1A2zEX20Lg9rq3wYnNbMgyUDa36iIQwwx3kk1s+HqIzx4aIfBO
1jCZ/YQN+Dt1iwyPwKjcmtX6y07xd4oGkkCLkto97fVs0DjxnHbrLYFplurP
v9WxwTGxxO/YFIHMOAfC+TEb8lLImsJpAq81Kg9+qGXDeJrKmr7PBN5/+9U3
ftms3IsPjGYILPLn5z+sYcPL661igXME+sZN2FgvW6l40Sl3gUDpRfGVZDUb
vO8aF3WLCDz4TL0tetkPyo/PLC0RSJZbZcgt+3+LxXcx
          "]]}, 
        Annotation[#, "Charting`Private`Tag$35105#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.13172701824791666`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.13172701824791666`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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, 100}, {0.13172701824791666`, 0.6469267958128277}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"OptimizedPT\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.835572035794505*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"670b131c-01d9-4cda-b296-0a5bfa264ba7"],

Cell[BoxData[
 TemplateBox[{"1.0227656721131686`", 
   RowBox[{"!", 
     RowBox[{"(", 
       RowBox[{
         RowBox[{"\[Gamma]", "\[LessEqual]", "0.`"}], "&&", 
         RowBox[{"\[Gamma]", "\[LessEqual]", "0.`"}]}], ")"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.83557218812693*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"1452c3dc-e4ce-498c-ba74-a264d77c24f2"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxFknswVGEYxs+ydo1GUtuWxCB2SiNNUnTxHQrTlKFmrDvZjaRix9S6JJQ2
Ne267FKrDemGMczQxOhmtnJLmTEpiaWlC0vuWbnsVjNn3/PHmTO/ed7n+d7n
O8eaE38sSg/DsMB/z//3/OG4Ir94nlv6zb1V5i7jKP4uv82XVYzSZpjV/1ku
FD7zYVWjKwQ7se5M01E9ukmwAS2BPhLbiIoIZrmLqGuvvkZigg+lRwqesFtQ
AcEZqdwaB0Y76PXJUYqHnR0ol+AvK0xybHidkN8TfNoxIfED6L/9lt6ahX5E
+QSbeoui5Xg3khKcK0oWLvn0oGyCV3VF1e4O6UV5BG9YGK7qD1egHII3WZ2p
EHAGkIRgF8XZdnexEublCxlHumRDwDGNra0vL38HLuSWbVh7/CfsNxT2xtCI
OwzsEKic00SNQH/aI+lgSYAK+vfP+Hbgh0ZhfnhkZ/pW3zHoNz1gtp3p/wv8
cs+37bvY4+DPrUw5GRAwAZxYy8HEmyaBWSaGPkkyksfRwdRMiynoW8fLqMwu
mYL84BY99Y8XUzCvsRB4oD5y3rP9es/E+mngLjsJ/ah4Gvy2mR82hxXOgO7q
N7CzRDYLfRQ8gZtI+Bv0Wtcg46a8OfB/886dqVuhhvtlslt6ygVqsp/NpTJr
kRr8n8f3nL+dr4b7k2VVrxLeJ/1WDQXe8XJSt9944onzMpmHBrG8V+fmYb9C
ZowxK+kP6JeLT2U5xy5AXlGHtDmbtwj6xTjJpEXCEvhHIzevD+Isw/97Y1lF
7Y/WQD+b82Yp/K8a8D8d855YGawFls6PtfUmaqEfnyp+UF5AstPGviCPTi2c
98nOZXCPLYbruKTsveHPExium4/ZwnWUPMRwXX8GHuGvUpK6nB1ywd2SAv7J
XQ5K2TYKrutruU7rNedG6ind91ZXRlBw3b5OgaoKRikF8s5kenXvN9cD/Vq0
4QJFQvILi0itiqEP3KC5qm+frQ/7dTw+oBKZUkFvsopuFoqpsM+Vev9SpZEB
cKhNX3iIyADmF+sczbfSacCp+iPvCtJoMN+2xvRWWCMN130Ppq1rpB1Gh37V
fKw53JIOfbzaWuyl+0hOjGPPGiXTIb95eIdz622SGVwTvuA5Hc7jKEbrPPrJ
/JqAVrVWS+b9BcyRmWE=
       "]]},
     Annotation[#, "Charting`Private`Tag$102973#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQ/cM7b25AfoHdjOP7X16e/cI+f0HZSX+1efa77N+A
+Qd7enb7qq2z3wPlh+77rSQvtxEu72VmmCGuudl+H5RvrDbnE7v9djifla2I
/WXWfjjfsz6xdWvYcfu9UP72ytS7Sy+eg8vfjMrWLyq/DLdP0L037aDDdbi8
wJXUTebRt+H6pX69WHsv7q79AShfWSFnZWvSffudUH40c8qkJs0HcPOWfhMM
OLTwgf1uKN/ibu5px0kP4fw/2d+5uac/st8P8/+vBp8rsx/D7Re5u6TLs/8J
3P6M/SdO7Gt6Cuc3CO74mFn4DK5+ZvJyKdGE5/Dwehx7hIMr+QVcXjfi4bd/
qS/h9rEtm/FofvgruHvvffY/5+D5Gq7+031JA7HQt3D7JqyuSg8Pfw/nq/Fz
+FbM/gDnbytoWN03/yPcfNfTnTffS3yC86+oTmYPnPQJbl9NiLHEddHPcPtU
mi9rxM78DA8fy4D7JvNnf4Gbf7eg1a635ytc/SbLSN6jE7/BzRMLO35zRet3
uLz9I4aJh0p+wOVzakz8S74h+DPFMnjVKn7C3Sehz8Hq3v4Trn+a+4o/6dMQ
/CkVL16v3PIT7p6+WxmndD8i+E3zMttNs34hwsuMUT3pLYI/99yMY30Fv+Hp
p1duWnTYx99w/9bmTf4gW/QHrt7kRWyL9as/cPtfJ2pIRCb9hae33es7+2Y/
+QuX7/77iuVe2j+4/5RKJavKHiD4u964v+eL+g/3r7HMnUini//h8tdULR5Z
qTA4wOQzNJP1Jy9F8EUc4kNfPWRwgLnvYFh0taMcowNMf9X1RUKr4xnh8sYR
r1aKLETI5zS7XbeVZnKAubcjjeMX42QmuPq9son/X4kww/k7/7Uxa/Uxw/Wf
2+z8qleQBS5/VCHtWM8kFgdY+LVsD134kIsVrj5G6U5cdC+C/3ubvrQ2Oxvc
/hrml2em1rHB5cVULBNVGdjh5pfnhX3hqmRH+D+Zv6x1Dztc/cbwE9///0fw
AT7PzKc=
       "]]},
     Annotation[#, "Charting`Private`Tag$102973#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGDwAWIQ/cM7b25AfoHdmonMBUqlD+zzF5Sd9FebZ3+U43s+
iH+wp2e3r9o6+wNQvrHanE/s9tvtd0H5rGxF7C+z9tsfhPI96xNbt4Ydt98H
5TfUJG/UFTkN52+vTL279OI5+91Q/i1u/n6lgov2h6D8m1HZ+kXll+33QPlf
A/6ckoy5CrdP0L037aDDdbh7JvRW9vzxvWm/H8oXuJK6yTz6Nly/1K8Xa+/F
3YXbr6yQs7I16T7cvTnCUulHb92HmxfNnDKpSfMBnL/0m2DAoYUP4OZb3M09
7TjpIZx/8FeDz5XZj+H8jP0nTuxregq3b2bycinRhOdw8x7HHuHgSn4B5+tG
PPz2L/Wl/V4on23ZjEfzw1/Bw+PeZ/9zDp6v4eZ/ui9pIBb6FuH/1VXp4eHv
4fap8XP4Vsz+ADdvW0HD6r75H+F819OdN99LfILzr6hOZg+c9AkeHjUhxhLX
RT/DzVNpvqwRO/MzXN4y4L7J/Nlf4PbfLWi16+35CudvsozkPTrxG1y9WNjx
mytav8P59o8YJh4q+YEI/xoT/5JvP+D6Z4pl8KpV/IS7r+9Wxindjz/h4dE0
L7PdNOsX3H1zz8041lfwG86vzZv8QbboD1z/60QNicikv/Dw6/77iuVe2j+4
/bveuL/ni/oP519TtXhkpcLgALMvQzNZf/JSBofDsPgOi652lGOE840jXq0U
WcjocATKv5A7w0HzHqMDzD85zW7XbaWZHGDu+VWy/IV8OJMDzL6ONI5fjJMR
8kqHttR8u8zkAHPvXtnE/69EmOHmWfOVNHYFIvg7/7Uxa/UxO8DSu0vk02+3
zzPDzT+32flVryALXL3Xq5AI3iAWuPlHFdKO9Uxigduv8uau8fZzCPmW7aEL
H3KxwvV/eCPRIOfDClcfo3QnLrqXFW7f72360trsbHD9Ncwvz0ytY4PrF1Ox
TFRlYIfrdzt5XGuGDbsDLP7K88K+cFWyO8Dyu0gyf1nrHna4+RvDT3z//58d
bj4ABwxCeA==
       "]]},
     Annotation[#, "Charting`Private`Tag$102973#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.5142986475769},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 3}, {0.5142986475769, 0.9443491363705224}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355721882834673`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"ca1eca99-a6f5-48f9-a01c-55662bac4941"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"1575", " ", 
      SuperscriptBox["gp", "4"], " ", 
      InterpretationBox[
       TemplateBox[{"Root", 
         InterpretationBox[
          StyleBox[
           TemplateBox[{"\"74.1\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], ShowStringCharacters -> False], 
          74.05610331559343251228710869327187538147`15.954589770191003, 
          Editable -> False], 
         TagBox[
          RowBox[{"Root", "[", 
            RowBox[{
              RowBox[{
                RowBox[{
                  RowBox[{"-", "1824768"}], "+", 
                  RowBox[{"13824", " ", "#1"}], "+", 
                  RowBox[{"72", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
          Short[#, 7]& ], 74.05610331559343}, "NumericalApproximation"], 
       Root[-1824768 + 13824 # + 72 #^2 + #^3& , 1, 0]]}], 
    RowBox[{"8", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
       RowBox[{"17", "/", "2"}]]}]], 
   RowBox[{"gp", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.835572203778224*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"55adc7ee-5992-4ce9-8b13-2afa4e66b775"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Hk81PkfB3BHtGEtkSLH8JXRhGiT46d5f6x0SMiR30MbO67J2fFL2Qwi
Rxo0V46ElGNVrsgylWsod65iw7KGZCgG446d3x+vx+vx/Ov130vT85Kjj5iI
iMhtYf7fmRGekkbeVKJ7dyBBh1ls3tiLs3XF+UGYNi2RE4oRt97W3MbhfoeA
rQITURaJKMuoLJUaiAa29hUvAT6GmFmXpCGBSwAfOxEGe+EhUW/WO3mLfA+a
3Q8xglRLicOyWZsb/QxYG+9eCafWELXzdxxZW78PpO+DajJzLcTAoyFByxrp
sKzcbLzi3Ecs7xvNXbR6CJxTrhmvt4aJawG2Q3xyNjS29Cy9UZkgPhIdSli2
zgH8jsNHrO/PEI910Pct9T8Gd/5sY2nDPPFL2on6Rb9cWCKbxMZsLhMTvb//
urCeB1X/VC9bS2wSDQ3LV/hJBfCq/zTbPFgMetcvsuY0CmGgLZAkfUwSrr9T
N5wtewoPh239gmKlQIXZ1/bV6jlkyBKTsZ9/ghr3u+SZD0VQ80afWqmzEzwJ
SHyaXAJrFPtT0jxFEFu/+X6RUgoOlAXqMe5u6Bt1UVu0LoM4/TPfp+X3Quhz
6er5/hdwXq5riyKpCTaMz5Lzj8rhT3zLX1+mtUA1tN6Z71cBjAda1CieNtRZ
3ZibXX8JSh5spqnRftg+OIb/qlENskn/YZf7G8FA3ZuQmS/VsMdcIMFiH4Kn
+Wmc6TI26OqPRnUoHga7q3YePKvXkGdbH6UyeQRSdrBTJsm1EMDH4gbWLGDn
w2Yxfn8DSPlMFny2t4Z12crCyxYcyHoioxdndhzGo544zD3iwLm6YI62zgmo
JEdkzfo1wrvbFubT20+B28+Hzb+tN4F1q55DBs8Wclqzr0xrtADHZ7z1ItUR
FtNeEkYSW0CXmWJzW80JjpPbuD2rLcCr320UWeoEM+LLLuzeVvi0V6VnZsAZ
TI/amSfEt8PVAHrqpUOu0FWyIYaffQ8XXNJNy7bOQ2Srno2RRy88842+QJ70
hOKShMFAg0/A3ONxlJAdCGToTp+5ygVVDdLbAOp1EHm8xB6kcmFzJLVZofA6
pG1THWrN5UK2fZxLwdvr0Nziq174kQsnf8o5QBe9AbrOG499zMdhPJaZefn6
DfhyEf/8b9EJCLKc2uP7ayj4M8JrumifYUdtJPOq8k0IntjPrSiegkjFgvha
t3AYdf/rh/qWKZhDdwrZIeHgNHDHoGN8ClimDlY5tHAwbZv8fUKFB5fKZfFG
b8NBvCxPTimeBw7Go08vGEZAGkWTeMNjGlg/3o1YFYmEegXldDO5r2Bppm08
fOoWSGnG4EdM56AcLf6ZUR8FzRb0gxHWc0Dvzd+UbY+CuP9mmag5zsHzk9iR
sI9RIEarOnE+YA4s/bXpxOkoWNucIfdnzoGEcXXhFcVomB5y+eO9GB90X9h8
TvaJhvY0/P66dj6MHHIN7BK7DclybYSc3xbAINdZooIQA56DzrXi7UuwbPB8
nkqKgytNMZ6X8GtwPD20YrvFHSi7LOO059R32PQq0Ch4lQA5YQE8Q1cRVLUL
f1oLT4Xo7I2zizOiqGq4SeP+2UQQ6R1Fr2+Ko9mKb5FS55JA55pvqDNBAk3Y
H/1GcEyGcUHqOek3kkjd8uyZVe17YDPhH8648gMaW1sSZM7fA7tx2gF1dSnU
OTjcB8404HE8bzUXSSOxB+YaNjk0MJD/qGbl8SNKd4rk+n+lgRQISEMLsqjh
RCbP3oAOJ766LWu5yCEsJkyhLJgOAw3eom568qi33L47+Q86vLzT6I4TyCPJ
FcddJz/RwVciZLSzcyfynOOWSMowwOtq2EuZBwrIM7rrAP8IAw6SD3TakhRR
6N+ZNAl3BrzfqScdYrYLObemPvOIZcCr4ugMPXEllGBjlhxRwIAwUYJD+7AS
qjNpVRxvYYDU0M2TwRW7UUMKJ9p6igET+ZqsbMoeRO1eoqZsYwJLV3lbtYsy
8p8IirDEMYH2wPcdCaeCvlcVqXqbMsGNdaFTZlIFdTjfVUuxY8LKsbzV7Jq9
qPUaQQ7vwwTuxC+hDfGqqPwfhYmxUCY8Pmq0t4OkhlS361TxE5lQFBsiT9ZX
R5fJlSg6iwnxLl6nxQXqKEJf172ymAnGQzmF8R0aiDRmu8+8lglp+zOKOk7j
kAWF0/SygwmRdUlpp6txKNOE5hwyxIQze13yWrU1UaSb+YYUjwmWwe/Oyydo
osrcC/eXBUzIVvXUbhdoIjHl+G5NMRZocwpS7M5roTJrmbwuGRbQ9BsIPTVa
qLbtf/QyJRb4LmzrbiFgSGFX1bdmHAs8y+ZxCfcwlN9EKczbz4LAaKcNGzqG
xksW5dqFDnGq6JdhYugp+7fgeaHvCEKSaSkYekPSkAYCC4rNVtdTMzHEU4po
7xd6tX7rY/4zDN2KWr68XU+43yOT1PgOQ3DXy9HDgAUPngRdjGvBEDUGwmOE
fnKt0+pkG4a6Uz2yCoWuVKKttXViqK43hLMg9JCbwsXeDxiibBLT4w+yAM9V
thrjYuhDnHdIkSELDCtuqudOYEjfKF+iR2jz2MFVn0kMKTY5Ji4JbYvPLJ3i
YUjGaokCRizhL+LU+XwMmTwqnO4SmmIRtfpiAUONubEHBULH/jjWd02AIacX
I37Kh1iQVvKEurKCIVX/3Q0koR/f2kZmr2HIuHd1JFboZ2d9fqFsYEiX47VY
KHSF1ls14iaGolNdtzqErlnQWd3awtC+on6ReaH/BcNL580=
       "]]},
     Annotation[#, "Charting`Private`Tag$106426#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0., 0.019725590993329285`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.835572203814314*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"4f5ca388-f0f4-427c-ac01-27120a22304a"],

Cell[BoxData["0.06785026853387625`"], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.835572203946188*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"5559da82-d02d-4d5b-bcf9-2151e3f0e961"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"gp", " ", "=", " ", 
   RowBox[{"\[Gamma]", " ", 
    SuperscriptBox["g", "2"]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.835405747603483*^9, 3.8354058147647533`*^9}, {
  3.835411114269968*^9, 3.835411215840159*^9}, {3.835411316292643*^9, 
  3.835411330779414*^9}, {3.835616256307026*^9, 3.8356163008675528`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"d3f153c3-7074-49a4-9823-1b1c93f2a968"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"optcoef", "[", 
  RowBox[{"nmax", ",", " ", "\[Alpha]", ",", " ", "gp"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], "&&", 
      RowBox[{"gp", ">", "0"}], "&&", 
      RowBox[{"\[Alpha]", ">", "0"}]}], ",", "\[Alpha]"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]sol", " ", "=", " ", 
   RowBox[{"\[Alpha]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"optcoef", "[", 
      RowBox[{"n", ",", "\[Alpha]sol", ",", "gp"}], "]"}], 
     RowBox[{"\[Delta]", "^", "n"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", 
      RowBox[{"nmax", "-", "1"}]}], "}"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"optg", "=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Alpha]sol", "-", 
            RowBox[{"\[Delta]", 
             RowBox[{"(", 
              RowBox[{"\[Alpha]sol", "-", "1"}], ")"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], "%"}], ")"}], "/.", 
       RowBox[{"\[Delta]", "\[Rule]", 
        RowBox[{"\[Delta]sol", "[", 
         RowBox[{"\[Alpha]sol", ",", 
          RowBox[{"\[Gamma]", " ", "g"}]}], "]"}]}]}], ")"}], " ", "/.", " ", 
     
     RowBox[{"gp", "\[Rule]", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"g", "^", "2"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
      RowBox[{"optg", "/.", 
       RowBox[{"\[Gamma]", "\[Rule]", "1"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<I(g)\>\"", ",", " ", "\"\<OptimizedPT\>\""}], "}"}]}]}], 
   "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"g", "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{"N", "[", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"g", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "4"}], ")"}]}], "optg"}], ",", " ", 
      RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[Gamma]", "-", "independence"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "0.1"}]}], ",", " ", 
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "1"}]}], ",", 
      RowBox[{"optg", "/.", 
       RowBox[{"g", "\[Rule]", "10"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"\[Gamma]", ",", "0", ",", "3"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "error", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"optcoef", "[", 
   RowBox[{
    RowBox[{"nmax", "+", "1"}], ",", "\[Alpha]sol", ",", "gp"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", " ", 
   RowBox[{"{", 
    RowBox[{"gp", ",", "0", ",", "10"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"gp", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], "%%"}], ",", 
    RowBox[{"gp", "\[Rule]", " ", "\[Infinity]"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.835405129635549*^9, 3.8354051330430593`*^9}, {
   3.835405677378661*^9, 3.835405734266861*^9}, 3.835411449175974*^9, {
   3.83541154718668*^9, 3.83541158297049*^9}, {3.8354116233720713`*^9, 
   3.835411639581051*^9}, {3.8354116780538893`*^9, 3.8354117168938704`*^9}, 
   3.835411752480748*^9, {3.835411892668849*^9, 3.835411908371583*^9}, {
   3.8354120782095327`*^9, 3.8354120971765423`*^9}, {3.835412370121583*^9, 
   3.8354123705838013`*^9}, {3.835412423250739*^9, 3.835412430714613*^9}, {
   3.8354127820686827`*^9, 3.835412809916801*^9}, {3.835412932616276*^9, 
   3.835412960263466*^9}, {3.8354149946627083`*^9, 3.835414996802114*^9}, {
   3.835415175442699*^9, 3.835415264944684*^9}, {3.8354153108747396`*^9, 
   3.835415330616707*^9}, {3.8354153945076838`*^9, 3.8354153946014357`*^9}, {
   3.835415664269204*^9, 3.835415667947592*^9}, {3.8355719015213327`*^9, 
   3.8355719730326023`*^9}, {3.83561632816568*^9, 3.835616328461257*^9}, {
   3.835616401225259*^9, 3.835616401311262*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"eec6a2bc-c0e2-4f9a-a020-e23563d4bfd3"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", 
     FractionBox[
      RowBox[{"5", " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"693", " ", 
              SuperscriptBox["gp", "3"]}], "-", 
            RowBox[{"378", " ", 
              SuperscriptBox["gp", "2"], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
              "\[Alpha]"}], "+", 
            RowBox[{"84", " ", "gp", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "-", 
            RowBox[{"8", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"], " ", 
              SuperscriptBox["\[Alpha]", "3"]}]}], ")"}]}], 
      RowBox[{"128", " ", 
        SuperscriptBox["\[Alpha]", 
         RowBox[{"13", "/", "2"}]]}]]}], 
   RowBox[{
     RowBox[{"Re", "[", "\[Alpha]", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835616410476748*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"e796723a-6b59-4ba7-a03f-3ed69210e7ad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Alpha]", "\[Rule]", 
   TemplateBox[{
     RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}]}], 
     
     RowBox[{"gp", ">", "0"}]},
    "ConditionalExpression"]}], "}"}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835616416590176*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"5d5e1358-4c15-48d3-aa2c-4042b088f442"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"1", "+", 
             SqrtBox[
              RowBox[{"1", "+", 
                RowBox[{"gp", " ", 
                  InterpretationBox[
                   TemplateBox[{"Root", 
                    InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                    TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                    "NumericalApproximation"], 
                   Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
         "4"]}], "+", 
      RowBox[{"2", " ", "gp", " ", "\[Delta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"1", "+", 
             SqrtBox[
              RowBox[{"1", "+", 
                RowBox[{"gp", " ", 
                  InterpretationBox[
                   TemplateBox[{"Root", 
                    InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                    TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                    "NumericalApproximation"], 
                   Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
         "2"], " ", 
        InterpretationBox[
         TemplateBox[{"Root", 
           InterpretationBox[
            StyleBox[
             TemplateBox[{"\"10.6\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], ShowStringCharacters -> False], 
            10.5660881074510069055349958944134414196`15.954589770191003, 
            Editable -> False], 
           TagBox[
            RowBox[{"Root", "[", 
              RowBox[{
                RowBox[{
                  RowBox[{
                    RowBox[{"-", "2304"}], "+", 
                    RowBox[{"360", " ", "#1"}], "-", 
                    RowBox[{"24", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            Short[#, 7]& ], 10.566088107451007`}, "NumericalApproximation"], 
         Root[-2304 + 360 # - 24 #^2 + #^3& , 1, 0]]}], "+", 
      RowBox[{
        SuperscriptBox["gp", "2"], " ", 
        SuperscriptBox["\[Delta]", "2"], " ", 
        InterpretationBox[
         TemplateBox[{"Root", 
           InterpretationBox[
            StyleBox[
             TemplateBox[{"\"125.\"", 
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEExpressions", "NumericalApproximationElider"]]}, 
              "RowDefault"], ShowStringCharacters -> False], 
            124.67026955221433581755263730883598327637`15.954589770191003, 
            Editable -> False], 
           TagBox[
            RowBox[{"Root", "[", 
              RowBox[{
                RowBox[{
                  RowBox[{
                    RowBox[{"-", "5854464"}], "+", 
                    RowBox[{"252", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
            Short[#, 7]& ], 124.67026955221434`}, "NumericalApproximation"], 
         Root[-5854464 + 252 #^2 + #^3& , 1, 0]]}]}], 
    RowBox[{"2", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
       RowBox[{"9", "/", "2"}]]}]], 
   RowBox[{"gp", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835616440813532*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"9b19b97e-c0d6-4bc4-9c96-ad9bd17378d0"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"0.35355339059327373`", " ", 
      SqrtBox[
       RowBox[{
         RowBox[{"0.5`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
               SqrtBox[
                RowBox[{
                  RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                  RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}]}],
          "-", 
         RowBox[{"1.`", " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"-", "1.`"}], "+", 
               RowBox[{"0.5`", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                   ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
             RowBox[{
               FractionBox[
                RowBox[{"0.5`", " ", 
                  RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"g", " ", "\[Gamma]"}], "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], ")"}]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "2"]], "-", 
               RowBox[{"0.5`", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["g", "2"], " ", 
                    SuperscriptBox["\[Gamma]", "2"]}], "-", 
                    RowBox[{"2.`", " ", "g", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}]}],
                     "+", 
                    RowBox[{"g", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "4"]]]}]}], ")"}]}]}]], " ", 
      RowBox[{"(", 
        RowBox[{
          RowBox[{"4.`", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                 SqrtBox[
                  RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
             "4"]}], "+", 
          RowBox[{"21.132176214902014`", " ", 
            SuperscriptBox["g", "2"], " ", "\[Gamma]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                 SqrtBox[
                  RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
             "2"], " ", 
            RowBox[{"(", 
              RowBox[{
                FractionBox[
                 RowBox[{"0.5`", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"g", " ", "\[Gamma]"}], "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], ")"}]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "2"]], "-", 
                RowBox[{"0.5`", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["g", "2"], " ", 
                    SuperscriptBox["\[Gamma]", "2"]}], "-", 
                    RowBox[{"2.`", " ", "g", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}]}],
                     "+", 
                    RowBox[{"g", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "4"]]]}]}], ")"}]}], "+", 
          RowBox[{"124.67026955221434`", " ", 
            SuperscriptBox["g", "4"], " ", 
            SuperscriptBox["\[Gamma]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               RowBox[{
                 FractionBox[
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"g", " ", "\[Gamma]"}], "-", 
                    RowBox[{"1.`", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], "+", 
                    RowBox[{"0.5`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], ")"}]}], 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "2"]], "-", 
                 RowBox[{"0.5`", " ", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["g", "2"], " ", 
                    SuperscriptBox["\[Gamma]", "2"]}], "-", 
                    RowBox[{"2.`", " ", "g", " ", "\[Gamma]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}]}],
                     "+", 
                    RowBox[{"g", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
                    "2"]}]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1.`"}], "+", 
                    RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"16.56608810745101`", " ", 
                    SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], 
                    ")"}]}]}], ")"}], "4"]]]}]}], ")"}], "2"]}]}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
       RowBox[{
         RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
         SqrtBox[
          RowBox[{
            RowBox[{"1.`", "\[VeryThinSpace]"}], "+", 
            RowBox[{"16.56608810745101`", " ", 
              SuperscriptBox["g", "2"], " ", "\[Gamma]"}]}]]}], ")"}], 
     RowBox[{"9", "/", "2"}]]], 
   RowBox[{
     RowBox[{
       SuperscriptBox["g", "2"], " ", "\[Gamma]"}], ">", "0.`"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835616440827813*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"f67fadf2-e331-4fb9-a456-0fb82b30f55b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVz3k01IsbBvDhihTnSmQwMZgKXaG0UHlfW6MkjMEXqdDIkpKtTTdLRChr
G4mKIkdFaRHSTW6bK30NDZrNDfmFmzQZF7+5fzznOZ9/nnMeg6CDLI48hUI5
JMt/HTtAcVW2UUa/5P7Oq3UDMJZ4YGQXUxlrL2c51t8bgCaFZTbPfBbgEkZT
x8fMAQhQyetOPqKCD4NpT9McB+Cd6jplhQA1NPNMnHj1QgydLuoX2xPU8P1t
xtf+RjH0ZIwuv1Sshr4LORlz9WIYmHfTcVWfGpo7rBeFV4rh3xmtRMJ/Ef5v
1ozXd1YMpqNTP6p91TGptN1IaacY0tsbB7y8NXCTFd8pbFYEZ1Uux9DjNZBw
LI4T/hRBwbZ4+ZFCDWxyaCoKmhDB1Zer6IldGujmnL775JAI6puu+lexNfFM
ielX/Q8i+LsmqXOWtQTDbh9sHawUgf05p2c33aj4YUyeOr1TBInb7ld2HqBi
jiEvMoEQQdM8o/yZbCpaqOZzf2GLwCaBEuL5lopy7SPXGS4iWBPWsHDOWRsf
DqrmVluLgOFg6eNtr4N151riXmmJQFFCG1VYS0M7pWujn7qF4Fib2W3OpiHt
wvsP80khJEdKn/nF0LDQzh7WdwhhVtydf/ceDaePH04q+1MIko48652rlqL+
xGR51WMhDFXNT61boYdM0/CQ08VC4JhLVS1V6fjIr3XGnCOE7b2ny6l6dPT6
g8nJDRSC1WnNzRRzOt47dHzoR4AQFPgW+/9yp6NYN0e/3VsI187uex1ZQMch
Q29OtbMQ+F/JtCpdA9RtnGMamAnBt/rOnJGpIeqUTHc8+ikAVxPOP0uYDFwz
lmKKlwQgzYxr6PdmIIt3XlJ2XgC3RlNTb4Qw8OJTFkWxQAAK9yu0V6cxUPy5
sZ48K4AntkN2rq0MPKz71TvrlACWsyPyUhyWofv2HccCowRAOXlozTgsxzLD
4ujsrQKoJU/EvdpgjF6LJL0ecrL91L1Boq3GeNwnO0o6w4eSdS5u037GOBk7
3M6e4sOZi1QTsxPG2Dbet09jnA/BO+v6clqMsaBw7bGmfj5oDAw5ENtMkDGS
1vz4MR/iJzzVB/1N8fjbsjcrY/mwUd30jsLJ37BCfmW2+rdPsG8670o5YYEi
n3On+n/9BAdfDq6547oaC+6MPagm+uGMn+Kymf1WyItekFtZ2QfBbcdDLEPX
oZ9d6xUtah+0KGl7RPhuwFZOrYrahV6wXJR4fjjWBqULQn25Wr2wZ2Lzbzv2
b0J2j5OG420elJW00iTZtjiSUvjHnC0P6s7a9HayEFW198d97fsIsU82u1/Z
bodrmMO8ntMfofl1+bcMf3scJdz0aiw/QhjTujGMcMCKeuMv3p97oPiW5YOI
cEeM3mnwpfRSD+RONCZFHXZCsRH5upXVA5+r4uJDo7dgksWPUtTogRdb8i4m
JzOR/ova07kP3SDnxhOdS3RG94iH3opF3UCxq5crPboVTeziy59xuiFdS+La
eXobpl6Q3i1e1Q1RfsHPJSkuOOnZtyJ6hgvCJKu9ULgdJaZrHeNec0Ej/xIv
o8wVH62Lb8m6zIUKNdOjbUU7cCXlzd4bB7nQEq3vtOK2G6q+2Rg5bM+FEnop
bTPbHdPbtj9t0OFCY4KUEtrhjh3RubpPvneBgYvSv0Y+HrhEk+089rYL7v9l
kvmR9MDFbEq4ZmUXZL2ctaAHsLClkmuXltIF+THD4Xv6WKhtyHQoCuyCBE29
Xw19PXH8x47M3XZdUGky73WswBOr+00HEvS7QPG7nHbLLjZqjlzvek/pgpsW
934vGWTjqcTQE3kCEkyCqnbMRHrhuNX60t4WEnq3Pq71GvHCT/LAl6sgofP6
MTOI8caU/YEh19NJ+Fnnscnwmzc26/05NhlJwtyj6AdpB3zw83TV6iNsElws
tjglTPrgQ1LBMNWahLYA87CIGAI/fw+skTMgQT04tOFKHIFotiyvkE7CrtAy
1Y7DBJ78mZ1kIvOP6MW1VgkEHljJTPHQJ4GRLpHOnCLw+x6q+rWlJCTWNmfl
nCfw5ZKN/k46JNgoud998JhAo5NvMgsWk5CmkiE/1EAgJ1bMN5H5/aLnbJ0m
ArU9fKFZnYRQmtXU788JDJn0on9ZRMIFS6q98xsCAxK8wlGNhO/+gg+8PgKj
lp6ijamQgIHay1X5BEZMxSxLlTkzhHUEhATu5pZY68pseOgF7cbfBI6MFqcw
F5LgkXaLEzlK4Hzb2SulyiQUZwofXh0nkNGSQVkv81COzoLObwTaqsCBd/Nl
f4qyatZJCNwWphchVSLhbWkrJWyKQHMrR2mOzFoVs6yiadn+hsyCFTIH3V5f
/m6GwKNe/1g3KZJQczdKMjdHYHBo7Be2zP8HgalUfg==
          "]], 
         LineBox[{{0.004126621138711115, 0.13172701824791797`}, {
          0.020258337265783823`, 0.6469267958128271}}]}, 
        Annotation[#, "Charting`Private`Tag$108740#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVznk41IkfB/BRrto8qYYcs0JSrHWElI7Px1GOyT34kmwR6yrlCksm/ZJS
chWtK22EhBAiRGLlzIyZXDvzHdqU0uUI0fr98X7ez+t53n+8lTwC7b1WUSiU
kJX8v4tGyuTaVMTRNXa0P7dyHBSXarKWdomjKJ1wai0fB2qO1yepP8QxKV/q
XXbBOIjDJlPNppX9LC83NWscPjJPTbqbrcHN35u0XsaPQ6PwNsOnzmtx7InE
94se43B0XQo3NnwdVg/Ha/vLjUO3xK41wkcl0XPkm6r3rTHop2/M6ImSxJJT
iwG+KWPw6vKU6q0sSbzuN5oSmTAG4yL3TDVHJHFIgVHxPHoMvi9tZhJHNmA3
496beY8xUJ+any1x2YjhbvvTKrTGIL6nYdzRiYp6M2aeDi8FkLjuz2DFMCp6
ptzoetopgDTLsFWTN6h4QVbE1qBNALltmorMASp+GjltAPUCqG7MPVLMkMJA
n9q8mnwBvC49379sL40RBtby+lECML5+8Ok9Gxl0G9V3/ltTAEzLqqL+UzL4
j7RFrrG6ABpFtqYuXZPB4XTO+mfbBGAYRfF26JLBBMcYDQ5NALq+9T/9MJfF
Mxs0ykx+EoCKiY6zk7Ecfn7cc0zrLQmic7QpYX0aRvzScexjIQmmFQlcLQYN
dfwigqj5JMSeXHjqGkzDo36DMgfySFge46aWP6Sh1NiVxZxbJMz1pexx0/wZ
xY5xRW9eIWGiWPxi5XYF1BXorrE7SYKX1oKEjoQizi7Xzjfqk3B4+FK+jIIi
5rffeEHbSYLeJan9FC1FJCs+tJzTJEGYpx3Qa6uIBx7Ii9lsJ+FO4u8vTqYp
Iq/yz6ktsiTwPrDjiuWVMLokXDpqiQ8uJWU/tqorY6JQxYm3f/PBSs3rs7SZ
Cvquqv2m68uHhYTQ+lEnFRQaXfZK8+ZD4dTFi3e9VVDy/XrqnCcfhKsKZHfG
qWArECrP3PlQd2DCyOq5CnbTGytDGXxQZfinXDDZhpGdYbeMkA+UmDO6n0AV
76Oym7ssHyrY0aEdu3egB5yfUrjDg8KLJzwEFjtwb7J7Z0g2D3J20W0WXXfg
TNULRk8GD65kyKj9Gr0Da1KoxNXrPPB0qxxJat6Bo32YqBvNA+r4hAlhqYY+
MW2W6i48CPvqsPHNEXXcENB1J30TD/ZuVC8TjtHAupxE7oXkf+D3xZTsfEIb
zbTyFy6UjUJg2xvdMqud+H20Fwq+jcAVV9FtSwF6eMhR2XaT5Qh4tv/hreOz
C8NKq+tma4ehWUzWzt9lN7Znmm/33T0MOhuYN9+GGGLHelmR2sdDcOzrfg3r
gH1I4fj9W2A1BHk5z2lz1w6grcXLtilyECoTDYf77RG3le9V92IOQkjdftvs
w0ZIWXX6Us8vg9D0Iv/L5SPG+LRo5pA65xX4mu1p8CVMsOj4e7p1wivIKtR5
5O9niq3XSDl5eAXJXxvOnz57ELf0Zlxt+MaFf4tDw3yCDuFX0yfvi+u40Hoo
JSM21gxjQiLcxyK5IGQzJLjONMdppnMWYcwFilG10O0ICyyl0T9GSXAhfvOc
Vf8lS5xq9LTu4HDgtKtny9wFOopsXa8sUsAB8rzeCbhxGDmrN6eFBHOAmnpr
6HKeFSZ/Lhv9asKBAkn1iPZMazQx3invJ8uB5qAtB7fft8HyYKbXpg8DkKN4
m7afYYta12s0jJ4PQEPUAsWnzxYl38TT03MHQIku9n2rsx0GzDdlqoUPQFWv
WsIg2w5tqgqa7zIG4GrbsrbiUXtMj11oD9QagNTgt37HRuzx+AEpXa7EAERJ
KaxXdnHA1U4TBe8+sKFITeRFCN8B1w6qKbh1sUF0Wki22Z2B080l80sP2HBP
++G5nDcMTE7yt5JMZIOaR7H10klHTFxOW7wXyIZhi8cVjpOO+G4yXEqawYb+
vyJ/hWAntKsuERc2YMO3Srt9yl+ckG8QnZRFY8OP2qBHcaecsXzU0MBjNRvo
2ocORs04Y6rRno/VEyxoP6rl6x9MYGRyjlFoHws2evrUZ4cSOOMbab52xe4+
eRJ9Zwl8YPnaNbeXBbNBmyr0ogh0p/52p6OHBSrxcwtL/yOQfu6veoVuFjAr
mq4m3SRQ4dRZqc4OFhiK2ZY/ekxgl9J9J41nLIhbd3nVRD2B8i6SnS0tLHi5
oYUh10hgrE2DpcuKfWh68+daCDSoe+0f18yCdB0ZY/NOAiFQV59sYsH0ET5r
aITAsvRhMuMJC/C4rKoEb+V/Zs0a7RUneNuHA0ng7sLafe31LFA+00q7+5rA
dFOl1pk6FtjFFXqdnCIwKMaWcHjMgqwEsib3E4HJjTKD72pZMJEkt7b/C4FV
r6dPxK6YmXm1dNccgUXe/OyHNSzouv2c4jtPYEjMpKXFijcXLNtnLhIovCy0
mqxmgcd9g/zuJQLNnym1ha+4tPz03I8fBA6Vm6dJrvg/HUJ0/Q==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$108740#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.13172701824791797`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.13172701824791797`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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, 100}, {0.13172701824791797`, 0.6469267958128271}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"OptimizedPT\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835616440996705*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"2ddeae7b-f843-463f-8616-c42e5b0de736"],

Cell[BoxData[
 TemplateBox[{"1.0227656721131686`", 
   RowBox[{"!", 
     RowBox[{"(", 
       RowBox[{
         RowBox[{"\[Gamma]", "\[LessEqual]", "0.`"}], "&&", 
         RowBox[{"\[Gamma]", "\[LessEqual]", "0.`"}]}], ")"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835617036975297*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"d058e043-2cd3-4948-ba26-291002e35d49"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF0n1Q03UcB/Afe+QgpV1jx0OYIew0j+huVFDp54diRskNu9gExBMWBIqw
uMmDLV3QTGAbsGVAE4i7kDyKYpWUZhyUilDrOChu6njyCebiUQYisPLu+/vw
x+92r9v3931/Hn7PpuW+nc6iKCrp/+fx7+JbOXXxucrtUn7xd4GRk5D7Rf41
qbgeGudErY/dqdNdjBO3QjexRHxmlg/tcImYy8vjTxzqgLPE4mg9x/fkb9BM
HHsiVfuj7Cq8SaxRK9rChL1gJm4vSrc39Vmhi/i6t09FsLIPLMS2pMPheQX9
0EY8H7/c47//bzhCLNitz+ikB6GQuFJfpFuOs0Ep8ZMD6ZaXk2/AUeKApfFv
hg7YoZV408bsc9q0YagnbnIJ4rsaR6CWONJ+pDfaOApniJcPL3h7V49BCzOf
Jc2eAfMtOEUstH9ZFltxG89ndnR3/1p8B/vVCH6ayXr/LmiJaxXNAb4H70ET
8a2U3z29FOOYH7Zv1LWaPgEGYt7ZmrEGuQNOEw/NSa107H34lHh8IuLEVqkT
jMSzw/4viBL+hQqm3l09vS/JJqGOmVfLsffk8ikwERdY0ijjpmnQM/v08Ywr
NE9j/iTEqEuCZvD/80pNi6FhBvN39ZbapvxmMX8g1MTfa5yFMmL1OxK/Qd85
zAsp6d+cUjuH77dm2Z4/HvAA5xcVPxzRYF5z+UFLlEg4j/fbldrtet08VBO/
kTAVusXHhXmWqMR1l6tcUEMskl21faVdgM+IYYyq6lItYn62OkKqci1iv7Wi
zHXiwoe4D8P1zJ6wmYdQTlxcn/XJi4eW8P46a80Vg/IR+sMc03RQ3jL6fupm
v8S0Ffic+OK3pQbz7RXML19xcIYyVnG/wUf9j+WPrGL+BefuqfVJbpyH5Omb
iTv63Ljff0Ijx14JoWhmPhfuFs9XxlA0009D85+e996laGb+mVsU4aYmimby
O2XJH0Rv8MD3Jfsc54SNHng+u+T1wW2BLDy/pGoef0bOwvOnMjyXPEwsupKp
v+sHtaufRTP7uRSU6nYI2TTT36vrVR+V7WXTzHx+Xj3Jfs7AxvtiEu+4bvy1
Zuv3Ox16AQd9eWPGFZ2Rg3khTruk3cqhmfl+3J7QOOrFxfunnX6aDXu4WM/+
4JsHkvVcuor4ayd3284eLvb76Hx44FY+D+t9LeUJ1ciONavZE3+cPs7D/GtP
CapTOng0sx9RSFRqKMWnmf0U5MgeeBXxMU+o8MnX/sLHetrk3QtuN59mvs//
ABcCpws=
       "]]},
     Annotation[#, "Charting`Private`Tag$170508#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGBwAmIQ/cM7b25AfoHdU7urLy/PfmGfv6DspL/aPPt99m/A
/IM9Pbt91dbZ74XyjdXmfGK33w6XZ2UrYn+ZtR/O96xPbN0adtx+D5S/vTL1
7tKL5+DyN6Oy9YvKL8PlBd170w46XIfLT+it7PnjexNun8CV1E3m0bftd0P5
ounqBtyxd+DqpX69WHsv7i5cvbJCzsrWpPtw9RZ3c087TnoI5//J/s7NPf2R
/X6Y/341+FyZ/RhunsjdJV2e/U/g5mXsP3FiX9NTOH9m8nIp0YTncL5uxMNv
/1Jfwv1z77P/OQfP13D5T/clDcRC38L5E1ZXpYeHv4fbr8bP4Vsx+wNcfltB
w+q++R/h8q6nO2++l/gE519RncweOOkT3L6aEGOJ66Kf4fpVmi9rxM78DJe3
DLhvMn/2Fzj/bkGrXW/PV7h/N1lG8h6d+A0uLxZ2/OaK1u9weftHDBMPlfyA
y88Uy+BVq/gJt69pXma7adYvOH/uuRnH+gp+w/XX5k3+IFv0B67f5EVsi/Wr
P3D514kaEpFJf+13Qvm713f2zX7yFy7f/fcVy720f3D9SqWSVWUPEPxdb9zf
80X9h4ePscydSKeL/+Hy11QtHlmpMDjA41MzWX/yUgYHmHoRh/jQVw8R8gfD
oqsd5RgdYPqrri8SWh3P6HAAZn7Eq5UiCxHyOc1u122lmRxg7u1I4/jFOJkJ
bt5e2cT/r0SY4fyd/9qYtfqY4erPbXZ+1SvIApc/qpB2rGcSiwMsvbZsD134
kIsVbl+M0p246F4E//c2fWltdja4eTXML89MrWODy4upWCaqMrDDzS/PC/vC
VcmO8H8yf1nrHgR/Y/iJ7///s8P1AwDAL1wZ
       "]]},
     Annotation[#, "Charting`Private`Tag$170508#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAIAWIQ/cM7b25AfoHdf9Fv+UqlD+zzF5Sd9FebZ3+Y4zuY
f7CnZ7ev2jr7A1C+sdqcT+z22+33QPmsbEXsL7P2w9WrOfayiLYdhqv3rE9s
3Rp23H4vlN9Qk7xRV+S0/UEof3tl6t2lF8/ZH4Lyb3Hz9ysVXITL34zK1i8q
v2y/D8r/GvDnlGTMVbh5gu69aQcdrsPtE7iSusk8+jZcvbJCzsrWpPtw+aXf
BAMOLXxgfwTKt7ibe9px0kO4f/5kf+fmnv4I7p6Dvxp8rsx+DHePyN0lXZ79
T+DmZ+w/cWJf01O4/gbBHR8zC5/B5WcmL5cSTXgOt/9x7BEOruQX9ruhfN2I
h9/+pb6E23fvs/85B8/XcPUvXprUa/u/gZv36b6kgVjoW7j+g66nTpuFvYP7
Z8LqqvTw8Pdw96jxc/hWzP4A1//O3qWmWfaj/X4of1tBw+q++R/h/os6zvT9
2d6PcPf8k211sr+DkHc93XnzvcQnuP4rqpPZAych+CrNlzViZ36G8y0D7pvM
n/0FHl93C1rtenu+wuU3WUbyHp34De5fsbDjN1e0fofbpyWTstX073e4evtH
DBMPlfyA+y+nxsS/5BuCP1Msg1et4ifcvCkVL16v3PITrr/vVsYp3Y8I+aZ5
me2mWb/g4TP33IxjfQW/4e6tzZv8QbboD1z/60QNicikv3D93X9fsdxL+wd3
r1KpZFXZg39w/bveuL/ni/oPjy9jmTuRThf/w9VfU7V4ZKXC4ADjz19+luN5
CoMDzD8Zmsn6k5ci5A+GRVc7yjE6wPNjxKuVIgsZHWDuv5A7w0HzHqMDzL05
zW7XbaWZ4Pp/lSx/IR/O5ABzT0caxy/GyUxw/UqHttR8u8zkAHP/XtnE/69E
mOH8nf/amLX6mOHuO7fZ+VWvIAvcPK9XIRG8QSxw844qpB3rmYTgq7y5a7z9
HAvc/S3bQxc+5GKF6//wRqJBzocVbl+M0p246F5WuPo1b1htnU8h+L+36Utr
s7M5wMofm1iekgdObHD/1zC/PDO1jg3u3pPCgtNj97PB9YupWCaqMrDD3Vee
F/aFq5IdLi+SzF/Wuocd7r6N4Se+///PDg9PAHm2gf8=
       "]]},
     Annotation[#, "Charting`Private`Tag$170508#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.5142986475700012},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 3}, {0.5142986475700012, 0.9443491408749}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835617037140836*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"2f573583-d185-4a2a-ae59-b26d3cc3549e"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"1575", " ", 
      SuperscriptBox["gp", "4"], " ", 
      InterpretationBox[
       TemplateBox[{"Root", 
         InterpretationBox[
          StyleBox[
           TemplateBox[{"\"74.1\"", 
             DynamicBox[
              FEPrivate`FrontEndResource[
              "FEExpressions", "NumericalApproximationElider"]]}, 
            "RowDefault"], ShowStringCharacters -> False], 
          74.05610331559343251228710869327187538147`15.954589770191003, 
          Editable -> False], 
         TagBox[
          RowBox[{"Root", "[", 
            RowBox[{
              RowBox[{
                RowBox[{
                  RowBox[{"-", "1824768"}], "+", 
                  RowBox[{"13824", " ", "#1"}], "+", 
                  RowBox[{"72", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                  SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
          Short[#, 7]& ], 74.05610331559343}, "NumericalApproximation"], 
       Root[-1824768 + 13824 # + 72 #^2 + #^3& , 1, 0]]}], 
    RowBox[{"8", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{"1", "+", 
              RowBox[{"gp", " ", 
                InterpretationBox[
                 TemplateBox[{"Root", 
                   InterpretationBox[
                    StyleBox[
                    TemplateBox[{"\"16.6\"", 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEExpressions", "NumericalApproximationElider"]]}, 
                    "RowDefault"], ShowStringCharacters -> False], 
                    16.56608810745100868189183529466390609741`15.\
954589770191003, Editable -> False], 
                   TagBox[
                    RowBox[{"Root", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "5544"}], "+", 
                    RowBox[{"756", " ", "#1"}], "-", 
                    RowBox[{"42", " ", 
                    SuperscriptBox["#1", "2"]}], "+", 
                    SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], 
                    Short[#, 7]& ], 16.56608810745101}, 
                  "NumericalApproximation"], 
                 Root[-5544 + 756 # - 42 #^2 + #^3& , 1, 0]]}]}]]}], ")"}], 
       RowBox[{"17", "/", "2"}]]}]], 
   RowBox[{"gp", ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835617052742429*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"7f6fe7e9-7349-4b26-b06d-60df98777aae"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Hk81PkfB3BHtGEtkSLH8JXRhGiT46d5f6x0SMiR30MbO67J2fFL2Qwi
Rxo0V46ElGNVrsgylWsod65iw7KGZCgG446d3x+vx+vx/Ov130vT85Kjj5iI
iMhtYf7fmRGekkbeVKJ7dyBBh1ls3tiLs3XF+UGYNi2RE4oRt97W3MbhfoeA
rQITURaJKMuoLJUaiAa29hUvAT6GmFmXpCGBSwAfOxEGe+EhUW/WO3mLfA+a
3Q8xglRLicOyWZsb/QxYG+9eCafWELXzdxxZW78PpO+DajJzLcTAoyFByxrp
sKzcbLzi3Ecs7xvNXbR6CJxTrhmvt4aJawG2Q3xyNjS29Cy9UZkgPhIdSli2
zgH8jsNHrO/PEI910Pct9T8Gd/5sY2nDPPFL2on6Rb9cWCKbxMZsLhMTvb//
urCeB1X/VC9bS2wSDQ3LV/hJBfCq/zTbPFgMetcvsuY0CmGgLZAkfUwSrr9T
N5wtewoPh239gmKlQIXZ1/bV6jlkyBKTsZ9/ghr3u+SZD0VQ80afWqmzEzwJ
SHyaXAJrFPtT0jxFEFu/+X6RUgoOlAXqMe5u6Bt1UVu0LoM4/TPfp+X3Quhz
6er5/hdwXq5riyKpCTaMz5Lzj8rhT3zLX1+mtUA1tN6Z71cBjAda1CieNtRZ
3ZibXX8JSh5spqnRftg+OIb/qlENskn/YZf7G8FA3ZuQmS/VsMdcIMFiH4Kn
+Wmc6TI26OqPRnUoHga7q3YePKvXkGdbH6UyeQRSdrBTJsm1EMDH4gbWLGDn
w2Yxfn8DSPlMFny2t4Z12crCyxYcyHoioxdndhzGo544zD3iwLm6YI62zgmo
JEdkzfo1wrvbFubT20+B28+Hzb+tN4F1q55DBs8Wclqzr0xrtADHZ7z1ItUR
FtNeEkYSW0CXmWJzW80JjpPbuD2rLcCr320UWeoEM+LLLuzeVvi0V6VnZsAZ
TI/amSfEt8PVAHrqpUOu0FWyIYaffQ8XXNJNy7bOQ2Srno2RRy88842+QJ70
hOKShMFAg0/A3ONxlJAdCGToTp+5ygVVDdLbAOp1EHm8xB6kcmFzJLVZofA6
pG1THWrN5UK2fZxLwdvr0Nziq174kQsnf8o5QBe9AbrOG499zMdhPJaZefn6
DfhyEf/8b9EJCLKc2uP7ayj4M8JrumifYUdtJPOq8k0IntjPrSiegkjFgvha
t3AYdf/rh/qWKZhDdwrZIeHgNHDHoGN8ClimDlY5tHAwbZv8fUKFB5fKZfFG
b8NBvCxPTimeBw7Go08vGEZAGkWTeMNjGlg/3o1YFYmEegXldDO5r2Bppm08
fOoWSGnG4EdM56AcLf6ZUR8FzRb0gxHWc0Dvzd+UbY+CuP9mmag5zsHzk9iR
sI9RIEarOnE+YA4s/bXpxOkoWNucIfdnzoGEcXXhFcVomB5y+eO9GB90X9h8
TvaJhvY0/P66dj6MHHIN7BK7DclybYSc3xbAINdZooIQA56DzrXi7UuwbPB8
nkqKgytNMZ6X8GtwPD20YrvFHSi7LOO059R32PQq0Ch4lQA5YQE8Q1cRVLUL
f1oLT4Xo7I2zizOiqGq4SeP+2UQQ6R1Fr2+Ko9mKb5FS55JA55pvqDNBAk3Y
H/1GcEyGcUHqOek3kkjd8uyZVe17YDPhH8648gMaW1sSZM7fA7tx2gF1dSnU
OTjcB8404HE8bzUXSSOxB+YaNjk0MJD/qGbl8SNKd4rk+n+lgRQISEMLsqjh
RCbP3oAOJ766LWu5yCEsJkyhLJgOAw3eom568qi33L47+Q86vLzT6I4TyCPJ
FcddJz/RwVciZLSzcyfynOOWSMowwOtq2EuZBwrIM7rrAP8IAw6SD3TakhRR
6N+ZNAl3BrzfqScdYrYLObemPvOIZcCr4ugMPXEllGBjlhxRwIAwUYJD+7AS
qjNpVRxvYYDU0M2TwRW7UUMKJ9p6igET+ZqsbMoeRO1eoqZsYwJLV3lbtYsy
8p8IirDEMYH2wPcdCaeCvlcVqXqbMsGNdaFTZlIFdTjfVUuxY8LKsbzV7Jq9
qPUaQQ7vwwTuxC+hDfGqqPwfhYmxUCY8Pmq0t4OkhlS361TxE5lQFBsiT9ZX
R5fJlSg6iwnxLl6nxQXqKEJf172ymAnGQzmF8R0aiDRmu8+8lglp+zOKOk7j
kAWF0/SygwmRdUlpp6txKNOE5hwyxIQze13yWrU1UaSb+YYUjwmWwe/Oyydo
osrcC/eXBUzIVvXUbhdoIjHl+G5NMRZocwpS7M5roTJrmbwuGRbQ9BsIPTVa
qLbtf/QyJRb4LmzrbiFgSGFX1bdmHAs8y+ZxCfcwlN9EKczbz4LAaKcNGzqG
xksW5dqFDnGq6JdhYugp+7fgeaHvCEKSaSkYekPSkAYCC4rNVtdTMzHEU4po
7xd6tX7rY/4zDN2KWr68XU+43yOT1PgOQ3DXy9HDgAUPngRdjGvBEDUGwmOE
fnKt0+pkG4a6Uz2yCoWuVKKttXViqK43hLMg9JCbwsXeDxiibBLT4w+yAM9V
thrjYuhDnHdIkSELDCtuqudOYEjfKF+iR2jz2MFVn0kMKTY5Ji4JbYvPLJ3i
YUjGaokCRizhL+LU+XwMmTwqnO4SmmIRtfpiAUONubEHBULH/jjWd02AIacX
I37Kh1iQVvKEurKCIVX/3Q0koR/f2kZmr2HIuHd1JFboZ2d9fqFsYEiX47VY
KHSF1ls14iaGolNdtzqErlnQWd3awtC+on6ReaH/BcNL580=
       "]]},
     Annotation[#, "Charting`Private`Tag$173873#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0., 0.019725590993329285`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.8356170527755537`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"dbbc0272-8994-4cca-9e41-f5ee295fae8a"],

Cell[BoxData["0.06785026853387625`"], "Output",
 CellChangeTimes->{{3.835411748023703*^9, 3.835411757903928*^9}, {
   3.835412120252509*^9, 3.835412145960443*^9}, 3.835412814961645*^9, 
   3.835412986965489*^9, 3.835415034658338*^9, 3.8354151789556*^9, {
   3.835415241608405*^9, 3.835415293869595*^9}, 3.835415336251286*^9, 
   3.8354154002129593`*^9, 3.8354156990150967`*^9, 3.8354176761092653`*^9, 
   3.835417758360672*^9, 3.8355720043168507`*^9, {3.8356163312390757`*^9, 
   3.83561635331536*^9}, 3.835617052909062*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"b47041d1-fdad-4154-b0d0-5e1515f63bb9"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Order dependent mapping", "Section",
 CellChangeTimes->{{3.8353260772081213`*^9, 
  3.835326082855672*^9}},ExpressionUUID->"0ce2fe26-987c-45d3-b2d2-\
8b3c4b5324e4"],

Cell[CellGroupData[{

Cell["Zinn-Justin notation", "Subsection",
 CellChangeTimes->{{3.835413574543791*^9, 
  3.835413578390725*^9}},ExpressionUUID->"6bc22a2a-2919-40cb-81e2-\
403a47b460af"],

Cell["We now consider the order dependent mapping:", "Text",
 CellChangeTimes->{{3.8353337576479187`*^9, 
  3.8353337763127213`*^9}},ExpressionUUID->"244cbc5b-090f-4ba9-afd6-\
01387d151e54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", " ", "=", " ", 
   RowBox[{"\[Rho]", 
    FractionBox["\[Lambda]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Lambda]"}], ")"}], "2"]]}]}], 
  ","}]], "DisplayFormula",
 CellChangeTimes->{{3.835333715614738*^9, 3.835333741710905*^9}, 
   3.8353337800157423`*^9, {3.8353344927719507`*^9, 3.835334502388291*^9}, {
   3.8353346265279922`*^9, 
   3.835334627526938*^9}},ExpressionUUID->"7ec96ad4-eb8c-4322-8cf5-\
8303b6b3eb50"],

Cell["\<\
where \[Rho] is an adjustable parameter.
Then, from the original integral\
\>", "Text",
 CellChangeTimes->{{3.835334515044725*^9, 3.835334574805313*^9}, {
  3.835334629174704*^9, 
  3.835334645839197*^9}},ExpressionUUID->"8f8933dd-f78f-437d-ba9d-\
b51b17f3a47b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "-", " ", 
      RowBox[{"g", " ", 
       RowBox[{
        RowBox[{"z", "^", "4"}], "/", "24"}]}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.835327330305945*^9, 3.835327331737294*^9}, {
  3.835328952663971*^9, 3.83532895451822*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"e10e27cc-655b-49b7-8ad2-2dcc6d6206fc"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
         FractionBox["3", "4"], "/", "g"}]], " ", 
      SqrtBox[
       FractionBox["3", 
        RowBox[{"2", " ", "\[Pi]"}]]], " ", 
      RowBox[{"BesselK", "[", 
        RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox["3", 
           RowBox[{"4", " ", "g"}]]}], "]"}]}], 
    SqrtBox["g"]], 
   RowBox[{
     RowBox[{"Re", "[", "g", "]"}], ">", "0"}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{3.8353273361562853`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"bb9af619-7478-4734-b2c0-17f80d0531b4"]
}, Open  ]],

Cell["we have", "Text",
 CellChangeTimes->{{3.835334555245599*^9, 
  3.835334617206468*^9}},ExpressionUUID->"6869c91a-938e-47fc-ae8d-\
4bf0bcd8d129"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}]}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "+", " ", 
      RowBox[{"\[Lambda]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"z", "^", "2"}], "/", "2"}], " ", "-", " ", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{
           RowBox[{"z", "^", "4"}], "/", "24"}]}]}], ")"}]}]}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8353335824437532`*^9, 3.835333617868042*^9}, {
  3.8353336548061953`*^9, 3.835333660925166*^9}},
 CellLabel->
  "In[839]:=",ExpressionUUID->"bee9d7d9-48cf-4ce2-9b62-3101200e9551"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"(", 
             RowBox[{
               RowBox[{"-", "1"}], "+", "\[Lambda]"}], ")"}], "2"]}], 
        RowBox[{"4", " ", "\[Lambda]", " ", "\[Rho]"}]]], " ", 
      SqrtBox[
       RowBox[{"3", "-", 
         RowBox[{"3", " ", "\[Lambda]"}]}]], " ", 
      SqrtBox[
       RowBox[{"1", "-", "\[Lambda]"}]], " ", 
      RowBox[{"BesselK", "[", 
        RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox[
           RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Lambda]"}], ")"}], "2"]}], 
           RowBox[{"4", " ", "\[Lambda]", " ", "\[Rho]"}]]}], "]"}]}], 
    RowBox[{
      SqrtBox[
       RowBox[{"2", " ", "\[Pi]"}]], " ", 
      SqrtBox[
       RowBox[{"\[Lambda]", " ", "\[Rho]"}]]}]], 
   RowBox[{
     RowBox[{
       RowBox[{"Re", "[", "\[Lambda]", "]"}], "<", "1"}], "&&", 
     RowBox[{
       RowBox[{"Re", "[", 
         RowBox[{"\[Lambda]", " ", "\[Rho]"}], "]"}], ">", "0"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{3.8353336468817167`*^9, 3.83533368610861*^9},
 CellLabel->
  "Out[839]=",ExpressionUUID->"9af54adc-10e8-4e9e-bc07-894b7f189c83"]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["n-", "InlineFormula"],
 "th approximant with ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Rho]", "=", 
    SubscriptBox["\[Rho]", "n"]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ff02927c-aa6c-466f-8fed-9781df85583a"],
 " is given by"
}], "Text",
 CellChangeTimes->{{3.83533471036158*^9, 3.835334732601672*^9}, {
  3.835334844876871*^9, 3.835334857181137*^9}, {3.835334994209694*^9, 
  3.835335040313876*^9}, {3.835335120013473*^9, 
  3.835335159294392*^9}},ExpressionUUID->"a17d9731-c698-4301-843b-\
81bb099d0829"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["a", "k"], 
    RowBox[{"(", 
     SubscriptBox["\[Rho]", "n"], ")"}], 
    SuperscriptBox["\[Lambda]", "k"]}]}], ",", " ", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "n"], 
    RowBox[{"(", 
     SubscriptBox["\[Rho]", "n"], ")"}]}], "=", "0."}]}]], "DisplayFormula",
 CellChangeTimes->{{3.835334750691105*^9, 3.835334764906672*^9}, {
   3.835334805516947*^9, 3.835334833252499*^9}, 
   3.83533500728118*^9},ExpressionUUID->"42d9830e-7359-4367-b46e-\
0abd0202ff54"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["3", "4"], "/", "g"}]], " ", 
       SqrtBox[
        FractionBox["3", 
         RowBox[{"2", " ", "\[Pi]"}]]], " ", 
       RowBox[{"BesselK", "[", 
        RowBox[{
         FractionBox["1", "4"], ",", 
         FractionBox["3", 
          RowBox[{"4", " ", "g"}]]}], "]"}]}], 
      SqrtBox["g"]]}], ",", " ", 
    RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[797]:=",ExpressionUUID->"d5736efa-2092-40ff-b279-48737cc51ee5"],

Cell[BoxData["1.6007147824526118`"], "Output",
 CellChangeTimes->{3.835333191800088*^9},
 CellLabel->
  "Out[797]=",ExpressionUUID->"2b13fe42-f3fe-4ad0-b179-3cef2dc6afcb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SqrtBox[
    RowBox[{"2", "\[Pi]"}]]], 
  RowBox[{"Integrate", "[", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"s", "^", "2"}]}], "/", "2"}]], ",", 
    RowBox[{"{", 
     RowBox[{"s", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellLabel->
  "In[121]:=",ExpressionUUID->"afe6e617-1ddd-4c9e-8ce8-d4d351a588dd"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.8353278541788263`*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"00f0d119-5fa2-4e12-831f-b9c49a065af2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"odmcoef", "[", 
   RowBox[{"k_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"k", "\[Equal]", "0"}], ",", "1", ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{"2", "\[Pi]"}]], 
       RowBox[{"Factorial", "[", "k", "]"}]}]], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"s", "^", "2"}]}], "/", "2"}], "]"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"s", "^", "2"}], "/", "2"}], "-", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{
             RowBox[{"s", "^", "4"}], "/", "24"}]}]}], ")"}], "^", "k"}]}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{"s", ",", 
         RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.835328250213125*^9, 3.835328371638577*^9}, {
  3.835328414233096*^9, 3.835328446000989*^9}, {3.8353313565516*^9, 
  3.835331373189826*^9}, {3.8353324966869373`*^9, 3.835332510238326*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"19ddd2ec-4117-4c92-b726-c67faaed6dea"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"symbolicQ", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odmcoef", "[", 
   RowBox[{"kval", ",", "\[Rho]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Flatten", "[", 
  RowBox[{"If", "[", 
   RowBox[{"symbolicQ", ",", " ", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", " ", "\[Rho]", ",", " ", 
       "Reals"}], "]"}], "]"}], ",", " ", 
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{"%", "\[Equal]", "0"}], ",", " ", "\[Rho]", ",", " ", "Reals"}],
      "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]sol", "=", 
   RowBox[{"\[Rho]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"\[Rho]sol", " ", "kval"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"1", "/", "\[Rho]sol"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odm", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"odmcoef", "[", 
       RowBox[{"k", ",", " ", "\[Rho]sol"}], "]"}], 
      RowBox[{"\[Lambda]", "^", "k"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "kval"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"odmcoef", "[", 
      RowBox[{"kval", ",", " ", "\[Rho]sol"}], "]"}], ",", 
     RowBox[{"odmcoef", "[", 
      RowBox[{
       RowBox[{"kval", "+", "1"}], ",", " ", "\[Rho]sol"}], "]"}]}], "}"}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "2"}], ")"}]}], "odm"}], " ", "/.", " ", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        RowBox[{"g", "/", "\[Rho]sol"}]}], "-", 
       SqrtBox[
        RowBox[{"1", "+", 
         RowBox[{"4", " ", 
          RowBox[{"g", "/", "\[Rho]sol"}]}]}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"g", "/", "\[Rho]sol"}]}]]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          FractionBox["3", "4"], "/", "g"}]], " ", 
        SqrtBox[
         FractionBox["3", 
          RowBox[{"2", " ", "\[Pi]"}]]], " ", 
        RowBox[{"BesselK", "[", 
         RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox["3", 
           RowBox[{"4", " ", "g"}]]}], "]"}]}], 
       SqrtBox["g"]], ",", "%"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<I(g)\>\"", ",", " ", "\"\<ODM\>\""}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"g", "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.6007147824526118`", " ", "-", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]sol", " ", "\[Lambda]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}]}], " ", "odm"}]}], " ", "/.", " ", 
  RowBox[{"\[Lambda]", "\[Rule]", "1"}]}]}], "Input",
 CellChangeTimes->{{3.835326386387027*^9, 3.83532648130676*^9}, {
   3.8353265300210037`*^9, 3.835326594501725*^9}, {3.83532663572079*^9, 
   3.8353266385597982`*^9}, {3.835326831500492*^9, 3.835326847604644*^9}, 
   3.835327136580464*^9, {3.835327221113881*^9, 3.835327231301036*^9}, {
   3.8353273680841293`*^9, 3.83532736948276*^9}, {3.835327681165504*^9, 
   3.835327693556375*^9}, 3.835327725949841*^9, {3.835327938243685*^9, 
   3.835327962307303*^9}, {3.835328096689172*^9, 3.83532809682338*^9}, 
   3.835328353375555*^9, {3.835328447841346*^9, 3.835328448400919*^9}, {
   3.835328500682102*^9, 3.835328509530534*^9}, {3.83532884096472*^9, 
   3.835328918149518*^9}, {3.835328963592558*^9, 3.8353289917755737`*^9}, {
   3.835329027418378*^9, 3.8353290334804163`*^9}, {3.835329193102717*^9, 
   3.835329193236863*^9}, {3.8353292434319983`*^9, 3.8353292620944777`*^9}, {
   3.835329335441918*^9, 3.83532934530632*^9}, {3.8353294892388783`*^9, 
   3.83532952786222*^9}, {3.835329568360857*^9, 3.835329594943915*^9}, {
   3.835329632649522*^9, 3.835329685489334*^9}, {3.83532972492283*^9, 
   3.835329785524744*^9}, {3.835329973170782*^9, 3.835329973401672*^9}, {
   3.835330004259028*^9, 3.8353300056179523`*^9}, {3.835330165032053*^9, 
   3.835330176631794*^9}, {3.8353302236254807`*^9, 3.835330253152594*^9}, {
   3.8353306323244*^9, 3.835330654875862*^9}, {3.835330833465311*^9, 
   3.835330845361067*^9}, {3.8353309047481203`*^9, 3.835330911298482*^9}, {
   3.8353310041100893`*^9, 3.8353311539365063`*^9}, {3.835331418928958*^9, 
   3.835331655233658*^9}, {3.835331718442646*^9, 3.835331724658174*^9}, 
   3.835332282225419*^9, {3.835332312980068*^9, 3.835332313801395*^9}, {
   3.835332524353595*^9, 3.8353326538583612`*^9}, {3.8353327181023808`*^9, 
   3.8353327641575613`*^9}, {3.835332847545038*^9, 3.8353328859363213`*^9}, {
   3.835332936659472*^9, 3.8353329367296658`*^9}, 3.835332977483838*^9, {
   3.835333038285515*^9, 3.835333136072008*^9}, {3.83533318832308*^9, 
   3.835333238284485*^9}, {3.8353352587871227`*^9, 3.835335272786442*^9}, 
   3.835338653086399*^9, {3.835338684573986*^9, 3.835338709157711*^9}, {
   3.835338755792325*^9, 3.8353388110406303`*^9}, {3.8353390894172783`*^9, 
   3.835339122618445*^9}, {3.835339244469966*^9, 3.835339261452549*^9}, {
   3.835339338222723*^9, 3.835339377080269*^9}, {3.835347073801064*^9, 
   3.8353470919610863`*^9}, {3.835349255625226*^9, 3.835349278114469*^9}, 
   3.835349385967149*^9, {3.8353495484677877`*^9, 3.835349548857676*^9}, {
   3.835349782346014*^9, 3.835349782543535*^9}, 3.835349882012793*^9, {
   3.835349916643342*^9, 3.835349921906515*^9}, 3.835349952846483*^9, 
   3.835349995559103*^9, {3.835350035143758*^9, 3.8353501185543222`*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"b110eeb9-dbef-4676-a83d-9df9cf432a0c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Rho]", "\[Rule]", "0.883605817970189`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}},
 CellLabel->
  "Out[105]=",ExpressionUUID->"d7976dea-0dcc-4d61-a30d-dc52ecd756a9"],

Cell[BoxData["4.418029089850945`"], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.8353501195723467`*^9}},
 CellLabel->
  "Out[107]=",ExpressionUUID->"0e9c147b-7514-4a55-86aa-aa9905b90ce9"],

Cell[BoxData["1.1317263644745919`"], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119577322*^9}},
 CellLabel->
  "Out[108]=",ExpressionUUID->"a8f299e3-2e08-4e82-92c7-0756baa9c5d4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9.448851310893567`*^-17", ",", "0.0203701185052077`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350121250545*^9}},
 CellLabel->
  "Out[110]=",ExpressionUUID->"f7f8620f-d325-4e1f-95c8-31da423fd8ac"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox["g", "5"]], "1.6450734121178603`", " ", 
  SqrtBox[
   FractionBox[
    RowBox[{
     RowBox[{"-", "0.4418029089850945`"}], "+", 
     RowBox[{"0.4418029089850945`", " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"4.526905457898367`", " ", "g"}]}]]}]}], "g"]], " ", 
  RowBox[{"(", 
   RowBox[{"1.5468798052347934`*^-17", "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["g", "5"]}], "-", 
    RowBox[{"1.5468798052347934`*^-17", " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       RowBox[{"4.526905457898367`", " ", "g"}]}]]}], "+", 
    RowBox[{
     SuperscriptBox["g", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"0.5360864284828037`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.2708499466722333`", " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"4.526905457898367`", " ", "g"}]}]]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["g", "3"], " ", 
     RowBox[{"(", 
      RowBox[{"0.23660868589898243`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.15344154942350177`", " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"4.526905457898367`", " ", "g"}]}]]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["g", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"0.0508571454954337`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.04144803704969636`", " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"4.526905457898367`", " ", "g"}]}]]}]}], ")"}]}], "+", 
    RowBox[{"g", " ", 
     RowBox[{"(", 
      RowBox[{"0.00415697148228303`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.004156971482282994`", " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"4.526905457898367`", " ", "g"}]}]]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350121307452*^9}},
 CellLabel->
  "Out[111]=",ExpressionUUID->"f34e055d-4331-487d-8046-e18ab4d980d6"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV1Ps/1IkfxfFRboVckig7O2Ukahty2WXT++1ayb2JD0o1UiNdRNKWNpRb
5F6rSCkUlWlJxBexoXTThK2YmzLmgqSYFM36/nAer8fzHzjLGId8Q+eQSKSY
2f2/J2tvnFj+PxnojvNApXAYGnKMutPVvkK4WbD+rbxhCGY827069StE0Pbf
NE0dhhIFclL4mSkg1dEOpUcOgwW2PBYf/w75hQ8usV2Hwa1RxVO4Vw7Gt5WL
Or5IwULOmNAbk0PHypEUM4kU0ik7XhitI6FfQpxxBU8KRxj10fRHJFyK1B/T
nVJwFkY8qulWQJpGr7bgmhQGRji7jk3MRTodtpj7S6E3I60my1YR96pWq5A9
pdBJs51XflIRT91JSqe4SKHqcN7dt0pKSHSxkhmWUoifcJPb6SnjAlaGf5eW
FCgztYUzNqqonChKVHspAd2i0LFFJ1TRYb7AmtwhAVVY6LymWRW7Nrk0YbME
PsYdlAZvmIc/7PlB91gSaFI0tnvoPx+n5+dbe2VLYLt6zr8Jx9SxPaZN38hf
As81bOYpbtdCu8AB7+9SMbA36+S/iNVCL6betJZQDG9SR1dcLNTCENWKEzS+
GD4o3XBe06+FOvK5WUndYpieWRxHBGljrdlCr0uNYjAbnZq8HaCDa0oSM52y
xZDyovHDVj9dtB2vDlRbL4YM9UtRlKO6qOmRnaNlK4Y8t6NzpOd1cQmrVMfQ
SgxX2tdQ4np0Mc0k8o6LmRjuN10JqqAvwq7GBTcFemIYrIxn//DVw8xry6zN
P4nAMdPl4Q0vfXQY3FnwvFwEcW73ytkH9XGXqoLBX6UiaFIyyp05p499F6MM
Q4tFYBdL2rPlmT4esFfPXHBRBJZhDWryjQb4mUNediFFBFQnC38/xyX4U4HE
OYIpAmWZ4aiitSFycsuX6q8SQSjtm4aFBgVXbQs5Xls/BO59yaX6ZAqSybtt
f64dAqvkRfYkGgUXV+/0PFs9BIo88/0vvSlIPDnM2Hd7CK5l7O08kEfBFbb7
Mn2KhoA30p1UsXQZVnZTdWoThiDgNktuZLYc7/uRHOs9hsDDNPST3gYq+jQr
x5dIhfAtLbqB40dFR1pP47BICDdHExNL9lCRUx0ksREKQfFemcHaJCoyJuQq
r/hCqF8vcvBoo+L1yrfqhr1CWEEPzzntZIzUM+Eqai1CIJ06bDkGK7D+EWPh
unwhVHWfjH7y20pU2dFjHrVZCL/rmLEUT63GwpiWNym1g7D3e87lUsIc3TNM
2p/ZDsKh9iFLlsdarBIk01XYH+BsoLLxzH4rbNOayt504AOEdJzYY8G0wSel
EzQf/Q/QomLgEx7wG45MFNWRn70HC+24C+Ijdhg8ermbFvcedn62X+25fx26
P5zo/Wf9eyguajOUnVuP5F8I5uT0AFRn2PWxfRFfr2ZQ+A8H4Ei9vfdldwds
1mTn7EofgObO0vHUIEfMt4zazvMbgLANto1hhBNO0TvcXpgMQOFNi5rwfc64
9HvA/csyAWR/boyPiHFBRdfTXzmdAhBWRB9lRrqicX8Az+K6AB655uQnJGzA
t/2exfbHBaDg9W4gM24jvg17/rltqwBIDvcVrv6xCb3K3nWkWQogZbHMg53s
hufvj/GnNQUQERjSKju9GV/cbm5aNcYHQbzVbjjvjgIG+6rWSz7o5l58l1rs
ga9G3cL6WHwo0zL7o6PAEwv3hvSxc/nQEvmzi8ktL0x1fGpz5igfiihXDe3p
3riOTmKRt/GhMfYbidnljaY9Z7P0nPiwbLPKtJG/D24RcXq7VvLh3kvTtLfd
Ptj63lWop82H9PYf5pTtvvhToYt24BgPcqPE+3b2+2Ko0pVzDv/wIHYRWXN5
wBa8Jhu39M7nQbmpUucR/hasyOBSdcN5oPxFwaAlmI6J75fqajry4Ib5338W
DdHx/ClkvtHjgSmjwnPmwFZMrJsaLBjhQt+mB1VbpVsxemTtPJPHXGBfP/4L
RPmhe/px4sJVLnyt9lm3fNwP0zx57RdiuSCvi6xJOuiP8PFcpVEgFzabu7rE
TvijP9tcUm7NhY7ttLDwKAKV3CaLDulyQSeE2XA5mkCbSzun+hdyIZhZrNEV
Q6BmAIvhNuvJyIVVVrEEPp3zcZexDheoKbJvM2cIbPAu1+nX5EJcVXN61gUC
aSVFdu5qXLBT8b5b84DALn5A9q9zuJCknjpH1EDgnrrp1jIFLrzSbqUvaSJQ
Hr56rt6smYZWU3+2EuhUZsL6IufAXxb6jhufEsjc5FhTNcOBL0H81+/6CVxf
/3eMxRQHcJfBCg0egYnWgqzirxxI2+N7DAQE9vRH1mnPevnhR4YlgwQWGFat
HZ/kgE/SzdADowTKTvu9rv7CgcI0Qe2VMQLvnPTYQZ21KGvJfPY4gROZ2VN5
nzkQV5BeaSMj8GP8JHF0nAPPrraRwqYItDfWIQ994sDish++Bd8J3MiM+OQ/
a8atX0ufzxCz/7Dg9eMxDlTejZDJ5QRmbZO02s76P31ujH0=
          "]], 
         LineBox[{{0.007490219855731925, 0.24323921189042869`}, {
          0.027525480200538383`, 0.8940464255861706}}]}, 
        Annotation[#, "Charting`Private`Tag$813523#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVx3k81AkfwPFhXYUnZ2E9GkzI08ZIFqnvl9znJPKbrJIihRKplEoINRoe
Ku2GUujcDqFDFIt2lWJWOpgTcxhhlQYZ8/T88Xl9Xm/zmL2hscokEung9/5/
T0vnM8saZGAwyQX1slFoLLbsLdCchgg5e4vx2VHYEvNqx4pT03BofiKnOH8U
qpTMchNyZsDv69zWkX2jQMWWPyWHv8G8aUCcifco+DepBwt3KkDRORcp+CwF
qiJmavGEAsLbHc1BIoUC8tbXlm4kjHs+f/4RRwr7Y56khbWR8KfcCLLiLyl4
CpPb6nuVkIGVFzorpSD4xN52aOoH7CLZTorDpdDHZNQXuaggZj891x0ohU47
lwU3jqpgS5GGdtd6KdTuO3vvg6oq9j35IFN2kMKJKX+F62I1PJyr3UcskgJZ
/rBM7qSBGXZi2Y6uETCoiJ0wPKKB0YlBA/vaR0AD9D1XPtNAjpp7BbNpBMYz
90i3+CzAmNDLzV9/H4FmlWWuzyMWopJYyj5cOAJRWsXvsg5p4WpDvXCL8BHo
0nZaoBKlg7af6TPVEgmwAvQuvM7Qwb6dzoKGQQm8PzVm9WuZDnrcTqjqZktg
SPWa58oBHUzx6Q80Y0lgTr4kk4jUxSIqZe/SRgnYjs18vU3Xwxzf1K1VTAnk
v24aCt9kgMfdpPrWayTA1PotlXzAADNOU81tnCRw1v+AsvScAa6RWxyxo0rg
UsdKcuZbA+yr+6ePZi2BhuZLkTfDDPFWMiV/QF8Cw3dOsOZDF+NLA2ua5pgY
PAq9nl8LMcIb9K/rEmvEkOlfd4O1xwgl2q9tHK6IoVnVskR+xgjrc8zL5srF
4JpBitv4ygj9xDtmKs6JYdWuRk2FrzF6ZY8yjE6KgbKeGrHJwwQfGmrS3+0Q
g5rMdExltSlyfolRCbAWQ6zdrDZVm4ws4wFrRoMIAvvzqo3MyDg5m8QZrxWB
Y57hWpIdGZ/r641F3BWBCtc+8Q2NjPdbrpIcrovgCnNnZ9JZMjKHJcHav4mA
+6k39+aP5igpbayMPCYC+u27CktbCzx5JpHh4CeCoOWx/yz2oeDb9mvvXgqF
MMtIa2RvouBEW2u/7pAQro+dPFkVR0F/76M9dL4QVOpqjB1yKXhkt1PeeL8Q
nqwTuwe1UzCr6TaL2iMEq7CE4uz1y9Atyrd20VMhkI7vWzUBVkgL2f9+aYkQ
anuPpv3lbIOGjrZzxt5CWKNne1fl+Ap82+ym33x/GHZ+Ky6vJuzx9YvOH2tW
DcPeDtGqu0EO2Ntrn3zh5RCc3qy2TJ7oiAvTXb6Uxg3B9hdH4qjxTmj9Pltr
t+4QtKgbb0igO2MSubB3QfsgUHUzz0v2u2LwcqX88UODEP157YrgRDdMoFdP
bP15ECor2k1lZ9YhTTs1IXlKAA+Yrv2sUMQ3KV0Mt8cC2P9kLa080B3NOqoi
q3ME8KyzevJUpAeuKZ5x1gwRwC4fl6ZdxHr0jTE3ES4VQNl1an3Cbk8sYYXM
VI7z4b+fm04kH/TCYivudHcrH4Q30w7Ep3ij3sLzAYsv8qHNu/hCVpYPHji4
+5F+Ch+UQj4KCjN9sRuShguD+EByb1C6nO6HDtm3P/r/hw/5S2RBrDx/LA8M
cbyvzofkzdtbZdkBWCX816c+EQ/4Jxx3wLlAnHrwqK22gwcGJb9+PFUZhNGG
lPS0azyo0bFNf3ExGAsozepxDB60pCz1sr4Vgr8/+MLU2cODCvJl07VhNMwi
bB2rN/KgKWOWFN9Nw7lgtQ+lrjwwD1Cfs4zYgHXu0tFAMg/q3ixnfOjdgFeO
bmYyNXhQ0DFvT44KxWibqXLkcqEkVbI7eiAUhxzrqsm1XMgwNFtkQd+IM06W
FTZ5XLixXLVzP28jMiTbZMN0Lqh9UTJu2RKGd/7dQ+u358I1+/vHKkRh2J9u
ZXtJlQvLY24Gy5PCUaq3ojtqgAP9fo9rw6Xh2N9C4g81cIB19fBPkLoJ05Rq
XGiFHJh+sMHNYnITDoTO0oMSOKB4lFKfuycCmTaPf3nny4EAe2+vjKkI1KBo
9mymcOBFlN2uhFQCEYLB7AcO6G2PbyxPI7DjqUsRQ5kDW+IrtbsPElgdtWhi
WokDX1P0ax0zCOwTJA38TeIAJV82K88hkLHk5s7T82zIrH1WUHSewIDTtV6z
M2xwVafdq39M4Dp5u9bwBBtytU4pixsJPJlSvjrsu3t0W8NMmgkc9FRP+mOc
DfGmjjPHWglsdclTvzLGhlKqkYfvSwIXmXwa2TrKhi+RvL8/DhD4uWM6niNi
A24zttLmEli4ui49+LsZcaGHgE9gqPO7C81CNljsazOtGiZw9TY/5UvDbNiQ
ez02aYzA085nT0QPsqGMwX94aYLArDUeqj0CNoiLTBayJgnk1HqUun935sWC
O04yAvdm2Ast+Gx4dbmdtGuGQNtCo6slPDYsqZkPvfiNwNhS3z0q3x1z6+fq
LjmBy2RNPmlcNty5lyxTKAhcoXvATshhw/8AXKOTpg==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$813523#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.24323921189042869`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.24323921189042869`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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, 100}, {0.24323921189042869`, 0.8940464255861706}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"ODM\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350121396789*^9}},
 CellLabel->
  "Out[112]=",ExpressionUUID->"b3a61357-31f0-4114-9890-dcc6fda23204"],

Cell[BoxData["0.005754308222548854`"], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.8353501214125223`*^9}},
 CellLabel->
  "Out[113]=",ExpressionUUID->"184a77e3-008d-4561-bed0-d30aec3efe22"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Marino notation", "Subsection",
 CellChangeTimes->{{3.835413559687778*^9, 
  3.835413562622582*^9}},ExpressionUUID->"2f1cdabd-3a1e-4cd4-b8af-\
1d45cbff9713"],

Cell["We now consider the order dependent mapping:", "Text",
 CellChangeTimes->{{3.8353337576479187`*^9, 
  3.8353337763127213`*^9}},ExpressionUUID->"05400f04-8a50-4ac9-8414-\
409e85577d6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", " ", "=", " ", 
   RowBox[{"\[Rho]", 
    FractionBox["\[Lambda]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Lambda]"}], ")"}], "2"]]}]}], 
  ","}]], "DisplayFormula",
 CellChangeTimes->{{3.835333715614738*^9, 3.835333741710905*^9}, 
   3.8353337800157423`*^9, {3.8353344927719507`*^9, 3.835334502388291*^9}, {
   3.8353346265279922`*^9, 
   3.835334627526938*^9}},ExpressionUUID->"f3133c3e-20ce-4767-bc96-\
11c6dbe8b31c"],

Cell["\<\
where \[Rho] is an adjustable parameter.
Then, from the original integral I(g), we have\
\>", "Text",
 CellChangeTimes->{{3.835334515044725*^9, 3.835334574805313*^9}, {
  3.835334629174704*^9, 3.835334645839197*^9}, {3.835356737390205*^9, 
  3.835356768237576*^9}, {3.8353569151779137`*^9, 
  3.835356915641734*^9}},ExpressionUUID->"877cee21-1b6d-4428-ab18-\
0b21d4cff8fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}]}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"z", "^", "2"}]}], "/", "2"}], " ", "+", " ", 
      RowBox[{"\[Lambda]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"z", "^", "2"}], "/", "2"}], " ", "-", " ", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{
           RowBox[{"z", "^", "4"}], "/", "4"}]}]}], ")"}]}]}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8353335824437532`*^9, 3.835333617868042*^9}, {
   3.8353336548061953`*^9, 3.835333660925166*^9}, 3.8353567738470573`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"1aecb03a-ab71-4ab5-8a34-78a9541a70f6"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", 
     FractionBox[
      RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
             RowBox[{
               RowBox[{"-", "1"}], "+", "\[Lambda]"}], ")"}], "2"], 
          RowBox[{"8", " ", "\[Lambda]", " ", "\[Rho]"}]]], " ", 
        SqrtBox[
         RowBox[{"1", "-", "\[Lambda]"}]], " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"-", "1"}], "+", "\[Lambda]"}], ")"}], " ", 
        RowBox[{"BesselK", "[", 
          RowBox[{
            FractionBox["1", "4"], ",", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Lambda]"}], ")"}], "2"], 
             RowBox[{"8", " ", "\[Lambda]", " ", "\[Rho]"}]]}], "]"}]}], 
      RowBox[{
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]"}]], " ", 
        SqrtBox[
         RowBox[{"2", "-", 
           RowBox[{"2", " ", "\[Lambda]"}]}]], " ", 
        SqrtBox[
         RowBox[{"\[Lambda]", " ", "\[Rho]"}]]}]]}], 
   RowBox[{
     RowBox[{
       RowBox[{"Re", "[", "\[Lambda]", "]"}], "<", "1"}], "&&", 
     RowBox[{
       RowBox[{"Re", "[", 
         RowBox[{"\[Lambda]", " ", "\[Rho]"}], "]"}], ">", "0"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{3.8353336468817167`*^9, 3.83533368610861*^9, 
  3.835356799372047*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"2884bff5-57e2-40de-bdb6-5ac5d860229b"]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["n-", "InlineFormula"],
 "th approximant with ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Rho]", "=", 
    SubscriptBox["\[Rho]", "n"]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "90c53b75-c776-4cd4-913d-9a4feeb0b0dd"],
 " is given by"
}], "Text",
 CellChangeTimes->{{3.83533471036158*^9, 3.835334732601672*^9}, {
  3.835334844876871*^9, 3.835334857181137*^9}, {3.835334994209694*^9, 
  3.835335040313876*^9}, {3.835335120013473*^9, 
  3.835335159294392*^9}},ExpressionUUID->"5f61c0d3-dcda-46eb-9b5f-\
d8ad00c44d30"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "0"}], "n"], 
   RowBox[{
    SubscriptBox["a", "k"], 
    RowBox[{"(", 
     SubscriptBox["\[Rho]", "n"], ")"}], 
    SuperscriptBox["\[Lambda]", "k"]}]}], ",", " ", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "n"], 
    RowBox[{"(", 
     SubscriptBox["\[Rho]", "n"], ")"}]}], "=", "0."}]}]], "DisplayFormula",
 CellChangeTimes->{{3.835334750691105*^9, 3.835334764906672*^9}, {
   3.835334805516947*^9, 3.835334833252499*^9}, 
   3.83533500728118*^9},ExpressionUUID->"8e544bdb-7ec0-4a3a-9987-\
71d3413cae97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], 
     RowBox[{"quarticI", "[", "g", "]"}]}], ",", " ", 
    RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"1ec51323-4147-4ea6-8f99-311ad7824228"],

Cell[BoxData["1.0227656721131686`"], "Output",
 CellChangeTimes->{3.835356757328226*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"5defd9da-7590-4624-af6f-7ada7e3dff03"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"odmcoef", "[", 
   RowBox[{"k_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"k", "\[Equal]", "0"}], ",", "1", ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{"2", "\[Pi]"}]], 
       RowBox[{"Factorial", "[", "k", "]"}]}]], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"s", "^", "2"}]}], "/", "2"}], "]"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"s", "^", "2"}], "/", "2"}], "-", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{
             RowBox[{"s", "^", "4"}], "/", "4"}]}]}], ")"}], "^", "k"}]}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{"s", ",", 
         RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.835328250213125*^9, 3.835328371638577*^9}, {
   3.835328414233096*^9, 3.835328446000989*^9}, {3.8353313565516*^9, 
   3.835331373189826*^9}, {3.8353324966869373`*^9, 3.835332510238326*^9}, 
   3.8353567825445623`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"be97a948-0474-4c04-aeaa-2701c77ad2e1"],

Cell["\<\
For odd nmax only, we may use
  (N)Solve[%\[Equal]0, \[Rho], Reals].
For large nmax, (N)Solve for \[Rho] \[Element] Complexes cannot find a \
\[OpenCurlyDoubleQuote]good\[CloseCurlyDoubleQuote] solution.
Then, the above assumption, \[Rho] \[Element] Reals, is better.\
\>", "Text",
 CellChangeTimes->{{3.835662496272334*^9, 
  3.8356627500537043`*^9}},ExpressionUUID->"aec7b80e-0522-4e06-aeb6-\
10a60d009b1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"For", " ", "even", " ", "nmax"}], ",", " ", 
    RowBox[{
     RowBox[{"\[Rho]", " ", "\[Element]", " ", "Complexes"}], ";", " ", 
     RowBox[{"Find", " ", "a", " ", "maximum", " ", "value", " ", "of", " ", 
      RowBox[{"Abs", "[", "\[Rho]", "]"}]}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"findmax\[Rho]", "[", "\[Rho]list_", "]"}], ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[Rho]abs", "}"}], ",", 
      RowBox[{
       RowBox[{"\[Rho]abs", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"\[Rho]", "/.", 
            RowBox[{"%", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Length", "[", "\[Rho]list", "]"}]}], "}"}]}], "]"}]}], 
       ";", 
       RowBox[{"\[Rho]list", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"\[Rho]abs", ",", " ", 
            RowBox[{"Max", "[", "\[Rho]abs", "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Solver", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solve\[Rho]", "[", 
     RowBox[{"coef_", ",", "symbolicQ_", ",", "complexQ_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "solve", "}"}], ",", " ", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{"symbolicQ", ",", " ", 
         RowBox[{"solve", "=", 
          RowBox[{"Composition", "[", 
           RowBox[{"FullSimplify", ",", "Solve"}], "]"}]}], ",", " ", 
         RowBox[{"solve", "=", "NSolve"}]}], "]"}], ";", 
       RowBox[{"Flatten", "[", 
        RowBox[{"If", "[", 
         RowBox[{"complexQ", ",", "\[IndentingNewLine]", 
          RowBox[{"solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"%", "\[Equal]", "0"}], "&&", 
             RowBox[{
              RowBox[{"Re", "[", "\[Rho]", "]"}], ">", "0"}], "&&", 
             RowBox[{
              RowBox[{"Im", "[", "\[Rho]", "]"}], "\[GreaterEqual]", "0"}]}], 
            ",", " ", "\[Rho]"}], "]"}], ",", 
          RowBox[{"solve", "[", 
           RowBox[{
            RowBox[{"%", "\[Equal]", "0"}], ",", " ", "\[Rho]", ",", 
            "Reals"}], "]"}]}], "]"}], "]"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.835660917587653*^9, 3.8356610311070213`*^9}, {
   3.835661092180468*^9, 3.8356611495577497`*^9}, {3.835661233273102*^9, 
   3.835661245808755*^9}, {3.8356618118862123`*^9, 3.835661906983592*^9}, {
   3.835662488032505*^9, 3.835662488952241*^9}, {3.835663003669648*^9, 
   3.835663138064806*^9}, {3.835663177330559*^9, 3.83566321997113*^9}, {
   3.835663463826474*^9, 3.835663495954648*^9}, {3.835663541684443*^9, 
   3.835663576675899*^9}, 3.835664246435382*^9, {3.835664282888585*^9, 
   3.835664284841571*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"68729040-91e3-4f21-a53c-831272c00155"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"symbolicQ", "=", "False"}], ";", " ", 
  RowBox[{"complexQ", "=", "True"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odmcoef", "[", 
   RowBox[{"kval", ",", "\[Rho]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"solve\[Rho]", "[", 
  RowBox[{"%", ",", " ", "symbolicQ", ",", "complexQ"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"findmax\[Rho]", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]sol", "=", 
   RowBox[{"\[Rho]", "/.", "%"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"\[Rho]sol", " ", "kval"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"1", "/", "\[Rho]sol"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odm", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"odmcoef", "[", 
       RowBox[{"k", ",", " ", "\[Rho]sol"}], "]"}], 
      RowBox[{"\[Lambda]", "^", "k"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "kval"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"odmcoef", "[", 
      RowBox[{"kval", ",", " ", "\[Rho]sol"}], "]"}], ",", 
     RowBox[{"odmcoef", "[", 
      RowBox[{
       RowBox[{"kval", "+", "1"}], ",", " ", "\[Rho]sol"}], "]"}]}], "}"}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odmg", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}]}], "odm"}], " ", "/.", " ", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", "\[Rule]", 
       FractionBox[
        RowBox[{"1", "+", 
         RowBox[{"2", " ", 
          RowBox[{"g", "/", "\[Rho]sol"}]}], "-", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"4", " ", 
            RowBox[{"g", "/", "\[Rho]sol"}]}]}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"g", "/", "\[Rho]sol"}]}]]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"quarticI", "[", "g", "]"}], ",", 
      RowBox[{"Re", "[", "odmg", "]"}], ",", " ", 
      RowBox[{"Im", "[", "odmg", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"g", ",", "0", ",", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<I(g)\>\"", ",", " ", "\"\<ODM(re)\>\"", ",", " ", 
       "\"\<ODM(im)\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"g", "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]sol", " ", "\[Lambda]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}]}], " ", "odm"}]}], " ", "/.", " ", 
  RowBox[{"\[Lambda]", "\[Rule]", "1"}]}]}], "Input",
 CellChangeTimes->{{3.835326386387027*^9, 3.83532648130676*^9}, {
   3.8353265300210037`*^9, 3.835326594501725*^9}, {3.83532663572079*^9, 
   3.8353266385597982`*^9}, {3.835326831500492*^9, 3.835326847604644*^9}, 
   3.835327136580464*^9, {3.835327221113881*^9, 3.835327231301036*^9}, {
   3.8353273680841293`*^9, 3.83532736948276*^9}, {3.835327681165504*^9, 
   3.835327693556375*^9}, 3.835327725949841*^9, {3.835327938243685*^9, 
   3.835327962307303*^9}, {3.835328096689172*^9, 3.83532809682338*^9}, 
   3.835328353375555*^9, {3.835328447841346*^9, 3.835328448400919*^9}, {
   3.835328500682102*^9, 3.835328509530534*^9}, {3.83532884096472*^9, 
   3.835328918149518*^9}, {3.835328963592558*^9, 3.8353289917755737`*^9}, {
   3.835329027418378*^9, 3.8353290334804163`*^9}, {3.835329193102717*^9, 
   3.835329193236863*^9}, {3.8353292434319983`*^9, 3.8353292620944777`*^9}, {
   3.835329335441918*^9, 3.83532934530632*^9}, {3.8353294892388783`*^9, 
   3.83532952786222*^9}, {3.835329568360857*^9, 3.835329594943915*^9}, {
   3.835329632649522*^9, 3.835329685489334*^9}, {3.83532972492283*^9, 
   3.835329785524744*^9}, {3.835329973170782*^9, 3.835329973401672*^9}, {
   3.835330004259028*^9, 3.8353300056179523`*^9}, {3.835330165032053*^9, 
   3.835330176631794*^9}, {3.8353302236254807`*^9, 3.835330253152594*^9}, {
   3.8353306323244*^9, 3.835330654875862*^9}, {3.835330833465311*^9, 
   3.835330845361067*^9}, {3.8353309047481203`*^9, 3.835330911298482*^9}, {
   3.8353310041100893`*^9, 3.8353311539365063`*^9}, {3.835331418928958*^9, 
   3.835331655233658*^9}, {3.835331718442646*^9, 3.835331724658174*^9}, 
   3.835332282225419*^9, {3.835332312980068*^9, 3.835332313801395*^9}, {
   3.835332524353595*^9, 3.8353326538583612`*^9}, {3.8353327181023808`*^9, 
   3.8353327641575613`*^9}, {3.835332847545038*^9, 3.8353328859363213`*^9}, {
   3.835332936659472*^9, 3.8353329367296658`*^9}, 3.835332977483838*^9, {
   3.835333038285515*^9, 3.835333136072008*^9}, {3.83533318832308*^9, 
   3.835333238284485*^9}, {3.8353352587871227`*^9, 3.835335272786442*^9}, 
   3.835338653086399*^9, {3.835338684573986*^9, 3.835338709157711*^9}, {
   3.835338755792325*^9, 3.8353388110406303`*^9}, {3.8353390894172783`*^9, 
   3.835339122618445*^9}, {3.835339244469966*^9, 3.835339261452549*^9}, {
   3.835339338222723*^9, 3.835339377080269*^9}, {3.835347073801064*^9, 
   3.8353470919610863`*^9}, {3.835349255625226*^9, 3.835349278114469*^9}, 
   3.835349385967149*^9, {3.8353495484677877`*^9, 3.835349548857676*^9}, {
   3.835349782346014*^9, 3.835349782543535*^9}, 3.835349882012793*^9, {
   3.835349916643342*^9, 3.835349921906515*^9}, 3.835349952846483*^9, 
   3.835349995559103*^9, {3.835350035143758*^9, 3.8353501185543222`*^9}, {
   3.8353568044728527`*^9, 3.8353568068960533`*^9}, {3.835356857331367*^9, 
   3.8353568576575317`*^9}, 3.835356934596517*^9, 3.8353569846386557`*^9, 
   3.8353570562244473`*^9, 3.835357120682208*^9, {3.8353572128524017`*^9, 
   3.835357213538475*^9}, {3.835357583534523*^9, 3.8353575843720837`*^9}, {
   3.835358056858485*^9, 3.835358076417136*^9}, {3.835358349806436*^9, 
   3.8353583499078617`*^9}, {3.835359033896681*^9, 3.835359036095477*^9}, {
   3.8356612953549557`*^9, 3.8356613150750303`*^9}, {3.8356615003435163`*^9, 
   3.8356615005976458`*^9}, {3.835661755102232*^9, 3.835661777452641*^9}, {
   3.835661923939435*^9, 3.835661943617403*^9}, {3.83566201793324*^9, 
   3.8356620676450663`*^9}, {3.835662207610166*^9, 3.835662227904785*^9}, {
   3.835662293300664*^9, 3.835662293490715*^9}, {3.835662341997164*^9, 
   3.835662347165798*^9}, {3.835663600435273*^9, 3.835663627695932*^9}, {
   3.835663725610396*^9, 3.8356637828820457`*^9}, {3.835663815011655*^9, 
   3.8356638314032183`*^9}, {3.8356638809334717`*^9, 3.835663883604706*^9}, {
   3.835663931622776*^9, 3.8356639338708057`*^9}, {3.835664020066852*^9, 
   3.835664066273662*^9}, {3.835664116076943*^9, 3.8356641499718943`*^9}, {
   3.8356643173787127`*^9, 3.835664351169787*^9}, {3.835664402660612*^9, 
   3.835664403675392*^9}, {3.835665117064395*^9, 3.83566512842378*^9}, {
   3.8356651604811296`*^9, 3.835665162463334*^9}, {3.835665245203555*^9, 
   3.835665245873803*^9}, {3.835665315125383*^9, 3.8356653256283207`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"1ea603e6-b213-46af-9276-9768372a95fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.0029473784796402733`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.017883305679242362`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.005708202117388625`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.018448821784624078`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.008211631648046057`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.018522355478479982`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.010559070470548583`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.018233895780853004`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.012769342868667441`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.01764014290706775`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.014836481213848118`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.01677842343616614`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{"0.01680299509501813`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.015615157223246079`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.018258657673287094`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.01852265025726546`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.019711416710464006`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.019993048502736515`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.02073183677708268`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.021361640192403143`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.02138760854002418`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.021436550680210595`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.021954665078324092`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.0221063051169441`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.022924380317440787`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.02539380123209527`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.02541014717231816`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.0268104381104385`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.0269537404034603`"}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", "0.027234956846856284`"}]}], "}"}]], "Output",\

 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665328433807*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"d0872922-8603-4923-af21-3410b89ebbfb"],

Cell[BoxData[
 RowBox[{"\[Rho]", "\[Rule]", "0.027234956846856284`"}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665328439983*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"8431c92f-1e98-4857-a888-e2901fb3e544"],

Cell[BoxData["0.8170487054056885`"], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.8356653284449463`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"25c00752-0d29-41eb-acf3-d95147c962aa"],

Cell[BoxData["36.717517329770594`"], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665328449418*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"b8152001-e6ef-46f7-8b5d-b8376c9b1372"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.811969828415775`*^-8", ",", 
   RowBox[{"-", "2.5252957222020875`*^-8"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665348618176*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"153d74ed-bf46-4a10-b8b6-2d6bf4848e54"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt1Xk01A0XB/AhoeJNQrYYTAslREqLe20pldDgR1rImmRvQSF7lqwpSaPS
EzqUHqRCKu2L9EO2xoxhxj6FFDGv95z3nnPPPZ9/vufcc/+4am7+dh7CFAql
cL7/N9Uvzd4qUGkwpvy/qsU1Vf28b0D3EKdMhhiDhjNlt9d6l8O17kh1j4+j
kGXIcZFMq4biyplWgf0ovNIN9BL1rof1052cwuERiJAVPBIwXsCbsxf5/0kb
gcuZFsZ/U1+DR5VrrNKWEXiT0rxr0uszxPmbplgzhoEfK8E9U/IFqo2LwgNc
huHci3LNKcZXUK3Jbf+pPAyX8VfZeGobBKtebJm7OwQakVd/BMa2Q3uO9saq
4CG4X7vdgB/WCX3jZf0qJkPwdmtMzbAXE66eGwsTsAehdPvy85vKe6BJ2iNq
SfUg/Oh0vxFSwgIw3Tw4kjII5xXF2T8ZvYDWCbY3dwzCyxqnBRvzOXD2zRu1
TfKDsNiplBaY2wfUPNtKlYkByM219hpL5cJy1VLRvPIB+G7ISNyQxIOPnl3u
Cy4NAK31R7Ff7AA4EHm6Qf4DcF8mZ3gobAg2LVsara4/AO8yOgN5XmOg7T7M
dX/Jg8Qrl99m6fHhl3eaXFwJD9Z7g7N+OR/Y1l079mbwIEgsIzyo5Adsc9nR
Xn6UB3MWBnV8xjjUlVnrSIjyoFC22zpdZQIMHCVO3eBzwbwvjqmTPwENeY+e
3enkQnJsG8U/dxKoK4qm5iq4IP8izGwkdQrIzZk+xzy58CRTg0xZ8huenn2g
pE7nwmG3D+7rk36D/qiwmqEpF24LqcT7xv4ByYUfT9upckEPG94MhM3AmOa2
GOnufrCqFbPu9xLA9gsJtOfu/aAncJuU4wvgxnuVhBT7fkihHvmksZ2CQvUn
47N29kOI2+NQ+ksKLrs0td9Gsx/M+wNeVpJCOOhf3uz4ow/YI92uZyYXoNZ3
xb9eF/ugNS25Mt1IBDWZaaTV+T54p2O0qPicCErQ/CTtg/qgIjD7fvvChWgp
HNff6dwH0ZNWgq1yoqivz+Dkac/fbbY6f9ZQHLNX5gVtbOeATIEHXzZcHCMb
5XO0PnNAHJabb6gXx4ov+/YaN3JgLOrk0GHLRViRl2Je9YADdSKrtj5zXIxy
tLqm9mQOHJLIbLtwRgKrjyk/jTfnwEdJw0Uih6RQ+0DU+NuXvdC8R/rKpwgp
/FJKG+mu7YVvSaOrr+ZLodMSjyRBVS9wFv5jvqFLCnXMNrOPF/fC39kVUcTB
ZTg8p93RldYLWqN/ft1zksZoxicNMZdeSPxUy7F3kMHtBkwLnzk2pEnkBVNP
ySBhnh/K+s2GbKtTwkM5MlhnVnfNbZwNN15toEa1yOD+XYlHInlsqKq7cbCE
LosXC7RGVL+yoa8sunnOTg59Sv0bucVsML1k8eyf/fL4dUxYfsaFDVFW/xY3
n5THdPUOvwiCDXULNbJmU+VRVzKrdQGdDVsjKJ4HPsij0KehW7Q9bND3ebJE
sEsBq7mSGfeM2EAz03N0MFXEh5caQt+uYIPolPKoyCZlNBG7Ofq9jQXmFclt
OnRlVM798lWcZMEFv+lnzsHKmGNiCpubWDDX25Z1/4EyzoSfji58w4Kppkwj
lw0rUXV8sqikhgW8EvG4h2tU0FLruGdCPgs8dKYl9SSp+Mi5cVbHgwV7OxOK
5FWoaP/C0iPDlQUGCbI7KDpUfBAYzvt1iAUiTN0Tn22o2KuUrvrJgQU307ze
+WVTkafu4HFvFwuYI2R8iZIaKtUKLNW0WeB0r1ygoaWOigUzTY9+98A+TY8f
cpY01B+L0cKrPTCdHPqk24GGdh2Xpwov98Dd0bi42540vPLUjiKa3QMi/95R
2BhPw97+2ioyrQceG/NM9jXS8LTSiENKbA+spvtmxpitQpu91mGuAT1AiQzU
58NqLFTPD0rd3QMV5LnQt1vWov2yqU5bofn8OHc39u61GO6YGjA9y4QCwz37
Z5zX4mTIwCf6HyZcvCKvqX1uLb7md3nJ8JlwzOVhV3rDWszO2RRW180EGQ7P
jLDSRNpQfH1NDRNOjR+Q5h7UwvAPhe/XhTBhm7RWuUjkerwjvC5V+ud38JrJ
vF5E6CLb8VJs99Lv4P+Kq1++byNml49V3iO64aKz6KrZEwbYEbQ4o7i4C469
DvfU8zZEZ5PG6yvku6BBTMHW12kLNnpUSEjldoLesqjLAyFbcXqxt1Prik44
Or5jvfWJ7Uj/ZiFjXtoBhQWNylOpxjgUk/NCYNwBD9O2djbbIUoqnAgd6WqH
kMc7bK7vNUF9y4GObwntUP+u6GfSQVMcJfarlOm1g4+lUa0PYYZ3qtYOOvR/
g/y7epW+x80xyEVtkHH1G2SM10YHnLbAXg3yXaPdN+gvCT3lHbQTo3V/MVDm
G7zcmXnlwgVLpC6Qeir42gZC+zvYl6J2oY1vtYPotTagmFQJMc7uRk2TU0XP
PNogccXUvuYEK4zLnb6fv6ENApyPPZ+K2YOTB7rWBM22AivawB1y9uKU1ibz
0HetIJN1tSOpcB8+MjzVkJLXCnektM6+vmaN6yjv3W/7t0JDkKrFmtL9KPl+
m9+AaSsUUBnKO+g2mPh679Mniq1QGzFN8W6ywaagDKXHEy2gtkfsr4ajLcrJ
0neNfWiBfz9rJreTtricTjkuW9wCKa/mdKmH7LChuNUkPqYFsoIHjh/tskMF
dUuza64t8/9aZam60wHk/7JOPmLSAsWaC9+F9BzAe91anAjVFhCdEFJoOExH
2aFbLV8oLfCP7oPzBVw6xkZ5n8vsIUHTrcR61s8e+QabGZ0NJHTurqmwH7LH
78LAFLpDQvOtMG0IdsCYE66etxJJ+P3Qdrv6TwesV3kzNulHguBRUGX8SUfs
nynZeIZOwh7dnRYRk45YTYqoxxmR8PqQjo9vMIH9E65lQmokSB/zfnI9lEDU
XpWZQyXhsHehZNNpAiN/p0ZrzvtX0PIKgwgCT66zjLFVJYGWODU9G0vgxFF5
6ZsrSYiqqE9Jv0zgK7ltBy0USdgqZnO/soZAjcj3ydnLSYiXSBLmPSHQI6SX
qTnvL8ue0xXrCFSwdYJ6aRK8lQ3+nH9OoOekPXVwGQm5evKmu94TeCjC/jhK
kTBxsOdrRxeBAStjlcckSEBXhdWSTAJ9/wSvipt3sqfdGWAReKS1wEhp3uqB
L5Vv9xE4NJofY7mEBNv4ux5+owSKG89dZywiIT+ZVX2DTyCtIYmyed68dMXF
zT8JNJaAkx/F5/e5llJmOEWglY+K77QYCR8YjRSfPwTqGJhPp897xZ05u2sz
8/lbkrPXzNutdHPRx1kCz9r/MKoTJaHsfsCUQEDgMe+QQfq8/wtnpdZK
          "]]}, 
        Annotation[#, "Charting`Private`Tag$304532#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJw11Wk41Av7B/BRQovnWEslxlaoLCVFcd+EQglZfqSFrIksUUeyZc1yylrZ
CycqRDjqQUSLo00/W2OZGYORJULKMvP4v/i/uK/v9Xnzva7vq1vG6ZKlyyoK
hZK/cv+XNQJK0l7uucCh/fuKbsFq+H9Xf2KVihHfofFqaYGiexlc6QuVdXk/
CSmaLAfBpBoorVrs5FpPwms1Xzc+9wbQXaCx8scnIFic+w837xV8Cbo59Z+k
CUhPNtRdSnwDcbWOkVsPTMDbhPajc24f4cJ1/QSzvHGYitwwcrXkMzywKbzm
4zAO11+VKc3nfQF2f0bPD8lxSMefpTOJXWDsfbOD83AM5ELvTvtG9oATRWVP
tf8YlNcd0pgKooFIaNmwlN4YvNO+UTvuNgAn7KaCuMxv8OiQaMi+MjoYS7mG
ra/5BtM059zLJQy4GHHg20TCNwjZIsD8kTcI/HxxFvd1vkFzrd3qPVks6G9q
ldkn8Q3W2T2S980YAi/aySqp2VHIyDBz+544Ak4LT/julY1Cv2ZerEocGz6k
Djiv/msU5Duni70iR+Feb7aa36VRKBdLGx8LGoNFU9Fw2b2j0Hqb5st2+w5l
Kj9GnJvZEHsn/V2K+hQ8yk7dGFXChl3uYL+3bAr4ppg6x26zwY//9jW/kmkw
6jXoKTvHBo6hRv1U3gzI8RCqG/jYkC/eZ3ZLahZaZDYG5k6NgMFQ1IBq1izU
9je9LKKNQHxkF+VSxhzssyif51SMgMSroMMTifMw6p7rcd51BF4ky5EJ63+B
tXLDVlmrETjj1Oa8K+4XDEkJy2jqj0ABj1S0Z+Rv8N3fe8VSegTUsfHtaNAi
/D5/7IZI3zCY1PGbDbtxIbA9S77JeRjUuU5zG6e4EFusEZNgPQwJ1LMf5A5R
0F85KjrFaBguOz0PsGqmIEfsD3NzpWEwGPZpriJ58N2Od+2200PAnOhzvDq3
Gm+yDyy53RyCzqT4qltavEj3fUKahAxBq6rW2uLrvJirmyBo7TcEFb6p5T1r
1uD6nYXDNPshCJ8z4Wpv5MMdfk2se7uHgLpck7WsKYBa3i/99vSwQCzHZUr8
mgC+SoM05Y8sEABRA5UGAeRQA47ptrDge5j32Jkja9Fo+JlB9VMW1PMqaL+0
XYdijuxPPfEsOL0huSvi6gZsdzX5b7QBC94Laq7lPS2ENJ+qmXfNg9BuKnLn
Q7AQCqvaT/TVDUJ33OT2u1lCWDxzL45bPQisNX8bqPQKocqsF/NC8SAsLW8K
I04JY8BB16+9SYOgPPn752M7EfTqWyvP7zAIsR/qWNY2YkhspRp5cJiQtOGe
PzVQDH0i+gIYv5iQahK4aixNDD26uZlOM0zIfa1CDesQQ1ps69lQNhOq63NP
lViJI0fde0L6CxOGSsPbOZYbsexzVctIMRP0/zJ8+fcJCVycOS6x6MCEMJNn
xe3eEijpo+AdTDChfo1cynKiBL590N+52ooJ2sEU15NtElg/t79A3pQJez1e
rOce3Yz9u0/dfqzFBPnD6rY2+luweLVw4LtNTOCbl5zk3SeJUjlzk/1dDDCo
iO9StZLE114KpADJgAivhZf2/iu2TYf9nxjAGexKKX8qiR5CbeH5bxkw/ylZ
y0FlG/aEmRaV1DKAXSIQVblDCg/kNLrGZDHARXVBUF2QivsvUjmqLgw4Rosp
lJCioo/wA5fbjgzQiBHXoahSUWqpk/3zNAN4B9QufjSnoqrUuPQHGwbcT3Jr
9Uql4oBwpcvjowwYmCCjS7bKoP2fZ47K7GaA3eMyrpyyLHq8Of35n190OK7k
Mr3xiDzGnhhXxrt0WIgPeNFnI4+bXLnz+el0eDgZFVXgKo+F/i8ofKl04H1W
tHlPtDzyzW6vIZPo8FyXrXe8RR4n2m1sEyLpsN3KM/nGYQVUsagNcvShAyXU
d+8UbMfKorX+icZ0qCCvB7w7oIiyqh69Fjwr/VHOTkxjRQzr9/VdWB6AHE3T
E4v2iih/5MNHq98DcPOOhNLu64oYTjS5i00NwHmHyt5bjYqopiB5rb5vAMRY
7MOEiRIq1V96WVs7AIEzJ0VGTimj2HxS287LA3BQRLmMN3QXtqpSk0R+9IPb
YnJ2IaGGKuuSo/r+6IdLr0f2lh3fg3OMperHRB/ctOdTWL6ogc46MsnFxb1w
/s01V3V3TawuHszZJNELjfybLTztDuA+vS5BoQwaqAuHpY9e1sb9P5PtOzfR
4NyMzi6zi4cwpDxA3ODRV8jPaZGcT9RFd4HWZq7uV6hM0qa1WyJa3S8InOjt
gcvPdcyzj+mhooxCb3dMDzS0Fv6IO6WPGeeTpEvVe8DjiFadB3EYld0ujNkM
d0PWQ/UqzwsGGJ3pMpZ3txtuz9SF+1wxxLmcLW0tlt0wXBIQ6O5nhI1xuvdR
rBuajZLvREQcwSu77eu4X7qA58RX5l9hR/Hs1tUEX2YXUPSqefL+NEZRk1dF
L126IHbT/PH2GBPUnj5akaXSBT7255vmb5hi6NudSn7LncAI13CGtGOoWRll
GNDaCWIpd7/G5R/H2KdvmhLudUKRkPKfbzLNMMlom2vBpU5o9JM23PHoBDZ3
JXmP6ndCDjVPUsfKHPWC8upebOmEuuAFivsncxysGZJ8PtsBMqb8S3K2FqjB
fmj8va0Dnn1Uiu8hLdA829pTvLgDEl5z1KinLfGx867D0Tc6IMV/9MK5Xkt8
rZ1tkOnYsfKvpf6QtTuJX84VJpzV64BipTWtl+kn8UFq+FCwdAfwzfJsbjxj
hb70hc7PlA74W+1pSM6IFbLLGkKS6SQoOZWYLXtZo0VqUj6tkQSacW2F9Zg1
Fsek03mKSGh/ELQb/G3QUaTW7UEsCb8qLQ7J/rBBnj7p6TkvErj/+FVFe9ui
V9sqjatWJJiqGRkGz9nizkoHuSgtEt6cVvXw9CdQjVZbxiNDgsh59xfZAQTe
F72ekkYl4Yx7vuCnKwQu9Q9FKK34p59ohUYwgRtFciMtpEmQj51fWI4k8NcR
H9H720gIq2hIuJVOoCcn2cFwCwna/OblVbUEvnGTS0wVJSF6Q9wq9gsCN58+
yFBa8WfhJqst9QR2aT3FBhES3CU1foc0EajT/0TmmzAJGeoS+kf/JfCsyxNP
FCJh9hT9y9deAuv4erd930ACOm7eLjhAYD3z3+1RK453tbwKDAJrG35qb12x
rG+zZMEQgRbds5FH1pNgEf3QxWuSwOgdNrl5a0nIimfU5E4RWFjC4Nm/Yvat
LevafxDYMpd+6b3Ayp7MhFLNeQJploEXF/hJaMtroXj8JrBhW9birRVvKuJY
Zi4SGC47mLZjxU6P9he+XyZQGIwP1vORUFruM8/lEsixaBuzWvH/AMAA53Y=

          "]]}, Annotation[#, "Charting`Private`Tag$304532#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxNz30s1HEcB/Afk6vWLfTgYTcPl8qZ5q5u0oVDnec77iJPY6Jzv/MQDqEu
eWhKrjwt1XCYx9jQSZJdOvMQZXT5J2xoy8NqPXjoQueqLZ9v7+29915/vi0i
E3h8bQzD2H/6d8mF6lqpqcIJ+5eunRSzeLyKuW1FemudFd4GHqQmCXTxXvAr
idJjTTAGHmbkdn8WzIBHiqeSFgVfwV5yAmdeoAGPEu126YTpOW/btZD1stHX
CMy33SDSiOZgNoX//aC7JVg2cS112N4KfNrAuk3nug1YsFlSWR9EBScMLpxo
Yx8H3w7RPayOo4Ojhq5G03A7sIJgzI0NtgfT9LPKllIY4IgVRxtOnAO4RjpA
Ut1xAnfcZUwpec7glOeOfpU+LuDekfrl/FBXsND9lFwYdAZc0UTrjI05Cy5e
kWcnprHA882pl3GRG7jfreRBTo47WMt38kNhlgcYc3mqVZ3hCb5lqGIrb3qB
E0Oi+lS53uC5bPpF5j0f8P7Sh5P5NWxwg551xlA5B6wQmbGOtviCpebVJEd/
P7BcvIHh48gW3oRfhwK54CdjlIL3E8iSwS2qeRgPXJq8FBMxjSw+YLqXHHwO
/IiyYyRlFll3VctYEe4PbqQ+zpQuIFMimznq+ADwlGe3LOATsrL2yjFm8nnw
zw6uA3kZWfNM1Jl3KRDsTXVjideQh8JshbHJQWCDKLynMhU5HK8hjqch/xDt
k9HFyJa3VBvqG8hZsl5JURkyg+DX3tmNnLcnX3uxB/mtfp+/yQtknERfz+xD
vk8zcvV4jbwaOvtuchrZ+YLxEeIMckE0L505h0xO6ifVfUTm5jXx478gVxTM
dVV9Q14sMtmtXP7vT7mk1U6F/KZ6ABOuIxs2bPHKN5EjW07Wj6qRW9sTVRoN
8m8O/xY3
          "]]}, 
        Annotation[#, "Charting`Private`Tag$304532#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "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, 100}, {-0.6349948715350135, 0.979502050009042}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"I(g)\"", "\"ODM(re)\"", "\"ODM(im)\""}, "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.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"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.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665349090521*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"e32704a9-b351-4704-8fc1-851fcff3e878"],

Cell[BoxData[
 RowBox[{"-", "6.527108409315474`*^-9"}]], "Output",
 CellChangeTimes->{
  3.835332850414113*^9, 3.835332887334652*^9, 3.835332942095488*^9, {
   3.835332978293295*^9, 3.835333000594615*^9}, 3.835333041546776*^9, 
   3.835333137822651*^9, {3.835333201863209*^9, 3.835333240121101*^9}, {
   3.835335261792602*^9, 3.8353352737955437`*^9}, 3.835338506951291*^9, 
   3.835338653826593*^9, 3.835338711152699*^9, {3.8353387574087763`*^9, 
   3.83533881356074*^9}, {3.835339116226465*^9, 3.8353391326096497`*^9}, 
   3.835339391942856*^9, 3.835347112323107*^9, 3.835349307593566*^9, 
   3.835349394327177*^9, 3.83534955594307*^9, 3.8353497887674217`*^9, 
   3.835349883024342*^9, {3.8353499322737427`*^9, 3.8353499535501623`*^9}, 
   3.835349997281352*^9, {3.835350105060355*^9, 3.835350119566421*^9}, {
   3.835356837948386*^9, 3.835356859214526*^9}, 3.8353569372580843`*^9, 
   3.8353569852883587`*^9, 3.8353570610478992`*^9, 3.8353571213884773`*^9, 
   3.83535721431526*^9, 3.835357585425033*^9, {3.835358058683049*^9, 
   3.835358077077342*^9}, 3.835358351469739*^9, 3.835359069030142*^9, {
   3.8356612967260227`*^9, 3.835661315526321*^9}, 3.835661501163994*^9, 
   3.8356617860815277`*^9, {3.835661925160571*^9, 3.835661944593851*^9}, {
   3.8356620256941757`*^9, 3.835662075912141*^9}, {3.835662223135766*^9, 
   3.8356622344238567`*^9}, 3.835662299436614*^9, {3.8356623428596153`*^9, 
   3.835662353827736*^9}, 3.8356636357661324`*^9, {3.835663733240518*^9, 
   3.835663759576758*^9}, 3.8356639354895372`*^9, {3.835664059291369*^9, 
   3.835664066867515*^9}, 3.835664118268314*^9, 3.835664156219084*^9, 
   3.83566425325772*^9, 3.8356642890734386`*^9, {3.8356643209049463`*^9, 
   3.835664356399926*^9}, 3.835664405887126*^9, {3.835665123334806*^9, 
   3.8356651307697887`*^9}, 3.8356651642435417`*^9, 3.835665247482929*^9, 
   3.835665349104045*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"435fa377-2c99-4e8e-a984-1341b9063197"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 22, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"53ec2cc1-77d7-42f3-a170-d8a142f8d19e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 170, 3, 69, "Chapter",ExpressionUUID->"a14d8ac3-8c51-4e71-acf8-b02b18b41ff8"],
Cell[CellGroupData[{
Cell[775, 29, 903, 25, 30, "Input",ExpressionUUID->"c7cfaea7-bd1b-45ed-9531-812ab68afdec"],
Cell[1681, 56, 722, 21, 82, "Output",ExpressionUUID->"527d247a-e343-4118-9dfe-e82a9d7042a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2440, 82, 156, 3, 67, "Section",ExpressionUUID->"9d398e50-098b-4020-86d7-f489c0c068c3"],
Cell[2599, 87, 2515, 73, 234, "Input",ExpressionUUID->"d0488ab9-49e6-46e6-bc4d-dceddc18279a"],
Cell[5117, 162, 3006, 66, 136, "Input",ExpressionUUID->"b4f8f2a3-eae0-4b2f-90da-26ec15d5a053"],
Cell[8126, 230, 3663, 76, 136, "Input",ExpressionUUID->"05e965e8-764e-4a87-bca7-9c238611d28b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11826, 311, 159, 3, 67, "Section",ExpressionUUID->"c30aebef-04e0-44a2-aa62-02db35c7d071"],
Cell[CellGroupData[{
Cell[12010, 318, 1173, 25, 52, "Input",ExpressionUUID->"3cb6836d-af32-4453-b615-f45693cc94c8"],
Cell[13186, 345, 2008, 47, 231, "Output",ExpressionUUID->"9f801eae-66aa-4f3e-827c-9e53af74ac10"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15243, 398, 158, 3, 67, "Section",ExpressionUUID->"4534cbc4-44bb-4b10-899f-d441be241323"],
Cell[CellGroupData[{
Cell[15426, 405, 2144, 53, 136, "Input",ExpressionUUID->"b327e757-c188-4897-befc-03e787410c68"],
Cell[17573, 460, 1205, 28, 71, "Output",ExpressionUUID->"69ee3255-26a8-470e-990a-9b726ba79af1"],
Cell[18781, 490, 1213, 29, 65, "Output",ExpressionUUID->"c3cf47ee-6760-4bc8-804f-ff2eca17b5ac"],
Cell[19997, 521, 752, 10, 34, "Output",ExpressionUUID->"8ed14695-ce3c-43ac-b056-0aebab784c72"],
Cell[20752, 533, 751, 10, 34, "Output",ExpressionUUID->"86d629f1-4aa0-4fa6-b984-19ad281d1bd6"],
Cell[21506, 545, 737, 10, 34, "Output",ExpressionUUID->"b8e1648e-e41d-4b19-9224-4af1ee855e10"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22292, 561, 154, 3, 67, "Section",ExpressionUUID->"abbcfd21-5b07-485e-abe4-913ad648c272"],
Cell[CellGroupData[{
Cell[22471, 568, 1210, 26, 136, "Input",ExpressionUUID->"c20a0ff7-f3dc-4525-ba96-b18db7954715"],
Cell[23684, 596, 14847, 274, 243, "Output",ExpressionUUID->"26ce3b8b-49e4-4d9d-9f9b-87e31bc138a0"],
Cell[38534, 872, 1559, 30, 44, "Print",ExpressionUUID->"e09c9b97-5a58-4153-abe4-979a9a3ff7a5"],
Cell[40096, 904, 4470, 105, 110, "Output",ExpressionUUID->"cf369877-a830-4d12-b289-f8ba7fba3617"],
Cell[44569, 1011, 1563, 30, 44, "Print",ExpressionUUID->"25ac06e5-b41a-484a-b8b1-85334154fcd1"],
Cell[46135, 1043, 4475, 105, 125, "Output",ExpressionUUID->"5a946d52-51cf-45d8-bdb8-7dc4b33b7db6"]
}, Open  ]],
Cell[50625, 1151, 167, 3, 35, "Text",ExpressionUUID->"48b5f56e-e8b1-4fa1-9f98-02db91939242"],
Cell[CellGroupData[{
Cell[50817, 1158, 427, 8, 52, "Input",ExpressionUUID->"011cf19b-5489-41d2-9410-c22a38d9c584"],
Cell[51247, 1168, 507, 7, 34, "Output",ExpressionUUID->"9b2b8ed5-d508-4f1a-b3ea-880545d2411d"],
Cell[51757, 1177, 509, 7, 34, "Output",ExpressionUUID->"1292b6cb-8b98-4e32-bc84-f3f3bdbf7e67"]
}, Open  ]],
Cell[52281, 1187, 426, 9, 73, "Input",ExpressionUUID->"910d9b83-d0c9-4f81-87f6-61cc552db653"],
Cell[52710, 1198, 473, 9, 73, "Input",ExpressionUUID->"d754cb43-89a1-4130-bf6a-34fac1a78f2c"],
Cell[53186, 1209, 428, 9, 73, "Input",ExpressionUUID->"c1219ff0-c7de-4636-b213-9689105e1f64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53651, 1223, 155, 3, 67, "Section",ExpressionUUID->"7300fc66-5a0d-4365-8d2c-e4dd6b1aae6a"],
Cell[CellGroupData[{
Cell[53831, 1230, 185, 3, 54, "Subsection",ExpressionUUID->"d73b327a-6f0f-4444-8d92-598ab4b3c860"],
Cell[54019, 1235, 227, 5, 35, "Text",ExpressionUUID->"483c7967-c654-436e-8612-b838352dabfc"],
Cell[54249, 1242, 714, 18, 52, "DisplayFormula",ExpressionUUID->"ab398939-d6c9-491a-adba-d3091d1ef8d0",
 InitializationCell->True],
Cell[54966, 1262, 329, 5, 35, "Text",ExpressionUUID->"4625c5c1-dcd0-40e8-b705-e9e9446aaf33"],
Cell[55298, 1269, 1213, 39, 71, "DisplayFormula",ExpressionUUID->"4884722f-86d5-462c-8417-252c2a6c803b"],
Cell[56514, 1310, 485, 14, 35, "Text",ExpressionUUID->"6f690985-a400-48cb-abe5-eb51a2427271"],
Cell[57002, 1326, 795, 24, 30, "DisplayFormula",ExpressionUUID->"008aec34-4f6e-4f8e-9976-56379d6dfb21"],
Cell[CellGroupData[{
Cell[57822, 1354, 3612, 86, 220, "Input",ExpressionUUID->"62617217-86f4-48e4-a61c-2ea8a6c858f9"],
Cell[61437, 1442, 28382, 554, 255, "Output",ExpressionUUID->"f61e2f4d-e6b0-419d-a4c3-f05cb7b08cde"],
Cell[89822, 1998, 31010, 596, 258, "Output",ExpressionUUID->"4377da02-b3e8-4876-8125-fd150d43e67f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120869, 2599, 1058, 32, 73, "Input",ExpressionUUID->"728c44be-5efa-41d6-bc95-75afa3d1c9d3"],
Cell[121930, 2633, 529, 16, 72, "Output",ExpressionUUID->"f0ee44dc-163c-4e07-a6ea-2795ea932768"],
Cell[122462, 2651, 1266, 41, 66, "Output",ExpressionUUID->"cafd8431-a9ea-479b-99cd-cc2acdfd7cec"],
Cell[123731, 2694, 668, 18, 52, "Output",ExpressionUUID->"44935e27-4e61-41be-9dd3-800e61362a88"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[124448, 2718, 633, 17, 54, "Subsection",ExpressionUUID->"e48e727e-26bc-462e-9949-83fc95c0e436"],
Cell[CellGroupData[{
Cell[125106, 2739, 1931, 49, 178, "Input",ExpressionUUID->"79be7997-fd63-4cab-9bcf-e73d87b7f324"],
Cell[127040, 2790, 2369, 52, 214, "Output",ExpressionUUID->"3e4dc83a-3e8a-4632-9146-b64e780e7a65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129446, 2847, 1072, 26, 94, "Input",ExpressionUUID->"9dd5ef1e-37b5-47ae-a0a1-f248c93b4064"],
Cell[130521, 2875, 969, 20, 44, "Print",ExpressionUUID->"e0b8018f-1322-464e-b91d-0ab5a833bdba"],
Cell[131493, 2897, 3921, 96, 449, "Output",ExpressionUUID->"f2838425-dfc7-4d35-a9ed-3a2bb986997d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[135463, 2999, 605, 16, 38, "Subsection",ExpressionUUID->"91fb3420-94ab-40ff-a7fa-6aa15a272dbb"],
Cell[136071, 3017, 731, 23, 64, "Input",ExpressionUUID->"24b09982-afdd-4198-acfb-854257024ea2"],
Cell[CellGroupData[{
Cell[136827, 3044, 1074, 25, 73, "Input",ExpressionUUID->"218a7656-1c21-4490-9f7d-0c7988857c81"],
Cell[137904, 3071, 18410, 364, 243, "Output",ExpressionUUID->"c97087b9-50a3-4438-aa71-2722e86f3d25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156351, 3440, 593, 15, 52, "Input",ExpressionUUID->"d3c160bf-acfa-4205-a43b-140a639a0f2b"],
Cell[156947, 3457, 1504, 46, 67, "Output",ExpressionUUID->"b5c0515d-2a40-4a1d-ad20-80f0a0f57f7c"],
Cell[158454, 3505, 708, 17, 50, "Output",ExpressionUUID->"2df85622-6ec6-4406-aeba-1599b01926db"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[159223, 3529, 303, 5, 67, "Section",ExpressionUUID->"2c04019c-09f8-4afb-8504-0f68f7c01070"],
Cell[159529, 3536, 413, 8, 35, "Text",ExpressionUUID->"5c2b8573-f85a-4aca-a63c-c76cbfc18fa6"],
Cell[CellGroupData[{
Cell[159967, 3548, 1062, 33, 30, "Input",ExpressionUUID->"9370c048-3e6f-4087-ac18-5e19ef768143"],
Cell[161032, 3583, 1436, 39, 88, "Output",ExpressionUUID->"7b776316-2801-4c63-a0de-06d2afc9a6db"]
}, Open  ]],
Cell[162483, 3625, 361, 8, 35, "Text",ExpressionUUID->"6f93cbeb-b7e4-45be-a969-2ebe63ead6c4"],
Cell[162847, 3635, 487, 14, 52, "DisplayFormula",ExpressionUUID->"75558cde-c8cf-4d84-936b-6488cf808e02"],
Cell[163337, 3651, 253, 4, 35, "Text",ExpressionUUID->"ef2e0b3c-0931-4a2d-a81f-7023ee084a25"],
Cell[163593, 3657, 331, 9, 27, "DisplayFormula",ExpressionUUID->"daf935e2-7201-49f6-a42f-34819840911a"],
Cell[163927, 3668, 182, 3, 35, "Text",ExpressionUUID->"94e20afe-0453-49d3-893a-fc1216d62e90"],
Cell[CellGroupData[{
Cell[164134, 3675, 208, 4, 54, "Subsection",ExpressionUUID->"fad32a0b-ed49-4ea8-aafa-605f287c4b17"],
Cell[CellGroupData[{
Cell[164367, 3683, 7002, 183, 430, "Input",ExpressionUUID->"6ebf7bc0-10fe-4b79-8e45-e895f35a387e"],
Cell[171372, 3868, 1593, 36, 67, "Output",ExpressionUUID->"f718e8ac-23df-4004-9733-c829b4f45edf"],
Cell[172968, 3906, 8606, 161, 236, "Output",ExpressionUUID->"fd664b09-fd0e-4267-ab05-e28ab19799cb"],
Cell[181577, 4069, 946, 15, 34, "Output",ExpressionUUID->"1281d45f-88d9-4ecf-96a0-84938565187c"],
Cell[182526, 4086, 976, 16, 37, "Output",ExpressionUUID->"f6f6be32-791f-460b-84ed-b0e30b1fd908"],
Cell[183505, 4104, 958, 16, 34, "Output",ExpressionUUID->"e4de6977-21fd-4d5a-ba21-bd3d4f62c333"],
Cell[184466, 4122, 889, 13, 34, "Output",ExpressionUUID->"fb487a55-9272-4c86-ab3c-ec18d99a52d9"]
}, Open  ]],
Cell[185370, 4138, 4407, 109, 262, "Input",ExpressionUUID->"551e7daa-6820-4663-8256-cf90e814029c"],
Cell[CellGroupData[{
Cell[189802, 4251, 444, 8, 30, "Input",ExpressionUUID->"cce7978c-2392-4fed-b880-4ec4f28bf9d9"],
Cell[190249, 4261, 543, 13, 24, "Print",ExpressionUUID->"9589fbfc-81d3-424d-a60c-b5019b35a6ff"],
Cell[190795, 4276, 723, 11, 34, "Output",ExpressionUUID->"4078f287-2c48-4d2c-a6a2-476e49407c74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191555, 4292, 1135, 26, 52, "Input",ExpressionUUID->"1d4f778e-d5ce-497f-9d7c-7a2a78f26a63"],
Cell[192693, 4320, 1137, 28, 77, "Output",ExpressionUUID->"d47b32f0-6e85-4035-94d3-b778240a7b90"],
Cell[193833, 4350, 4048, 83, 242, "Output",ExpressionUUID->"9e8c5bf2-9b3c-495c-bd07-b4173b9508c9"]
}, Open  ]],
Cell[197896, 4436, 750, 21, 52, "Input",ExpressionUUID->"212ef46f-54c8-4a4c-9538-649dc562f18c"],
Cell[198649, 4459, 5164, 129, 619, "Input",ExpressionUUID->"45193b28-4084-41f8-9abf-694974c1d8d7"],
Cell[203816, 4590, 2164, 52, 178, "Input",ExpressionUUID->"8eeb7c63-6d42-4c40-a4ef-fa5eb475c951"],
Cell[CellGroupData[{
Cell[206005, 4646, 58792, 1147, 293, "Input",ExpressionUUID->"28fb6c44-6574-40f1-8127-8ce09c572434"],
Cell[264800, 5795, 34432, 675, 255, "Output",ExpressionUUID->"2c6260d1-dca5-4906-9700-9a101e08a26d"],
Cell[299235, 6472, 36464, 706, 258, "Output",ExpressionUUID->"afba73ca-ea0e-4aaf-a09c-598b6e69134e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[335736, 7183, 3180, 85, 178, "Input",ExpressionUUID->"f74348df-9a6a-4e25-85ce-5334277cd223"],
Cell[338919, 7270, 8227, 167, 136, "Output",ExpressionUUID->"24988c0b-4591-4efc-89c0-3880a0580426"],
Cell[347149, 7439, 13071, 262, 134, "Output",ExpressionUUID->"1a043f65-3aa4-4944-8f92-1b098768f245"],
Cell[360223, 7703, 17388, 347, 262, "Output",ExpressionUUID->"55b5025e-2a36-485b-baf3-17001ff65bfa"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[377660, 8056, 158, 3, 38, "Subsection",ExpressionUUID->"2b9a9bdf-90d1-473d-840e-0588226490ec"],
Cell[CellGroupData[{
Cell[377843, 8063, 444, 12, 30, "Input",ExpressionUUID->"e078d972-456b-4925-a3e9-66c222382278"],
Cell[378290, 8077, 171, 3, 34, "Output",ExpressionUUID->"800b04c3-4359-403e-bad3-fb4e90d8a955"]
}, Open  ]],
Cell[378476, 8083, 1288, 37, 94, "Input",ExpressionUUID->"26b778df-8b81-4ee1-9f41-0f29a81a64b6"],
Cell[CellGroupData[{
Cell[379789, 8124, 4399, 100, 325, "Input",ExpressionUUID->"7d36bfdb-e78f-4bb5-8447-971ac7ef7c57"],
Cell[384191, 8226, 2345, 49, 67, "Output",ExpressionUUID->"70ef7d55-72bc-43bd-967c-db84cd144110"],
Cell[386539, 8277, 2649, 54, 59, "Output",ExpressionUUID->"70f65f54-3aec-4cc4-ba82-731f06f9aa90"],
Cell[389191, 8333, 2290, 47, 99, "Output",ExpressionUUID->"d57d034a-b571-40aa-abae-30e25c66bc6b"],
Cell[391484, 8382, 18398, 360, 240, "Output",ExpressionUUID->"8d238287-2bb9-40f9-83b0-8ef968ac6c45"],
Cell[409885, 8744, 1222, 17, 34, "Output",ExpressionUUID->"bf100f71-4a55-4b64-8826-c847a3242c10"],
Cell[411110, 8763, 3677, 79, 85, "Output",ExpressionUUID->"4d663d1a-74f8-40db-91c4-af0e55d9ddcf"],
Cell[414790, 8844, 5592, 108, 233, "Output",ExpressionUUID->"6c998c67-a25c-4a4a-88fb-f2009a32c957"],
Cell[420385, 8954, 1224, 17, 34, "Output",ExpressionUUID->"4cdf3397-f4c9-49c0-a498-9d2a578a681b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[421646, 8976, 240, 4, 45, "Subsubsection",ExpressionUUID->"f258716b-04d3-4884-8b73-271c2ccd48e0"],
Cell[CellGroupData[{
Cell[421911, 8984, 964, 26, 52, "Input",ExpressionUUID->"4269e276-6047-409a-b60e-83612bab5752"],
Cell[422878, 9012, 3509, 95, 204, "Output",ExpressionUUID->"455812a7-4362-430a-82f3-6cf0f257c856"]
}, Open  ]],
Cell[426402, 9110, 1204, 34, 64, "Input",ExpressionUUID->"ba180922-7e56-40de-8ec9-3ac00c0eafe9"],
Cell[CellGroupData[{
Cell[427631, 9148, 1258, 26, 73, "Input",ExpressionUUID->"440ce8f2-9040-46ed-923f-94da042dfb35"],
Cell[428892, 9176, 492, 9, 48, "Output",ExpressionUUID->"2be4ccbe-f14b-4029-9d78-4db8f219c344"],
Cell[429387, 9187, 414, 6, 34, "Output",ExpressionUUID->"58d5df72-2651-413e-aea7-615b42d45c30"],
Cell[429804, 9195, 416, 6, 34, "Output",ExpressionUUID->"c7c29d19-863c-4981-a9a1-e0f308fcc7ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[430257, 9206, 4887, 129, 388, "Input",ExpressionUUID->"42e2b8d7-cb38-42ed-b704-0b7bc9ac9b0d"],
Cell[435147, 9337, 1657, 39, 67, "Output",ExpressionUUID->"4bb987b1-a41d-4134-a3b4-809ba669c342"],
Cell[436807, 9378, 1960, 44, 59, "Output",ExpressionUUID->"d0f2c5f3-c651-4589-b03b-bf6b8c36a811"],
Cell[438770, 9424, 6770, 158, 115, "Output",ExpressionUUID->"343b40db-cee6-4ca5-8cd1-5213563a620a"],
Cell[445543, 9584, 13135, 321, 579, "Output",ExpressionUUID->"520c1bd1-1c5a-4cde-9b1f-17685e170b5e"],
Cell[458681, 9907, 17701, 350, 240, "Output",ExpressionUUID->"670b131c-01d9-4cda-b296-0a5bfa264ba7"],
Cell[476385, 10259, 749, 14, 46, "Output",ExpressionUUID->"1452c3dc-e4ce-498c-ba74-a264d77c24f2"],
Cell[477137, 10275, 5804, 118, 239, "Output",ExpressionUUID->"ca1eca99-a6f5-48f9-a01c-55662bac4941"],
Cell[482944, 10395, 2986, 69, 85, "Output",ExpressionUUID->"55adc7ee-5992-4ce9-8b13-2afa4e66b775"],
Cell[485933, 10466, 4899, 98, 233, "Output",ExpressionUUID->"4f5ca388-f0f4-427c-ac01-27120a22304a"],
Cell[490835, 10566, 528, 7, 34, "Output",ExpressionUUID->"5559da82-d02d-4d5b-bcf9-2151e3f0e961"]
}, Open  ]],
Cell[491378, 10576, 444, 8, 30, "Input",ExpressionUUID->"d3f153c3-7074-49a4-9823-1b1c93f2a968"],
Cell[CellGroupData[{
Cell[491847, 10588, 5041, 132, 388, "Input",ExpressionUUID->"eec6a2bc-c0e2-4f9a-a020-e23563d4bfd3"],
Cell[496891, 10722, 1730, 40, 67, "Output",ExpressionUUID->"e796723a-6b59-4ba7-a03f-3ed69210e7ad"],
Cell[498624, 10764, 2033, 45, 59, "Output",ExpressionUUID->"5d5e1358-4c15-48d3-aa2c-4042b088f442"],
Cell[500660, 10811, 6843, 159, 115, "Output",ExpressionUUID->"9b19b97e-c0d6-4bc4-9c96-ad9bd17378d0"],
Cell[507506, 10972, 14002, 323, 723, "Output",ExpressionUUID->"f67fadf2-e331-4fb9-a456-0fb82b30f55b"],
Cell[521511, 11297, 17788, 351, 240, "Output",ExpressionUUID->"2ddeae7b-f843-463f-8616-c42e5b0de736"],
Cell[539302, 11650, 825, 15, 46, "Output",ExpressionUUID->"d058e043-2cd3-4948-ba26-291002e35d49"],
Cell[540130, 11667, 5928, 119, 239, "Output",ExpressionUUID->"2f573583-d185-4a2a-ae59-b26d3cc3549e"],
Cell[546061, 11788, 3061, 70, 85, "Output",ExpressionUUID->"7f6fe7e9-7349-4b26-b06d-60df98777aae"],
Cell[549125, 11860, 4976, 99, 233, "Output",ExpressionUUID->"dbbc0272-8994-4cca-9e41-f5ee295fae8a"],
Cell[554104, 11961, 603, 8, 34, "Output",ExpressionUUID->"b47041d1-fdad-4154-b0d0-5e1515f63bb9"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[554780, 11977, 170, 3, 67, "Section",ExpressionUUID->"0ce2fe26-987c-45d3-b2d2-8b3c4b5324e4"],
Cell[CellGroupData[{
Cell[554975, 11984, 168, 3, 54, "Subsection",ExpressionUUID->"6bc22a2a-2919-40cb-81e2-403a47b460af"],
Cell[555146, 11989, 190, 3, 35, "Text",ExpressionUUID->"244cbc5b-090f-4ba9-afd6-01387d151e54"],
Cell[555339, 11994, 489, 13, 47, "DisplayFormula",ExpressionUUID->"7ec96ad4-eb8c-4322-8cf5-8303b6b3eb50"],
Cell[555831, 12009, 272, 7, 58, "Text",ExpressionUUID->"8f8933dd-f78f-437d-ba9d-b51b17f3a47b"],
Cell[CellGroupData[{
Cell[556128, 12020, 751, 22, 30, "Input",ExpressionUUID->"e10e27cc-655b-49b7-8ad2-2dcc6d6206fc"],
Cell[556882, 12044, 657, 20, 83, "Output",ExpressionUUID->"bb9af619-7478-4734-b2c0-17f80d0531b4"]
}, Open  ]],
Cell[557554, 12067, 149, 3, 35, "Text",ExpressionUUID->"6869c91a-938e-47fc-ae8d-4bf0bcd8d129"],
Cell[CellGroupData[{
Cell[557728, 12074, 1076, 34, 52, "Input",ExpressionUUID->"bee9d7d9-48cf-4ce2-9b62-3101200e9551"],
Cell[558807, 12110, 1399, 41, 87, "Output",ExpressionUUID->"9af54adc-10e8-4e9e-bc07-894b7f189c83"]
}, Open  ]],
Cell[560221, 12154, 579, 16, 36, "Text",ExpressionUUID->"a17d9731-c698-4301-843b-81bb099d0829"],
Cell[560803, 12172, 602, 18, 52, "DisplayFormula",ExpressionUUID->"42d9830e-7359-4367-b46e-0abd0202ff54"],
Cell[CellGroupData[{
Cell[561430, 12194, 750, 24, 73, "Input",ExpressionUUID->"d5736efa-2092-40ff-b279-48737cc51ee5"],
Cell[562183, 12220, 171, 3, 34, "Output",ExpressionUUID->"2b13fe42-f3fe-4ad0-b179-3cef2dc6afcb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[562391, 12228, 468, 16, 53, "Input",ExpressionUUID->"afe6e617-1ddd-4c9e-8ce8-d4d351a588dd"],
Cell[562862, 12246, 155, 3, 34, "Output",ExpressionUUID->"00f0d119-5fa2-4e12-831f-b9c49a065af2"]
}, Open  ]],
Cell[563032, 12252, 1260, 36, 104, "Input",ExpressionUUID->"19ddd2ec-4117-4c92-b726-c67faaed6dea"],
Cell[CellGroupData[{
Cell[564317, 12292, 6326, 144, 426, "Input",ExpressionUUID->"b110eeb9-dbef-4676-a83d-9df9cf432a0c"],
Cell[570646, 12438, 927, 15, 34, "Output",ExpressionUUID->"d7976dea-0dcc-4d61-a30d-dc52ecd756a9"],
Cell[571576, 12455, 873, 13, 34, "Output",ExpressionUUID->"0e9c147b-7514-4a55-86aa-aa9905b90ce9"],
Cell[572452, 12470, 872, 13, 34, "Output",ExpressionUUID->"a8f299e3-2e08-4e82-92c7-0756baa9c5d4"],
Cell[573327, 12485, 942, 16, 37, "Output",ExpressionUUID->"f7f8620f-d325-4e1f-95c8-31da423fd8ac"],
Cell[574272, 12503, 2619, 64, 137, "Output",ExpressionUUID->"f34e055d-4331-487d-8046-e18ab4d980d6"],
Cell[576894, 12569, 18229, 359, 240, "Output",ExpressionUUID->"b3a61357-31f0-4114-9890-dcc6fda23204"],
Cell[595126, 12930, 876, 13, 34, "Output",ExpressionUUID->"184a77e3-008d-4561-bed0-d30aec3efe22"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[596051, 12949, 163, 3, 38, "Subsection",ExpressionUUID->"2f1cdabd-3a1e-4cd4-b8af-1d45cbff9713"],
Cell[596217, 12954, 190, 3, 35, "Text",ExpressionUUID->"05400f04-8a50-4ac9-8414-409e85577d6a"],
Cell[596410, 12959, 489, 13, 47, "DisplayFormula",ExpressionUUID->"f3133c3e-20ce-4767-bc96-11c6dbe8b31c"],
Cell[596902, 12974, 383, 8, 58, "Text",ExpressionUUID->"877cee21-1b6d-4428-ab18-0b21d4cff8fd"],
Cell[CellGroupData[{
Cell[597310, 12986, 1095, 33, 30, "Input",ExpressionUUID->"1aecb03a-ab71-4ab5-8a34-78a9541a70f6"],
Cell[598408, 13021, 1523, 43, 87, "Output",ExpressionUUID->"2884bff5-57e2-40de-bdb6-5ac5d860229b"]
}, Open  ]],
Cell[599946, 13067, 579, 16, 36, "Text",ExpressionUUID->"5f61c0d3-dcda-46eb-9b5f-d8ad00c44d30"],
Cell[600528, 13085, 602, 18, 52, "DisplayFormula",ExpressionUUID->"8e544bdb-7ec0-4a3a-9987-71d3413cae97"],
Cell[CellGroupData[{
Cell[601155, 13107, 373, 10, 30, "Input",ExpressionUUID->"1ec51323-4147-4ea6-8f99-311ad7824228"],
Cell[601531, 13119, 166, 2, 34, "Output",ExpressionUUID->"5defd9da-7590-4624-af6f-7ada7e3dff03"]
}, Open  ]],
Cell[601712, 13124, 1290, 37, 104, "Input",ExpressionUUID->"be97a948-0474-4c04-aeaa-2701c77ad2e1"],
Cell[603005, 13163, 419, 9, 104, "Text",ExpressionUUID->"aec7b80e-0522-4e06-aeb6-10a60d009b1b"],
Cell[603427, 13174, 3153, 75, 199, "Input",ExpressionUUID->"68729040-91e3-4f21-a53c-831272c00155"],
Cell[CellGroupData[{
Cell[606605, 13253, 7441, 149, 397, "Input",ExpressionUUID->"1ea603e6-b213-46af-9276-9768372a95fb"],
Cell[614049, 13404, 4136, 67, 119, "Output",ExpressionUUID->"d0872922-8603-4923-af21-3410b89ebbfb"],
Cell[618188, 13473, 1959, 28, 34, "Output",ExpressionUUID->"8431c92f-1e98-4857-a888-e2901fb3e544"],
Cell[620150, 13503, 1926, 27, 34, "Output",ExpressionUUID->"25c00752-0d29-41eb-acf3-d95147c962aa"],
Cell[622079, 13532, 1924, 27, 34, "Output",ExpressionUUID->"b8152001-e6ef-46f7-8b5d-b8376c9b1372"],
Cell[624006, 13561, 2013, 30, 37, "Output",ExpressionUUID->"153d74ed-bf46-4a10-b8b6-2d6bf4848e54"],
Cell[626022, 13593, 25611, 494, 232, "Output",ExpressionUUID->"e32704a9-b351-4704-8fc1-851fcff3e878"],
Cell[651636, 14089, 1944, 28, 34, "Output",ExpressionUUID->"435fa377-2c99-4e8e-a984-1341b9063197"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)