Homec4science
Diffusion COSOlver (new_coulomb) Browse

cosolver/Mathematica_scripts/moment_sugama/moment_improved_sugama.nb
83b8f38f6c51new_coulomb

Last Change
Raw File

moment_improved_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[ 141003, 3661]
NotebookOptionsPosition[ 126966, 3454]
NotebookOutlinePosition[ 127360, 3470]
CellTagsIndexPosition[ 127317, 3467]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Hermite-Laguerre moments of Improved Sugama correction", "Title",
CellChangeTimes->{{3.848371900950591*^9,
3.8483719125115333`*^9}},ExpressionUUID->"310c3e51-f1a5-4611-bc9e-\
ab0a79bcc149"],
Cell[CellGroupData[{
Cell["Physical Parameters", "Chapter",
CellChangeTimes->{{3.848371920870713*^9,
3.8483719245517535`*^9}},ExpressionUUID->"d85bb46b-debb-41a5-a2a9-\
2a9f51f10e5d"],
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"}]}], ")"}]}]}], ";"}]}], "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}},
CellLabel->"In[41]:=",ExpressionUUID->"5a923148-5d29-4862-b230-f9a771b02287"]
}, Open ]],
Cell[CellGroupData[{
Cell["Speed integrated Error functions", "Chapter",
CellChangeTimes->{
3.8483721006653337`*^9},ExpressionUUID->"b9619d6b-05f1-4a49-9e76-\
cf6dd7e7e979"],
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"}]]}]}]}]}], "\[IndentingNewLine]",
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.848372114722021*^9, {3.848677625977066*^9, 3.84867762614536*^9}},
CellLabel->"In[46]:=",ExpressionUUID->"e271d785-161d-4b28-a441-41e687626b2c"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8483876554768567`*^9, 3.848387681833247*^9},
3.848677628447968*^9},ExpressionUUID->"ff721210-a9c8-4b5b-b82f-\
f8433f9695bd"]
}, Open ]],
Cell[CellGroupData[{
Cell["Spherical harmonic norm coeff", "Chapter",
CellChangeTimes->{{3.8483721397909265`*^9, 3.8483721415883875`*^9}, {
3.8483933722638645`*^9,
3.848393373063397*^9}},ExpressionUUID->"854cc2ce-652f-4212-b7b1-\
67ca1152aef7"],
Cell[BoxData[{
RowBox[{
RowBox[{"sigmajp", "[",
RowBox[{"j_", ",", "p_"}], "]"}], " ", ":=", " ",
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}},
CellLabel->"In[50]:=",ExpressionUUID->"f7f85cb1-011b-4e9a-a7d9-ade68b25e295"]
}, Open ]],
Cell[CellGroupData[{
Cell["Laguerre coefficient", "Chapter",
CellChangeTimes->{
3.84837291085044*^9},ExpressionUUID->"e8799af6-6144-4ac6-a07f-2fc11456b629"],
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[52]:=",ExpressionUUID->"ffa92f40-3afb-4f00-9daf-7c5a90d1e436"]
}, Open ]],
Cell[CellGroupData[{
Cell["Basis Transformation Coefficient : T_ {lk}^{pj}", "Chapter",
CellChangeTimes->{{3.8483729270774865`*^9,
3.848372938153451*^9}},ExpressionUUID->"2f90102b-f0d5-44c2-bb2b-\
356e473b100f"],
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"}]}], ")"}], "!"}], " "}]]}]}]}], "Input",
CellChangeTimes->{{3.8485645139681797`*^9, 3.8485645165326085`*^9}},
CellLabel->
"In[147]:=",ExpressionUUID->"11dbcede-9de3-42ce-aae8-0f3e096ce8f3"]
}, Open ]],
Cell[CellGroupData[{
Cell["Particle Moments", "Chapter",
CellChangeTimes->{{3.848373130052885*^9,
3.848373133932454*^9}},ExpressionUUID->"854b8f1a-14bf-45f5-afc8-\
529ae35205de"],
Cell[BoxData[
RowBox[{
RowBox[{"Mab", "[",
RowBox[{"p_", ",", "j_", ",", " ", "g_", ",", " ", "h_"}], "]"}], " ", ":=",
" ",
RowBox[{
SubsuperscriptBox["\[Sum]",
RowBox[{"gg", "=", "0"}],
RowBox[{"p", "+",
RowBox[{"2", "j"}]}]],
RowBox[{
SubsuperscriptBox["\[Sum]",
RowBox[{"hh", "=", "0"}],
RowBox[{"j", " ", "+", " ",
RowBox[{"Floor", "[",
RowBox[{"p", "/", "2"}], "]"}]}]],
RowBox[{
SqrtBox[
RowBox[{
SuperscriptBox["2", "gg"],
RowBox[{"gg", "!"}]}]],
RowBox[{"T", "[",
RowBox[{"p", ",", "j", ",", "gg", ",", "hh"}], "]"}], " ",
RowBox[{"KroneckerDelta", "[",
RowBox[{"gg", ",", "g"}], "]"}], " ",
RowBox[{"KroneckerDelta", "[",
RowBox[{"hh", ",", "h"}], "]"}]}]}]}]}]], "Input",
CellChangeTimes->{
3.8483731492787666`*^9, {3.848373434439438*^9, 3.8483734740289445`*^9},
3.848387848772177*^9},
CellLabel->
"In[149]:=",ExpressionUUID->"a90d9482-a8fb-476b-9d0a-2aac948168f6"]
}, Open ]],
Cell[CellGroupData[{
Cell["Speed Functions", "Chapter",
CellChangeTimes->{{3.848375726843643*^9,
3.8483757324279413`*^9}},ExpressionUUID->"5834c9be-1ff2-462e-9fd7-\
97fab78363f2"],
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]"}]}]}], "\n",
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]"}]}]}], "\n",
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[{
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"}]}]]}]}],
" "}], "\n",
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.848376205287338*^9, 3.8483763264216413`*^9}, {
3.8483959104899197`*^9, 3.8483959113230753`*^9}, 3.8486544673134804`*^9,
3.848677651547954*^9},
CellLabel->
"In[150]:=",ExpressionUUID->"6efc656b-7bf6-4861-8bf3-2a2fc5d355b3"],
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"}], ")"}]}]}]}], "\n",
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"}], ")"}]}]}]}], "\n",
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"}], ")"}]}]}]}], "\n",
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"]}]}]}],
")"}]}]}], "\n",
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.8483767369573717`*^9, 3.848376779043248*^9}, {
3.8484833242504716`*^9, 3.848483325547778*^9}, 3.8486776720656357`*^9},
CellLabel->
"In[159]:=",ExpressionUUID->"0c3c17c5-8c13-4980-a5ac-f2943002251a"],
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]"}]}]}], "\n",
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]"}]}]}], "\n",
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.848379882316622*^9, 3.8483799519644833`*^9},
3.848677680302784*^9},
CellLabel->
"In[169]:=",ExpressionUUID->"3f3d66a9-be18-49c6-a41e-2fc0e43acf25"],
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[174]:=",ExpressionUUID->"b903581e-da3b-4d6f-82c1-7f75fc3d8ec4"],
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[175]:=",ExpressionUUID->"02dbbd11-226d-451a-92ea-2c4db75812e0"],
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}},
CellLabel->
"In[176]:=",ExpressionUUID->"7901b4a1-5bbc-4422-90bf-e69ab3ac79b6"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarParaab", "[", "k_", "]"}], ":=", " ",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"k", "-", "3"}]}]], "-",
RowBox[{"\[Chi]", " ",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"k", "-", "2"}]}]]}]}], ")"}], "/",
RowBox[{"\[Chi]", "^", "2", " ",
RowBox[{"(*",
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}},
CellLabel->
"In[178]:=",ExpressionUUID->"8d52ba63-b682-474f-ba9f-7c6dd6662be5"],
Cell[BoxData[{
RowBox[{
RowBox[{"CurlyVab", "[", "l_", "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}],
SubscriptBox["\[Theta]", "ab"],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}],
FractionBox["4",
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"],
FractionBox[
RowBox[{"\[Chi]",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]],
RowBox[{"UParaa", "[", "l", "]"}]}], "+",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=", "0"}], "l"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "m"}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"\[Chi]", "^", "2"}]],
SubscriptBox["E",
RowBox[{"ab", ",", "m"}]]}], "-",
RowBox[{
FractionBox["1", "\[Chi]"],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"m", "+", "1"}]}]]}]}], ")"}]}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CurlyVba", "[", "l_", "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}],
SubscriptBox["\[Theta]", "ba"],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"(",
FractionBox["1",
RowBox[{"\[Chi]", "^", "2"}]], ")"}]}], ")"}],
FractionBox[
RowBox[{"4",
RowBox[{"\[Sigma]", "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}],
RowBox[{"\[Tau]", "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"],
FractionBox[
RowBox[{
RowBox[{"1", "/", "\[Chi]"}],
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ba"], "-", "1"}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "\[Chi]"}], ")"}], "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]],
RowBox[{"UParab", "[", "l", "]"}]}], "+",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=", "0"}], "l"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "m"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"\[Chi]", "^", "2"}],
SubscriptBox["E",
RowBox[{"ba", ",", "m"}]]}], "-",
RowBox[{"\[Chi]", " ",
SubscriptBox["e",
RowBox[{"ba", ",",
RowBox[{"m", "+", "1"}]}]]}]}], ")"}]}]}]}], ")"}]}]}]}], "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},
CellLabel->
"In[179]:=",ExpressionUUID->"35c04f88-d660-40f0-9035-b8b782ab1296"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Braginskii matrices", "Title",
CellChangeTimes->{{3.848374151434737*^9, 3.8483741672082443`*^9}, {
3.8483893333014617`*^9, 3.8483893345575876`*^9}, {3.848483337163499*^9,
3.8484833386426*^9}},ExpressionUUID->"80cfaa8c-473b-466d-b451-c63961a6e516"],
Cell[TextData[StyleBox["Braginskii matrix element for Landau operator", \
"Chapter"]], "Text",
CellChangeTimes->{{3.8483780821428275`*^9,
3.84837811348337*^9}},ExpressionUUID->"57d54ea5-3a48-451f-8897-\
7859f0434fb9"],
Cell[BoxData[{
RowBox[{
RowBox[{"MabL", "[",
RowBox[{"l_", ",", "k_"}], "]"}], " ", ":=", " ",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"ll", "=", "0"}], "l"],
RowBox[{
FractionBox["2", "3"],
FractionBox[
SubscriptBox["\[Tau]", "ab"], "1"],
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "ll"}]],
RowBox[{"NuBarStarTab", "[",
RowBox[{"1", ",", "k", ",", "ll"}], "]"}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NabL", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"ll", "=", "0"}], "l"],
RowBox[{
FractionBox["2", "3"],
FractionBox[
SubscriptBox["\[Tau]", "ab"], "1"], "\[Chi]", " ",
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "ll"}]],
RowBox[{"NuBarStarFab", "[",
RowBox[{"1", ",", "k", ",", "ll"}], "]"}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483747861646523`*^9, 3.84837479313754*^9}, {
3.8483748343235207`*^9, 3.8483749618474116`*^9}, {3.848375015090785*^9,
3.848375089234338*^9}, {3.84837531178605*^9, 3.8483753142482553`*^9}, {
3.848375748161376*^9, 3.8483757559231577`*^9}, {3.848393090531102*^9,
3.8483930924825754`*^9}, {3.8483977601271772`*^9, 3.848397771167674*^9}},
CellLabel->
"In[181]:=",ExpressionUUID->"be39ef20-e57a-4b9b-9da0-b187f9239f85"],
Cell[TextData[StyleBox["Braginskii matrix elements for Original Sugama \
operator", "Chapter"]], "Text",
CellChangeTimes->{{3.84837812109403*^9,
3.848378134162278*^9}},ExpressionUUID->"05e17edb-1d68-4afd-a9b2-\
77b189039f99"],
Cell[BoxData[{
RowBox[{
RowBox[{"MabS1", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox[
SubscriptBox["\[Tau]", "ab"], "1"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"l1", "=", "0"}], "l"],
RowBox[{
FractionBox["2", "3"],
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "l1"}]],
RowBox[{"NuBarStarSab", "[",
RowBox[{"1", ",", "k", ",", "l1"}],
"]"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"MabS2", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", "*", "8"}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}]]}],
SubscriptBox["\[Tau]", "ab"],
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"UParaa", "[", "k", "]"}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"l1", "=", "0"}], "l"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "l", ",", "l1"}]],
RowBox[{"NuBarParaab", "[",
RowBox[{"l1", "+", "3"}], "]"}]}]}]}], "+",
RowBox[{
RowBox[{"UParaa", "[", "l", "]"}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"k1", "=", "0"}], "k"],
RowBox[{
SubscriptBox["L",
RowBox[{"1", ",", "k", ",", "k1"}]],
RowBox[{"NuBarParaab", "[",
RowBox[{"k1", "+", "3"}], "]"}]}]}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"MabS3", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", "\[Chi]",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "-", "1"}], ")"}], "^", "2"}]}],
RowBox[{"Sqrt", "[",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], "]"}]]}],
RowBox[{"UParaa", "[", "k", "]"}],
RowBox[{"UParaa", "[", "l", "]"}]}]}], "\n",
RowBox[{
RowBox[{"MabS", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"MabS1", "[",
RowBox[{"l", ",", "k"}], "]"}], "+",
RowBox[{"MabS2", "[",
RowBox[{"l", ",", "k"}], "]"}], "+",
RowBox[{"MabS3", "[",
RowBox[{"l", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NabS", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2",
SubscriptBox["\[Tau]", "ab"]}], "1"]}], " ",
FractionBox["1",
RowBox[{"\[Sigma]", " ",
SubscriptBox["\[Gamma]", "ab"]}]],
RowBox[{"CurlyVba", "[", "k", "]"}],
RowBox[{"CurlyVab", "[", "l", "]"}]}]}]}], "Input",
CellChangeTimes->{{3.848378317119371*^9, 3.8483783274168835`*^9}, {
3.848378371706668*^9, 3.848378400418254*^9}, {3.8483785867492604`*^9,
3.8483786782424564`*^9}, {3.8483789356415615`*^9,
3.8483790773305817`*^9}, {3.8483791313125796`*^9, 3.8483791692609653`*^9},
3.8483942257031555`*^9, 3.848397537252301*^9, {3.8486556423114724`*^9,
3.84865564278977*^9}, {3.8486560390876975`*^9, 3.848656039560521*^9},
3.8486777293286963`*^9},
CellLabel->
"In[183]:=",ExpressionUUID->"b757c789-b319-4bbe-8b9d-3fdb4e7ea998"],
Cell[TextData[StyleBox["Improved Sugama operator Correction terms ", \
"Chapter"]], "Text",
CellChangeTimes->{{3.8483781415551376`*^9, 3.8483781502496223`*^9}, {
3.848677750011422*^9,
3.8486777545162477`*^9}},ExpressionUUID->"98e79ac8-1f5e-4bd5-b6d3-\
8426d3f5dc82"],
Cell[BoxData[{
RowBox[{
RowBox[{"DeltaMab", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"MabL", "[",
RowBox[{"l", ",", "k"}], "]"}], "-",
RowBox[{"MabS", "[",
RowBox[{"l", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DeltaNab", "[",
RowBox[{"l_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{"NabL", "[",
RowBox[{"l", ",", "k"}], "]"}], "-",
RowBox[{"NabS", "[",
RowBox[{"l", ",", "k"}], "]"}]}]}]}], "Input",
CellChangeTimes->{{3.8483741718180203`*^9, 3.8483741744453135`*^9}, {
3.8483742895846577`*^9, 3.848374347166007*^9}},
CellLabel->
"In[188]:=",ExpressionUUID->"39d9465a-6305-4a84-be13-3ae56d55f154"],
Cell[CellGroupData[{
Cell["Improved Sugama correction Test and Field Components", "Chapter",
CellChangeTimes->{{3.848371659072439*^9, 3.8483717393170977`*^9}, {
3.8483717731201935`*^9, 3.848371773229163*^9}, {3.848371889735155*^9,
3.848371891292565*^9}, {3.848374886150231*^9, 3.8483748862932405`*^9}, {
3.84838788697565*^9,
3.8483878886900916`*^9}},ExpressionUUID->"556b3a23-6af7-4aed-ba7b-\
adc5f2ff1506"],
Cell[BoxData[{
RowBox[{
RowBox[{"Lmax", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Kmax", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DeltaCabT", "[",
RowBox[{"p_", ",", " ", "j_", ",", " ", "g_", ",", " ", "h_"}], "]"}], " ",
":=", " ",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"l", "=", "0"}],
RowBox[{"Min", "[",
RowBox[{"Lmax", ",",
RowBox[{"j", "+",
RowBox[{"Floor", "[",
RowBox[{"p", "/", "2"}], "]"}]}]}], "]"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"k", "=", "0"}], "Kmax"],
RowBox[{
FractionBox[
RowBox[{"Tinv", "[",
RowBox[{"1", ",", "l", ",", "p", ",", "j"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "p"}], "*",
RowBox[{"p", "!"}]}], "]"}]],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"l", "+",
RowBox[{"3", "/", "2"}]}], ")"}], "!"}],
RowBox[{"l", "!"}]],
FractionBox[
RowBox[{"4",
SubscriptBox["c", "l"],
SubscriptBox["c", "k"]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}],
SubscriptBox["\[Tau]", "ab"]}]],
RowBox[{"DeltaMab", "[",
RowBox[{"l", ",", "k"}], "]"}],
RowBox[{"Mab", "[",
RowBox[{"1", ",", "k", ",", "g", ",", "h"}], "]"}],
RowBox[{"Boole", "[",
RowBox[{
RowBox[{"p", ">=", "1"}], " ", "||", " ",
RowBox[{"j", ">=", "1"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DeltaCabF", "[",
RowBox[{"p_", ",", " ", "j_", ",", " ", "g_", ",", " ", "h_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"l", "=", "0"}],
RowBox[{"Min", "[",
RowBox[{"Lmax", ",",
RowBox[{"j", "+",
RowBox[{"Floor", "[",
RowBox[{"p", "/", "2"}], "]"}]}]}], "]"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"k", "=", "0"}], "Kmax"],
RowBox[{
FractionBox[
RowBox[{"Tinv", "[",
RowBox[{"1", ",", "l", ",", "p", ",", "j"}], "]"}],
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "^", "p"}], "*",
RowBox[{"p", "!"}]}], "]"}]],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"l", "+",
RowBox[{"3", "/", "2"}]}], ")"}], "!"}],
RowBox[{"l", "!"}]],
FractionBox[
RowBox[{"4",
SubscriptBox["c", "l"],
SubscriptBox["c", "k"]}],
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}],
SubscriptBox["\[Tau]", "ab"]}]],
RowBox[{"DeltaNab", "[",
RowBox[{"l", ",", "k"}], "]"}],
RowBox[{"Mab", "[",
RowBox[{"1", ",", "k", ",", "g", ",", "h"}], "]"}],
RowBox[{"Boole", "[",
RowBox[{
RowBox[{"p", ">=", "1"}], " ", "||", " ",
RowBox[{"j", ">=", "1"}]}], "]"}]}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483717428192005`*^9, 3.848371847754548*^9}, {
3.848372983030505*^9, 3.848373100287753*^9}, {3.8483735183055005`*^9,
3.848373646473443*^9}, {3.848374300618588*^9, 3.848374300712496*^9}, {
3.848374541929698*^9, 3.8483746118028297`*^9}, {3.8483746692055817`*^9,
3.8483746775149603`*^9}, {3.8483877384681015`*^9, 3.848387811303875*^9}, {
3.8483893582617507`*^9, 3.848389378037345*^9}, {3.8483926874842796`*^9,
3.848392688893324*^9}, {3.8483941844515934`*^9, 3.8483941868458786`*^9}, {
3.8484586362760625`*^9, 3.8484586379552364`*^9}, {3.8484589569779544`*^9,
3.848458988192095*^9}, {3.8484610297073555`*^9, 3.8484610324669886`*^9}, {
3.848463419605347*^9, 3.848463425368843*^9}, {3.848678355439785*^9,
3.84867835666535*^9}},
CellLabel->
"In[190]:=",ExpressionUUID->"108a6a3f-eaf4-4c14-86df-9a672a496310"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Evaluate Test and Field components", "Title"]], \
"Title",
CellChangeTimes->{{3.848387876998891*^9, 3.848387882769306*^9}, {
3.848677940710106*^9, 3.848677943912579*^9}, {3.848678003633267*^9,
3.8486780088604927`*^9}},ExpressionUUID->"7ccb75bb-0030-4aa0-9c27-\
88061685d34a"],
Cell[BoxData[{
RowBox[{
RowBox[{"taucheck", " ", "=", " ",
RowBox[{"1", "/", "10"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sigmacheck", " ", "=", " ", "0.0027"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CustomSimplify", "[", "expr_", "]"}], ":=",
RowBox[{"FullSimplify", "[",
RowBox[{"expr", ",",
RowBox[{"{",
RowBox[{
RowBox[{"\[Sigma]", ">", "0"}], ",", " ",
RowBox[{"\[Tau]", ">", "0"}]}], "}"}]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.848652648238494*^9, 3.848652659772998*^9},
3.848677946478812*^9, {3.8486802769255733`*^9, 3.848680277200591*^9}},
CellLabel->
"In[194]:=",ExpressionUUID->"1f3cf27f-6236-45f1-9c0d-30bd9d50e6d5"],
Cell[CellGroupData[{
Cell["Test components", "Chapter",
CellChangeTimes->{{3.8484606645179453`*^9, 3.848460697591173*^9}, {
3.848677934832575*^9, 3.848677937738089*^9}, {3.848678012396859*^9,
3.848678012631666*^9}},ExpressionUUID->"1001ce71-b149-49c4-9e90-\
449068477735"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
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}},
CellLabel->
"In[197]:=",ExpressionUUID->"f4604ec5-863b-4998-a772-f2f8b1707954"],
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.848677956722445*^9, 3.848678360777964*^9, 3.848680280237769*^9},
CellLabel->
"Out[197]=",ExpressionUUID->"8fdf9b55-a024-4e1e-9afb-f810c908c452"],
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.848677956722445*^9, 3.848678360777964*^9, 3.8486802803383093`*^9},
CellLabel->
"Out[198]=",ExpressionUUID->"c194489b-7d54-432f-ba8c-f7d8abee4a77"],
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.848677956722445*^9, 3.848678360777964*^9, 3.8486802804347963`*^9},
CellLabel->
"Out[199]=",ExpressionUUID->"1ca34258-d4ff-4e37-bc8c-78efc0b120d2"],
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.848677956722445*^9, 3.848678360777964*^9, 3.848680280527627*^9},
CellLabel->
"Out[200]=",ExpressionUUID->"a970c56f-7499-48c1-8c29-247f72de49bc"],
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.848677956722445*^9, 3.848678360777964*^9, 3.8486802806219387`*^9},
CellLabel->
"Out[201]=",ExpressionUUID->"e7b8510c-8484-4388-8cd6-dee31232a19b"],
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.848677956722445*^9, 3.848678360777964*^9, 3.848680280717416*^9},
CellLabel->
"Out[202]=",ExpressionUUID->"51869e52-b3e0-46d1-8c16-d0133215415a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*", " ", "N11", "*)"}]}]}], "Input",
CellChangeTimes->{{3.848476106440377*^9, 3.8484761097058396`*^9}, {
3.8486526884829807`*^9, 3.848652705080164*^9}},
CellLabel->
"In[203]:=",ExpressionUUID->"9ec48d6f-30d3-49b8-9b84-72fc79e80e77"],
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.848680282511623*^9},
CellLabel->
"Out[203]=",ExpressionUUID->"d2b353a9-6824-4322-a259-a5ea0cf9f676"],
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.848680282641368*^9},
CellLabel->
"Out[204]=",ExpressionUUID->"314656a5-7232-4d7a-9c8f-87117a76ccfa"],
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.848680282741157*^9},
CellLabel->
"Out[205]=",ExpressionUUID->"91f7dfa0-0389-4110-b1b4-f342bab8b921"],
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.8486802828347597`*^9},
CellLabel->
"Out[206]=",ExpressionUUID->"c98b5a83-49ab-4ea9-9694-20cbee788ce1"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\[Sigma]"}], " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], "+",
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]", "-",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "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.8486802832393017`*^9},
CellLabel->
"Out[207]=",ExpressionUUID->"71ce4b15-9fef-4b36-9d5a-9c6be78eee76"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], "+",
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "\[Sigma]", "+",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "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.8486802835205383`*^9},
CellLabel->
"Out[208]=",ExpressionUUID->"696bbd76-7945-4bcd-b6ed-7a3a58e96fd0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], "+",
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "\[Sigma]", "+",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]], "]"}]], "Input",
CellChangeTimes->{{3.848714498380138*^9, 3.848714505019603*^9}, {
3.848728540936572*^9, 3.848728553338348*^9}, {3.848728648330858*^9,
3.848728700413982*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"44b51f19-12a3-4c1b-a5ec-a720c5708592"],
Cell["\<\
\\frac{8 \\tau ^{3/2} \\left(\\sigma \\sqrt{\\frac{(\\sigma +1) \\tau \
}{\\sigma +\\tau }}+\\tau \\left(\\sqrt{\\frac{(\\sigma
+1) \\tau }{\\sigma +\\tau }}-\\sigma -1\\right)\\right)}{5 \\sqrt{\\pi } \
(\\sigma +\\tau )^{5/2}}\
\>", "Output",
CellChangeTimes->{
3.848714505715776*^9, 3.848728554264401*^9, 3.848728633055007*^9, {
3.848728693371619*^9, 3.848728700861249*^9}},
CellLabel->
"Out[4]//TeXForm=",ExpressionUUID->"7c8968ea-dfd0-4dcc-8e4f-982b605d64e7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"2", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
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}},
CellLabel->
"In[209]:=",ExpressionUUID->"3cb0f24f-a4ba-45de-ae43-375f7ae1252a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.84868028697713*^9},
CellLabel->
"Out[209]=",ExpressionUUID->"1ff4adb8-9436-40b7-9f0b-3aa2cb08373a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.8486802871830482`*^9},
CellLabel->
"Out[210]=",ExpressionUUID->"1c8f8127-ff91-4266-93e7-3c728280a96b"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.84868028738931*^9},
CellLabel->
"Out[211]=",ExpressionUUID->"8a4495b3-75b0-4c5c-8d4b-82f8b51abe96"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.848680287593945*^9},
CellLabel->
"Out[212]=",ExpressionUUID->"e3189048-7e32-43c2-9c7b-ad26367c5131"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.848680287808365*^9},
CellLabel->
"Out[213]=",ExpressionUUID->"accaf2ce-b4b5-4f65-8ebe-6978e11eba5d"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.848460748638523*^9, 3.848461081062894*^9,
3.8484634814073844`*^9, 3.8484683948386593`*^9, 3.8484684835839233`*^9,
3.8484763310630507`*^9, 3.8484775718913517`*^9, 3.84847779365946*^9,
3.848479687180606*^9, 3.848479966537775*^9, 3.84848326008685*^9,
3.8485648448140783`*^9, 3.8486516762479997`*^9, 3.8486531743389683`*^9,
3.84865662563056*^9, 3.848680288041595*^9},
CellLabel->
"Out[214]=",ExpressionUUID->"574706dc-2483-4a4e-9148-ee6cc48ae008"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
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}},
CellLabel->
"In[215]:=",ExpressionUUID->"a56a6226-1f20-4f5c-bc71-630f1a0c225a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.848680290954734*^9},
CellLabel->
"Out[215]=",ExpressionUUID->"7f1f6ad0-3acd-45ae-a6f2-0b17dfd4ec71"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.84868029116182*^9},
CellLabel->
"Out[216]=",ExpressionUUID->"0503b9d4-8f10-4e35-802e-a0e4c1538991"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.848680291367484*^9},
CellLabel->
"Out[217]=",ExpressionUUID->"ee1c2923-836d-44eb-b4b7-6598ea7454bc"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.8486802915726337`*^9},
CellLabel->
"Out[218]=",ExpressionUUID->"e6ecb5e1-bce1-45d0-82b9-306d4e8ab520"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.848680291772431*^9},
CellLabel->
"Out[219]=",ExpressionUUID->"3fb4fd7b-5fb6-4405-8103-91a6631524f3"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607681012616`*^9, 3.8484611024605255`*^9,
3.84846350553741*^9, 3.848468415876422*^9, 3.8484685075945234`*^9,
3.84847635329902*^9, 3.848477595295061*^9, 3.8484778167339487`*^9,
3.8484797098742304`*^9, 3.848479995465393*^9, 3.848564865158717*^9,
3.8486517000602326`*^9, 3.8486531955809145`*^9, 3.848656646952328*^9,
3.848680291982716*^9},
CellLabel->
"Out[220]=",ExpressionUUID->"8a8fbb2b-6bf0-40d7-bad8-131944f6386f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"3", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"3", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
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.848677879445265*^9, 3.8486778805039997`*^9}},
CellLabel->
"In[221]:=",ExpressionUUID->"aec01d3c-202f-4848-b1a5-ca914b37d3d3"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.8486802940471773`*^9},
CellLabel->
"Out[221]=",ExpressionUUID->"5e48f769-8193-4e26-a9f7-852fe085fcfd"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["2",
RowBox[{"3", " ", "\[Pi]"}]]], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}], "+",
RowBox[{"3", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "5"]}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], "+",
RowBox[{"\[Sigma]", " ", "\[Tau]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+", "\[Tau]", "+",
RowBox[{"3", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.8486802947796793`*^9},
CellLabel->
"Out[222]=",ExpressionUUID->"aab5953d-ff98-48f7-b794-d2a965c2c6e9"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.8486802949872227`*^9},
CellLabel->
"Out[223]=",ExpressionUUID->"cd077927-869a-4f5a-82dc-acedbbdc0948"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.848680295239562*^9},
CellLabel->
"Out[224]=",ExpressionUUID->"c6afc1d9-d569-4bfb-8edf-2a1a2f7be32d"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"12", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.848680295540332*^9},
CellLabel->
"Out[225]=",ExpressionUUID->"b371b220-4dc1-4338-a5b5-60928a880669"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.8484607864791684`*^9, 3.8484611237191963`*^9,
3.8484635303224726`*^9, 3.848468438235402*^9, 3.8484685327909236`*^9,
3.8484763757960663`*^9, 3.8484776201940603`*^9, 3.848477839714918*^9,
3.848479733222232*^9, 3.848480024437545*^9, 3.8485648860997934`*^9,
3.848651721965647*^9, 3.8486532174756913`*^9, 3.848656668197668*^9,
3.848680295897811*^9},
CellLabel->
"Out[226]=",ExpressionUUID->"70051cdc-1ad4-498f-8e63-a543ef42a89d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]], "]"}]], "Input",
CellChangeTimes->{{3.84872931602915*^9, 3.848729369925668*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"a1727575-b93f-4ce1-a34d-e4aac2af622c"],
Cell["\<\
\\frac{4 \\sqrt{\\frac{6}{\\pi }} \\sigma (\\tau -1) \\sqrt{\\tau } \
\\left(10 \\sigma ^2-2 \\sigma \\tau +3 \\tau ^2\\right)}{25 (\\sigma +\\tau \
)^{7/2}}\
\>", "Output",
CellChangeTimes->{{3.848729324435712*^9, 3.8487293711800537`*^9}},
CellLabel->
"Out[7]//TeXForm=",ExpressionUUID->"0874617b-a0f5-4d2d-9d10-f1c09cda6fb7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
RowBox[{"1", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabT", "[",
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}},
CellLabel->
"In[227]:=",ExpressionUUID->"e1e8c367-9f75-41c4-81a2-dd9ea449597b"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.8486802991399918`*^9},
CellLabel->
"Out[227]=",ExpressionUUID->"7a44a2ce-4655-4864-a722-48e4ed9fe76d"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}], "+",
RowBox[{"3", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "5"]}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}], "+",
RowBox[{"\[Sigma]", " ", "\[Tau]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+", "\[Tau]", "+",
RowBox[{"3", " ",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]]}]}], ")"}]}]}], ")"}]}],
RowBox[{"15", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.848680301483992*^9},
CellLabel->
"Out[228]=",ExpressionUUID->"05cf816f-43f0-4d38-aaf4-5c26196e7b8c"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.848680301692234*^9},
CellLabel->
"Out[229]=",ExpressionUUID->"86b30598-00f4-4f96-b0a9-a3771035101a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.8486803018981543`*^9},
CellLabel->
"Out[230]=",ExpressionUUID->"659cb63d-31e8-4290-a114-9df6a260a92b"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.8486803022378883`*^9},
CellLabel->
"Out[231]=",ExpressionUUID->"059bfacf-d3f4-43ba-8931-aed1a57ed301"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]]}]], "Output",
CellChangeTimes->{3.8484607985857964`*^9, 3.848460915004628*^9,
3.848461144904605*^9, 3.8484621360584617`*^9, 3.8484622325000253`*^9,
3.848463556173061*^9, 3.848468557991885*^9, 3.8484764007822733`*^9,
3.8484776520071993`*^9, 3.8484778645829163`*^9, 3.8484797584720316`*^9,
3.848480057418062*^9, 3.8485649103457136`*^9, 3.848651744722579*^9,
3.848653241034088*^9, 3.848656689710185*^9, 3.848680302517138*^9},
CellLabel->
"Out[232]=",ExpressionUUID->"8e09bd97-db3f-4e79-851b-b6b0b7cdec84"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
RowBox[{"-",
FractionBox[
RowBox[{"8", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Tau]"}], ")"}], " ",
SqrtBox["\[Tau]"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2", " ", "\[Sigma]", " ", "\[Tau]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Tau]", "2"]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]]}], "]"}]], "Input",
CellChangeTimes->{{3.848729428871232*^9, 3.848729474251204*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"c2264f10-f18b-4c50-a7f8-674ca2dff484"],
Cell["\<\
-\\frac{8 \\sigma (\\tau -1) \\sqrt{\\tau } \\left(10 \\sigma ^2-2 \\sigma \
\\tau +3 \\tau ^2\\right)}{25 \\sqrt{\\pi } (\\sigma +\\tau )^{7/2}}\
\>", "Output",
CellChangeTimes->{{3.848729434783538*^9, 3.848729474926034*^9}},
CellLabel->
"Out[10]//TeXForm=",ExpressionUUID->"4a3f0ea7-1a0c-4253-b0d2-040e083615e2"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Field component", "Chapter",
CellChangeTimes->{{3.848460708372683*^9, 3.848460711450735*^9}, {
3.848678029349016*^9,
3.848678031615244*^9}},ExpressionUUID->"433fff1d-795e-47be-983d-\
76d19dfae958"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
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}},
CellLabel->
"In[233]:=",ExpressionUUID->"44140c8f-7108-4cf9-93a0-af3ced2400df"],
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.848680310805418*^9},
CellLabel->
"Out[233]=",ExpressionUUID->"4a84ab85-8073-4e61-9d2a-f484d1b01faa"],
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.848680310902725*^9},
CellLabel->
"Out[234]=",ExpressionUUID->"79fdad5c-d9f6-4757-a770-7cd813c6ca40"],
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.848680310997365*^9},
CellLabel->
"Out[235]=",ExpressionUUID->"b0357820-d1ef-457d-be50-bd0a39a2cd6a"],
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.8486803110905857`*^9},
CellLabel->
"Out[236]=",ExpressionUUID->"c3c9a28e-1238-4522-a9b7-ec5e210cac1c"],
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.8486803111862*^9},
CellLabel->
"Out[237]=",ExpressionUUID->"2931f0ad-21eb-4767-9825-c98f543b3011"],
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.848680311279139*^9},
CellLabel->
"Out[238]=",ExpressionUUID->"1003d3ae-dfb2-45ae-9d4c-85c1992b0ee4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N11", "*)"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.848476147558791*^9, 3.848476150778632*^9}, {
3.8486529017594037`*^9, 3.8486529112253923`*^9}},
CellLabel->
"In[239]:=",ExpressionUUID->"4ea37344-b899-4465-824b-aa08b18b10bd"],
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.848680312824647*^9},
CellLabel->
"Out[239]=",ExpressionUUID->"46fe277e-da8c-4f72-8f49-2f404ce5c34c"],
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.84868031295334*^9},
CellLabel->
"Out[240]=",ExpressionUUID->"50af71a9-692a-4094-829c-d3fed54d1ab5"],
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.848680313050147*^9},
CellLabel->
"Out[241]=",ExpressionUUID->"02e4d77f-5450-467e-8c1d-fc9d35d764be"],
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.84868031314711*^9},
CellLabel->
"Out[242]=",ExpressionUUID->"84c0984d-1067-44bd-b352-0154d3a6777d"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]", "-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}], ")"}]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "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.848680313515518*^9},
CellLabel->
"Out[243]=",ExpressionUUID->"bf206b11-66ac-40b6-90f2-019f894a5ee7"],
Cell[BoxData[
FractionBox[
RowBox[{"8", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "5"]}]]}], "+",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]]}], "+",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}], ")"}]}]}],
")"}]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
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.8486803138592052`*^9},
CellLabel->
"Out[244]=",ExpressionUUID->"f3ac1849-bcc3-42cd-8f5e-5bee7d13b8f1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
FractionBox[
RowBox[{"8", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "5"]}]]}], "+",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]]}], "+",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}], ")"}]}]}],
")"}]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]], "]"}]], "Input",
CellChangeTimes->{{3.8487326076076937`*^9, 3.8487326271203613`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"64747f53-13a8-49af-9395-abd98cc0fcaf"],
Cell["\<\
\\frac{8 \\sigma \\left(\\sigma \\left(\\sqrt{\\tau ^3 (\\sigma +\\tau \
)}-\\sqrt{(\\sigma +1) \\tau ^3}\\right)-\\sqrt{(\\sigma +1) \\tau \
^5}+\\sqrt{\\tau ^3
(\\sigma +\\tau )}\\right)}{5 \\sqrt{\\pi } (\\sigma +\\tau )^3}\
\>", "Output",
CellChangeTimes->{{3.848732610962899*^9, 3.848732627505727*^9}},
CellLabel->
"Out[12]//TeXForm=",ExpressionUUID->"2fa37671-0475-4125-9be1-051d8a6c6528"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"2", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
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}},
CellLabel->
"In[245]:=",ExpressionUUID->"501b5ee3-c0e4-4494-a575-4a8b91b432a2"],
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.84868167564023*^9},
CellLabel->
"Out[245]=",ExpressionUUID->"2b027dd1-d813-4c28-8221-f3a254d9d004"],
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.8486816758400297`*^9},
CellLabel->
"Out[246]=",ExpressionUUID->"944c7324-fc34-416c-a9c5-def1940f664d"],
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.848681676044256*^9},
CellLabel->
"Out[247]=",ExpressionUUID->"31b736c0-deee-46e8-b856-0aa26d5c00cf"],
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.848681676253911*^9},
CellLabel->
"Out[248]=",ExpressionUUID->"c29fe862-ece3-45b1-af71-2963becec721"],
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.8486816764542017`*^9},
CellLabel->
"Out[249]=",ExpressionUUID->"6129bf59-c134-4601-810e-6319be463ff4"],
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.848681676660717*^9},
CellLabel->
"Out[250]=",ExpressionUUID->"58a92afd-2397-4db7-8e51-675e05218fc0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
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}},
CellLabel->
"In[251]:=",ExpressionUUID->"3bc1356c-2870-407f-9dd9-b66ffa7e1d86"],
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.848681679298489*^9},
CellLabel->
"Out[251]=",ExpressionUUID->"0aa05d40-f995-41d6-8b85-afe7cd769798"],
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.848681679497345*^9},
CellLabel->
"Out[252]=",ExpressionUUID->"ae503fb9-d68b-4032-b7a7-6566fb9b74fa"],
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.848681679702724*^9},
CellLabel->
"Out[253]=",ExpressionUUID->"07968e14-1cae-4e17-bc97-90089d8fcf7c"],
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.8486816799024553`*^9},
CellLabel->
"Out[254]=",ExpressionUUID->"e90c4ab4-82b0-482e-b7fa-5299d402160b"],
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.848681680114813*^9},
CellLabel->
"Out[255]=",ExpressionUUID->"95156646-9dae-4ced-9f9f-e50daf8732e3"],
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.8486816803490067`*^9},
CellLabel->
"Out[256]=",ExpressionUUID->"dc39af7d-d759-4619-998f-098d18bc1ca5"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
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}},
CellLabel->
"In[257]:=",ExpressionUUID->"aeaff039-e3ae-4c0b-8b48-bd036758bb20"],
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.848681682570022*^9},
CellLabel->
"Out[257]=",ExpressionUUID->"c98bcf3c-ff45-430e-9784-aa349fd4555b"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]], "-",
RowBox[{"\[Tau]", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}]], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}], "-",
RowBox[{"3", " ", "\[Tau]", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]]], "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.848681683213537*^9},
CellLabel->
"Out[258]=",ExpressionUUID->"3c9259a3-835d-406c-b505-e99399ebea46"],
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.848681683447618*^9},
CellLabel->
"Out[259]=",ExpressionUUID->"47db034a-e6d6-4ebf-b8a8-f353dbddb58f"],
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.8486816836797113`*^9},
CellLabel->
"Out[260]=",ExpressionUUID->"216c75ab-ce8b-4c6a-92f5-f519b288c0cb"],
Cell[BoxData[
FractionBox[
RowBox[{"36", " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}]}], " ", "\[Tau]"}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "-",
SqrtBox["\[Tau]"], "+",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "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.848681684081314*^9},
CellLabel->
"Out[261]=",ExpressionUUID->"738caad2-1192-4d25-874d-779bae7c24dd"],
Cell[BoxData[
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["\[Tau]"], "-",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}], " ", "\[Tau]"}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "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.8486816844898367`*^9},
CellLabel->
"Out[262]=",ExpressionUUID->"59f2781b-093e-4c1f-a751-296eaeb7d9c7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["\[Tau]"], "-",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}], " ", "\[Tau]"}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]], "]"}]], "Input",
CellChangeTimes->{{3.848732686692587*^9, 3.8487327467204237`*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"1552ac62-b2dd-4be8-88c3-4cb36f865cfa"],
Cell["\<\
\\frac{12 \\sqrt{\\frac{6}{\\pi }} \\sigma \\tau ^{3/2} \\left(\\sigma \
\\left(-5 \\tau +\\sqrt{\\tau }+2\\right)+\\left(\\sqrt{\\tau }-3\\right) \
\\tau \\right)}{25
(\\sigma +\\tau )^{7/2}}\
\>", "Output",
CellChangeTimes->{{3.84873269239041*^9, 3.84873274711613*^9}},
CellLabel->
"Out[15]//TeXForm=",ExpressionUUID->"264f715a-14ad-45bc-94fe-99d695a2c3e7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"r1", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "]"}]}], " ",
RowBox[{"(*", " ", "N00", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r2", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N10", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r3", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N20", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r4", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N01", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r5", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "3", ",", "0"}], "]"}], "]"}]}],
RowBox[{"(*", " ", "N30", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r6", "=",
RowBox[{"CustomSimplify", "[",
RowBox[{"DeltaCabF", "[",
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}},
CellLabel->
"In[263]:=",ExpressionUUID->"45ac83ef-f451-499e-94ee-376b039d5dfe"],
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.848681688065568*^9},
CellLabel->
"Out[263]=",ExpressionUUID->"c4dd59ba-ede5-47e4-8f8e-9a63b333e430"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]], "-",
RowBox[{"\[Tau]", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}]], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}], "-",
RowBox[{"3", " ", "\[Tau]", " ",
SqrtBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]}]}], ")"}]}]}], ")"}]}],
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]]}]], "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.848681688579768*^9},
CellLabel->
"Out[264]=",ExpressionUUID->"6de48eab-3d7e-4bb2-aeab-ae529550692d"],
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.8486816887930927`*^9},
CellLabel->
"Out[265]=",ExpressionUUID->"8463b4a1-2f9f-412c-93e1-d9ad59938a45"],
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.848681689000257*^9},
CellLabel->
"Out[266]=",ExpressionUUID->"c06ae9c3-b35d-4203-bb24-aaa24ad84ad3"],
Cell[BoxData[
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["\[Tau]"], "-",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}], " ", "\[Tau]"}]}], ")"}]}],
RowBox[{"25", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "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.8486816894816523`*^9},
CellLabel->
"Out[267]=",ExpressionUUID->"c2d660c4-62f6-4890-a6d3-5f3a7a9fd225"],
Cell[BoxData[
FractionBox[
RowBox[{"24", " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}]}], " ", "\[Tau]"}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "-",
SqrtBox["\[Tau]"], "+",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "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.848681689834249*^9},
CellLabel->
"Out[268]=",ExpressionUUID->"6bed7ec9-199a-470d-8236-57c37251a5f9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TeXForm", "[",
FractionBox[
RowBox[{"24", " ", "\[Sigma]", " ",
SuperscriptBox["\[Tau]",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SqrtBox["\[Tau]"]}], ")"}]}], " ", "\[Tau]"}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "-",
SqrtBox["\[Tau]"], "+",
RowBox[{"5", " ", "\[Tau]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"25", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"7", "/", "2"}]]}]], "]"}]], "Input",
CellChangeTimes->{{3.848732904094894*^9, 3.848732953543828*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"c7c4bfbb-191a-4ce3-9ef1-dc51c966a46e"],
Cell["\<\
\\frac{24 \\sigma \\tau ^{3/2} \\left(\\sigma \\left(5 \\tau -\\sqrt{\\tau \
}-2\\right)+\\left(3-\\sqrt{\\tau }\\right) \\tau \\right)}{25 \\sqrt{\\pi } \
(\\sigma
+\\tau )^{7/2}}\
\>", "Output",
CellChangeTimes->{{3.8487329066088343`*^9, 3.8487329539687*^9}},
CellLabel->
"Out[18]//TeXForm=",ExpressionUUID->"8ff9554e-c8b5-40b6-b164-579e5ac66dac"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1267, 734},
WindowMargins->{{Automatic, 59}, {Automatic, 0}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f9516e6d-d0aa-4ab2-bcb5-fe3dfed174d3"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 199, 3, 160, "Title",ExpressionUUID->"310c3e51-f1a5-4611-bc9e-ab0a79bcc149"],
Cell[CellGroupData[{
Cell[804, 29, 166, 3, 69, "Chapter",ExpressionUUID->"d85bb46b-debb-41a5-a2a9-2a9f51f10e5d"],
Cell[973, 34, 2276, 59, 207, "Input",ExpressionUUID->"5a923148-5d29-4862-b230-f9a771b02287"]
}, Open ]],
Cell[CellGroupData[{
Cell[3286, 98, 155, 3, 69, "Chapter",ExpressionUUID->"b9619d6b-05f1-4a49-9e76-cf6dd7e7e979"],
Cell[3444, 103, 2087, 68, 195, "Input",ExpressionUUID->"e271d785-161d-4b28-a441-41e687626b2c"],
Cell[5534, 173, 177, 3, 30, "Input",ExpressionUUID->"ff721210-a9c8-4b5b-b82f-f8433f9695bd"]
}, Open ]],
Cell[CellGroupData[{
Cell[5748, 181, 229, 4, 69, "Chapter",ExpressionUUID->"854cc2ce-652f-4212-b7b1-67ca1152aef7"],
Cell[5980, 187, 1120, 32, 96, "Input",ExpressionUUID->"f7f85cb1-011b-4e9a-a7d9-ade68b25e295"]
}, Open ]],
Cell[CellGroupData[{
Cell[7137, 224, 138, 2, 69, "Chapter",ExpressionUUID->"e8799af6-6144-4ac6-a07f-2fc11456b629"],
Cell[7278, 228, 704, 20, 33, "Input",ExpressionUUID->"ffa92f40-3afb-4f00-9daf-7c5a90d1e436"]
}, Open ]],
Cell[CellGroupData[{
Cell[8019, 253, 194, 3, 69, "Chapter",ExpressionUUID->"2f90102b-f0d5-44c2-bb2b-356e473b100f"],
Cell[8216, 258, 3774, 109, 198, "Input",ExpressionUUID->"11dbcede-9de3-42ce-aae8-0f3e096ce8f3"]
}, Open ]],
Cell[CellGroupData[{
Cell[12027, 372, 161, 3, 69, "Chapter",ExpressionUUID->"854b8f1a-14bf-45f5-afc8-529ae35205de"],
Cell[12191, 377, 1023, 31, 40, "Input",ExpressionUUID->"a90d9482-a8fb-476b-9d0a-2aac948168f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[13251, 413, 162, 3, 69, "Chapter",ExpressionUUID->"5834c9be-1ff2-462e-9fd7-97fab78363f2"],
Cell[13416, 418, 4778, 153, 321, "Input",ExpressionUUID->"6efc656b-7bf6-4861-8bf3-2a2fc5d355b3"],
Cell[18197, 573, 7453, 249, 395, "Input",ExpressionUUID->"0c3c17c5-8c13-4980-a5ac-f2943002251a"],
Cell[25653, 824, 2701, 87, 149, "Input",ExpressionUUID->"3f3d66a9-be18-49c6-a41e-2fc0e43acf25"],
Cell[28357, 913, 1137, 35, 61, "Input",ExpressionUUID->"b903581e-da3b-4d6f-82c1-7f75fc3d8ec4"],
Cell[29497, 950, 551, 15, 30, "Input",ExpressionUUID->"02dbbd11-226d-451a-92ea-2c4db75812e0"],
Cell[30051, 967, 868, 23, 74, "Input",ExpressionUUID->"7901b4a1-5bbc-4422-90bf-e69ab3ac79b6"],
Cell[30922, 992, 1038, 25, 40, "Input",ExpressionUUID->"8d52ba63-b682-474f-ba9f-7c6dd6662be5"],
Cell[31963, 1019, 3410, 108, 110, "Input",ExpressionUUID->"35c04f88-d660-40f0-9035-b8b782ab1296"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[35422, 1133, 259, 3, 98, "Title",ExpressionUUID->"80cfaa8c-473b-466d-b451-c63961a6e516"],
Cell[35684, 1138, 221, 4, 59, "Text",ExpressionUUID->"57d54ea5-3a48-451f-8897-7859f0434fb9"],
Cell[35908, 1144, 1347, 35, 112, "Input",ExpressionUUID->"be39ef20-e57a-4b9b-9da0-b187f9239f85"],
Cell[37258, 1181, 229, 4, 59, "Text",ExpressionUUID->"05e17edb-1d68-4afd-a9b2-77b189039f99"],
Cell[37490, 1187, 3339, 103, 220, "Input",ExpressionUUID->"b757c789-b319-4bbe-8b9d-3fdb4e7ea998"],
Cell[40832, 1292, 272, 5, 59, "Text",ExpressionUUID->"98e79ac8-1f5e-4bd5-b6d3-8426d3f5dc82"],
Cell[41107, 1299, 703, 20, 52, "Input",ExpressionUUID->"39d9465a-6305-4a84-be13-3ae56d55f154"],
Cell[CellGroupData[{
Cell[41835, 1323, 397, 6, 69, "Chapter",ExpressionUUID->"556b3a23-6af7-4aed-ba7b-adc5f2ff1506"],
Cell[42235, 1331, 3768, 104, 160, "Input",ExpressionUUID->"108a6a3f-eaf4-4c14-86df-9a672a496310"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[46052, 1441, 305, 5, 98, "Title",ExpressionUUID->"7ccb75bb-0030-4aa0-9c27-88061685d34a"],
Cell[46360, 1448, 713, 18, 73, "Input",ExpressionUUID->"1f3cf27f-6236-45f1-9c0d-30bd9d50e6d5"],
Cell[CellGroupData[{
Cell[47098, 1470, 257, 4, 69, "Chapter",ExpressionUUID->"1001ce71-b149-49c4-9e90-449068477735"],
Cell[CellGroupData[{
Cell[47380, 1478, 1873, 44, 157, "Input",ExpressionUUID->"f4604ec5-863b-4998-a772-f2f8b1707954"],
Cell[49256, 1524, 929, 13, 34, "Output",ExpressionUUID->"8fdf9b55-a024-4e1e-9afb-f810c908c452"],
Cell[50188, 1539, 931, 13, 34, "Output",ExpressionUUID->"c194489b-7d54-432f-ba8c-f7d8abee4a77"],
Cell[51122, 1554, 931, 13, 34, "Output",ExpressionUUID->"1ca34258-d4ff-4e37-bc8c-78efc0b120d2"],
Cell[52056, 1569, 929, 13, 34, "Output",ExpressionUUID->"a970c56f-7499-48c1-8c29-247f72de49bc"],
Cell[52988, 1584, 931, 13, 34, "Output",ExpressionUUID->"e7b8510c-8484-4388-8cd6-dee31232a19b"],
Cell[53922, 1599, 929, 13, 34, "Output",ExpressionUUID->"51869e52-b3e0-46d1-8c16-d0133215415a"]
}, Open ]],
Cell[CellGroupData[{
Cell[54888, 1617, 1549, 39, 136, "Input",ExpressionUUID->"9ec48d6f-30d3-49b8-9b84-72fc79e80e77"],
Cell[56440, 1658, 581, 9, 34, "Output",ExpressionUUID->"d2b353a9-6824-4322-a259-a5ea0cf9f676"],
Cell[57024, 1669, 581, 9, 34, "Output",ExpressionUUID->"314656a5-7232-4d7a-9c8f-87117a76ccfa"],
Cell[57608, 1680, 581, 9, 34, "Output",ExpressionUUID->"91f7dfa0-0389-4110-b1b4-f342bab8b921"],
Cell[58192, 1691, 583, 9, 34, "Output",ExpressionUUID->"c98b5a83-49ab-4ea9-9694-20cbee788ce1"],
Cell[58778, 1702, 1466, 39, 71, "Output",ExpressionUUID->"71ce4b15-9fef-4b36-9d5a-9c6be78eee76"],
Cell[60247, 1743, 1445, 38, 72, "Output",ExpressionUUID->"696bbd76-7945-4bcd-b6ed-7a3a58e96fd0"]
}, Open ]],
Cell[CellGroupData[{
Cell[61729, 1786, 1193, 34, 70, "Input",ExpressionUUID->"44b51f19-12a3-4c1b-a5ec-a720c5708592"],
Cell[62925, 1822, 488, 10, 63, "Output",ExpressionUUID->"7c8968ea-dfd0-4dcc-8e4f-982b605d64e7"]
}, Open ]],
Cell[CellGroupData[{
Cell[63450, 1837, 1669, 41, 157, "Input",ExpressionUUID->"3cb0f24f-a4ba-45de-ae43-375f7ae1252a"],
Cell[65122, 1880, 510, 8, 34, "Output",ExpressionUUID->"1ff4adb8-9436-40b7-9f0b-3aa2cb08373a"],
Cell[65635, 1890, 513, 8, 34, "Output",ExpressionUUID->"1c8f8127-ff91-4266-93e7-3c728280a96b"],
Cell[66151, 1900, 510, 8, 34, "Output",ExpressionUUID->"8a4495b3-75b0-4c5c-8d4b-82f8b51abe96"],
Cell[66664, 1910, 511, 8, 34, "Output",ExpressionUUID->"e3189048-7e32-43c2-9c7b-ad26367c5131"],
Cell[67178, 1920, 511, 8, 34, "Output",ExpressionUUID->"accaf2ce-b4b5-4f65-8ebe-6978e11eba5d"],
Cell[67692, 1930, 511, 8, 34, "Output",ExpressionUUID->"574706dc-2483-4a4e-9148-ee6cc48ae008"]
}, Open ]],
Cell[CellGroupData[{
Cell[68240, 1943, 1602, 40, 136, "Input",ExpressionUUID->"a56a6226-1f20-4f5c-bc71-630f1a0c225a"],
Cell[69845, 1985, 488, 8, 34, "Output",ExpressionUUID->"7f1f6ad0-3acd-45ae-a6f2-0b17dfd4ec71"],
Cell[70336, 1995, 487, 8, 34, "Output",ExpressionUUID->"0503b9d4-8f10-4e35-802e-a0e4c1538991"],
Cell[70826, 2005, 488, 8, 34, "Output",ExpressionUUID->"ee1c2923-836d-44eb-b4b7-6598ea7454bc"],
Cell[71317, 2015, 490, 8, 34, "Output",ExpressionUUID->"e6ecb5e1-bce1-45d0-82b9-306d4e8ab520"],
Cell[71810, 2025, 488, 8, 34, "Output",ExpressionUUID->"3fb4fd7b-5fb6-4405-8103-91a6631524f3"],
Cell[72301, 2035, 488, 8, 34, "Output",ExpressionUUID->"8a8fbb2b-6bf0-40d7-bad8-131944f6386f"]
}, Open ]],
Cell[CellGroupData[{
Cell[72826, 2048, 1652, 40, 136, "Input",ExpressionUUID->"aec01d3c-202f-4848-b1a5-ca914b37d3d3"],
Cell[74481, 2090, 494, 8, 34, "Output",ExpressionUUID->"5e48f769-8193-4e26-a9f7-852fe085fcfd"],
Cell[74978, 2100, 1733, 48, 79, "Output",ExpressionUUID->"aab5953d-ff98-48f7-b794-d2a965c2c6e9"],
Cell[76714, 2150, 494, 8, 34, "Output",ExpressionUUID->"cd077927-869a-4f5a-82dc-acedbbdc0948"],
Cell[77211, 2160, 492, 8, 34, "Output",ExpressionUUID->"c6afc1d9-d569-4bfb-8edf-2a1a2f7be32d"],
Cell[77706, 2170, 1094, 28, 61, "Output",ExpressionUUID->"b371b220-4dc1-4338-a5b5-60928a880669"],
Cell[78803, 2200, 1080, 28, 70, "Output",ExpressionUUID->"70051cdc-1ad4-498f-8e63-a543ef42a89d"]
}, Open ]],
Cell[CellGroupData[{
Cell[79920, 2233, 811, 23, 70, "Input",ExpressionUUID->"a1727575-b93f-4ce1-a34d-e4aac2af622c"],
Cell[80734, 2258, 343, 7, 45, "Output",ExpressionUUID->"0874617b-a0f5-4d2d-9d10-f1c09cda6fb7"]
}, Open ]],
Cell[CellGroupData[{
Cell[81114, 2270, 1701, 41, 136, "Input",ExpressionUUID->"e1e8c367-9f75-41c4-81a2-dd9ea449597b"],
Cell[82818, 2313, 538, 8, 34, "Output",ExpressionUUID->"7a44a2ce-4655-4864-a722-48e4ed9fe76d"],
Cell[83359, 2323, 1671, 45, 80, "Output",ExpressionUUID->"05cf816f-43f0-4d38-aaf4-5c26196e7b8c"],
Cell[85033, 2370, 536, 8, 34, "Output",ExpressionUUID->"86b30598-00f4-4f96-b0a9-a3771035101a"],
Cell[85572, 2380, 538, 8, 34, "Output",ExpressionUUID->"659cb63d-31e8-4290-a114-9df6a260a92b"],
Cell[86113, 2390, 1126, 28, 70, "Output",ExpressionUUID->"059bfacf-d3f4-43ba-8931-aed1a57ed301"],
Cell[87242, 2420, 1137, 28, 61, "Output",ExpressionUUID->"8e09bd97-db3f-4e79-851b-b6b0b7cdec84"]
}, Open ]],
Cell[CellGroupData[{
Cell[88416, 2453, 826, 23, 60, "Input",ExpressionUUID->"c2264f10-f18b-4c50-a7f8-674ca2dff484"],
Cell[89245, 2478, 330, 6, 45, "Output",ExpressionUUID->"4a3f0ea7-1a0c-4253-b0d2-040e083615e2"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[89624, 2490, 209, 4, 69, "Chapter",ExpressionUUID->"433fff1d-795e-47be-983d-76d19dfae958"],
Cell[CellGroupData[{
Cell[89858, 2498, 1697, 41, 157, "Input",ExpressionUUID->"44140c8f-7108-4cf9-93a0-af3ced2400df"],
Cell[91558, 2541, 508, 8, 34, "Output",ExpressionUUID->"4a84ab85-8073-4e61-9d2a-f484d1b01faa"],
Cell[92069, 2551, 508, 8, 34, "Output",ExpressionUUID->"79fdad5c-d9f6-4757-a770-7cd813c6ca40"],
Cell[92580, 2561, 508, 8, 34, "Output",ExpressionUUID->"b0357820-d1ef-457d-be50-bd0a39a2cd6a"],
Cell[93091, 2571, 510, 8, 34, "Output",ExpressionUUID->"c3c9a28e-1238-4522-a9b7-ec5e210cac1c"],
Cell[93604, 2581, 506, 8, 34, "Output",ExpressionUUID->"2931f0ad-21eb-4767-9825-c98f543b3011"],
Cell[94113, 2591, 508, 8, 34, "Output",ExpressionUUID->"1003d3ae-dfb2-45ae-9d4c-85c1992b0ee4"]
}, Open ]],
Cell[CellGroupData[{
Cell[94658, 2604, 1598, 40, 157, "Input",ExpressionUUID->"4ea37344-b899-4465-824b-aa08b18b10bd"],
Cell[96259, 2646, 468, 7, 34, "Output",ExpressionUUID->"46fe277e-da8c-4f72-8f49-2f404ce5c34c"],
Cell[96730, 2655, 467, 7, 34, "Output",ExpressionUUID->"50af71a9-692a-4094-829c-d3fed54d1ab5"],
Cell[97200, 2664, 468, 7, 34, "Output",ExpressionUUID->"02e4d77f-5450-467e-8c1d-fc9d35d764be"],
Cell[97671, 2673, 467, 7, 34, "Output",ExpressionUUID->"84c0984d-1067-44bd-b352-0154d3a6777d"],
Cell[98141, 2682, 1056, 27, 70, "Output",ExpressionUUID->"bf206b11-66ac-40b6-90f2-019f894a5ee7"],
Cell[99200, 2711, 1475, 42, 66, "Output",ExpressionUUID->"f3ac1849-bcc3-42cd-8f5e-5bee7d13b8f1"]
}, Open ]],
Cell[CellGroupData[{
Cell[100712, 2758, 1249, 38, 65, "Input",ExpressionUUID->"64747f53-13a8-49af-9395-abd98cc0fcaf"],
Cell[101964, 2798, 414, 8, 63, "Output",ExpressionUUID->"2fa37671-0475-4125-9be1-051d8a6c6528"]
}, Open ]],
Cell[CellGroupData[{
Cell[102415, 2811, 1651, 41, 157, "Input",ExpressionUUID->"501b5ee3-c0e4-4494-a575-4a8b91b432a2"],
Cell[104069, 2854, 444, 7, 34, "Output",ExpressionUUID->"2b027dd1-d813-4c28-8221-f3a254d9d004"],
Cell[104516, 2863, 447, 7, 34, "Output",ExpressionUUID->"944c7324-fc34-416c-a9c5-def1940f664d"],
Cell[104966, 2872, 445, 7, 34, "Output",ExpressionUUID->"31b736c0-deee-46e8-b856-0aa26d5c00cf"],
Cell[105414, 2881, 445, 7, 34, "Output",ExpressionUUID->"c29fe862-ece3-45b1-af71-2963becec721"],
Cell[105862, 2890, 447, 7, 34, "Output",ExpressionUUID->"6129bf59-c134-4601-810e-6319be463ff4"],
Cell[106312, 2899, 445, 7, 34, "Output",ExpressionUUID->"58a92afd-2397-4db7-8e51-675e05218fc0"]
}, Open ]],
Cell[CellGroupData[{
Cell[106794, 2911, 1648, 41, 157, "Input",ExpressionUUID->"3bc1356c-2870-407f-9dd9-b66ffa7e1d86"],
Cell[108445, 2954, 447, 7, 34, "Output",ExpressionUUID->"0aa05d40-f995-41d6-8b85-afe7cd769798"],
Cell[108895, 2963, 447, 7, 34, "Output",ExpressionUUID->"ae503fb9-d68b-4032-b7a7-6566fb9b74fa"],
Cell[109345, 2972, 447, 7, 34, "Output",ExpressionUUID->"07968e14-1cae-4e17-bc97-90089d8fcf7c"],
Cell[109795, 2981, 449, 7, 34, "Output",ExpressionUUID->"e90c4ab4-82b0-482e-b7fa-5299d402160b"],
Cell[110247, 2990, 447, 7, 34, "Output",ExpressionUUID->"95156646-9dae-4ced-9f9f-e50daf8732e3"],
Cell[110697, 2999, 449, 7, 34, "Output",ExpressionUUID->"dc39af7d-d759-4619-998f-098d18bc1ca5"]
}, Open ]],
Cell[CellGroupData[{
Cell[111183, 3011, 1646, 41, 157, "Input",ExpressionUUID->"aeaff039-e3ae-4c0b-8b48-bd036758bb20"],
Cell[112832, 3054, 438, 7, 34, "Output",ExpressionUUID->"c98bcf3c-ff45-430e-9784-aa349fd4555b"],
Cell[113273, 3063, 1411, 40, 70, "Output",ExpressionUUID->"3c9259a3-835d-406c-b505-e99399ebea46"],
Cell[114687, 3105, 438, 7, 34, "Output",ExpressionUUID->"47db034a-e6d6-4ebf-b8a8-f353dbddb58f"],
Cell[115128, 3114, 440, 7, 34, "Output",ExpressionUUID->"216c75ab-ce8b-4c6a-92f5-f519b288c0cb"],
Cell[115571, 3123, 1115, 31, 61, "Output",ExpressionUUID->"738caad2-1192-4d25-874d-779bae7c24dd"],
Cell[116689, 3156, 1090, 30, 70, "Output",ExpressionUUID->"59f2781b-093e-4c1f-a751-296eaeb7d9c7"]
}, Open ]],
Cell[CellGroupData[{
Cell[117816, 3191, 880, 26, 70, "Input",ExpressionUUID->"1552ac62-b2dd-4be8-88c3-4cb36f865cfa"],
Cell[118699, 3219, 378, 8, 63, "Output",ExpressionUUID->"264f715a-14ad-45bc-94fe-99d695a2c3e7"]
}, Open ]],
Cell[CellGroupData[{
Cell[119114, 3232, 1648, 41, 157, "Input",ExpressionUUID->"45ac83ef-f451-499e-94ee-376b039d5dfe"],
Cell[120765, 3275, 417, 7, 34, "Output",ExpressionUUID->"c4dd59ba-ede5-47e4-8f8e-9a63b333e430"],
Cell[121185, 3284, 1416, 40, 66, "Output",ExpressionUUID->"6de48eab-3d7e-4bb2-aeab-ae529550692d"],
Cell[122604, 3326, 419, 7, 34, "Output",ExpressionUUID->"8463b4a1-2f9f-412c-93e1-d9ad59938a45"],
Cell[123026, 3335, 417, 7, 34, "Output",ExpressionUUID->"c06ae9c3-b35d-4203-bb24-aaa24ad84ad3"],
Cell[123446, 3344, 1069, 30, 70, "Output",ExpressionUUID->"c2d660c4-62f6-4890-a6d3-5f3a7a9fd225"],
Cell[124518, 3376, 1094, 31, 61, "Output",ExpressionUUID->"6bed7ec9-199a-470d-8236-57c37251a5f9"]
}, Open ]],
Cell[CellGroupData[{
Cell[125649, 3412, 906, 27, 63, "Input",ExpressionUUID->"c7c4bfbb-191a-4ce3-9ef1-dc51c966a46e"],
Cell[126558, 3441, 368, 8, 63, "Output",ExpressionUUID->"8ff9554e-c8b5-40b6-b164-579e5ac66dac"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
c4science · Help