Homec4science
Diffusion COSOlver (improved_sugama) Browse

cosolver/Mathematica_scripts/moment_improved_sugama/moment_improved_sugama.nb
cd1286e2d410improved_sugama

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[ 199391, 4957]
NotebookOptionsPosition[ 174004, 4605]
NotebookOutlinePosition[ 174413, 4621]
CellTagsIndexPosition[ 174370, 4618]
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[1]:=",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"}]]}]}]}]}]}], "Input",
CellChangeTimes->{3.848372114722021*^9},
CellLabel->"In[6]:=",ExpressionUUID->"e271d785-161d-4b28-a441-41e687626b2c"],
Cell[BoxData[{
RowBox[{
SubscriptBox["e",
RowBox[{"ba", ",", "k_"}]], ":=", " ",
FractionBox[
RowBox[{"Factorial", "[",
RowBox[{"k", "-",
RowBox[{"1", "/", "2"}]}], "]"}],
RowBox[{
RowBox[{"Factorial", "[",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], "]"}], "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", " ", "+", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "/", "\[Chi]"}], ")"}], "2"]}], ")"}],
RowBox[{"k", "+",
RowBox[{"1", "/", "2"}]}]]}]]}], "\[IndentingNewLine]",
RowBox[{
SubscriptBox["E",
RowBox[{"ba", ",", "k_"}]], ":=", " ",
RowBox[{
FractionBox["1",
RowBox[{"2", "\[Chi]"}]], "*",
RowBox[{
SubsuperscriptBox["\[Sum]",
RowBox[{"j", "=", "0"}], "k"],
RowBox[{
FractionBox[
RowBox[{"Factorial", "[", "k", "]"}],
RowBox[{"Factorial", "[", "j", "]"}]], "*",
SubscriptBox["e",
RowBox[{"ba", ",", "j"}]]}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483876554768567`*^9, 3.848387681833247*^9}},
CellLabel->"In[8]:=",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[10]:=",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[12]:=",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[13]:=",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[15]:=",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]"}]}]}]}], "Input",
CellChangeTimes->{{3.848376205287338*^9, 3.8483763264216413`*^9}, {
3.8483959104899197`*^9, 3.8483959113230753`*^9}, 3.8486544673134804`*^9},
CellLabel->"In[16]:=",ExpressionUUID->"6efc656b-7bf6-4861-8bf3-2a2fc5d355b3"],
Cell[BoxData[{
RowBox[{
RowBox[{"aprim0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"4",
RowBox[{"(",
RowBox[{"\[Tau]", "-", "1"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "/",
"\[Tau]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"aprim1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}],
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "l"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{"\[Tau]", "-", "2"}], ")"}], "/", "\[Tau]"}]}], "-", "1"}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"aprim2", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "\[Sigma]"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4",
RowBox[{"l", "^", "2"}]}], "+",
RowBox[{"4", "l",
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}]}], "+",
RowBox[{"3", "p",
RowBox[{
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}]}], ")"}], "/",
"\[Tau]"}]}]}]}], "Input",
CellChangeTimes->{{3.8483763420087805`*^9, 3.8483764665368648`*^9}, {
3.848395986017063*^9, 3.8483959994127035`*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"603d0a1d-9dec-482b-a154-d6c3e0370c83"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]E", "[",
RowBox[{"d_", ",", "j_", ",", "n_", ",", "p_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{
"d", "+", "j", "+", "p", "-", "n"}]}]]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]e", "[",
RowBox[{"d_", ",", "j_", ",", "n_", ",", "p_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"4", "\[Chi]", " "}],
RowBox[{"Sqrt", "[", "Pi", "]"}]],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"d", "+", "j", "+", "p", "-", "n", "+", "1"}]}]],
" "}]}]}], "Input",
CellChangeTimes->{{3.848375739369706*^9, 3.848375818373211*^9}, {
3.848375856057105*^9, 3.8483761774585485`*^9}, {3.848376332847086*^9,
3.848376334326018*^9}, {3.8483935170362234`*^9, 3.8483935186275864`*^9},
3.848394116420005*^9},
CellLabel->"In[22]:=",ExpressionUUID->"fd244816-2784-459f-bc9d-9a77245afb5d"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarTab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"a0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "0", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "0", ",", "p"}], "]"}]}], "+",
RowBox[{
RowBox[{"a1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "1", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "1", ",", "p"}], "]"}]}], "+",
RowBox[{
RowBox[{"a2", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]E", "[",
RowBox[{"d", ",", "j1", ",", "2", ",", "p"}], "]"}]}], " ", "+", " ",
RowBox[{
RowBox[{"aprim2", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Alpha]e", "[",
RowBox[{"d", ",", "j1", ",", "2", ",", "p"}], "]"}]}]}],
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.8483764882278366`*^9, 3.8483765268441772`*^9}, {
3.8483937320264707`*^9, 3.848393759012282*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"c905f9a3-d3f2-413a-bfd7-267a8717b746"],
Cell[BoxData[{
RowBox[{
RowBox[{"bprim0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"4",
RowBox[{
RowBox[{"\[Tau]", "^", "2"}], "/",
"\[Sigma]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bprim1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "8"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"p", "^", "2"}], "+", "p", "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483767369573717`*^9, 3.848376779043248*^9}, {
3.8484833242504716`*^9, 3.848483325547778*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"0c3c17c5-8c13-4980-a5ac-f2943002251a"],
Cell[BoxData[{
RowBox[{
RowBox[{"bplus0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], "p",
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"l", "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}]}], "-",
RowBox[{"8", "\[Tau]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "p", "-",
RowBox[{"\[Sigma]", " ", "p"}]}], ")"}], "/", "\[Sigma]"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bplus1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{"8",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.8483767872786975`*^9, 3.848376875840846*^9}, {
3.8483979443883824`*^9, 3.848397945879513*^9}, 3.8483979941614017`*^9},
CellLabel->"In[27]:=",ExpressionUUID->"8369a22d-856d-48af-991d-8d6918e027be"],
Cell[BoxData[{
RowBox[{
RowBox[{"bminus0", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"4",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{"p", "+", "2"}], ")"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+",
RowBox[{"2", "l"}], "+", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "3"}], ")"}]}]}], "+",
RowBox[{"8",
RowBox[{"\[Chi]", "^", "2"}],
RowBox[{
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"\[Sigma]", " ", "p"}], " ", "-", " ", "\[Sigma]"}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"bminus1", "[",
RowBox[{"p_", ",", "l_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "8"}], "p",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"p", "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "+", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "p"}], "-", "1"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.84837688610343*^9, 3.8483769494202642`*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"d2597c75-f9e2-47fa-b161-9d5dac3728d7"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Beta]e", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}], "+",
RowBox[{"2", "n"}], "-", "1"}], ")"}]}],
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{
"p", "+", "1", "+", "d", "+", "j", "+",
"n"}]}]]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "n"}], "-", "1"}], ")"}]}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{"2", "j1"}], ")"}]}],
RowBox[{"j", "!"}]}],
RowBox[{"j1", "!"}]],
FractionBox[
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "n", "+", "1", "+", "d", "+", "j1"}]}]],
"2"]}]}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p_", ",", "d_", ",", "n_", ",", "j_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{
RowBox[{"2", "n"}], "-", "p", "-", "2"}], ")"}]}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "j", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "!"}]],
FractionBox[
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"d", "+", "n"}]}]], "2"]}], "-",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}],
RowBox[{"p", "+", "j"}]],
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\[Chi]", "^",
RowBox[{"(",
RowBox[{
RowBox[{"2", "j1"}], "+", "1"}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "j", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"j1", "+",
RowBox[{"1", "/", "2"}]}], ")"}], "!"}]],
FractionBox[
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"d", "+", "n", "+", "j1", "+", "1"}]}]], "2"]}]}]}],
")"}]}]}]}], "Input",
CellChangeTimes->{{3.848377276499569*^9, 3.8483774970387373`*^9}, {
3.848377541449463*^9, 3.8483776499209294`*^9}, {3.8483935428699164`*^9,
3.8483935444842033`*^9}, {3.848394149868252*^9, 3.8483941515718575`*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"06e6ed8c-4848-4bb0-9805-6d6446516c89"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarFab", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"bprim0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]e", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bplus0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bminus0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p", ",", "d", ",", "0", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bprim1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]e", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bplus1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]eplus", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}], "+",
RowBox[{
RowBox[{"bminus1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
RowBox[{"\[Beta]Eeminus", "[",
RowBox[{"p", ",", "d", ",", "1", ",", "j1"}], "]"}]}]}],
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.848376530425008*^9, 3.848376720130766*^9}, {
3.8483776661342497`*^9, 3.8483776791239257`*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"e2b1f320-eedf-4e72-aaf8-fd8578766747"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]E0", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "2"}], "\[Sigma]",
RowBox[{
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}], "/", "\[Tau]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]E1", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{"\[Sigma]",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "j"}], "+", "p", "-", "2"}], ")"}], "/",
"\[Tau]"}]}]}]}], "Input",
CellChangeTimes->{{3.848379882316622*^9, 3.8483799519644833`*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"3f3d66a9-be18-49c6-a41e-2fc0e43acf25"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Alpha]e0", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{"2",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Chi]", "^", "2"}]}], ")"}], "/",
"\[Chi]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]e1", "[",
RowBox[{"p_", ",", "j_"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", "j"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"2", "j"}], "-", "p"}], ")"}], "/", "\[Chi]"}]}]}]}], "Input",
CellChangeTimes->{{3.848379955854618*^9, 3.8483799963448253`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"b1f1f5b8-1ec5-4cde-8f53-3da170cffdba"],
Cell[BoxData[
RowBox[{
RowBox[{"NuBarStarPara", "[",
RowBox[{"p_", ",", "j_", ",", "d_"}], "]"}], ":=",
RowBox[{
FractionBox["4",
RowBox[{"Sqrt", "[", "Pi", "]"}]],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j1", "=", "0"}], "j"],
RowBox[{
SubscriptBox["L",
RowBox[{"p", ",", "j", ",", "j1"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"\[Alpha]E0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "0", "-", "1"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]e0", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "0"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]E1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["E",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1", "-", "1"}]}]]}], "+",
RowBox[{
RowBox[{"\[Alpha]e1", "[",
RowBox[{"p", ",", "j1"}], "]"}], "*",
SubscriptBox["e",
RowBox[{"ab", ",",
RowBox[{"p", "+", "d", "+", "j1", "-", "1"}]}]]}]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.8483794606072035`*^9, 3.8483795631719265`*^9}, {
3.848379644413314*^9, 3.848379744866335*^9}, 3.848393789514002*^9},
CellLabel->"In[39]:=",ExpressionUUID->"71ab37e9-ec7a-4fac-87d3-99e32c11f6c8"],
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[40]:=",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[41]:=",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[42]:=",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[44]:=",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[45]:=",ExpressionUUID->"35c04f88-d660-40f0-9035-b8b782ab1296"]
}, Open ]],
Cell[CellGroupData[{
Cell["Braginskii matrices", "Chapter",
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["Braginskii matrix element for Landau operator", "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[47]:=",ExpressionUUID->"be39ef20-e57a-4b9b-9da0-b187f9239f85"],
Cell["Braginskii matrix elements for Original Sugama operator", "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", "]"}]}]}]}], "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}},
CellLabel->"In[49]:=",ExpressionUUID->"b757c789-b319-4bbe-8b9d-3fdb4e7ea998"],
Cell[BoxData[{
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.8483781524731007`*^9, 3.8483781820817795`*^9}, {
3.8483972902525177`*^9, 3.8483972908202066`*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"3648a005-a669-4d7c-a69f-73d465b8ea69"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"MabS", "[",
RowBox[{"0", ",", "0"}], "]"}], " ", "/.",
RowBox[{"\[Sigma]", "->", "0.0027"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->",
RowBox[{"1", "/", "10"}]}]}], " ", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"-", "1.926838633"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.84865358754237*^9, 3.8486536860973196`*^9}, {
3.848655287901541*^9, 3.8486553202316923`*^9}, {3.848655659164406*^9,
3.8486556945180063`*^9}, {3.8486559998394756`*^9, 3.8486560018291416`*^9}},
CellLabel->"In[54]:=",ExpressionUUID->"20f89bf9-702e-4729-8a05-b2d50fdb8b2d"],
Cell[BoxData[
RowBox[{"-", "1.9268386325618299`"}]], "Output",
CellChangeTimes->{{3.8486536251452117`*^9, 3.8486536486785946`*^9},
3.84865449926727*^9, 3.8486551696680155`*^9, {3.8486552885518847`*^9,
3.8486553206438675`*^9}, {3.8486556505126457`*^9, 3.848655694888449*^9}, {
3.8486560240909815`*^9, 3.848656047568673*^9}, 3.848656502698594*^9,
3.8486565811636066`*^9, 3.8490946610820074`*^9},
CellLabel->"Out[54]=",ExpressionUUID->"306731d2-e996-4a37-8e82-d168a4e707f4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"MabS", "[",
RowBox[{"4", ",", "3"}], "]"}], " ", "/.",
RowBox[{"\[Sigma]", "->", "0.0027"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->",
RowBox[{"1", "/", "10"}]}]}], " ", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"-", "25.50741509"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.8486551885618343`*^9, 3.84865521691494*^9}},
CellLabel->"In[55]:=",ExpressionUUID->"df9d6575-4518-4710-936a-4ff051564524"],
Cell[BoxData[
RowBox[{"-", "25.507415088322862`"}]], "Output",
CellChangeTimes->{{3.8486551913026333`*^9, 3.848655219573759*^9},
3.848656581298625*^9, 3.849094661147032*^9},
CellLabel->"Out[55]=",ExpressionUUID->"b03ca340-5dc5-431d-85e9-f714dfca43ce"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"MabL", "[",
RowBox[{"0", ",", "0"}], "]"}], " ", "/.",
RowBox[{"\[Sigma]", "->", "0.0027"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->",
RowBox[{"1", "/", "10"}]}]}], " ", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"-", "1.926838633"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.8486552431782136`*^9, 3.8486552621282616`*^9}, {
3.8486560142978363`*^9, 3.848656016776812*^9}},
CellLabel->"In[56]:=",ExpressionUUID->"f2368a75-6090-4d3c-8674-10a38011e8db"],
Cell[BoxData[
RowBox[{"-", "1.9268386325618294`"}]], "Output",
CellChangeTimes->{{3.848655245740427*^9, 3.8486552649904995`*^9},
3.8486560328398952`*^9, 3.848656581422609*^9, 3.849094661203*^9},
CellLabel->"Out[56]=",ExpressionUUID->"f0eb0175-4b8b-4a6b-bd98-4d116b9a9951"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"MabL", "[",
RowBox[{"4", ",", "3"}], "]"}], " ", "/.",
RowBox[{"\[Sigma]", "->", "0.0027"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->",
RowBox[{"1", "/", "10"}]}]}], " ", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"-", "25.74009089"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.8486536950779552`*^9, 3.848653699814211*^9}, {
3.8486541056198254`*^9, 3.8486541179277706`*^9}},
CellLabel->"In[57]:=",ExpressionUUID->"34f5c504-c0ba-4283-b2d2-2779a493e3a2"],
Cell[BoxData[
RowBox[{"-", "25.740090886644683`"}]], "Output",
CellChangeTimes->{3.8486537002092137`*^9, 3.8486544960195923`*^9,
3.848656581713606*^9, 3.8490946612630367`*^9},
CellLabel->"Out[57]=",ExpressionUUID->"ab8d9c3c-0c0d-4ee3-9af0-0163f21bba7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"MabL", "[",
RowBox[{"2", ",", "1"}], "]"}], " ", "/.",
RowBox[{"\[Sigma]", "->", "0.0027"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->",
RowBox[{"1", "/", "10"}]}]}], " ", "]"}], " ",
RowBox[{"(*", " ",
RowBox[{"-", "8.249865547"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.8486536950779552`*^9, 3.848653699814211*^9}, {
3.8486541056198254`*^9, 3.848654186827284*^9}},
CellLabel->"In[58]:=",ExpressionUUID->"8829fe6d-c412-477e-b925-5eea62ec311c"],
Cell[BoxData[
RowBox[{"-", "8.249865547228914`"}]], "Output",
CellChangeTimes->{3.848654144664201*^9, 3.848654197763923*^9,
3.848654492082796*^9, 3.8486565818435907`*^9, 3.8490946613560205`*^9},
CellLabel->"Out[58]=",ExpressionUUID->"87e92b46-6e0b-4ad0-8fbf-5fbe8fd64d40"]
}, Open ]],
Cell["Correction terms for Improved Sugama operator", "Text",
CellChangeTimes->{{3.8483781415551376`*^9,
3.8483781502496223`*^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[59]:=",ExpressionUUID->"39d9465a-6305-4a84-be13-3ae56d55f154"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{"DeltaNab", "[",
RowBox[{"3", ",", "4"}], "]"}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{"DeltaNab", "[",
RowBox[{"4", ",", "3"}], "]"}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->", "1"}]}], "]"}], "]"}]}], "Input",
CellChangeTimes->{{3.8483973081722364`*^9, 3.848397362688829*^9}, {
3.848397395799003*^9, 3.8483974252426376`*^9}, 3.8483976294324155`*^9,
3.848397679744858*^9, 3.848398159968814*^9, {3.8484599714580374`*^9,
3.848459979076494*^9}, {3.848561496480561*^9, 3.8485615153145*^9}, {
3.8485619144878097`*^9, 3.848561920334977*^9}, 3.848562266486179*^9},
CellLabel->"In[61]:=",ExpressionUUID->"f7cdf000-af98-47be-9a65-d152897f4df0"],
Cell[BoxData["5.0437032460550455`"], "Output",
CellChangeTimes->{{3.848397329527006*^9, 3.8483973634265485`*^9}, {
3.848397397724369*^9, 3.848397426035801*^9}, 3.8483975995056305`*^9,
3.8483976300536747`*^9, 3.8483976804040136`*^9, 3.8483981216057177`*^9,
3.8483981605328674`*^9, {3.8483986016690907`*^9, 3.8483986497312574`*^9},
3.8483993580020747`*^9, 3.8484570564488983`*^9, 3.848457286165903*^9,
3.848458519895445*^9, 3.8484587073479595`*^9, {3.8484599748751893`*^9,
3.848459979470478*^9}, 3.848461055812501*^9, 3.8484634499407887`*^9,
3.848468365613243*^9, 3.848468454983883*^9, 3.848476070294178*^9,
3.8484762169125247`*^9, 3.8484763016067114`*^9, 3.848477539223965*^9,
3.848477764086896*^9, 3.8484796573126965`*^9, 3.8484799328511443`*^9,
3.848483233396837*^9, 3.848483351224893*^9, {3.84856150972007*^9,
3.8485615159705*^9}, 3.848561920813094*^9, 3.8485647943099947`*^9,
3.8486512226932325`*^9, 3.8486516017798796`*^9, 3.848653107616299*^9,
3.8486565820280976`*^9, 3.849094661667554*^9},
CellLabel->"Out[61]=",ExpressionUUID->"b2c74dc3-5c1a-404a-aa4c-2907d3b8cb32"],
Cell[BoxData["5.0437032460550455`"], "Output",
CellChangeTimes->{{3.848397329527006*^9, 3.8483973634265485`*^9}, {
3.848397397724369*^9, 3.848397426035801*^9}, 3.8483975995056305`*^9,
3.8483976300536747`*^9, 3.8483976804040136`*^9, 3.8483981216057177`*^9,
3.8483981605328674`*^9, {3.8483986016690907`*^9, 3.8483986497312574`*^9},
3.8483993580020747`*^9, 3.8484570564488983`*^9, 3.848457286165903*^9,
3.848458519895445*^9, 3.8484587073479595`*^9, {3.8484599748751893`*^9,
3.848459979470478*^9}, 3.848461055812501*^9, 3.8484634499407887`*^9,
3.848468365613243*^9, 3.848468454983883*^9, 3.848476070294178*^9,
3.8484762169125247`*^9, 3.8484763016067114`*^9, 3.848477539223965*^9,
3.848477764086896*^9, 3.8484796573126965`*^9, 3.8484799328511443`*^9,
3.848483233396837*^9, 3.848483351224893*^9, {3.84856150972007*^9,
3.8485615159705*^9}, 3.848561920813094*^9, 3.8485647943099947`*^9,
3.8486512226932325`*^9, 3.8486516017798796`*^9, 3.848653107616299*^9,
3.8486565820280976`*^9, 3.849094661718339*^9},
CellLabel->"Out[62]=",ExpressionUUID->"e42ca956-2695-406a-91ab-3dd58567af51"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{"NabL", "[",
RowBox[{"3", ",", "4"}], "]"}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->", "1"}]}], "]"}], "]"}], "-",
RowBox[{"N", "[",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{"NabS", "[",
RowBox[{"3", ",", "4"}], "]"}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->", "1"}]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.848561598254853*^9, 3.8485616098923407`*^9},
3.8485618868190985`*^9, {3.8486512305508914`*^9, 3.8486512311378508`*^9}},
CellLabel->"In[63]:=",ExpressionUUID->"e6b652f2-8057-40ef-b88b-29b2ea5af9ea"],
Cell[BoxData["5.0437032460550455`"], "Output",
CellChangeTimes->{3.8485616103320622`*^9, 3.84856188746681*^9,
3.84856479445603*^9, 3.848651231643925*^9, 3.848651602019863*^9,
3.8486531078242984`*^9, 3.8486565823161187`*^9, 3.8490946617903337`*^9},
CellLabel->"Out[63]=",ExpressionUUID->"365925cf-25be-4327-a39b-15163bfb8ff3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{"DeltaNab", "[",
RowBox[{"1", ",", "1"}], "]"}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Tau]", "->", "1"}]}], "]"}], "]"}]], "Input",
CellLabel->"In[64]:=",ExpressionUUID->"966dff69-6aa5-474c-ac5a-557b835ed2b9"],
Cell[BoxData["1.590990257669732`"], "Output",
CellChangeTimes->{3.8485622953458433`*^9, 3.848564794520633*^9,
3.8486516021398563`*^9, 3.8486531079282913`*^9, 3.848656582439106*^9,
3.849094661845334*^9},
CellLabel->"Out[64]=",ExpressionUUID->"f61d80e3-8dcf-4699-b22c-ef11828dd37c"]
}, Open ]]
}, Open ]],
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", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Kmax", " ", "=", " ", "10"}], ";"}], "\[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"]}]],
FractionBox["1", "\[Chi]"],
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.849094639397612*^9,
3.8490946420520372`*^9}},
CellLabel->"In[65]:=",ExpressionUUID->"108a6a3f-eaf4-4c14-86df-9a672a496310"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "3", ",", "0"}], " ", "]"}], "]"}], "/.",
" ",
RowBox[{"\[Tau]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"(",
RowBox[{"12", ",", " ", "12"}], ")"}], " ", "->", " ",
RowBox[{"0.287238", " ", "FAUX"}]}], " ", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484833706327443`*^9, 3.8484834518992014`*^9}, {
3.8484836574801407`*^9, 3.8484836749712543`*^9}, {3.848483832500641*^9,
3.848483833244315*^9}, {3.848484353654338*^9, 3.8484843594278727`*^9}, {
3.848484620067568*^9, 3.8484846247474594`*^9}, {3.8484862643776627`*^9,
3.8484862657780237`*^9}, {3.8484863069314585`*^9, 3.8484863083137703`*^9}, {
3.848562104962055*^9, 3.8485621061446943`*^9}},
CellLabel->"In[69]:=",ExpressionUUID->"ca87d1b7-491a-4549-9054-0abfce143969"],
Cell[BoxData["0.2872384418890315`"], "Output",
CellChangeTimes->{{3.8484834040316496`*^9, 3.8484834581153193`*^9}, {
3.848483664498639*^9, 3.848483679226808*^9}, 3.848483838025948*^9,
3.848484364455407*^9, 3.8485645401666985`*^9, 3.8485648013611517`*^9,
3.848651608268633*^9, 3.848653114035267*^9, 3.8486565863310647`*^9,
3.849094667557183*^9},
CellLabel->"Out[69]=",ExpressionUUID->"91bae3bb-b973-4493-9361-b33290ead081"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"3", ",", "0", ",", "1", ",", "1"}], " ", "]"}], "]"}], "/.",
" ",
RowBox[{"\[Tau]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
RowBox[{"(",
RowBox[{"12", ",", "5"}], ")"}], " ", "->", " ",
RowBox[{
RowBox[{"-", "0.234529"}], " ", "FAUX"}]}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.8484833706327443`*^9, 3.8484834518992014`*^9}, {
3.8484836574801407`*^9, 3.8484836749712543`*^9}, {3.848483832500641*^9,
3.848483833244315*^9}, {3.8484843652744074`*^9, 3.848484366442967*^9}, {
3.848486278562252*^9, 3.8484863112026005`*^9}, {3.84856207416407*^9,
3.8485620751057057`*^9}},
CellLabel->"In[70]:=",ExpressionUUID->"1334b341-c4eb-4597-8295-2ab27668dae0"],
Cell[BoxData[
RowBox[{"-", "0.23452920571340155`"}]], "Output",
CellChangeTimes->{3.848484371229659*^9, 3.8485645542752347`*^9,
3.8485648067559385`*^9, 3.8486516142084155`*^9, 3.8486531194627385`*^9,
3.8486565898606462`*^9, 3.8490946723691893`*^9},
CellLabel->"Out[70]=",ExpressionUUID->"71c59e49-d4a0-45f7-aad6-6ed13d167d32"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "3", ",", "0"}], " ", "]"}], "]"}], "/.",
" ",
RowBox[{"\[Tau]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], "]"}], " "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"(",
RowBox[{"5", ",", "12"}], ")"}], " ", "->", " ",
RowBox[{
RowBox[{"-", "0.234529"}], " ", "OK"}]}], " ", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484833706327443`*^9, 3.8484834518992014`*^9}, {
3.8484836574801407`*^9, 3.8484836749712543`*^9}, {3.848483832500641*^9,
3.848483833244315*^9}, {3.848484373253217*^9, 3.8484843754212465`*^9}, {
3.84848460106133*^9, 3.8484846110848274`*^9}, {3.848486287530901*^9,
3.8484863149653234`*^9}, {3.848562049880587*^9, 3.8485620563885007`*^9}},
CellLabel->"In[71]:=",ExpressionUUID->"5767f687-7912-45fd-93ca-598c2c7373fa"],
Cell[BoxData[
RowBox[{"-", "0.23452920571340155`"}]], "Output",
CellChangeTimes->{3.8484843811623683`*^9, 3.8485645588681383`*^9,
3.848564810171533*^9, 3.8486516178056498`*^9, 3.8486531228999004`*^9,
3.8486565935178165`*^9, 3.8490946756374865`*^9},
CellLabel->"Out[71]=",ExpressionUUID->"677d8527-cbbf-48ce-a17a-c5ce714a6c6c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "1", ",", "1"}], " ", "]"}], "]"}], "/.",
" ",
RowBox[{"\[Tau]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"(",
RowBox[{"5", ",", "5"}], ")"}], " ", "->", " ",
RowBox[{"0.191492", " ", "OK"}]}], " ", "*)"}]}]}], "Input",
CellChangeTimes->{{3.8484833706327443`*^9, 3.8484834518992014`*^9}, {
3.8484836574801407`*^9, 3.8484836749712543`*^9}, {3.848483832500641*^9,
3.848483833244315*^9}, {3.8484862925171065`*^9, 3.8484863031894116`*^9}, {
3.848562120704464*^9, 3.8485621215746584`*^9}},
CellLabel->"In[72]:=",ExpressionUUID->"e1edfc3f-de0a-476f-9b60-99f6f41fc6c1"],
Cell[BoxData["0.19149229459268768`"], "Output",
CellChangeTimes->{3.8484843849236517`*^9, 3.8485645641824703`*^9,
3.8485648143878403`*^9, 3.848651622685745*^9, 3.8486531271129456`*^9,
3.8486565971156397`*^9, 3.849094679851271*^9},
CellLabel->"Out[72]=",ExpressionUUID->"d3a544ab-09ee-44e6-83b4-a6eb0499c1c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{
RowBox[{
RowBox[{"FullSimplify", "[",
RowBox[{"DeltaCabF", "[",
RowBox[{"1", ",", "1", ",", "4", ",", "1"}], " ", "]"}], "]"}], "/.",
" ",
RowBox[{"\[Tau]", "->", "1"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "1"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8484833706327443`*^9, 3.8484834518992014`*^9}, {
3.8484836574801407`*^9, 3.8484836749712543`*^9}, {3.848483832500641*^9,
3.848483833244315*^9}, {3.8484844785171347`*^9, 3.8484845364524775`*^9}},
CellLabel->"In[73]:=",ExpressionUUID->"5b290db3-fc2f-4b99-9d6e-5327efa8758c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{{3.8484844837294874`*^9, 3.8484845404757085`*^9},
3.8485648177554607`*^9, 3.8486516264449496`*^9, 3.848653130553581*^9,
3.848656600744178*^9, 3.849094683199029*^9},
CellLabel->"Out[73]=",ExpressionUUID->"828f45e4-7d8b-4086-ab8c-c1894c86e41f"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["First components", "Chapter",
CellChangeTimes->{{3.848387876998891*^9,
3.848387882769306*^9}},ExpressionUUID->"7ccb75bb-0030-4aa0-9c27-\
88061685d34a"],
Cell[BoxData[{
RowBox[{
RowBox[{"taucheck", " ", "=", " ",
RowBox[{"1", "/", "10"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sigmacheck", " ", "=", " ", "0.0027"}], ";"}]}], "Input",
CellChangeTimes->{{3.848652648238494*^9, 3.848652659772998*^9}},
CellLabel->"In[74]:=",ExpressionUUID->"1f3cf27f-6236-45f1-9c0d-30bd9d50e6d5"],
Cell[BoxData[{
RowBox[{
RowBox[{"CustomSimplify", "[", "expr_", "]"}], ":=",
RowBox[{"FullSimplify", "[",
RowBox[{"expr", ",",
RowBox[{"{",
RowBox[{
RowBox[{"\[Sigma]", ">", "0"}], ",", " ",
RowBox[{"\[Tau]", ">", "0"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*",
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{"ReplaceAll", "[",
RowBox[{
RowBox[{"ReplaceAll", "[",
RowBox[{
RowBox[{"FullSimplify", "[", "expr", " ", "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]], "->", "thetaab"}], ",",
RowBox[{
SqrtBox[
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}],
RowBox[{"\[Sigma]", "+", "\[Tau]"}]]], "->", "thetaba"}], ",",
RowBox[{
FractionBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}], "\[Tau]"], "->",
RowBox[{
FractionBox["\[Sigma]", "\[Tau]"], "+", "1"}]}], ",", " ",
RowBox[{
FractionBox[
RowBox[{"\[Sigma]", "+", "\[Tau]"}], "\[Sigma]"], "->", " ",
RowBox[{"1", "+",
RowBox[{"\[Tau]", "/", "\[Sigma]"}]}]}], " ", ",",
RowBox[{
FractionBox["\[Tau]",
RowBox[{"\[Sigma]", "+", "\[Tau]"}]], "->",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
FractionBox["\[Sigma]", "\[Tau]"], "+", "1"}], ")"}]}]}], ",",
RowBox[{
FractionBox["\[Sigma]",
RowBox[{"\[Sigma]", "+", "\[Tau]"}]], "->", " ",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Tau]", "/", "\[Sigma]"}]}], " ", ")"}]}]}]}],
"}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Tau]", "/", "\[Sigma]"}], "->",
RowBox[{"chiab", "^", "2"}]}], ",",
RowBox[{
RowBox[{"\[Sigma]", "/", "\[Tau]"}], "->",
RowBox[{"chiba", "^", "2"}]}]}], "}"}]}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"chiab", ">=", "0"}], ",",
RowBox[{"chiba", ">=", "0"}], ",",
RowBox[{"\[Tau]", ">=", "0"}], ",", " ",
RowBox[{"\[Sigma]", ">=", "0"}], ",",
RowBox[{"chiab", "==",
RowBox[{"1", "/", "chiba"}]}]}], "}"}]}], "]"}], " ",
"*)"}]}]}], "Input",
CellChangeTimes->{{3.848476032839703*^9, 3.848476037060891*^9},
3.848476285049224*^9, {3.8484774338291736`*^9, 3.848477436865822*^9}, {
3.8484777329930944`*^9, 3.848477736837722*^9}, {3.8484795535483007`*^9,
3.848479610804473*^9}, {3.848479911501771*^9, 3.848479915575473*^9}, {
3.848483168943473*^9, 3.8484832182008147`*^9}, 3.848483281197486*^9, {
3.848651292106264*^9, 3.848651310645845*^9}, {3.848651377586043*^9,
3.8486514091599565`*^9}},
CellLabel->"In[76]:=",ExpressionUUID->"9c243c2f-95b0-42ce-b6b7-dd8555414f82"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{"CustomSimplify", "[", "expr_", "]"}], ":=",
RowBox[{"FullSimplify", "[",
RowBox[{"expr", ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"\[Chi]", " ", "==", " ",
RowBox[{"Sqrt", "[",
FractionBox["\[Tau]", "\[Sigma]"], "]"}]}], ",",
RowBox[{
SubscriptBox["\[Tau]", "ab"], "==",
FractionBox[
RowBox[{"3",
RowBox[{"Sqrt", "[", "Pi", "]"}]}], "4"]}], ",", " ",
RowBox[{
SubscriptBox["\[Theta]", "ab"], "==",
RowBox[{"Sqrt", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}],
RowBox[{"1", "+",
RowBox[{"\[Sigma]", "/", "\[Tau]"}]}]], "]"}]}], ",",
RowBox[{
SubscriptBox["\[Theta]", "ba"], "==",
RowBox[{"Sqrt", "[",
FractionBox[
RowBox[{"1", "+",
RowBox[{"1", "/", "\[Sigma]"}]}],
RowBox[{"1", "+",
RowBox[{"\[Tau]", "/", "\[Sigma]"}]}]], "]"}]}]}],
"\[IndentingNewLine]", "}"}]}], "]"}]}], "*)"}]], "Input",
CellChangeTimes->{{3.8484774553792963`*^9, 3.8484775142772565`*^9}, {
3.848477735281745*^9, 3.848477738034179*^9}, {3.848651299408657*^9,
3.8486513020397043`*^9}},
CellLabel->"In[77]:=",ExpressionUUID->"3fdfa3d6-a290-429a-99ac-cb89d439ceaf"],
Cell["Test part", "Text",
CellChangeTimes->{{3.8484606645179453`*^9,
3.848460697591173*^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[78]:=",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.849094685306028*^9},
CellLabel->"Out[78]=",ExpressionUUID->"c7b7087a-a8fa-4124-9361-80fc0831909b"],
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.8490946870810575`*^9},
CellLabel->"Out[79]=",ExpressionUUID->"b1e68f6d-d896-49a1-b31d-322f286a44a2"],
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.8490946886690273`*^9},
CellLabel->"Out[80]=",ExpressionUUID->"0b90b23e-0ab8-4f42-a280-0045359cf3eb"],
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.8490946902530284`*^9},
CellLabel->"Out[81]=",ExpressionUUID->"9442ffb8-a3ce-4f23-b17a-4f580636bab2"],
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.849094691829056*^9},
CellLabel->"Out[82]=",ExpressionUUID->"50d073c7-553f-42c6-b785-fff52d4d7326"],
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.849094693400056*^9},
CellLabel->"Out[83]=",ExpressionUUID->"2240a478-9907-4d5e-b664-15cb6ce1203a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->"In[84]:=",ExpressionUUID->"e8e1ea69-22d3-40d7-a9dc-e4a96c0628f9"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.849094693532192*^9},
CellLabel->"Out[84]=",ExpressionUUID->"c2fefbc5-1600-4f80-9932-53f3d278a154"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.849094693542156*^9},
CellLabel->"Out[85]=",ExpressionUUID->"a341e263-1f94-44b8-9375-567a0ca90d95"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.849094693550194*^9},
CellLabel->"Out[86]=",ExpressionUUID->"9c11adfd-bcc5-41d9-8555-87e5f3cf3849"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.8490946935571566`*^9},
CellLabel->"Out[87]=",ExpressionUUID->"095594d9-60ad-43d3-9665-505924934b98"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.8490946935641613`*^9},
CellLabel->"Out[88]=",ExpressionUUID->"2da1c2b3-c2ff-43d5-81f1-df4a5e2372a2"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653141077255*^9, 3.848656611472994*^9,
3.8490946935691557`*^9},
CellLabel->"Out[89]=",ExpressionUUID->"1e85427a-dac6-436f-9c9e-f860d7923fdb"]
}, 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[90]:=",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.8490946951661854`*^9},
CellLabel->"Out[90]=",ExpressionUUID->"8b3e154d-c735-43af-9ee8-1649e568ab86"],
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.849094697016157*^9},
CellLabel->"Out[91]=",ExpressionUUID->"fb51320b-8f2a-46f8-b541-dd0e994ab4f1"],
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.8490946985707617`*^9},
CellLabel->"Out[92]=",ExpressionUUID->"302412b7-5a61-423a-a2bf-5bd85ddb7c13"],
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.8490947002637606`*^9},
CellLabel->"Out[93]=",ExpressionUUID->"4afeb040-f776-4478-8b89-b4b72247f266"],
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.8490947029790983`*^9},
CellLabel->"Out[94]=",ExpressionUUID->"d7eeb116-81d4-4307-a598-51d0514ee6d0"],
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.849094705032086*^9},
CellLabel->"Out[95]=",ExpressionUUID->"ca83326f-0bb9-46ca-b2d3-4efbc60938ae"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->"In[96]:=",ExpressionUUID->"011d1383-1234-44d8-a0be-8ce63470c1f6"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.849094705171212*^9},
CellLabel->"Out[96]=",ExpressionUUID->"f85fa04b-dbbb-4a53-858d-6ee38e37d74d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.849094705179184*^9},
CellLabel->"Out[97]=",ExpressionUUID->"8fc968ee-9cdb-46d0-960e-e8e716582c60"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.8490947051891823`*^9},
CellLabel->"Out[98]=",ExpressionUUID->"1614a638-1a46-44a7-9379-23629f457c09"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.8490947051952295`*^9},
CellLabel->"Out[99]=",ExpressionUUID->"70ab3733-a0e6-4cbb-aea0-22eff18d30d1"],
Cell[BoxData[
RowBox[{"-", "0.012492035385956956`"}]], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.8490947052001886`*^9},
CellLabel->
"Out[100]=",ExpressionUUID->"dcf41dec-ae7f-4068-b9a4-e8e373d423d8"],
Cell[BoxData["0.010199704181462021`"], "Output",
CellChangeTimes->{3.848652741434761*^9, 3.8486527718964815`*^9,
3.848653170722975*^9, 3.8486566222117243`*^9, 3.849094705207226*^9},
CellLabel->
"Out[101]=",ExpressionUUID->"9ce093aa-2496-49f6-8d70-142783f0b5a2"]
}, 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[102]:=",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.849094709385081*^9},
CellLabel->
"Out[102]=",ExpressionUUID->"03f69bd0-c7b7-41fe-be81-41b689dded7f"],
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.849094713625054*^9},
CellLabel->
"Out[103]=",ExpressionUUID->"685f74b2-d368-4e55-96d5-ea57f7e56dfd"],
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.8490947170569124`*^9},
CellLabel->
"Out[104]=",ExpressionUUID->"66019c43-cc60-4382-bbee-230993ccc365"],
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.849094720381942*^9},
CellLabel->
"Out[105]=",ExpressionUUID->"324ef384-0f6e-4ee2-90fd-2f7ba2cc705e"],
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.8490947240299416`*^9},
CellLabel->
"Out[106]=",ExpressionUUID->"9726fff8-7fd6-46df-a111-67e9f3c0153a"],
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.849094727695616*^9},
CellLabel->
"Out[107]=",ExpressionUUID->"88b451a9-f41a-4703-8e9c-a27d1354885c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[108]:=",ExpressionUUID->"d8fc61a2-b049-4a40-bac5-09ad0d8d852c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8490947277766027`*^9},
CellLabel->
"Out[108]=",ExpressionUUID->"d2f90cd9-d8d5-489d-b82e-5f22d6a13186"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8490947277866163`*^9},
CellLabel->
"Out[109]=",ExpressionUUID->"d2f2a425-d4b7-4369-98e1-f4142c8396a7"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.849094727793573*^9},
CellLabel->
"Out[110]=",ExpressionUUID->"d251a580-ca1e-4a51-922f-e37d76c82d24"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.849094727799615*^9},
CellLabel->
"Out[111]=",ExpressionUUID->"52f97365-32cb-4d6c-8aa8-aa76a205fade"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8490947278056154`*^9},
CellLabel->
"Out[112]=",ExpressionUUID->"81ca65b4-7804-4693-a928-89a2b706081b"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486531921479616`*^9, 3.8486566431723433`*^9,
3.8490947278156157`*^9},
CellLabel->
"Out[113]=",ExpressionUUID->"fde1577b-e717-44d8-a708-5829663492d4"]
}, 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[114]:=",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.849094731378603*^9},
CellLabel->
"Out[114]=",ExpressionUUID->"ba0be255-fb03-4102-ba46-ff32562a5e3f"],
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.849094734685603*^9},
CellLabel->
"Out[115]=",ExpressionUUID->"bd2db9cb-ad36-42de-9403-9bbd0b9f33fc"],
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.8490947381016226`*^9},
CellLabel->
"Out[116]=",ExpressionUUID->"b8ea38b6-ebd2-41a7-851b-1ef32fe3d073"],
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.849094741440578*^9},
CellLabel->
"Out[117]=",ExpressionUUID->"18454a3c-277e-42fd-bab5-0a02de31c053"],
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.849094744718605*^9},
CellLabel->
"Out[118]=",ExpressionUUID->"85c887b0-b6e8-4ca1-9459-8232b53fc9c3"],
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.849094747955576*^9},
CellLabel->
"Out[119]=",ExpressionUUID->"cfad6dfd-5397-40ec-91ed-7c6c3b33a3a9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[120]:=",ExpressionUUID->"f42dc8bb-e412-48d4-835d-9b812a662231"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947480739975`*^9},
CellLabel->
"Out[120]=",ExpressionUUID->"680e4322-6b63-48e9-ab57-b4fbd21d0066"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947480789585`*^9},
CellLabel->
"Out[121]=",ExpressionUUID->"2ba5ef8d-6747-4310-ab13-0aa284700185"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947480849547`*^9},
CellLabel->
"Out[122]=",ExpressionUUID->"0f57940a-49e2-48d9-a878-26c4ea4ccb58"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947480909967`*^9},
CellLabel->
"Out[123]=",ExpressionUUID->"90eecfd4-976f-4e17-8047-8e37c52da0cd"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947480969553`*^9},
CellLabel->
"Out[124]=",ExpressionUUID->"e00c8e8d-f797-42d9-9154-99039c65e0fe"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532138007307`*^9, 3.848656664603695*^9,
3.8490947481039553`*^9},
CellLabel->
"Out[125]=",ExpressionUUID->"f703a4a1-2c48-46a7-a616-5ff298cb3eb3"]
}, 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}},
CellLabel->
"In[126]:=",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.849094751423956*^9},
CellLabel->
"Out[126]=",ExpressionUUID->"46a0527a-da31-48ab-8b8f-92def49d84b6"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}],
RowBox[{"5", "/", "2"}]]}]],
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]"}]]]}]}], ")"}]}]}],
")"}]}]}]}]], "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.8490947553699875`*^9},
CellLabel->
"Out[127]=",ExpressionUUID->"191abfab-8976-4d7c-a06a-3b445a08194b"],
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.8490947585779843`*^9},
CellLabel->
"Out[128]=",ExpressionUUID->"f8ffc632-1eaf-41d6-b2cc-155125267f80"],
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.8490947617719584`*^9},
CellLabel->
"Out[129]=",ExpressionUUID->"a2b5bf9d-d8f7-4ea2-b39e-009cfc9c3b48"],
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.8490947652909565`*^9},
CellLabel->
"Out[130]=",ExpressionUUID->"34887567-e4b9-4c12-9266-3f2e1d78b4f1"],
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.8490947687289844`*^9},
CellLabel->
"Out[131]=",ExpressionUUID->"b3d01d2c-867e-46ef-b037-0353b8ba3696"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[132]:=",ExpressionUUID->"c115a379-e22b-45da-a039-2273f28d3a37"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.849094768807105*^9},
CellLabel->
"Out[132]=",ExpressionUUID->"16349665-c255-4b63-8381-a0f0d5ef310f"],
Cell[BoxData["0.023282784898262587`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8490947688181047`*^9},
CellLabel->
"Out[133]=",ExpressionUUID->"e7828309-19b8-4520-86b8-196abb6d1cca"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.849094768823105*^9},
CellLabel->
"Out[134]=",ExpressionUUID->"e6455d02-0da8-4a32-b8c2-75e49ca505b0"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8490947688281045`*^9},
CellLabel->
"Out[135]=",ExpressionUUID->"5d636e8e-2fe6-48bf-ae02-a5923bc37942"],
Cell[BoxData["0.01770443684159343`"], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8490947688361053`*^9},
CellLabel->
"Out[136]=",ExpressionUUID->"80fc4821-fdf9-47e5-ab5c-b6a57c594cd5"],
Cell[BoxData[
RowBox[{"-", "0.014455612148411906`"}]], "Output",
CellChangeTimes->{3.848653237313061*^9, 3.8486566863781548`*^9,
3.8490947688431053`*^9},
CellLabel->
"Out[137]=",ExpressionUUID->"64c73109-c556-4eb4-a77f-d92d2c010b62"]
}, 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[138]:=",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.8490947720993214`*^9},
CellLabel->
"Out[138]=",ExpressionUUID->"45f1382f-59e3-4192-9a5e-917f9f9f5547"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
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[{"(",
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.849094778248319*^9},
CellLabel->
"Out[139]=",ExpressionUUID->"7b925b91-1737-4e49-94d4-edb3d98067af"],
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.8490947815823617`*^9},
CellLabel->
"Out[140]=",ExpressionUUID->"e9056f4e-02a6-431e-9b45-f1a1b1aa36a7"],
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.8490947851508064`*^9},
CellLabel->
"Out[141]=",ExpressionUUID->"04bd4e06-7846-4571-9587-fcf93aa1eeb3"],
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.8490947886788054`*^9},
CellLabel->
"Out[142]=",ExpressionUUID->"8681b741-3759-4c07-a248-5f53aec029a0"],
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.8490947921088066`*^9},
CellLabel->
"Out[143]=",ExpressionUUID->"293fdf13-ef0b-4da5-9e17-a7e4ce834df1"]
}, Open ]],
Cell["Field part", "Text",
CellChangeTimes->{{3.848460708372683*^9,
3.848460711450735*^9}},ExpressionUUID->"433fff1d-795e-47be-983d-\
76d19dfae958"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[144]:=",ExpressionUUID->"38f7c073-3dd4-4f21-aaf9-a89f5e1d586d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947921922407`*^9},
CellLabel->
"Out[144]=",ExpressionUUID->"26112f1b-beeb-4b1d-8325-3a82394cb6f1"],
Cell[BoxData[
RowBox[{"-", "0.01901031426390709`"}]], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947922012024`*^9},
CellLabel->
"Out[145]=",ExpressionUUID->"381f31c9-7817-4bfe-9309-3f3a4d3524be"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947922072086`*^9},
CellLabel->
"Out[146]=",ExpressionUUID->"48164374-be39-4c76-8315-7ad6839ff458"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947922122035`*^9},
CellLabel->
"Out[147]=",ExpressionUUID->"e2fb11b7-0ace-4375-a58a-e39987cf3eb8"],
Cell[BoxData[
RowBox[{"-", "0.014455612148411906`"}]], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947922232056`*^9},
CellLabel->
"Out[148]=",ExpressionUUID->"f7de36aa-bce6-4fa4-87c7-849b5988da91"],
Cell[BoxData["0.011802957894395621`"], "Output",
CellChangeTimes->{3.848653264493747*^9, 3.848656710269164*^9,
3.8490947922282023`*^9},
CellLabel->
"Out[149]=",ExpressionUUID->"43afa003-82fd-442f-8c6d-b4363d5ecaac"]
}, Open ]],
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[150]:=",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.8490947938102307`*^9},
CellLabel->
"Out[150]=",ExpressionUUID->"af0554fb-ca18-4f2a-bd70-668fac81647f"],
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.8490947953902364`*^9},
CellLabel->
"Out[151]=",ExpressionUUID->"177625a3-ae3c-4356-88a1-591ed8ff228d"],
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.8490947969652314`*^9},
CellLabel->
"Out[152]=",ExpressionUUID->"daf37c27-6fc0-49a4-9fb0-dc9b910a73f1"],
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.849094798567231*^9},
CellLabel->
"Out[153]=",ExpressionUUID->"280798b1-628c-4e16-bdd0-70d608c98b95"],
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.8490948001492314`*^9},
CellLabel->
"Out[154]=",ExpressionUUID->"a8328aa8-54b9-4a30-b3de-02473c806a15"],
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.8490948017152424`*^9},
CellLabel->
"Out[155]=",ExpressionUUID->"e1cb771e-ee0e-4ce3-a947-b2ece08816ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[156]:=",ExpressionUUID->"397a550c-b586-4ddc-b6e4-c2b2071b64d6"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.849094801808203*^9},
CellLabel->
"Out[156]=",ExpressionUUID->"b6494c04-157f-4a94-844d-755db5012e82"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.8490948018162403`*^9},
CellLabel->
"Out[157]=",ExpressionUUID->"0270620c-b299-4bea-8670-d206e1566ccc"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.8490948018212023`*^9},
CellLabel->
"Out[158]=",ExpressionUUID->"e2bdf74c-3577-4ab5-a399-3d4e52caae65"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.849094801832203*^9},
CellLabel->
"Out[159]=",ExpressionUUID->"12699a26-cde6-485a-945d-413e5aba1637"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.849094801839239*^9},
CellLabel->
"Out[160]=",ExpressionUUID->"8ee59162-9297-4b90-8be5-322ea7012088"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532750971055`*^9, 3.8486567204370155`*^9,
3.8490948018452024`*^9},
CellLabel->
"Out[161]=",ExpressionUUID->"9d246f0c-df50-4a98-a580-8cbf426cd132"]
}, 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[162]:=",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.8490948034982023`*^9},
CellLabel->
"Out[162]=",ExpressionUUID->"02c7267d-5d74-4f80-acfc-d426b673b8eb"],
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.8490948051062317`*^9},
CellLabel->
"Out[163]=",ExpressionUUID->"6df61e4f-2767-4b89-b1f6-34153230758c"],
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.8490948066832237`*^9},
CellLabel->
"Out[164]=",ExpressionUUID->"b3e628d1-4cbe-4297-9f29-6430ba9db2eb"],
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.8490948082888756`*^9},
CellLabel->
"Out[165]=",ExpressionUUID->"a8daf7e3-f41b-4be9-8a30-3fa52f49b033"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox["\[Sigma]",
RowBox[{"3", "/", "2"}]], " ", "\[Tau]", " ",
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.8490948103169007`*^9},
CellLabel->
"Out[166]=",ExpressionUUID->"fd956788-534d-4f77-9db5-4d60259e79e4"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]],
RowBox[{"8", " ", "\[Sigma]", " ",
SqrtBox[
RowBox[{"\[Sigma]", " ", "\[Tau]"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ",
SuperscriptBox["\[Tau]", "3"]}]]}], "+",
SqrtBox[
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], " ", "\[Tau]"}]]}], "+",
SqrtBox[
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}], ")"}]}]}],
")"}]}]}]], "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.8490948122688994`*^9},
CellLabel->
"Out[167]=",ExpressionUUID->"30c2e434-aa9e-44ad-bfbd-8494b73297f7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[168]:=",ExpressionUUID->"6a01001b-96a0-4578-b66e-f66354b4746f"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.8490948123683295`*^9},
CellLabel->
"Out[168]=",ExpressionUUID->"69ef5696-6df4-441e-936d-db696d9c6953"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.849094812379303*^9},
CellLabel->
"Out[169]=",ExpressionUUID->"a127f47d-eb03-40f8-a387-865c0ab0782d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.849094812393303*^9},
CellLabel->
"Out[170]=",ExpressionUUID->"e6411c16-3858-4250-8485-83dc406f7dd9"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.8490948123993053`*^9},
CellLabel->
"Out[171]=",ExpressionUUID->"34d8c171-c56f-4142-b3c6-ed21466d9d58"],
Cell[BoxData[
RowBox[{"-", "0.003128720253672198`"}]], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.849094812405302*^9},
CellLabel->
"Out[172]=",ExpressionUUID->"d0529b93-1278-41b0-8ad7-a1b12f0a9be1"],
Cell[BoxData["0.002554589389802677`"], "Output",
CellChangeTimes->{3.8486532868236933`*^9, 3.8486567307007036`*^9,
3.8490948124123526`*^9},
CellLabel->
"Out[173]=",ExpressionUUID->"cf6ff3b1-84c7-4e5a-8228-2d0d87613966"]
}, 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[174]:=",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.849094815696329*^9},
CellLabel->
"Out[174]=",ExpressionUUID->"c547535b-e3d1-40e3-b4e4-1c3da72a562f"],
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.8490948189433312`*^9},
CellLabel->
"Out[175]=",ExpressionUUID->"6c74d695-e1c8-4ad9-9685-42fd6cef6227"],
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.849094822831977*^9},
CellLabel->
"Out[176]=",ExpressionUUID->"958c09b5-4148-4a1d-9e21-7d6573991277"],
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.8490948262080216`*^9},
CellLabel->
"Out[177]=",ExpressionUUID->"990314fe-ebe1-4272-9277-29741217a208"],
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.8490948295240064`*^9},
CellLabel->
"Out[178]=",ExpressionUUID->"d8dd61b6-2b2e-4c88-a486-f67584481ae2"],
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.849094832782015*^9},
CellLabel->
"Out[179]=",ExpressionUUID->"b2b4273b-f7c1-48f9-ac46-51a07b4af353"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[180]:=",ExpressionUUID->"bbe761e5-5cef-4b4a-95b4-fc2b810d5343"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.849094832860977*^9},
CellLabel->
"Out[180]=",ExpressionUUID->"20969d11-5504-4fa4-9a73-dbe6249bd3e5"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.849094832869978*^9},
CellLabel->
"Out[181]=",ExpressionUUID->"07e354a3-6c0e-4be7-8528-50529c9f02a0"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.849094832874977*^9},
CellLabel->
"Out[182]=",ExpressionUUID->"36d0d377-acb1-488a-853f-cee5c92939f5"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.8490948328809767`*^9},
CellLabel->
"Out[183]=",ExpressionUUID->"3fbe6d9f-eb95-4cc3-b6d5-7bbdf4abde41"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.8490948328889775`*^9},
CellLabel->
"Out[184]=",ExpressionUUID->"e80ae8d9-5f4b-42c2-9a6c-a6965a5cfc3d"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653308902541*^9, 3.8486567513988047`*^9,
3.8490948328949785`*^9},
CellLabel->
"Out[185]=",ExpressionUUID->"527152da-0fd4-4f92-9ed1-0a73078c7fbb"]
}, 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[186]:=",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.8490948362230062`*^9},
CellLabel->
"Out[186]=",ExpressionUUID->"d5e7c3d6-eca3-4505-8fc1-f4c561fdd034"],
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.849094839541977*^9},
CellLabel->
"Out[187]=",ExpressionUUID->"c7651543-ba32-4657-a14d-564e607b0952"],
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.8490948429979773`*^9},
CellLabel->
"Out[188]=",ExpressionUUID->"0216aee2-49e8-4748-bdd6-be232f65031b"],
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.849094847007007*^9},
CellLabel->
"Out[189]=",ExpressionUUID->"a996f39a-f6b7-4072-9764-350d7817c68c"],
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.8490948506886835`*^9},
CellLabel->
"Out[190]=",ExpressionUUID->"44b4d4ab-18e3-4345-854a-629599058a18"],
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.8490948544606924`*^9},
CellLabel->
"Out[191]=",ExpressionUUID->"b758d25d-fa23-4021-ab2d-7cb00ff741db"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[192]:=",ExpressionUUID->"dbada17e-27eb-46ab-8198-37c39193846c"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.8490948546434965`*^9},
CellLabel->
"Out[192]=",ExpressionUUID->"9728b66b-3da1-4f01-b85b-84ae3fe74737"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.84909485466051*^9},
CellLabel->
"Out[193]=",ExpressionUUID->"2be27fdc-f64b-42d0-ad00-2f437e7b2cc6"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.8490948546764865`*^9},
CellLabel->
"Out[194]=",ExpressionUUID->"0e88d1aa-63ba-44de-acdf-13330c903451"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.8490948546915007`*^9},
CellLabel->
"Out[195]=",ExpressionUUID->"1cf5504d-86d2-436b-8040-3dc85ed48310"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.849094854704486*^9},
CellLabel->
"Out[196]=",ExpressionUUID->"84ecefe7-33ee-4f50-be17-672b9a967c94"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533300437746`*^9, 3.8486567717383776`*^9,
3.849094854711484*^9},
CellLabel->
"Out[197]=",ExpressionUUID->"4a3d1d61-03de-4228-bc8e-a5a47b01a934"]
}, 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[198]:=",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.849094858634515*^9},
CellLabel->
"Out[198]=",ExpressionUUID->"e8dc9c9e-5e97-4e57-bb59-f757dfd1fd54"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]],
RowBox[{"4", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SqrtBox["\[Sigma]"], " ", "\[Tau]", " ",
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]"}]]}]}], ")"}]}]}],
")"}]}]}]], "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.8490948627525153`*^9},
CellLabel->
"Out[199]=",ExpressionUUID->"3e21b17b-afba-4096-bdca-d47d6670992c"],
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.849094866344515*^9},
CellLabel->
"Out[200]=",ExpressionUUID->"41868f64-b514-47f4-a1ec-eaa6a8b660b6"],
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.8490948699234858`*^9},
CellLabel->
"Out[201]=",ExpressionUUID->"22d314cf-d6be-41ea-93b6-ea73c3eac470"],
Cell[BoxData[
FractionBox[
RowBox[{"36", " ",
SuperscriptBox["\[Sigma]",
RowBox[{"3", "/", "2"}]], " ", "\[Tau]", " ",
RowBox[{"(",
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.849094873660515*^9},
CellLabel->
"Out[202]=",ExpressionUUID->"9b890947-3847-4e43-8027-15912180cd83"],
Cell[BoxData[
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox["\[Sigma]",
RowBox[{"3", "/", "2"}]], " ", "\[Tau]", " ",
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.8490948775555143`*^9},
CellLabel->
"Out[203]=",ExpressionUUID->"77b8afa1-c790-4f06-b93b-d8d408e40724"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[204]:=",ExpressionUUID->"6e7a5a82-ea72-4771-8ab9-bab5e66c819f"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.84909487763901*^9},
CellLabel->
"Out[204]=",ExpressionUUID->"4e01edc2-a141-43b5-ba15-d7770ab9de1e"],
Cell[BoxData["0.010312701669290771`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8490948776479836`*^9},
CellLabel->
"Out[205]=",ExpressionUUID->"47681035-50c8-4cfc-a3f5-67135e5c2695"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.849094877653983*^9},
CellLabel->
"Out[206]=",ExpressionUUID->"094dccdf-8fd3-4312-b9e3-86887da44ecd"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8490948776619825`*^9},
CellLabel->
"Out[207]=",ExpressionUUID->"abb32e80-0761-42d0-9f5a-2467ff815194"],
Cell[BoxData["0.00865114197095146`"], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.8490948776700106`*^9},
CellLabel->
"Out[208]=",ExpressionUUID->"e4386d48-95a4-40a1-9021-052b99911c99"],
Cell[BoxData[
RowBox[{"-", "0.007063627840402216`"}]], "Output",
CellChangeTimes->{3.848653352255895*^9, 3.848656792424225*^9,
3.84909487767702*^9},
CellLabel->
"Out[209]=",ExpressionUUID->"47805f50-8d2c-45cf-ba0f-a22ed9cd6ebb"]
}, 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[210]:=",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.8490948811359854`*^9},
CellLabel->
"Out[210]=",ExpressionUUID->"0d22817d-f569-49aa-ad16-6b644269848f"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"5", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}], "3"]}]],
RowBox[{"8", " ",
SqrtBox[
RowBox[{"\[Sigma]", " ", "\[Tau]"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ",
SuperscriptBox["\[Tau]", "2"]}], "-",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"1", "+", "\[Sigma]"}]], " ", "\[Tau]"}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"\[Tau]", " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}], "-",
RowBox[{"3", " ",
SqrtBox[
RowBox[{
SuperscriptBox["\[Tau]", "3"], " ",
RowBox[{"(",
RowBox[{"\[Sigma]", "+", "\[Tau]"}], ")"}]}]]}]}], ")"}]}]}],
")"}]}]}]}]], "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.849094884909011*^9},
CellLabel->
"Out[211]=",ExpressionUUID->"cae2fdea-70f3-48b6-8885-6dd00b68b518"],
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.8490948883080125`*^9},
CellLabel->
"Out[212]=",ExpressionUUID->"189278b3-a0b6-45ae-8d59-ad5df918e4d7"],
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.849094891645013*^9},
CellLabel->
"Out[213]=",ExpressionUUID->"31aca65e-7b7f-4d43-bd07-6e687f649f28"],
Cell[BoxData[
FractionBox[
RowBox[{"12", " ",
SqrtBox[
FractionBox["6", "\[Pi]"]], " ",
SuperscriptBox["\[Sigma]",
RowBox[{"3", "/", "2"}]], " ", "\[Tau]", " ",
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.8490948951210117`*^9},
CellLabel->
"Out[214]=",ExpressionUUID->"e6d67372-0b8b-451f-9b17-d3e871652d6f"],
Cell[BoxData[
FractionBox[
RowBox[{"24", " ",
SuperscriptBox["\[Sigma]",
RowBox[{"3", "/", "2"}]], " ", "\[Tau]", " ",
RowBox[{"(",
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.849094898662012*^9},
CellLabel->
"Out[215]=",ExpressionUUID->"9e07b76d-7ede-4081-8ee8-22d98bd73cd4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"N", "[",
RowBox[{
RowBox[{"r1", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r2", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r3", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r4", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r5", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"r6", " ", "/.", " ",
RowBox[{"\[Tau]", " ", "->", " ", "taucheck"}]}], " ", "/.", " ",
RowBox[{"\[Sigma]", "->", "sigmacheck"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.848652715419838*^9, 3.8486527713739524`*^9}},
CellLabel->
"In[216]:=",ExpressionUUID->"f4df1b93-9aa1-4682-a47b-f5b1bdd80d42"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.849094898749197*^9},
CellLabel->
"Out[216]=",ExpressionUUID->"cf65f1d3-8963-4654-aaef-d7f4d96fab33"],
Cell[BoxData[
RowBox[{"-", "0.008420285653103547`"}]], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.849094898762163*^9},
CellLabel->
"Out[217]=",ExpressionUUID->"1cd6b6db-931b-46c2-9306-335ff2289c33"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8490948987691607`*^9},
CellLabel->
"Out[218]=",ExpressionUUID->"cc7692a9-d7c0-4676-9051-62a5c8dcab55"],
Cell[BoxData["0.`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.849094898775161*^9},
CellLabel->
"Out[219]=",ExpressionUUID->"ee5e938b-6c3d-4128-aeea-d0f85f50fc1a"],
Cell[BoxData[
RowBox[{"-", "0.007063627840402216`"}]], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.849094898788161*^9},
CellLabel->
"Out[220]=",ExpressionUUID->"05e7c2be-69c1-4e5b-9d23-7cb2fa701447"],
Cell[BoxData["0.005767427980634306`"], "Output",
CellChangeTimes->{3.8486533730619726`*^9, 3.8486568126802936`*^9,
3.8490948987961626`*^9},
CellLabel->
"Out[221]=",ExpressionUUID->"48072787-3644-4400-aecb-17660b8f14f8"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{539.25, 634.5},
WindowMargins->{{176.25, Automatic}, {47.25, Automatic}},
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
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, 222, "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, 2275, 59, 204, "Input",ExpressionUUID->"5a923148-5d29-4862-b230-f9a771b02287"]
}, Open ]],
Cell[CellGroupData[{
Cell[3285, 98, 155, 3, 69, "Chapter",ExpressionUUID->"b9619d6b-05f1-4a49-9e76-cf6dd7e7e979"],
Cell[3443, 103, 1040, 33, 97, "Input",ExpressionUUID->"e271d785-161d-4b28-a441-41e687626b2c"],
Cell[4486, 138, 1145, 36, 97, "Input",ExpressionUUID->"ff721210-a9c8-4b5b-b82f-f8433f9695bd"]
}, Open ]],
Cell[CellGroupData[{
Cell[5668, 179, 229, 4, 69, "Chapter",ExpressionUUID->"854cc2ce-652f-4212-b7b1-67ca1152aef7"],
Cell[5900, 185, 1120, 32, 92, "Input",ExpressionUUID->"f7f85cb1-011b-4e9a-a7d9-ade68b25e295"]
}, Open ]],
Cell[CellGroupData[{
Cell[7057, 222, 138, 2, 69, "Chapter",ExpressionUUID->"e8799af6-6144-4ac6-a07f-2fc11456b629"],
Cell[7198, 226, 704, 20, 69, "Input",ExpressionUUID->"ffa92f40-3afb-4f00-9daf-7c5a90d1e436"]
}, Open ]],
Cell[CellGroupData[{
Cell[7939, 251, 194, 3, 117, "Chapter",ExpressionUUID->"2f90102b-f0d5-44c2-bb2b-356e473b100f"],
Cell[8136, 256, 3770, 108, 316, "Input",ExpressionUUID->"11dbcede-9de3-42ce-aae8-0f3e096ce8f3"]
}, Open ]],
Cell[CellGroupData[{
Cell[11943, 369, 161, 3, 69, "Chapter",ExpressionUUID->"854b8f1a-14bf-45f5-afc8-529ae35205de"],
Cell[12107, 374, 1019, 30, 77, "Input",ExpressionUUID->"a90d9482-a8fb-476b-9d0a-2aac948168f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[13163, 409, 162, 3, 69, "Chapter",ExpressionUUID->"5834c9be-1ff2-462e-9fd7-97fab78363f2"],
Cell[13328, 414, 1415, 44, 67, "Input",ExpressionUUID->"6efc656b-7bf6-4861-8bf3-2a2fc5d355b3"],
Cell[14746, 460, 1380, 46, 67, "Input",ExpressionUUID->"603d0a1d-9dec-482b-a154-d6c3e0370c83"],
Cell[16129, 508, 987, 26, 90, "Input",ExpressionUUID->"fd244816-2784-459f-bc9d-9a77245afb5d"],
Cell[17119, 536, 1720, 45, 198, "Input",ExpressionUUID->"c905f9a3-d3f2-413a-bfd7-267a8717b746"],
Cell[18842, 583, 829, 26, 48, "Input",ExpressionUUID->"0c3c17c5-8c13-4980-a5ac-f2943002251a"],
Cell[19674, 611, 1415, 46, 67, "Input",ExpressionUUID->"8369a22d-856d-48af-991d-8d6918e027be"],
Cell[21092, 659, 1411, 48, 86, "Input",ExpressionUUID->"d2597c75-f9e2-47fa-b161-9d5dac3728d7"],
Cell[22506, 709, 2989, 95, 293, "Input",ExpressionUUID->"06e6ed8c-4848-4bb0-9805-6d6446516c89"],
Cell[25498, 806, 1716, 45, 198, "Input",ExpressionUUID->"e2b1f320-eedf-4e72-aaf8-fd8578766747"],
Cell[27217, 853, 744, 23, 48, "Input",ExpressionUUID->"3f3d66a9-be18-49c6-a41e-2fc0e43acf25"],
Cell[27964, 878, 786, 25, 48, "Input",ExpressionUUID->"b1f1f5b8-1ec5-4cde-8f53-3da170cffdba"],
Cell[28753, 905, 1543, 42, 167, "Input",ExpressionUUID->"71ab37e9-ec7a-4fac-87d3-99e32c11f6c8"],
Cell[30299, 949, 1133, 34, 123, "Input",ExpressionUUID->"b903581e-da3b-4d6f-82c1-7f75fc3d8ec4"],
Cell[31435, 985, 547, 14, 48, "Input",ExpressionUUID->"02dbbd11-226d-451a-92ea-2c4db75812e0"],
Cell[31985, 1001, 864, 22, 69, "Input",ExpressionUUID->"7901b4a1-5bbc-4422-90bf-e69ab3ac79b6"],
Cell[32852, 1025, 1034, 24, 38, "Input",ExpressionUUID->"8d52ba63-b682-474f-ba9f-7c6dd6662be5"],
Cell[33889, 1051, 3406, 107, 288, "Input",ExpressionUUID->"35c04f88-d660-40f0-9035-b8b782ab1296"]
}, Open ]],
Cell[CellGroupData[{
Cell[37332, 1163, 261, 3, 69, "Chapter",ExpressionUUID->"80cfaa8c-473b-466d-b451-c63961a6e516"],
Cell[37596, 1168, 188, 3, 35, "Text",ExpressionUUID->"57d54ea5-3a48-451f-8897-7859f0434fb9"],
Cell[37787, 1173, 1343, 34, 108, "Input",ExpressionUUID->"be39ef20-e57a-4b9b-9da0-b187f9239f85"],
Cell[39133, 1209, 196, 3, 35, "Text",ExpressionUUID->"05e17edb-1d68-4afd-a9b2-77b189039f99"],
Cell[39332, 1214, 2614, 78, 245, "Input",ExpressionUUID->"b757c789-b319-4bbe-8b9d-3fdb4e7ea998"],
Cell[41949, 1294, 913, 26, 68, "Input",ExpressionUUID->"3648a005-a669-4d7c-a69f-73d465b8ea69"],
Cell[CellGroupData[{
Cell[42887, 1324, 668, 15, 48, "Input",ExpressionUUID->"20f89bf9-702e-4729-8a05-b2d50fdb8b2d"],
Cell[43558, 1341, 489, 7, 32, "Output",ExpressionUUID->"306731d2-e996-4a37-8e82-d168a4e707f4"]
}, Open ]],
Cell[CellGroupData[{
Cell[44084, 1353, 516, 13, 48, "Input",ExpressionUUID->"df9d6575-4518-4710-936a-4ff051564524"],
Cell[44603, 1368, 258, 4, 32, "Output",ExpressionUUID->"b03ca340-5dc5-431d-85e9-f714dfca43ce"]
}, Open ]],
Cell[CellGroupData[{
Cell[44898, 1377, 571, 14, 48, "Input",ExpressionUUID->"f2368a75-6090-4d3c-8674-10a38011e8db"],
Cell[45472, 1393, 279, 4, 32, "Output",ExpressionUUID->"f0eb0175-4b8b-4a6b-bd98-4d116b9a9951"]
}, Open ]],
Cell[CellGroupData[{
Cell[45788, 1402, 571, 14, 48, "Input",ExpressionUUID->"34f5c504-c0ba-4283-b2d2-2779a493e3a2"],
Cell[46362, 1418, 259, 4, 32, "Output",ExpressionUUID->"ab8d9c3c-0c0d-4ee3-9af0-0163f21bba7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[46658, 1427, 569, 14, 48, "Input",ExpressionUUID->"8829fe6d-c412-477e-b925-5eea62ec311c"],
Cell[47230, 1443, 278, 4, 32, "Output",ExpressionUUID->"87e92b46-6e0b-4ad0-8fbf-5fbe8fd64d40"]
}, Open ]],
Cell[47523, 1450, 191, 3, 35, "Text",ExpressionUUID->"98e79ac8-1f5e-4bd5-b6d3-8426d3f5dc82"],
Cell[47717, 1455, 699, 19, 48, "Input",ExpressionUUID->"39d9465a-6305-4a84-be13-3ae56d55f154"],
Cell[CellGroupData[{
Cell[48441, 1478, 1032, 22, 48, "Input",ExpressionUUID->"f7cdf000-af98-47be-9a65-d152897f4df0"],
Cell[49476, 1502, 1126, 15, 32, "Output",ExpressionUUID->"b2c74dc3-5c1a-404a-aa4c-2907d3b8cb32"],
Cell[50605, 1519, 1126, 15, 32, "Output",ExpressionUUID->"e42ca956-2695-406a-91ab-3dd58567af51"]
}, Open ]],
Cell[CellGroupData[{
Cell[51768, 1539, 816, 20, 48, "Input",ExpressionUUID->"e6b652f2-8057-40ef-b88b-29b2ea5af9ea"],
Cell[52587, 1561, 333, 4, 32, "Output",ExpressionUUID->"365925cf-25be-4327-a39b-15163bfb8ff3"]
}, Open ]],
Cell[CellGroupData[{
Cell[52957, 1570, 373, 9, 28, "Input",ExpressionUUID->"966dff69-6aa5-474c-ac5a-557b835ed2b9"],
Cell[53333, 1581, 288, 4, 32, "Output",ExpressionUUID->"f61d80e3-8dcf-4699-b22c-ef11828dd37c"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[53670, 1591, 397, 6, 117, "Chapter",ExpressionUUID->"556b3a23-6af7-4aed-ba7b-adc5f2ff1506"],
Cell[54070, 1599, 3803, 104, 314, "Input",ExpressionUUID->"108a6a3f-eaf4-4c14-86df-9a672a496310"],
Cell[CellGroupData[{
Cell[57898, 1707, 1027, 22, 48, "Input",ExpressionUUID->"ca87d1b7-491a-4549-9054-0abfce143969"],
Cell[58928, 1731, 439, 6, 32, "Output",ExpressionUUID->"91bae3bb-b973-4493-9361-b33290ead081"]
}, Open ]],
Cell[CellGroupData[{
Cell[59404, 1742, 927, 22, 48, "Input",ExpressionUUID->"1334b341-c4eb-4597-8295-2ab27668dae0"],
Cell[60334, 1766, 335, 5, 32, "Output",ExpressionUUID->"71c59e49-d4a0-45f7-aad6-6ed13d167d32"]
}, Open ]],
Cell[CellGroupData[{
Cell[60706, 1776, 1010, 23, 48, "Input",ExpressionUUID->"5767f687-7912-45fd-93ca-598c2c7373fa"],
Cell[61719, 1801, 335, 5, 32, "Output",ExpressionUUID->"677d8527-cbbf-48ce-a17a-c5ce714a6c6c"]
}, Open ]],
Cell[CellGroupData[{
Cell[62091, 1811, 866, 20, 48, "Input",ExpressionUUID->"e1edfc3f-de0a-476f-9b60-99f6f41fc6c1"],
Cell[62960, 1833, 316, 4, 32, "Output",ExpressionUUID->"d3a544ab-09ee-44e6-83b4-a6eb0499c1c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[63313, 1842, 619, 13, 28, "Input",ExpressionUUID->"5b290db3-fc2f-4b99-9d6e-5327efa8758c"],
Cell[63935, 1857, 301, 4, 32, "Output",ExpressionUUID->"828f45e4-7d8b-4086-ab8c-c1894c86e41f"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[64285, 1867, 161, 3, 69, "Chapter",ExpressionUUID->"7ccb75bb-0030-4aa0-9c27-88061685d34a"],
Cell[64449, 1872, 348, 7, 48, "Input",ExpressionUUID->"1f3cf27f-6236-45f1-9c0d-30bd9d50e6d5"],
Cell[64800, 1881, 3228, 81, 200, "Input",ExpressionUUID->"9c243c2f-95b0-42ce-b6b7-dd8555414f82"],
Cell[68031, 1964, 1345, 35, 140, "Input",ExpressionUUID->"3fdfa3d6-a290-429a-99ac-cb89d439ceaf"],
Cell[69379, 2001, 153, 3, 35, "Text",ExpressionUUID->"1001ce71-b149-49c4-9e90-449068477735"],
Cell[CellGroupData[{
Cell[69557, 2008, 1869, 43, 143, "Input",ExpressionUUID->"f4604ec5-863b-4998-a772-f2f8b1707954"],
Cell[71429, 2053, 881, 12, 32, "Output",ExpressionUUID->"c7b7087a-a8fa-4124-9361-80fc0831909b"],
Cell[72313, 2067, 883, 12, 32, "Output",ExpressionUUID->"b1e68f6d-d896-49a1-b31d-322f286a44a2"],
Cell[73199, 2081, 883, 12, 32, "Output",ExpressionUUID->"0b90b23e-0ab8-4f42-a280-0045359cf3eb"],
Cell[74085, 2095, 883, 12, 32, "Output",ExpressionUUID->"9442ffb8-a3ce-4f23-b17a-4f580636bab2"],
Cell[74971, 2109, 881, 12, 32, "Output",ExpressionUUID->"50d073c7-553f-42c6-b785-fff52d4d7326"],
Cell[75855, 2123, 881, 12, 32, "Output",ExpressionUUID->"2240a478-9907-4d5e-b664-15cb6ce1203a"]
}, Open ]],
Cell[CellGroupData[{
Cell[76773, 2140, 1432, 32, 124, "Input",ExpressionUUID->"e8e1ea69-22d3-40d7-a9dc-e4a96c0628f9"],
Cell[78208, 2174, 198, 3, 32, "Output",ExpressionUUID->"c2fefbc5-1600-4f80-9932-53f3d278a154"],
Cell[78409, 2179, 198, 3, 32, "Output",ExpressionUUID->"a341e263-1f94-44b8-9375-567a0ca90d95"],
Cell[78610, 2184, 198, 3, 32, "Output",ExpressionUUID->"9c11adfd-bcc5-41d9-8555-87e5f3cf3849"],
Cell[78811, 2189, 200, 3, 32, "Output",ExpressionUUID->"095594d9-60ad-43d3-9665-505924934b98"],
Cell[79014, 2194, 200, 3, 32, "Output",ExpressionUUID->"2da1c2b3-c2ff-43d5-81f1-df4a5e2372a2"],
Cell[79217, 2199, 200, 3, 32, "Output",ExpressionUUID->"1e85427a-dac6-436f-9c9e-f860d7923fdb"]
}, Open ]],
Cell[CellGroupData[{
Cell[79454, 2207, 1545, 38, 124, "Input",ExpressionUUID->"9ec48d6f-30d3-49b8-9b84-72fc79e80e77"],
Cell[81002, 2247, 579, 8, 32, "Output",ExpressionUUID->"8b3e154d-c735-43af-9ee8-1649e568ab86"],
Cell[81584, 2257, 577, 8, 32, "Output",ExpressionUUID->"fb51320b-8f2a-46f8-b541-dd0e994ab4f1"],
Cell[82164, 2267, 579, 8, 32, "Output",ExpressionUUID->"302412b7-5a61-423a-a2bf-5bd85ddb7c13"],
Cell[82746, 2277, 579, 8, 32, "Output",ExpressionUUID->"4afeb040-f776-4478-8b89-b4b72247f266"],
Cell[83328, 2287, 1462, 38, 68, "Output",ExpressionUUID->"d7eeb116-81d4-4307-a598-51d0514ee6d0"],
Cell[84793, 2327, 1439, 37, 69, "Output",ExpressionUUID->"ca83326f-0bb9-46ca-b2d3-4efbc60938ae"]
}, Open ]],
Cell[CellGroupData[{
Cell[86269, 2369, 1432, 32, 124, "Input",ExpressionUUID->"011d1383-1234-44d8-a0be-8ce63470c1f6"],
Cell[87704, 2403, 246, 3, 32, "Output",ExpressionUUID->"f85fa04b-dbbb-4a53-858d-6ee38e37d74d"],
Cell[87953, 2408, 246, 3, 32, "Output",ExpressionUUID->"8fc968ee-9cdb-46d0-960e-e8e716582c60"],
Cell[88202, 2413, 248, 3, 32, "Output",ExpressionUUID->"1614a638-1a46-44a7-9379-23629f457c09"],
Cell[88453, 2418, 248, 3, 32, "Output",ExpressionUUID->"70ab3733-a0e6-4cbb-aea0-22eff18d30d1"],
Cell[88704, 2423, 287, 5, 32, "Output",ExpressionUUID->"dcf41dec-ae7f-4068-b9a4-e8e373d423d8"],
Cell[88994, 2430, 268, 4, 32, "Output",ExpressionUUID->"9ce093aa-2496-49f6-8d70-142783f0b5a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[89299, 2439, 1669, 41, 143, "Input",ExpressionUUID->"3cb0f24f-a4ba-45de-ae43-375f7ae1252a"],
Cell[90971, 2482, 511, 8, 32, "Output",ExpressionUUID->"03f69bd0-c7b7-41fe-be81-41b689dded7f"],
Cell[91485, 2492, 511, 8, 32, "Output",ExpressionUUID->"685f74b2-d368-4e55-96d5-ea57f7e56dfd"],
Cell[91999, 2502, 513, 8, 32, "Output",ExpressionUUID->"66019c43-cc60-4382-bbee-230993ccc365"],
Cell[92515, 2512, 511, 8, 32, "Output",ExpressionUUID->"324ef384-0f6e-4ee2-90fd-2f7ba2cc705e"],
Cell[93029, 2522, 513, 8, 32, "Output",ExpressionUUID->"9726fff8-7fd6-46df-a111-67e9f3c0153a"],
Cell[93545, 2532, 511, 8, 32, "Output",ExpressionUUID->"88b451a9-f41a-4703-8e9c-a27d1354885c"]
}, Open ]],
Cell[CellGroupData[{
Cell[94093, 2545, 1436, 33, 124, "Input",ExpressionUUID->"d8fc61a2-b049-4a40-bac5-09ad0d8d852c"],
Cell[95532, 2580, 208, 4, 32, "Output",ExpressionUUID->"d2f90cd9-d8d5-489d-b82e-5f22d6a13186"],
Cell[95743, 2586, 208, 4, 32, "Output",ExpressionUUID->"d2f2a425-d4b7-4369-98e1-f4142c8396a7"],
Cell[95954, 2592, 206, 4, 32, "Output",ExpressionUUID->"d251a580-ca1e-4a51-922f-e37d76c82d24"],
Cell[96163, 2598, 206, 4, 32, "Output",ExpressionUUID->"52f97365-32cb-4d6c-8aa8-aa76a205fade"],
Cell[96372, 2604, 208, 4, 32, "Output",ExpressionUUID->"81ca65b4-7804-4693-a928-89a2b706081b"],
Cell[96583, 2610, 208, 4, 32, "Output",ExpressionUUID->"fde1577b-e717-44d8-a708-5829663492d4"]
}, Open ]],
Cell[CellGroupData[{
Cell[96828, 2619, 1602, 40, 124, "Input",ExpressionUUID->"a56a6226-1f20-4f5c-bc71-630f1a0c225a"],
Cell[98433, 2661, 488, 8, 32, "Output",ExpressionUUID->"ba0be255-fb03-4102-ba46-ff32562a5e3f"],
Cell[98924, 2671, 488, 8, 32, "Output",ExpressionUUID->"bd2db9cb-ad36-42de-9403-9bbd0b9f33fc"],
Cell[99415, 2681, 490, 8, 32, "Output",ExpressionUUID->"b8ea38b6-ebd2-41a7-851b-1ef32fe3d073"],
Cell[99908, 2691, 488, 8, 32, "Output",ExpressionUUID->"18454a3c-277e-42fd-bab5-0a02de31c053"],
Cell[100399, 2701, 488, 8, 32, "Output",ExpressionUUID->"85c887b0-b6e8-4ca1-9459-8232b53fc9c3"],
Cell[100890, 2711, 488, 8, 32, "Output",ExpressionUUID->"cfad6dfd-5397-40ec-91ed-7c6c3b33a3a9"]
}, Open ]],
Cell[CellGroupData[{
Cell[101415, 2724, 1436, 33, 124, "Input",ExpressionUUID->"f42dc8bb-e412-48d4-835d-9b812a662231"],
Cell[102854, 2759, 206, 4, 32, "Output",ExpressionUUID->"680e4322-6b63-48e9-ab57-b4fbd21d0066"],
Cell[103063, 2765, 206, 4, 32, "Output",ExpressionUUID->"2ba5ef8d-6747-4310-ab13-0aa284700185"],
Cell[103272, 2771, 206, 4, 32, "Output",ExpressionUUID->"0f57940a-49e2-48d9-a878-26c4ea4ccb58"],
Cell[103481, 2777, 206, 4, 32, "Output",ExpressionUUID->"90eecfd4-976f-4e17-8047-8e37c52da0cd"],
Cell[103690, 2783, 206, 4, 32, "Output",ExpressionUUID->"e00c8e8d-f797-42d9-9154-99039c65e0fe"],
Cell[103899, 2789, 206, 4, 32, "Output",ExpressionUUID->"f703a4a1-2c48-46a7-a616-5ff298cb3eb3"]
}, Open ]],
Cell[CellGroupData[{
Cell[104142, 2798, 1604, 40, 124, "Input",ExpressionUUID->"aec01d3c-202f-4848-b1a5-ca914b37d3d3"],
Cell[105749, 2840, 492, 8, 32, "Output",ExpressionUUID->"46a0527a-da31-48ab-8b8f-92def49d84b6"],
Cell[106244, 2850, 1763, 50, 123, "Output",ExpressionUUID->"191abfab-8976-4d7c-a06a-3b445a08194b"],
Cell[108010, 2902, 494, 8, 32, "Output",ExpressionUUID->"f8ffc632-1eaf-41d6-b2cc-155125267f80"],
Cell[108507, 2912, 494, 8, 32, "Output",ExpressionUUID->"a2b5bf9d-d8f7-4ea2-b39e-009cfc9c3b48"],
Cell[109004, 2922, 1096, 28, 57, "Output",ExpressionUUID->"34887567-e4b9-4c12-9266-3f2e1d78b4f1"],
Cell[110103, 2952, 1082, 28, 67, "Output",ExpressionUUID->"b3d01d2c-867e-46ef-b037-0353b8ba3696"]
}, Open ]],
Cell[CellGroupData[{
Cell[111222, 2985, 1436, 33, 124, "Input",ExpressionUUID->"c115a379-e22b-45da-a039-2273f28d3a37"],
Cell[112661, 3020, 204, 4, 32, "Output",ExpressionUUID->"16349665-c255-4b63-8381-a0f0d5ef310f"],
Cell[112868, 3026, 224, 4, 32, "Output",ExpressionUUID->"e7828309-19b8-4520-86b8-196abb6d1cca"],
Cell[113095, 3032, 204, 4, 32, "Output",ExpressionUUID->"e6455d02-0da8-4a32-b8c2-75e49ca505b0"],
Cell[113302, 3038, 206, 4, 32, "Output",ExpressionUUID->"5d636e8e-2fe6-48bf-ae02-a5923bc37942"],
Cell[113511, 3044, 223, 4, 32, "Output",ExpressionUUID->"80fc4821-fdf9-47e5-ab5c-b6a57c594cd5"],
Cell[113737, 3050, 241, 5, 32, "Output",ExpressionUUID->"64c73109-c556-4eb4-a77f-d92d2c010b62"]
}, Open ]],
Cell[CellGroupData[{
Cell[114015, 3060, 1701, 41, 124, "Input",ExpressionUUID->"e1e8c367-9f75-41c4-81a2-dd9ea449597b"],
Cell[115719, 3103, 538, 8, 32, "Output",ExpressionUUID->"45f1382f-59e3-4192-9a5e-917f9f9f5547"],
Cell[116260, 3113, 1759, 48, 123, "Output",ExpressionUUID->"7b925b91-1737-4e49-94d4-edb3d98067af"],
Cell[118022, 3163, 538, 8, 32, "Output",ExpressionUUID->"e9056f4e-02a6-431e-9b45-f1a1b1aa36a7"],
Cell[118563, 3173, 538, 8, 32, "Output",ExpressionUUID->"04bd4e06-7846-4571-9587-fcf93aa1eeb3"],
Cell[119104, 3183, 1126, 28, 67, "Output",ExpressionUUID->"8681b741-3759-4c07-a248-5f53aec029a0"],
Cell[120233, 3213, 1139, 28, 57, "Output",ExpressionUUID->"293fdf13-ef0b-4da5-9e17-a7e4ce834df1"]
}, Open ]],
Cell[121387, 3244, 152, 3, 35, "Text",ExpressionUUID->"433fff1d-795e-47be-983d-76d19dfae958"],
Cell[CellGroupData[{
Cell[121564, 3251, 1436, 33, 124, "Input",ExpressionUUID->"38f7c073-3dd4-4f21-aaf9-a89f5e1d586d"],
Cell[123003, 3286, 204, 4, 32, "Output",ExpressionUUID->"26112f1b-beeb-4b1d-8325-3a82394cb6f1"],
Cell[123210, 3292, 238, 5, 32, "Output",ExpressionUUID->"381f31c9-7817-4bfe-9309-3f3a4d3524be"],
Cell[123451, 3299, 204, 4, 32, "Output",ExpressionUUID->"48164374-be39-4c76-8315-7ad6839ff458"],
Cell[123658, 3305, 204, 4, 32, "Output",ExpressionUUID->"e2fb11b7-0ace-4375-a58a-e39987cf3eb8"],
Cell[123865, 3311, 239, 5, 32, "Output",ExpressionUUID->"f7de36aa-bce6-4fa4-87c7-849b5988da91"],
Cell[124107, 3318, 222, 4, 32, "Output",ExpressionUUID->"43afa003-82fd-442f-8c6d-b4363d5ecaac"]
}, Open ]],
Cell[CellGroupData[{
Cell[124366, 3327, 1697, 41, 143, "Input",ExpressionUUID->"44140c8f-7108-4cf9-93a0-af3ced2400df"],
Cell[126066, 3370, 510, 8, 32, "Output",ExpressionUUID->"af0554fb-ca18-4f2a-bd70-668fac81647f"],
Cell[126579, 3380, 510, 8, 32, "Output",ExpressionUUID->"177625a3-ae3c-4356-88a1-591ed8ff228d"],
Cell[127092, 3390, 510, 8, 32, "Output",ExpressionUUID->"daf37c27-6fc0-49a4-9fb0-dc9b910a73f1"],
Cell[127605, 3400, 508, 8, 32, "Output",ExpressionUUID->"280798b1-628c-4e16-bdd0-70d608c98b95"],
Cell[128116, 3410, 510, 8, 32, "Output",ExpressionUUID->"a8328aa8-54b9-4a30-b3de-02473c806a15"],
Cell[128629, 3420, 510, 8, 32, "Output",ExpressionUUID->"e1cb771e-ee0e-4ce3-a947-b2ece08816ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[129176, 3433, 1436, 33, 124, "Input",ExpressionUUID->"397a550c-b586-4ddc-b6e4-c2b2071b64d6"],
Cell[130615, 3468, 206, 4, 32, "Output",ExpressionUUID->"b6494c04-157f-4a94-844d-755db5012e82"],
Cell[130824, 3474, 208, 4, 32, "Output",ExpressionUUID->"0270620c-b299-4bea-8670-d206e1566ccc"],
Cell[131035, 3480, 208, 4, 32, "Output",ExpressionUUID->"e2bdf74c-3577-4ab5-a399-3d4e52caae65"],
Cell[131246, 3486, 206, 4, 32, "Output",ExpressionUUID->"12699a26-cde6-485a-945d-413e5aba1637"],
Cell[131455, 3492, 206, 4, 32, "Output",ExpressionUUID->"8ee59162-9297-4b90-8be5-322ea7012088"],
Cell[131664, 3498, 208, 4, 32, "Output",ExpressionUUID->"9d246f0c-df50-4a98-a580-8cbf426cd132"]
}, Open ]],
Cell[CellGroupData[{
Cell[131909, 3507, 1598, 40, 143, "Input",ExpressionUUID->"4ea37344-b899-4465-824b-aa08b18b10bd"],
Cell[133510, 3549, 470, 7, 32, "Output",ExpressionUUID->"02c7267d-5d74-4f80-acfc-d426b673b8eb"],
Cell[133983, 3558, 470, 7, 32, "Output",ExpressionUUID->"6df61e4f-2767-4b89-b1f6-34153230758c"],
Cell[134456, 3567, 470, 7, 32, "Output",ExpressionUUID->"b3e628d1-4cbe-4297-9f29-6430ba9db2eb"],
Cell[134929, 3576, 470, 7, 32, "Output",ExpressionUUID->"a8daf7e3-f41b-4be9-8a30-3fa52f49b033"],
Cell[135402, 3585, 1058, 27, 67, "Output",ExpressionUUID->"fd956788-534d-4f77-9db5-4d60259e79e4"],
Cell[136463, 3614, 1464, 42, 81, "Output",ExpressionUUID->"30c2e434-aa9e-44ad-bfbd-8494b73297f7"]
}, Open ]],
Cell[CellGroupData[{
Cell[137964, 3661, 1436, 33, 124, "Input",ExpressionUUID->"6a01001b-96a0-4578-b66e-f66354b4746f"],
Cell[139403, 3696, 208, 4, 32, "Output",ExpressionUUID->"69ef5696-6df4-441e-936d-db696d9c6953"],
Cell[139614, 3702, 206, 4, 32, "Output",ExpressionUUID->"a127f47d-eb03-40f8-a387-865c0ab0782d"],
Cell[139823, 3708, 206, 4, 32, "Output",ExpressionUUID->"e6411c16-3858-4250-8485-83dc406f7dd9"],
Cell[140032, 3714, 208, 4, 32, "Output",ExpressionUUID->"34d8c171-c56f-4142-b3c6-ed21466d9d58"],
Cell[140243, 3720, 241, 5, 32, "Output",ExpressionUUID->"d0529b93-1278-41b0-8ad7-a1b12f0a9be1"],
Cell[140487, 3727, 226, 4, 32, "Output",ExpressionUUID->"cf6ff3b1-84c7-4e5a-8228-2d0d87613966"]
}, Open ]],
Cell[CellGroupData[{
Cell[140750, 3736, 1651, 41, 143, "Input",ExpressionUUID->"501b5ee3-c0e4-4494-a575-4a8b91b432a2"],
Cell[142404, 3779, 445, 7, 32, "Output",ExpressionUUID->"c547535b-e3d1-40e3-b4e4-1c3da72a562f"],
Cell[142852, 3788, 447, 7, 32, "Output",ExpressionUUID->"6c74d695-e1c8-4ad9-9685-42fd6cef6227"],
Cell[143302, 3797, 445, 7, 32, "Output",ExpressionUUID->"958c09b5-4148-4a1d-9e21-7d6573991277"],
Cell[143750, 3806, 447, 7, 32, "Output",ExpressionUUID->"990314fe-ebe1-4272-9277-29741217a208"],
Cell[144200, 3815, 447, 7, 32, "Output",ExpressionUUID->"d8dd61b6-2b2e-4c88-a486-f67584481ae2"],
Cell[144650, 3824, 445, 7, 32, "Output",ExpressionUUID->"b2b4273b-f7c1-48f9-ac46-51a07b4af353"]
}, Open ]],
Cell[CellGroupData[{
Cell[145132, 3836, 1436, 33, 124, "Input",ExpressionUUID->"bbe761e5-5cef-4b4a-95b4-fc2b810d5343"],
Cell[146571, 3871, 204, 4, 32, "Output",ExpressionUUID->"20969d11-5504-4fa4-9a73-dbe6249bd3e5"],
Cell[146778, 3877, 204, 4, 32, "Output",ExpressionUUID->"07e354a3-6c0e-4be7-8528-50529c9f02a0"],
Cell[146985, 3883, 204, 4, 32, "Output",ExpressionUUID->"36d0d377-acb1-488a-853f-cee5c92939f5"],
Cell[147192, 3889, 206, 4, 32, "Output",ExpressionUUID->"3fbe6d9f-eb95-4cc3-b6d5-7bbdf4abde41"],
Cell[147401, 3895, 206, 4, 32, "Output",ExpressionUUID->"e80ae8d9-5f4b-42c2-9a6c-a6965a5cfc3d"],
Cell[147610, 3901, 206, 4, 32, "Output",ExpressionUUID->"527152da-0fd4-4f92-9ed1-0a73078c7fbb"]
}, Open ]],
Cell[CellGroupData[{
Cell[147853, 3910, 1648, 41, 143, "Input",ExpressionUUID->"3bc1356c-2870-407f-9dd9-b66ffa7e1d86"],
Cell[149504, 3953, 449, 7, 32, "Output",ExpressionUUID->"d5e7c3d6-eca3-4505-8fc1-f4c561fdd034"],
Cell[149956, 3962, 447, 7, 32, "Output",ExpressionUUID->"c7651543-ba32-4657-a14d-564e607b0952"],
Cell[150406, 3971, 449, 7, 32, "Output",ExpressionUUID->"0216aee2-49e8-4748-bdd6-be232f65031b"],
Cell[150858, 3980, 447, 7, 32, "Output",ExpressionUUID->"a996f39a-f6b7-4072-9764-350d7817c68c"],
Cell[151308, 3989, 449, 7, 32, "Output",ExpressionUUID->"44b4d4ab-18e3-4345-854a-629599058a18"],
Cell[151760, 3998, 449, 7, 32, "Output",ExpressionUUID->"b758d25d-fa23-4021-ab2d-7cb00ff741db"]
}, Open ]],
Cell[CellGroupData[{
Cell[152246, 4010, 1436, 33, 124, "Input",ExpressionUUID->"dbada17e-27eb-46ab-8198-37c39193846c"],
Cell[153685, 4045, 208, 4, 32, "Output",ExpressionUUID->"9728b66b-3da1-4f01-b85b-84ae3fe74737"],
Cell[153896, 4051, 205, 4, 32, "Output",ExpressionUUID->"2be27fdc-f64b-42d0-ad00-2f437e7b2cc6"],
Cell[154104, 4057, 208, 4, 32, "Output",ExpressionUUID->"0e88d1aa-63ba-44de-acdf-13330c903451"],
Cell[154315, 4063, 208, 4, 32, "Output",ExpressionUUID->"1cf5504d-86d2-436b-8040-3dc85ed48310"],
Cell[154526, 4069, 206, 4, 32, "Output",ExpressionUUID->"84ecefe7-33ee-4f50-be17-672b9a967c94"],
Cell[154735, 4075, 206, 4, 32, "Output",ExpressionUUID->"4a3d1d61-03de-4228-bc8e-a5a47b01a934"]
}, Open ]],
Cell[CellGroupData[{
Cell[154978, 4084, 1646, 41, 143, "Input",ExpressionUUID->"aeaff039-e3ae-4c0b-8b48-bd036758bb20"],
Cell[156627, 4127, 438, 7, 32, "Output",ExpressionUUID->"e8dc9c9e-5e97-4e57-bb59-f757dfd1fd54"],
Cell[157068, 4136, 1420, 41, 86, "Output",ExpressionUUID->"3e21b17b-afba-4096-bdca-d47d6670992c"],
Cell[158491, 4179, 438, 7, 32, "Output",ExpressionUUID->"41868f64-b514-47f4-a1ec-eaa6a8b660b6"],
Cell[158932, 4188, 440, 7, 32, "Output",ExpressionUUID->"22d314cf-d6be-41ea-93b6-ea73c3eac470"],
Cell[159375, 4197, 1147, 32, 57, "Output",ExpressionUUID->"9b890947-3847-4e43-8027-15912180cd83"],
Cell[160525, 4231, 1090, 30, 67, "Output",ExpressionUUID->"77b8afa1-c790-4f06-b93b-d8d408e40724"]
}, Open ]],
Cell[CellGroupData[{
Cell[161652, 4266, 1436, 33, 124, "Input",ExpressionUUID->"6e7a5a82-ea72-4771-8ab9-bab5e66c819f"],
Cell[163091, 4301, 201, 4, 32, "Output",ExpressionUUID->"4e01edc2-a141-43b5-ba15-d7770ab9de1e"],
Cell[163295, 4307, 222, 4, 32, "Output",ExpressionUUID->"47681035-50c8-4cfc-a3f5-67135e5c2695"],
Cell[163520, 4313, 202, 4, 32, "Output",ExpressionUUID->"094dccdf-8fd3-4312-b9e3-86887da44ecd"],
Cell[163725, 4319, 204, 4, 32, "Output",ExpressionUUID->"abb32e80-0761-42d0-9f5a-2467ff815194"],
Cell[163932, 4325, 221, 4, 32, "Output",ExpressionUUID->"e4386d48-95a4-40a1-9021-052b99911c99"],
Cell[164156, 4331, 236, 5, 32, "Output",ExpressionUUID->"47805f50-8d2c-45cf-ba0f-a22ed9cd6ebb"]
}, Open ]],
Cell[CellGroupData[{
Cell[164429, 4341, 1648, 41, 143, "Input",ExpressionUUID->"45ac83ef-f451-499e-94ee-376b039d5dfe"],
Cell[166080, 4384, 419, 7, 32, "Output",ExpressionUUID->"0d22817d-f569-49aa-ad16-6b644269848f"],
Cell[166502, 4393, 1600, 47, 81, "Output",ExpressionUUID->"cae2fdea-70f3-48b6-8885-6dd00b68b518"],
Cell[168105, 4442, 419, 7, 32, "Output",ExpressionUUID->"189278b3-a0b6-45ae-8d59-ad5df918e4d7"],
Cell[168527, 4451, 417, 7, 32, "Output",ExpressionUUID->"31aca65e-7b7f-4d43-bd07-6e687f649f28"],
Cell[168947, 4460, 1069, 30, 67, "Output",ExpressionUUID->"e6d67372-0b8b-451f-9b17-d3e871652d6f"],
Cell[170019, 4492, 1126, 32, 57, "Output",ExpressionUUID->"9e07b76d-7ede-4081-8ee8-22d98bd73cd4"]
}, Open ]],
Cell[CellGroupData[{
Cell[171182, 4529, 1436, 33, 124, "Input",ExpressionUUID->"f4df1b93-9aa1-4682-a47b-f5b1bdd80d42"],
Cell[172621, 4564, 206, 4, 32, "Output",ExpressionUUID->"cf65f1d3-8963-4654-aaef-d7f4d96fab33"],
Cell[172830, 4570, 241, 5, 32, "Output",ExpressionUUID->"1cd6b6db-931b-46c2-9306-335ff2289c33"],
Cell[173074, 4577, 208, 4, 32, "Output",ExpressionUUID->"cc7692a9-d7c0-4676-9051-62a5c8dcab55"],
Cell[173285, 4583, 206, 4, 32, "Output",ExpressionUUID->"ee5e938b-6c3d-4128-aeea-d0f85f50fc1a"],
Cell[173494, 4589, 241, 5, 32, "Output",ExpressionUUID->"05e7c2be-69c1-4e5b-9d23-7cb2fa701447"],
Cell[173738, 4596, 226, 4, 32, "Output",ExpressionUUID->"48072787-3644-4400-aecb-17660b8f14f8"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
c4science · Help