diff --git a/Manuscript/ufGW.tex b/Manuscript/ufGW.tex index d7b6393..e79ea6e 100644 --- a/Manuscript/ufGW.tex +++ b/Manuscript/ufGW.tex @@ -132,6 +132,8 @@ \title{The $GW$ conundrum} +\author{Enzo \surname{Monino}} + \affiliation{\LCPQ} \author{Pierre-Fran\c{c}ois \surname{Loos}} \email{loos@irsamc.ups-tlse.fr} \affiliation{\LCPQ} diff --git a/Notebooks/GW_conundrum.nb b/Notebooks/GW_conundrum.nb new file mode 100644 index 0000000..e806822 --- /dev/null +++ b/Notebooks/GW_conundrum.nb @@ -0,0 +1,1042 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 13.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 42511, 1034] +NotebookOptionsPosition[ 40318, 991] +NotebookOutlinePosition[ 40770, 1009] +CellTagsIndexPosition[ 40727, 1006] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Epsilon]4", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.0", ",", "23.284472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.025", ",", "23.540448"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.05", ",", "23.781121"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.075", ",", "24.002084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.1", ",", "24.196931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "24.355758"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "24.463104"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "24.497569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "24.439877"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "24.289859"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "24.069414"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "23.805244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "23.516919"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "23.216331"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "22.910393"}], "}"}]}], "}"}]}], ";"}]], "Input",Ex\ +pressionUUID->"682f75fb-1edd-4aa6-a4ad-b597c5f869c9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Epsilon]5", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.1", ",", "27.103397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "26.784466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "26.509573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "26.299399"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "26.172614"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "26.128902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "26.146006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "26.197002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "26.262232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "26.329847"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "26.393103"}], "}"}]}], "}"}]}], ";"}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"35c12977-2872-4eab-be4f-329f455172b3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"\[Epsilon]4", ",", "\[Epsilon]5"}], "}"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"59810817-5144-4818-800a-a2ceb8fcd500"], + +Cell[BoxData[ + GraphicsBox[{{}, {{}, {}, + {RGBColor[0.790588, 0.201176, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 23.284472}, {1.025, 23.540448}, {1.05, 23.781121}, {1.075, + 24.002084}, {1.1, 24.196931}, {1.125, 24.355758}, {1.15, 24.463104}, { + 1.175, 24.497569}, {1.2, 24.439877}, {1.225, 24.289859}, {1.25, + 24.069414}, {1.275, 23.805244}, {1.3, 23.516919}, {1.325, 23.216331}, { + 1.35, 22.910393}}]}, + {RGBColor[0.192157, 0.388235, 0.807843], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1.1, 27.103397}, {1.125, 26.784466}, {1.15, 26.509573}, {1.175, + 26.299399}, {1.2, 26.172614}, {1.225, 26.128902}, {1.25, 26.146006}, { + 1.275, 26.197002}, {1.3, 26.262232}, {1.325, 26.329847}, {1.35, + 26.393103}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{False, False}, + AxesLabel->{None, None}, + AxesOrigin->{0.9927083333333359, 22.677448333333384`}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{{ + StrokeForm[ + Opacity[0]], + StrokeForm[ + Opacity[0]]}, {Automatic, None}}, + FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}, { + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{23., + FormBox["23", TraditionalForm], {0.01, 0.}}, {24., + FormBox["24", TraditionalForm], {0.01, 0.}}, {25., + FormBox["25", TraditionalForm], {0.01, 0.}}, {26., + FormBox["26", TraditionalForm], {0.01, 0.}}, {27., + FormBox["27", TraditionalForm], {0.01, 0.}}}, None}, {{{1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.1, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.1\"", ShowStringCharacters -> False], + 1.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.2\"", ShowStringCharacters -> False], + 1.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.3, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.3\"", ShowStringCharacters -> False], + 1.3`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.4, 0.5], + AbsoluteThickness[1], + AbsoluteDashing[{1, 2}]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0.9927083333333359, 1.35}, {22.677448333333384`, 27.103397}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output",\ + + CellLabel->"Out[15]=",ExpressionUUID->"814e3769-9eaf-4e1a-8956-617c8e61d77e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Z4", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.0", ",", "0.964721"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.025", ",", "0.961772"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.05", ",", "0.956999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.075", ",", "0.948699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.1", ",", "0.933404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "0.904167"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "0.848555"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "0.751875"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "0.616552"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "0.476710"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "0.365270"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "0.287739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "0.235707"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "0.200378"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "0.175725"}], "}"}]}], "}"}]}], ";"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"5f735bd6-ba1a-4987-b9f7-8ff4ac674345"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Z5", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.1", ",", "0.021813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "0.048282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "0.100987"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "0.194635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "0.326815"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "0.463419"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "0.571546"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "0.645708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "0.694337"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "0.726254"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "0.747506"}], "}"}]}], "}"}]}], ";"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"5928cf25-152d-4cb2-9ce3-3f99ce9557d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"Z4", ",", "Z5"}], "}"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"33a86cd9-4a3d-4b09-91de-2cbb886a6250"], + +Cell[BoxData[ + GraphicsBox[{{}, {{}, {}, + {RGBColor[0.790588, 0.201176, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.964721}, {1.025, 0.961772}, {1.05, 0.956999}, {1.075, + 0.948699}, {1.1, 0.933404}, {1.125, 0.904167}, {1.15, 0.848555}, {1.175, + 0.751875}, {1.2, 0.616552}, {1.225, 0.47671}, {1.25, 0.36527}, {1.275, + 0.287739}, {1.3, 0.235707}, {1.325, 0.200378}, {1.35, 0.175725}}]}, + {RGBColor[0.192157, 0.388235, 0.807843], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1.1, 0.021813}, {1.125, 0.048282}, {1.15, 0.100987}, {1.175, + 0.194635}, {1.2, 0.326815}, {1.225, 0.463419}, {1.25, 0.571546}, {1.275, + 0.645708}, {1.3, 0.694337}, {1.325, 0.726254}, {1.35, + 0.747506}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{False, False}, + AxesLabel->{None, None}, + AxesOrigin->{0.9927083333333359, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{{ + StrokeForm[ + Opacity[0]], + StrokeForm[ + Opacity[0]]}, {Automatic, None}}, + FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}, { + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., + FormBox["0", TraditionalForm], {0.01, 0.}}, {0.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.2\"", ShowStringCharacters -> False], + 0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.4, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.4\"", ShowStringCharacters -> False], + 0.4`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.6, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.6\"", ShowStringCharacters -> False], + 0.6`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.8, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.8\"", ShowStringCharacters -> False], + 0.8`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}, {{{1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.1, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.1\"", ShowStringCharacters -> False], + 1.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.2\"", ShowStringCharacters -> False], + 1.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.3, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.3\"", ShowStringCharacters -> False], + 1.3`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.4, 0.5], + AbsoluteThickness[1], + AbsoluteDashing[{1, 2}]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0.9927083333333359, 1.35}, {0, 0.964721}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output",\ + + CellLabel->"Out[20]=",ExpressionUUID->"d32fbdb3-4ad8-4d05-aa55-4c32ff841fbc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"ZZ4", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.0", ",", "0.000259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.025", ",", "0.001499"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.05", ",", "0.004661"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.075", ",", "0.011599"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.1", ",", "0.026034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "0.055329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "0.112492"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "0.212615"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "0.352622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "0.496698"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "0.610946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "0.690069"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "0.742975"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "0.778807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "0.803778"}], "}"}]}], "}"}]}], ";"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"051138e6-33b2-49e1-b570-b5e33fd33d7f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"ZZ5", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.1", ",", "0.947557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.125", ",", "0.917757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.15", ",", "0.860133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.175", ",", "0.759591"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "0.619206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.225", ",", "0.474792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.25", ",", "0.360243"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.275", ",", "0.280855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "0.227717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.325", ",", "0.191686"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.35", ",", "0.166547"}], "}"}]}], "}"}]}], ";"}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"37bd2bc4-e119-4f55-88d4-845984e63c22"], + +Cell[BoxData[ + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"(", "1", ")"}], " ", "\[Rule]", " ", + RowBox[{"(", + RowBox[{"2", ",", "2"}], ")"}]}], " ", "*)"}]], "Input",ExpressionUUID->\ +"c2496421-c71c-4de1-a28d-dd9067951fda"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"ZZ4", ",", "ZZ5"}], "}"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bbbc4763-dda3-4da9-8ff0-9b7dc9932b23"], + +Cell[BoxData[ + GraphicsBox[{{}, {{}, {}, + {RGBColor[0.790588, 0.201176, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.000259}, {1.025, 0.001499}, {1.05, 0.004661}, {1.075, + 0.011599}, {1.1, 0.026034}, {1.125, 0.055329}, {1.15, 0.112492}, {1.175, + 0.212615}, {1.2, 0.352622}, {1.225, 0.496698}, {1.25, 0.610946}, { + 1.275, 0.690069}, {1.3, 0.742975}, {1.325, 0.778807}, {1.35, + 0.803778}}]}, + {RGBColor[0.192157, 0.388235, 0.807843], PointSize[0.012833333333333334`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1.1, 0.947557}, {1.125, 0.917757}, {1.15, 0.860133}, {1.175, + 0.759591}, {1.2, 0.619206}, {1.225, 0.474792}, {1.25, 0.360243}, {1.275, + 0.280855}, {1.3, 0.227717}, {1.325, 0.191686}, {1.35, + 0.166547}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{False, False}, + AxesLabel->{None, None}, + AxesOrigin->{0.9927083333333359, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{{ + StrokeForm[ + Opacity[0]], + StrokeForm[ + Opacity[0]]}, {Automatic, None}}, + FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}, { + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., + FormBox["0", TraditionalForm], {0.01, 0.}}, {0.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.2\"", ShowStringCharacters -> False], + 0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.4, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.4\"", ShowStringCharacters -> False], + 0.4`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.6, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.6\"", ShowStringCharacters -> False], + 0.6`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.8, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.8\"", ShowStringCharacters -> False], + 0.8`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}, {{{1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.1, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.1\"", ShowStringCharacters -> False], + 1.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.2\"", ShowStringCharacters -> False], + 1.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.3, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.3\"", ShowStringCharacters -> False], + 1.3`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.4, 0.5], + AbsoluteThickness[1], + AbsoluteDashing[{1, 2}]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0.9927083333333359, 1.35}, {0, 0.947557}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output",\ + + CellLabel->"Out[17]=",ExpressionUUID->"cad1c286-e9fa-457d-9d0f-e5060da9432b"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"eps", "=", + RowBox[{"Import", "[", "\"\<~/Dropbox/quack/H2_6-31g_e_3.dat\>\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"epsZ", "=", + RowBox[{"Import", "[", "\"\<~/Dropbox/quack/H2_6-31g_Z_3.dat\>\"", "]"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.851224781838089*^9, 3.8512248063112907`*^9}, + 3.8512252162611103`*^9, {3.851225406389719*^9, 3.8512254135446*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"c351c0eb-ffe9-41ea-b9a4-ee9c001a879d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"eps", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"eps", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "n"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"n", ",", "2", ",", "10"}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "eps", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", + CellChangeTimes->{{3.85122480749051*^9, 3.851224864147612*^9}, { + 3.851224940625348*^9, 3.851225002439535*^9}, {3.851225040451601*^9, + 3.851225091883659*^9}, {3.851225124903017*^9, 3.851225125940886*^9}, { + 3.851225330238618*^9, 3.851225355378878*^9}, {3.851225388992231*^9, + 3.851225389155015*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"3dc691e1-f05a-4c4c-8978-c337f01f76cf"], + +Cell[BoxData[ + GraphicsBox[{{}, {{}, {}, + {RGBColor[0.790588, 0.201176, 0.], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., -67.071819}, {1.025, -66.241153}, {1.05, -65.450083}, { + 1.075, -64.6967}, {1.1, -63.979235}, {1.125, -63.296047}, { + 1.15, -62.645614}, {1.175, -62.026518}, {1.2, -61.43744}, { + 1.225, -60.877141}, {1.25, -60.344459}, {1.275, -59.838294}, { + 1.3, -59.357603}, {1.325, -58.901389}, {1.35, -58.468692}, { + 1.375, -58.216274}, {1.4, -57.824379}}]}, + {RGBColor[0.192157, 0.388235, 0.807843], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., -58.623711}, {1.025, -58.563333}, {1.05, -58.504956}, { + 1.075, -58.447203}, {1.1, -58.388713}, {1.125, -58.32816}, { + 1.15, -58.264269}, {1.175, -58.195841}, {1.2, -58.121769}, { + 1.225, -58.041055}, {1.25, -57.952826}, {1.275, -57.85634}, { + 1.3, -57.750997}, {1.325, -57.636343}, {1.35, -57.512066}, { + 1.375, -57.270398}, {1.4, -57.128207}}]}, + {RGBColor[1., 0.607843, 0.], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., -38.390529}, {1.025, -38.020108}, {1.05, -37.657111}, { + 1.075, -37.301375}, {1.1, -36.952753}, {1.125, -36.611115}, { + 1.15, -36.276346}, {1.175, -35.94834}, {1.2, -35.627002}, { + 1.225, -35.312246}, {1.25, -35.003991}, {1.275, -34.70216}, { + 1.3, -34.406679}, {1.325, -34.117473}, {1.35, -33.83447}, { + 1.375, -33.641535}, {1.4, -33.37055}}]}, + {RGBColor[0., 0.596078, 0.109804], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 23.284472}, {1.025, 23.540448}, {1.05, 23.781121}, {1.075, + 24.002084}, {1.1, 24.196931}, {1.125, 24.355758}, {1.15, 24.463104}, { + 1.175, 24.497569}, {1.2, 24.439877}, {1.225, 24.289859}, {1.25, + 24.069414}, {1.275, 23.805244}, {1.3, 23.516919}, {1.325, 23.216331}, { + 1.35, 22.910393}, {1.375, 23.258001}, {1.4, 22.954121}}]}, + {RGBColor[0.567426, 0.32317, 0.729831], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 28.599216}, {1.025, 28.204056}, {1.05, 27.820422}, {1.075, + 27.451719}, {1.1, 27.103397}, {1.125, 26.784466}, {1.15, 26.509573}, { + 1.175, 26.299399}, {1.2, 26.172614}, {1.225, 26.128902}, {1.25, + 26.146006}, {1.275, 26.197002}, {1.3, 26.262232}, {1.325, 26.329847}, { + 1.35, 26.393103}, {1.375, 25.591742}, {1.4, 25.484738}}]}, + {RGBColor[0., 0.588235, 0.705882], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 48.641983}, {1.025, 48.588177}, {1.05, 48.504272}, {1.075, + 48.419204}, {1.1, 48.331931}, {1.125, 48.241414}, {1.15, 48.14664}, { + 1.175, 48.046638}, {1.2, 47.940507}, {1.225, 47.827425}, {1.25, + 47.706672}, {1.275, 47.577637}, {1.3, 47.439833}, {1.325, 47.292895}, { + 1.35, 47.136588}, {1.375, 47.241166}, {1.4, 47.066894}}]}, + {RGBColor[0.8505, 0.4275, 0.13185], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 48.671943}, {1.025, 48.750422}, {1.05, 48.854852}, {1.075, + 48.953891}, {1.1, 49.0462}, {1.125, 49.130498}, {1.15, 49.205585}, { + 1.175, 49.270359}, {1.2, 49.323832}, {1.225, 49.365142}, {1.25, + 49.393571}, {1.275, 49.408547}, {1.3, 49.298772}, {1.325, 48.828426}, { + 1.35, 48.380629}, {1.375, 47.758995}, {1.4, 47.337534}}]}, + {RGBColor[0.499929, 0.285875, 0.775177], PointSize[0.009166666666666668], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 56.04421}, {1.025, 55.439455}, {1.05, 54.85986}, {1.075, + 54.296173}, {1.1, 53.734711}, {1.125, 53.16163}, {1.15, 52.575077}, { + 1.175, 51.986525}, {1.2, 51.408299}, {1.225, 50.847802}, {1.25, + 50.308585}, {1.275, 49.792109}, {1.3, 49.40965}, {1.325, 49.396616}, { + 1.35, 49.369333}, {1.375, 49.130262}, {1.4, 48.867172}}]}, + {RGBColor[0.12490296143062507`, 0.63, 0.47103259454284074`], PointSize[ + 0.009166666666666668], AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 57.406912}, {1.025, 56.577538}, {1.05, 55.796352}, {1.075, + 55.069086}, {1.1, 54.406125}, {1.125, 53.818231}, {1.15, 53.304366}, { + 1.175, 52.850334}, {1.2, 52.441244}, {1.225, 52.06726}, {1.25, + 51.722515}, {1.275, 51.403338}, {1.3, 51.107209}, {1.325, 50.832237}, { + 1.35, 50.576893}, {1.375, 50.46715}, {1.4, 50.432833}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{False, False}, + AxesLabel->{None, None}, + AxesOrigin->{0.9916666666666691, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{{ + StrokeForm[ + Opacity[0]], + StrokeForm[ + Opacity[0]]}, {Automatic, None}}, + FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}, { + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{-50., + FormBox[ + RowBox[{"-", "50"}], TraditionalForm], {0.01, 0.}}, {-25., + FormBox[ + RowBox[{"-", "25"}], TraditionalForm], {0.01, 0.}}, {0., + FormBox["0", TraditionalForm], {0.01, 0.}}, {25., + FormBox["25", TraditionalForm], {0.01, 0.}}, {50., + FormBox["50", TraditionalForm], {0.01, 0.}}}, None}, {{{1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.1, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.1\"", ShowStringCharacters -> False], + 1.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.2\"", ShowStringCharacters -> False], + 1.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.3, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.3\"", ShowStringCharacters -> False], + 1.3`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.4, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.4\"", ShowStringCharacters -> False], + 1.4`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.4, 0.5], + AbsoluteThickness[1], + AbsoluteDashing[{1, 2}]], + ImageSize->{723.3671875, Automatic}, + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0.9916666666666691, 1.4}, {-67.071819, 57.406912}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output",\ + + CellChangeTimes->{{3.851224944105775*^9, 3.8512250028919086`*^9}, { + 3.851225043024221*^9, 3.851225092347924*^9}, 3.851225126310198*^9, + 3.851225223079907*^9, {3.851225330489601*^9, 3.851225355948699*^9}, + 3.851225389588039*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"dad67ae9-473d-49b3-a4ed-6cc27aca3cc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"epsZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"epsZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "n"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"n", ",", "3", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "eps", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", + CellChangeTimes->{{3.851225420601947*^9, 3.851225434580069*^9}, { + 3.851225492872567*^9, 3.851225492962043*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"e9d7c473-f53c-4be4-9780-1cba856893ff"], + +Cell[BoxData[ + GraphicsBox[{{}, {{}, {}, + {RGBColor[0.790588, 0.201176, 0.], PointSize[0.011000000000000001`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.001932}, {1.025, 0.001864}, {1.05, 0.0018}, {1.075, + 0.001738}, {1.1, 0.00168}, {1.125, 0.001625}, {1.15, 0.001574}, {1.175, + 0.001527}, {1.2, 0.001483}, {1.225, 0.001443}, {1.25, 0.001405}, {1.275, + 0.001372}, {1.3, 0.001341}, {1.325, 0.001313}, {1.35, 0.001289}, { + 1.375, 0.}, {1.4, 0.}}]}, + {RGBColor[0.192157, 0.388235, 0.807843], PointSize[0.011000000000000001`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.}, {1.025, 0.}, {1.05, 0.}, {1.075, 0.}, {1.1, 0.}, { + 1.125, 0.}, {1.15, 0.}, {1.175, 0.}, {1.2, 0.}, {1.225, 0.}, {1.25, + 0.}, {1.275, 0.}, {1.3, 0.}, {1.325, 0.}, {1.35, 0.}, {1.375, + 0.001369}, {1.4, 0.001375}}]}, + {RGBColor[1., 0.607843, 0.], PointSize[0.011000000000000001`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.964721}, {1.025, 0.961772}, {1.05, 0.956999}, {1.075, + 0.948699}, {1.1, 0.933404}, {1.125, 0.904167}, {1.15, 0.848555}, {1.175, + 0.751875}, {1.2, 0.616552}, {1.225, 0.47671}, {1.25, 0.36527}, {1.275, + 0.287739}, {1.3, 0.235707}, {1.325, 0.200378}, {1.35, 0.175725}, {1.375, + 0.}, {1.4, 0.}}]}, + {RGBColor[0., 0.596078, 0.109804], PointSize[0.011000000000000001`], + AbsoluteThickness[3], CapForm["Butt"], + LineBox[{{1., 0.000059}, {1.025, 0.000852}, {1.05, 0.00331}, {1.075, + 0.00914}, {1.1, 0.021813}, {1.125, 0.048282}, {1.15, 0.100987}, {1.175, + 0.194635}, {1.2, 0.326815}, {1.225, 0.463419}, {1.25, 0.571546}, {1.275, + 0.645708}, {1.3, 0.694337}, {1.325, 0.726254}, {1.35, 0.747506}, { + 1.375, 0.91574}, {1.4, 0.915323}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{False, False}, + AxesLabel->{None, None}, + AxesOrigin->{0.9916666666666691, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{{ + StrokeForm[ + Opacity[0]], + StrokeForm[ + Opacity[0]]}, {Automatic, None}}, + FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}, { + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., + FormBox["0", TraditionalForm], {0.01, 0.}}, {0.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.2\"", ShowStringCharacters -> False], + 0.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.4, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.4\"", ShowStringCharacters -> False], + 0.4`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.6, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.6\"", ShowStringCharacters -> False], + 0.6`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 0.8, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.8\"", ShowStringCharacters -> False], + 0.8`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}, {{{1., + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.0\"", ShowStringCharacters -> False], + 1.`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.1, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.1\"", ShowStringCharacters -> False], + 1.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.2, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.2\"", ShowStringCharacters -> False], + 1.2`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.3, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.3\"", ShowStringCharacters -> False], + 1.3`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, { + 1.4, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"1.4\"", ShowStringCharacters -> False], + 1.4`15.954589770191003, AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}}, + None}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.4, 0.5], + AbsoluteThickness[1], + AbsoluteDashing[{1, 2}]], + Method->{ + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0.9916666666666691, 1.4}, {0, 0.964721}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& , + Charting`FindScaledTicks[ + (Charting`SimpleTicks[#, #2, 6]& )[ + SlotSequence[1]], {Identity, Identity}, RotateLabel -> 0]& }]], "Output",\ + + CellChangeTimes->{{3.85122542357023*^9, 3.851225434992806*^9}, { + 3.851225486314489*^9, 3.851225493333332*^9}}, + CellLabel->"Out[34]=",ExpressionUUID->"2a2efd1e-215b-4367-831c-d3eaaa63ec02"] +}, Open ]] +}, +WindowSize->{808, 911}, +WindowMargins->{{Automatic, 710}, {Automatic, 181}}, +PrintingCopies->1, +PrintingPageRange->{1, Automatic}, +FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (December 2, 2021)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c947be63-9aef-4192-bf26-b635965432d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 1276, 35, 94, "Input",ExpressionUUID->"682f75fb-1edd-4aa6-a4ad-b597c5f869c9"], +Cell[1837, 57, 1001, 27, 73, "Input",ExpressionUUID->"35c12977-2872-4eab-be4f-329f455172b3"], +Cell[CellGroupData[{ +Cell[2863, 88, 328, 7, 30, "Input",ExpressionUUID->"59810817-5144-4818-800a-a2ceb8fcd500"], +Cell[3194, 97, 4095, 96, 247, "Output",ExpressionUUID->"814e3769-9eaf-4e1a-8956-617c8e61d77e"] +}, Open ]], +Cell[7304, 196, 1274, 35, 94, "Input",ExpressionUUID->"5f735bd6-ba1a-4987-b9f7-8ff4ac674345"], +Cell[8581, 233, 981, 27, 73, "Input",ExpressionUUID->"5928cf25-152d-4cb2-9ce3-3f99ce9557d3"], +Cell[CellGroupData[{ +Cell[9587, 264, 310, 7, 30, "Input",ExpressionUUID->"33a86cd9-4a3d-4b09-91de-2cbb886a6250"], +Cell[9900, 273, 5200, 125, 248, "Output",ExpressionUUID->"d32fbdb3-4ad8-4d05-aa55-4c32ff841fbc"] +}, Open ]], +Cell[15115, 401, 1275, 35, 94, "Input",ExpressionUUID->"051138e6-33b2-49e1-b570-b5e33fd33d7f"], +Cell[16393, 438, 982, 27, 73, "Input",ExpressionUUID->"37bd2bc4-e119-4f55-88d4-845984e63c22"], +Cell[17378, 467, 230, 6, 30, "Input",ExpressionUUID->"c2496421-c71c-4de1-a28d-dd9067951fda"], +Cell[CellGroupData[{ +Cell[17633, 477, 312, 7, 30, "Input",ExpressionUUID->"bbbc4763-dda3-4da9-8ff0-9b7dc9932b23"], +Cell[17948, 486, 4933, 120, 246, "Output",ExpressionUUID->"cad1c286-e9fa-457d-9d0f-e5060da9432b"] +}, Open ]], +Cell[22896, 609, 513, 11, 52, "Input",ExpressionUUID->"c351c0eb-ffe9-41ea-b9a4-ee9c001a879d"], +Cell[CellGroupData[{ +Cell[23434, 624, 1050, 23, 52, "Input",ExpressionUUID->"3dc691e1-f05a-4c4c-8978-c337f01f76cf"], +Cell[24487, 649, 8346, 163, 468, "Output",ExpressionUUID->"dad67ae9-473d-49b3-a4ed-6cc27aca3cc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32870, 817, 859, 20, 52, "Input",ExpressionUUID->"e9d7c473-f53c-4be4-9780-1cba856893ff"], +Cell[33732, 839, 6570, 149, 248, "Output",ExpressionUUID->"2a2efd1e-215b-4367-831c-d3eaaa63ec02"] +}, Open ]] +} +] +*) +