Some work.HEADmaster

1 files changed, 1255 insertions, 0 deletions

diff --git a/caselle_compare_2nb.nb b/caselle_compare_2nb.nb
new file mode 100644
index 0000000..68c1caa
--- /dev/null
+++ b/caselle_compare_2nb.nb
@@ -0,0 +1,1255 @@
+(* 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 *)
+