(* 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", " ", "\"\\"", " ", "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 ]] } ] *)