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

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

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     51082,       1245]
NotebookOptionsPosition[     46863,       1174]
NotebookOutlinePosition[     47255,       1190]
CellTagsIndexPosition[     47212,       1187]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Get", "[", 
  "\"\<~/doc/research/first_order_singularities/paper/IsingScalingFunction.wl\
\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.904294245329715*^9, 3.904294272680094*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"8861b958-81f2-4de2-b6f6-2949b5d18820"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"castest", "=", 
  RowBox[{
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"2", ",", "7"}], "]"}], ",", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "6"}], "}"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"DScriptMCasD\[Eta]List", "[", 
         RowBox[{"DataCas", "[", "2", "]"}], "]"}], "[", "5", "]"}]}]}], 
     "}"}], "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.904294276264942*^9, 3.904294310664956*^9}, {
   3.904294355643044*^9, 3.904294367146028*^9}, {3.904294574669956*^9, 
   3.904294581302743*^9}, {3.904294757978594*^9, 3.9042947589373713`*^9}, {
   3.904294959349716*^9, 3.9042950197269907`*^9}, {3.904295069040153*^9, 
   3.9042950707038517`*^9}, {3.9042951038167133`*^9, 3.904295139768777*^9}, 
   3.904295178490686*^9, {3.9042958346868277`*^9, 3.904295843638595*^9}, {
   3.90429733361961*^9, 3.904297333811123*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"c8881b4c-983b-40d9-adac-dce1d52aa135"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2.`", ",", 
     RowBox[{"-", "\[Infinity]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", 
     RowBox[{"-", "\[Infinity]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.`", ",", 
     RowBox[{"-", "\[Infinity]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.`", ",", "Indeterminate"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.904295840517601*^9, 3.904295863121759*^9}, {
   3.9042972009737062`*^9, 3.904297202948735*^9}, 3.904297316268012*^9, 
   3.904297382202108*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"9e9a7f87-7c4b-4db8-b644-a242b762d190"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ourtest", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"DScriptF0D\[Eta]List", "@@", 
      RowBox[{"PrepareArgument", "[", 
       RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", 
    RowBox[{"5", ",", "1"}], "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.904294860388315*^9, 3.9042949515897093`*^9}, {
  3.904295044511445*^9, 3.9042950455511217`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"9e33e378-57cc-4077-8c23-ee4b0a4ba44d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1.1974378008271835`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.31907264609656283`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.11091443628541109`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.016509650519848356`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.00031411211128264577`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.0005146254923647323`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.90429490389577*^9, 3.9042949528420477`*^9}, {
   3.904294998727845*^9, 3.904295046529663*^9}, {3.9042951169849367`*^9, 
   3.904295142011281*^9}, 3.904295180276587*^9, 3.904295866984446*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"3b03069f-e883-42b0-a938-fedc5c785081"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"Abs", "@", 
   RowBox[{"{", 
    RowBox[{"\[CapitalPhi]s", ",", "ourtest", ",", "castest"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9042950344177027`*^9, 3.904295073567689*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"f1660eeb-8ae8-4771-b70c-47e3a8eb7754"],

Cell[BoxData[
 GraphicsBox[{{{
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{3., -2.199250858729474}, {3., -2.1992508587114377`}}], 
         LineBox[{{3., -2.1992508587114377`}, {3., -2.199250858693401}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{4., -4.108835370883289}, {4., -4.108835369665774}}], 
         LineBox[{{4., -4.108835369665774}, {4., -4.108835368448258}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{5., -8.23957016697712}, {5., -8.239569788186014}}], 
         LineBox[{{5., -8.239569788186014}, {5., -8.23956940939505}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{6., -7.57318515764723}, {6., -7.573184963114589}}], 
         LineBox[{{6., -7.573184963114589}, {6., -7.573184768581987}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{7., -8.473827235511466}, {7., -8.473822447718424}}], 
         LineBox[{{7., -8.473822447718424}, {7., -8.473817659948304}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{8., -10.012900713523315`}, {8., -10.012878401308493`}}], 
         LineBox[{{8., -10.012878401308493`}, {8., -10.012856089591494`}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{9., -14.970693198120777`}, {9., -14.967523623359499`}}], 
         LineBox[{{9., -14.967523623359499`}, {9., -14.96436406306913}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{10., -12.356895535264757`}, {10., -12.354572653848617`}}], 
         LineBox[{{10., -12.354572653848617`}, {10., -12.352255155708255`}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{11., -13.13241371325783}, {11., -13.127375919227873`}}], 
         LineBox[{{11., -13.127375919227873`}, {11., -13.122363377404328`}}]}},
       Antialiasing->False]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{3., -2.199250858693401}, 
            Offset[{3, 0}, {3., -2.199250858693401}]}, {{
            3., -2.199250858693401}, 
            Offset[{-3, 0}, {3., -2.199250858693401}]}, {{
            3., -2.199250858729474}, 
            Offset[{3, 0}, {3., -2.199250858729474}]}, {{
            3., -2.199250858729474}, 
            Offset[{-3, 0}, {3., -2.199250858729474}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{4., -4.108835368448258}, 
            Offset[{3, 0}, {4., -4.108835368448258}]}, {{
            4., -4.108835368448258}, 
            Offset[{-3, 0}, {4., -4.108835368448258}]}, {{
            4., -4.108835370883289}, 
            Offset[{3, 0}, {4., -4.108835370883289}]}, {{
            4., -4.108835370883289}, 
            Offset[{-3, 0}, {4., -4.108835370883289}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{5., -8.23956940939505}, 
            Offset[{3, 0}, {5., -8.23956940939505}]}, {{
            5., -8.23956940939505}, 
            Offset[{-3, 0}, {5., -8.23956940939505}]}, {{
            5., -8.23957016697712}, 
            Offset[{3, 0}, {5., -8.23957016697712}]}, {{
            5., -8.23957016697712}, 
            Offset[{-3, 0}, {5., -8.23957016697712}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{6., -7.573184768581987}, 
            Offset[{3, 0}, {6., -7.573184768581987}]}, {{
            6., -7.573184768581987}, 
            Offset[{-3, 0}, {6., -7.573184768581987}]}, {{
            6., -7.57318515764723}, 
            Offset[{3, 0}, {6., -7.57318515764723}]}, {{
            6., -7.57318515764723}, 
            Offset[{-3, 0}, {6., -7.57318515764723}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{7., -8.473817659948304}, 
            Offset[{3, 0}, {7., -8.473817659948304}]}, {{
            7., -8.473817659948304}, 
            Offset[{-3, 0}, {7., -8.473817659948304}]}, {{
            7., -8.473827235511466}, 
            Offset[{3, 0}, {7., -8.473827235511466}]}, {{
            7., -8.473827235511466}, 
            Offset[{-3, 0}, {7., -8.473827235511466}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{8., -10.012856089591494`}, 
            Offset[{3, 0}, {8., -10.012856089591494`}]}, {{
            8., -10.012856089591494`}, 
            Offset[{-3, 0}, {8., -10.012856089591494`}]}, {{
            8., -10.012900713523315`}, 
            Offset[{3, 0}, {8., -10.012900713523315`}]}, {{
            8., -10.012900713523315`}, 
            Offset[{-3, 0}, {8., -10.012900713523315`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{9., -14.96436406306913}, 
            Offset[{3, 0}, {9., -14.96436406306913}]}, {{
            9., -14.96436406306913}, 
            Offset[{-3, 0}, {9., -14.96436406306913}]}, {{
            9., -14.970693198120777`}, 
            Offset[{3, 0}, {9., -14.970693198120777`}]}, {{
            9., -14.970693198120777`}, 
            Offset[{-3, 0}, {9., -14.970693198120777`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{10., -12.352255155708255`}, 
            Offset[{3, 0}, {10., -12.352255155708255`}]}, {{
            10., -12.352255155708255`}, 
            Offset[{-3, 0}, {10., -12.352255155708255`}]}, {{
            10., -12.356895535264757`}, 
            Offset[{3, 0}, {10., -12.356895535264757`}]}, {{
            10., -12.356895535264757`}, 
            Offset[{-3, 0}, {10., -12.356895535264757`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{11., -13.122363377404328`}, 
            Offset[{3, 0}, {11., -13.122363377404328`}]}, {{
            11., -13.122363377404328`}, 
            Offset[{-3, 0}, {11., -13.122363377404328`}]}, {{
            11., -13.13241371325783}, 
            Offset[{3, 0}, {11., -13.13241371325783}]}, {{
            11., -13.13241371325783}, 
            Offset[{-3, 0}, {11., -13.13241371325783}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}}}, 
   InterpretationBox[{
     TagBox[{
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{1., 0.18043092383827275`}, {2., -1.1431595731895612`}, {
          3., -2.1992508587114377`}, {4., -4.108835369665774}, {
          5., -8.239569788186014}, {6., -7.573184963114589}, {
          7., -8.473822447718424}, {8., -10.012878401308493`}, {
          9., -14.967523623359499`}, {10., -12.354572653848617`}, {
          11., -13.127375919227873`}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{1., 0.1801841080998339}, {2., -1.1423364714137663`}, {
          3., -2.1989962191985946`}, {4., -4.103810189060431}, {
          5., -8.065760593479036}, {6., -7.57207112112998}}]},
        Annotation[#, "Charting`Private`Tag#2"]& ], 
       TagBox[
        {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{2., -0.9218075646421646}, {3., -5.349285388582857}, {
          4., -4.037348264148434}, {5., -4.875683974574631}, {
          6., -7.010966114383607}, {7., -7.45246624254697}}]},
        Annotation[#, "Charting`Private`Tag#3"]& ]},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{
          Annotation[{
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]], 
            
            Point[{{1., 0.18043092383827275`}, {2., -1.1431595731895612`}, {
             3., -2.1992508587114377`}, {4., -4.108835369665774}, {
             5., -8.239569788186014}, {6., -7.573184963114589}, {
             7., -8.473822447718424}, {8., -10.012878401308493`}, {
             9., -14.967523623359499`}, {10., -12.354572653848617`}, {
             11., -13.127375919227873`}}]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[2]], 
            
            Point[{{1., 0.1801841080998339}, {2., -1.1423364714137663`}, {
             3., -2.1989962191985946`}, {4., -4.103810189060431}, {
             5., -8.065760593479036}, {6., -7.57207112112998}}]}, 
           "Charting`Private`Tag#2"], 
          Annotation[{
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.560181, 0.691569, 0.194885], 
             AbsoluteThickness[2]], 
            
            Point[{{2., -0.9218075646421646}, {3., -5.349285388582857}, {
             4., -4.037348264148434}, {5., -4.875683974574631}, {
             6., -7.010966114383607}, {7., -7.45246624254697}}]}, 
           "Charting`Private`Tag#3"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PlotRange" -> {{0., 
             11.}, {-16.156354643745974`, 
              0.18043092383827276183497595745137112076`15.256310972792258}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0., -16.156354643745974`}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[2]], 
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[2]], 
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Exp[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
           "Primitives" -> {}, "GCFlag" -> False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{0., 
            11.}, {-16.156354643745974`, 
             0.18043092383827276183497595745137112076`15.256310972792258}}, 
          "Frame" -> {{False, False}, {False, False}}, 
          "AxesOrigin" -> {0., -16.156354643745974`}, 
          "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.560181, 0.691569, 0.194885], 
             AbsoluteThickness[2]], 
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[2]], 
            Directive[
             PointSize[0.012833333333333334`], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Exp[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
          "Primitives" -> {}, "GCFlag" -> False|>, 
        "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListPlot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{1., 0.18043092383827275`}, {2., -1.1431595731895612`}, {
          3., -2.1992508587114377`}, {4., -4.108835369665774}, {
          5., -8.239569788186014}, {6., -7.573184963114589}, {
          7., -8.473822447718424}, {8., -10.012878401308493`}, {
          9., -14.967523623359499`}, {10., -12.354572653848617`}, {
          11., -13.127375919227873`}}]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2]], 
         Point[{{1., 0.1801841080998339}, {2., -1.1423364714137663`}, {
          3., -2.1989962191985946`}, {4., -4.103810189060431}, {
          5., -8.065760593479036}, {6., -7.57207112112998}}]}, 
        "Charting`Private`Tag#2"], 
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2]], 
         Point[{{2., -0.9218075646421646}, {3., -5.349285388582857}, {
          4., -4.037348264148434}, {5., -4.875683974574631}, {
          6., -7.010966114383607}, {7., -7.45246624254697}}]}, 
        "Charting`Private`Tag#3"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PlotRange" -> {{0., 
          11.}, {-16.156354643745974`, 
           0.18043092383827276183497595745137112076`15.256310972792258}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0., -16.156354643745974`}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
        "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -16.156354643745974`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {-16.156354643745974`, 0.18043092383827275`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0]}, {
    Automatic, {{-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 
          0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-6.907755278982137, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.904295051561068*^9, 3.904295073785268*^9}, {
   3.904295117050866*^9, 3.904295142078001*^9}, 3.904295180341357*^9, 
   3.904295867220212*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"247ec957-b845-4e37-a49c-a627e31cf9d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "1.16951", "]"}]], "Input",
 CellChangeTimes->{{3.904295309316988*^9, 3.904295313676331*^9}, {
  3.904295367862049*^9, 3.904295370165359*^9}, {3.904295411006793*^9, 
  3.9042954146702623`*^9}, {3.9042954722160263`*^9, 
  3.904295475087414*^9}},ExpressionUUID->"915f4570-3c11-443f-ba20-\
0e101a65f85d"],

Cell[BoxData["1.079078310411251`"], "Output",
 CellChangeTimes->{3.904295313928844*^9, 3.904295370720072*^9, 
  3.904295415247345*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"88b90945-96a7-44d9-ba64-fcd3bc5329f8"]
}, Open  ]],

Cell[BoxData["1"], "Input",
 CellChangeTimes->{
  3.904295156529663*^9},ExpressionUUID->"70f06980-fceb-4ccd-8db7-\
3677340566ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalPhi]s", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.904296019300721*^9, 3.9042960208259706`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"9495ae9c-88b9-4989-ad80-7c6dea597541"],

Cell[BoxData[
 RowBox[{"-", "0.31881012489061`"}]], "Output",
 CellChangeTimes->{3.904296021007484*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"a322351c-5c4e-46e6-aa7b-88fe1c6c027e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DScriptMCasD\[Eta]List", "[", 
    RowBox[{"DataCas", "[", "4", "]"}], "]"}], "[", 
   RowBox[{"1", ",", "1"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9042960401946173`*^9, 3.904296055058302*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"9452f3f3-3fa2-4aa8-80b7-294e0f586368"],

Cell[BoxData["0.011323023797314785`"], "Output",
 CellChangeTimes->{{3.904296030351758*^9, 3.9042960552267313`*^9}},
 CellLabel->"Out[24]=",ExpressionUUID->"d9182823-a681-4a0d-9190-7835b33ee3dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DScriptMCasD\[Xi]List", "[", 
   RowBox[{"DataCas", "[", "5", "]"}], "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.904296093868104*^9, 3.9042961241237803`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"09467d82-09bb-46f0-b554-8f62ebb9b1cd"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 25, 3, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124472308*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"1265041d-082b-46cd-a8f0-dcfab5815f20"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 25, 4, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124477688*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"b39558c0-2040-4fe7-afbe-3e5a7612d064"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 25, 5, 23725455768631783963, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124512054*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"978573a6-966f-4bf6-bbd1-573fa7bc88ab"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 25, 6, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124516045*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"98fa9263-6a66-46e6-ac01-4b3ad3eb595f"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 25, 7, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124519102*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"1f113347-0bdd-4685-985a-2a875f0c613e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 25, 8, 23725455768631783963, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124524341*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"2667a3df-89c1-494d-9667-2c9d5dbe1502"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 25, 9, 23725455768631783963, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.904296124527913*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"7158adc8-878f-4330-9c68-c5bdb98230b2"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 25, 10, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.9042961245311823`*^9},
 CellLabel->
  "During evaluation of \
In[25]:=",ExpressionUUID->"39dd93a4-41e2-48ee-9e6e-314799940caf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"ComplexInfinity", ",", "Indeterminate"}], "}"}]], "Output",
 CellChangeTimes->{3.904296124534574*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"8de7e965-03e3-431b-a4be-9da4e88bb702"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m0Cas", "[", 
  RowBox[{"DataCas", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.904296133996367*^9, 3.904296143572279*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"ef5f94b5-2b79-43b9-a8e6-89ab72ea29d7"],

Cell[BoxData[
 RowBox[{"m0Cas", "[", 
  RowBox[{"\[LeftAssociation]", 
   RowBox[{
    RowBox[{"\<\"\[Theta]0\"\>", "\[Rule]", "1.079078310411251`"}], ",", 
    RowBox[{"\<\"gs\"\>", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "0.219388`"}], ",", 
       RowBox[{"-", "0.041791`"}], ",", 
       RowBox[{"-", "0.013488`"}]}], "}"}]}], ",", 
    RowBox[{"\<\"\[Rho]\"\>", "\[Rule]", "2.0077`"}]}], 
   "\[RightAssociation]"}], "]"}]], "Output",
 CellChangeTimes->{3.904296144137517*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"f3f52d82-06af-4cfc-beb9-e8b699409c75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"castest", "=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"DScriptMCasD\[Eta]List", "[", 
            RowBox[{"DataCas", "[", "k", "]"}], "]"}], "[", 
           RowBox[{"1", ",", "1"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "+", 
        RowBox[{"\[CapitalPhi]s", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "2", ",", "5"}], "}"}]}], "]"}], "//", 
   "N"}]}]], "Input",
 CellChangeTimes->{{3.904295945120613*^9, 3.904296011066345*^9}, {
  3.904297170680503*^9, 3.904297171023962*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"aae85514-d241-40dd-a75a-048f5ee9648e"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 30, 19, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.904297171216605*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"630d7734-9c48-4e11-a310-b32933f2ee4a"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 30, 20, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.904297171222148*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"21d383f3-2ba5-4877-9527-1d64a782954d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 30, 21, 23725455768631783963,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.904297171225709*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"486a6448-019f-42a4-85b2-35779b497211"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 30, 22, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.904297171228862*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6f6b8276-f2c5-4162-80eb-18e9e87f9949"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 30, 23, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.9042971712319403`*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b628eb32-e81d-49d3-a1cd-149fbc61e9e5"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 30, 24, 23725455768631783963,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.904297171235475*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"265c2b61-3342-4898-8309-a0cad5834f2b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 30, 25, 23725455768631783963,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.9042971712386103`*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"79976062-d0ab-49e3-a892-a33c3e1c43ff"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 30, 26, 23725455768631783963, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9042971426455708`*^9, 3.9042971712415447`*^9}},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ee547acd-2ff6-4b62-ab7a-257e268f3fb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2.`", ",", 
     RowBox[{
      RowBox[{"-", "0.31881012489061`"}], "+", 
      RowBox[{"0.5`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "0.039788735772973836`"}], " ", 
          RowBox[{"Log", "[", 
           SuperscriptBox[
            RowBox[{"\[Eta]", "[", 
             RowBox[{"1.0736759287606292`", ",", 
              RowBox[{"{", 
               RowBox[{"0.2731881074761689`", ",", 
                RowBox[{"-", "0.05693458710289341`"}]}], "}"}]}], "]"}], "2"],
            "]"}]}], "-", 
         RowBox[{"1.197733383797993`", " ", 
          SuperscriptBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{"1.0736759287606292`", ",", 
             RowBox[{"{", 
              RowBox[{"0.2731881074761689`", ",", 
               RowBox[{"-", "0.05693458710289341`"}]}], "}"}]}], "]"}], 
           "2"]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", 
     RowBox[{
      RowBox[{"-", "0.31881012489061`"}], "+", 
      RowBox[{"0.5`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "0.039788735772973836`"}], " ", 
          RowBox[{"Log", "[", 
           SuperscriptBox[
            RowBox[{"\[Eta]", "[", 
             RowBox[{"1.0767543823918249`", ",", 
              RowBox[{"{", 
               RowBox[{"0.272718114610426`", ",", 
                RowBox[{"-", "0.05881847936860363`"}], ",", 
                RowBox[{"-", "0.010745911869994617`"}]}], "}"}]}], "]"}], 
            "2"], "]"}]}], "-", 
         RowBox[{"1.197733383797993`", " ", 
          SuperscriptBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{"1.0767543823918249`", ",", 
             RowBox[{"{", 
              RowBox[{"0.272718114610426`", ",", 
               RowBox[{"-", "0.05881847936860363`"}], ",", 
               RowBox[{"-", "0.010745911869994617`"}]}], "}"}]}], "]"}], 
           "2"]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", 
     RowBox[{
      RowBox[{"-", "0.31881012489061`"}], "+", 
      RowBox[{"0.5`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "0.039788735772973836`"}], " ", 
          RowBox[{"Log", "[", 
           SuperscriptBox[
            RowBox[{"\[Eta]", "[", 
             RowBox[{"1.079078310411251`", ",", 
              RowBox[{"{", 
               RowBox[{"0.272718114610426`", ",", 
                RowBox[{"-", "0.05983108172815214`"}], ",", 
                RowBox[{"-", "0.011397162727684313`"}], ",", 
                RowBox[{"-", "0.003678421929865426`"}]}], "}"}]}], "]"}], 
            "2"], "]"}]}], "-", 
         RowBox[{"1.197733383797993`", " ", 
          SuperscriptBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{"1.079078310411251`", ",", 
             RowBox[{"{", 
              RowBox[{"0.272718114610426`", ",", 
               RowBox[{"-", "0.05983108172815214`"}], ",", 
               RowBox[{"-", "0.011397162727684313`"}], ",", 
               RowBox[{"-", "0.003678421929865426`"}]}], "}"}]}], "]"}], 
           "2"]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", 
     RowBox[{
      RowBox[{"-", "0.31881012489061`"}], "+", 
      RowBox[{"0.5`", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "0.039788735772973836`"}], " ", 
          RowBox[{"Log", "[", 
           SuperscriptBox[
            RowBox[{"\[Eta]", "[", 
             RowBox[{"1.0814388563390904`", ",", 
              RowBox[{"{", 
               RowBox[{"0.27286889266851116`", ",", 
                RowBox[{"-", "0.06068304017165753`"}], ",", 
                RowBox[{"-", "0.011882621669035656`"}], ",", 
                RowBox[{"-", "0.004040915431527982`"}], ",", 
                RowBox[{"-", "0.001955924222647888`"}]}], "}"}]}], "]"}], 
            "2"], "]"}]}], "-", 
         RowBox[{"1.197733383797993`", " ", 
          SuperscriptBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{"1.0814388563390904`", ",", 
             RowBox[{"{", 
              RowBox[{"0.27286889266851116`", ",", 
               RowBox[{"-", "0.06068304017165753`"}], ",", 
               RowBox[{"-", "0.011882621669035656`"}], ",", 
               RowBox[{"-", "0.004040915431527982`"}], ",", 
               RowBox[{"-", "0.001955924222647888`"}]}], "}"}]}], "]"}], 
           "2"]}]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.904295966671215*^9, 3.9042960112588997`*^9}, {
  3.904297142674638*^9, 3.904297171244854*^9}},
 CellLabel->"Out[30]=",ExpressionUUID->"95aa2eb1-67be-41e1-b35f-bdc4394e9da1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "castest", "]"}]], "Input",
 CellChangeTimes->{{3.904295977553668*^9, 3.904295979304986*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"76f935a1-981b-49a8-9e8b-337039807f78"],

Cell[BoxData[
 GraphicsBox[{{}, {}, {{}, {}}},
  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->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.5463762149523378}, {-0.11386917420578682`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.904295979514624*^9, 3.904296011858904*^9}, 
   3.904297165423973*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"3a315a7e-9c7c-48f2-afdd-5bff99d3cad0"]
}, Open  ]]
},
WindowSize->{630, 1010.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.3 for Linux x86 (64-bit) (July 24, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9a646958-7bcf-4952-a2b9-e394adf10ab8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 282, 5, 22, "Input",ExpressionUUID->"8861b958-81f2-4de2-b6f6-2949b5d18820"],
Cell[CellGroupData[{
Cell[865, 29, 1137, 26, 22, "Input",ExpressionUUID->"c8881b4c-983b-40d9-adac-dce1d52aa135"],
Cell[2005, 57, 792, 21, 25, "Output",ExpressionUUID->"9e9a7f87-7c4b-4db8-b644-a242b762d190"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2834, 83, 483, 11, 22, "Input",ExpressionUUID->"9e33e378-57cc-4077-8c23-ee4b0a4ba44d"],
Cell[3320, 96, 1021, 22, 44, "Output",ExpressionUUID->"3b03069f-e883-42b0-a938-fedc5c785081"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4378, 123, 322, 7, 22, "Input",ExpressionUUID->"f1660eeb-8ae8-4771-b70c-47e3a8eb7754"],
Cell[4703, 132, 22681, 507, 178, "Output",ExpressionUUID->"247ec957-b845-4e37-a49c-a627e31cf9d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27421, 644, 337, 6, 22, "Input",ExpressionUUID->"915f4570-3c11-443f-ba20-0e101a65f85d"],
Cell[27761, 652, 213, 3, 25, "Output",ExpressionUUID->"88b90945-96a7-44d9-ba64-fcd3bc5329f8"]
}, Open  ]],
Cell[27989, 658, 129, 3, 22, "Input",ExpressionUUID->"70f06980-fceb-4ccd-8db7-3677340566ea"],
Cell[CellGroupData[{
Cell[28143, 665, 237, 4, 22, "Input",ExpressionUUID->"9495ae9c-88b9-4989-ad80-7c6dea597541"],
Cell[28383, 671, 182, 3, 25, "Output",ExpressionUUID->"a322351c-5c4e-46e6-aa7b-88fe1c6c027e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28602, 679, 362, 8, 22, "Input",ExpressionUUID->"9452f3f3-3fa2-4aa8-80b7-294e0f586368"],
Cell[28967, 689, 195, 2, 25, "Output",ExpressionUUID->"d9182823-a681-4a0d-9190-7835b33ee3dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29199, 696, 307, 6, 22, "Input",ExpressionUUID->"09467d82-09bb-46f0-b554-8f62ebb9b1cd"],
Cell[29509, 704, 431, 10, 32, "Message",ExpressionUUID->"1265041d-082b-46cd-a8f0-dcfab5815f20"],
Cell[29943, 716, 431, 10, 32, "Message",ExpressionUUID->"b39558c0-2040-4fe7-afbe-3e5a7612d064"],
Cell[30377, 728, 406, 10, 22, "Message",ExpressionUUID->"978573a6-966f-4bf6-bbd1-573fa7bc88ab"],
Cell[30786, 740, 431, 10, 32, "Message",ExpressionUUID->"98fa9263-6a66-46e6-ac01-4b3ad3eb595f"],
Cell[31220, 752, 449, 10, 22, "Message",ExpressionUUID->"1f113347-0bdd-4685-985a-2a875f0c613e"],
Cell[31672, 764, 406, 10, 22, "Message",ExpressionUUID->"2667a3df-89c1-494d-9667-2c9d5dbe1502"],
Cell[32081, 776, 406, 10, 22, "Message",ExpressionUUID->"7158adc8-878f-4330-9c68-c5bdb98230b2"],
Cell[32490, 788, 456, 10, 22, "Message",ExpressionUUID->"39dd93a4-41e2-48ee-9e6e-314799940caf"],
Cell[32949, 800, 220, 4, 25, "Output",ExpressionUUID->"8de7e965-03e3-431b-a4be-9da4e88bb702"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33206, 809, 237, 4, 22, "Input",ExpressionUUID->"ef5f94b5-2b79-43b9-a8e6-89ab72ea29d7"],
Cell[33446, 815, 596, 14, 25, "Output",ExpressionUUID->"f3f52d82-06af-4cfc-beb9-e8b699409c75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34079, 834, 821, 22, 22, "Input",ExpressionUUID->"aae85514-d241-40dd-a75a-048f5ee9648e"],
Cell[34903, 858, 458, 10, 32, "Message",ExpressionUUID->"630d7734-9c48-4e11-a310-b32933f2ee4a"],
Cell[35364, 870, 458, 10, 32, "Message",ExpressionUUID->"21d383f3-2ba5-4877-9527-1d64a782954d"],
Cell[35825, 882, 433, 10, 22, "Message",ExpressionUUID->"486a6448-019f-42a4-85b2-35779b497211"],
Cell[36261, 894, 458, 10, 32, "Message",ExpressionUUID->"6f6b8276-f2c5-4162-80eb-18e9e87f9949"],
Cell[36722, 906, 478, 10, 22, "Message",ExpressionUUID->"b628eb32-e81d-49d3-a1cd-149fbc61e9e5"],
Cell[37203, 918, 433, 10, 22, "Message",ExpressionUUID->"265c2b61-3342-4898-8309-a0cad5834f2b"],
Cell[37639, 930, 435, 10, 22, "Message",ExpressionUUID->"79976062-d0ab-49e3-a892-a33c3e1c43ff"],
Cell[38077, 942, 482, 10, 22, "Message",ExpressionUUID->"ee547acd-2ff6-4b62-ab7a-257e268f3fb5"],
Cell[38562, 954, 4694, 117, 163, "Output",ExpressionUUID->"95aa2eb1-67be-41e1-b35f-bdc4394e9da1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43293, 1076, 212, 3, 22, "Input",ExpressionUUID->"76f935a1-981b-49a8-9e8b-337039807f78"],
Cell[43508, 1081, 3339, 90, 169, "Output",ExpressionUUID->"3a315a7e-9c7c-48f2-afdd-5bff99d3cad0"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)