From f9fc90631253da8bea10694fe0d90dd393c546e6 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Mon, 11 Dec 2023 18:06:08 +0100 Subject: Some work. --- caselle_compare_2nb.nb | 1255 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 1255 insertions(+) create mode 100644 caselle_compare_2nb.nb (limited to 'caselle_compare_2nb.nb') 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 *) + -- cgit v1.2.3-70-g09d2