summaryrefslogtreecommitdiff
path: root/caselle_compare_2nb.nb
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2023-12-11 18:06:08 +0100
committerJaron Kent-Dobias <jaron@kent-dobias.com>2023-12-11 18:06:08 +0100
commitf9fc90631253da8bea10694fe0d90dd393c546e6 (patch)
treea86403e382f66a945d4b7974aeee9354ab5f0db5 /caselle_compare_2nb.nb
parent8aeb86c75c525887119655f72a5f2ef5d68b0940 (diff)
downloadmma-master.tar.gz
mma-master.tar.bz2
mma-master.zip
Some work.HEADmaster
Diffstat (limited to 'caselle_compare_2nb.nb')
-rw-r--r--caselle_compare_2nb.nb1255
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 *)
+