odm.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[    618782,      13243]
NotebookOptionsPosition[    602051,      13000]
NotebookOutlinePosition[    602496,      13018]
CellTagsIndexPosition[    602453,      13015]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

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

Cell[CellGroupData[{

Cell["Integral and its series expansion", "Subsection",
 CellChangeTimes->{
  3.835747283402829*^9},ExpressionUUID->"b482213f-24c9-4fb6-bdf7-\
1d939e6eba69"],

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[1]:=",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, 
  3.835747920469543*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"2c07ae2e-7722-4b58-b7f4-8f183eb90eca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], "%"}], ",", " ", 
    RowBox[{"g", "\[Rule]", "\[Infinity]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.835747908800634*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"2893c510-6fb0-4a1d-81d2-98e80103629d"],

Cell[BoxData["1.0227656721131686`"], "Output",
 CellChangeTimes->{3.835356757328226*^9, 3.8357479213106318`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"08aa1ca3-ca71-4eb0-bb1c-642cb565367e"]
}, Open  ]],

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[24]:=",ExpressionUUID->"d0488ab9-49e6-46e6-bc4d-dceddc18279a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pade approximant and Borel-Pade resummation", "Subsection",
 CellChangeTimes->{{3.8357472923108797`*^9, 3.8357473013265*^9}, {
  3.8357482852899837`*^9, 
  3.835748289153081*^9}},ExpressionUUID->"585d9628-9340-44a0-8855-\
08f98c31b043"],

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]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "6f30e1f3-8dcb-44ad-b97a-d232e499bccb"]
}], "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[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Pade", " ", "approximant", " ", "for", " ", "Borel", " ", "transform"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   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}, {
   3.83574830043412*^9, 
   3.835748345303089*^9}},ExpressionUUID->"b4f8f2a3-eae0-4b2f-90da-\
26ec15d5a053"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Borel", " ", "resummation", " ", "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}, {3.835748352775298*^9, 
   3.835748357110621*^9}},ExpressionUUID->"05e965e8-764e-4a87-bca7-\
9c238611d28b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Optimized perturbation theory", "Subsection",
 CellChangeTimes->{{3.8357475228138657`*^9, 
  3.8357475283811207`*^9}},ExpressionUUID->"35637567-3235-43cb-9909-\
e196db4516cf"],

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[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"]
}, Closed]],

Cell[CellGroupData[{

Cell["Order dependent mapping", "Subsection",
 CellChangeTimes->{{3.835747789916507*^9, 
  3.835747795379841*^9}},ExpressionUUID->"8e53ac2b-2a50-4c1f-bd6e-\
633043522134"],

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]],ExpressionUUID->
  "2f9d967d-d81e-42a8-ad3c-e422a7831c51"],
 " 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[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[{"coef", "\[Equal]", "0"}], "&&", 
             RowBox[{
              RowBox[{"Re", "[", "\[Rho]", "]"}], ">", "0"}], "&&", 
             RowBox[{
              RowBox[{"Im", "[", "\[Rho]", "]"}], "\[GreaterEqual]", "0"}]}], 
            ",", " ", "\[Rho]"}], "]"}], ",", 
          RowBox[{"solve", "[", 
           RowBox[{
            RowBox[{"coef", "\[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}, {3.835750094897924*^9, 
   3.835750101768684*^9}},ExpressionUUID->"68729040-91e3-4f21-a53c-\
831272c00155"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Borel-Pade resummation ", "Subsection",
 CellChangeTimes->{
  3.83574812176158*^9},ExpressionUUID->"e983606d-3ee9-4cee-8b16-d9dddad7dc91"],

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  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Optimized perturbation theory", "Subsection",
 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[CellGroupData[{

Cell["Numerical", "Subsubsection",
 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", "Subsubsection",
 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[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  ]]
}, 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]]
}, Closed]],

Cell[CellGroupData[{

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

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  ]],

Cell[CellGroupData[{

Cell["Various ODMs", "Section",
 CellChangeTimes->{{3.835748699986063*^9, 3.835748704657357*^9}, {
  3.835749944942865*^9, 
  3.835749952661762*^9}},ExpressionUUID->"6a957ec7-07ab-4b46-8889-\
9fc87041ed03"],

Cell["We now consider the order dependent mapping:", "Text",
 CellChangeTimes->{{3.8353337576479187`*^9, 
  3.8353337763127213`*^9}},ExpressionUUID->"adc7d9a4-9086-4648-b244-\
0fc59a1901c1"],

Cell[BoxData[
 RowBox[{"g", " ", "=", " ", 
  RowBox[{"\[Rho]", 
   FractionBox["\[Lambda]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Lambda]"}], ")"}], 
     "\[Alpha]"]]}]}]], "DisplayFormula",
 CellChangeTimes->{{3.835333715614738*^9, 3.835333741710905*^9}, 
   3.8353337800157423`*^9, {3.8353344927719507`*^9, 3.835334502388291*^9}, {
   3.8353346265279922`*^9, 3.835334627526938*^9}, {3.835749049868743*^9, 
   3.835749050878233*^9}, 
   3.835749170129385*^9},ExpressionUUID->"c4c3e875-655b-4a5b-8ac5-\
963b4b1e93f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"\[Alpha]", "/", "4"}], ")"}]}], " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
      RowBox[{"\[Rho]", " ", "\[Lambda]", " ", 
       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, {
   3.835749056069454*^9, 3.8357490950094213`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"729a40bd-d8f5-4791-b6ea-8138e3835d53"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]"}], ")"}], "\[Alpha]"], 
        RowBox[{"8", " ", "\[Lambda]", " ", "\[Rho]"}]]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
         RowBox[{"1", "-", "\[Lambda]"}], ")"}], 
       RowBox[{"\[Alpha]", "/", "4"}]], " ", 
      SqrtBox[
       SuperscriptBox[
        RowBox[{"(", 
          RowBox[{"1", "-", "\[Lambda]"}], ")"}], 
        RowBox[{"\[Alpha]", "/", "2"}]]], " ", 
      RowBox[{"BesselK", "[", 
        RowBox[{
          FractionBox["1", "4"], ",", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
              RowBox[{"1", "-", "\[Lambda]"}], ")"}], "\[Alpha]"], 
           RowBox[{"8", " ", "\[Lambda]", " ", "\[Rho]"}]]}], "]"}]}], 
    RowBox[{"2", " ", 
      SqrtBox["\[Pi]"], " ", 
      SqrtBox[
       RowBox[{"\[Lambda]", " ", "\[Rho]"}]]}]], 
   RowBox[{
     RowBox[{
       RowBox[{"Re", "[", 
         SuperscriptBox[
          RowBox[{"(", 
            RowBox[{"1", "-", "\[Lambda]"}], ")"}], 
          RowBox[{"\[Alpha]", "/", "2"}]], "]"}], ">", "0"}], "&&", 
     RowBox[{
       RowBox[{"Re", "[", 
         RowBox[{"\[Lambda]", " ", "\[Rho]"}], "]"}], ">", "0"}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{
  3.8353336468817167`*^9, 3.83533368610861*^9, 3.835356799372047*^9, {
   3.835749096117839*^9, 3.83574911448637*^9}},
 CellLabel->"Out[8]=",ExpressionUUID->"df12eb7f-4024-496f-b938-5d924e7abb7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], " ", 
        RowBox[{
         RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
       RowBox[{"\[Rho]", " ", "\[Lambda]", " ", 
        RowBox[{
         RowBox[{"z", "^", "4"}], "/", "4"}]}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "1"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"\[Lambda]", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.835749284171472*^9, 3.835749349320611*^9}, {
  3.83574938108875*^9, 3.835749394887404*^9}, {3.835749466453836*^9, 
  3.8357494707184877`*^9}, {3.8357495637936068`*^9, 3.83574956384905*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"c14624cf-073c-4185-8441-4443bf5a26c2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["z", "2"], "2"]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["z", "2"], " ", "\[Alpha]"}], "4"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["z", "4"], " ", "\[Rho]"}], "4"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.835749291766361*^9, 3.8357493952201757`*^9}, {
   3.8357494668712378`*^9, 3.835749471197344*^9}, 3.835749564715478*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"dcb6a39a-017a-4f1d-b8ea-d372622b1051"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"odmcoef2", "[", 
   RowBox[{"k_", ",", "\[Rho]_", ",", " ", "\[Alpha]_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"k", "\[Equal]", "0"}], ",", "1", ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{"2", "\[Pi]"}]], 
       RowBox[{"Factorial", "[", "k", "]"}]}]], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{"Limit", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
                RowBox[{"(", 
                 RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], " ", 
              RowBox[{
               RowBox[{"z", "^", "2"}], "/", "2"}]}], " ", "-", " ", 
             RowBox[{"\[Rho]", " ", "\[Lambda]", " ", 
              RowBox[{
               RowBox[{"z", "^", "4"}], "/", "4"}]}]}], "]"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"\[Lambda]", ",", "k"}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"\[Lambda]", "\[Rule]", "0"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
      "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"solve\[Rho]2", "[", 
   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[{"coef", "\[Equal]", "0"}], "&&", 
           RowBox[{
            RowBox[{"Re", "[", "\[Rho]", "]"}], ">", "0"}], "&&", 
           RowBox[{
            RowBox[{"Im", "[", "\[Rho]", "]"}], "\[GreaterEqual]", "0"}], "&&", 
           RowBox[{"\[Alpha]", ">", "0"}]}], ",", " ", "\[Rho]"}], "]"}], ",", 
        RowBox[{"solve", "[", 
         RowBox[{
          RowBox[{"coef", "\[Equal]", "0"}], ",", " ", "\[Rho]", ",", 
          "Reals"}], "]"}]}], "]"}], "]"}]}]}], "]"}]}]}], "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, {3.835749259902227*^9, 3.8357492645485067`*^9}, {
   3.83574957929135*^9, 3.835749603135522*^9}, {3.835750052443203*^9, 
   3.835750064378107*^9}, {3.835750135183693*^9, 3.83575013911935*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"eb602480-7167-44c7-8c5d-694298b767b2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"odmcoef2", "[", 
  RowBox[{"kval", ",", "\[Rho]", ",", "\[Alpha]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"solve\[Rho]2", "[", 
  RowBox[{"%", ",", " ", "True", ",", "True"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Normal", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.835751860936264*^9, 3.8357518640456877`*^9}, {
  3.835751907812233*^9, 3.835751948163365*^9}, {3.8357519807221518`*^9, 
  3.835751997817132*^9}, {3.8357520434239693`*^9, 3.8357520532952547`*^9}, {
  3.8357521926942472`*^9, 3.835752192980666*^9}, {3.835752233484028*^9, 
  3.8357522335790367`*^9}, {3.835752322744294*^9, 3.83575232317564*^9}, {
  3.835758986767539*^9, 3.83575898680597*^9}, {3.8357593596733227`*^9, 
  3.835759359815854*^9}, {3.835759858022291*^9, 3.835759858076679*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"b17dd533-aa34-4b64-8a35-ac41e6bf5ff4"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "32"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"4", "+", "\[Alpha]"}], ")"}]}], "-", 
    RowBox[{"30", " ", "\[Alpha]", " ", "\[Rho]"}], "+", 
    RowBox[{"105", " ", 
     SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.835751956286479*^9, 3.835751998772743*^9, 
  3.835752053818323*^9, 3.835752195076416*^9, 3.835752235643211*^9, 
  3.835752324354621*^9, 3.835758988997492*^9, 3.835759362802167*^9, 
  3.8357598593894997`*^9},
 CellLabel->
  "Out[391]=",ExpressionUUID->"7a393921-8cf3-43c5-b3cd-ea0431c8112e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Rho]", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        FractionBox["\[Alpha]", "7"], "+", 
        FractionBox[
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           SqrtBox[
            RowBox[{
              RowBox[{"(", 
                RowBox[{"7", "-", 
                  RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", 
              "\[Alpha]"}]]}], 
         RowBox[{"7", " ", 
           SqrtBox["15"]}]]}], 
      RowBox[{"0", "<", "\[Alpha]", "<", 
        FractionBox["7", "2"]}]},
     "ConditionalExpression"]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        FractionBox["\[Alpha]", "7"], "-", 
        FractionBox[
         RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{"\[Alpha]", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "7"}], "+", 
                  RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}]]}], 
         RowBox[{"7", " ", 
           SqrtBox["15"]}]]}], 
      RowBox[{"\[Alpha]", ">", 
        FractionBox["7", "2"]}]},
     "ConditionalExpression"]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        FractionBox["\[Alpha]", "7"], "+", 
        FractionBox[
         RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{"\[Alpha]", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"-", "7"}], "+", 
                  RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}]]}], 
         RowBox[{"7", " ", 
           SqrtBox["15"]}]]}], 
      RowBox[{"\[Alpha]", ">", 
        FractionBox["7", "2"]}]},
     "ConditionalExpression"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.835751956286479*^9, 3.835751998772743*^9, 
  3.835752053818323*^9, 3.835752195076416*^9, 3.835752235643211*^9, 
  3.835752324354621*^9, 3.835758988997492*^9, 3.835759362802167*^9, 
  3.835759859626257*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"e56a0fa7-bb95-4955-9888-ca7c56d25a90"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{
     FractionBox["\[Alpha]", "7"], "+", 
     FractionBox[
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7", "-", 
           RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}]]}], 
      RowBox[{"7", " ", 
       SqrtBox["15"]}]]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{
     FractionBox["\[Alpha]", "7"], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"\[Alpha]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7"}], "+", 
           RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}]]}], 
      RowBox[{"7", " ", 
       SqrtBox["15"]}]]}]}], ",", 
   RowBox[{"\[Rho]", "\[Rule]", 
    RowBox[{
     FractionBox["\[Alpha]", "7"], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"\[Alpha]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7"}], "+", 
           RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}]]}], 
      RowBox[{"7", " ", 
       SqrtBox["15"]}]]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.835751956286479*^9, 3.835751998772743*^9, 
  3.835752053818323*^9, 3.835752195076416*^9, 3.835752235643211*^9, 
  3.835752324354621*^9, 3.835758988997492*^9, 3.835759362802167*^9, 
  3.8357598596290827`*^9},
 CellLabel->
  "Out[393]=",ExpressionUUID->"5a3080c5-16f7-4eea-b857-5092a288ab9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]sol", "=", 
   RowBox[{"\[Rho]", "/.", 
    RowBox[{"\[Rho]", "\[Rule]", 
     RowBox[{
      FractionBox["\[Alpha]", "7"], "+", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"7", "-", 
            RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}]]}], 
       RowBox[{"7", " ", 
        SqrtBox["15"]}]]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odm2", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"odmcoef2", "[", 
        RowBox[{"k", ",", " ", "\[Rho]sol", ",", "\[Alpha]"}], "]"}], 
       RowBox[{"\[Lambda]", "^", "k"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "kval"}], "}"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Error", " ", "at", " ", "g"}], "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]sol", " ", "\[Lambda]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}]}], " ", "odm2"}]}], " ", "/.", " ", 
  RowBox[{"\[Lambda]", "\[Rule]", "1"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "%", "]"}], ",", 
     RowBox[{"Im", "[", "%", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8357520073932047`*^9, 3.8357520202096663`*^9}, {
   3.8357520591356897`*^9, 3.835752072511712*^9}, 3.835752107640999*^9, {
   3.835752382880777*^9, 3.835752413702037*^9}, {3.835758249564335*^9, 
   3.835758253762838*^9}, {3.835758908465921*^9, 3.835758936128331*^9}, 
   3.835759139130892*^9, {3.835759230373526*^9, 3.8357592305750427`*^9}, {
   3.835759321403034*^9, 3.835759323778611*^9}},
 CellLabel->
  "In[381]:=",ExpressionUUID->"b55ac9f9-faba-491f-b3eb-7b2624b00ad1"],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox[
   RowBox[{"\[Alpha]", " ", "\[Lambda]"}], "7"], "-", 
  RowBox[{
   FractionBox["1", "14"], " ", "\[ImaginaryI]", " ", 
   SqrtBox[
    FractionBox["3", "5"]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"7", "-", 
       RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}]], " ", 
   "\[Lambda]"}]}]], "Output",
 CellChangeTimes->{
  3.835752020480946*^9, 3.8357520749324303`*^9, 3.8357521084387827`*^9, {
   3.835752386450845*^9, 3.835752415349763*^9}, 3.8357582596286573`*^9, {
   3.835758913981111*^9, 3.835758939305664*^9}, 3.83575914244244*^9, 
   3.8357592339561462`*^9, 3.8357593465167217`*^9},
 CellLabel->
  "Out[383]=",ExpressionUUID->"8bfffeb8-7ba4-4133-8b9d-549e66ab47cd"],

Cell[BoxData[
 RowBox[{"1.0227656721131686`", "\[VeryThinSpace]", "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["\[Alpha]", "7"], "-", 
     RowBox[{
      FractionBox["1", "14"], " ", "\[ImaginaryI]", " ", 
      SqrtBox[
       FractionBox["3", "5"]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"7", "-", 
          RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}]]}]}], 
    ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      FractionBox["\[Alpha]", "7"], "+", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"7", "-", 
            RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}]]}], 
       RowBox[{"7", " ", 
        SqrtBox["15"]}]]}], ")"}], 
    RowBox[{"1", "/", "4"}]]}]}]], "Output",
 CellChangeTimes->{
  3.835752020480946*^9, 3.8357520749324303`*^9, 3.8357521084387827`*^9, {
   3.835752386450845*^9, 3.835752415349763*^9}, 3.8357582596286573`*^9, {
   3.835758913981111*^9, 3.835758939305664*^9}, 3.83575914244244*^9, 
   3.8357592339561462`*^9, 3.835759346518324*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"c67e3d3c-cf49-4608-b814-e3cfa9b2a5db"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxX041AcAB/DD4XJ1hWdLh/OI06pzT1Mr9ZTvr7QkT0ZYNHlJChVWllXL
25CeWHpqumcqlyldl7vkjnlUv8t5m3R3kxbj3Es36VyxSN5t++PzfFwPpOyJ
N6dQKDv/8/+BvAxpxrAQPkePhJsK9Ai+/FdSoIcIDo0+Mxej9eAEuAmYrSJE
FRIVu0L1oFkcfT1wWIzMsIWOn/vrEV0/V02G3kfl9QynM2v1+GRlMTe8pBqc
8COC3gV6ZNNqVpxfJsH07M4zbQ91WOV3qeBBqgSK4DUvXj3QoTMv5U1vqwSq
6HN8Z4EO7hYcIfekFF7gDw3+rEPLbAW3q7MW+VWbVram6rBwtOQLl8J6bNFd
S6Cu1oGnPu0rnXuMuanseFWVFludIir6w0iE3L2tzrmthXHfBktaFYnGUT+2
b5kWLNOpuCpPGURvvRaZirVISVzPpvTJcDqd59CdpoXdQfGdW96NmJPFyf/2
0SI84qZ45J8mpBmevmdINRjuDbUpZzZD8bUroRdokB9Fiw/xbUbqNCdZfkOD
mrgUZu2VZjiZ4gWiAg0YyVvyzmxoQUxgQabbfg2ac3r2WZ1txfKOTa0xNA28
7tlaOdHawbOrLnM73A/6fHakH0uJk70yyyyowUvcG8XZoQRrxHDPuF4N9y5O
jG2yEnZda+XfcNXwEbyM632kxA7dPCXYWY16QYm0jquCUVnnkT/dh7chpocB
ChWKkzKMjPo+hN25+vTEok4cZDpYb/PuAzv43aD8QhduvHZqf7W9F+mKjeCN
9eCOxdWcjEM9WCqx7Tcz06B8gPvk7vOXqNX7dig368H7/f27WOJPNCZdd4ww
GcBS7yuNetaFDx5bFlcde41Bmx8UibnPYT4pXOLINoJYGluUz+3E+vmY2hCR
CcmBxt+qp1ToyF2naFk1DJOEzk0XKuFSPDQpeDeCbuYt+0jiGYY+avpfrHmP
hARj/RT9KSqMDe2Mn0bhTmRElEvawHCuHDYYxtA98lUn60QLChOlh/ju46B5
uqyYiWnCOCE0JGR+xBJ7tdxhVSPSvJokn8onIPNc6ChxkUEjarrwh+sUvp8e
HfTXNmA6qat05elpBDHqd2++WYfVW63nDjXMwHvCkXVcUgO/ctfD1UvnkCpy
CA6ZECHdOXq5LnIeQbG3c3M8KsExhdFf7qYQxEz+l652ZbBfPEJrmqIQWRfb
slt2F4FKlordrpkRlDbPvkL+NvLIuoaeBQHmRFYsq+Kc2SVS6H+A/3jcnOAz
3KjH8vnkhyHmkoESC0J2Y5hdPllJSkP8LK5spxJBz+rSus3vk5k788okA1RC
JqM97JbVkK7qXd2/5lkS2q3f9U0m1JGbNuReWeZlRaxJ2XuqZn8DGclSTpo9
tyJSS9+wx+kk+aG9SJ+abU3cHzNQE398QvKoUWl73GnEhCrQZna/nLTvl5ab
N9EIrbgjOYjbTFqezQ7d+O0CwlvYc5nCbiUpgiix3s6GKA4ovbh3so08/ou4
yK7RhiA+jkYwxtrJR6sLaLbJdEJ1zsG6w9BBrmAO+cbN0oks/8+2b8xRkP8C
3Zg7IQ==
       "]], LineBox[CompressedData["
1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAA6eUUvJwCDEBQKhECUJHOv9wt0NN5
vAxAAOooOWhc0L+wnj8k5F4NQPAXT0hiUtG/Xa82ER3+DUBcnixtbUbSv4CF
oYHcqg5AYBq6wMpR07+t6B2bDkwPQMzN6AVYTdS/iJ2FYN5OD0AcY9Niv1HU
v2RS7SWuUQ9A3K+V4iZW1L8cvLywTVcPQHD9XEr2XtS/io9bxoxiD0AUOhy5
lnDUv2g2mfEKeQ9AEOPTBN6T1L8ihBRIB6YPQOSYJ+WF2tS//jh8DdeoD0Dc
4nZ98d7Uv9nt49Kmqw9A4FeiNl3j1L+QV7NdRrEPQNReUws17NS//ypSc4W8
D0C4+Ig85v3Uv9zRj54D0w9AqF3TsU4h1b+4hvdj09UPQJxHMVG8JdW/lDtf
KaPYD0DshokQKirVv0ulLrRC3g9ATM7y7gUz1b+6eM3JgekPQPxoMCm/RNW/
li01j1HsD0B0dujGLUnVv3HinFQh7w9AoP0vhJxN1b8oTGzfwPQPQCAsOV16
VtW/BAHUpJD3D0Ds0eB46VrVv+C1O2pg+g9AOO7js1hf1b+8aqMvMP0PQNik
NQ7IY9W/lx8L9f//D0AMKMmHN2jVv5xD4y4=
       "]]},
     Annotation[#, "Charting`Private`Tag$1130218#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV03k8VN8bB/AxlBn8slX2kCWVvUVJndvXUmlDQxQiS5lkaUHJml1ECYlo
DDUhu6zzzFwjsrSovorsKrIkNUlRv/v9477u6/16zvnce55zjupJXxsPMolE
4hHPf29Lj/GXnImLu6oytosnTOeBkKm836AcDa3uf+rY49YAm3Izsyvl3JHF
rc3b56OaYExRPSJQ0wfd30qjTbawYX9XT0WO3AX0xyVovvY+gPo1pYK/ypdQ
aaJvgs4GDixaumW4aoaiiYFNwUG+HPgc9Zrnmh6B6g3uO00+4MBR9/mmG3JR
qKftxVjhOw7wTOUfN2fHIHOJjypVglzQV9tZ9l05Hmnt23j0khYXsskuLI38
RPRif0vY/F4uUEYiGXaayaggmWo47cGF+qHurmZaCiLVeJVPhnHBz8rd0jE9
FR3Mk9rpnsEFTQ7/yfeeG0iPav+yrJgL/XqxpklyaShqKU1BnsOFtFxZjsbx
WyhpBy+/7yUXLMUfmrCz05EUZbJVc4QLpLAddXYDGWh8tuKz+lcu1Mx0bvmi
fBtpCz+TXvjDBW9n54pY1yykGhe2kSuKw9pnX3RV8u8gjjo2nS6DQ3KJlJa1
5l0kP2LWzNXGwVyJyZw4lYuk/aZtd2zFIfRJlgSXlod+iE15iCEcHEJHDyXx
81A196v5P3tw2LxVO8kh/R7iOw6/HD+Eg/jMhQ4NIwbKtbHLF7HD4XNBE3Wu
h4Gozw7uLHfEIW/V4ZgEOSZi8IV3PDqNQ3BXBs+unonETHNcpH1wsIseIqsd
L0AGo4lkhfM4GOxcv/vL7wKksZb7tT0QBzG+f1hDdiH6cMAsTOsKDp+K65ti
d95HxaUWCdvCccDdBRePDNxHnhto1/5exSHodVrQlDILjaq/ysETcDhyrb+m
lsNC66kySy1JOOiaafKjXB+iNs4h8vUUHKiLPpusyUVonWFvucpNHMYqH/sr
5RehY7VB70Ju4QBnSGUTpsVoaK/JKlYGDllq+2aqx4pRkNLXV8zbOAT0pWpH
Rpeg3veix8/fwcH6Zi/9kOYjdDBTp311Dg7a+9VY8q2PUCjbck3qXRwogt6f
Pp4qRWTL8M1juTicc+q94SBUhg6M5HVK3sPhRN2fcqCVoWhaZKICA4cDq9Re
ahSUoatFUkvkfByM/ffMJvLLUKHxjvSnhLW6zojPmZejQOWMGj8mDqvWp+ja
p5cjRTHywwXC5Oiqg+yP5Wj0puBDjwIcZofeeqsbVaDwUvnBasIDJkuJCbEV
aGPTlOsk4Y5M1aLZngpkOHDMRLgQh9rv5u12WpWoZFc4XYRwoRV9ojGoEknH
3+njE+PTipMpak8rkWvsh3PthCMolevi5aqQVb0dJZ7whj2pcRV+Vehk4rDu
BsLd0b4Tfa1VyK58yLWS+L9g3kHLZcrVqFMSJWkQVhfULtINqEaXPZdSIoj1
de4WEbPvqkYSUT92txH9uBg+7h2hXoNsTdPov4h+rYEnXQ+Da9CLgIAOWcJP
lpi6r7trUIj+/xTV83DwNbl6fWn9Y9RwaZ2oEtFv2WDXWc2Ix2g4IhAJEfvh
9VOp4pJeLVLubZ3KJfZPymhRKj+mFsVLcpJts3Cov9h7vrO/Fl3vZ7X9ziTO
47f0LcrX6pDLoKWkYjoO1QYX0/eO1qHxsWuyGWk4OPsdmfc3rkcSgn4sIeI8
lU6L1/HG69GKcwpr667jYDMeZ0I3b0S3tjSm3ojD4bfmqZyb2Y1o7XTZxpIY
HJge5n8avzWi4FGGfVMUDvwRAY44owl57l9XDMR5z+y/bFr9h41+P+YfpwXh
sFvRgTlgC6iWtb5VLYC4f8eMllFKAKkc0P77mbhPa6YuuZXocNBlIw+eqy/R
D6+tGqT3HOR3SqjhhwexXvfSBwXbcGTjdMh+whoHe4d7pbNfeUhQ0zleQBOH
L300EYZ8C4pE62Ks1XCIcaZ4HDFtQV0Lh0PvquBQ6eYrX5PWgo4mC7D0FHBY
4bMzOtjoCVrCGtr0JXBoiXx3bHlIK5J4/GWsYYELhsWSyxUp7ejBsHmgdQcX
RP9GOO5Z8xyF779SmkTngob1zHhz4mt0HE91YxVyIPDZdpT5/R1qD4tYmcoE
kKmSHBAQGETzOYqH36mwoWbEtPO5yQh6UMn3DYlvBJyeo+AwNYacVjZHxAs3
AF9zp3jJ2U+oSC8sRLy4DsgLRRIKGp9RSzRVNAerha1/XWqOPJpCFAOOs+dC
DXRGbX72ZMMXpGrmVRnaXA3KKZMLrJlZNB5iy/wcWgWT84MDb/TnUGjjuGrK
sUpgfm5oX5H8DZHj/g0s1KqAFUr3v4yNfUexAvqBy4TL4ZpXtWee+g/ETJfd
oUgugx9Y0djpsHlk2UotKhwugQuGvKrVzT/RgYXeaS1+EQw+4iW+VP2FXuhp
O22dY8Fv+us76y//Rqff2BxYKfoANu4W/uPZsIhwJbWOOloh7GGoniqX+YOS
k0w8WQlMCFQ6sXbY8S+KC9830T/DAO0pW9GegyQswe100L9e90BafJbC+0XC
OAVKWXIPckEI7pSqZQtgp0f2h/99kQ1nNje8o+4nY46nXUWb+29D0b6Teewf
ZExiciTGXy4D+JPyEh/TBTHa76ervBhpUH1kj2CamRCm5dficWv1DQjbG51b
9VEIw+b7xl6zroNqv+Xb/OhlWOamTYEdgYlgbBSVJme4HGubsTHW04kFxzXP
FwReLcf8dg3uDvC+Cvz2pBG/CGEsxSI056NFGGQKOV+wUadgZWHfvsk3B4H0
QDWDzKNgpJt1E/pT52BZSARtuz8Vw7p2FG0LoUPV16kFOE/FXCYoAddt6eDu
aZ9rEUDFhp5/kfytQwfeYb3PR4KpWB55bEBi0Aui1vaH+URTsfAS7yajf7xA
qG1bUf5tKqYiLr3zsthpIEvPCqzAqViK0pp5qXIPILGcS0ekRLAyipHmKxNX
eDLV45O7SgSzyspteiHjCtf0rXUdZUWw2cdCHyfmXECm1rTkjZIIFu7jq+vL
cgHdVq2iNi0RzGXKOLZVxgUcP8wVPtpFeCzGMfSbE9Spxt69TBfB8kz1ppmF
DhDqQXI2Okv43//Ru9wcwIx1Sem7rwjG+c4XNFR1gBf63tlnL4pgKo/6LMuy
7WEcWWe5hBP1piaPmPSjsNpZId0incif8L/Hu2UL57JKk6RwIi/MYEmYZw2P
F7NicZ4INnTPIkE7wRoWnWMizrUSeXTKq1Qra4hVc7rY3UnkMVbnKA9YQXax
iNONHhEM4x19e/fnYWhhe2hLTYtgpD/D7cEJB0B2VKFDUlYUCzf2e0OSsQAn
c+EWrjzhkb63OVXmwLg/x/ZXEsWw4ZqfL2zMQdv7acXLtaIYSdlzfDHFDHbz
A7JSdYj6ccMPV1eaAl2420vSlJh/5s535e0YNG2Mo0j6EBa8ERlJ2gpbX8t0
3fAjLBPwtsB3C5RduZ+68jzhFQnPxYc2A6PribxsEJF/VKkX522CON9lOsqR
hFVD6D9zDMCmMtJaJ50YrxVcK6GxETqOS60uzSRsMyeqo7cBzIQYvfp3CNtG
q+wxWQ9Gtly3zXnE/O4y3u0T60Bx/u/FHQ+JuivvQXeHGnwyDsnaxybq0Q73
+uPlwWVU7EQH57/vSd2lU+SgNzFb7WAz4XOMrpvJMtD5vqHYqo3w+W0qxypW
gkX0fv/udsIxZ2MPWkkD6PRtoXUR/lZvnvBDEipCf7GPdhM+LcR3qVsBG9cl
XH33mrCQTLicsRgwn8vtPd5DWGWQZthFhQyV7S+d3xNmLpS0aS8Diadtt4YG
CK8yXJb0iwwJ/vbHTg4Tdp+pMesnwRU8cNTjI2HZdc6C7QtsPl34wadxwlUu
3QqyP9g+0hneXpOE37Lm7DLn2OMNmgaT04StGMtpd2bYru41fO9ZwkPrjfcG
jrN7xSzqZ+YINy5tt+0aYdOq34T68QmTmHoXrfvYXU4epnPzhK8MiusbdLMt
lvOFL/wizJlwCurgsTmPojr5i//lCf6yHSxjr5GfNHVbIhz+7Gfc8EP2/wEi
0xSh
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBWIQ/eCpyJ45TDwODFCwNODwvT9sCL7cz6DFdZwIvqBX
kU4TH4K/4CA/t5Uggm9gufblR2EE30/jxbJESQS/iy1O0VEFwWc57CnGYIXg
f7NWZKhLRfDv6F64XLkHwd8wz17lSRwvnB+73kxQ9h+C39C6sPHOKj44f+0L
2dl8Pvxwfsfc1oR7fgh+StBb1XWBCL7Mnj0bfMMR/K7+6GM9SQh+htnMj1yV
CL5Si4gH+zIE/59FDe/1FQj+zbePLy1bjeBPCN8c67YRwf+vFVTcugfBv3Ox
fx7zZQR/R9v35MtXEfwp1vGai28g+N5L9bY43UPwd1WcPdn4EsGfpmvaH/gG
wS98NCdE8T2Cr+GTc//AFwSfhfHKkgnfEfwHW62zEn4h+HuyFusb/EXwp8tz
f/3/H8EHAJH9e1Q=
       "]]},
     Annotation[#, "Charting`Private`Tag$1130218#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, 4}, {-0.334485895732201, 0.579214260763713}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.835752020480946*^9, 3.8357520749324303`*^9, 3.8357521084387827`*^9, {
   3.835752386450845*^9, 3.835752415349763*^9}, 3.8357582596286573`*^9, {
   3.835758913981111*^9, 3.835758939305664*^9}, 3.83575914244244*^9, 
   3.8357592339561462`*^9, 3.835759346563179*^9},
 CellLabel->
  "Out[385]=",ExpressionUUID->"64cc49c2-afbd-4c84-863f-afed10f29a15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]sol", "=", 
   RowBox[{"\[Rho]", "/.", 
    RowBox[{"\[Rho]", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "-", 
         SuperscriptBox["\[Alpha]", "3"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"180", " ", "\[Alpha]"}], "+", 
            RowBox[{"225", " ", 
             SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
         RowBox[{"2835", " ", "\[Alpha]", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"10395", " ", 
          SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"odm2", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"odmcoef2", "[", 
        RowBox[{"k", ",", " ", "\[Rho]sol", ",", "\[Alpha]"}], "]"}], 
       RowBox[{"\[Lambda]", "^", "k"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "kval"}], "}"}]}], "]"}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Error", " ", "at", " ", "g"}], "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1.0227656721131686`", " ", "-", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]sol", " ", "\[Lambda]"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}]}], " ", "odm2"}]}], " ", "/.", " ", 
  RowBox[{"\[Lambda]", "\[Rule]", "1"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "%", "]"}], ",", 
     RowBox[{"Im", "[", "%", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8357590281493807`*^9, 3.8357590426147614`*^9}, {
  3.8357590992914047`*^9, 3.835759131896751*^9}, {3.835759177719577*^9, 
  3.835759218357563*^9}, {3.835759340274171*^9, 3.835759340458289*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"4b4d1dbc-a62d-49f2-8562-f4a6c751a085"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "32"], " ", 
  RowBox[{"(", 
   RowBox[{"32", "+", 
    RowBox[{"\[Alpha]", " ", "\[Lambda]", " ", 
     RowBox[{"(", 
      RowBox[{"8", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "+", "\[Alpha]"}], ")"}], " ", "\[Lambda]"}]}], ")"}]}],
     "+", 
    RowBox[{"3", " ", "\[Lambda]", " ", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "-", 
         SuperscriptBox["\[Alpha]", "3"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"180", " ", "\[Alpha]"}], "+", 
            RowBox[{"225", " ", 
             SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
         RowBox[{"2835", " ", "\[Alpha]", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"10395", " ", 
          SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "8"}], "-", 
       RowBox[{"10", " ", "\[Alpha]", " ", "\[Lambda]"}], "+", 
       RowBox[{"35", " ", "\[Lambda]", " ", 
        RowBox[{"Root", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "-", 
            SuperscriptBox["\[Alpha]", "3"], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"180", " ", "\[Alpha]"}], "+", 
               RowBox[{"225", " ", 
                SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
            
            RowBox[{"2835", " ", "\[Alpha]", " ", 
             SuperscriptBox["#1", "2"]}], "+", 
            RowBox[{"10395", " ", 
             SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}]}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.835759057580625*^9, {3.835759103747952*^9, 3.835759112499761*^9}, {
   3.835759195485675*^9, 3.83575922210739*^9}, 3.835759344320719*^9},
 CellLabel->
  "Out[378]=",ExpressionUUID->"0c37a18e-6ab5-4a5a-8ea3-425920c49453"],

Cell[BoxData[
 RowBox[{"1.0227656721131686`", "\[VeryThinSpace]", "-", 
  RowBox[{
   FractionBox["1", "32"], " ", 
   SuperscriptBox[
    RowBox[{"Root", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
        RowBox[{"12", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "-", 
        SuperscriptBox["\[Alpha]", "3"], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"180", " ", "\[Alpha]"}], "+", 
           RowBox[{"225", " ", 
            SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
        RowBox[{"2835", " ", "\[Alpha]", " ", 
         SuperscriptBox["#1", "2"]}], "+", 
        RowBox[{"10395", " ", 
         SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}], 
    RowBox[{"1", "/", "4"}]], " ", 
   RowBox[{"(", 
    RowBox[{"32", "+", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"12", "+", "\[Alpha]"}], ")"}]}], "+", 
     RowBox[{"3", " ", 
      RowBox[{"Root", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "-", 
          SuperscriptBox["\[Alpha]", "3"], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"180", " ", "\[Alpha]"}], "+", 
             RowBox[{"225", " ", 
              SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
          RowBox[{"2835", " ", "\[Alpha]", " ", 
           SuperscriptBox["#1", "2"]}], "+", 
          RowBox[{"10395", " ", 
           SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "8"}], "-", 
        RowBox[{"10", " ", "\[Alpha]"}], "+", 
        RowBox[{"35", " ", 
         RowBox[{"Root", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "32"}], " ", "\[Alpha]"}], "-", 
             RowBox[{"12", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "-", 
             SuperscriptBox["\[Alpha]", "3"], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"180", " ", "\[Alpha]"}], "+", 
                RowBox[{"225", " ", 
                 SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", "#1"}], "-", 
             RowBox[{"2835", " ", "\[Alpha]", " ", 
              SuperscriptBox["#1", "2"]}], "+", 
             RowBox[{"10395", " ", 
              SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.835759057580625*^9, {3.835759103747952*^9, 3.835759112499761*^9}, {
   3.835759195485675*^9, 3.83575922210739*^9}, 3.835759344323052*^9},
 CellLabel->
  "Out[379]=",ExpressionUUID->"1b805f7c-6a04-4ae9-86cc-8ee3238338cf"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkHk01Gsch8cYjG1+M7TaiotuSjmSSPV9Xd2Ulit0KtmOpZBQVxE5NTVT
rtToNpWlRROyNCbZuo280lDJmj2/GZLkWkJZIpnr/vE5z3nO89/H0DfMJYBK
oVBc5vc/VU8oH1VPLgV6fJ9SqH03JEmjHYrmyiDTc60Pe1E32OsdTJftw7Ar
TpbzjNkNA+4blOhCDCXetwJm1brBYOi0n9C8HHy1j3y3kHdBWJC1CYUsh2fr
Yr0833WBlr8oK8OmAswW5iofjumCAwfvi0bHJBAfbirmt8pgpNNNTaBTCRWC
oO4dtTK46EUPcHWohPZ6qa+KRAYFfmE6xfxKeEp+U0nNlwEjdDM3ZkMV0IpT
nhhekUHl+Q535dhXECUsCb3xuwwsH7GU9ejVsEaVGhQploK6nO3haFAPM8uT
TnmUkGCy90v/y8vNQL3Xz+R8eg+RdbaQNN4BnPjEUtaSDlhcyJIpKHRBu7Hd
2pPcNijucaip39QDpoyHPyo/t0BF8B3dg0O9MOSYk1nt1wwTppsJ4bHPcH5j
QJqXShNQp3OZuiYDoKX9hb05pRGs5T7FrnlDMHtf1eHrHw1Qw7GqqzIbATo9
JWqLWR0sSxyczv4yCmfS1ZPjr72FwakuWYvFVzjjUnbo2Po3kD4grmZc/Qa3
82OjFEqqgKH/cKS3dxwSPAauylwlkBBUdDjNeBL6P01OaKyogEmU2xt4dgp8
Cs34W/IxRFhKChe9/A7OCRdK+6LF0JUnudxoOAPtri0x2dQS+BHcnLoy+geU
//1Nv63oCayyV5k7LJ4F51eatbbxQnAUGB7JXzwHFFMb7zzDDIjU9zb64CEH
CnemhlGVAquH9qm37aYgihG3tTrqEmgTo3TJzLznNyj+NXYc03Cq6JfbCuhc
K4fNSbuOj1qJO1R3UtHyEIWQxoUCnLvDN61skorKoxescXTPwRODOsy+m4oo
XKj6hmmUj4tcHRX5W2moQeta5EdeET67nXuvsI+GnB9xjlFa/8GGUqf2B1wl
NOqdmhi3ogxv3MDhL7VURhZSpwLl2BfYw6B+WqFJGfW/8/W3q3mJJ6qv9ISz
VZDPV7PUXI8qnETzinAxpiPm+EC4S/1rrC0rElAl8z5YFFJn/xYrxbLdbI+r
orRLkSvQZC2mZHuJerTUUITgRq7G1gZ8IkV0RatCDT3u87/Ay2vEz1fF0Vmh
6khDXkILWNKEWU4nVp9naCCrabYHM6wZk+YNTadLNdCoWHdGu78FP74Lxr1e
mij8VEE9c3cb9hRZs/TnNFFIRUCTQNSOz3Hvs8kcBtp66sN33/XvsbBfP5Wx
i0Cz/evEOKMTx93h+sj2EChrUXu+9aNO7O8ybJK3l0DpneYKeU86sV5p6ePd
+wlkxe/IvoM7cTzvUFWCL4GGNgmM2B2dONA6eUztNIFe53KFBzRJbMRZsF0l
k0C9M9eUnE6SeM7mjGZb1rwzM+g1MSTuGP74LjOXQKR7td+e8yRO3F/guS1/
vrvZGLnxSCw3c/mTW0qgBT91sV82iclG3l3FJgJF8TsjrktJ/PTilF9TC4HK
NdomdXpJzLfzXvmgfb6zkhsEAyTembGm8DcZgSQWXpcLpkj8LKr2DftfAtED
j+p3sKT4pvl63t4hAgU2LfX0WyLFx3tuuxmOEGh8OGh82ECKf90V0lU+TqC0
MXIlbbUU0xSa0xOnCMR5MfmKZynF3UV2wT4zBNJjpD3XtZXi0uAHay1+zv/p
3KyWBVJ8a5n6hFxOIAtlnshqmxT/By/Ni1U=
       "]]},
     Annotation[#, "Charting`Private`Tag$1123051#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF0HssFAAcB/A7To7LcXrY0bETlVdMUlJRWuRR82iyvCYkvZBWWk3X7qQQ
azcp70dKN47cWcsp42bLPNIxbNzVdZPHeZVzoe6qLb/fb/vuu89/3/2YcVdD
EnQIBELQ3/xr/4TJgfap64cJ/4/kY54io4d5rXtPeVFJMz0eHNA7/LqUng4O
j1e3PaazwePO933y6FxwxZZTWQ/pNWAWuXnnA7oAfCaikr+wKAZTtKxIX8t+
sG3w3GRnziD4Rp+HV9HSKNhMQJMSiTJwi9ynp/+gHNyRXGoRoVSAVTsOGddf
/gbWWeGZWNhOg921sS2hDUpwD9utr8t+HmxVMLNSN7cAnlHLpEMu38E1063d
1Ec/wFTGi3mFYgmce0GYWGGzDF725imSMtXgdFexYGvnT7CsQZwzwFwFryUP
FtvdWgM7HNHXJLb+AvtWMc83mWnwX4wY6y+RWrCj8jRlOIjgve5Nxgtk8Sqa
9L6Yv72ECL7o1jpqEKAD5p2Iq3i3jFbNmJtMFOqChaG+utxjJHCmH6dcMIFm
jvuPVHP0wAf2sbl01w3gSMv+FaIErerOk6ew9MFFpOj0EBsy7pcKq3TEaL07
rDCPVAMwoS6aLzc1BKc94+eZdqDbHLLJtCsUMM0/zfEedSN4zOmjJEOEbizz
slFEG4Gj+O40hgZ9l1PJGntFBddPMoqpgcbg7FJOrPQkOj5k1rYhGL1NJGoM
Ckc/zD/blRuHTnJ/umiYgbZmb/bTr0Vr9t82Gn6JHp39+qmWhy4Ib4463oTW
2odc44jQYwP5ZboS9Jss9TnJEJrrGWNXPYIOeL5bcFSKfnuz9wNrCl3otDc/
WIlOlZeEMefRuwIvydqX0CTiYE2BGv1Z6Jkcu4oWJVc7u/xGP7GiqLRa9B8U
Sxnt
       "]]},
     Annotation[#, "Charting`Private`Tag$1123051#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, 4}, {-0.45741002220538274`, 0.5079870333905214}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.835759057580625*^9, {3.835759103747952*^9, 3.835759112499761*^9}, {
   3.835759195485675*^9, 3.83575922210739*^9}, 3.8357593443602247`*^9},
 CellLabel->"Out[380]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWwl0FtUVHg0EQVHEfUet+16tu3XfjhWttkftaUVEMSCbIiKi0ICABlFQ
ViNIQUQWQWQJgbAEAoQ1EEhISIzZyEZCCCF7wu393tw3eaT/+yc9pqWnc07+
/P/MfHPfct+9373vztNd3wl7vXfXd3p069rp8be79gvr0a1/p8f6vs2nQk5w
nBPCHMdJ7uTgO/FX+VBHD3w4zjnqXwh1796d5HBveKYFrzdebsmnHo/rj8uF
hoaj3oXWPphH1ddWVFffQHNjUmjENxuBD/WBPSIP319UTh9OWU8vhy+liJmb
6UhVrWNiG6EPqbOhdPToUYqO/4W6fRRF3UZE0YrNv+BcGx+BD4rAkrJK+nhG
vBIIwdwAp60P9gHBbkzMpbCPo6nLsKU0b1UK+uy088H+XrDlFTU0ft52Jfed
L9ZQWvZB5xQf7H2C3bmvkHqPiVHYb5bspuqaOqe9D/YewVbV1NHUnxIVtg8/
IzGtyDnNB3u3YFMyS+jtcasVduL8HXSkstbp4GJPEmx1dbWaEfw6xfa8O+V5
tXX19F10MnXh5/WIWEGbk/Kcju7z3Dk/ierq6mjmzJk0cOBAevfddyk5OVk9
YvLkybRkyZIQEYFbVq5cKb8sYu8QsRn7S+m9CbGqG2O+20Kl5dXOGabYthQX
F0ejR4+m2tpa2r17N7333nvqEUeOHKGqqiqcc06k2NhYlhMREaGak5eXZ5f9
O5GNZTF/dQq9MmwZdR8VTWt3ZDtnubIZtmrVKho+fDj++PH4DKHExESaNWsW
RUVF8Tnc2Y569uxJlZWVWgTNmDGDwsPDadmyZTRixAgaN24cZWVlqda09hrz
W2lDVkEZfTB5ner/qH/EU/GhSudsrw1lZWWUm5uLP5aHzxCqqKigqVOnYoil
DW2pX79+VFhY6LWhvLycBg0aROnp6Xo62AxYhsNtSqiyLIvWpVHX4cvoNV68
K7eoxXuOORuhtHDhQlqwYIFCYkbeeOMNzII72K0oJSVFScYksFSr0Fuk/7Ax
f4+MU/0fPm0jFZQccc4zJbampKQkGjx4MB04cIAWL15MI0eOFMsXolqCZwft
4E1GB5fEpdOrsE78t2zjz9Rw9Oj5rrg20oM5c+ZQ7969VS8yMjK0pPr6ekgO
LulG3asD3Kuv3V6Ff70Bv50LXTF6cTY0NHjYUDkni1V+WWRcr3vDNy/d8LNr
a/kP37mHF7lirPbjOqOJaBqaiKbC1l7ig72myUBCLAZzMX/nc5184FeL6JzC
wzRU5lyLvswHe6WIrudh+zHWVVJ4GJnDyw14I/oKEZiVz4tMHBmULL/4iHOF
j8DLRSDsIoyEWhUjlyv3xvN0pQ/8MhGdlnPQs29Y34UHK5yrfbCdBMuuhL6N
SlIm+Q12bWu2ZznX+mAvEeyenw947uGz2VvZtVY51/lgLxIs+3n6etEuhX1z
9EratHu/c4MP9kLBbknKo96frnTd0g8JdLiixrnRB3u+YA8erqKx329T2H6f
r4JrdW72wZ4r04Sls2pblhonjNeMZXvgXm/xgZ8jovN4NYAdQfSgibGKAdxq
YBuhZ4lAOI+Fa/cp/YduLODvfO42H4FnisDUrBIaOGGtp5JYA7f7YDuKaMzP
tMUubQhz9QL9v8MHfrqIjt/TOEVgPXC5d/lgTxNsUWkFfTpri8K+Ndadont8
sO2NEYOlgG8BS5vFbINV/F4f+CnGiGFqlNVg65GZX+b83gfbTo9YZa1HtKAh
MVsyYTXu94G3FdFxu3LVQnBHbIcasQd9sG0Em1t0mEZM3+RxS3C8hw1sI7S1
NBbL/vuVe5VWQbt+WJNKNXX1j/gIbCUCt+3NV6sHAj9h1g5j95gP9kTBsnVS
LEwTUlYV5wkfLLeYW0cLuJXwB5jZb5cnUWV13ZN25FERuCOlwDNTH/H6yy4o
c56yw+oDtBOqzBPkPO3Cmkt+a3Xba+vVCKPtIIJu22s7u09zPXM7P+pLK1as
wNND6M0334QV3LKFzIMvOXXSdlhILB2zy8+a0toEY7xM+ZhtcV+GDh1K8+bN
A4/w2JDZvyoRB/3TMRWmlOMk5zlXXLNJbohJcuVcK0VEx4wZowguXwtEiipk
kCvYYmFgMcBQ6zkxe2Gdn/fa0TyiG2ISXUdTTjCzadOmKbLN89RItMtEOpgS
c3tvCcOA8ar4sznoVmJ7olwuKSmhnTt3qsvgbtACHqlANO2wDD0slo6fsfQT
UgudF0yhgbltiEgsLS1VRDQ/P5+KiorUd74vkMRDAuHoQRkoSEREA07IZvdF
V6iF4baS08uXL1eahp6xTgeaz4Mip7pWFjxMOcsCWzhUXv0XV04giqtVFEtS
zgek0cUiAffB7Pb9bJXnI3/JO/RXV0Ig23DAGHXNLrHOwF5etsMKRWARm5Qv
JQfQfdRy+ml9GuxaFzsyX5BsLZS9hq3GYMDR8GB0tSP3CxIeESkSrZhYpxwQ
drMjc6WTW5PzacCXLn0AjUhILXBeN2AKlS1iwEExfri5F1tL8CSm693tYjIF
ydGYNyhw2/NXp2LdhtmRGYLkAaDpS3er1Q6XAA1hftfTjkw3hhOEG2Qbcj9n
9soRQy87cp8xnMs3ZVDPiBWezrA29LEjUwSJgGb9zhx6e+xqjwJuTynoZ0cq
888rCnq6mS265nLwvOsScmBznLfs8CQRjOyRNhGYGkQXHHH0tyN3C3LvL8Xe
pIZ9Eq30lZnDgKZKsEvux7JAAKKmkocWOTImkgPtkhK0+mQfVERCK8HsFclU
dqR6kB25XZDpuaU0+lsXCf8KF8CKMdiO3GrI1EisK9D50sNVH9qRm41x0f6u
myA5+BlqR24SJEImHQOgn7O4tSwz3I6MM5SAV6AXT7/O4zuHLQKPkjPcDl8n
cGgf0pfvT1rnMVSsgPLKGucawdXU1CgSgl8v2R/ZWc6lpaUpv45fT8s54SiK
opyoPkNMouKcL81BxAsT0V94GfRy8fp0LEwJP1vR7Nmz6f3331d/7DSfFRF4
3IQJE2RAm9XKYcOGGa1spTJ6Bre5UBoFqwBvplOtsOxIULGJlrg2VGW74NPg
vTFeAwYMoNTU1D/I5ZycHGQJ1d/06dNVko553L9ktAO1rrO0rgnnOU9ax2qi
Jhwzh9Yh4oc9qWdydrM8DoQUrpVJhKObFB8frzzx0qVLacqUKTRkyBBKSEj4
N4fuGWlcEyJ0tjQOsS3ML9aRNovg3ay1zi0CBfHp1asXRUZG4jFu+1orxUZX
o6OjafPmzTR+/HgnSDJfa9rEiRNpzZo1ik92lq5a+NOZcnkfL3gd+yur//1W
nNO5SWhFdna2QkLJ+vTpgy5qpQF9xAOhltzGZjSRya06z2PoNdFCuE6XcQSN
hN8dNtVd5XBtkTyuSO7dJo8oLi5WMMARI+A7j6eeNZB5SPUZR307hlyvYq2B
TVhaB2kcwpiYrZlMCtZ4eQGwbNZM5w6BYhaxJvr3708bNmzQixZ0kBvkt2if
kXNYXU0barK6U6VFbPwUR9TeGCsW3pn5g3O34EyG+EfjWfpckA2uhYZ2IxnS
TbR7yFfrQfnU0ptsh/8g3YW7QH5M6x2iyqSM4kg7cq4IRiYSgoZ8Fec5G1A/
ZHKmuvCzBV5TkqoeUbJhqDNHfbahwnW81H94ixZNfI3mjn2FFo5/lbbO7Uv5
az9wJql7Quhg/IimQ9HB/clPexEfJxwrCGMHQUcbanke8Bmif6tf7QOcO173
2bHtzHOUmVtMk+ZvpVeHLaZXwn+iEdPW0fakXGqorwk9rs1sifvq/FZd+2ae
O/U43WfHtlHnQHA17UQcgOj059xS2dY9Xm1rufv+z6bOzZS1UaFUbEK2uqYZ
LbYiikornJOPU9v+i1P3TIBzT8nQIJeMYEszUdwDeozqiEC4QOeCiI4UMQdK
K1W89LqEwQhJQSlR1zDfDp8iz8/MO6T2X5Bx03tPu9KKFtqRkwSZmF7kBVBY
sRPm70DmZZEdOV6ajDgGHlFvtSHMnBm1RynNYjv8C4GDwoDS63wwsiI/xu5T
YdBSA67QYwXEF9VNOoUCMLL7/DAnyi7zM4FzZKjiPJ1sQNPRBe6KE22Hfypj
lV9criggqKAe5d3pRTF2ZIQgM/Yfoi/mblcJIyDBfTlcXm1HfizIvZklFCGh
MeROWbgTnGOtHTlSkDz/XsoAmTuExsWHKtfZkcNlmMArkLfWqQokyHSAG2eH
hxuKsYEDXJ0kQX0JJg1LZqMdPlTgYFrIqWhui4w/9n1RahNvh38ocNiy1RzP
ar1CShFZN4SOW5rq1WABIQiGMuqdFGSGEBRj+W2zyxzUBN73sxgv/Qt7Cla6
ww4faMDRRA1Hz7H4oZY77fABQeBIpgKeaIf3NwZsFccSOvdqwvfY4W8Z0xW7
I9tLpqHvuvHJdnhfrSyS+QVMxw3I3mPoUuzw3oaqYodz4Pi1MtsxKjDCxO2z
w930Yihy9F49Tu/GhFy6HdlTkGZCrscnK9RWZ3VtfUZTDQuT+1H5FCFpNRh5
ZHwqqmoz7ZK6CxJW58u5272oAwaMV2K2HfmaILHDjmAJXkFnZUvKKnPtyFcF
iT1nxJOwG5A7bs42BL55duQrgoQyInODJCWQ2AxNzyktsCNfFqTeA9C7ZYN5
XphPFrnI5m70/U2ehvSe9kxY1Xgy49xtg5bc6NMCswvKvBwmwnFUzLDNKTEF
tsxe30siEWkouKMu4hrAH8orakpNiaF6b89rs+zt6e20ZmzrvSBPwjYQaiC0
9wS5LzxYUXasPNnD8+TJHp7edrJu3z1vqAHshzZH4VM3YEuj/FgpLbd99yf1
2Vo5WmQTtPmP37NfNjRbevvuOYGgukIvbGzfwYTw8nG3XVtg++5ZPW81dcrc
dJMdK5gENiDVrpxfs32nU2mN23cx3qLPzC9zN92DJOZaIzj08uhY+KhDrbfD
nhKByDZFSs0S1BE1YjVwZFbkk4IEOYGzDJPcLYppQQvtyCcMBdE5e/xnD2CW
UwTEPiZSYYnBz3W+H35Gl3aHGHCFfsRoKlJooF8ARv64S3UcR5BU2cPSXmyq
DBbfBh/Hi8isVQmIfVBEo0RaV9BANZfHZ3jtPckOv9/QB3CCHpIMVFU0h91B
DlKlrQu09xvlWdj2ZFtuFgcFxN4romulOEWX06BQC+dwBCnU1jXamGTNJdAE
ZHvVHUEKte8S0QgVdSEd3B9ojE5vdrDDdUk29hV1XAOtBNtWd3Q0sAp6uyBK
y6uVZ9aLhxm/WXYWUJquhgbD1j5aqudc7Fl27K2CRbCqucy7PFipWSVmfV1A
7C0ySBgQEDRwIHASxBU1Mj/n2uE3i2iUPOhwdTAvQg6szKrCgNibBKsyHKOO
fWdA3XGBHXuDHmrWXl2ChLgGSS11R5AC3OsFu5EjTFBE2F7U3CMSUXdcbMde
K1gQMfNdBW+og1TfXiPYZKaoOqDR7yqoOy41sAp6lSBgQTEhXSQe35FSYJbH
BpR2pWCRmdcBI0puDpWL+v7GjnWrclup8AN7sPBQMM44rrTDLjcGR+s/lCGn
8LAr8io7VlfqYrNahyxIddXqSQlSrnupNBdGGfYFPgT1dziCVOpeopvL9gEb
XbqkEYkSdYdU6jaX4l6su5BT6pFlBAWePruK19IvclxkTJbqPVuP7SmK2Esl
/H/kHY4LpLfQTe2SQOzZCJn1/n58VzND3/c1zhV5cNmamUxi140Uk3rgzcfK
s/BdXWPZ3HczzpPRxc4oIlEYqahNKpyUVzZa8J2Mc/VUbstSU4lNu6QMVYxF
t5rCft3rGGfLM5Ai0BXMx0ydlE//yncxzhIxldV1Xqpsojljrs/7Ve9inClN
hFbohAHKo3AEqcQ+Q2B4BwKmGJE4aAGOO+2wjgJLyjig6CIYYGKaioQpSO32
6QIDFce0ogCUabi6eLcd1kFgSLLp3DP8LA6z2luhTpObkdDT5QWo98QRpLb7
VD3FMXu92jfEJTjus8PaCwzmTe/XarYQpBr8FIGhdkmnLyQ6oPvtsJMFhgJh
XYumYQ/YYe0EBrcAGKiRhgWpG28rMKSvdKCLEBvHQ3bYSQLDG4EguCBgoOs4
HrbD9BpDLTWWO9w7iiBxBKk1DxUY5gp6AYkILHA8asAUSi+myQvcSIcJl7sA
H7ML0Isc+TEV5CzaZb4BG6RRISrHIyPmK0d9Hu+3ev+n33V2TvgnGb7ldA==
\
\>", "ImageResolution" -> \
72.],ExpressionUUID->"4a939e09-3f16-4db5-8c54-d8f46ebc1f23"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kval", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Rho]sol", " ", "=", " ", 
  RowBox[{"Root", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"odmcoef2", "[", 
      RowBox[{"kval", ",", "#1", ",", "\[Alpha]"}], "]"}], "&"}], ",", " ", 
    "1"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"odm2", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"odmcoef2", "[", 
         RowBox[{"k", ",", " ", "\[Rho]sol", ",", "\[Alpha]"}], "]"}], 
        RowBox[{"\[Lambda]", "^", "k"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "kval"}], "}"}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Error", " ", "at", " ", "g"}], "\[Rule]", "\[Infinity]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"1.0227656721131686`", " ", "-", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Rho]sol", " ", "\[Lambda]"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "4"}], ")"}]}], " ", "odm2"}]}], " ", "/.", " ", 
   RowBox[{"\[Lambda]", "\[Rule]", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "%", "]"}], ",", 
     RowBox[{"Im", "[", "%", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.835759867109112*^9, 3.835759958490698*^9}, {
  3.835760020535932*^9, 3.835760039333825*^9}},
 CellLabel->
  "In[399]:=",ExpressionUUID->"6d2c8771-4ab1-4145-ae54-66cc1e8760f4"],

Cell[BoxData[
 RowBox[{"Root", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "6144"}], " ", "\[Alpha]"}], "-", 
     RowBox[{"3200", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"560", " ", 
      SuperscriptBox["\[Alpha]", "3"]}], "-", 
     RowBox[{"40", " ", 
      SuperscriptBox["\[Alpha]", "4"]}], "-", 
     SuperscriptBox["\[Alpha]", "5"], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"28800", " ", "\[Alpha]"}], "+", 
        RowBox[{"66000", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{"45000", " ", 
         SuperscriptBox["\[Alpha]", "3"]}], "+", 
        RowBox[{"9375", " ", 
         SuperscriptBox["\[Alpha]", "4"]}]}], ")"}], " ", "#1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "302400"}], " ", "\[Alpha]"}], "-", 
        RowBox[{"1020600", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "-", 
        RowBox[{"765450", " ", 
         SuperscriptBox["\[Alpha]", "3"]}]}], ")"}], " ", 
      SuperscriptBox["#1", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"5405400", " ", "\[Alpha]"}], "+", 
        RowBox[{"17567550", " ", 
         SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", 
      SuperscriptBox["#1", "3"]}], "-", 
     RowBox[{"172297125", " ", "\[Alpha]", " ", 
      SuperscriptBox["#1", "4"]}], "+", 
     RowBox[{"654729075", " ", 
      SuperscriptBox["#1", "5"]}]}], "&"}], ",", "1"}], "]"}]], "Output",
 CellChangeTimes->{3.835759996248522*^9, 3.835760046914833*^9},
 CellLabel->
  "Out[400]=",ExpressionUUID->"3cc30436-9afd-4aae-a62b-c3b9e9855fad"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBcQSO+yFib1JlAgAAAEYAAAACAAAA5XcQQh65wz/Fwr7O+HzfP1hZoa/w
8cQ/kk6i+nE43z8L/4FcRx7PP+7uiBkaNt0/JVHu6MOL1D+spXhRYmTbP3fO
OT+Y9Nk/ypVd5NGE2T8XtBHeAQHfP947wyhW1tc/tuJDzM884j+uEW3jpRLW
P8JqnRtZ7OQ/Dr+TvE1k1D/1Jj0PrW3nPwpHQqTA3dI/AvmrEBsl6j9UDlm3
vUHRPzb/YLZTruw/sJW6jK6Xzz/MhDTOxirvPzyfcyj0zsw/H5Dr+anu8D9s
3Ocz8+DJP+v3397VMPI/qJS7m6E7xz+k6rvKDo7zPxBSSl3FdsQ/Dh2n7+Tk
9D9ETIb7XdnBP4xptWagJPY/sCL1gQkDvz/2QKvkaH/3PzDjPdjdJLo/dDLE
tBbD+D+YH0PI2c61P9+uxIvRIfo/sC6EWmpXsT/7atSbKXr7P5AsO+/VY6o/
K0EH/ma7/D8QHMORIRWjP0eiIWexF/4/wLc4skE9lz93HV8i4Vz/PwB3pQPx
NoQ/LOxVC9dNAEAArBqwMoNhvxMP8AjE+gBAAOp27yNAj78Ev5uvI5wBQEDw
1xRwuJ2/azS72QlLAkBgv7bSk3qnv6tJYqC+9gJA4Nc7+RVesL/16xoQ5pYD
QOC3rZwO+7S/tVNHA5REBEDQXDDwBES6v39IhZ+05gRAcFee+ylwv78h3UrY
o4UFQMBsRNOIW8K/OjeElBkyBkA44unXNFTFv1wez/kB0wZAGNvLwaUyyL/1
yo3icIEHQAATV9SnaMu/mARedFIkCEBgWG98sH/OvxPetaICxAhAgBDLWlHO
0L8FfYFUOXEJQIB6vI9HitK/AKler+ISCkAIAHK9eDPUv3Kar40SwgpAPKSk
BeYL1r+9K4gIEW4LQHg/n0Zm59e/EUpyLIIODEBIQcCXU63Zv9wt0NN5vAxA
uGmjXsWk27+wnj8k5F4NQIDlIndShd2/Xa82ER3+DUDIcKb5Smbfv4CFoYHc
qg5AxsHPIZa94L+t6B2bDkwPQFqlY2lnu+G/iJ2FYN5OD0BOlgIr4L/hv2RS
7SWuUQ9A8pTgUFnE4b8cvLywTVcPQHAJX8lMzeG/io9bxoxiD0DQUIttON/h
v2g2mfEKeQ9AKPLSgyID4r8ihBRIB6YPQDDNAvJBS+K//jh8DdeoD0C69jQ+
x0/iv9nt49Kmqw9AcszT7kxU4r+QV7NdRrEPQHydXX1ZXeK//ypSc4W8D0Cw
Fc1Pd2/iv9zRj54D0w9AAol6y8WT4r+4hvdj09UPQByYMl9RmOK/lDtfKaPY
D0D0jXBX3Zziv0ulLrRC3g9A6LKEdfal4r+6eM3JgekPQGjbO2gtuOK/li01
j1HsD0AID1EgvLziv3HinFQh7w9ATlv5PEvB4r8oTGzfwPQPQMLzCaRqyuK/
BAHUpJD3D0CennXu+s7iv+C1O2pg+g9AjB97nYvT4r+8aqMvMP0PQKopHLEc
2OK/lx8L9f//D0CQcVoprtzivzWONrk=
       "]]},
     Annotation[#, "Charting`Private`Tag$1232829#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF0HssFAAcB/A7To7LcXrY0bETlVdMUlJRWuRR82iyvCYkvZBWWk3X7qQQ
azcp70dKN47cWcsp42bLPNIxbNzVdZPHeZVzoe6qLb/fb/vuu89/3/2YcVdD
EnQIBELQ3/xr/4TJgfap64cJ/4/kY54io4d5rXtPeVFJMz0eHNA7/LqUng4O
j1e3PaazwePO933y6FxwxZZTWQ/pNWAWuXnnA7oAfCaikr+wKAZTtKxIX8t+
sG3w3GRnziD4Rp+HV9HSKNhMQJMSiTJwi9ynp/+gHNyRXGoRoVSAVTsOGddf
/gbWWeGZWNhOg921sS2hDUpwD9utr8t+HmxVMLNSN7cAnlHLpEMu38E1063d
1Ec/wFTGi3mFYgmce0GYWGGzDF725imSMtXgdFexYGvnT7CsQZwzwFwFryUP
FtvdWgM7HNHXJLb+AvtWMc83mWnwX4wY6y+RWrCj8jRlOIjgve5Nxgtk8Sqa
9L6Yv72ECL7o1jpqEKAD5p2Iq3i3jFbNmJtMFOqChaG+utxjJHCmH6dcMIFm
jvuPVHP0wAf2sbl01w3gSMv+FaIErerOk6ew9MFFpOj0EBsy7pcKq3TEaL07
rDCPVAMwoS6aLzc1BKc94+eZdqDbHLLJtCsUMM0/zfEedSN4zOmjJEOEbizz
slFEG4Gj+O40hgZ9l1PJGntFBddPMoqpgcbg7FJOrPQkOj5k1rYhGL1NJGoM
Ckc/zD/blRuHTnJ/umiYgbZmb/bTr0Vr9t82Gn6JHp39+qmWhy4Ib4463oTW
2odc44jQYwP5ZboS9Jss9TnJEJrrGWNXPYIOeL5bcFSKfnuz9wNrCl3otDc/
WIlOlZeEMefRuwIvydqX0CTiYE2BGv1Z6Jkcu4oWJVc7u/xGP7GiqLRa9B8U
Sxnt
       "]]},
     Annotation[#, "Charting`Private`Tag$1232829#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, 4}, {-0.5894385154420423, 0.4920026797290514}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.835759996248522*^9, 3.835760059952429*^9},
 CellLabel->
  "Out[403]=",ExpressionUUID->"7649d3ba-3db6-4501-bf3d-128b1fbc27a2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"realcoupling", "[", 
   RowBox[{"\[Rho]sol_", ",", "\[Alpha]val_", ",", "\[Lambda]r_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g", ",", "\[Theta]sol", ",", " ", "gval", ",", "ps"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Rho]sol", " ", 
         RowBox[{"\[Lambda]", " ", "/", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", "\[Alpha]"}]}]}], 
        ")"}], " ", "/.", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}], ",", 
         RowBox[{"\[Lambda]", "\[Rule]", 
          RowBox[{"\[Lambda]r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}]}], "}"}]}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"\[Theta]sol", "=", 
      RowBox[{"NSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Im", "[", "g", "]"}], "\[Equal]", "0"}], " ", "&&", " ", 
         RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", 
          RowBox[{"2", "\[Pi]"}]}]}], ",", " ", "\[Theta]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"gval", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Re", "[", "g", "]"}], " ", "/.", " ", 
         RowBox[{"\[Theta]sol", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "[", "\[Theta]sol", "]"}]}], "}"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"ps", "=", " ", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"gval", ",", " ", 
         RowBox[{"Max", "[", "gval", "]"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"gval", "[", 
        RowBox[{"[", "ps", "]"}], "]"}], ",", 
       RowBox[{"\[Theta]", " ", "/.", " ", 
        RowBox[{"\[Theta]sol", "[", 
         RowBox[{"[", "ps", "]"}], "]"}]}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8357556244212017`*^9, 3.8357557941896563`*^9}, {
   3.835755824414056*^9, 3.835755824644204*^9}, {3.835755947328622*^9, 
   3.835756017372813*^9}, {3.835756050172654*^9, 3.83575626069164*^9}, {
   3.8357563953997507`*^9, 3.83575658288317*^9}, {3.835756630444928*^9, 
   3.8357566621623774`*^9}, {3.835756731888316*^9, 3.835756816261511*^9}, {
   3.835756868378934*^9, 3.835757038011828*^9}, {3.835757069027306*^9, 
   3.835757156406885*^9}, {3.835757214357473*^9, 3.83575721926836*^9}, {
   3.835757337345099*^9, 3.8357573640790586`*^9}, 3.8357576008225517`*^9, {
   3.835758591495022*^9, 3.83575859494973*^9}, {3.835758658931962*^9, 
   3.8357586607484093`*^9}},
 CellLabel->
  "In[407]:=",ExpressionUUID->"02a073b3-a79d-4d95-b3da-de747101a945"],

Cell[BoxData[
 RowBox[{
  RowBox[{"odmlist", "[", 
   RowBox[{"\[Rho]sol_", ",", "\[Alpha]val_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g", ",", " ", "\[Theta]", ",", " ", "\[Lambda]val"}], "}"}], 
    ",", " ", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"g", ",", "\[Theta]"}], "}"}], "=", 
         RowBox[{"realcoupling", "[", 
          RowBox[{"\[Rho]sol", ",", "\[Alpha]val", ",", "\[Lambda]r"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Lambda]val", " ", "=", " ", 
         RowBox[{"\[Lambda]r", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"g", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Lambda]"}], ")"}], "^", 
              RowBox[{"(", 
               RowBox[{"\[Alpha]", "/", "4"}], ")"}]}], "odm2"}], ")"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}], ",", 
             RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]val"}]}], "}"}]}]}], 
         "}"}]}], "\[IndentingNewLine]", ")"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Lambda]r", ",", "0.1", ",", "0.9", ",", "0.2"}], "}"}]}], 
     "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.835755257187665*^9, 3.835755371853887*^9}, {
   3.835755403221971*^9, 3.835755506912212*^9}, {3.8357572747709703`*^9, 
   3.83575729405838*^9}, {3.835757352030899*^9, 3.8357573530309677`*^9}, {
   3.8357573967337303`*^9, 3.8357575635671587`*^9}, {3.835757616348729*^9, 
   3.8357576165797586`*^9}, 3.835757652308217*^9, {3.835758302610305*^9, 
   3.83575830279311*^9}},
 CellLabel->
  "In[408]:=",ExpressionUUID->"794ee385-1209-435b-9eaf-d723b49de7c6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"odmlist", "[", 
  RowBox[{"\[Rho]sol", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"Re", "[", "%", "]"}], "}"}], "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"quarticI", "[", "g", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"g", ",", "0", ",", "20"}], "}"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"%%", "[", 
    RowBox[{"[", 
     RowBox[{"-", "1"}], "]"}], "]"}], ",", " ", 
   RowBox[{"quarticI", "[", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "Input",\

 CellChangeTimes->{{3.835755440340361*^9, 3.8357554490025797`*^9}, {
  3.835755546895486*^9, 3.835755547030943*^9}, {3.835757552199965*^9, 
  3.835757554886409*^9}, {3.8357578557554483`*^9, 3.8357579141856127`*^9}, {
  3.835757975255289*^9, 3.835758084753441*^9}, {3.8357583280246487`*^9, 
  3.8357584138767433`*^9}, {3.835758702608755*^9, 3.835758702777725*^9}},
 CellLabel->
  "In[409]:=",ExpressionUUID->"d58e0a9d-8de3-4eee-b918-093efaebcecf"],

Cell[BoxData[
 TemplateBox[{
  "NSolve", "ratnz", 
   "\"NSolve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"", 2, 409, 110, 19375985638009649801, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8357602483173313`*^9, 3.83576026223236*^9}},
 CellLabel->
  "During evaluation of \
In[409]:=",ExpressionUUID->"2d77c333-5d59-4108-8ef6-e6aa87ae01ef"],

Cell[BoxData[
 TemplateBox[{
  "NSolve", "ratnz", 
   "\"NSolve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"", 2, 409, 111, 19375985638009649801, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8357602483173313`*^9, 3.83576026232136*^9}},
 CellLabel->
  "During evaluation of \
In[409]:=",ExpressionUUID->"7fb3adbe-8cff-43d3-8307-d273cb8c90b1"],

Cell[BoxData[
 TemplateBox[{
  "NSolve", "ratnz", 
   "\"NSolve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"", 2, 409, 112, 19375985638009649801, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8357602483173313`*^9, 3.8357602624070883`*^9}},
 CellLabel->
  "During evaluation of \
In[409]:=",ExpressionUUID->"edb293f5-1bfe-4d33-b53a-529f7ef62e45"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NSolve\\\", \\\"::\\\", \
\\\"ratnz\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 409, 113, 19375985638009649801, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8357602483173313`*^9, 3.835760262411303*^9}},
 CellLabel->
  "During evaluation of \
In[409]:=",ExpressionUUID->"9daf72f1-758a-40ef-ace8-95faf5d82693"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.018181189670168425`", ",", "0.9873142356271547`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.09016385897654958`", ",", "0.9488161079985384`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.2945352726567285`", ",", "0.88145624741249`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1454149492206116`", ",", "0.7575089788970514`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13.254087269552791`", ",", "0.48983957274097656`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.835755449666587*^9, 3.8357554734704533`*^9}, 
   3.83575550978671*^9, 3.835755547266473*^9, 3.835757545612378*^9, {
   3.835757618984191*^9, 3.835757639264906*^9}, 3.8357576724174147`*^9, 
   3.8357577513124*^9, {3.835757880185884*^9, 3.83575791553087*^9}, {
   3.8357579798639507`*^9, 3.8357579998934517`*^9}, {3.835758048456773*^9, 
   3.835758102585697*^9}, {3.835758313687931*^9, 3.835758341817073*^9}, 
   3.835758374747776*^9, {3.83575840503689*^9, 3.8357584296793413`*^9}, 
   3.8357588795337*^9, {3.8357602486921053`*^9, 3.835760262581176*^9}},
 CellLabel->
  "Out[409]=",ExpressionUUID->"ff1b70e9-c0df-453b-b1b1-33c75862d1ac"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0.018181189670168425`, 0.9873142356271547}, {
      0.09016385897654958, 0.9488161079985384}, {0.2945352726567285, 
      0.88145624741249}, {1.1454149492206116`, 0.7575089788970514}, {
      13.254087269552791`, 0.48983957274097656`}}]}, {{}, {}}}, {{{}, {}, 
     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$1239216#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]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 13.254087269552791`}, {0, 0.9873142356271547}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.835755449666587*^9, 3.8357554734704533`*^9}, 
   3.83575550978671*^9, 3.835755547266473*^9, 3.835757545612378*^9, {
   3.835757618984191*^9, 3.835757639264906*^9}, 3.8357576724174147`*^9, 
   3.8357577513124*^9, {3.835757880185884*^9, 3.83575791553087*^9}, {
   3.8357579798639507`*^9, 3.8357579998934517`*^9}, {3.835758048456773*^9, 
   3.835758102585697*^9}, {3.835758313687931*^9, 3.835758341817073*^9}, 
   3.835758374747776*^9, {3.83575840503689*^9, 3.8357584296793413`*^9}, 
   3.8357588795337*^9, {3.8357602486921053`*^9, 3.83576026261447*^9}},
 CellLabel->
  "Out[410]=",ExpressionUUID->"454c0edf-d788-49ad-8160-65ded1e02278"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"13.254087269552791`", ",", "0.48983957274097656`"}], "}"}], ",", 
   "0.490888192308439`"}], "}"}]], "Output",
 CellChangeTimes->{{3.835755449666587*^9, 3.8357554734704533`*^9}, 
   3.83575550978671*^9, 3.835755547266473*^9, 3.835757545612378*^9, {
   3.835757618984191*^9, 3.835757639264906*^9}, 3.8357576724174147`*^9, 
   3.8357577513124*^9, {3.835757880185884*^9, 3.83575791553087*^9}, {
   3.8357579798639507`*^9, 3.8357579998934517`*^9}, {3.835758048456773*^9, 
   3.835758102585697*^9}, {3.835758313687931*^9, 3.835758341817073*^9}, 
   3.835758374747776*^9, {3.83575840503689*^9, 3.8357584296793413`*^9}, 
   3.8357588795337*^9, {3.8357602486921053`*^9, 3.8357602626177073`*^9}},
 CellLabel->
  "Out[411]=",ExpressionUUID->"020447f1-bf2b-4e99-8cc4-788f3e424ab6"]
}, 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, 156, 3, 67, "Section",ExpressionUUID->"9d398e50-098b-4020-86d7-f489c0c068c3"],
Cell[CellGroupData[{
Cell[761, 29, 157, 3, 54, "Subsection",ExpressionUUID->"b482213f-24c9-4fb6-bdf7-1d939e6eba69"],
Cell[CellGroupData[{
Cell[943, 36, 898, 24, 30, "Input",ExpressionUUID->"c7cfaea7-bd1b-45ed-9531-812ab68afdec"],
Cell[1844, 62, 742, 21, 82, "Output",ExpressionUUID->"2c07ae2e-7722-4b58-b7f4-8f183eb90eca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2623, 88, 377, 10, 30, "Input",ExpressionUUID->"2893c510-6fb0-4a1d-81d2-98e80103629d"],
Cell[3003, 100, 190, 2, 34, "Output",ExpressionUUID->"08aa1ca3-ca71-4eb0-bb1c-642cb565367e"]
}, Open  ]],
Cell[3208, 105, 2515, 73, 234, "Input",ExpressionUUID->"d0488ab9-49e6-46e6-bc4d-dceddc18279a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5760, 183, 242, 4, 54, "Subsection",ExpressionUUID->"585d9628-9340-44a0-8855-08f98c31b043"],
Cell[6005, 189, 227, 5, 35, "Text",ExpressionUUID->"483c7967-c654-436e-8612-b838352dabfc"],
Cell[6235, 196, 714, 18, 52, "DisplayFormula",ExpressionUUID->"ab398939-d6c9-491a-adba-d3091d1ef8d0",
 InitializationCell->True],
Cell[6952, 216, 329, 5, 35, "Text",ExpressionUUID->"4625c5c1-dcd0-40e8-b705-e9e9446aaf33"],
Cell[7284, 223, 1213, 39, 71, "DisplayFormula",ExpressionUUID->"4884722f-86d5-462c-8417-252c2a6c803b"],
Cell[8500, 264, 452, 13, 35, "Text",ExpressionUUID->"6f690985-a400-48cb-abe5-eb51a2427271"],
Cell[8955, 279, 795, 24, 30, "DisplayFormula",ExpressionUUID->"008aec34-4f6e-4f8e-9976-56379d6dfb21"],
Cell[9753, 305, 3305, 74, 157, "Input",ExpressionUUID->"b4f8f2a3-eae0-4b2f-90da-26ec15d5a053"],
Cell[13061, 381, 3735, 79, 136, "Input",ExpressionUUID->"05e965e8-764e-4a87-bca7-9c238611d28b"]
}, Closed]],
Cell[CellGroupData[{
Cell[16833, 465, 181, 3, 38, "Subsection",ExpressionUUID->"35637567-3235-43cb-9909-e196db4516cf"],
Cell[17017, 470, 413, 8, 35, "Text",ExpressionUUID->"5c2b8573-f85a-4aca-a63c-c76cbfc18fa6"],
Cell[CellGroupData[{
Cell[17455, 482, 1062, 33, 30, "Input",ExpressionUUID->"9370c048-3e6f-4087-ac18-5e19ef768143"],
Cell[18520, 517, 1436, 39, 88, "Output",ExpressionUUID->"7b776316-2801-4c63-a0de-06d2afc9a6db"]
}, Open  ]],
Cell[19971, 559, 361, 8, 35, "Text",ExpressionUUID->"6f93cbeb-b7e4-45be-a969-2ebe63ead6c4"],
Cell[20335, 569, 487, 14, 52, "DisplayFormula",ExpressionUUID->"75558cde-c8cf-4d84-936b-6488cf808e02"],
Cell[20825, 585, 253, 4, 35, "Text",ExpressionUUID->"ef2e0b3c-0931-4a2d-a81f-7023ee084a25"],
Cell[21081, 591, 331, 9, 27, "DisplayFormula",ExpressionUUID->"daf935e2-7201-49f6-a42f-34819840911a"],
Cell[21415, 602, 182, 3, 35, "Text",ExpressionUUID->"94e20afe-0453-49d3-893a-fc1216d62e90"],
Cell[21600, 607, 1288, 37, 94, "Input",ExpressionUUID->"26b778df-8b81-4ee1-9f41-0f29a81a64b6"]
}, Closed]],
Cell[CellGroupData[{
Cell[22925, 649, 171, 3, 38, "Subsection",ExpressionUUID->"8e53ac2b-2a50-4c1f-bd6e-633043522134"],
Cell[23099, 654, 190, 3, 35, "Text",ExpressionUUID->"05400f04-8a50-4ac9-8414-409e85577d6a"],
Cell[23292, 659, 489, 13, 47, "DisplayFormula",ExpressionUUID->"f3133c3e-20ce-4767-bc96-11c6dbe8b31c"],
Cell[23784, 674, 383, 8, 58, "Text",ExpressionUUID->"877cee21-1b6d-4428-ab18-0b21d4cff8fd"],
Cell[CellGroupData[{
Cell[24192, 686, 1095, 33, 30, "Input",ExpressionUUID->"1aecb03a-ab71-4ab5-8a34-78a9541a70f6"],
Cell[25290, 721, 1523, 43, 87, "Output",ExpressionUUID->"2884bff5-57e2-40de-bdb6-5ac5d860229b"]
}, Open  ]],
Cell[26828, 767, 546, 15, 36, "Text",ExpressionUUID->"5f61c0d3-dcda-46eb-9b5f-d8ad00c44d30"],
Cell[27377, 784, 602, 18, 52, "DisplayFormula",ExpressionUUID->"8e544bdb-7ec0-4a3a-9987-71d3413cae97"],
Cell[27982, 804, 1290, 37, 104, "Input",ExpressionUUID->"be97a948-0474-4c04-aeaa-2701c77ad2e1"],
Cell[29275, 843, 419, 9, 104, "Text",ExpressionUUID->"aec7b80e-0522-4e06-aeb6-10a60d009b1b"],
Cell[29697, 854, 3187, 76, 178, "Input",ExpressionUUID->"68729040-91e3-4f21-a53c-831272c00155"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32933, 936, 249, 4, 67, "Section",ExpressionUUID->"7300fc66-5a0d-4365-8d2c-e4dd6b1aae6a"],
Cell[CellGroupData[{
Cell[33207, 944, 144, 2, 54, "Subsection",ExpressionUUID->"e983606d-3ee9-4cee-8b16-d9dddad7dc91"],
Cell[CellGroupData[{
Cell[33376, 950, 3612, 86, 220, "Input",ExpressionUUID->"62617217-86f4-48e4-a61c-2ea8a6c858f9"],
Cell[36991, 1038, 28382, 554, 255, "Output",ExpressionUUID->"f61e2f4d-e6b0-419d-a4c3-f05cb7b08cde"],
Cell[65376, 1594, 31010, 596, 258, "Output",ExpressionUUID->"4377da02-b3e8-4876-8125-fd150d43e67f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[96435, 2196, 306, 5, 38, "Subsection",ExpressionUUID->"2c04019c-09f8-4afb-8504-0f68f7c01070"],
Cell[CellGroupData[{
Cell[96766, 2205, 211, 4, 45, "Subsubsection",ExpressionUUID->"fad32a0b-ed49-4ea8-aafa-605f287c4b17"],
Cell[CellGroupData[{
Cell[97002, 2213, 7002, 183, 430, "Input",ExpressionUUID->"6ebf7bc0-10fe-4b79-8e45-e895f35a387e"],
Cell[104007, 2398, 1593, 36, 67, "Output",ExpressionUUID->"f718e8ac-23df-4004-9733-c829b4f45edf"],
Cell[105603, 2436, 8606, 161, 236, "Output",ExpressionUUID->"fd664b09-fd0e-4267-ab05-e28ab19799cb"],
Cell[114212, 2599, 946, 15, 34, "Output",ExpressionUUID->"1281d45f-88d9-4ecf-96a0-84938565187c"],
Cell[115161, 2616, 976, 16, 37, "Output",ExpressionUUID->"f6f6be32-791f-460b-84ed-b0e30b1fd908"],
Cell[116140, 2634, 958, 16, 34, "Output",ExpressionUUID->"e4de6977-21fd-4d5a-ba21-bd3d4f62c333"],
Cell[117101, 2652, 889, 13, 34, "Output",ExpressionUUID->"fb487a55-9272-4c86-ab3c-ec18d99a52d9"]
}, Open  ]],
Cell[118005, 2668, 4407, 109, 241, "Input",ExpressionUUID->"551e7daa-6820-4663-8256-cf90e814029c"],
Cell[CellGroupData[{
Cell[122437, 2781, 444, 8, 30, "Input",ExpressionUUID->"cce7978c-2392-4fed-b880-4ec4f28bf9d9"],
Cell[122884, 2791, 543, 13, 24, "Print",ExpressionUUID->"9589fbfc-81d3-424d-a60c-b5019b35a6ff"],
Cell[123430, 2806, 723, 11, 34, "Output",ExpressionUUID->"4078f287-2c48-4d2c-a6a2-476e49407c74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124190, 2822, 1135, 26, 52, "Input",ExpressionUUID->"1d4f778e-d5ce-497f-9d7c-7a2a78f26a63"],
Cell[125328, 2850, 1137, 28, 56, "Output",ExpressionUUID->"d47b32f0-6e85-4035-94d3-b778240a7b90"],
Cell[126468, 2880, 4048, 83, 242, "Output",ExpressionUUID->"9e8c5bf2-9b3c-495c-bd07-b4173b9508c9"]
}, Open  ]],
Cell[130531, 2966, 750, 21, 52, "Input",ExpressionUUID->"212ef46f-54c8-4a4c-9538-649dc562f18c"],
Cell[131284, 2989, 5164, 129, 619, "Input",ExpressionUUID->"45193b28-4084-41f8-9abf-694974c1d8d7"],
Cell[136451, 3120, 2164, 52, 178, "Input",ExpressionUUID->"8eeb7c63-6d42-4c40-a4ef-fa5eb475c951"],
Cell[CellGroupData[{
Cell[138640, 3176, 58792, 1147, 293, "Input",ExpressionUUID->"28fb6c44-6574-40f1-8127-8ce09c572434"],
Cell[197435, 4325, 34432, 675, 255, "Output",ExpressionUUID->"2c6260d1-dca5-4906-9700-9a101e08a26d"],
Cell[231870, 5002, 36464, 706, 258, "Output",ExpressionUUID->"afba73ca-ea0e-4aaf-a09c-598b6e69134e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268371, 5713, 3180, 85, 178, "Input",ExpressionUUID->"f74348df-9a6a-4e25-85ce-5334277cd223"],
Cell[271554, 5800, 8227, 167, 136, "Output",ExpressionUUID->"24988c0b-4591-4efc-89c0-3880a0580426"],
Cell[279784, 5969, 13071, 262, 134, "Output",ExpressionUUID->"1a043f65-3aa4-4944-8f92-1b098768f245"],
Cell[292858, 6233, 17388, 347, 262, "Output",ExpressionUUID->"55b5025e-2a36-485b-baf3-17001ff65bfa"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[310295, 6586, 161, 3, 37, "Subsubsection",ExpressionUUID->"2b9a9bdf-90d1-473d-840e-0588226490ec"],
Cell[CellGroupData[{
Cell[310481, 6593, 444, 12, 30, "Input",ExpressionUUID->"e078d972-456b-4925-a3e9-66c222382278"],
Cell[310928, 6607, 171, 3, 34, "Output",ExpressionUUID->"800b04c3-4359-403e-bad3-fb4e90d8a955"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311136, 6615, 4399, 100, 325, "Input",ExpressionUUID->"7d36bfdb-e78f-4bb5-8447-971ac7ef7c57"],
Cell[315538, 6717, 2345, 49, 67, "Output",ExpressionUUID->"70ef7d55-72bc-43bd-967c-db84cd144110"],
Cell[317886, 6768, 2649, 54, 59, "Output",ExpressionUUID->"70f65f54-3aec-4cc4-ba82-731f06f9aa90"],
Cell[320538, 6824, 2290, 47, 99, "Output",ExpressionUUID->"d57d034a-b571-40aa-abae-30e25c66bc6b"],
Cell[322831, 6873, 18398, 360, 240, "Output",ExpressionUUID->"8d238287-2bb9-40f9-83b0-8ef968ac6c45"],
Cell[341232, 7235, 1222, 17, 34, "Output",ExpressionUUID->"bf100f71-4a55-4b64-8826-c847a3242c10"],
Cell[342457, 7254, 3677, 79, 85, "Output",ExpressionUUID->"4d663d1a-74f8-40db-91c4-af0e55d9ddcf"],
Cell[346137, 7335, 5592, 108, 233, "Output",ExpressionUUID->"6c998c67-a25c-4a4a-88fb-f2009a32c957"],
Cell[351732, 7445, 1224, 17, 34, "Output",ExpressionUUID->"4cdf3397-f4c9-49c0-a498-9d2a578a681b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[353005, 7468, 240, 4, 45, "Subsubsection",ExpressionUUID->"f258716b-04d3-4884-8b73-271c2ccd48e0"],
Cell[CellGroupData[{
Cell[353270, 7476, 964, 26, 52, "Input",ExpressionUUID->"4269e276-6047-409a-b60e-83612bab5752"],
Cell[354237, 7504, 3509, 95, 143, "Output",ExpressionUUID->"455812a7-4362-430a-82f3-6cf0f257c856"]
}, Open  ]],
Cell[357761, 7602, 1204, 34, 64, "Input",ExpressionUUID->"ba180922-7e56-40de-8ec9-3ac00c0eafe9"],
Cell[CellGroupData[{
Cell[358990, 7640, 1258, 26, 73, "Input",ExpressionUUID->"440ce8f2-9040-46ed-923f-94da042dfb35"],
Cell[360251, 7668, 492, 9, 48, "Output",ExpressionUUID->"2be4ccbe-f14b-4029-9d78-4db8f219c344"],
Cell[360746, 7679, 414, 6, 34, "Output",ExpressionUUID->"58d5df72-2651-413e-aea7-615b42d45c30"],
Cell[361163, 7687, 416, 6, 34, "Output",ExpressionUUID->"c7c29d19-863c-4981-a9a1-e0f308fcc7ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361616, 7698, 4887, 129, 388, "Input",ExpressionUUID->"42e2b8d7-cb38-42ed-b704-0b7bc9ac9b0d"],
Cell[366506, 7829, 1657, 39, 67, "Output",ExpressionUUID->"4bb987b1-a41d-4134-a3b4-809ba669c342"],
Cell[368166, 7870, 1960, 44, 59, "Output",ExpressionUUID->"d0f2c5f3-c651-4589-b03b-bf6b8c36a811"],
Cell[370129, 7916, 6770, 158, 115, "Output",ExpressionUUID->"343b40db-cee6-4ca5-8cd1-5213563a620a"],
Cell[376902, 8076, 13135, 321, 579, "Output",ExpressionUUID->"520c1bd1-1c5a-4cde-9b1f-17685e170b5e"],
Cell[390040, 8399, 17701, 350, 240, "Output",ExpressionUUID->"670b131c-01d9-4cda-b296-0a5bfa264ba7"],
Cell[407744, 8751, 749, 14, 46, "Output",ExpressionUUID->"1452c3dc-e4ce-498c-ba74-a264d77c24f2"],
Cell[408496, 8767, 5804, 118, 239, "Output",ExpressionUUID->"ca1eca99-a6f5-48f9-a01c-55662bac4941"],
Cell[414303, 8887, 2986, 69, 85, "Output",ExpressionUUID->"55adc7ee-5992-4ce9-8b13-2afa4e66b775"],
Cell[417292, 8958, 4899, 98, 233, "Output",ExpressionUUID->"4f5ca388-f0f4-427c-ac01-27120a22304a"],
Cell[422194, 9058, 528, 7, 34, "Output",ExpressionUUID->"5559da82-d02d-4d5b-bcf9-2151e3f0e961"]
}, Open  ]],
Cell[422737, 9068, 444, 8, 30, "Input",ExpressionUUID->"d3f153c3-7074-49a4-9823-1b1c93f2a968"],
Cell[CellGroupData[{
Cell[423206, 9080, 5041, 132, 388, "Input",ExpressionUUID->"eec6a2bc-c0e2-4f9a-a020-e23563d4bfd3"],
Cell[428250, 9214, 1730, 40, 67, "Output",ExpressionUUID->"e796723a-6b59-4ba7-a03f-3ed69210e7ad"],
Cell[429983, 9256, 2033, 45, 59, "Output",ExpressionUUID->"5d5e1358-4c15-48d3-aa2c-4042b088f442"],
Cell[432019, 9303, 6843, 159, 115, "Output",ExpressionUUID->"9b19b97e-c0d6-4bc4-9c96-ad9bd17378d0"],
Cell[438865, 9464, 14002, 323, 680, "Output",ExpressionUUID->"f67fadf2-e331-4fb9-a456-0fb82b30f55b"],
Cell[452870, 9789, 17788, 351, 240, "Output",ExpressionUUID->"2ddeae7b-f843-463f-8616-c42e5b0de736"],
Cell[470661, 10142, 825, 15, 46, "Output",ExpressionUUID->"d058e043-2cd3-4948-ba26-291002e35d49"],
Cell[471489, 10159, 5928, 119, 239, "Output",ExpressionUUID->"2f573583-d185-4a2a-ae59-b26d3cc3549e"],
Cell[477420, 10280, 3061, 70, 85, "Output",ExpressionUUID->"7f6fe7e9-7349-4b26-b06d-60df98777aae"],
Cell[480484, 10352, 4976, 99, 233, "Output",ExpressionUUID->"dbbc0272-8994-4cca-9e41-f5ee295fae8a"],
Cell[485463, 10453, 603, 8, 34, "Output",ExpressionUUID->"b47041d1-fdad-4154-b0d0-5e1515f63bb9"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[486127, 10468, 173, 3, 38, "Subsection",ExpressionUUID->"0ce2fe26-987c-45d3-b2d2-8b3c4b5324e4"],
Cell[CellGroupData[{
Cell[486325, 10475, 7441, 149, 397, "Input",ExpressionUUID->"1ea603e6-b213-46af-9276-9768372a95fb"],
Cell[493769, 10626, 4136, 67, 119, "Output",ExpressionUUID->"d0872922-8603-4923-af21-3410b89ebbfb"],
Cell[497908, 10695, 1959, 28, 34, "Output",ExpressionUUID->"8431c92f-1e98-4857-a888-e2901fb3e544"],
Cell[499870, 10725, 1926, 27, 34, "Output",ExpressionUUID->"25c00752-0d29-41eb-acf3-d95147c962aa"],
Cell[501799, 10754, 1924, 27, 34, "Output",ExpressionUUID->"b8152001-e6ef-46f7-8b5d-b8376c9b1372"],
Cell[503726, 10783, 2013, 30, 37, "Output",ExpressionUUID->"153d74ed-bf46-4a10-b8b6-2d6bf4848e54"],
Cell[505742, 10815, 25611, 494, 232, "Output",ExpressionUUID->"e32704a9-b351-4704-8fc1-851fcff3e878"],
Cell[531356, 11311, 1944, 28, 34, "Output",ExpressionUUID->"435fa377-2c99-4e8e-a984-1341b9063197"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[533361, 11346, 206, 4, 67, "Section",ExpressionUUID->"6a957ec7-07ab-4b46-8889-9fc87041ed03"],
Cell[533570, 11352, 190, 3, 35, "Text",ExpressionUUID->"adc7d9a4-9086-4648-b244-0fc59a1901c1"],
Cell[533763, 11357, 548, 13, 45, "DisplayFormula",ExpressionUUID->"c4c3e875-655b-4a5b-8ac5-963b4b1e93f8"],
Cell[CellGroupData[{
Cell[534336, 11374, 1199, 34, 52, "Input",ExpressionUUID->"729a40bd-d8f5-4791-b6ea-8138e3835d53"],
Cell[535538, 11410, 1603, 45, 85, "Output",ExpressionUUID->"df12eb7f-4024-496f-b938-5d924e7abb7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[537178, 11460, 1002, 25, 30, "Input",ExpressionUUID->"c14624cf-073c-4185-8441-4443bf5a26c2"],
Cell[538183, 11487, 591, 16, 57, "Output",ExpressionUUID->"dcb6a39a-017a-4f1d-b8ea-d372622b1051"]
}, Open  ]],
Cell[538789, 11506, 3071, 75, 239, "Input",ExpressionUUID->"eb602480-7167-44c7-8c5d-694298b767b2"],
Cell[CellGroupData[{
Cell[541885, 11585, 961, 18, 94, "Input",ExpressionUUID->"b17dd533-aa34-4b64-8a35-ac41e6bf5ff4"],
Cell[542849, 11605, 640, 16, 51, "Output",ExpressionUUID->"7a393921-8cf3-43c5-b3cd-ea0431c8112e"],
Cell[543492, 11623, 2008, 59, 130, "Output",ExpressionUUID->"e56a0fa7-bb95-4955-9888-ca7c56d25a90"],
Cell[545503, 11684, 1491, 46, 58, "Output",ExpressionUUID->"5a3080c5-16f7-4eea-b857-5092a288ab9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[547031, 11735, 2181, 58, 169, "Input",ExpressionUUID->"b55ac9f9-faba-491f-b3eb-7b2624b00ad1"],
Cell[549215, 11795, 762, 20, 57, "Output",ExpressionUUID->"8bfffeb8-7ba4-4133-8b9d-549e66ab47cd"],
Cell[549980, 11817, 1264, 36, 59, "Output",ExpressionUUID->"c67e3d3c-cf49-4608-b814-e3cfa9b2a5db"],
Cell[551247, 11855, 9067, 173, 231, "Output",ExpressionUUID->"64cc49c2-afbd-4c84-863f-afed10f29a15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[560351, 12033, 2336, 64, 138, "Input",ExpressionUUID->"4b4d1dbc-a62d-49f2-8562-f4a6c751a085"],
Cell[562690, 12099, 2278, 62, 98, "Output",ExpressionUUID->"0c37a18e-6ab5-4a5a-8ea3-425920c49453"],
Cell[564971, 12163, 2935, 79, 98, "Output",ExpressionUUID->"1b805f7c-6a04-4ae9-86cc-8ee3238338cf"],
Cell[567909, 12244, 11178, 206, 231, 4566, 96, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"4a939e09-3f16-4db5-8c54-d8f46ebc1f23"]
}, Open  ]],
Cell[CellGroupData[{
Cell[579124, 12455, 1705, 48, 136, "Input",ExpressionUUID->"6d2c8771-4ab1-4145-ae54-66cc1e8760f4"],
Cell[580832, 12505, 1687, 47, 83, "Output",ExpressionUUID->"3cc30436-9afd-4aae-a62b-c3b9e9855fad"],
Cell[582522, 12554, 4463, 95, 231, "Output",ExpressionUUID->"7649d3ba-3db6-4501-bf3d-128b1fbc27a2"]
}, Open  ]],
Cell[587000, 12652, 3005, 72, 142, "Input",ExpressionUUID->"02a073b3-a79d-4d95-b3da-de747101a945"],
Cell[590008, 12726, 2086, 49, 163, "Input",ExpressionUUID->"794ee385-1209-435b-9eaf-d723b49de7c6"],
Cell[CellGroupData[{
Cell[592119, 12779, 1185, 31, 73, "Input",ExpressionUUID->"d58e0a9d-8de3-4eee-b918-093efaebcecf"],
Cell[593307, 12812, 481, 10, 42, "Message",ExpressionUUID->"2d77c333-5d59-4108-8ef6-e6aa87ae01ef"],
Cell[593791, 12824, 481, 10, 42, "Message",ExpressionUUID->"7fb3adbe-8cff-43d3-8307-d273cb8c90b1"],
Cell[594275, 12836, 484, 10, 42, "Message",ExpressionUUID->"edb293f5-1bfe-4d33-b53a-529f7ef62e45"],
Cell[594762, 12848, 481, 10, 24, "Message",ExpressionUUID->"9daf72f1-758a-40ef-ace8-95faf5d82693"],
Cell[595246, 12860, 1195, 24, 56, "Output",ExpressionUUID->"ff1b70e9-c0df-453b-b1b1-33c75862d1ac"],
Cell[596444, 12886, 4736, 93, 246, "Output",ExpressionUUID->"454c0edf-d788-49ad-8160-65ded1e02278"],
Cell[601183, 12981, 840, 15, 82, "Output",ExpressionUUID->"020447f1-bf2b-4e99-8cc4-788f3e424ab6"]
}, Open  ]]
}, Open  ]]
}
]
*)