(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 336585, 8952]
NotebookOptionsPosition[ 323326, 8711]
NotebookOutlinePosition[ 323751, 8728]
CellTagsIndexPosition[ 323708, 8725]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Kinematic Variables", "Section",
CellChangeTimes->{{3.894223960150984*^9,
3.8942239642501993`*^9}},ExpressionUUID->"cae1891f-1799-425d-be97-\
d3178d22ce5a"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Conversion", " ", "between", " ", "various", " ", "kinematic", " ",
RowBox[{"variables", ".", " ", "Definitions"}], " ", "are", " ", "given",
" ", "in", " ", "Appendix", " ", "6"}], "-",
RowBox[{"A", " ", "of", " ", "the", " ",
RowBox[{"thesis", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"Simplification", " ", "for", " ", "gamma", " ", "parameter"}],
" ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"GSim", "[", "expr_", "]"}], ":=", " ",
RowBox[{"Simplify", "[",
RowBox[{"expr", ",",
RowBox[{"Assumptions", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"m", ">", "0"}], ",",
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[Nu]", "<",
RowBox[{"1", "/", "4"}]}], ",",
RowBox[{"\[Gamma]", ">", "1"}]}], "}"}]}]}], "]"}]}], ";"}],
"\[IndentingNewLine]", "\n",
RowBox[{"(*", " ",
RowBox[{"Conversion", " ", "to", " ", "gamma", " ", "parameter"}], " ",
"*)"}], " ", "\n",
RowBox[{
RowBox[{"rep\[Gamma]", " ", "=", " ",
RowBox[{"{",
RowBox[{
RowBox[{"ET", "->", " ",
RowBox[{"m", "*", "\[Gamma]"}]}], ",",
RowBox[{"\[Sigma]", "->",
RowBox[{"1", "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "2"}], "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "*", "\[Nu]"}], ")"}]}]}]}], ",", " ",
RowBox[{"\[Xi]", "->", " ",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Gamma]", "4"], "+",
RowBox[{"4", " ", "\[Nu]"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "4"]}]]}], ",",
RowBox[{"PS", "->",
FractionBox[
RowBox[{
SuperscriptBox["m", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Gamma]", "2"], "+",
RowBox[{"4", " ", "\[Nu]"}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "2"]}]]}], ",", " ",
RowBox[{"\[Epsilon]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{"\[Gamma]", "-", "1"}], ")"}], "/", "\[Nu]"}]}], ",", " ",
RowBox[{"\[Zeta]", "->",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "2"}], "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "\[Nu]"}], ")"}]}]}]}], "}"}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"ToGamma", "[", "expr_", "]"}], ":=", " ",
RowBox[{"GSim", "[",
RowBox[{"expr", "/.", "rep\[Gamma]"}], "]"}]}], ";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8942239821501904`*^9, 3.894223985660634*^9},
3.89422435633986*^9, {3.894654092433753*^9, 3.894654110806666*^9}, {
3.8946542077360373`*^9,
3.894654215024328*^9}},ExpressionUUID->"015dcc3c-89d2-435f-9fe2-\
41a12ddddc7b"]
}, Closed]],
Cell[CellGroupData[{
Cell["PN Lagrangian and Canonical Velocity", "Section",
CellChangeTimes->{{3.894224403565544*^9, 3.894224412584155*^9}, {
3.894224743244788*^9,
3.894224744181829*^9}},ExpressionUUID->"4d339bf9-67ac-4f61-b84b-\
364199772506"],
Cell[CellGroupData[{
Cell["\<\
https://arxiv.org/abs/gr-qc/0209089v2\t\tBlanchet + Iyer, Actions\
\>", "Item",
CellChangeTimes->{{3.890259589925364*^9,
3.89025960980793*^9}},ExpressionUUID->"11a08e61-0f8c-4376-b62e-\
9f1262277cbf"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"NG", "=", " ", "4"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NPN", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{"N\[Eta]", " ", "=", " ",
RowBox[{"2", "*",
RowBox[{"(",
RowBox[{"NPN", "+", "1"}], ")"}]}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890320983171652*^9, 3.890320990810493*^9}, {
3.890322279386107*^9, 3.890322285848646*^9}, {3.8903280112263947`*^9,
3.8903280147882957`*^9}, {3.890569513789043*^9, 3.890569521938648*^9}, {
3.890670764736085*^9, 3.890670764812841*^9}, {3.890787822579899*^9,
3.890787822755014*^9}, {3.8907942401316643`*^9, 3.890794240212851*^9}, {
3.8907962000169497`*^9, 3.890796200216741*^9}, {3.8907979643479*^9,
3.890797965358919*^9}, {3.890868668906342*^9, 3.8908686689796762`*^9}, {
3.891124836294311*^9, 3.891124836410592*^9}, {3.891127130312338*^9,
3.891127130386238*^9}, {3.89112727675497*^9, 3.891127299326356*^9}, {
3.894224879226116*^9, 3.8942248798981743`*^9}},
CellLabel->
"In[172]:=",ExpressionUUID->"732752ef-167a-4ee0-8611-57a828beda6e"],
Cell[BoxData["8"], "Output",
CellChangeTimes->{3.8946477230596647`*^9, 3.8946477564557447`*^9,
3.894651102935821*^9},
CellLabel->
"Out[174]=",ExpressionUUID->"db885eca-208b-4f2e-a79d-e7a6912d376f"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cL", "[", "0", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"VS", "/", "2"}], " ", "+", " ",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8902406222776127`*^9, 3.8902406518971653`*^9},
3.8903225341971397`*^9, {3.890337232418178*^9, 3.890337255382683*^9}, {
3.8905043194599743`*^9, 3.8905043328069468`*^9}, {3.894224459584292*^9,
3.8942244674605293`*^9}},
CellLabel->
"In[175]:=",ExpressionUUID->"dccd7a31-6604-44be-b14f-dac4bbae402f"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cL", "[", "1", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "8"}], ")"}], "*",
RowBox[{"VS", "^", "2"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"3", "*", "\[Nu]"}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "*",
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "*",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "+", "\[Nu]"}], ")"}], "*", "VS"}]}], ")"}]}], " ", "-",
" ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}]}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8902406549241333`*^9, 3.890240736061652*^9}, {
3.890240773138163*^9, 3.8902407740025797`*^9}, 3.89032253506733*^9, {
3.890504339934589*^9, 3.8905043437100563`*^9}, {3.89422445776961*^9,
3.894224468140689*^9}},
CellLabel->
"In[176]:=",ExpressionUUID->"4245e2e7-2fb6-4c62-83ef-5e53b51b7e5c"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cL", "[", "2", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "16"}], ")"}], "*",
RowBox[{"VS", "^", "3"}]}], "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"7", "*",
RowBox[{"\[Nu]", "/", "16"}]}], ")"}], "*",
RowBox[{"VS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"13", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "16"}]}], ")"}], "*",
RowBox[{"VS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "8"}]}], ")"}], "*",
RowBox[{"VR", "^", "4"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"\[Nu]", "/", "2"}], ")"}], "*", "VS", "*",
RowBox[{"VR", "^", "2"}]}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"5", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "4"}]}], ")"}], "*", "VS", "*",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"7", "/", "8"}], ")"}], "*",
RowBox[{"VS", "^", "2"}]}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"3", "*",
RowBox[{"\[Nu]", "/", "2"}]}], ")"}], "*",
RowBox[{"VS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"9", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "8"}]}], ")"}], "*",
RowBox[{"VS", "^", "2"}]}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "*",
RowBox[{"\[Nu]", "/", "2"}]}], ")"}], "*",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2"}]}], ")"}], "*",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{"2", "VS"}], " ", "-",
RowBox[{"\[Nu]", "*", "VS"}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2"}], ")"}], "*", "VS"}]}],
")"}]}], " ", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"1", "/", "4"}], " ", "+", " ",
RowBox[{"3", "*",
RowBox[{"\[Nu]", "/", "4"}]}]}], ")"}]}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8903273358827267`*^9, 3.890327341860641*^9}, {
3.890327435365559*^9, 3.890327436659267*^9}, {3.890327565908243*^9,
3.890327780390935*^9}, 3.890327911270336*^9, {3.890504346607423*^9,
3.8905043500673027`*^9}, {3.894224455865691*^9, 3.894224469054522*^9}},
CellLabel->
"In[177]:=",ExpressionUUID->"9293da63-f541-4416-8fc4-39ef86f3d011"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"cL", "[", "3", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"5", "/", "128"}], ")"}],
RowBox[{"VS", "^", "4"}]}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"59",
RowBox[{"\[Nu]", "/", "128"}]}], ")"}],
RowBox[{"VS", "^", "4"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"119",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "64"}]}], ")"}],
RowBox[{"VS", "^", "4"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"323",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "128"}]}], ")"}],
RowBox[{"VS", "^", "4"}]}]}], ")"}], "\[IndentingNewLine]", "\t\t",
"+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"5",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "16"}]}], ")"}],
RowBox[{"VR", "^", "6"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"9",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "16"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"33",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "16"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"\[Nu]", "/", "2"}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"3",
RowBox[{"\[Nu]", "^", "2"}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"75",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "16"}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"11", "/", "16"}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"7",
RowBox[{"\[Nu]", "/", "2"}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"59",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "16"}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"65",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "16"}]}], ")"}],
RowBox[{"VS", "^", "3"}]}]}], ")"}]}], "\n", "\t\t", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"5",
RowBox[{"\[Nu]", "/", "12"}]}], ")"}]}],
RowBox[{"VR", "^", "4"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"17",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "12"}]}], ")"}],
RowBox[{"VR", "^", "4"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"2",
RowBox[{"\[Nu]", "^", "3"}]}], ")"}],
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"39",
RowBox[{"\[Nu]", "/", "16"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"29",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "8"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"27",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "4"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"47", "/", "16"}], ")"}],
RowBox[{"VS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"15",
RowBox[{"\[Nu]", "/", "4"}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"25",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "16"}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"9",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "4"}]}], ")"}],
RowBox[{"VS", "^", "2"}]}]}], ")"}]}], "\n", "\t\t", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"77",
RowBox[{"\[Nu]", "/", "16"}]}], ")"}],
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"5",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "4"}]}], ")"}],
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"7",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "2"}]}], ")"}],
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "\[Nu]", " ",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "64"}]}], ")"}],
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"13", "/", "8"}], ")"}], "VS"}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"409",
RowBox[{"\[Nu]", "/", "48"}]}], ")"}], "VS"}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"5",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "8"}]}], ")"}], "VS"}], "\n",
"\t\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "2"}], ")"}], "VS"}], " ", "-",
" ",
RowBox[{
RowBox[{"(",
RowBox[{"\[Nu]", " ",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "64"}]}], ")"}], "VS"}]}],
")"}]}], "\n", "\t\t", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "4"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "/", "8"}], ")"}]}], " ", "-", " ",
RowBox[{"(",
RowBox[{"1881",
RowBox[{"\[Nu]", "/", "280"}]}], ")"}], " ", "+", " ",
RowBox[{"(",
RowBox[{"11", "\[Lambda]", " ",
RowBox[{"\[Nu]", "/", "3"}]}], ")"}], " ", "+", " ",
RowBox[{"(",
RowBox[{"21", " ", "\[Nu]", " ",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "32"}]}], ")"}]}], ")"}]}]}],
")"}]}], ";"}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.8902406549241333`*^9, 3.890240736061652*^9}, {
3.890240773138163*^9, 3.8902407740025797`*^9}, 3.89032253506733*^9, {
3.890504339934589*^9, 3.8905043437100563`*^9}, {3.890567784239296*^9,
3.890567821445455*^9}, {3.890568055746121*^9, 3.890568246309147*^9}, {
3.890568322685288*^9, 3.890568408890514*^9}, {3.890568449763092*^9,
3.890568856804899*^9}, {3.890568939444475*^9, 3.8905689395501347`*^9}, {
3.890568976809886*^9, 3.890568976957695*^9}, {3.8905690431840267`*^9,
3.8905690433066072`*^9}, 3.890569114927269*^9, {3.8905693516891727`*^9,
3.89056949477378*^9}, {3.8942244530649023`*^9, 3.894224470153116*^9}},
CellLabel->
"In[178]:=",ExpressionUUID->"08065884-ac8b-4874-93bc-389057bc29df"],
Cell[BoxData[
RowBox[{
RowBox[{"L", " ", "=",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"cL", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890240845681034*^9, 3.8902408693374043`*^9}, {
3.890315173259632*^9, 3.890315173931595*^9}, {3.890321444154867*^9,
3.890321444588747*^9}, 3.890322537507406*^9, {3.890327282156609*^9,
3.890327293870141*^9}, {3.890327914435871*^9, 3.890327914484991*^9}, {
3.890334939172299*^9, 3.890334952639138*^9}, 3.890336514003448*^9, {
3.890339838128599*^9, 3.890339843776091*^9}, 3.890352831827773*^9, {
3.8903532675497503`*^9, 3.890353269843655*^9}, {3.890393476640233*^9,
3.8903934845901203`*^9}, {3.890398892521035*^9, 3.890398894302663*^9}, {
3.8903994789117937`*^9, 3.8903994820989122`*^9}, 3.890399603957809*^9,
3.890404297933728*^9, {3.890404884070484*^9, 3.890404887208099*^9},
3.89040543730249*^9, {3.8904056010986433`*^9, 3.890405601223155*^9}, {
3.8904064789145517`*^9, 3.89040648116276*^9}, 3.890412821589115*^9, {
3.890567800278927*^9, 3.8905678009173403`*^9}, {3.890794251252488*^9,
3.8907942513292713`*^9}, {3.89079624791004*^9, 3.890796247999865*^9}, {
3.8907980202692204`*^9, 3.89079802204184*^9}, {3.8908686728174467`*^9,
3.8908686728781757`*^9}, {3.891124840970078*^9, 3.891124841038762*^9}, {
3.8911271409658527`*^9, 3.8911271410277147`*^9}, {3.894224478154879*^9,
3.894224480411875*^9}},
CellLabel->
"In[179]:=",ExpressionUUID->"ee6f2a0e-b361-4781-9bf0-f310afd187f2"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"Canonical", " ", "velocity", " ", "in", " ", "terms", " ", "of", " ",
"canonical", " ", "momentum", " ",
RowBox[{"(",
RowBox[{"to", " ", "3", "PN", " ", "order"}], ")"}]}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"v", "[", "i", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"p", "[", "i", "]"}], "+",
RowBox[{
FractionBox["1", "2"], " ", "PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"3", " ", "\[Nu]"}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{
FractionBox["3", "8"], " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ", "\[Nu]"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{
FractionBox["5", "16"], " ",
SuperscriptBox["PS", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"7", " ", "\[Nu]"}], "-",
RowBox[{"14", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"7", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
SuperscriptBox["m", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"8", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"3", " ", "PR", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
SuperscriptBox["r", "3"]], "+",
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"m", " ",
RowBox[{"(",
RowBox[{"3", "+", "\[Nu]"}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "r"]}], "-",
FractionBox[
RowBox[{"m", " ", "PR", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}],
SuperscriptBox["r", "2"]]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["m", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "600"}], "-",
RowBox[{"1340", " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]"}], "-",
RowBox[{"552", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}],
RowBox[{"96", " ",
SuperscriptBox["r", "3"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["m", "3"], " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "340"}], " ", "\[Nu]"}], "-",
RowBox[{"3", " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]"}], "-",
RowBox[{"112", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"q", "[", "i", "]"}]}],
RowBox[{"32", " ",
SuperscriptBox["r", "4"]}]]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["m", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "54"}], " ", "PS"}], "+",
RowBox[{"17", " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "+",
RowBox[{"272", " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"30", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"218", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}],
RowBox[{"8", " ",
SuperscriptBox["r", "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["m", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"40", " ",
SuperscriptBox["PR", "3"], " ", "\[Nu]"}], "+",
RowBox[{"51", " ", "PR", " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"344", " ",
SuperscriptBox["PR", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"90", " ", "PR", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"q", "[", "i", "]"}]}],
RowBox[{"24", " ",
SuperscriptBox["r", "3"]}]]}], ")"}]}], "+",
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ", "m", " ", "PS"}], "+",
RowBox[{"20", " ", "m", " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"m", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"3", " ", "m", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}],
RowBox[{"2", " ", "r"}]]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"m", " ", "PR", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}], " ",
RowBox[{"q", "[", "i", "]"}]}],
RowBox[{"2", " ",
SuperscriptBox["r", "2"]}]]}], ")"}]}], "+",
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"m", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}],
RowBox[{"4", " ", "r"}]], "-",
FractionBox[
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\[Nu]", "2"]}], "+",
SuperscriptBox["\[Nu]", "3"]}], ")"}]}],
RowBox[{"8", " ", "r"}]], "-",
FractionBox[
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"7", "-",
RowBox[{"42", " ", "\[Nu]"}], "+",
RowBox[{"53", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}],
RowBox[{"8", " ", "r"}]]}], ")"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["r", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "m", " ",
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"2", " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"15", " ", "m", " ",
SuperscriptBox["PR", "5"], " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"6", " ", "m", " ",
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"3", " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894224658723138*^9, 3.894224729633789*^9}, {
3.894225031804035*^9, 3.894225039525304*^9}, 3.894647803883367*^9},
CellLabel->
"In[180]:=",ExpressionUUID->"5e45d014-2b86-49d0-b70f-50b772705000"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Replacement", " ", "rules", " ", "for", " ", "scalars", " ",
SuperscriptBox["v", "2"]}], ",", " ",
SubscriptBox["v", "r"], ",", " ",
RowBox[{"and", " ",
SubscriptBox["v", "\[Phi]"]}], ",", " ",
RowBox[{"respectively", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"v2p", "=",
RowBox[{"{",
RowBox[{
RowBox[{"VS", "\[Rule]",
RowBox[{"PS", "+",
RowBox[{
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"3", " ", "\[Nu]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"2", " ", "G", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "m", " ", "PS"}], "+",
RowBox[{"m", " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "+",
RowBox[{"m", " ", "PS", " ", "\[Nu]"}]}], ")"}]}], "r"], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"19", " ",
SuperscriptBox["m", "2"], " ", "PS"}], "+",
RowBox[{"12", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "+",
RowBox[{"22", " ",
SuperscriptBox["m", "2"], " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
SuperscriptBox["r", "2"]], "+",
RowBox[{
FractionBox["1",
RowBox[{"48", " ",
SuperscriptBox["r", "3"]}]],
RowBox[{
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2040"}], " ",
SuperscriptBox["m", "3"], " ", "PS"}], "-",
RowBox[{"2364", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "-",
RowBox[{"9", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "-",
RowBox[{"4124", " ",
SuperscriptBox["m", "3"], " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ", "PS", " ", "\[Nu]"}], "-",
RowBox[{"1680", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"1320", " ",
SuperscriptBox["m", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1", "4"], " ", "PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["PS", "2"]}], "-",
RowBox[{"21", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1", "r"],
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "m", " ",
SuperscriptBox["PS", "2"]}], "+",
RowBox[{"m", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ", "\[Nu]"}], "-",
RowBox[{"28", " ", "m", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "-",
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"5", " ", "m", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"6", " ", "m", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"6", " ",
SuperscriptBox["r", "2"]}]],
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "201"}], " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"]}], "+",
RowBox[{"20", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "4"], " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"780", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "+",
RowBox[{"226", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"300", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"645", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"42", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "3"]}], "+",
RowBox[{"36", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "3"]}], "+",
RowBox[{"18", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1", "8"], " ", "PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ",
SuperscriptBox["PS", "3"]}], "+",
RowBox[{"59", " ",
SuperscriptBox["PS", "3"], " ", "\[Nu]"}], "-",
RowBox[{"130", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"80", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "r"}]],
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "40"}], " ", "m", " ",
SuperscriptBox["PS", "3"]}], "-",
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "+",
RowBox[{"238", " ", "m", " ",
SuperscriptBox["PS", "3"], " ", "\[Nu]"}], "+",
RowBox[{"15", " ", "m", " ",
SuperscriptBox["PR", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"25", " ", "m", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"303", " ", "m", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"15", " ", "m", " ",
SuperscriptBox["PR", "6"], " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"27", " ", "m", " ",
SuperscriptBox["PR", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"36", " ", "m", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"48", " ", "m", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}]}]}], ",",
RowBox[{"VR", "\[Rule]",
RowBox[{"PR", "-",
FractionBox[
RowBox[{"G", " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "m"}], "+",
RowBox[{"2", " ", "m", " ", "\[Nu]"}]}], ")"}]}], "r"], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["m", "2"], " ", "PR"}], "+",
RowBox[{"11", " ",
SuperscriptBox["m", "2"], " ", "PR", " ", "\[Nu]"}]}], ")"}]}],
SuperscriptBox["r", "2"]], "+",
RowBox[{
FractionBox["1", "2"], " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "PS"}], "+",
RowBox[{"3", " ", "PS", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{
FractionBox["3", "8"], " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ", "\[Nu]"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "-",
FractionBox[
RowBox[{
SuperscriptBox["G", "3"], " ",
SuperscriptBox["m", "3"], " ", "PR", " ",
RowBox[{"(",
RowBox[{"300", "+",
RowBox[{"1180", " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]"}], "+",
RowBox[{"444", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"48", " ",
SuperscriptBox["r", "3"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
SuperscriptBox["m", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "162"}], " ", "PR", " ", "PS"}], "+",
RowBox[{"91", " ",
SuperscriptBox["PR", "3"], " ", "\[Nu]"}], "+",
RowBox[{"867", " ", "PR", " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"434", " ",
SuperscriptBox["PR", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"744", " ", "PR", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"24", " ",
SuperscriptBox["r", "2"]}]], "+",
FractionBox[
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ", "m", " ", "PR", " ", "PS"}], "-",
RowBox[{"20", " ", "m", " ", "PR", " ", "PS", " ", "\[Nu]"}], "-",
RowBox[{"4", " ", "m", " ",
SuperscriptBox["PR", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"4", " ", "m", " ", "PR", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"2", " ", "r"}]], "+",
RowBox[{
FractionBox["5", "16"], " ", "PR", " ",
SuperscriptBox["PS", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"7", " ", "\[Nu]"}], "-",
RowBox[{"14", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"7", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ", "r"}]],
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "21"}], " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"]}], "+",
RowBox[{"126", " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "+",
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "5"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"10", " ", "m", " ",
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"157", " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"18", " ", "m", " ",
SuperscriptBox["PR", "5"], " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"12", " ", "m", " ",
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "3"]}], "-",
RowBox[{"18", " ", "m", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}]}]}], ",",
RowBox[{"VP", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"]}], "r"], "-",
FractionBox[
RowBox[{"G", " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "m"}], "+",
RowBox[{"m", " ", "\[Nu]"}]}], ")"}]}],
SuperscriptBox["r", "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["m", "2"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["m", "2"], " ", "\[Nu]"}]}], ")"}]}],
SuperscriptBox["r", "3"]], "+",
FractionBox[
RowBox[{
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "PS"}], "+",
RowBox[{"3", " ", "PS", " ", "\[Nu]"}]}], ")"}]}],
RowBox[{"2", " ", "r"}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["G", "3"], " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"600", " ",
SuperscriptBox["m", "3"]}], "+",
RowBox[{"1340", " ",
SuperscriptBox["m", "3"], " ", "\[Nu]"}], "-",
RowBox[{"3", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]"}], "+",
RowBox[{"552", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"96", " ",
SuperscriptBox["r", "4"]}]], "-",
FractionBox[
RowBox[{"G", " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ", "m", " ", "PS"}], "+",
RowBox[{"20", " ", "m", " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"m", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"3", " ", "m", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["r", "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["r", "3"]}]],
RowBox[{
SuperscriptBox["G", "2"], " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "54"}], " ",
SuperscriptBox["m", "2"], " ", "PS"}], "+",
RowBox[{"17", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]"}], "+",
RowBox[{"272", " ",
SuperscriptBox["m", "2"], " ", "PS", " ", "\[Nu]"}], "+",
RowBox[{"30", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"218", " ",
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], "+",
FractionBox[
RowBox[{"3", " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["PS", "2"], "-",
RowBox[{"5", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "+",
RowBox[{"5", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"8", " ", "r"}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["r", "2"]}]],
RowBox[{"G", " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"21", " ", "m", " ",
SuperscriptBox["PS", "2"]}], "-",
RowBox[{"126", " ", "m", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]"}], "-",
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"4", " ", "m", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"159", " ", "m", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"3", " ", "m", " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "3"]}], "+",
RowBox[{"6", " ", "m", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "3"]}], "+",
RowBox[{"15", " ", "m", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], "+",
FractionBox[
RowBox[{"5", " ",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["PR", "2"], "PS"]}]], " ",
SqrtBox["PS"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["PS", "3"]}], "+",
RowBox[{"7", " ",
SuperscriptBox["PS", "3"], " ", "\[Nu]"}], "-",
RowBox[{"14", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"7", " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}],
RowBox[{"16", " ", "r"}]]}]}]}], "}"}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8942251391392097`*^9, 3.89422517565298*^9},
3.894647807181274*^9},
CellLabel->
"In[181]:=",ExpressionUUID->"ed31ad57-0d64-4d90-9981-20c6dc6a5415"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Hamiltonians", "Section",
CellChangeTimes->{{3.8942237140280867`*^9,
3.8942237338102818`*^9}},ExpressionUUID->"cc8a2a57-d8fe-4934-8ae4-\
d3a36c159eef"],
Cell[CellGroupData[{
Cell["3PM Hamiltonian", "Subsection",
CellChangeTimes->{{3.88884757256183*^9, 3.888847594052085*^9},
3.8888480220323133`*^9, {3.894223878311599*^9,
3.894223878586231*^9}},ExpressionUUID->"c898d3b0-7ff5-4d1a-97c4-\
15fb2dacb7ed"],
Cell[CellGroupData[{
Cell["https://arxiv.org/pdf/1908.01493.pdf (10.10)", "Item",
InitializationCell->True,
CellChangeTimes->{{3.885232541863076*^9,
3.885232550788225*^9}},ExpressionUUID->"97dea7f0-8acf-4551-b141-\
cb630c8bf6d0"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"PM", "/", "PN"}], " ", "Order", " ", "Parameters"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NG", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NPN", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"N\[Eta]", " ", "=", " ",
RowBox[{"2", "*",
RowBox[{"(",
RowBox[{"NPN", "+", "1"}], ")"}]}]}], ";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890076047863315*^9, 3.890076054505713*^9},
3.8900768866328793`*^9, {3.890397440060548*^9, 3.890397440731824*^9}, {
3.8904062574567633`*^9, 3.8904062576104593`*^9}, {3.890418898166856*^9,
3.8904188987724743`*^9}, {3.890497912968954*^9, 3.8904979214998903`*^9}, {
3.8904979661419373`*^9, 3.890497980518064*^9}, {3.89049802824759*^9,
3.890498029377657*^9}, {3.891346150004504*^9, 3.891346150100061*^9}},
CellLabel->
"In[182]:=",ExpressionUUID->"2ddc8f31-b985-4fa8-9e3c-aa69edb2ad12"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"PM", " ", "Coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"See", " ", "\"\<Kinematic Variables\>\"", " ", "section", " ", "of", " ",
"this", " ", "notebook", " ", "for", " ",
RowBox[{"defs", ".", " ", "of"}], " ", "ET"}], ",", " ", "\[Gamma]", ",",
" ", "\[Xi]", ",", " ",
RowBox[{"etc", "."}]}], "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"cPM", "[", "0", "]"}], " ", "=", " ", "ET"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPM", "[", "1", "]"}], " ", "=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{
RowBox[{"m", "^", "2"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "2"}], "*", "\[Xi]"}], ")"}]}]}], ")"}],
"*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPM", "[", "2", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{
RowBox[{"m", "^", "3"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "2"}], "*", "\[Xi]"}], ")"}]}]}], ")"}],
"*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "/", "4"}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"4", "*", "\[Nu]", "*",
RowBox[{"\[Sigma]", "/",
RowBox[{"(",
RowBox[{"\[Gamma]", "*", "\[Xi]"}], ")"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"\[Gamma]", "^", "3"}], "*",
RowBox[{"\[Xi]", "^", "2"}]}], ")"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-", "\[Xi]"}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "^", "2"}]}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPM", "[", "3", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"m", "^", "4"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "2"}], "*", "\[Xi]"}], ")"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "12"}], ")"}], "*",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"6", "*", "\[Nu]"}], "+",
RowBox[{"206", "*", "\[Nu]", "*", "\[Sigma]"}], " ", "-", " ",
RowBox[{"54", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], " ", "+", " ",
RowBox[{"108", "*", "\[Nu]", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], " ", "+", " ",
RowBox[{"4", "*", "\[Nu]", "*",
RowBox[{"\[Sigma]", "^", "3"}]}]}], ")"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"4", "*", "\[Nu]", "*",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"12", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], " ", "-", " ",
RowBox[{"4", "*",
RowBox[{"\[Sigma]", "^", "4"}]}]}], ")"}], "*",
RowBox[{"ArcSinh", "[",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"(",
RowBox[{"\[Sigma]", "-", "1"}], ")"}], "/", "2"}], "]"}],
"]"}]}], ")"}], "/",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"\[Sigma]", "^", "2"}], "-", "1"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"3", "*", "\[Nu]", "*", "\[Gamma]", "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"(",
RowBox[{"1", "+", "\[Gamma]"}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}], ")"}]}], " ", "-",
RowBox[{"3", "*", "\[Nu]", "*", "\[Sigma]", "*",
RowBox[{
RowBox[{"(",
RowBox[{"7", "-",
RowBox[{"20", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "*", "\[Gamma]", "*", "\[Xi]"}], ")"}]}]}], " ", "+",
" ",
RowBox[{
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"\[Nu]", "^", "3"}], "*",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"4", "*", "\[Xi]"}]}], ")"}], "*", "\[Sigma]", "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "^", "2"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "^", "4"}], "*",
RowBox[{"\[Xi]", "^", "3"}]}], ")"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", "\[Gamma]"}], "-",
RowBox[{"3", "\[Xi]"}], "-",
RowBox[{"15", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], "-",
RowBox[{"80", "*", "\[Gamma]", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], " ", "+",
RowBox[{"15", "*", "\[Xi]", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"4", "*",
RowBox[{"\[Gamma]", "^", "3"}], "*",
RowBox[{"\[Xi]", "^", "2"}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Nu]", "^", "4"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*", "\[Xi]"}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}]}], ")"}], "^", "3"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"\[Gamma]", "^", "6"}], "*",
RowBox[{"\[Xi]", "^", "4"}]}], ")"}]}]}], ")"}]}]}],
";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8887824303103647`*^9, 3.888782443682513*^9}, {
3.888782476688233*^9, 3.888782488541444*^9}, 3.8888473737869263`*^9, {
3.88884747681352*^9, 3.8888474941434097`*^9}, 3.888847601850832*^9, {
3.888857062934125*^9, 3.888857191654626*^9}, 3.8888574075043793`*^9, {
3.8904979291650133`*^9, 3.8904979337761307`*^9}, {3.894224011681642*^9,
3.894224064173596*^9}, {3.894224255430943*^9, 3.8942242582979307`*^9}, {
3.894654257048129*^9,
3.894654282905552*^9}},ExpressionUUID->"e8f89cc7-179f-4b7f-84ef-\
f22c2e573768"],
Cell[BoxData[
RowBox[{
RowBox[{"HPM", " ", "=",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
RowBox[{"cPM", "[", "i", "]"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"G", "/", "r"}], ")"}], "^", "i"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "NG"}], "}"}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8896435340351467`*^9, 3.88964359481851*^9}, {
3.889705656653647*^9, 3.889705657454615*^9}, {3.8897899909867477`*^9,
3.889789994849236*^9}, 3.890072687253315*^9, {3.890497871797289*^9,
3.890497901248198*^9}, {3.890497938617467*^9, 3.89049795345641*^9}, {
3.894224067946085*^9, 3.894224113004521*^9}},
CellLabel->
"In[189]:=",ExpressionUUID->"f84bc72a-b2ba-41be-8df7-7912c818319a"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"3", "PN"}], ",",
SuperscriptBox["G", "3"]}], TraditionalForm]],ExpressionUUID->
"5f199ff8-1b39-40c9-9bc1-7ba290e7b832"],
" Hamiltonian"
}], "Subsection",
CellChangeTimes->{{3.88884780515224*^9, 3.8888478195329123`*^9}, {
3.894223736632257*^9, 3.894223740863819*^9}, {3.894223883550219*^9,
3.894223894011283*^9}},ExpressionUUID->"0d23d2eb-8e42-44d3-8bb5-\
fb39699cac11"],
Cell[CellGroupData[{
Cell[" https://arxiv.org/pdf/1401.4548.pdf (5.17)", "Item",
CellChangeTimes->{{3.888847840446698*^9, 3.888847845190394*^9}, {
3.888858046738028*^9,
3.8888580523121853`*^9}},ExpressionUUID->"c31b432f-c484-4e8b-8e95-\
b68ed100631a"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"PM", " ", "order", " ", "parameter"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NG", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"PN", " ", "order", " ", "parameter"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"NPN", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"N\[Eta]", " ", "=", " ",
RowBox[{"2", "*",
RowBox[{"(",
RowBox[{"NPN", "+", "1"}], ")"}]}]}], ";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8900760305545683`*^9, 3.890076032806264*^9}, {
3.8900768791741323`*^9, 3.890076881934648*^9}},
CellLabel->
"In[190]:=",ExpressionUUID->"8f7ea0be-7949-4b55-954c-964fb7b1bf87"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"PN", " ", "Coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"cPN", "[", "0", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"PS", "/", "2"}], " ", "-",
RowBox[{"1", "/", "r"}]}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPN", "[", "1", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "8"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"3", "*", "\[Nu]"}], "-", "1"}], ")"}], "*",
RowBox[{"PS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "+", "\[Nu]"}], ")"}], "*", "PS"}], " ", "+",
RowBox[{"\[Nu]", "*",
RowBox[{"PR", "^", "2"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/", "r"}], ")"}]}], " ", "+", " ",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"r", "^", "2"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPN", "[", "2", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "16"}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", "\[Nu]"}], "+",
RowBox[{"5",
RowBox[{"\[Nu]", "^", "2"}]}]}], ")"}], "*",
RowBox[{"PS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "8"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"5", "-",
RowBox[{"20", "\[Nu]"}], "-",
RowBox[{"3",
RowBox[{"\[Nu]", "^", "2"}]}]}], ")"}], "*",
RowBox[{"PS", "^", "2"}]}], " ", "-", " ",
RowBox[{"2",
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"PR", "^", "2"}], "*", "PS"}], " ", "-", " ",
RowBox[{"3",
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"PR", "^", "4"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/", "r"}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"5", "+",
RowBox[{"8", "\[Nu]"}]}], ")"}], "*", "PS"}], " ", "+",
RowBox[{"3", "\[Nu]", "*",
RowBox[{"PR", "^", "2"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"r", "^", "2"}]}], ")"}]}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "4"}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"3", "\[Nu]"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"r", "^", "3"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cPN", "[", "3", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "128"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"-", "5"}], "+",
RowBox[{"35", "\[Nu]"}], "-",
RowBox[{"70",
RowBox[{"\[Nu]", "^", "2"}]}], "+",
RowBox[{"35",
RowBox[{"\[Nu]", "^", "3"}]}]}], ")"}], "*",
RowBox[{"PS", "^", "4"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "16"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "7"}], "+",
RowBox[{"42", "\[Nu]"}], "-",
RowBox[{"53",
RowBox[{"\[Nu]", "^", "2"}]}], "-",
RowBox[{"5",
RowBox[{"\[Nu]", "^", "3"}]}]}], ")"}], "*",
RowBox[{"PS", "^", "3"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"3", "\[Nu]"}]}], ")"}], "*",
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"PR", "^", "2"}], "*",
RowBox[{"PS", "^", "2"}]}], " ", "+", " ",
RowBox[{"3", "*",
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "*",
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{"PR", "^", "4"}], "*", "PS"}], " ", "-", " ",
RowBox[{"5",
RowBox[{"\[Nu]", "^", "3"}], "*",
RowBox[{"PR", "^", "6"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/", "r"}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "16"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"-", "27"}], "+",
RowBox[{"136", "\[Nu]"}], "+",
RowBox[{"109",
RowBox[{"\[Nu]", "^", "2"}]}]}], ")"}], "*",
RowBox[{"PS", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "16"}], ")"}], "*",
RowBox[{"(",
RowBox[{"17", "+",
RowBox[{"30", "\[Nu]"}]}], ")"}], "*", "\[Nu]", "*",
RowBox[{"PR", "^", "2"}], "*", "PS"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "12"}], ")"}], "*",
RowBox[{"(",
RowBox[{"5", "+",
RowBox[{"43", "\[Nu]"}]}], ")"}], "*", "\[Nu]", "*",
RowBox[{"PR", "^", "4"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"r", "^", "2"}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "25"}], "/", "8"}], ")"}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "64"}], ")"}], " ", "-",
" ",
RowBox[{"(",
RowBox[{"335", "/", "48"}], ")"}]}], ")"}], "*", "\[Nu]"}],
" ", "-",
RowBox[{"(",
RowBox[{"23",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "8"}]}], ")"}]}], ")"}], "*",
"PS"}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "85"}], "/", "16"}], ")"}], "-",
RowBox[{"(",
RowBox[{"3", "*",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "64"}]}], ")"}], " ", "-",
RowBox[{"(",
RowBox[{"7",
RowBox[{"\[Nu]", "/", "4"}]}], ")"}]}], ")"}], "*", "\[Nu]",
"*",
RowBox[{"PR", "^", "2"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"r", "^", "3"}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "8"}], ")"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"109", "/", "12"}], ")"}], "-",
RowBox[{"(",
RowBox[{"21",
RowBox[{
RowBox[{"\[Pi]", "^", "2"}], "/", "32"}]}], ")"}]}], ")"}],
"*", "\[Nu]"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"r", "^", "4"}]}], ")"}]}]}]}], ";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8887839775571623`*^9, 3.888783994988661*^9}, {
3.8888478574057827`*^9, 3.888847857526168*^9}, {3.888857681759094*^9,
3.888857685826323*^9}, {3.888858158108878*^9, 3.88885815820989*^9}, {
3.888858269749938*^9, 3.8888582873281*^9}, {3.8888583536116333`*^9,
3.888858353718162*^9}, 3.888875876466975*^9, {3.89422426419099*^9,
3.894224296232347*^9}, {3.8942243400931797`*^9, 3.894224348120039*^9}},
CellLabel->
"In[193]:=",ExpressionUUID->"d1108c25-3e08-4517-8c98-17b25af5fa2c"],
Cell[BoxData[
RowBox[{
RowBox[{"HPN", " ", "=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"cPN", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "NG"}], "}"}]}], "]"}], "]"}], "/.",
RowBox[{"{",
RowBox[{"r", "->",
RowBox[{"r", "/",
RowBox[{"(",
RowBox[{"G", "*", "m"}], ")"}]}]}], "}"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.888784048434012*^9, 3.8887840589021273`*^9}, {
3.888784239352404*^9, 3.888784242707081*^9}, {3.88878461351372*^9,
3.888784615048553*^9}, {3.888847862708873*^9, 3.888847868566123*^9}, {
3.888857756152698*^9, 3.8888577856596727`*^9}, 3.888858125333172*^9, {
3.8888581715018044`*^9, 3.8888581742984123`*^9}, {3.888858293333809*^9,
3.888858320300349*^9}, {3.88885835804383*^9, 3.8888583756721077`*^9}, {
3.88885840616649*^9, 3.888858427480777*^9}, {3.888866399928422*^9,
3.888866399998074*^9}, {3.889037026771677*^9, 3.889037027051017*^9}, {
3.889038358120138*^9, 3.889038367965757*^9}, 3.88904242944337*^9,
3.889107955669217*^9, {3.8903360960702553`*^9, 3.8903360975850267`*^9}, {
3.890354872443611*^9, 3.8903548742992*^9}, 3.890355014632513*^9, {
3.890355099617633*^9, 3.8903551010134497`*^9}, {3.890398949011005*^9,
3.8903989594474983`*^9}, {3.890399161984867*^9, 3.890399165313622*^9}, {
3.890405720435508*^9, 3.890405724301115*^9}, {3.8904128061644497`*^9,
3.890412806291123*^9}, {3.890413377845419*^9, 3.890413380898459*^9}, {
3.890414972730092*^9, 3.8904149780898943`*^9}, {3.890416852040207*^9,
3.890416854132722*^9}, {3.894223757435915*^9, 3.894223785270895*^9}, {
3.894224306144898*^9, 3.894224319222981*^9}},
CellLabel->
"In[197]:=",ExpressionUUID->"ce995ac4-3dc8-4b4d-8c13-fa1e180ada82"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["PM Radiated Energy and Angular Momentum", "Section",
CellChangeTimes->{{3.894734758836482*^9,
3.8947347650243692`*^9}},ExpressionUUID->"bdb930bf-bc24-4b6d-9f9d-\
e9681a0f77f1"],
Cell["\<\
https://arxiv.org/pdf/2203.04283.pdf \t2/3PM \[CapitalDelta]J (matches our \
expression)\
\>", "Item",
CellChangeTimes->{
3.8879852104593277`*^9, {3.889897519270361*^9, 3.889897536349433*^9}, {
3.890484213803093*^9, 3.890484213804434*^9}, {3.890484253639073*^9,
3.890484289021349*^9}, {3.894734982945903*^9,
3.894734989941675*^9}},ExpressionUUID->"e8024903-f4e4-487d-9739-\
415ef595eb84"],
Cell["https://arxiv.org/pdf/2101.07255.pdf \t3PM \[CapitalDelta]E", "Item",
CellChangeTimes->{
3.8879852104593277`*^9, {3.889897519270361*^9, 3.889897536349433*^9}, {
3.890484213803093*^9, 3.890484213804434*^9}, {3.890484253773285*^9,
3.8904842847737417`*^9},
3.894469412493821*^9},ExpressionUUID->"196ee7af-fe9b-4420-a793-\
0da6fad02b79"],
Cell["https://arxiv.org/pdf/2210.05541.pdf\t(12, 13)\t 4PM \
\[CapitalDelta]E", "Item",
CellChangeTimes->{
3.8879852104593277`*^9, {3.889897519270361*^9, 3.889897536349433*^9}, {
3.890484217289484*^9, 3.890484220026528*^9}, {3.890484265478044*^9,
3.890484274599081*^9}},ExpressionUUID->"ffa96dc6-2cf9-4a01-8cec-\
724788bd64f9"],
Cell[CellGroupData[{
Cell["Coefficients", "Subsection",
CellChangeTimes->{{3.894735030036346*^9,
3.894735031629352*^9}},ExpressionUUID->"96307030-0486-49db-a3a3-\
5b6889598ce1"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Results", " ", "first", " ", "derived", " ", "by", " ",
RowBox[{"H", ".", " ", "Herrmann"}]}], ",", " ",
RowBox[{
RowBox[{"J", ".", " ", "Parra"}], "-", "Martinez"}], ",", " ",
RowBox[{"M", ".", " ", "S", ".", " ", "Ruf"}], ",", " ",
RowBox[{"and", " ",
RowBox[{"M", ".", " ", "Zeng"}], " ", "in", " ", "2101.07255"}]}],
"*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"f1", "=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"210", "*",
RowBox[{"sigma", "^", "6"}]}], "-",
RowBox[{"552", "*",
RowBox[{"sigma", "^", "5"}]}], "+",
RowBox[{"339", "*",
RowBox[{"sigma", "^", "4"}]}], "-",
RowBox[{"912", "*",
RowBox[{"sigma", "^", "3"}]}], "+",
RowBox[{"3148", "*",
RowBox[{"sigma", "^", "2"}]}], "-",
RowBox[{"3336", "*", "sigma"}], "+", "1151"}], ")"}], "/",
RowBox[{"(",
RowBox[{"48",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"f2", "=",
RowBox[{"(",
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"35", "*",
RowBox[{"sigma", "^", "4"}]}], "+",
RowBox[{"60", "*",
RowBox[{"sigma", "^", "3"}]}], "-",
RowBox[{"150", "*",
RowBox[{"sigma", "^", "2"}]}], "+",
RowBox[{"76", "*", "sigma"}], "-", "5"}], ")"}], "/",
RowBox[{"(",
RowBox[{"8",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}],
";"}], "\n",
RowBox[{
RowBox[{"f3", "=",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "*",
RowBox[{"sigma", "^", "2"}]}], "-", "3"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"35", "*",
RowBox[{"sigma", "^", "4"}]}], "-",
RowBox[{"30", "*",
RowBox[{"sigma", "^", "2"}]}], "+", "11"}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"8",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}], ")"}]}], ";"}], "\n",
RowBox[{
RowBox[{"eSigma", "=",
RowBox[{"Pi", "*",
RowBox[{"(",
RowBox[{"f1", "+",
RowBox[{"f2", " ",
RowBox[{"Log", "[",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "+",
RowBox[{"f3", " ",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", " ",
RowBox[{"ArcSinh", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", "-", "1"}], ")"}], "/", "2"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}], "]"}]}], ")"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ")"}]}]}],
";"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.888081089053926*^9, 3.8880810965794477`*^9}},
CellLabel->
"In[431]:=",ExpressionUUID->"db05ae23-fc00-4634-83b5-f78757af021a"],
Cell[BoxData[{
RowBox[{
RowBox[{"g1", "=",
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"24",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^", "2"}]}],
")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "237"}], "+",
RowBox[{"386", "*", "sigma"}], "+",
RowBox[{"111", "*",
RowBox[{"sigma", "^", "2"}]}], "-",
RowBox[{"683", "*",
RowBox[{"sigma", "^", "3"}]}], "+",
RowBox[{"537", "*",
RowBox[{"sigma", "^", "4"}]}], "+",
RowBox[{"240", "*",
RowBox[{"sigma", "^", "5"}]}], "-",
RowBox[{"411", "*",
RowBox[{"sigma", "^", "6"}]}], "+",
RowBox[{"105", "*",
RowBox[{"sigma", "^", "7"}]}]}], ")"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"g2", "=",
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"4",
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}]}], ")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "62"}], "+",
RowBox[{"155", "*", "sigma"}], "+",
RowBox[{"16", "*",
RowBox[{"sigma", "^", "2"}]}], "-",
RowBox[{"70", "*",
RowBox[{"sigma", "^", "3"}]}], "-",
RowBox[{"90", "*",
RowBox[{"sigma", "^", "4"}]}], "+",
RowBox[{"35", "*",
RowBox[{"sigma", "^", "5"}]}]}], ")"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"g3", "=",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "/",
RowBox[{"(",
RowBox[{"4",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^", "2"}]}],
")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", "*",
RowBox[{"sigma", "^", "2"}]}], "-", "3"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"-", "12"}], "+",
RowBox[{"19", "*", "sigma"}], "+",
RowBox[{"72", "*",
RowBox[{"sigma", "^", "2"}]}], "-",
RowBox[{"70", "*",
RowBox[{"sigma", "^", "3"}]}], "-",
RowBox[{"60", "*",
RowBox[{"sigma", "^", "4"}]}], "+",
RowBox[{"35", "*",
RowBox[{"sigma", "^", "5"}]}]}], ")"}]}]}], ";"}]}], "Input",
InitializationCell->True,
CellLabel->
"In[435]:=",ExpressionUUID->"e6840238-40ed-41b8-b580-79a3d03ce8a0"],
Cell[BoxData[
RowBox[{
RowBox[{"iSigma", "=",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"16", "/", "3"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"sigma", "^", "2"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}]}], "+",
RowBox[{"4",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "*",
RowBox[{"sigma", "^", "2"}]}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}]}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", " ",
RowBox[{"ArcSinh", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", "-", "1"}], ")"}], "/", "2"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}], "]"}]}], ")"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ")"}]}], ";"}]], "Input",
InitializationCell->True,
CellLabel->
"In[438]:=",ExpressionUUID->"a0cfcf5f-680c-4728-90c7-d2888e7167fa"],
Cell[BoxData[{
RowBox[{
RowBox[{"cSigma", "=",
RowBox[{"Pi", "*",
RowBox[{"(",
RowBox[{"g1", "+",
RowBox[{"g2", "*",
RowBox[{"Log", "[",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "+",
RowBox[{"g3", "*",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", " ",
RowBox[{"ArcSinh", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"sigma", "-", "1"}], ")"}], "/", "2"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}], "]"}]}], ")"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"sigma", "^", "2"}], "-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ")"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"dSigma", "=",
RowBox[{"3", "*", "Pi", "*",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
RowBox[{"sigma", "^", "2"}]}], "-", "1"}], ")"}], "/", "8"}], "*",
"iSigma"}]}], ";"}]}], "Input",
InitializationCell->True,
CellLabel->
"In[439]:=",ExpressionUUID->"9010cce2-863c-4528-8597-b01c2c46a19e"],
Cell[BoxData[
RowBox[{
RowBox[{"h", " ", "=", " ",
RowBox[{"Sqrt", "[",
RowBox[{"1", "+",
RowBox[{"2", "*", "\[Nu]", "*",
RowBox[{"(",
RowBox[{"\[Sigma]", "-", "1"}], ")"}]}]}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{3.888082055348691*^9},
CellLabel->
"In[441]:=",ExpressionUUID->"ab79a60d-f323-42d4-9fb0-a747b4236089"]
}, Closed]],
Cell[CellGroupData[{
Cell["Radiated Charges", "Subsection",
CellChangeTimes->{{3.89473505160074*^9,
3.8947350538166656`*^9}},ExpressionUUID->"dc72c35d-c9ed-439f-82fe-\
e093316f76df"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CapitalDelta]E2LIT", " ", "=", " ", "0"}], ";"}], "\n",
RowBox[{
RowBox[{"\[CapitalDelta]E2HYPLIT", " ", "=", " ", "0"}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.88989677949116*^9, 3.889896841890078*^9}, {
3.88989736719003*^9, 3.889897380998157*^9}, {3.889897434954444*^9,
3.8898974620940237`*^9}, {3.889971523274867*^9, 3.889971528627954*^9}},
CellLabel->
"In[442]:=",ExpressionUUID->"bd49c3dc-0352-493b-bfc6-11dd832eb4f3"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CapitalDelta]E3LIT", " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "b"}]}], ")"}], "^", "3"}], "*", "m", "*",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/",
RowBox[{"(", "h", ")"}]}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"eSigma", "/.",
RowBox[{"{",
RowBox[{"sigma", "\[Rule]", "\[Sigma]"}], "}"}]}], ")"}]}]}],
";"}], "\n",
RowBox[{
RowBox[{"\[CapitalDelta]E3HYPLIT", "=",
RowBox[{
RowBox[{"(",
RowBox[{"\[CapitalDelta]E3LIT", "*", " ",
RowBox[{"j", "^", "3"}]}], ")"}], "/.",
RowBox[{"{",
RowBox[{"j", "->",
RowBox[{"b", "*",
RowBox[{
RowBox[{"Sqrt", "[", "PS", "]"}], "/",
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "^", "2"}], "*", "\[Nu]"}], ")"}]}]}]}], "}"}]}]}],
";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.88989677949116*^9, 3.889896841890078*^9}, {
3.88989736719003*^9, 3.889897380998157*^9}, {3.889897434954444*^9,
3.889897440974924*^9}, {3.889897660543766*^9, 3.8898976650084543`*^9}, {
3.889970698319262*^9, 3.889970717257205*^9}, {3.889971536160392*^9,
3.889971536551635*^9}, 3.889971611969586*^9, {3.889971690265143*^9,
3.889971695623179*^9}, {3.8899737907887487`*^9, 3.889973796646016*^9}, {
3.89048294048267*^9, 3.890482946617365*^9}, 3.890507408035204*^9, {
3.890510607581273*^9, 3.890510632881577*^9}, {3.890579070984602*^9,
3.8905790799786243`*^9}, {3.890606831431793*^9, 3.890606831537388*^9}, {
3.89061284069363*^9, 3.890612849454167*^9}, {3.8906983261090183`*^9,
3.8906983264144173`*^9}, {3.892041970800847*^9, 3.892041983068886*^9}, {
3.89204432628296*^9, 3.8920443315130653`*^9}, {3.8920448678615417`*^9,
3.89204487217133*^9}, {3.894734914606407*^9,
3.8947349308961887`*^9}},ExpressionUUID->"7111f8dc-fa8d-4012-b832-\
d8f2fe08000f"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CapitalDelta]J2LIT", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "b"}]}], ")"}], "^", "2"}], "*",
RowBox[{"(",
RowBox[{"J0", "*",
RowBox[{
RowBox[{"(",
RowBox[{"2", "*", "\[Nu]", "*",
RowBox[{"(",
RowBox[{
RowBox[{"2", "*",
RowBox[{"\[Sigma]", "^", "2"}]}], "-", "1"}], ")"}], "*",
"iSigma"}], ")"}], "/",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"\[Sigma]", "^", "2"}], "-", "1"}], "]"}]}]}], ")"}]}], "/.",
RowBox[{"{",
RowBox[{"sigma", "\[Rule]", "\[Sigma]"}], "}"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"\[CapitalDelta]J2HYPLIT", "=",
RowBox[{
RowBox[{"(",
RowBox[{"\[CapitalDelta]J2LIT", "*", " ",
RowBox[{"j", "^", "2"}]}], ")"}], "/.",
RowBox[{"{",
RowBox[{"j", "->",
RowBox[{"b", "*",
RowBox[{
RowBox[{"Sqrt", "[", "PS", "]"}], "/",
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "^", "2"}], "*", "\[Nu]"}], ")"}]}]}]}], "}"}]}]}],
";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{
3.889897467254929*^9, {3.889970725375568*^9, 3.8899707305323753`*^9}, {
3.8899716169997787`*^9, 3.889971640681859*^9}, {3.889972933552826*^9,
3.889972944020731*^9}, {3.8899730342933893`*^9, 3.8899730395144043`*^9}, {
3.890579069594637*^9, 3.890579078579555*^9}, 3.890606312600047*^9, {
3.890606836191386*^9, 3.890606836337378*^9}, 3.8906069395086412`*^9, {
3.890612796809466*^9, 3.890612836081155*^9}, {3.890698281485951*^9,
3.890698284184009*^9}, {3.890698349017457*^9, 3.8906983492836514`*^9}, {
3.890701483636402*^9, 3.890701483741919*^9}, {3.89078137928998*^9,
3.890781402976308*^9}, {3.892042004158354*^9, 3.8920420134401407`*^9}, {
3.892044877847419*^9, 3.892044880730379*^9}, {3.89473486574691*^9,
3.894734883866993*^9}},ExpressionUUID->"f6faf93f-27ba-49ae-a1a9-\
47da1db30dc1"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CapitalDelta]J3LIT", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "b"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"J0", "*",
RowBox[{"(",
RowBox[{"\[Nu]", "/",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"\[Sigma]", "^", "2"}], "-", "1"}], "]"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"cSigma", " ", "+", " ",
RowBox[{"2", "*", "dSigma"}], " ", "-", " ",
RowBox[{"(",
RowBox[{"\[Nu]", "*",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"\[Sigma]", "^", "2"}], "-", "1"}], "]"}], "*",
RowBox[{"eSigma", "/",
RowBox[{"h", "^", "2"}]}]}], ")"}]}], ")"}]}], ")"}]}], "/.",
RowBox[{"{",
RowBox[{"sigma", "\[Rule]", "\[Sigma]"}], "}"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"\[CapitalDelta]J3HYPLIT", "=",
RowBox[{
RowBox[{"(",
RowBox[{"\[CapitalDelta]J3LIT", "*", " ",
RowBox[{"j", "^", "3"}]}], ")"}], "/.",
RowBox[{"{",
RowBox[{"j", "->",
RowBox[{"b", "*",
RowBox[{
RowBox[{"Sqrt", "[", "PS", "]"}], "/",
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "^", "2"}], "*", "\[Nu]"}], ")"}]}]}]}], "}"}]}]}],
";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{
3.888081099808126*^9, 3.888081137332808*^9, {3.888081239965728*^9,
3.888081261937578*^9}, {3.888081443607489*^9, 3.888081446149568*^9}, {
3.88989721985942*^9, 3.889897225252367*^9}, 3.889897468383214*^9, {
3.889970735561809*^9, 3.8899707391904583`*^9}, {3.889971627986937*^9,
3.889971636196954*^9}, {3.890482927740919*^9, 3.890482927881798*^9},
3.890606319231366*^9, {3.890606418874898*^9, 3.890606420123032*^9}, {
3.890606844907014*^9, 3.890606845078535*^9}, 3.890606956293116*^9, {
3.890612815547834*^9, 3.890612815690805*^9}, {3.89069829324054*^9,
3.890698345459641*^9}, {3.8907014661799517`*^9, 3.890701467613751*^9}, {
3.890781426360937*^9, 3.890781426502939*^9}, {3.890781462833596*^9,
3.890781462968195*^9}, {3.892042024433998*^9, 3.892042031854916*^9}, {
3.892044884729341*^9, 3.892044887522707*^9}, {3.894469389238717*^9,
3.894469392890923*^9}, {3.894734887467127*^9,
3.894734903670534*^9}},ExpressionUUID->"e89d0a6e-77a1-4186-b283-\
2db08161703f"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
RowBox[{"From", " ", "anc"}], "-",
RowBox[{"4",
RowBox[{"pm", ".", "m"}], " ", "at", " ",
RowBox[{"https", ":"}]}]}], "//",
RowBox[{
RowBox[{
RowBox[{"arxiv", ".", "org"}], "/", "abs"}], "/", "2210.05541"}]}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CapitalDelta]E4LITCOEFF", " ", "=", " ",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{
SuperscriptBox["b", "4"], " ",
SqrtBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}]}]}]]}]]}],
SuperscriptBox["m", "5"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"1440", " ",
SuperscriptBox["\[Sigma]", "7"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"5", "/", "2"}]]}]],
RowBox[{"(",
RowBox[{"1575", "-",
RowBox[{"8250", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"35710", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"142640", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"5560073", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"417302", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"4034092", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"587336", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"6144", " ",
SuperscriptBox["\[Sigma]", "16"]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"1440", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"15", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"27", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1051", "+",
RowBox[{"8535", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3249", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"3747", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"64", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "13895"}], "-",
RowBox[{"9916", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"70104", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"54616", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"8464", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"96", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"45", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"44", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"152", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"80", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"16", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "869"}], "-",
RowBox[{"496", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"204", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
RowBox[{"5", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"480", " ",
SuperscriptBox["\[Sigma]", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]],
RowBox[{"(",
RowBox[{"525", "-",
RowBox[{"3100", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13690", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"55260", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"816595", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"3752006", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"1978290", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"1029342", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"213480", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"24576", " ",
SuperscriptBox["\[Sigma]", "18"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "9"}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]]}], "-",
FractionBox[
RowBox[{"32", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "-",
RowBox[{"51", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"7", "/", "2"}]]]}], ")"}], " ",
SuperscriptBox[
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], "2"]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"2057", "+",
RowBox[{"15261", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3387", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"4321", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[", "2", "]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"2039", "+",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[", "\[Sigma]", "]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"36", "-",
RowBox[{"1209", " ", "\[Sigma]"}], "+",
RowBox[{"4212", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6422", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"4332", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1755", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"4996", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]]}], "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"32", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"36", "-",
RowBox[{"1209", " ", "\[Sigma]"}], "+",
RowBox[{"4212", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6422", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"4332", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1755", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"4996", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]}], "]"}]}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"2039", "+",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "-",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}], ")"}], "2"]}]}],
"]"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{
RowBox[{"-", "\[Sigma]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}], "]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"96", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{"(",
RowBox[{"108", "-",
RowBox[{"1485", " ", "\[Sigma]"}], "-",
RowBox[{"1188", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4993", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"3780", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"3195", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"2700", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"1575", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"54", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"1051", "+",
RowBox[{"8535", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3249", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"3747", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"45", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]], "4", " ",
RowBox[{"(",
RowBox[{"13895", "+",
RowBox[{"9916", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"70104", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"54616", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"8464", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"96", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"30", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "109"}], "+",
RowBox[{"258", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"216", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "-",
RowBox[{"45", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"44", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"152", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"80", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}], "-",
RowBox[{"30", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1535"}], "+",
RowBox[{"2292", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"384", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1528", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"384", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"352800", " ",
SuperscriptBox["\[Sigma]", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"5", "/", "2"}]]}]],
RowBox[{"(",
RowBox[{"385875", "-",
RowBox[{"1837500", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"7188300", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"21241500", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"767410066", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"3966858415", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"3429240286", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"791542442", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"393897472", " ",
SuperscriptBox["\[Sigma]", "16"]}], "-",
RowBox[{"490", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1575", "-",
RowBox[{"8250", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"35710", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"142640", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"5560073", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"417302", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"4034092", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"587336", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"6144", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"3840", " ",
SuperscriptBox["\[Sigma]", "7"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"15", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]]}], "32", " ",
RowBox[{"(",
RowBox[{
RowBox[{"15", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "-",
RowBox[{"3", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "869"}], "-",
RowBox[{"496", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"204", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "-",
RowBox[{"10", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "82"}], "-",
RowBox[{"425", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"32", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"44", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}],
"+",
RowBox[{
FractionBox["1",
RowBox[{"3360", " ",
SuperscriptBox["\[Sigma]", "9"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]],
RowBox[{"(",
RowBox[{"3675", "-",
RowBox[{"19950", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"79800", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"246540", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"222810", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"25426269", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"37185456", " ",
SuperscriptBox["\[Sigma]", "12"]}], "+",
RowBox[{"46406238", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"2662204", " ",
SuperscriptBox["\[Sigma]", "16"]}], "-",
RowBox[{"3592192", " ",
SuperscriptBox["\[Sigma]", "18"]}], "+",
RowBox[{"53760", " ",
SuperscriptBox["\[Sigma]", "10"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "3"]}], "-",
RowBox[{"14", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"525", "-",
RowBox[{"3100", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13690", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"55260", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"816595", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"3752006", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"1978290", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"1029342", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"213480", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"24576", " ",
SuperscriptBox["\[Sigma]", "18"]}]}], ")"}]}]}],
")"}]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"16", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "9"}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}]}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "151"}], "-",
RowBox[{"226", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]]}], "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"7", "/", "2"}]]], "64", " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "-",
RowBox[{"51", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Sigma]", "2"], " ",
RowBox[{"(",
RowBox[{"60", "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"59", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], "2"]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"1263", " ", "\[Sigma]"}], "-",
RowBox[{"3883", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2057", "+",
RowBox[{"15261", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3387", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"4321", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[", "2", "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2039", "+",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1041", "-",
RowBox[{"2773", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[", "\[Sigma]", "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"37", " ", "\[Sigma]"}], "-",
RowBox[{"185", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"355", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"36", "-",
RowBox[{"1209", " ", "\[Sigma]"}], "+",
RowBox[{"4212", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6422", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"4332", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1755", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"4996", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"37", " ", "\[Sigma]"}], "-",
RowBox[{"66", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"185", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"355", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"150", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]]}], "]"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"36", "-",
RowBox[{"1209", " ", "\[Sigma]"}], "+",
RowBox[{"4212", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"6422", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"4332", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1755", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"4996", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"37", " ", "\[Sigma]"}], "-",
RowBox[{"66", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"185", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"355", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"150", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]}], "]"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2039", "+",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1041", "-",
RowBox[{"2773", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "-",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}], ")"}], "2"]}]}],
"]"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"37", " ", "\[Sigma]"}], "-",
RowBox[{"185", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"355", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{
RowBox[{"-", "\[Sigma]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}], "]"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890484108902226*^9, 3.8904841122456093`*^9}, {
3.890484613740184*^9, 3.890484618318007*^9}, {3.890485753403798*^9,
3.890485761598028*^9}, {3.890486312188715*^9, 3.8904863123100853`*^9}, {
3.8904868712741327`*^9, 3.8904868958806543`*^9}, {3.890613208177956*^9,
3.890613210059894*^9}, {3.8947348232506943`*^9,
3.8947348244175177`*^9}},ExpressionUUID->"45f8aaa1-2288-4763-9205-\
1613b72c8b7d"],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalDelta]E4LIT", " ", "=", " ",
RowBox[{
RowBox[{"G", "^", "4"}], "*", "\[CapitalDelta]E4LITCOEFF"}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890613218660861*^9, 3.890613231442953*^9}, {
3.890695008316029*^9, 3.890695035837084*^9}, {3.890695094478059*^9,
3.8906951048189096`*^9}, {3.8947347786481237`*^9, 3.894734806217441*^9},
3.894735144896429*^9},ExpressionUUID->"fbf4d080-c1fa-4f42-afc7-\
8f836894f679"],
Cell[BoxData[
RowBox[{
RowBox[{"\[CapitalDelta]E4HYPLIT", "=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"G", "^", "4"}], "*", "\[CapitalDelta]E4LITCOEFF", "*", " ",
RowBox[{"j", "^", "4"}]}], ")"}], "/.",
RowBox[{"{",
RowBox[{"j", "->",
RowBox[{
RowBox[{"Sqrt", "[", "PS", "]"}], "*",
RowBox[{"b", "/",
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "^", "2"}], "*", "\[Nu]"}], ")"}]}]}]}], "}"}]}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890485993044292*^9, 3.89048602113765*^9}, {
3.8904862803735332`*^9, 3.890486297739889*^9}, {3.890486383134776*^9,
3.890486384931885*^9}, 3.890486419260024*^9, 3.890511040495737*^9,
3.890513043109902*^9, 3.8906948987031593`*^9, {3.890695044500505*^9,
3.890695044551125*^9}, {3.8920420560667*^9, 3.8920420685299673`*^9}, {
3.892044892604891*^9, 3.892044896222638*^9}, {3.894734791472432*^9,
3.894734801752491*^9}},ExpressionUUID->"f7f14d06-17ff-48bf-ac5d-\
7e804efe67dd"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["PN Energy and Angular Momentum Fluxes", "Section",
CellChangeTimes->{{3.894225458258518*^9,
3.894225466433305*^9}},ExpressionUUID->"151328bb-1e34-43a7-870c-\
795e32ecd8b3"],
Cell[CellGroupData[{
Cell["Instantaneous Energy Flux", "Subsection",
CellChangeTimes->{{3.8899912815063143`*^9,
3.88999128940254*^9}},ExpressionUUID->"32a8b3fe-8597-47c9-a745-\
6d80f82398e5"],
Cell[CellGroupData[{
Cell["\<\
https://doi.org/10.1103/PhysRevD.77.064035\t\tArun et. al E Flux:\t\
(5.1),(5.2) [SH Coords]\t(6.11) [ADM Transf.]\
\>", "Item",
CellChangeTimes->{{3.889975505248981*^9, 3.8899755282331448`*^9}, {
3.889990974353343*^9, 3.8899910025207863`*^9}, {3.889991051810384*^9,
3.8899910942722073`*^9}, {3.889991170827591*^9, 3.889991204623229*^9}, {
3.8902195737364473`*^9, 3.890219646162498*^9}, {3.890503060079783*^9,
3.890503070050893*^9}, {3.890504180593417*^9,
3.89050419384692*^9}},ExpressionUUID->"9ea37bb3-a4a8-4312-b08a-\
7fa052fb8db0"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Energy", " ", "Prefactor"}], " ", "*)"}], "\n",
RowBox[{"(*", " ",
RowBox[{"Not", " ",
RowBox[{
RowBox[{"reduced", "!!"}], "!"}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"FEPRESH", " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{"32", "/", "5"}], ")"}], "*",
RowBox[{"\[Nu]", "^", "2"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"m", "/", "r"}], ")"}]}]}], ";"}]}]], "Code",
CellChangeTimes->{{3.890222574258758*^9, 3.890222598236117*^9}, {
3.8902228387790127`*^9, 3.890222862449995*^9}, 3.890392563004066*^9, {
3.8904185674632196`*^9, 3.890418579541761*^9}, {3.890499227990902*^9,
3.890499228375606*^9}, {3.890503987260138*^9, 3.890503987386861*^9}},
CellLabel->
"In[198]:=",ExpressionUUID->"2ec4180e-5e8e-48df-99f4-5535b2123eef"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"0", "PN", " ",
RowBox[{"Rel", ".", " ", "3"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "0", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{"VS", " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"11", "/", "12"}], ")"}],
RowBox[{"VR", "^", "2"}]}]}], ")"}]}], ";"}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.889991307327503*^9, 3.889991381810464*^9}, {
3.889992596100266*^9, 3.889992611981711*^9}, {3.8899953455640917`*^9,
3.889995345696973*^9}, {3.890219444713764*^9, 3.890219446677166*^9}, {
3.890220044927423*^9, 3.8902200488610897`*^9}, {3.890220850998611*^9,
3.890220857457365*^9}, {3.8902226168154917`*^9, 3.8902226172314034`*^9}, {
3.890392358615324*^9, 3.8903923847963123`*^9}, {3.8903924767388687`*^9,
3.890392477958362*^9}, {3.8903925445687313`*^9, 3.890392546366737*^9}, {
3.890395957198222*^9, 3.890396018840764*^9}, {3.89049920916669*^9,
3.890499211578599*^9}, {3.890501673348113*^9, 3.8905016952326927`*^9}, {
3.890503990214164*^9, 3.890503990348922*^9}},
CellLabel->
"In[199]:=",ExpressionUUID->"7bac5e9a-b8f1-4315-8b5c-b29caaa68409"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"1", "PN", " ",
RowBox[{"Rel", ".", " ", "4"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "1", "]"}], " ", "=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"785", "/", "336"}], " ", "-",
RowBox[{"71",
RowBox[{"\[Nu]", "/", "28"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1487"}], "/", "168"}], " ", "+",
RowBox[{"58",
RowBox[{"\[Nu]", "/", "7"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"687", "/", "112"}], " ", "-",
RowBox[{"155",
RowBox[{"\[Nu]", "/", "28"}]}]}], ")"}],
RowBox[{"VR", "^", "4"}]}], "\[IndentingNewLine]", "\t\t", "+",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "170"}], "/", "21"}], " ", "+", " ",
RowBox[{"10",
RowBox[{"\[Nu]", "/", "21"}]}]}], ")"}], "VS"}],
"\[IndentingNewLine]", "\t\t", "+",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"367", "/", "42"}], " ", "-", " ",
RowBox[{"5",
RowBox[{"\[Nu]", "/", "14"}]}]}], ")"}],
RowBox[{"VR", "^", "2"}]}]}], ")"}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890501801015871*^9, 3.890501900269809*^9}, {
3.890501933660186*^9, 3.8905019853368177`*^9}, {3.890503992597104*^9,
3.890503992675353*^9}},
CellLabel->
"In[200]:=",ExpressionUUID->"8d73cd0f-6359-4481-b991-50260a2e269f"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2", "PN", " ",
RowBox[{"Rel", ".", " ", "5"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "2", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"47", "/", "14"}], " ", "-", " ",
RowBox[{"5497",
RowBox[{"\[Nu]", "/", "504"}]}], " ", "+", " ",
RowBox[{"2215",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "252"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "573"}], "/", "56"}], " ", "+", " ",
RowBox[{"1713",
RowBox[{"\[Nu]", "/", "28"}]}], " ", "-", " ",
RowBox[{"1573",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "42"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"1009", "/", "84"}], " ", "-", " ",
RowBox[{"5069",
RowBox[{"\[Nu]", "/", "56"}]}], " ", "+", " ",
RowBox[{"631",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "14"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2501"}], "/", "504"}], " ", "+", " ",
RowBox[{"10117",
RowBox[{"\[Nu]", "/", "252"}]}], " ", "-",
RowBox[{"2101",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "126"}]}]}], ")"}],
RowBox[{"VR", "^", "6"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "247"}], "/", "14"}], " ", "+", " ",
RowBox[{"5237",
RowBox[{"\[Nu]", "/", "252"}]}], " ", "-", " ",
RowBox[{"199",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "36"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"4987", "/", "84"}], " ", "-", " ",
RowBox[{"8513",
RowBox[{"\[Nu]", "/", "84"}]}], " ", "+", " ",
RowBox[{"2165",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "84"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], " ", "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5585"}], "/", "126"}], " ", "+", " ",
RowBox[{"60971",
RowBox[{"\[Nu]", "/", "756"}]}], " ", "-", " ",
RowBox[{"7145",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "378"}]}]}], ")"}],
RowBox[{"VR", "^", "4"}]}]}], ")"}]}], ";"}]}]], "Code",
CellChangeTimes->{{3.89022112682901*^9, 3.8902211848446217`*^9}, {
3.8902218827833014`*^9, 3.8902218835514507`*^9}, {3.8902219689919558`*^9,
3.890222145459601*^9}, {3.890222686314138*^9, 3.890222687822236*^9},
3.8903397684046392`*^9, {3.890392350445457*^9, 3.890392354855317*^9}, {
3.890392389522897*^9, 3.890392396816869*^9}, {3.890392480833818*^9,
3.890392481980577*^9}, {3.8903925487435713`*^9, 3.89039255592657*^9}, {
3.8903945575509453`*^9, 3.8903946402122707`*^9}, {3.8903946707230463`*^9,
3.890394749654172*^9}, {3.890395222778376*^9, 3.890395478489531*^9}, {
3.890395537895685*^9, 3.890395538774167*^9}, {3.8903957302834463`*^9,
3.890395730554097*^9}, {3.8903957758941717`*^9, 3.8903958198115873`*^9}, {
3.890396037785445*^9, 3.890396042449376*^9}, {3.89039805763827*^9,
3.890398060828125*^9}, {3.890422347366683*^9, 3.890422398182104*^9}, {
3.89042244226219*^9, 3.890422552633646*^9}, {3.8904226176471786`*^9,
3.890422753467255*^9}, {3.890499224006338*^9, 3.890499224153018*^9}, {
3.890499280357306*^9, 3.890499296616474*^9}, {3.890499389819108*^9,
3.89049954997819*^9}, {3.890499629384946*^9, 3.890499635795295*^9}, {
3.890503082982675*^9, 3.890503093654366*^9}, {3.890503995174301*^9,
3.890503995304872*^9}},
CellLabel->
"In[201]:=",ExpressionUUID->"e3a9fecf-b31a-4e56-996d-8abe6e14fb8b"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2.5", "PN", " ",
RowBox[{"Rel", ".", " ", "5.5"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "3", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "12349"}],
RowBox[{"\[Nu]", "/", "210"}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ", "VR"}], " ", "+",
RowBox[{
RowBox[{"(",
RowBox[{"4524",
RowBox[{"\[Nu]", "/", "35"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "3"}]}], " ", "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "985"}],
RowBox[{"\[Nu]", "/", "14"}]}], ")"}], " ",
RowBox[{"VR", "^", "5"}]}]}], ")"}]}]}], ";"}], "\n",
RowBox[{"(*",
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "3", "]"}], " ", "=", " ", "0"}], ";"}],
"*)"}]}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.890499672177454*^9, 3.890499726837665*^9}, {
3.89049978508862*^9, 3.890499954132318*^9}, {3.890501720306443*^9,
3.890501748793193*^9}, {3.8905039973285923`*^9, 3.8905039974926567`*^9}, {
3.890504858515068*^9, 3.890504863749614*^9}, {3.890516363318453*^9,
3.8905163695698347`*^9}},
CellLabel->
"In[202]:=",ExpressionUUID->"73c5482c-cd4a-4bef-aa84-a4caee18aa62"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"3", "PN", " ",
RowBox[{"Rel", ".", " ", "6"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "4", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"80315", "/", "14784"}], " ", "-", " ",
RowBox[{"694427",
RowBox[{"\[Nu]", "/", "22176"}]}], " ", "+", " ",
RowBox[{"604085",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "11088"}]}], " ", "-", " ",
RowBox[{"16985",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "462"}]}]}], ")"}],
RowBox[{"VS", "^", "4"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "31499"}], "/", "1008"}], " ", "+", " ",
RowBox[{"1119913",
RowBox[{"\[Nu]", "/", "5544"}]}], " ", "-", " ",
RowBox[{"44701",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "132"}]}], " ", "+", " ",
RowBox[{"38725",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "231"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}], " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"204349", "/", "2464"}], " ", "-", " ",
RowBox[{"3522149",
RowBox[{"\[Nu]", "/", "7392"}]}], " ", "+", " ",
RowBox[{"2354753",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "3696"}]}], " ", "-", " ",
RowBox[{"109447",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "462"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1005979"}], "/", "11088"}], " ", "+", " ",
RowBox[{"2589599",
RowBox[{"\[Nu]", "/", "5544"}]}], " ", "-",
RowBox[{"1322141",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2772"}]}], " ", "+",
RowBox[{"90455",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "693"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "6"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"1507925", "/", "44352"}], " ", "-",
RowBox[{"20365",
RowBox[{"\[Nu]", "/", "126"}]}], " ", "+", " ",
RowBox[{"687305",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "5544"}]}], " ", "-",
RowBox[{"32755",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "1386"}]}]}], ")"}],
RowBox[{"VR", "^", "8"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "61669"}], "/", "3696"}], " ", "+", " ",
RowBox[{"95321",
RowBox[{"\[Nu]", "/", "1008"}]}], " ", "-",
RowBox[{"955013",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "11088"}]}], " ", "+", " ",
RowBox[{"47255",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "1386"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"136695", "/", "1232"}], " ", "-",
RowBox[{"202693",
RowBox[{"\[Nu]", "/", "336"}]}], " ", "+", " ",
RowBox[{"744377",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "1232"}]}], " ", "-",
RowBox[{"931099",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "5544"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "715157"}], "/", "3696"}], " ", "+", " ",
RowBox[{"35158037",
RowBox[{"\[Nu]", "/", "33264"}]}], " ", "-",
RowBox[{"3672143",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "3696"}]}], " ", "+", " ",
RowBox[{"871025",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "4158"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"5476951", "/", "55440"}], " ", "-", " ",
RowBox[{"671765",
RowBox[{"\[Nu]", "/", "1232"}]}], " ", "+", " ",
RowBox[{"5205019",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "11088"}]}], " ", "-",
RowBox[{"860477",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "11088"}]}]}], ")"}],
RowBox[{"VR", "^", "6"}]}]}], ")"}]}], ";"}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.8905000270826902`*^9, 3.8905000424136677`*^9}, {
3.890500096709112*^9, 3.89050030263612*^9}, {3.890500332818869*^9,
3.890500571009256*^9}, {3.890501285073797*^9, 3.8905014158453913`*^9}, {
3.89050145935673*^9, 3.8905015364485893`*^9}, {3.890503999975692*^9,
3.890504000143148*^9}, {3.891711968670402*^9, 3.8917119693203697`*^9}},
CellLabel->
"In[203]:=",ExpressionUUID->"d54758c4-b42f-49a0-a56f-0f7948ac4d7f"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Combine", " ",
RowBox[{"terms", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"FEPNSHLIT", " ", "=", " ",
RowBox[{"FEPRESH", "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"cFEPNSHLIT", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}],
";"}]}]], "Code",
CellChangeTimes->{{3.890222891563209*^9, 3.890222891636463*^9},
3.890338377761237*^9, 3.890339764231262*^9, 3.890392349158173*^9, {
3.890392401633277*^9, 3.890392424734407*^9}, {3.8903924701488543`*^9,
3.8903924713765287`*^9}, {3.890392528728052*^9, 3.890392530156168*^9}, {
3.890396052636935*^9, 3.890396060946662*^9}, {3.8903963177005243`*^9,
3.890396317777665*^9}, 3.8904172963548326`*^9, 3.8904185282496443`*^9, {
3.8904217114672127`*^9, 3.8904217242990417`*^9}, {3.890421812247327*^9,
3.89042183401646*^9}, 3.890421984324876*^9, {3.890422777299561*^9,
3.890422777423821*^9}, {3.890502990334543*^9, 3.8905029960872107`*^9},
3.890503139931624*^9, {3.890504003177086*^9, 3.8905040057622423`*^9}, {
3.890505445513529*^9, 3.890505445602727*^9}, {3.890793658015377*^9,
3.890793658075942*^9}, {3.890868487558154*^9, 3.890868487618512*^9}},
CellLabel->
"In[204]:=",ExpressionUUID->"ce018ce3-8662-4aa3-acf5-026e8fbffb0c"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Conversion", " ", "to", " ", "ADM", " ",
RowBox[{"coordinates", ":", " ",
RowBox[{"Begins", " ", "at", " ",
RowBox[{"G", "^", "4"}]}]}]}], ",", " ",
RowBox[{"5", "PN", " ",
RowBox[{"Abs", "."}]}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"\[Delta]FEPRE", " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{"-",
RowBox[{"\[Nu]", "^", "2"}]}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "4"}], " ",
RowBox[{"(",
RowBox[{"m", "/", "r"}], ")"}]}]}], ";"}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.890503146482382*^9, 3.89050319417911*^9},
3.8905039245341988`*^9, {3.8905040420719347`*^9, 3.890504099154914*^9}},
CellLabel->
"In[205]:=",ExpressionUUID->"efcd3ae6-5ad9-45b4-a23e-8ca9da038287"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2", "PN", " ",
RowBox[{"Rel", ".", " ", "5"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"c\[Delta]FEPNLIT", "[", "0", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"184",
RowBox[{"\[Nu]", "/", "5"}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"736",
RowBox[{"\[Nu]", "/", "5"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"320",
RowBox[{"\[Nu]", "/", "3"}]}], ")"}],
RowBox[{"VR", "^", "4"}]}]}], ")"}]}], ";"}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.890503198173233*^9, 3.890503218193863*^9}, {
3.890503372771357*^9, 3.890503421992104*^9}, {3.890503473894738*^9,
3.890503475187853*^9}, {3.890503897818809*^9, 3.8905038983026857`*^9}, {
3.890504115723181*^9, 3.890504123362619*^9}},
CellLabel->
"In[206]:=",ExpressionUUID->"324f723a-ff43-46d5-bc8c-8871597c7fe2"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"3", "PN", " ",
RowBox[{"Rel", ".", " ", "6"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"c\[Delta]FEPNLIT", "[", "1", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"5886",
RowBox[{"\[Nu]", "/", "35"}]}], " ", "-", " ",
RowBox[{"1616",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "7"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "129866"}],
RowBox[{"\[Nu]", "/", "105"}]}], " ", "+",
RowBox[{"21598",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "15"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"689434",
RowBox[{"\[Nu]", "/", "315"}]}], " ", "-", " ",
RowBox[{"714608",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "315"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], " ", "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "116138"}],
RowBox[{"\[Nu]", "/", "105"}]}], " ", "+", " ",
RowBox[{"110986",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "105"}]}]}], ")"}],
RowBox[{"VR", "^", "6"}]}]}], ")"}]}], ";"}]}]], "Code",
InitializationCell->True,
CellChangeTimes->{{3.8905034289092007`*^9, 3.8905034299739857`*^9}, {
3.890503470597378*^9, 3.890503647521358*^9}, {3.8905038948129377`*^9,
3.8905038955377207`*^9}, {3.890504130030303*^9, 3.890504130182976*^9}},
CellLabel->
"In[207]:=",ExpressionUUID->"aa44003b-cef5-4d7a-a4e3-85d64e231dad"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Combine", " ",
RowBox[{"terms", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"\[Delta]FEPNLIT", " ", "=", " ",
RowBox[{"\[Delta]FEPRE", "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"c\[Delta]FEPNLIT", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}],
";"}]}]], "Code",
CellChangeTimes->{{3.890503881365473*^9, 3.890503886436408*^9}, {
3.890503920412595*^9, 3.890503976407258*^9}, {3.890504161687488*^9,
3.8905041617871037`*^9}},
CellLabel->
"In[208]:=",ExpressionUUID->"a55b2f5c-96e3-430c-87f6-84cdaa3c00bf"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Compute", " ", "ADM", " ", "Flux"}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"FEPNLIT", " ", "=", " ",
RowBox[{"FEPNSHLIT", " ", "+", " ", "\[Delta]FEPNLIT"}]}],
";"}]}]], "Code",
CellChangeTimes->{{3.8905040154886017`*^9, 3.890504030509035*^9}, {
3.890504164602713*^9, 3.8905041714835978`*^9}, {3.8907957835169697`*^9,
3.8907957866493587`*^9}, {3.89079585391216*^9, 3.890795854219686*^9}, {
3.8907960147520657`*^9, 3.8907960186060266`*^9}, {3.890796412964499*^9,
3.890796416745552*^9}, {3.890798041693948*^9, 3.8907980420577793`*^9}},
CellLabel->
"In[209]:=",ExpressionUUID->"5f17aea2-6f53-4328-9b03-72922fb6f1fe"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Instantaneous Angular Momentum Flux", "Subsection",
CellChangeTimes->{{3.8899913912670403`*^9,
3.8899913964811363`*^9}},ExpressionUUID->"25ee24f5-4cf4-4747-8ed6-\
0b23ff5d204c"],
Cell[CellGroupData[{
Cell["\<\
https://doi.org/10.1103/PhysRevD.80.124018\t\tArun et. al. J Flux\t\
(3.1)-(3.4) [SH Coords]\
\>", "Item",
CellChangeTimes->{{3.889975505248981*^9, 3.8899755282331448`*^9}, {
3.889990974353343*^9, 3.8899910025207863`*^9}, {3.889991051810384*^9,
3.8899910942722073`*^9}, {3.889991170827591*^9, 3.889991204623229*^9}, {
3.8902195737364473`*^9, 3.890219646162498*^9}, {3.890503060079783*^9,
3.890503070145084*^9}},ExpressionUUID->"a2b332f3-9952-47da-adbe-\
8d514a52c249"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Angular", " ", "Momentum", " ", "Prefactor"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"FJPRE", " ", "=", " ",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], " ", "m", " ", "r", " ",
"VP"}]}], ";"}]}]], "Code",
CellChangeTimes->{{3.8902226288262787`*^9, 3.890222648714967*^9}, {
3.8905713862833643`*^9, 3.890571390432413*^9}, {3.89057142203218*^9,
3.89057143814922*^9}, 3.89057311071064*^9, {3.890602204373006*^9,
3.8906022076748533`*^9}},
CellLabel->
"In[210]:=",ExpressionUUID->"5c665a79-649a-4268-8eb7-327a92ccb8ce"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"0", "PN", " ",
RowBox[{"Rel", ".", " ", "2"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFJPNLIT", "[", "0", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"16", "/", "5"}], ")"}], "VS"}], " ", "-", " ",
RowBox[{
RowBox[{"(",
RowBox[{"24", "/", "5"}], ")"}],
RowBox[{"VR", "^", "2"}]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"16", "/", "5"}], ")"}], "*",
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}]}]}], ")"}]}], ";"}]}]], "Code",
CellChangeTimes->{{3.8905731625402403`*^9, 3.89057323136694*^9}, {
3.890573527716404*^9, 3.890573531239526*^9}, {3.8905736383458757`*^9,
3.8905736595673723`*^9}},
CellLabel->
"In[211]:=",ExpressionUUID->"7b08a647-440f-42ce-bb68-343461f88992"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"1", "PN", " ",
RowBox[{"Rel", ".", " ", "3"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{
RowBox[{"cFJPNLIT", "[", "1", "]"}], " ", "=", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"614", "/", "105"}], " ", "-", " ",
RowBox[{"1096",
RowBox[{"\[Nu]", "/", "105"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "296"}], "/", "35"}], " ", "+", " ",
RowBox[{"1108",
RowBox[{"\[Nu]", "/", "35"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"38", "/", "7"}], " ", "-", " ",
RowBox[{"144",
RowBox[{"\[Nu]", "/", "7"}]}]}], ")"}],
RowBox[{"VR", "^", "4"}]}], "\n", "\t\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "464"}], "/", "105"}], " ", "-", " ",
RowBox[{"152",
RowBox[{"\[Nu]", "/", "21"}]}]}], ")"}], "VS"}], "\n", "\t\t\t",
"+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"496", "/", "35"}], " ", "+", " ",
RowBox[{"788",
RowBox[{"\[Nu]", "/", "105"}]}]}], ")"}],
RowBox[{"VR", "^", "2"}]}]}], ")"}]}], ";"}]}]], "Code",
CellChangeTimes->{{3.8905732388628073`*^9, 3.890573503636314*^9},
3.890573553348168*^9, {3.8905736404347363`*^9, 3.89057366231453*^9}},
CellLabel->
"In[212]:=",ExpressionUUID->"6dc6a1f8-0399-4df9-8c35-28c29a795b5a"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2", "PN", " ",
RowBox[{"Rel", ".", " ", "4"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{"(*", " ",
RowBox[{"ADM", " ", "GAUGE"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cFJPNLIT", "[", "2", "]"}], " ", "=",
RowBox[{"(", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"533", "/", "63"}], " ", "-", " ",
RowBox[{"353",
RowBox[{"\[Nu]", "/", "9"}]}], " ", "+", " ",
RowBox[{"614",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "15"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], " ", "\[IndentingNewLine]", "\t\t", "+",
" ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2246"}], "/", "105"}], " ", "+", " ",
RowBox[{"12653",
RowBox[{"\[Nu]", "/", "105"}]}], " ", "-", " ",
RowBox[{"15637",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "105"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"715", "/", "21"}], " ", "-", " ",
RowBox[{"3361",
RowBox[{"\[Nu]", "/", "21"}]}], " ", "+", " ",
RowBox[{"448",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "3"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "52"}], "/", "3"}], " ", "+", " ",
RowBox[{"652",
RowBox[{"\[Nu]", "/", "9"}]}], " ", "-", " ",
RowBox[{"388",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "9"}]}]}], ")"}], " ",
RowBox[{"VR", "^", "6"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"11", "/", "21"}], "-",
RowBox[{"1333",
RowBox[{"\[Nu]", "/", "63"}]}], " ", "+",
RowBox[{"4022",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "315"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"21853", "/", "315"}], " ", "+",
RowBox[{"2942",
RowBox[{"\[Nu]", "/", "105"}]}], " ", "+",
RowBox[{"2551",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "315"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "22312"}], "/", "315"}], " ", "+", " ",
RowBox[{"1999",
RowBox[{"\[Nu]", "/", "45"}]}], " ", "-",
RowBox[{"277",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "9"}]}]}], ")"}],
RowBox[{"VR", "^", "4"}]}]}], ")"}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890917251307399*^9, 3.8909172590072737`*^9}, {
3.890917289894032*^9, 3.890917293305777*^9}, {3.890917324991767*^9,
3.890917326843566*^9}, {3.890917409231646*^9, 3.890917414788857*^9}, {
3.890918188336423*^9, 3.8909181935306807`*^9}},
CellLabel->
"In[213]:=",ExpressionUUID->"d8931092-e59a-499c-830d-06361b7d0252"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"2.5", "PN", " ",
RowBox[{"Rel", ".", " ", "4.5"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cFJPNLIT", "[", "3", "]"}], " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "5"}], ")"}],
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "27744"}],
RowBox[{"\[Nu]", "/", "35"}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ", "VR"}], " ", "+",
RowBox[{
RowBox[{"(",
RowBox[{"19144",
RowBox[{"\[Nu]", "/", "7"}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "3"}]}], " ", "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1960"}], "\[Nu]"}], ")"}], " ",
RowBox[{"VR", "^", "5"}]}]}], ")"}]}], "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "/", "5"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "100816"}],
RowBox[{"\[Nu]", "/", "105"}]}], ")"}], "VS", " ", "VR"}], " ",
"+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"39056",
RowBox[{"\[Nu]", "/", "35"}]}], ")"}],
RowBox[{"VR", "^", "3"}]}]}], ")"}]}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890924296852804*^9, 3.89092432780357*^9}, {
3.890936923771125*^9, 3.890936960849434*^9}, {3.8909370120695143`*^9,
3.890937239493814*^9}, {3.890937270737628*^9, 3.890937293297659*^9}, {
3.890937839669524*^9, 3.890937840787134*^9}},
CellLabel->
"In[214]:=",ExpressionUUID->"7492570f-78a1-4faf-87ea-4ffe40bb70bd"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"3", "PN", " ",
RowBox[{"Rel", ".", " ", "5"}], "PN", " ",
RowBox[{"Abs", "."}]}], " ", "*)"}], "\n",
RowBox[{"(*", " ",
RowBox[{"ADM", " ", "GAUGE"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"cFJPNLIT", "[", "4", "]"}], " ", "=",
RowBox[{"(", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"145919", "/", "13860"}], " ", "-", " ",
RowBox[{"110423",
RowBox[{"\[Nu]", "/", "1260"}]}], " ", "+", " ",
RowBox[{"1079083",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "4620"}]}], " ", "-",
RowBox[{"30229",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "165"}]}]}], ")"}],
RowBox[{"VS", "^", "4"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2473"}], "/", "70"}], " ", "+", " ",
RowBox[{"763409",
RowBox[{"\[Nu]", "/", "2310"}]}], " ", "-", " ",
RowBox[{"2155249",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2310"}]}], " ", "+", " ",
RowBox[{"543171",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "770"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}], " ",
RowBox[{"VR", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"18695", "/", "231"}], " ", "-",
RowBox[{"632111",
RowBox[{"\[Nu]", "/", "924"}]}], " ", "+", " ",
RowBox[{"1552525",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "924"}]}], " ", "-",
RowBox[{"61970",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "77"}]}]}], ")"}], " ",
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "4"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "451"}], "/", "6"}], " ", "+", " ",
RowBox[{"59870",
RowBox[{"\[Nu]", "/", "99"}]}], " ", "-",
RowBox[{"14841",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "11"}]}], " ", "+",
RowBox[{"32342",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "99"}]}]}], ")"}], " ", "VS",
" ",
RowBox[{"VR", "^", "6"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"93", "/", "4"}], " ", "-", " ",
RowBox[{"4035",
RowBox[{"\[Nu]", "/", "22"}]}], " ", "+",
RowBox[{"4294",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "11"}]}], " ", "-",
RowBox[{"410",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "11"}]}]}], ")"}], " ",
RowBox[{"VR", "^", "8"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"483097", "/", "13860"}], " ", "-", " ",
RowBox[{"17429",
RowBox[{"\[Nu]", "/", "154"}]}], " ", "+",
RowBox[{"693331",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "4620"}]}], " ", "+",
RowBox[{"91",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "165"}]}]}], ")"}],
RowBox[{"VS", "^", "3"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"205817", "/", "13860"}], " ", "-", " ",
RowBox[{"22549",
RowBox[{"\[Nu]", "/", "105"}]}], " ", "-",
RowBox[{"6112567",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "13860"}]}], " ", "-",
RowBox[{"9979",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "66"}]}]}], ")"}],
RowBox[{"VS", "^", "2"}], " ",
RowBox[{"VR", "^", "2"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "100999"}], "/", "1980"}], " ", "+", " ",
RowBox[{"6446971",
RowBox[{"\[Nu]", "/", "6930"}]}], " ", "-",
RowBox[{"512285",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2772"}]}], " ", "+", " ",
RowBox[{"738973",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "3465"}]}]}], ")"}], "VS", " ",
RowBox[{"VR", "^", "4"}]}], "\[IndentingNewLine]", "\t\t", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"G", " ",
RowBox[{"m", "/", "r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"1932907", "/", "69300"}], " ", "-", " ",
RowBox[{"40997",
RowBox[{"\[Nu]", "/", "70"}]}], " ", "+", " ",
RowBox[{"955543",
RowBox[{
RowBox[{"\[Nu]", "^", "2"}], "/", "2772"}]}], " ", "-",
RowBox[{"50525",
RowBox[{
RowBox[{"\[Nu]", "^", "3"}], "/", "1386"}]}]}], ")"}],
RowBox[{"VR", "^", "6"}]}]}], ")"}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.890918626511726*^9, 3.890919061014626*^9}, {
3.890919101913238*^9, 3.890919252698208*^9}, {3.8909203964322577`*^9,
3.8909203967147903`*^9}, {3.890924290249716*^9, 3.890924290383819*^9}, {
3.891711007423699*^9, 3.891711007925582*^9}, {3.891711908780851*^9,
3.89171190899009*^9}, {3.892161041108181*^9, 3.892161041199031*^9}},
CellLabel->
"In[215]:=",ExpressionUUID->"857c7228-8a93-4577-aa5a-490384fb5af8"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Combine", " ",
RowBox[{"terms", "."}]}], " ", "*)"}], "\n",
RowBox[{
RowBox[{"FJPNLIT", " ", "=", " ",
RowBox[{"FJPRE", "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"cFJPNLIT", "[", "i", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}],
";"}]}]], "Code",
CellChangeTimes->{{3.8905737112736*^9, 3.890573732448325*^9}, {
3.8907872628088284`*^9, 3.890787262869054*^9}, {3.8909186416293716`*^9,
3.8909186468061733`*^9}, {3.890924286058775*^9, 3.8909242861440697`*^9}},
CellLabel->
"In[216]:=",ExpressionUUID->"53dbac2f-56d0-4875-a413-dc5fcdac5074"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Generators and Transformations", "Section",
CellChangeTimes->{{3.894223602143111*^9,
3.894223611710802*^9}},ExpressionUUID->"69756736-cb3d-4099-9729-\
648fa457f9fc"],
Cell[CellGroupData[{
Cell["E Flux Schott Terms and Generators", "Subsection",
CellChangeTimes->{{3.89465390899201*^9,
3.894653922847628*^9}},ExpressionUUID->"bc133589-5bad-4cc7-9bb9-\
45fe2b2baf5e"],
Cell[BoxData[
RowBox[{
RowBox[{"ESchottGenG3PN6", " ", "=", " ",
RowBox[{
FractionBox["1",
RowBox[{"2661120", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["r", "3"], " ",
SuperscriptBox["\[Nu]", "5"]}]],
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"192", " ",
SuperscriptBox["PR", "7"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "301585"}], "+",
RowBox[{"1433696", " ", "\[Nu]"}], "-",
RowBox[{"1099688", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"209632", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "-",
RowBox[{"3", " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1300992"}], " ",
SuperscriptBox["m", "6"], " ",
SuperscriptBox["\[Nu]", "6"]}], "+",
RowBox[{"6336", " ",
SuperscriptBox["m", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1193"}], "+",
RowBox[{"928", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"176", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{"20609", "-",
RowBox[{"33236", " ", "\[Nu]"}], "+",
RowBox[{"24064", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["PS", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "9670325"}], "+",
RowBox[{"38024912", " ", "\[Nu]"}], "-",
RowBox[{"2340480", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"189696", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"24", " ",
SuperscriptBox["PR", "5"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"176", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{"2501", "-",
RowBox[{"20234", " ", "\[Nu]"}], "+",
RowBox[{"8404", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{"PS", " ",
RowBox[{"(",
RowBox[{"4836297", "-",
RowBox[{"19193432", " ", "\[Nu]"}], "+",
RowBox[{"4204056", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"982464", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"4", " ",
SuperscriptBox["PR", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "6336"}], " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "687"}], "+",
RowBox[{"620", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"176", " ",
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1171"}], "-",
RowBox[{"119024", " ", "\[Nu]"}], "+",
RowBox[{"39268", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"21522507", "-",
RowBox[{"69081008", " ", "\[Nu]"}], "-",
RowBox[{"36985248", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"18245088", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894222764681842*^9, 3.8942227697943563`*^9},
3.894647862817555*^9, {3.894653324980979*^9, 3.89465334175661*^9}, {
3.894653455552806*^9,
3.894653456072715*^9}},ExpressionUUID->"468b4311-7eac-4685-ab73-\
894794a610c2"],
Cell[BoxData[
RowBox[{
RowBox[{"ESchottG3PN6", " ", "=", " ",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"887040", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["r", "4"], " ",
SuperscriptBox["\[Nu]", "6"]}]]}],
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"640", " ",
SuperscriptBox["PR", "8"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "301585"}], "+",
RowBox[{"1433696", " ", "\[Nu]"}], "-",
RowBox[{"1099688", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"209632", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"256", " ",
SuperscriptBox["PR", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"20328", " ",
SuperscriptBox["m", "6"], " ",
SuperscriptBox["\[Nu]", "6"]}], "-",
RowBox[{"4092", " ",
SuperscriptBox["m", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "43"}], "+",
RowBox[{"30", " ", "\[Nu]"}]}], ")"}]}], "-",
RowBox[{"66", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{"2202", "-",
RowBox[{"1239", " ", "\[Nu]"}], "+",
RowBox[{"2272", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["PS", "3"], " ",
RowBox[{"(",
RowBox[{"580778", "-",
RowBox[{"2007391", " ", "\[Nu]"}], "-",
RowBox[{"368718", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"101952", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"512", " ",
SuperscriptBox["PR", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"22", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{"2501", "-",
RowBox[{"20234", " ", "\[Nu]"}], "+",
RowBox[{"8404", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{"PS", " ",
RowBox[{"(",
RowBox[{"840913", "-",
RowBox[{"3348556", " ", "\[Nu]"}], "+",
RowBox[{"727568", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"216712", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"768", " ",
SuperscriptBox["PR", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"66", " ",
SuperscriptBox["m", "4"], " ",
RowBox[{"(",
RowBox[{"687", "-",
RowBox[{"620", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Nu]", "4"]}], "+",
RowBox[{"44", " ",
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "43"}], "-",
RowBox[{"7164", " ", "\[Nu]"}], "+",
RowBox[{"1992", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"482697", "-",
RowBox[{"1586600", " ", "\[Nu]"}], "-",
RowBox[{"684608", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"388040", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1300992"}], " ",
SuperscriptBox["m", "6"], " ",
SuperscriptBox["\[Nu]", "6"]}], "+",
RowBox[{"2112", " ",
SuperscriptBox["m", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3271"}], "+",
RowBox[{"1860", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"176", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{"39311", "-",
RowBox[{"100502", " ", "\[Nu]"}], "+",
RowBox[{"60316", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["PS", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "13911925"}], "+",
RowBox[{"59922304", " ", "\[Nu]"}], "-",
RowBox[{"32738056", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"14721312", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894221586776682*^9, 3.894221596554579*^9}, {
3.894221656397359*^9, 3.89422165720047*^9}, 3.894222093406969*^9,
3.8946478652093353`*^9, {3.894653348986887*^9, 3.894653351038644*^9}, {
3.89465345219026*^9,
3.8946534532840652`*^9}},ExpressionUUID->"23a996e4-e695-424d-abb9-\
1bccb207bfff"],
Cell[BoxData[
RowBox[{
RowBox[{"ESchottGenG4PN4", " ", "=", " ",
RowBox[{
FractionBox["1",
RowBox[{"2100", " ",
SuperscriptBox["r", "4"], " ", "\[Nu]"}]],
SuperscriptBox["G", "3"], " ", "m", " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"20", " ",
SuperscriptBox["PR", "2"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "687"}], "+",
RowBox[{"620", " ", "\[Nu]"}]}], ")"}]}], "-",
RowBox[{"15", " ", "PS", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1193"}], "+",
RowBox[{"928", " ", "\[Nu]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1540"}], " ", "r"}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"14897", "+",
RowBox[{"4040", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8944648361806517`*^9, 3.894464841372827*^9},
3.894647866825136*^9, 3.8946533577465553`*^9, {3.894653467897139*^9,
3.894653469228092*^9}},ExpressionUUID->"a551fa1e-12ca-43dd-bb3c-\
b6bcf7f675ee"],
Cell[BoxData[
RowBox[{
RowBox[{"ESchottG4PN4", " ", "=", " ",
RowBox[{
FractionBox["1",
RowBox[{"2100", " ",
SuperscriptBox["r", "5"], " ",
SuperscriptBox["\[Nu]", "2"]}]],
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["PS", "2"], " ", "r", " ",
RowBox[{"(",
RowBox[{"3271", "-",
RowBox[{"1860", " ", "\[Nu]"}]}], ")"}]}], "-",
RowBox[{"3080", " ", "G", " ",
SuperscriptBox["m", "5"], " ",
SuperscriptBox["\[Nu]", "4"]}], "-",
RowBox[{"120", " ",
SuperscriptBox["PR", "4"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "687"}], "+",
RowBox[{"620", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3080", " ", "r"}], "-",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"61549", "+",
RowBox[{"3400", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"80", " ",
SuperscriptBox["PR", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"31", " ", "PS", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "43"}], "+",
RowBox[{"30", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "77"}], " ", "r"}], "+",
RowBox[{"4", " ", "G", " ", "m", " ",
RowBox[{"(",
RowBox[{"299", "+",
RowBox[{"87", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ")"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8944648533215017`*^9, 3.8944648552397337`*^9},
3.894647868504888*^9, {3.8946534737916317`*^9,
3.894653476862496*^9}},ExpressionUUID->"411fc54d-8486-4f29-9e96-\
7f5f7cc72abf"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"ESchottGenDiff", " ", "=", " ",
RowBox[{"ESchottGenG4PN4", " ", "-", " ", "ESchottGenG3PN4"}]}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ESchottGenDiff", " ", "=", " ",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["G", "4"], " ",
SuperscriptBox["m", "4"], " ", "PR", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"14897", "+",
RowBox[{"4040", " ", "\[Nu]"}]}], ")"}]}],
RowBox[{"1050", " ",
SuperscriptBox["r", "4"]}]]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8944654543305492`*^9, 3.894465463594059*^9},
3.894647869794969*^9, {3.8946524796221724`*^9, 3.894652480768063*^9}, {
3.89465358480443*^9, 3.894653591124144*^9}, {3.894653674081839*^9,
3.894653705919475*^9}},ExpressionUUID->"d5024668-4d71-4c58-8fcb-\
b9f3e233d73c"]
}, Closed]],
Cell[CellGroupData[{
Cell["J Flux Schott Terms and Generators", "Subsection",
CellChangeTimes->{{3.89465390899201*^9,
3.894653934201591*^9}},ExpressionUUID->"750a6179-861b-499d-8a74-\
81afa3dbd235"],
Cell[BoxData[
RowBox[{
RowBox[{"JSchottGenG3PN5", " ", "=", " ",
RowBox[{
FractionBox["1",
RowBox[{"6652800", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["r", "3"], " ",
SuperscriptBox["\[Nu]", "5"]}]],
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"372556800", " ", "G", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "4"]}], "-",
RowBox[{"429732864", " ", "G", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"]}], "+",
RowBox[{"65083392", " ", "G", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "4"]}], "+",
RowBox[{"16800", " ",
SuperscriptBox["PR", "7"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1023"}], "+",
RowBox[{"8070", " ", "\[Nu]"}], "-",
RowBox[{"17176", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"1640", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "-",
RowBox[{"20", " ",
SuperscriptBox["PR", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"24", " ",
SuperscriptBox["PS", "2"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "23721"}], "+",
RowBox[{"40429", " ", "\[Nu]"}], "+",
RowBox[{"156575", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"118344", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"352", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"54", " ", "r", " ",
RowBox[{"(",
RowBox[{"19", "-",
RowBox[{"72", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "20147"}], "+",
RowBox[{"36994", " ", "\[Nu]"}], "+",
RowBox[{"21636", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1056"}], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "681"}], "+",
RowBox[{"2179", " ", "\[Nu]"}], "+",
RowBox[{"308", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "7848865"}], "+",
RowBox[{"43677456", " ", "\[Nu]"}], "+",
RowBox[{"40412984", " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"6894048", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "-",
RowBox[{"15", " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["PS", "3"], " ", "r", " ",
RowBox[{"(",
RowBox[{"14493", "-",
RowBox[{"72457", " ", "\[Nu]"}], "+",
RowBox[{"47373", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"34734", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"2112", " ",
SuperscriptBox["m", "6"], " ",
SuperscriptBox["\[Nu]", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "336"}], " ", "r"}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"2099", "+",
RowBox[{"1836", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"352", " ",
SuperscriptBox["m", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"24", " ", "r", " ",
RowBox[{"(",
RowBox[{"7", "-",
RowBox[{"86", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "14359"}], "+",
RowBox[{"4230", " ", "\[Nu]"}], "+",
RowBox[{"17840", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"1408", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "293"}], "+",
RowBox[{"1144", " ", "\[Nu]"}], "+",
RowBox[{"975", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "-",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1002767"}], "+",
RowBox[{"18120288", " ", "\[Nu]"}], "+",
RowBox[{"34681992", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"4122720", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "+",
RowBox[{"24", " ",
SuperscriptBox["PR", "5"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"100", " ", "PS", " ", "r", " ",
RowBox[{"(",
RowBox[{"2013", "-",
RowBox[{"35150", " ", "\[Nu]"}], "+",
RowBox[{"104636", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"35760", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"17600", " ", "r", " ",
RowBox[{"(",
RowBox[{"39", "-",
RowBox[{"163", " ", "\[Nu]"}], "+",
RowBox[{"97", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "-",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"11200991", "-",
RowBox[{"56213840", " ", "\[Nu]"}], "+",
RowBox[{"9962040", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"11956960", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ")"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894222630955001*^9, 3.89422263436203*^9},
3.894647871620158*^9, {3.894653733659152*^9,
3.8946537372212343`*^9}},ExpressionUUID->"c6bdc73f-4767-4450-8a9c-\
cc750a019985"],
Cell[BoxData[
RowBox[{
RowBox[{"JSchottG3PN5", "=", " ",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2217600", " ",
SuperscriptBox["m", "5"], " ",
SuperscriptBox["r", "4"], " ",
SuperscriptBox["\[Nu]", "6"]}]]}],
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"869299200", " ", "G", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PR", "5"], " ",
SuperscriptBox["\[Nu]", "4"]}], "-",
RowBox[{"1212963840", " ", "G", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"]}], "+",
RowBox[{"351571968", " ", "G", " ",
SuperscriptBox["m", "4"], " ", "PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "4"]}], "+",
RowBox[{"50400", " ",
SuperscriptBox["PR", "8"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1023"}], "+",
RowBox[{"8070", " ", "\[Nu]"}], "-",
RowBox[{"17176", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"1640", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "-",
RowBox[{"160", " ",
SuperscriptBox["PR", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"15", " ",
SuperscriptBox["PS", "2"], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "13385"}], "+",
RowBox[{"10388", " ", "\[Nu]"}], "+",
RowBox[{"140004", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"99312", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"88", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"45", " ", "r", " ",
RowBox[{"(",
RowBox[{"19", "-",
RowBox[{"72", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "23981"}], "+",
RowBox[{"50975", " ", "\[Nu]"}], "+",
RowBox[{"22958", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "1320"}], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "215"}], "+",
RowBox[{"713", " ", "\[Nu]"}], "+",
RowBox[{"52", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4964873"}], "+",
RowBox[{"23884350", " ", "\[Nu]"}], "+",
RowBox[{"13265232", " ",
SuperscriptBox["\[Nu]", "2"]}], "-",
RowBox[{"2308928", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "-",
RowBox[{"160", " ",
SuperscriptBox["PR", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["PS", "3"], " ", "r", " ",
RowBox[{"(",
RowBox[{"15059", "-",
RowBox[{"59302", " ", "\[Nu]"}], "-",
RowBox[{"565", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"25512", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"1056", " ",
SuperscriptBox["m", "6"], " ",
SuperscriptBox["\[Nu]", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "63"}], " ", "r"}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"753", "+",
RowBox[{"466", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"44", " ",
SuperscriptBox["m", "4"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"396", " ", "r", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"8", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "30169"}], "+",
RowBox[{"32028", " ", "\[Nu]"}], "+",
RowBox[{"27656", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "44"}], " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "971"}], "+",
RowBox[{"2786", " ", "\[Nu]"}], "+",
RowBox[{"3056", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "345373"}], "+",
RowBox[{"2207260", " ", "\[Nu]"}], "+",
RowBox[{"4298180", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"559248", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "+",
RowBox[{"5", " ",
RowBox[{"(",
RowBox[{
RowBox[{"709632", " ", "G", " ",
SuperscriptBox["m", "9"], " ",
SuperscriptBox["\[Nu]", "8"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["PS", "4"], " ", "r", " ",
RowBox[{"(",
RowBox[{"13588", "-",
RowBox[{"76747", " ", "\[Nu]"}], "+",
RowBox[{"76206", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"46572", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{"2112", " ",
SuperscriptBox["m", "6"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "336"}], " ", "r"}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"3639", "+",
RowBox[{"2500", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"352", " ",
SuperscriptBox["m", "4"], " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"120", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "7"}], "+",
RowBox[{"8", " ", "\[Nu]"}]}], ")"}]}], "+",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3690"}], "-",
RowBox[{"20993", " ", "\[Nu]"}], "+",
RowBox[{"1328", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ",
SuperscriptBox["PS", "3"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"1408", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "461"}], "+",
RowBox[{"1768", " ", "\[Nu]"}], "+",
RowBox[{"804", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "-",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3519111"}], "+",
RowBox[{"30374200", " ", "\[Nu]"}], "+",
RowBox[{"39143552", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"10166784", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}], "+",
RowBox[{"32", " ",
SuperscriptBox["PR", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"350", " ", "PS", " ", "r", " ",
RowBox[{"(",
RowBox[{"2871", "-",
RowBox[{"33500", " ", "\[Nu]"}], "+",
RowBox[{"86650", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"24944", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"30800", " ", "r", " ",
RowBox[{"(",
RowBox[{"39", "-",
RowBox[{"163", " ", "\[Nu]"}], "+",
RowBox[{"97", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}], "-",
RowBox[{"G", " ", "m", " ",
RowBox[{"(",
RowBox[{"27158107", "-",
RowBox[{"133214730", " ", "\[Nu]"}], "+",
RowBox[{"34654880", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"26092120", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ")"}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894221600686509*^9, 3.8942216135276537`*^9}, {
3.894221661497085*^9, 3.894221661755376*^9}, 3.894222096452859*^9,
3.8946478737573423`*^9, {3.89465374147512*^9,
3.894653743837212*^9}},ExpressionUUID->"d5ba076c-9f2d-43c3-befe-\
fb8c741e167a"]
}, Closed]],
Cell[CellGroupData[{
Cell["Canonical Transformations and Generators", "Subsection",
CellChangeTimes->{{3.89465390899201*^9,
3.8946539490823183`*^9}},ExpressionUUID->"5f3c7606-d3ab-4901-8341-\
c139872ad16a"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Only", " ", "need", " ", "CanonGenG1PN2", ".5", " ", "to", " ", "do",
" ", "G3PN6"}], ",",
RowBox[{
"G4PN4", " ", "E", " ", "flux", " ", "matching", " ", "and", " ", "G3PN5",
" ", "J", " ", "flux", " ",
RowBox[{"matching", ".", " ", "The"}], " ", "G3PN2", ".5", " ",
"expression", " ", "below", " ", "is", " ", "required", " ", "to", " ",
"match", " ", "the", " ", "ADM", " ", "and", " ", "Isotropic", " ",
"gauge", " ", "Hamiltonians", " ", "at", " ", "G3PN3", " ",
RowBox[{"order", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CanonGenG3PN3", " ", "=", " ",
RowBox[{
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["PR", "3"],
RowBox[{"8", " ", "m"}]], "-",
FractionBox[
RowBox[{"PR", " ", "PS", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Nu]"}], ")"}]}],
RowBox[{"8", " ", "m", " ", "\[Nu]"}]]}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "G", " ", "m", " ", "PR", " ", "\[Nu]"}],
"+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
SuperscriptBox["m", "2"], " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "\[Nu]"}], "+",
SuperscriptBox["\[Nu]", "2"]}], ")"}]}],
RowBox[{"4", " ", "r"}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "3"], " ",
SuperscriptBox["m", "3"], " ", "PR", " ",
RowBox[{"(",
RowBox[{
RowBox[{"304", " ", "\[Nu]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]"}], "+",
RowBox[{"36", " ",
SuperscriptBox["\[Nu]", "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Nu]", "3"]}]}], ")"}]}],
RowBox[{"192", " ",
SuperscriptBox["r", "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["PR", "3"], " ",
RowBox[{"(",
RowBox[{"5", "+",
RowBox[{"34", " ", "\[Nu]"}], "-",
RowBox[{"5", " ",
SuperscriptBox["\[Nu]", "2"]}]}], ")"}]}],
RowBox[{"48", " ", "\[Nu]"}]]}], "-",
FractionBox[
RowBox[{"PR", " ", "PS", " ",
RowBox[{"(",
RowBox[{"21", "+",
RowBox[{"2", " ", "\[Nu]"}], "-",
SuperscriptBox["\[Nu]", "2"]}], ")"}]}],
RowBox[{"16", " ", "\[Nu]"}]]}], ")"}]}], "r"], "+",
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["PR", "5"],
RowBox[{"16", " ",
SuperscriptBox["m", "3"], " ", "\[Nu]"}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["PR", "3"], " ", "PS"}],
RowBox[{"48", " ",
SuperscriptBox["m", "3"], " ", "\[Nu]"}]], "-",
FractionBox[
RowBox[{"PR", " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"3", " ", "\[Nu]"}], "+",
SuperscriptBox["\[Nu]", "2"]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Nu]", "3"]}]]}], ")"}]}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894221644502047*^9, 3.894221650878025*^9},
3.894647875493019*^9, {3.894653781378594*^9, 3.8946538538580227`*^9}, {
3.894653957070068*^9, 3.894653988530877*^9}, {3.894733033738242*^9,
3.89473304846098*^9}},ExpressionUUID->"76548e4b-ba88-4639-97e7-\
441a27d15c1a"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"transformed", " ",
RowBox[{"q", "[", "i", "]"}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CanonQG3PN3", " ", "=", " ",
RowBox[{
RowBox[{"q", "[", "i", "]"}], "+",
FractionBox[
RowBox[{"G", " ", "m", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}],
RowBox[{"2", " ", "r"}]], "-",
FractionBox[
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "PR", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"2", " ", "PR", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"2", " ", "PS", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"PS", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
RowBox[{"8", " ", "m", " ", "r", " ", "\[Nu]"}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["m", "2"]}], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["r", "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"304", " ",
SuperscriptBox["m", "3"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"48", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
RowBox[{"192", " ",
SuperscriptBox["r", "3"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["r", "2"], " ", "\[Nu]"}]],
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "42"}], " ", "PR", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"4", " ", "PR", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"2", " ", "PR", " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"5", " ",
SuperscriptBox["PR", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"21", " ", "PS", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"32", " ",
SuperscriptBox["PR", "2"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"4", " ", "PS", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["PR", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"2", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"48", " ",
SuperscriptBox["m", "3"], " ", "r", " ",
SuperscriptBox["\[Nu]", "3"]}]], "G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "12"}], " ", "PR", " ", "PS", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"36", " ", "PR", " ", "PS", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["PR", "3"], " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"12", " ", "PR", " ", "PS", " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"9", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"15", " ",
SuperscriptBox["PR", "4"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PR", "2"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8942235065157022`*^9, 3.894223510484694*^9},
3.894647877423472*^9, {3.89465378628333*^9, 3.8946537872153873`*^9}, {
3.894653861917097*^9,
3.8946538884313593`*^9}},ExpressionUUID->"80bb0cb4-7c8f-424d-b8fa-\
3ee629a27e68"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"transformed", " ",
RowBox[{"p", "[", "i", "]"}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CanonPG3PN3", "=", " ",
RowBox[{
RowBox[{"p", "[", "i", "]"}], "+",
FractionBox[
RowBox[{"G", " ", "m", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "r"}], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"PR", " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["r", "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ", "m", " ",
SuperscriptBox["r", "2"], " ", "\[Nu]"}]],
RowBox[{"G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "PS", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PR", "2"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"PS", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"2", " ", "PR", " ", "PS", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["PR", "3"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"PR", " ", "PS", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}]}], "+",
FractionBox[
RowBox[{
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["m", "2"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["m", "2"], " ", "PR", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{
SuperscriptBox["m", "2"], " ", "PR", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["r", "3"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"48", " ",
SuperscriptBox["r", "3"], " ", "\[Nu]"}]],
SuperscriptBox["G", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"15", " ",
SuperscriptBox["PR", "2"], " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"63", " ", "PS", " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"108", " ",
SuperscriptBox["PR", "2"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"24", " ", "PS", " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"12", " ", "PS", " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"20", " ",
SuperscriptBox["PR", "3"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"126", " ", "PR", " ", "PS", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"148", " ",
SuperscriptBox["PR", "3"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"24", " ", "PR", " ", "PS", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"8", " ",
SuperscriptBox["PR", "3"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"12", " ", "PR", " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["r", "2"], " ",
SuperscriptBox["\[Nu]", "3"]}]], "G", " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["PS", "2"], " ", "r", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["PS", "2"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"5", " ",
SuperscriptBox["PR", "4"], " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{
SuperscriptBox["PR", "2"], " ", "PS", " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{
SuperscriptBox["PS", "2"], " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"PR", " ",
SuperscriptBox["PS", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"3", " ", "PR", " ",
SuperscriptBox["PS", "2"], " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"5", " ",
SuperscriptBox["PR", "5"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{
SuperscriptBox["PR", "3"], " ", "PS", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"PR", " ",
SuperscriptBox["PS", "2"], " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"192", " ",
SuperscriptBox["r", "4"]}]],
SuperscriptBox["G", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "304"}], " ",
SuperscriptBox["m", "3"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"3", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ", "r", " ", "\[Nu]", " ",
RowBox[{"p", "[", "i", "]"}]}], "-",
RowBox[{"96", " ",
SuperscriptBox["m", "3"], " ", "r", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"24", " ",
SuperscriptBox["m", "3"], " ", "r", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"p", "[", "i", "]"}]}], "+",
RowBox[{"912", " ",
SuperscriptBox["m", "3"], " ", "PR", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"9", " ",
SuperscriptBox["m", "3"], " ",
SuperscriptBox["\[Pi]", "2"], " ", "PR", " ", "\[Nu]", " ",
RowBox[{"q", "[", "i", "]"}]}], "+",
RowBox[{"192", " ",
SuperscriptBox["m", "3"], " ", "PR", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"q", "[", "i", "]"}]}], "-",
RowBox[{"24", " ",
SuperscriptBox["m", "3"], " ", "PR", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"q", "[", "i", "]"}]}]}], ")"}]}]}]}], ";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.8942235191223297`*^9, 3.894223529264751*^9},
3.894647879317871*^9, {3.894653789978918*^9, 3.8946537915595427`*^9}, {
3.894653870588215*^9,
3.8946538808414803`*^9}},ExpressionUUID->"a6d1d85f-9ae7-4d5f-a413-\
6bf4c80c2ff7"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"The", " ", "additional", " ", "scaling", " ", "parameters", " ", "are",
" ", "also", " ", "fixed", " ", "by", " ", "matching", " ", "the", " ",
RowBox[{"Hamiltonians", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Mu]", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Nu]", " ", "=", " ",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"m", " ", "\[Nu]"}], ")"}]}]}], ";", " ",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Take", " ", "care", " ", "not", " ", "to", " ", "confuse", " ", "the",
" ", "momentum"}], "-",
RowBox[{
"scaling", " ", "parameter", " ", "on", " ", "the", " ", "LHS", " ",
"of", " ", "this", " ", "equation", " ",
RowBox[{"(", "\[Nu]", ")"}], " ", "with", " ", "the", " ", "symmetric",
" ", "mass", " ", "ratio", " ", "appearing", " ", "on", " ", "the",
" ", "RHS", " ",
RowBox[{
RowBox[{"(",
RowBox[{"also", " ", "called", " ", "\[Nu]"}], ")"}], "."}]}]}], " ",
"*)"}]}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894734514789167*^9,
3.894734642845695*^9}},ExpressionUUID->"6975697a-c9e6-49e8-b63f-\
0d9fdf2b5b8e"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["3PM Fluxes", "Section",
CellChangeTimes->{{3.894643264338292*^9, 3.8946432656116056`*^9},
3.894644791712212*^9},ExpressionUUID->"89b6b7e3-3381-4e5c-bdce-\
a89eb3842654"],
Cell[CellGroupData[{
Cell["E Flux", "Subsection",
CellChangeTimes->{{3.894644124883119*^9,
3.894644125653625*^9}},ExpressionUUID->"85bc87dd-6b65-4042-bde3-\
3cb02d725176"],
Cell[BoxData[{
RowBox[{
RowBox[{"AEG3", " ", "=",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"1151", "-",
RowBox[{"3336", " ", "\[Sigma]"}], "+",
RowBox[{"3148", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"912", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"339", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"552", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"BEG3", " ", "=",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "5"}], "+",
RowBox[{"76", " ", "\[Sigma]"}], "-",
RowBox[{"150", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"60", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]"}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CEG3", " ", "=",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "33"}], "+",
RowBox[{"112", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"165", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643287296462*^9, 3.894643477090536*^9}, {
3.894643749323736*^9, 3.8946437645923243`*^9}, {3.894643883531086*^9,
3.894643893638785*^9}, {3.8946439641028643`*^9, 3.894644045410822*^9}, {
3.8946442522837543`*^9, 3.894644254094283*^9}, {3.894644319685471*^9,
3.8946443646583242`*^9}},
CellLabel->
"In[227]:=",ExpressionUUID->"db4721aa-0d78-43a9-8b03-b58bf9b70c0b"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXEG2", " ", "=", " ", "0"}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643518519903*^9, 3.89464362225603*^9}, {
3.894643771046253*^9, 3.8946438009978037`*^9}, 3.8946442670293837`*^9,
3.8946443047494802`*^9, {3.89464445115958*^9, 3.894644453514934*^9}},
CellLabel->
"In[230]:=",ExpressionUUID->"4824c0f0-a143-4852-a822-09e04fbbd7a8"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXEG3", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"m", "/", "r"}], ")"}], "*",
RowBox[{"(", " ",
RowBox[{"AEG3", " ", "+", " ",
RowBox[{"BEG3", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"CEG3", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], " ",
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643629262787*^9, 3.89464370637572*^9}, {
3.894643774195284*^9, 3.894643774501872*^9}, {3.894643810079702*^9,
3.894643876877934*^9}, {3.894643931811713*^9, 3.8946439318525476`*^9}, {
3.894644285011282*^9, 3.89464429905997*^9}, {3.8946444563708143`*^9,
3.894644456480644*^9}},
CellLabel->
"In[231]:=",ExpressionUUID->"89ade86d-9213-478f-ac35-0583a4250b1c"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXE", " ", "=", " ",
RowBox[{"FLUXEG2", " ", "+", " ", "FLUXEG3"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643944882269*^9, 3.894643949685957*^9}, {
3.8946443072139063`*^9, 3.894644311220429*^9}, {3.894644460522757*^9,
3.894644466223752*^9}, 3.894651171337862*^9, 3.894651292064268*^9},
CellLabel->
"In[266]:=",ExpressionUUID->"03977759-fe04-4a8d-bbe1-ec2d4117b0f5"]
}, Closed]],
Cell[CellGroupData[{
Cell["J Flux", "Subsection",
CellChangeTimes->{{3.894644404270228*^9,
3.894644404921451*^9}},ExpressionUUID->"a5eaac3c-6771-49cf-be35-\
1469837fd422"],
Cell[BoxData[{
RowBox[{
RowBox[{"AJG2", " ", "=",
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{"3", " ",
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"BJG2", " ", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CJG2", " ", "=",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "2"]}]]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AJG3", " ", "=",
RowBox[{
FractionBox["1",
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"40", " ", "\[Sigma]"}], "-",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"121", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"52", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}], "+",
RowBox[{"64", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"8", " ", "\[Sigma]"}], "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"19", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"31", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "9"]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "141"}], "+",
RowBox[{"386", " ", "\[Sigma]"}], "-",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"683", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"1377", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"711", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"25", " ", "\[Sigma]"}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"18", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "25"}], "+",
RowBox[{"87", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"36", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"\[Gamma]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"1715", "-",
RowBox[{"5444", " ", "\[Sigma]"}], "+",
RowBox[{"5641", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3056", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"11049", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"4908", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"3675", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"2712", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"BJG3", " ", "=",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "62"}], "+",
RowBox[{"155", " ", "\[Sigma]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"90", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "5"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"253", "-",
RowBox[{"944", " ", "\[Sigma]"}], "+",
RowBox[{"701", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"360", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"440", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CJG3", " ", "=",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "3"]}]]}],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\[Gamma]", "8"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ", "\[Sigma]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Sigma]", "-",
SuperscriptBox["\[Sigma]", "3"], "+",
SuperscriptBox["\[Sigma]", "5"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "48"}], "+",
RowBox[{"38", " ", "\[Sigma]"}], "+",
RowBox[{"288", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"140", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"85", "-",
RowBox[{"172", " ", "\[Sigma]"}], "-",
RowBox[{"459", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"856", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"135", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"620", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643287296462*^9, 3.894643477090536*^9}, {
3.894643749323736*^9, 3.8946437645923243`*^9}, {3.894643883531086*^9,
3.894643893638785*^9}, {3.8946439641028643`*^9, 3.894644045410822*^9}, {
3.8946444118660727`*^9, 3.894644421199772*^9}, {3.894644534696969*^9,
3.89464460277664*^9}},
CellLabel->
"In[233]:=",ExpressionUUID->"178b917a-2608-43e7-8e68-e365e1b891cd"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXJG2", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], "*",
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "*",
RowBox[{"(", " ",
RowBox[{"AJG2", " ", "+", " ",
RowBox[{"BJG2", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"CJG2", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], ";"}]], "Input",\
InitializationCell->True,
CellChangeTimes->{{3.894643518519903*^9, 3.89464362225603*^9}, {
3.894643771046253*^9, 3.8946438009978037`*^9}, {3.894644425679481*^9,
3.89464442591346*^9}, {3.894644472094293*^9, 3.894644472192334*^9}, {
3.894644513371997*^9, 3.894644517869076*^9}},
CellLabel->
"In[239]:=",ExpressionUUID->"3a7c4f91-ab72-406f-891f-03e4dfa88515"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXJG3", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "*",
RowBox[{"(", " ",
RowBox[{"AJG3", " ", "+", " ",
RowBox[{"BJG3", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"CJG3", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], " ",
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643629262787*^9, 3.89464370637572*^9}, {
3.894643774195284*^9, 3.894643774501872*^9}, {3.894643810079702*^9,
3.894643876877934*^9}, {3.894643931811713*^9, 3.8946439318525476`*^9}, {
3.8946444285506163`*^9, 3.894644428935615*^9}, {3.894644474617075*^9,
3.8946444746953297`*^9}, {3.89464452015915*^9, 3.894644524354085*^9}},
CellLabel->
"In[240]:=",ExpressionUUID->"a52c270c-a401-4bd6-903d-e263a098ae7e"],
Cell[BoxData[
RowBox[{
RowBox[{"FLUXJ", "=", " ",
RowBox[{"FLUXJG2", " ", "+", " ", "FLUXJG3"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643944882269*^9, 3.894643949685957*^9}, {
3.8946444397533092`*^9, 3.894644440208249*^9}, {3.894644477103079*^9,
3.894644484709347*^9}, 3.894651295770568*^9, 3.894651926579122*^9},
CellLabel->
"In[268]:=",ExpressionUUID->"9c9c0c26-07c1-4bae-af1e-1f6bcd4e71b9"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["4PM E Flux", "Section",
CellChangeTimes->{{3.894644802167444*^9,
3.894644803801237*^9}},ExpressionUUID->"ea63dcb6-beb9-4b04-a0e5-\
dce90f9e2183"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Only", " ", "the", " ",
RowBox[{"G", "^", "4"}], " ", "term", " ", "in", " ", "the", " ", "4",
"PM", " ",
RowBox[{"flux", "."}]}], " ", "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"FLUXEG4", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "4"}], "*",
RowBox[{"(",
RowBox[{"m", "/", "r"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "10"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]]}],
RowBox[{
SuperscriptBox["\[Nu]", "5"], " ",
RowBox[{"(",
RowBox[{"1151", "-",
RowBox[{"3336", " ", "\[Sigma]"}], "+",
RowBox[{"3148", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"912", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"339", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"552", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"7", " ", "\[Sigma]"}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Sigma]"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Sigma]", "5"]}]}], ")"}]}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "6"], " ",
SuperscriptBox["\[Xi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]],
RowBox[{
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"3", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"3366", "-",
RowBox[{"6881", " ", "\[Sigma]"}], "+",
RowBox[{"726", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4502", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"1182", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1071", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"2910", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"1260", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1064"}], "+",
RowBox[{"3575", " ", "\[Sigma]"}], "-",
RowBox[{"3613", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1072", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"66", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1533", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"3723", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"3066", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"840", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"470400", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox["\[Sigma]", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "245"}], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"1575", "-",
RowBox[{"8250", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"35710", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"142640", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"5560073", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"417302", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"4034092", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"587336", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"6144", " ",
SuperscriptBox["\[Sigma]", "16"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "385875"}], "+",
RowBox[{"771750", " ", "\[Sigma]"}], "+",
RowBox[{"1837500", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"4042500", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"7188300", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"17497900", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"21241500", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"69893600", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"752357266", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"2724435770", " ",
SuperscriptBox["\[Sigma]", "9"]}], "-",
RowBox[{"4066583215", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"204477980", " ",
SuperscriptBox["\[Sigma]", "11"]}], "+",
RowBox[{"3666321886", " ",
SuperscriptBox["\[Sigma]", "12"]}], "+",
RowBox[{"1976705080", " ",
SuperscriptBox["\[Sigma]", "13"]}], "+",
RowBox[{"558224042", " ",
SuperscriptBox["\[Sigma]", "14"]}], "-",
RowBox[{"287794640", " ",
SuperscriptBox["\[Sigma]", "15"]}], "-",
RowBox[{"318633472", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"3010560", " ",
SuperscriptBox["\[Sigma]", "17"]}]}], ")"}]}]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{"1920", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"512", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1720"}], "-",
RowBox[{"4927", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1484", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1720", "+",
RowBox[{"6165", " ", "\[Sigma]"}], "+",
RowBox[{"4927", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1950", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"1484", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"960", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}],
"+",
RowBox[{"15", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{"(",
RowBox[{"2075", "+",
RowBox[{"17367", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"5553", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"6819", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4150"}], "-",
RowBox[{"1485", " ", "\[Sigma]"}], "-",
RowBox[{"34734", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4993", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"11106", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"3195", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"13638", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"1575", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"12", " ",
SuperscriptBox["\[Nu]", "3"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "9"}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "151"}], "+",
RowBox[{"18", " ", "\[Sigma]"}], "-",
RowBox[{"226", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "3"]}]],
RowBox[{"24", " ",
SuperscriptBox["\[Nu]", "3"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"8", "+",
RowBox[{"51", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "-",
RowBox[{"20", " ", "\[Sigma]"}], "-",
RowBox[{"51", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"25", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}]}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], "2"]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "10"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{
SuperscriptBox["\[Nu]", "5"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "89"}], "+",
RowBox[{"389", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"600", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"280", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "66"}], "-",
RowBox[{"165", " ", "\[Sigma]"}], "+",
RowBox[{"1068", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"178", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"3890", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1167", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"5600", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"2800", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"2520", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"1540", " ",
SuperscriptBox["\[Sigma]", "9"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"33", "-",
RowBox[{"666", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1424", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"1589", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"6224", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"312", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"9600", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"4340", " ",
SuperscriptBox["\[Sigma]", "8"]}], "-",
RowBox[{"4480", " ",
SuperscriptBox["\[Sigma]", "9"]}], "+",
RowBox[{"2800", " ",
SuperscriptBox["\[Sigma]", "10"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}]}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "10"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
RowBox[{
SuperscriptBox["\[Nu]", "5"], " ",
RowBox[{"(",
RowBox[{"5", "-",
RowBox[{"76", " ", "\[Sigma]"}], "+",
RowBox[{"145", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"185", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"60", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"7", " ", "\[Sigma]"}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Sigma]"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Sigma]", "5"]}]}], ")"}]}]}], ")"}]}]}],
"+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "6"], " ",
SuperscriptBox["\[Xi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]],
RowBox[{
SuperscriptBox["\[Nu]", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "38"}], "+",
RowBox[{"145", " ", "\[Sigma]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"370", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"150", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"33", "-",
RowBox[{"107", " ", "\[Sigma]"}], "-",
RowBox[{"24", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"378", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"335", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"15", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}]}]}],
")"}], " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], "+",
RowBox[{
RowBox[{"ArcCosh", "[", "\[Sigma]", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"5", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]],
RowBox[{"4", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"869", "+",
RowBox[{"496", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"204", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "865"}], "-",
RowBox[{"2607", " ", "\[Sigma]"}], "-",
RowBox[{"4340", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"1488", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"100", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"612", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"320", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}],
")"}]}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"4480", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox["\[Sigma]", "9"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"5", "/", "2"}]]}]],
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "7"}], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"525", "-",
RowBox[{"3100", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13690", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"55260", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"816595", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"3752006", " ",
SuperscriptBox["\[Sigma]", "10"]}], "-",
RowBox[{"1978290", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"1029342", " ",
SuperscriptBox["\[Sigma]", "14"]}], "+",
RowBox[{"213480", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"24576", " ",
SuperscriptBox["\[Sigma]", "18"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3675"}], "+",
RowBox[{"7350", " ", "\[Sigma]"}], "+",
RowBox[{"19950", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"43400", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"79800", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"191660", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"246540", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"773640", " ",
SuperscriptBox["\[Sigma]", "7"]}], "-",
RowBox[{"222810", " ",
SuperscriptBox["\[Sigma]", "8"]}], "+",
RowBox[{"11432330", " ",
SuperscriptBox["\[Sigma]", "9"]}], "+",
RowBox[{"25264989", " ",
SuperscriptBox["\[Sigma]", "10"]}], "+",
RowBox[{"52528084", " ",
SuperscriptBox["\[Sigma]", "11"]}], "+",
RowBox[{"38260656", " ",
SuperscriptBox["\[Sigma]", "12"]}], "-",
RowBox[{"27696060", " ",
SuperscriptBox["\[Sigma]", "13"]}], "-",
RowBox[{"48986718", " ",
SuperscriptBox["\[Sigma]", "14"]}], "-",
RowBox[{"14410788", " ",
SuperscriptBox["\[Sigma]", "15"]}], "-",
RowBox[{"81724", " ",
SuperscriptBox["\[Sigma]", "16"]}], "+",
RowBox[{"2988720", " ",
SuperscriptBox["\[Sigma]", "17"]}], "+",
RowBox[{"2732032", " ",
SuperscriptBox["\[Sigma]", "18"]}], "+",
RowBox[{"344064", " ",
SuperscriptBox["\[Sigma]", "19"]}]}], ")"}]}]}], ")"}]}]}],
"+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"2057", "+",
RowBox[{"15261", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3387", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"4321", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4114"}], "-",
RowBox[{"1263", " ", "\[Sigma]"}], "-",
RowBox[{"30522", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3883", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"6774", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"8642", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Log", "[", "2", "]"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2039"}], "-",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"4078", "+",
RowBox[{"1041", " ", "\[Sigma]"}], "+",
RowBox[{"26310", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2773", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"2442", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"3646", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Log", "[", "\[Sigma]", "]"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "18"}], "-",
RowBox[{"111", " ", "\[Sigma]"}], "-",
RowBox[{"2106", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"555", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"2166", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"2498", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}]}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"32", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "36"}], "-",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "403"}], "+",
RowBox[{"658", " ", "\[Nu]"}]}], ")"}], " ", "\[Sigma]"}], "+",
RowBox[{"36", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "117"}], "+",
RowBox[{"256", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"6422", "-",
RowBox[{"15064", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "361"}], "+",
RowBox[{"512", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"15", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "117"}], "+",
RowBox[{"518", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"4996", "-",
RowBox[{"8192", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Nu]"}], ")"}], " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
SqrtBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]]}], "]"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"128", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "36"}], "-",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "403"}], "+",
RowBox[{"658", " ", "\[Nu]"}]}], ")"}], " ", "\[Sigma]"}], "+",
RowBox[{"36", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "117"}], "+",
RowBox[{"256", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"6422", "-",
RowBox[{"15064", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "361"}], "+",
RowBox[{"512", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"15", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "117"}], "+",
RowBox[{"518", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"4996", "-",
RowBox[{"8192", " ", "\[Nu]"}]}], ")"}], " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2100", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Nu]"}], ")"}], " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}],
RowBox[{"1", "+", "\[Sigma]"}]]}], "]"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"32", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]],
RowBox[{"3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2039"}], "-",
RowBox[{"13155", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"1221", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"1823", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"4078", "+",
RowBox[{"1041", " ", "\[Sigma]"}], "+",
RowBox[{"26310", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"2773", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"2442", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"3646", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Sigma]", "-",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}], ")"}], "2"]}]}],
"]"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["\[Gamma]", "3"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]}]], "3", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"1053", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"1083", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1249", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "18"}], "-",
RowBox[{"111", " ", "\[Sigma]"}], "-",
RowBox[{"2106", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"555", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"2166", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"1065", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"2498", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"PolyLog", "[",
RowBox[{"2", ",",
RowBox[{
RowBox[{"-", "\[Sigma]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}], "]"}]}]}], ")"}]}]}],
";"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894647664165278*^9, 3.894647719990294*^9}, {
3.8946545671271677`*^9,
3.8946545754289713`*^9}},ExpressionUUID->"caae3490-8b87-4473-8321-\
6dd3a77d1204"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"3",
Cell[BoxData[
FormBox[
RowBox[{"PM", " ", "Radiation", " ", "Reaction", " ", "Force"}],
TraditionalForm]],ExpressionUUID->"0a013f45-2fbc-4b9e-9ae9-631259b93edb"]
}], "Section",
CellChangeTimes->{{3.8946440729918222`*^9, 3.8946440915058002`*^9},
3.8946543754816113`*^9},ExpressionUUID->"1e38d1f2-620a-4493-bcdf-\
e80434ac91e4"],
Cell[CellGroupData[{
Cell[TextData[Cell[BoxData[
FormBox[
SubscriptBox["F", "r"], TraditionalForm]],
FormatType->
TraditionalForm,ExpressionUUID->"87ff3cda-de6d-47dd-8ebe-76c7a08f44fc"]], \
"Subsection",
CellChangeTimes->{{3.8946434928868856`*^9,
3.8946434991626987`*^9}},ExpressionUUID->"93ff52dc-27e5-49a4-bce8-\
790c20a0c6e0"],
Cell[BoxData[{
RowBox[{
RowBox[{"ArG2", " ", "=", " ",
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{"3", " ",
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"BrG2", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"CrG2", " ", "=", " ",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "2"]}]]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Ar1G3", " ", "=", " ",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"1151", "-",
RowBox[{"3336", " ", "\[Sigma]"}], "+",
RowBox[{"3148", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"912", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"339", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"552", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Br1G3", " ", "=", " ",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "5"}], "+",
RowBox[{"76", " ", "\[Sigma]"}], "-",
RowBox[{"150", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"60", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "2"]}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Cr1G3", " ", "=", " ",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "3"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "33"}], "+",
RowBox[{"112", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"165", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "2"]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Ar2G3", " ", "=", " ",
RowBox[{
FractionBox["1",
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"40", " ", "\[Sigma]"}], "-",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"121", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"52", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}], "+",
RowBox[{"64", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"8", " ", "\[Sigma]"}], "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"19", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"31", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "9"]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "141"}], "+",
RowBox[{"386", " ", "\[Sigma]"}], "-",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"683", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"1377", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"711", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"25", " ", "\[Sigma]"}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"18", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "25"}], "+",
RowBox[{"87", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"36", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"\[Gamma]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"1715", "-",
RowBox[{"5444", " ", "\[Sigma]"}], "+",
RowBox[{"5641", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3056", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"11049", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"4908", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"3675", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"2712", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Br2G3", " ", "=", " ",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "62"}], "+",
RowBox[{"155", " ", "\[Sigma]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"90", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "5"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"253", "-",
RowBox[{"944", " ", "\[Sigma]"}], "+",
RowBox[{"701", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"360", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"440", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Cr2G3", " ", "=", " ",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "3"]}]]}],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\[Gamma]", "8"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ", "\[Sigma]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Sigma]", "-",
SuperscriptBox["\[Sigma]", "3"], "+",
SuperscriptBox["\[Sigma]", "5"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "48"}], "+",
RowBox[{"38", " ", "\[Sigma]"}], "+",
RowBox[{"288", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"140", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"85", "-",
RowBox[{"172", " ", "\[Sigma]"}], "-",
RowBox[{"459", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"856", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"135", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"620", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643287296462*^9, 3.894643477090536*^9}},
CellLabel->
"In[243]:=",ExpressionUUID->"744205d0-a5c0-42e9-be1b-2ccd7d81bd73"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCErG2", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"r", "*", "PR"}], ")"}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "^", "2"}],
RowBox[{"(", " ",
RowBox[{"ArG2", " ", "+", " ",
RowBox[{"BrG2", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"CrG2", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], ";"}]], "Input",\
InitializationCell->True,
CellChangeTimes->{{3.894643518519903*^9, 3.89464362225603*^9}, {
3.894644703449057*^9, 3.894644708827338*^9}, {3.8946507814860563`*^9,
3.894650787022928*^9}},
CellLabel->
"In[252]:=",ExpressionUUID->"354eb787-c5f9-4c30-8346-b10cc0f8b4ca"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCErG3", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"r", "*", "PR"}], ")"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"m", "^", "2"}], "*",
RowBox[{"(", " ",
RowBox[{"Ar1G3", " ", "+", " ",
RowBox[{"Br1G3", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"Cr1G3", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}], " ", "+", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "^", "2"}], "*",
RowBox[{"(", " ",
RowBox[{"Ar2G3", " ", "+", " ",
RowBox[{"Br2G3", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"Cr2G3", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], ")"}]}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643629262787*^9, 3.89464370637572*^9}, {
3.8946439284949093`*^9, 3.8946439285567207`*^9}, {3.894644702396454*^9,
3.894644711661476*^9}},
CellLabel->
"In[253]:=",ExpressionUUID->"e9fb0194-39a4-4677-bc3f-850b2b1787a0"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCEr", " ", "=", " ",
RowBox[{"FORCErG2", " ", "+", " ", "FORCErG3"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643910207212*^9, 3.894643939536522*^9}, {
3.8946446965347557`*^9, 3.894644719671948*^9}, 3.894648166183345*^9,
3.894651093099069*^9},
CellLabel->
"In[254]:=",ExpressionUUID->"1a88f769-2f54-4713-9453-27bf186fad56"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[Cell[BoxData[
FormBox[
SubscriptBox["F", "\[Phi]"], TraditionalForm]],
FormatType->
TraditionalForm,ExpressionUUID->"86ba722f-f6e7-4843-8666-0d75601d4f1b"]], \
"Subsection",
CellChangeTimes->{{3.894643737720584*^9,
3.894643740498888*^9}},ExpressionUUID->"7a8f170e-35da-45eb-a00a-\
296fad22381a"],
Cell[BoxData[{
RowBox[{
RowBox[{"A\[Phi]G2", " ", "=",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{"3", " ",
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}]]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"B\[Phi]G2", " ", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"C\[Phi]G2", " ", "=",
RowBox[{"-",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\[Gamma]", "2"], " ", "\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "2"]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"A\[Phi]G3", " ", "=",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"24", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], "2"]}]]}],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"40", " ", "\[Sigma]"}], "-",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"121", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"52", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"20", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}], "+",
RowBox[{"64", " ",
SuperscriptBox["\[Nu]", "3"], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"8", " ", "\[Sigma]"}], "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"13", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"19", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"31", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "9"]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "141"}], "+",
RowBox[{"386", " ", "\[Sigma]"}], "-",
RowBox[{"525", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"683", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"1377", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"711", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "8"}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"5", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"25", " ", "\[Sigma]"}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"37", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"18", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "25"}], "+",
RowBox[{"87", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"92", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"36", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}], "+",
RowBox[{"\[Gamma]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{"1715", "-",
RowBox[{"5444", " ", "\[Sigma]"}], "+",
RowBox[{"5641", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"3056", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"11049", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"4908", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"3675", " ",
SuperscriptBox["\[Sigma]", "6"]}], "-",
RowBox[{"2712", " ",
SuperscriptBox["\[Sigma]", "7"]}], "+",
RowBox[{"210", " ",
SuperscriptBox["\[Sigma]", "8"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"B\[Phi]G3", " ", "=",
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "62"}], "+",
RowBox[{"155", " ", "\[Sigma]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"90", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"35", " ",
SuperscriptBox["\[Sigma]", "5"]}]}], ")"}]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"253", "-",
RowBox[{"944", " ", "\[Sigma]"}], "+",
RowBox[{"701", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"360", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"105", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"440", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}]}], ")"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"C\[Phi]G3", " ", "=",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SuperscriptBox["\[Gamma]", "9"], " ",
SuperscriptBox["\[Xi]", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "\[Sigma]"}], ")"}], "3"]}]],
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\[Gamma]", "8"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Nu]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Sigma]", "4"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"5", " ", "\[Sigma]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Sigma]", "-",
SuperscriptBox["\[Sigma]", "3"], "+",
SuperscriptBox["\[Sigma]", "5"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Gamma]", "5"], " ",
SuperscriptBox["\[Xi]", "2"], " ", "\[Sigma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "48"}], "+",
RowBox[{"38", " ", "\[Sigma]"}], "+",
RowBox[{"288", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"140", " ",
SuperscriptBox["\[Sigma]", "3"]}], "-",
RowBox[{"240", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"70", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"\[Nu]", " ",
RowBox[{"(",
RowBox[{"85", "-",
RowBox[{"172", " ", "\[Sigma]"}], "-",
RowBox[{"459", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"856", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"135", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"620", " ",
SuperscriptBox["\[Sigma]", "5"]}], "+",
RowBox[{"175", " ",
SuperscriptBox["\[Sigma]", "6"]}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Gamma]", "4"], " ", "\[Nu]", " ", "\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "-",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"2", " ", "\[Nu]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"21", " ",
SuperscriptBox["\[Sigma]", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["\[Sigma]", "3"]}], "+",
RowBox[{"28", " ",
SuperscriptBox["\[Sigma]", "4"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Sigma]", "5"]}], "-",
RowBox[{"12", " ",
SuperscriptBox["\[Sigma]", "6"]}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Sigma]", "7"]}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643287296462*^9, 3.894643477090536*^9}, {
3.894643749323736*^9, 3.8946437645923243`*^9}, {3.894643883531086*^9,
3.894643893638785*^9}, {3.8946439641028643`*^9, 3.894644045410822*^9}},
CellLabel->
"In[255]:=",ExpressionUUID->"219e3018-7c29-4222-9677-267c27fbe86f"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCE\[Phi]G2", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "2"}], "*",
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "*",
RowBox[{"(", " ",
RowBox[{"A\[Phi]G2", " ", "+", " ",
RowBox[{"B\[Phi]G2", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"C\[Phi]G2", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], ";"}]], "Input",\
InitializationCell->True,
CellChangeTimes->{{3.894643518519903*^9, 3.89464362225603*^9}, {
3.894643771046253*^9, 3.8946438009978037`*^9}, {3.894644737637903*^9,
3.894644737985495*^9}},
CellLabel->
"In[261]:=",ExpressionUUID->"6cc7e11b-308c-42b6-819e-3353051c907f"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCE\[Phi]G3", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"G", "*",
RowBox[{"m", "/", "r"}]}], ")"}], "^", "3"}], "*",
RowBox[{"(",
RowBox[{"J0", "/", "r"}], ")"}], "*",
RowBox[{"(", " ",
RowBox[{"A\[Phi]G3", " ", "+", " ",
RowBox[{"B\[Phi]G3", "*", " ",
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+", "\[Sigma]"}], "2"], "]"}]}], " ", "+", " ",
RowBox[{"C\[Phi]G3", "*",
RowBox[{
RowBox[{"ArcSinh", "[",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Sigma]"}]],
SqrtBox["2"]], "]"}], "/",
SqrtBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Sigma]", "2"]}]]}]}]}], ")"}]}]}], " ",
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643629262787*^9, 3.89464370637572*^9}, {
3.894643774195284*^9, 3.894643774501872*^9}, {3.894643810079702*^9,
3.894643876877934*^9}, {3.894643931811713*^9, 3.8946439318525476`*^9}, {
3.894644740442762*^9, 3.894644740745863*^9}},
CellLabel->
"In[262]:=",ExpressionUUID->"e1c423b9-c7af-4d01-982d-60ad58795b7e"],
Cell[BoxData[
RowBox[{
RowBox[{"FORCE\[Phi]", " ", "=", " ",
RowBox[{"FORCE\[Phi]G2", " ", "+", " ", "FORCE\[Phi]G3"}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.894643944882269*^9, 3.894643949685957*^9}, {
3.8946447428963842`*^9, 3.894644747254415*^9}, 3.8946510980017233`*^9,
3.8946511597061996`*^9},
CellLabel->
"In[264]:=",ExpressionUUID->"eb7fd99f-22c3-44ff-9bae-635088ed7616"]
}, Closed]]
}, Open ]]
},
WindowSize->{639, 661},
WindowMargins->{{Automatic, 14}, {-171, Automatic}},
Magnification:>0.9 Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b33b632d-b72a-42c3-b100-2074fcf95b3b"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 166, 3, 60, "Section",ExpressionUUID->"cae1891f-1799-425d-be97-d3178d22ce5a"],
Cell[749, 27, 3312, 90, 255, "Input",ExpressionUUID->"015dcc3c-89d2-435f-9fe2-41a12ddddc7b",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[4098, 122, 230, 4, 48, "Section",ExpressionUUID->"4d339bf9-67ac-4f61-b84b-364199772506"],
Cell[CellGroupData[{
Cell[4353, 130, 214, 5, 28, "Item",ExpressionUUID->"11a08e61-0f8c-4376-b62e-9f1262277cbf"],
Cell[CellGroupData[{
Cell[4592, 139, 1105, 21, 77, "Input",ExpressionUUID->"732752ef-167a-4ee0-8611-57a828beda6e",
InitializationCell->True],
Cell[5700, 162, 204, 4, 30, "Output",ExpressionUUID->"db885eca-208b-4f2e-a79d-e7a6912d376f"]
}, Open ]],
Cell[5919, 169, 578, 14, 40, "Input",ExpressionUUID->"dccd7a31-6604-44be-b14f-dac4bbae402f",
InitializationCell->True],
Cell[6500, 185, 1292, 39, 59, "Input",ExpressionUUID->"4245e2e7-2fb6-4c62-83ef-5e53b51b7e5c",
InitializationCell->True],
Cell[7795, 226, 3292, 98, 131, "Input",ExpressionUUID->"9293da63-f541-4416-8fc4-39ef86f3d011",
InitializationCell->True],
Cell[11090, 326, 8383, 241, 216, "Code",ExpressionUUID->"08065884-ac8b-4874-93bc-389057bc29df",
InitializationCell->True],
Cell[19476, 569, 1611, 28, 40, "Input",ExpressionUUID->"ee6f2a0e-b361-4781-9bf0-f310afd187f2",
InitializationCell->True],
Cell[21090, 599, 8545, 231, 606, "Input",ExpressionUUID->"5e45d014-2b86-49d0-b70f-50b772705000",
InitializationCell->True],
Cell[29638, 832, 20120, 514, 1195, "Input",ExpressionUUID->"ed31ad57-0d64-4d90-9981-20c6dc6a5415",
InitializationCell->True]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[49807, 1352, 161, 3, 48, "Section",ExpressionUUID->"cc8a2a57-d8fe-4934-8ae4-d3a36c159eef"],
Cell[CellGroupData[{
Cell[49993, 1359, 237, 4, 48, "Subsection",ExpressionUUID->"c898d3b0-7ff5-4d1a-97c4-15fb2dacb7ed"],
Cell[CellGroupData[{
Cell[50255, 1367, 214, 4, 28, "Item",ExpressionUUID->"97dea7f0-8acf-4551-b141-cb630c8bf6d0",
InitializationCell->True],
Cell[50472, 1373, 1053, 24, 95, "Input",ExpressionUUID->"2ddc8f31-b985-4fa8-9e3c-aa69edb2ad12",
InitializationCell->True],
Cell[51528, 1399, 8161, 222, 383, "Input",ExpressionUUID->"e8f89cc7-179f-4b7f-84ef-f22c2e573768",
InitializationCell->True],
Cell[59692, 1623, 784, 19, 40, "Input",ExpressionUUID->"f84bc72a-b2ba-41be-8df7-7912c818319a",
InitializationCell->True]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[60525, 1648, 450, 12, 34, "Subsection",ExpressionUUID->"0d23d2eb-8e42-44d3-8bb5-fb39699cac11"],
Cell[CellGroupData[{
Cell[61000, 1664, 236, 4, 28, "Item",ExpressionUUID->"c31b432f-c484-4e8b-8e95-b68ed100631a"],
Cell[61239, 1670, 820, 22, 113, "Input",ExpressionUUID->"8f7ea0be-7949-4b55-954c-964fb7b1bf87",
InitializationCell->True],
Cell[62062, 1694, 8390, 243, 347, "Input",ExpressionUUID->"d1108c25-3e08-4517-8c98-17b25af5fa2c",
InitializationCell->True],
Cell[70455, 1939, 1839, 35, 40, "Input",ExpressionUUID->"ce995ac4-3dc8-4b4d-8c13-fa1e180ada82",
InitializationCell->True]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[72355, 1981, 186, 3, 60, "Section",ExpressionUUID->"bdb930bf-bc24-4b6d-9f9d-e9681a0f77f1"],
Cell[72544, 1986, 414, 9, 28, "Item",ExpressionUUID->"e8024903-f4e4-487d-9739-415ef595eb84"],
Cell[72961, 1997, 353, 6, 28, "Item",ExpressionUUID->"196ee7af-fe9b-4420-a793-0da6fad02b79"],
Cell[73317, 2005, 338, 6, 28, "Item",ExpressionUUID->"ffa96dc6-2cf9-4a01-8cec-724788bd64f9"],
Cell[CellGroupData[{
Cell[73680, 2015, 160, 3, 48, "Subsection",ExpressionUUID->"96307030-0486-49db-a3a3-5b6889598ce1"],
Cell[73843, 2020, 3896, 118, 275, "Input",ExpressionUUID->"db05ae23-fc00-4634-83b5-f78757af021a",
InitializationCell->True],
Cell[77742, 2140, 2373, 79, 149, "Input",ExpressionUUID->"e6840238-40ed-41b8-b580-79a3d03ce8a0",
InitializationCell->True],
Cell[80118, 2221, 1335, 43, 95, "Input",ExpressionUUID->"a0cfcf5f-680c-4728-90c7-d2888e7167fa",
InitializationCell->True],
Cell[81456, 2266, 1267, 40, 113, "Input",ExpressionUUID->"9010cce2-863c-4528-8597-b01c2c46a19e",
InitializationCell->True],
Cell[82726, 2308, 388, 11, 40, "Input",ExpressionUUID->"ab79a60d-f323-42d4-9fb0-a747b4236089",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[83151, 2324, 165, 3, 34, "Subsection",ExpressionUUID->"dc72c35d-c9ed-439f-82fe-e093316f76df"],
Cell[83319, 2329, 501, 10, 59, "Input",ExpressionUUID->"bd49c3dc-0352-493b-bfc6-11dd832eb4f3",
InitializationCell->True],
Cell[83823, 2341, 2006, 48, 59, "Input",ExpressionUUID->"7111f8dc-fa8d-4012-b832-d8f2fe08000f",
InitializationCell->True],
Cell[85832, 2391, 2070, 52, 77, "Input",ExpressionUUID->"f6faf93f-27ba-49ae-a1a9-47da1db30dc1",
InitializationCell->True],
Cell[87905, 2445, 2450, 59, 113, "Input",ExpressionUUID->"e89d0a6e-77a1-4186-b283-2db08161703f",
InitializationCell->True],
Cell[90358, 2506, 39933, 994, 2386, "Input",ExpressionUUID->"45f8aaa1-2288-4763-9205-1613b72c8b7d",
InitializationCell->True],
Cell[130294, 3502, 498, 11, 40, "Input",ExpressionUUID->"fbf4d080-c1fa-4f42-afc7-8f836894f679",
InitializationCell->True],
Cell[130795, 3515, 1050, 25, 40, "Input",ExpressionUUID->"f7f14d06-17ff-48bf-ac5d-7e804efe67dd",
InitializationCell->True]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[131894, 3546, 182, 3, 60, "Section",ExpressionUUID->"151328bb-1e34-43a7-870c-795e32ecd8b3"],
Cell[CellGroupData[{
Cell[132101, 3553, 174, 3, 48, "Subsection",ExpressionUUID->"32a8b3fe-8597-47c9-a745-6d80f82398e5"],
Cell[CellGroupData[{
Cell[132300, 3560, 559, 10, 46, "Item",ExpressionUUID->"9ea37bb3-a4a8-4312-b08a-7fa052fb8db0"],
Cell[132862, 3572, 962, 25, 80, "Code",ExpressionUUID->"2ec4180e-5e8e-48df-99f4-5535b2123eef"],
Cell[133827, 3599, 1265, 27, 63, "Code",ExpressionUUID->"7bac5e9a-b8f1-4315-8b5c-b29caaa68409",
InitializationCell->True],
Cell[135095, 3628, 2033, 59, 131, "Input",ExpressionUUID->"8d73cd0f-6359-4481-b991-50260a2e269f",
InitializationCell->True],
Cell[137131, 3689, 4643, 114, 165, "Code",ExpressionUUID->"e3a9fecf-b31a-4e56-996d-8abe6e14fb8b"],
Cell[141777, 3805, 1591, 45, 80, "Code",ExpressionUUID->"73c5482c-cd4a-4bef-aa84-a4caee18aa62",
InitializationCell->True],
Cell[143371, 3852, 5784, 154, 199, "Code",ExpressionUUID->"d54758c4-b42f-49a0-a56f-0f7948ac4d7f",
InitializationCell->True],
Cell[149158, 4008, 1364, 27, 65, "Code",ExpressionUUID->"ce018ce3-8662-4aa3-acf5-026e8fbffb0c"],
Cell[150525, 4037, 924, 26, 63, "Code",ExpressionUUID->"efcd3ae6-5ad9-45b4-a23e-8ca9da038287",
InitializationCell->True],
Cell[151452, 4065, 1164, 32, 63, "Code",ExpressionUUID->"324f723a-ff43-46d5-bc8c-8871597c7fe2",
InitializationCell->True],
Cell[152619, 4099, 1981, 55, 114, "Code",ExpressionUUID->"aa44003b-cef5-4d7a-a4e3-85d64e231dad",
InitializationCell->True],
Cell[154603, 4156, 669, 18, 65, "Code",ExpressionUUID->"a55b2f5c-96e3-430c-87f6-84cdaa3c00bf"],
Cell[155275, 4176, 698, 14, 63, "Code",ExpressionUUID->"5f17aea2-6f53-4328-9b03-72922fb6f1fe"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[156022, 4196, 187, 3, 34, "Subsection",ExpressionUUID->"25ee24f5-4cf4-4747-8ed6-0b23ff5d204c"],
Cell[CellGroupData[{
Cell[156234, 4203, 489, 9, 46, "Item",ExpressionUUID->"a2b332f3-9952-47da-adbe-8d514a52c249"],
Cell[156726, 4214, 742, 19, 63, "Code",ExpressionUUID->"5c665a79-649a-4268-8eb7-327a92ccb8ce"],
Cell[157471, 4235, 970, 28, 63, "Code",ExpressionUUID->"7b08a647-440f-42ce-bb68-343461f88992"],
Cell[158444, 4265, 1963, 57, 131, "Code",ExpressionUUID->"6dc6a1f8-0399-4df9-8c35-28c29a795b5a"],
Cell[160410, 4324, 3784, 103, 185, "Input",ExpressionUUID->"d8931092-e59a-499c-830d-06361b7d0252",
InitializationCell->True],
Cell[164197, 4429, 2023, 60, 113, "Input",ExpressionUUID->"7492570f-78a1-4faf-87ea-4ffe40bb70bd",
InitializationCell->True],
Cell[166223, 4491, 5929, 156, 455, "Input",ExpressionUUID->"857c7228-8a93-4577-aa5a-490384fb5af8",
InitializationCell->True],
Cell[172155, 4649, 695, 18, 65, "Code",ExpressionUUID->"53dbac2f-56d0-4875-a413-dc5fcdac5074"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[172911, 4674, 175, 3, 60, "Section",ExpressionUUID->"69756736-cb3d-4099-9729-648fa457f9fc"],
Cell[CellGroupData[{
Cell[173111, 4681, 181, 3, 48, "Subsection",ExpressionUUID->"bc133589-5bad-4cc7-9bb9-45fe2b2baf5e"],
Cell[173295, 4686, 4155, 111, 238, "Input",ExpressionUUID->"468b4311-7eac-4685-ab73-894794a610c2",
InitializationCell->True],
Cell[177453, 4799, 5406, 143, 298, "Input",ExpressionUUID->"23a996e4-e695-424d-abb9-1bccb207bfff",
InitializationCell->True],
Cell[182862, 4944, 1317, 37, 117, "Input",ExpressionUUID->"a551fa1e-12ca-43dd-bb3c-b6bcf7f675ee",
InitializationCell->True],
Cell[184182, 4983, 2135, 60, 136, "Input",ExpressionUUID->"411fc54d-8486-4f29-9e96-7f5f7cc72abf",
InitializationCell->True],
Cell[186320, 5045, 927, 23, 78, "Input",ExpressionUUID->"d5024668-4d71-4c58-8fcb-b9f3e233d73c",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[187284, 5073, 181, 3, 34, "Subsection",ExpressionUUID->"750a6179-861b-499d-8a74-81afa3dbd235"],
Cell[187468, 5078, 7162, 185, 356, "Input",ExpressionUUID->"c6bdc73f-4767-4450-8a9c-cc750a019985",
InitializationCell->True],
Cell[194633, 5265, 9933, 256, 454, "Input",ExpressionUUID->"d5ba076c-9f2d-43c3-befe-fb8c741e167a",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[204603, 5526, 189, 3, 34, "Subsection",ExpressionUUID->"5f3c7606-d3ab-4901-8341-c139872ad16a"],
Cell[204795, 5531, 3890, 106, 250, "Input",ExpressionUUID->"76548e4b-ba88-4639-97e7-441a27d15c1a",
InitializationCell->True],
Cell[208688, 5639, 5368, 137, 310, "Input",ExpressionUUID->"80bb0cb4-7c8f-424d-b8fa-3ee629a27e68",
InitializationCell->True],
Cell[214059, 5778, 7312, 183, 402, "Input",ExpressionUUID->"a6d1d85f-9ae7-4d5f-a413-6bf4c80c2ff7",
InitializationCell->True],
Cell[221374, 5963, 1344, 34, 149, "Input",ExpressionUUID->"6975697a-c9e6-49e8-b63f-0d9fdf2b5b8e",
InitializationCell->True]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[222767, 6003, 180, 3, 60, "Section",ExpressionUUID->"89b6b7e3-3381-4e5c-bdce-a89eb3842654"],
Cell[CellGroupData[{
Cell[222972, 6010, 154, 3, 48, "Subsection",ExpressionUUID->"85bc87dd-6b65-4042-bde3-3cb02d725176"],
Cell[223129, 6015, 2528, 72, 163, "Input",ExpressionUUID->"db4721aa-0d78-43a9-8b03-b58bf9b70c0b",
InitializationCell->True],
Cell[225660, 6089, 407, 8, 40, "Input",ExpressionUUID->"4824c0f0-a143-4852-a822-09e04fbbd7a8",
InitializationCell->True],
Cell[226070, 6099, 1271, 36, 85, "Input",ExpressionUUID->"89ade86d-9213-478f-ac35-0583a4250b1c",
InitializationCell->True],
Cell[227344, 6137, 449, 9, 40, "Input",ExpressionUUID->"03977759-fe04-4a8d-bbe1-ec2d4117b0f5",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[227830, 6151, 154, 3, 34, "Subsection",ExpressionUUID->"a5eaac3c-6771-49cf-be35-1469837fd422"],
Cell[227987, 6156, 13861, 381, 640, "Input",ExpressionUUID->"178b917a-2608-43e7-8e68-e365e1b891cd",
InitializationCell->True],
Cell[241851, 6539, 1215, 35, 85, "Input",ExpressionUUID->"3a7c4f91-ab72-406f-891f-03e4dfa88515",
InitializationCell->True],
Cell[243069, 6576, 1320, 36, 85, "Input",ExpressionUUID->"a52c270c-a401-4bd6-903d-e263a098ae7e",
InitializationCell->True],
Cell[244392, 6614, 444, 9, 40, "Input",ExpressionUUID->"9c9c0c26-07c1-4bae-af1e-1f6bcd4e71b9",
InitializationCell->True]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[244885, 6629, 155, 3, 60, "Section",ExpressionUUID->"ea63dcb6-beb9-4b04-a0e5-dce90f9e2183"],
Cell[245043, 6634, 40637, 999, 2317, "Input",ExpressionUUID->"caae3490-8b87-4473-8321-6dd3a77d1204",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[285717, 7638, 363, 9, 48, "Section",ExpressionUUID->"1e38d1f2-620a-4493-bcdf-e80434ac91e4"],
Cell[CellGroupData[{
Cell[286105, 7651, 318, 8, 48, "Subsection",ExpressionUUID->"93ff52dc-27e5-49a4-bce8-790c20a0c6e0"],
Cell[286426, 7661, 15997, 449, 784, "Input",ExpressionUUID->"744205d0-a5c0-42e9-be1b-2ccd7d81bd73",
InitializationCell->True],
Cell[302426, 8112, 1261, 39, 85, "Input",ExpressionUUID->"354eb787-c5f9-4c30-8346-b10cc0f8b4ca",
InitializationCell->True],
Cell[303690, 8153, 2094, 62, 150, "Input",ExpressionUUID->"e9fb0194-39a4-4677-bc3f-850b2b1787a0",
InitializationCell->True],
Cell[305787, 8217, 406, 9, 40, "Input",ExpressionUUID->"1a88f769-2f54-4713-9453-27bf186fad56",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[306230, 8231, 319, 8, 36, "Subsection",ExpressionUUID->"7a8f170e-35da-45eb-a00a-296fad22381a"],
Cell[306552, 8241, 13924, 381, 640, "Input",ExpressionUUID->"219e3018-7c29-4222-9677-267c27fbe86f",
InitializationCell->True],
Cell[320479, 8624, 1142, 34, 85, "Input",ExpressionUUID->"6cc7e11b-308c-42b6-819e-3353051c907f",
InitializationCell->True],
Cell[321624, 8660, 1243, 35, 85, "Input",ExpressionUUID->"e1c423b9-c7af-4d01-982d-60ad58795b7e",
InitializationCell->True],
Cell[322870, 8697, 428, 10, 40, "Input",ExpressionUUID->"eb7fd99f-22c3-44ff-9bae-635088ed7616",
InitializationCell->True]
}, Closed]]
}, Open ]]
}
]
*)