Homec4science
Diffusion COSOlver (master) Browse

cosolver/Mathematica_scripts/moment_original_sugama/moment_original_sugama.nb
3f13b55e6039master

Last Change
Raw File

moment_original_sugama.nb
View Options

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 250213, 5669]
NotebookOptionsPosition[ 227995, 5374]
NotebookOutlinePosition[ 228418, 5391]
CellTagsIndexPosition[ 228375, 5388]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Hermite-Laguerre moments of Orignial Sugama operator", "Title",
CellChangeTimes->{{3.8487324384498053`*^9,
3.848732454179818*^9}},ExpressionUUID->"5800cf84-acac-472c-b324-\
10efb672be7e"],
Cell[CellGroupData[{
Cell["Physical Parameters", "Chapter",
CellChangeTimes->{{3.848371920870713*^9,
3.8483719245517535`*^9}},ExpressionUUID->"e30dabb3-59c3-4a63-adeb-\
be33efc378de"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Chi]", " ", "=", " ",
RowBox[{"Sqrt", "[",
FractionBox["\[Tau]", "\[Sigma]"], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["\[Tau]", "ab"], "=",
FractionBox[
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}], "4"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["\[Theta]", "ab"], "=",
RowBox[{"Sqrt", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}],
RowBox[{"1", "+",
RowBox[{"\[Sigma]", "/", "\[Tau]"}]}]], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["\[Theta]", "ba"], "=",
RowBox[{"Sqrt", "[",
FractionBox[
RowBox[{"1", "+",
RowBox[{"1", "/", "\[Sigma]"}]}],
RowBox[{"1", "+",
RowBox[{"\[Tau]", "/", "\[Sigma]"}]}]], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["\[Gamma]", "ab"], "=",
RowBox[{
FractionBox[
RowBox[{"-", "4"}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
FractionBox["\[Chi]",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]],
RowBox[{"(",
RowBox[{"\[Tau]", " ", "+", " ",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["\[Eta]", "ab"], "=",
RowBox[{
FractionBox[
RowBox[{"-", "4"}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
FractionBox[
RowBox[{"3", "\[Chi]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
RowBox[{"5", "/", "2"}]]],
RowBox[{"(",
RowBox[{"\[Tau]", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.848371937949581*^9, 3.848371939984446*^9}, {
3.848371983238633*^9, 3.8483720781986837`*^9}, {3.848373751584168*^9,
3.848374008888506*^9}, {3.848375408421199*^9, 3.8483754201497173`*^9}, {
3.8483755593285203`*^9, 3.8483755669958997`*^9}, {3.8483939799486604`*^9,
3.8483940063698263`*^9}, {3.8483952585188985`*^9, 3.8483953950315204`*^9}, {
3.8483954266404514`*^9, 3.8483955220287037`*^9}, {3.848395566207448*^9,
3.8483955687359314`*^9}, {3.848398348649486*^9, 3.8483983502509875`*^9}, {
3.848400571598319*^9, 3.848400587424063*^9}, {3.848457200465397*^9,
3.8484572798685956`*^9}, {3.848468318504287*^9, 3.8484683311934986`*^9}, {
3.848468423553418*^9, 3.84846842565644*^9}, {3.848477399829443*^9,
3.848477403765498*^9}, {3.848477743734198*^9, 3.8484777457782946`*^9}, {
3.8487379897175984`*^9, 3.84873805884169*^9}},
CellLabel->
"In[1447]:=",ExpressionUUID->"a3af7e09-643e-4320-b439-230186301da0"]
}, Open ]],
Cell[CellGroupData[{
Cell["Speed integrated Error functions", "Chapter",
CellChangeTimes->{
3.8483721006653337`*^9},ExpressionUUID->"c72fc43e-1dde-4440-8b27-\
42cdbb1999e2"],
Cell[BoxData[{
RowBox[{
SubscriptBox["e",
RowBox[{"ab", ",", "k_"}]], ":=", " ",
FractionBox[
RowBox[{"Factorial", "[",
RowBox[{"k", "-",
RowBox[{"1", "/", "2"}]}], "]"}],
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], "]"}], "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", " ", "+", " ",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
RowBox[{"k", "+",
RowBox[{"1", "/", "2"}]}]]}]]}], "\[IndentingNewLine]",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",", "k_"}]], ":=", " ",
RowBox[{
FractionBox["\[Chi]", "2"], "*",
RowBox[{
SubsuperscriptBox["\[Sum]",
RowBox[{"j", "=", "0"}], "k"],
RowBox[{
FractionBox[
RowBox[{"Factorial", "[", "k", "]"}],
RowBox[{"Factorial", "[", "j", "]"}]], "*",
SubscriptBox["e",
RowBox[{"ab", ",", "j"}]]}]}]}]}]}], "Input",
CellChangeTimes->{3.848372114722021*^9},
CellLabel->
"In[1453]:=",ExpressionUUID->"483fbb2b-c5e2-4ba1-ab4d-075fff7d6dda"],
Cell[BoxData[{
RowBox[{
SubscriptBox["e",
RowBox[{"ba", ",", "k_"}]], ":=", " ",
FractionBox[
RowBox[{"Factorial", "[",
RowBox[{"k", "-",
RowBox[{"1", "/", "2"}]}], "]"}],
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], "]"}], "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", " ", "+", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "/", "\[Chi]"}], ")"}], "2"]}], ")"}],
RowBox[{"k", "+",
RowBox[{"1", "/", "2"}]}]]}]]}], "\[IndentingNewLine]",
RowBox[{
SubscriptBox["E",
RowBox[{"ba", ",", "k_"}]], ":=", " ",
RowBox[{
FractionBox["1",
RowBox[{"2", "\[Chi]"}]], "*",
RowBox[{
SubsuperscriptBox["\[Sum]",
RowBox[{"j", "=", "0"}], "k"],
RowBox[{
FractionBox[
RowBox[{"Factorial", "[", "k", "]"}],
RowBox[{"Factorial", "[", "j", "]"}]], "*",
SubscriptBox["e",
RowBox[{"ba", ",", "j"}]]}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483876554768567`*^9, 3.848387681833247*^9}},
CellLabel->
"In[1455]:=",ExpressionUUID->"fe84cacf-779e-4e68-91cf-d8b23b975b90"]
}, Open ]],
Cell[CellGroupData[{
Cell["Spherical harmonic norm coeff", "Chapter",
CellChangeTimes->{{3.8483721397909265`*^9, 3.8483721415883875`*^9}, {
3.8483933722638645`*^9,
3.848393373063397*^9}},ExpressionUUID->"cfab7e40-e161-48dd-807c-\
973fec982437"],
Cell[BoxData[{
RowBox[{
RowBox[{"sigmapj", "[",
RowBox[{"p_", ",", "j_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"p", "!"}], " ",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"p", " ", "+", " ", "j", " ", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}],
RowBox[{
SuperscriptBox["2", "p"],
RowBox[{
RowBox[{"(",
RowBox[{"p", " ", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}], " ",
RowBox[{"j", "!"}]}]]}]}], "\[IndentingNewLine]",
RowBox[{
SubscriptBox["c", "j_"], ":=", " ",
FractionBox[
RowBox[{"3", " ",
RowBox[{"2", "^", "j"}], " ",
RowBox[{"j", "!"}]}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "j"}], "+", "3"}], ")"}], "!!"}]]}]}], "Input",
CellChangeTimes->{{3.848372170327216*^9, 3.848372217709657*^9}, {
3.848372275008005*^9, 3.8483723055092964`*^9}, {3.8483723655734053`*^9,
3.8483724821714754`*^9}, {3.848372777787588*^9, 3.8483728022994685`*^9}, {
3.848372852921106*^9, 3.8483728930210915`*^9}, {3.848735033035611*^9,
3.8487350350554867`*^9}, {3.848735065746183*^9, 3.848735065834567*^9}},
CellLabel->
"In[1457]:=",ExpressionUUID->"e260805b-c992-4ca3-a600-b8216818242f"]
}, Open ]],
Cell[CellGroupData[{
Cell["Laguerre coefficient", "Chapter",
CellChangeTimes->{
3.84837291085044*^9},ExpressionUUID->"f382388f-6dfa-45be-b7e1-92c10260e2ae"],
Cell[BoxData[
RowBox[{
SubscriptBox["L",
RowBox[{"p_", ",", "j_", ",", "l_", " "}]], ":=", " ",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "l"],
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{"p", " ", "+", " ", "j", " ", "+", " ",
RowBox[{"1", "/", "2"}]}], "]"}], "/",
RowBox[{"Factorial", "[",
RowBox[{"j", "-", "l"}], "]"}]}], "/",
RowBox[{"Factorial", "[",
RowBox[{"l", "+", "p", " ", "+",
RowBox[{"1", "/", "2"}]}], "]"}]}], "/",
RowBox[{"Factorial", "[", "l", "]"}]}]}]}]], "Input",
CellLabel->
"In[1459]:=",ExpressionUUID->"c0162d20-cfac-450e-8df6-def9a46736fd"]
}, Open ]],
Cell[CellGroupData[{
Cell["Basis Transformation Coefficient : T_ {lk}^{pj}", "Chapter",
CellChangeTimes->{{3.8483729270774865`*^9,
3.848372938153451*^9}},ExpressionUUID->"1b058fde-0e35-403a-87b3-\
3a12ba8c0231"],
Cell[BoxData[{
RowBox[{
RowBox[{"T", "[",
RowBox[{"l_", ",", "k_", ",", "p_", ",", "j_"}], "]"}], ":=",
RowBox[{"Assuming", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"l", ",", "k", ",", "p", ",", "j"}], "}"}], "\[Element]",
"Reals"}], ",",
RowBox[{"Sum", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Binomial", "[",
RowBox[{
RowBox[{
RowBox[{"2", "l"}], "-",
RowBox[{"2", "i"}]}], ",", "l"}], "]"}], "*",
RowBox[{"Binomial", "[",
RowBox[{"l", ",", "i"}], "]"}], "*",
RowBox[{"Binomial", "[",
RowBox[{
RowBox[{"m", "+", "i"}], ",", "r"}], "]"}], "*",
RowBox[{"Binomial", "[",
RowBox[{
RowBox[{"m", "+", "i", "-", "r"}], ",",
RowBox[{"m", "+", "i", "-", "r", "-", "j"}]}], "]"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"i", "+", "m", "+", "j"}], ")"}]}], "*",
RowBox[{"Factorial", "[",
RowBox[{"l", "+", "k", "+",
RowBox[{"1", "/", "2"}]}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "^", "l"}], "*",
RowBox[{"Factorial", "[",
RowBox[{"k", "-", "m"}], "]"}], "*",
RowBox[{"Factorial", "[",
RowBox[{"l", "+", "m", "+",
RowBox[{"1", "/", "2"}]}], "]"}], "*",
RowBox[{"Factorial", "[", "m", "]"}]}], ")"}]}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{"l", "-",
RowBox[{"2", "i"}], "+",
RowBox[{"2", "r"}]}], "]"}], "/",
RowBox[{"2", "^",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"2", "i"}], "+",
RowBox[{"2", "r"}]}], ")"}]}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"Mod", "[",
RowBox[{
RowBox[{"l", "-", "p"}], ",", "2"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"l", "-", "p"}], ")"}], "/", "2"}], "-", "i", "+",
"r"}], "]"}], "*",
RowBox[{"Factorial", "[", "p", "]"}]}], ")"}]}], "*",
RowBox[{"Factorial", "[",
RowBox[{"m", "+", "i", "-", "r"}], "]"}]}], "\[IndentingNewLine]",
",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}], "}"}], "\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"m", ",", "0", ",", "k"}], "}"}], "\n", ",",
RowBox[{"{",
RowBox[{"r", ",", "0", ",",
RowBox[{"m", "+", "i"}]}], "}"}]}], "]"}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Tinv", "[",
RowBox[{"p_", ",", "j_", ",", "l_", ",", "k_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"T", "[",
RowBox[{"p", ",", "j", ",", "l", ",", "k"}], "]"}], " ",
SqrtBox[
RowBox[{"\[Pi]", " "}]],
SuperscriptBox["2",
RowBox[{"l", " "}]],
RowBox[{"l", "!"}], " ",
RowBox[{"j", "!"}], " ",
FractionBox[
RowBox[{"(",
RowBox[{"p", " ", "+",
RowBox[{"1", "/", "2"}]}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"p", " ", "+", " ", "j", " ", "+", " ",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}],
" "}]]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"Tinv", "[",
RowBox[{"l_", ",", "k_", ",", "p_", ",", "j_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"T", "[",
RowBox[{"p", ",", "j", ",", "l", ",", "k"}], "]"}], " ",
SqrtBox[
RowBox[{"\[Pi]", " "}]],
SuperscriptBox["2",
RowBox[{"p", " "}]],
RowBox[{"p", "!"}], " ",
RowBox[{"k", "!"}], " ",
FractionBox[
RowBox[{"(",
RowBox[{"l", " ", "+",
RowBox[{"1", "/", "2"}]}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"l", " ", "+", " ", "k", " ", "+", " ",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}], " "}]]}]}],
"*)"}]}]}], "Input",
CellChangeTimes->{{3.8485645139681797`*^9, 3.8485645165326085`*^9}, {
3.8487443350504446`*^9, 3.8487443853186398`*^9}, {3.848744777001199*^9,
3.848744788619364*^9}},
CellLabel->
"In[1460]:=",ExpressionUUID->"f73d6909-ba10-441b-9c87-37517c5252d1"]
}, Open ]],
Cell[CellGroupData[{
Cell["Speed Functions", "Chapter",
CellChangeTimes->{{3.848375726843643*^9,
3.8483757324279413`*^9}},ExpressionUUID->"1fd19a7c-e82a-4965-b763-\
82e4cab0d915"],
Cell[BoxData[{
RowBox[{
RowBox[{"a0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "4"}], "\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{"\[Tau]", "-", "1"}], ")"}], "/",
"\[Tau]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"4", "\[Sigma]", " ", "l",
RowBox[{
RowBox[{"(",
RowBox[{"\[Tau]", "-", "2"}], ")"}], "/", "\[Tau]"}]}], "-",
RowBox[{"p",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"2", "\[Sigma]"}], " ", "+",
RowBox[{"4",
RowBox[{"\[Sigma]", "/", "\[Tau]"}]}], "+", "1"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a2", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4",
RowBox[{"l", "^", "2"}]}], "+",
RowBox[{"4", " ", "l", " ",
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}]}], " ", "+", " ",
RowBox[{"3", "p",
RowBox[{
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}]}], ")"}], "/",
"\[Tau]"}]}]}]}], "Input",
CellChangeTimes->{{3.848376205287338*^9, 3.8483763264216413`*^9}, {
3.8483959104899197`*^9, 3.8483959113230753`*^9}, 3.8486544673134804`*^9},
CellLabel->
"In[1462]:=",ExpressionUUID->"2e50503a-b381-4286-b71f-94eee46caa32"],
Cell[BoxData[{
RowBox[{
RowBox[{"aprim0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"4",
RowBox[{"(",
RowBox[{"\[Tau]", "-", "1"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "/",
"\[Tau]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"aprim1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}],
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "l"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{"\[Tau]", "-", "2"}], ")"}], "/", "\[Tau]"}]}], "-", "1"}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"aprim2", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "\[Sigma]"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4",
RowBox[{"l", "^", "2"}]}], "+",
RowBox[{"4", "l",
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}]}], "+",
RowBox[{"3", "p",
RowBox[{
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}]}], ")"}], "/",
"\[Tau]"}]}]}]}], "Input",
CellChangeTimes->{{3.8483763420087805`*^9, 3.8483764665368648`*^9}, {
3.848395986017063*^9, 3.8483959994127035`*^9}},
CellLabel->
"In[1465]:=",ExpressionUUID->"410e7868-3045-4318-9854-5b95b4260612"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]E", "[",
RowBox[{"d_", ",", "j_", ",", "n_", ",", "p_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{
"d", "+", "j", "+", "p", "-", "n"}]}]]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]e", "[",
RowBox[{"d_", ",", "j_", ",", "n_", ",", "p_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"4", "\[Chi]", " "}],
RowBox[{"Sqrt", "[", "Pi", "]"}]],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"d", "+", "j", "+", "p", "-", "n", "+", "1"}]}]],
" "}]}]}], "Input",
CellChangeTimes->{{3.848375739369706*^9, 3.848375818373211*^9}, {
3.848375856057105*^9, 3.8483761774585485`*^9}, {3.848376332847086*^9,
3.848376334326018*^9}, {3.8483935170362234`*^9, 3.8483935186275864`*^9},
3.848394116420005*^9},
CellLabel->
"In[1468]:=",ExpressionUUID->"a848c226-df5e-47c4-8750-47b028fb170e"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarTab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"a0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "0", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "0", ",", "p"}], "]"}]}], "+",
RowBox[{
RowBox[{"a1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "1", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "1", ",", "p"}], "]"}]}], "+",
RowBox[{
RowBox[{"a2", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "2", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim2", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "2", ",", "p"}], "]"}]}]}],
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.8483764882278366`*^9, 3.8483765268441772`*^9}, {
3.8483937320264707`*^9, 3.848393759012282*^9}},
CellLabel->
"In[1470]:=",ExpressionUUID->"aba1e75e-e84c-455d-addd-12ce22e3f736"],
Cell[BoxData[{
RowBox[{
RowBox[{"bprim0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"4",
RowBox[{
RowBox[{"\[Tau]", "^", "2"}], "/",
"\[Sigma]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bprim1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "8"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"p", "^", "2"}], "+", "p", "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483767369573717`*^9, 3.848376779043248*^9}, {
3.8484833242504716`*^9, 3.848483325547778*^9}},
CellLabel->
"In[1471]:=",ExpressionUUID->"ca2c4a5f-e04e-4489-a99e-26503d1e6bd2"],
Cell[BoxData[{
RowBox[{
RowBox[{"bplus0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], "p",
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"l", "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}]}], "-",
RowBox[{"8", "\[Tau]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "p", "-",
RowBox[{"\[Sigma]", " ", "p"}]}], ")"}], "/", "\[Sigma]"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bplus1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"8",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483767872786975`*^9, 3.848376875840846*^9}, {
3.8483979443883824`*^9, 3.848397945879513*^9}, 3.8483979941614017`*^9},
CellLabel->
"In[1473]:=",ExpressionUUID->"19144da5-3aef-4d70-9ce0-b44ca3025dda"],
Cell[BoxData[{
RowBox[{
RowBox[{"bminus0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"4",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{"p", "+", "2"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+",
RowBox[{"2", "l"}], "+", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}], "+",
RowBox[{"8",
RowBox[{"\[Chi]", "^", "2"}],
RowBox[{
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"\[Sigma]", " ", "p"}], " ", "-", " ", "\[Sigma]"}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bminus1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "8"}], "p",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.84837688610343*^9, 3.8483769494202642`*^9}},
CellLabel->
"In[1475]:=",ExpressionUUID->"21a62bea-dfc6-4895-b98b-52fc0680f590"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Beta]e", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}], "+",
RowBox[{"2", "n"}], "-", "1"}], ")"}]}],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{
"p", "+", "1", "+", "d", "+", "j", "+",
"n"}]}]]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "n"}], "-", "1"}], ")"}]}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"2", "j1"}], ")"}]}],
RowBox[{"j", "!"}]}],
RowBox[{"j1", "!"}]],
FractionBox[
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "n", "+", "1", "+", "d", "+", "j1"}]}]],
"2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{
RowBox[{"2", "n"}], "-", "p", "-", "2"}], ")"}]}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "j", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "!"}]],
FractionBox[
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"d", "+", "n"}]}]], "2"]}], "-",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}],
RowBox[{"p", "+", "j"}]],
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{
RowBox[{"2", "j1"}], "+", "1"}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "j", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"j1", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}]],
FractionBox[
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"d", "+", "n", "+", "j1", "+", "1"}]}]], "2"]}]}]}],
")"}]}]}]}], "Input",
CellChangeTimes->{{3.848377276499569*^9, 3.8483774970387373`*^9}, {
3.848377541449463*^9, 3.8483776499209294`*^9}, {3.8483935428699164`*^9,
3.8483935444842033`*^9}, {3.848394149868252*^9, 3.8483941515718575`*^9}},
CellLabel->
"In[1477]:=",ExpressionUUID->"071b8fe2-7c16-4911-b6c8-c1c4b5ec705c"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarFab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"bprim0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]e", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bplus0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bminus0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bprim1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]e", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bplus1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bminus1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}]}],
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.848376530425008*^9, 3.848376720130766*^9}, {
3.8483776661342497`*^9, 3.8483776791239257`*^9}},
CellLabel->
"In[1480]:=",ExpressionUUID->"36415296-cbba-46b1-8031-3bf58dfa7e44"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]E0", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}], "\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}], "/", "\[Tau]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]E1", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{"\[Sigma]",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "j"}], "+", "p", "-", "2"}], ")"}], "/",
"\[Tau]"}]}]}]}], "Input",
CellChangeTimes->{{3.848379882316622*^9, 3.8483799519644833`*^9}},
CellLabel->
"In[1481]:=",ExpressionUUID->"def3c89b-e53b-4dda-870b-b6721a5fb3e3"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]e0", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{"2",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "/",
"\[Chi]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]e1", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"2", "j"}], "-", "p"}], ")"}], "/", "\[Chi]"}]}]}]}], "Input",
CellChangeTimes->{{3.848379955854618*^9, 3.8483799963448253`*^9}},
CellLabel->
"In[1483]:=",ExpressionUUID->"ee24fe27-6c20-4ee1-bbd8-9f8b58798324"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarPara", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"\[Alpha]E0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "0", "-", "1"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]e0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "0"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]E1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1", "-", "1"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]e1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1"}]}]]}]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.8483794606072035`*^9, 3.8483795631719265`*^9}, {
3.848379644413314*^9, 3.848379744866335*^9}, 3.848393789514002*^9},
CellLabel->
"In[1485]:=",ExpressionUUID->"881b2c82-57b0-4da6-83f4-b141adabd155"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarDab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1"}]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"2",
RowBox[{"\[Chi]", "^", "2"}]}]],
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "2"}]}]]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", "\[Chi]"}]],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1"}]}]]}]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.848380012968768*^9, 3.8483801120547967`*^9},
3.848393792768142*^9},
CellLabel->
"In[1486]:=",ExpressionUUID->"e90aa459-05fd-44e5-ad34-2e435902fa2f"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarSab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
RowBox[{"NuBarStarPara", "[",
RowBox[{"p", ",", "j", ",", "d"}], "]"}], "-",
RowBox[{"p",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}],
RowBox[{"NuBarStarDab", "[",
RowBox[{"p", ",", "j", ",", "d"}], "]"}]}]}]}]], "Input",
CellChangeTimes->{
3.8483793169129686`*^9, {3.8483793911193*^9, 3.848379436082344*^9}},
CellLabel->
"In[1487]:=",ExpressionUUID->"7685a782-aa03-4b9d-a41f-40aba4406337"],
Cell[BoxData[{
RowBox[{
RowBox[{"UParaa", "[", "k_", "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"k", "+",
RowBox[{"3", "/", "2"}]}], ")"}], "!"}],
RowBox[{"k", "!"}]],
RowBox[{"KroneckerDelta", "[",
RowBox[{"0", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"UParab", "[", "k_", "]"}], ":=",
RowBox[{"UParaa", "[", "k", "]"}]}]}], "Input",
CellChangeTimes->{{3.848379248839383*^9, 3.848379300962725*^9}, {
3.8483985174227357`*^9, 3.8483985299201355`*^9}, {3.8483985622781587`*^9,
3.8483985806680894`*^9}, {3.848398644737816*^9, 3.848398686042487*^9}, {
3.8483993438322487`*^9, 3.8483993526866355`*^9}, 3.848976577587449*^9},
CellLabel->
"In[1488]:=",ExpressionUUID->"806adb9a-f5ab-4595-89e6-a55aa62420d0"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarParaab", "[", "k_", "]"}], ":=", " ",
FractionBox[
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"k", "-", "3"}]}]], "-",
RowBox[{"\[Chi]", " ",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"k", "-", "2"}]}]]}]}], ")"}],
RowBox[{"\[Chi]", "^", "2"}]], " ",
RowBox[{"(*",
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]], "*)"}]}]], "Input",
CellChangeTimes->{{3.8483866102061553`*^9, 3.848386618993537*^9}, {
3.848386907223275*^9, 3.8483869377444615`*^9}, {3.848387075543865*^9,
3.8483871114820094`*^9}, {3.848387188042611*^9, 3.848387222931196*^9}, {
3.8483872972933793`*^9, 3.848387359064804*^9}, {3.8483883823096323`*^9,
3.8483883901384697`*^9}, {3.8483890984902563`*^9, 3.848389147351655*^9},
3.848393800036429*^9, {3.848656484376115*^9, 3.848656495893391*^9}, {
3.848736377029608*^9, 3.8487363799334803`*^9}, {3.848744939832402*^9,
3.848744944256173*^9}, {3.8487449891036987`*^9, 3.8487449908887515`*^9}, {
3.8489766309443507`*^9, 3.8489766333158417`*^9}, {3.8489767767515755`*^9,
3.8489767809121923`*^9}},
CellLabel->
"In[1490]:=",ExpressionUUID->"6db15a9c-fb7f-4a17-ba51-e2dd4bd93fc4"],
Cell[BoxData[{
RowBox[{
RowBox[{"CurlyVab", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{"(*",
UnderoverscriptBox["\[Sum]",
RowBox[{"g", "=", "0"}],
RowBox[{"l", "+",
RowBox[{"2", "k"}]}]], "*)"}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"1", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
SuperscriptBox["\[Chi]", "2"]],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",", "h1"}]], "-",
RowBox[{"\[Chi]", " ",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"h1", "+", "1"}]}]]}]}], ")"}]}], "+",
FractionBox[
RowBox[{"2", "\[Chi]",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3", "/", "2"}], "+", "h1"}], ")"}], "!"}]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]]}], ")"}],
RowBox[{"Boole", "[",
RowBox[{
RowBox[{"l", ">", "0"}], " ", "||",
RowBox[{"k", ">", "0"}]}], "]"}]}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CurlyVba", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"4",
RowBox[{"\[Sigma]", "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}],
RowBox[{"\[Tau]", "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{"(*",
UnderoverscriptBox["\[Sum]",
RowBox[{"g", "=", "0"}],
RowBox[{"l", "+",
RowBox[{"2", "k"}]}]], "*)"}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"1", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\[Chi]", "2"],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ba", ",", "h1"}]], "-",
RowBox[{
RowBox[{"1", "/", "\[Chi]"}], " ",
SubscriptBox["e",
RowBox[{"ba", ",",
RowBox[{"h1", "+", "1"}]}]]}]}], ")"}]}], "+",
FractionBox[
RowBox[{"2",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ba"], "-", "1"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3", "/", "2"}], "+", "h1"}], ")"}], "!"}]}],
RowBox[{"\[Chi]", " ", "3",
RowBox[{"Sqrt", "[", "Pi", "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"1", "/",
SuperscriptBox["\[Chi]", "2"]}]}], ")"}],
RowBox[{"3", "/", "2"}]]}]]}], ")"}]}]}]}], ")"}]}]}]}], "Input",
CellChangeTimes->{{3.848387373800681*^9, 3.8483876290903797`*^9}, {
3.8483931027382345`*^9, 3.8483931042902813`*^9}, {3.8483938018142996`*^9,
3.848393805672224*^9}, {3.84839391283613*^9, 3.848393925968313*^9}, {
3.848397216738872*^9, 3.848397218819335*^9}, {3.8483972688374877`*^9,
3.8483972701656475`*^9}, 3.8483984885745497`*^9, {3.848737374986815*^9,
3.8487375950633774`*^9}, {3.8487376425434504`*^9,
3.8487377201172185`*^9}, {3.848739318530054*^9, 3.8487393191494784`*^9}, {
3.848982649760215*^9, 3.84898265306164*^9}, {3.8489827274021754`*^9,
3.8489827342780175`*^9}, {3.8489842486319995`*^9,
3.8489843128950443`*^9}, {3.848994268558812*^9, 3.848994296952315*^9}},
CellLabel->
"In[1491]:=",ExpressionUUID->"8711532a-a62a-4882-b2aa-4530b4bb9628"],
Cell[BoxData[{
RowBox[{
RowBox[{"CurlyWab", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
SubscriptBox["\[Theta]", "ab"]}],
RowBox[{
SuperscriptBox["\[Chi]", "2"],
RowBox[{"Sqrt", "[", "Pi", "]"}]}]]}],
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"0", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"0", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",", "h1"}]], "-",
RowBox[{"\[Chi]",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"h1", "+", "1"}]}]]}]}], ")"}]}]}]}], ")"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ",
SubscriptBox["\[Theta]", "ab"]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
FractionBox[
RowBox[{"\[Chi]",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]],
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "2"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "0"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "1"}], "]"}]}]}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CurlyWba", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=", " ",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"8",
RowBox[{"\[Sigma]", "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}],
RowBox[{"\[Tau]", "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}], " ",
SubscriptBox["\[Theta]", "ba"]}],
RowBox[{
RowBox[{"1", "/",
SuperscriptBox["\[Chi]", "2"]}],
RowBox[{"Sqrt", "[", "Pi", "]"}]}]]}],
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"0", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"0", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ba", ",", "h1"}]], "-",
RowBox[{
RowBox[{"1", "/", "\[Chi]"}],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"1", "/",
SuperscriptBox["\[Chi]", "2"]}]}], ")"}],
SubscriptBox["e",
RowBox[{"ba", ",",
RowBox[{"h1", "+", "1"}]}]]}]}], ")"}]}]}]}], ")"}]}], "-",
RowBox[{
FractionBox[
RowBox[{"8", " ",
RowBox[{"\[Sigma]", "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}],
RowBox[{"\[Tau]", "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}],
SubscriptBox["\[Theta]", "ba"]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
FractionBox[
RowBox[{
RowBox[{"1", "/", "\[Chi]"}],
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ba"], "-", "1"}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"1", "/",
SuperscriptBox["\[Chi]", "2"]}]}], ")"}],
RowBox[{"3", "/", "2"}]]],
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "2"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "0"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "1"}], "]"}]}]}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.848737205981513*^9, 3.8487372176408167`*^9}, {
3.8487377304175744`*^9, 3.8487379668899937`*^9}, {3.848982905621892*^9,
3.8489829099268723`*^9}, {3.8489829507069674`*^9, 3.848983013591548*^9}},
CellLabel->
"In[1493]:=",ExpressionUUID->"8afcdfb0-5278-43b9-bc83-3af3304802dd"],
Cell[BoxData[{
RowBox[{
RowBox[{"uParaaOverVTa", "[",
RowBox[{"g_", ",", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"g", ",", "1"}], "]"}],
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"h", ",", "0"}], "]"}], "/",
RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"deltaTaOverTa", "[",
RowBox[{"g_", ",", "h_"}], "]"}], ":=",
RowBox[{
FractionBox["1", "3"],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[", "2", "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"g", ",", "2"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"h", ",", "0"}], "]"}]}], "-",
RowBox[{"2",
RowBox[{"KroneckerDelta", "[",
RowBox[{"g", ",", "0"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"h", ",", "1"}], "]"}]}]}], ")"}]}]}]}], "Input",
CellChangeTimes->{{3.848736006869*^9, 3.8487361031801*^9}},
CellLabel->
"In[1495]:=",ExpressionUUID->"bd41187f-35a0-4698-9601-df4a049d9ad8"],
Cell[BoxData[
RowBox[{
RowBox[{"IParaab1", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"1", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"NuBarParaab", "[",
RowBox[{"h1", "+", "3"}], "]"}],
RowBox[{"Boole", "[",
RowBox[{
RowBox[{"l", ">", "0"}], " ", "||", " ",
RowBox[{"k", ">", "0"}]}], "]"}]}]}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.8487362579805684`*^9, 3.848736344615488*^9}, {
3.848975654316047*^9, 3.848975657352312*^9}, {3.84897568825097*^9,
3.8489757015275755`*^9}, {3.8489772962514067`*^9, 3.8489773010298014`*^9}, {
3.8489774231227903`*^9, 3.848977425484473*^9}, {3.848978668565001*^9,
3.848978668786261*^9}, {3.84897887207135*^9, 3.8489788722607927`*^9}, {
3.8489795149588003`*^9, 3.848979521460016*^9}},
CellLabel->
"In[1497]:=",ExpressionUUID->"b2905676-9a2a-4068-a6ae-c641a4ee30ab"],
Cell[BoxData[
RowBox[{
RowBox[{"Iab2", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"-", "8"}],
RowBox[{
SuperscriptBox["\[Chi]", "2"],
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h1", "=", "0"}], "h"],
RowBox[{
SubscriptBox["L",
RowBox[{"0", ",", "h", ",", "h1"}]],
RowBox[{"Tinv", "[",
RowBox[{"0", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",", "h1"}]], "-",
RowBox[{"\[Chi]",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"h1", "+", "1"}]}]]}]}], ")"}]}]}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.848736397729059*^9, 3.8487365200454717`*^9}, {
3.848975809941084*^9, 3.8489758130854206`*^9}},
CellLabel->
"In[1498]:=",ExpressionUUID->"f801456e-bfc1-4c1b-83c0-1ce8c1317786"]
}, Open ]],
Cell[CellGroupData[{
Cell["Implementation", "Chapter",
CellChangeTimes->{{3.8487327099344177`*^9,
3.8487327124042587`*^9}},ExpressionUUID->"e78c86aa-8263-4f62-a15a-\
52211e443465"],
Cell[BoxData[
RowBox[{
RowBox[{"Jmax", " ", "=", " ", "12"}], ";"}]], "Input",
CellChangeTimes->{{3.8487330664791737`*^9, 3.8487330749378023`*^9},
3.8487331894938555`*^9, {3.848738890084139*^9, 3.8487388928851404`*^9}},
CellLabel->
"In[1499]:=",ExpressionUUID->"8ae7e705-b7ca-4de8-bb82-d677547cbc29"],
Cell[BoxData[
RowBox[{
RowBox[{"CabS", "[",
RowBox[{"l_", ",", "k_", ",", "g_", ",", "r_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j", "=", "0"}], "Jmax"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"p", "=", "0"}],
RowBox[{"l", "+",
RowBox[{"2", "k"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"h", "=", "0"}],
RowBox[{"k", "+",
RowBox[{"Floor", "[",
RowBox[{"l", "/", "2"}], "]"}]}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"d", "=", "0"}], "h"],
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"2", "^", "p"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"p", "!"}], ")"}], "^", "2"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"2", "p"}], ")"}], "!"}]],
SubscriptBox["L",
RowBox[{"p", ",", "h", ",", "d"}]],
FractionBox[
RowBox[{"Tinv", "[",
RowBox[{"p", ",", "h", ",", "l", ",", "k"}], "]"}],
RowBox[{
RowBox[{"sigmapj", "[",
RowBox[{"p", ",", "j"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "l"}], " ",
RowBox[{"l", "!"}]}], "]"}]}]],
FractionBox[
RowBox[{
RowBox[{"T", "[",
RowBox[{"p", ",", "j", ",", "g", ",", "r"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["2", "g"],
RowBox[{"g", "!"}]}], "]"}]}],
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]],
RowBox[{"NuBarStarSab", "[",
RowBox[{"p", ",", "j", ",", "d"}], "]"}],
RowBox[{"Boole", "[",
RowBox[{
RowBox[{"0", "<=", "g", "<=",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}]}], " ", "&&", " ",
RowBox[{"0", "<=", "r", "<=",
RowBox[{"j", "+",
RowBox[{"Floor", "[",
RowBox[{"p", "/", "2"}], "]"}]}]}]}], "]"}]}],
")"}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.8487327157936897`*^9, 3.848732732742674*^9}, {
3.8487328957839775`*^9, 3.848732980790368*^9}, {3.8487330612483196`*^9,
3.8487332936556664`*^9}, {3.8487340560492277`*^9, 3.84873406520895*^9}, {
3.8487350718254614`*^9, 3.848735075172924*^9}, {3.8487351793825293`*^9,
3.8487351923825083`*^9}, {3.8487396051186047`*^9,
3.8487396336678905`*^9}, {3.848740450769616*^9, 3.8487404516366167`*^9}, {
3.8487418618135986`*^9, 3.8487418652488394`*^9}, 3.848742394499953*^9,
3.848742446167799*^9, {3.848975002977466*^9, 3.848975005675558*^9}, {
3.848979876263276*^9, 3.8489798794621816`*^9}},
CellLabel->
"In[1500]:=",ExpressionUUID->"e34d3b22-b230-456d-818b-f30a7250017f"],
Cell[BoxData[{
RowBox[{
RowBox[{"Xab1", "[",
RowBox[{"l_", ",", "k_", ",", "g_", ",", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}]}],
RowBox[{"Sqrt", "[", "2", "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "1"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}],
FractionBox[
RowBox[{"IParaab1", "[",
RowBox[{"g", ",", "h"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "g"}], " ",
RowBox[{"g", "!"}]}], "]"}]]}], "+",
RowBox[{
FractionBox["2", "3"],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "2"}], "]"}],
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}], "/",
RowBox[{"Sqrt", "[", "2", "]"}]}]}], " ", "-", " ",
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "1"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "0"}], "]"}]}]}], ")"}],
FractionBox[
RowBox[{"Iab2", "[",
RowBox[{"g", ",", "h"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "g"}], " ",
RowBox[{"g", "!"}]}], "]"}]]}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Xab2", "[",
RowBox[{"l_", ",", "k_", ",", "g_", ",", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}]}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "l"}], " ",
RowBox[{"l", "!"}]}], "]"}]], "2",
RowBox[{"uParaaOverVTa", "[",
RowBox[{"g", ",", "h"}], "]"}], "*",
RowBox[{"IParaab1", "[",
RowBox[{"l", ",", "k"}], "]"}]}], "+",
RowBox[{
RowBox[{"deltaTaOverTa", "[",
RowBox[{"g", ",", "h"}], "]"}], "*",
RowBox[{
RowBox[{"Iab2", "[",
RowBox[{"l", ",", "k"}], "]"}], "/",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "l"}], " ",
RowBox[{"l", "!"}]}], "]"}]}]}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Xab3", "[",
RowBox[{"l_", ",", "k_", ",", "g_", ",", "h_"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}], "^", "2"}]}], " ",
FractionBox["4",
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"Sqrt", "[", "2", "]"}], "\[Chi]"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}]],
RowBox[{"uParaaOverVTa", "[",
RowBox[{"g", ",", "h"}], "]"}], "*",
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "1"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}]}], "+",
RowBox[{
RowBox[{"deltaTaOverTa", "[",
RowBox[{"g", ",", "h"}], "]"}], "*",
FractionBox[
RowBox[{"2", "\[Chi]"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "2"}], "]"}],
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "0"}], "]"}], "/",
RowBox[{"Sqrt", "[", "2", "]"}]}]}], "-",
RowBox[{
RowBox[{"KroneckerDelta", "[",
RowBox[{"l", ",", "0"}], "]"}],
RowBox[{"KroneckerDelta", "[",
RowBox[{"k", ",", "1"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]}], "Input",
CellChangeTimes->{{3.848735214575724*^9, 3.8487354810171137`*^9}, {
3.84873551255163*^9, 3.8487359333518267`*^9}, {3.84873597730995*^9,
3.848735994005041*^9}},
CellLabel->
"In[1501]:=",ExpressionUUID->"e48ec88f-a6f7-4a28-af29-a16e1a690134"]
}, Open ]],
Cell[CellGroupData[{
Cell["Original Sugama Test and Field components", "Chapter",
CellChangeTimes->{{3.8487325002637453`*^9,
3.848732510258433*^9}},ExpressionUUID->"150ca7d4-26fa-433a-a79f-\
2a7eae8f5a69"],
Cell[BoxData[{
RowBox[{
RowBox[{"CabT", "[",
RowBox[{"p_", ",", "j_", ",", "g_", ",", "h_"}], "]"}], ":=", " ",
RowBox[{
RowBox[{"CabS", "[",
RowBox[{"p", ",", "j", ",", "g", ",", "h"}], "]"}], " ", "+", " ",
RowBox[{"2", "*",
RowBox[{"(",
RowBox[{
RowBox[{"Xab1", "[",
RowBox[{"p", ",", "j", ",", "g", ",", "h"}], "]"}], "+",
RowBox[{"Xab2", "[",
RowBox[{"p", ",", "j", ",", "g", ",", "h"}], "]"}], "+",
RowBox[{"Xab3", "[",
RowBox[{"p", ",", "j", ",", "g", ",", "h"}], "]"}]}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CabF", "[",
RowBox[{"p_", ",", "j_", ",", "g_", ",", "h_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "2"}],
SubscriptBox["\[Theta]", "ab"], " ",
SubscriptBox["\[Theta]", "ba"], " "}],
RowBox[{"\[Chi]", " ", "\[Sigma]"}]],
FractionBox["1",
SubscriptBox["\[Gamma]", "ab"]],
FractionBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["\[Chi]", "2"]}], ")"}],
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["2", "p"],
RowBox[{"p", "!"}]}], "]"}]],
FractionBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"1", "/",
SuperscriptBox["\[Chi]", "2"]}]}], ")"}],
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["2", "g"],
RowBox[{"g", "!"}]}], "]"}]], "2",
RowBox[{"CurlyVab", "[",
RowBox[{"p", ",", "j"}], "]"}],
RowBox[{"CurlyVba", "[",
RowBox[{"g", ",", "h"}], "]"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["2", "p"],
RowBox[{"p", "!"}]}], "]"}]],
FractionBox["1", "\[Tau]"],
FractionBox["1",
SubscriptBox["\[Eta]", "ab"]],
FractionBox[
RowBox[{"2",
RowBox[{"CurlyWab", "[",
RowBox[{"p", ",", "j"}], "]"}],
RowBox[{"CurlyWba", "[",
RowBox[{"g", ",", "h"}], "]"}]}],
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["2", "g"],
RowBox[{"g", "!"}]}], "]"}]], " ",
RowBox[{"(*", " ",
RowBox[{
SubscriptBox["m", "a"], " ", "out", " ", "of", " ",
SubscriptBox["\[Gamma]", "ab"], " ", "and", " ",
SubscriptBox["T", "a"], " ", "out", " ", "of", " ",
SubscriptBox["\[Eta]", "ab"]}], " ", "*)"}]}]}]}]}], "Input",
CellChangeTimes->{{3.848732533802867*^9, 3.848732613402472*^9}, {
3.8487326492563796`*^9, 3.8487326500997295`*^9}, {3.848736607605445*^9,
3.848736635253903*^9}, {3.8487367882836256`*^9, 3.8487369542774115`*^9}, {
3.8487370273049755`*^9, 3.848737076268441*^9}, {3.848738933451063*^9,
3.848738976585789*^9}, {3.848974753303236*^9, 3.8489747563295255`*^9}, {
3.8489748171944804`*^9, 3.8489748190214252`*^9}, {3.8489763788384085`*^9,
3.8489764188747005`*^9}, {3.8489808698233786`*^9, 3.8489808762877555`*^9}, {
3.8489943118270025`*^9, 3.8489943130560923`*^9}},
CellLabel->
"In[1504]:=",ExpressionUUID->"247e1fe4-f8fc-4abf-a456-18e28936650e"]
}, Open ]],
Cell[CellGroupData[{
Cell["First components", "Chapter",
CellChangeTimes->{{3.848387876998891*^9,
3.848387882769306*^9}},ExpressionUUID->"30bea310-c987-49a2-b25f-\
064b6bc417be"],
Cell[BoxData[{
RowBox[{
RowBox[{"taucheck", " ", "=", " ",
RowBox[{"1", "/", "10"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sigmacheck", " ", "=", " ", "0.0027"}], ";"}]}], "Input",
CellChangeTimes->{{3.848652648238494*^9, 3.848652659772998*^9}},
CellLabel->
"In[1506]:=",ExpressionUUID->"bf3a7afe-ea88-4956-a61a-19be929246bb"],
Cell[BoxData[
RowBox[{
RowBox[{"CustomSimplify", "[", "expr_", "]"}], ":=",
RowBox[{"FullSimplify", "[",
RowBox[{"expr", ",",
RowBox[{"{",
RowBox[{
RowBox[{"\[Sigma]", ">", "0"}], ",", " ",
RowBox[{"\[Tau]", ">", "0"}]}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.848476032839703*^9, 3.848476037060891*^9},
3.848476285049224*^9, {3.8484774338291736`*^9, 3.848477436865822*^9}, {
3.8484777329930944`*^9, 3.848477736837722*^9}, {3.8484795535483007`*^9,
3.848479610804473*^9}, {3.848479911501771*^9, 3.848479915575473*^9}, {
3.848483168943473*^9, 3.8484832182008147`*^9}, 3.848483281197486*^9, {
3.848651292106264*^9, 3.848651310645845*^9}, {3.848651377586043*^9,
3.8486514091599565`*^9}, 3.8487382306452584`*^9},
CellLabel->
"In[1508]:=",ExpressionUUID->"43973186-0894-4996-b598-89860dfd3eb8"],
Cell["Test part", "Text",
CellChangeTimes->{{3.8484606645179453`*^9,
3.848460697591173*^9}},ExpressionUUID->"1de41735-4275-40c9-bfee-\
b60085bee3d4"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8484584701223984`*^9, 3.8484584930033045`*^9},
3.8484585426486626`*^9, {3.8484586814978952`*^9, 3.8484586884079556`*^9}, {
3.8484590765710526`*^9, 3.84845909727995*^9}, {3.8484607272966957`*^9,
3.8484607339375134`*^9}, {3.848476100856344*^9, 3.8484761047956915`*^9}, {
3.848652667890905*^9, 3.84865267889946*^9}, {3.8486530784790497`*^9,
3.8486530830928574`*^9}, {3.8487382508579164`*^9, 3.8487382552244587`*^9}},
CellLabel->
"In[1509]:=",ExpressionUUID->"d5d429b3-6139-4e73-a61b-18495a7d9d36"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.848994316739634*^9},
CellLabel->
"Out[1509]=",ExpressionUUID->"bbf0a3c4-8a0c-45d8-ac35-e291246a75b1"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.8489943168346357`*^9},
CellLabel->
"Out[1510]=",ExpressionUUID->"e64b86db-e952-47e4-a0e0-aa3378237232"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.8489943169256635`*^9},
CellLabel->
"Out[1511]=",ExpressionUUID->"0b61bb67-d36e-468e-8115-986f7c84bc0a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.848994317019663*^9},
CellLabel->
"Out[1512]=",ExpressionUUID->"98bce1e2-1e48-4d6a-a8d4-a4372716688b"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.8489943171256337`*^9},
CellLabel->
"Out[1513]=",ExpressionUUID->"193e7bfc-e6b2-49fe-b5fd-4dc50758c1aa"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{{3.848458465354156*^9, 3.848458521101449*^9}, {
3.8484586704655476`*^9, 3.8484587152075777`*^9}, 3.8484590452487593`*^9, {
3.848459077442706*^9, 3.8484590982059407`*^9}, 3.8484606572070184`*^9, {
3.8484607056218534`*^9, 3.8484607351157455`*^9}, 3.848461058347501*^9, {
3.848463432107396*^9, 3.8484634519287786`*^9}, 3.8484683673861914`*^9,
3.8484684575318823`*^9, 3.8484760729091835`*^9, 3.848476219767523*^9,
3.8484763043507185`*^9, 3.8484775415669603`*^9, 3.8484777667361455`*^9,
3.8484796601476974`*^9, 3.8484799355768223`*^9, 3.8484832360768642`*^9,
3.848564767170863*^9, 3.8485648196739454`*^9, 3.8486516283239365`*^9,
3.8486526823110075`*^9, 3.8486531326276307`*^9, 3.8486566028794513`*^9,
3.8487382764789877`*^9, 3.8487383720440207`*^9, 3.8487389919174104`*^9,
3.848739326878346*^9, 3.848740306975395*^9, 3.848740475579535*^9,
3.8487433903402586`*^9, 3.8487443925021486`*^9, 3.848744810177447*^9,
3.848744950278473*^9, 3.848744997358969*^9, 3.848974573974691*^9,
3.8489747604658127`*^9, 3.848975023056837*^9, 3.8489766778640575`*^9,
3.8489767942753153`*^9, 3.848977431113635*^9, 3.848978108487962*^9,
3.848978677964055*^9, 3.848978909461892*^9, 3.8489795474324875`*^9,
3.8489798857715516`*^9, 3.8489808831388683`*^9, 3.848983056184662*^9,
3.8489943172226334`*^9},
CellLabel->
"Out[1514]=",ExpressionUUID->"ec549fc0-5b12-47af-a15c-802699b1883e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1515]:=",ExpressionUUID->"b1bc4115-5b63-4af1-877e-61a15efb604c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.848994317332633*^9},
CellLabel->
"Out[1515]=",ExpressionUUID->"349ee9f2-3c7e-4615-9a1d-266a78095b2d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.848994317339634*^9},
CellLabel->
"Out[1516]=",ExpressionUUID->"8c05a0d7-00fa-4c91-babe-011385788580"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.848994317347636*^9},
CellLabel->
"Out[1517]=",ExpressionUUID->"b4afa6c4-660a-41f5-8e22-9797e57e3df3"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.8489943173556347`*^9},
CellLabel->
"Out[1518]=",ExpressionUUID->"c8094721-72b4-4f0b-a692-300adb6c6def"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.8489943173616333`*^9},
CellLabel->
"Out[1519]=",ExpressionUUID->"13d9879a-ff4e-4554-830c-e9b0c485b714"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.848738276645032*^9, 3.8487383722560205`*^9, 3.8487389931314087`*^9,
3.8487393276509533`*^9, 3.8487403081384277`*^9, 3.848740476555544*^9,
3.8487433907962723`*^9, 3.8487443932887783`*^9, 3.8487448107224226`*^9,
3.8487449507934675`*^9, 3.848744997886941*^9, 3.84897457450209*^9,
3.8489747609808493`*^9, 3.848975023604103*^9, 3.848976678417082*^9,
3.848976794846388*^9, 3.8489774316651926`*^9, 3.8489781093579683`*^9,
3.848978678517084*^9, 3.848978910026859*^9, 3.848979547976286*^9,
3.8489798863144913`*^9, 3.84898088369809*^9, 3.848983056750612*^9,
3.8489943173696337`*^9},
CellLabel->
"Out[1520]=",ExpressionUUID->"71bb604d-bc73-4e3f-b624-0d13f39d5fb2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*", " ", "N11", "*)"}]}]}], "Input",
CellChangeTimes->{{3.848476106440377*^9, 3.8484761097058396`*^9}, {
3.8486526884829807`*^9, 3.848652705080164*^9}, {3.848738250873889*^9,
3.848738250886861*^9}},
CellLabel->
"In[1521]:=",ExpressionUUID->"78f923c9-3b55-4b22-8d02-08cfb323dce7"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.8489943175706625`*^9},
CellLabel->
"Out[1521]=",ExpressionUUID->"d9d874d1-f2bf-4e7f-870a-c25637f30f3c"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
FractionBox["\[Tau]",
RowBox[{"\[Sigma]", "+", "\[Tau]"}]], ")"}],
RowBox[{"3", "/", "2"}]]}],
RowBox[{"3", " ",
SqrtBox["\[Pi]"]}]]}]], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.848994317758648*^9},
CellLabel->
"Out[1522]=",ExpressionUUID->"d1576d87-475b-4be8-8600-8944e6cdea82"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.8489943179996753`*^9},
CellLabel->
"Out[1523]=",ExpressionUUID->"0517960d-55ed-40f6-b3ca-ed197965fd55"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.848994318247686*^9},
CellLabel->
"Out[1524]=",ExpressionUUID->"06353d6b-7184-445d-9912-aba702dc64e0"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ",
SuperscriptBox["\[Tau]", "2"]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.848994318485634*^9},
CellLabel->
"Out[1525]=",ExpressionUUID->"784629fd-aec2-49b6-ad53-fbc637e33a86"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ",
SuperscriptBox["\[Tau]", "2"]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{
3.8484607378341184`*^9, 3.8484610688212504`*^9, 3.848463463756838*^9,
3.8484683779515057`*^9, 3.848468468417883*^9, 3.848476084035963*^9,
3.8484762306250525`*^9, 3.848476315209024*^9, 3.848477552463648*^9,
3.8484777779535365`*^9, 3.848479671069652*^9, 3.8484799468573494`*^9,
3.848483247441857*^9, 3.848564829726115*^9, 3.8486516391717396`*^9,
3.848652710713849*^9, 3.848653142738292*^9, 3.848656613144987*^9,
3.8487382782518287`*^9, 3.848738372739026*^9, 3.848738994280852*^9,
3.8487393288042345`*^9, {3.848739668579584*^9, 3.8487396957315807`*^9},
3.848740309285428*^9, 3.848740476902539*^9, 3.8487418744319844`*^9,
3.848742473416944*^9, 3.848743391030245*^9, 3.8487443937317843`*^9,
3.8487448109704175`*^9, 3.848744951048468*^9, 3.8487449981289687`*^9,
3.8489745747360945`*^9, 3.8489747611978416`*^9, 3.848975023846148*^9,
3.848976678652079*^9, 3.848976795110026*^9, 3.8489774319092054`*^9,
3.8489781097509747`*^9, 3.8489786787560563`*^9, 3.848978910271471*^9,
3.8489795482243147`*^9, 3.848979886564742*^9, 3.848980883944562*^9,
3.8489830569946413`*^9, 3.8489943186706276`*^9},
CellLabel->
"Out[1526]=",ExpressionUUID->"0356cc85-c7c8-48ff-adf0-fba964b6936c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1527]:=",ExpressionUUID->"6cd61700-777b-4d45-9b38-37b620a09015"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.8489943187853484`*^9},
CellLabel->
"Out[1527]=",ExpressionUUID->"d5029cd7-5f0b-4d93-9056-8c535c91341b"],
Cell[BoxData[
RowBox[{"-", "1.4494697142250488`"}]], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.8489943187933455`*^9},
CellLabel->
"Out[1528]=",ExpressionUUID->"58c4fc95-7ae0-4ee7-9c78-bf37c5492b3c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.8489943188033705`*^9},
CellLabel->
"Out[1529]=",ExpressionUUID->"ccfcdcec-bf0e-4996-a44e-307a7f699f13"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.848994318812382*^9},
CellLabel->
"Out[1530]=",ExpressionUUID->"9cedabc6-d49d-4597-8771-90b7edc4a8bf"],
Cell[BoxData["1.0496277308491864`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.848994318820346*^9},
CellLabel->
"Out[1531]=",ExpressionUUID->"a958c48e-358d-4d74-9fc3-61aa6b8b60e6"],
Cell[BoxData[
RowBox[{"-", "0.8570174534852881`"}]], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.848738298326821*^9,
3.848738377001862*^9, 3.8487390247244043`*^9, 3.8487393558564763`*^9,
3.8487403328632665`*^9, 3.848740478329214*^9, 3.848741881825302*^9,
3.8487424784158797`*^9, 3.848743392434042*^9, 3.8487443957883463`*^9,
3.848744812446418*^9, 3.848744953208807*^9, 3.848744999102969*^9,
3.848974576752879*^9, 3.848974762311853*^9, 3.8489750251685596`*^9,
3.848976679672104*^9, 3.8489767974222603`*^9, 3.848977433365182*^9,
3.848978112055961*^9, 3.848978680308821*^9, 3.8489789114780912`*^9,
3.8489795493072915`*^9, 3.8489798875718775`*^9, 3.8489808852132764`*^9,
3.8489830580630217`*^9, 3.848994318827385*^9},
CellLabel->
"Out[1532]=",ExpressionUUID->"7d58c1fd-6369-443b-b968-207feaa71b63"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.848460744364279*^9, 3.8484607480906353`*^9}, {
3.8484761149504194`*^9, 3.8484761185295706`*^9}, 3.8484767450180545`*^9, {
3.8486528145500956`*^9, 3.8486528274889793`*^9}, {3.848738250891889*^9,
3.8487382509079046`*^9}},
CellLabel->
"In[1533]:=",ExpressionUUID->"90c2a043-7407-4c99-ae1f-70d9062f80fe"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKA9PLjPw7G
A2kA5FGsJw==
"],
CellLabel->
"Out[1533]=",ExpressionUUID->"b8496e32-8aed-4547-8b0c-b109e527284a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKAtNcbsUPx
QBoA3SWrDg==
"],
CellLabel->
"Out[1534]=",ExpressionUUID->"a5d0d8eb-47ad-45a2-a6a7-f1de1545d6b3"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"21", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"6", " ",
SuperscriptBox["\[Tau]", "2"]}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{"2", "+", "\[Tau]"}], ")"}]}]}], ")"}]}],
RowBox[{"45", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKA9C1h00Px
QBoA3HCq5A==
"],
CellLabel->
"Out[1535]=",ExpressionUUID->"3c8a9d2b-8430-4408-81fb-388a494f0529"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox[
FractionBox["2", "\[Pi]"]], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}]}], "+",
RowBox[{"3", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"45", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKA9BWH4EPx
QBoA3i+rKQ==
"],
CellLabel->
"Out[1536]=",ExpressionUUID->"d96b4a65-95fd-4be6-b322-52b322765bfc"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKAdDhj0aF4
IA0A2UiqjA==
"],
CellLabel->
"Out[1537]=",ExpressionUUID->"75de1a32-0351-4e9d-9c3f-989cbe831b3e"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAOITeVMso9e8cbRiVkoG0d6cuv0xQNrnWtTXOCDdsL6I
IR5IN7MkXU0C0l9aawqSQfJSpj0guu3404oUIF1ienE2iK463mSeBqTf8czi
7QPSc9+3F+8A0ldunNLbCaR7dE3u7QLS8mIb9j8C0mUuWidBNKdKgtRjIC2W
d8QZRPds+74XRAv0Pz8Pok/M1bZ5CqQ1dy/aCaK/TVj9FkSz5zr9B9Gzzv1n
eQak+VabyIWtfeM4STnNFETrfXEPA9G7/4iqhgNpgUsXjEF0dKBvM4hWyVC9
AaKPlWvKRwBpf3FBGxDt3X2yG0R/qBfcBqI3nD5mFAmkeSoTnaKA9Nv8CYfi
gTQA4a6rrg==
"],
CellLabel->
"Out[1538]=",ExpressionUUID->"f9597f94-3caf-493a-8fc2-1aff9c52d19f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1539]:=",ExpressionUUID->"34a11c45-d7a5-449b-b64b-c5ef5923d7ae"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.8489943246262655`*^9},
CellLabel->
"Out[1539]=",ExpressionUUID->"69ff1278-3a25-4534-83bf-f6c94690fd52"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.8489943246332655`*^9},
CellLabel->
"Out[1540]=",ExpressionUUID->"36fb466d-c4ef-4b53-b8ba-904deec734ec"],
Cell[BoxData[
RowBox[{"-", "1.2338982804517293`"}]], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.848994324642266*^9},
CellLabel->
"Out[1541]=",ExpressionUUID->"4f9e6d95-edeb-4c8b-8595-1c1bb0fa0703"],
Cell[BoxData[
RowBox[{"-", "0.8186066898352707`"}]], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.8489943246492643`*^9},
CellLabel->
"Out[1542]=",ExpressionUUID->"12f7728e-207e-4db7-a748-82b49b891327"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.848994324658266*^9},
CellLabel->
"Out[1543]=",ExpressionUUID->"716f59f0-b914-4b02-93bb-60428d09f7bf"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8487383785995216`*^9, 3.848739042411823*^9, 3.848739369639447*^9,
3.848740350075909*^9, 3.8487404834215593`*^9, 3.8487433978420477`*^9,
3.8487444029860954`*^9, 3.848744817628456*^9, 3.8487449583149214`*^9,
3.8487450039841967`*^9, 3.848974582286854*^9, 3.848974767501384*^9,
3.84897503173713*^9, 3.8489766859293423`*^9, 3.848976804048724*^9,
3.848977439581195*^9, 3.8489781186215286`*^9, 3.8489786861867323`*^9,
3.848978917507125*^9, 3.8489795551922894`*^9, 3.8489798933084674`*^9,
3.848980891317129*^9, 3.848983064277566*^9, 3.8489943246662645`*^9},
CellLabel->
"Out[1544]=",ExpressionUUID->"34b5afa6-e6eb-4a61-8087-71a75a7ce7c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*", " ", "N11", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484607563845463`*^9, 3.848460767360775*^9}, {
3.8484761206482515`*^9, 3.8484761243949127`*^9}, {3.8486528320477276`*^9,
3.848652845336766*^9}, {3.848738250912901*^9, 3.848738250925905*^9}},
CellLabel->
"In[1545]:=",ExpressionUUID->"0d517216-6e0e-4080-8242-1ad50649d16d"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkL4lsvlQPJAGAJwypTI=
"],
CellLabel->
"Out[1545]=",ExpressionUUID->"4d359f46-0a6a-41e3-a8c2-f37337fe9ecf"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkL4x+eKheCANAKBPpc0=
"],
CellLabel->
"Out[1546]=",ExpressionUUID->"7d199060-feb5-4c04-a666-24651fb0f352"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox[
FractionBox["2", "\[Pi]"]], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}]}], "+",
RowBox[{"3", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"45", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkD4h9eFQPJAGAJ06pWM=
"],
CellLabel->
"Out[1547]=",ExpressionUUID->"23184752-afad-45d9-bb96-9cfacebada2c"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"5", " ", "\[Sigma]"}]}], ")"}], " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"45", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkLb/xX84HkgDAJnRpNo=
"],
CellLabel->
"Out[1548]=",ExpressionUUID->"44ebf988-727a-4af2-a981-05b6ac90ecb0"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkBZR1zscD6QBk26j+w==
"],
CellLabel->
"Out[1549]=",ExpressionUUID->"39d02f41-c565-4e78-baa6-3d0a1ef1b2b6"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+JOW2ab6DVvHBfsOZcKosuMDCfFAOll3H++xwHpMLZi
5nggPWmi5o0kIK1SmFmcDKSbasT7QfSmn7urU4B0w5O8+SDaTERVoA9I575t
LNsBpG9NKzLcCaQrK+892AWkkzSjTj4C0sd8+2UeA+kZDcWuIFrLiP8AiD6k
23kBRO86dt3mKZD+sqRhF4h2lfN/B6L3GDz5D6InXpnJ+gxI3/71WC5s7RvH
mnRuMxC94qJUOIieaXhXNRxIC7MvNAHRjwQlWkA0m9W/GyB6yucn8hFAuuj2
eRsQrefb1gOixVxPbgPR3QG9xpFAWm6/pnMUkP4r5XM4HkgDAJsPpPU=
"],
CellLabel->
"Out[1550]=",ExpressionUUID->"093bb038-6691-45a3-821e-b73ce3c26653"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1551]:=",ExpressionUUID->"58cde267-3155-46b4-98ec-12330ccd1057"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.848994330489349*^9},
CellLabel->
"Out[1551]=",ExpressionUUID->"508e2108-cfa4-4164-9fb3-8b6fd0c013df"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.8489943305003724`*^9},
CellLabel->
"Out[1552]=",ExpressionUUID->"a8c5ce46-99d6-4d37-b30f-190cd9c14c54"],
Cell[BoxData[
RowBox[{"-", "0.8186066898352707`"}]], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.848994330507384*^9},
CellLabel->
"Out[1553]=",ExpressionUUID->"020544c5-1fd1-43c5-9f82-2ba2db17f937"],
Cell[BoxData[
RowBox[{"-", "0.6550559389445371`"}]], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.8489943305163713`*^9},
CellLabel->
"Out[1554]=",ExpressionUUID->"a3cd69ec-bdeb-486d-bbe5-5836d2eacd20"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.848994330524358*^9},
CellLabel->
"Out[1555]=",ExpressionUUID->"70611f7d-f5af-49ec-b7f2-c30c0e1b70ae"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.848738379972287*^9, 3.8487390568480015`*^9, 3.8487393833463593`*^9,
3.8487403668159456`*^9, 3.8487404884631577`*^9, 3.84874340354739*^9,
3.8487444088189917`*^9, 3.8487448226256075`*^9, 3.8487449632669077`*^9,
3.848745008838876*^9, 3.8489745875363665`*^9, 3.848974772616185*^9,
3.8489750382612753`*^9, 3.848976692163042*^9, 3.8489768101220727`*^9,
3.8489774459529877`*^9, 3.8489781252233725`*^9, 3.848978691897941*^9,
3.848978923365354*^9, 3.8489795611188803`*^9, 3.848979899151726*^9,
3.848980897521412*^9, 3.848983070250225*^9, 3.848994330532358*^9},
CellLabel->
"Out[1556]=",ExpressionUUID->"a6649745-cf46-495f-b2a6-112456f57bea"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*", " ", "N11", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484607830731945`*^9, 3.848460785930711*^9}, {
3.8484761260127497`*^9, 3.8484761303904643`*^9}, {3.8486528499023795`*^9,
3.8486528640944014`*^9}, {3.8487382509309015`*^9, 3.8487382509469013`*^9}},
CellLabel->
"In[1557]:=",ExpressionUUID->"dfd22164-d866-44f0-bd75-1f280ea4a269"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSJ9kqzscD6QBO8ukvw==
"],
CellLabel->
"Out[1557]=",ExpressionUUID->"ce70714a-0b7c-4ce7-9246-4f4584f809fa"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ",
SuperscriptBox["\[Tau]", "2"]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSO9oXnk4HkgDAD+wpVY=
"],
CellLabel->
"Out[1558]=",ExpressionUUID->"d35554e4-1362-491d-a573-c06348e5f2d3"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSNctuXo4HkgDAD/PpWk=
"],
CellLabel->
"Out[1559]=",ExpressionUUID->"b23d181c-8921-4125-a49e-dcc23385b3f1"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSAvZMR6JB9IANLKjxA==
"],
CellLabel->
"Out[1560]=",ExpressionUUID->"eff84faf-d8d5-482e-9bcc-6d27e03b15b4"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"56", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"31", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"35", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSGeF6R6JB9IAOSKkYA==
"],
CellLabel->
"Out[1561]=",ExpressionUUID->"b12ccd1e-eb7b-4d6d-90ea-a9cc2ffc44fc"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["2",
RowBox[{"3", " ", "\[Pi]"}]]], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"28", " ", "\[Sigma]"}], "+", "\[Tau]"}], ")"}]}],
RowBox[{"35", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQA+LIUH+76DVvHFcwl2eA6E2BXlNjgHRWx/FfcUDa3n8m
WzyQTqj8eSsJSO8zbStLBtJzHnybCKLbZJbXpQDpOAa+xSC6yfCwUB+QnvrM
rnIHkL5roW+yE0j7BLc93gWktZJ7Tz4C0v/2zpR7DKRTRMPdQfS3jrRDIPqK
tPFFEL1OdLHtUyDdmOy6G0TLT/jxDkT73ehjeAakP9TasYFoLd7p8mFr3zhu
09phBqIX9PwOB9GVE7eqhQNpsZNFpiA6JP11C4jWaLtyE0TvXb9KIQJIy/yc
YQui/Z8E9IJorpRp20G04N8kk0ggnRb+zTkKSM/pjDgSD6QBPRmk8A==
"],
CellLabel->
"Out[1562]=",ExpressionUUID->"d39a97de-e36b-4506-8503-2d5b96ebf339"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1563]:=",ExpressionUUID->"622943c7-298a-4fa7-81b5-380b90ade6e5"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.8489943388816767`*^9},
CellLabel->
"Out[1563]=",ExpressionUUID->"8471a326-6d1e-41fe-a0cc-3277aeed2e6e"],
Cell[BoxData["1.0496277308491864`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.848994338891719*^9},
CellLabel->
"Out[1564]=",ExpressionUUID->"b1ba0cae-6e53-4ebc-ace8-e12b5725816d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.848994338901727*^9},
CellLabel->
"Out[1565]=",ExpressionUUID->"cfdba534-0169-4daa-a709-cd8c9fa90552"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.848994338910675*^9},
CellLabel->
"Out[1566]=",ExpressionUUID->"60ffa74e-8be9-46e5-a5da-cef1a0c35eac"],
Cell[BoxData[
RowBox[{"-", "1.964335706101595`"}]], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.8489943389206743`*^9},
CellLabel->
"Out[1567]=",ExpressionUUID->"bdbf2bb7-ccd9-4d46-a4d4-012ca5d006ec"],
Cell[BoxData[
RowBox[{"-", "0.08649077401650929`"}]], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8487383831426244`*^9, 3.8487391564048595`*^9, 3.848739482787602*^9,
3.8487404967284164`*^9, 3.8487434113491516`*^9, 3.848744416258498*^9,
3.8487448296776066`*^9, 3.848744970784623*^9, 3.848745015474798*^9,
3.848974595838379*^9, 3.848974779793187*^9, 3.8489750477782784`*^9,
3.8489767005880413`*^9, 3.8489768188265567`*^9, 3.8489774543653355`*^9,
3.84897813387403*^9, 3.8489787003719406`*^9, 3.848978931923421*^9,
3.84897956958784*^9, 3.848979907608632*^9, 3.8489809067979546`*^9,
3.8489830786016245`*^9, 3.8489943389287167`*^9},
CellLabel->
"Out[1568]=",ExpressionUUID->"01db5565-3a59-4691-881d-fb7a8999b58c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabT", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*", " ", "N11", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484607952547026`*^9, 3.8484607980441823`*^9}, {
3.848462117620192*^9, 3.848462131690402*^9}, {3.8484622139044204`*^9,
3.848462227550531*^9}, {3.8484761336066475`*^9, 3.8484761370324645`*^9}, {
3.8486528706803107`*^9, 3.848652882862624*^9}, {3.8487382509509053`*^9,
3.8487382509658885`*^9}},
CellLabel->
"In[1569]:=",ExpressionUUID->"7a86d2eb-6d80-4dfa-b315-aee96260d4e4"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpKUPdB6JB9IA6eylxw==
"],
CellLabel->
"Out[1569]=",ExpressionUUID->"763afaea-1c8c-47f1-9cfc-2dee65a4b3cb"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ",
SuperscriptBox["\[Tau]", "2"]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpOuZtx6JB9IA6Omlmg==
"],
CellLabel->
"Out[1570]=",ExpressionUUID->"c306e84c-52dd-4ecb-8f42-1b2a2bd89e93"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpJNWPjgSD6QB7Y2mTg==
"],
CellLabel->
"Out[1571]=",ExpressionUUID->"ff76d6dd-b200-49b4-b962-da87381b196b"],
Cell[BoxData["0"], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpL+94T4aD6QB7wmmUQ==
"],
CellLabel->
"Out[1572]=",ExpressionUUID->"ec5177be-4ea8-409b-95fe-fbcb623adca2"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["2",
RowBox[{"3", " ", "\[Pi]"}]]], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"28", " ", "\[Sigma]"}], "+", "\[Tau]"}], ")"}]}],
RowBox[{"35", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpKuqzI/GA2kA6ROljw==
"],
CellLabel->
"Out[1573]=",ExpressionUUID->"53581ed4-3b56-4aff-9315-dc451368c06e"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"98", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"47", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"105", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB+Ib+y7ZR6954/hKNcEPRLd9kskG0a/vMT4H0aYMAp9B
9PbO1hkxIPm9+znjgXQSh+S9JCD9y6qhKhlIOywXmgqiH0mdb0wB0kcSdJeD
aDGB06J9QDpOXrxmB0iduKL5TiB9bafZs11A+v2yjycfAenkbHbtxyB9m44G
g+hzL2wugWiTW5PsngLpEhu9PSA6V/HWexCdo9fC+AxIf/UUZgfRXEfWKISt
feN4OneeOYje5aQdCaKNJhxQDwfSEgHtZiDagvNnK4h22fXyFoi+yXtQMQJI
N6SvtwPRajZJfSBa48bCHSD6Hssk00gg3cPL4BoFpPvOJR2NB9IA7QGmIg==
"],
CellLabel->
"Out[1574]=",ExpressionUUID->"cc8bc942-389d-4e29-86b1-d65e82b28dba"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1575]:=",ExpressionUUID->"d0ef541b-f98f-4e6c-9350-fe89c46fab56"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.8489943471996794`*^9},
CellLabel->
"Out[1575]=",ExpressionUUID->"f3a4cd2c-ade2-425a-94de-ba13d85cff9f"],
Cell[BoxData[
RowBox[{"-", "0.8570174534852881`"}]], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.8489943472097273`*^9},
CellLabel->
"Out[1576]=",ExpressionUUID->"ce0f26c4-aed9-4370-9ec5-20cc03d0f60e"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.8489943472187147`*^9},
CellLabel->
"Out[1577]=",ExpressionUUID->"1694ae91-8e1d-4ea2-a662-35799951b210"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.8489943472277*^9},
CellLabel->
"Out[1578]=",ExpressionUUID->"6c180232-5870-481a-b30e-b7783f425098"],
Cell[BoxData[
RowBox[{"-", "0.08649077401650929`"}]], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.848994347238715*^9},
CellLabel->
"Out[1579]=",ExpressionUUID->"e28b7fd1-d469-4af5-988c-1fdf234317ea"],
Cell[BoxData[
RowBox[{"-", "1.999645416734731`"}]], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8487383857369947`*^9, 3.848739225802904*^9, 3.8487395461430645`*^9,
3.8487405044415097`*^9, 3.8487434183451056`*^9, 3.848744423078018*^9,
3.848744836431965*^9, 3.848744978342434*^9, 3.8487450220709968`*^9,
3.848974604164342*^9, 3.848974787185616*^9, 3.8489750571499825`*^9,
3.8489767089937925`*^9, 3.848976827236772*^9, 3.8489774628781595`*^9,
3.8489781423547635`*^9, 3.848978709255763*^9, 3.8489789408394156`*^9,
3.8489795782527494`*^9, 3.848979915947899*^9, 3.848980915881071*^9,
3.8489830868613706`*^9, 3.848994347247701*^9},
CellLabel->
"Out[1580]=",ExpressionUUID->"c4d27c78-ae6d-4b3a-8a4d-5b20d3791f6d"]
}, Open ]],
Cell["Field part", "Text",
CellChangeTimes->{{3.848460708372683*^9,
3.848460711450735*^9}},ExpressionUUID->"c0e38e0e-a227-430a-8641-\
bb29a8de252b"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.848458568104463*^9, 3.8484585764398966`*^9}, {
3.8484609300899506`*^9, 3.848460938201372*^9}, {3.8484761404946723`*^9,
3.848476145466771*^9}, {3.8486528873640566`*^9, 3.848652898546629*^9}, {
3.848738264327808*^9, 3.8487382698167257`*^9}},
CellLabel->
"In[1581]:=",ExpressionUUID->"bb8088a0-be5f-4e59-bc29-186b0ff08e7a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.84899434730674*^9},
CellLabel->
"Out[1581]=",ExpressionUUID->"e35d330f-2277-4172-8a3d-12e7a6abd455"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.8489943473177085`*^9},
CellLabel->
"Out[1582]=",ExpressionUUID->"2a7260a5-f63f-4ed4-8a1f-5edcedb13131"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.8489943473277035`*^9},
CellLabel->
"Out[1583]=",ExpressionUUID->"ca96e52c-340a-48d1-bc1e-2bd3e2fd1ef0"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.848994347336701*^9},
CellLabel->
"Out[1584]=",ExpressionUUID->"23c7a7c4-5764-4b5b-a5b0-064594787cb1"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.8489943473457003`*^9},
CellLabel->
"Out[1585]=",ExpressionUUID->"a92d2631-910d-4ce5-bc9a-bf39837c3337"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484585771825266`*^9, 3.8484587284219174`*^9,
3.848460940349102*^9, 3.848461165847211*^9, 3.848463581379051*^9,
3.8484685795009584`*^9, 3.848476423020372*^9, 3.8484776797058835`*^9,
3.8484778866881895`*^9, 3.848479780002624*^9, 3.848480085699278*^9,
3.848564929930101*^9, 3.848651770010007*^9, 3.848653266170778*^9,
3.848656711996312*^9, 3.8487392259124804`*^9, 3.8487395462440567`*^9,
3.84874050454751*^9, 3.848743418463078*^9, 3.8487444231970196`*^9,
3.848744836589966*^9, 3.8487449784494343`*^9, 3.8487450221840057`*^9,
3.848974604270304*^9, 3.84897478727936*^9, 3.848975057248982*^9,
3.848976709092845*^9, 3.8489768273358903`*^9, 3.8489774629722056`*^9,
3.8489781424547653`*^9, 3.84897870937665*^9, 3.848978940954429*^9,
3.8489795783657584`*^9, 3.8489799160592513`*^9, 3.848980915990075*^9,
3.848983086971344*^9, 3.848994347354703*^9},
CellLabel->
"Out[1586]=",ExpressionUUID->"eee5089b-cea6-4198-8bd0-0d663145b189"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1587]:=",ExpressionUUID->"02118b9e-ca60-4694-a509-1b4560366c24"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.8489943474217014`*^9},
CellLabel->
"Out[1587]=",ExpressionUUID->"8c58c930-030a-420d-8e17-2feb4c71d120"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.8489943474316707`*^9},
CellLabel->
"Out[1588]=",ExpressionUUID->"4e45d97e-3650-4396-a15f-2f312b36196a"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.8489943474407*^9},
CellLabel->
"Out[1589]=",ExpressionUUID->"28afc996-2b33-40f4-a8ef-ebb5fff19c6e"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.848994347450714*^9},
CellLabel->
"Out[1590]=",ExpressionUUID->"efe4929b-b385-4d0b-a4b8-b08cb1197ba0"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.848994347460718*^9},
CellLabel->
"Out[1591]=",ExpressionUUID->"fe444898-dcff-444d-afd1-7ac09c4620d1"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.848739226023491*^9, 3.848739546345064*^9, 3.8487405046545105`*^9,
3.848743418581106*^9, 3.848744423380019*^9, 3.848744836724967*^9,
3.84874497856644*^9, 3.8487450222960024`*^9, 3.8489746044523087`*^9,
3.8489747873753977`*^9, 3.8489750573477793`*^9, 3.8489767091858354`*^9,
3.8489768274371567`*^9, 3.8489774630692225`*^9, 3.8489781425547657`*^9,
3.8489787094756436`*^9, 3.848978941067483*^9, 3.8489795784806843`*^9,
3.8489799161716723`*^9, 3.8489809160980673`*^9, 3.8489830870903435`*^9,
3.8489943474696836`*^9},
CellLabel->
"Out[1592]=",ExpressionUUID->"905b516d-58d4-4f1e-b772-a910193353f1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.848476147558791*^9, 3.848476150778632*^9}, {
3.8486529017594037`*^9, 3.8486529112253923`*^9}, {3.8487382643448086`*^9,
3.848738264357807*^9}},
CellLabel->
"In[1593]:=",ExpressionUUID->"05dfd347-b54a-41a5-b4c0-e160521cfe3f"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.8489943475326743`*^9},
CellLabel->
"Out[1593]=",ExpressionUUID->"05104a52-c4ad-42b9-a3ca-aeafedd24568"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"3", " ",
SqrtBox["\[Pi]"], " ",
SqrtBox[
RowBox[{"\[Sigma]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]]}]]], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.848994347589676*^9},
CellLabel->
"Out[1594]=",ExpressionUUID->"d41bbdf5-19ae-411d-8960-63e911fd1fd3"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.848994347604701*^9},
CellLabel->
"Out[1595]=",ExpressionUUID->"1cea4b1f-c1aa-421b-b35c-d2bd03d39cc1"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.848994347615701*^9},
CellLabel->
"Out[1596]=",ExpressionUUID->"7a4d41ef-2d52-4f2c-ba80-f0ffce406838"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SqrtBox[
RowBox[{
SuperscriptBox["\[Sigma]", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}]], " ", "\[Tau]"}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.848994347669684*^9},
CellLabel->
"Out[1597]=",ExpressionUUID->"96a09f74-b5f2-4a32-bff1-0b6386b75f4b"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ",
SqrtBox[
RowBox[{
SuperscriptBox["\[Sigma]", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}]], " ", "\[Tau]"}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.8484609444437838`*^9, 3.8484611760932107`*^9,
3.848463593288052*^9, 3.84846858975276*^9, 3.8484764336564026`*^9,
3.8484776927838516`*^9, 3.8484778975922165`*^9, 3.8484797907506876`*^9,
3.848480099155201*^9, 3.8485649399599066`*^9, 3.848651780269522*^9,
3.8486532771213694`*^9, 3.8486567222079983`*^9, 3.8487392261674895`*^9,
3.8487395464460807`*^9, 3.8487405047675123`*^9, 3.8487434187040787`*^9,
3.8487444235020247`*^9, 3.848744836861978*^9, 3.8487449786954656`*^9,
3.8487450224060016`*^9, 3.8489746046053095`*^9, 3.8489747874624004`*^9,
3.8489750574587793`*^9, 3.84897670928383*^9, 3.8489768275368643`*^9,
3.8489774631691637`*^9, 3.8489781426597614`*^9, 3.848978709563699*^9,
3.848978941175712*^9, 3.8489795785786753`*^9, 3.848979916281694*^9,
3.848980916209078*^9, 3.848983087201349*^9, 3.8489943477257185`*^9},
CellLabel->
"Out[1598]=",ExpressionUUID->"7964939c-d015-4fcc-b104-fc1a4685d31b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1599]:=",ExpressionUUID->"e99a7e78-4220-42ac-9a71-49b446090412"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.848994347784685*^9},
CellLabel->
"Out[1599]=",ExpressionUUID->"cc4262a9-368f-4b9f-ba23-bae8ab692296"],
Cell[BoxData["0.23817217767048784`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.848994347795676*^9},
CellLabel->
"Out[1600]=",ExpressionUUID->"bd5a8e42-f4c8-45fa-847c-32536729ec0d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.8489943478056746`*^9},
CellLabel->
"Out[1601]=",ExpressionUUID->"e0d0287e-9061-4210-9744-a8487d3c955c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.848994347816674*^9},
CellLabel->
"Out[1602]=",ExpressionUUID->"cec3d300-bb04-493e-82e2-5ec470e03ed2"],
Cell[BoxData[
RowBox[{"-", "0.0014725869326798573`"}]], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.8489943478266764`*^9},
CellLabel->
"Out[1603]=",ExpressionUUID->"d1e55ef4-f99d-4675-bec9-3bf82f98f594"],
Cell[BoxData["0.001202362195651951`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.848739226519452*^9, 3.848739546831942*^9, 3.8487405051215115`*^9,
3.8487434190970817`*^9, 3.848744423689019*^9, 3.8487448372429714`*^9,
3.8487449788234377`*^9, 3.8487450225190067`*^9, 3.8489746049832287`*^9,
3.8489747878659024`*^9, 3.8489750575807815`*^9, 3.8489767093837934`*^9,
3.8489768279071712`*^9, 3.8489774632731633`*^9, 3.848978143011664*^9,
3.848978709663681*^9, 3.848978941282755*^9, 3.8489795786856766`*^9,
3.8489799163846917`*^9, 3.8489809165779853`*^9, 3.8489830874413815`*^9,
3.8489943478366747`*^9},
CellLabel->
"Out[1604]=",ExpressionUUID->"79c5ef55-2ff9-4e72-84dd-55d044628bca"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.848460949016407*^9, 3.8484609519606543`*^9}, {
3.8484761542541428`*^9, 3.8484761572038937`*^9}, {3.848652915690523*^9,
3.8486529284635525`*^9}, {3.848738264364807*^9, 3.8487382643778076`*^9}},
CellLabel->
"In[1605]:=",ExpressionUUID->"ec5a2bfe-eb82-48aa-bfaf-f864e68a15cb"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.8489943479037037`*^9},
CellLabel->
"Out[1605]=",ExpressionUUID->"ec960033-37fa-45ac-94ad-866c3ff79015"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.8489943479147053`*^9},
CellLabel->
"Out[1606]=",ExpressionUUID->"acffc9b7-e08c-4530-9f24-583ed888c06d"],
Cell[BoxData[
FractionBox[
RowBox[{"16", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]]}],
RowBox[{"9", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.8489943479277096`*^9},
CellLabel->
"Out[1607]=",ExpressionUUID->"6eeab6fd-10fa-4abe-9eac-d7766813f7e3"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox[
FractionBox["2", "\[Pi]"]], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]]}],
RowBox[{"9", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.848994347991677*^9},
CellLabel->
"Out[1608]=",ExpressionUUID->"3c94d97b-b13d-47a7-98fa-a433ee99b984"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.8489943480037127`*^9},
CellLabel->
"Out[1609]=",ExpressionUUID->"021b88ad-dff2-423a-a3f6-0e6c0182da4d"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460952439193*^9, 3.8484611879602113`*^9,
3.848463611087533*^9, 3.8484686051847506`*^9, 3.848476451245412*^9,
3.8484779150468054`*^9, 3.8484798071826124`*^9, 3.8484801209422836`*^9,
3.8485649560152187`*^9, 3.8486517930424175`*^9, 3.8486532904756927`*^9,
3.848656734084704*^9, 3.8487392266364884`*^9, 3.8487395469379377`*^9,
3.848740505231509*^9, 3.8487434192740655`*^9, 3.8487444238120184`*^9,
3.8487448373849664`*^9, 3.848744978941433*^9, 3.848745022637003*^9,
3.8489746050852966`*^9, 3.848974788015239*^9, 3.848975057683786*^9,
3.8489767094797926`*^9, 3.8489768280041924`*^9, 3.8489774633711634`*^9,
3.848978143117679*^9, 3.8489787097726593`*^9, 3.8489789414037113`*^9,
3.8489795787826757`*^9, 3.8489799164926834`*^9, 3.8489809166922073`*^9,
3.848983087549363*^9, 3.848994348013714*^9},
CellLabel->
"Out[1610]=",ExpressionUUID->"d0200f45-2f30-4ecd-9dcc-6d8e78a8e61a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1611]:=",ExpressionUUID->"47d59c3a-ece4-4c76-b599-18ecc80e52d3"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.848994348074753*^9},
CellLabel->
"Out[1611]=",ExpressionUUID->"0912b3d3-2cb7-4ddf-847e-faa3ddacf114"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.8489943480857115`*^9},
CellLabel->
"Out[1612]=",ExpressionUUID->"c3d7fa22-ebb1-45ce-9e90-421c4300cb9c"],
Cell[BoxData["0.025404532479114787`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.848994348095707*^9},
CellLabel->
"Out[1613]=",ExpressionUUID->"17caf02a-9e10-48b5-ad00-fa327a30575f"],
Cell[BoxData[
RowBox[{"-", "0.03592743437771192`"}]], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.8489943481056995`*^9},
CellLabel->
"Out[1614]=",ExpressionUUID->"b0d0ec15-9cdf-4178-adab-63d46a31b50a"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.848994348116701*^9},
CellLabel->
"Out[1615]=",ExpressionUUID->"3ac5cadf-9858-4464-a4fe-7899d7eb2e8e"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.848739227789849*^9, 3.848739548010346*^9, 3.8487405062015533`*^9,
3.84874342039911*^9, 3.848744424851473*^9, 3.848744838407922*^9,
3.848744979073937*^9, 3.8487450227666893`*^9, 3.8489746064156857`*^9,
3.848974789077236*^9, 3.848975057787779*^9, 3.8489767095837946`*^9,
3.8489768289911056`*^9, 3.848977463477206*^9, 3.8489781442066913`*^9,
3.8489787098746505`*^9, 3.848978941555726*^9, 3.8489795788916755`*^9,
3.8489799166149225`*^9, 3.8489809176842413`*^9, 3.8489830877806797`*^9,
3.848994348127708*^9},
CellLabel->
"Out[1616]=",ExpressionUUID->"f7edaadd-42d4-4b25-a1ed-26e275785d69"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8484609584339623`*^9, 3.848460967298239*^9}, {
3.8484761587686214`*^9, 3.848476161546661*^9}, {3.8486529332422595`*^9,
3.84865294459527*^9}, {3.8487382643818073`*^9, 3.8487382643958087`*^9}},
CellLabel->
"In[1617]:=",ExpressionUUID->"805623c7-8249-4440-8dee-9e6579b58943"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.8489943482086773`*^9},
CellLabel->
"Out[1617]=",ExpressionUUID->"33017c7c-ab4a-4c3a-8d84-806dd721fbc7"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.848994348220675*^9},
CellLabel->
"Out[1618]=",ExpressionUUID->"bfb92e34-c9e6-4bb9-b37f-c105b73807fc"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SqrtBox[
FractionBox["2", "\[Pi]"]], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]]}],
RowBox[{"9", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.848994348233689*^9},
CellLabel->
"Out[1619]=",ExpressionUUID->"18cea39d-fa3a-4d9a-81e5-ffb848e3c506"],
Cell[BoxData[
FractionBox[
RowBox[{"32", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]]}],
RowBox[{"9", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.848994348297714*^9},
CellLabel->
"Out[1620]=",ExpressionUUID->"a5fd5117-afe2-4417-9571-ec47164080cc"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.8489943483106856`*^9},
CellLabel->
"Out[1621]=",ExpressionUUID->"ba86f0a3-a6b2-4ce5-97e2-527ada04034e"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460967887782*^9, 3.848461210389186*^9,
3.8484636349076843`*^9, 3.8484686269252176`*^9, 3.8484764733583307`*^9,
3.8484779373892255`*^9, 3.8484798295508175`*^9, 3.8484801458867173`*^9,
3.8485649761964245`*^9, 3.8486518138505907`*^9, 3.8486533124295073`*^9,
3.848656754834759*^9, 3.848739227898856*^9, 3.848739548109351*^9,
3.848740506313554*^9, 3.848743420542119*^9, 3.848744424976472*^9,
3.848744838569886*^9, 3.848744979203937*^9, 3.848745022885734*^9,
3.848974606542197*^9, 3.848974789169241*^9, 3.848975057888779*^9,
3.8489767096818323`*^9, 3.84897682909311*^9, 3.848977463575192*^9,
3.848978144311652*^9, 3.8489787099706883`*^9, 3.8489789417227187`*^9,
3.848979579003686*^9, 3.8489799167229004`*^9, 3.84898091780521*^9,
3.8489830879136815`*^9, 3.848994348320674*^9},
CellLabel->
"Out[1622]=",ExpressionUUID->"2d5f50d3-7b99-4edb-a3c1-9483a9d11d18"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1623]:=",ExpressionUUID->"b447c670-bcb0-44a6-a225-cf1ede827e38"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.84899434837926*^9},
CellLabel->
"Out[1623]=",ExpressionUUID->"bcc904e1-a407-4a86-ad62-7faf904cdee6"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.848994348390242*^9},
CellLabel->
"Out[1624]=",ExpressionUUID->"8f3f5697-3961-4f61-b615-ac7dc3a0e68d"],
Cell[BoxData[
RowBox[{"-", "0.03592743437771192`"}]], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.84899434840127*^9},
CellLabel->
"Out[1625]=",ExpressionUUID->"123ab2fe-9a9c-4b23-ad90-4fa4a2890908"],
Cell[BoxData["0.05080906495822957`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.8489943484132414`*^9},
CellLabel->
"Out[1626]=",ExpressionUUID->"688fb57a-5df8-423a-80f3-d1005ed53dbc"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.848994348424241*^9},
CellLabel->
"Out[1627]=",ExpressionUUID->"51de448e-bb6a-4490-b7b1-c41a9ec63543"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.848739228324806*^9, 3.8487395485544147`*^9, 3.848740506698267*^9,
3.84874342100211*^9, 3.8487444255522075`*^9, 3.8487448389660788`*^9,
3.8487449793856974`*^9, 3.848745023007721*^9, 3.84897460707172*^9,
3.848974789666335*^9, 3.848975057996794*^9, 3.8489767097838583`*^9,
3.8489768295341196`*^9, 3.8489774636801896`*^9, 3.848978144749701*^9,
3.848978710076783*^9, 3.848978941880724*^9, 3.848979579118239*^9,
3.848979916842653*^9, 3.8489809181982856`*^9, 3.84898308808068*^9,
3.848994348435241*^9},
CellLabel->
"Out[1628]=",ExpressionUUID->"f9aeb14e-1023-4fdd-a049-672b4a78185c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.84846406798335*^9, 3.8484640707523427`*^9}, {
3.848476163451769*^9, 3.848476166421096*^9}, {3.848652948577425*^9,
3.8486529598144665`*^9}, {3.848738264404806*^9, 3.8487382644178085`*^9}},
CellLabel->
"In[1629]:=",ExpressionUUID->"3726b455-7635-41c9-a459-bf4710e20f41"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.848994348501243*^9},
CellLabel->
"Out[1629]=",ExpressionUUID->"0ad815c9-2be7-4549-92e1-a3edb46fd8a3"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SqrtBox[
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.848994348570244*^9},
CellLabel->
"Out[1630]=",ExpressionUUID->"306c20d8-0ba7-40bf-aabf-d2977a6616f8"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.848994348583243*^9},
CellLabel->
"Out[1631]=",ExpressionUUID->"8de9b17e-f120-4dbb-9187-61b516854da5"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.8489943485952415`*^9},
CellLabel->
"Out[1632]=",ExpressionUUID->"6d5ac859-9bc2-4ba2-bc71-f06aa23c9bd4"],
Cell[BoxData[
FractionBox[
RowBox[{"36", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", " ", "\[Tau]"}], ")"}],
RowBox[{"3", "/", "2"}]]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.8489943486582437`*^9},
CellLabel->
"Out[1633]=",ExpressionUUID->"98e9b6d9-3a2e-40fb-8448-4366081b66af"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", " ", "\[Tau]"}], ")"}],
RowBox[{"3", "/", "2"}]]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.8484640768718863`*^9, 3.8484686491995583`*^9,
3.848476495154041*^9, 3.848477959995346*^9, 3.848479851652566*^9,
3.8484801743375096`*^9, 3.84856499605606*^9, 3.848651331107683*^9,
3.8486514280744066`*^9, 3.848651835369335*^9, 3.848653333545805*^9,
3.8486567752093773`*^9, 3.8487392284487495`*^9, 3.848739548655421*^9,
3.848740506813271*^9, 3.848743421154064*^9, 3.8487444256781993`*^9,
3.8487448391110516`*^9, 3.848744979500704*^9, 3.8487450231717143`*^9,
3.8489746072327204`*^9, 3.8489747897693367`*^9, 3.8489750581608443`*^9,
3.848976709892858*^9, 3.848976829632071*^9, 3.8489774637834563`*^9,
3.848978144861678*^9, 3.8489787101717844`*^9, 3.84897894199371*^9,
3.848979579237576*^9, 3.8489799169726553`*^9, 3.8489809183232512`*^9,
3.8489830881976786`*^9, 3.848994348716243*^9},
CellLabel->
"Out[1634]=",ExpressionUUID->"10f38157-f01d-483b-96f4-5fee8ce54274"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1635]:=",ExpressionUUID->"2931cabe-f550-4f3b-aa14-f17d67805266"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.848994348775247*^9},
CellLabel->
"Out[1635]=",ExpressionUUID->"ca5fb9c4-2795-4dab-a966-f552874484d0"],
Cell[BoxData[
RowBox[{"-", "0.17247143555071814`"}]], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.848994348787242*^9},
CellLabel->
"Out[1636]=",ExpressionUUID->"1b51b972-6e05-467e-b6c3-468fb29c91ee"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.8489943487992415`*^9},
CellLabel->
"Out[1637]=",ExpressionUUID->"a2af5a47-7d54-44c7-a90b-89f56b138756"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.8489943488102646`*^9},
CellLabel->
"Out[1638]=",ExpressionUUID->"cf556787-20e8-4279-8de6-615fe4a99768"],
Cell[BoxData["0.0010663679726853107`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.8489943488212414`*^9},
CellLabel->
"Out[1639]=",ExpressionUUID->"e5ad39a4-60f1-4271-a3e5-ede0f2a21d94"],
Cell[BoxData[
RowBox[{"-", "0.000870685803708387`"}]], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8487392286897573`*^9, 3.848739549074831*^9, 3.8487405072032194`*^9,
3.848743421650064*^9, 3.8487444260707693`*^9, 3.8487448394950867`*^9,
3.8487449796216984`*^9, 3.848745023292735*^9, 3.8489746076522207`*^9,
3.8489747901743355`*^9, 3.848975058271245*^9, 3.8489767100348544`*^9,
3.848976830012108*^9, 3.8489774639084806`*^9, 3.848978145293108*^9,
3.8489787102967825`*^9, 3.848978942129744*^9, 3.848979579372573*^9,
3.848979917093653*^9, 3.8489809187092514`*^9, 3.8489830885486774`*^9,
3.848994348834242*^9},
CellLabel->
"Out[1640]=",ExpressionUUID->"fe9d5949-1410-4282-b621-e50c9fc9cea9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"CabF", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8484609761470547`*^9, 3.848460979162949*^9}, {
3.84847617053625*^9, 3.848476173394179*^9}, {3.8486529641251535`*^9,
3.8486529758417497`*^9}, {3.848738264422808*^9, 3.8487382644368076`*^9}},
CellLabel->
"In[1641]:=",ExpressionUUID->"87e96d80-32cb-454e-8d9c-19670a98717a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.848994348893243*^9},
CellLabel->
"Out[1641]=",ExpressionUUID->"907ebc42-4508-4dff-9ca2-0249c5553c67"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ",
SqrtBox[
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.848994348957241*^9},
CellLabel->
"Out[1642]=",ExpressionUUID->"d1c742f4-77de-44b0-b8a1-fb55e32ddf87"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.848994348971242*^9},
CellLabel->
"Out[1643]=",ExpressionUUID->"5b6c3352-9af6-48fe-9090-8e2e849eb083"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.8489943489862456`*^9},
CellLabel->
"Out[1644]=",ExpressionUUID->"0c1dd2c5-3c7b-4943-8d03-c31afce7ad7f"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", " ", "\[Tau]"}], ")"}],
RowBox[{"3", "/", "2"}]]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.84899434900024*^9},
CellLabel->
"Out[1645]=",ExpressionUUID->"d572e795-cc92-44f7-915e-effc962ddf15"],
Cell[BoxData[
FractionBox[
RowBox[{"24", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", " ", "\[Tau]"}], ")"}],
RowBox[{"3", "/", "2"}]]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.848460979743674*^9, 3.8484612312187424`*^9,
3.848463659341683*^9, 3.8484686794155593`*^9, 3.8484766129301405`*^9,
3.848478087956437*^9, 3.8484802093704977`*^9, 3.848565022070592*^9,
3.8486518590331616`*^9, 3.848653355666928*^9, 3.848656795801239*^9,
3.8487392288807507`*^9, 3.8487395491838455`*^9, 3.8487405073152213`*^9,
3.848743421832101*^9, 3.84874442620877*^9, 3.848744839663037*^9,
3.8487449797387*^9, 3.8487450234156857`*^9, 3.8489746077605247`*^9,
3.8489747902743363`*^9, 3.8489750583651247`*^9, 3.8489767101398544`*^9,
3.8489768301198874`*^9, 3.848977464009509*^9, 3.8489781454081144`*^9,
3.8489787104007883`*^9, 3.8489789422977114`*^9, 3.848979579481573*^9,
3.848979917210656*^9, 3.848980918825263*^9, 3.8489830887046804`*^9,
3.848994349013242*^9},
CellLabel->
"Out[1646]=",ExpressionUUID->"c9102fdf-ff28-4f57-a978-2aae5449c3c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[1647]:=",ExpressionUUID->"7530e53e-a5d7-42ae-8b76-4ccf3a2da1e9"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.848994349072242*^9},
CellLabel->
"Out[1647]=",ExpressionUUID->"eaaed846-2583-4b0c-8a14-8d70a8527afe"],
Cell[BoxData["0.140822337434858`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.848994349088242*^9},
CellLabel->
"Out[1648]=",ExpressionUUID->"c0d66876-bc01-4379-b54b-d255ebce2af3"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.8489943491002407`*^9},
CellLabel->
"Out[1649]=",ExpressionUUID->"94a3e3ad-166c-41e4-8610-88506527146e"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.848994349113241*^9},
CellLabel->
"Out[1650]=",ExpressionUUID->"78ac5fa8-7f99-41c6-a775-5583cd5f2511"],
Cell[BoxData[
RowBox[{"-", "0.000870685803708387`"}]], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.848994349125242*^9},
CellLabel->
"Out[1651]=",ExpressionUUID->"a814f2b0-3a01-42ac-8d06-0b9928cf6529"],
Cell[BoxData["0.0007109119817902071`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8487392292077694`*^9, 3.848739549470852*^9, 3.8487405076062207`*^9,
3.8487434220981245`*^9, 3.8487444263987694`*^9, 3.8487448399430933`*^9,
3.8487449798626995`*^9, 3.848745023540718*^9, 3.848974608015523*^9,
3.8489747905593357`*^9, 3.8489750584651513`*^9, 3.8489767102418566`*^9,
3.8489768304219246`*^9, 3.848977464131489*^9, 3.848978145677105*^9,
3.848978710521783*^9, 3.848978942451781*^9, 3.8489795795905733`*^9,
3.8489799173386946`*^9, 3.84898091911325*^9, 3.8489830889526777`*^9,
3.8489943491372423`*^9},
CellLabel->
"Out[1652]=",ExpressionUUID->"1c5e6fb7-e1c7-408d-961b-afb72bade6a9"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{622.5, 683.25},
WindowMargins->{{Automatic, 34.5}, {Automatic, 16.5}},
DockedCells->{},
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f8379975-f982-4160-a393-139d3c8925d3"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 197, 3, 160, "Title",ExpressionUUID->"5800cf84-acac-472c-b324-10efb672be7e"],
Cell[CellGroupData[{
Cell[802, 29, 166, 3, 69, "Chapter",ExpressionUUID->"e30dabb3-59c3-4a63-adeb-be33efc378de"],
Cell[971, 34, 2835, 79, 250, "Input",ExpressionUUID->"a3af7e09-643e-4320-b439-230186301da0"]
}, Open ]],
Cell[CellGroupData[{
Cell[3843, 118, 155, 3, 69, "Chapter",ExpressionUUID->"c72fc43e-1dde-4440-8b27-42cdbb1999e2"],
Cell[4001, 123, 1046, 34, 97, "Input",ExpressionUUID->"483fbb2b-c5e2-4ba1-ab4d-075fff7d6dda"],
Cell[5050, 159, 1151, 37, 97, "Input",ExpressionUUID->"fe84cacf-779e-4e68-91cf-d8b23b975b90"]
}, Open ]],
Cell[CellGroupData[{
Cell[6238, 201, 229, 4, 69, "Chapter",ExpressionUUID->"cfab7e40-e161-48dd-807c-973fec982437"],
Cell[6470, 207, 1222, 34, 92, "Input",ExpressionUUID->"e260805b-c992-4ca3-a600-b8216818242f"]
}, Open ]],
Cell[CellGroupData[{
Cell[7729, 246, 138, 2, 69, "Chapter",ExpressionUUID->"f382388f-6dfa-45be-b7e1-92c10260e2ae"],
Cell[7870, 250, 709, 21, 69, "Input",ExpressionUUID->"c0162d20-cfac-450e-8df6-def9a46736fd"]
}, Open ]],
Cell[CellGroupData[{
Cell[8616, 276, 194, 3, 117, "Chapter",ExpressionUUID->"1b058fde-0e35-403a-87b3-3a12ba8c0231"],
Cell[8813, 281, 4613, 136, 288, "Input",ExpressionUUID->"f73d6909-ba10-441b-9c87-37517c5252d1"]
}, Open ]],
Cell[CellGroupData[{
Cell[13463, 422, 162, 3, 69, "Chapter",ExpressionUUID->"1fd19a7c-e82a-4965-b763-82e4cab0d915"],
Cell[13628, 427, 1420, 45, 67, "Input",ExpressionUUID->"2e50503a-b381-4286-b71f-94eee46caa32"],
Cell[15051, 474, 1385, 47, 67, "Input",ExpressionUUID->"410e7868-3045-4318-9854-5b95b4260612"],
Cell[16439, 523, 992, 27, 90, "Input",ExpressionUUID->"a848c226-df5e-47c4-8750-47b028fb170e"],
Cell[17434, 552, 1725, 46, 122, "Input",ExpressionUUID->"aba1e75e-e84c-455d-addd-12ce22e3f736"],
Cell[19162, 600, 834, 27, 48, "Input",ExpressionUUID->"ca2c4a5f-e04e-4489-a99e-26503d1e6bd2"],
Cell[19999, 629, 1420, 47, 67, "Input",ExpressionUUID->"19144da5-3aef-4d70-9ce0-b44ca3025dda"],
Cell[21422, 678, 1416, 49, 67, "Input",ExpressionUUID->"21a62bea-dfc6-4895-b98b-52fc0680f590"],
Cell[22841, 729, 2994, 96, 238, "Input",ExpressionUUID->"071b8fe2-7c16-4911-b6c8-c1c4b5ec705c"],
Cell[25838, 827, 1721, 46, 160, "Input",ExpressionUUID->"36415296-cbba-46b1-8031-3bf58dfa7e44"],
Cell[27562, 875, 749, 24, 48, "Input",ExpressionUUID->"def3c89b-e53b-4dda-870b-b6721a5fb3e3"],
Cell[28314, 901, 791, 26, 48, "Input",ExpressionUUID->"ee24fe27-6c20-4ee1-bbd8-9f8b58798324"],
Cell[29108, 929, 1548, 43, 146, "Input",ExpressionUUID->"881b2c82-57b0-4da6-83f4-b141adabd155"],
Cell[30659, 974, 1138, 35, 80, "Input",ExpressionUUID->"e90aa459-05fd-44e5-ad34-2e435902fa2f"],
Cell[31800, 1011, 552, 15, 48, "Input",ExpressionUUID->"7685a782-aa03-4b9d-a41f-40aba4406337"],
Cell[32355, 1028, 894, 23, 69, "Input",ExpressionUUID->"806adb9a-f5ab-4595-89e6-a55aa62420d0"],
Cell[33252, 1053, 1268, 28, 48, "Input",ExpressionUUID->"6db15a9c-fb7f-4a17-ba51-e2dd4bd93fc4"],
Cell[34523, 1083, 4791, 137, 484, "Input",ExpressionUUID->"8711532a-a62a-4882-b2aa-4530b4bb9628"],
Cell[39317, 1222, 4987, 155, 461, "Input",ExpressionUUID->"8afcdfb0-5278-43b9-bc83-3af3304802dd"],
Cell[44307, 1379, 1059, 31, 124, "Input",ExpressionUUID->"bd41187f-35a0-4698-9601-df4a049d9ad8"],
Cell[45369, 1412, 1396, 36, 170, "Input",ExpressionUUID->"b2905676-9a2a-4068-a6ae-c641a4ee30ab"],
Cell[46768, 1450, 1285, 39, 121, "Input",ExpressionUUID->"f801456e-bfc1-4c1b-83c0-1ce8c1317786"]
}, Open ]],
Cell[CellGroupData[{
Cell[48090, 1494, 163, 3, 69, "Chapter",ExpressionUUID->"e78c86aa-8263-4f62-a15a-52211e443465"],
Cell[48256, 1499, 311, 6, 28, "Input",ExpressionUUID->"8ae7e705-b7ca-4de8-bb82-d677547cbc29"],
Cell[48570, 1507, 2861, 77, 167, "Input",ExpressionUUID->"e34d3b22-b230-456d-818b-f30a7250017f"],
Cell[51434, 1586, 4633, 142, 540, "Input",ExpressionUUID->"e48ec88f-a6f7-4a28-af29-a16e1a690134"]
}, Open ]],
Cell[CellGroupData[{
Cell[56104, 1733, 188, 3, 117, "Chapter",ExpressionUUID->"150ca7d4-26fa-433a-a79f-2a7eae8f5a69"],
Cell[56295, 1738, 3088, 85, 196, "Input",ExpressionUUID->"247e1fe4-f8fc-4abf-a456-18e28936650e"]
}, Open ]],
Cell[CellGroupData[{
Cell[59420, 1828, 161, 3, 69, "Chapter",ExpressionUUID->"30bea310-c987-49a2-b25f-064b6bc417be"],
Cell[59584, 1833, 353, 8, 48, "Input",ExpressionUUID->"bf3a7afe-ea88-4956-a61a-19be929246bb"],
Cell[59940, 1843, 857, 17, 28, "Input",ExpressionUUID->"43973186-0894-4996-b598-89860dfd3eb8"],
Cell[60800, 1862, 153, 3, 35, "Text",ExpressionUUID->"1de41735-4275-40c9-bfee-b60085bee3d4"],
Cell[CellGroupData[{
Cell[60978, 1869, 1894, 44, 143, "Input",ExpressionUUID->"d5d429b3-6139-4e73-a61b-18495a7d9d36"],
Cell[62875, 1915, 1468, 21, 32, "Output",ExpressionUUID->"bbf0a3c4-8a0c-45d8-ac35-e291246a75b1"],
Cell[64346, 1938, 1470, 21, 32, "Output",ExpressionUUID->"e64b86db-e952-47e4-a0e0-aa3378237232"],
Cell[65819, 1961, 1470, 21, 32, "Output",ExpressionUUID->"0b61bb67-d36e-468e-8115-986f7c84bc0a"],
Cell[67292, 1984, 1468, 21, 32, "Output",ExpressionUUID->"98bce1e2-1e48-4d6a-a8d4-a4372716688b"],
Cell[68763, 2007, 1470, 21, 32, "Output",ExpressionUUID->"193e7bfc-e6b2-49fe-b5fd-4dc50758c1aa"],
Cell[70236, 2030, 1470, 21, 32, "Output",ExpressionUUID->"ec549fc0-5b12-47af-a15c-802699b1883e"]
}, Open ]],
Cell[CellGroupData[{
Cell[71743, 2056, 1437, 33, 124, "Input",ExpressionUUID->"b1bc4115-5b63-4af1-877e-61a15efb604c"],
Cell[73183, 2091, 777, 12, 32, "Output",ExpressionUUID->"349ee9f2-3c7e-4615-9a1d-266a78095b2d"],
Cell[73963, 2105, 777, 12, 32, "Output",ExpressionUUID->"8c05a0d7-00fa-4c91-babe-011385788580"],
Cell[74743, 2119, 777, 12, 32, "Output",ExpressionUUID->"b4afa6c4-660a-41f5-8e22-9797e57e3df3"],
Cell[75523, 2133, 779, 12, 32, "Output",ExpressionUUID->"c8094721-72b4-4f0b-a692-300adb6c6def"],
Cell[76305, 2147, 779, 12, 32, "Output",ExpressionUUID->"13d9879a-ff4e-4554-830c-e9b0c485b714"],
Cell[77087, 2161, 779, 12, 32, "Output",ExpressionUUID->"71bb604d-bc73-4e3f-b624-0d13f39d5fb2"]
}, Open ]],
Cell[CellGroupData[{
Cell[77903, 2178, 1569, 40, 124, "Input",ExpressionUUID->"78f923c9-3b55-4b22-8d02-08cfb323dce7"],
Cell[79475, 2220, 1275, 19, 32, "Output",ExpressionUUID->"d9d874d1-f2bf-4e7f-870a-c25637f30f3c"],
Cell[80753, 2241, 1593, 31, 58, "Output",ExpressionUUID->"d1576d87-475b-4be8-8600-8944e6cdea82"],
Cell[82349, 2274, 1275, 19, 32, "Output",ExpressionUUID->"0517960d-55ed-40f6-b3ca-ed197965fd55"],
Cell[83627, 2295, 1273, 19, 32, "Output",ExpressionUUID->"06353d6b-7184-445d-9912-aba702dc64e0"],
Cell[84903, 2316, 1562, 30, 67, "Output",ExpressionUUID->"784629fd-aec2-49b6-ad53-fbc637e33a86"],
Cell[86468, 2348, 1568, 30, 55, "Output",ExpressionUUID->"0356cc85-c7c8-48ff-adf0-fba964b6936c"]
}, Open ]],
Cell[CellGroupData[{
Cell[88073, 2383, 1437, 33, 124, "Input",ExpressionUUID->"6cd61700-777b-4d45-9b38-37b620a09015"],
Cell[89513, 2418, 876, 13, 32, "Output",ExpressionUUID->"d5029cd7-5f0b-4d93-9056-8c535c91341b"],
Cell[90392, 2433, 909, 14, 32, "Output",ExpressionUUID->"58c4fc95-7ae0-4ee7-9c78-bf37c5492b3c"],
Cell[91304, 2449, 876, 13, 32, "Output",ExpressionUUID->"ccfcdcec-bf0e-4996-a44e-307a7f699f13"],
Cell[92183, 2464, 874, 13, 32, "Output",ExpressionUUID->"9cedabc6-d49d-4597-8771-90b7edc4a8bf"],
Cell[93060, 2479, 890, 13, 32, "Output",ExpressionUUID->"a958c48e-358d-4d74-9fc3-61aa6b8b60e6"],
Cell[93953, 2494, 907, 14, 32, "Output",ExpressionUUID->"7d58c1fd-6369-443b-b968-207feaa71b63"]
}, Open ]],
Cell[CellGroupData[{
Cell[94897, 2513, 1692, 42, 143, "Input",ExpressionUUID->"90c2a043-7407-4c99-ae1f-70d9062f80fe"],
Cell[96592, 2557, 534, 11, 32, "Output",ExpressionUUID->"b8496e32-8aed-4547-8b0c-b109e527284a"],
Cell[97129, 2570, 534, 11, 32, "Output",ExpressionUUID->"a5d0d8eb-47ad-45a2-a6a7-f1de1545d6b3"],
Cell[97666, 2583, 1103, 30, 57, "Output",ExpressionUUID->"3c8a9d2b-8430-4408-81fb-388a494f0529"],
Cell[98772, 2615, 1174, 33, 67, "Output",ExpressionUUID->"d96b4a65-95fd-4be6-b322-52b322765bfc"],
Cell[99949, 2650, 534, 11, 32, "Output",ExpressionUUID->"75de1a32-0351-4e9d-9c3f-989cbe831b3e"],
Cell[100486, 2663, 534, 11, 32, "Output",ExpressionUUID->"f9597f94-3caf-493a-8fc2-1aff9c52d19f"]
}, Open ]],
Cell[CellGroupData[{
Cell[101057, 2679, 1437, 33, 124, "Input",ExpressionUUID->"34a11c45-d7a5-449b-b64b-c5ef5923d7ae"],
Cell[102497, 2714, 757, 11, 32, "Output",ExpressionUUID->"69ff1278-3a25-4534-83bf-f6c94690fd52"],
Cell[103257, 2727, 757, 11, 32, "Output",ExpressionUUID->"36fb466d-c4ef-4b53-b8ba-904deec734ec"],
Cell[104017, 2740, 788, 12, 32, "Output",ExpressionUUID->"4f9e6d95-edeb-4c8b-8595-1c1bb0fa0703"],
Cell[104808, 2754, 790, 12, 32, "Output",ExpressionUUID->"12f7728e-207e-4db7-a748-82b49b891327"],
Cell[105601, 2768, 755, 11, 32, "Output",ExpressionUUID->"716f59f0-b914-4b02-93bb-60428d09f7bf"],
Cell[106359, 2781, 757, 11, 32, "Output",ExpressionUUID->"34b5afa6-e6eb-4a61-8087-71a75a7ce7c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[107153, 2797, 1619, 40, 124, "Input",ExpressionUUID->"0d517216-6e0e-4080-8242-1ad50649d16d"],
Cell[108775, 2839, 517, 10, 32, "Output",ExpressionUUID->"4d359f46-0a6a-41e3-a8c2-f37337fe9ecf"],
Cell[109295, 2851, 517, 10, 32, "Output",ExpressionUUID->"7d199060-feb5-4c04-a666-24651fb0f352"],
Cell[109815, 2863, 1157, 32, 67, "Output",ExpressionUUID->"23184752-afad-45d9-bb96-9cfacebada2c"],
Cell[110975, 2897, 1117, 30, 57, "Output",ExpressionUUID->"44ebf988-727a-4af2-a981-05b6ac90ecb0"],
Cell[112095, 2929, 517, 10, 32, "Output",ExpressionUUID->"39d02f41-c565-4e78-baa6-3d0a1ef1b2b6"],
Cell[112615, 2941, 517, 10, 32, "Output",ExpressionUUID->"093bb038-6691-45a3-821e-b73ce3c26653"]
}, Open ]],
Cell[CellGroupData[{
Cell[113169, 2956, 1437, 33, 124, "Input",ExpressionUUID->"58cde267-3155-46b4-98ec-12330ccd1057"],
Cell[114609, 2991, 757, 11, 32, "Output",ExpressionUUID->"508e2108-cfa4-4164-9fb3-8b6fd0c013df"],
Cell[115369, 3004, 759, 11, 32, "Output",ExpressionUUID->"a8c5ce46-99d6-4d37-b30f-190cd9c14c54"],
Cell[116131, 3017, 790, 12, 32, "Output",ExpressionUUID->"020544c5-1fd1-43c5-9f82-2ba2db17f937"],
Cell[116924, 3031, 792, 12, 32, "Output",ExpressionUUID->"a3cd69ec-bdeb-486d-bbe5-5836d2eacd20"],
Cell[117719, 3045, 757, 11, 32, "Output",ExpressionUUID->"70611f7d-f5af-49ec-b7f2-c30c0e1b70ae"],
Cell[118479, 3058, 757, 11, 32, "Output",ExpressionUUID->"a6649745-cf46-495f-b2a6-112456f57bea"]
}, Open ]],
Cell[CellGroupData[{
Cell[119273, 3074, 1625, 40, 124, "Input",ExpressionUUID->"dfd22164-d866-44f0-bd75-1f280ea4a269"],
Cell[120901, 3116, 517, 10, 32, "Output",ExpressionUUID->"ce70714a-0b7c-4ce7-9246-4f4584f809fa"],
Cell[121421, 3128, 806, 21, 67, "Output",ExpressionUUID->"d35554e4-1362-491d-a573-c06348e5f2d3"],
Cell[122230, 3151, 517, 10, 32, "Output",ExpressionUUID->"b23d181c-8921-4125-a49e-dcc23385b3f1"],
Cell[122750, 3163, 517, 10, 32, "Output",ExpressionUUID->"eff84faf-d8d5-482e-9bcc-6d27e03b15b4"],
Cell[123270, 3175, 1015, 27, 57, "Output",ExpressionUUID->"b12ccd1e-eb7b-4d6d-90ea-a9cc2ffc44fc"],
Cell[124288, 3204, 958, 26, 67, "Output",ExpressionUUID->"d39a97de-e36b-4506-8503-2d5b96ebf339"]
}, Open ]],
Cell[CellGroupData[{
Cell[125283, 3235, 1437, 33, 124, "Input",ExpressionUUID->"622943c7-298a-4fa7-81b5-380b90ade6e5"],
Cell[126723, 3270, 734, 11, 32, "Output",ExpressionUUID->"8471a326-6d1e-41fe-a0cc-3277aeed2e6e"],
Cell[127460, 3283, 748, 11, 32, "Output",ExpressionUUID->"b1ba0cae-6e53-4ebc-ace8-e12b5725816d"],
Cell[128211, 3296, 732, 11, 32, "Output",ExpressionUUID->"cfdba534-0169-4daa-a709-cd8c9fa90552"],
Cell[128946, 3309, 732, 11, 32, "Output",ExpressionUUID->"60ffa74e-8be9-46e5-a5da-cef1a0c35eac"],
Cell[129681, 3322, 766, 12, 32, "Output",ExpressionUUID->"bdbf2bb7-ccd9-4d46-a4d4-012ca5d006ec"],
Cell[130450, 3336, 768, 12, 32, "Output",ExpressionUUID->"01db5565-3a59-4691-881d-fb7a8999b58c"]
}, Open ]],
Cell[CellGroupData[{
Cell[131255, 3353, 1725, 42, 124, "Input",ExpressionUUID->"7a86d2eb-6d80-4dfa-b315-aee96260d4e4"],
Cell[132983, 3397, 522, 11, 32, "Output",ExpressionUUID->"763afaea-1c8c-47f1-9cfc-2dee65a4b3cb"],
Cell[133508, 3410, 815, 22, 55, "Output",ExpressionUUID->"c306e84c-52dd-4ecb-8f42-1b2a2bd89e93"],
Cell[134326, 3434, 522, 11, 32, "Output",ExpressionUUID->"ff76d6dd-b200-49b4-b962-da87381b196b"],
Cell[134851, 3447, 522, 11, 32, "Output",ExpressionUUID->"ec5177be-4ea8-409b-95fe-fbcb623adca2"],
Cell[135376, 3460, 963, 27, 67, "Output",ExpressionUUID->"53581ed4-3b56-4aff-9315-dc451368c06e"],
Cell[136342, 3489, 1022, 28, 57, "Output",ExpressionUUID->"cc8bc942-389d-4e29-86b1-d65e82b28dba"]
}, Open ]],
Cell[CellGroupData[{
Cell[137401, 3522, 1437, 33, 124, "Input",ExpressionUUID->"d0ef541b-f98f-4e6c-9350-fe89c46fab56"],
Cell[138841, 3557, 734, 11, 32, "Output",ExpressionUUID->"f3a4cd2c-ade2-425a-94de-ba13d85cff9f"],
Cell[139578, 3570, 767, 12, 32, "Output",ExpressionUUID->"ce0f26c4-aed9-4370-9ec5-20cc03d0f60e"],
Cell[140348, 3584, 734, 11, 32, "Output",ExpressionUUID->"1694ae91-8e1d-4ea2-a662-35799951b210"],
Cell[141085, 3597, 730, 11, 32, "Output",ExpressionUUID->"6c180232-5870-481a-b30e-b7783f425098"],
Cell[141818, 3610, 766, 12, 32, "Output",ExpressionUUID->"e28b7fd1-d469-4af5-988c-1fdf234317ea"],
Cell[142587, 3624, 764, 12, 32, "Output",ExpressionUUID->"c4d27c78-ae6d-4b3a-8a4d-5b20d3791f6d"]
}, Open ]],
Cell[143366, 3639, 152, 3, 35, "Text",ExpressionUUID->"c0e38e0e-a227-430a-8641-bb29a8de252b"],
Cell[CellGroupData[{
Cell[143543, 3646, 1719, 42, 143, "Input",ExpressionUUID->"bb8088a0-be5f-4e59-bc29-186b0ff08e7a"],
Cell[145265, 3690, 1008, 15, 32, "Output",ExpressionUUID->"e35d330f-2277-4172-8a3d-12e7a6abd455"],
Cell[146276, 3707, 1011, 15, 32, "Output",ExpressionUUID->"2a7260a5-f63f-4ed4-8a1f-5edcedb13131"],
Cell[147290, 3724, 1011, 15, 32, "Output",ExpressionUUID->"ca96e52c-340a-48d1-bc1e-2bd3e2fd1ef0"],
Cell[148304, 3741, 1009, 15, 32, "Output",ExpressionUUID->"23c7a7c4-5764-4b5b-a5b0-064594787cb1"],
Cell[149316, 3758, 1011, 15, 32, "Output",ExpressionUUID->"a92d2631-910d-4ce5-bc9a-bf39837c3337"],
Cell[150330, 3775, 1009, 15, 32, "Output",ExpressionUUID->"eee5089b-cea6-4198-8bd0-0d663145b189"]
}, Open ]],
Cell[CellGroupData[{
Cell[151376, 3795, 1437, 33, 124, "Input",ExpressionUUID->"02118b9e-ca60-4694-a509-1b4560366c24"],
Cell[152816, 3830, 719, 11, 32, "Output",ExpressionUUID->"8c58c930-030a-420d-8e17-2feb4c71d120"],
Cell[153538, 3843, 719, 11, 32, "Output",ExpressionUUID->"4e45d97e-3650-4396-a15f-2f312b36196a"],
Cell[154260, 3856, 715, 11, 32, "Output",ExpressionUUID->"28afc996-2b33-40f4-a8ef-ebb5fff19c6e"],
Cell[154978, 3869, 717, 11, 32, "Output",ExpressionUUID->"efe4929b-b385-4d0b-a4b8-b08cb1197ba0"],
Cell[155698, 3882, 717, 11, 32, "Output",ExpressionUUID->"fe444898-dcff-444d-afd1-7ac09c4620d1"],
Cell[156418, 3895, 719, 11, 32, "Output",ExpressionUUID->"905b516d-58d4-4f1e-b772-a910193353f1"]
}, Open ]],
Cell[CellGroupData[{
Cell[157174, 3911, 1620, 41, 143, "Input",ExpressionUUID->"05dfd347-b54a-41a5-b4c0-e160521cfe3f"],
Cell[158797, 3954, 981, 14, 32, "Output",ExpressionUUID->"05104a52-c4ad-42b9-a3ca-aeafedd24568"],
Cell[159781, 3970, 1299, 25, 55, "Output",ExpressionUUID->"d41bbdf5-19ae-411d-8960-63e911fd1fd3"],
Cell[161083, 3997, 979, 14, 32, "Output",ExpressionUUID->"1cea4b1f-c1aa-421b-b35c-d2bd03d39cc1"],
Cell[162065, 4013, 979, 14, 32, "Output",ExpressionUUID->"7a4d41ef-2d52-4f2c-ba80-f0ffce406838"],
Cell[163047, 4029, 1360, 28, 67, "Output",ExpressionUUID->"96a09f74-b5f2-4a32-bff1-0b6386b75f4b"],
Cell[164410, 4059, 1309, 26, 57, "Output",ExpressionUUID->"7964939c-d015-4fcc-b104-fc1a4685d31b"]
}, Open ]],
Cell[CellGroupData[{
Cell[165756, 4090, 1437, 33, 124, "Input",ExpressionUUID->"e99a7e78-4220-42ac-9a71-49b446090412"],
Cell[167196, 4125, 720, 11, 32, "Output",ExpressionUUID->"cc4262a9-368f-4b9f-ba23-bae8ab692296"],
Cell[167919, 4138, 737, 11, 32, "Output",ExpressionUUID->"bd5a8e42-f4c8-45fa-847c-32536729ec0d"],
Cell[168659, 4151, 722, 11, 32, "Output",ExpressionUUID->"e0d0287e-9061-4210-9744-a8487d3c955c"],
Cell[169384, 4164, 720, 11, 32, "Output",ExpressionUUID->"cec3d300-bb04-493e-82e2-5ec470e03ed2"],
Cell[170107, 4177, 758, 12, 32, "Output",ExpressionUUID->"d1e55ef4-f99d-4675-bec9-3bf82f98f594"],
Cell[170868, 4191, 740, 11, 32, "Output",ExpressionUUID->"79c5ef55-2ff9-4e72-84dd-55d044628bca"]
}, Open ]],
Cell[CellGroupData[{
Cell[171645, 4207, 1670, 41, 143, "Input",ExpressionUUID->"ec5a2bfe-eb82-48aa-bfaf-f864e68a15cb"],
Cell[173318, 4250, 959, 14, 32, "Output",ExpressionUUID->"ec960033-37fa-45ac-94ad-866c3ff79015"],
Cell[174280, 4266, 959, 14, 32, "Output",ExpressionUUID->"acffc9b7-e08c-4530-9f24-583ed888c06d"],
Cell[175242, 4282, 1304, 26, 54, "Output",ExpressionUUID->"6eeab6fd-10fa-4abe-9eac-d7766813f7e3"],
Cell[176549, 4310, 1355, 28, 67, "Output",ExpressionUUID->"3c94d97b-b13d-47a7-98fa-a433ee99b984"],
Cell[177907, 4340, 959, 14, 32, "Output",ExpressionUUID->"021b88ad-dff2-423a-a3f6-0e6c0182da4d"],
Cell[178869, 4356, 957, 14, 32, "Output",ExpressionUUID->"d0200f45-2f30-4ecd-9dcc-6d8e78a8e61a"]
}, Open ]],
Cell[CellGroupData[{
Cell[179863, 4375, 1437, 33, 124, "Input",ExpressionUUID->"47d59c3a-ece4-4c76-b599-18ecc80e52d3"],
Cell[181303, 4410, 709, 11, 32, "Output",ExpressionUUID->"0912b3d3-2cb7-4ddf-847e-faa3ddacf114"],
Cell[182015, 4423, 711, 11, 32, "Output",ExpressionUUID->"c3d7fa22-ebb1-45ce-9e90-421c4300cb9c"],
Cell[182729, 4436, 727, 11, 32, "Output",ExpressionUUID->"17caf02a-9e10-48b5-ad00-fa327a30575f"],
Cell[183459, 4449, 745, 12, 32, "Output",ExpressionUUID->"b0d0ec15-9cdf-4178-adab-63d46a31b50a"],
Cell[184207, 4463, 709, 11, 32, "Output",ExpressionUUID->"3ac5cadf-9858-4464-a4fe-7899d7eb2e8e"],
Cell[184919, 4476, 709, 11, 32, "Output",ExpressionUUID->"f7edaadd-42d4-4b25-a1ed-26e275785d69"]
}, Open ]],
Cell[CellGroupData[{
Cell[185665, 4492, 1669, 41, 143, "Input",ExpressionUUID->"805623c7-8249-4440-8dee-9e6579b58943"],
Cell[187337, 4535, 941, 14, 32, "Output",ExpressionUUID->"33017c7c-ab4a-4c3a-8d84-806dd721fbc7"],
Cell[188281, 4551, 939, 14, 32, "Output",ExpressionUUID->"bfb92e34-c9e6-4bb9-b37f-c105b73807fc"],
Cell[189223, 4567, 1337, 28, 67, "Output",ExpressionUUID->"18cea39d-fa3a-4d9a-81e5-ffb848e3c506"],
Cell[190563, 4597, 1284, 26, 54, "Output",ExpressionUUID->"a5fd5117-afe2-4417-9571-ec47164080cc"],
Cell[191850, 4625, 941, 14, 32, "Output",ExpressionUUID->"ba86f0a3-a6b2-4ce5-97e2-527ada04034e"],
Cell[192794, 4641, 939, 14, 32, "Output",ExpressionUUID->"2d5f50d3-7b99-4edb-a3c1-9483a9d11d18"]
}, Open ]],
Cell[CellGroupData[{
Cell[193770, 4660, 1437, 33, 124, "Input",ExpressionUUID->"b447c670-bcb0-44a6-a225-cf1ede827e38"],
Cell[195210, 4695, 702, 11, 32, "Output",ExpressionUUID->"bcc904e1-a407-4a86-ad62-7faf904cdee6"],
Cell[195915, 4708, 703, 11, 32, "Output",ExpressionUUID->"8f3f5697-3961-4f61-b615-ac7dc3a0e68d"],
Cell[196621, 4721, 736, 12, 32, "Output",ExpressionUUID->"123ab2fe-9a9c-4b23-ad90-4fa4a2890908"],
Cell[197360, 4735, 722, 11, 32, "Output",ExpressionUUID->"688fb57a-5df8-423a-80f3-d1005ed53dbc"],
Cell[198085, 4748, 703, 11, 32, "Output",ExpressionUUID->"51de448e-bb6a-4490-b7b1-c41a9ec63543"],
Cell[198791, 4761, 703, 11, 32, "Output",ExpressionUUID->"f9aeb14e-1023-4fdd-a049-672b4a78185c"]
}, Open ]],
Cell[CellGroupData[{
Cell[199531, 4777, 1665, 41, 143, "Input",ExpressionUUID->"3726b455-7635-41c9-a459-bf4710e20f41"],
Cell[201199, 4820, 945, 14, 32, "Output",ExpressionUUID->"0ad815c9-2be7-4549-92e1-a3edb46fd8a3"],
Cell[202147, 4836, 1326, 28, 67, "Output",ExpressionUUID->"306c20d8-0ba7-40bf-aabf-d2977a6616f8"],
Cell[203476, 4866, 945, 14, 32, "Output",ExpressionUUID->"8de9b17e-f120-4dbb-9187-61b516854da5"],
Cell[204424, 4882, 947, 14, 32, "Output",ExpressionUUID->"6d5ac859-9bc2-4ba2-bc71-f06aa23c9bd4"],
Cell[205374, 4898, 1268, 26, 54, "Output",ExpressionUUID->"98e9b6d9-3a2e-40fb-8448-4366081b66af"],
Cell[206645, 4926, 1319, 28, 67, "Output",ExpressionUUID->"10f38157-f01d-483b-96f4-5fee8ce54274"]
}, Open ]],
Cell[CellGroupData[{
Cell[208001, 4959, 1437, 33, 124, "Input",ExpressionUUID->"2931cabe-f550-4f3b-aa14-f17d67805266"],
Cell[209441, 4994, 710, 11, 32, "Output",ExpressionUUID->"ca5fb9c4-2795-4dab-a966-f552874484d0"],
Cell[210154, 5007, 744, 12, 32, "Output",ExpressionUUID->"1b51b972-6e05-467e-b6c3-468fb29c91ee"],
Cell[210901, 5021, 712, 11, 32, "Output",ExpressionUUID->"a2af5a47-7d54-44c7-a90b-89f56b138756"],
Cell[211616, 5034, 712, 11, 32, "Output",ExpressionUUID->"cf556787-20e8-4279-8de6-615fe4a99768"],
Cell[212331, 5047, 731, 11, 32, "Output",ExpressionUUID->"e5ad39a4-60f1-4271-a3e5-ede0f2a21d94"],
Cell[213065, 5060, 745, 12, 32, "Output",ExpressionUUID->"fe9d5949-1410-4282-b621-e50c9fc9cea9"]
}, Open ]],
Cell[CellGroupData[{
Cell[213847, 5077, 1667, 41, 143, "Input",ExpressionUUID->"87e96d80-32cb-454e-8d9c-19670a98717a"],
Cell[215517, 5120, 924, 14, 32, "Output",ExpressionUUID->"907ebc42-4508-4dff-9ca2-0249c5553c67"],
Cell[216444, 5136, 1252, 26, 57, "Output",ExpressionUUID->"d1c742f4-77de-44b0-b8a1-fb55e32ddf87"],
Cell[217699, 5164, 924, 14, 32, "Output",ExpressionUUID->"5b6c3352-9af6-48fe-9090-8e2e849eb083"],
Cell[218626, 5180, 926, 14, 32, "Output",ExpressionUUID->"0c1dd2c5-3c7b-4943-8d03-c31afce7ad7f"],
Cell[219555, 5196, 1297, 28, 67, "Output",ExpressionUUID->"d572e795-cc92-44f7-915e-effc962ddf15"],
Cell[220855, 5226, 1245, 26, 54, "Output",ExpressionUUID->"c9102fdf-ff28-4f57-a978-2aae5449c3c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[222137, 5257, 1437, 33, 124, "Input",ExpressionUUID->"7530e53e-a5d7-42ae-8b76-4ccf3a2da1e9"],
Cell[223577, 5292, 715, 11, 32, "Output",ExpressionUUID->"eaaed846-2583-4b0c-8a14-8d70a8527afe"],
Cell[224295, 5305, 730, 11, 32, "Output",ExpressionUUID->"c0d66876-bc01-4379-b54b-d255ebce2af3"],
Cell[225028, 5318, 717, 11, 32, "Output",ExpressionUUID->"94a3e3ad-166c-41e4-8610-88506527146e"],
Cell[225748, 5331, 715, 11, 32, "Output",ExpressionUUID->"78ac5fa8-7f99-41c6-a775-5583cd5f2511"],
Cell[226466, 5344, 750, 12, 32, "Output",ExpressionUUID->"a814f2b0-3a01-42ac-8d06-0b9928cf6529"],
Cell[227219, 5358, 736, 11, 55, "Output",ExpressionUUID->"1c5e6fb7-e1c7-408d-961b-afb72bade6a9"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
c4science · Help