diff --git a/Documentation/English/Tutorials/ScalarSelfForceTutorial.nb b/Documentation/English/Tutorials/ScalarSelfForceTutorial.nb new file mode 100644 index 0000000..75071fc --- /dev/null +++ b/Documentation/English/Tutorials/ScalarSelfForceTutorial.nb @@ -0,0 +1,9796 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 14.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 400241, 9788] +NotebookOptionsPosition[ 366063, 9116] +NotebookOutlinePosition[ 366621, 9135] +CellTagsIndexPosition[ 366578, 9132] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Scalar Self Force Tutorial", "Title", + CellChangeTimes->{{3.942137422225151*^9, 3.942137425223908*^9}}, + CellID->1666295124,ExpressionUUID->"816aaa4d-dad1-400e-bdd0-b877bc095559"], + +Cell[TextData[{ + "This tutorial shows how to compute the scalar self force (SSF) for a scalar \ +charge ", + Cell[BoxData[ + "q"], "InlineFormula",ExpressionUUID->"f3de27c8-f429-4845-bcbe-314cc337737f"], + " in circular orbits around a Schwarzschild black hole. The SSF is defined \ +as ", + Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["F", "\[Alpha]", "full"], + RowBox[{"(", "x", ")"}]}], " ", "=", + RowBox[{ + RowBox[{"q", " ", + RowBox[{ + SubscriptBox["\[Del]", "\[Alpha]"], "\[Phi]"}], + RowBox[{"(", "x", ")"}]}], " ", "=", " ", + RowBox[{ + SubscriptBox["\[Sum]", + RowBox[{" ", "l"}]], + RowBox[{ + SubsuperscriptBox["F", "\[Alpha]", + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]], + RowBox[{"(", "x", ")"}]}]}]}]}]], "InlineFormula",ExpressionUUID-> + "876146b0-533c-4794-ac1e-bb736472d5ad"], + ". The tutorials follows https://arxiv.org/pdf/1003.1860." +}], "Text", + CellChangeTimes->{{3.943337279820394*^9, 3.943337281086388*^9}}, + CellID->64333949,ExpressionUUID->"e421ac9b-bfbe-4188-ba2d-1f8eeb7c1f7f"], + +Cell["", "Text", + CellChangeTimes->{{3.943354012621448*^9, 3.94335401320973*^9}}, + CellID->349916694,ExpressionUUID->"cd6b7c56-6d90-4de8-9858-6b25a88f9cdf"], + +Cell[CellGroupData[{ + +Cell["Load the packages:", "MathCaption", + CellChangeTimes->{{3.897063084995895*^9, 3.8970630925457993`*^9}, + 3.942136969094078*^9}, + CellID->668355540,ExpressionUUID->"357dd3df-6a5a-4323-8fdb-9384c663edb6"], + +Cell[BoxData[{ + RowBox[{"<<", "Teukolsky`"}], "\[IndentingNewLine]", + RowBox[{"<<", "SpinWeightedSpheroidalHarmonics`"}], "\[IndentingNewLine]", + RowBox[{"<<", "KerrGeodesics`"}]}], "Input", + CellChangeTimes->{{3.897063094248431*^9, 3.897063097679619*^9}, { + 3.942136971869707*^9, 3.94213698699794*^9}}, + CellLabel->"In[1]:=", + CellID->843844054,ExpressionUUID->"ffbcaca4-80c6-41cc-afd0-e3fd2eb15490"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Time component Ft", "Section", + CellChangeTimes->{{3.897063117428068*^9, 3.89706312232862*^9}, { + 3.94214163059673*^9, 3.942141642277425*^9}}, + CellID->287201696,ExpressionUUID->"d4643600-a3f9-4a2a-90b4-245504ede1ce"], + +Cell[BoxData[GridBox[{ + { + RowBox[{ + "Ft", "\n", "TeukolskyPointParticleMode", "\n", "SphericalHarmonicY"}], + Cell["\<\ +Function computing the time component of the SSF +Function from the Teukolsky package for the perturbation. We use the extended \ +homogeneous functions: \"ExtendedHomogeneous\"->\"\[ScriptCapitalI]\",\"\ +\[ScriptCapitalH]\". +Function for the spherical harmonics from the SpinWeightedSpheroidalHarmonics \ +package. \ +\>", "TableText",ExpressionUUID->"f3aabf0c-b64f-4b81-8eea-8a2cb02b2e95"]} + }]], "DefinitionBox", + CellChangeTimes->{{3.942141154893359*^9, 3.942141167490918*^9}, { + 3.942141218119972*^9, 3.942141272518942*^9}, {3.942141455762315*^9, + 3.9421414602227173`*^9}, {3.942141622702108*^9, 3.94214162518362*^9}, { + 3.942141733176551*^9, 3.942141758654153*^9}, {3.942144052000224*^9, + 3.9421440695920277`*^9}, {3.942220527255641*^9, 3.9422205616923027`*^9}, { + 3.942220616655838*^9, 3.942220647984312*^9}}, + CellID->10099451,ExpressionUUID->"55f22141-8312-4e9f-91cf-c65341b1445e"], + +Cell["\<\ +Functions used to compute the time component of the SSF. Ft is the function \ +that make use of the Extended Homogeneous TeukolskyPointParticleMode \ +functions.\ +\>", "Caption", + CellChangeTimes->{{3.942141660361294*^9, 3.942141718279648*^9}, { + 3.942220657214017*^9, 3.942220671907213*^9}}, + CellID->90264844,ExpressionUUID->"6950d5ca-c244-4f8b-8097-2a51fa367899"], + +Cell["", "Text", + CellChangeTimes->{{3.942221156442549*^9, 3.942221158469576*^9}}, + CellID->55216985,ExpressionUUID->"294ac8ec-82e5-4ed4-b0f1-970587b4a299"], + +Cell[CellGroupData[{ + +Cell["Defining the function ", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}}, + CellID->957778326,ExpressionUUID->"aa37db9d-4b87-4fd6-a5f1-a60453952a50"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Ft", "[", + RowBox[{"lmax_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "l", ",", "psi", ",", "ylm", ",", "\[Omega]", ",", "m", ",", "ft", ",", + "ftsum", ",", "ftder", ",", "orbit", ",", "t", ",", " ", "marray", ",", + " ", + RowBox[{"kk", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]", "=", + RowBox[{ + RowBox[{"KerrGeoFrequencies", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}], "[", + RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"orbit", "=", + RowBox[{"KerrGeoOrbit", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}]}], ";", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"ftsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"l", "=", "1"}], ",", + RowBox[{"l", "<=", "lmax"}], ",", " ", + RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ft", "=", "0"}], ";", " ", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"m", "=", "1"}], ",", " ", + RowBox[{"m", "<=", "l"}], ",", " ", + RowBox[{"m", "++"}], ",", " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"PrintTemporary", "[", + RowBox[{ + "\"\<(l,m)=(\>\"", ",", "l", ",", "\"\<,\>\"", ",", "m", ",", + "\"\<)\>\""}], "]"}], ";", + RowBox[{"psi", "=", + RowBox[{ + RowBox[{ + RowBox[{"TeukolskyPointParticleMode", "[", + RowBox[{ + "0", ",", "l", ",", "m", ",", "0", ",", "0", ",", "orbit"}], + "]"}], "[", + RowBox[{ + "\"\\"", "->", + "\"\<\[ScriptCapitalI]\>\""}], "]"}], "[", "r0", "]"}]}], ";", + + RowBox[{"ylm", "=", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"ft", " ", "=", " ", + RowBox[{"ft", " ", "+", " ", + RowBox[{"psi", " ", "ylm", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "I"}], " ", "m", " ", "\[Omega]", " ", "t"}], + "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", + "\[IndentingNewLine]", + RowBox[{"ftsum", " ", "=", " ", + RowBox[{"ftsum", "+", "ft"}]}], ";"}]}], "\[IndentingNewLine]", + "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"the", " ", "m"}], "=", + RowBox[{ + "0", " ", "contributions", " ", "disappear", " ", "with", " ", "the", + " ", "time", " ", "derivative"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"ftder", " ", "=", + RowBox[{"D", "[", + RowBox[{"ftsum", ",", "t"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Return", "[", + RowBox[{"2", "*", + RowBox[{"Re", "[", + RowBox[{"ftder", "//.", + RowBox[{"{", + RowBox[{"t", "->", "0"}], "}"}]}], "]"}]}], "]"}], ";"}]}], + "\[IndentingNewLine]", "]"}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ7efxfBV7/FvHnYF3VoPopt4N20D0Oh617SD6kuzu +aZxA+rv1QTA9Kf3QVxD9YZsgIxeIf+gMP4i+8EZGGESXzUooNgDSBYp3wXQQ +I28ViF4itRVMvzGs/Q6it8j7/ADRqyx9mQ1BdOAaMC1/o80JRC+J+eQMov8x +sAaB6GkRKsEgWiSwvgBEX239UQKipdwKakF05geuBhBduta0C0TzRX/uB9FJ +83mmguiWbZJgeolEzBwQvaeCezWI3r01dQOIPvNk+3YQPblI7xCIVm7tPAGi +/WZePguic27OOg+iAf5xjis= + "], + CellLabel->"In[4]:=", + CellID->1990390817,ExpressionUUID->"84edb793-00e7-4b16-b938-0b656636b16e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell["Evaluating Ft for a specific orbit, summing up to lmax. ", + "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "7c9fa989-4afc-4e73-bdb8-7c3c5686aac8"]], "MathCaption", + CellChangeTimes->{{3.942142301751425*^9, 3.942142356331094*^9}, { + 3.942142392269833*^9, 3.94214241966869*^9}, {3.9422150706866207`*^9, + 3.942215078286908*^9}, 3.943336988783815*^9}, + CellLabel->"In[5]:=", + CellID->1402220897,ExpressionUUID->"5d55cb6f-2b1f-4943-8cc4-57366b235086"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"lmax", "=", " ", "15"}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"r0", "=", "14.0`30"}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Theta]", "=", + RowBox[{"\[Pi]", "/", "2"}]}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Phi]", "=", "0"}], ";"}], " "}]}], "Input", + CellChangeTimes->{{3.942142350863508*^9, 3.942142381101398*^9}, { + 3.942215094905113*^9, 3.942215125184518*^9}, {3.942221856265675*^9, + 3.942221856982366*^9}, {3.942222319817378*^9, 3.942222320020322*^9}, { + 3.942222510173362*^9, 3.942222510998808*^9}, 3.942222690448363*^9, { + 3.9423846869167643`*^9, 3.942384687078041*^9}}, + CellLabel->"In[5]:=", + CellID->573654053,ExpressionUUID->"e42e9f5a-3686-4a1a-88e7-10ef6b60d9e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ft", "[", + RowBox[{"lmax", ",", "r0", ",", " ", "\[Theta]", ",", " ", "\[Phi]"}], + "]"}]], "Input", + CellChangeTimes->{{3.942222713945013*^9, 3.942222718907589*^9}}, + CellLabel->"In[9]:=", + CellID->864090936,ExpressionUUID->"c6796880-9132-41a9-adf2-4fdba4b1dc1f"], + +Cell[BoxData["9.23672660729445592212402149187932`13.270492913173644*^-6"], \ +"Output", + CellChangeTimes->{ + 3.942222776862871*^9, {3.942222839893982*^9, 3.942222863989353*^9}, { + 3.94222312775068*^9, 3.942223163962978*^9}, 3.942223197734338*^9, { + 3.942223278289347*^9, 3.942223302666258*^9}, 3.942223356160619*^9, { + 3.942223412111575*^9, 3.942223430669189*^9}, 3.9422234944465*^9, + 3.942384671647891*^9, 3.942384703761653*^9, 3.942386423513208*^9, + 3.942743177594743*^9, 3.9433367076376343`*^9, 3.9433373133768587`*^9, + 3.943354046604321*^9}, + CellLabel->"Out[9]=", + CellID->1681368611,ExpressionUUID->"e4cdf5c3-e9c5-4193-9ea0-44bb4dbd0533"] +}, Open ]] +}, Open ]], + +Cell[BoxData[ + InterpretationBox[Cell["\<\ +As a comparison, from https://arxiv.org/pdf/1003.1860: 9.23672660e\[Minus]6\ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "a7ee3167-e248-4d02-bd0b-7be868642b8b"], + TextCell[ + "As a comparison, from https://arxiv.org/pdf/1003.1860: \ +9.23672660e\[Minus]6", "MathCaption", + CellChangeTimes -> {{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}}]]], "MathCaption", + CellChangeTimes->{3.943336707732317*^9, 3.943337010271572*^9}, + CellLabel->"Out[11]=", + CellID->113884371,ExpressionUUID->"7620d48d-8851-4352-a8bc-69d3f799359a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Radial component Fr", "Section", + CellChangeTimes->{{3.897063117428068*^9, 3.89706312232862*^9}, { + 3.94214163059673*^9, 3.942141642277425*^9}, {3.942142597066136*^9, + 3.9421425988563023`*^9}}, + CellID->69577989,ExpressionUUID->"e7822ca0-6085-4eeb-ba9b-37c336c716f4"], + +Cell[TextData[{ + "This tutorial shows how to compute the scalar self force (SSF) for a \ +point-particle in circular orbits around a Schwarzschild black hole. ", + Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["F", "\[Alpha]", "self"], " ", "=", " ", + RowBox[{ + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"l", "=", "0"}]}], "\[Infinity]"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["F", + RowBox[{"\[Alpha]", "\[PlusMinus]"}], + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]], "-", " ", + RowBox[{ + SubscriptBox["A", + RowBox[{"\[Alpha]", "\[PlusMinus]"}]], " ", "L"}], " ", "-", " ", + SubscriptBox["B", "\[Alpha]"]}], ")"}]}], " ", "=", " ", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"l", "=", "0"}]}], "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["F", "\[Alpha]", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]], " ", "."}]}]}]}]], "InlineFormula", + ExpressionUUID->"c485ca4e-725f-496a-b0f4-64ebd745e995"], + " " +}], "Text", + CellChangeTimes->{{3.942143259299312*^9, 3.942143283366045*^9}, { + 3.942143375995582*^9, 3.942143566795103*^9}}, + CellID->1013390321,ExpressionUUID->"2df463dc-f278-4881-ae4e-899ae4cd341b"], + +Cell[BoxData[GridBox[{ + { + RowBox[{"Arps", ",", " ", "Arms", ",", " ", "Brs"}], Cell[TextData[{ + "Functions for the regularization parameters. Their output is ", + Cell[BoxData[ + RowBox[{"(", + SubscriptBox["A", + RowBox[{"r", "+"}]]}]], "InlineFormula",ExpressionUUID-> + "53887b61-42f7-456d-9416-4062db6548c3"], + ", ", + Cell[BoxData[ + SubscriptBox["A", + RowBox[{"r", "-"}]]], "InlineFormula",ExpressionUUID-> + "3319b4a6-4c90-4b00-a5c0-c6309327cec1"], + ", ", + Cell[BoxData[ + RowBox[{ + RowBox[{ + SubscriptBox["B", "r"], ")"}], " "}]], "InlineFormula",ExpressionUUID-> + "a95f3885-f00d-4a37-a48b-3f342f383168"], + ", respectively. " + }], "TableText",ExpressionUUID->"19f71224-b4f5-487e-86fe-4617ce452922"]}, + { + RowBox[{ + RowBox[{"FrlInf", ",", " ", "FrlHor"}], "\n", + RowBox[{ + RowBox[{"FrlInfReg", ","}], " ", "FrlHorReg"}], "\n", + RowBox[{"FrInfSelf", ",", " ", "FrHorSelf"}], "\n", "FrRegLTab"}], Cell[ + TextData[{ + "Functions giving ", + Cell[BoxData[ + RowBox[{"(", + SubsuperscriptBox["F", + RowBox[{"r", "+"}], + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]]}]], "InlineFormula", + ExpressionUUID->"c0ea777f-1f4c-4e1a-bd67-c6131e37f8a5"], + ", ", + Cell[BoxData[ + SubsuperscriptBox["F", + RowBox[{"r", "-"}], + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]]], "InlineFormula",ExpressionUUID-> + "b88c73b6-5e3f-4537-9fe4-f623c1bcf8e2"], + ") , respectively. \nFunctions giving ", + Cell[BoxData[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SubsuperscriptBox["F", + RowBox[{"r", "+"}], + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]], "-", " ", + RowBox[{ + SubscriptBox["A", + RowBox[{"r", "+"}]], " ", "L"}], " ", "-", " ", + SubscriptBox["B", "r"]}], ",", " ", + RowBox[{ + SubsuperscriptBox["F", + RowBox[{"r", "-"}], + RowBox[{ + RowBox[{"(", "full", ")"}], "l"}]], "-", " ", + RowBox[{ + SubscriptBox["A", + RowBox[{"r", "-"}]], " ", "L"}], " ", "-", " ", + SubscriptBox["B", "r"]}]}], ")"}]], "InlineFormula",ExpressionUUID-> + "3ccd0be4-aed4-45e5-b036-e2cb26e7bdb6"], + " \nFunctions computing ", + Cell[BoxData[ + SubsuperscriptBox["F", "r", "self"]], "InlineFormula",ExpressionUUID-> + "1f74d4be-a8e2-4b1f-ac43-cff4c2e4bf18"], + "summing over the ", + Cell[BoxData[ + RowBox[{"(", + RowBox[{"l", ",", "m"}], ")"}]],ExpressionUUID-> + "b2dd5268-605d-44ec-ae1f-94b15841ae3b"], + " modes\nFunctions computing ", + Cell[BoxData[ + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]]], "InlineFormula",ExpressionUUID-> + "de9d8c58-2f93-43d1-91e6-27c65597f8af"], + " giving as output a table with ", + Cell[BoxData[ + RowBox[{"(", + RowBox[{"l", ",", + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]]}], ")"}]], "InlineFormula", + ExpressionUUID->"5483274c-bd78-45a2-9761-9d9a8fe819e9"], + ". " + }], "TableText",ExpressionUUID->"708a9eca-3477-4b74-a1e7-44ccaf5ef7b8"]} + }]], "DefinitionBox", + CellChangeTimes->{{3.942141154893359*^9, 3.942141167490918*^9}, { + 3.942141218119972*^9, 3.942141272518942*^9}, {3.942141455762315*^9, + 3.9421414602227173`*^9}, {3.942141768122562*^9, 3.942141769745345*^9}, { + 3.942142026855351*^9, 3.942142055697755*^9}, {3.94214218455122*^9, + 3.942142203816763*^9}, {3.942144212904437*^9, 3.942144342272884*^9}, { + 3.942144428726939*^9, 3.942144486790168*^9}, {3.942145089364414*^9, + 3.9421451022196627`*^9}, {3.942145141285804*^9, 3.942145226352216*^9}, { + 3.9421452628317842`*^9, 3.942145263627092*^9}, {3.942145348916215*^9, + 3.94214540882233*^9}, {3.942145839793398*^9, 3.942145905064777*^9}, { + 3.942145968516478*^9, 3.942146085532469*^9}, {3.942146242492281*^9, + 3.9421462587032003`*^9}, {3.9421464770035973`*^9, 3.942146481559577*^9}, { + 3.942147885022605*^9, 3.9421478993591022`*^9}, {3.9422236471941957`*^9, + 3.942223647194549*^9}}, + CellID->1473299213,ExpressionUUID->"293854c7-cf93-441e-bf36-7703018a154a"], + +Cell[CellGroupData[{ + +Cell["Regularization Parameters", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}}, + CellID->1247913010,ExpressionUUID->"1efdc789-2e7d-49ce-b179-7033fabde480"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"Arps", "[", + RowBox[{"M_", ",", "q_", ",", " ", "r_"}], "]"}], ":=", " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"arp", ",", "f", ",", "V"}], "}"}], ",", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"f", " ", "=", " ", + RowBox[{"1", " ", "-", " ", + RowBox[{"2", " ", + RowBox[{"M", " ", "/", " ", "r"}]}]}]}], ";", " ", + "\[IndentingNewLine]", + RowBox[{"V", "=", " ", + RowBox[{"1", " ", "+", " ", + RowBox[{ + RowBox[{ + RowBox[{"KerrGeoAngularMomentum", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}], "^", "2"}], + "/", + RowBox[{"r", "^", "2"}]}]}]}], ";", " ", "\[IndentingNewLine]", + RowBox[{"arp", "=", + RowBox[{ + RowBox[{"-", " ", + RowBox[{"q", "^", "2"}]}], " ", + RowBox[{ + RowBox[{"KerrGeoEnergy", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}], "/", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"r", "^", "2"}], " ", "f", " ", "V"}], ")"}]}]}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Return", "[", "arp", "]"}], ";"}]}], "\[IndentingNewLine]", + "]"}]}], "\n"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Arms", "[", + RowBox[{"M_", ",", "q_", ",", " ", "r_"}], "]"}], ":=", " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"arm", ",", "f", ",", "V"}], "}"}], ",", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"f", " ", "=", " ", + RowBox[{"1", " ", "-", " ", + RowBox[{"2", " ", + RowBox[{"M", " ", "/", " ", "r"}]}]}]}], ";", " ", + "\[IndentingNewLine]", + RowBox[{"V", "=", " ", + RowBox[{"1", " ", "+", " ", + RowBox[{ + RowBox[{ + RowBox[{"KerrGeoAngularMomentum", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}], "^", "2"}], + "/", + RowBox[{"r", "^", "2"}]}]}]}], ";", " ", "\[IndentingNewLine]", + RowBox[{"arm", "=", + RowBox[{ + RowBox[{"+", " ", + RowBox[{"q", "^", "2"}]}], " ", + RowBox[{ + RowBox[{"KerrGeoEnergy", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}], "/", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"r", "^", "2"}], " ", "f", " ", "V"}], ")"}]}]}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Return", "[", "arm", "]"}], ";"}]}], "\[IndentingNewLine]", + "]"}]}], "\n"}], "\n", + RowBox[{ + RowBox[{"Brs", "[", + RowBox[{"M_", ",", "q_", ",", " ", "r_"}], "]"}], ":=", " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "br", ",", "f", ",", "V", ",", "E", ",", "L", ",", "k", ",", " ", "EE", + ",", " ", "w"}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"f", " ", "=", " ", + RowBox[{"1", " ", "-", " ", + RowBox[{"2", " ", + RowBox[{"M", " ", "/", " ", "r"}]}]}]}], ";", " ", + "\[IndentingNewLine]", + RowBox[{"L", " ", "=", + RowBox[{"KerrGeoAngularMomentum", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}]}], " ", ";", " ", + "\[IndentingNewLine]", + RowBox[{"E", " ", "=", " ", + RowBox[{"KerrGeoEnergy", "[", + RowBox[{"0", ",", "r", ",", "0", ",", "1"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"V", "=", " ", + RowBox[{"1", " ", "+", " ", + RowBox[{ + RowBox[{"L", "^", "2"}], "/", + RowBox[{"r", "^", "2"}]}]}]}], ";", " ", "\[IndentingNewLine]", + RowBox[{"w", " ", "=", " ", + RowBox[{ + RowBox[{"L", "^", "2"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"L", "^", "2"}], "+", + RowBox[{"r", "^", "2"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", + RowBox[{"k", " ", "=", + RowBox[{"EllipticK", "[", "w", "]"}]}], ";", " ", "\[IndentingNewLine]", + RowBox[{"EE", " ", "=", " ", + RowBox[{"EllipticE", "[", "w", "]"}]}], ";", " ", "\[IndentingNewLine]", + RowBox[{"br", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"q", "^", "2"}], ")"}], " ", "/", + RowBox[{"r", "^", "2"}]}], " ", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", " ", "2"}], " ", + RowBox[{"E", "^", "2"}], " ", "k"}], " ", "+", " ", + RowBox[{ + RowBox[{"(", + RowBox[{"E", "^", "2"}], ")"}], " ", "EE"}]}], " ", ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", " ", "f", " ", + RowBox[{"V", "^", + RowBox[{"(", + RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}]}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Return", "[", "br", "]"}], ";"}]}], "\n", "]"}]}]}], "Input", + CellChangeTimes->{{3.942137175227577*^9, 3.942137182884976*^9}, { + 3.942137269517274*^9, 3.942137273189048*^9}, 3.942137588726344*^9, { + 3.9421426717527657`*^9, 3.942142706538177*^9}, {3.942382814219028*^9, + 3.9423828247210903`*^9}}, + CellLabel->"In[10]:=", + CellID->1829903203,ExpressionUUID->"6bff9100-b7eb-4a1d-a129-d640acc7fbf6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Functions for Fr ", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}}, + CellID->851799169,ExpressionUUID->"b18e5106-c8a1-4eee-827d-9dc4145fc0fa"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"FrlInf", "[", + RowBox[{"l_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\[Omega]", ",", "m", ",", "orbit", ",", "fr", ",", " ", "psi", ",", + "psider", ",", "ylm", ",", "t", ",", "marray", ",", + RowBox[{"kk", "=", "1"}]}], "}"}], ",", + RowBox[{ + RowBox[{"\[Omega]", "=", + RowBox[{ + RowBox[{"KerrGeoFrequencies", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}], "[", + RowBox[{"[", "3", "]"}], "]"}]}], ";", + RowBox[{"orbit", "=", + RowBox[{"KerrGeoOrbit", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}]}], ";", + RowBox[{"fr", "=", "0"}], ";", " ", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"marray", "=", + RowBox[{"ConstantArray", "[", + RowBox[{"0", ",", "l"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"m", "=", "1"}], ",", + RowBox[{"m", "<=", "l"}], ",", + RowBox[{"m", "++"}], ",", "\t", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"marray", "[", + RowBox[{"[", "kk", "]"}], "]"}], "=", "m"}], ";", "\t", + "\[IndentingNewLine]", + RowBox[{"kk", " ", "=", " ", + RowBox[{"kk", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], + ";", "\[IndentingNewLine]", + RowBox[{"marray", "=", + RowBox[{"Select", "[", + RowBox[{"marray", ",", + RowBox[{ + RowBox[{"EvenQ", "[", + RowBox[{"#", "+", "l"}], "]"}], "&"}]}], "]"}]}], ";", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"m", "=", "1"}], ",", " ", + RowBox[{"m", "<=", + RowBox[{"Length", "[", "marray", "]"}]}], ",", " ", + RowBox[{"m", "++"}], ",", + RowBox[{ + RowBox[{"PrintTemporary", "[", + RowBox[{ + "\"\<(l,m)=\>\"", ",", "\"\<(\>\"", ",", "l", ",", "\"\<,\>\"", ",", + RowBox[{"marray", "[", + RowBox[{"[", "m", "]"}], "]"}], ",", "\"\<)\>\""}], "]"}], ";", + RowBox[{"psi", "=", " ", + RowBox[{ + RowBox[{"TeukolskyPointParticleMode", "[", + RowBox[{"0", ",", "l", ",", + RowBox[{"marray", "[", + RowBox[{"[", "m", "]"}], "]"}], ",", "0", ",", "0", ",", + "orbit"}], "]"}], "[", + RowBox[{ + "\"\\"", "->", "\"\<\[ScriptCapitalI]\>\""}], + "]"}]}], ";", + RowBox[{"psider", "=", " ", + RowBox[{ + RowBox[{"psi", "'"}], "[", "r0", "]"}]}], ";", + RowBox[{"ylm", "=", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"l", ",", + RowBox[{"marray", "[", + RowBox[{"[", "m", "]"}], "]"}], ",", "\[Theta]", ",", "\[Phi]"}], + "]"}]}], ";", + RowBox[{"fr", " ", "=", " ", + RowBox[{"fr", " ", "+", " ", + RowBox[{"psider", " ", "ylm", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "I"}], " ", + RowBox[{"marray", "[", + RowBox[{"[", "m", "]"}], "]"}], " ", "\[Omega]", " ", "0"}], + "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + "Do", " ", "the", " ", "same", " ", "thing", " ", "for", " ", "the", + " ", "m"}], "=", + RowBox[{"0", " ", "modes"}]}], ",", " ", + RowBox[{ + RowBox[{ + "which", " ", "are", " ", "not", " ", "computed", " ", "in", " ", + "the", " ", "previous", " ", + RowBox[{"cycle", ".", " ", "If"}], " ", "l"}], "+", + RowBox[{"m", " ", "is", " ", "odd"}]}], ",", " ", + RowBox[{"ylm", "=", "0"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"EvenQ", "[", "l", "]"}], "==", "True"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"m", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"PrintTemporary", "[", + RowBox[{ + "\"\<(l,m)=\>\"", ",", "\"\<(\>\"", ",", "l", ",", "\"\<,\>\"", ",", + "m", ",", "\"\<)\>\""}], "]"}], ";", + RowBox[{"psi", "=", " ", + RowBox[{ + RowBox[{"TeukolskyPointParticleMode", "[", + RowBox[{ + "0", ",", "l", ",", "m", ",", "0", ",", "0", ",", "orbit"}], + "]"}], "[", + RowBox[{ + "\"\\"", "->", "\"\<\[ScriptCapitalI]\>\""}], + "]"}]}], ";", + RowBox[{"psider", "=", " ", + RowBox[{ + RowBox[{"psi", "'"}], "[", "r0", "]"}]}], ";", + RowBox[{"ylm", "=", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", + RowBox[{"fr", " ", "=", " ", + RowBox[{ + RowBox[{"2", "*", "fr"}], " ", "+", " ", + RowBox[{"psider", " ", "ylm", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "I"}], " ", "m", " ", "\[Omega]", " ", "0"}], + "]"}]}]}]}], ";"}], ",", " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"fr", " ", "=", " ", + RowBox[{"2", "*", "fr"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], + ";", "\[IndentingNewLine]", + RowBox[{"Return", "[", + RowBox[{"fr", "//.", + RowBox[{"{", + RowBox[{"t", "->", "0"}], "}"}]}], "]"}], ";"}]}], + "\[IndentingNewLine]", "]"}]}], "\n"}], "\n", + RowBox[{ + RowBox[{"FrlHor", "[", + RowBox[{"l_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\[Omega]", ",", "m", ",", "orbit", ",", "fr", ",", " ", "psi", ",", + "psider", ",", "ylm", ",", "t"}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"\[Omega]", "=", + RowBox[{ + RowBox[{"KerrGeoFrequencies", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}], "[", + RowBox[{"[", "3", "]"}], "]"}]}], ";", + RowBox[{"orbit", "=", + RowBox[{"KerrGeoOrbit", "[", + RowBox[{"0", ",", "r0", ",", "0", ",", "1"}], "]"}]}], ";", + RowBox[{"fr", "=", "0"}], ";", " ", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"m", "=", + RowBox[{"-", "l"}]}], ",", " ", + RowBox[{"m", "<=", "l"}], ",", " ", + RowBox[{"m", "++"}], ",", " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"PrintTemporary", "[", + RowBox[{ + "\"\<(l,m)=\>\"", ",", "\"\<(\>\"", ",", "l", ",", "\"\<,\>\"", ",", + "m", ",", "\"\<)\>\""}], "]"}], ";", + RowBox[{"psi", "=", " ", + RowBox[{ + RowBox[{"TeukolskyPointParticleMode", "[", + RowBox[{ + "0", ",", "l", ",", "m", ",", "0", ",", "0", ",", "orbit"}], "]"}], + "[", + RowBox[{ + "\"\\"", "->", "\"\<\[ScriptCapitalH]\>\""}], + "]"}]}], ";", + RowBox[{"psider", "=", " ", + RowBox[{ + RowBox[{"psi", "'"}], "[", "r0", "]"}]}], ";", + RowBox[{"ylm", "=", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", + RowBox[{"fr", " ", "=", " ", + RowBox[{"fr", " ", "+", " ", + RowBox[{"psider", " ", "ylm", " ", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "I"}], " ", "m", " ", "\[Omega]", " ", "0"}], + "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", + "\[IndentingNewLine]", + RowBox[{"Return", "[", + RowBox[{"fr", "//.", + RowBox[{"{", + RowBox[{"t", "->", "0"}], "}"}]}], "]"}], ";"}]}], "\n", + "]"}]}]}], "Input", + CellChangeTimes->{{3.942137175227577*^9, 3.942137182884976*^9}, { + 3.942137269517274*^9, 3.942137273189048*^9}, 3.942137588726344*^9, + 3.942137683621517*^9, {3.942140829171426*^9, 3.942140831807559*^9}, { + 3.942141055339085*^9, 3.942141056801638*^9}, {3.9421427241219788`*^9, + 3.942142830737485*^9}, {3.942144595119197*^9, 3.94214463097318*^9}, { + 3.942144668829115*^9, 3.942144673806787*^9}, {3.942144788945956*^9, + 3.942144878827943*^9}, {3.942223731741582*^9, 3.94222373202274*^9}}, + CellLabel->"In[13]:=", + CellID->1181885993,ExpressionUUID->"f699d0d4-8c40-46f7-84bd-98a55e13a068"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"FrlInfReg", "[", + RowBox[{"l_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"frreg", ",", "frfull", ",", "frsum", ",", "fr", ",", "rr"}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"frsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"fr", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", " ", "=", " ", + RowBox[{"FrlInf", "[", + RowBox[{"l", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", + RowBox[{"frreg", " ", "=", " ", + RowBox[{"frfull", "-", + RowBox[{ + RowBox[{"Arps", "[", + RowBox[{"1", ",", "1", ",", " ", "r0"}], "]"}], + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}]}], "-", + RowBox[{"Brs", "[", + RowBox[{"1", ",", "1", ",", "r0"}], "]"}]}]}], ";", + RowBox[{"Return", "[", + RowBox[{"Re", "[", "frreg", "]"}], "]"}], ";"}]}], "\n", "]"}]}], + "\n"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"FrlHorReg", "[", + RowBox[{"l_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"frreg", ",", "frfull", ",", "frsum", ",", "fr", ",", "rr"}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"frsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"fr", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", " ", "=", " ", + RowBox[{"FrlHor", "[", + RowBox[{"l", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", + RowBox[{"frreg", " ", "=", " ", + RowBox[{"frfull", "-", + RowBox[{ + RowBox[{"Arms", "[", + RowBox[{"1", ",", "1", ",", " ", "r0"}], "]"}], + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}]}], "-", + RowBox[{"Brs", "[", + RowBox[{"1", ",", "1", ",", "r0"}], "]"}]}]}], ";", + RowBox[{"Return", "[", + RowBox[{"Re", "[", "frreg", "]"}], "]"}], ";"}]}], "\n", "]"}]}], + "\n"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"FrInfSelf", "[", + RowBox[{"lmax_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"frreg", ",", "frfull", ",", "l", ",", "frsum", ",", "fr"}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"frsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"fr", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"l", "=", "0"}], ",", + RowBox[{"l", "<=", "lmax"}], ",", " ", + RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"PrintTemporary", "[", + RowBox[{"\"\\"", ",", "l"}], "]"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", " ", "=", " ", + RowBox[{"FrlInf", "[", + RowBox[{"l", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"frreg", " ", "=", " ", + RowBox[{"frfull", "-", + RowBox[{ + RowBox[{"Arps", "[", + RowBox[{"1", ",", "1", ",", " ", "r0"}], "]"}], + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}]}], "-", + RowBox[{"Brs", "[", + RowBox[{"1", ",", "1", ",", "r0"}], "]"}]}]}], ";", + RowBox[{"frsum", " ", "=", " ", + RowBox[{"frsum", "+", "frreg"}]}], ";"}]}], "\[IndentingNewLine]", + "]"}], ";", "\[IndentingNewLine]", + RowBox[{"Return", "[", + RowBox[{"Re", "[", "frsum", "]"}], "]"}], ";"}]}], "\n", "]"}]}], + "\n"}], "\n", + RowBox[{ + RowBox[{"FrHorSelf", "[", + RowBox[{"lmax_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"frreg", ",", "frfull", ",", "l", ",", "frsum", ",", "fr"}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"frsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"fr", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"l", "=", "0"}], ",", + RowBox[{"l", "<=", "lmax"}], ",", " ", + RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"PrintTemporary", "[", + RowBox[{"\"\\"", ",", "l"}], "]"}], ";", "\[IndentingNewLine]", + + RowBox[{"frfull", " ", "=", " ", + RowBox[{"FrlHor", "[", + RowBox[{"l", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";", + RowBox[{"PrintTemporary", "[", + RowBox[{"\"\\"", ",", " ", "frfull"}], "]"}], ";", + "\[IndentingNewLine]", + RowBox[{"frreg", " ", "=", " ", + RowBox[{"frfull", "-", + RowBox[{ + RowBox[{"Arms", "[", + RowBox[{"1", ",", "1", ",", " ", "r0"}], "]"}], + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}]}], "-", + RowBox[{"Brs", "[", + RowBox[{"1", ",", "1", ",", "r0"}], "]"}]}]}], ";", + RowBox[{"frsum", " ", "=", " ", + RowBox[{"frsum", "+", "frreg"}]}], ";", + RowBox[{"PrintTemporary", "[", + RowBox[{"\"\\"", ",", " ", "frsum"}], "]"}], ";"}]}], + "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", + RowBox[{"Return", "[", + RowBox[{"Re", "[", "frsum", "]"}], "]"}], ";"}]}], "\n", + "]"}]}]}], "Input", + CellChangeTimes->{{3.942137175227577*^9, 3.942137182884976*^9}, { + 3.942137269517274*^9, 3.942137273189048*^9}, 3.942137588726344*^9, + 3.942137683621517*^9, {3.942137792150061*^9, 3.942137797734239*^9}, { + 3.942137923260655*^9, 3.942137928609926*^9}, {3.942138346120269*^9, + 3.942138347955966*^9}, {3.942138738292568*^9, 3.942138739519793*^9}, { + 3.942144089183816*^9, 3.942144189729599*^9}, {3.942145049377819*^9, + 3.94214505300451*^9}, {3.942145321126213*^9, 3.942145323018759*^9}, { + 3.9422244721301403`*^9, 3.942224478773938*^9}}, + CellLabel->"In[15]:=", + CellID->1271619726,ExpressionUUID->"97273727-2d4b-4806-843b-b3d9b2496daa"] +}, Open ]], + +Cell["\<\ +Example: numerical computation without the tail contribution \ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.9421385320324373`*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.9422243598866787`*^9, 3.942224373486483*^9}}, + CellID->1210864362,ExpressionUUID->"5614da13-1382-40a3-8c04-e6e17ce539b2"], + +Cell[CellGroupData[{ + +Cell["Define input parameters", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.9421385320324373`*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}}, + CellID->1200359567,ExpressionUUID->"86b7673b-244f-468a-ad78-73531fa7841e"], + +Cell[BoxData[ + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + "It", " ", "might", " ", "be", " ", "necessary", " ", "to", " ", "define", + " ", "different", " ", "values", " ", "of", " ", "lmax", " ", "for", + " ", "r"}], "<=", + RowBox[{"7.5", ".", " ", "E", ".", "g", ".", " ", "lmaxlow"}]}], "=", + RowBox[{ + RowBox[{ + RowBox[{"39", " ", "for", " ", "r"}], "<=", + RowBox[{"7.5", " ", "and", " ", "lmaxhigh"}]}], "=", + RowBox[{ + RowBox[{"50", " ", "for", " ", "r"}], ">=", "7.5"}]}]}], "*)"}]], "Input",\ + + CellChangeTimes->{{3.942223796264842*^9, 3.942223876779613*^9}, { + 3.942384768722932*^9, 3.942384781410584*^9}}, + CellLabel->"In[19]:=", + CellID->536844417,ExpressionUUID->"542bcca3-601d-4913-8a5c-5b25b5382e6e"], + +Cell[BoxData[ + RowBox[{"(*", + RowBox[{ + "the", " ", "input", " ", "precision", " ", "of", " ", "the", " ", "radius", + " ", "is", " ", "set", " ", "to", " ", "50.", " ", "For", " ", "high", + " ", "modes", " ", "you", " ", "might", " ", "need", " ", "to", " ", + "increase", " ", "the", " ", "input", " ", + RowBox[{"precision", ".", " ", "I"}], " ", "used", " ", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"r0", "<=", + RowBox[{"75", "/", "10"}]}], ",", + RowBox[{"N", "[", + RowBox[{"r0", ",", "450"}], "]"}], ",", " ", + RowBox[{"N", "[", + RowBox[{"r0", ",", "150"}], "]"}]}], "]"}], ".", " ", "Here"}], " ", + "is", " ", "set", " ", "to", " ", "50", " ", "for", " ", + RowBox[{"semplicity", "."}]}], "*)"}]], "Input", + CellChangeTimes->{{3.942224090033414*^9, 3.9422241428081007`*^9}}, + CellLabel->"In[20]:=", + CellID->699711998,ExpressionUUID->"c0e0ce97-e1e9-4d2c-a85c-872c79b117b7"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"lmax", "=", "20"}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"r0", "=", " ", "14.0`50"}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Theta]", "=", " ", + RowBox[{"\[Pi]", "/", "2"}]}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Phi]", "=", "0"}], ";"}], " "}]}], "Input", + CellChangeTimes->{{3.942138542963327*^9, 3.942138572632593*^9}, + 3.942138914643141*^9, {3.9421394730886507`*^9, 3.942139485885414*^9}, { + 3.9421397733843412`*^9, 3.942139778917722*^9}, {3.942140004279954*^9, + 3.942140008405602*^9}, {3.942140291292697*^9, 3.942140293263699*^9}, + 3.942140841773409*^9, {3.9421413287384357`*^9, 3.942141329507963*^9}, { + 3.942141469116177*^9, 3.942141469187954*^9}, {3.9421417902926817`*^9, + 3.942141832060416*^9}, {3.942141980315327*^9, 3.9421419804237347`*^9}, { + 3.94214213064893*^9, 3.942142135025815*^9}, {3.942142288378697*^9, + 3.942142288444841*^9}, 3.94222382989306*^9, {3.942223879298691*^9, + 3.942223882793073*^9}, {3.942224439153614*^9, 3.942224444573619*^9}, { + 3.942383602341716*^9, 3.9423836029284887`*^9}}, + CellLabel->"In[21]:=", + CellID->1003085966,ExpressionUUID->"d23e82ab-5988-423d-bdba-e0e470c3ce27"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FrInfSelf", "[", + RowBox[{"lmax", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]], "Input",\ + + CellChangeTimes->{{3.942224419595648*^9, 3.942224426813177*^9}}, + CellLabel->"In[25]:=", + CellID->2140453333,ExpressionUUID->"8147a530-1ca3-4b3b-8dc1-18320d69b6a6"], + +Cell[BoxData["3.2086303282244951697647868159622`21.118386711318223*^-7"], \ +"Output", + CellChangeTimes->{3.942224468803927*^9, 3.9422245215827*^9, + 3.94238476815576*^9, 3.94274323349205*^9, 3.9433367458050947`*^9, + 3.943337351685505*^9, 3.943354084495887*^9}, + CellLabel->"Out[25]=", + CellID->1854921831,ExpressionUUID->"f49eb6cc-f813-4f36-b39f-d3564548d070"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell["\<\ +As a comparison, from https://arxiv.org/pdf/1003.1860: 2.720083e\[Minus]6. +The obtained value is much smaller! To compute the tail contribution, let's \ +compute the numerical values again and save the contribution from each l-mode \ +in a table: \ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "bd016a52-3078-4cb4-9187-f3daec2da8de"]], "MathCaption", + CellChangeTimes->{{3.9422245487763367`*^9, 3.942224664808625*^9}, + 3.943337043730833*^9}, + CellID->1494422815,ExpressionUUID->"46bafea7-e59c-4992-9388-1b0f772aab67"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"FrRegLTab", "[", + RowBox[{"lmax_", ",", "r0_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", + " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "frreg", ",", "frfull", ",", "l", ",", "frsum", ",", "fr", ",", "rr", + ",", "radius", ",", "tab", ",", "total", ",", "precision"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"frsum", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"fr", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"frfull", "=", "0"}], ";", "\[IndentingNewLine]", + RowBox[{"radius", "=", " ", + RowBox[{"N", "[", + RowBox[{"r0", ",", "50"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Print", "[", "radius", "]"}], ";", "\[IndentingNewLine]", + RowBox[{"tab", "=", " ", + RowBox[{"{", + RowBox[{"radius", ",", "\[IndentingNewLine]", + RowBox[{"ParallelTable", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"l", ",", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"FrlInf", "[", + RowBox[{"l", ",", "radius", ",", "\[Theta]", ",", "\[Phi]"}], + "]"}], "-", + RowBox[{ + RowBox[{"Arps", "[", + RowBox[{"1", ",", "1", ",", " ", "radius"}], "]"}], + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}]}], "-", + RowBox[{"Brs", "[", + RowBox[{"1", ",", "1", ",", "radius"}], "]"}]}], "]"}]}], + "}"}], ",", "\n", + RowBox[{"{", + RowBox[{"l", ",", "0", ",", "lmax"}], "}"}]}], "]"}]}], "}"}]}], + ";", "\n", + RowBox[{"Return", "[", "tab", "]"}], ";"}]}], "\n", "]"}]}]], "Input", + CellChangeTimes->{{3.942137936508555*^9, 3.942137946261796*^9}, { + 3.942137986115159*^9, 3.942138040243754*^9}, {3.942138122112694*^9, + 3.942138123422206*^9}, {3.942138571719482*^9, 3.942138580384219*^9}, { + 3.9421388749592867`*^9, 3.942138889050469*^9}, {3.942139022972274*^9, + 3.942139154057678*^9}, {3.942140933636879*^9, 3.942140948714075*^9}, { + 3.942141339537921*^9, 3.942141345175329*^9}, {3.942141820241903*^9, + 3.942141822967451*^9}, {3.942141984236898*^9, 3.942141985422217*^9}, { + 3.942142137868664*^9, 3.942142137942362*^9}, {3.94214577986683*^9, + 3.942145789274973*^9}, 3.942146096842903*^9, {3.942383607014358*^9, + 3.942383660295099*^9}}, + CellLabel->"In[26]:=", + CellID->1283425651,ExpressionUUID->"900b0d8b-4762-47b9-8af9-f66168f84fe7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"RadiusFrLTab", " ", "=", " ", + RowBox[{"FrRegLTab", "[", + RowBox[{"lmax", ",", "r0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.942139164903478*^9, 3.94213917033602*^9}, { + 3.942139277830632*^9, 3.942139290376646*^9}, {3.94213978533602*^9, + 3.942139786981957*^9}, {3.942139998182532*^9, 3.942140001038029*^9}, + 3.942141405320333*^9, 3.9421457970488167`*^9, {3.942146099390258*^9, + 3.942146133918641*^9}, 3.94238361139162*^9}, + CellLabel->"In[27]:=", + CellID->197844135,ExpressionUUID->"dd05c219-17e2-4fc8-90ce-1ad4d3af383e"], + +Cell[CellGroupData[{ + +Cell[BoxData["14.`50."], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.942141103507753*^9, 3.942141348514062*^9, + 3.942141408326396*^9, 3.942141477811924*^9, 3.942141850773657*^9, + 3.942141987817508*^9, 3.942142141436636*^9, 3.942142291555303*^9, + 3.942145803622779*^9, 3.942146138691682*^9, 3.942223897215273*^9, + 3.942384828158676*^9, 3.942743242374631*^9, 3.943336745905117*^9, + 3.943337351764576*^9, 3.9433540845973167`*^9}, + CellLabel->"During evaluation of In[27]:=", + CellID->651110118,ExpressionUUID->"09f91847-de65-478e-9f72-2fcc3235fc5a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 0, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087387224*^9}, + CellLabel->"(kernel 1)", + CellID->1630704534,ExpressionUUID->"6136db4c-0d36-4585-87d7-f2afb2aca6ff"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 2, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540873929768`*^9}, + CellLabel->"(kernel 2)", + CellID->1064799924,ExpressionUUID->"95361cce-dc02-4651-b693-0f7460ac68ea"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 3, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087402779*^9}, + CellLabel->"(kernel 3)", + CellID->1111092217,ExpressionUUID->"3b475e6d-a126-4010-a8dc-cef60c236a53"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 4, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087410475*^9}, + CellLabel->"(kernel 4)", + CellID->1756580454,ExpressionUUID->"df89a164-7774-48d0-8641-ca1e5e8528af"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 5, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087416675*^9}, + CellLabel->"(kernel 5)", + CellID->1389995069,ExpressionUUID->"e88b9d98-1e10-4653-97da-072e71fa7a9e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 6, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540874206467`*^9}, + CellLabel->"(kernel 6)", + CellID->1320012617,ExpressionUUID->"7f7ff0cc-d6e8-41e3-8060-9aee0a39822a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 7, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540874281187`*^9}, + CellLabel->"(kernel 7)", + CellID->1945980409,ExpressionUUID->"857b2a33-b704-4895-ae22-e9c45ff7fc5e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 8, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087434196*^9}, + CellLabel->"(kernel 8)", + CellID->2064273900,ExpressionUUID->"004e4b72-6e5a-405a-959e-e2bddc56bc0a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 9, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087440755*^9}, + CellLabel->"(kernel 9)", + CellID->1653120015,ExpressionUUID->"91968bdc-184c-420b-9698-fa1a2adf0b60"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087445168*^9}, + CellLabel->"(kernel 10)", + CellID->1992150866,ExpressionUUID->"d5ce5218-9e25-4e06-9992-f176af78e83f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 1, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087462245*^9}, + CellLabel->"(kernel 1)", + CellID->662064485,ExpressionUUID->"29aa73f7-4171-421d-9f21-efd657c577c8"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 2, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087471476*^9}, + CellLabel->"(kernel 2)", + CellID->1205024288,ExpressionUUID->"61fddb9c-fe2f-4d9e-bda3-13aa35098d3f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 3, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087475466*^9}, + CellLabel->"(kernel 3)", + CellID->2072417206,ExpressionUUID->"50476c1e-0345-4e78-9c10-db6119b0692f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 4, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540874844913`*^9}, + CellLabel->"(kernel 4)", + CellID->1078710549,ExpressionUUID->"f9462e25-5579-4036-bc53-3869b70dd1e6"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 5, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087490285*^9}, + CellLabel->"(kernel 5)", + CellID->831249069,ExpressionUUID->"c35ce07f-1d5f-4c84-a888-ac36bf0a605d"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 6, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408749942*^9}, + CellLabel->"(kernel 6)", + CellID->1421978948,ExpressionUUID->"8f0684f9-ee35-40c9-bda2-a740dcba5a18"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 7, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087503529*^9}, + CellLabel->"(kernel 7)", + CellID->2002155220,ExpressionUUID->"87e32844-557e-4b5f-a726-17660fa7703c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 8, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087514574*^9}, + CellLabel->"(kernel 8)", + CellID->1301517697,ExpressionUUID->"e65e261d-3c14-4ebb-8b46-3e349a6121a5"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 9, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087518943*^9}, + CellLabel->"(kernel 9)", + CellID->339505137,ExpressionUUID->"0b7a8e2b-81f5-40af-9e8d-dec817a59619"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087529984*^9}, + CellLabel->"(kernel 10)", + CellID->198787480,ExpressionUUID->"b0ac1d2f-7780-4be5-84d8-e319179fade2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 4, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540875478*^9}, + CellLabel->"(kernel 4)", + CellID->1684105275,ExpressionUUID->"fd308416-76f5-4dc1-b7c2-268da0ad0924"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 5, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540875522547`*^9}, + CellLabel->"(kernel 5)", + CellID->922889465,ExpressionUUID->"fec86806-3cd6-4337-877f-9e6157974985"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 6, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087560103*^9}, + CellLabel->"(kernel 6)", + CellID->1876339621,ExpressionUUID->"7be339a9-0ae6-4392-a246-f198822bbcba"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 7, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087565556*^9}, + CellLabel->"(kernel 7)", + CellID->1990137599,ExpressionUUID->"ee3a6320-2e40-4315-9666-08c0dab6176c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 8, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087573084*^9}, + CellLabel->"(kernel 8)", + CellID->1184824368,ExpressionUUID->"b5fe3a5c-56df-4baf-b687-f51d015fe730"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 9, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087576713*^9}, + CellLabel->"(kernel 9)", + CellID->1874777992,ExpressionUUID->"ce8338ed-4ac7-42b2-9032-b3aca3f45952"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408758538*^9}, + CellLabel->"(kernel 10)", + CellID->1513642760,ExpressionUUID->"d5c2c908-785f-4024-ba01-5780c53a4c99"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408759058*^9}, + CellLabel->"(kernel 1)", + CellID->702584958,ExpressionUUID->"1661333f-b28b-4baf-8667-da275636d37c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540875981894`*^9}, + CellLabel->"(kernel 2)", + CellID->1480297900,ExpressionUUID->"c96bc9d3-da2f-44d0-b36f-3543d91bce03"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087601568*^9}, + CellLabel->"(kernel 3)", + CellID->768754805,ExpressionUUID->"a5d6bcf3-7fac-4ce5-8cfd-f90316ee0697"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 6, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087610355*^9}, + CellLabel->"(kernel 6)", + CellID->1200387283,ExpressionUUID->"cc59fe9a-a71b-4465-85c5-d44766d5aafb"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 7, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087615671*^9}, + CellLabel->"(kernel 7)", + CellID->1447685463,ExpressionUUID->"10a19a70-3228-43ac-8601-afd6501513fe"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 8, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087623221*^9}, + CellLabel->"(kernel 8)", + CellID->259856131,ExpressionUUID->"c480718c-d75a-4181-a19c-0dca1f4ff3bc"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 9, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087626801*^9}, + CellLabel->"(kernel 9)", + CellID->1567739366,ExpressionUUID->"6d465938-eec0-4716-814f-90d1d9c5f96d"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087635058*^9}, + CellLabel->"(kernel 10)", + CellID->1518659319,ExpressionUUID->"86a9446d-2145-4998-8a42-77fe2ed419fe"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087639484*^9}, + CellLabel->"(kernel 1)", + CellID->1264029838,ExpressionUUID->"15a424a7-d44b-4f84-a968-f06a3f05cc9e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087647114*^9}, + CellLabel->"(kernel 2)", + CellID->1641251142,ExpressionUUID->"c195e261-a63a-4a72-a6aa-95328577d659"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540876511507`*^9}, + CellLabel->"(kernel 3)", + CellID->80497879,ExpressionUUID->"2f32aab0-a8d6-4b22-8ea4-2103a339fcfa"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087661378*^9}, + CellLabel->"(kernel 4)", + CellID->13154743,ExpressionUUID->"fd14e004-eebd-49eb-9bbe-ee0359645bb8"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540876660843`*^9}, + CellLabel->"(kernel 5)", + CellID->2048433607,ExpressionUUID->"4eacb1f4-e6f4-4d6b-9d77-6f9729d080fc"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 8, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087674016*^9}, + CellLabel->"(kernel 8)", + CellID->1713287792,ExpressionUUID->"3021bb1c-b7a8-4bb0-9f2e-6439f25fa449"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 9, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540876776857`*^9}, + CellLabel->"(kernel 9)", + CellID->1767181168,ExpressionUUID->"1f28d0bb-1751-460f-af5c-c08d0390ed2f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087686685*^9}, + CellLabel->"(kernel 10)", + CellID->1315052566,ExpressionUUID->"5aff4805-f284-44eb-a721-077df6e2ed98"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087690908*^9}, + CellLabel->"(kernel 1)", + CellID->186781838,ExpressionUUID->"e4dfd459-6329-456b-9097-2b4345ad397e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540876985397`*^9}, + CellLabel->"(kernel 2)", + CellID->1768742999,ExpressionUUID->"df720014-1ba2-4934-a407-ce10b8f0599a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087702249*^9}, + CellLabel->"(kernel 3)", + CellID->1794942419,ExpressionUUID->"9e7c379d-417b-4299-bfab-f94e4acdc7bb"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087711339*^9}, + CellLabel->"(kernel 4)", + CellID->1894446724,ExpressionUUID->"0cb84262-2300-4283-bf7f-97ab6c324b2f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087716065*^9}, + CellLabel->"(kernel 5)", + CellID->1373539846,ExpressionUUID->"af3409bb-5eae-44c8-b413-c85b01da1042"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087723604*^9}, + CellLabel->"(kernel 6)", + CellID->1782470119,ExpressionUUID->"706968c2-5bfa-40fd-9f4f-5c223efcb16c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087727131*^9}, + CellLabel->"(kernel 7)", + CellID->578414383,ExpressionUUID->"0fc53502-1d35-4b82-b9e7-0d1cd525015a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 10, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087736457*^9}, + CellLabel->"(kernel 10)", + CellID->1899548759,ExpressionUUID->"9e94b4bb-ec63-48d1-8666-4e130a5130f0"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087741179*^9}, + CellLabel->"(kernel 1)", + CellID->1224096211,ExpressionUUID->"7019e134-e745-4ca9-82e6-582c2dd4edf8"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087748602*^9}, + CellLabel->"(kernel 2)", + CellID->491680017,ExpressionUUID->"ef8b4df2-46b8-4cce-a36b-b6120ef47e57"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540877521*^9}, + CellLabel->"(kernel 3)", + CellID->148972063,ExpressionUUID->"09fbb9ea-54f8-4415-abaa-dbfee7dc9b30"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087760243*^9}, + CellLabel->"(kernel 4)", + CellID->1955014086,ExpressionUUID->"d7f78574-71e8-4fdf-9ed5-07941cf6531c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408776446*^9}, + CellLabel->"(kernel 5)", + CellID->1421944302,ExpressionUUID->"f3dc3a74-a30a-4ceb-aa35-e87070bd3140"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540877720137`*^9}, + CellLabel->"(kernel 6)", + CellID->1419859898,ExpressionUUID->"c092b187-edfc-48e4-8c5c-e9e14430fa80"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540877755632`*^9}, + CellLabel->"(kernel 7)", + CellID->747020222,ExpressionUUID->"47a9e0a3-62e0-4c0f-9fb6-21e1bceba28c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087779097*^9}, + CellLabel->"(kernel 8)", + CellID->979470792,ExpressionUUID->"cd61eed0-34ac-4784-9119-fb2c0fe6e876"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 1, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087786861*^9}, + CellLabel->"(kernel 9)", + CellID->1503446889,ExpressionUUID->"0d04eefb-8bec-4602-ba8a-5005577b9b48"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087791196*^9}, + CellLabel->"(kernel 1)", + CellID->1139272821,ExpressionUUID->"18d80501-8196-4e9e-9e0c-c64cbf1c2172"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087798882*^9}, + CellLabel->"(kernel 2)", + CellID->794105895,ExpressionUUID->"573e1a59-fc74-43b0-b57d-684101be896c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087802432*^9}, + CellLabel->"(kernel 3)", + CellID->2074394807,ExpressionUUID->"0b07e0a1-adde-40be-a22b-833c97738f2f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087811551*^9}, + CellLabel->"(kernel 4)", + CellID->2103995851,ExpressionUUID->"4cee745f-dc2e-45f3-922d-d66d959256e3"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087816308*^9}, + CellLabel->"(kernel 5)", + CellID->1392536255,ExpressionUUID->"26638c32-3133-4308-bc2c-510e84bd9626"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540878239202`*^9}, + CellLabel->"(kernel 6)", + CellID->1080052779,ExpressionUUID->"4bf03229-6477-4003-b460-85cb1fbfe296"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087827401*^9}, + CellLabel->"(kernel 7)", + CellID->1915272209,ExpressionUUID->"741f8964-c91a-4fc2-8e35-01199f0f07dd"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087836426*^9}, + CellLabel->"(kernel 8)", + CellID->1347631780,ExpressionUUID->"cd18f9bf-3645-4461-b536-24914d23514e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 3, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087840952*^9}, + CellLabel->"(kernel 9)", + CellID->137301551,ExpressionUUID->"2d8b3749-d080-413c-939e-e1f544db48c2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 2, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540878485394`*^9}, + CellLabel->"(kernel 10)", + CellID->1229730779,ExpressionUUID->"84440e3a-269a-46af-b68f-74709da6b61a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 11, ",", 11, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540878639593`*^9}, + CellLabel->"(kernel 1)", + CellID->702583925,ExpressionUUID->"97934a78-796e-4f0a-8ca5-8dd5a106dc87"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 12, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087867787*^9}, + CellLabel->"(kernel 2)", + CellID->1462936269,ExpressionUUID->"0687d3b4-6496-4d99-8d5f-ca5766149743"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 11, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087875195*^9}, + CellLabel->"(kernel 3)", + CellID->1029598580,ExpressionUUID->"658880df-694b-4903-bb5a-dce53d5c6735"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087878914*^9}, + CellLabel->"(kernel 4)", + CellID->40106534,ExpressionUUID->"24dcdcdf-bd4d-4a5e-9229-764199a4bc31"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087887521*^9}, + CellLabel->"(kernel 5)", + CellID->1908135427,ExpressionUUID->"36f21ff2-1f96-439d-b8a4-99f86e634812"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087891687*^9}, + CellLabel->"(kernel 6)", + CellID->1658820938,ExpressionUUID->"cd56f705-606a-4c97-afb7-f7da19575c13"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540878997173`*^9}, + CellLabel->"(kernel 7)", + CellID->1170799612,ExpressionUUID->"10b7ae3e-976f-4407-b796-ad1cb14ddf5e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408790359*^9}, + CellLabel->"(kernel 8)", + CellID->236421423,ExpressionUUID->"e0d6c493-393e-4afd-9129-c329b319cd64"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 5, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087912272*^9}, + CellLabel->"(kernel 9)", + CellID->690109411,ExpressionUUID->"746ebcf3-b070-4e6b-9e9d-345c20f2f453"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 4, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087916587*^9}, + CellLabel->"(kernel 10)", + CellID->109693230,ExpressionUUID->"df2f0220-3882-44c5-853b-f4a51384ff5b"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 12, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087931354*^9}, + CellLabel->"(kernel 2)", + CellID->1073147484,ExpressionUUID->"5871a669-5745-446b-901b-53e3cf836592"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 13, ",", 13, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087935255*^9}, + CellLabel->"(kernel 3)", + CellID->1822096082,ExpressionUUID->"eee3743b-d813-4f5c-a5cb-b83a20700a82"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 12, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540879428368`*^9}, + CellLabel->"(kernel 4)", + CellID->852043954,ExpressionUUID->"1a8cec97-5097-4086-b9ca-4a27a425d4a6"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 11, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087949212*^9}, + CellLabel->"(kernel 5)", + CellID->881776682,ExpressionUUID->"8ff98333-f48b-4061-b6a2-0d573efbad5f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087957519*^9}, + CellLabel->"(kernel 6)", + CellID->236046427,ExpressionUUID->"1a0e03c5-a619-4c18-9e1c-43458ac04014"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540879612017`*^9}, + CellLabel->"(kernel 7)", + CellID->830002580,ExpressionUUID->"ea23abe0-4804-414b-8978-be662e92a4bc"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087970208*^9}, + CellLabel->"(kernel 8)", + CellID->1947074795,ExpressionUUID->"10f561c5-b8d2-4e99-94b8-4a214526ee64"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 7, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540879744663`*^9}, + CellLabel->"(kernel 9)", + CellID->1130266579,ExpressionUUID->"567ad41d-c9f3-4933-af19-b8fc4c9d4d0b"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 6, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087982091*^9}, + CellLabel->"(kernel 10)", + CellID->1897535538,ExpressionUUID->"62df5fa6-4b54-4a29-8c29-5165818b194c"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 14, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087985736*^9}, + CellLabel->"(kernel 4)", + CellID->1747629216,ExpressionUUID->"aa67c2a4-16e8-43bb-91fe-7a21a764208f"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 13, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354087994808*^9}, + CellLabel->"(kernel 5)", + CellID->1270393293,ExpressionUUID->"37e6f703-50c0-473e-9613-99a818b4e842"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 12, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540879993753`*^9}, + CellLabel->"(kernel 6)", + CellID->1217656977,ExpressionUUID->"663979b9-0a2e-454d-8ffd-1356fb7a10a7"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 11, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088006843*^9}, + CellLabel->"(kernel 7)", + CellID->1789140176,ExpressionUUID->"cff4dcea-9e2e-493e-8088-3b5d5f2c11e7"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088010358*^9}, + CellLabel->"(kernel 8)", + CellID->1012912738,ExpressionUUID->"8767e77f-79ef-49b0-956b-5717a0db2ab1"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 9, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088018568*^9}, + CellLabel->"(kernel 9)", + CellID->921517797,ExpressionUUID->"db9544d5-e52e-4721-b0f7-4a43818d8be2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 8, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088022769*^9}, + CellLabel->"(kernel 10)", + CellID->297552015,ExpressionUUID->"6245dc56-d755-405d-9798-7de7d3b7fecb"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 14, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088030547*^9}, + CellLabel->"(kernel 4)", + CellID->1614785889,ExpressionUUID->"ce90ef0c-117c-4915-a315-a2c9e92576d9"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 15, ",", 15, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088034223*^9}, + CellLabel->"(kernel 5)", + CellID->1955589284,ExpressionUUID->"f508ea7d-d11e-46e3-b426-233f9ef43d75"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 14, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088040007*^9}, + CellLabel->"(kernel 6)", + CellID->351878853,ExpressionUUID->"bc4aa8fa-cfda-49c0-9ea0-b2cd3ae68762"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 13, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088047719*^9}, + CellLabel->"(kernel 7)", + CellID->2005402180,ExpressionUUID->"b234bbd7-d01b-491e-89da-62ed0908b486"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 12, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088051384*^9}, + CellLabel->"(kernel 8)", + CellID->38599595,ExpressionUUID->"3420d64a-b099-4697-8e49-f8b105274bd2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 11, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088061198*^9}, + CellLabel->"(kernel 9)", + CellID->203331771,ExpressionUUID->"efce6351-9027-4bff-bffa-28d56f07278b"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 10, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088066752*^9}, + CellLabel->"(kernel 10)", + CellID->750592820,ExpressionUUID->"f845ff4c-5c30-4bab-949c-f2674e007b60"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 16, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088081999*^9}, + CellLabel->"(kernel 6)", + CellID->894583262,ExpressionUUID->"ca76d0d3-8908-46a9-9e62-0409863d880e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 15, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408808597*^9}, + CellLabel->"(kernel 7)", + CellID->727871787,ExpressionUUID->"ba0c06d7-bfce-43c7-b359-414ff2222a78"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 14, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540880935173`*^9}, + CellLabel->"(kernel 8)", + CellID->1274270797,ExpressionUUID->"02faabd0-d9d0-4075-9f14-c9a125ab112d"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 13, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540880991087`*^9}, + CellLabel->"(kernel 9)", + CellID->1962357295,ExpressionUUID->"cb882724-a61e-4b83-8489-3440005b4c9e"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 12, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088106737*^9}, + CellLabel->"(kernel 10)", + CellID->285206439,ExpressionUUID->"bcd1d10f-d9f2-4bec-b60c-25775a4a0442"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 16, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540881105843`*^9}, + CellLabel->"(kernel 6)", + CellID->281120169,ExpressionUUID->"fc312cf2-5c54-48a5-96bb-2520373f1ea2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 17, ",", 17, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540881196117`*^9}, + CellLabel->"(kernel 7)", + CellID->322656983,ExpressionUUID->"c957c096-d79b-4a15-b1fb-e8eb2257dda3"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 16, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088124956*^9}, + CellLabel->"(kernel 8)", + CellID->499704606,ExpressionUUID->"b24a06d7-d0e6-47a2-937d-efbdd8794f30"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 15, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408813258*^9}, + CellLabel->"(kernel 9)", + CellID->1874253272,ExpressionUUID->"6dda7855-d346-46a0-83f0-9b11a887c8f6"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 14, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.9433540881363773`*^9}, + CellLabel->"(kernel 10)", + CellID->1284608308,ExpressionUUID->"cabd5fda-aec1-40df-8566-27304730b817"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 18, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088153523*^9}, + CellLabel->"(kernel 8)", + CellID->1758729265,ExpressionUUID->"bd0ce0de-bb61-4215-8fa3-df4e0a09f902"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 17, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088158819*^9}, + CellLabel->"(kernel 9)", + CellID->997839547,ExpressionUUID->"0ac87086-75a4-4273-9bf2-b0eacd29b555"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 16, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088166609*^9}, + CellLabel->"(kernel 10)", + CellID->989467006,ExpressionUUID->"f00d8729-ebd9-4bf4-acb3-89d8593aa3c7"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 18, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088170392*^9}, + CellLabel->"(kernel 8)", + CellID->2006091121,ExpressionUUID->"f8b65c0c-0493-47d4-9c3d-067a0d3d951b"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 19, ",", 19, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088178444*^9}, + CellLabel->"(kernel 9)", + CellID->880212747,ExpressionUUID->"86348e69-c285-4b1c-8c39-8d3bee760bd2"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 18, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408818379*^9}, + CellLabel->"(kernel 10)", + CellID->1868278293,ExpressionUUID->"45104968-d2fe-4191-b8f7-5347f2d3641a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 20, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.94335408819908*^9}, + CellLabel->"(kernel 10)", + CellID->1794867664,ExpressionUUID->"a8412bc9-ef53-402c-bfa0-92ec3badf18a"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"(l,m)=\"\>", "\[InvisibleSpace]", "\<\"(\"\>", + "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\",\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], + SequenceForm["(l,m)=", "(", 20, ",", 0, ")"], + Editable->False]], "Print", + ShowCellLabel->True, + CellChangeTimes->{3.943354088203188*^9}, + CellLabel->"(kernel 10)", + CellID->638039439,ExpressionUUID->"256c2fff-6f6a-409f-8936-aed651f066b1"] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell["The object built is: ", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "561e0da2-00fc-4fd2-a891-8d4cc365e9b7"]], "MathCaption", + CellChangeTimes->{{3.942224748073895*^9, 3.942224756895935*^9}, + 3.943337088178856*^9}, + CellID->1092717571,ExpressionUUID->"139e2491-65a5-468e-b855-43c48c7cbcff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}]], "Input", + CellChangeTimes->{{3.942224693869556*^9, 3.942224694182303*^9}}, + CellLabel->"In[28]:=", + CellID->620046824,ExpressionUUID->"2db6e953-1032-4fdc-a0f9-6f59a66f018d"], + +Cell[BoxData["14.`50."], "Output", + CellChangeTimes->{{3.94222468805135*^9, 3.942224694579714*^9}, + 3.942384888509431*^9, 3.942743283261313*^9, 3.943336787331884*^9, + 3.943337392939268*^9, 3.9433541258984613`*^9}, + CellLabel->"Out[28]=", + CellID->1143001802,ExpressionUUID->"0a432737-95af-4ad7-8e20-984683654565"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"SetPrecision", "[", + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", "5"}], "]"}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.942224697645029*^9, 3.942224730328545*^9}}, + CellLabel->"In[29]:=", + CellID->1791726223,ExpressionUUID->"c01f607d-b76e-440a-88f4-b3096fe5831b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0", + RowBox[{"-", "0.000037154508158571`5."}]}, + {"1.`5.", "9.30998774901249966914461517454784`5.*^-6"}, + {"2.`5.", "0.00001118141305650192264040753535114723`5."}, + {"3.`5.", "5.73150998829450643315702609036013`5.*^-6"}, + {"4.`5.", "3.09551006965407877638937105570058`5.*^-6"}, + {"5.`5.", "1.90858731932564280216095353434335`5.*^-6"}, + {"6.`5.", "1.30422970590083647497202805671`5.*^-6"}, + {"7.`5.", "9.5405859877200244708758274845078`5.*^-7"}, + {"8.`5.", "7.3088943785307676814772548622357`5.*^-7"}, + {"9.`5.", "5.7892659149030199174022983644971`5.*^-7"}, + {"10.`5.", "4.7039253045283470004128205179382`5.*^-7"}, + {"11.`5.", "3.9001444205505251519147219648441`5.*^-7"}, + {"12.`5.", "3.2875393413332186593950979993093`5.*^-7"}, + {"13.`5.", "2.809562941843149498727804191039`5.*^-7"}, + {"14.`5.", "2.429256852044597583618373235945`5.*^-7"}, + {"15.`5.", "2.1215911429247910271484073705049`5.*^-7"}, + {"16.`5.", "1.8691036617800753992102852625191`5.*^-7"}, + {"17.`5.", "1.6593004018522855768052817103991`5.*^-7"}, + {"18.`5.", "1.4830450638665828614421994205552`5.*^-7"}, + {"19.`5.", "1.3335283255163899601207274428562`5.*^-7"}, + {"20.`5.", "1.205589289645254398607027820845`5.*^-7"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.942224697946521*^9, 3.942224730710928*^9}, + 3.942384890323847*^9, 3.942743283284279*^9, 3.9433367873444653`*^9, + 3.943337392960347*^9, 3.9433541259158773`*^9}, + CellLabel->"Out[29]//MatrixForm=", + CellID->1190063799,ExpressionUUID->"97296091-d4dc-4667-bea7-5fdfae316f43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"Frame", "->", "True"}], ",", + RowBox[{"FrameStyle", "->", "Black"}], ",", " ", + RowBox[{"FrameLabel", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], "]"}], + ",", + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], "]"}]}], + "}"}]}], ",", + RowBox[{"ImageSize", "->", "500"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input", + CellChangeTimes->{{3.942742984043539*^9, 3.94274298471082*^9}}, + CellLabel->"In[30]:=", + CellID->842357200,ExpressionUUID->"c43f7e98-d725-44fa-9481-eb6221156e4c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQO1nF91T1cx74fwPtjP7pX66dT22A4q7bCusnTr +z6LnUD6HwyYzuQpNrhtQvoDD+Z2JK/q+n4TyRRwOfF7wcwXTAShfwsGUSWLX +/IdboXwZB+Gt91qXMW6A8hUcfG/9u+fVtgLKV3Iw3ruN82POYihfxcEtwdzK +Y+J8KF/NYZvCr+WpOrOgfA0Hy1kXxD/zT4PytRwWvy+6eerWJChfx+FsSnhZ +nu8EKF/PgVeI0293ZQ+Ub+AQ4bHnu4FYJ5Rv6MD6apJggGsblG/kILzkpvWW +581QvrHDwqa619+fNkL5Jg7cJ4/3xus12AEAyopcRw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + 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[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQO1nF91T1cx74fwPtjP7pX66dT22A4q7bCusnTr +z6LnUD6HwyYzuQpNrhtQvoDD+Z2JK/q+n4TyRRwOfF7wcwXTAShfwsGUSWLX +/IdboXwZB+Gt91qXMW6A8hUcfG/9u+fVtgLKV3Iw3ruN82POYihfxcEtwdzK +Y+J8KF/NYZvCr+WpOrOgfA0Hy1kXxD/zT4PytRwWvy+6eerWJChfx+FsSnhZ +nu8EKF/PgVeI0293ZQ+Ub+AQ4bHnu4FYJ5Rv6MD6apJggGsblG/kILzkpvWW +581QvrHDwqa619+fNkL5Jg7cJ4/3xus12AEAyopcRw== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {-0.00003715450815857094, + 0.000011181413056501922`}}, + "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {500, 500/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {-0.00003715450815857094, + 0.000011181413056501922`}}, + "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {500, 500/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "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}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQO1nF91T1cx74fwPtjP7pX66dT22A4q7bCusnTr +z6LnUD6HwyYzuQpNrhtQvoDD+Z2JK/q+n4TyRRwOfF7wcwXTAShfwsGUSWLX +/IdboXwZB+Gt91qXMW6A8hUcfG/9u+fVtgLKV3Iw3ruN82POYihfxcEtwdzK +Y+J8KF/NYZvCr+WpOrOgfA0Hy1kXxD/zT4PytRwWvy+6eerWJChfx+FsSnhZ +nu8EKF/PgVeI0293ZQ+Ub+AQ4bHnu4FYJ5Rv6MD6apJggGsblG/kILzkpvWW +581QvrHDwqa619+fNkL5Jg7cJ4/3xus12AEAyopcRw== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {-0.00003715450815857094, + 0.000011181413056501922`}}, "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {500, 500/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "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, 0}, + DisplayFunction->Identity, + Frame->{{True, True}, {True, True}}, + FrameLabel->{{ + FormBox[ + TagBox[ + StyleBox[ + "\"Fr\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}, { + FormBox[ + TagBox[ + StyleBox[ + "\"l-modes\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}}, + FrameStyle->GrayLevel[0], + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImageSize->500, + 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, 20.}, {-0.00003715450815857094, 0.000011181413056501922`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.942743289311791*^9, 3.943336787606769*^9, + 3.943337393232407*^9, 3.943354126203766*^9}, + CellLabel->"Out[30]=", + CellID->12858048,ExpressionUUID->"3f415332-fc88-4639-8061-1ab1fbd12992"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell[TextData[{ + "In a Log-Log plot it's clear the behaviour of the tail as ", + Cell[BoxData[ + FormBox[ + RowBox[{ + RowBox[{ + SuperscriptBox["L", + RowBox[{"-", "2"}]], " ", "where", " ", "L"}], "=", + RowBox[{"l", "+", + RowBox[{"1", "/", "2."}]}]}], TraditionalForm]], "InlineFormula", + ExpressionUUID->"98899741-13dc-48f9-a3b2-d9b8da518df5"] + }], "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "1cd5fb81-c145-4702-adcf-1ef788c40145"]], "MathCaption", + CellChangeTimes->{{3.942743028083913*^9, 3.942743038081521*^9}, { + 3.9433358828413973`*^9, 3.943335904331255*^9}, 3.9433370980563593`*^9}, + CellID->1517931683,ExpressionUUID->"12798ad0-502a-4be4-ac15-81b5b8332ffa"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Lfunction", "[", "l_", "]"}], ":=", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}], + RowBox[{"-", "2"}]]}]], "Input", + CellChangeTimes->{{3.9427430981953588`*^9, 3.9427431162293787`*^9}, { + 3.942743303270405*^9, 3.942743303342945*^9}, {3.942743804853621*^9, + 3.94274380498936*^9}, {3.942744031016*^9, 3.942744031294791*^9}, { + 3.942744126866407*^9, 3.942744138348942*^9}}, + CellLabel->"In[31]:=", + CellID->1779883919,ExpressionUUID->"bf3a6f62-1fec-4ba1-98f3-abfbde3a6ef6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ListLogLogPlot", "[", + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"Frame", "->", "True"}], ",", + RowBox[{"FrameStyle", "->", "Black"}], ",", " ", + RowBox[{"FrameLabel", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], "]"}], + ",", + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], + "]"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "->", "500"}], ",", + RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", " ", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"LogLogPlot", "[", " ", + RowBox[{ + RowBox[{"5.1", " ", + SuperscriptBox["10", + RowBox[{"-", "5"}]], + RowBox[{"Lfunction", "[", "l", "]"}]}], ",", + RowBox[{"{", + RowBox[{"l", ",", "1", ",", "20"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}]}], "\[IndentingNewLine]", + "]"}]], "Input", + CellChangeTimes->{{3.942224769332748*^9, 3.942224801887512*^9}, { + 3.942224909546299*^9, 3.942225011869866*^9}, {3.942225190044023*^9, + 3.942225256680888*^9}, {3.942225313826285*^9, 3.94222532705799*^9}, { + 3.942386742221846*^9, 3.942386765414486*^9}, {3.942743064264516*^9, + 3.942743130772616*^9}, {3.942743661737986*^9, 3.9427436955846167`*^9}, { + 3.942743731440555*^9, 3.942743752753924*^9}, {3.942744037980996*^9, + 3.9427440531207933`*^9}, {3.942744130988942*^9, 3.9427441677425838`*^9}}, + CellLabel->"In[32]:=", + CellID->2107145134,ExpressionUUID->"53d50c10-f4e8-4590-bc36-af7236c11960"], + +Cell[BoxData[ + GraphicsBox[{{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQDQMzYlvKLLXVD7y3/PXPSe+Z/fbl+csKz6od4GZe +W/Vq8kd7nwLPxTOVNaDy3+xFfi0oYIzXPGDc+/a744Gf9ofWLC+bFaZ1gElB +6xf36j/2zh+6LHsktQ+ERxmtK1L6b18uv+3DvJ3aB4pXW9tvWsTgEK+z/zCP +kw7UfEaHrV2pD5N36hwQC926e2M2k8PKo23165V1D/iY129/rMfs4F140GlB +s+6B2nmX94g9ZHaI+SYrJntb90Bgj6E2SyuLw23GqLu92noHlu++LnZKhtVB +Lf5dAWuZ3gF5D19LsVWsDh/zfohG79aDup/N4ZpF4H2rP3oHqup/HcxexeZg +JM2xwcBS/0DbxGyranl2h+pnmU/WF+kf0NnMwmbWx+5Q+0X7rMRK/QMTHxdX +O31nd6iTNdy8547+AQC8Lo/l + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + 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[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQDQMzYlvKLLXVD7y3/PXPSe+Z/fbl+csKz6od4GZe +W/Vq8kd7nwLPxTOVNaDy3+xFfi0oYIzXPGDc+/a744Gf9ofWLC+bFaZ1gElB +6xf36j/2zh+6LHsktQ+ERxmtK1L6b18uv+3DvJ3aB4pXW9tvWsTgEK+z/zCP +kw7UfEaHrV2pD5N36hwQC926e2M2k8PKo23165V1D/iY129/rMfs4F140GlB +s+6B2nmX94g9ZHaI+SYrJntb90Bgj6E2SyuLw23GqLu92noHlu++LnZKhtVB +Lf5dAWuZ3gF5D19LsVWsDh/zfohG79aDup/N4ZpF4H2rP3oHqup/HcxexeZg +JM2xwcBS/0DbxGyranl2h+pnmU/WF+kf0NnMwmbWx+5Q+0X7rMRK/QMTHxdX +O31nd6iTNdy8547+AQC8Lo/l + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{-0.12612240908625716`, + 2.995732273553991}, {-16.285615158874407`, \ +-11.401257706765916`}}, "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {-0.12612240908625716`, -16.285615158874407`}, + "ImageSize" -> {500, 500/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListLogLogPlot, "GroupHighlight" -> + False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{-0.12612240908625716`, + 2.995732273553991}, {-16.285615158874407`, \ +-11.401257706765916`}}, "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {-0.12612240908625716`, -16.285615158874407`}, + "ImageSize" -> {500, 500/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListLogLogPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQDQMzYlvKLLXVD7y3/PXPSe+Z/fbl+csKz6od4GZe +W/Vq8kd7nwLPxTOVNaDy3+xFfi0oYIzXPGDc+/a744Gf9ofWLC+bFaZ1gElB +6xf36j/2zh+6LHsktQ+ERxmtK1L6b18uv+3DvJ3aB4pXW9tvWsTgEK+z/zCP +kw7UfEaHrV2pD5N36hwQC926e2M2k8PKo23165V1D/iY129/rMfs4F140GlB +s+6B2nmX94g9ZHaI+SYrJntb90Bgj6E2SyuLw23GqLu92noHlu++LnZKhtVB +Lf5dAWuZ3gF5D19LsVWsDh/zfohG79aDup/N4ZpF4H2rP3oHqup/HcxexeZg +JM2xwcBS/0DbxGyranl2h+pnmU/WF+kf0NnMwmbWx+5Q+0X7rMRK/QMTHxdX +O31nd6iTNdy8547+AQC8Lo/l + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{-0.12612240908625716`, + 2.995732273553991}, {-16.285615158874407`, -11.401257706765916`}}, + "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {-0.12612240908625716`, -16.285615158874407`}, + "ImageSize" -> {500, 500/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListLogLogPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[1, 0, 0], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVjWs01GkcgKeJ/lGpqCGTtpW5MeNv05wuW95Xatux5TByJnKkJENMuii1 +qRVKayiarMus1jJoc8mtqKl+bC3JpViXIooooxmXkUvIth+e85zn0/PtgSNC +XyqFQtn1lf8tq33lu9s/2C592CE104cBpeGOq/+lO6GACDvb7QcZ4KiaOJNA +90ImffWtvV9btso55yhdgp5z8n5gHWJAedmU3X76OXR40OH+X2IG1Ea56LvT +45BZ29SX4iAGuAVOD+6mp6FxZ1l/wykGpHS96BbS81FWh8KQJ2XAq/xb46f2 +PUKtHnc4M2UMUD9oyOY7VaFO0WhKeg8D3Fvt0wL/qUd5VYo1VgZMqHnAd9kb +3IRCXfu09C1M8Gm6c0mwoRVlzdREKvyZ4JtvtN3epR0x5Kd/LEhhQsefudnG +oi60MNJ0fuIzJojVe260x7xFmuV+zPZJJiwPFFjflvUg/o7u0DIuC8IXBov6 +z/QiZsjbtc2eLMgpX9cUL3qP7PXNJ69KWXBB4Gf4yLMfOTx0CZ0AFtCnGgac +0QAysZfzA0dY4HclK9rPUY1oz8JyU9lskNjQQ9U/DaJUF9k8Ly82pEx2UwKv +DyF6WE3p9FU2iHYeyV6TPIzM9+fzfavZoC2gpcbGjKC9rRYW8dNs6NcJGdqY +oEVrxdyMBD4HNnubD5rJRhGLwI9mgzggqVVtKon8hIrdn9wmMjjwmRPwQXp5 +DFUS5EdNBwd8k3R6jMPGkWn0OrqnkSVYL9JcfHV4AiUoHfUXCCzB5XictEsy +iVaeHtJLj7AEV5WgK9H7M9pa8num/J4lFAiV164emkJV3Z0+F8csQVwRNlzh +N41U8n17sr+zAoq9h1whmkFM6Qmjpf5WMFKoznm29wt6U6n1kiis4G9bOTXT +aRYlmxU26HZaweTrWqrHKgrOsypacXc5Fx6YsvgRNyhYmbbU1VvIheEugzhd +kzl4y1nLy7wYLjSaNRrfTJmDc7cq1GPVXDB/Z16tWEbFI2t6lW1UHqTz6Lvs +pFRsn+eWVfk9D+oGNdSJRXNxX3rbw1uneeC/yblL/9JcrGd8SJ1azIOiGelH +O30dbJty3T1uhAecbUfrDWJ0cIz/7dgLNtawxKinZf1cXTxreLhWEmANmR42 +Sy5E6eJdqksH9t20hmzLBcGMWV3M+iXnDH5nDS/DYjMPnpyHFyuOb1i2ioQy +wYDek/F5+KxgwXyNJwlEWsv1c8EEflPkTub9RsIJvFORfIzAtHPxpcVJJHR3 +V5SUnCCwQadsy71kEpSsvCZVKIGb46eFVakkHCuMWCoKJ3DNdodrb2+Q0PHY +JpZMIHDiN47+tBwSigZ+jXxTTODNpgxxeBkJq+MosqlSAq8I0jKjy0mItTmZ +QSsjsGTd+fdx90gQh+yv3KkkcJBPXZBcSYLZ7HpK+WMCd6zccOUukBBt2Ptz +fDOBQyz6LDTVJIyVeMTkthL4fK1odvQpCT6i5ylVLwkcRfmlfaqGBDv5/fKZ +1wQecxtJ0qsjQctIGPfvI/D6h0I24wUJ3tUEEfWBwLZ1gUu4jSTUB4TR/lAR +uHBm4+e1TSTkFIj5LZqv/8UfG3EzCTRh57bhIQKbmzyv2NFCQsSo6+6FWgKb +XPEtcmolYSjxqQ/rE4EF83Mz3dpI8NqIjm8dJ7CncUaS50sS/gPfQVSN + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + AbsoluteThickness[2], + RGBColor[1, 0, 0]], + Line[CompressedData[" +1:eJwVjWs01GkcgKeJ/lGpqCGTtpW5MeNv05wuW95Xatux5TByJnKkJENMuii1 +qRVKayiarMus1jJoc8mtqKl+bC3JpViXIooooxmXkUvIth+e85zn0/PtgSNC +XyqFQtn1lf8tq33lu9s/2C592CE104cBpeGOq/+lO6GACDvb7QcZ4KiaOJNA +90ImffWtvV9btso55yhdgp5z8n5gHWJAedmU3X76OXR40OH+X2IG1Ea56LvT +45BZ29SX4iAGuAVOD+6mp6FxZ1l/wykGpHS96BbS81FWh8KQJ2XAq/xb46f2 +PUKtHnc4M2UMUD9oyOY7VaFO0WhKeg8D3Fvt0wL/qUd5VYo1VgZMqHnAd9kb +3IRCXfu09C1M8Gm6c0mwoRVlzdREKvyZ4JtvtN3epR0x5Kd/LEhhQsefudnG +oi60MNJ0fuIzJojVe260x7xFmuV+zPZJJiwPFFjflvUg/o7u0DIuC8IXBov6 +z/QiZsjbtc2eLMgpX9cUL3qP7PXNJ69KWXBB4Gf4yLMfOTx0CZ0AFtCnGgac +0QAysZfzA0dY4HclK9rPUY1oz8JyU9lskNjQQ9U/DaJUF9k8Ly82pEx2UwKv +DyF6WE3p9FU2iHYeyV6TPIzM9+fzfavZoC2gpcbGjKC9rRYW8dNs6NcJGdqY +oEVrxdyMBD4HNnubD5rJRhGLwI9mgzggqVVtKon8hIrdn9wmMjjwmRPwQXp5 +DFUS5EdNBwd8k3R6jMPGkWn0OrqnkSVYL9JcfHV4AiUoHfUXCCzB5XictEsy +iVaeHtJLj7AEV5WgK9H7M9pa8num/J4lFAiV164emkJV3Z0+F8csQVwRNlzh +N41U8n17sr+zAoq9h1whmkFM6Qmjpf5WMFKoznm29wt6U6n1kiis4G9bOTXT +aRYlmxU26HZaweTrWqrHKgrOsypacXc5Fx6YsvgRNyhYmbbU1VvIheEugzhd +kzl4y1nLy7wYLjSaNRrfTJmDc7cq1GPVXDB/Z16tWEbFI2t6lW1UHqTz6Lvs +pFRsn+eWVfk9D+oGNdSJRXNxX3rbw1uneeC/yblL/9JcrGd8SJ1azIOiGelH +O30dbJty3T1uhAecbUfrDWJ0cIz/7dgLNtawxKinZf1cXTxreLhWEmANmR42 +Sy5E6eJdqksH9t20hmzLBcGMWV3M+iXnDH5nDS/DYjMPnpyHFyuOb1i2ioQy +wYDek/F5+KxgwXyNJwlEWsv1c8EEflPkTub9RsIJvFORfIzAtHPxpcVJJHR3 +V5SUnCCwQadsy71kEpSsvCZVKIGb46eFVakkHCuMWCoKJ3DNdodrb2+Q0PHY +JpZMIHDiN47+tBwSigZ+jXxTTODNpgxxeBkJq+MosqlSAq8I0jKjy0mItTmZ +QSsjsGTd+fdx90gQh+yv3KkkcJBPXZBcSYLZ7HpK+WMCd6zccOUukBBt2Ptz +fDOBQyz6LDTVJIyVeMTkthL4fK1odvQpCT6i5ylVLwkcRfmlfaqGBDv5/fKZ +1wQecxtJ0qsjQctIGPfvI/D6h0I24wUJ3tUEEfWBwLZ1gUu4jSTUB4TR/lAR +uHBm4+e1TSTkFIj5LZqv/8UfG3EzCTRh57bhIQKbmzyv2NFCQsSo6+6FWgKb +XPEtcmolYSjxqQ/rE4EF83Mz3dpI8NqIjm8dJ7CncUaS50sS/gPfQVSN + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, + Log[20]}, {-15.924534578236198`, -10.694615222972802`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., -15.924534578236162`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, + Log[20]}, {-15.924534578236198`, -10.694615222972802`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., -15.924534578236162`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + AbsoluteThickness[2], + RGBColor[1, 0, 0]], + Line[CompressedData[" +1:eJwVjWs01GkcgKeJ/lGpqCGTtpW5MeNv05wuW95Xatux5TByJnKkJENMuii1 +qRVKayiarMus1jJoc8mtqKl+bC3JpViXIooooxmXkUvIth+e85zn0/PtgSNC +XyqFQtn1lf8tq33lu9s/2C592CE104cBpeGOq/+lO6GACDvb7QcZ4KiaOJNA +90ImffWtvV9btso55yhdgp5z8n5gHWJAedmU3X76OXR40OH+X2IG1Ea56LvT +45BZ29SX4iAGuAVOD+6mp6FxZ1l/wykGpHS96BbS81FWh8KQJ2XAq/xb46f2 +PUKtHnc4M2UMUD9oyOY7VaFO0WhKeg8D3Fvt0wL/qUd5VYo1VgZMqHnAd9kb +3IRCXfu09C1M8Gm6c0mwoRVlzdREKvyZ4JtvtN3epR0x5Kd/LEhhQsefudnG +oi60MNJ0fuIzJojVe260x7xFmuV+zPZJJiwPFFjflvUg/o7u0DIuC8IXBov6 +z/QiZsjbtc2eLMgpX9cUL3qP7PXNJ69KWXBB4Gf4yLMfOTx0CZ0AFtCnGgac +0QAysZfzA0dY4HclK9rPUY1oz8JyU9lskNjQQ9U/DaJUF9k8Ly82pEx2UwKv +DyF6WE3p9FU2iHYeyV6TPIzM9+fzfavZoC2gpcbGjKC9rRYW8dNs6NcJGdqY +oEVrxdyMBD4HNnubD5rJRhGLwI9mgzggqVVtKon8hIrdn9wmMjjwmRPwQXp5 +DFUS5EdNBwd8k3R6jMPGkWn0OrqnkSVYL9JcfHV4AiUoHfUXCCzB5XictEsy +iVaeHtJLj7AEV5WgK9H7M9pa8num/J4lFAiV164emkJV3Z0+F8csQVwRNlzh +N41U8n17sr+zAoq9h1whmkFM6Qmjpf5WMFKoznm29wt6U6n1kiis4G9bOTXT +aRYlmxU26HZaweTrWqrHKgrOsypacXc5Fx6YsvgRNyhYmbbU1VvIheEugzhd +kzl4y1nLy7wYLjSaNRrfTJmDc7cq1GPVXDB/Z16tWEbFI2t6lW1UHqTz6Lvs +pFRsn+eWVfk9D+oGNdSJRXNxX3rbw1uneeC/yblL/9JcrGd8SJ1azIOiGelH +O30dbJty3T1uhAecbUfrDWJ0cIz/7dgLNtawxKinZf1cXTxreLhWEmANmR42 +Sy5E6eJdqksH9t20hmzLBcGMWV3M+iXnDH5nDS/DYjMPnpyHFyuOb1i2ioQy +wYDek/F5+KxgwXyNJwlEWsv1c8EEflPkTub9RsIJvFORfIzAtHPxpcVJJHR3 +V5SUnCCwQadsy71kEpSsvCZVKIGb46eFVakkHCuMWCoKJ3DNdodrb2+Q0PHY +JpZMIHDiN47+tBwSigZ+jXxTTODNpgxxeBkJq+MosqlSAq8I0jKjy0mItTmZ +QSsjsGTd+fdx90gQh+yv3KkkcJBPXZBcSYLZ7HpK+WMCd6zccOUukBBt2Ptz +fDOBQyz6LDTVJIyVeMTkthL4fK1odvQpCT6i5ylVLwkcRfmlfaqGBDv5/fKZ +1wQecxtJ0qsjQctIGPfvI/D6h0I24wUJ3tUEEfWBwLZ1gUu4jSTUB4TR/lAR +uHBm4+e1TSTkFIj5LZqv/8UfG3EzCTRh57bhIQKbmzyv2NFCQsSo6+6FWgKb +XPEtcmolYSjxqQ/rE4EF83Mz3dpI8NqIjm8dJ7CncUaS50sS/gPfQVSN + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, + Log[20]}, {-15.924534578236198`, -10.694615222972802`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., -15.924534578236162`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{-0.12612240908625716`, -16.285615158874407`}, + DisplayFunction->Identity, + Frame->{{True, True}, {True, True}}, + FrameLabel->{{ + FormBox[ + TagBox[ + StyleBox[ + "\"Fr\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}, { + FormBox[ + TagBox[ + StyleBox[ + "\"l-modes\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}}, + FrameStyle->GrayLevel[0], + FrameTicks->FrontEndValueCache[{{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, { + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{-16.11809565095832, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1", + TemplateBox[{"10", + RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-14.508657738524219`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5", + TemplateBox[{"10", + RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1", + TemplateBox[{"10", + RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-12.206072645530174`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5", + TemplateBox[{"10", + RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-11.512925464970229`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-18.420680743952367`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.72753356339242, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.322068455284256`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.034386382832476`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.811242831518264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.62892127472431, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.474770594897052`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.34123920227253, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.223456166616145`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.424948470398375`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.01948336229021, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.73180128983843, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.326336181730264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.172185501903007`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.038654109278484`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.9208710736221, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.122363377404328`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.716898269296165`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.429216196844383`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.02375108873622, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.86960040890896, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.736069016284437`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.618285980628055`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.819778284410283`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.41431317630212, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.126631103850338`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.903487552536127, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.721165995742174, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.567015315914915, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.433483923290392, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.315700887634009, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}, {{-16.11809565095832, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-14.508657738524219`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-12.206072645530174`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-11.512925464970229`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-18.420680743952367`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.72753356339242, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.322068455284256`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.034386382832476`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.811242831518264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.62892127472431, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.474770594897052`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.34123920227253, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.223456166616145`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.424948470398375`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.01948336229021, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.73180128983843, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.326336181730264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.172185501903007`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.038654109278484`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.9208710736221, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.122363377404328`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.716898269296165`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.429216196844383`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.02375108873622, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.86960040890896, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.736069016284437`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.618285980628055`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.819778284410283`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.41431317630212, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.126631103850338`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.903487552536127, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.721165995742174, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.567015315914915, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.433483923290392, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.315700887634009, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {{{ + 0., + FormBox["1", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`, + FormBox["5", TraditionalForm], {0.01, 0.}}, {2.302585092994046, + FormBox["10", TraditionalForm], {0.01, 0.}}, {-0.6931471805599453, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.5108256237659907, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.35667494393873245`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.2231435513142097, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.10536051565782628`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.6931471805599453, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.0986122886681098`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.3862943611198906`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.791759469228055, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.9459101490553132`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.0794415416798357`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.1972245773362196`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.995732273553991, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.4011973816621555`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.6888794541139363`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.912023005428146, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ + 0., + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, { + 1.6094379124341003`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, { + 2.302585092994046, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-0.6931471805599453, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.5108256237659907, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.35667494393873245`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.2231435513142097, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-0.10536051565782628`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 0.6931471805599453, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.0986122886681098`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.3862943611198906`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.791759469228055, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.9459101490553132`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.0794415416798357`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.1972245773362196`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.995732273553991, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.4011973816621555`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.6888794541139363`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.912023005428146, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImageSize->500, + 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" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& )}}, + PlotRange->{{-0.12612240908625716`, + 2.995732273553991}, {-16.285615158874407`, -11.401257706765916`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0], + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + 15.954589770191003`, RotateLabel -> 0]}]], "Output", + CellChangeTimes->{{3.942224777075023*^9, 3.942224802249116*^9}, { + 3.94222491033073*^9, 3.94222501225082*^9}, {3.942225190408408*^9, + 3.942225256925858*^9}, {3.942225314959273*^9, 3.942225327356159*^9}, + 3.942384894991661*^9, {3.94238674307346*^9, 3.942386765852393*^9}, + 3.942743132275466*^9, 3.942743295186521*^9, {3.942743662599984*^9, + 3.942743696019923*^9}, {3.942743731639515*^9, 3.9427437532049847`*^9}, + 3.9427438064792767`*^9, {3.942744032730685*^9, 3.942744053329765*^9}, { + 3.94274412835776*^9, 3.9427441679215097`*^9}, 3.9433367877413893`*^9, + 3.943337393324095*^9, 3.9433541263025703`*^9}, + CellLabel->"Out[32]=", + CellID->1356848036,ExpressionUUID->"25052509-207c-4031-9428-79cff6e2a02f"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell["The total is", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "3b32cc3c-2761-4ae8-8448-ae75b08f3a47"]], "MathCaption", + CellChangeTimes->{{3.942224548776338*^9, 3.942224664808625*^9}, { + 3.942384900185828*^9, 3.942384901633303*^9}, 3.943337112079116*^9}, + CellID->465649956,ExpressionUUID->"868e3e89-0e8f-41a2-a01f-71b29fda6ecf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FrWithoutTail", " ", "=", " ", + RowBox[{"Total", "[", + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", + RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}]], "Input", + CellLabel->"In[33]:=", + CellID->1240973681,ExpressionUUID->"b8f5314b-0770-40a1-9c43-6b72bbb52695"], + +Cell[BoxData["3.2086303282244951697647868159623`21.118386711318227*^-7"], \ +"Output", + CellChangeTimes->{3.942384903998495*^9, 3.942743853684334*^9, + 3.943336787811591*^9, 3.943337393383623*^9, 3.94335412636425*^9}, + CellLabel->"Out[33]=", + CellID->416093559,ExpressionUUID->"43ea00f6-b701-47df-be7a-95b178f2b883"] +}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{" ", Cell["\<\ +in agreement with the one computed with the fucntion FrInfSelf[lmax,r0,\ +\[Theta],\[Phi]]. \ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "36e81a52-9bb8-4745-a4ff-596c235c462c"]}]], "Text", + CellChangeTimes->{{3.9423849369285603`*^9, 3.942384972976095*^9}, { + 3.942743860571253*^9, 3.942743864127518*^9}, 3.9433368466472263`*^9, { + 3.9433371212613783`*^9, 3.943337133770856*^9}}, + CellID->151398904,ExpressionUUID->"eab2632b-b640-4fe2-b457-90756b42aa9f"], + +Cell[CellGroupData[{ + +Cell["High-l tail contribution", "Subsection", + CellChangeTimes->{{3.897063117428068*^9, 3.89706312232862*^9}, { + 3.94214163059673*^9, 3.942141642277425*^9}, {3.942142597066136*^9, + 3.942142598856303*^9}, {3.9421465402791758`*^9, 3.942146547359179*^9}, { + 3.942147876763295*^9, 3.942147877001316*^9}}, + CellID->1700483889,ExpressionUUID->"7fea6b7b-71b7-4da2-a121-8bbc53ee04b9"], + +Cell[CellGroupData[{ + +Cell["Method following https://arxiv.org/pdf/1003.1860", "Subsubsection", + CellChangeTimes->{{3.9427422925021963`*^9, 3.94274230702743*^9}}, + CellID->2036569527,ExpressionUUID->"6d4ce05e-6f96-49ae-923a-2481029c7820"], + +Cell[TextData[{ + "High-l tail contribution ", + Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["F", "r", + RowBox[{"l", ">", "lmax"}]], " ", "=", " ", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"l", "=", + RowBox[{"lmax", "+", "1"}]}]}], "\[Infinity]"], + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]]}]}]], "InlineFormula",ExpressionUUID-> + "14986cfe-675f-468a-b84b-def4bcee6a51"], + " is computed by extrapolating the last ", + Cell[BoxData[ + OverscriptBox["n", "_"]], "InlineFormula",ExpressionUUID-> + "bdf845d5-0a7c-4661-9d9d-d4d8923dcfc6"], + " computed ", + Cell[BoxData[ + RowBox[{"l", "-", "modes"}]], "InlineFormula",ExpressionUUID-> + "e63128ff-652e-4b34-9675-f3672c1a81dd"], + " using the fitting formula ", + Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]], " ", "=", " ", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"n", "=", "1"}]}], "N"], + FractionBox[ + SubsuperscriptBox["D", + RowBox[{"2", "n"}], "r"], + SuperscriptBox["L", + RowBox[{"2", "n"}]]]}]}]], "InlineFormula",ExpressionUUID-> + "b01ceb3c-d976-4251-859e-2b57c9b0a24e"], + ", where ", + Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}]}]],ExpressionUUID-> + "03011896-5c2a-4005-b3ce-87061fd1d6af"], + ". " +}], "Text", + CellChangeTimes->{{3.942143259299312*^9, 3.942143283366045*^9}, { + 3.942143375995582*^9, 3.942143566795103*^9}, {3.9421465973848763`*^9, + 3.942146719246971*^9}, {3.942147458502023*^9, 3.942147583521721*^9}, { + 3.942147873779735*^9, 3.942147874174622*^9}, {3.9423834886578207`*^9, + 3.942383529427957*^9}}, + CellID->465449090,ExpressionUUID->"0637fab5-1bc7-4e97-ae11-0580c3f0340c"], + +Cell[BoxData[GridBox[{ + { + RowBox[{"DCoeff", "\n", "FrLTail"}], Cell[TextData[{ + "Function giving the coefficients obtained from the fit of ", + Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]], " "}]],ExpressionUUID-> + "e8e95f7f-aaf3-42d7-8f3a-90e9c8a10d30"], + " \nFunction giving the high-l tail contribuition" + }], "TableText",ExpressionUUID->"dde9bbb7-11e4-4b01-ab4f-8883cc834bf0"]} + }]], "DefinitionBox", + CellChangeTimes->{{3.942141154893359*^9, 3.942141167490918*^9}, { + 3.942141218119972*^9, 3.942141272518942*^9}, {3.942141455762315*^9, + 3.942141460222718*^9}, {3.942141768122562*^9, 3.942141769745345*^9}, { + 3.942142026855351*^9, 3.942142055697755*^9}, {3.94214218455122*^9, + 3.942142203816763*^9}, {3.942144212904437*^9, 3.942144342272884*^9}, { + 3.942144428726939*^9, 3.942144486790168*^9}, {3.942145089364414*^9, + 3.9421451022196627`*^9}, {3.942145141285804*^9, 3.942145226352216*^9}, { + 3.942145262831784*^9, 3.942145263627092*^9}, {3.942145348916215*^9, + 3.94214540882233*^9}, {3.942145839793398*^9, 3.942145905064777*^9}, { + 3.942145968516478*^9, 3.942146085532469*^9}, {3.942146242492281*^9, + 3.9421462587032003`*^9}, {3.9421464770035973`*^9, 3.942146481559577*^9}, { + 3.942146831330751*^9, 3.942146860275216*^9}, {3.942147277443677*^9, + 3.942147312049604*^9}, {3.942147645980245*^9, 3.9421477193536863`*^9}, { + 3.942147757302264*^9, 3.942147757641123*^9}, 3.942147827923785*^9}, + CellID->1667413256,ExpressionUUID->"74204d4f-2786-432b-941e-820011263099"], + +Cell[CellGroupData[{ + +Cell["Define the functions", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.942138532032438*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.9422148159798927`*^9, 3.942214818372548*^9}}, + CellID->1597588263,ExpressionUUID->"0725a208-4322-4914-81a6-169d9b2c1698"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar_", ",", "n_", ",", "N_"}], "]"}], ":=", + RowBox[{"Coefficient", "[", + RowBox[{ + RowBox[{"Fit", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{"lmax", "+", "2", "-", "nbar"}], ";;", + RowBox[{"lmax", "+", "1"}]}], "]"}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"1", "/", + RowBox[{ + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}], "^", + RowBox[{"(", + RowBox[{"2", " ", "x"}], ")"}]}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "1", ",", "N"}], "}"}]}], "]"}], ",", "l"}], + "]"}], ",", + RowBox[{"1", "/", + RowBox[{ + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}], "^", + RowBox[{"(", + RowBox[{"2", " ", "n"}], ")"}]}]}]}], "]"}]}], ";"}], "\n"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"FrLTail", "[", + RowBox[{"nbar_", ",", "lmax_", ",", "N_"}], "]"}], " ", ":=", " ", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar", ",", "n", ",", "N"}], "]"}], "/", + RowBox[{"Factorial", "[", + RowBox[{ + RowBox[{"2", "n"}], "-", "1"}], "]"}]}], " ", + RowBox[{"PolyGamma", "[", + RowBox[{ + RowBox[{ + RowBox[{"2", "n"}], "-", "1"}], ",", + RowBox[{"lmax", "+", + RowBox[{"3", "/", "2"}]}]}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"n", ",", "1", ",", "N"}], "}"}]}], "]"}]}], ";"}]}], "Input", + CellChangeTimes->{{3.942137175227577*^9, 3.942137182884976*^9}, { + 3.942137269517274*^9, 3.942137273189048*^9}, 3.942137588726344*^9, + 3.942137683621517*^9, {3.942137792150061*^9, 3.942137797734239*^9}, { + 3.942137923260655*^9, 3.942137928609926*^9}, {3.942138346120269*^9, + 3.942138385693635*^9}, {3.9421386868973494`*^9, 3.942138716659288*^9}, { + 3.942138856638603*^9, 3.94213885764292*^9}, {3.942138896382505*^9, + 3.94213890095651*^9}, {3.942139226883898*^9, 3.942139247143723*^9}, { + 3.942139447429797*^9, 3.94213944769305*^9}, {3.942139547068601*^9, + 3.942139573508943*^9}, {3.942146156835751*^9, 3.942146158429819*^9}, { + 3.942146851271899*^9, 3.94214686391516*^9}, {3.942147290678275*^9, + 3.942147297122094*^9}, {3.942382967141255*^9, 3.942382989599331*^9}, { + 3.942383676079528*^9, 3.942383707883043*^9}, {3.942383756632805*^9, + 3.942383757938789*^9}}, + CellLabel->"In[34]:=", + CellID->823715139,ExpressionUUID->"3079d8b3-612e-49f9-9879-4466f07140bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["\<\ +Let's show the data with the fitting formula for N=3 and nbar=10:\ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.942138532032438*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.9422148159798927`*^9, 3.942214818372548*^9}, { + 3.942754338219473*^9, 3.942754340265689*^9}, {3.9427544251063013`*^9, + 3.9427544828633003`*^9}, {3.942754803656691*^9, 3.94275480396592*^9}}, + CellID->2122196974,ExpressionUUID->"5ad99a3b-6f3a-432b-865d-ec02f12f09d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"nbar", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"NN", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"fit", "[", "l_", "]"}], "=", + RowBox[{"Fit", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{"lmax", "+", "2", "-", "nbar"}], ";;", + RowBox[{"lmax", "+", "1"}]}], "]"}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"1", "/", + RowBox[{ + RowBox[{"(", + RowBox[{"l", "+", + RowBox[{"1", "/", "2"}]}], ")"}], "^", + RowBox[{"(", + RowBox[{"2", " ", "x"}], ")"}]}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "1", ",", "NN"}], "}"}]}], "]"}], ",", "l"}], + "]"}]}]}], "Input", + CellChangeTimes->{{3.942754581772242*^9, 3.942754625162546*^9}, { + 3.942754685756789*^9, 3.942754704344583*^9}, {3.942754805610745*^9, + 3.942754823354262*^9}}, + CellLabel->"In[36]:=", + CellID->1203144656,ExpressionUUID->"ae9a9647-490e-4612-94a2-22b989f2610e"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + "0.0014019963357344128131283991713057254645613525929733692029`26.\ +59045042138955", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], "+", "l"}], ")"}], "6"]], "+", + FractionBox[ + "0.0001625033268433556726255824213775295314314620863770399535`26.\ +590450421389548", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], "+", "l"}], ")"}], "4"]], "+", + FractionBox[ + "0.0000502704531298341612973078559869796118787639497613206047`26.\ +59045042138955", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["1", "2"], "+", "l"}], ")"}], "2"]]}]], "Output", + CellChangeTimes->{{3.942754600415478*^9, 3.9427547321563187`*^9}, { + 3.9427548067734003`*^9, 3.942754823954574*^9}, {3.942998258644141*^9, + 3.942998262033989*^9}, 3.943336787857477*^9, 3.943337393408286*^9, + 3.943354126400152*^9}, + CellLabel->"Out[38]=", + CellID->1077691481,ExpressionUUID->"2fe7573b-de6c-44e8-8dda-bd81f95616d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + RowBox[{"LogLogPlot", "[", + RowBox[{ + RowBox[{"fit", "[", "l", "]"}], ",", + RowBox[{"{", + RowBox[{"l", ",", "5", ",", "20"}], "}"}], ",", + RowBox[{"Frame", "->", "True"}], ",", + RowBox[{"FrameLabel", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], "]"}], + ",", + RowBox[{"Style", "[", + RowBox[{"\"\\"", ",", "20", ",", + RowBox[{"FontFamily", "->", "\"\\""}]}], + "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"ListLogLogPlot", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{"lmax", "+", "2", "-", "nbar"}], ";;", + RowBox[{"lmax", "+", "1"}]}], "]"}], "]"}], ",", " ", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], "\[IndentingNewLine]", ",", + " ", + RowBox[{"ImageSize", "->", "400"}]}], "]"}]], "Input", + CellChangeTimes->{{3.942754461649374*^9, 3.942754470763328*^9}, { + 3.942754512368876*^9, 3.942754515741557*^9}, {3.942754830522553*^9, + 3.942754831334948*^9}, {3.942998272320382*^9, 3.942998370800919*^9}}, + CellLabel->"In[39]:=", + CellID->1918375563,ExpressionUUID->"4c98904a-32da-4cd8-8c0c-e6257a7069a7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzHs0lHkcx/G5mPk53UuSxXbaovXM5VGd2C08XytHSmzpskUXU8KUS2ym +bTvpwsyGUqdWWzJWRFGdyEqFvrpoGZkYymUYW9uOy9ashB1kdvaPz3mf1z+f ++ZKY9WEcFou11rz/G12VbPJCI8MfKQr/JZhCOX+SxlRtZL7oq78xJYRCZcDp +/MrHRma9/2HDUbOfd2Ws/fqZkfnb7mRU5DYKhaaCTJcGIyOeFe2/fAeFfUyd +2zytkfnNdeLnDgmF4dXTYsdHjIzr++EQeymFO59c6C6jRxkPTaMu4yCFs0/d +rU29NspMsDec1l6gUNZdptluO8bYySq0/aUUpjtdXTOmGGOIQ+bs1Y0USukc +1YhpjAmqaZIbDBQOPjq870PMOOPykLstaooAGds91mt7x5lDmsCSxQIBekk8 +hft3fmL2HEkQ+vsJcGDZ8K5z6k9Ma3z00jVhAtxd/yDXetUEYx/9WeDZEwJM +frfTIqN8gpmcou6tzhZgCHuoSedkYuovZ+dseCDAoVcZ108qTUzExYVWdJsA +lfZpL+YSFtxdpXcc/yjAvFtBLy57s+CYre/QDCshWtyfpeAlsmCoczekuQix +IsUrIKqMBWs6UwpZ/kJscZfZJn9gQdzo8uzKSCH6lNoPZVJs6Jzup0lIFqLN +1NpmSTgbOL6vNAdzheit27d3Wi4bPG2zYvQoxGcJR2fda2dDguU5xSatEG8Y +LlVa2XDgfuqqldNHhdgjcvwhKpADNyMkx+usRZj4Nr+/SM6BWi+fmGEXEcqO +0JJLjzgg3+Zbuy9AhM+0i3oVoxyIe0e59kSK8KD9ou8d3bhgUyc7dEshwqQW +h7KCOC4Y4ixd9Xki1AclWToXcuGrJTf7nFCERXcGtm/9iwvNtvM9SjrNf60N +T1M+twC941upj1GEHrLcN9kbLQAeJ7X5zxaj9cgRXthZC/gg1V7+dbEYV7rX +uTnXWkB6lJXHJ38xNkvso7N4PAhmagrypWKsCOgqneHJAw/KFL5FLsaJOxdK +Ig7woEukSzuWI8Yro5tLY4t5wLcJdh6pEmMW/6caWS8P8oW8UwntYjQOVmnF +TnxwWLlL5/2vGG9vfXe9LpQPtxdw/BTWNFbJUxVhF/kwL/FeUbMLjeLzLpG3 +W/iwN29uTmwAjUN7fIJHpxJ4893m7DlSGufcWWfh7ENAJvV7uSSZxovdu4vJ +MQLuk5NdlVdojNfoo9+WE+jWb5VbVdG4TjPpTdc9Aj7Nix1Pm01rRJtb7xPI +DPjyieVDGvub4hlVBYFQUzxnwuxdTabpxUjg9Qv50Z5qGoMabYoP/07gvZPy +eOVTGpeqfQetWglcvVGiDH9O40y1NHxqG4GT7CSv12YbGk518NsJFO4/8GdI +A41FDZrHxg4CytJyar2axgUNO87rdAROrKgud2+k0eq5bFmRnkD5cGf7zBYa +B+ovXc/rIcCMlCSmma2ur3RQ9hJ4sPHaQvKSxtR6Lv9sP4Ee94/R42Zz69Nf +JhgIqB1n8vStNP6hKlkd+w+BRkVvYWgbjQ9VLVWRAwToiNffas3+UWVXEDJI +gFW6LKuxncYtKk+7TR8JxCw64+3fQaObKjQ9cIiAi/PkvhqzrVVJXL9hAisq +8894aWkcrCuQfTNCIEkvcasw+z/xxFgQ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzHs0lHkcx/G5mPk53UuSxXbaovXM5VGd2C08XytHSmzpskUXU8KUS2ym +bTvpwsyGUqdWWzJWRFGdyEqFvrpoGZkYymUYW9uOy9ashB1kdvaPz3mf1z+f ++ZKY9WEcFou11rz/G12VbPJCI8MfKQr/JZhCOX+SxlRtZL7oq78xJYRCZcDp +/MrHRma9/2HDUbOfd2Ws/fqZkfnb7mRU5DYKhaaCTJcGIyOeFe2/fAeFfUyd +2zytkfnNdeLnDgmF4dXTYsdHjIzr++EQeymFO59c6C6jRxkPTaMu4yCFs0/d +rU29NspMsDec1l6gUNZdptluO8bYySq0/aUUpjtdXTOmGGOIQ+bs1Y0USukc +1YhpjAmqaZIbDBQOPjq870PMOOPykLstaooAGds91mt7x5lDmsCSxQIBekk8 +hft3fmL2HEkQ+vsJcGDZ8K5z6k9Ma3z00jVhAtxd/yDXetUEYx/9WeDZEwJM +frfTIqN8gpmcou6tzhZgCHuoSedkYuovZ+dseCDAoVcZ108qTUzExYVWdJsA +lfZpL+YSFtxdpXcc/yjAvFtBLy57s+CYre/QDCshWtyfpeAlsmCoczekuQix +IsUrIKqMBWs6UwpZ/kJscZfZJn9gQdzo8uzKSCH6lNoPZVJs6Jzup0lIFqLN +1NpmSTgbOL6vNAdzheit27d3Wi4bPG2zYvQoxGcJR2fda2dDguU5xSatEG8Y +LlVa2XDgfuqqldNHhdgjcvwhKpADNyMkx+usRZj4Nr+/SM6BWi+fmGEXEcqO +0JJLjzgg3+Zbuy9AhM+0i3oVoxyIe0e59kSK8KD9ou8d3bhgUyc7dEshwqQW +h7KCOC4Y4ixd9Xki1AclWToXcuGrJTf7nFCERXcGtm/9iwvNtvM9SjrNf60N +T1M+twC941upj1GEHrLcN9kbLQAeJ7X5zxaj9cgRXthZC/gg1V7+dbEYV7rX +uTnXWkB6lJXHJ38xNkvso7N4PAhmagrypWKsCOgqneHJAw/KFL5FLsaJOxdK +Ig7woEukSzuWI8Yro5tLY4t5wLcJdh6pEmMW/6caWS8P8oW8UwntYjQOVmnF +TnxwWLlL5/2vGG9vfXe9LpQPtxdw/BTWNFbJUxVhF/kwL/FeUbMLjeLzLpG3 +W/iwN29uTmwAjUN7fIJHpxJ4893m7DlSGufcWWfh7ENAJvV7uSSZxovdu4vJ +MQLuk5NdlVdojNfoo9+WE+jWb5VbVdG4TjPpTdc9Aj7Nix1Pm01rRJtb7xPI +DPjyieVDGvub4hlVBYFQUzxnwuxdTabpxUjg9Qv50Z5qGoMabYoP/07gvZPy +eOVTGpeqfQetWglcvVGiDH9O40y1NHxqG4GT7CSv12YbGk518NsJFO4/8GdI +A41FDZrHxg4CytJyar2axgUNO87rdAROrKgud2+k0eq5bFmRnkD5cGf7zBYa +B+ovXc/rIcCMlCSmma2ur3RQ9hJ4sPHaQvKSxtR6Lv9sP4Ee94/R42Zz69Nf +JhgIqB1n8vStNP6hKlkd+w+BRkVvYWgbjQ9VLVWRAwToiNffas3+UWVXEDJI +gFW6LKuxncYtKk+7TR8JxCw64+3fQaObKjQ9cIiAi/PkvhqzrVVJXL9hAisq +8894aWkcrCuQfTNCIEkvcasw+z/xxFgQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{ + Log[5], + Log[20]}, {-15.931123476813589`, -13.17889713262731}}, + "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {1.6094379124341038`, -15.931123476813553`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{ + Log[5], + Log[20]}, {-15.931123476813589`, -13.17889713262731}}, + "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {1.6094379124341038`, -15.931123476813553`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzHs0lHkcx/G5mPk53UuSxXbaovXM5VGd2C08XytHSmzpskUXU8KUS2ym +bTvpwsyGUqdWWzJWRFGdyEqFvrpoGZkYymUYW9uOy9ashB1kdvaPz3mf1z+f ++ZKY9WEcFou11rz/G12VbPJCI8MfKQr/JZhCOX+SxlRtZL7oq78xJYRCZcDp +/MrHRma9/2HDUbOfd2Ws/fqZkfnb7mRU5DYKhaaCTJcGIyOeFe2/fAeFfUyd +2zytkfnNdeLnDgmF4dXTYsdHjIzr++EQeymFO59c6C6jRxkPTaMu4yCFs0/d +rU29NspMsDec1l6gUNZdptluO8bYySq0/aUUpjtdXTOmGGOIQ+bs1Y0USukc +1YhpjAmqaZIbDBQOPjq870PMOOPykLstaooAGds91mt7x5lDmsCSxQIBekk8 +hft3fmL2HEkQ+vsJcGDZ8K5z6k9Ma3z00jVhAtxd/yDXetUEYx/9WeDZEwJM +frfTIqN8gpmcou6tzhZgCHuoSedkYuovZ+dseCDAoVcZ108qTUzExYVWdJsA +lfZpL+YSFtxdpXcc/yjAvFtBLy57s+CYre/QDCshWtyfpeAlsmCoczekuQix +IsUrIKqMBWs6UwpZ/kJscZfZJn9gQdzo8uzKSCH6lNoPZVJs6Jzup0lIFqLN +1NpmSTgbOL6vNAdzheit27d3Wi4bPG2zYvQoxGcJR2fda2dDguU5xSatEG8Y +LlVa2XDgfuqqldNHhdgjcvwhKpADNyMkx+usRZj4Nr+/SM6BWi+fmGEXEcqO +0JJLjzgg3+Zbuy9AhM+0i3oVoxyIe0e59kSK8KD9ou8d3bhgUyc7dEshwqQW +h7KCOC4Y4ixd9Xki1AclWToXcuGrJTf7nFCERXcGtm/9iwvNtvM9SjrNf60N +T1M+twC941upj1GEHrLcN9kbLQAeJ7X5zxaj9cgRXthZC/gg1V7+dbEYV7rX +uTnXWkB6lJXHJ38xNkvso7N4PAhmagrypWKsCOgqneHJAw/KFL5FLsaJOxdK +Ig7woEukSzuWI8Yro5tLY4t5wLcJdh6pEmMW/6caWS8P8oW8UwntYjQOVmnF +TnxwWLlL5/2vGG9vfXe9LpQPtxdw/BTWNFbJUxVhF/kwL/FeUbMLjeLzLpG3 +W/iwN29uTmwAjUN7fIJHpxJ4893m7DlSGufcWWfh7ENAJvV7uSSZxovdu4vJ +MQLuk5NdlVdojNfoo9+WE+jWb5VbVdG4TjPpTdc9Aj7Nix1Pm01rRJtb7xPI +DPjyieVDGvub4hlVBYFQUzxnwuxdTabpxUjg9Qv50Z5qGoMabYoP/07gvZPy +eOVTGpeqfQetWglcvVGiDH9O40y1NHxqG4GT7CSv12YbGk518NsJFO4/8GdI +A41FDZrHxg4CytJyar2axgUNO87rdAROrKgud2+k0eq5bFmRnkD5cGf7zBYa +B+ovXc/rIcCMlCSmma2ur3RQ9hJ4sPHaQvKSxtR6Lv9sP4Ee94/R42Zz69Nf +JhgIqB1n8vStNP6hKlkd+w+BRkVvYWgbjQ9VLVWRAwToiNffas3+UWVXEDJI +gFW6LKuxncYtKk+7TR8JxCw64+3fQaObKjQ9cIiAi/PkvhqzrVVJXL9hAisq +8894aWkcrCuQfTNCIEkvcasw+z/xxFgQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{ + Log[5], + Log[20]}, {-15.931123476813589`, -13.17889713262731}}, + "Frame" -> {{True, True}, {True, True}}, + "AxesOrigin" -> {1.6094379124341038`, -15.931123476813553`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], + AbsoluteThickness[2], + PointBox[{{2.3978952727983707`, -14.757082067597954`}, { + 2.4849066497880004`, -14.927956286580574`}, { + 2.5649493574615367`, -15.085066716420377`}, { + 2.6390573296152584`, -15.230510262582879`}, { + 2.70805020110221, -15.365929304672564`}, { + 2.772588722239781, -15.492636660256192`}, { + 2.833213344056216, -15.61169958208993}, { + 2.8903717578961645`, -15.723998201300892`}, { + 2.9444389791664403`, -15.830267345061879`}, { + 2.995732273553991, -15.931127166505345`}}]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + AbsoluteThickness[2], + RGBColor[1, 0, 0]], + + Point[{{2.3978952727983707`, -14.757082067597954`}, { + 2.4849066497880004`, -14.927956286580574`}, { + 2.5649493574615367`, -15.085066716420377`}, { + 2.6390573296152584`, -15.230510262582879`}, { + 2.70805020110221, -15.365929304672564`}, { + 2.772588722239781, -15.492636660256192`}, { + 2.833213344056216, -15.61169958208993}, { + 2.8903717578961645`, -15.723998201300892`}, { + 2.9444389791664403`, -15.830267345061879`}, { + 2.995732273553991, -15.931127166505345`}}]}, + "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{2.372725919901981, + 2.995732273553991}, {-16.023002858235817`, \ +-14.757082067597954`}}, "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {2.372725919901981, -16.023002858235817`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListLogLogPlot, "GroupHighlight" -> + False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{2.372725919901981, + 2.995732273553991}, {-16.023002858235817`, \ +-14.757082067597954`}}, "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {2.372725919901981, -16.023002858235817`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListLogLogPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + AbsoluteThickness[2], + RGBColor[1, 0, 0]], + + Point[{{2.3978952727983707`, -14.757082067597954`}, { + 2.4849066497880004`, -14.927956286580574`}, { + 2.5649493574615367`, -15.085066716420377`}, { + 2.6390573296152584`, -15.230510262582879`}, { + 2.70805020110221, -15.365929304672564`}, { + 2.772588722239781, -15.492636660256192`}, { + 2.833213344056216, -15.61169958208993}, { + 2.8903717578961645`, -15.723998201300892`}, { + 2.9444389791664403`, -15.830267345061879`}, { + 2.995732273553991, -15.931127166505345`}}]}, + "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{2.372725919901981, + 2.995732273553991}, {-16.023002858235817`, -14.757082067597954`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {2.372725919901981, -16.023002858235817`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + AbsoluteThickness[2], + RGBColor[1, 0, 0]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Log, Exp}, {Log, Exp}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListLogLogPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{1.6094379124341038`, -15.931123476813553`}, + DisplayFunction->Identity, + Frame->{{True, True}, {True, True}}, + FrameLabel->{{ + FormBox[ + TagBox[ + StyleBox[ + "\"Fr\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}, { + FormBox[ + TagBox[ + StyleBox[ + "\"l-modes\"", 20, FontFamily -> "Latin Modern Roman", StripOnInput -> + False], HoldForm], TraditionalForm], None}}, + FrameTicks->FrontEndValueCache[{{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}, { + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{-15.424948470398375`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "2", + TemplateBox[{"10", + RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-14.508657738524219`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5", + TemplateBox[{"10", + RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1", + TemplateBox[{"10", + RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-13.122363377404328`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "2", + TemplateBox[{"10", + RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-17.72753356339242, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.322068455284256`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.034386382832476`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.811242831518264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.62892127472431, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.474770594897052`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.34123920227253, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.223456166616145`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.11809565095832, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.712630542850155`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.01948336229021, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.73180128983843, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.326336181730264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.172185501903007`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.038654109278484`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.9208710736221, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.41004544985611, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.716898269296165`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.429216196844383`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.206072645530174`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}, {{-15.424948470398375`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-14.508657738524219`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-13.122363377404328`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, + 0.}}, {-17.72753356339242, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.322068455284256`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-17.034386382832476`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.811242831518264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.62892127472431, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.474770594897052`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.34123920227253, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.223456166616145`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-16.11809565095832, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.712630542850155`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-15.01948336229021, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.73180128983843, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.326336181730264`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.172185501903007`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-14.038654109278484`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.9208710736221, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.41004544985611, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.716898269296165`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.429216196844383`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.206072645530174`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}, {{{ + 1.6094379124341003`, + FormBox["5", TraditionalForm], {0.01, 0.}}, {2.302585092994046, + FormBox["10", TraditionalForm], {0.01, 0.}}, {2.70805020110221, + FormBox["15", TraditionalForm], {0.01, 0.}}, {2.995732273553991, + FormBox["20", TraditionalForm], {0.01, 0.}}, {0., + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.791759469228055, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.9459101490553132`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.0794415416798357`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.1972245773362196`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.3978952727983707`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.4849066497880004`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.5649493574615367`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.6390573296152584`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.772588722239781, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.833213344056216, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.8903717578961645`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.9444389791664403`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.044522437723423, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.091042453358316, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.1354942159291497`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.1780538303479458`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.2188758248682006`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{ + 1.6094379124341003`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, { + 2.302585092994046, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, { + 2.70805020110221, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, { + 2.995732273553991, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.01, 0.}}, {0., + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.791759469228055, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.9459101490553132`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.0794415416798357`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.1972245773362196`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.3978952727983707`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.4849066497880004`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.5649493574615367`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.6390573296152584`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.772588722239781, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.833213344056216, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.8903717578961645`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.9444389791664403`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.044522437723423, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.091042453358316, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.1354942159291497`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.1780538303479458`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.2188758248682006`, + FormBox[ + TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}}], + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + ImageSize->400, + Method->{ + "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], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Exp[#]& )[ + Part[#, 1]], + (Exp[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Exp[#]& )[ + Part[#, 1]], + (Exp[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->NCache[{{ + Log[5], + Log[20]}, {-15.931123476813589`, -13.17889713262731}}, {{ + 1.6094379124341003`, + 2.995732273553991}, {-15.931123476813589`, -13.17889713262731}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{ + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0], + Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> + MachinePrecision, RotateLabel -> 0]}]], "Output", + CellChangeTimes->{{3.942754466955557*^9, 3.9427544710748577`*^9}, + 3.942754516368164*^9, {3.942754773515995*^9, 3.9427547806129236`*^9}, + 3.942754832594729*^9, {3.942998254859724*^9, 3.9429983711823177`*^9}, + 3.943336787892755*^9, 3.943337393443976*^9, 3.9433541264461927`*^9}, + CellLabel->"Out[39]=", + CellID->883642369,ExpressionUUID->"40d9e76c-0cfe-48a5-be2b-607bc77e16b6"] +}, Open ]] +}, Open ]], + +Cell[TextData[{ + "The value of ", + Cell[BoxData[ + OverscriptBox["n", "_"]], "InlineFormula",ExpressionUUID-> + "b328f2fc-005e-4797-9037-a222b5d1c40f"], + " varies from a minimum value nbarmin to a maximum value nbarmax. For a \ +given N \[Element] {3,4,5} we considered a weighted average of the values \ +obtained for ", + Cell[BoxData[ + SubsuperscriptBox["F", "r", "self"]], "InlineFormula",ExpressionUUID-> + "60705a2d-7669-4642-9a61-12a0e3f36427"], + " as we vary ", + Cell[BoxData[ + OverscriptBox["n", "_"]], "InlineFormula",ExpressionUUID-> + "e0bc4ec2-841e-47ee-bce4-5b48787dfd7c"], + " from nbarmin to nbarmax, where the weighting for each term is given by the \ +square of the inverse of the fractional di\:fb00erence in the value of ", + Cell[BoxData[ + SubsuperscriptBox["F", "r", "self"]],ExpressionUUID-> + "2f428289-e06d-4a37-8fa5-458443f18b76"], + " as we increase ", + Cell[BoxData[ + OverscriptBox["n", "_"]], "InlineFormula",ExpressionUUID-> + "4de4c816-aa1c-49e9-a4f9-0ec3cf8d3506"], + " by one. " +}], "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.942138532032438*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.9423838762111588`*^9, 3.94238399820365*^9}, { + 3.942384069164201*^9, 3.9423840752454023`*^9}, {3.9423841063150473`*^9, + 3.942384116005343*^9}}, + CellID->414955284,ExpressionUUID->"829806ae-78c1-4c60-8bce-37ae8d86980b"], + +Cell[CellGroupData[{ + +Cell["Define input parameters ", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.942138532032438*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.942383876211159*^9, 3.94238399820365*^9}, { + 3.942384069164201*^9, 3.942384101957827*^9}}, + CellID->1591856392,ExpressionUUID->"2ef8ee06-d6ef-4d24-bcbb-7a1f2a8081f7"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"nbarmin", " ", "=", "10"}], ";"}], " "}], "\n", + RowBox[{ + RowBox[{"nbarmax", "=", " ", "15"}], ";"}], "\n", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"nbarmax", ">=", "lmax"}], ",", " ", + RowBox[{"Print", "[", "\"\=lmax\>\"", "]"}]}], "]"}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139895548807*^9, 3.9421399143075542`*^9}, { + 3.942140215833871*^9, 3.942140228618196*^9}, {3.942142857857283*^9, + 3.942142860668825*^9}, {3.94221483199932*^9, 3.942214837293713*^9}, { + 3.942223920513108*^9, 3.942223955106743*^9}}, + CellLabel->"In[40]:=", + CellID->883923269,ExpressionUUID->"a6c184a8-ed85-4879-88a4-87616e772855"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell["Example", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942137411148033*^9, 3.942137413053774*^9}, {3.942137554613061*^9, + 3.942137564058847*^9}, {3.942137694518618*^9, 3.94213769705179*^9}, { + 3.942138532032438*^9, 3.9421385347272863`*^9}, {3.94214420081991*^9, + 3.94214420145472*^9}, {3.942383876211159*^9, 3.94238399820365*^9}, { + 3.942384069164201*^9, 3.942384101957827*^9}},ExpressionUUID-> + "05108dc3-f3dc-4d18-92a7-dcc6d9ac42b2"]], "Text", + CellChangeTimes->{3.943337163262844*^9}, + CellID->232346910,ExpressionUUID->"d555c8d9-c14c-488d-b483-f69ad63b75f8"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"nbar", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"lmax", "=", "20"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"NN", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], "Input", + CellChangeTimes->{{3.942750105623899*^9, 3.9427501064513073`*^9}, { + 3.942755130863086*^9, 3.942755150674975*^9}, {3.942755194828843*^9, + 3.942755199988107*^9}, {3.943336026503766*^9, 3.943336035977447*^9}, { + 3.943337157798498*^9, 3.943337165792667*^9}}, + CellLabel->"In[43]:=", + CellID->174421853,ExpressionUUID->"25028a0b-9bed-439c-8a14-073316802db6"], + +Cell[BoxData["2.3992317876719109124645049877470912852639131702728766`26.\ +59045042138954*^-6"], "Output", + CellChangeTimes->{3.943337393499192*^9, 3.943354126505924*^9}, + CellLabel->"Out[46]=", + CellID->1527876778,ExpressionUUID->"c2b54a25-f1dc-4394-b8d6-78b5bbf225ac"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "3"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN3", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942146163256646*^9, + 3.942146181342828*^9}, {3.942146877536778*^9, 3.942146887513324*^9}, { + 3.942223968086073*^9, 3.942224042577124*^9}, {3.942384010565942*^9, + 3.942384024842196*^9}, {3.942384377083788*^9, 3.9423843963982687`*^9}, { + 3.942385001713157*^9, 3.942385061084581*^9}, 3.94238509489143*^9}, + CellLabel->"In[47]:=", + CellID->1232996958,ExpressionUUID->"2a1edb63-23f4-4798-a22b-dd94ea699964"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "4"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN4", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942140341375902*^9, + 3.942140342937508*^9}, {3.942146184093143*^9, 3.94214620115694*^9}, { + 3.942146889820748*^9, 3.942146899429043*^9}, {3.942224053403852*^9, + 3.9422240635278273`*^9}, {3.942384026464682*^9, 3.942384035566687*^9}, { + 3.942384468023972*^9, 3.942384487340105*^9}, {3.942385064991235*^9, + 3.942385105880279*^9}}, + CellLabel->"In[49]:=", + CellID->1623592428,ExpressionUUID->"77b3b1c9-4a20-4212-a65d-d8090f87a511"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "5"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN5", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942140350887582*^9, + 3.942140352364943*^9}, {3.942146203695643*^9, 3.942146216826044*^9}, { + 3.94214690148377*^9, 3.942146909140553*^9}, {3.94222405715268*^9, + 3.942224066019341*^9}, {3.9423840343423786`*^9, 3.942384042499935*^9}, { + 3.942384495247511*^9, 3.942384510712655*^9}, {3.942385113179127*^9, + 3.942385136653125*^9}}, + CellLabel->"In[51]:=", + CellID->1425941378,ExpressionUUID->"c5bbfa7a-f43f-4345-b5e4-60ef8cc9347b"], + +Cell[CellGroupData[{ + +Cell[BoxData[{"WeightedAvarageN3", "\[IndentingNewLine]", \ +"WeightedAvarageN4", "\[IndentingNewLine]", "WeightedAvarageN5"}], "Input", + CellLabel->"In[53]:=", + CellID->700226141,ExpressionUUID->"a1870c26-b9b9-4321-9de8-de384950dc83"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "3", ",", "14.`50.", ",", + "2.72159159370576897143626242804139`16.156144219974635*^-6"}], + "}"}]], "Output", + CellChangeTimes->{ + 3.942140764262654*^9, 3.942142893316818*^9, 3.94214692375938*^9, { + 3.942385139629508*^9, 3.9423851463417807`*^9}, 3.942389612910773*^9, + 3.942754867520741*^9, 3.94333678813291*^9, 3.943337393688552*^9, + 3.943354126689373*^9}, + CellLabel->"Out[53]=", + CellID->1563040667,ExpressionUUID->"98347940-059e-49a2-96f2-eb633b642e12"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "4", ",", "14.`50.", ",", + "2.72034450983458699320451689442614`14.561640324615388*^-6"}], + "}"}]], "Output", + CellChangeTimes->{ + 3.942140764262654*^9, 3.942142893316818*^9, 3.94214692375938*^9, { + 3.942385139629508*^9, 3.9423851463417807`*^9}, 3.942389612910773*^9, + 3.942754867520741*^9, 3.94333678813291*^9, 3.943337393688552*^9, + 3.943354126690106*^9}, + CellLabel->"Out[54]=", + CellID->2004520165,ExpressionUUID->"74357f2b-ec6f-4e82-a6db-4f7553d7561f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "5", ",", "14.`50.", ",", + "2.71992523471112837178025280891703`14.898906482628385*^-6"}], + "}"}]], "Output", + CellChangeTimes->{ + 3.942140764262654*^9, 3.942142893316818*^9, 3.94214692375938*^9, { + 3.942385139629508*^9, 3.9423851463417807`*^9}, 3.942389612910773*^9, + 3.942754867520741*^9, 3.94333678813291*^9, 3.943337393688552*^9, + 3.9433541266906424`*^9}, + CellLabel->"Out[55]=", + CellID->246959019,ExpressionUUID->"d771c000-9a5c-4a67-96b5-845d716a8881"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Fr", " ", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"WeightedAvarageN3", "[", + RowBox[{"[", "3", "]"}], "]"}], "+", + RowBox[{"WeightedAvarageN4", "[", + RowBox[{"[", "3", "]"}], "]"}], "+", + RowBox[{"WeightedAvarageN5", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", "3"}], "//", + "N"}]}]], "Input", + CellChangeTimes->{{3.942224158969799*^9, 3.942224179209029*^9}, { + 3.942394943092485*^9, 3.942394947167363*^9}}, + CellLabel->"In[56]:=", + CellID->858115887,ExpressionUUID->"3097699c-2475-4b81-9a0f-d51b9719b2f1"], + +Cell[BoxData["2.720620446083828`*^-6"], "Output", + CellChangeTimes->{{3.942224169084222*^9, 3.942224179475259*^9}, + 3.94238514839775*^9, 3.94238963083314*^9, 3.942394991404982*^9, + 3.942754869874362*^9, 3.943336788144533*^9, 3.943337393702071*^9, + 3.9433541267028418`*^9}, + CellLabel->"Out[56]=", + CellID->1701826329,ExpressionUUID->"65cc1e94-58c0-46a3-abf3-476874773899"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"error", " ", "=", " ", + RowBox[{"Sqrt", "[", + RowBox[{"Variance", "[", + StyleBox[ + RowBox[{"{", + RowBox[{ + RowBox[{"WeightedAvarageN3", "[", + RowBox[{"[", "3", "]"}], "]"}], ",", + RowBox[{"WeightedAvarageN4", "[", + RowBox[{"[", "3", "]"}], "]"}], ",", + RowBox[{"WeightedAvarageN5", "[", + RowBox[{"[", "3", "]"}], "]"}]}], "}"}], + FontSize->14], + StyleBox["]", + FontSize->14]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9423965249275618`*^9, 3.942396567250926*^9}}, + CellLabel->"In[57]:=", + CellID->1385363458,ExpressionUUID->"b6612a9e-638c-4149-95a1-0177db6973ce"], + +Cell[BoxData["8.6677199135000329747552394716`11.10463647435111*^-10"], \ +"Output", + CellChangeTimes->{3.94239656760993*^9, 3.942754871991196*^9, + 3.943336788159486*^9, 3.943337393716915*^9, 3.943354126719172*^9}, + CellLabel->"Out[57]=", + CellID->260417110,ExpressionUUID->"1205168d-3bb1-4794-a01a-0bec0e12fbf2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Fr", "+", "error"}], " "}], "\[IndentingNewLine]", + RowBox[{"Fr", "-", "error", " "}]}], "Input", + CellChangeTimes->{{3.942394993853022*^9, 3.942395018696282*^9}}, + CellLabel->"In[58]:=", + CellID->1083170362,ExpressionUUID->"1d833fb0-cbdf-4a93-a4da-7b1f8534cc4a"], + +Cell[BoxData["2.721487218075178`*^-6"], "Output", + CellChangeTimes->{ + 3.9423894198843393`*^9, 3.9423896363480663`*^9, {3.942395007346611*^9, + 3.9423950191097727`*^9}, 3.9423965730205593`*^9, 3.942754874814866*^9, + 3.94333678817318*^9, 3.9433373937303953`*^9, 3.94335412673293*^9}, + CellLabel->"Out[58]=", + CellID->258695184,ExpressionUUID->"5fa993b4-7d24-4117-88ef-f0984fb310f3"], + +Cell[BoxData["2.719753674092478`*^-6"], "Output", + CellChangeTimes->{ + 3.9423894198843393`*^9, 3.9423896363480663`*^9, {3.942395007346611*^9, + 3.9423950191097727`*^9}, 3.9423965730205593`*^9, 3.942754874814866*^9, + 3.94333678817318*^9, 3.9433373937303953`*^9, 3.943354126733564*^9}, + CellLabel->"Out[59]=", + CellID->1383055960,ExpressionUUID->"236c38df-d244-4ce3-9884-a9f7737944bb"] +}, Open ]] +}, Open ]], + +Cell[BoxData[Cell["\<\ +As a comparison, from https://arxiv.org/pdf/1003.1860: 2.720083e\[Minus]6\ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "de5f43da-e2c5-46a0-ba9a-05705b28d788"]], "Text", + CellChangeTimes->{{3.942142426525878*^9, 3.942142493314741*^9}, { + 3.942142928027968*^9, 3.942142928027996*^9}, 3.942395028440875*^9, + 3.94333717811145*^9}, + CellID->2000429178,ExpressionUUID->"5efd6169-4a37-4b01-a709-b575425e8ebb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{Cell["\<\ +Method following XXX. Analytic coefficients computed in \ +https://arxiv.org/pdf/1204.0794\ +\>", "Subsubsection", + CellChangeTimes->{{3.942742292502197*^9, 3.94274230702743*^9}}, + ExpressionUUID->"c2674ffe-bd58-48cb-82e0-54c8dfd1d4d5"], ",", " ", + RowBox[{ + RowBox[{"available", " ", + RowBox[{"https", ":"}]}], "//", + RowBox[{ + RowBox[{ + RowBox[{"github", ".", "com"}], "/", "BlackHolePerturbationToolkit"}], + "/", "RegularizationParameters"}]}]}]], "Subsubsection", + CellChangeTimes->{{3.942742264412044*^9, 3.942742275424957*^9}, { + 3.942742325077676*^9, 3.942742333888357*^9}, {3.943338304001087*^9, + 3.943338365324499*^9}, {3.9433545884034557`*^9, 3.943354617326586*^9}}, + CellLabel->"In[60]:=", + CellID->1697309843,ExpressionUUID->"c4a00f04-f16c-4711-bc99-f1291c424e31"], + +Cell[CellGroupData[{ + +Cell[BoxData[Cell[TextData[Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"High", "-", + RowBox[{"l", " ", "tail", " ", "contribution", " ", + SubsuperscriptBox["F", "r", + RowBox[{"l", ">", "lmax"}]]}]}], " ", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"l", "=", + RowBox[{"lmax", "+", "1"}]}]}], "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]], " ", "is", " ", "computed", " ", + "by", " ", "extrapolating", " ", "the", " ", "last", " ", + OverscriptBox["n", "_"], " ", "computed", " ", "l"}]}], "-", + RowBox[{ + "modes", " ", "using", " ", "the", " ", "fitting", " ", "formula", " ", + + SubsuperscriptBox["F", "r", + RowBox[{ + RowBox[{"(", "reg", ")"}], "l"}]]}]}], " ", "=", " ", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{" ", + RowBox[{"n", "=", "1"}]}], "N"], + RowBox[{ + FractionBox[ + SubsuperscriptBox["D", + RowBox[{"2", "n"}], "r"], + RowBox[{ + UnderoverscriptBox["\[Product]", + RowBox[{"k", "=", "1"}], "n"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", "L"}], " ", "-", + RowBox[{"2", "k"}]}], ")"}], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "L"}], "+", + RowBox[{"2", "k"}]}], ")"}]}]}]], ".", " ", "\[IndentingNewLine]", + RowBox[{"nbar", ":", " ", + RowBox[{ + RowBox[{"number", " ", "of", " ", "l"}], "-", + RowBox[{"modes", " ", "considered", " ", "for", " ", "the", " ", + RowBox[{"extrapolation", ".", "\[IndentingNewLine]", "N"}]}]}], ":", + " ", + RowBox[{ + "number", " ", "of", " ", "coefficients", " ", "considered", " ", + "for", " ", "the", " ", + RowBox[{"fit", " ", ".", " ", "x"}], " ", "in", " ", "the", " ", + "implementation", " ", "varies", " ", "from", " ", "1", " ", "to", + " ", "N", " ", "in", " ", "the", " ", "product"}]}]}]}]}]}], + " "}], "\[IndentingNewLine]", + RowBox[{"n", ":", " ", + RowBox[{"nth", " ", "coefficients", " "}]}]}],ExpressionUUID-> + "77c1b888-bc85-4c13-a5ab-ddb41d06eb3c"]], "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "eb4e2f01-83c4-4d7c-ac68-c1f266f701ff"]], "MathCaption", + CellChangeTimes->{{3.9427488997624187`*^9, 3.942748899762434*^9}, { + 3.9427489800305367`*^9, 3.942749008236491*^9}, {3.942749952950017*^9, + 3.942749968362384*^9}, {3.94275000093138*^9, 3.9427500602246513`*^9}, { + 3.943336251014304*^9, 3.943336252616826*^9}, 3.943337186013983*^9}, + CellID->1326761549,ExpressionUUID->"67d77d29-4b8d-42af-a62e-7975b75684f8"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar_", ",", "n_", ",", "N_"}], "]"}], ":=", + RowBox[{"Numerator", "[", + RowBox[{ + RowBox[{"Fit", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{"lmax", "+", "2", "-", "nbar"}], ";;", + RowBox[{"lmax", "+", "1"}]}], "]"}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], "+", "1", " ", "-", + RowBox[{"2", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], "+", "1", " ", "+", + RowBox[{"2", "k"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"k", ",", "1", ",", "x"}], "}"}]}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "1", ",", "N"}], "}"}]}], "]"}], ",", "l"}], + "]"}], "[", + RowBox[{"[", "n", "]"}], "]"}], "]"}]}], ";"}], "\n"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"FrLTail", "[", + RowBox[{"nbar_", ",", "lmax_", ",", "N_"}], "]"}], " ", ":=", " ", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar", ",", "n", ",", "N"}], "]"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"-", "4"}], ")"}], + RowBox[{"-", "n"}]], " ", "\[Pi]", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"-", "1"}], ")"}], + RowBox[{"lmax", "+", "1"}]], + RowBox[{"(", + RowBox[{"lmax", "+", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", "n"}], "-", "1"}], ")"}], + RowBox[{"Gamma", "[", + RowBox[{"n", "-", "lmax", "-", + FractionBox["1", "2"]}], "]"}], + RowBox[{"Gamma", "[", + RowBox[{"n", "+", "lmax", "+", + FractionBox["3", "2"]}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"n", ",", "1", ",", "N"}], "}"}]}], "]"}]}], ";"}]}], "Input", + CellChangeTimes->{{3.942749173495288*^9, 3.942749273711375*^9}, { + 3.9427494041835327`*^9, 3.942749415544588*^9}, {3.942749865567098*^9, + 3.942749908390628*^9}, {3.942750204198002*^9, 3.942750208926518*^9}, { + 3.942750623662833*^9, 3.942750702705398*^9}, {3.942750789549829*^9, + 3.942750794289365*^9}, {3.942751668732822*^9, 3.942751683443493*^9}, { + 3.9427539135002127`*^9, 3.942753939724696*^9}}, + CellLabel->"In[60]:=", + CellID->1222286968,ExpressionUUID->"8dc59c2e-e9bd-4ff5-b5a6-e1d75252e8a8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", "1", ",", "6"}], "]"}]], "Input", + CellChangeTimes->{{3.9433413116444063`*^9, 3.943341327473605*^9}, { + 3.943352655404849*^9, 3.943352655551182*^9}}, + CellLabel->"In[62]:=", + CellID->673545036,ExpressionUUID->"c552b903-ccdd-491c-b72e-084a26ed4405"], + +Cell[BoxData["0.0002005182104659481398320328344352544623122605157817777565`26.\ +266159729553927"], "Output", + CellChangeTimes->{{3.94334131795225*^9, 3.94334132797576*^9}, { + 3.943352655797985*^9, 3.943352660497864*^9}, 3.9433541267528143`*^9}, + CellLabel->"Out[62]=", + CellID->658524592,ExpressionUUID->"78562372-d16a-479a-8e2d-ab8f1ca3273d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"check", " ", "with", " ", "the", " ", "previous", " ", + RowBox[{"example", ":", " ", "2.3992317876*^-6"}]}], "*)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"nbar", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"lmax", "=", "20"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"NN", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.94275516128866*^9, 3.9427552338827863`*^9}}, + CellLabel->"In[63]:=", + CellID->1387797505,ExpressionUUID->"092388a1-fe8d-4ed5-b641-77f1f3a1f2e6"], + +Cell[BoxData["2.3992243193622873723474739578714286398998013179046651`26.\ +585515391944103*^-6"], "Output", + CellChangeTimes->{{3.942755175177112*^9, 3.942755183785034*^9}, { + 3.942755222068321*^9, 3.942755257101894*^9}, 3.943336788369322*^9, + 3.9433373937668657`*^9, 3.943341301981336*^9, 3.943341334095172*^9, + 3.943352663286293*^9, 3.943354126768828*^9}, + CellLabel->"Out[66]=", + CellID->1839584753,ExpressionUUID->"15d1886a-a97c-4679-8a7c-47e4a822cc3e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"NN", "=", "6"}], ";"}]], "Input", + CellChangeTimes->{{3.94275214749194*^9, 3.942752149872139*^9}, { + 3.943352667596561*^9, 3.9433526677047873`*^9}}, + CellLabel->"In[67]:=", + CellID->581035060,ExpressionUUID->"398ae5c2-6f68-4f09-983d-fb793cb27ee3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"fit", "[", "l_", "]"}], "=", + RowBox[{"Fit", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{"lmax", "+", "2", "-", "10"}], ";;", + RowBox[{"lmax", "+", "1"}]}], "]"}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], "+", "1", " ", "-", + RowBox[{"2", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], "+", "1", " ", "+", + RowBox[{"2", "k"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"k", ",", "1", ",", "x"}], "}"}]}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", "1", ",", "NN"}], "}"}]}], "]"}], ",", "l"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.942752151503844*^9, 3.942752158871112*^9}, { + 3.942753840434917*^9, 3.9427538535568447`*^9}, {3.942755266790925*^9, + 3.942755269656953*^9}}, + CellLabel->"In[68]:=", + CellID->1749452550,ExpressionUUID->"1751262a-4a2c-4292-b501-e63c2e02cc5f"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + "0.0002010725814059293294267458320761268761071627522817706864`26.\ +24004471784467", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}]], "+", + FractionBox[ + "0.0018192612470797154883413643461755303623673419919872171751`26.\ +240044717844672", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}]], "+", + FractionBox["0.03246444615070116752322501356913423323`26.240044717844672", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"7", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}]], "+", + FractionBox["1.02235499668380450595520201150204938915`26.240044717844672", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "7"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"7", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}]], "+", + RowBox[{"59.16110309291828889203470229323151828852`26.240044717844672", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "9"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "7"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"7", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"11", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}], ")"}]}], "+", + RowBox[{ + "8787.05465177211969984688612775078541897504`26.24004471784467", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "11"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "9"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "7"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"7", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"11", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"13", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}], ")"}]}]}]], "Output", + CellChangeTimes->{{3.942752130048045*^9, 3.942752159264421*^9}, { + 3.942753841369298*^9, 3.942753854046002*^9}, {3.9427552603381987`*^9, + 3.942755269975676*^9}, 3.943336788400065*^9, 3.943337393906104*^9, + 3.943352669969305*^9, 3.943354126920171*^9}, + CellLabel->"Out[68]=", + CellID->1806801848,ExpressionUUID->"7970dfa6-d5b1-47cd-af2e-11a0ba9056ed"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + "Adding the known regularization parameters to the fitting formula (", + Cell[BoxData[ + FormBox[ + SubscriptBox["F", + RowBox[{"a", "[", "2", "]"}]], TraditionalForm]],ExpressionUUID-> + "a9667c23-8357-4f8e-8ac6-9a9cb3e4a4fc"], + " = ", + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox["D", + RowBox[{"a", "[", "2", "]"}]], " ", "etc"}], TraditionalForm]], + ExpressionUUID->"0ea4a584-2a3a-4761-b56f-b08bc0dfb93d"], + ")" +}], "MathCaption", + CellChangeTimes->{{3.943338520654677*^9, 3.943338535156061*^9}, { + 3.943352675781951*^9, 3.94335273475145*^9}}, + CellID->785446671,ExpressionUUID->"f19e3de3-7d40-499c-94ad-617f979c13ff"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"M", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"E0", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "-", + RowBox[{"2", + FractionBox["M", "r0"]}]}], ")"}], + SqrtBox[ + FractionBox["r0", + RowBox[{"r0", "-", + RowBox[{"3", "M"}]}]]]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"L", "=", + RowBox[{"r0", + SqrtBox[ + FractionBox["M", + RowBox[{"r0", "-", + RowBox[{"3", "M"}]}]]]}]}], ";"}], " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ur", "=", "0"}], ";"}]}], "Input", + CellChangeTimes->{{3.943341362422621*^9, 3.943341362584474*^9}, { + 3.943351616945362*^9, 3.9433516320732203`*^9}}, + CellLabel->"In[69]:=", + CellID->1869573878,ExpressionUUID->"73902b36-5cdf-46e3-8344-d54c794493e1"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[TextData[Cell[BoxData[ + FormBox[ + SubscriptBox["F", + RowBox[{"a", "[", "2", "]"}]], + TraditionalForm]],ExpressionUUID->"3fecc853-7242-4958-a80c-c01d49027e81"]], \ +"Subsubsection", + CellChangeTimes->{ + 3.549105010903021*^9, {3.550129420430559*^9, 3.550129428270977*^9}}, + CellID->852509315,ExpressionUUID->"caa0184c-842d-40c8-adbd-d3c739a4bc4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"D2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "8"}], " ", + SuperscriptBox["E0", "4"], " ", + RowBox[{"(", + RowBox[{"L", "-", "r0"}], ")"}], " ", + SuperscriptBox["r0", "10"], " ", + RowBox[{"(", + RowBox[{"L", "+", "r0"}], ")"}]}], "+", + RowBox[{"4", " ", + SuperscriptBox["E0", "2"], " ", + SuperscriptBox["r0", "3"], " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"9", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"26", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"23", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{ + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "5"]}], "+", + RowBox[{"14", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "6"]}], "-", + RowBox[{"3", " ", + SuperscriptBox["r0", "7"]}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "-", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"28", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"82", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"82", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "-", + RowBox[{ + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "5"]}], "+", + RowBox[{"32", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "6"]}], "-", + RowBox[{"3", " ", + SuperscriptBox["r0", "7"]}]}], ")"}]}]}], ")"}], " ", + RowBox[{ + InterpretationBox[ + StyleBox["EllipticE", + ShowAutoStyles->False, + AutoSpacing->False], + EllipticE, + Editable->False], "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox["E0", "4"], " ", + SuperscriptBox["r0", "10"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3", " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"5", " ", + SuperscriptBox["r0", "2"]}]}], ")"}]}], "-", + RowBox[{ + SuperscriptBox["E0", "2"], " ", + SuperscriptBox["r0", "5"], " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"18", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"34", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{ + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "3"]}], "+", + RowBox[{"32", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "-", + RowBox[{"7", " ", + SuperscriptBox["r0", "5"]}]}], ")"}]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "-", "r0"}], ")"}], " ", + SuperscriptBox["r0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"14", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"28", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"16", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "-", + SuperscriptBox["r0", "5"]}], ")"}]}]}], ")"}], " ", + RowBox[{ + InterpretationBox[ + StyleBox["EllipticK", + ShowAutoStyles->False, + AutoSpacing->False], + EllipticK, + Editable->False], "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", "\[Pi]", " ", + SuperscriptBox["r0", "6"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], + RowBox[{"7", "/", "2"}]]}], ")"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.549105444821433*^9, 3.549105446251156*^9}, + 3.549107859441393*^9, {3.5501295057439632`*^9, 3.550129508206875*^9}, { + 3.943338604977475*^9, 3.943338620233284*^9}}, + CellLabel->"In[73]:=", + CellID->113164421,ExpressionUUID->"016d0242-f459-4255-a02e-87eee1d98a61"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[Cell[BoxData[ + FormBox[ + SubscriptBox["F", + RowBox[{"a", "[", "4", "]"}]], + TraditionalForm]],ExpressionUUID->"273ca030-d6f3-41f6-a941-41243a4c7ee8"]], \ +"Subsubsection", + CellChangeTimes->{ + 3.549105014369179*^9, {3.550129421806355*^9, 3.5501294301653433`*^9}}, + CellID->1698056947,ExpressionUUID->"02cd4521-ecef-4d60-b6bf-d24fd1e2b1cd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"D4", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"30", " ", + SuperscriptBox["E0", "6"], " ", + SuperscriptBox["r0", "19"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"23", " ", + SuperscriptBox["L", "4"]}], "-", + RowBox[{"82", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"23", " ", + SuperscriptBox["r0", "4"]}]}], ")"}]}], "-", + RowBox[{ + SuperscriptBox["E0", "4"], " ", + SuperscriptBox["r0", "8"], " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"89600", " ", + SuperscriptBox["L", "12"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"438272", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"856504", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"837552", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"411938", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"495", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["r0", "9"]}], "+", + RowBox[{"92836", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "10"]}], "-", + RowBox[{"3690", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "11"]}], "-", + RowBox[{"902", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"1575", " ", + SuperscriptBox["r0", "13"]}]}], ")"}]}], "+", + RowBox[{"8", " ", + SuperscriptBox["E0", "2"], " ", + SuperscriptBox["r0", "3"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"5120", " ", + SuperscriptBox["L", "14"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"]}], "-", + RowBox[{"35200", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"26720", " ", + SuperscriptBox["L", "12"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "3"]}], "-", + RowBox[{"227368", " ", + SuperscriptBox["L", "10"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"123200", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "5"]}], "-", + RowBox[{"456300", " ", + SuperscriptBox["L", "8"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"225979", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "7"]}], "-", + RowBox[{"434510", " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"206277", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "9"]}], "-", + RowBox[{"203983", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"94211", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "11"]}], "-", + RowBox[{"40376", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"18367", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "13"]}], "-", + RowBox[{"135", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "14"]}], "-", + RowBox[{"571", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "14"]}], "-", + RowBox[{"146", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "15"]}], "+", + RowBox[{"135", " ", + SuperscriptBox["r0", "16"]}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "-", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "3"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"40960", " ", + SuperscriptBox["L", "14"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"]}], "-", + RowBox[{"86016", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"116480", " ", + SuperscriptBox["L", "12"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "3"]}], "-", + RowBox[{"860224", " ", + SuperscriptBox["L", "10"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"510080", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "5"]}], "-", + RowBox[{"1780112", " ", + SuperscriptBox["L", "8"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"882400", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "7"]}], "-", + RowBox[{"1657392", " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"752340", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "9"]}], "-", + RowBox[{"743164", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"316100", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "11"]}], "+", + RowBox[{"30", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["r0", "12"]}], "-", + RowBox[{"136236", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"53200", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "13"]}], "+", + RowBox[{"75", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "14"]}], "-", + RowBox[{"3120", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "14"]}], "+", + RowBox[{"160", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "15"]}], "+", + RowBox[{"165", " ", + SuperscriptBox["r0", "16"]}]}], ")"}]}]}], ")"}], " ", + RowBox[{ + InterpretationBox[ + StyleBox["EllipticE", + ShowAutoStyles->False, + AutoSpacing->False], + EllipticE, + Editable->False], "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "15"}], " ", + SuperscriptBox["E0", "6"], " ", + SuperscriptBox["r0", "19"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"15", " ", + SuperscriptBox["L", "4"]}], "-", + RowBox[{"82", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"31", " ", + SuperscriptBox["r0", "4"]}]}], ")"}]}], "+", + RowBox[{ + SuperscriptBox["E0", "4"], " ", + SuperscriptBox["r0", "10"], " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"44800", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", + RowBox[{"179936", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"272908", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"187126", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"135", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["r0", "7"]}], "+", + RowBox[{"55232", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "8"]}], "-", + RowBox[{"1710", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "9"]}], "+", + RowBox[{"118", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"1035", " ", + SuperscriptBox["r0", "11"]}]}], ")"}]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "-", "r0"}], ")"}], " ", + SuperscriptBox["r0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "3"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"20480", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"]}], "-", + RowBox[{"60928", " ", + SuperscriptBox["L", "10"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"58240", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "3"]}], "-", + RowBox[{"375840", " ", + SuperscriptBox["L", "8"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"204080", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "5"]}], "-", + RowBox[{"564472", " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"265360", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "7"]}], "-", + RowBox[{"350956", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"152380", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "9"]}], "-", + RowBox[{"84276", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"33740", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "11"]}], "+", + RowBox[{"15", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "12"]}], "-", + RowBox[{"3120", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"640", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "13"]}], "+", + RowBox[{"75", " ", + SuperscriptBox["r0", "14"]}]}], ")"}]}], "-", + RowBox[{ + SuperscriptBox["E0", "2"], " ", + SuperscriptBox["r0", "5"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"20480", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"]}], "-", + RowBox[{"158720", " ", + SuperscriptBox["L", "10"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"106880", " ", + SuperscriptBox["L", "10"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "3"]}], "-", + RowBox[{"769632", " ", + SuperscriptBox["L", "8"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"399280", " ", + SuperscriptBox["L", "8"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "5"]}], "-", + RowBox[{"1159632", " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"559556", " ", + SuperscriptBox["L", "6"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "7"]}], "-", + RowBox[{"755876", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"352004", " ", + SuperscriptBox["L", "4"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "9"]}], "-", + RowBox[{"196524", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"89680", " ", + SuperscriptBox["L", "2"], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "11"]}], "-", + RowBox[{"405", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["r0", "12"]}], "-", + RowBox[{"5528", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], "2"], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"512", " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False], " ", + SuperscriptBox["r0", "13"]}], "+", + RowBox[{"675", " ", + SuperscriptBox["r0", "14"]}]}], ")"}]}]}], ")"}], " ", + RowBox[{ + InterpretationBox[ + StyleBox["EllipticK", + ShowAutoStyles->False, + AutoSpacing->False], + EllipticK, + Editable->False], "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"40", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", "\[Pi]", " ", + SuperscriptBox["r0", "13"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + InterpretationBox[ + StyleBox["M", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`M, + Editable->False]}], "+", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], + RowBox[{"11", "/", "2"}]]}], ")"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.549105447815224*^9, 3.54910544895459*^9}, + 3.549108090181409*^9, {3.550129524439022*^9, 3.550129525196089*^9}, { + 3.9433386381141644`*^9, 3.943338638443654*^9}}, + CellLabel->"In[74]:=", + CellID->1332923246,ExpressionUUID->"fa2c53eb-57e9-45cb-ad18-50afa5ba4c5b"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[Cell[BoxData[ + FormBox[ + SubscriptBox["F", + RowBox[{"a", "[", "6", "]"}]], + TraditionalForm]],ExpressionUUID->"dac6f89e-44d3-4275-9312-b8c853c618a1"]], \ +"Subsubsection", + CellChangeTimes->{ + 3.54910501712082*^9, {3.55012942299815*^9, 3.5501294334484153`*^9}, { + 3.550129536376921*^9, 3.550129537093506*^9}}, + CellID->1621520952,ExpressionUUID->"48bca989-4fea-43cc-bcb6-604ca1b2042a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"D6", "=", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"-", "1800"}], + SqrtBox["2"]}], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"5", "+", + RowBox[{"2", " ", "l"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"7", "+", + RowBox[{"2", " ", "l"}]}], ")"}]}]], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"11550720000", " ", + SuperscriptBox["L", "28"], " ", + SuperscriptBox["M", "4"]}], "-", + RowBox[{"10936320000", " ", + SuperscriptBox["L", "28"], " ", + SuperscriptBox["M", "3"], " ", "r0"}], "+", + RowBox[{"737280", " ", + SuperscriptBox["L", "26"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3500", " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"127167", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "2"]}], "+", + RowBox[{"122880", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "639361"}], "+", + RowBox[{"79800", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "26"], " ", + SuperscriptBox["M", "3"], " ", + SuperscriptBox["r0", "3"]}], "-", + RowBox[{"4096", " ", + SuperscriptBox["L", "24"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"150", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "18471"}], "+", + RowBox[{"7480", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"73805219", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "4"]}], "+", + RowBox[{"2048", " ", + SuperscriptBox["L", "24"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1097250", " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "89756449"}], "+", + RowBox[{"32656620", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "5"]}], "+", + RowBox[{"640", " ", + SuperscriptBox["L", "22"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"16", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2809627"}], "-", + RowBox[{"2053380", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"196800", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"625211897", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "6"]}], "-", + RowBox[{"64", " ", + SuperscriptBox["L", "22"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"84000", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "4195"}], "+", + RowBox[{"894", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1348765243", "+", + RowBox[{"2439064160", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "7"]}], "+", + RowBox[{"64", " ", + SuperscriptBox["L", "20"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "5439619239"}], "+", + RowBox[{"343826592", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"158518400", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"3908647817", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "8"]}], "+", + RowBox[{"32", " ", + SuperscriptBox["L", "20"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"3659665", "-", + RowBox[{"1583232", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"104448", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"46847905117", "+", + RowBox[{"296613362", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "9"]}], "+", + RowBox[{"32", " ", + SuperscriptBox["L", "18"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "38854641925"}], "+", + RowBox[{"12153454906", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"184100608", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"60045997176", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "10"]}], "-", + RowBox[{"16", " ", + SuperscriptBox["L", "18"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"175", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "99342933"}], "+", + RowBox[{"65453006", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"8798208", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"143360", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "127875992679"}], "+", + RowBox[{"23557526987", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "11"]}], "-", + RowBox[{"16", " ", + SuperscriptBox["L", "16"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"160486523791", "-", + RowBox[{"82029572466", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"4764133676", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"229746433995", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "12"]}], "-", + RowBox[{"8", " ", + SuperscriptBox["L", "16"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"100", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "626335297"}], "+", + RowBox[{"558738416", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"114713672", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"3850240", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "791307530801"}], "+", + RowBox[{"243102521314", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "13"]}], "-", + RowBox[{"8", " ", + SuperscriptBox["L", "14"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"437966473103", "-", + RowBox[{"304819503332", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"33667035676", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"514668450240", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "14"]}], "-", + RowBox[{"8", " ", + SuperscriptBox["L", "14"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"50", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1571859247"}], "+", + RowBox[{"1779736425", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"495520816", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"25608640", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "804714380459"}], "+", + RowBox[{"331443494684", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "15"]}], "-", + RowBox[{"8", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"413867836807", "-", + RowBox[{"362527040154", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"56947729671", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"379165247618", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "16"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "12"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "25"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "11214221011"}], "+", + RowBox[{"15461994934", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"5461026466", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"383783424", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"559966213873", "-", + RowBox[{"284315434978", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "17"]}], "-", + RowBox[{"4", " ", + SuperscriptBox["L", "10"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1750", " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"548115649114", "-", + RowBox[{"576771534874", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"115704920389", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"374852529720", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "18"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "10"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "25"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "7109284497"}], "+", + RowBox[{"11586327644", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"4961589157", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"438774310", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"52", " ", + RowBox[{"(", + RowBox[{"20472918763", "-", + RowBox[{"12187587628", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "19"]}], "-", + RowBox[{ + SuperscriptBox["L", "8"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"61", "+", + RowBox[{"2", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"251025534014", "-", + RowBox[{"306573662228", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"73614363957", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"483945880272", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "20"]}], "-", + RowBox[{"2", " ", + SuperscriptBox["L", "8"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3143635831"}], "+", + RowBox[{"5909703846", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"2956043094", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"306811838", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"28", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "11907014833"}], "+", + RowBox[{"7953917234", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "21"]}], "+", + RowBox[{ + SuperscriptBox["L", "6"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "198"}], "+", + RowBox[{"16", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"9", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "4"]}], "-", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{"38140673807", "-", + RowBox[{"52259644437", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"14137813862", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "-", + RowBox[{"93788994240", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "22"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "6"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "25"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "927168557"}], "+", + RowBox[{"1960667516", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"1098582897", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"120153142", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"15751988521", "-", + RowBox[{"11050793524", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "23"]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"403", "+", + RowBox[{"898", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"1599", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"290", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "8"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{"7025397453", "-", + RowBox[{"10237387702", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"2791229516", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"8708359984", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "24"]}], "-", + RowBox[{"2", " ", + SuperscriptBox["L", "4"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "166444761"}], "+", + RowBox[{"380607490", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"220305958", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"17066212", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1435407943"}], "+", + RowBox[{"831043694", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "25"]}], "+", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "286"}], "-", + RowBox[{"1128", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"789", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"2044", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"176", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "6"]}], "-", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"1258803094", "-", + RowBox[{"1620462718", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"187417037", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["M", "2"]}], "-", + RowBox[{"34884592", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "26"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "2"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{"14725291", "-", + RowBox[{"32063604", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"12033991", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"4193382", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"14772489", "+", + RowBox[{"50021432", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "27"]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"531", "+", + RowBox[{"1190", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"6738", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"2124", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"2720", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"17156590", "+", + RowBox[{"57322108", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"91292731", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "-", + RowBox[{"20634368", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "28"]}], "+", + RowBox[{"2", " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{"279517", "+", + RowBox[{"295006", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"2223838", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"1640050", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"16", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "648221"}], "+", + RowBox[{"1274962", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "29"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "278"}], "+", + RowBox[{"704", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"2301", " ", + SuperscriptBox["E0", "4"]}], "-", + RowBox[{"5384", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"2720", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{"695018", "-", + RowBox[{"2748205", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"2096867", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "30"]}], "+", + RowBox[{"50", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1337"}], "+", + RowBox[{"5540", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"10909", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"6086", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", "M", " ", + SuperscriptBox["r0", "31"]}], "-", + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"61", "-", + RowBox[{"554", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"1251", " ", + SuperscriptBox["E0", "4"]}], "-", + RowBox[{"1118", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"352", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["r0", "32"]}]}], ")"}], " ", + RowBox[{"EllipticE", "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"336000", " ", + SqrtBox["2"], " ", "\[Pi]", " ", + SuperscriptBox["r0", "18"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", "M"}], "+", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], + RowBox[{"15", "/", "2"}]]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "5775360000"}], " ", + SuperscriptBox["L", "26"], " ", + SuperscriptBox["M", "4"]}], "+", + RowBox[{"5468160000", " ", + SuperscriptBox["L", "26"], " ", + SuperscriptBox["M", "3"], " ", "r0"}], "-", + RowBox[{"491520", " ", + SuperscriptBox["L", "24"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2625", " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"85094", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "2"]}], "-", + RowBox[{"368640", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "93581"}], "+", + RowBox[{"13300", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "24"], " ", + SuperscriptBox["M", "3"], " ", + SuperscriptBox["r0", "3"]}], "+", + RowBox[{"1024", " ", + SuperscriptBox["L", "22"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1200", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3699"}], "+", + RowBox[{"1870", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"112135333", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "4"]}], "-", + RowBox[{"512", " ", + SuperscriptBox["L", "22"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2194500", " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "121057493"}], "+", + RowBox[{"56934240", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "5"]}], "-", + RowBox[{"128", " ", + SuperscriptBox["L", "20"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"20", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "7149209"}], "-", + RowBox[{"3321360", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"393600", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"792474019", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "6"]}], "+", + RowBox[{"640", " ", + SuperscriptBox["L", "20"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1050", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "15317"}], "+", + RowBox[{"3576", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"149827039", "+", + RowBox[{"82458340", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "7"]}], "-", + RowBox[{"64", " ", + SuperscriptBox["L", "18"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2466671642"}], "+", + RowBox[{"286477896", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"65483200", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "-", + RowBox[{"3269396747", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "8"]}], "-", + RowBox[{"16", " ", + SuperscriptBox["L", "18"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"3020113", "-", + RowBox[{"1433040", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"104448", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"41462584535", "-", + RowBox[{"2510311428", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "9"]}], "+", + RowBox[{"8", " ", + SuperscriptBox["L", "16"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"60559582341", "-", + RowBox[{"22257634640", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"84277184", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"96850468006", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "10"]}], "+", + RowBox[{"8", " ", + SuperscriptBox["L", "16"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"350", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "36622559"}], "+", + RowBox[{"26497183", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"3942144", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"71680", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "183867893311"}], "+", + RowBox[{"42480334390", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "11"]}], "+", + RowBox[{"16", " ", + SuperscriptBox["L", "14"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"54184774577", "-", + RowBox[{"31340000896", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"2334208970", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"73178097941", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "12"]}], "+", + RowBox[{"8", " ", + SuperscriptBox["L", "14"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"50", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "406482195"}], "+", + RowBox[{"398671047", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"90739400", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"3411200", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "238349144243"}], "+", + RowBox[{"84713577429", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "13"]}], "+", + RowBox[{"4", " ", + SuperscriptBox["L", "12"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"253248403327", "-", + RowBox[{"197101634262", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"25523739942", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"266423719064", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "14"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "12"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "3523094281"}], "+", + RowBox[{"4390137912", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"1356655832", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"78744320", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "200899023519"}], "+", + RowBox[{"93432910267", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "15"]}], "+", + RowBox[{"4", " ", + SuperscriptBox["L", "10"], " ", + SuperscriptBox["M", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"200373875828", "-", + RowBox[{"195093313467", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"35038312341", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"156482597680", " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "16"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "10"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2643231423"}], "+", + RowBox[{"4013032889", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"1573282069", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"124187312", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "112451860211"}], "+", + RowBox[{"63595775022", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "17"]}], "+", + RowBox[{"4", " ", + SuperscriptBox["L", "8"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"107302641991", "-", + RowBox[{"124824930971", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"28207483751", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"58809801532", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "18"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "8"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1358858193"}], "+", + RowBox[{"2436723165", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"1155242046", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"113901787", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "40812722065"}], "+", + RowBox[{"26651789876", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "19"]}], "+", + RowBox[{ + SuperscriptBox["L", "6"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"27", "+", + SuperscriptBox["E0", "2"]}], ")"}], " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{"16", " ", + RowBox[{"(", + RowBox[{"9406935758", "-", + RowBox[{"12581869215", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"3337159007", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"52697608528", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "20"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "6"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "460702319"}], "+", + RowBox[{"948766698", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"520130679", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"58233110", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"12", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2962402147"}], "+", + RowBox[{"2098304315", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "21"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"99", "+", + RowBox[{"413", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"558", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"75", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "8"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"7959650533", "-", + RowBox[{"11640361404", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"3292605820", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "6"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"5751437056", " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "22"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["L", "4"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "94648995"}], "+", + RowBox[{"215633266", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"127399500", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"12711802", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "947387093"}], "+", + RowBox[{"606804899", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "23"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "875"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "206"}], "-", + RowBox[{"874", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"1320", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"1700", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"105", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "6"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"829281052", "-", + RowBox[{"1148410867", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"217789077", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "4"], " ", + SuperscriptBox["M", "2"]}], "+", + RowBox[{"95125728", " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "24"]}], "-", + RowBox[{"2", " ", + SuperscriptBox["L", "2"], " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{"9662541", "-", + RowBox[{"22015677", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"10337027", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"1281624", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"16814851", "+", + RowBox[{"22690668", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "25"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"234", "+", + RowBox[{"154", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"3468", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"1746", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"1189", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "4"]}], "+", + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"16426443", "+", + RowBox[{"22694013", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"50089769", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["L", "2"], " ", + SuperscriptBox["M", "2"]}], "-", + RowBox[{"15043328", " ", + SuperscriptBox["M", "4"]}]}], ")"}], " ", + SuperscriptBox["r0", "26"]}], "-", + RowBox[{"2", " ", "M", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"25", " ", + RowBox[{"(", + RowBox[{"227003", "-", + RowBox[{"17409", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"1174946", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"956397", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"176", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "45031"}], "+", + RowBox[{"88682", " ", + SuperscriptBox["E0", "2"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "27"]}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "135"}], "+", + RowBox[{"667", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"744", " ", + SuperscriptBox["E0", "4"]}], "-", + RowBox[{"2748", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"1531", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["L", "2"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{"595478", "-", + RowBox[{"2277805", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"1726007", " ", + SuperscriptBox["E0", "4"]}]}], ")"}], " ", + SuperscriptBox["M", "2"]}]}], ")"}], " ", + SuperscriptBox["r0", "28"]}], "-", + RowBox[{"50", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "4907"}], "+", + RowBox[{"19400", " ", + SuperscriptBox["E0", "2"]}], "-", + RowBox[{"27919", " ", + SuperscriptBox["E0", "4"]}], "+", + RowBox[{"12806", " ", + SuperscriptBox["E0", "6"]}]}], ")"}], " ", "M", " ", + SuperscriptBox["r0", "29"]}], "+", + RowBox[{"875", " ", + RowBox[{"(", + RowBox[{"31", "-", + RowBox[{"359", " ", + SuperscriptBox["E0", "2"]}], "+", + RowBox[{"846", " ", + SuperscriptBox["E0", "4"]}], "-", + RowBox[{"773", " ", + SuperscriptBox["E0", "6"]}], "+", + RowBox[{"247", " ", + SuperscriptBox["E0", "8"]}]}], ")"}], " ", + SuperscriptBox["r0", "30"]}]}], ")"}], " ", + RowBox[{"EllipticK", "[", + FractionBox[ + SuperscriptBox["L", "2"], + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}]], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"336000", " ", + SqrtBox["2"], " ", "\[Pi]", " ", + SuperscriptBox["r0", "16"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", "M"}], "+", "r0"}], ")"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["L", "2"], "+", + SuperscriptBox["r0", "2"]}], ")"}], + RowBox[{"15", "/", "2"}]]}], ")"}]}]}], ")"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.549105450864315*^9, 3.549105452379019*^9}, + 3.549109231059563*^9, {3.550129539086172*^9, 3.55012954295388*^9}, { + 3.943338646856258*^9, 3.943338647248773*^9}}, + CellLabel->"In[75]:=", + CellID->1335159834,ExpressionUUID->"d61db50c-93cc-4898-b968-fb2ef65af017"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[Cell[BoxData[ + FormBox[ + RowBox[{ + "Building", " ", "the", " ", "new", " ", "interpolating", " ", "function"}], + TraditionalForm]],ExpressionUUID->"813d5b6f-ed30-4c29-a0dd-8e3041ed03fc"]],\ + "Subsubsection", + CellChangeTimes->{ + 3.54910501712082*^9, {3.55012942299815*^9, 3.5501294334484153`*^9}, { + 3.550129536376921*^9, 3.550129537093506*^9}, {3.943338691123126*^9, + 3.943338700593692*^9}}, + CellID->1072109088,ExpressionUUID->"bd465dd1-f2a0-4574-b065-033bc2e8bb8a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"NN", "=", "6"}]], "Input", + CellChangeTimes->{{3.943341465526492*^9, 3.94334147317243*^9}, { + 3.943342246102316*^9, 3.9433422476246862`*^9}}, + CellLabel->"In[76]:=", + CellID->2038143478,ExpressionUUID->"3126df88-c696-43e7-85f4-fa549149eefe"], + +Cell[BoxData["6"], "Output", + CellChangeTimes->{3.9433414737221317`*^9, 3.9433422484589853`*^9, + 3.943354127006008*^9}, + CellLabel->"Out[76]=", + CellID->2103837016,ExpressionUUID->"db0843ee-f6fd-4ccb-9c6f-2836e3fa0c5f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar_", ",", " ", "n_", ",", " ", "NN_"}], "]"}], " ", ":=", " ", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"dcoeff", ",", "l", ",", "DD"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"n", "==", "1"}], ",", " ", + RowBox[{"dcoeff", " ", "=", " ", + RowBox[{"D2", "*", " ", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "-", " ", + RowBox[{"2", " ", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "+", " ", + RowBox[{"2", " ", "k"}]}], ")"}]}], ",", " ", + RowBox[{"{", + RowBox[{"k", ",", " ", "1", ",", " ", "1"}], "}"}]}], "]"}]}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"n", "==", "2"}], ",", " ", + RowBox[{"dcoeff", " ", "=", " ", + RowBox[{"D4", "*", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "-", " ", + RowBox[{"2", " ", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "+", " ", + RowBox[{"2", " ", "k"}]}], ")"}]}], ",", " ", + RowBox[{"{", + RowBox[{"k", ",", " ", "1", ",", " ", "2"}], "}"}]}], + "]"}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"n", "==", "3"}], ",", " ", + RowBox[{"dcoeff", " ", "=", " ", + RowBox[{"D6", "*", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "-", + " ", + RowBox[{"2", " ", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "+", + " ", + RowBox[{"2", " ", "k"}]}], ")"}]}], ",", " ", + RowBox[{"{", + RowBox[{"k", ",", " ", "1", ",", " ", "3"}], "}"}]}], + "]"}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"dcoeff", " ", "=", " ", + RowBox[{ + RowBox[{"FindFit", "[", + RowBox[{ + RowBox[{ + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "2", "]"}], "]"}], "[", + RowBox[{"[", " ", + RowBox[{ + RowBox[{ + "lmax", " ", "+", " ", "2", " ", "-", " ", "nbar"}], " ", + ";;", " ", + RowBox[{"lmax", " ", "+", " ", "1"}]}], "]"}], "]"}], ",", + " ", + RowBox[{ + "D2", " ", "+", " ", "D4", " ", "+", " ", "D6", " ", "+", + " ", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"DD", "[", + RowBox[{"2", " ", "x"}], "]"}], "/", + RowBox[{"Product", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "-", + " ", + RowBox[{"2", " ", "k"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", "l"}], " ", "+", " ", "1", " ", "+", + " ", + RowBox[{"2", " ", "k"}]}], ")"}]}], ",", " ", + RowBox[{"{", + RowBox[{"k", ",", " ", "1", ",", " ", "x"}], "}"}]}], + "]"}]}], ",", " ", + RowBox[{"{", + RowBox[{"x", ",", " ", "4", ",", " ", "NN"}], "}"}]}], + "]"}]}], ",", " ", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"DD", "[", + RowBox[{"2", " ", "nn"}], " ", "]"}], ",", + RowBox[{"{", + RowBox[{"nn", ",", "4", ",", " ", "NN"}], "}"}]}], "]"}], + ",", " ", "l"}], "]"}], "[", + RowBox[{"[", + RowBox[{ + RowBox[{"n", "-", "3"}], ",", " ", "2"}], "]"}], "]"}]}], + ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], + "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], + ";", "\[IndentingNewLine]", + RowBox[{"Return", "[", "dcoeff", "]"}]}]}], "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.943351789445634*^9, 3.9433519100776577`*^9}, { + 3.943351944525218*^9, 3.94335200652806*^9}, 3.943352049323543*^9, { + 3.943352084322221*^9, 3.9433521016619663`*^9}, {3.943352233770158*^9, + 3.9433522365576067`*^9}, {3.9433527504120493`*^9, + 3.9433527506684227`*^9}, {3.943352781287572*^9, 3.943352828606661*^9}, { + 3.943353479749063*^9, 3.943353480457893*^9}, {3.94335364294656*^9, + 3.9433536452647142`*^9}}, + CellLabel->"In[77]:=", + CellID->1173884636,ExpressionUUID->"7a2cd097-7148-4a09-8e52-d5e88111e726"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "1", ",", " ", "6"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "2", ",", " ", "6"}], "]"}], + " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "3", ",", " ", "6"}], "]"}], + " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "4", ",", " ", "6"}], "]"}], + " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "5", ",", " ", "6"}], "]"}], + " "}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"5", ",", " ", "6", ",", " ", "6"}], "]"}], " "}]}], "Input", + CellChangeTimes->{{3.943339534575162*^9, 3.94333955076326*^9}, { + 3.943339623725889*^9, 3.943339629390953*^9}, {3.943341038714107*^9, + 3.943341070870573*^9}, {3.943341399939005*^9, 3.943341448721287*^9}, { + 3.9433434514314547`*^9, 3.94334345812202*^9}, {3.9433519198830547`*^9, + 3.943351937156248*^9}, {3.943352053129942*^9, 3.943352071727796*^9}, { + 3.943352139716776*^9, 3.9433521755494337`*^9}, {3.943352244858678*^9, + 3.9433522466075563`*^9}, {3.943352838097846*^9, 3.943352839758501*^9}, { + 3.943353181452503*^9, 3.9433531851356897`*^9}, {3.943353522394269*^9, + 3.9433535254638767`*^9}}, + CellLabel->"In[78]:=", + CellID->1715100115,ExpressionUUID->"fa985f54-5805-4f13-a578-5219dd32fac4"], + +Cell[BoxData["0.\ +00020107257127591074755323493679889745918100803064383266737909764598126140305`\ +46.548795665717584"], "Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.94335412703476*^9}, + CellLabel->"Out[78]=", + CellID->870480057,ExpressionUUID->"059204be-2c3f-4a06-9392-1465131554c0"], + +Cell[BoxData["0.\ +00181930621291856113171159393595444068673802920942699099015633383379720372682`\ +45.65934333555417"], "Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.943354127035451*^9}, + CellLabel->"Out[79]=", + CellID->1499714635,ExpressionUUID->"72f253ca-d5e9-48b7-9161-a3d11803f6a4"], + +Cell[BoxData["0.0323945738632593606437251874333675752284490957786691381201`45.\ +680374687320686"], "Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.94335412703594*^9}, + CellLabel->"Out[80]=", + CellID->688305606,ExpressionUUID->"3aed619e-9e30-40f5-a3a5-b4dbfb4f5243"], + +Cell[BoxData["1.0645237245973624704840860232435988453`27.83499906110108"], \ +"Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.94335412704382*^9}, + CellLabel->"Out[81]=", + CellID->2005397300,ExpressionUUID->"6b9dcd6e-6217-4d8c-84f6-25a862748b8a"], + +Cell[BoxData["54.26078064028434762130359199070418429851`27.83499906110108"], \ +"Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.9433541270444603`*^9}, + CellLabel->"Out[82]=", + CellID->2104065082,ExpressionUUID->"733c07a7-0a90-4de1-a1c4-66846dda28f5"], + +Cell[BoxData["6524.36086887968643901018225033771235491074`27.83499906110108"],\ + "Output", + CellChangeTimes->{ + 3.943339550999885*^9, {3.943339624393971*^9, 3.94333962973055*^9}, { + 3.9433410390773487`*^9, 3.9433410710937*^9}, {3.943341392989726*^9, + 3.9433414491399803`*^9}, 3.9433414823303967`*^9, 3.943343330961926*^9, { + 3.9433434242632647`*^9, 3.9433434592653513`*^9}, {3.94335192635564*^9, + 3.943351937422145*^9}, {3.9433519691179867`*^9, 3.943352008344821*^9}, { + 3.9433520517383423`*^9, 3.943352059976265*^9}, {3.943352140217626*^9, + 3.9433521757179623`*^9}, {3.9433522388840523`*^9, + 3.9433522467700253`*^9}, {3.943352831581283*^9, 3.943352839922412*^9}, { + 3.943353181782806*^9, 3.943353185325673*^9}, 3.943353525866321*^9, { + 3.9433536521322393`*^9, 3.9433536712649117`*^9}, 3.943354127044902*^9}, + CellLabel->"Out[83]=", + CellID->408618025,ExpressionUUID->"a4c834a1-d6da-470c-84dd-dbca8aa0b352"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"FrLTail", "[", + RowBox[{"nbar_", ",", "lmax_", ",", "NN_"}], "]"}], " ", ":=", " ", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"DCoeff", "[", + RowBox[{"nbar", ",", "n", ",", "NN"}], "]"}], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"-", "4"}], ")"}], + RowBox[{"-", "n"}]], " ", "\[Pi]", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"-", "1"}], ")"}], + RowBox[{"lmax", "+", "1"}]], + RowBox[{"(", + RowBox[{"lmax", "+", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"2", "n"}], "-", "1"}], ")"}], + RowBox[{"Gamma", "[", + RowBox[{"n", "-", "lmax", "-", + FractionBox["1", "2"]}], "]"}], + RowBox[{"Gamma", "[", + RowBox[{"n", "+", "lmax", "+", + FractionBox["3", "2"]}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"n", ",", "1", ",", "NN"}], "}"}]}], "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.9433528978711653`*^9, 3.943352905322364*^9}, + 3.9433529500087547`*^9, {3.943353259348631*^9, 3.943353268882381*^9}}, + CellLabel->"In[84]:=", + CellID->436923609,ExpressionUUID->"877df8dd-3169-4d18-bf34-781d44e28d3e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"check", " ", "with", " ", "the", " ", "previous", " ", + RowBox[{"examples", ":", " ", "1"}]}], ")"}], "2.3992317876*^-6"}], + ",", " ", "2"}], ")"}], "2.39922431936*^-6"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"nbar", "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"lmax", "=", "20"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"NN", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"N", "[", + RowBox[{ + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}], ",", "20"}], + "]"}]}]}]], "Input", + CellChangeTimes->{{3.94275516128866*^9, 3.9427552338827863`*^9}, { + 3.943352991516741*^9, 3.9433530512211*^9}}, + CellLabel->"In[85]:=", + CellID->758194269,ExpressionUUID->"616a2dac-ca37-44fd-be05-ab514cd1a873"], + +Cell[BoxData["2.39922011872016508521364717054705`20.*^-6"], "Output", + CellChangeTimes->{{3.943352986664693*^9, 3.94335301102465*^9}, + 3.943353143900363*^9, 3.94335326325007*^9, {3.943353665424796*^9, + 3.9433536785394583`*^9}, 3.943353712250045*^9, 3.9433541270659733`*^9}, + CellLabel->"Out[88]=", + CellID->2137926716,ExpressionUUID->"2a807486-b0f6-4a3e-9505-0921dd2ce2f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{"nbarmin", "\[IndentingNewLine]", "nbarmax", "\ +\[IndentingNewLine]", "FrWithoutTail", "\[IndentingNewLine]", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbarmin", "+", "1"}], ",", "lmax", ",", "3"}], "]"}]}], "Input", + CellChangeTimes->{{3.9433542477294807`*^9, 3.943354335170731*^9}, { + 3.943354367357506*^9, 3.943354367692328*^9}}, + CellLabel->"In[144]:=", + CellID->1844172899,ExpressionUUID->"195ef415-5ab8-4a22-aaeb-2294ce332448"], + +Cell[BoxData["10"], "Output", + CellChangeTimes->{{3.943354254646563*^9, 3.9433542911122704`*^9}, { + 3.943354322829566*^9, 3.943354335714241*^9}, 3.943354368110817*^9}, + CellLabel->"Out[144]=", + CellID->1921592382,ExpressionUUID->"44a44a61-dad1-45b1-ba69-833180913aab"], + +Cell[BoxData["15"], "Output", + CellChangeTimes->{{3.943354254646563*^9, 3.9433542911122704`*^9}, { + 3.943354322829566*^9, 3.943354335714241*^9}, 3.943354368111656*^9}, + CellLabel->"Out[145]=", + CellID->196597041,ExpressionUUID->"238e32fe-d3a2-4b73-bdaf-b14b7ebb738f"], + +Cell[BoxData["3.2086303282244951697647868159623`21.118386711318227*^-7"], \ +"Output", + CellChangeTimes->{{3.943354254646563*^9, 3.9433542911122704`*^9}, { + 3.943354322829566*^9, 3.943354335714241*^9}, 3.9433543681122437`*^9}, + CellLabel->"Out[146]=", + CellID->1376619001,ExpressionUUID->"5f62c149-0e69-4d82-b3a8-4f2c59481991"], + +Cell[BoxData["2.\ +39922011872016508521364717054705001235232931608033797102909846380984146`46.\ +543764561073786*^-6"], "Output", + CellChangeTimes->{{3.943354254646563*^9, 3.9433542911122704`*^9}, { + 3.943354322829566*^9, 3.943354335714241*^9}, 3.9433543681128387`*^9}, + CellLabel->"Out[147]=", + CellID->1994220676,ExpressionUUID->"ff327965-2d9c-42ee-aec7-7fe3bc23aa9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["\<\ +In this case NN>3 as the fitting formula is fixed for NN<=3. \ +\>", "Text", + CellChangeTimes->{{3.943354539775337*^9, 3.943354565438924*^9}}, + CellID->1473839670,ExpressionUUID->"beefb52a-433c-4b9f-92c8-f86b8957f994"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "4"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN4", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942146163256646*^9, + 3.942146181342828*^9}, {3.942146877536778*^9, 3.942146887513324*^9}, { + 3.942223968086073*^9, 3.942224042577124*^9}, {3.942384010565942*^9, + 3.942384024842196*^9}, {3.942384377083788*^9, 3.9423843963982687`*^9}, { + 3.942385001713157*^9, 3.942385061084581*^9}, 3.94238509489143*^9, { + 3.94335312636903*^9, 3.943353128928567*^9}, {3.943353689366291*^9, + 3.943353710521727*^9}, {3.9433541533695*^9, 3.943354193797639*^9}, { + 3.9433543725854797`*^9, 3.9433543739765244`*^9}}, + CellLabel->"In[148]:=", + CellID->2136118533,ExpressionUUID->"4a29a608-8165-46dd-98e0-b7d7d36c521a"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "5"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN5", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942140341375902*^9, + 3.942140342937508*^9}, {3.942146184093143*^9, 3.94214620115694*^9}, { + 3.942146889820748*^9, 3.942146899429043*^9}, {3.942224053403852*^9, + 3.9422240635278273`*^9}, {3.942384026464682*^9, 3.942384035566687*^9}, { + 3.942384468023972*^9, 3.942384487340105*^9}, {3.942385064991235*^9, + 3.942385105880279*^9}, {3.943354376017867*^9, 3.943354378088883*^9}}, + CellLabel->"In[150]:=", + CellID->112573585,ExpressionUUID->"c07b0580-4c01-4b52-b834-509fc9729e81"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NN", "=", "6"}], ";"}], " ", "\n"}], "\n", + RowBox[{ + RowBox[{"WeightedAvarageN6", "=", + RowBox[{"{", + RowBox[{"NN", ",", + RowBox[{"RadiusFrLTab", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], + "-", "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], "*", + + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}]}], + ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}], "/", + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{ + RowBox[{"nbar", "+", "1"}], ",", "lmax", ",", "NN"}], "]"}], "-", + "FrWithoutTail", "-", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"FrWithoutTail", "+", + RowBox[{"FrLTail", "[", + RowBox[{"nbar", ",", "lmax", ",", "NN"}], "]"}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"nbar", ",", "nbarmin", ",", + RowBox[{"nbarmax", "-", "1"}]}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.942139651784555*^9, 3.942139696963454*^9}, { + 3.942139934556065*^9, 3.942139947627365*^9}, {3.942140350887582*^9, + 3.942140352364943*^9}, {3.942146203695643*^9, 3.942146216826044*^9}, { + 3.94214690148377*^9, 3.942146909140553*^9}, {3.94222405715268*^9, + 3.942224066019341*^9}, {3.9423840343423786`*^9, 3.942384042499935*^9}, { + 3.942384495247511*^9, 3.942384510712655*^9}, {3.942385113179127*^9, + 3.942385136653125*^9}, {3.943354380439867*^9, 3.943354382070932*^9}}, + CellLabel->"In[152]:=", + CellID->91150088,ExpressionUUID->"bf8e8700-5c79-4d1e-be61-82de8878776f"], + +Cell[CellGroupData[{ + +Cell[BoxData[{"WeightedAvarageN4", "\[IndentingNewLine]", \ +"WeightedAvarageN5", "\[IndentingNewLine]", "WeightedAvarageN6"}], "Input", + CellChangeTimes->{{3.943354384612356*^9, 3.943354387348043*^9}}, + CellLabel->"In[154]:=", + CellID->803688705,ExpressionUUID->"32b2df71-0c8f-4d8a-ab09-c8094b598445"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "4", ",", "14.`50.", ",", + "2.72008364576311553904288495664858`13.033364985435897*^-6"}], + "}"}]], "Output", + CellChangeTimes->{3.943353737315407*^9, 3.94335412719806*^9, + 3.943354387824813*^9}, + CellLabel->"Out[154]=", + CellID->1947505256,ExpressionUUID->"558dabeb-31d3-47b1-8e4f-ea163a0cc658"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "5", ",", "14.`50.", ",", + "2.72008367217497432155498031850061`13.674903037301101*^-6"}], + "}"}]], "Output", + CellChangeTimes->{3.943353737315407*^9, 3.94335412719806*^9, + 3.9433543878265667`*^9}, + CellLabel->"Out[155]=", + CellID->1922573665,ExpressionUUID->"8950bf9b-5d76-46ce-885a-5bebb275c573"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "6", ",", "14.`50.", ",", + "2.72008362119390045720481069149329`13.041641026687648*^-6"}], + "}"}]], "Output", + CellChangeTimes->{3.943353737315407*^9, 3.94335412719806*^9, + 3.943354387827525*^9}, + CellLabel->"Out[156]=", + CellID->1656634893,ExpressionUUID->"8700f2aa-4bf2-4add-99e2-02160f402c73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Fr", " ", "=", " ", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"WeightedAvarageN4", "[", + RowBox[{"[", "3", "]"}], "]"}], "+", + RowBox[{"WeightedAvarageN5", "[", + RowBox[{"[", "3", "]"}], "]"}], "+", + RowBox[{"WeightedAvarageN6", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", "3"}]}]], "Input", + CellChangeTimes->{{3.942224158969799*^9, 3.942224179209029*^9}, { + 3.942394943092485*^9, 3.942394947167363*^9}, {3.943353798035162*^9, + 3.943353803387389*^9}, {3.9433543932519417`*^9, 3.943354397368072*^9}}, + CellLabel->"In[157]:=", + CellID->2071408952,ExpressionUUID->"dc2c0949-98fb-4919-84cd-9bfb6f723868"], + +Cell[BoxData["2.72008364637733010593422532221416`13.16621169050763*^-6"], \ +"Output", + CellChangeTimes->{ + 3.943353751863428*^9, {3.943353795877967*^9, 3.9433538060624237`*^9}, + 3.943354127210515*^9, 3.9433543976187*^9}, + CellLabel->"Out[157]=", + CellID->1340985998,ExpressionUUID->"57df09a1-0059-4658-9673-2db1a605080f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"error", " ", "=", " ", + RowBox[{"Sqrt", "[", + RowBox[{"Variance", "[", + StyleBox[ + RowBox[{"{", + RowBox[{ + RowBox[{"WeightedAvarageN4", "[", + RowBox[{"[", "3", "]"}], "]"}], ",", + RowBox[{"WeightedAvarageN5", "[", + RowBox[{"[", "3", "]"}], "]"}], ",", + RowBox[{"WeightedAvarageN6", "[", + RowBox[{"[", "3", "]"}], "]"}]}], "}"}], + FontSize->14], + StyleBox["]", + FontSize->14]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9423965249275618`*^9, 3.942396567250926*^9}, { + 3.943353814347597*^9, 3.94335382168182*^9}, {3.943354400442048*^9, + 3.9433544034300213`*^9}}, + CellLabel->"In[158]:=", + CellID->1312854747,ExpressionUUID->"587a78de-7882-4c27-91f6-9c560c9c9e02"], + +Cell[BoxData["2.549608632204594105819662`4.872593935069085*^-14"], "Output", + CellChangeTimes->{ + 3.94335375388734*^9, {3.943353809759549*^9, 3.943353821995112*^9}, + 3.943354127225628*^9, 3.943354403681016*^9}, + CellLabel->"Out[158]=", + CellID->161244616,ExpressionUUID->"90f2ce46-eb96-4d3e-a1b6-a023cc70aeb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Fr", "+", "error"}], " "}], "\[IndentingNewLine]", + RowBox[{"Fr", "-", "error", " "}]}], "Input", + CellChangeTimes->{{3.942394993853022*^9, 3.942395018696282*^9}, { + 3.9433537781486263`*^9, 3.943353780622254*^9}, {3.943353828721528*^9, + 3.94335383036895*^9}}, + CellLabel->"In[159]:=", + CellID->1902743551,ExpressionUUID->"18159337-26ed-45d1-ba14-01a47215dbcc"], + +Cell[BoxData["2.72008367187341642798016638041078`12.712445413317065*^-6"], \ +"Output", + CellChangeTimes->{{3.943353755638644*^9, 3.943353781035994*^9}, { + 3.943353823153968*^9, 3.943353830685906*^9}, 3.943354127238997*^9, + 3.9433544069215937`*^9}, + CellLabel->"Out[159]=", + CellID->53460338,ExpressionUUID->"cece521c-5feb-46ed-964f-3d9bfae71664"], + +Cell[BoxData["2.72008362088124378388828426401754`12.712445405175545*^-6"], \ +"Output", + CellChangeTimes->{{3.943353755638644*^9, 3.943353781035994*^9}, { + 3.943353823153968*^9, 3.943353830685906*^9}, 3.943354127238997*^9, + 3.943354406922274*^9}, + CellLabel->"Out[160]=", + CellID->859736320,ExpressionUUID->"1a56e11e-ad27-488f-a021-27952435c1b6"] +}, Open ]] +}, Open ]], + +Cell[BoxData[Cell["\<\ +As a comparison, from https://arxiv.org/pdf/1003.1860: 2.720083e\[Minus]6\ +\>", "MathCaption", + CellChangeTimes->{{3.942137231912928*^9, 3.942137234561428*^9}, { + 3.942141648216139*^9, 3.9421416509241858`*^9}},ExpressionUUID-> + "2f09943f-a4c9-41b4-a2bb-82f961696566"]], "Text", + CellChangeTimes->{3.943353772017379*^9}, + CellID->834606419,ExpressionUUID->"505565f0-b6b2-4555-9210-f8b60d8d5683"] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Related Guides", "TutorialMoreAboutSection", + CellChangeTimes->{{3.843042384656711*^9, 3.843042386024461*^9}}, + CellID->1307064998,ExpressionUUID->"d354a74e-5b6a-45b4-b11a-252169f753c7"], + +Cell["Teukolsky", "TutorialMoreAbout", + CellChangeTimes->{{3.942137010078423*^9, 3.942137011547532*^9}}, + CellID->1231196223,ExpressionUUID->"3eb49d52-9e6e-464e-bf7f-db9d8a467f50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Related Tech Notes", "RelatedTutorialsSection", + CellID->1709981116,ExpressionUUID->"634e9c5d-a729-44c9-b281-6373aa7f0eb3"], + +Cell["XXXX", "RelatedTutorials", + CellID->2026452458,ExpressionUUID->"5ed1aee6-7630-42f1-abad-33c98be382bb"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Metadata", "MetadataSection", + CellID->1643303833,ExpressionUUID->"cfbd3714-e87f-4e4b-a096-0e45c3b02b3d"], + +Cell[TextData[{ + "New in: ", + Cell["XX", "HistoryData", + CellTags->"New",ExpressionUUID->"2cf7824b-81a2-489c-9404-9237b24a7e14"], + " | Modified in: ", + Cell[" ", "HistoryData", + CellTags->"Modified",ExpressionUUID->"9fb6b40a-c11b-436c-bd88-a3eec95075ae"], + " | Obsolete in: ", + Cell[" ", "HistoryData", + CellTags->"Obsolete",ExpressionUUID-> + "b9101e49-dcc3-49a1-b226-014945ddcb42"] +}], "History", + CellID->220337164,ExpressionUUID->"fc1bea16-3a30-455a-a73a-a7df40754cae"], + +Cell[CellGroupData[{ + +Cell["Categorization", "CategorizationSection", + CellID->944907920,ExpressionUUID->"ce287e74-ddd4-4f1a-bc07-26c8c1ae9b4f"], + +Cell["Tech Note", "Categorization", + CellLabel->"Entity Type", + CellID->425841875,ExpressionUUID->"f4d2bb91-b357-447c-8f82-cd98e7258500"], + +Cell["ToolkitHackaton", "Categorization", + CellLabel->"Paclet Name", + CellID->1708881321,ExpressionUUID->"be541932-5bb9-4e39-9891-bfc37118c361"], + +Cell["", "Categorization", + CellLabel->"Context", + CellID->722067069,ExpressionUUID->"a56e3805-8311-47da-a638-ec7ba6265e3b"], + +Cell["ToolkitHackaton/tutorial/ScalarSelfForceTutorial", "Categorization", + CellLabel->"URI", + CellID->351139486,ExpressionUUID->"4694fe36-d6f7-4864-aef2-5c9c541d9266"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Keywords", "KeywordsSection", + CellID->316279246,ExpressionUUID->"913a5901-64ed-44c8-903e-029017fad039"], + +Cell["XXXX", "Keywords", + CellID->683261197,ExpressionUUID->"6ba3ee4b-02f9-49ee-92e5-ba943d588040"] +}, Open ]] +}, Open ]] +}, +WindowSize->{861, 842}, +WindowMargins->{{Automatic, 175}, {-33, Automatic}}, +TaggingRules-><|"Paclet" -> "ToolkitHackaton"|>, +Magnification:>1.25 Inherited, +FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)", +StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TechNotePageStylesExt.nb", + CharacterEncoding -> "UTF-8"], +ExpressionUUID->"eec7ac65-7650-4ac1-88ff-18ee76e6f47c" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 185, 2, 141, "Title",ExpressionUUID->"816aaa4d-dad1-400e-bdd0-b877bc095559", + CellID->1666295124], +Cell[768, 26, 1082, 29, 85, "Text",ExpressionUUID->"e421ac9b-bfbe-4188-ba2d-1f8eeb7c1f7f", + CellID->64333949], +Cell[1853, 57, 156, 2, 31, "Text",ExpressionUUID->"cd6b7c56-6d90-4de8-9858-6b25a88f9cdf", + CellID->349916694], +Cell[CellGroupData[{ +Cell[2034, 63, 210, 3, 47, "MathCaption",ExpressionUUID->"357dd3df-6a5a-4323-8fdb-9384c663edb6", + CellID->668355540], +Cell[2247, 68, 404, 7, 82, "Input",ExpressionUUID->"ffbcaca4-80c6-41cc-afd0-e3fd2eb15490", + CellID->843844054] +}, Open ]], +Cell[CellGroupData[{ +Cell[2688, 80, 224, 3, 58, "Section",ExpressionUUID->"d4643600-a3f9-4a2a-90b4-245504ede1ce", + CellID->287201696], +Cell[2915, 85, 1028, 19, 194, "DefinitionBox",ExpressionUUID->"55f22141-8312-4e9f-91cf-c65341b1445e", + CellID->10099451], +Cell[3946, 106, 376, 7, 57, "Caption",ExpressionUUID->"6950d5ca-c244-4f8b-8097-2a51fa367899", + CellID->90264844], +Cell[4325, 115, 156, 2, 31, "Text",ExpressionUUID->"294ac8ec-82e5-4ed4-b0f1-970587b4a299", + CellID->55216985], +Cell[CellGroupData[{ +Cell[4506, 121, 237, 3, 47, "MathCaption",ExpressionUUID->"aa37db9d-4b87-4fd6-a5f1-a60453952a50", + CellID->957778326], +Cell[4746, 126, 3905, 92, 562, "Input",ExpressionUUID->"84edb793-00e7-4b16-b938-0b656636b16e", + CellID->1990390817] +}, Open ]], +Cell[CellGroupData[{ +Cell[8688, 223, 577, 9, 58, "MathCaption",ExpressionUUID->"5d55cb6f-2b1f-4943-8cc4-57366b235086", + CellID->1402220897], +Cell[9268, 234, 840, 20, 106, "Input",ExpressionUUID->"e42e9f5a-3686-4a1a-88e7-10ef6b60d9e0", + CellID->573654053], +Cell[CellGroupData[{ +Cell[10133, 258, 291, 6, 33, "Input",ExpressionUUID->"c6796880-9132-41a9-adf2-4fdba4b1dc1f", + CellID->864090936], +Cell[10427, 266, 659, 11, 32, "Output",ExpressionUUID->"e4cdf5c3-e9c5-4193-9ea0-44bb4dbd0533", + CellID->1681368611] +}, Open ]] +}, Open ]], +Cell[11113, 281, 737, 14, 58, "MathCaption",ExpressionUUID->"7620d48d-8851-4352-a8bc-69d3f799359a", + CellID->113884371] +}, Open ]], +Cell[CellGroupData[{ +Cell[11887, 300, 276, 4, 58, "Section",ExpressionUUID->"e7822ca0-6085-4eeb-ba9b-37c336c716f4", + CellID->69577989], +Cell[12166, 306, 1288, 34, 59, "Text",ExpressionUUID->"2df463dc-f278-4881-ae4e-899ae4cd341b", + CellID->1013390321], +Cell[13457, 342, 4300, 106, 270, "DefinitionBox",ExpressionUUID->"293854c7-cf93-441e-bf36-7703018a154a", + CellID->1473299213], +Cell[CellGroupData[{ +Cell[17782, 452, 288, 4, 47, "MathCaption",ExpressionUUID->"1efdc789-2e7d-49ce-b179-7033fabde480", + CellID->1247913010], +Cell[18073, 458, 5171, 139, 610, "Input",ExpressionUUID->"6bff9100-b7eb-4a1d-a129-d640acc7fbf6", + CellID->1829903203] +}, Open ]], +Cell[CellGroupData[{ +Cell[23281, 602, 324, 4, 52, "MathCaption",ExpressionUUID->"b18e5106-c8a1-4eee-827d-9dc4145fc0fa", + CellID->851799169], +Cell[23608, 608, 8773, 214, 1234, "Input",ExpressionUUID->"f699d0d4-8c40-46f7-84bd-98a55e13a068", + CellID->1181885993], +Cell[32384, 824, 6549, 159, 1042, "Input",ExpressionUUID->"97273727-2d4b-4806-843b-b3d9b2496daa", + CellID->1271619726] +}, Open ]], +Cell[38948, 986, 525, 8, 52, "MathCaption",ExpressionUUID->"5614da13-1382-40a3-8c04-e6e17ce539b2", + CellID->1210864362], +Cell[CellGroupData[{ +Cell[39498, 998, 431, 6, 47, "MathCaption",ExpressionUUID->"86b7673b-244f-468a-ad78-73531fa7841e", + CellID->1200359567], +Cell[39932, 1006, 762, 19, 58, "Input",ExpressionUUID->"542bcca3-601d-4913-8a5c-5b25b5382e6e", + CellID->536844417], +Cell[40697, 1027, 954, 21, 82, "Input",ExpressionUUID->"c0e0ce97-e1e9-4d2c-a85c-872c79b117b7", + CellID->699711998], +Cell[41654, 1050, 1291, 26, 106, "Input",ExpressionUUID->"d23e82ab-5988-423d-bdba-e0e470c3ce27", + CellID->1003085966], +Cell[CellGroupData[{ +Cell[42970, 1080, 289, 6, 33, "Input",ExpressionUUID->"8147a530-1ca3-4b3b-8dc1-18320d69b6a6", + CellID->2140453333], +Cell[43262, 1088, 363, 6, 32, "Output",ExpressionUUID->"f49eb6cc-f813-4f36-b39f-d3564548d070", + CellID->1854921831] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[43674, 1100, 655, 11, 109, "MathCaption",ExpressionUUID->"46bafea7-e59c-4992-9388-1b0f772aab67", + CellID->1494422815], +Cell[44332, 1113, 2575, 56, 346, "Input",ExpressionUUID->"900b0d8b-4762-47b9-8af9-f66168f84fe7", + CellID->1283425651], +Cell[CellGroupData[{ +Cell[46932, 1173, 619, 12, 33, "Input",ExpressionUUID->"dd05c219-17e2-4fc8-90ce-1ad4d3af383e", + CellID->197844135], +Cell[CellGroupData[{ +Cell[47576, 1189, 564, 9, 45, "Print",ExpressionUUID->"09f91847-de65-478e-9f72-2fcc3235fc5a", + CellID->651110118], +Cell[48143, 1200, 468, 10, 27, "Print",ExpressionUUID->"6136db4c-0d36-4585-87d7-f2afb2aca6ff", + CellID->1630704534], +Cell[48614, 1212, 470, 10, 27, "Print",ExpressionUUID->"95361cce-dc02-4651-b693-0f7460ac68ea", + CellID->1064799924], +Cell[49087, 1224, 468, 10, 27, "Print",ExpressionUUID->"3b475e6d-a126-4010-a8dc-cef60c236a53", + CellID->1111092217], +Cell[49558, 1236, 468, 10, 27, "Print",ExpressionUUID->"df89a164-7774-48d0-8641-ca1e5e8528af", + CellID->1756580454], +Cell[50029, 1248, 468, 10, 27, "Print",ExpressionUUID->"e88b9d98-1e10-4653-97da-072e71fa7a9e", + CellID->1389995069], +Cell[50500, 1260, 470, 10, 27, "Print",ExpressionUUID->"7f7ff0cc-d6e8-41e3-8060-9aee0a39822a", + CellID->1320012617], +Cell[50973, 1272, 470, 10, 27, "Print",ExpressionUUID->"857b2a33-b704-4895-ae22-e9c45ff7fc5e", + CellID->1945980409], +Cell[51446, 1284, 468, 10, 27, "Print",ExpressionUUID->"004e4b72-6e5a-405a-959e-e2bddc56bc0a", + CellID->2064273900], +Cell[51917, 1296, 468, 10, 27, "Print",ExpressionUUID->"91968bdc-184c-420b-9698-fa1a2adf0b60", + CellID->1653120015], +Cell[52388, 1308, 471, 10, 27, "Print",ExpressionUUID->"d5ce5218-9e25-4e06-9992-f176af78e83f", + CellID->1992150866], +Cell[52862, 1320, 467, 10, 27, "Print",ExpressionUUID->"29aa73f7-4171-421d-9f21-efd657c577c8", + CellID->662064485], +Cell[53332, 1332, 468, 10, 27, "Print",ExpressionUUID->"61fddb9c-fe2f-4d9e-bda3-13aa35098d3f", + CellID->1205024288], +Cell[53803, 1344, 468, 10, 27, "Print",ExpressionUUID->"50476c1e-0345-4e78-9c10-db6119b0692f", + CellID->2072417206], +Cell[54274, 1356, 470, 10, 27, "Print",ExpressionUUID->"f9462e25-5579-4036-bc53-3869b70dd1e6", + CellID->1078710549], +Cell[54747, 1368, 467, 10, 27, "Print",ExpressionUUID->"c35ce07f-1d5f-4c84-a888-ac36bf0a605d", + CellID->831249069], +Cell[55217, 1380, 467, 10, 27, "Print",ExpressionUUID->"8f0684f9-ee35-40c9-bda2-a740dcba5a18", + CellID->1421978948], +Cell[55687, 1392, 468, 10, 27, "Print",ExpressionUUID->"87e32844-557e-4b5f-a726-17660fa7703c", + CellID->2002155220], +Cell[56158, 1404, 468, 10, 27, "Print",ExpressionUUID->"e65e261d-3c14-4ebb-8b46-3e349a6121a5", + CellID->1301517697], +Cell[56629, 1416, 467, 10, 27, "Print",ExpressionUUID->"0b7a8e2b-81f5-40af-9e8d-dec817a59619", + CellID->339505137], +Cell[57099, 1428, 470, 10, 27, "Print",ExpressionUUID->"b0ac1d2f-7780-4be5-84d8-e319179fade2", + CellID->198787480], +Cell[57572, 1440, 466, 10, 27, "Print",ExpressionUUID->"fd308416-76f5-4dc1-b7c2-268da0ad0924", + CellID->1684105275], +Cell[58041, 1452, 469, 10, 27, "Print",ExpressionUUID->"fec86806-3cd6-4337-877f-9e6157974985", + CellID->922889465], +Cell[58513, 1464, 468, 10, 27, "Print",ExpressionUUID->"7be339a9-0ae6-4392-a246-f198822bbcba", + CellID->1876339621], +Cell[58984, 1476, 468, 10, 27, "Print",ExpressionUUID->"ee3a6320-2e40-4315-9666-08c0dab6176c", + CellID->1990137599], +Cell[59455, 1488, 468, 10, 27, "Print",ExpressionUUID->"b5fe3a5c-56df-4baf-b687-f51d015fe730", + CellID->1184824368], +Cell[59926, 1500, 468, 10, 27, "Print",ExpressionUUID->"ce8338ed-4ac7-42b2-9032-b3aca3f45952", + CellID->1874777992], +Cell[60397, 1512, 470, 10, 27, "Print",ExpressionUUID->"d5c2c908-785f-4024-ba01-5780c53a4c99", + CellID->1513642760], +Cell[60870, 1524, 468, 10, 27, "Print",ExpressionUUID->"1661333f-b28b-4baf-8667-da275636d37c", + CellID->702584958], +Cell[61341, 1536, 472, 10, 27, "Print",ExpressionUUID->"c96bc9d3-da2f-44d0-b36f-3543d91bce03", + CellID->1480297900], +Cell[61816, 1548, 469, 10, 27, "Print",ExpressionUUID->"a5d6bcf3-7fac-4ce5-8cfd-f90316ee0697", + CellID->768754805], +Cell[62288, 1560, 468, 10, 27, "Print",ExpressionUUID->"cc59fe9a-a71b-4465-85c5-d44766d5aafb", + CellID->1200387283], +Cell[62759, 1572, 468, 10, 27, "Print",ExpressionUUID->"10a19a70-3228-43ac-8601-afd6501513fe", + CellID->1447685463], +Cell[63230, 1584, 467, 10, 27, "Print",ExpressionUUID->"c480718c-d75a-4181-a19c-0dca1f4ff3bc", + CellID->259856131], +Cell[63700, 1596, 468, 10, 27, "Print",ExpressionUUID->"6d465938-eec0-4716-814f-90d1d9c5f96d", + CellID->1567739366], +Cell[64171, 1608, 471, 10, 27, "Print",ExpressionUUID->"86a9446d-2145-4998-8a42-77fe2ed419fe", + CellID->1518659319], +Cell[64645, 1620, 470, 10, 27, "Print",ExpressionUUID->"15a424a7-d44b-4f84-a968-f06a3f05cc9e", + CellID->1264029838], +Cell[65118, 1632, 470, 10, 27, "Print",ExpressionUUID->"c195e261-a63a-4a72-a6aa-95328577d659", + CellID->1641251142], +Cell[65591, 1644, 470, 10, 27, "Print",ExpressionUUID->"2f32aab0-a8d6-4b22-8ea4-2103a339fcfa", + CellID->80497879], +Cell[66064, 1656, 468, 10, 27, "Print",ExpressionUUID->"fd14e004-eebd-49eb-9bbe-ee0359645bb8", + CellID->13154743], +Cell[66535, 1668, 472, 10, 27, "Print",ExpressionUUID->"4eacb1f4-e6f4-4d6b-9d77-6f9729d080fc", + CellID->2048433607], +Cell[67010, 1680, 468, 10, 27, "Print",ExpressionUUID->"3021bb1c-b7a8-4bb0-9f2e-6439f25fa449", + CellID->1713287792], +Cell[67481, 1692, 470, 10, 27, "Print",ExpressionUUID->"1f28d0bb-1751-460f-af5c-c08d0390ed2f", + CellID->1767181168], +Cell[67954, 1704, 473, 10, 27, "Print",ExpressionUUID->"5aff4805-f284-44eb-a721-077df6e2ed98", + CellID->1315052566], +Cell[68430, 1716, 469, 10, 27, "Print",ExpressionUUID->"e4dfd459-6329-456b-9097-2b4345ad397e", + CellID->186781838], +Cell[68902, 1728, 472, 10, 27, "Print",ExpressionUUID->"df720014-1ba2-4934-a407-ce10b8f0599a", + CellID->1768742999], +Cell[69377, 1740, 470, 10, 27, "Print",ExpressionUUID->"9e7c379d-417b-4299-bfab-f94e4acdc7bb", + CellID->1794942419], +Cell[69850, 1752, 470, 10, 27, "Print",ExpressionUUID->"0cb84262-2300-4283-bf7f-97ab6c324b2f", + CellID->1894446724], +Cell[70323, 1764, 470, 10, 27, "Print",ExpressionUUID->"af3409bb-5eae-44c8-b413-c85b01da1042", + CellID->1373539846], +Cell[70796, 1776, 470, 10, 27, "Print",ExpressionUUID->"706968c2-5bfa-40fd-9f4f-5c223efcb16c", + CellID->1782470119], +Cell[71269, 1788, 469, 10, 27, "Print",ExpressionUUID->"0fc53502-1d35-4b82-b9e7-0d1cd525015a", + CellID->578414383], +Cell[71741, 1800, 471, 10, 27, "Print",ExpressionUUID->"9e94b4bb-ec63-48d1-8666-4e130a5130f0", + CellID->1899548759], +Cell[72215, 1812, 470, 10, 27, "Print",ExpressionUUID->"7019e134-e745-4ca9-82e6-582c2dd4edf8", + CellID->1224096211], +Cell[72688, 1824, 469, 10, 27, "Print",ExpressionUUID->"ef8b4df2-46b8-4cce-a36b-b6120ef47e57", + CellID->491680017], +Cell[73160, 1836, 467, 10, 27, "Print",ExpressionUUID->"09fbb9ea-54f8-4415-abaa-dbfee7dc9b30", + CellID->148972063], +Cell[73630, 1848, 470, 10, 27, "Print",ExpressionUUID->"d7f78574-71e8-4fdf-9ed5-07941cf6531c", + CellID->1955014086], +Cell[74103, 1860, 469, 10, 27, "Print",ExpressionUUID->"f3dc3a74-a30a-4ceb-aa35-e87070bd3140", + CellID->1421944302], +Cell[74575, 1872, 472, 10, 27, "Print",ExpressionUUID->"c092b187-edfc-48e4-8c5c-e9e14430fa80", + CellID->1419859898], +Cell[75050, 1884, 471, 10, 27, "Print",ExpressionUUID->"47a9e0a3-62e0-4c0f-9fb6-21e1bceba28c", + CellID->747020222], +Cell[75524, 1896, 469, 10, 27, "Print",ExpressionUUID->"cd61eed0-34ac-4784-9119-fb2c0fe6e876", + CellID->979470792], +Cell[75996, 1908, 470, 10, 27, "Print",ExpressionUUID->"0d04eefb-8bec-4602-ba8a-5005577b9b48", + CellID->1503446889], +Cell[76469, 1920, 470, 10, 27, "Print",ExpressionUUID->"18d80501-8196-4e9e-9e0c-c64cbf1c2172", + CellID->1139272821], +Cell[76942, 1932, 471, 10, 27, "Print",ExpressionUUID->"573e1a59-fc74-43b0-b57d-684101be896c", + CellID->794105895], +Cell[77416, 1944, 470, 10, 27, "Print",ExpressionUUID->"0b07e0a1-adde-40be-a22b-833c97738f2f", + CellID->2074394807], +Cell[77889, 1956, 470, 10, 27, "Print",ExpressionUUID->"4cee745f-dc2e-45f3-922d-d66d959256e3", + CellID->2103995851], +Cell[78362, 1968, 470, 10, 27, "Print",ExpressionUUID->"26638c32-3133-4308-bc2c-510e84bd9626", + CellID->1392536255], +Cell[78835, 1980, 472, 10, 27, "Print",ExpressionUUID->"4bf03229-6477-4003-b460-85cb1fbfe296", + CellID->1080052779], +Cell[79310, 1992, 470, 10, 27, "Print",ExpressionUUID->"741f8964-c91a-4fc2-8e35-01199f0f07dd", + CellID->1915272209], +Cell[79783, 2004, 470, 10, 27, "Print",ExpressionUUID->"cd18f9bf-3645-4461-b536-24914d23514e", + CellID->1347631780], +Cell[80256, 2016, 469, 10, 27, "Print",ExpressionUUID->"2d8b3749-d080-413c-939e-e1f544db48c2", + CellID->137301551], +Cell[80728, 2028, 473, 10, 27, "Print",ExpressionUUID->"84440e3a-269a-46af-b68f-74709da6b61a", + CellID->1229730779], +Cell[81204, 2040, 473, 10, 27, "Print",ExpressionUUID->"97934a78-796e-4f0a-8ca5-8dd5a106dc87", + CellID->702583925], +Cell[81680, 2052, 472, 10, 27, "Print",ExpressionUUID->"0687d3b4-6496-4d99-8d5f-ca5766149743", + CellID->1462936269], +Cell[82155, 2064, 472, 10, 27, "Print",ExpressionUUID->"658880df-694b-4903-bb5a-dce53d5c6735", + CellID->1029598580], +Cell[82630, 2076, 470, 10, 27, "Print",ExpressionUUID->"24dcdcdf-bd4d-4a5e-9229-764199a4bc31", + CellID->40106534], +Cell[83103, 2088, 470, 10, 27, "Print",ExpressionUUID->"36f21ff2-1f96-439d-b8a4-99f86e634812", + CellID->1908135427], +Cell[83576, 2100, 470, 10, 27, "Print",ExpressionUUID->"cd56f705-606a-4c97-afb7-f7da19575c13", + CellID->1658820938], +Cell[84049, 2112, 472, 10, 27, "Print",ExpressionUUID->"10b7ae3e-976f-4407-b796-ad1cb14ddf5e", + CellID->1170799612], +Cell[84524, 2124, 468, 10, 27, "Print",ExpressionUUID->"e0d6c493-393e-4afd-9129-c329b319cd64", + CellID->236421423], +Cell[84995, 2136, 469, 10, 27, "Print",ExpressionUUID->"746ebcf3-b070-4e6b-9e9d-345c20f2f453", + CellID->690109411], +Cell[85467, 2148, 470, 10, 27, "Print",ExpressionUUID->"df2f0220-3882-44c5-853b-f4a51384ff5b", + CellID->109693230], +Cell[85940, 2160, 470, 10, 27, "Print",ExpressionUUID->"5871a669-5745-446b-901b-53e3cf836592", + CellID->1073147484], +Cell[86413, 2172, 472, 10, 27, "Print",ExpressionUUID->"eee3743b-d813-4f5c-a5cb-b83a20700a82", + CellID->1822096082], +Cell[86888, 2184, 473, 10, 27, "Print",ExpressionUUID->"1a8cec97-5097-4086-b9ca-4a27a425d4a6", + CellID->852043954], +Cell[87364, 2196, 471, 10, 27, "Print",ExpressionUUID->"8ff98333-f48b-4061-b6a2-0d573efbad5f", + CellID->881776682], +Cell[87838, 2208, 471, 10, 27, "Print",ExpressionUUID->"1a0e03c5-a619-4c18-9e1c-43458ac04014", + CellID->236046427], +Cell[88312, 2220, 471, 10, 27, "Print",ExpressionUUID->"ea23abe0-4804-414b-8978-be662e92a4bc", + CellID->830002580], +Cell[88786, 2232, 470, 10, 27, "Print",ExpressionUUID->"10f561c5-b8d2-4e99-94b8-4a214526ee64", + CellID->1947074795], +Cell[89259, 2244, 472, 10, 27, "Print",ExpressionUUID->"567ad41d-c9f3-4933-af19-b8fc4c9d4d0b", + CellID->1130266579], +Cell[89734, 2256, 471, 10, 27, "Print",ExpressionUUID->"62df5fa6-4b54-4a29-8c29-5165818b194c", + CellID->1897535538], +Cell[90208, 2268, 472, 10, 27, "Print",ExpressionUUID->"aa67c2a4-16e8-43bb-91fe-7a21a764208f", + CellID->1747629216], +Cell[90683, 2280, 472, 10, 27, "Print",ExpressionUUID->"37e6f703-50c0-473e-9613-99a818b4e842", + CellID->1270393293], +Cell[91158, 2292, 474, 10, 27, "Print",ExpressionUUID->"663979b9-0a2e-454d-8ffd-1356fb7a10a7", + CellID->1217656977], +Cell[91635, 2304, 472, 10, 27, "Print",ExpressionUUID->"cff4dcea-9e2e-493e-8088-3b5d5f2c11e7", + CellID->1789140176], +Cell[92110, 2316, 472, 10, 27, "Print",ExpressionUUID->"8767e77f-79ef-49b0-956b-5717a0db2ab1", + CellID->1012912738], +Cell[92585, 2328, 469, 10, 27, "Print",ExpressionUUID->"db9544d5-e52e-4721-b0f7-4a43818d8be2", + CellID->921517797], +Cell[93057, 2340, 470, 10, 27, "Print",ExpressionUUID->"6245dc56-d755-405d-9798-7de7d3b7fecb", + CellID->297552015], +Cell[93530, 2352, 470, 10, 27, "Print",ExpressionUUID->"ce90ef0c-117c-4915-a315-a2c9e92576d9", + CellID->1614785889], +Cell[94003, 2364, 472, 10, 27, "Print",ExpressionUUID->"f508ea7d-d11e-46e3-b426-233f9ef43d75", + CellID->1955589284], +Cell[94478, 2376, 471, 10, 27, "Print",ExpressionUUID->"bc4aa8fa-cfda-49c0-9ea0-b2cd3ae68762", + CellID->351878853], +Cell[94952, 2388, 472, 10, 27, "Print",ExpressionUUID->"b234bbd7-d01b-491e-89da-62ed0908b486", + CellID->2005402180], +Cell[95427, 2400, 470, 10, 27, "Print",ExpressionUUID->"3420d64a-b099-4697-8e49-f8b105274bd2", + CellID->38599595], +Cell[95900, 2412, 471, 10, 27, "Print",ExpressionUUID->"efce6351-9027-4bff-bffa-28d56f07278b", + CellID->203331771], +Cell[96374, 2424, 472, 10, 27, "Print",ExpressionUUID->"f845ff4c-5c30-4bab-949c-f2674e007b60", + CellID->750592820], +Cell[96849, 2436, 471, 10, 27, "Print",ExpressionUUID->"ca76d0d3-8908-46a9-9e62-0409863d880e", + CellID->894583262], +Cell[97323, 2448, 470, 10, 27, "Print",ExpressionUUID->"ba0c06d7-bfce-43c7-b359-414ff2222a78", + CellID->727871787], +Cell[97796, 2460, 474, 10, 27, "Print",ExpressionUUID->"02faabd0-d9d0-4075-9f14-c9a125ab112d", + CellID->1274270797], +Cell[98273, 2472, 474, 10, 27, "Print",ExpressionUUID->"cb882724-a61e-4b83-8489-3440005b4c9e", + CellID->1962357295], +Cell[98750, 2484, 472, 10, 27, "Print",ExpressionUUID->"bcd1d10f-d9f2-4bec-b60c-25775a4a0442", + CellID->285206439], +Cell[99225, 2496, 471, 10, 27, "Print",ExpressionUUID->"fc312cf2-5c54-48a5-96bb-2520373f1ea2", + CellID->281120169], +Cell[99699, 2508, 473, 10, 27, "Print",ExpressionUUID->"c957c096-d79b-4a15-b1fb-e8eb2257dda3", + CellID->322656983], +Cell[100175, 2520, 471, 10, 27, "Print",ExpressionUUID->"b24a06d7-d0e6-47a2-937d-efbdd8794f30", + CellID->499704606], +Cell[100649, 2532, 471, 10, 27, "Print",ExpressionUUID->"6dda7855-d346-46a0-83f0-9b11a887c8f6", + CellID->1874253272], +Cell[101123, 2544, 475, 10, 27, "Print",ExpressionUUID->"cabd5fda-aec1-40df-8566-27304730b817", + CellID->1284608308], +Cell[101601, 2556, 472, 10, 27, "Print",ExpressionUUID->"bd0ce0de-bb61-4215-8fa3-df4e0a09f902", + CellID->1758729265], +Cell[102076, 2568, 471, 10, 27, "Print",ExpressionUUID->"0ac87086-75a4-4273-9bf2-b0eacd29b555", + CellID->997839547], +Cell[102550, 2580, 472, 10, 27, "Print",ExpressionUUID->"f00d8729-ebd9-4bf4-acb3-89d8593aa3c7", + CellID->989467006], +Cell[103025, 2592, 470, 10, 27, "Print",ExpressionUUID->"f8b65c0c-0493-47d4-9c3d-067a0d3d951b", + CellID->2006091121], +Cell[103498, 2604, 471, 10, 27, "Print",ExpressionUUID->"86348e69-c285-4b1c-8c39-8d3bee760bd2", + CellID->880212747], +Cell[103972, 2616, 472, 10, 27, "Print",ExpressionUUID->"45104968-d2fe-4191-b8f7-5347f2d3641a", + CellID->1868278293], +Cell[104447, 2628, 472, 10, 27, "Print",ExpressionUUID->"a8412bc9-ef53-402c-bfa0-92ec3badf18a", + CellID->1794867664], +Cell[104922, 2640, 470, 10, 27, "Print",ExpressionUUID->"256c2fff-6f6a-409f-8936-aed651f066b1", + CellID->638039439] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[105453, 2657, 419, 6, 58, "MathCaption",ExpressionUUID->"139e2491-65a5-468e-b855-43c48c7cbcff", + CellID->1092717571], +Cell[CellGroupData[{ +Cell[105897, 2667, 253, 5, 33, "Input",ExpressionUUID->"2db6e953-1032-4fdc-a0f9-6f59a66f018d", + CellID->620046824], +Cell[106153, 2674, 319, 5, 32, "Output",ExpressionUUID->"0a432737-95af-4ad7-8e20-984683654565", + CellID->1143001802] +}, Open ]], +Cell[CellGroupData[{ +Cell[106509, 2684, 358, 9, 33, "Input",ExpressionUUID->"c01f607d-b76e-440a-88f4-b3096fe5831b", + CellID->1791726223], +Cell[106870, 2695, 2022, 40, 506, "Output",ExpressionUUID->"97296091-d4dc-4667-bea7-5fdfae316f43", + CellID->1190063799] +}, Open ]], +Cell[CellGroupData[{ +Cell[108929, 2740, 897, 22, 106, "Input",ExpressionUUID->"c43f7e98-d725-44fa-9481-eb6221156e4c", + CellID->842357200], +Cell[109829, 2764, 9647, 228, 398, "Output",ExpressionUUID->"3f415332-fc88-4639-8061-1ab1fbd12992", + CellID->12858048] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[119525, 2998, 821, 17, 60, "MathCaption",ExpressionUUID->"12798ad0-502a-4be4-ac15-81b5b8332ffa", + CellID->1517931683], +Cell[120349, 3017, 564, 13, 33, "Input",ExpressionUUID->"bf3a6f62-1fec-4ba1-98f3-abfbde3a6ef6", + CellID->1779883919], +Cell[CellGroupData[{ +Cell[120938, 3034, 1866, 41, 234, "Input",ExpressionUUID->"53d50c10-f4e8-4590-bc36-af7236c11960", + CellID->2107145134], +Cell[122807, 3077, 35263, 786, 404, "Output",ExpressionUUID->"25052509-207c-4031-9428-79cff6e2a02f", + CellID->1356848036] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[158119, 3869, 455, 6, 58, "MathCaption",ExpressionUUID->"868e3e89-0e8f-41a2-a01f-71b29fda6ecf", + CellID->465649956], +Cell[CellGroupData[{ +Cell[158599, 3879, 352, 9, 33, "Input",ExpressionUUID->"b8f5314b-0770-40a1-9c43-6b72bbb52695", + CellID->1240973681], +Cell[158954, 3890, 316, 5, 32, "Output",ExpressionUUID->"43ea00f6-b701-47df-be7a-95b178f2b883", + CellID->416093559] +}, Open ]] +}, Open ]], +Cell[159297, 3899, 612, 11, 36, "Text",ExpressionUUID->"eab2632b-b640-4fe2-b457-90756b42aa9f", + CellID->151398904], +Cell[CellGroupData[{ +Cell[159934, 3914, 381, 5, 53, "Subsection",ExpressionUUID->"7fea6b7b-71b7-4da2-a121-8bbc53ee04b9", + CellID->1700483889], +Cell[CellGroupData[{ +Cell[160340, 3923, 216, 2, 54, "Subsubsection",ExpressionUUID->"6d4ce05e-6f96-49ae-923a-2481029c7820", + CellID->2036569527], +Cell[160559, 3927, 1816, 52, 73, "Text",ExpressionUUID->"0637fab5-1bc7-4e97-ae11-0580c3f0340c", + CellID->465449090], +Cell[162378, 3981, 1606, 27, 112, "DefinitionBox",ExpressionUUID->"74204d4f-2786-432b-941e-820011263099", + CellID->1667413256], +Cell[CellGroupData[{ +Cell[164009, 4012, 474, 6, 47, "MathCaption",ExpressionUUID->"0725a208-4322-4914-81a6-169d9b2c1698", + CellID->1597588263], +Cell[164486, 4020, 2814, 71, 178, "Input",ExpressionUUID->"3079d8b3-612e-49f9-9879-4466f07140bd", + CellID->823715139] +}, Open ]], +Cell[CellGroupData[{ +Cell[167337, 4096, 674, 10, 52, "MathCaption",ExpressionUUID->"5ad99a3b-6f3a-432b-865d-ec02f12f09d4", + CellID->2122196974], +Cell[CellGroupData[{ +Cell[168036, 4110, 1118, 32, 106, "Input",ExpressionUUID->"ae9a9647-490e-4612-94a2-22b989f2610e", + CellID->1203144656], +Cell[169157, 4144, 1016, 28, 126, "Output",ExpressionUUID->"2fe7573b-de6c-44e8-8dda-bd81f95616d4", + CellID->1077691481] +}, Open ]], +Cell[CellGroupData[{ +Cell[170210, 4177, 1503, 37, 154, "Input",ExpressionUUID->"4c98904a-32da-4cd8-8c0c-e6257a7069a7", + CellID->1918375563], +Cell[171716, 4216, 30819, 676, 326, "Output",ExpressionUUID->"40d9e76c-0cfe-48a5-be2b-607bc77e16b6", + CellID->883642369] +}, Open ]] +}, Open ]], +Cell[202562, 4896, 1560, 33, 126, "MathCaption",ExpressionUUID->"829806ae-78c1-4c60-8bce-37ae8d86980b", + CellID->414955284], +Cell[CellGroupData[{ +Cell[204147, 4933, 524, 7, 47, "MathCaption",ExpressionUUID->"2ef8ee06-d6ef-4d24-bcbb-7a1f2a8081f7", + CellID->1591856392], +Cell[204674, 4942, 707, 17, 82, "Input",ExpressionUUID->"a6c184a8-ed85-4879-88a4-87616e772855", + CellID->883923269] +}, Open ]], +Cell[CellGroupData[{ +Cell[205418, 4964, 635, 9, 36, "Text",ExpressionUUID->"d555c8d9-c14c-488d-b483-f69ad63b75f8", + CellID->232346910], +Cell[CellGroupData[{ +Cell[206078, 4977, 674, 14, 106, "Input",ExpressionUUID->"25028a0b-9bed-439c-8a14-073316802db6", + CellID->174421853], +Cell[206755, 4993, 269, 4, 32, "Output",ExpressionUUID->"c2b54a25-f1dc-4394-b8d6-78b5bbf225ac", + CellID->1527876778] +}, Open ]], +Cell[207039, 5000, 2532, 63, 274, "Input",ExpressionUUID->"2a1edb63-23f4-4798-a22b-dd94ea699964", + CellID->1232996958], +Cell[209574, 5065, 2554, 64, 274, "Input",ExpressionUUID->"77b3b1c9-4a20-4212-a65d-d8090f87a511", + CellID->1623592428], +Cell[212131, 5131, 2553, 64, 274, "Input",ExpressionUUID->"c5bbfa7a-f43f-4345-b5e4-60ef8cc9347b", + CellID->1425941378], +Cell[CellGroupData[{ +Cell[214709, 5199, 234, 3, 82, "Input",ExpressionUUID->"a1870c26-b9b9-4321-9de8-de384950dc83", + CellID->700226141], +Cell[214946, 5204, 512, 12, 63, "Output",ExpressionUUID->"98347940-059e-49a2-96f2-eb633b642e12", + CellID->1563040667], +Cell[215461, 5218, 512, 12, 36, "Output",ExpressionUUID->"74357f2b-ec6f-4e82-a6db-4f7553d7561f", + CellID->2004520165], +Cell[215976, 5232, 513, 12, 36, "Output",ExpressionUUID->"d771c000-9a5c-4a67-96b5-845d716a8881", + CellID->246959019] +}, Open ]], +Cell[CellGroupData[{ +Cell[216526, 5249, 615, 16, 58, "Input",ExpressionUUID->"3097699c-2475-4b81-9a0f-d51b9719b2f1", + CellID->858115887], +Cell[217144, 5267, 381, 6, 32, "Output",ExpressionUUID->"65cc1e94-58c0-46a3-abf3-476874773899", + CellID->1701826329] +}, Open ]], +Cell[CellGroupData[{ +Cell[217562, 5278, 663, 18, 88, "Input",ExpressionUUID->"b6612a9e-638c-4149-95a1-0177db6973ce", + CellID->1385363458], +Cell[218228, 5298, 313, 5, 32, "Output",ExpressionUUID->"1205168d-3bb1-4794-a01a-0bec0e12fbf2", + CellID->260417110] +}, Open ]], +Cell[CellGroupData[{ +Cell[218578, 5308, 300, 6, 58, "Input",ExpressionUUID->"1d833fb0-cbdf-4a93-a4da-7b1f8534cc4a", + CellID->1083170362], +Cell[218881, 5316, 387, 6, 32, "Output",ExpressionUUID->"5fa993b4-7d24-4117-88ef-f0984fb310f3", + CellID->258695184], +Cell[219271, 5324, 389, 6, 32, "Output",ExpressionUUID->"236c38df-d244-4ce3-9884-a9f7737944bb", + CellID->1383055960] +}, Open ]] +}, Open ]], +Cell[219687, 5334, 544, 9, 36, "Text",ExpressionUUID->"5efd6169-4a37-4b01-a709-b575425e8ebb", + CellID->2000429178] +}, Open ]], +Cell[CellGroupData[{ +Cell[220268, 5348, 837, 18, 127, "Subsubsection",ExpressionUUID->"c4a00f04-f16c-4711-bc99-f1291c424e31", + CellID->1697309843], +Cell[CellGroupData[{ +Cell[221130, 5370, 2931, 69, 229, "MathCaption",ExpressionUUID->"67d77d29-4b8d-42af-a62e-7975b75684f8", + CellID->1326761549], +Cell[224064, 5441, 2886, 78, 239, "Input",ExpressionUUID->"8dc59c2e-e9bd-4ff5-b5a6-e1d75252e8a8", + CellID->1222286968], +Cell[CellGroupData[{ +Cell[226975, 5523, 308, 6, 33, "Input",ExpressionUUID->"c552b903-ccdd-491c-b72e-084a26ed4405", + CellID->673545036], +Cell[227286, 5531, 345, 5, 32, "Output",ExpressionUUID->"78562372-d16a-479a-8e2d-ab8f1ca3273d", + CellID->658524592] +}, Open ]], +Cell[CellGroupData[{ +Cell[227668, 5541, 697, 17, 130, "Input",ExpressionUUID->"092388a1-fe8d-4ed5-b641-77f1f3a1f2e6", + CellID->1387797505], +Cell[228368, 5560, 464, 7, 32, "Output",ExpressionUUID->"15d1886a-a97c-4679-8a7c-47e4a822cc3e", + CellID->1839584753] +}, Open ]], +Cell[228847, 5570, 283, 6, 33, "Input",ExpressionUUID->"398ae5c2-6f68-4f09-983d-fb793cb27ee3", + CellID->581035060], +Cell[CellGroupData[{ +Cell[229155, 5580, 1245, 35, 58, "Input",ExpressionUUID->"1751262a-4a2c-4292-b501-e63c2e02cc5f", + CellID->1749452550], +Cell[230403, 5617, 5298, 173, 245, "Output",ExpressionUUID->"7970dfa6-d5b1-47cd-af2e-11a0ba9056ed", + CellID->1806801848] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[235750, 5796, 659, 18, 54, "MathCaption",ExpressionUUID->"f19e3de3-7d40-499c-94ad-617f979c13ff", + CellID->785446671], +Cell[236412, 5816, 834, 27, 178, "Input",ExpressionUUID->"73902b36-5cdf-46e3-8344-d54c794493e1", + CellID->1869573878] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[237295, 5849, 356, 8, 56, "Subsubsection",ExpressionUUID->"caa0184c-842d-40c8-adbd-d3c739a4bc4a", + CellID->852509315], +Cell[237654, 5859, 9242, 270, 359, "Input",ExpressionUUID->"016d0242-f459-4255-a02e-87eee1d98a61", + CellID->113164421] +}, Closed]], +Cell[CellGroupData[{ +Cell[246933, 6134, 359, 8, 51, "Subsubsection",ExpressionUUID->"02cd4521-ecef-4d60-b6bf-d24fd1e2b1cd", + CellID->1698056947], +Cell[247295, 6144, 32254, 847, 913, "Input",ExpressionUUID->"fa2c53eb-57e9-45cb-ad18-50afa5ba4c5b", + CellID->1332923246] +}, Closed]], +Cell[CellGroupData[{ +Cell[279586, 6996, 407, 9, 51, "Subsubsection",ExpressionUUID->"48bca989-4fea-43cc-bcb6-604ca1b2042a", + CellID->1621520952], +Cell[279996, 7007, 51814, 1260, 3299, "Input",ExpressionUUID->"d61db50c-93cc-4898-b968-fb2ef65af017", + CellID->1335159834] +}, Closed]], +Cell[CellGroupData[{ +Cell[331847, 8272, 492, 10, 49, "Subsubsection",ExpressionUUID->"bd465dd1-f2a0-4574-b065-033bc2e8bb8a", + CellID->1072109088], +Cell[CellGroupData[{ +Cell[332364, 8286, 266, 5, 33, "Input",ExpressionUUID->"3126df88-c696-43e7-85f4-fa549149eefe", + CellID->2038143478], +Cell[332633, 8293, 221, 4, 32, "Output",ExpressionUUID->"db0843ee-f6fd-4ccb-9c6f-2836e3fa0c5f", + CellID->2103837016] +}, Open ]], +Cell[332869, 8300, 5881, 136, 370, "Input",ExpressionUUID->"7a2cd097-7148-4a09-8e52-d5e88111e726", + CellID->1173884636], +Cell[CellGroupData[{ +Cell[338775, 8440, 1432, 32, 154, "Input",ExpressionUUID->"fa985f54-5805-4f13-a578-5219dd32fac4", + CellID->1715100115], +Cell[340210, 8474, 968, 15, 32, "Output",ExpressionUUID->"059204be-2c3f-4a06-9392-1465131554c0", + CellID->870480057], +Cell[341181, 8491, 969, 15, 32, "Output",ExpressionUUID->"72f253ca-d5e9-48b7-9161-a3d11803f6a4", + CellID->1499714635], +Cell[342153, 8508, 947, 14, 32, "Output",ExpressionUUID->"3aed619e-9e30-40f5-a3a5-b4dbfb4f5243", + CellID->688305606], +Cell[343103, 8524, 926, 14, 32, "Output",ExpressionUUID->"6b9dcd6e-6217-4d8c-84f6-25a862748b8a", + CellID->2005397300], +Cell[344032, 8540, 931, 14, 32, "Output",ExpressionUUID->"733c07a7-0a90-4de1-a1c4-66846dda28f5", + CellID->2104065082], +Cell[344966, 8556, 930, 14, 32, "Output",ExpressionUUID->"a4c834a1-d6da-470c-84dd-dbca8aa0b352", + CellID->408618025] +}, Open ]], +Cell[345911, 8573, 1364, 38, 119, "Input",ExpressionUUID->"877df8dd-3169-4d18-bf34-781d44e28d3e", + CellID->436923609], +Cell[CellGroupData[{ +Cell[347300, 8615, 956, 27, 130, "Input",ExpressionUUID->"616a2dac-ca37-44fd-be05-ab514cd1a873", + CellID->758194269], +Cell[348259, 8644, 379, 5, 32, "Output",ExpressionUUID->"2a807486-b0f6-4a3e-9505-0921dd2ce2f9", + CellID->2137926716] +}, Open ]], +Cell[CellGroupData[{ +Cell[348675, 8654, 456, 8, 106, "Input",ExpressionUUID->"195ef415-5ab8-4a22-aaeb-2294ce332448", + CellID->1844172899], +Cell[349134, 8664, 270, 4, 32, "Output",ExpressionUUID->"44a44a61-dad1-45b1-ba69-833180913aab", + CellID->1921592382], +Cell[349407, 8670, 269, 4, 32, "Output",ExpressionUUID->"238e32fe-d3a2-4b73-bdaf-b14b7ebb738f", + CellID->196597041], +Cell[349679, 8676, 328, 5, 32, "Output",ExpressionUUID->"5f62c149-0e69-4d82-b3a8-4f2c59481991", + CellID->1376619001], +Cell[350010, 8683, 370, 6, 32, "Output",ExpressionUUID->"ff327965-2d9c-42ee-aec7-7fe3bc23aa9a", + CellID->1994220676] +}, Open ]], +Cell[CellGroupData[{ +Cell[350417, 8694, 227, 4, 31, "Text",ExpressionUUID->"beefb52a-433c-4b9f-92c8-f86b8957f994", + CellID->1473839670], +Cell[350647, 8700, 2730, 66, 274, "Input",ExpressionUUID->"4a29a608-8165-46dd-98e0-b7d7d36c521a", + CellID->2136118533], +Cell[353380, 8768, 2600, 64, 274, "Input",ExpressionUUID->"c07b0580-4c01-4b52-b834-509fc9729e81", + CellID->112573585], +Cell[355983, 8834, 2598, 64, 274, "Input",ExpressionUUID->"bf8e8700-5c79-4d1e-be61-82de8878776f", + CellID->91150088], +Cell[CellGroupData[{ +Cell[358606, 8902, 301, 4, 82, "Input",ExpressionUUID->"32b2df71-0c8f-4d8a-ab09-c8094b598445", + CellID->803688705], +Cell[358910, 8908, 344, 9, 36, "Output",ExpressionUUID->"558dabeb-31d3-47b1-8e4f-ea163a0cc658", + CellID->1947505256], +Cell[359257, 8919, 346, 9, 36, "Output",ExpressionUUID->"8950bf9b-5d76-46ce-885a-5bebb275c573", + CellID->1922573665], +Cell[359606, 8930, 344, 9, 36, "Output",ExpressionUUID->"8700f2aa-4bf2-4add-99e2-02160f402c73", + CellID->1656634893] +}, Open ]], +Cell[CellGroupData[{ +Cell[359987, 8944, 677, 15, 58, "Input",ExpressionUUID->"dc2c0949-98fb-4919-84cd-9bfb6f723868", + CellID->2071408952], +Cell[360667, 8961, 325, 6, 32, "Output",ExpressionUUID->"57df09a1-0059-4658-9673-2db1a605080f", + CellID->1340985998] +}, Open ]], +Cell[CellGroupData[{ +Cell[361029, 8972, 763, 20, 88, "Input",ExpressionUUID->"587a78de-7882-4c27-91f6-9c560c9c9e02", + CellID->1312854747], +Cell[361795, 8994, 314, 5, 32, "Output",ExpressionUUID->"90f2ce46-eb96-4d3e-a1b6-a023cc70aeb8", + CellID->161244616] +}, Open ]], +Cell[CellGroupData[{ +Cell[362146, 9004, 400, 8, 58, "Input",ExpressionUUID->"18159337-26ed-45d1-ba14-01a47215dbcc", + CellID->1902743551], +Cell[362549, 9014, 351, 6, 32, "Output",ExpressionUUID->"cece521c-5feb-46ed-964f-3d9bfae71664", + CellID->53460338], +Cell[362903, 9022, 350, 6, 32, "Output",ExpressionUUID->"1a56e11e-ad27-488f-a021-27952435c1b6", + CellID->859736320] +}, Open ]] +}, Open ]], +Cell[363280, 9032, 422, 7, 36, "Text",ExpressionUUID->"505565f0-b6b2-4555-9210-f8b60d8d5683", + CellID->834606419] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[363763, 9046, 192, 2, 93, "TutorialMoreAboutSection",ExpressionUUID->"d354a74e-5b6a-45b4-b11a-252169f753c7", + CellID->1307064998], +Cell[363958, 9050, 180, 2, 30, "TutorialMoreAbout",ExpressionUUID->"3eb49d52-9e6e-464e-bf7f-db9d8a467f50", + CellID->1231196223] +}, Open ]], +Cell[CellGroupData[{ +Cell[364175, 9057, 129, 1, 93, "RelatedTutorialsSection",ExpressionUUID->"634e9c5d-a729-44c9-b281-6373aa7f0eb3", + CellID->1709981116], +Cell[364307, 9060, 108, 1, 30, "RelatedTutorials",ExpressionUUID->"5ed1aee6-7630-42f1-abad-33c98be382bb", + CellID->2026452458] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[364464, 9067, 111, 1, 90, "MetadataSection",ExpressionUUID->"cfbd3714-e87f-4e4b-a096-0e45c3b02b3d", + CellID->1643303833], +Cell[364578, 9070, 476, 12, 33, "History",ExpressionUUID->"fc1bea16-3a30-455a-a73a-a7df40754cae", + CellID->220337164], +Cell[CellGroupData[{ +Cell[365079, 9086, 122, 1, 27, "CategorizationSection",ExpressionUUID->"ce287e74-ddd4-4f1a-bc07-26c8c1ae9b4f", + CellID->944907920], +Cell[365204, 9089, 137, 2, 44, "Categorization",ExpressionUUID->"f4d2bb91-b357-447c-8f82-cd98e7258500", + CellID->425841875], +Cell[365344, 9093, 144, 2, 44, "Categorization",ExpressionUUID->"be541932-5bb9-4e39-9891-bfc37118c361", + CellID->1708881321], +Cell[365491, 9097, 124, 2, 44, "Categorization",ExpressionUUID->"a56e3805-8311-47da-a638-ec7ba6265e3b", + CellID->722067069], +Cell[365618, 9101, 168, 2, 44, "Categorization",ExpressionUUID->"4694fe36-d6f7-4864-aef2-5c9c541d9266", + CellID->351139486] +}, Open ]], +Cell[CellGroupData[{ +Cell[365823, 9108, 110, 1, 39, "KeywordsSection",ExpressionUUID->"913a5901-64ed-44c8-903e-029017fad039", + CellID->316279246], +Cell[365936, 9111, 99, 1, 26, "Keywords",ExpressionUUID->"6ba3ee4b-02f9-49ee-92e5-ba943d588040", + CellID->683261197] +}, Open ]] +}, Open ]] +} +] +*) +